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

⟦2baba1dea⟧ M200

    Length: 20992 (0x5200)
    Types: M200
    Notes: @(#)UPDATE_EEPROM,5.3,92/05/04,12:34:56, M200_PROGRAM
    Names: »UPDATE_EEPROM.M200«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »UPDATE_EEPROM.M200« 

Disassembly

0x2101a


@ 2101a
        <LVAR  0x00c 4(w)>
        <LVAR  0x008 4(r)>
    <POP 2101a-21194 Body>                                   Δ+78       
        <POP 2101a-21030 Prologue>                           Σ0         ↓
        <POP 21030-21046 RegCacheLoad>                       Σ0         ↓
        <POP 21046-21054 Naked>                              Σ0         ↓ →0x2115c
            <MI 21046  MOVE.L  (A6+0x8),D0>                                     {}
            <MI 2104a  CMPI.L  #0x00000007,D0>                                  {}
            <MI 21050  BHI     0x2115c>                                         {}
        <POP 21054-2105e Naked>                              Σ0         →0x2106e →0x2108e →0x210aa →0x210d2 →0x210f4 →0x2111a →0x2112a →0x2113c
            <MI 21054  ADD.W   D0,D0>                                           {}
            <MI 21056  SWITCH  D0.W>                                            {}
        <POP 2106e-2108e Naked>                              Σ0         →0x2118c ←0x21054
            <Blob 0x2106e [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21072 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 21076-21078 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x21078 8>                                                     {[«4""»]|[«4""»]|[$$no error]}
            <MI 21086  MOVE.L  (A7)+,(A6+0xc)>               Δ+4                {[«4""»]|[«4""»]}
            <POP 21088-2108a StackAdj>                       Δ+8                {}
            <MI 2108a  BRA     0x2118c>                                         {}
        <POP 2108e-2109a Naked>                              Σ0 Δ-24    ↓ ←0x21054
            <Blob 0x2108e [24] @>                            Δ-24               {[«24""»]}
        <POP 2109a-210a6 Naked>                              Σ-24 Δ-12  →0x21186 ←0x2111a
            <POP 2109a-2109c StackAdj>                       Δ-4                {[-28-]}
            <Lit 0x2109c>                                                       {[-24-]|[$$…]}
                <Pointer.sp 0x2109c 4>                       Δ-4        
                <Const 0x210a0 0x1.2>                        Δ-2        
                <Const 0x210a2 0x18.2>                       Δ-2        
                <Call 0x210a4 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
            <MI 210a6  BRA     0x21186>                                         {[-24-]|[$$…]}
            <POP 210a4-210a6 StackAdj>                       Δ-8                {[-24-]|[$$…]|[-8-]}
        <POP 210aa-210d2 Naked>                              Σ0         →0x2118c ←0x21054
            <Blob 0x210aa [22] @>                            Δ-22               {[«22""»]}
            <POP 210ba-210bc StackAdj>                       Δ-4                {[«22""»]|[-4-]}
            <Lit 0x210bc 21>                                                    {[«22""»]|[$$bad checksum detected]}
            <MI 210ca  MOVE.L  (A7)+,(A6+0xc)>               Δ+4                {[«22""»]}
            <POP 210cc-210ce StackAdj>                       Δ+22               {}
            <MI 210ce  BRA     0x2118c>                                         {}
        <POP 210d2-210f4 Naked>                              Σ0         →0x2118c ←0x21054
            <Blob 0x210d2 [26] @>                            Δ-26               {[«26""»]}
            <POP 210de-210e0 StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x210e0 26>                                                    {[«26""»]|[$$write protect switch is on]}
            <MI 210ec  MOVE.L  (A7)+,(A6+0xc)>               Δ+4                {[«26""»]}
            <POP 210ee-210f0 StackAdj>                       Δ+26               {}
            <MI 210f0  BRA     0x2118c>                                         {}
        <POP 210f4-21104 Naked>                              Σ0 Δ-18    ↓ ←0x21054
            <Blob 0x210f4 [18] @>                            Δ-18               {[«18""»]}
        <POP 21104-2111a Naked>                              Σ-18 Δ+18  →0x2118c ←0x2112a
            <POP 21104-21106 StackAdj>                       Δ-4                {[-22-]}
            <Lit 0x21106>                                                       {[-18-]|[$$…]}
                <Pointer.sp 0x21106 4>                       Δ-4        
                <Const 0x2110a 0x1.2>                        Δ-2        
                <Const 0x2110c 0x11.2>                       Δ-2        
                <Call 0x21110 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21112-21114 StackAdj>                   Δ+8        
            <MI 21114  MOVE.L  (A7)+,(A6+0xc)>               Δ+4                {[-18-]}
            <POP 21116-21118 StackAdj>                       Δ+18               {}
            <MI 21118  BRA     0x2118c>                                         {}
        <POP 2111a-2112a Naked>                              Σ0 Δ-24    →0x2109a ←0x21054
            <Blob 0x2111a [24] @>                            Δ-24               {[«24""»]}
            <MI 21126  BRA     0x2109a>                                         {[«24""»]}
        <POP 2112a-2113c Naked>                              Σ0 Δ-18    →0x21104 ←0x21054
            <Blob 0x2112a [18] @>                            Δ-18               {[«18""»]}
            <MI 2113a  BRA     0x21104>                                         {[«18""»]}
        <POP 2113c-2115c Naked>                              Σ0         →0x2118c ←0x21054
            <Blob 0x2113c [20] @>                            Δ-20               {[«20""»]}
            <POP 21148-2114a StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x2114a 20>                                                    {[«20""»]|[$$prom write timed out]}
            <MI 21156  MOVE.L  (A7)+,(A6+0xc)>               Δ+4                {[«20""»]}
            <POP 21158-2115a StackAdj>                       Δ+20               {}
            <MI 2115a  BRA     0x2118c>                                         {}
        <POP 2115c-21186 Naked>                              Σ0 Δ-36    ↓ ←0x21046
            <Blob 0x2115c [24] @>                            Δ-24               {[«24""»]}
            <POP 21168-2116a StackAdj>                       Δ-8                {[«24""»]|[-8-]}
            <Lit 0x2116a 24>                                                    {[«24""»]|[-4-]|[$$** unknown ERROR_CODE =_]}
            <MI 21174  MOVE.L  (A6+0x8),(A7)>                                   {[«24""»]|[-4-]|[4, '(A6+0x8)']}
            <POP 21172-21174 StackAdj>                       Δ-8                {[«24""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
            <Call 0x21178 0x102e4>                                              {[«24""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
                Long2String(a : Long) : String
            <POP 2117e-21180 StackAdj>                       Δ+4                {[«24""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
            <Call 0x21180 0x102d0>                                              {[«24""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
                StringCat2(a, b : String) : String
        <POP 21186-2118c Naked>                              Σ-36 Δ+36  ↓ ←0x2109a
            <POP 21186-21188 StackAdj>                       Δ+8                {[-28-]}
            <MI 21188  MOVE.L  (A7)+,(A6+0xc)>               Δ+4                {[-24-]}
            <POP 2118a-2118c StackAdj>                       Δ+24               {}
        <POP 2118c-21194 Epilogue>                           Σ0         ←0x2106e ←0x210aa ←0x210d2 ←0x21104 ←0x2113c

0x21194


@ 21194
        <LVAR  0x008 4(r)>
    <POP 21194-2125a Body>                                              
        <POP 21194-211aa Prologue>                           Σ0         ↓
        <POP 211aa-211b2 RegCacheLoad>                       Σ0         ↓
        <POP 211b2-211f2 Naked>                              Σ0         ↓ →0x21222
            <Blob 0x211b2 [12] @>                            Δ-12               {[«12""»]}
            <POP 211c4-211c6 StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <Lit 0x211c6 11>                                                    {[«12""»]|[-4-]|[$$*** ABORT:_]}
            <POP 211d2-211d4 StackAdj>                       Δ-4                {[«12""»]|[-4-]|[$$*** ABORT:_]|[-4-]}
            <MI 211d4  MOVE.L  (A6+0x8),(A7)>                                   {[«12""»]|[-4-]|[$$*** ABORT:_]|[4, '(A6+0x8)']}
            <Call 0x211d8 0x102d0>                                              {[«12""»]|[-4-]|[$$*** ABORT:_]|[4, '(A6+0x8)']}
                StringCat2(a, b : String) : String
            <POP 211de-211e0 StackAdj>                       Δ+8                {[«12""»]|[-4-]}
            <Call 0x211e0 0x103e0>                                              {[«12""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 211e6-211ea StackAdj>                       Δ+16               {}
            <MI 211ea  TST.B   0x290b2>                                         {}
            <MI 211f0  BEQ     0x21222>                                         {}
        <POP 211f2-2121e Naked>                              Σ0         ↓
            <Blob 0x211f2 [46] @>                            Δ-46               {[«46""»]}
            <POP 21204-21206 StackAdj>                       Δ-4                {[«46""»]|[-4-]}
            <Lit 0x21206 45>                                                    {[«46""»]|[$$INSTALL failed: you have to reboot the system]}
            <Call 0x21214 0x103e0>                                              {[«46""»]|[$$INSTALL failed: you have to reboot the system]}
                WriteConsoleStringCrLf(str : String)
            <POP 2121a-2121e StackAdj>                       Δ+50               {}
        <POP 2121e-21220 Naked>                              Σ0         →0x2121e ←0x2121e
            <MI 2121e  BRA     0x2121e>                                         {}
        <POP 21222-21252 Naked>                              Σ0         ↓ ←0x211b2
            <Blob 0x21222 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x21234 0xe.2>                            Δ-2                {[«24""»]|[#14]}
            <POP 21238-2123a StackAdj>                       Δ-4                {[«24""»]|[#14]|[-4-]}
            <Lit 0x2123a 23>                                                    {[«24""»]|[#14]|[$$see error message above]}
            <Call 0x21248 0x103b8>                                              {[«24""»]|[#14]|[$$see error message above]}
                PopProgram(status : Byte; msg : String)
            <POP 2124e-21252 StackAdj>                       Δ+30               {}
        <POP 21252-2125a Epilogue>                           Σ0         

0x2125a


@ 2125a
        <LVAR  0x00a 4(rw)>
        <LVAR  0x008 1(r)>
    <POP 2125a-21388 Body>                                              
        <POP 2125a-21270 Prologue>                           Σ0         ↓
        <POP 21270-21274 RegCacheLoad>                       Σ0         ↓
        <POP 21274-21286 Naked>                              Σ0         ↓ →0x2137a
            <MI 21274  CLR.L   D0>                                              {}
            <MI 21276  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 2127a  SUBI.W  #0x0030,D0>                                      {}
            <MI 2127e  CMPI.W  #0x0036,D0>                                      {}
            <MI 21282  BHI     0x2137a>                                         {}
        <POP 21286-21290 Naked>                              Σ0         →0x212fe →0x21302 →0x2130a →0x21312 →0x2131a →0x21322 →0x2132a →0x21332 →0x2133a →0x21342 →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2134a →0x21352 →0x2135a →0x21362 →0x2136a →0x21372 →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2137a →0x2134a →0x21352 →0x2135a →0x21362 →0x2136a →0x21372
            <MI 21286  ADD.W   D0,D0>                                           {}
            <MI 21288  SWITCH  D0.W>                                            {}
        <POP 212fe-21302 Naked>                              Σ0         →0x21380 ←0x21286
            <MI 212fe  CLR.L   (A6+0xa)>                                        {}
            <MI 21300  BRA     0x21380>                                         {}
        <POP 21302-2130a Naked>                              Σ0         →0x21380 ←0x21286
            <MI 21302  MOVE.L  #0x1,(A6+0xa)>                                   {}
            <MI 21308  BRA     0x21380>                                         {}
        <POP 2130a-21312 Naked>                              Σ0         →0x21380 ←0x21286
            <MI 2130a  MOVE.L  #0x2,(A6+0xa)>                                   {}
            <MI 21310  BRA     0x21380>                                         {}
        <POP 21312-2131a Naked>                              Σ0         →0x21380 ←0x21286
            <MI 21312  MOVE.L  #0x3,(A6+0xa)>                                   {}
            <MI 21318  BRA     0x21380>                                         {}
        <POP 2131a-21322 Naked>                              Σ0         →0x21380 ←0x21286
            <MI 2131a  MOVE.L  #0x4,(A6+0xa)>                                   {}
            <MI 21320  BRA     0x21380>                                         {}
        <POP 21322-2132a Naked>                              Σ0         →0x21380 ←0x21286
            <MI 21322  MOVE.L  #0x5,(A6+0xa)>                                   {}
            <MI 21328  BRA     0x21380>                                         {}
        <POP 2132a-21332 Naked>                              Σ0         →0x21380 ←0x21286
            <MI 2132a  MOVE.L  #0x6,(A6+0xa)>                                   {}
            <MI 21330  BRA     0x21380>                                         {}
        <POP 21332-2133a Naked>                              Σ0         →0x21380 ←0x21286
            <MI 21332  MOVE.L  #0x7,(A6+0xa)>                                   {}
            <MI 21338  BRA     0x21380>                                         {}
        <POP 2133a-21342 Naked>                              Σ0         →0x21380 ←0x21286
            <MI 2133a  MOVE.L  #0x8,(A6+0xa)>                                   {}
            <MI 21340  BRA     0x21380>                                         {}
        <POP 21342-2134a Naked>                              Σ0         →0x21380 ←0x21286
            <MI 21342  MOVE.L  #0x9,(A6+0xa)>                                   {}
            <MI 21348  BRA     0x21380>                                         {}
        <POP 2134a-21352 Naked>                              Σ0         →0x21380 ←0x21286 ←0x21286
            <MI 2134a  MOVE.L  #0xa,(A6+0xa)>                                   {}
            <MI 21350  BRA     0x21380>                                         {}
        <POP 21352-2135a Naked>                              Σ0         →0x21380 ←0x21286 ←0x21286
            <MI 21352  MOVE.L  #0xb,(A6+0xa)>                                   {}
            <MI 21358  BRA     0x21380>                                         {}
        <POP 2135a-21362 Naked>                              Σ0         →0x21380 ←0x21286 ←0x21286
            <MI 2135a  MOVE.L  #0xc,(A6+0xa)>                                   {}
            <MI 21360  BRA     0x21380>                                         {}
        <POP 21362-2136a Naked>                              Σ0         →0x21380 ←0x21286 ←0x21286
            <MI 21362  MOVE.L  #0xd,(A6+0xa)>                                   {}
            <MI 21368  BRA     0x21380>                                         {}
        <POP 2136a-21372 Naked>                              Σ0         →0x21380 ←0x21286 ←0x21286
            <MI 2136a  MOVE.L  #0xe,(A6+0xa)>                                   {}
            <MI 21370  BRA     0x21380>                                         {}
        <POP 21372-2137a Naked>                              Σ0         →0x21380 ←0x21286 ←0x21286
            <MI 21372  MOVE.L  #0xf,(A6+0xa)>                                   {}
            <MI 21378  BRA     0x21380>                                         {}
        <POP 2137a-21380 Naked>                              Σ0         ↓ ←0x21274 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286 ←0x21286
            <MI 2137a  MOVE.L  #0xffffffff,(A6+0xa)>                            {}
        <POP 21380-21388 Epilogue>                           Σ0         ←0x212fe ←0x21302 ←0x2130a ←0x21312 ←0x2131a ←0x21322 ←0x2132a ←0x21332 ←0x2133a ←0x21342 ←0x2134a ←0x21352 ←0x2135a ←0x21362 ←0x2136a ←0x21372

0x21388


@ 21388
        <LVAR  0x010 2(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 21388-21558 Body>                                   Δ+48       
        <POP 21388-2139e Prologue>                           Σ0         ↓
        <POP 2139e-213a8 RegCacheLoad>                       Σ0         ↓
        <POP 213a8-213b8 Naked>                              Σ0         ↓ →0x21520
            <MI 213a8  MOVE.W  (A6+0x10),D0>                                    {}
            <MI 213ac  SUBI.W  #0x0015,D0>                                      {}
            <MI 213b0  CMPI.W  #0x003e,D0>                                      {}
            <MI 213b4  BHI     0x21520>                                         {}
        <POP 213b8-213c2 Naked>                              Σ0         →0x214a0 →0x21520 →0x2148c →0x21520 →0x2146e →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21440 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x21520 →0x214b4 →0x214c8 →0x214fc →0x2150e
            <MI 213b8  ADD.W   D0,D0>                                           {}
            <MI 213ba  SWITCH  D0.W>                                            {}
        <POP 21440-21452 Naked>                              Σ0 Δ-8     ↓ ←0x213b8
            <MI 21440  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21442  MOVE.L  #0x80000000,(A0)>                                {}
            <MI 21448  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x2144a [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x2144e [4] @>                             Δ-4                {[«4""»]|[«4""»]}
        <POP 21452-2146e Naked>                              Σ-8 Δ+8    →0x21550 ←0x2148c ←0x214a0 ←0x214b4
            <POP 21452-21454 StackAdj>                       Δ-4                {[-12-]}
            <Lit 0x21454>                                                       {[-8-]|[$$…]}
                <Pointer.sp 0x21454 4>                       Δ-4        
                <Const 0x21458 0x1.2>                        Δ-2        
                <Const 0x2145a 0x8.2>                        Δ-2        
                <Call 0x2145e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21464-21466 StackAdj>                   Δ+8        
            <MI 21466  MOVE.L  (A7)+,(A0)>                   Δ+4                {[-8-]}
            <POP 21468-2146a StackAdj>                       Δ+8                {}
            <MI 2146a  BRA     0x21550>                                         {}
        <POP 2146e-2147c Naked>                              Σ0 Δ-4     ↓ ←0x213b8
            <MI 2146e  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21470  MOVE.L  #0x80002000,(A0)>                                {}
            <MI 21476  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x21478 [4] @>                             Δ-4                {[«4""»]}
        <POP 2147c-2148c Naked>                              Σ-4 Δ-12   →0x21544 ←0x214fc ←0x2150e
            <POP 2147c-2147e StackAdj>                       Δ-4                {[-8-]}
            <Pointer.sp 0x2147e 4>                           Δ-4                {[-8-]|[^^4]}
            <Const 0x21482 0x1.2>                            Δ-2                {[-8-]|[^^4]|[#1]}
            <Const 0x21484 0x4.2>                            Δ-2                {[-8-]|[^^4]|[#1]|[#4]}
            <MI 21488  BRA     0x21544>                                         {[-8-]|[^^4]|[#1]|[#4]}
        <POP 2148c-214a0 Naked>                              Σ0 Δ-8     →0x21452 ←0x213b8
            <MI 2148c  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 2148e  MOVE.L  #0x80004000,(A0)>                                {}
            <MI 21494  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x21496 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x2149a [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <MI 2149e  BRA     0x21452>                                         {[«4""»]|[«4""»]}
        <POP 214a0-214b4 Naked>                              Σ0 Δ-8     →0x21452 ←0x213b8
            <MI 214a0  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 214a2  MOVE.L  #0x80006000,(A0)>                                {}
            <MI 214a8  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x214aa [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x214ae [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <MI 214b2  BRA     0x21452>                                         {[«4""»]|[«4""»]}
        <POP 214b4-214c8 Naked>                              Σ0 Δ-8     →0x21452 ←0x213b8
            <MI 214b4  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 214b6  MOVE.L  #0x70000,(A0)>                                   {}
            <MI 214bc  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x214be [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x214c2 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <MI 214c6  BRA     0x21452>                                         {[«4""»]|[«4""»]}
        <POP 214c8-214fc Naked>                              Σ0         →0x21550 ←0x213b8
            <MI 214c8  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 214ca  MOVE.L  #0x72000,(A0)>                                   {}
            <MI 214d0  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x214d2 [6] @>                             Δ-6                {[«6""»]}
            <POP 214e2-214e4 StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <Lit 0x214e4 5>                                                     {[«6""»]|[$$LANCE]}
            <MI 214f6  MOVE.L  (A7)+,(A0)>                   Δ+4                {[«6""»]}
            <POP 214f8-214fa StackAdj>                       Δ+6                {}
            <MI 214fa  BRA     0x21550>                                         {}
        <POP 214fc-2150e Naked>                              Σ0 Δ-4     →0x2147c ←0x213b8
            <MI 214fc  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 214fe  MOVE.L  #0x74000,(A0)>                                   {}
            <MI 21504  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x21506 [4] @>                             Δ-4                {[«4""»]}
            <MI 2150a  BRA     0x2147c>                                         {[«4""»]}
        <POP 2150e-21520 Naked>                              Σ0 Δ-4     →0x2147c ←0x213b8
            <MI 2150e  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21510  MOVE.L  #0x76000,(A0)>                                   {}
            <MI 21516  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x21518 [4] @>                             Δ-4                {[«4""»]}
            <MI 2151c  BRA     0x2147c>                                         {[«4""»]}
        <POP 21520-21544 Naked>                              Σ0 Δ-16    ↓ ←0x213a8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8 ←0x213b8
            <MI 21520  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21522  CLR.L   (A0)>                                            {}
            <MI 21524  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 21526-21528 StackAdj>                       Δ-4                {[-4-]}
            <POP 21528-21529 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x21529 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 2152c  MOVE.B  0x2026f,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 21532  MOVE.B  0x20270,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 21538-2153a StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Pointer.sp 0x2153a 4>                           Δ-4                {[-2-]|[«2""»]|[-4-]|[^^4]}
            <Const 0x2153e 0x1.2>                            Δ-2                {[-2-]|[«2""»]|[-4-]|[^^4]|[#1]}
            <Const 0x21540 0x3.2>                            Δ-2                {[-2-]|[«2""»]|[-4-]|[^^4]|[#1]|[#3]}
        <POP 21544-21550 Naked>                              Σ-16 Δ+16  ↓ ←0x2147c
            <Call 0x21544 0x102c4>                                              {[-16-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 2154a-2154c StackAdj>                       Δ+8                {[-8-]}
            <MI 2154c  MOVE.L  (A7)+,(A0)>                   Δ+4                {[-4-]}
            <POP 2154e-21550 StackAdj>                       Δ+4                {}
        <POP 21550-21558 Epilogue>                           Σ0         ←0x21452 ←0x214c8

0x21558


@ 21558
        <LVAR  0x008 4(r)>
        <LVAR -0x004 2(rw)>
        <LVAR -0x008 4(rw)>
    <POP 21558-21772 Body>                                              
        <POP 21558-2156e Prologue>                           Σ0         ↓
        <POP 2156e-21580 RegCacheLoad>                       Σ0         ↓
        <POP 21580-215ba Naked>                              Σ0         ↓
            <MI 21580  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 21582-21584 StackAdj>                       Δ-4                {[-4-]}
            <MI 21584  MOVE.B  (A0+0x2),-(A7)>               Δ-2                {[-4-]|[2, '(A0+0x2)']}
            <Call 0x21588 0x2125a>                                              {[-4-]|[2, '(A0+0x2)']}
            <POP 2158a-2158c StackAdj>                       Δ+2                {[-4-]}
            <MI 2158c  MOVE.L  (A7)+,D3>                     Δ+4                {}
            <MI 2158e  MOVEQ.L #0x10,D4>                                        {}
            <Call 0x21590 0x1028c>                                              {}
                ?muls_d3_d4
            <POP 21596-21598 StackAdj>                       Δ-4                {[-4-]}
            <MI 21598  MOVE.B  (A0+0x3),-(A7)>               Δ-2                {[-4-]|[2, '(A0+0x3)']}
            <Call 0x2159c 0x2125a>                                              {[-4-]|[2, '(A0+0x3)']}
            <POP 2159e-215a0 StackAdj>                       Δ+2                {[-4-]}
            <MI 215a0  MOVE.L  D4,D0>                                           {[-4-]}
            <MI 215a2  ADD.L   (A7)+,D0>                     Δ+4                {}
            <POP 0x215a4 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 215ae  MOVE.W  D0,(A6-0x4)>                                     {}
            <MI 215b2  EXTW.L  D0>                                              {}
            <MI 215b4  MOVE.L  D0,D7>                                           {}
            <MI 215b6  CLR.L   (A6-0x8)>                                        {}
            <MI 215b8  MOVEQ.L #0x00,D6>                                        {}
        <POP 215ba-21624 Naked>                              Σ0         ↓ →0x215ba ←0x215ba
            <MI 215ba  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 215bc  MOVE.L  D6,D0>                                           {}
            <MI 215be  ASL.L   #0x1,D0>                                         {}
            <POP 215c0-215c2 StackAdj>                       Δ-4                {[-4-]}
            <MI 215c2  MOVE.L  D0,D1>                                           {[-4-]}
            <MI 215c4  ADDQ.L  #0x5,D1>                                         {[-4-]}
            <MI 215c6  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <POP 0x215c8 LimitCheck 0x0 ≤ D1 ≤ 0x1ff>                           {[-4-]}
            <MI 215d2  MOVE.B  (A0+D1.L),-(A7)>              Δ-2                {[-4-]|[2, '(A0+D1.L)']}
            <Call 0x215d6 0x2125a>                                              {[-4-]|[2, '(A0+D1.L)']}
            <POP 215d8-215da StackAdj>                       Δ+2                {[-4-]}
            <MI 215da  MOVE.L  (A7)+,D3>                     Δ+4                {}
            <MI 215dc  MOVEQ.L #0x10,D4>                                        {}
            <Call 0x215de 0x1028c>                                              {}
                ?muls_d3_d4
            <POP 215e4-215e6 StackAdj>                       Δ-4                {[-4-]}
            <MI 215e6  ADDQ.L  #0x6,D0>                                         {[-4-]}
            <MI 215e8  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x215ea LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {[-4-]}
            <MI 215f4  MOVE.B  (A0+D0.L),-(A7)>              Δ-2                {[-4-]|[2, '(A0+D0.L)']}
            <Call 0x215f8 0x2125a>                                              {[-4-]|[2, '(A0+D0.L)']}
            <POP 215fa-215fc StackAdj>                       Δ+2                {[-4-]}
            <MI 215fc  MOVE.L  D4,D0>                                           {[-4-]}
            <MI 215fe  ADD.L   (A7)+,D0>                     Δ+4                {}
            <POP 0x21600 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 2160a  MOVE.W  D0,D5>                                           {}
            <MI 2160c  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 2160e  ASL.L   #0x8,D0>                                         {}
            <MI 21610  MOVE.W  D5,D1>                                           {}
            <MI 21612  EXTW.L  D1>                                              {}
            <MI 21614  ADD.L   D1,D0>                                           {}
            <MI 21616  MOVE.L  D0,(A6-0x8)>                                     {}
            <MI 21618  ADD.L   D1,D7>                                           {}
            <MI 2161a  ADDQ.L  #0x1,D6>                                         {}
            <MI 2161c  CMPI.L  #0x00000003,D6>                                  {}
            <MI 21622  BLE     0x215ba>                                         {}
        <POP 21624-21628 Naked>                              Σ0         ↓ →0x21634
            <MI 21624  TST.L   0x2509c>                                         {}
            <MI 21626  BNE     0x21634>                                         {}
        <POP 21628-21634 Naked>                              Σ0         ↓
            <MI 21628  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 2162a  LSR.L   #0x8,D0>                                         {}
            <MI 2162c  LSR.L   #0x5,D0>                                         {}
            <MI 2162e  ASL.L   #0x8,D0>                                         {}
            <MI 21630  ASL.L   #0x5,D0>                                         {}
            <MI 21632  MOVE.L  D0,0x2509c>                                      {}
        <POP 21634-21640 Naked>                              Σ0 Δ-4     ↓ ←0x21624
            <MI 21634  MOVE.W  (A6-0x4),D0>                                     {}
            <MI 21638  SUBQ.W  #0x6,D0>                                         {}
            <MI 2163a  EXTW.L  D0>                                              {}
            <MI 2163c  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 2163e  MOVEQ.L #0x00,D6>                                        {[4, 'D0']}
        <POP 21640-21646 Naked>                              Σ-4        ↓ →0x216ec ←0x216e6
            <MI 21640  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 21642  BGT     0x216ec>                                         {[-4-]}
        <POP 21646-216b4 Naked>                              Σ-4        ↓ →0x216e6
            <MI 21646  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 21648  MOVE.L  D6,D0>                                           {[-4-]}
            <MI 2164a  ASL.L   #0x1,D0>                                         {[-4-]}
            <POP 2164c-2164e StackAdj>                       Δ-4                {[-8-]}
            <MI 2164e  MOVE.L  D0,D1>                                           {[-8-]}
            <MI 21650  ADDI.L  #0x0000000d,D1>                                  {[-8-]}
            <MI 21656  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x21658 LimitCheck 0x0 ≤ D1 ≤ 0x1ff>                           {[-8-]}
            <MI 21662  MOVE.B  (A0+D1.L),-(A7)>              Δ-2                {[-8-]|[2, '(A0+D1.L)']}
            <Call 0x21666 0x2125a>                                              {[-8-]|[2, '(A0+D1.L)']}
            <POP 21668-2166a StackAdj>                       Δ+2                {[-8-]}
            <MI 2166a  MOVE.L  (A7)+,D3>                     Δ+4                {[-4-]}
            <MI 2166c  MOVEQ.L #0x10,D4>                                        {[-4-]}
            <Call 0x2166e 0x1028c>                                              {[-4-]}
                ?muls_d3_d4
            <POP 21674-21676 StackAdj>                       Δ-4                {[-8-]}
            <MI 21676  ADDI.L  #0x0000000e,D0>                                  {[-8-]}
            <MI 2167c  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x2167e LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {[-8-]}
            <MI 21688  MOVE.B  (A0+D0.L),-(A7)>              Δ-2                {[-8-]|[2, '(A0+D0.L)']}
            <Call 0x2168c 0x2125a>                                              {[-8-]|[2, '(A0+D0.L)']}
            <POP 2168e-21690 StackAdj>                       Δ+2                {[-8-]}
            <MI 21690  MOVE.L  D4,D0>                                           {[-8-]}
            <MI 21692  ADD.L   (A7)+,D0>                     Δ+4                {[-4-]}
            <POP 0x21694 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-4-]}
            <MI 2169e  MOVE.W  D0,D5>                                           {[-4-]}
            <MI 216a0  MOVE.W  D5,D0>                                           {[-4-]}
            <MI 216a2  EXTW.L  D0>                                              {[-4-]}
            <MI 216a4  ADD.L   D0,D7>                                           {[-4-]}
            <MI 216a6  ADDQ.L  #0x1,0x250a0>                                    {[-4-]}
            <MI 216ac  MOVE.L  (A6-0x8),D1>                                     {[-4-]}
            <MI 216ae  ADD.L   D6,D1>                                           {[-4-]}
            <MI 216b0  CMP.L   0x2509c,D1>                                      {[-4-]}
            <MI 216b2  BCS     0x216e6>                                         {[-4-]}
        <POP 216b4-216c0 Naked>                              Σ-4        ↓ →0x216e6
            <MI 216b4  MOVE.L  0x2509c,D2>                                      {[-4-]}
            <MI 216b6  ADDI.L  #0x00002000,D2>                                  {[-4-]}
            <MI 216bc  CMP.L   D2,D1>                                           {[-4-]}
            <MI 216be  BCC     0x216e6>                                         {[-4-]}
        <POP 216c0-216e6 Naked>                              Σ-4        ↓
            <MI 216c0  ANDI.L  #0x00001fff,D1>                                  {[-4-]}
            <POP 0x216c6 LimitCheck 0x0 ≤ D1 ≤ 0x1fff>                          {[-4-]}
            <MI 216d0  ASL.L   #0x1,D1>                                         {[-4-]}
            <MI 216d2  LEA.L   0x25088,A0>                                      {[-4-]}
            <POP 0x216d8 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-4-]}
            <MI 216dc  MOVE.W  D0,(A0+D1.L+#0x2a)>                              {[-4-]}
            <MI 216e0  ADDQ.L  #0x1,0x250a4>                                    {[-4-]}
        <POP 216e6-216ec Naked>                              Σ-4        ↓ →0x21640 ←0x21646 ←0x216b4
            <MI 216e6  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 216e8  BVC     0x21640>                                         {[-4-]}
        <POP 216ec-21740 Naked>                              Σ-4 Δ+4    ↓ →0x2176a ←0x21640
            <POP 216ec-216ee StackAdj>                       Δ+4                {}
            <MI 216ee  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 216f0  MOVE.W  (A6-0x4),D0>                                     {}
            <MI 216f4  ASL.W   #0x1,D0>                                         {}
            <POP 216f6-216f8 StackAdj>                       Δ-4                {[-4-]}
            <MI 216f8  MOVE.W  D0,D1>                                           {[-4-]}
            <MI 216fa  ADDQ.W  #0x3,D1>                                         {[-4-]}
            <MI 216fc  SUBQ.W  #0x1,D1>                                         {[-4-]}
            <POP 0x216fe LimitCheck 0x0 ≤ D1 ≤ 0x1ff>                           {[-4-]}
            <MI 21702  MOVE.B  (A0+D1.W),-(A7)>              Δ-2                {[-4-]|[2, '(A0+D1.W)']}
            <Call 0x21706 0x2125a>                                              {[-4-]|[2, '(A0+D1.W)']}
            <POP 21708-2170a StackAdj>                       Δ+2                {[-4-]}
            <MI 2170a  MOVE.L  (A7)+,D3>                     Δ+4                {}
            <MI 2170c  MOVEQ.L #0x10,D4>                                        {}
            <Call 0x2170e 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21714  ADD.L   D4,D7>                                           {}
            <POP 21716-21718 StackAdj>                       Δ-4                {[-4-]}
            <MI 21718  ADDQ.W  #0x4,D0>                                         {[-4-]}
            <MI 2171a  SUBQ.W  #0x1,D0>                                         {[-4-]}
            <POP 0x2171c LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {[-4-]}
            <MI 21720  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[-4-]|[2, '(A0+D0.W)']}
            <Call 0x21724 0x2125a>                                              {[-4-]|[2, '(A0+D0.W)']}
            <POP 21726-21728 StackAdj>                       Δ+2                {[-4-]}
            <MI 21728  ADD.L   (A7)+,D7>                     Δ+4                {}
            <MI 2172a  MOVE.L  D7,D4>                                           {}
            <MI 2172c  MOVE.L  #0x100,D3>                                       {}
            <Call 0x21732 0x10294>                                              {}
                ?divs_d3_d4
            <MI 21738  CMPI.L  #0x000000ff,D3>                                  {}
            <MI 2173e  BEQ     0x2176a>                                         {}
        <POP 21740-2176a Naked>                              Σ0         ↓
            <Blob 0x21740 [32] @>                            Δ-32               {[«32""»]}
            <POP 2174c-2174e StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x2174e 32>                                                    {[«32""»]|[$$Checksum error in file data line]}
            <Call 0x21762 0x21194>                                              {[«32""»]|[$$Checksum error in file data line]}
            <POP 21766-2176a StackAdj>                       Δ+36               {}
        <POP 2176a-21772 Epilogue>                           Σ0         ←0x216ec

0x21772


@ 21772
        <LVAR  0x008 4(r)>
        <LVAR -0x209 1(r)>
        <LVAR -0x20a @ 1(rw)>
        <LVAR -0x20e @ 4(r)>
        <LVAR -0x210 @ 1(r)>
    <POP 21772-219f2 Body>                                              
        <POP 21772-21788 Prologue>                           Σ0         ↓
        <POP 21788-2179a RegCacheLoad>                       Σ0         ↓
        <POP 2179a-217a4 Naked>                              Σ0         ↓
            <Pointer.fp 0x2179a <LVAR -0x20e @ 4(r)>>        Δ-4                {[@@-526]}
            <Call 0x2179c 0x102b8>                                              {[@@-526]}
                NewString(VAR a : String)
            <POP 217a2-217a4 StackAdj>                       Δ+4                {}
        <POP 217a4-217ac Naked>                              Σ0         ↓ ←0x21930
            <MI 217a4  MOVEQ.L #0x00,D7>                                        {}
            <MI 217a6  MOVE.B  #0x20,(A6-0x20a)>                                {}
        <POP 217ac-217c4 Naked>                              Σ0         ↓ →0x21802 ←0x21886
            <MI 217ac  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 217b0  MOVE.L  (A0),-(A7)>                   Δ-4                {[4, '(A0)']}
            <Pointer.fp 0x217b2 <LVAR -0x20e @ 4(r)>>        Δ-4                {[4, '(A0)']|[@@-526]}
            <Pointer.fp 0x217b4 <LVAR -0x210 @ 1(r)>>        Δ-4                {[4, '(A0)']|[@@-526]|[@@-528]}
            <Call 0x217b6 0x1043c>                                              {[4, '(A0)']|[@@-526]|[@@-528]}
                FileReadLine(file : File; VAR a : String; VAR b : Byte)
            <POP 217bc-217c0 StackAdj>                       Δ+12               {}
            <MI 217c0  TST.B   (A6-0x210)>                                      {}
            <MI 217c2  BEQ     0x21802>                                         {}
        <POP 217c4-21802 Naked>                              Σ0         ↓
            <MI 217c4  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x217c6 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x217c8 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Const 0x217cc 0x25090.4>                        Δ-4                {[#0]|[#1]|[##1]|[##151696]}
            <MI 217ce  PEA.L   (A0)>                         Δ-4                {[#0]|[#1]|[##1]|[##151696]|[4, '^(A0)']}
            <Call 0x217d0 0x1038c>                                              {[#0]|[#1]|[##1]|[##151696]|[4, '^(A0)']}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 217d6-217da StackAdj>                       Δ+16               {}
            <Blob 0x217da [22] @>                            Δ-22               {[«22""»]}
            <POP 217e6-217e8 StackAdj>                       Δ-4                {[«22""»]|[-4-]}
            <Lit 0x217e8 22>                                                    {[«22""»]|[$$File has no END record]}
            <Call 0x217fa 0x21194>                                              {[«22""»]|[$$File has no END record]}
            <POP 217fe-21802 StackAdj>                       Δ+26               {}
        <POP 21802-2180c Naked>                              Σ0 Δ-4     ↓ ←0x217ac
            <MI 21802  MOVEA.L (A6-0x20e),A0>                                   {}
            <MI 21804  MOVE.W  (A0),D0>                                         {}
            <MI 21806  EXTW.L  D0>                                              {}
            <MI 21808  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 2180a  MOVEQ.L #0x01,D6>                                        {[4, 'D0']}
        <POP 2180c-21810 Naked>                              Σ-4        ↓ →0x21886 ←0x2185c
            <MI 2180c  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 2180e  BGT     0x21886>                                         {[-4-]}
        <POP 21810-2181a Naked>                              Σ-4        ↓ →0x2185c
            <MI 21810  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 21812  CMPI.L  #0x00000200,D7>                                  {[-4-]}
            <MI 21818  BLE     0x2185c>                                         {[-4-]}
        <POP 2181a-2185c Naked>                              Σ-4        ↓
            <MI 2181a  CLR.B   -(A7)>                        Δ-2                {[-4-]|[#0]}
            <Const 0x2181c 0x1.2>                            Δ-2                {[-4-]|[#0]|[#1]}
            <Const 0x2181e 0x1.4>                            Δ-4                {[-4-]|[#0]|[#1]|[##1]}
            <Const 0x21822 0x25090.4>                        Δ-4                {[-4-]|[#0]|[#1]|[##1]|[##151696]}
            <MI 21824  MOVEA.L (A6+0x8),A0>                                     {[-4-]|[#0]|[#1]|[##1]|[##151696]}
            <MI 21828  PEA.L   (A0)>                         Δ-4                {[-4-]|[#0]|[#1]|[##1]|[##151696]|[4, '^(A0)']}
            <Call 0x2182a 0x1038c>                                              {[-4-]|[#0]|[#1]|[##1]|[##151696]|[4, '^(A0)']}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 21830-21834 StackAdj>                       Δ+16               {[-4-]}
            <Blob 0x21834 [18] @>                            Δ-18               {[-4-]|[«18""»]}
            <POP 21840-21842 StackAdj>                       Δ-4                {[-4-]|[«18""»]|[-4-]}
            <Lit 0x21842 18>                                                    {[-4-]|[«18""»]|[$$File line too long]}
            <Call 0x21854 0x21194>                                              {[-4-]|[«18""»]|[$$File line too long]}
            <POP 21858-2185c StackAdj>                       Δ+22               {[-4-]}
        <POP 2185c-21886 Naked>                              Σ-4        ↓ →0x2180c ←0x21810
            <MI 2185c  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 2185e  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x21860 LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {[-4-]}
            <MI 2186a  LEA.L   (A6-0x210),A0>                                   {[-4-]}
            <MI 2186c  MOVEA.L (A6-0x20e),A1>                                   {[-4-]}
            <MI 2186e  MOVE.L  D6,D1>                                           {[-4-]}
            <MI 21870  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <POP 0x21872 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-4-]}
            <MI 2187c  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L+#0x6)>                   {[-4-]}
            <MI 21882  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 21884  BVC     0x2180c>                                         {[-4-]}
        <POP 21886-21894 Naked>                              Σ-4 Δ+4    ↓ →0x217ac ←0x2180c
            <POP 21886-21888 StackAdj>                       Δ+4                {}
            <MI 21888  MOVEA.L (A6-0x20e),A0>                                   {}
            <MI 2188a  MOVE.W  (A0),D0>                                         {}
            <MI 2188c  CMPI.W  #0x007e,D0>                                      {}
            <MI 21890  BGE     0x217ac>                                         {}
        <POP 21894-2189c Naked>                              Σ0         ↓ →0x218b2
            <MI 21894  MOVE.B  (A6-0x20a),D0>                                   {}
            <MI 21898  CMP.B   #0x53,D0>                                        {}
            <MI 2189a  BNE     0x218b2>                                         {}
        <POP 2189c-218a6 Naked>                              Σ0         ↓ →0x218b2
            <MI 2189c  MOVE.B  (A6-0x209),D1>                                   {}
            <MI 218a0  CMPI.B  #0x33,D1>                                        {}
            <MI 218a4  BNE     0x218b2>                                         {}
        <POP 218a6-218b2 Naked>                              Σ0         →0x21926
            <Pointer.fp 0x218a6 <LVAR -0x20a @ 1(rw)>>       Δ-4                {[@@-522]}
            <Call 0x218aa 0x21558>                                              {[@@-522]}
            <POP 218ae-218b0 StackAdj>                       Δ+4                {}
            <MI 218b0  BRA     0x21926>                                         {}
        <POP 218b2-218b6 Naked>                              Σ0         ↓ →0x218c2 ←0x21894 ←0x2189c
            <MI 218b2  CMP.B   #0x53,D0>                                        {}
            <MI 218b4  BNE     0x218c2>                                         {}
        <POP 218b6-218c0 Naked>                              Σ0         ↓ →0x218c2
            <MI 218b6  MOVE.B  (A6-0x209),D1>                                   {}
            <MI 218ba  CMPI.B  #0x35,D1>                                        {}
            <MI 218be  BNE     0x218c2>                                         {}
        <POP 218c0-218c2 Naked>                              Σ0         →0x21926
            <MI 218c0  BRA     0x21926>                                         {}
        <POP 218c2-218c6 Naked>                              Σ0         ↓ →0x218d2 ←0x218b2 ←0x218b6
            <MI 218c2  CMP.B   #0x53,D0>                                        {}
            <MI 218c4  BNE     0x218d2>                                         {}
        <POP 218c6-218d0 Naked>                              Σ0         ↓ →0x218d2
            <MI 218c6  MOVE.B  (A6-0x209),D1>                                   {}
            <MI 218ca  CMPI.B  #0x37,D1>                                        {}
            <MI 218ce  BNE     0x218d2>                                         {}
        <POP 218d0-218d2 Naked>                              Σ0         →0x21926
            <MI 218d0  BRA     0x21926>                                         {}
        <POP 218d2-218d6 Naked>                              Σ0         ↓ →0x218e2 ←0x218c2 ←0x218c6
            <MI 218d2  CMP.B   #0x53,D0>                                        {}
            <MI 218d4  BNE     0x218e2>                                         {}
        <POP 218d6-218e0 Naked>                              Σ0         ↓ →0x218e2
            <MI 218d6  MOVE.B  (A6-0x209),D0>                                   {}
            <MI 218da  CMPI.B  #0x38,D0>                                        {}
            <MI 218de  BNE     0x218e2>                                         {}
        <POP 218e0-218e2 Naked>                              Σ0         →0x21926
            <MI 218e0  BRA     0x21926>                                         {}
        <POP 218e2-21926 Naked>                              Σ0         ↓ ←0x218d2 ←0x218d6
            <MI 218e2  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x218e4 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x218e6 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Const 0x218ea 0x25090.4>                        Δ-4                {[#0]|[#1]|[##1]|[##151696]}
            <MI 218ec  MOVEA.L (A6+0x8),A0>                                     {[#0]|[#1]|[##1]|[##151696]}
            <MI 218f0  PEA.L   (A0)>                         Δ-4                {[#0]|[#1]|[##1]|[##151696]|[4, '^(A0)']}
            <Call 0x218f2 0x1038c>                                              {[#0]|[#1]|[##1]|[##151696]|[4, '^(A0)']}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 218f8-218f9 StackAdj>                       Δ+16       ↓       {}
            <Blob 0x218f9 [30] @>                            Δ-30               {[«30""»]}
            <POP 2190a-2190c StackAdj>                       Δ-4                {[«30""»]|[-4-]}
            <Lit 0x2190c 29>                                                    {[«30""»]|[$$Invalid file data line format]}
            <Call 0x2191e 0x21194>                                              {[«30""»]|[$$Invalid file data line format]}
            <POP 21922-21926 StackAdj>                       Δ+34               {}
        <POP 21926-21930 Naked>                              Σ0         ↓ →0x21938 ←0x218a6 ←0x218c0 ←0x218d0 ←0x218e0
            <MI 21926  MOVE.B  (A6-0x209),D0>                                   {}
            <MI 2192a  CMPI.B  #0x37,D0>                                        {}
            <MI 2192e  BEQ     0x21938>                                         {}
        <POP 21930-21938 Naked>                              Σ0         ↓ →0x217a4
            <MI 21930  CMPI.B  #0x38,D0>                                        {}
            <MI 21934  BNE     0x217a4>                                         {}
        <POP 21938-21960 Naked>                              Σ0         ↓ →0x219e0 ←0x21926
            <MI 21938  CLR.W   0x290bc>                                         {}
            <MI 2193e  CLR.W   0x290be>                                         {}
            <MI 21944  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21948  MOVE.L  (A0),-(A7)>                   Δ-4                {[4, '(A0)']}
            <Pointer.fp 0x2194a <LVAR -0x20e @ 4(r)>>        Δ-4                {[4, '(A0)']|[@@-526]}
            <Pointer.fp 0x2194c <LVAR -0x210 @ 1(r)>>        Δ-4                {[4, '(A0)']|[@@-526]|[@@-528]}
            <Call 0x2194e 0x1043c>                                              {[4, '(A0)']|[@@-526]|[@@-528]}
                FileReadLine(file : File; VAR a : String; VAR b : Byte)
            <POP 21954-21958 StackAdj>                       Δ+12               {}
            <MI 21958  MOVEA.L (A6-0x20e),A0>                                   {}
            <MI 2195a  TST.B   (A6-0x210)>                                      {}
            <MI 2195c  BNE     0x219e0>                                         {}
        <POP 21960-2196a Naked>                              Σ0         ↓ →0x219e0
            <MI 21960  MOVE.B  (A0+0x2),D0>                                     {}
            <MI 21964  CMPI.B  #0x52,D0>                                        {}
            <MI 21968  BNE     0x219e0>                                         {}
        <POP 2196a-21974 Naked>                              Σ0         ↓ →0x219e0
            <MI 2196a  MOVE.B  (A0+0x5),D0>                                     {}
            <MI 2196e  CMPI.B  #0x4e,D0>                                        {}
            <MI 21972  BNE     0x219e0>                                         {}
        <POP 21974-219e0 Naked>                              Σ0         ↓
            <POP 21974-21976 StackAdj>                       Δ-4                {[-4-]}
            <MI 21976  MOVE.B  (A0+0x3),-(A7)>               Δ-2                {[-4-]|[2, '(A0+0x3)']}
            <Call 0x2197a 0x2125a>                                              {[-4-]|[2, '(A0+0x3)']}
            <POP 2197e-21980 StackAdj>                       Δ+2                {[-4-]}
            <MI 21980  MOVE.L  (A7)+,D4>                     Δ+4                {}
            <MI 21982  MOVEQ.L #0x0a,D3>                                        {}
            <Call 0x21984 0x1028c>                                              {}
                ?muls_d3_d4
            <POP 2198a-2198c StackAdj>                       Δ-4                {[-4-]}
            <MI 2198c  MOVE.B  (A0+0x4),-(A7)>               Δ-2                {[-4-]|[2, '(A0+0x4)']}
            <Call 0x21990 0x2125a>                                              {[-4-]|[2, '(A0+0x4)']}
            <POP 21994-21996 StackAdj>                       Δ+2                {[-4-]}
            <MI 21996  MOVE.L  D4,D0>                                           {[-4-]}
            <MI 21998  ADD.L   (A7)+,D0>                     Δ+4                {}
            <POP 0x2199a LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 219a4  MOVE.W  D0,0x290bc>                                      {}
            <POP 219aa-219ac StackAdj>                       Δ-4                {[-4-]}
            <MI 219ac  MOVE.B  (A0+0x6),-(A7)>               Δ-2                {[-4-]|[2, '(A0+0x6)']}
            <Call 0x219b0 0x2125a>                                              {[-4-]|[2, '(A0+0x6)']}
            <POP 219b4-219b6 StackAdj>                       Δ+2                {[-4-]}
            <MI 219b6  MOVE.L  (A7)+,D4>                     Δ+4                {}
            <MI 219b8  MOVEQ.L #0x0a,D3>                                        {}
            <Call 0x219ba 0x1028c>                                              {}
                ?muls_d3_d4
            <POP 219c0-219c2 StackAdj>                       Δ-4                {[-4-]}
            <MI 219c2  MOVE.B  (A0+0x7),-(A7)>               Δ-2                {[-4-]|[2, '(A0+0x7)']}
            <Call 0x219c6 0x2125a>                                              {[-4-]|[2, '(A0+0x7)']}
            <POP 219ca-219cc StackAdj>                       Δ+2                {[-4-]}
            <MI 219cc  MOVE.L  D4,D0>                                           {[-4-]}
            <MI 219ce  ADD.L   (A7)+,D0>                     Δ+4                {}
            <POP 0x219d0 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 219da  MOVE.W  D0,0x290be>                                      {}
        <POP 219e0-219ea Naked>                              Σ0         ↓ ←0x21938 ←0x21960 ←0x2196a
            <Pointer.fp 0x219e0 <LVAR -0x20e @ 4(r)>>        Δ-4                {[@@-526]}
            <Call 0x219e2 0x102bc>                                              {[@@-526]}
                FreeString(VAR a : String)
            <POP 219e8-219ea StackAdj>                       Δ+4                {}
        <POP 219ea-219f2 Epilogue>                           Σ0         

0x219f2


@ 219f2
        <LVAR  0x008 4(r)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 4(rw)>
    <POP 219f2-21bce Body>                                              
        <POP 219f2-21a08 Prologue>                           Σ0         ↓
        <POP 21a08-21a18 RegCacheLoad>                       Σ0         ↓
        <POP 21a18-21ace Naked>                              Σ0 Δ-4     ↓
            <MI 21a18  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 21a1a-21a1c StackAdj>                       Δ-4                {[-4-]}
            <MI 21a1c  MOVE.B  (A0+0x3),-(A7)>               Δ-2                {[-4-]|[2, '(A0+0x3)']}
            <Call 0x21a20 0x2125a>                                              {[-4-]|[2, '(A0+0x3)']}
            <POP 21a22-21a24 StackAdj>                       Δ+2                {[-4-]}
            <MI 21a24  MOVE.L  (A7)+,D3>                     Δ+4                {}
            <MI 21a26  MOVEQ.L #0x10,D4>                                        {}
            <Call 0x21a28 0x1028c>                                              {}
                ?muls_d3_d4
            <POP 21a2a-21a2c StackAdj>                       Δ-4                {[-4-]}
            <MI 21a2c  MOVE.B  (A0+0x4),-(A7)>               Δ-2                {[-4-]|[2, '(A0+0x4)']}
            <Call 0x21a30 0x2125a>                                              {[-4-]|[2, '(A0+0x4)']}
            <POP 21a32-21a34 StackAdj>                       Δ+2                {[-4-]}
            <MI 21a34  MOVE.L  D4,D0>                                           {[-4-]}
            <MI 21a36  ADD.L   (A7)+,D0>                     Δ+4                {}
            <MI 21a38  MOVE.L  D0,(A6-0x10)>                                    {}
            <POP 21a3c-21a3e StackAdj>                       Δ-4                {[-4-]}
            <MI 21a3e  MOVE.B  (A0+0x5),-(A7)>               Δ-2                {[-4-]|[2, '(A0+0x5)']}
            <Call 0x21a42 0x2125a>                                              {[-4-]|[2, '(A0+0x5)']}
            <POP 21a44-21a46 StackAdj>                       Δ+2                {[-4-]}
            <MI 21a46  MOVE.L  (A7)+,D3>                     Δ+4                {}
            <MI 21a48  MOVE.L  #0x1000,D4>                                      {}
            <Call 0x21a4e 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21a50  MOVE.L  D4,-(A7)>                     Δ-4                {[4, 'D4']}
            <POP 21a52-21a54 StackAdj>                       Δ-4                {[4, 'D4']|[-4-]}
            <MI 21a54  MOVE.B  (A0+0x6),-(A7)>               Δ-2                {[4, 'D4']|[-4-]|[2, '(A0+0x6)']}
            <Call 0x21a58 0x2125a>                                              {[4, 'D4']|[-4-]|[2, '(A0+0x6)']}
            <POP 21a5a-21a5c StackAdj>                       Δ+2                {[4, 'D4']|[-4-]}
            <MI 21a5c  MOVE.L  (A7)+,D3>                     Δ+4                {[4, 'D4']}
            <MI 21a5e  MOVE.L  #0x100,D4>                                       {[4, 'D4']}
            <Call 0x21a64 0x1028c>                                              {[4, 'D4']}
                ?muls_d3_d4
            <MI 21a66  MOVE.L  (A7),D1>                                         {[4, 'D4']}
            <MI 21a68  ADD.L   D4,D1>                                           {[4, 'D4']}
            <MI 21a6a  MOVE.B  (A0+0x7),-(A7)>               Δ-2                {[4, 'D4']|[2, '(A0+0x7)']}
            <Call 0x21a6e 0x2125a>                                              {[4, 'D4']|[2, '(A0+0x7)']}
            <POP 21a70-21a72 StackAdj>                       Δ+2                {[4, 'D4']}
            <MI 21a72  MOVE.L  (A7)+,D3>                     Δ+4                {}
            <MI 21a74  MOVEQ.L #0x10,D4>                                        {}
            <Call 0x21a76 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21a78  ADD.L   D4,D1>                                           {}
            <POP 21a7a-21a7c StackAdj>                       Δ-4                {[-4-]}
            <MI 21a7c  MOVE.B  (A0+0x8),-(A7)>               Δ-2                {[-4-]|[2, '(A0+0x8)']}
            <Call 0x21a80 0x2125a>                                              {[-4-]|[2, '(A0+0x8)']}
            <POP 21a82-21a84 StackAdj>                       Δ+2                {[-4-]}
            <MI 21a84  ADD.L   (A7)+,D1>                     Δ+4                {}
            <MI 21a86  MOVE.L  D1,(A6-0x14)>                                    {}
            <MI 21a8a  MOVE.L  D0,D7>                                           {}
            <POP 21a8c-21a8e StackAdj>                       Δ-4                {[-4-]}
            <MI 21a8e  MOVE.B  (A0+0x5),-(A7)>               Δ-2                {[-4-]|[2, '(A0+0x5)']}
            <Call 0x21a92 0x2125a>                                              {[-4-]|[2, '(A0+0x5)']}
            <POP 21a94-21a96 StackAdj>                       Δ+2                {[-4-]}
            <MI 21a96  MOVE.L  (A7)+,D3>                     Δ+4                {}
            <MI 21a98  MOVEQ.L #0x10,D4>                                        {}
            <Call 0x21a9a 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21a9c  ADD.L   D4,D7>                                           {}
            <POP 21a9e-21aa0 StackAdj>                       Δ-4                {[-4-]}
            <MI 21aa0  MOVE.B  (A0+0x6),-(A7)>               Δ-2                {[-4-]|[2, '(A0+0x6)']}
            <Call 0x21aa4 0x2125a>                                              {[-4-]|[2, '(A0+0x6)']}
            <POP 21aa6-21aa8 StackAdj>                       Δ+2                {[-4-]}
            <MI 21aa8  ADD.L   (A7)+,D7>                     Δ+4                {}
            <POP 21aaa-21aac StackAdj>                       Δ-4                {[-4-]}
            <MI 21aac  MOVE.B  (A0+0x7),-(A7)>               Δ-2                {[-4-]|[2, '(A0+0x7)']}
            <Call 0x21ab0 0x2125a>                                              {[-4-]|[2, '(A0+0x7)']}
            <POP 21ab2-21ab4 StackAdj>                       Δ+2                {[-4-]}
            <MI 21ab4  MOVE.L  (A7)+,D3>                     Δ+4                {}
            <MI 21ab6  MOVEQ.L #0x10,D4>                                        {}
            <Call 0x21ab8 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21aba  ADD.L   D4,D7>                                           {}
            <POP 21abc-21abe StackAdj>                       Δ-4                {[-4-]}
            <MI 21abe  MOVE.B  (A0+0x8),-(A7)>               Δ-2                {[-4-]|[2, '(A0+0x8)']}
            <Call 0x21ac2 0x2125a>                                              {[-4-]|[2, '(A0+0x8)']}
            <POP 21ac4-21ac6 StackAdj>                       Δ+2                {[-4-]}
            <MI 21ac6  ADD.L   (A7)+,D7>                     Δ+4                {}
            <MI 21ac8  SUBQ.L  #0x1,D0>                                         {}
            <MI 21aca  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 21acc  MOVEQ.L #0x00,D5>                                        {[4, 'D0']}
        <POP 21ace-21ad2 Naked>                              Σ-4        ↓ →0x21b48 ←0x21ad2
            <MI 21ace  CMP.L   (A7),D5>                                         {[-4-]}
            <MI 21ad0  BGT     0x21b48>                                         {[-4-]}
        <POP 21ad2-21b48 Naked>                              Σ-4        ↓ →0x21ace
            <MI 21ad2  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 21ad4  MOVE.L  D5,D0>                                           {[-4-]}
            <MI 21ad6  ASL.L   #0x1,D0>                                         {[-4-]}
            <POP 21ad8-21ada StackAdj>                       Δ-4                {[-8-]}
            <MI 21ada  MOVEQ.L #0x0a,D1>                                        {[-8-]}
            <MI 21adc  ADD.L   D0,D1>                                           {[-8-]}
            <MI 21ade  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x21ae0 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 21ae6  MOVE.B  (A0+D1.L+#0x2),-(A7)>         Δ-2                {[-8-]|[2, '(A0+D1.L+#0x2)']}
            <Call 0x21aea 0x2125a>                                              {[-8-]|[2, '(A0+D1.L+#0x2)']}
            <POP 21aec-21aee StackAdj>                       Δ+2                {[-8-]}
            <MI 21aee  MOVE.L  (A7)+,D3>                     Δ+4                {[-4-]}
            <MI 21af0  MOVEQ.L #0x10,D4>                                        {[-4-]}
            <Call 0x21af2 0x1028c>                                              {[-4-]}
                ?muls_d3_d4
            <POP 21af4-21af6 StackAdj>                       Δ-4                {[-8-]}
            <MI 21af6  ADDI.L  #0x0000000b,D0>                                  {[-8-]}
            <MI 21afc  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x21afe LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 21b04  MOVE.B  (A0+D0.L+#0x2),-(A7)>         Δ-2                {[-8-]|[2, '(A0+D0.L+#0x2)']}
            <Call 0x21b08 0x2125a>                                              {[-8-]|[2, '(A0+D0.L+#0x2)']}
            <POP 21b0a-21b0c StackAdj>                       Δ+2                {[-8-]}
            <MI 21b0c  MOVE.L  D4,D6>                                           {[-8-]}
            <MI 21b0e  ADD.L   (A7)+,D6>                     Δ+4                {[-4-]}
            <MI 21b10  MOVE.L  (A6-0x14),D0>                                    {[-4-]}
            <MI 21b14  ADD.L   D5,D0>                                           {[-4-]}
            <POP 0x21b16 LimitCheck 0x0 ≤ D0 ≤ 0x1fff>                          {[-4-]}
            <MI 21b20  ASL.L   #0x1,D0>                                         {[-4-]}
            <MI 21b22  LEA.L   0x25088,A0>                                      {[-4-]}
            <POP 0x21b28 LimitCheck 0x0 ≤ D6 ≤ 0xff>                            {[-4-]}
            <MI 21b32  MOVE.W  D6,(A0+D0.L+#0x2a)>                              {[-4-]}
            <MI 21b36  ADD.L   D6,D7>                                           {[-4-]}
            <MI 21b38  ADDQ.L  #0x1,0x250a0>                                    {[-4-]}
            <MI 21b3e  ADDQ.L  #0x1,0x250a4>                                    {[-4-]}
            <MI 21b44  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 21b46  BVC     0x21ace>                                         {[-4-]}
        <POP 21b48-21b9c Naked>                              Σ-4 Δ+4    ↓ →0x21bc6 ←0x21ace
            <POP 21b48-21b4a StackAdj>                       Δ+4                {}
            <MI 21b4a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21b4c  MOVE.L  (A6-0x10),D0>                                    {}
            <MI 21b50  ASL.L   #0x1,D0>                                         {}
            <POP 21b52-21b54 StackAdj>                       Δ-4                {[-4-]}
            <MI 21b54  MOVEQ.L #0x0a,D1>                                        {[-4-]}
            <MI 21b56  ADD.L   D0,D1>                                           {[-4-]}
            <MI 21b58  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <POP 0x21b5a LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-4-]}
            <MI 21b60  MOVE.B  (A0+D1.L+#0x2),-(A7)>         Δ-2                {[-4-]|[2, '(A0+D1.L+#0x2)']}
            <Call 0x21b64 0x2125a>                                              {[-4-]|[2, '(A0+D1.L+#0x2)']}
            <POP 21b66-21b68 StackAdj>                       Δ+2                {[-4-]}
            <MI 21b68  MOVE.L  (A7)+,D3>                     Δ+4                {}
            <MI 21b6a  MOVEQ.L #0x10,D4>                                        {}
            <Call 0x21b6c 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 21b6e  ADD.L   D4,D7>                                           {}
            <POP 21b70-21b72 StackAdj>                       Δ-4                {[-4-]}
            <MI 21b72  ADDI.L  #0x0000000b,D0>                                  {[-4-]}
            <MI 21b78  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x21b7a LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-4-]}
            <MI 21b80  MOVE.B  (A0+D0.L+#0x2),-(A7)>         Δ-2                {[-4-]|[2, '(A0+D0.L+#0x2)']}
            <Call 0x21b84 0x2125a>                                              {[-4-]|[2, '(A0+D0.L+#0x2)']}
            <POP 21b86-21b88 StackAdj>                       Δ+2                {[-4-]}
            <MI 21b88  ADD.L   (A7)+,D7>                     Δ+4                {}
            <MI 21b8a  MOVE.L  D7,D4>                                           {}
            <MI 21b8c  MOVE.L  #0x100,D3>                                       {}
            <Call 0x21b92 0x10294>                                              {}
                ?divs_d3_d4
            <MI 21b98  TST.L   D3>                                              {}
            <MI 21b9a  BEQ     0x21bc6>                                         {}
        <POP 21b9c-21bc6 Naked>                              Σ0         ↓
            <Blob 0x21b9c [32] @>                            Δ-32               {[«32""»]}
            <POP 21ba8-21baa StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x21baa 32>                                                    {[«32""»]|[$$Checksum error in file data line]}
            <Call 0x21bbe 0x21194>                                              {[«32""»]|[$$Checksum error in file data line]}
            <POP 21bc2-21bc6 StackAdj>                       Δ+36               {}
        <POP 21bc6-21bce Epilogue>                           Σ0         ←0x21b48

0x21bce


@ 21bce
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 21bce-21d06 Body>                                   Δ-12       
        <POP 21bce-21be4 Prologue>                           Σ0         ↓
        <POP 21be4-21bf2 RegCacheLoad>                       Σ0         ↓
        <POP 21bf2-21bfc Naked>                              Σ0         ↓
            <Pointer.fp 0x21bf2 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x21bf4 0x102b8>                                              {[@@-8]}
                NewString(VAR a : String)
            <POP 21bfa-21bfc StackAdj>                       Δ+4                {}
        <POP 21bfc-21c1a Naked>                              Σ0 Δ-4     ↓ →0x21c58 ←0x21cc2 ←0x21cd2 ←0x21ce2 ←0x21ce8
            <MI 21bfc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21c00  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 21c02  MOVE.L  (A0),-(A7)>                   Δ-4                {[4, 'A0']|[4, '(A0)']}
            <Pointer.fp 0x21c04 <LVAR -0x008 @ 4(r)>>        Δ-4                {[4, 'A0']|[4, '(A0)']|[@@-8]}
            <Pointer.fp 0x21c06 <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, 'A0']|[4, '(A0)']|[@@-8]|[@@-4]}
            <Call 0x21c0a 0x1043c>                                              {[4, 'A0']|[4, '(A0)']|[@@-8]|[@@-4]}
                FileReadLine(file : File; VAR a : String; VAR b : Byte)
            <POP 21c10-21c14 StackAdj>                       Δ+12               {[4, 'A0']}
            <MI 21c14  TST.B   (A6-0x4)>                                        {[4, 'A0']}
            <MI 21c18  BEQ     0x21c58>                                         {[4, 'A0']}
        <POP 21c1a-21c58 Naked>                              Σ-4        ↓
            <MI 21c1a  CLR.B   -(A7)>                        Δ-2                {[-4-]|[#0]}
            <Const 0x21c1c 0x1.2>                            Δ-2                {[-4-]|[#0]|[#1]}
            <Const 0x21c1e 0x1.4>                            Δ-4                {[-4-]|[#0]|[#1]|[##1]}
            <Const 0x21c22 0x25090.4>                        Δ-4                {[-4-]|[#0]|[#1]|[##1]|[##151696]}
            <MI 21c24  PEA.L   (A0)>                         Δ-4                {[-4-]|[#0]|[#1]|[##1]|[##151696]|[4, '^(A0)']}
            <Call 0x21c26 0x1038c>                                              {[-4-]|[#0]|[#1]|[##1]|[##151696]|[4, '^(A0)']}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 21c2c-21c30 StackAdj>                       Δ+16               {[-4-]}
            <Blob 0x21c30 [22] @>                            Δ-22               {[-4-]|[«22""»]}
            <POP 21c3c-21c3e StackAdj>                       Δ-4                {[-4-]|[«22""»]|[-4-]}
            <Lit 0x21c3e 22>                                                    {[-4-]|[«22""»]|[$$File has no END record]}
            <Call 0x21c50 0x21194>                                              {[-4-]|[«22""»]|[$$File has no END record]}
            <POP 21c54-21c58 StackAdj>                       Δ+26               {[-4-]}
        <POP 21c58-21c64 Naked>                              Σ-4        ↓ →0x21c6c ←0x21bfc
            <MI 21c58  MOVEA.L (A6-0x8),A0>                                     {[-4-]}
            <MI 21c5a  MOVE.B  (A0+0x2),D0>                                     {[-4-]}
            <MI 21c5e  CMPI.B  #0x3a,D0>                                        {[-4-]}
            <MI 21c62  BNE     0x21c6c>                                         {[-4-]}
        <POP 21c64-21c6c Naked>                              Σ-4        ↓ →0x21cb0
            <MI 21c64  MOVE.B  (A0+0x9),D0>                                     {[-4-]}
            <MI 21c68  CMP.B   #0x30,D0>                                        {[-4-]}
            <MI 21c6a  BEQ     0x21cb0>                                         {[-4-]}
        <POP 21c6c-21cb0 Naked>                              Σ-4        ↓ ←0x21c58
            <MI 21c6c  CLR.B   -(A7)>                        Δ-2                {[-4-]|[#0]}
            <Const 0x21c6e 0x1.2>                            Δ-2                {[-4-]|[#0]|[#1]}
            <Const 0x21c70 0x1.4>                            Δ-4                {[-4-]|[#0]|[#1]|[##1]}
            <Const 0x21c74 0x25090.4>                        Δ-4                {[-4-]|[#0]|[#1]|[##1]|[##151696]}
            <MI 21c76  MOVEA.L (A7+0xc),A1>                                     {[-4-]|[#0]|[#1]|[##1]|[##151696]}
            <MI 21c7a  PEA.L   (A1)>                         Δ-4                {[-4-]|[#0]|[#1]|[##1]|[##151696]|[4, '^(A1)']}
            <Call 0x21c7c 0x1038c>                                              {[-4-]|[#0]|[#1]|[##1]|[##151696]|[4, '^(A1)']}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 21c82-21c83 StackAdj>                       Δ+16       ↓       {[-4-]}
            <Blob 0x21c83 [30] @>                            Δ-30               {[-4-]|[«30""»]}
            <POP 21c94-21c96 StackAdj>                       Δ-4                {[-4-]|[«30""»]|[-4-]}
            <Lit 0x21c96 29>                                                    {[-4-]|[«30""»]|[$$Invalid file data line format]}
            <Call 0x21ca8 0x21194>                                              {[-4-]|[«30""»]|[$$Invalid file data line format]}
            <POP 21cac-21cb0 StackAdj>                       Δ+34               {[-4-]}
        <POP 21cb0-21cc2 Naked>                              Σ-4        ↓ →0x21cc8 ←0x21c64
            <MI 21cb0  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x8)']}
            <Call 0x21cb2 0x219f2>                                              {[-4-]|[4, '(A6-0x8)']}
            <POP 21cb6-21cb8 StackAdj>                       Δ+4                {[-4-]}
            <MI 21cb8  MOVE.B  (A0+0x5),D0>                                     {[-4-]}
            <MI 21cbc  CMPI.B  #0x31,D0>                                        {[-4-]}
            <MI 21cc0  BEQ     0x21cc8>                                         {[-4-]}
        <POP 21cc2-21cc8 Naked>                              Σ-4 Δ+4    →0x21bfc
            <POP 21cc2-21cc4 StackAdj>                       Δ+4                {}
            <MI 21cc4  BRA     0x21bfc>                                         {}
        <POP 21cc8-21cd2 Naked>                              Σ-4        ↓ →0x21cd8 ←0x21cb0
            <MI 21cc8  MOVE.B  (A0+0x6),D0>                                     {[-4-]}
            <MI 21ccc  CMPI.B  #0x46,D0>                                        {[-4-]}
            <MI 21cd0  BEQ     0x21cd8>                                         {[-4-]}
        <POP 21cd2-21cd8 Naked>                              Σ-4 Δ+4    →0x21bfc
            <POP 21cd2-21cd4 StackAdj>                       Δ+4                {}
            <MI 21cd4  BRA     0x21bfc>                                         {}
        <POP 21cd8-21ce2 Naked>                              Σ-4        ↓ →0x21ce8 ←0x21cc8
            <MI 21cd8  MOVE.B  (A0+0x7),D0>                                     {[-4-]}
            <MI 21cdc  CMPI.B  #0x45,D0>                                        {[-4-]}
            <MI 21ce0  BEQ     0x21ce8>                                         {[-4-]}
        <POP 21ce2-21ce8 Naked>                              Σ-4 Δ+4    →0x21bfc
            <POP 21ce2-21ce4 StackAdj>                       Δ+4                {}
            <MI 21ce4  BRA     0x21bfc>                                         {}
        <POP 21ce8-21cf4 Naked>                              Σ-4 Δ+4    ↓ →0x21bfc ←0x21cd8
            <POP 21ce8-21cea StackAdj>                       Δ+4                {}
            <MI 21cea  MOVE.B  (A0+0x8),D0>                                     {}
            <MI 21cee  CMP.B   #0x30,D0>                                        {}
            <MI 21cf0  BNE     0x21bfc>                                         {}
        <POP 21cf4-21cfe Naked>                              Σ0         ↓
            <Pointer.fp 0x21cf4 <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x21cf6 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 21cfc-21cfe StackAdj>                       Δ+4                {}
        <POP 21cfe-21d06 Epilogue>                           Σ0         

0x21d06


@ 21d06
        <LVAR  0x00c 4(r)>
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 4(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 21d06-2227a Body>                                              
        <POP 21d06-21d1c Prologue>                           Σ0         ↓
        <POP 21d1c-21d36 RegCacheLoad>                       Σ0         ↓
        <POP 21d36-21d44 Naked>                              Σ0         ↓ →0x21d5a
            <MI 21d36  MOVE.L  0x2509c,D0>                                      {}
            <MI 21d3c  CMPI.L  #0x80006000,D0>                                  {}
            <MI 21d42  BEQ     0x21d5a>                                         {}
        <POP 21d44-21d4a Naked>                              Σ0         ↓ →0x21d62
            <MI 21d44  TST.B   (A6+0xa)>                                        {}
            <MI 21d48  BEQ     0x21d62>                                         {}
        <POP 21d4a-21d52 Naked>                              Σ0         ↓ →0x21d62
            <MI 21d4a  TST.W   0x290ae>                                         {}
            <MI 21d50  BNE     0x21d62>                                         {}
        <POP 21d52-21d5a Naked>                              Σ0         ↓ →0x21d62
            <MI 21d52  TST.W   0x290a8>                                         {}
            <MI 21d58  BNE     0x21d62>                                         {}
        <POP 21d5a-21d62 Naked>                              Σ0         →0x21d64 ←0x21d36
            <MI 21d5a  MOVE.L  #0x1dff,0x250ac>                                 {}
            <MI 21d60  BRA     0x21d64>                                         {}
        <POP 21d62-21d64 Naked>                              Σ0         ↓ ←0x21d44 ←0x21d4a ←0x21d52
            <MI 21d62  MOVE.L  #0x1fff,0x250ac>                                 {}
        <POP 21d64-21d98 Naked>                              Σ0         ↓ →0x21f02 ←0x21d5a
            <MI 21d64  MOVE.L  0x250ac,D0>                                      {}
            <MI 21d66  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x21d68 LimitCheck 0x0 ≤ D0 ≤ 0x1fff>                          {}
            <MI 21d6e  ASL.L   #0x1,D0>                                         {}
            <MI 21d70  LEA.L   0x25088,A0>                                      {}
            <MI 21d72  MOVE.W  (A0+D0.L+#0x2a),D0>                              {}
            <POP 0x21d76 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 21d7a  MOVE.W  D0,0x250b0>                                      {}
            <MI 21d7c  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x21d7e 0x250a8.4>                        Δ-4                {[2, 'D0']|[##151720]}
            <Pointer.fp 0x21d84 <LVAR -0x004 @ 4(r)>>        Δ-4                {[2, 'D0']|[##151720]|[@@-4]}
            <Call 0x21d88 0x21388>                                              {[2, 'D0']|[##151720]|[@@-4]}
            <POP 21d8c-21d90 StackAdj>                       Δ+10               {}
            <MI 21d90  TST.B   (A6+0x8)>                                        {}
            <MI 21d94  BEQ     0x21f02>                                         {}
        <POP 21d98-21f02 Naked>                              Σ0         ↓
            <Blob 0x21d98 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21d9c [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21da0 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <Blob 0x21da4 [36] @>                            Δ-36               {[«2""»]|[«2""»]|[«2""»]|[«36""»]}
            <POP 21db0-21db2 StackAdj>                       Δ-8                {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-8-]}
            <Lit 0x21db2 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]}
            <POP 21dc2-21dc3 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]}
            <Blob 0x21dc3 [4] 0x250a4>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[«4»]}
            <Call 0x21dc8 0x102e4>                                              {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[«4»]}
                Long2String(a : Long) : String
            <Lit 0x21dce 36>                                                    {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[$$ bytes from file at base address 16#]}
            <POP 21dde-21ddf StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[$$ bytes from file at base address 16#]|[-4-]}
            <Blob 0x21ddf [4] 0x2509c>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[$$ bytes from file at base address 16#]|[-4-]|[«4»]}
            <Const 0x21de4 0x8.4>                            Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[$$ bytes from file at base address 16#]|[-4-]|[«4»]|[##8]}
            <Call 0x21de8 0x102e8>                                              {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[$$ bytes from file at base address 16#]|[-4-]|[«4»]|[##8]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 21dee-21df0 StackAdj>                       Δ+8                {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[$$ bytes from file at base address 16#]|[-4-]}
            <Call 0x21df0 0x102d8>                                              {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]|[$$ read_]|[-4-]|[$$ bytes from file at base address 16#]|[-4-]}
                StringCat4(a, b, c, d : String) : String
            <POP 21df6-21dfa StackAdj>                       Δ+16               {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]}
            <Call 0x21dfa 0x103e0>                                              {[«2""»]|[«2""»]|[«2""»]|[«36""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21e00-21e01 StackAdj>                       Δ+46       ↓       {}
            <Blob 0x21e01 [26] @>                            Δ-26               {[«26""»]}
            <POP 21e12-21e14 StackAdj>                       Δ-8                {[«26""»]|[-8-]}
            <Lit 0x21e14 25>                                                    {[«26""»]|[-4-]|[$$in file: revision date =_]}
            <POP 21e24-21e26 StackAdj>                       Δ-4                {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]}
            <MI 21e26  MOVE.L  0x250ac,D0>                                      {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]}
            <MI 21e28  SUBQ.L  #0x4,D0>                                         {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]}
            <POP 0x21e2a LimitCheck 0x0 ≤ D0 ≤ 0x1fff>                          {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]}
            <MI 21e30  ASL.L   #0x1,D0>                                         {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]}
            <MI 21e32  LEA.L   0x25088,A0>                                      {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]}
            <MI 21e34  MOVE.W  (A0+D0.L+#0x2a),D1>                              {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]}
            <MI 21e38  EXTW.L  D1>                                              {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]}
            <MI 21e3a  MOVE.L  D1,-(A7)>                     Δ-4                {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
            <Const 0x21e3c 0x2.4>                            Δ-4                {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[##2]}
            <Call 0x21e40 0x102e8>                                              {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 21e46-21e48 StackAdj>                       Δ+4                {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
            <MI 21e48  MOVE.L  0x250ac,D0>                                      {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
            <MI 21e4a  SUBQ.L  #0x3,D0>                                         {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
            <POP 0x21e4c LimitCheck 0x0 ≤ D0 ≤ 0x1fff>                          {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
            <MI 21e52  ASL.L   #0x1,D0>                                         {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
            <MI 21e54  LEA.L   0x25088,A0>                                      {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
            <MI 21e56  MOVE.W  (A0+D0.L+#0x2a),D1>                              {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
            <MI 21e5a  EXTW.L  D1>                                              {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']}
            <MI 21e5c  MOVE.L  D1,-(A7)>                     Δ-4                {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
            <Const 0x21e5e 0x2.4>                            Δ-4                {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]}
            <Call 0x21e62 0x102e8>                                              {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 21e68-21e6a StackAdj>                       Δ+4                {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
            <MI 21e6a  MOVE.L  0x250ac,D0>                                      {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
            <MI 21e6c  SUBQ.L  #0x2,D0>                                         {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
            <POP 0x21e6e LimitCheck 0x0 ≤ D0 ≤ 0x1fff>                          {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
            <MI 21e74  ASL.L   #0x1,D0>                                         {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
            <MI 21e76  LEA.L   0x25088,A0>                                      {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
            <MI 21e78  MOVE.W  (A0+D0.L+#0x2a),D1>                              {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
            <MI 21e7c  EXTW.L  D1>                                              {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
            <MI 21e7e  MOVE.L  D1,-(A7)>                     Δ-4                {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']|[4, 'D1']}
            <Const 0x21e80 0x2.4>                            Δ-4                {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']|[4, 'D1']|[##2]}
            <Call 0x21e84 0x102e8>                                              {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']|[4, 'D1']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 21e8a-21e8c StackAdj>                       Δ+8                {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
            <Call 0x21e8c 0x102d8>                                              {[«26""»]|[-4-]|[$$in file: revision date =_]|[-4-]|[4, 'D1']|[4, 'D1']}
                StringCat4(a, b, c, d : String) : String
            <POP 21e92-21e96 StackAdj>                       Δ+16               {[«26""»]|[-4-]}
            <Call 0x21e96 0x103d8>                                              {[«26""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 21e9c-21e9d StackAdj>                       Δ+30       ↓       {}
            <Blob 0x21e9d [16] @>                            Δ-16               {[«16""»]}
            <Blob 0x21eae [2] @>                             Δ-2                {[«16""»]|[«2""»]}
            <POP 21eb2-21eb4 StackAdj>                       Δ-8                {[«16""»]|[«2""»]|[-8-]}
            <Lit 0x21eb4 15>                                                    {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]}
            <POP 21ec4-21ec6 StackAdj>                       Δ-4                {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]}
            <MI 21ec6  MOVE.W  0x250b0,D0>                                      {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]}
            <MI 21ec8  EXTW.L  D0>                                              {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]}
            <MI 21eca  MOVE.L  D0,-(A7)>                     Δ-4                {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]|[4, 'D0']}
            <Const 0x21ecc 0x2.4>                            Δ-4                {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]|[4, 'D0']|[##2]}
            <Call 0x21ed0 0x102e8>                                              {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]|[4, 'D0']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 21ed6-21ed8 StackAdj>                       Δ+4                {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]|[4, 'D0']}
            <Lit 0x21ed8 2>                                                     {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]|[$$ (]}
            <POP 21ee8-21eea StackAdj>                       Δ-4                {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]|[$$ (]|[-4-]}
            <MI 21eea  MOVE.L  (A6-0x4),(A7)>                                   {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]|[$$ (]|[4, '(A6-0x4)']}
            <Call 0x21eee 0x102d8>                                              {[«16""»]|[«2""»]|[-4-]|[$$, locus byte =_]|[-4-]|[$$ (]|[4, '(A6-0x4)']}
                StringCat4(a, b, c, d : String) : String
            <POP 21ef4-21ef8 StackAdj>                       Δ+16               {[«16""»]|[«2""»]|[-4-]}
            <Call 0x21ef8 0x103d8>                                              {[«16""»]|[«2""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 21efe-21f02 StackAdj>                       Δ+22               {}
        <POP 21f02-21f06 Naked>                              Σ0         ↓ ←0x21d64
            <MI 21f02  MOVEQ.L #0x00,D7>                                        {}
            <MI 21f04  MOVEQ.L #0x00,D6>                                        {}
        <POP 21f06-21f30 Naked>                              Σ0         ↓ →0x21f06 ←0x21f06
            <POP 0x21f06 LimitCheck 0x0 ≤ D6 ≤ 0x1fff>                          {}
            <MI 21f0c  MOVE.L  D6,D0>                                           {}
            <MI 21f0e  ASL.L   #0x1,D0>                                         {}
            <MI 21f10  LEA.L   0x25088,A0>                                      {}
            <MI 21f12  MOVE.W  (A0+D0.L+#0x2a),D1>                              {}
            <MI 21f16  EXTW.L  D1>                                              {}
            <MI 21f18  ADD.L   D1,D7>                                           {}
            <MI 21f1a  MOVE.L  D7,D4>                                           {}
            <MI 21f1c  MOVE.L  #0x100,D3>                                       {}
            <Call 0x21f22 0x10294>                                              {}
                ?divs_d3_d4
            <MI 21f28  MOVE.L  D3,D7>                                           {}
            <MI 21f2a  ADDQ.L  #0x1,D6>                                         {}
            <MI 21f2c  CMP.L   #0x1fff,D6>                                      {}
            <MI 21f2e  BLE     0x21f06>                                         {}
        <POP 21f30-21f38 Naked>                              Σ0         ↓ →0x21f72
            <MI 21f30  CMPI.L  #0x000000aa,D7>                                  {}
            <MI 21f36  BNE     0x21f72>                                         {}
        <POP 21f38-21f3e Naked>                              Σ0         ↓ →0x21f6e
            <MI 21f38  TST.B   (A6+0x8)>                                        {}
            <MI 21f3c  BEQ     0x21f6e>                                         {}
        <POP 21f3e-21f6e Naked>                              Σ0         ↓
            <Blob 0x21f3e [18] @>                            Δ-18               {[«18""»]}
            <POP 21f50-21f52 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x21f52 17>                                                    {[«18""»]|[$$), checksum is OK]}
            <Call 0x21f64 0x103e0>                                              {[«18""»]|[$$), checksum is OK]}
                WriteConsoleStringCrLf(str : String)
            <POP 21f6a-21f6e StackAdj>                       Δ+22               {}
        <POP 21f6e-21f72 Naked>                              Σ0         →0x2205c ←0x21f38
            <MI 21f6e  BRA     0x2205c>                                         {}
        <POP 21f72-21ffe Naked>                              Σ0 Δ-24    ↓ →0x2202c ←0x21f30
            <Blob 0x21f72 [2] @>                             Δ-2                {[«2""»]}
            <POP 21f76-21f78 StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <Lit 0x21f78 2>                                                     {[«2""»]|[$$) ]}
            <Call 0x21f8a 0x103e0>                                              {[«2""»]|[$$) ]}
                WriteConsoleStringCrLf(str : String)
            <POP 21f90-21f92 StackAdj>                       Δ+6                {}
            <Blob 0x21f92 [52] @>                            Δ-52               {[«52""»]}
            <POP 21f9e-21fa0 StackAdj>                       Δ-8                {[«52""»]|[-8-]}
            <Lit 0x21fa0 52>                                                    {[«52""»]|[-4-]|[$$ERROR: bad file checksum: expected 16#AA but got 16#]}
            <MI 21fb0  MOVE.L  D7,(A7)>                                         {[«52""»]|[-4-]|[4, 'D7']}
            <POP 21faa-21fb0 StackAdj>                       Δ-8                {[«52""»]|[-4-]|[4, 'D7']|[-8-]}
            <Const 0x21fb2 0x2.4>                            Δ-4                {[«52""»]|[-4-]|[4, 'D7']|[-8-]|[##2]}
            <Call 0x21fb6 0x102e8>                                              {[«52""»]|[-4-]|[4, 'D7']|[-8-]|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 21fbc-21fbe StackAdj>                       Δ+8                {[«52""»]|[-4-]|[4, 'D7']|[-4-]}
            <Call 0x21fbe 0x102d0>                                              {[«52""»]|[-4-]|[4, 'D7']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21fc4-21fc6 StackAdj>                       Δ+8                {[«52""»]|[-4-]}
            <Call 0x21fc6 0x103e0>                                              {[«52""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21fcc-21fd0 StackAdj>                       Δ+56               {}
            <Blob 0x21fd0 [24] @>                            Δ-24               {[«24""»]}
            <POP 21fdc-21fde StackAdj>                       Δ-6                {[«24""»]|[-6-]}
            <Lit 0x21fde 24>                                                    {[«24""»]|[-2-]|[$$Do you wish to continue_]}
            <POP 21fee-21ff0 StackAdj>                       Δ-2                {[«24""»]|[-2-]|[$$Do you wish to continue_]|[-2-]}
            <MI 21ff0  CLR.B   (A7)>                                            {[«24""»]|[-2-]|[$$Do you wish to continue_]|[-2-]}
            <Call 0x21ff2 0x103f0>                                              {[«24""»]|[-2-]|[$$Do you wish to continue_]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 21ff8-21ffa StackAdj>                       Δ+6                {[«24""»]|[-2-]}
            <MI 21ffa  TST.B   (A7)+>                        Δ+2                {[«24""»]}
            <MI 21ffc  BNE     0x2202c>                                         {[«24""»]}
        <POP 21ffe-2202c Naked>                              Σ-24       ↓
            <Blob 0x21ffe [18] @>                            Δ-18               {[-24-]|[«18""»]}
            <POP 22010-22012 StackAdj>                       Δ-4                {[-24-]|[«18""»]|[-4-]}
            <Lit 0x22012 17>                                                    {[-24-]|[«18""»]|[$$requested by user]}
            <Call 0x22024 0x21194>                                              {[-24-]|[«18""»]|[$$requested by user]}
            <POP 22028-2202c StackAdj>                       Δ+22               {[-24-]}
        <POP 2202c-2205c Naked>                              Σ-24 Δ+24  ↓ ←0x21f72
            <POP 2202c-2202d StackAdj>                       Δ+24       ↓       {}
            <Blob 0x2202d [40] @>                            Δ-40               {[«40""»]}
            <POP 2203e-22040 StackAdj>                       Δ-4                {[«40""»]|[-4-]}
            <Lit 0x22040 39>                                                    {[«40""»]|[$$will write the correct checksum to prom]}
            <Call 0x22052 0x103e0>                                              {[«40""»]|[$$will write the correct checksum to prom]}
                WriteConsoleStringCrLf(str : String)
            <POP 22058-2205c StackAdj>                       Δ+44               {}
        <POP 2205c-22062 Naked>                              Σ0         ↓ →0x2209e ←0x21f6e
            <MI 2205c  TST.B   (A6+0xa)>                                        {}
            <MI 22060  BEQ     0x2209e>                                         {}
        <POP 22062-22068 Naked>                              Σ0         ↓ →0x2209a
            <MI 22062  TST.L   (A6+0xc)>                                        {}
            <MI 22066  BEQ     0x2209a>                                         {}
        <POP 22068-22072 Naked>                              Σ0         ↓ →0x2209a
            <MI 22068  MOVE.W  0x250b0,D0>                                      {}
            <MI 2206a  EXTW.L  D0>                                              {}
            <MI 2206c  CMP.L   (A6+0xc),D0>                                     {}
            <MI 22070  BEQ     0x2209a>                                         {}
        <POP 22072-2209a Naked>                              Σ0         ↓
            <Blob 0x22072 [28] @>                            Δ-28               {[«28""»]}
            <POP 2207e-22080 StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x22080 28>                                                    {[«28""»]|[$$file LOCUS byte is incorrect]}
            <Call 0x22092 0x21194>                                              {[«28""»]|[$$file LOCUS byte is incorrect]}
            <POP 22096-2209a StackAdj>                       Δ+32               {}
        <POP 2209a-2209e Naked>                              Σ0         →0x22218 ←0x22062 ←0x22068
            <MI 2209a  BRA     0x22218>                                         {}
        <POP 2209e-220d0 Naked>                              Σ0         ↓ →0x22104 ←0x2205c
            <MI 2209e  MOVE.L  (A6+0xc),D0>                                     {}
            <POP 0x220a2 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 220ac  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x220ae <LVAR -0x008 @ 4(r)>>        Δ-4                {[2, 'D0']|[@@-8]}
            <Pointer.fp 0x220b2 <LVAR -0x004 @ 4(r)>>        Δ-4                {[2, 'D0']|[@@-8]|[@@-4]}
            <Call 0x220b6 0x21388>                                              {[2, 'D0']|[@@-8]|[@@-4]}
            <POP 220ba-220be StackAdj>                       Δ+10               {}
            <Pointer.fp 0x220be <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x220c2 0x102bc>                                              {[@@-4]}
                FreeString(VAR a : String)
            <POP 220c8-220ca StackAdj>                       Δ+4                {}
            <MI 220ca  TST.L   (A6+0xc)>                                        {}
            <MI 220ce  BEQ     0x22104>                                         {}
        <POP 220d0-220dc Naked>                              Σ0         ↓ →0x22104
            <MI 220d0  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 220d4  CMP.L   0x2509c,D0>                                      {}
            <MI 220da  BEQ     0x22104>                                         {}
        <POP 220dc-22104 Naked>                              Σ0         ↓
            <Blob 0x220dc [30] @>                            Δ-30               {[«30""»]}
            <POP 220e8-220ea StackAdj>                       Δ-4                {[«30""»]|[-4-]}
            <Lit 0x220ea 30>                                                    {[«30""»]|[$$file base address is incorrect]}
            <Call 0x220fc 0x21194>                                              {[«30""»]|[$$file base address is incorrect]}
            <POP 22100-22104 StackAdj>                       Δ+34               {}
        <POP 22104-22114 Naked>                              Σ0         ↓ →0x22218 ←0x2209e ←0x220d0
            <MI 22104  MOVE.L  0x250a8,D0>                                      {}
            <MI 2210a  CMP.L   0x2509c,D0>                                      {}
            <MI 22110  BEQ     0x22218>                                         {}
        <POP 22114-22122 Naked>                              Σ0         ↓ →0x2212a
            <MI 22114  MOVE.L  0x2509c,D0>                                      {}
            <MI 2211a  CMPI.L  #0x80000000,D0>                                  {}
            <MI 22120  BNE     0x2212a>                                         {}
        <POP 22122-2212a Naked>                              Σ0         →0x221bc
            <MI 22122  MOVE.W  #0x21,0x250b0>                                   {}
            <MI 22126  BRA     0x221bc>                                         {}
        <POP 2212a-22132 Naked>                              Σ0         ↓ →0x2213a ←0x22114
            <MI 2212a  CMPI.L  #0x80002000,D0>                                  {}
            <MI 22130  BNE     0x2213a>                                         {}
        <POP 22132-2213a Naked>                              Σ0         →0x221bc
            <MI 22132  MOVE.W  #0x19,0x250b0>                                   {}
            <MI 22136  BRA     0x221bc>                                         {}
        <POP 2213a-22142 Naked>                              Σ0         ↓ →0x22148 ←0x2212a
            <MI 2213a  CMPI.L  #0x80004000,D0>                                  {}
            <MI 22140  BNE     0x22148>                                         {}
        <POP 22142-22148 Naked>                              Σ0         →0x221bc
            <MI 22142  MOVE.W  #0x17,0x250b0>                                   {}
            <MI 22146  BRA     0x221bc>                                         {}
        <POP 22148-22150 Naked>                              Σ0         ↓ →0x22156 ←0x2213a
            <MI 22148  CMPI.L  #0x80006000,D0>                                  {}
            <MI 2214e  BNE     0x22156>                                         {}
        <POP 22150-22156 Naked>                              Σ0         →0x221bc
            <MI 22150  MOVE.W  #0x15,0x250b0>                                   {}
            <MI 22154  BRA     0x221bc>                                         {}
        <POP 22156-2215e Naked>                              Σ0         ↓ →0x22164 ←0x22148
            <MI 22156  CMPI.L  #0x00070000,D0>                                  {}
            <MI 2215c  BNE     0x22164>                                         {}
        <POP 2215e-22164 Naked>                              Σ0         →0x221bc
            <MI 2215e  MOVE.W  #0x50,0x250b0>                                   {}
            <MI 22162  BRA     0x221bc>                                         {}
        <POP 22164-2216c Naked>                              Σ0         ↓ →0x22172 ←0x22156
            <MI 22164  CMPI.L  #0x00072000,D0>                                  {}
            <MI 2216a  BNE     0x22172>                                         {}
        <POP 2216c-22172 Naked>                              Σ0         →0x221bc
            <MI 2216c  MOVE.W  #0x51,0x250b0>                                   {}
            <MI 22170  BRA     0x221bc>                                         {}
        <POP 22172-2217a Naked>                              Σ0         ↓ →0x22180 ←0x22164
            <MI 22172  CMPI.L  #0x00074000,D0>                                  {}
            <MI 22178  BNE     0x22180>                                         {}
        <POP 2217a-22180 Naked>                              Σ0         →0x221bc
            <MI 2217a  MOVE.W  #0x52,0x250b0>                                   {}
            <MI 2217e  BRA     0x221bc>                                         {}
        <POP 22180-22188 Naked>                              Σ0         ↓ →0x2218e ←0x22172
            <MI 22180  CMPI.L  #0x00076000,D0>                                  {}
            <MI 22186  BNE     0x2218e>                                         {}
        <POP 22188-2218e Naked>                              Σ0         →0x221bc
            <MI 22188  MOVE.W  #0x53,0x250b0>                                   {}
            <MI 2218c  BRA     0x221bc>                                         {}
        <POP 2218e-221bc Naked>                              Σ0         ↓ ←0x22180
            <Blob 0x2218e [30] @>                            Δ-30               {[«30""»]}
            <POP 221a0-221a2 StackAdj>                       Δ-4                {[«30""»]|[-4-]}
            <Lit 0x221a2 29>                                                    {[«30""»]|[$$File has illegal base address]}
            <Call 0x221b4 0x21194>                                              {[«30""»]|[$$File has illegal base address]}
            <POP 221b8-221bc StackAdj>                       Δ+34               {}
        <POP 221bc-22218 Naked>                              Σ0         ↓ ←0x22122 ←0x22132 ←0x22142 ←0x22150 ←0x2215e ←0x2216c ←0x2217a ←0x22188
            <MI 221bc  MOVE.L  0x250ac,D0>                                      {}
            <MI 221be  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x221c0 LimitCheck 0x0 ≤ D0 ≤ 0x1fff>                          {}
            <MI 221c6  ASL.L   #0x1,D0>                                         {}
            <MI 221c8  LEA.L   0x25088,A0>                                      {}
            <MI 221ca  MOVE.W  0x250b0,(A0+D0.L+#0x2a)>                         {}
            <Blob 0x221ce [2] 0x250b0>                       Δ-2                {[«2»]}
            <Const 0x221d0 0x250a8.4>                        Δ-4                {[«2»]|[##151720]}
            <Pointer.fp 0x221d6 <LVAR -0x004 @ 4(r)>>        Δ-4                {[«2»]|[##151720]|[@@-4]}
            <Call 0x221da 0x21388>                                              {[«2»]|[##151720]|[@@-4]}
            <POP 221de-221e2 StackAdj>                       Δ+10               {}
            <Blob 0x221e2 [50] @>                            Δ-50               {[«50""»]}
            <POP 221ee-221f0 StackAdj>                       Δ-8                {[«50""»]|[-8-]}
            <Lit 0x221f0 50>                                                    {[«50""»]|[-4-]|[$$fixed incorrect LOCUS byte from file: now targets_]}
            <POP 22200-22202 StackAdj>                       Δ-4                {[«50""»]|[-4-]|[$$fixed incorrect LOCUS byte from file: now targets_]|[-4-]}
            <MI 22202  MOVE.L  (A6-0x4),(A7)>                                   {[«50""»]|[-4-]|[$$fixed incorrect LOCUS byte from file: now targets_]|[4, '(A6-0x4)']}
            <Call 0x22206 0x102d0>                                              {[«50""»]|[-4-]|[$$fixed incorrect LOCUS byte from file: now targets_]|[4, '(A6-0x4)']}
                StringCat2(a, b : String) : String
            <POP 2220c-2220e StackAdj>                       Δ+8                {[«50""»]|[-4-]}
            <Call 0x2220e 0x103e0>                                              {[«50""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22214-22218 StackAdj>                       Δ+54               {}
        <POP 22218-2221c Naked>                              Σ0         ↓ ←0x2209a ←0x22104
            <MI 22218  MOVEQ.L #0x00,D7>                                        {}
            <MI 2221a  MOVEQ.L #0x00,D6>                                        {}
        <POP 2221c-22246 Naked>                              Σ0         ↓ →0x2221c ←0x2221c
            <POP 0x2221c LimitCheck 0x0 ≤ D6 ≤ 0x1fff>                          {}
            <MI 22222  MOVE.L  D6,D0>                                           {}
            <MI 22224  ASL.L   #0x1,D0>                                         {}
            <MI 22226  LEA.L   0x25088,A0>                                      {}
            <MI 22228  MOVE.W  (A0+D0.L+#0x2a),D1>                              {}
            <MI 2222c  EXTW.L  D1>                                              {}
            <MI 2222e  ADD.L   D1,D7>                                           {}
            <MI 22230  MOVE.L  D7,D4>                                           {}
            <MI 22232  MOVE.L  #0x100,D3>                                       {}
            <Call 0x22238 0x10294>                                              {}
                ?divs_d3_d4
            <MI 2223e  MOVE.L  D3,D7>                                           {}
            <MI 22240  ADDQ.L  #0x1,D6>                                         {}
            <MI 22242  CMP.L   #0x1fff,D6>                                      {}
            <MI 22244  BLE     0x2221c>                                         {}
        <POP 22246-22272 Naked>                              Σ0         ↓
            <MI 22246  MOVE.L  0x250ac,D0>                                      {}
            <POP 0x22248 LimitCheck 0x0 ≤ D0 ≤ 0x1fff>                          {}
            <MI 2224e  ASL.L   #0x1,D0>                                         {}
            <MI 22250  LEA.L   0x25088,A0>                                      {}
            <MI 22252  ADDI.W  #0x01aa,(A0+D0.L+#0x2a)>                         {}
            <MI 22258  MOVE.W  (A0+D0.L+#0x2a),D1>                              {}
            <MI 2225c  EXTW.L  D1>                                              {}
            <MI 2225e  SUB.L   D7,D1>                                           {}
            <MI 22260  MOVE.L  D1,D4>                                           {}
            <MI 22262  MOVE.L  #0x100,D3>                                       {}
            <Call 0x22268 0x10294>                                              {}
                ?divs_d3_d4
            <MI 2226e  MOVE.W  D3,(A0+D0.L+#0x2a)>                              {}
        <POP 22272-2227a Epilogue>                           Σ0         

0x2227a


@ 2227a
        <LVAR  0x00e 4(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x00a @ 1(r)>
        <LVAR -0x00e @ 4(r)>
        <LVAR -0x012 @ 4(r)>
    <POP 2227a-224a8 Body>                                   Δ+4        
        <POP 2227a-22290 Prologue>                           Σ0         ↓
        <POP 22290-222a8 RegCacheLoad>                       Σ0         ↓
        <POP 222a8-222b0 Naked>                              Σ0         ↓ →0x222e2
            <MI 222a8  MOVEA.L (A6+0xe),A0>                                     {}
            <MI 222ac  CMPA.W  #0x01,A0>                                        {}
            <MI 222ae  BNE     0x222e2>                                         {}
        <POP 222b0-222e2 Naked>                              Σ0         →0x222e4
            <Blob 0x222b0 [42] @>                            Δ-42               {[«42""»]}
            <POP 222c0-222c2 StackAdj>                       Δ-8                {[«42""»]|[-8-]}
            <Lit 0x222c2 41>                                                    {[«42""»]|[-4-]|[$$Enter the file name of the EEPROM data :_]}
            <Call 0x222d4 0x103e4>                                              {[«42""»]|[-4-]|[$$Enter the file name of the EEPROM data :_]}
                AskConsoleString(prompt : String) : String
            <POP 222da-222dc StackAdj>                       Δ+4                {[«42""»]|[-4-]}
            <MI 222dc  MOVE.L  (A7)+,0x25098>                Δ+4                {[«42""»]}
            <POP 222de-222e0 StackAdj>                       Δ+42               {}
            <MI 222e0  BRA     0x222e4>                                         {}
        <POP 222e2-222e4 Naked>                              Σ0         ↓ ←0x222a8
            <MI 222e2  MOVE.L  A0,0x25098>                                      {}
        <POP 222e4-22300 Naked>                              Σ0         ↓ →0x22326 ←0x222b0
            <Blob 0x222e4 [4] 0x25098>                       Δ-4                {[«4»]}
            <MI 222e6  CLR.B   -(A7)>                        Δ-2                {[«4»]|[#0]}
            <Const 0x222e8 0x1.2>                            Δ-2                {[«4»]|[#0]|[#1]}
            <Const 0x222ea 0x0.4>                            Δ-4                {[«4»]|[#0]|[#1]|[##0]}
            <Const 0x222ee 0x25090.4>                        Δ-4                {[«4»]|[#0]|[#1]|[##0]|[##151696]}
            <Pointer.fp 0x222f0 <LVAR -0x012 @ 4(r)>>        Δ-4                {[«4»]|[#0]|[#1]|[##0]|[##151696]|[@@-18]}
            <Call 0x222f2 0x10380>                                              {[«4»]|[#0]|[#1]|[##0]|[##151696]|[@@-18]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 222f8-222fc StackAdj>                       Δ+20               {}
            <MI 222fc  TST.B   0x25090>                                         {}
            <MI 222fe  BEQ     0x22326>                                         {}
        <POP 22300-22326 Naked>                              Σ0         ↓
            <Blob 0x22300 [24] @>                            Δ-24               {[«24""»]}
            <POP 2230c-2230e StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x2230e 24>                                                    {[«24""»]|[$$could not open data file]}
            <Call 0x2231e 0x21194>                                              {[«24""»]|[$$could not open data file]}
            <POP 22322-22326 StackAdj>                       Δ+28               {}
        <POP 22326-2235e Naked>                              Σ0         ↓ →0x2239c ←0x222e4
            <MI 22326  MOVE.L  (A6+0xa),D0>                                     {}
            <POP 0x2232a LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 22334  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x22336 0x2509c.4>                        Δ-4                {[2, 'D0']|[##151708]}
            <Pointer.fp 0x2233c <LVAR -0x00e @ 4(r)>>        Δ-4                {[2, 'D0']|[##151708]|[@@-14]}
            <Call 0x22340 0x21388>                                              {[2, 'D0']|[##151708]|[@@-14]}
            <POP 22344-22346 StackAdj>                       Δ+6                {[2, 'D0']|[-2-]}
            <MI 22346  MOVE.L  (A6-0x12),(A7)>                                  {[4, '(A6-0x12)']}
            <Pointer.fp 0x22348 <LVAR -0x00e @ 4(r)>>        Δ-4                {[4, '(A6-0x12)']|[@@-14]}
            <Pointer.fp 0x2234c <LVAR -0x00a @ 1(r)>>        Δ-4                {[4, '(A6-0x12)']|[@@-14]|[@@-10]}
            <Call 0x22350 0x1043c>                                              {[4, '(A6-0x12)']|[@@-14]|[@@-10]}
                FileReadLine(file : File; VAR a : String; VAR b : Byte)
            <POP 22356-22358 StackAdj>                       Δ+12               {}
            <MI 22358  TST.B   (A6-0xa)>                                        {}
            <MI 2235c  BEQ     0x2239c>                                         {}
        <POP 2235e-2239c Naked>                              Σ0         ↓
            <MI 2235e  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x22360 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x22362 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Const 0x22366 0x25090.4>                        Δ-4                {[#0]|[#1]|[##1]|[##151696]}
            <Pointer.fp 0x22368 <LVAR -0x012 @ 4(r)>>        Δ-4                {[#0]|[#1]|[##1]|[##151696]|[@@-18]}
            <Call 0x2236a 0x1038c>                                              {[#0]|[#1]|[##1]|[##151696]|[@@-18]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 22370-22371 StackAdj>                       Δ+16       ↓       {}
            <Blob 0x22371 [14] @>                            Δ-14               {[«14""»]}
            <POP 22380-22382 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x22382 13>                                                    {[«14""»]|[$$File is empty]}
            <Call 0x22394 0x21194>                                              {[«14""»]|[$$File is empty]}
            <POP 22398-2239c StackAdj>                       Δ+18               {}
        <POP 2239c-223aa Naked>                              Σ0         ↓ →0x223c2 ←0x22326
            <MI 2239c  MOVEA.L (A6-0xe),A0>                                     {}
            <MI 223a0  MOVE.B  (A0+0x2),D0>                                     {}
            <MI 223a4  CMPI.B  #0x3a,D0>                                        {}
            <MI 223a8  BNE     0x223c2>                                         {}
        <POP 223aa-223b4 Naked>                              Σ0         ↓ →0x223c2
            <MI 223aa  MOVE.B  (A0+0x9),D1>                                     {}
            <MI 223ae  CMPI.B  #0x30,D1>                                        {}
            <MI 223b2  BNE     0x223c2>                                         {}
        <POP 223b4-223b6 Naked>                              Σ0         ↓
            <MI 223b4  MOVEQ.L #0x01,D6>                                        {}
        <POP 223b6-223c2 Naked>                              Σ0         →0x22426 ←0x223d2
            <MI 223b6  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6-0x12)']}
            <Call 0x223b8 0x10444>                                              {[4, '(A6-0x12)']}
                FSCALL_10444
            <POP 223be-223c0 StackAdj>                       Δ+4                {}
            <MI 223c0  BRA     0x22426>                                         {}
        <POP 223c2-223c8 Naked>                              Σ0         ↓ →0x223d6 ←0x2239c ←0x223aa
            <MI 223c2  CMPI.B  #0x53,D0>                                        {}
            <MI 223c6  BNE     0x223d6>                                         {}
        <POP 223c8-223d2 Naked>                              Σ0         ↓ →0x223d6
            <MI 223c8  MOVE.B  (A0+0x3),D1>                                     {}
            <MI 223cc  CMPI.B  #0x33,D1>                                        {}
            <MI 223d0  BNE     0x223d6>                                         {}
        <POP 223d2-223d6 Naked>                              Σ0         →0x223b6
            <MI 223d2  MOVEQ.L #0x00,D6>                                        {}
            <MI 223d4  BRA     0x223b6>                                         {}
        <POP 223d6-223dc Naked>                              Σ0         ↓ →0x223ea ←0x223c2 ←0x223c8
            <MI 223d6  CMPI.B  #0x53,D0>                                        {}
            <MI 223da  BNE     0x223ea>                                         {}
        <POP 223dc-223e6 Naked>                              Σ0         ↓ →0x223ea
            <MI 223dc  MOVE.B  (A0+0x3),D0>                                     {}
            <MI 223e0  CMPI.B  #0x30,D0>                                        {}
            <MI 223e4  BNE     0x223ea>                                         {}
        <POP 223e6-223ea Naked>                              Σ0         →0x22426
            <MI 223e6  MOVEQ.L #0x00,D6>                                        {}
            <MI 223e8  BRA     0x22426>                                         {}
        <POP 223ea-22426 Naked>                              Σ0         ↓ ←0x223d6 ←0x223dc
            <MI 223ea  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x223ec 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x223ee 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Const 0x223f2 0x25090.4>                        Δ-4                {[#0]|[#1]|[##1]|[##151696]}
            <Pointer.fp 0x223f4 <LVAR -0x012 @ 4(r)>>        Δ-4                {[#0]|[#1]|[##1]|[##151696]|[@@-18]}
            <Call 0x223f6 0x1038c>                                              {[#0]|[#1]|[##1]|[##151696]|[@@-18]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 223fc-223fd StackAdj>                       Δ+16       ↓       {}
            <Blob 0x223fd [20] @>                            Δ-20               {[«20""»]}
            <POP 2240c-2240e StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x2240e 19>                                                    {[«20""»]|[$$Invalid file format]}
            <Call 0x22420 0x21194>                                              {[«20""»]|[$$Invalid file format]}
            <POP 22424-22426 StackAdj>                       Δ+24               {}
        <POP 22426-22434 Naked>                              Σ0         ↓ ←0x223b6 ←0x223e6
            <Pointer.fp 0x22426 <LVAR -0x00e @ 4(r)>>        Δ-4                {[@@-14]}
            <Call 0x2242a 0x102bc>                                              {[@@-14]}
                FreeString(VAR a : String)
            <POP 22430-22432 StackAdj>                       Δ+4                {}
            <MI 22432  MOVEQ.L #0x00,D7>                                        {}
        <POP 22434-22456 Naked>                              Σ0         ↓ →0x22434 ←0x22434
            <POP 0x22434 LimitCheck 0x0 ≤ D7 ≤ 0x1fff>                          {}
            <MI 2243e  MOVE.L  D7,D0>                                           {}
            <MI 22440  ASL.L   #0x1,D0>                                         {}
            <MI 22442  LEA.L   0x25088,A0>                                      {}
            <MI 22448  CLR.W   (A0+D0.L+#0x2a)>                                 {}
            <MI 2244c  ADDQ.L  #0x1,D7>                                         {}
            <MI 2244e  CMPI.L  #0x00001fff,D7>                                  {}
            <MI 22454  BLE     0x22434>                                         {}
        <POP 22456-22466 Naked>                              Σ0         ↓ →0x2246e
            <MI 22456  CLR.L   0x250a0>                                         {}
            <MI 2245c  CLR.L   0x250a4>                                         {}
            <MI 22462  TST.B   D6>                                              {}
            <MI 22464  BEQ     0x2246e>                                         {}
        <POP 22466-2246e Naked>                              Σ0 Δ-4     →0x22474
            <Pointer.fp 0x22466 <LVAR -0x012 @ 4(r)>>        Δ-4                {[@@-18]}
            <Call 0x22468 0x21bce>                                              {[@@-18]}
            <MI 2246c  BRA     0x22474>                                         {[@@-18]}
        <POP 2246e-22474 Naked>                              Σ0 Δ-4     ↓ ←0x22456
            <Pointer.fp 0x2246e <LVAR -0x012 @ 4(r)>>        Δ-4                {[@@-18]}
            <Call 0x22470 0x21772>                                              {[@@-18]}
        <POP 22474-224a0 Naked>                              Σ-4 Δ+4    ↓ ←0x22466
            <POP 22474-22476 StackAdj>                       Δ+4                {}
            <MI 22476  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x22478 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x2247a 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Const 0x2247e 0x25090.4>                        Δ-4                {[#0]|[#1]|[##1]|[##151696]}
            <Pointer.fp 0x22480 <LVAR -0x012 @ 4(r)>>        Δ-4                {[#0]|[#1]|[##1]|[##151696]|[@@-18]}
            <Call 0x22482 0x1038c>                                              {[#0]|[#1]|[##1]|[##151696]|[@@-18]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 22488-2248a StackAdj>                       Δ+12               {[#0]|[#1]}
            <MI 2248a  MOVE.L  (A6+0xa),(A7)>                                   {[4, '(A6+0xa)']}
            <MI 2248e  MOVE.B  D6,D0>                                           {[4, '(A6+0xa)']}
            <MI 22490  EXTB.W  D0>                                              {[4, '(A6+0xa)']}
            <POP 0x22492 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[4, '(A6+0xa)']}
            <MI 22494  MOVE.B  D0,-(A7)>                     Δ-2                {[4, '(A6+0xa)']|[2, 'D0']}
            <MI 22496  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[4, '(A6+0xa)']|[2, 'D0']|[2, '(A6+0x8)']}
            <Call 0x2249a 0x21d06>                                              {[4, '(A6+0xa)']|[2, 'D0']|[2, '(A6+0x8)']}
            <POP 2249e-224a0 StackAdj>                       Δ+8                {}
        <POP 224a0-224a8 Epilogue>                           Σ0         

0x224a8


@ 224a8
        <LVAR  0x00c 2(w)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 2(r)>
    <POP 224a8-224e8 Body>                                              
        <POP 224a8-224be Prologue>                           Σ0         ↓
        <POP 224be-224c2 RegCacheLoad>                       Σ0         ↓
        <POP 224c2-224e0 Naked>                              Σ0         ↓
            <MI 224c2  CLR.W   (A6-0x4)>                                        {}
            <MI 224c4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 224c8  LEA.L   (A6-0x4),A0>                                     {[4, '(A6+0x8)']}
            <MI 224ca  MOVE.L  A0,-(A7)>                     Δ-4                {[4, '(A6+0x8)']|[4, 'A0']}
            <MI 224cc  ADDQ.L  #0x1,(A7)>                                       {[4, '(A6+0x8)']|[-4-]}
            <Const 0x224ce 0x1.2>                            Δ-2                {[4, '(A6+0x8)']|[-4-]|[#1]}
            <Call 0x224d2 0x10238>                                              {[4, '(A6+0x8)']|[-4-]|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 224d8-224dc StackAdj>                       Δ+10               {}
            <MI 224dc  MOVE.W  (A6-0x4),(A6+0xc)>                               {}
        <POP 224e0-224e8 Epilogue>                           Σ0         

0x224e8


@ 224e8
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 @ 2(r)>
    <POP 224e8-2254c Body>                                              
        <POP 224e8-224fe Prologue>                           Σ0         ↓
        <POP 224fe-22500 RegCacheLoad>                       Σ0         ↓
        <POP 22500-2251a Naked>                              Σ0         ↓ →0x22544
            <POP 22500-22502 StackAdj>                       Δ-2                {[-2-]}
            <MI 22502  MOVE.L  (A6+0xa),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0xa)']}
            <Call 0x22506 0x224a8>                                              {[-2-]|[4, '(A6+0xa)']}
            <POP 2250a-2250c StackAdj>                       Δ+4                {[-2-]}
            <MI 2250c  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x2250e LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 22512  MOVE.W  D0,D7>                                           {}
            <MI 22514  CMP.W   (A6+0x8),D7>                                     {}
            <MI 22518  BEQ     0x22544>                                         {}
        <POP 2251a-22544 Naked>                              Σ0         ↓
            <MI 2251a  LEA.L   (A6+0x8),A0>                                     {}
            <MI 2251e  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 22520  ADDQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 22522  MOVE.L  (A6+0xa),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xa)']}
            <Const 0x22526 0x1.2>                            Δ-2                {[-4-]|[4, '(A6+0xa)']|[#1]}
            <Call 0x22528 0x10238>                                              {[-4-]|[4, '(A6+0xa)']|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 2252e-22532 StackAdj>                       Δ+10               {}
            <Const 0x22532 0x1d4.4>                          Δ-4                {[##468]}
            <Call 0x22536 0x10224>                                              {[##468]}
                KC12_Sleep(dur: Long)
            <POP 2253c-2253e StackAdj>                       Δ+4                {}
            <MI 2253e  MOVE.B  #0x01,0x25096>                                   {}
        <POP 22544-2254c Epilogue>                           Σ0         ←0x22500

0x2254c


@ 2254c
        <LVAR  0x00a 4(r)>
    <POP 2254c-22584 Body>                                              
        <POP 2254c-22562 Prologue>                           Σ0         ↓
        <POP 22562-22566 RegCacheLoad>                       Σ0         ↓
        <POP 22566-2257c Naked>                              Σ0         ↓
            <MI 22566  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 22568  ADDQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 2256a  MOVE.L  (A6+0xa),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xa)']}
            <Const 0x2256e 0x1.2>                            Δ-2                {[-4-]|[4, '(A6+0xa)']|[#1]}
            <Call 0x22572 0x10238>                                              {[-4-]|[4, '(A6+0xa)']|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 22578-2257c StackAdj>                       Δ+10               {}
        <POP 2257c-22584 Epilogue>                           Σ0         

0x22584


@ 22584
        <LVAR  0x008 4(r)>
    <POP 22584-2288a Body>                                              
        <POP 22584-2259a Prologue>                           Σ0         ↓
        <POP 2259a-225a0 RegCacheLoad>                       Σ0         ↓
        <POP 225a0-225b8 Naked>                              Σ0         ↓ →0x2280e
            <MI 225a0  MOVE.L  (A6+0x8),D6>                                     {}
            <MI 225a4  SUBQ.L  #0x5,D6>                                         {}
            <POP 225a6-225a8 StackAdj>                       Δ-2                {[-2-]}
            <MI 225a8  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <Call 0x225aa 0x224a8>                                              {[-2-]|[4, 'D6']}
            <POP 225ae-225b0 StackAdj>                       Δ+4                {[-2-]}
            <MI 225b0  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <MI 225b2  CMP.W   #0xff,D0>                                        {}
            <MI 225b4  BHI     0x2280e>                                         {}
        <POP 225b8-225c2 Naked>                              Σ0         →0x227c2 →0x227c6 →0x2280e →0x227ca →0x2280e →0x2280e →0x2280e →0x227ce →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x227d0 →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x227d4 →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x227d8 →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x227dc →0x2280a →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x22804 →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x227fe →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x227f8 →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x2280e →0x227f2 →0x2280e →0x2280e →0x2280e →0x227ec →0x2280e →0x227e6 →0x227e0
            <MI 225b8  ADD.W   D0,D0>                                           {}
            <MI 225ba  SWITCH  D0.W>                                            {}
        <POP 227c2-227c6 Naked>                              Σ0         →0x22810 ←0x225b8
            <MI 227c2  MOVEQ.L #0x01,D7>                                        {}
            <MI 227c4  BRA     0x22810>                                         {}
        <POP 227c6-227ca Naked>                              Σ0         →0x22810 ←0x225b8
            <MI 227c6  MOVEQ.L #0x03,D7>                                        {}
            <MI 227c8  BRA     0x22810>                                         {}
        <POP 227ca-227ce Naked>                              Σ0         →0x22810 ←0x225b8
            <MI 227ca  MOVEQ.L #0x07,D7>                                        {}
            <MI 227cc  BRA     0x22810>                                         {}
        <POP 227ce-227d0 Naked>                              Σ0         →0x2280e ←0x225b8
            <MI 227ce  BRA     0x2280e>                                         {}
        <POP 227d0-227d4 Naked>                              Σ0         →0x22810 ←0x225b8
            <MI 227d0  MOVEQ.L #0x1f,D7>                                        {}
            <MI 227d2  BRA     0x22810>                                         {}
        <POP 227d4-227d8 Naked>                              Σ0         →0x22810 ←0x225b8
            <MI 227d4  MOVEQ.L #0x3f,D7>                                        {}
            <MI 227d6  BRA     0x22810>                                         {}
        <POP 227d8-227dc Naked>                              Σ0         →0x22810 ←0x225b8
            <MI 227d8  MOVEQ.L #0x7f,D7>                                        {}
            <MI 227da  BRA     0x22810>                                         {}
        <POP 227dc-227e0 Naked>                              Σ0         →0x22810 ←0x225b8
            <MI 227dc  MOVE.W  #0xff,D7>                                        {}
            <MI 227de  BRA     0x22810>                                         {}
        <POP 227e0-227e6 Naked>                              Σ0         →0x22810 ←0x225b8
            <MI 227e0  MOVE.W  #0xfe,D7>                                        {}
            <MI 227e4  BRA     0x22810>                                         {}
        <POP 227e6-227ec Naked>                              Σ0         →0x22810 ←0x225b8
            <MI 227e6  MOVE.W  #0xfc,D7>                                        {}
            <MI 227ea  BRA     0x22810>                                         {}
        <POP 227ec-227f2 Naked>                              Σ0         →0x22810 ←0x225b8
            <MI 227ec  MOVE.W  #0xf8,D7>                                        {}
            <MI 227f0  BRA     0x22810>                                         {}
        <POP 227f2-227f8 Naked>                              Σ0         →0x22810 ←0x225b8
            <MI 227f2  MOVE.W  #0xf0,D7>                                        {}
            <MI 227f6  BRA     0x22810>                                         {}
        <POP 227f8-227fe Naked>                              Σ0         →0x22810 ←0x225b8
            <MI 227f8  MOVE.W  #0xe0,D7>                                        {}
            <MI 227fc  BRA     0x22810>                                         {}
        <POP 227fe-22804 Naked>                              Σ0         →0x22810 ←0x225b8
            <MI 227fe  MOVE.W  #0xc0,D7>                                        {}
            <MI 22802  BRA     0x22810>                                         {}
        <POP 22804-2280a Naked>                              Σ0         →0x22810 ←0x225b8
            <MI 22804  MOVE.W  #0x80,D7>                                        {}
            <MI 22808  BRA     0x22810>                                         {}
        <POP 2280a-2280e Naked>                              Σ0         →0x22810 ←0x225b8
            <MI 2280a  MOVEQ.L #0x00,D7>                                        {}
            <MI 2280c  BRA     0x22810>                                         {}
        <POP 2280e-22810 Naked>                              Σ0         ↓ ←0x225a0 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x225b8 ←0x227ce
            <MI 2280e  MOVEQ.L #0x0f,D7>                                        {}
        <POP 22810-22826 Naked>                              Σ0         ↓ →0x22852 ←0x227c2 ←0x227c6 ←0x227ca ←0x227d0 ←0x227d4 ←0x227d8 ←0x227dc ←0x227e0 ←0x227e6 ←0x227ec ←0x227f2 ←0x227f8 ←0x227fe ←0x22804 ←0x2280a
            <MI 22810  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']}
            <POP 0x22812 LimitCheck 0x0 ≤ D7 ≤ 0xff>                            {[4, 'D6']}
            <MI 22814  MOVE.W  D7,-(A7)>                     Δ-2                {[4, 'D6']|[2, 'D7']}
            <Call 0x22816 0x224e8>                                              {[4, 'D6']|[2, 'D7']}
            <MI 2281a  MOVE.L  D6,(A7)>                                         {[-2-]|[4, 'D6']}
            <Call 0x2281c 0x224a8>                                              {[-2-]|[4, 'D6']}
            <POP 22820-22822 StackAdj>                       Δ+4                {[-2-]}
            <MI 22822  CMP.W   (A7)+,D7>                     Δ+2                {}
            <MI 22824  BEQ     0x22852>                                         {}
        <POP 22826-22852 Naked>                              Σ0         →0x22882
            <Blob 0x22826 [36] @>                            Δ-36               {[«36""»]}
            <POP 22832-22834 StackAdj>                       Δ-4                {[«36""»]|[-4-]}
            <Lit 0x22834 36>                                                    {[«36""»]|[$$*** ERROR: test of EEPROM failed ***]}
            <Call 0x22846 0x103e0>                                              {[«36""»]|[$$*** ERROR: test of EEPROM failed ***]}
                WriteConsoleStringCrLf(str : String)
            <POP 2284c-22850 StackAdj>                       Δ+40               {}
            <MI 22850  BRA     0x22882>                                         {}
        <POP 22852-22882 Naked>                              Σ0         ↓ ←0x22810
            <Blob 0x22852 [22] @>                            Δ-22               {[«22""»]}
            <POP 22864-22866 StackAdj>                       Δ-4                {[«22""»]|[-4-]}
            <Lit 0x22866 21>                                                    {[«22""»]|[$$test of EEPROM passed]}
            <Call 0x22878 0x103e0>                                              {[«22""»]|[$$test of EEPROM passed]}
                WriteConsoleStringCrLf(str : String)
            <POP 2287e-22882 StackAdj>                       Δ+26               {}
        <POP 22882-2288a Epilogue>                           Σ0         ←0x22826

0x2288a


@ 2288a
    <POP 2288a-22990 Body>                                              
        <POP 2288a-228a0 Prologue>                           Σ0         ↓
        <POP 228a0-228b2 RegCacheLoad>                       Σ0         ↓
        <POP 228b2-22988 Naked>                              Σ0         ↓
            <Blob 0x228b2 [26] @>                            Δ-26               {[«26""»]}
            <Blob 0x228c4 [16] @>                            Δ-16               {[«26""»]|[«16""»]}
            <POP 228d6-228d8 StackAdj>                       Δ-8                {[«26""»]|[«16""»]|[-8-]}
            <Lit 0x228d8 25>                                                    {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]}
            <POP 228e8-228ea StackAdj>                       Δ-10               {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-10-]}
            <MI 228ea  MOVE.L  0x250a8,D0>                                      {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-10-]}
            <MI 228ec  ADD.L   0x250ac,D0>                                      {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-10-]}
            <MI 228ee  SUBQ.L  #0x4,D0>                                         {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-10-]}
            <MI 228f0  MOVE.L  D0,-(A7)>                     Δ-4                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-10-]|[4, 'D0']}
            <Call 0x228f2 0x224a8>                                              {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-10-]|[4, 'D0']}
            <POP 228f4-228f6 StackAdj>                       Δ+4                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-10-]}
            <MI 228f6  MOVE.W  (A7)+,D0>                     Δ+2                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-8-]}
            <MI 228f8  EXTW.L  D0>                                              {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-8-]}
            <MI 228fa  MOVE.L  D0,(A7)>                                         {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']}
            <Const 0x228fc 0x2.4>                            Δ-4                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]}
            <Call 0x22900 0x102e8>                                              {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 22906-22908 StackAdj>                       Δ-2                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]|[-2-]}
            <MI 22908  MOVE.L  0x250a8,D0>                                      {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]|[-2-]}
            <MI 2290a  ADD.L   0x250ac,D0>                                      {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]|[-2-]}
            <MI 2290c  SUBQ.L  #0x3,D0>                                         {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]|[-2-]}
            <MI 2290e  MOVE.L  D0,-(A7)>                     Δ-4                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]|[-2-]|[4, 'D0']}
            <Call 0x22910 0x224a8>                                              {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]|[-2-]|[4, 'D0']}
            <POP 22912-22914 StackAdj>                       Δ+4                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]|[-2-]}
            <MI 22914  MOVE.W  (A7)+,D0>                     Δ+2                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]}
            <MI 22916  EXTW.L  D0>                                              {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[##2]}
            <MI 22918  MOVE.L  D0,(A7)>                                         {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']}
            <Const 0x2291a 0x2.4>                            Δ-4                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]}
            <Call 0x2291e 0x102e8>                                              {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 22924-22926 StackAdj>                       Δ-2                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]|[-2-]}
            <MI 22926  MOVE.L  0x250a8,D0>                                      {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]|[-2-]}
            <MI 22928  ADD.L   0x250ac,D0>                                      {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]|[-2-]}
            <MI 2292a  SUBQ.L  #0x2,D0>                                         {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]|[-2-]}
            <MI 2292c  MOVE.L  D0,-(A7)>                     Δ-4                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]|[-2-]|[4, 'D0']}
            <Call 0x2292e 0x224a8>                                              {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]|[-2-]|[4, 'D0']}
            <POP 22930-22932 StackAdj>                       Δ+4                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]|[-2-]}
            <MI 22932  MOVE.W  (A7)+,D0>                     Δ+2                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]}
            <MI 22934  EXTW.L  D0>                                              {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[##2]}
            <MI 22936  MOVE.L  D0,(A7)>                                         {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[4, 'D0']}
            <Const 0x22938 0x2.4>                            Δ-4                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[4, 'D0']|[##2]}
            <Call 0x2293c 0x102e8>                                              {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[4, 'D0']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 22942-22944 StackAdj>                       Δ+4                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[4, 'D0']}
            <Lit 0x22944 15>                                                    {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]}
            <POP 22954-22956 StackAdj>                       Δ-10               {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-10-]}
            <MI 22956  MOVE.L  0x250a8,D0>                                      {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-10-]}
            <MI 22958  ADD.L   0x250ac,D0>                                      {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-10-]}
            <MI 2295a  SUBQ.L  #0x1,D0>                                         {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-10-]}
            <MI 2295c  MOVE.L  D0,-(A7)>                     Δ-4                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-10-]|[4, 'D0']}
            <Call 0x2295e 0x224a8>                                              {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-10-]|[4, 'D0']}
            <POP 22960-22962 StackAdj>                       Δ+4                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-10-]}
            <MI 22962  MOVE.W  (A7)+,D0>                     Δ+2                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-8-]}
            <MI 22964  EXTW.L  D0>                                              {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-8-]}
            <MI 22966  MOVE.L  D0,(A7)>                                         {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-4-]|[4, 'D0']}
            <Const 0x22968 0x2.4>                            Δ-4                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-4-]|[4, 'D0']|[##2]}
            <Call 0x2296c 0x102e8>                                              {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-4-]|[4, 'D0']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 22972-22974 StackAdj>                       Δ+8                {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-4-]}
            <Call 0x22974 0x102e0>                                              {[«26""»]|[«16""»]|[-4-]|[$$in prom: revision date =_]|[-4-]|[4, 'D0']|[4, 'D0']|[$$, locus byte =_]|[-4-]}
                StringCat6(a, b, c, d, e, f : String) : String
            <POP 2297a-2297e StackAdj>                       Δ+24               {[«26""»]|[«16""»]|[-4-]}
            <Call 0x2297e 0x103e0>                                              {[«26""»]|[«16""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22984-22988 StackAdj>                       Δ+46               {}
        <POP 22988-22990 Epilogue>                           Σ0         

0x22990


@ 22990
        <LVAR  0x008 4(r)>
    <POP 22990-22a52 Body>                                              
        <POP 22990-229a6 Prologue>                           Σ0         ↓
        <POP 229a6-229b2 RegCacheLoad>                       Σ0         ↓
        <POP 229b2-229cc Naked>                              Σ0         ↓ →0x229fe
            <POP 229b2-229b4 StackAdj>                       Δ-2                {[-2-]}
            <MI 229b4  MOVE.L  0x250a8,D0>                                      {[-2-]}
            <MI 229b6  ADD.L   0x250ac,D0>                                      {[-2-]}
            <MI 229b8  SUBQ.L  #0x1,D0>                                         {[-2-]}
            <MI 229ba  MOVE.L  D0,-(A7)>                     Δ-4                {[-2-]|[4, 'D0']}
            <Call 0x229bc 0x224a8>                                              {[-2-]|[4, 'D0']}
            <POP 229c0-229c2 StackAdj>                       Δ+4                {[-2-]}
            <MI 229c2  MOVE.W  0x250b0,D0>                                      {[-2-]}
            <MI 229c8  CMP.W   (A7)+,D0>                     Δ+2                {}
            <MI 229ca  BEQ     0x229fe>                                         {}
        <POP 229cc-229fe Naked>                              Σ0         ↓
            <Blob 0x229cc [48] @>                            Δ-48               {[«48""»]}
            <POP 229de-229e0 StackAdj>                       Δ-4                {[«48""»]|[-4-]}
            <Lit 0x229e0 47>                                                    {[«48""»]|[$$WARNING: the EEPROM has an incorrect LOCUS byte]}
            <Call 0x229f4 0x103e0>                                              {[«48""»]|[$$WARNING: the EEPROM has an incorrect LOCUS byte]}
                WriteConsoleStringCrLf(str : String)
            <POP 229fa-229fe StackAdj>                       Δ+52               {}
        <POP 229fe-22a0a Naked>                              Σ0 Δ-4     ↓ ←0x229b2
            <MI 229fe  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22a02  CLR.L   (A0)>                                            {}
            <Blob 0x22a04 [4] 0x250ac>                       Δ-4                {[«4»]}
            <MI 22a06  SUBQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 22a08  MOVEQ.L #0x00,D7>                                        {[-4-]}
        <POP 22a0a-22a0e Naked>                              Σ-4        ↓ →0x22a48 ←0x22a44
            <MI 22a0a  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 22a0c  BGT     0x22a48>                                         {[-4-]}
        <POP 22a0e-22a36 Naked>                              Σ-4        ↓ →0x22a44
            <POP 22a0e-22a10 StackAdj>                       Δ-2                {[-6-]}
            <Blob 0x22a10 [4] 0x250a8>                       Δ-4                {[-6-]|[«4»]}
            <MI 22a12  ADD.L   D7,(A7)>                                         {[-10-]}
            <Call 0x22a14 0x224a8>                                              {[-10-]}
            <POP 22a18-22a1a StackAdj>                       Δ+4                {[-6-]}
            <POP 0x22a1a LimitCheck 0x0 ≤ D7 ≤ 0x1fff>                          {[-6-]}
            <MI 22a24  MOVE.L  D7,D0>                                           {[-6-]}
            <MI 22a26  ASL.L   #0x1,D0>                                         {[-6-]}
            <MI 22a28  LEA.L   0x25088,A0>                                      {[-6-]}
            <MI 22a2e  MOVE.W  (A7)+,D1>                     Δ+2                {[-4-]}
            <MI 22a30  CMP.W   (A0+D0.L+#0x2a),D1>                              {[-4-]}
            <MI 22a34  BEQ     0x22a44>                                         {[-4-]}
        <POP 22a36-22a3e Naked>                              Σ-4        ↓ →0x22a44
            <MI 22a36  MOVE.L  0x250ac,D0>                                      {[-4-]}
            <MI 22a38  SUBQ.L  #0x5,D0>                                         {[-4-]}
            <MI 22a3a  CMP.L   D0,D7>                                           {[-4-]}
            <MI 22a3c  BEQ     0x22a44>                                         {[-4-]}
        <POP 22a3e-22a44 Naked>                              Σ-4        ↓
            <MI 22a3e  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 22a42  ADDQ.L  #0x1,(A0)>                                       {[-4-]}
        <POP 22a44-22a48 Naked>                              Σ-4        ↓ →0x22a0a ←0x22a0e ←0x22a36
            <MI 22a44  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 22a46  BVC     0x22a0a>                                         {[-4-]}
        <POP 22a48-22a4a Naked>                              Σ-4 Δ+4    ↓ ←0x22a0a
            <POP 22a48-22a4a StackAdj>                       Δ+4                {}
        <POP 22a4a-22a52 Epilogue>                           Σ0         

0x22a52


@ 22a52
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 22a52-22bc6 Body>                                              
        <POP 22a52-22a68 Prologue>                           Σ0         ↓
        <POP 22a68-22a86 RegCacheLoad>                       Σ0         ↓
        <POP 22a86-22aa6 Naked>                              Σ0         ↓ →0x22ae8
            <MI 22a86  MOVE.W  0x250b0,D0>                                      {}
            <MI 22a8c  SUBI.W  #0x0050,D0>                                      {}
            <MI 22a90  EXTW.L  D0>                                              {}
            <MI 22a92  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <Pointer.fp 0x22a94 <LVAR -0x004 @ 4(r)>>        Δ-4                {[4, 'D0']|[@@-4]}
            <Call 0x22a98 0x24e0a>                                              {[4, 'D0']|[@@-4]}
            <POP 22a9e-22aa0 StackAdj>                       Δ+8                {}
            <MI 22aa0  TST.L   (A6-0x4)>                                        {}
            <MI 22aa4  BEQ     0x22ae8>                                         {}
        <POP 22aa6-22ae8 Naked>                              Σ0         ↓
            <Blob 0x22aa6 [28] @>                            Δ-28               {[«28""»]}
            <POP 22ab8-22aba StackAdj>                       Δ-8                {[«28""»]|[-8-]}
            <Lit 0x22aba 27>                                                    {[«28""»]|[-4-]|[$$Warning from REE_DOWNLOAD:_]}
            <MI 22acc  MOVE.L  (A6-0x4),(A7)>                                   {[«28""»]|[-4-]|[4, '(A6-0x4)']}
            <POP 22ac6-22acc StackAdj>                       Δ-8                {[«28""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
            <Call 0x22ad0 0x2101a>                                              {[«28""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
            <POP 22ad4-22ad6 StackAdj>                       Δ+4                {[«28""»]|[-4-]|[4, '(A6-0x4)']|[-4-]}
            <Call 0x22ad6 0x102d0>                                              {[«28""»]|[-4-]|[4, '(A6-0x4)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 22adc-22ade StackAdj>                       Δ+8                {[«28""»]|[-4-]}
            <Call 0x22ade 0x103e0>                                              {[«28""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22ae4-22ae8 StackAdj>                       Δ+32               {}
        <POP 22ae8-22af6 Naked>                              Σ0         ↓ →0x22b2e ←0x22a86
            <POP 22ae8-22aea StackAdj>                       Δ-4                {[-4-]}
            <Call 0x22aea 0x24d8c>                                              {[-4-]}
            <MI 22af0  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 22af2  CMP.L   0x250a8,D6>                                      {}
            <MI 22af4  BCS     0x22b2e>                                         {}
        <POP 22af6-22afe Naked>                              Σ0         ↓ →0x22b2e
            <MI 22af6  MOVE.L  0x250a8,D0>                                      {}
            <MI 22af8  ADD.L   0x250ac,D0>                                      {}
            <MI 22afa  CMP.L   D0,D6>                                           {}
            <MI 22afc  BHI     0x22b2e>                                         {}
        <POP 22afe-22b00 Naked>                              Σ0         ↓
            <MI 22afe  MOVEQ.L #0x00,D7>                                        {}
        <POP 22b00-22b2e Naked>                              Σ0         ↓ →0x22b00 ←0x22b00
            <MI 22b00  MOVE.L  D6,D0>                                           {}
            <MI 22b02  ADD.L   D7,D0>                                           {}
            <MI 22b04  MOVE.L  D0,D1>                                           {}
            <MI 22b06  AND.L   #0x1fff,D1>                                      {}
            <POP 0x22b08 LimitCheck 0x0 ≤ D1 ≤ 0x1fff>                          {}
            <MI 22b0e  ASL.L   #0x1,D1>                                         {}
            <MI 22b10  LEA.L   0x25088,A0>                                      {}
            <POP 22b12-22b14 StackAdj>                       Δ-2                {[-2-]}
            <MI 22b14  MOVE.L  D0,-(A7)>                     Δ-4                {[-2-]|[4, 'D0']}
            <Call 0x22b16 0x224a8>                                              {[-2-]|[4, 'D0']}
            <POP 22b1a-22b1c StackAdj>                       Δ+4                {[-2-]}
            <MI 22b1c  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x22b1e LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 22b20  MOVE.W  D0,(A0+D1.L+#0x2a)>                              {}
            <MI 22b24  ADDQ.L  #0x1,D7>                                         {}
            <MI 22b26  CMPI.L  #0x00000005,D7>                                  {}
            <MI 22b2c  BLE     0x22b00>                                         {}
        <POP 22b2e-22b3c Naked>                              Σ0         ↓ →0x22b70 ←0x22ae8 ←0x22af6
            <POP 22b2e-22b30 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x22b30 0x24db6>                                              {[-4-]}
            <MI 22b36  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 22b38  CMP.L   0x250a8,D6>                                      {}
            <MI 22b3a  BCS     0x22b70>                                         {}
        <POP 22b3c-22b44 Naked>                              Σ0         ↓ →0x22b70
            <MI 22b3c  MOVE.L  0x250a8,D0>                                      {}
            <MI 22b3e  ADD.L   0x250ac,D0>                                      {}
            <MI 22b40  CMP.L   D0,D6>                                           {}
            <MI 22b42  BHI     0x22b70>                                         {}
        <POP 22b44-22b46 Naked>                              Σ0         ↓
            <MI 22b44  MOVEQ.L #0x00,D7>                                        {}
        <POP 22b46-22b70 Naked>                              Σ0         ↓ →0x22b46 ←0x22b46
            <MI 22b46  MOVE.L  D6,D0>                                           {}
            <MI 22b48  ADD.L   D7,D0>                                           {}
            <MI 22b4a  MOVE.L  D0,D1>                                           {}
            <MI 22b4c  AND.L   #0x1fff,D1>                                      {}
            <POP 0x22b4e LimitCheck 0x0 ≤ D1 ≤ 0x1fff>                          {}
            <MI 22b54  ASL.L   #0x1,D1>                                         {}
            <MI 22b56  LEA.L   0x25088,A0>                                      {}
            <POP 22b58-22b5a StackAdj>                       Δ-2                {[-2-]}
            <MI 22b5a  MOVE.L  D0,-(A7)>                     Δ-4                {[-2-]|[4, 'D0']}
            <Call 0x22b5c 0x224a8>                                              {[-2-]|[4, 'D0']}
            <POP 22b60-22b62 StackAdj>                       Δ+4                {[-2-]}
            <MI 22b62  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x22b64 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 22b66  MOVE.W  D0,(A0+D1.L+#0x2a)>                              {}
            <MI 22b6a  ADDQ.L  #0x1,D7>                                         {}
            <MI 22b6c  CMP.L   #0x07,D7>                                        {}
            <MI 22b6e  BLE     0x22b46>                                         {}
        <POP 22b70-22b7e Naked>                              Σ0         ↓ →0x22bb2 ←0x22b2e ←0x22b3c
            <POP 22b70-22b72 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x22b72 0x24de0>                                              {[-4-]}
            <MI 22b78  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 22b7a  CMP.L   0x250a8,D6>                                      {}
            <MI 22b7c  BCS     0x22bb2>                                         {}
        <POP 22b7e-22b86 Naked>                              Σ0         ↓ →0x22bb2
            <MI 22b7e  MOVE.L  0x250a8,D0>                                      {}
            <MI 22b80  ADD.L   0x250ac,D0>                                      {}
            <MI 22b82  CMP.L   D0,D6>                                           {}
            <MI 22b84  BHI     0x22bb2>                                         {}
        <POP 22b86-22b88 Naked>                              Σ0         ↓
            <MI 22b86  MOVEQ.L #0x00,D7>                                        {}
        <POP 22b88-22bb2 Naked>                              Σ0         ↓ →0x22b88 ←0x22b88
            <MI 22b88  MOVE.L  D6,D0>                                           {}
            <MI 22b8a  ADD.L   D7,D0>                                           {}
            <MI 22b8c  MOVE.L  D0,D1>                                           {}
            <MI 22b8e  AND.L   #0x1fff,D1>                                      {}
            <POP 0x22b90 LimitCheck 0x0 ≤ D1 ≤ 0x1fff>                          {}
            <MI 22b96  ASL.L   #0x1,D1>                                         {}
            <MI 22b98  LEA.L   0x25088,A0>                                      {}
            <POP 22b9a-22b9c StackAdj>                       Δ-2                {[-2-]}
            <MI 22b9c  MOVE.L  D0,-(A7)>                     Δ-4                {[-2-]|[4, 'D0']}
            <Call 0x22b9e 0x224a8>                                              {[-2-]|[4, 'D0']}
            <POP 22ba2-22ba4 StackAdj>                       Δ+4                {[-2-]}
            <MI 22ba4  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x22ba6 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 22ba8  MOVE.W  D0,(A0+D1.L+#0x2a)>                              {}
            <MI 22bac  ADDQ.L  #0x1,D7>                                         {}
            <MI 22bae  CMP.L   #0x07,D7>                                        {}
            <MI 22bb0  BLE     0x22b88>                                         {}
        <POP 22bb2-22bbe Naked>                              Σ0         ↓ ←0x22b70 ←0x22b7e
            <MI 22bb2  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22bb6  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x22bb8 0x22990>                                              {[4, '^(A0)']}
            <POP 22bbc-22bbe StackAdj>                       Δ+4                {}
        <POP 22bbe-22bc6 Epilogue>                           Σ0         

0x22bc6


@ 22bc6
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 2(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 22bc6-22c94 Body>                                   Δ+4        
        <POP 22bc6-22bdc Prologue>                           Σ0         ↓
        <POP 22bdc-22be2 RegCacheLoad>                       Σ0         ↓
        <POP 22be2-22c06 Naked>                              Σ0         ↓ →0x22c0e
            <MI 22be2  MOVE.L  (A6+0xa),-(A7)>               Δ-4                {[4, '(A6+0xa)']}
            <MI 22be6  MOVE.W  (A6+0x8),D0>                                     {[4, '(A6+0xa)']}
            <MI 22bea  EXTW.L  D0>                                              {[4, '(A6+0xa)']}
            <MI 22bec  MOVE.L  D0,-(A7)>                     Δ-4                {[4, '(A6+0xa)']|[4, 'D0']}
            <Const 0x22bee 0x1.2>                            Δ-2                {[4, '(A6+0xa)']|[4, 'D0']|[#1]}
            <Call 0x22bf0 0x2227a>                                              {[4, '(A6+0xa)']|[4, 'D0']|[#1]}
            <POP 22bf4-22bf8 StackAdj>                       Δ+10               {}
            <Call 0x22bf8 0x2288a>                                              {}
            <MI 22bfc  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 22c00  CMPI.W  #0x0050,D0>                                      {}
            <MI 22c04  BGE     0x22c0e>                                         {}
        <POP 22c06-22c0e Naked>                              Σ0 Δ-4     →0x22c14
            <Pointer.fp 0x22c06 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x22c08 0x22990>                                              {[@@-6]}
            <MI 22c0c  BRA     0x22c14>                                         {[@@-6]}
        <POP 22c0e-22c14 Naked>                              Σ0 Δ-4     ↓ ←0x22be2
            <Pointer.fp 0x22c0e <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x22c10 0x22a52>                                              {[@@-6]}
        <POP 22c14-22c1a Naked>                              Σ-4 Δ+4    ↓ →0x22c4c ←0x22c06
            <POP 22c14-22c16 StackAdj>                       Δ+4                {}
            <MI 22c16  TST.L   (A6-0x6)>                                        {}
            <MI 22c18  BNE     0x22c4c>                                         {}
        <POP 22c1a-22c4c Naked>                              Σ0         →0x22c86
            <Blob 0x22c1a [20] @>                            Δ-20               {[«20""»]}
            <POP 22c2c-22c2e StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x22c2e 19>                                                    {[«20""»]|[$$EEPROM matched file]}
            <Call 0x22c40 0x103e0>                                              {[«20""»]|[$$EEPROM matched file]}
                WriteConsoleStringCrLf(str : String)
            <POP 22c46-22c4a StackAdj>                       Δ+24               {}
            <MI 22c4a  BRA     0x22c86>                                         {}
        <POP 22c4c-22c86 Naked>                              Σ0         ↓ ←0x22c14
            <Blob 0x22c4c [48] @>                            Δ-48               {[«48""»]}
            <POP 22c58-22c5a StackAdj>                       Δ-8                {[«48""»]|[-8-]}
            <MI 22c5a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[«48""»]|[-8-]|[4, '(A6-0x6)']}
            <Call 0x22c5c 0x102e4>                                              {[«48""»]|[-8-]|[4, '(A6-0x6)']}
                Long2String(a : Long) : String
            <Lit 0x22c62 48>                                                    {[«48""»]|[-8-]|[$$ differing bytes were found (excluding checksum)]}
            <Call 0x22c74 0x102d0>                                              {[«48""»]|[-8-]|[$$ differing bytes were found (excluding checksum)]}
                StringCat2(a, b : String) : String
            <POP 22c7a-22c7c StackAdj>                       Δ+8                {[«48""»]|[-4-]}
            <Call 0x22c7c 0x103e0>                                              {[«48""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22c82-22c86 StackAdj>                       Δ+52               {}
        <POP 22c86-22c8c Naked>                              Σ0         ↓ ←0x22c1a
            <Call 0x22c86 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 22c8c-22c94 Epilogue>                           Σ0         

0x22c94


@ 22c94
        <LVAR  0x008 2(r)>
        <LVAR -0x006 @>
        <LVAR -0x00a @ 4(r)>
    <POP 22c94-22cfc Body>                                              
        <POP 22c94-22ca6 Prologue>                           Σ0         ↓
        <POP 22ca6-22cf8 Naked>                              Σ0         ↓
            <MI 22ca6  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Pointer.fp 0x22caa <LVAR -0x006 @>>             Δ-4                {[2, '(A6+0x8)']|[@@-6]}
            <Pointer.fp 0x22cae <LVAR -0x00a @ 4(r)>>        Δ-4                {[2, '(A6+0x8)']|[@@-6]|[@@-10]}
            <Call 0x22cb2 0x21388>                                              {[2, '(A6+0x8)']|[@@-6]|[@@-10]}
            <POP 22cb6-22cb8 StackAdj>                       Δ+6                {[2, '(A6+0x8)']|[-2-]}
            <POP 22cb8-22cb9 StackAdj>                       Δ+4                {}
            <Blob 0x22cb9 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x22cbc [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 22cc0-22cc2 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <MI 22cc2  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']}
            <POP 22cc6-22cc8 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']|[-4-]}
            <Lit 0x22cc8 8>                                                     {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']|[$$ EEPROM:]}
            <Call 0x22cdc 0x102d0>                                              {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']|[$$ EEPROM:]}
                StringCat2(a, b : String) : String
            <POP 22ce2-22ce4 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-4-]}
            <Call 0x22ce4 0x103d8>                                              {[«4""»]|[«4""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 22cea-22cec StackAdj>                       Δ+8                {[«4""»]}
            <MI 22cec  MOVE.L  (A4),(A7)>                                       {[4, '(A4)']}
            <MI 22cee  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[4, '(A4)']|[2, '(A6+0x8)']}
            <Call 0x22cf2 0x22bc6>                                              {[4, '(A4)']|[2, '(A6+0x8)']}
            <POP 22cf6-22cf8 StackAdj>                       Δ+6                {}
        <POP 22cf8-22cfc Epilogue>                           Σ0         

0x22cfc


@ 22cfc
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(rw)>
        <LVAR -0x00a @ 4(rw)>
    <POP 22cfc-22dfa Body>                                   Δ+2        
        <POP 22cfc-22d12 Prologue>                           Σ0         ↓
        <POP 22d12-22d20 RegCacheLoad>                       Σ0         ↓
        <POP 22d20-22d26 Naked>                              Σ0         ↓ →0x22d2e
            <MI 22d20  TST.B   (A6+0x8)>                                        {}
            <MI 22d24  BEQ     0x22d2e>                                         {}
        <POP 22d26-22d2e Naked>                              Σ0         →0x22d34
            <MI 22d26  MOVE.L  0x290b8,(A6-0xa)>                                {}
            <MI 22d2c  BRA     0x22d34>                                         {}
        <POP 22d2e-22d34 Naked>                              Σ0         ↓ ←0x22d20
            <MI 22d2e  MOVE.L  0x290b4,(A6-0xa)>                                {}
        <POP 22d34-22d96 Naked>                              Σ0         ↓ →0x22d9c ←0x22d26
            <Blob 0x22d34 [22] @>                            Δ-22               {[«22""»]}
            <Blob 0x22d46 [4] @>                             Δ-4                {[«22""»]|[«4""»]}
            <POP 22d4a-22d4c StackAdj>                       Δ-12               {[«22""»]|[«4""»]|[-12-]}
            <Lit 0x22d4c 21>                                                    {[«22""»]|[«4""»]|[-8-]|[$$enter prom filename []}
            <MI 22d5a  MOVE.L  (A6-0xa),(A7)>                                   {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']}
            <POP 22d54-22d5a StackAdj>                       Δ-8                {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[-8-]}
            <Call 0x22d5c 0x102cc>                                              {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x22d62 4>                                                     {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[-4-]|[$$] :_]}
            <Call 0x22d74 0x102d4>                                              {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[-4-]|[$$] :_]}
                StringCat3(a, b, c : String) : String
            <POP 22d7a-22d7c StackAdj>                       Δ+12               {[«22""»]|[«4""»]|[-8-]}
            <Call 0x22d7c 0x103e4>                                              {[«22""»]|[«4""»]|[-8-]}
                AskConsoleString(prompt : String) : String
            <POP 22d82-22d84 StackAdj>                       Δ+4                {[«22""»]|[«4""»]|[-4-]}
            <MI 22d84  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«22""»]|[«4""»]}
            <POP 22d88-22d8c StackAdj>                       Δ+26               {}
            <MI 22d8c  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 22d90  MOVE.W  (A0),D0>                                         {}
            <MI 22d92  CMP.W   #0x01,D0>                                        {}
            <MI 22d94  BLE     0x22d9c>                                         {}
        <POP 22d96-22d9c Naked>                              Σ0         →0x22da8
            <MI 22d96  MOVE.L  (A6-0x6),(A6-0xa)>                               {}
            <MI 22d9a  BRA     0x22da8>                                         {}
        <POP 22d9c-22da8 Naked>                              Σ0         ↓ ←0x22d34
            <Pointer.fp 0x22d9c <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x22da0 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 22da6-22da8 StackAdj>                       Δ+4                {}
        <POP 22da8-22dae Naked>                              Σ0         ↓ →0x22dcc ←0x22d96
            <MI 22da8  TST.B   (A6+0x8)>                                        {}
            <MI 22dac  BEQ     0x22dcc>                                         {}
        <POP 22dae-22dcc Naked>                              Σ0 Δ-2     →0x22de6
            <Const 0x22dae 0x50.2>                           Δ-2                {[#80]}
            <MI 22db2  LEA.L   (A6-0xa),A4>                                     {[#80]}
            <Call 0x22db4 0x22c94>                                              {[#80]}
            <POP 22db6-22db7 StackAdj>                       Δ+2                {}
            <Const 0x22db7 0x51.2>                           Δ-2                {[#81]}
            <MI 22dba  LEA.L   (A6-0xa),A4>                                     {[#81]}
            <Call 0x22dbc 0x22c94>                                              {[#81]}
            <POP 22dbe-22dbf StackAdj>                       Δ+2                {}
            <Const 0x22dbf 0x52.2>                           Δ-2                {[#82]}
            <MI 22dc2  LEA.L   (A6-0xa),A4>                                     {[#82]}
            <Call 0x22dc4 0x22c94>                                              {[#82]}
            <POP 22dc6-22dc7 StackAdj>                       Δ+2                {}
            <Const 0x22dc7 0x53.2>                           Δ-2                {[#83]}
            <MI 22dca  BRA     0x22de6>                                         {[#83]}
        <POP 22dcc-22de6 Naked>                              Σ0 Δ-2     ↓ ←0x22da8
            <Const 0x22dcc 0x21.2>                           Δ-2                {[#33]}
            <MI 22dd0  LEA.L   (A6-0xa),A4>                                     {[#33]}
            <Call 0x22dd2 0x22c94>                                              {[#33]}
            <POP 22dd4-22dd5 StackAdj>                       Δ+2                {}
            <Const 0x22dd5 0x19.2>                           Δ-2                {[#25]}
            <MI 22dd8  LEA.L   (A6-0xa),A4>                                     {[#25]}
            <Call 0x22dda 0x22c94>                                              {[#25]}
            <POP 22ddc-22ddd StackAdj>                       Δ+2                {}
            <Const 0x22ddd 0x17.2>                           Δ-2                {[#23]}
            <MI 22de0  LEA.L   (A6-0xa),A4>                                     {[#23]}
            <Call 0x22de2 0x22c94>                                              {[#23]}
            <POP 22de4-22de5 StackAdj>                       Δ+2                {}
            <Const 0x22de5 0x15.2>                           Δ-2                {[#21]}
        <POP 22de6-22df2 Naked>                              Σ-2 Δ+2    ↓ ←0x22dae
            <MI 22de6  LEA.L   (A6-0xa),A4>                                     {[-2-]}
            <Call 0x22de8 0x22c94>                                              {[-2-]}
            <POP 22dea-22dec StackAdj>                       Δ+2                {}
            <Call 0x22dec 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 22df2-22dfa Epilogue>                           Σ0         

0x22dfa


@ 22dfa
    <POP 22dfa-2302e Body>                                              
        <POP 22dfa-22e10 Prologue>                           Σ0         ↓
        <POP 22e10-22e28 RegCacheLoad>                       Σ0         ↓
        <POP 22e28-22e30 Naked>                              Σ0 Δ-4     ↓
            <Blob 0x22e28 [4] 0x250ac>                       Δ-4                {[«4»]}
            <MI 22e2e  MOVEQ.L #0x00,D6>                                        {[«4»]}
        <POP 22e30-22e36 Naked>                              Σ-4        ↓ →0x22fca ←0x22fc4
            <MI 22e30  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 22e32  BGT     0x22fca>                                         {[-4-]}
        <POP 22e36-22e60 Naked>                              Σ-4        ↓ →0x22fc4
            <POP 22e36-22e38 StackAdj>                       Δ-2                {[-6-]}
            <Blob 0x22e38 [4] 0x250a8>                       Δ-4                {[-6-]|[«4»]}
            <MI 22e3a  ADD.L   D6,(A7)>                                         {[-10-]}
            <Call 0x22e3c 0x224a8>                                              {[-10-]}
            <POP 22e40-22e42 StackAdj>                       Δ+4                {[-6-]}
            <POP 0x22e42 LimitCheck 0x0 ≤ D6 ≤ 0x1fff>                          {[-6-]}
            <MI 22e4c  MOVE.L  D6,D0>                                           {[-6-]}
            <MI 22e4e  ASL.L   #0x1,D0>                                         {[-6-]}
            <MI 22e50  LEA.L   0x25088,A0>                                      {[-6-]}
            <MI 22e56  MOVE.W  (A7)+,D1>                     Δ+2                {[-4-]}
            <MI 22e58  CMP.W   (A0+D0.L+#0x2a),D1>                              {[-4-]}
            <MI 22e5c  BEQ     0x22fc4>                                         {[-4-]}
        <POP 22e60-22e6e Naked>                              Σ-4        ↓ →0x22fc4
            <MI 22e60  MOVE.L  0x250ac,D0>                                      {[-4-]}
            <MI 22e66  SUBQ.L  #0x5,D0>                                         {[-4-]}
            <MI 22e68  CMP.L   D0,D6>                                           {[-4-]}
            <MI 22e6a  BEQ     0x22fc4>                                         {[-4-]}
        <POP 22e6e-22e70 Naked>                              Σ-4        ↓
            <MI 22e6e  MOVEQ.L #0x00,D7>                                        {[-4-]}
        <POP 22e70-22ea8 Naked>                              Σ-4        ↓ →0x22eac ←0x22ea8
            <POP 0x22e70 LimitCheck 0x0 ≤ D6 ≤ 0x1fff>                          {[-4-]}
            <MI 22e7a  MOVE.L  D6,D0>                                           {[-4-]}
            <MI 22e7c  ASL.L   #0x1,D0>                                         {[-4-]}
            <MI 22e7e  LEA.L   0x25088,A0>                                      {[-4-]}
            <Blob 0x22e84 [4] 0x250a8>                       Δ-4                {[-4-]|[«4»]}
            <MI 22e86  ADD.L   D6,(A7)>                                         {[-8-]}
            <MI 22e88  MOVE.W  (A0+D0.L+#0x2a),-(A7)>        Δ-2                {[-8-]|[2, '(A0+D0.L+#0x2a)']}
            <Call 0x22e8c 0x224e8>                                              {[-8-]|[2, '(A0+D0.L+#0x2a)']}
            <POP 22e90-22e92 StackAdj>                       Δ+6                {[-4-]}
            <MI 22e92  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <POP 22e94-22e96 StackAdj>                       Δ-2                {[-6-]}
            <Blob 0x22e96 [4] 0x250a8>                       Δ-4                {[-6-]|[«4»]}
            <MI 22e98  ADD.L   D6,(A7)>                                         {[-10-]}
            <Call 0x22e9a 0x224a8>                                              {[-10-]}
            <POP 22e9e-22ea0 StackAdj>                       Δ+4                {[-6-]}
            <MI 22ea0  MOVE.W  (A7)+,D1>                     Δ+2                {[-4-]}
            <MI 22ea2  CMP.W   (A0+D0.L+#0x2a),D1>                              {[-4-]}
            <MI 22ea6  BEQ     0x22eac>                                         {[-4-]}
        <POP 22ea8-22eac Naked>                              Σ-4        ↓ →0x22e70
            <MI 22ea8  CMP.L   #0x0a,D7>                                        {[-4-]}
            <MI 22eaa  BNE     0x22e70>                                         {[-4-]}
        <POP 22eac-22ec2 Naked>                              Σ-4        ↓ →0x22fc4 ←0x22e70
            <POP 22eac-22eae StackAdj>                       Δ-2                {[-6-]}
            <Blob 0x22eae [4] 0x250a8>                       Δ-4                {[-6-]|[«4»]}
            <MI 22eb0  ADD.L   D6,(A7)>                                         {[-10-]}
            <Call 0x22eb2 0x224a8>                                              {[-10-]}
            <POP 22eb6-22eb8 StackAdj>                       Δ+4                {[-6-]}
            <MI 22eb8  MOVE.W  (A7)+,D1>                     Δ+2                {[-4-]}
            <MI 22eba  CMP.W   (A0+D0.L+#0x2a),D1>                              {[-4-]}
            <MI 22ebe  BEQ     0x22fc4>                                         {[-4-]}
        <POP 22ec2-22fc4 Naked>                              Σ-4        ↓
            <Blob 0x22ec2 [38] @>                            Δ-38               {[-4-]|[«38""»]}
            <Blob 0x22ece [10] @>                            Δ-10               {[-4-]|[«38""»]|[«10""»]}
            <Blob 0x22eda [14] @>                            Δ-14               {[-4-]|[«38""»]|[«10""»]|[«14""»]}
            <POP 22ee6-22ee8 StackAdj>                       Δ-8                {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-8-]}
            <Lit 0x22ee8 38>                                                    {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]}
            <POP 22ef4-22ef5 StackAdj>                       Δ-4                {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]}
            <Blob 0x22ef5 [4] 0x250a8>                       Δ-4                {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[«4»]}
            <MI 22ef6  ADD.L   D6,(A7)>                                         {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-8-]}
            <Const 0x22ef8 0x8.4>                            Δ-4                {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-8-]|[##8]}
            <Call 0x22efc 0x102e8>                                              {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-8-]|[##8]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 22f02-22f04 StackAdj>                       Δ+4                {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-8-]}
            <Lit 0x22f04 10>                                                    {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]}
            <POP 22f0e-22f10 StackAdj>                       Δ-4                {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]}
            <MI 22f10  MOVE.W  (A0+D0.L+#0x2a),D1>                              {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]}
            <MI 22f14  EXTW.L  D1>                                              {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]}
            <MI 22f16  MOVE.L  D1,-(A7)>                     Δ-4                {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[4, 'D1']}
            <Const 0x22f18 0x2.4>                            Δ-4                {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[4, 'D1']|[##2]}
            <Call 0x22f1c 0x102e8>                                              {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[4, 'D1']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 22f22-22f24 StackAdj>                       Δ+4                {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[4, 'D1']}
            <Lit 0x22f24 14>                                                    {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]}
            <POP 22f30-22f32 StackAdj>                       Δ-10               {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-10-]}
            <Blob 0x22f32 [4] 0x250a8>                       Δ-4                {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-10-]|[«4»]}
            <MI 22f34  ADD.L   D6,(A7)>                                         {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-14-]}
            <Call 0x22f36 0x224a8>                                              {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-14-]}
            <POP 22f3a-22f3c StackAdj>                       Δ+4                {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-10-]}
            <MI 22f3c  MOVE.W  (A7)+,D0>                     Δ+2                {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-8-]}
            <MI 22f3e  EXTW.L  D0>                                              {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-8-]}
            <MI 22f40  MOVE.L  D0,(A7)>                                         {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-4-]|[4, 'D0']}
            <Const 0x22f42 0x2.4>                            Δ-4                {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-4-]|[4, 'D0']|[##2]}
            <Call 0x22f46 0x102e8>                                              {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-4-]|[4, 'D0']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 22f4c-22f4e StackAdj>                       Δ+8                {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-4-]}
            <Call 0x22f4e 0x102e0>                                              {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]|[$$*** Programming Failure: address = 16#]|[-4-]|[$$ wrote 16#]|[-4-]|[$$ read back 16#]|[-4-]}
                StringCat6(a, b, c, d, e, f : String) : String
            <POP 22f54-22f58 StackAdj>                       Δ+24               {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]}
            <Call 0x22f58 0x103e0>                                              {[-4-]|[«38""»]|[«10""»]|[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22f5a-22f5c StackAdj>                       Δ+66               {[-4-]}
            <Blob 0x22f5c [48] @>                            Δ-48               {[-4-]|[«48""»]}
            <POP 22f68-22f6a StackAdj>                       Δ-4                {[-4-]|[«48""»]|[-4-]}
            <Lit 0x22f6a 48>                                                    {[-4-]|[«48""»]|[$$EEPROM failed to program even after many retries]}
            <Call 0x22f78 0x103e0>                                              {[-4-]|[«48""»]|[$$EEPROM failed to program even after many retries]}
                WriteConsoleStringCrLf(str : String)
            <POP 22f7a-22f7e StackAdj>                       Δ+52               {[-4-]}
            <Blob 0x22f7e [66] @>                            Δ-66               {[-4-]|[«66""»]}
            <POP 22f8a-22f8c StackAdj>                       Δ-4                {[-4-]|[«66""»]|[-4-]}
            <Lit 0x22f8c 66>                                                    {[-4-]|[«66""»]|[$$The system may not boot properly unless you replace the IOC EEPROM]}
            <Call 0x22f98 0x103e0>                                              {[-4-]|[«66""»]|[$$The system may not boot properly unless you replace the IOC EEPROM]}
                WriteConsoleStringCrLf(str : String)
            <POP 22f9a-22f9b StackAdj>                       Δ+70       ↓       {[-4-]}
            <Blob 0x22f9b [26] @>                            Δ-26               {[-4-]|[«26""»]}
            <POP 22fac-22fae StackAdj>                       Δ-4                {[-4-]|[«26""»]|[-4-]}
            <Lit 0x22fae 25>                                                    {[-4-]|[«26""»]|[$$the error above was fatal]}
            <Call 0x22fbc 0x21194>                                              {[-4-]|[«26""»]|[$$the error above was fatal]}
            <POP 22fc0-22fc4 StackAdj>                       Δ+30               {[-4-]}
        <POP 22fc4-22fca Naked>                              Σ-4        ↓ →0x22e30 ←0x22e36 ←0x22e60 ←0x22eac
            <MI 22fc4  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 22fc6  BVC     0x22e30>                                         {[-4-]}
        <POP 22fca-22fd4 Naked>                              Σ-4 Δ+4    ↓ →0x22ffe ←0x22e30
            <POP 22fca-22fcc StackAdj>                       Δ+4                {}
            <MI 22fcc  TST.B   0x25096>                                         {}
            <MI 22fd2  BEQ     0x22ffe>                                         {}
        <POP 22fd4-22ffe Naked>                              Σ0         →0x23026
            <Blob 0x22fd4 [28] @>                            Δ-28               {[«28""»]}
            <POP 22fe6-22fe8 StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x22fe8 27>                                                    {[«28""»]|[$$EEPROM successfully updated]}
            <Call 0x22ff6 0x103e0>                                              {[«28""»]|[$$EEPROM successfully updated]}
                WriteConsoleStringCrLf(str : String)
            <POP 22ff8-22ffc StackAdj>                       Δ+32               {}
            <MI 22ffc  BRA     0x23026>                                         {}
        <POP 22ffe-23026 Naked>                              Σ0         ↓ ←0x22fca
            <Blob 0x22ffe [42] @>                            Δ-42               {[«42""»]}
            <POP 23010-23012 StackAdj>                       Δ-4                {[«42""»]|[-4-]}
            <Lit 0x23012 41>                                                    {[«42""»]|[$$EEPROM matched file, update wasn't needed]}
            <Call 0x23020 0x103e0>                                              {[«42""»]|[$$EEPROM matched file, update wasn't needed]}
                WriteConsoleStringCrLf(str : String)
            <POP 23022-23026 StackAdj>                       Δ+46               {}
        <POP 23026-2302e Epilogue>                           Σ0         ←0x22fd4

0x2302e


@ 2302e
        <LVAR -0x004 1(rw)>
        <LVAR -0x008 4(rw)>
        <LVAR -0x00c @ 4(r)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 4(rw)>
        <LVAR -0x02a 2(rw)>
        <LVAR -0x030 2(rw)>
    <POP 2302e-235ba Body>                                              
        <POP 2302e-23044 Prologue>                           Σ0         ↓
        <POP 23044-23058 RegCacheLoad>                       Σ0         ↓
        <POP 23058-23064 Naked>                              Σ0         ↓ →0x23092
            <POP 23058-2305a StackAdj>                       Δ-4                {[-4-]}
            <Call 0x2305a 0x24d8c>                                              {[-4-]}
            <MI 23060  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 23062  BEQ     0x23092>                                         {}
        <POP 23064-23066 Naked>                              Σ0         ↓
            <MI 23064  MOVEQ.L #0x00,D7>                                        {}
        <POP 23066-23090 Naked>                              Σ0         ↓ →0x23066 ←0x23066
            <POP 0x23066 LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <MI 2306c  MOVE.L  D7,D0>                                           {}
            <MI 2306e  ASL.L   #0x1,D0>                                         {}
            <POP 23070-23072 StackAdj>                       Δ-2                {[-2-]}
            <MI 23072  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <MI 23074  ADD.L   D7,(A7)>                                         {[-6-]}
            <Call 0x23076 0x224a8>                                              {[-6-]}
            <POP 2307a-2307c StackAdj>                       Δ+4                {[-2-]}
            <MI 2307c  MOVE.W  (A7)+,D1>                     Δ+2                {}
            <POP 0x2307e LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {}
            <MI 23082  MOVE.W  D1,(A6+D0.L-#0x48)>                              {}
            <MI 23086  ADDQ.L  #0x1,D7>                                         {}
            <MI 23088  CMPI.L  #0x00000005,D7>                                  {}
            <MI 2308e  BLE     0x23066>                                         {}
        <POP 23090-23092 Naked>                              Σ0         →0x230ac
            <MI 23090  BRA     0x230ac>                                         {}
        <POP 23092-23094 Naked>                              Σ0         ↓ ←0x23058
            <MI 23092  MOVEQ.L #0x00,D7>                                        {}
        <POP 23094-230ac Naked>                              Σ0         ↓ →0x23094 ←0x23094
            <POP 0x23094 LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <MI 2309a  MOVE.L  D7,D0>                                           {}
            <MI 2309c  ASL.L   #0x1,D0>                                         {}
            <MI 2309e  CLR.W   (A6+D0.L-#0x48)>                                 {}
            <MI 230a2  ADDQ.L  #0x1,D7>                                         {}
            <MI 230a4  CMPI.L  #0x00000005,D7>                                  {}
            <MI 230aa  BLE     0x23094>                                         {}
        <POP 230ac-230b8 Naked>                              Σ0         ↓ →0x230e2 ←0x23090
            <POP 230ac-230ae StackAdj>                       Δ-4                {[-4-]}
            <Call 0x230ae 0x24db6>                                              {[-4-]}
            <MI 230b4  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 230b6  BEQ     0x230e2>                                         {}
        <POP 230b8-230ba Naked>                              Σ0         ↓
            <MI 230b8  MOVEQ.L #0x00,D7>                                        {}
        <POP 230ba-230e0 Naked>                              Σ0         ↓ →0x230ba ←0x230ba
            <POP 0x230ba LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <MI 230c0  MOVE.L  D7,D0>                                           {}
            <MI 230c2  ASL.L   #0x1,D0>                                         {}
            <POP 230c4-230c6 StackAdj>                       Δ-2                {[-2-]}
            <MI 230c6  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <MI 230c8  ADD.L   D7,(A7)>                                         {[-6-]}
            <Call 0x230ca 0x224a8>                                              {[-6-]}
            <POP 230ce-230d0 StackAdj>                       Δ+4                {[-2-]}
            <MI 230d0  MOVE.W  (A7)+,D1>                     Δ+2                {}
            <POP 0x230d2 LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {}
            <MI 230d6  MOVE.W  D1,(A6+D0.L-#0x38)>                              {}
            <MI 230da  ADDQ.L  #0x1,D7>                                         {}
            <MI 230dc  CMP.L   #0x07,D7>                                        {}
            <MI 230de  BLE     0x230ba>                                         {}
        <POP 230e0-230e2 Naked>                              Σ0         →0x230f8
            <MI 230e0  BRA     0x230f8>                                         {}
        <POP 230e2-230e4 Naked>                              Σ0         ↓ ←0x230ac
            <MI 230e2  MOVEQ.L #0x00,D7>                                        {}
        <POP 230e4-230f8 Naked>                              Σ0         ↓ →0x230e4 ←0x230e4
            <POP 0x230e4 LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <MI 230ea  MOVE.L  D7,D0>                                           {}
            <MI 230ec  ASL.L   #0x1,D0>                                         {}
            <MI 230ee  CLR.W   (A6+D0.L-#0x38)>                                 {}
            <MI 230f2  ADDQ.L  #0x1,D7>                                         {}
            <MI 230f4  CMP.L   #0x07,D7>                                        {}
            <MI 230f6  BLE     0x230e4>                                         {}
        <POP 230f8-23104 Naked>                              Σ0         ↓ →0x2312e ←0x230e0
            <POP 230f8-230fa StackAdj>                       Δ-4                {[-4-]}
            <Call 0x230fa 0x24de0>                                              {[-4-]}
            <MI 23100  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 23102  BEQ     0x2312e>                                         {}
        <POP 23104-23106 Naked>                              Σ0         ↓
            <MI 23104  MOVEQ.L #0x00,D7>                                        {}
        <POP 23106-2312c Naked>                              Σ0         ↓ →0x23106 ←0x23106
            <POP 0x23106 LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <MI 2310c  MOVE.L  D7,D0>                                           {}
            <MI 2310e  ASL.L   #0x1,D0>                                         {}
            <POP 23110-23112 StackAdj>                       Δ-2                {[-2-]}
            <MI 23112  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <MI 23114  ADD.L   D7,(A7)>                                         {[-6-]}
            <Call 0x23116 0x224a8>                                              {[-6-]}
            <POP 2311a-2311c StackAdj>                       Δ+4                {[-2-]}
            <MI 2311c  MOVE.W  (A7)+,D1>                     Δ+2                {}
            <POP 0x2311e LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {}
            <MI 23122  MOVE.W  D1,(A6+D0.L-#0x28)>                              {}
            <MI 23126  ADDQ.L  #0x1,D7>                                         {}
            <MI 23128  CMP.L   #0x07,D7>                                        {}
            <MI 2312a  BLE     0x23106>                                         {}
        <POP 2312c-2312e Naked>                              Σ0         →0x23144
            <MI 2312c  BRA     0x23144>                                         {}
        <POP 2312e-23130 Naked>                              Σ0         ↓ ←0x230f8
            <MI 2312e  MOVEQ.L #0x00,D7>                                        {}
        <POP 23130-23144 Naked>                              Σ0         ↓ →0x23130 ←0x23130
            <POP 0x23130 LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <MI 23136  MOVE.L  D7,D0>                                           {}
            <MI 23138  ASL.L   #0x1,D0>                                         {}
            <MI 2313a  CLR.W   (A6+D0.L-#0x28)>                                 {}
            <MI 2313e  ADDQ.L  #0x1,D7>                                         {}
            <MI 23140  CMP.L   #0x07,D7>                                        {}
            <MI 23142  BLE     0x23130>                                         {}
        <POP 23144-23148 Naked>                              Σ0 Δ-4     ↓ ←0x2312c
            <Blob 0x23144 [4] 0x250ac>                       Δ-4                {[«4»]}
            <MI 23146  MOVEQ.L #0x00,D7>                                        {[«4»]}
        <POP 23148-2314c Naked>                              Σ-4        ↓ →0x23172 ←0x2314c
            <MI 23148  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 2314a  BGT     0x23172>                                         {[-4-]}
        <POP 2314c-23172 Naked>                              Σ-4        ↓ →0x23148
            <Blob 0x2314c [4] 0x250a8>                       Δ-4                {[-4-]|[«4»]}
            <MI 2314e  ADD.L   D7,(A7)>                                         {[-8-]}
            <POP 0x23150 LimitCheck 0x0 ≤ D7 ≤ 0x1fff>                          {[-8-]}
            <MI 2315a  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 2315c  ASL.L   #0x1,D0>                                         {[-8-]}
            <MI 2315e  LEA.L   0x25088,A0>                                      {[-8-]}
            <MI 23164  MOVE.W  (A0+D0.L+#0x2a),-(A7)>        Δ-2                {[-8-]|[2, '(A0+D0.L+#0x2a)']}
            <Call 0x23168 0x2254c>                                              {[-8-]|[2, '(A0+D0.L+#0x2a)']}
            <POP 2316c-2316e StackAdj>                       Δ+6                {[-4-]}
            <MI 2316e  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 23170  BVC     0x23148>                                         {[-4-]}
        <POP 23172-2317e Naked>                              Σ-4 Δ+4    ↓ →0x231b0 ←0x23148
            <Call 0x23172 0x24d8c>                                              {[-4-]}
            <MI 23178  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 2317a  CMP.L   0x250a8,D6>                                      {}
            <MI 2317c  BCS     0x231b0>                                         {}
        <POP 2317e-23186 Naked>                              Σ0         ↓ →0x231b0
            <MI 2317e  MOVE.L  0x250a8,D0>                                      {}
            <MI 23180  ADD.L   0x250ac,D0>                                      {}
            <MI 23182  CMP.L   D0,D6>                                           {}
            <MI 23184  BHI     0x231b0>                                         {}
        <POP 23186-23188 Naked>                              Σ0         ↓
            <MI 23186  MOVEQ.L #0x00,D7>                                        {}
        <POP 23188-231b0 Naked>                              Σ0         ↓ →0x23188 ←0x23188
            <MI 23188  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']}
            <MI 2318a  ADD.L   D7,(A7)>                                         {[-4-]}
            <POP 0x2318c LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {[-4-]}
            <MI 23192  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 23194  ASL.L   #0x1,D0>                                         {[-4-]}
            <MI 23196  MOVE.W  (A6+D0.L-#0x48),D0>                              {[-4-]}
            <POP 0x2319a LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-4-]}
            <MI 2319e  MOVE.W  D0,-(A7)>                     Δ-2                {[-4-]|[2, 'D0']}
            <Call 0x231a0 0x2254c>                                              {[-4-]|[2, 'D0']}
            <POP 231a4-231a6 StackAdj>                       Δ+6                {}
            <MI 231a6  ADDQ.L  #0x1,D7>                                         {}
            <MI 231a8  CMPI.L  #0x00000005,D7>                                  {}
            <MI 231ae  BLE     0x23188>                                         {}
        <POP 231b0-231be Naked>                              Σ0         ↓ →0x231ec ←0x23172 ←0x2317e
            <POP 231b0-231b2 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x231b2 0x24de0>                                              {[-4-]}
            <MI 231b8  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 231ba  CMP.L   0x250a8,D6>                                      {}
            <MI 231bc  BCS     0x231ec>                                         {}
        <POP 231be-231c6 Naked>                              Σ0         ↓ →0x231ec
            <MI 231be  MOVE.L  0x250a8,D0>                                      {}
            <MI 231c0  ADD.L   0x250ac,D0>                                      {}
            <MI 231c2  CMP.L   D0,D6>                                           {}
            <MI 231c4  BHI     0x231ec>                                         {}
        <POP 231c6-231c8 Naked>                              Σ0         ↓
            <MI 231c6  MOVEQ.L #0x00,D7>                                        {}
        <POP 231c8-231ec Naked>                              Σ0         ↓ →0x231c8 ←0x231c8
            <MI 231c8  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']}
            <MI 231ca  ADD.L   D7,(A7)>                                         {[-4-]}
            <POP 0x231cc LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {[-4-]}
            <MI 231d2  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 231d4  ASL.L   #0x1,D0>                                         {[-4-]}
            <MI 231d6  MOVE.W  (A6+D0.L-#0x28),D0>                              {[-4-]}
            <POP 0x231da LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-4-]}
            <MI 231de  MOVE.W  D0,-(A7)>                     Δ-2                {[-4-]|[2, 'D0']}
            <Call 0x231e0 0x2254c>                                              {[-4-]|[2, 'D0']}
            <POP 231e4-231e6 StackAdj>                       Δ+6                {}
            <MI 231e6  ADDQ.L  #0x1,D7>                                         {}
            <MI 231e8  CMP.L   #0x07,D7>                                        {}
            <MI 231ea  BLE     0x231c8>                                         {}
        <POP 231ec-231fa Naked>                              Σ0         ↓ →0x23254 ←0x231b0 ←0x231be
            <POP 231ec-231ee StackAdj>                       Δ-4                {[-4-]}
            <Call 0x231ee 0x24db6>                                              {[-4-]}
            <MI 231f4  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 231f6  CMP.L   0x250a8,D6>                                      {}
            <MI 231f8  BCS     0x23254>                                         {}
        <POP 231fa-23202 Naked>                              Σ0         ↓ →0x23254
            <MI 231fa  MOVE.L  0x250a8,D0>                                      {}
            <MI 231fc  ADD.L   0x250ac,D0>                                      {}
            <MI 231fe  CMP.L   D0,D6>                                           {}
            <MI 23200  BHI     0x23254>                                         {}
        <POP 23202-2320a Naked>                              Σ0         ↓ →0x2322e
            <MI 23202  TST.W   0x290c2>                                         {}
            <MI 23208  BLE     0x2322e>                                         {}
        <POP 2320a-2322e Naked>                              Σ0         ↓
            <MI 2320a  MOVE.W  (A6-0x2a),D0>                                    {}
            <MI 2320e  ADD.W   (A6-0x30),D0>                                    {}
            <MI 23212  SUB.W   0x290c2,D0>                                      {}
            <MI 23218  ANDI.W  #0x00ff,D0>                                      {}
            <MI 2321c  MOVE.W  D0,(A6-0x2a)>                                    {}
            <MI 23220  MOVE.W  0x290c2,D0>                                      {}
            <POP 0x23226 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 2322a  MOVE.W  D0,(A6-0x30)>                                    {}
        <POP 2322e-23230 Naked>                              Σ0         ↓ ←0x23202
            <MI 2322e  MOVEQ.L #0x00,D7>                                        {}
        <POP 23230-23254 Naked>                              Σ0         ↓ →0x23230 ←0x23230
            <MI 23230  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D6']}
            <MI 23232  ADD.L   D7,(A7)>                                         {[-4-]}
            <POP 0x23234 LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {[-4-]}
            <MI 2323a  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 2323c  ASL.L   #0x1,D0>                                         {[-4-]}
            <MI 2323e  MOVE.W  (A6+D0.L-#0x38),D0>                              {[-4-]}
            <POP 0x23242 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-4-]}
            <MI 23246  MOVE.W  D0,-(A7)>                     Δ-2                {[-4-]|[2, 'D0']}
            <Call 0x23248 0x2254c>                                              {[-4-]|[2, 'D0']}
            <POP 2324c-2324e StackAdj>                       Δ+6                {}
            <MI 2324e  ADDQ.L  #0x1,D7>                                         {}
            <MI 23250  CMP.L   #0x07,D7>                                        {}
            <MI 23252  BLE     0x23230>                                         {}
        <POP 23254-2325c Naked>                              Σ0 Δ-4     ↓ ←0x231ec ←0x231fa
            <MI 23254  MOVEQ.L #0x00,D5>                                        {}
            <Blob 0x23256 [4] 0x250ac>                       Δ-4                {[«4»]}
            <MI 23258  SUBQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 2325a  MOVEQ.L #0x00,D7>                                        {[-4-]}
        <POP 2325c-23260 Naked>                              Σ-4        ↓ →0x23286 ←0x23260
            <MI 2325c  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 2325e  BGT     0x23286>                                         {[-4-]}
        <POP 23260-23286 Naked>                              Σ-4        ↓ →0x2325c
            <POP 23260-23262 StackAdj>                       Δ-2                {[-6-]}
            <Blob 0x23262 [4] 0x250a8>                       Δ-4                {[-6-]|[«4»]}
            <MI 23264  ADD.L   D7,(A7)>                                         {[-10-]}
            <Call 0x23266 0x224a8>                                              {[-10-]}
            <POP 2326a-2326c StackAdj>                       Δ+4                {[-6-]}
            <MI 2326c  MOVE.W  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 2326e  EXTW.L  D0>                                              {[-4-]}
            <MI 23270  ADD.L   D0,D5>                                           {[-4-]}
            <MI 23272  MOVE.L  D5,D4>                                           {[-4-]}
            <MI 23274  MOVE.L  #0x100,D3>                                       {[-4-]}
            <Call 0x2327a 0x10294>                                              {[-4-]}
                ?divs_d3_d4
            <MI 23280  MOVE.L  D3,D5>                                           {[-4-]}
            <MI 23282  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 23284  BVC     0x2325c>                                         {[-4-]}
        <POP 23286-232b4 Naked>                              Σ-4 Δ+4    ↓ ←0x2325c
            <POP 23286-23288 StackAdj>                       Δ+4                {}
            <MI 23288  MOVE.L  0x250a8,D0>                                      {}
            <MI 2328a  ADD.L   0x250ac,D0>                                      {}
            <MI 2328c  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 2328e  MOVE.L  #0x1aa,D0>                                       {[4, 'D0']}
            <MI 23294  SUB.L   D5,D0>                                           {[4, 'D0']}
            <MI 23296  MOVE.L  D0,D4>                                           {[4, 'D0']}
            <MI 23298  MOVE.L  #0x100,D3>                                       {[4, 'D0']}
            <Call 0x2329e 0x10294>                                              {[4, 'D0']}
                ?divs_d3_d4
            <MI 232a4  MOVE.W  D3,-(A7)>                     Δ-2                {[4, 'D0']|[2, 'D3']}
            <Call 0x232a6 0x2254c>                                              {[4, 'D0']|[2, 'D3']}
            <POP 232aa-232ac StackAdj>                       Δ+6                {}
            <MI 232ac  CLR.L   (A6-0x14)>                                       {}
            <MI 232b0  CLR.L   (A6-0x10)>                                       {}
        <POP 232b4-232c0 Naked>                              Σ0         ↓ →0x232c4 ←0x234ca
            <MI 232b4  CLR.B   (A6-0x4)>                                        {}
            <MI 232b8  MOVE.L  (A6-0x14),D0>                                    {}
            <MI 232bc  CMP.L   #0x07,D0>                                        {}
            <MI 232be  BLE     0x232c4>                                         {}
        <POP 232c0-232c4 Naked>                              Σ0         ↓
            <MI 232c0  ADDQ.B  #0x1,(A6-0x4)>                                   {}
        <POP 232c4-232e4 Naked>                              Σ0         ↓ →0x2332c ←0x232b4
            <MI 232c4  MOVE.W  0x250b0,D0>                                      {}
            <MI 232ca  SUBI.W  #0x0050,D0>                                      {}
            <MI 232ce  EXTW.L  D0>                                              {}
            <MI 232d0  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <Pointer.fp 0x232d2 <LVAR -0x00c @ 4(r)>>        Δ-4                {[4, 'D0']|[@@-12]}
            <Call 0x232d6 0x24e32>                                              {[4, 'D0']|[@@-12]}
            <POP 232dc-232de StackAdj>                       Δ+8                {}
            <MI 232de  TST.L   (A6-0xc)>                                        {}
            <MI 232e2  BEQ     0x2332c>                                         {}
        <POP 232e4-232ea Naked>                              Σ0         ↓ →0x2332c
            <MI 232e4  TST.B   (A6-0x4)>                                        {}
            <MI 232e8  BEQ     0x2332c>                                         {}
        <POP 232ea-2332c Naked>                              Σ0         ↓
            <Blob 0x232ea [26] @>                            Δ-26               {[«26""»]}
            <POP 232fc-232fe StackAdj>                       Δ-8                {[«26""»]|[-8-]}
            <Lit 0x232fe 25>                                                    {[«26""»]|[-4-]|[$$Warning from REE_UPLOAD:_]}
            <MI 2330c  MOVE.L  (A6-0xc),(A7)>                                   {[«26""»]|[-4-]|[4, '(A6-0xc)']}
            <POP 2330a-2330c StackAdj>                       Δ-8                {[«26""»]|[-4-]|[4, '(A6-0xc)']|[-8-]}
            <Call 0x23310 0x2101a>                                              {[«26""»]|[-4-]|[4, '(A6-0xc)']|[-8-]}
            <POP 23314-23316 StackAdj>                       Δ+4                {[«26""»]|[-4-]|[4, '(A6-0xc)']|[-4-]}
            <Call 0x23316 0x102d0>                                              {[«26""»]|[-4-]|[4, '(A6-0xc)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2331c-2331e StackAdj>                       Δ+8                {[«26""»]|[-4-]}
            <Call 0x2331e 0x103e0>                                              {[«26""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 23324-23328 StackAdj>                       Δ+30               {}
            <MI 23328  ADDQ.L  #0x1,(A6-0x10)>                                  {}
        <POP 2332c-2332e Naked>                              Σ0         ↓ ←0x232c4 ←0x232e4
            <MI 2332c  MOVEQ.L #0x00,D7>                                        {}
        <POP 2332e-23362 Naked>                              Σ0         ↓ →0x2332e ←0x2332e
            <POP 0x2332e LimitCheck 0x0 ≤ D7 ≤ 0x1fff>                          {}
            <MI 23338  MOVE.L  D7,D0>                                           {}
            <MI 2333a  ASL.L   #0x1,D0>                                         {}
            <MI 2333c  LEA.L   0x25088,A0>                                      {}
            <POP 23342-23344 StackAdj>                       Δ-2                {[-2-]}
            <Blob 0x23344 [4] 0x250a8>                       Δ-4                {[-2-]|[«4»]}
            <MI 23346  ADD.L   D7,(A7)>                                         {[-6-]}
            <Call 0x23348 0x224a8>                                              {[-6-]}
            <POP 2334c-2334e StackAdj>                       Δ+4                {[-2-]}
            <MI 2334e  MOVE.W  (A7)+,D1>                     Δ+2                {}
            <POP 0x23350 LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {}
            <MI 23354  MOVE.W  D1,(A0+D0.L+#0x2a)>                              {}
            <MI 23358  ADDQ.L  #0x1,D7>                                         {}
            <MI 2335a  CMPI.L  #0x00001fff,D7>                                  {}
            <MI 23360  BLE     0x2332e>                                         {}
        <POP 23362-23382 Naked>                              Σ0         ↓ →0x233ca
            <MI 23362  MOVE.W  0x250b0,D0>                                      {}
            <MI 23368  SUBI.W  #0x0050,D0>                                      {}
            <MI 2336c  EXTW.L  D0>                                              {}
            <MI 2336e  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <Pointer.fp 0x23370 <LVAR -0x00c @ 4(r)>>        Δ-4                {[4, 'D0']|[@@-12]}
            <Call 0x23374 0x24e0a>                                              {[4, 'D0']|[@@-12]}
            <POP 2337a-2337c StackAdj>                       Δ+8                {}
            <MI 2337c  TST.L   (A6-0xc)>                                        {}
            <MI 23380  BEQ     0x233ca>                                         {}
        <POP 23382-2338e Naked>                              Σ0         ↓ →0x233ca
            <MI 23382  MOVE.L  (A6-0xc),D0>                                     {}
            <MI 23386  CMPI.L  #0x00000002,D0>                                  {}
            <MI 2338c  BEQ     0x233ca>                                         {}
        <POP 2338e-233ca Naked>                              Σ0         ↓
            <Blob 0x2338e [26] @>                            Δ-26               {[«26""»]}
            <POP 233a0-233a2 StackAdj>                       Δ-8                {[«26""»]|[-8-]}
            <Lit 0x233a2 25>                                                    {[«26""»]|[-4-]|[$$error from REE_DOWNLOAD:_]}
            <MI 233b0  MOVE.L  (A6-0xc),(A7)>                                   {[«26""»]|[-4-]|[4, '(A6-0xc)']}
            <POP 233ae-233b0 StackAdj>                       Δ-8                {[«26""»]|[-4-]|[4, '(A6-0xc)']|[-8-]}
            <Call 0x233b4 0x2101a>                                              {[«26""»]|[-4-]|[4, '(A6-0xc)']|[-8-]}
            <POP 233b8-233ba StackAdj>                       Δ+4                {[«26""»]|[-4-]|[4, '(A6-0xc)']|[-4-]}
            <Call 0x233ba 0x102d0>                                              {[«26""»]|[-4-]|[4, '(A6-0xc)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 233c0-233c2 StackAdj>                       Δ+8                {[«26""»]|[-4-]}
            <Call 0x233c2 0x21194>                                              {[«26""»]|[-4-]}
            <POP 233c6-233ca StackAdj>                       Δ+30               {}
        <POP 233ca-233d2 Naked>                              Σ0 Δ-4     ↓ ←0x23362 ←0x23382
            <MI 233ca  CLR.L   (A6-0x8)>                                        {}
            <Blob 0x233ce [4] 0x250ac>                       Δ-4                {[«4»]}
            <MI 233d0  MOVEQ.L #0x00,D7>                                        {[«4»]}
        <POP 233d2-233d6 Naked>                              Σ-4        ↓ →0x2340e ←0x2340a
            <MI 233d2  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 233d4  BGT     0x2340e>                                         {[-4-]}
        <POP 233d6-233fe Naked>                              Σ-4        ↓ →0x2340a
            <POP 233d6-233d8 StackAdj>                       Δ-2                {[-6-]}
            <Blob 0x233d8 [4] 0x250a8>                       Δ-4                {[-6-]|[«4»]}
            <MI 233da  ADD.L   D7,(A7)>                                         {[-10-]}
            <Call 0x233dc 0x224a8>                                              {[-10-]}
            <POP 233e0-233e2 StackAdj>                       Δ+4                {[-6-]}
            <POP 0x233e2 LimitCheck 0x0 ≤ D7 ≤ 0x1fff>                          {[-6-]}
            <MI 233ec  MOVE.L  D7,D0>                                           {[-6-]}
            <MI 233ee  ASL.L   #0x1,D0>                                         {[-6-]}
            <MI 233f0  LEA.L   0x25088,A0>                                      {[-6-]}
            <MI 233f6  MOVE.W  (A7)+,D1>                     Δ+2                {[-4-]}
            <MI 233f8  CMP.W   (A0+D0.L+#0x2a),D1>                              {[-4-]}
            <MI 233fc  BEQ     0x2340a>                                         {[-4-]}
        <POP 233fe-23406 Naked>                              Σ-4        ↓ →0x2340a
            <MI 233fe  MOVE.L  0x250ac,D0>                                      {[-4-]}
            <MI 23400  SUBQ.L  #0x5,D0>                                         {[-4-]}
            <MI 23402  CMP.L   D0,D7>                                           {[-4-]}
            <MI 23404  BEQ     0x2340a>                                         {[-4-]}
        <POP 23406-2340a Naked>                              Σ-4        ↓
            <MI 23406  ADDQ.L  #0x1,(A6-0x8)>                                   {[-4-]}
        <POP 2340a-2340e Naked>                              Σ-4        ↓ →0x233d2 ←0x233d6 ←0x233fe
            <MI 2340a  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 2340c  BVC     0x233d2>                                         {[-4-]}
        <POP 2340e-23418 Naked>                              Σ-4 Δ+4    ↓ →0x2354e ←0x233d2
            <POP 2340e-23410 StackAdj>                       Δ+4                {}
            <MI 23410  TST.L   (A6-0x8)>                                        {}
            <MI 23414  BLE     0x2354e>                                         {}
        <POP 23418-2341a Naked>                              Σ0         ↓
            <MI 23418  MOVEQ.L #0x00,D7>                                        {}
        <POP 2341a-23446 Naked>                              Σ0         ↓ →0x2341a ←0x2341a
            <Blob 0x2341a [4] 0x250a8>                       Δ-4                {[«4»]}
            <MI 2341c  ADD.L   D7,(A7)>                                         {[-4-]}
            <POP 0x2341e LimitCheck 0x0 ≤ D7 ≤ 0x1fff>                          {[-4-]}
            <MI 23428  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 2342a  ASL.L   #0x1,D0>                                         {[-4-]}
            <MI 2342c  LEA.L   0x25088,A0>                                      {[-4-]}
            <MI 23432  MOVE.W  (A0+D0.L+#0x2a),-(A7)>        Δ-2                {[-4-]|[2, '(A0+D0.L+#0x2a)']}
            <Call 0x23436 0x2254c>                                              {[-4-]|[2, '(A0+D0.L+#0x2a)']}
            <POP 2343a-2343c StackAdj>                       Δ+6                {}
            <MI 2343c  ADDQ.L  #0x1,D7>                                         {}
            <MI 2343e  CMPI.L  #0x00001fff,D7>                                  {}
            <MI 23444  BLE     0x2341a>                                         {}
        <POP 23446-2344c Naked>                              Σ0         ↓ →0x234ae
            <MI 23446  TST.B   (A6-0x4)>                                        {}
            <MI 2344a  BEQ     0x234ae>                                         {}
        <POP 2344c-234ae Naked>                              Σ0         →0x234ba
            <Blob 0x2344c [10] @>                            Δ-10               {[«10""»]}
            <Blob 0x2345e [42] @>                            Δ-42               {[«10""»]|[«42""»]}
            <POP 2346a-2346c StackAdj>                       Δ-8                {[«10""»]|[«42""»]|[-8-]}
            <Lit 0x2346c 9>                                                     {[«10""»]|[«42""»]|[-4-]|[$$Warning:_]}
            <MI 2347a  MOVE.L  (A6-0x8),(A7)>                                   {[«10""»]|[«42""»]|[-4-]|[4, '(A6-0x8)']}
            <POP 23478-2347a StackAdj>                       Δ-8                {[«10""»]|[«42""»]|[-4-]|[4, '(A6-0x8)']|[-8-]}
            <Call 0x2347e 0x102e4>                                              {[«10""»]|[«42""»]|[-4-]|[4, '(A6-0x8)']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x23484 42>                                                    {[«10""»]|[«42""»]|[-4-]|[4, '(A6-0x8)']|[-4-]|[$$ bytes were incorrectly written - retrying]}
            <Call 0x23494 0x102d4>                                              {[«10""»]|[«42""»]|[-4-]|[4, '(A6-0x8)']|[-4-]|[$$ bytes were incorrectly written - retrying]}
                StringCat3(a, b, c : String) : String
            <POP 2349a-2349e StackAdj>                       Δ+12               {[«10""»]|[«42""»]|[-4-]}
            <Call 0x2349e 0x103e0>                                              {[«10""»]|[«42""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 234a4-234a8 StackAdj>                       Δ+56               {}
            <MI 234a8  ADDQ.L  #0x1,(A6-0x10)>                                  {}
            <MI 234ac  BRA     0x234ba>                                         {}
        <POP 234ae-234ba Naked>                              Σ0         ↓ ←0x23446
            <Const 0x234ae 0x2e.2>                           Δ-2                {[#46]}
            <Call 0x234b2 0x103d0>                                              {[#46]}
                WriteConsoleChar(chr : char)
            <POP 234b8-234ba StackAdj>                       Δ+2                {}
        <POP 234ba-234ca Naked>                              Σ0         ↓ →0x234ce ←0x2344c
            <MI 234ba  ADDQ.L  #0x1,(A6-0x14)>                                  {}
            <MI 234be  MOVE.L  (A6-0x14),D0>                                    {}
            <MI 234c2  CMPI.L  #0x0000000f,D0>                                  {}
            <MI 234c8  BGE     0x234ce>                                         {}
        <POP 234ca-234ce Naked>                              Σ0         →0x232b4
            <MI 234ca  BRA     0x232b4>                                         {}
        <POP 234ce-2354e Naked>                              Σ0         →0x235b2 ←0x234ba
            <Blob 0x234ce [48] @>                            Δ-48               {[«48""»]}
            <POP 234e0-234e2 StackAdj>                       Δ-4                {[«48""»]|[-4-]}
            <Lit 0x234e2 47>                                                    {[«48""»]|[$$*** ERROR: program EEPROM failed too many times]}
            <Call 0x234f2 0x103e0>                                              {[«48""»]|[$$*** ERROR: program EEPROM failed too many times]}
                WriteConsoleStringCrLf(str : String)
            <POP 234f8-234fc StackAdj>                       Δ+52               {}
            <Blob 0x234fc [68] @>                            Δ-68               {[«68""»]}
            <POP 23508-2350a StackAdj>                       Δ-4                {[«68""»]|[-4-]}
            <Lit 0x2350a 68>                                                    {[«68""»]|[$$The system may not boot properly unless you replace the RESHA EEPROM]}
            <Call 0x2351a 0x103e0>                                              {[«68""»]|[$$The system may not boot properly unless you replace the RESHA EEPROM]}
                WriteConsoleStringCrLf(str : String)
            <POP 23520-23521 StackAdj>                       Δ+72       ↓       {}
            <Blob 0x23521 [26] @>                            Δ-26               {[«26""»]}
            <POP 23532-23534 StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x23534 25>                                                    {[«26""»]|[$$the error above was fatal]}
            <Call 0x23544 0x21194>                                              {[«26""»]|[$$the error above was fatal]}
            <POP 23548-2354c StackAdj>                       Δ+30               {}
            <MI 2354c  BRA     0x235b2>                                         {}
        <POP 2354e-23582 Naked>                              Σ0         ↓ →0x2358a ←0x2340e
            <Blob 0x2354e [28] @>                            Δ-28               {[«28""»]}
            <POP 23560-23562 StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x23562 27>                                                    {[«28""»]|[$$EEPROM successfully updated]}
            <Call 0x23572 0x103d8>                                              {[«28""»]|[$$EEPROM successfully updated]}
                WriteConsoleString(str : String)
            <POP 23578-2357c StackAdj>                       Δ+32               {}
            <MI 2357c  TST.L   (A6-0x10)>                                       {}
            <MI 23580  BNE     0x2358a>                                         {}
        <POP 23582-2358a Naked>                              Σ0         →0x235b2
            <Call 0x23582 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <MI 23588  BRA     0x235b2>                                         {}
        <POP 2358a-235b2 Naked>                              Σ0         ↓ ←0x2354e
            <Blob 0x2358a [40] @>                            Δ-40               {[«40""»]}
            <POP 23596-23598 StackAdj>                       Δ-4                {[«40""»]|[-4-]}
            <Lit 0x23598 40>                                                    {[«40""»]|[$$ and verified, ignore the warnings above]}
            <Call 0x235a8 0x103e0>                                              {[«40""»]|[$$ and verified, ignore the warnings above]}
                WriteConsoleStringCrLf(str : String)
            <POP 235ae-235b2 StackAdj>                       Δ+44               {}
        <POP 235b2-235ba Epilogue>                           Σ0         ←0x234ce ←0x23582

0x235ba


@ 235ba
        <LVAR  0x008 1(r)>
    <POP 235ba-2369c Body>                                              
        <POP 235ba-235d0 Prologue>                           Σ0         ↓
        <POP 235d0-235d8 RegCacheLoad>                       Σ0         ↓
        <POP 235d8-235e4 Naked>                              Σ0         ↓ →0x235f2
            <POP 235d8-235da StackAdj>                       Δ-2                {[-2-]}
            <Call 0x235da 0x1060a>                                              {[-2-]}
                Is_fc07_four() : Bool
            <MI 235e0  TST.B   (A7)+>                        Δ+2                {}
            <MI 235e2  BNE     0x235f2>                                         {}
        <POP 235e4-235f2 Naked>                              Σ0         ↓ →0x23694
            <POP 235e4-235e6 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x235e6 0x10604>                                              {[-2-]}
                Is_fc07_three() : Bool
            <MI 235ec  TST.B   (A7)+>                        Δ+2                {}
            <MI 235ee  BEQ     0x23694>                                         {}
        <POP 235f2-235f8 Naked>                              Σ0         ↓ →0x23620 ←0x235d8
            <MI 235f2  TST.B   (A6+0x8)>                                        {}
            <MI 235f6  BEQ     0x23620>                                         {}
        <POP 235f8-23620 Naked>                              Σ0         →0x2364c
            <Blob 0x235f8 [44] @>                            Δ-44               {[«44""»]}
            <POP 23604-23606 StackAdj>                       Δ-4                {[«44""»]|[-4-]}
            <Lit 0x23606 44>                                                    {[«44""»]|[$$turn the EEPROM WRITE PROTECT switch ON (up)]}
            <Call 0x23614 0x103d8>                                              {[«44""»]|[$$turn the EEPROM WRITE PROTECT switch ON (up)]}
                WriteConsoleString(str : String)
            <POP 2361a-2361e StackAdj>                       Δ+48               {}
            <MI 2361e  BRA     0x2364c>                                         {}
        <POP 23620-2364c Naked>                              Σ0         ↓ ←0x235f2
            <Blob 0x23620 [74] @>                            Δ-74               {[«74""»]}
            <POP 23632-23634 StackAdj>                       Δ-4                {[«74""»]|[-4-]}
            <Lit 0x23634 73>                                                    {[«74""»]|[$$turn the EEPROM WRITE PROTECT switch (at front of RESHA board) OFF (down)]}
            <Call 0x23642 0x103d8>                                              {[«74""»]|[$$turn the EEPROM WRITE PROTECT switch (at front of RESHA board) OFF (down)]}
                WriteConsoleString(str : String)
            <POP 23648-2364c StackAdj>                       Δ+78               {}
        <POP 2364c-2365c Naked>                              Σ0         ↓ →0x2365e ←0x235f8 ←0x2365c
            <POP 2364c-2364e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2364e 0x24d62>                                              {[-2-]}
            <MI 23654  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 23656  CMP.B   (A6+0x8),D0>                                     {}
            <MI 2365a  BEQ     0x2365e>                                         {}
        <POP 2365c-2365e Naked>                              Σ0         →0x2364c
            <MI 2365c  BRA     0x2364c>                                         {}
        <POP 2365e-23694 Naked>                              Σ0         ↓ ←0x2364c
            <Blob 0x2365e [6] @>                             Δ-6                {[«6""»]}
            <POP 2366e-23670 StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <Lit 0x23670 5>                                                     {[«6""»]|[$$ - OK]}
            <Call 0x2367e 0x103e0>                                              {[«6""»]|[$$ - OK]}
                WriteConsoleStringCrLf(str : String)
            <POP 23684-23686 StackAdj>                       Δ+6                {[-4-]}
            <POP 23686-23687 StackAdj>                       Δ+4                {}
            <Const 0x23687 0x9896.4>                         Δ-4                {[##39062]}
            <Call 0x2368c 0x10224>                                              {[##39062]}
                KC12_Sleep(dur: Long)
            <POP 23692-23694 StackAdj>                       Δ+4                {}
        <POP 23694-2369c Epilogue>                           Σ0         ←0x235e4

0x2369c


@ 2369c
        <LVAR -0x008 @ 4(r)>
    <POP 2369c-23758 Body>                                              
        <POP 2369c-236b2 Prologue>                           Σ0         ↓
        <POP 236b2-236b6 RegCacheLoad>                       Σ0         ↓
        <POP 236b6-236d0 Naked>                              Σ0         ↓ →0x236ee
            <Call 0x236b6 0x2288a>                                              {}
            <Pointer.fp 0x236ba <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x236be 0x22990>                                              {[@@-8]}
            <POP 236c2-236c4 StackAdj>                       Δ+4                {}
            <MI 236c4  MOVE.W  0x250b0,D0>                                      {}
            <MI 236ca  CMPI.W  #0x0050,D0>                                      {}
            <MI 236ce  BGE     0x236ee>                                         {}
        <POP 236d0-236ee Naked>                              Σ0         →0x236f0
            <MI 236d0  MOVE.L  (A6-0x8),D4>                                     {}
            <MI 236d4  MOVEQ.L #0x0c,D3>                                        {}
            <Call 0x236d6 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 236dc  MOVE.L  #0x3e8,D3>                                       {}
            <Call 0x236e2 0x10294>                                              {}
                ?divs_d3_d4
            <MI 236e8  ADDQ.L  #0x1,D4>                                         {}
            <MI 236ea  MOVE.L  D4,D7>                                           {}
            <MI 236ec  BRA     0x236f0>                                         {}
        <POP 236ee-236f0 Naked>                              Σ0         ↓ ←0x236b6
            <MI 236ee  MOVEQ.L #0x06,D7>                                        {}
        <POP 236f0-23750 Naked>                              Σ0         ↓ ←0x236d0
            <Blob 0x236f0 [38] @>                            Δ-38               {[«38""»]}
            <Blob 0x23702 [12] @>                            Δ-12               {[«38""»]|[«12""»]}
            <POP 23712-23714 StackAdj>                       Δ-8                {[«38""»]|[«12""»]|[-8-]}
            <Lit 0x23714 37>                                                    {[«38""»]|[«12""»]|[-4-]|[$$Updating this EEPROM will take about_]}
            <MI 23724  MOVE.L  D7,(A7)>                                         {[«38""»]|[«12""»]|[-4-]|[4, 'D7']}
            <POP 2371e-23724 StackAdj>                       Δ-8                {[«38""»]|[«12""»]|[-4-]|[4, 'D7']|[-8-]}
            <Call 0x23726 0x102e4>                                              {[«38""»]|[«12""»]|[-4-]|[4, 'D7']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x2372c 11>                                                    {[«38""»]|[«12""»]|[-4-]|[4, 'D7']|[-4-]|[$$ seconds...]}
            <Call 0x2373e 0x102d4>                                              {[«38""»]|[«12""»]|[-4-]|[4, 'D7']|[-4-]|[$$ seconds...]}
                StringCat3(a, b, c : String) : String
            <POP 23744-23746 StackAdj>                       Δ+12               {[«38""»]|[«12""»]|[-4-]}
            <Call 0x23746 0x103e0>                                              {[«38""»]|[«12""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2374c-23750 StackAdj>                       Δ+54               {}
        <POP 23750-23758 Epilogue>                           Σ0         

0x23758


@ 23758
    <POP 23758-237c6 Body>                                              
        <POP 23758-2376e Prologue>                           Σ0         ↓
        <POP 2376e-23770 RegCacheLoad>                       Σ0         ↓
        <POP 23770-237a6 Naked>                              Σ0         ↓ →0x237ac
            <Const 0x23770 0x1.4>                            Δ-4                {[##1]}
            <Const 0x23774 0x0.4>                            Δ-4                {[##1]|[##0]}
            <Const 0x23778 0x1.2>                            Δ-2                {[##1]|[##0]|[#1]}
            <Call 0x2377a 0x2227a>                                              {[##1]|[##0]|[#1]}
            <POP 2377e-23782 StackAdj>                       Δ+10               {}
            <Call 0x23782 0x2369c>                                              {}
            <MI 23786  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x23788 0x235ba>                                              {[#0]}
            <POP 2378c-2378e StackAdj>                       Δ+2                {}
            <MI 2378e  CLR.B   0x25096>                                         {}
            <MI 23794  CLR.W   0x290c2>                                         {}
            <MI 2379a  MOVE.W  0x250b0,D0>                                      {}
            <MI 237a0  CMPI.W  #0x0050,D0>                                      {}
            <MI 237a4  BGE     0x237ac>                                         {}
        <POP 237a6-237ac Naked>                              Σ0         →0x237b0
            <Call 0x237a6 0x22dfa>                                              {}
            <MI 237aa  BRA     0x237b0>                                         {}
        <POP 237ac-237b0 Naked>                              Σ0         ↓ ←0x23770
            <Call 0x237ac 0x2302e>                                              {}
        <POP 237b0-237be Naked>                              Σ0         ↓ ←0x237a6
            <Const 0x237b0 0x1.2>                            Δ-2                {[#1]}
            <Call 0x237b2 0x235ba>                                              {[#1]}
            <POP 237b6-237b8 StackAdj>                       Δ+2                {}
            <Call 0x237b8 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 237be-237c6 Epilogue>                           Σ0         

0x237c6


@ 237c6
        <LVAR  0x00a @ 4(r)>
        <LVAR  0x008 2(r)>
    <POP 237c6-23846 Body>                                              
        <POP 237c6-237dc Prologue>                           Σ0         ↓
        <POP 237dc-237e4 RegCacheLoad>                       Σ0         ↓
        <POP 237e4-2383e Naked>                              Σ0         ↓
            <Blob 0x237e4 [16] @>                            Δ-16               {[«16""»]}
            <POP 237f4-237f6 StackAdj>                       Δ-8                {[«16""»]|[-8-]}
            <Lit 0x237f6 15>                                                    {[«16""»]|[-4-]|[$$Verifying file_]}
            <MI 23806  MOVE.L  (A6+0xa),(A7)>                                   {[«16""»]|[-4-]|[4, '(A6+0xa)']}
            <POP 23800-23806 StackAdj>                       Δ-8                {[«16""»]|[-4-]|[4, '(A6+0xa)']|[-8-]}
            <Call 0x23808 0x102cc>                                              {[«16""»]|[-4-]|[4, '(A6+0xa)']|[-8-]}
                StringDup(a : String) : String
            <POP 2380e-23810 StackAdj>                       Δ+4                {[«16""»]|[-4-]|[4, '(A6+0xa)']|[-4-]}
            <Call 0x23810 0x102d0>                                              {[«16""»]|[-4-]|[4, '(A6+0xa)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 23816-23818 StackAdj>                       Δ+8                {[«16""»]|[-4-]}
            <Call 0x23818 0x103d8>                                              {[«16""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 2381e-23820 StackAdj>                       Δ+16               {[-4-]}
            <MI 23820  MOVE.L  (A6+0xa),(A7)>                                   {[4, '(A6+0xa)']}
            <MI 23822  MOVE.W  (A6+0x8),D0>                                     {[4, '(A6+0xa)']}
            <MI 23826  EXTW.L  D0>                                              {[4, '(A6+0xa)']}
            <MI 23828  MOVE.L  D0,-(A7)>                     Δ-4                {[4, '(A6+0xa)']|[4, 'D0']}
            <Const 0x2382a 0x1.2>                            Δ-2                {[4, '(A6+0xa)']|[4, 'D0']|[#1]}
            <Call 0x2382c 0x2227a>                                              {[4, '(A6+0xa)']|[4, 'D0']|[#1]}
            <POP 23830-23834 StackAdj>                       Δ+10               {}
            <Pointer.fp 0x23834 <LVAR  0x00a @ 4(r)>>        Δ-4                {[@@10]}
            <Call 0x23836 0x102bc>                                              {[@@10]}
                FreeString(VAR a : String)
            <POP 2383c-2383e StackAdj>                       Δ+4                {}
        <POP 2383e-23846 Epilogue>                           Σ0         

0x23846


@ 23846
        <LVAR  0x00a @ 4(r)>
        <LVAR  0x008 2(r)>
    <POP 23846-23910 Body>                                              
        <POP 23846-2385c Prologue>                           Σ0         ↓
        <POP 2385c-23866 RegCacheLoad>                       Σ0         ↓
        <POP 23866-238ec Naked>                              Σ0 Δ-20    ↓ →0x238f6
            <Blob 0x23866 [14] @>                            Δ-14               {[«14""»]}
            <POP 23876-23878 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x23878 13>                                                    {[«14""»]|[-4-]|[$$Reading file_]}
            <MI 23888  MOVE.L  (A6+0xa),(A7)>                                   {[«14""»]|[-4-]|[4, '(A6+0xa)']}
            <POP 23882-23888 StackAdj>                       Δ-8                {[«14""»]|[-4-]|[4, '(A6+0xa)']|[-8-]}
            <Call 0x2388a 0x102cc>                                              {[«14""»]|[-4-]|[4, '(A6+0xa)']|[-8-]}
                StringDup(a : String) : String
            <POP 23890-23892 StackAdj>                       Δ+4                {[«14""»]|[-4-]|[4, '(A6+0xa)']|[-4-]}
            <Call 0x23892 0x102d0>                                              {[«14""»]|[-4-]|[4, '(A6+0xa)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 23898-2389a StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x2389a 0x103d8>                                              {[«14""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 238a0-238a2 StackAdj>                       Δ+14               {[-4-]}
            <MI 238a2  MOVE.L  (A6+0xa),(A7)>                                   {[4, '(A6+0xa)']}
            <MI 238a4  MOVE.W  (A6+0x8),D0>                                     {[4, '(A6+0xa)']}
            <MI 238a8  EXTW.L  D0>                                              {[4, '(A6+0xa)']}
            <MI 238aa  MOVE.L  D0,-(A7)>                     Δ-4                {[4, '(A6+0xa)']|[4, 'D0']}
            <Const 0x238ac 0x1.2>                            Δ-2                {[4, '(A6+0xa)']|[4, 'D0']|[#1]}
            <Call 0x238ae 0x2227a>                                              {[4, '(A6+0xa)']|[4, 'D0']|[#1]}
            <POP 238b2-238b6 StackAdj>                       Δ+10               {}
            <Call 0x238b6 0x2369c>                                              {}
            <Blob 0x238ba [20] @>                            Δ-20               {[«20""»]}
            <POP 238ca-238cc StackAdj>                       Δ-6                {[«20""»]|[-6-]}
            <Lit 0x238cc 19>                                                    {[«20""»]|[-2-]|[$$Update this EEPROM_]}
            <POP 238dc-238de StackAdj>                       Δ-2                {[«20""»]|[-2-]|[$$Update this EEPROM_]|[-2-]}
            <POP 238de-238df StackAdj>                       Δ+2                {[«20""»]|[-2-]|[$$Update this EEPROM_]}
            <Const 0x238df 0x1.2>                            Δ-2                {[«20""»]|[-2-]|[$$Update this EEPROM_]|[#1]}
            <Call 0x238e0 0x103f0>                                              {[«20""»]|[-2-]|[$$Update this EEPROM_]|[#1]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 238e6-238e8 StackAdj>                       Δ+6                {[«20""»]|[-2-]}
            <MI 238e8  TST.B   (A7)+>                        Δ+2                {[«20""»]}
            <MI 238ea  BEQ     0x238f6>                                         {[«20""»]}
        <POP 238ec-238f6 Naked>                              Σ-20       ↓
            <MI 238ec  CLR.B   0x25096>                                         {[-20-]}
            <Call 0x238f2 0x22dfa>                                              {[-20-]}
        <POP 238f6-23908 Naked>                              Σ-20 Δ+20  ↓ ←0x23866
            <POP 238f6-238f8 StackAdj>                       Δ+20               {}
            <Call 0x238f8 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Pointer.fp 0x238fe <LVAR  0x00a @ 4(r)>>        Δ-4                {[@@10]}
            <Call 0x23900 0x102bc>                                              {[@@10]}
                FreeString(VAR a : String)
            <POP 23906-23908 StackAdj>                       Δ+4                {}
        <POP 23908-23910 Epilogue>                           Σ0         

0x23910


@ 23910
    <POP 23910-23a72 Body>                                              
        <POP 23910-23926 Prologue>                           Σ0         ↓
        <POP 23926-23942 RegCacheLoad>                       Σ0         ↓
        <POP 23942-23a6a Naked>                              Σ0         ↓
            <Blob 0x23942 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x23946 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x2394a [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 2394e-23950 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x23950 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]}
            <POP 2395a-2395c StackAdj>                       Δ-2                {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]|[-2-]}
            <POP 2395c-2395d StackAdj>                       Δ+2                {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]}
            <Const 0x2395d 0x21.2>                           Δ-2                {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]|[#33]}
            <Call 0x2395e 0x237c6>                                              {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]|[#33]}
            <POP 23960-23962 StackAdj>                       Δ+14               {[«4""»]}
            <POP 23962-23963 StackAdj>                       Δ+4                {}
            <Blob 0x23963 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x23966 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 2396a-2396c StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x2396c 8>                                                     {[«4""»]|[«4""»]|[$$BOOT.HEX]}
            <POP 23976-23978 StackAdj>                       Δ-2                {[«4""»]|[«4""»]|[$$BOOT.HEX]|[-2-]}
            <POP 23978-23979 StackAdj>                       Δ+2                {[«4""»]|[«4""»]|[$$BOOT.HEX]}
            <Const 0x23979 0x19.2>                           Δ-2                {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
            <Call 0x2397a 0x237c6>                                              {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
            <MI 2397c  MOVEA.L A7,A0>                                           {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
            <MI 2397e  LEA.L   0x2095e,A1>                                      {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
            <BlockMove 13,A1,A0>                                                {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
            <POP 2398a-2398c StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[-4-]}
            <Lit 0x2398c>                                                       {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]}
                <Pointer.sp 0x2398c 4>                       Δ-4        
                <Const 0x23990 0x1.2>                        Δ-2        
                <Const 0x23992 0xd.2>                        Δ-2        
                <Call 0x23994 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 23996-23998 StackAdj>                   Δ+8        
            <POP 23996-23998 StackAdj>                       Δ-2                {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]|[-2-]}
            <POP 23998-23999 StackAdj>                       Δ+2                {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]}
            <Const 0x23999 0x17.2>                           Δ-2                {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]|[#23]}
            <Call 0x2399c 0x237c6>                                              {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]|[#23]}
            <POP 2399e-2399f StackAdj>                       Δ+20       ↓       {}
            <Blob 0x2399f [12] @>                            Δ-12               {[«12""»]}
            <POP 239ae-239b0 StackAdj>                       Δ-4                {[«12""»]|[-4-]}
            <Lit 0x239b0 11>                                                    {[«12""»]|[$$NETWORK.HEX]}
            <POP 239bc-239be StackAdj>                       Δ-2                {[«12""»]|[$$NETWORK.HEX]|[-2-]}
            <POP 239be-239bf StackAdj>                       Δ+2                {[«12""»]|[$$NETWORK.HEX]}
            <Const 0x239bf 0x15.2>                           Δ-2                {[«12""»]|[$$NETWORK.HEX]|[#21]}
            <Call 0x239c2 0x237c6>                                              {[«12""»]|[$$NETWORK.HEX]|[#21]}
            <POP 239c4-239c8 StackAdj>                       Δ+18               {}
            <Call 0x239c8 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <MI 239ce  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x239d0 0x235ba>                                              {[#0]}
            <POP 239d4-239d6 StackAdj>                       Δ+2                {}
            <Blob 0x239d6 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x239da [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x239de [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 239e2-239e4 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x239e4 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]}
            <POP 239ee-239f0 StackAdj>                       Δ-2                {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]|[-2-]}
            <POP 239f0-239f1 StackAdj>                       Δ+2                {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]}
            <Const 0x239f1 0x21.2>                           Δ-2                {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]|[#33]}
            <Call 0x239f2 0x23846>                                              {[«4""»]|[«4""»]|[«4""»]|[$$SELFTEST.HEX]|[#33]}
            <POP 239f4-239f6 StackAdj>                       Δ+14               {[«4""»]}
            <POP 239f6-239f7 StackAdj>                       Δ+4                {}
            <Blob 0x239f7 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x239fa [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 239fe-23a00 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x23a00 8>                                                     {[«4""»]|[«4""»]|[$$BOOT.HEX]}
            <POP 23a0a-23a0c StackAdj>                       Δ-2                {[«4""»]|[«4""»]|[$$BOOT.HEX]|[-2-]}
            <POP 23a0c-23a0d StackAdj>                       Δ+2                {[«4""»]|[«4""»]|[$$BOOT.HEX]}
            <Const 0x23a0d 0x19.2>                           Δ-2                {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
            <Call 0x23a0e 0x23846>                                              {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
            <MI 23a10  MOVEA.L A7,A0>                                           {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
            <MI 23a12  LEA.L   0x2098c,A1>                                      {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
            <BlockMove 13,A1,A0>                                                {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]}
            <POP 23a1e-23a20 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[-4-]}
            <Lit 0x23a20>                                                       {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]}
                <Pointer.sp 0x23a20 4>                       Δ-4        
                <Const 0x23a24 0x1.2>                        Δ-2        
                <Const 0x23a26 0xd.2>                        Δ-2        
                <Call 0x23a28 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 23a2a-23a2c StackAdj>                   Δ+8        
            <POP 23a2a-23a2c StackAdj>                       Δ-2                {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]|[-2-]}
            <POP 23a2c-23a2d StackAdj>                       Δ+2                {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]}
            <Const 0x23a2d 0x17.2>                           Δ-2                {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]|[#23]}
            <Call 0x23a30 0x23846>                                              {[«4""»]|[«4""»]|[$$BOOT.HEX]|[#25]|[$$…]|[#23]}
            <POP 23a32-23a33 StackAdj>                       Δ+20       ↓       {}
            <Blob 0x23a33 [12] @>                            Δ-12               {[«12""»]}
            <POP 23a42-23a44 StackAdj>                       Δ-4                {[«12""»]|[-4-]}
            <Lit 0x23a44 11>                                                    {[«12""»]|[$$NETWORK.HEX]}
            <POP 23a50-23a52 StackAdj>                       Δ-2                {[«12""»]|[$$NETWORK.HEX]|[-2-]}
            <POP 23a52-23a53 StackAdj>                       Δ+2                {[«12""»]|[$$NETWORK.HEX]}
            <Const 0x23a53 0x15.2>                           Δ-2                {[«12""»]|[$$NETWORK.HEX]|[#21]}
            <Call 0x23a56 0x23846>                                              {[«12""»]|[$$NETWORK.HEX]|[#21]}
            <POP 23a58-23a5c StackAdj>                       Δ+16               {[-2-]}
            <POP 23a5c-23a5d StackAdj>                       Δ+2                {}
            <Const 0x23a5d 0x1.2>                            Δ-2                {[#1]}
            <Call 0x23a5e 0x235ba>                                              {[#1]}
            <POP 23a62-23a64 StackAdj>                       Δ+2                {}
            <Call 0x23a64 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 23a6a-23a72 Epilogue>                           Σ0         

0x23a72


@ 23a72
        <LVAR  0x008 2(r)>
        <LVAR -0x006 @>
        <LVAR -0x00a @ 4(r)>
    <POP 23a72-23b48 Body>                                              
        <POP 23a72-23a88 Prologue>                           Σ0         ↓
        <POP 23a88-23a90 RegCacheLoad>                       Σ0         ↓
        <POP 23a90-23b1a Naked>                              Σ0 Δ-20    ↓ →0x23b38
            <MI 23a90  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Pointer.fp 0x23a92 <LVAR -0x006 @>>             Δ-4                {[2, '(A6+0x8)']|[@@-6]}
            <Pointer.fp 0x23a96 <LVAR -0x00a @ 4(r)>>        Δ-4                {[2, '(A6+0x8)']|[@@-6]|[@@-10]}
            <Call 0x23a9a 0x21388>                                              {[2, '(A6+0x8)']|[@@-6]|[@@-10]}
            <POP 23a9e-23aa0 StackAdj>                       Δ+6                {[2, '(A6+0x8)']|[-2-]}
            <POP 23aa0-23aa1 StackAdj>                       Δ+4                {}
            <Blob 0x23aa1 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x23aa4 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 23aa8-23aaa StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <MI 23aaa  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']}
            <POP 23aae-23ab0 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']|[-4-]}
            <Lit 0x23ab0 8>                                                     {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']|[$$ EEPROM:]}
            <Call 0x23ac2 0x102d0>                                              {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0xa)']|[$$ EEPROM:]}
                StringCat2(a, b : String) : String
            <POP 23ac8-23aca StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-4-]}
            <Call 0x23aca 0x103d8>                                              {[«4""»]|[«4""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 23ad0-23ad2 StackAdj>                       Δ+8                {[«4""»]}
            <MI 23ad2  MOVE.L  (A4),(A7)>                                       {[4, '(A4)']}
            <MI 23ad4  MOVE.W  (A6+0x8),D0>                                     {[4, '(A4)']}
            <MI 23ad6  EXTW.L  D0>                                              {[4, '(A4)']}
            <MI 23ad8  MOVE.L  D0,-(A7)>                     Δ-4                {[4, '(A4)']|[4, 'D0']}
            <Const 0x23ada 0x1.2>                            Δ-2                {[4, '(A4)']|[4, 'D0']|[#1]}
            <Call 0x23adc 0x2227a>                                              {[4, '(A4)']|[4, 'D0']|[#1]}
            <POP 23ae0-23ae4 StackAdj>                       Δ+10               {}
            <Call 0x23ae4 0x2369c>                                              {}
            <Blob 0x23ae8 [20] @>                            Δ-20               {[«20""»]}
            <POP 23af8-23afa StackAdj>                       Δ-6                {[«20""»]|[-6-]}
            <Lit 0x23afa 19>                                                    {[«20""»]|[-2-]|[$$Update this EEPROM_]}
            <POP 23b0a-23b0c StackAdj>                       Δ-2                {[«20""»]|[-2-]|[$$Update this EEPROM_]|[-2-]}
            <POP 23b0c-23b0d StackAdj>                       Δ+2                {[«20""»]|[-2-]|[$$Update this EEPROM_]}
            <Const 0x23b0d 0x1.2>                            Δ-2                {[«20""»]|[-2-]|[$$Update this EEPROM_]|[#1]}
            <Call 0x23b0e 0x103f0>                                              {[«20""»]|[-2-]|[$$Update this EEPROM_]|[#1]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 23b14-23b16 StackAdj>                       Δ+6                {[«20""»]|[-2-]}
            <MI 23b16  TST.B   (A7)+>                        Δ+2                {[«20""»]}
            <MI 23b18  BEQ     0x23b38>                                         {[«20""»]}
        <POP 23b1a-23b2e Naked>                              Σ-20       ↓ →0x23b34
            <MI 23b1a  CLR.B   0x25096>                                         {[-20-]}
            <MI 23b20  CLR.W   0x290c2>                                         {[-20-]}
            <MI 23b26  MOVE.W  (A6+0x8),D0>                                     {[-20-]}
            <MI 23b28  CMPI.W  #0x0050,D0>                                      {[-20-]}
            <MI 23b2c  BGE     0x23b34>                                         {[-20-]}
        <POP 23b2e-23b34 Naked>                              Σ-20       →0x23b38
            <Call 0x23b2e 0x22dfa>                                              {[-20-]}
            <MI 23b32  BRA     0x23b38>                                         {[-20-]}
        <POP 23b34-23b38 Naked>                              Σ-20       ↓ ←0x23b1a
            <Call 0x23b34 0x2302e>                                              {[-20-]}
        <POP 23b38-23b40 Naked>                              Σ-20 Δ+20  ↓ ←0x23a90 ←0x23b2e
            <POP 23b38-23b3a StackAdj>                       Δ+20               {}
            <Call 0x23b3a 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 23b40-23b48 Epilogue>                           Σ0         

0x23b48


@ 23b48
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(rw)>
        <LVAR -0x00a @ 4(rw)>
    <POP 23b48-23c56 Body>                                   Δ+2        
        <POP 23b48-23b5e Prologue>                           Σ0         ↓
        <POP 23b5e-23b6c RegCacheLoad>                       Σ0         ↓
        <POP 23b6c-23b72 Naked>                              Σ0         ↓ →0x23b7a
            <MI 23b6c  TST.B   (A6+0x8)>                                        {}
            <MI 23b70  BEQ     0x23b7a>                                         {}
        <POP 23b72-23b7a Naked>                              Σ0         →0x23b80
            <MI 23b72  MOVE.L  0x290b8,(A6-0xa)>                                {}
            <MI 23b78  BRA     0x23b80>                                         {}
        <POP 23b7a-23b80 Naked>                              Σ0         ↓ ←0x23b6c
            <MI 23b7a  MOVE.L  0x290b4,(A6-0xa)>                                {}
        <POP 23b80-23be2 Naked>                              Σ0         ↓ →0x23be8 ←0x23b72
            <Blob 0x23b80 [22] @>                            Δ-22               {[«22""»]}
            <Blob 0x23b92 [4] @>                             Δ-4                {[«22""»]|[«4""»]}
            <POP 23b96-23b98 StackAdj>                       Δ-12               {[«22""»]|[«4""»]|[-12-]}
            <Lit 0x23b98 21>                                                    {[«22""»]|[«4""»]|[-8-]|[$$enter prom filename []}
            <MI 23ba6  MOVE.L  (A6-0xa),(A7)>                                   {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']}
            <POP 23ba0-23ba6 StackAdj>                       Δ-8                {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[-8-]}
            <Call 0x23ba8 0x102cc>                                              {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x23bae 4>                                                     {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[-4-]|[$$] :_]}
            <Call 0x23bc0 0x102d4>                                              {[«22""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[-4-]|[$$] :_]}
                StringCat3(a, b, c : String) : String
            <POP 23bc6-23bc8 StackAdj>                       Δ+12               {[«22""»]|[«4""»]|[-8-]}
            <Call 0x23bc8 0x103e4>                                              {[«22""»]|[«4""»]|[-8-]}
                AskConsoleString(prompt : String) : String
            <POP 23bce-23bd0 StackAdj>                       Δ+4                {[«22""»]|[«4""»]|[-4-]}
            <MI 23bd0  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«22""»]|[«4""»]}
            <POP 23bd4-23bd8 StackAdj>                       Δ+26               {}
            <MI 23bd8  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 23bdc  MOVE.W  (A0),D0>                                         {}
            <MI 23bde  CMP.W   #0x01,D0>                                        {}
            <MI 23be0  BLE     0x23be8>                                         {}
        <POP 23be2-23be8 Naked>                              Σ0         →0x23bf4
            <MI 23be2  MOVE.L  (A6-0x6),(A6-0xa)>                               {}
            <MI 23be6  BRA     0x23bf4>                                         {}
        <POP 23be8-23bf4 Naked>                              Σ0         ↓ ←0x23b80
            <Pointer.fp 0x23be8 <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x23bec 0x102bc>                                              {[@@-6]}
                FreeString(VAR a : String)
            <POP 23bf2-23bf4 StackAdj>                       Δ+4                {}
        <POP 23bf4-23c02 Naked>                              Σ0         ↓ →0x23c20 ←0x23be2
            <MI 23bf4  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x23bf6 0x235ba>                                              {[#0]}
            <POP 23bfa-23bfc StackAdj>                       Δ+2                {}
            <MI 23bfc  TST.B   (A6+0x8)>                                        {}
            <MI 23c00  BEQ     0x23c20>                                         {}
        <POP 23c02-23c20 Naked>                              Σ0 Δ-2     →0x23c3a
            <Const 0x23c02 0x50.2>                           Δ-2                {[#80]}
            <MI 23c06  LEA.L   (A6-0xa),A4>                                     {[#80]}
            <Call 0x23c08 0x23a72>                                              {[#80]}
            <POP 23c0a-23c0b StackAdj>                       Δ+2                {}
            <Const 0x23c0b 0x51.2>                           Δ-2                {[#81]}
            <MI 23c0e  LEA.L   (A6-0xa),A4>                                     {[#81]}
            <Call 0x23c10 0x23a72>                                              {[#81]}
            <POP 23c12-23c13 StackAdj>                       Δ+2                {}
            <Const 0x23c13 0x52.2>                           Δ-2                {[#82]}
            <MI 23c16  LEA.L   (A6-0xa),A4>                                     {[#82]}
            <Call 0x23c18 0x23a72>                                              {[#82]}
            <POP 23c1a-23c1b StackAdj>                       Δ+2                {}
            <Const 0x23c1b 0x53.2>                           Δ-2                {[#83]}
            <MI 23c1e  BRA     0x23c3a>                                         {[#83]}
        <POP 23c20-23c3a Naked>                              Σ0 Δ-2     ↓ ←0x23bf4
            <Const 0x23c20 0x21.2>                           Δ-2                {[#33]}
            <MI 23c24  LEA.L   (A6-0xa),A4>                                     {[#33]}
            <Call 0x23c26 0x23a72>                                              {[#33]}
            <POP 23c28-23c29 StackAdj>                       Δ+2                {}
            <Const 0x23c29 0x19.2>                           Δ-2                {[#25]}
            <MI 23c2c  LEA.L   (A6-0xa),A4>                                     {[#25]}
            <Call 0x23c2e 0x23a72>                                              {[#25]}
            <POP 23c30-23c31 StackAdj>                       Δ+2                {}
            <Const 0x23c31 0x17.2>                           Δ-2                {[#23]}
            <MI 23c34  LEA.L   (A6-0xa),A4>                                     {[#23]}
            <Call 0x23c36 0x23a72>                                              {[#23]}
            <POP 23c38-23c39 StackAdj>                       Δ+2                {}
            <Const 0x23c39 0x15.2>                           Δ-2                {[#21]}
        <POP 23c3a-23c4e Naked>                              Σ-2 Δ+2    ↓ ←0x23c02
            <MI 23c3a  LEA.L   (A6-0xa),A4>                                     {[-2-]}
            <Call 0x23c3c 0x23a72>                                              {[-2-]}
            <POP 23c3e-23c40 StackAdj>                       Δ+2                {}
            <Const 0x23c40 0x1.2>                            Δ-2                {[#1]}
            <Call 0x23c42 0x235ba>                                              {[#1]}
            <POP 23c46-23c48 StackAdj>                       Δ+2                {}
            <Call 0x23c48 0x103dc>                                              {}
                WriteConsoleCrLf(void)
        <POP 23c4e-23c56 Epilogue>                           Σ0         

0x23c56


@ 23c56
        <LVAR  0x008 4(w)>
    <POP 23c56-23cd0 Body>                                              
        <POP 23c56-23c6c Prologue>                           Σ0         ↓
        <POP 23c6c-23c7e RegCacheLoad>                       Σ0         ↓
        <POP 23c7e-23cc8 Naked>                              Σ0         ↓
            <MI 23c7e  MOVE.L  0x250ac,D0>                                      {}
            <MI 23c80  SUBQ.L  #0x4,D0>                                         {}
            <POP 0x23c82 LimitCheck 0x0 ≤ D0 ≤ 0x1fff>                          {}
            <MI 23c88  ASL.L   #0x1,D0>                                         {}
            <MI 23c8a  LEA.L   0x25088,A0>                                      {}
            <MI 23c8c  MOVE.W  (A0+D0.L+#0x2a),D1>                              {}
            <MI 23c90  EXTW.L  D1>                                              {}
            <MI 23c92  ASL.L   #0x8,D1>                                         {}
            <MI 23c94  ASL.L   #0x8,D1>                                         {}
            <MI 23c96  MOVE.L  0x250ac,D0>                                      {}
            <MI 23c98  SUBQ.L  #0x3,D0>                                         {}
            <POP 0x23c9a LimitCheck 0x0 ≤ D0 ≤ 0x1fff>                          {}
            <MI 23ca0  ASL.L   #0x1,D0>                                         {}
            <MI 23ca2  LEA.L   0x25088,A0>                                      {}
            <MI 23ca4  MOVE.W  (A0+D0.L+#0x2a),D0>                              {}
            <MI 23ca8  ASL.W   #0x8,D0>                                         {}
            <MI 23caa  EXTW.L  D0>                                              {}
            <MI 23cac  ADD.L   D1,D0>                                           {}
            <MI 23cae  MOVE.L  0x250ac,D1>                                      {}
            <MI 23cb0  SUBQ.L  #0x2,D1>                                         {}
            <POP 0x23cb2 LimitCheck 0x0 ≤ D1 ≤ 0x1fff>                          {}
            <MI 23cb8  ASL.L   #0x1,D1>                                         {}
            <MI 23cba  LEA.L   0x25088,A0>                                      {}
            <MI 23cbc  MOVE.W  (A0+D1.L+#0x2a),D2>                              {}
            <MI 23cc0  EXTW.L  D2>                                              {}
            <MI 23cc2  ADD.L   D0,D2>                                           {}
            <MI 23cc4  MOVE.L  D2,(A6+0x8)>                                     {}
        <POP 23cc8-23cd0 Epilogue>                           Σ0         

0x23cd0


@ 23cd0
        <LVAR  0x008 4(w)>
    <POP 23cd0-23d42 Body>                                              
        <POP 23cd0-23ce6 Prologue>                           Σ0         ↓
        <POP 23ce6-23cf6 RegCacheLoad>                       Σ0         ↓
        <POP 23cf6-23d3a Naked>                              Σ0         ↓
            <POP 23cf6-23cf8 StackAdj>                       Δ-2                {[-2-]}
            <MI 23cf8  MOVE.L  0x250a8,D0>                                      {[-2-]}
            <MI 23cfa  ADD.L   0x250ac,D0>                                      {[-2-]}
            <MI 23cfc  SUBQ.L  #0x4,D0>                                         {[-2-]}
            <MI 23cfe  MOVE.L  D0,-(A7)>                     Δ-4                {[-2-]|[4, 'D0']}
            <Call 0x23d00 0x224a8>                                              {[-2-]|[4, 'D0']}
            <POP 23d02-23d04 StackAdj>                       Δ+4                {[-2-]}
            <MI 23d04  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <MI 23d06  EXTW.L  D0>                                              {}
            <MI 23d08  ASL.L   #0x8,D0>                                         {}
            <MI 23d0a  ASL.L   #0x8,D0>                                         {}
            <POP 23d0c-23d0e StackAdj>                       Δ-2                {[-2-]}
            <MI 23d0e  MOVE.L  0x250a8,D1>                                      {[-2-]}
            <MI 23d10  ADD.L   0x250ac,D1>                                      {[-2-]}
            <MI 23d12  SUBQ.L  #0x3,D1>                                         {[-2-]}
            <MI 23d14  MOVE.L  D1,-(A7)>                     Δ-4                {[-2-]|[4, 'D1']}
            <Call 0x23d16 0x224a8>                                              {[-2-]|[4, 'D1']}
            <POP 23d18-23d1a StackAdj>                       Δ+4                {[-2-]}
            <MI 23d1a  MOVE.W  (A7)+,D1>                     Δ+2                {}
            <MI 23d1c  ASL.W   #0x8,D1>                                         {}
            <MI 23d1e  EXTW.L  D1>                                              {}
            <MI 23d20  ADD.L   D0,D1>                                           {}
            <POP 23d22-23d24 StackAdj>                       Δ-2                {[-2-]}
            <MI 23d24  MOVE.L  0x250a8,D0>                                      {[-2-]}
            <MI 23d26  ADD.L   0x250ac,D0>                                      {[-2-]}
            <MI 23d28  SUBQ.L  #0x2,D0>                                         {[-2-]}
            <MI 23d2a  MOVE.L  D0,-(A7)>                     Δ-4                {[-2-]|[4, 'D0']}
            <Call 0x23d2c 0x224a8>                                              {[-2-]|[4, 'D0']}
            <POP 23d2e-23d30 StackAdj>                       Δ+4                {[-2-]}
            <MI 23d30  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <MI 23d32  EXTW.L  D0>                                              {}
            <MI 23d34  ADD.L   D1,D0>                                           {}
            <MI 23d36  MOVE.L  D0,(A6+0x8)>                                     {}
        <POP 23d3a-23d42 Epilogue>                           Σ0         

0x23d42


@ 23d42
        <LVAR  0x008 2(r)>
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x00a @>
        <LVAR -0x00e @ 4(r)>
    <POP 23d42-23f90 Body>                                   Δ+4        
        <POP 23d42-23d58 Prologue>                           Σ0         ↓
        <POP 23d58-23d6a RegCacheLoad>                       Σ0         ↓
        <POP 23d6a-23d98 Naked>                              Σ0         ↓ →0x23da0
            <MI 23d6a  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Pointer.fp 0x23d6e <LVAR -0x00a @>>             Δ-4                {[2, '(A6+0x8)']|[@@-10]}
            <Pointer.fp 0x23d72 <LVAR -0x00e @ 4(r)>>        Δ-4                {[2, '(A6+0x8)']|[@@-10]|[@@-14]}
            <Call 0x23d76 0x21388>                                              {[2, '(A6+0x8)']|[@@-10]|[@@-14]}
            <POP 23d7a-23d7c StackAdj>                       Δ+6                {[2, '(A6+0x8)']|[-2-]}
            <MI 23d7c  MOVE.L  (A4),(A7)>                                       {[4, '(A4)']}
            <MI 23d7e  MOVE.W  (A6+0x8),D0>                                     {[4, '(A4)']}
            <MI 23d82  EXTW.L  D0>                                              {[4, '(A4)']}
            <MI 23d84  MOVE.L  D0,-(A7)>                     Δ-4                {[4, '(A4)']|[4, 'D0']}
            <MI 23d86  CLR.B   -(A7)>                        Δ-2                {[4, '(A4)']|[4, 'D0']|[#0]}
            <Call 0x23d88 0x2227a>                                              {[4, '(A4)']|[4, 'D0']|[#0]}
            <POP 23d8c-23d90 StackAdj>                       Δ+10               {}
            <MI 23d90  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 23d94  CMP.W   #0x50,D0>                                        {}
            <MI 23d96  BGE     0x23da0>                                         {}
        <POP 23d98-23da0 Naked>                              Σ0 Δ-4     →0x23da6
            <Pointer.fp 0x23d98 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x23d9a 0x22990>                                              {[@@-6]}
            <MI 23d9e  BRA     0x23da6>                                         {[@@-6]}
        <POP 23da0-23da6 Naked>                              Σ0 Δ-4     ↓ ←0x23d6a
            <Pointer.fp 0x23da0 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x23da2 0x22a52>                                              {[@@-6]}
        <POP 23da6-23e38 Naked>                              Σ-4        ↓ →0x23e96 ←0x23d98
            <POP 23da6-23da8 StackAdj>                       Δ+4                {}
            <Blob 0x23da8 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x23dac [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x23db0 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x23db4 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x23db8 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x23dbc [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x23dc0 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x23dc4 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 23dc8-23dca StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
            <MI 23dca  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[4, '(A6-0xe)']}
            <Const 0x23dce 0x8.4>                            Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[4, '(A6-0xe)']|[##8]}
            <Call 0x23dd2 0x102f8>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[4, '(A6-0xe)']|[##8]}
                LeftPad(a : String; b : Long) : String
            <POP 23dd8-23dda StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[4, '(A6-0xe)']}
            <Lit 0x23dda 16>                                                    {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]}
            <Call 0x23de4 0x23cd0>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]}
            <POP 23de2-23de4 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-8-]}
            <Const 0x23de8 0x6.4>                            Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-8-]|[##6]}
            <Call 0x23dec 0x102e8>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-8-]|[##6]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 23df2-23df4 StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-8-]}
            <Lit 0x23df4 16>                                                    {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-4-]|[$$, file revision_]}
            <Call 0x23dfe 0x23c56>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-4-]|[$$, file revision_]}
            <POP 23dfc-23dfe StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-4-]|[$$, file revision_]|[-8-]}
            <Const 0x23e02 0x6.4>                            Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-4-]|[$$, file revision_]|[-8-]|[##6]}
            <Call 0x23e06 0x102e8>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-4-]|[$$, file revision_]|[-8-]|[##6]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 23e0c-23e0e StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-4-]|[$$, file revision_]|[-4-]}
            <Call 0x23e0e 0x102dc>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$: prom revision_]|[-4-]|[$$, file revision_]|[-4-]}
                StringCat5(a, b, c, d, e : String) : String
            <POP 23e14-23e16 StackAdj>                       Δ+20               {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Call 0x23e16 0x103d8>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 23e1c-23e20 StackAdj>                       Δ+36               {}
            <MI 23e20  CLR.B   (A4+D0.W+#0x5)>                                  {}
            <POP 23e24-23e26 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x23e26 0x23c56>                                              {[-4-]}
            <POP 23e2a-23e2c StackAdj>                       Δ-4                {[-8-]}
            <Call 0x23e2c 0x23cd0>                                              {[-8-]}
            <MI 23e30  MOVE.L  (A7+0x4),D1>                                     {[-8-]}
            <MI 23e34  CMP.L   (A7)+,D1>                     Δ+4                {[-4-]}
            <MI 23e36  BGE     0x23e96>                                         {[-4-]}
        <POP 23e38-23e96 Naked>                              Σ-4        →0x23f54
            <Blob 0x23e38 [24] @>                            Δ-24               {[-4-]|[«24""»]}
            <POP 23e44-23e46 StackAdj>                       Δ-4                {[-4-]|[«24""»]|[-4-]}
            <Lit 0x23e46 24>                                                    {[-4-]|[«24""»]|[$$ - prom newer than file!]}
            <Call 0x23e54 0x103e0>                                              {[-4-]|[«24""»]|[$$ - prom newer than file!]}
                WriteConsoleStringCrLf(str : String)
            <POP 23e5a-23e5b StackAdj>                       Δ+28       ↓       {[-4-]}
            <Blob 0x23e5b [32] @>                            Δ-32               {[-4-]|[«32""»]}
            <POP 23e6a-23e6c StackAdj>                       Δ-6                {[-4-]|[«32""»]|[-6-]}
            <Lit 0x23e6c 31>                                                    {[-4-]|[«32""»]|[-2-]|[$$Do you want to update this prom]}
            <POP 23e78-23e7a StackAdj>                       Δ-2                {[-4-]|[«32""»]|[-2-]|[$$Do you want to update this prom]|[-2-]}
            <MI 23e7a  CLR.B   (A7)>                                            {[-4-]|[«32""»]|[-2-]|[$$Do you want to update this prom]|[-2-]}
            <Call 0x23e7c 0x103f0>                                              {[-4-]|[«32""»]|[-2-]|[$$Do you want to update this prom]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 23e82-23e84 StackAdj>                       Δ+6                {[-4-]|[«32""»]|[-2-]}
            <MI 23e84  MOVE.B  (A7)+,D1>                     Δ+2                {[-4-]|[«32""»]}
            <MI 23e86  EXTB.W  D1>                                              {[-4-]|[«32""»]}
            <POP 0x23e88 LimitCheck 0x0 ≤ D1 ≤ 0x1>                             {[-4-]|[«32""»]}
            <POP 23e8a-23e8e StackAdj>                       Δ+32               {[-4-]}
            <MI 23e8e  MOVE.B  D1,(A4+D0.W+#0x5)>                               {[-4-]}
            <MI 23e92  BRA     0x23f54>                                         {[-4-]}
        <POP 23e96-23eaa Naked>                              Σ-4 Δ-4    ↓ →0x23ed6 ←0x23da6
            <POP 23e96-23e98 StackAdj>                       Δ-4                {[-8-]}
            <Call 0x23e98 0x23c56>                                              {[-8-]}
            <POP 23e9c-23e9e StackAdj>                       Δ-4                {[-12-]}
            <Call 0x23e9e 0x23cd0>                                              {[-12-]}
            <MI 23ea2  MOVE.L  (A7+0x4),D1>                                     {[-12-]}
            <MI 23ea6  CMP.L   (A7)+,D1>                     Δ+4                {[-8-]}
            <MI 23ea8  BLE     0x23ed6>                                         {[-8-]}
        <POP 23eaa-23ed0 Naked>                              Σ-8        ↓
            <Blob 0x23eaa [22] @>                            Δ-22               {[-8-]|[«22""»]}
            <POP 23eb6-23eb8 StackAdj>                       Δ-4                {[-8-]|[«22""»]|[-4-]}
            <Lit 0x23eb8 22>                                                    {[-8-]|[«22""»]|[$$ - PROM needs updating]}
            <Call 0x23ec6 0x103e0>                                              {[-8-]|[«22""»]|[$$ - PROM needs updating]}
                WriteConsoleStringCrLf(str : String)
            <POP 23ecc-23ed0 StackAdj>                       Δ+26               {[-8-]}
        <POP 23ed0-23ed6 Naked>                              Σ-8        →0x23f52 ←0x23eda
            <MI 23ed0  MOVE.B  #0x01,(A4+D0.W+#0x5)>                            {[-8-]}
            <MI 23ed4  BRA     0x23f52>                                         {[-8-]}
        <POP 23ed6-23eda Naked>                              Σ-8        ↓ →0x23f28 ←0x23e96
            <MI 23ed6  TST.L   (A6-0x6)>                                        {[-8-]}
            <MI 23ed8  BLE     0x23f28>                                         {[-8-]}
        <POP 23eda-23f28 Naked>                              Σ-8        →0x23ed0
            <Blob 0x23eda [22] @>                            Δ-22               {[-8-]|[«22""»]}
            <POP 23ee6-23ee8 StackAdj>                       Δ-4                {[-8-]|[«22""»]|[-4-]}
            <Lit 0x23ee8 22>                                                    {[-8-]|[«22""»]|[$$ - PROM needs updating]}
            <Call 0x23ef6 0x103e0>                                              {[-8-]|[«22""»]|[$$ - PROM needs updating]}
                WriteConsoleStringCrLf(str : String)
            <POP 23efc-23f00 StackAdj>                       Δ+26               {[-8-]}
            <Blob 0x23f00 [64] @>                            Δ-64               {[-8-]|[«64""»]}
            <POP 23f0c-23f0e StackAdj>                       Δ-4                {[-8-]|[«64""»]|[-4-]}
            <Lit 0x23f0e 64>                                                    {[-8-]|[«64""»]|[$$  (the revision dates are identical but the data does not match)]}
            <Call 0x23f1c 0x103e0>                                              {[-8-]|[«64""»]|[$$  (the revision dates are identical but the data does not match)]}
                WriteConsoleStringCrLf(str : String)
            <POP 23f22-23f26 StackAdj>                       Δ+68               {[-8-]}
            <MI 23f26  BRA     0x23ed0>                                         {[-8-]}
        <POP 23f28-23f52 Naked>                              Σ-8        ↓ ←0x23ed6
            <Blob 0x23f28 [20] @>                            Δ-20               {[-8-]|[«20""»]}
            <POP 23f38-23f3a StackAdj>                       Δ-4                {[-8-]|[«20""»]|[-4-]}
            <Lit 0x23f3a 19>                                                    {[-8-]|[«20""»]|[$$ - OK, won't update]}
            <Call 0x23f48 0x103e0>                                              {[-8-]|[«20""»]|[$$ - OK, won't update]}
                WriteConsoleStringCrLf(str : String)
            <POP 23f4e-23f52 StackAdj>                       Δ+24               {[-8-]}
        <POP 23f52-23f54 Naked>                              Σ-8 Δ+4    ↓ ←0x23ed0
            <POP 23f52-23f54 StackAdj>                       Δ+4                {[-4-]}
        <POP 23f54-23f5c Naked>                              Σ-4 Δ+4    ↓ →0x23f88 ←0x23e38
            <POP 23f54-23f56 StackAdj>                       Δ+4                {}
            <MI 23f56  TST.B   (A4+D0.W+#0x5)>                                  {}
            <MI 23f5a  BEQ     0x23f88>                                         {}
        <POP 23f5c-23f68 Naked>                              Σ0         ↓ →0x23f84
            <MI 23f5c  MOVE.B  #0x01,(A4+0x4)>                                  {}
            <MI 23f60  ADDQ.L  #0x5,(A4+0x106)>                                 {}
            <MI 23f64  CMP.W   #0x50,D0>                                        {}
            <MI 23f66  BGE     0x23f84>                                         {}
        <POP 23f68-23f84 Naked>                              Σ0         →0x23f88
            <MI 23f68  MOVE.L  (A6-0x6),D4>                                     {}
            <MI 23f6a  MOVEQ.L #0x0c,D3>                                        {}
            <Call 0x23f6c 0x1028c>                                              {}
                ?muls_d3_d4
            <MI 23f72  MOVE.L  #0x3e8,D3>                                       {}
            <Call 0x23f78 0x10294>                                              {}
                ?divs_d3_d4
            <MI 23f7e  ADD.L   D4,(A4+0x106)>                                   {}
            <MI 23f82  BRA     0x23f88>                                         {}
        <POP 23f84-23f88 Naked>                              Σ0         ↓ ←0x23f5c
            <MI 23f84  ADDQ.L  #0x6,(A4+0x106)>                                 {}
        <POP 23f88-23f90 Epilogue>                           Σ0         ←0x23f54 ←0x23f68

0x23f90


@ 23f90
        <LVAR  0x008 2(r)>
        <LVAR -0x006 @>
        <LVAR -0x00a @ 4(r)>
    <POP 23f90-2402a Body>                                              
        <POP 23f90-23fa6 Prologue>                           Σ0         ↓
        <POP 23fa6-23fa8 RegCacheLoad>                       Σ0         ↓
        <POP 23fa8-23fb2 Naked>                              Σ0         ↓ →0x24022
            <MI 23fa8  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 23fac  TST.B   (A4+D0.W+#0x5)>                                  {}
            <MI 23fb0  BEQ     0x24022>                                         {}
        <POP 23fb2-24018 Naked>                              Σ0         ↓ →0x2401e
            <MI 23fb2  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x23fb4 <LVAR -0x006 @>>             Δ-4                {[2, 'D0']|[@@-6]}
            <Pointer.fp 0x23fb8 <LVAR -0x00a @ 4(r)>>        Δ-4                {[2, 'D0']|[@@-6]|[@@-10]}
            <Call 0x23fbc 0x21388>                                              {[2, 'D0']|[@@-6]|[@@-10]}
            <POP 23fc0-23fc2 StackAdj>                       Δ+6                {[2, 'D0']|[-2-]}
            <POP 23fc2-23fc3 StackAdj>                       Δ+4                {}
            <Blob 0x23fc3 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x23fc6 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x23fca [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x23fce [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 23fd2-23fd4 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
            <Lit 0x23fd4 16>                                                    {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Updating EEPROM_]}
            <POP 23fe4-23fe6 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Updating EEPROM_]|[-4-]}
            <MI 23fe6  MOVE.L  (A6-0xa),(A7)>                                   {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Updating EEPROM_]|[4, '(A6-0xa)']}
            <Call 0x23fea 0x102d0>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Updating EEPROM_]|[4, '(A6-0xa)']}
                StringCat2(a, b : String) : String
            <POP 23ff0-23ff2 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Call 0x23ff2 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 23ff8-23ffa StackAdj>                       Δ+16               {[«4""»]}
            <MI 23ffa  MOVE.L  (A4),(A7)>                                       {[4, '(A4)']}
            <MI 23ffc  MOVE.W  D0,D1>                                           {[4, '(A4)']}
            <MI 23ffe  EXTW.L  D1>                                              {[4, '(A4)']}
            <MI 24000  MOVE.L  D1,-(A7)>                     Δ-4                {[4, '(A4)']|[4, 'D1']}
            <MI 24002  CLR.B   -(A7)>                        Δ-2                {[4, '(A4)']|[4, 'D1']|[#0]}
            <Call 0x24004 0x2227a>                                              {[4, '(A4)']|[4, 'D1']|[#0]}
            <POP 24008-2400c StackAdj>                       Δ+10               {}
            <MI 2400c  CLR.B   0x25096>                                         {}
            <MI 24012  CMPI.W  #0x0050,D0>                                      {}
            <MI 24016  BGE     0x2401e>                                         {}
        <POP 24018-2401e Naked>                              Σ0         →0x24022
            <Call 0x24018 0x22dfa>                                              {}
            <MI 2401c  BRA     0x24022>                                         {}
        <POP 2401e-24022 Naked>                              Σ0         ↓ ←0x23fb2
            <Call 0x2401e 0x2302e>                                              {}
        <POP 24022-2402a Epilogue>                           Σ0         ←0x23fa8 ←0x24018

0x2402a


@ 2402a
    <POP 2402a-24062 Body>                                              
        <POP 2402a-2403c Prologue>                           Σ0         ↓
        <POP 2403c-2405e Naked>                              Σ0         ↓
            <Blob 0x2403c [2] @>                             Δ-2                {[«2""»]}
            <POP 24040-24042 StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <Lit 0x24042 2>                                                     {[«2""»]|[$$. ]}
            <Call 0x24056 0x103e0>                                              {[«2""»]|[$$. ]}
                WriteConsoleStringCrLf(str : String)
            <POP 2405c-2405e StackAdj>                       Δ+6                {}
        <POP 2405e-24062 Epilogue>                           Σ0         

0x24062


@ 24062
        <LVAR -0x00a 4(rw)>
        <LVAR -0x0bb 1(w)>
        <LVAR -0x10c 1(rw)>
        <LVAR -0x110 @ 4(w)>
    <POP 24062-2442c Body>                                              
        <POP 24062-24078 Prologue>                           Σ0         ↓
        <POP 24078-2408e RegCacheLoad>                       Σ0         ↓
        <POP 2408e-240fc Naked>                              Σ0         ↓ →0x2418e
            <Blob 0x2408e [52] @>                            Δ-52               {[«52""»]}
            <POP 240a0-240a2 StackAdj>                       Δ-4                {[«52""»]|[-4-]}
            <Lit 0x240a2 51>                                                    {[«52""»]|[$$Comparing the new prom files to the actual EEPROMs:]}
            <Call 0x240b4 0x103e0>                                              {[«52""»]|[$$Comparing the new prom files to the actual EEPROMs:]}
                WriteConsoleStringCrLf(str : String)
            <POP 240ba-240be StackAdj>                       Δ+56               {}
            <MI 240be  CLR.B   (A6-0x10c)>                                      {}
            <MI 240c2  MOVE.L  #0x01,(A6-0xa)>                                  {}
            <MI 240c6  MOVE.L  0x290b4,(A6-0x110)>                              {}
            <Const 0x240cc 0x21.2>                           Δ-2                {[#33]}
            <MI 240ce  LEA.L   (A6-0x110),A4>                                   {[#33]}
            <Call 0x240d0 0x23d42>                                              {[#33]}
            <POP 240d4-240d5 StackAdj>                       Δ+2                {}
            <Const 0x240d5 0x19.2>                           Δ-2                {[#25]}
            <MI 240d6  LEA.L   (A6-0x110),A4>                                   {[#25]}
            <Call 0x240d8 0x23d42>                                              {[#25]}
            <POP 240dc-240dd StackAdj>                       Δ+2                {}
            <Const 0x240dd 0x17.2>                           Δ-2                {[#23]}
            <MI 240e0  LEA.L   (A6-0x110),A4>                                   {[#23]}
            <Call 0x240e2 0x23d42>                                              {[#23]}
            <POP 240e6-240e7 StackAdj>                       Δ+2                {}
            <Const 0x240e7 0x15.2>                           Δ-2                {[#21]}
            <MI 240e8  LEA.L   (A6-0x110),A4>                                   {[#21]}
            <Call 0x240ea 0x23d42>                                              {[#21]}
            <POP 240ee-240f0 StackAdj>                       Δ+2                {}
            <MI 240f0  CLR.W   0x290c0>                                         {}
            <MI 240f6  TST.W   0x290be>                                         {}
            <MI 240f8  BLE     0x2418e>                                         {}
        <POP 240fc-24118 Naked>                              Σ0         ↓ →0x24152
            <POP 240fc-240fe StackAdj>                       Δ-2                {[-2-]}
            <Const 0x240fe 0x105.4>                          Δ-4                {[-2-]|[##261]}
            <Call 0x24102 0x10592>                                              {[-2-]|[##261]}
                ReadConfig(where : Long) : Word
            <POP 24108-2410a StackAdj>                       Δ+4                {[-2-]}
            <MI 2410a  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x2410c LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 2410e  MOVE.W  D0,D7>                                           {}
            <MI 24110  CMP.W   0x290bc,D7>                                      {}
            <MI 24116  BLT     0x24152>                                         {}
        <POP 24118-2411c Naked>                              Σ0         ↓ →0x24152
            <MI 24118  CMP.W   0x290be,D7>                                      {}
            <MI 2411a  BGE     0x24152>                                         {}
        <POP 2411c-24152 Naked>                              Σ0         →0x2418e
            <MI 2411c  MOVE.W  0x290be,0x290c0>                                 {}
            <MI 24122  MOVE.B  #0x01,(A6-0x10c)>                                {}
            <Blob 0x24126 [54] @>                            Δ-54               {[«54""»]}
            <POP 24132-24134 StackAdj>                       Δ-4                {[«54""»]|[-4-]}
            <Lit 0x24134 54>                                                    {[«54""»]|[$$the IOC board revision # in the EEPROM will be updated]}
            <Call 0x24146 0x103e0>                                              {[«54""»]|[$$the IOC board revision # in the EEPROM will be updated]}
                WriteConsoleStringCrLf(str : String)
            <POP 2414c-24150 StackAdj>                       Δ+58               {}
            <MI 24150  BRA     0x2418e>                                         {}
        <POP 24152-2415a Naked>                              Σ0         ↓ →0x2418e ←0x240fc ←0x24118
            <MI 24152  CMP.W   0x290bc,D7>                                      {}
            <MI 24158  BGE     0x2418e>                                         {}
        <POP 2415a-2418e Naked>                              Σ0         ↓
            <POP 2415a-2415c StackAdj>                       Δ-4                {[-4-]}
            <POP 2415c-2415d StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x2415d [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 24160  MOVE.B  0x20b31,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 24166  MOVE.B  0x20b32,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 2416c-2416e StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x2416e>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x2416e 4>                       Δ-4        
                <Const 0x24172 0x1.2>                        Δ-2        
                <Const 0x24174 0x3.2>                        Δ-2        
                <Call 0x24178 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2417e-24180 StackAdj>                   Δ+8        
            <POP 0x24180 LimitCheck 0x0 ≤ D7 ≤ 0xff>                            {[-2-]|[«2""»]|[$$…]}
            <MI 24182  MOVE.W  D7,-(A7)>                     Δ-2                {[-2-]|[«2""»]|[$$…]|[2, 'D7']}
            <Blob 0x24184 [2] 0x290be>                       Δ-2                {[-2-]|[«2""»]|[$$…]|[2, 'D7']|[«2»]}
            <Call 0x24186 0x2402a>                                              {[-2-]|[«2""»]|[$$…]|[2, 'D7']|[«2»]}
            <POP 2418a-2418e StackAdj>                       Δ+12               {}
        <POP 2418e-2419a Naked>                              Σ0         ↓ →0x241a8 ←0x2408e ←0x2411c ←0x24152
            <POP 2418e-24190 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x24190 0x10604>                                              {[-2-]}
                Is_fc07_three() : Bool
            <MI 24196  TST.B   (A7)+>                        Δ+2                {}
            <MI 24198  BNE     0x241a8>                                         {}
        <POP 2419a-241a8 Naked>                              Σ0         ↓ →0x2428a
            <POP 2419a-2419c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2419c 0x1060a>                                              {[-2-]}
                Is_fc07_four() : Bool
            <MI 241a2  TST.B   (A7)+>                        Δ+2                {}
            <MI 241a4  BEQ     0x2428a>                                         {}
        <POP 241a8-241ec Naked>                              Σ0         ↓ →0x2428a ←0x2418e
            <MI 241a8  MOVE.L  0x290b8,(A6-0x110)>                              {}
            <Const 0x241ae 0x50.2>                           Δ-2                {[#80]}
            <MI 241b2  LEA.L   (A6-0x110),A4>                                   {[#80]}
            <Call 0x241b4 0x23d42>                                              {[#80]}
            <POP 241b8-241b9 StackAdj>                       Δ+2                {}
            <Const 0x241b9 0x51.2>                           Δ-2                {[#81]}
            <MI 241bc  LEA.L   (A6-0x110),A4>                                   {[#81]}
            <Call 0x241be 0x23d42>                                              {[#81]}
            <POP 241c2-241c3 StackAdj>                       Δ+2                {}
            <Const 0x241c3 0x52.2>                           Δ-2                {[#82]}
            <MI 241c6  LEA.L   (A6-0x110),A4>                                   {[#82]}
            <Call 0x241c8 0x23d42>                                              {[#82]}
            <POP 241cc-241cd StackAdj>                       Δ+2                {}
            <Const 0x241cd 0x53.2>                           Δ-2                {[#83]}
            <MI 241d0  LEA.L   (A6-0x110),A4>                                   {[#83]}
            <Call 0x241d2 0x23d42>                                              {[#83]}
            <POP 241d6-241d8 StackAdj>                       Δ+2                {}
            <MI 241d8  CLR.W   0x290c2>                                         {}
            <POP 241de-241e0 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x241e0 0x24db6>                                              {[-4-]}
            <MI 241e6  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 241e8  BEQ     0x2428a>                                         {}
        <POP 241ec-241f2 Naked>                              Σ0         ↓ →0x2428a
            <MI 241ec  TST.W   0x290be>                                         {}
            <MI 241ee  BLE     0x2428a>                                         {}
        <POP 241f2-2420c Naked>                              Σ0         ↓ →0x24250
            <POP 241f2-241f4 StackAdj>                       Δ-2                {[-2-]}
            <MI 241f4  MOVE.L  D6,-(A7)>                     Δ-4                {[-2-]|[4, 'D6']}
            <MI 241f6  ADDQ.L  #0x4,(A7)>                                       {[-6-]}
            <Call 0x241f8 0x224a8>                                              {[-6-]}
            <POP 241fc-241fe StackAdj>                       Δ+4                {[-2-]}
            <MI 241fe  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x24200 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 24202  MOVE.W  D0,D7>                                           {}
            <MI 24204  CMP.W   0x290bc,D7>                                      {}
            <MI 2420a  BLT     0x24250>                                         {}
        <POP 2420c-24210 Naked>                              Σ0         ↓ →0x24250
            <MI 2420c  CMP.W   0x290be,D7>                                      {}
            <MI 2420e  BGE     0x24250>                                         {}
        <POP 24210-24250 Naked>                              Σ0         →0x2428a
            <MI 24210  MOVE.W  0x290be,0x290c2>                                 {}
            <MI 24216  MOVE.B  #0x01,(A6-0x10c)>                                {}
            <MI 2421a  MOVE.B  #0x01,(A6-0xbb)>                                 {}
            <Blob 0x2421e [54] @>                            Δ-54               {[«54""»]}
            <POP 24230-24232 StackAdj>                       Δ-4                {[«54""»]|[-4-]}
            <Lit 0x24232 53>                                                    {[«54""»]|[$$the RESHA board revision # in the EEPROM will updated]}
            <Call 0x24244 0x103e0>                                              {[«54""»]|[$$the RESHA board revision # in the EEPROM will updated]}
                WriteConsoleStringCrLf(str : String)
            <POP 2424a-2424e StackAdj>                       Δ+58               {}
            <MI 2424e  BRA     0x2428a>                                         {}
        <POP 24250-24258 Naked>                              Σ0         ↓ →0x2428a ←0x241f2 ←0x2420c
            <MI 24250  CMP.W   0x290bc,D7>                                      {}
            <MI 24256  BGE     0x2428a>                                         {}
        <POP 24258-2428a Naked>                              Σ0         ↓
            <Blob 0x24258 [6] @>                             Δ-6                {[«6""»]}
            <POP 24268-2426a StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <Lit 0x2426a 5>                                                     {[«6""»]|[$$RESHA]}
            <POP 0x2427c LimitCheck 0x0 ≤ D7 ≤ 0xff>                            {[«6""»]|[$$RESHA]}
            <MI 2427e  MOVE.W  D7,-(A7)>                     Δ-2                {[«6""»]|[$$RESHA]|[2, 'D7']}
            <Blob 0x24280 [2] 0x290be>                       Δ-2                {[«6""»]|[$$RESHA]|[2, 'D7']|[«2»]}
            <Call 0x24282 0x2402a>                                              {[«6""»]|[$$RESHA]|[2, 'D7']|[«2»]}
            <POP 24286-2428a StackAdj>                       Δ+14               {}
        <POP 2428a-24290 Naked>                              Σ0         ↓ →0x242be ←0x2419a ←0x241a8 ←0x241ec ←0x24210 ←0x24250
            <MI 2428a  TST.B   (A6-0x10c)>                                      {}
            <MI 2428e  BNE     0x242be>                                         {}
        <POP 24290-242be Naked>                              Σ0         →0x24424
            <Blob 0x24290 [24] @>                            Δ-24               {[«24""»]}
            <POP 2429c-2429e StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x2429e 24>                                                    {[«24""»]|[$$no EEPROMs need updating]}
            <Call 0x242b0 0x103e0>                                              {[«24""»]|[$$no EEPROMs need updating]}
                WriteConsoleStringCrLf(str : String)
            <POP 242b6-242ba StackAdj>                       Δ+28               {}
            <MI 242ba  BRA     0x24424>                                         {}
        <POP 242be-2435c Naked>                              Σ0         ↓ →0x243aa ←0x2428a
            <Blob 0x242be [38] @>                            Δ-38               {[«38""»]}
            <Blob 0x242d0 [22] @>                            Δ-22               {[«38""»]|[«22""»]}
            <POP 242e2-242e4 StackAdj>                       Δ-8                {[«38""»]|[«22""»]|[-8-]}
            <Lit 0x242e4 37>                                                    {[«38""»]|[«22""»]|[-4-]|[$$updating the EEPROMS will take about_]}
            <MI 242f4  MOVE.L  (A6-0xa),(A7)>                                   {[«38""»]|[«22""»]|[-4-]|[4, '(A6-0xa)']}
            <POP 242ee-242f4 StackAdj>                       Δ-8                {[«38""»]|[«22""»]|[-4-]|[4, '(A6-0xa)']|[-8-]}
            <Call 0x242f8 0x102e4>                                              {[«38""»]|[«22""»]|[-4-]|[4, '(A6-0xa)']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x242fe 21>                                                    {[«38""»]|[«22""»]|[-4-]|[4, '(A6-0xa)']|[-4-]|[$$ seconds to complete.]}
            <Call 0x2430e 0x102d4>                                              {[«38""»]|[«22""»]|[-4-]|[4, '(A6-0xa)']|[-4-]|[$$ seconds to complete.]}
                StringCat3(a, b, c : String) : String
            <POP 24314-24318 StackAdj>                       Δ+12               {[«38""»]|[«22""»]|[-4-]}
            <Call 0x24318 0x103e0>                                              {[«38""»]|[«22""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2431e-24322 StackAdj>                       Δ+62               {[-2-]}
            <MI 24322  CLR.B   (A7)>                                            {[-2-]}
            <Call 0x24324 0x235ba>                                              {[-2-]}
            <POP 24328-2432a StackAdj>                       Δ+2                {}
            <MI 2432a  MOVE.L  0x290b4,(A6-0x110)>                              {}
            <Const 0x24330 0x21.2>                           Δ-2                {[#33]}
            <MI 24332  LEA.L   (A6-0x110),A4>                                   {[#33]}
            <Call 0x24334 0x23f90>                                              {[#33]}
            <POP 24338-24339 StackAdj>                       Δ+2                {}
            <Const 0x24339 0x19.2>                           Δ-2                {[#25]}
            <MI 2433a  LEA.L   (A6-0x110),A4>                                   {[#25]}
            <Call 0x2433c 0x23f90>                                              {[#25]}
            <POP 24340-24341 StackAdj>                       Δ+2                {}
            <Const 0x24341 0x17.2>                           Δ-2                {[#23]}
            <MI 24344  LEA.L   (A6-0x110),A4>                                   {[#23]}
            <Call 0x24346 0x23f90>                                              {[#23]}
            <POP 2434a-2434b StackAdj>                       Δ+2                {}
            <Const 0x2434b 0x15.2>                           Δ-2                {[#21]}
            <MI 2434c  LEA.L   (A6-0x110),A4>                                   {[#21]}
            <Call 0x2434e 0x23f90>                                              {[#21]}
            <POP 24352-24354 StackAdj>                       Δ+2                {}
            <MI 24354  TST.W   0x290c0>                                         {}
            <MI 2435a  BLE     0x243aa>                                         {}
        <POP 2435c-243aa Naked>                              Σ0         ↓
            <POP 2435c-2435e StackAdj>                       Δ-2                {[-2-]}
            <Const 0x2435e 0x105.4>                          Δ-4                {[-2-]|[##261]}
            <Call 0x24362 0x10592>                                              {[-2-]|[##261]}
                ReadConfig(where : Long) : Word
            <POP 24368-2436a StackAdj>                       Δ+4                {[-2-]}
            <MI 2436a  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x2436c LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 2436e  MOVE.W  D0,D7>                                           {}
            <Const 0x24370 0x105.4>                          Δ-4                {[##261]}
            <Blob 0x24374 [2] 0x290c0>                       Δ-2                {[##261]|[«2»]}
            <Call 0x2437a 0x10598>                                              {[##261]|[«2»]}
                WriteConfig(what: Word; where : Long)
            <POP 24380-24382 StackAdj>                       Δ+6                {}
            <Const 0x24382 0x108.4>                          Δ-4                {[##264]}
            <POP 24386-24388 StackAdj>                       Δ-2                {[##264]|[-2-]}
            <Const 0x24388 0x108.4>                          Δ-4                {[##264]|[-2-]|[##264]}
            <Call 0x2438c 0x10592>                                              {[##264]|[-2-]|[##264]}
                ReadConfig(where : Long) : Word
            <POP 24392-24394 StackAdj>                       Δ+4                {[##264]|[-2-]}
            <MI 24394  ADD.W   D7,(A7)>                                         {[##264]|[-2-]}
            <MI 24396  MOVE.W  (A7),D0>                                         {[##264]|[-2-]}
            <MI 24398  SUB.W   0x290c0,D0>                                      {[##264]|[-2-]}
            <MI 2439e  AND.W   #0xff,D0>                                        {[##264]|[-2-]}
            <MI 243a0  MOVE.W  D0,(A7)>                                         {[##264]|[2, 'D0']}
            <Call 0x243a2 0x10598>                                              {[##264]|[2, 'D0']}
                WriteConfig(what: Word; where : Long)
            <POP 243a8-243aa StackAdj>                       Δ+6                {}
        <POP 243aa-243b6 Naked>                              Σ0         ↓ →0x243c2 ←0x242be
            <POP 243aa-243ac StackAdj>                       Δ-2                {[-2-]}
            <Call 0x243ac 0x10604>                                              {[-2-]}
                Is_fc07_three() : Bool
            <MI 243b2  TST.B   (A7)+>                        Δ+2                {}
            <MI 243b4  BNE     0x243c2>                                         {}
        <POP 243b6-243c2 Naked>                              Σ0         ↓ →0x243f2
            <POP 243b6-243b8 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x243b8 0x1060a>                                              {[-2-]}
                Is_fc07_four() : Bool
            <MI 243be  TST.B   (A7)+>                        Δ+2                {}
            <MI 243c0  BEQ     0x243f2>                                         {}
        <POP 243c2-243f2 Naked>                              Σ0         ↓ ←0x243aa
            <MI 243c2  MOVE.L  0x290b8,(A6-0x110)>                              {}
            <Const 0x243c8 0x51.2>                           Δ-2                {[#81]}
            <MI 243cc  LEA.L   (A6-0x110),A4>                                   {[#81]}
            <Call 0x243ce 0x23f90>                                              {[#81]}
            <POP 243d2-243d3 StackAdj>                       Δ+2                {}
            <Const 0x243d3 0x52.2>                           Δ-2                {[#82]}
            <MI 243d6  LEA.L   (A6-0x110),A4>                                   {[#82]}
            <Call 0x243d8 0x23f90>                                              {[#82]}
            <POP 243dc-243dd StackAdj>                       Δ+2                {}
            <Const 0x243dd 0x53.2>                           Δ-2                {[#83]}
            <MI 243e0  LEA.L   (A6-0x110),A4>                                   {[#83]}
            <Call 0x243e2 0x23f90>                                              {[#83]}
            <POP 243e6-243e7 StackAdj>                       Δ+2                {}
            <Const 0x243e7 0x50.2>                           Δ-2                {[#80]}
            <MI 243ea  LEA.L   (A6-0x110),A4>                                   {[#80]}
            <Call 0x243ec 0x23f90>                                              {[#80]}
            <POP 243f0-243f2 StackAdj>                       Δ+2                {}
        <POP 243f2-24424 Naked>                              Σ0         ↓ ←0x243b6
            <Const 0x243f2 0x1.2>                            Δ-2                {[#1]}
            <Call 0x243f4 0x235ba>                                              {[#1]}
            <POP 243f8-243fa StackAdj>                       Δ+2                {}
            <Blob 0x243fa [30] @>                            Δ-30               {[«30""»]}
            <POP 24406-24408 StackAdj>                       Δ-4                {[«30""»]|[-4-]}
            <Lit 0x24408 30>                                                    {[«30""»]|[$$all EEPROMs are up to date now]}
            <Call 0x2441a 0x103e0>                                              {[«30""»]|[$$all EEPROMs are up to date now]}
                WriteConsoleStringCrLf(str : String)
            <POP 24420-24424 StackAdj>                       Δ+34               {}
        <POP 24424-2442c Epilogue>                           Σ0         ←0x24290

0x2442c


@ 2442c
    <POP 2442c-245a0 Body>                                   Δ+12       
        <POP 2442c-24442 Prologue>                           Σ0         ↓
        <POP 24442-24454 RegCacheLoad>                       Σ0         ↓
        <POP 24454-24562 Naked>                              Σ0         →0x2456c →0x2456e →0x24576 →0x2457e →0x24586 ←0x24592
            <Blob 0x24454 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x24458 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x2445c [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 24460-24462 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x24462 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
            <Call 0x2446e 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
                WriteConsoleStringCrLf(str : String)
            <POP 24470-24471 StackAdj>                       Δ+16       ↓       {}
            <Blob 0x24471 [14] @>                            Δ-14               {[«14""»]}
            <POP 24480-24482 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x24482 13>                                                    {[«14""»]|[$$    0 => Exit]}
            <Call 0x24490 0x103e0>                                              {[«14""»]|[$$    0 => Exit]}
                WriteConsoleStringCrLf(str : String)
            <POP 24492-24493 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x24493 [52] @>                            Δ-52               {[«52""»]}
            <POP 244a4-244a6 StackAdj>                       Δ-4                {[«52""»]|[-4-]}
            <Lit 0x244a6 51>                                                    {[«52""»]|[$$    1 => Test SELFTEST EEPROM location        (K21)]}
            <Call 0x244b2 0x103e0>                                              {[«52""»]|[$$    1 => Test SELFTEST EEPROM location        (K21)]}
                WriteConsoleStringCrLf(str : String)
            <POP 244b4-244b5 StackAdj>                       Δ+56       ↓       {}
            <Blob 0x244b5 [52] @>                            Δ-52               {[«52""»]}
            <POP 244c4-244c6 StackAdj>                       Δ-4                {[«52""»]|[-4-]}
            <Lit 0x244c6 51>                                                    {[«52""»]|[$$    2 => Test BOOT EEPROM location            (K19)]}
            <Call 0x244d2 0x103e0>                                              {[«52""»]|[$$    2 => Test BOOT EEPROM location            (K19)]}
                WriteConsoleStringCrLf(str : String)
            <POP 244d4-244d5 StackAdj>                       Δ+56       ↓       {}
            <Blob 0x244d5 [52] @>                            Δ-52               {[«52""»]}
            <POP 244e4-244e6 StackAdj>                       Δ-4                {[«52""»]|[-4-]}
            <Lit 0x244e6 51>                                                    {[«52""»]|[$$    3 => Test UTILITIES/DEBUG EEPROM location (K17)]}
            <Call 0x244f2 0x103e0>                                              {[«52""»]|[$$    3 => Test UTILITIES/DEBUG EEPROM location (K17)]}
                WriteConsoleStringCrLf(str : String)
            <POP 244f4-244f5 StackAdj>                       Δ+56       ↓       {}
            <Blob 0x244f5 [52] @>                            Δ-52               {[«52""»]}
            <POP 24504-24506 StackAdj>                       Δ-4                {[«52""»]|[-4-]}
            <Lit 0x24506 51>                                                    {[«52""»]|[$$    4 => Test NOVRAM/NET/DEB2 EEPROM location (K15)]}
            <Call 0x24512 0x103e0>                                              {[«52""»]|[$$    4 => Test NOVRAM/NET/DEB2 EEPROM location (K15)]}
                WriteConsoleStringCrLf(str : String)
            <POP 24514-24515 StackAdj>                       Δ+56       ↓       {}
            <Blob 0x24515 [16] @>                            Δ-16               {[«16""»]}
            <POP 24526-24528 StackAdj>                       Δ-8                {[«16""»]|[-8-]}
            <Lit 0x24528 15>                                                    {[«16""»]|[-4-]|[$$Enter option :_]}
            <Const 0x24536 0x0.4>                            Δ-4                {[«16""»]|[-4-]|[$$Enter option :_]|[##0]}
            <Const 0x2453a 0x4.4>                            Δ-4                {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[##4]}
            <Call 0x2453e 0x103ec>                                              {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[##4]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 24544-24546 StackAdj>                       Δ+12               {[«16""»]|[-4-]}
            <MI 24546  MOVE.L  (A7)+,D7>                     Δ+4                {[«16""»]}
            <POP 24548-2454c StackAdj>                       Δ+16               {}
            <MI 2454c  MOVE.L  D7,D0>                                           {}
            <POP 0x2454e LimitCheck 0x0 ≤ D0 ≤ 0x4>                             {}
            <MI 24558  ADD.W   D0,D0>                                           {}
            <MI 2455a  SWITCH  D0.W>                                            {}
        <POP 2456c-2456e Naked>                              Σ0         →0x24592 ←0x24454
            <MI 2456c  BRA     0x24592>                                         {}
        <POP 2456e-24576 Naked>                              Σ0 Δ-4     →0x2458c ←0x24454
            <Const 0x2456e 0x80001fff.4>                     Δ-4                {[##2147491839]}
            <MI 24574  BRA     0x2458c>                                         {[##2147491839]}
        <POP 24576-2457e Naked>                              Σ0 Δ-4     →0x2458c ←0x24454
            <Const 0x24576 0x80003fff.4>                     Δ-4                {[##2147500031]}
            <MI 2457c  BRA     0x2458c>                                         {[##2147500031]}
        <POP 2457e-24586 Naked>                              Σ0 Δ-4     →0x2458c ←0x24454
            <Const 0x2457e 0x80005fff.4>                     Δ-4                {[##2147508223]}
            <MI 24584  BRA     0x2458c>                                         {[##2147508223]}
        <POP 24586-2458c Naked>                              Σ0 Δ-4     ↓ ←0x24454
            <Const 0x24586 0x80007dff.4>                     Δ-4                {[##2147515903]}
        <POP 2458c-24592 Naked>                              Σ-4 Δ+4    ↓ ←0x2456e ←0x24576 ←0x2457e
            <Call 0x2458c 0x22584>                                              {[-4-]}
            <POP 24590-24592 StackAdj>                       Δ+4                {}
        <POP 24592-24598 Naked>                              Σ0         ↓ →0x24454 ←0x2456c
            <MI 24592  TST.L   D7>                                              {}
            <MI 24594  BNE     0x24454>                                         {}
        <POP 24598-245a0 Epilogue>                           Σ0         

0x245a0


@ 245a0
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x00e @ 4(r)>
        <LVAR -0x012 @ 4(r)>
    <POP 245a0-2476e Body>                                              
        <POP 245a0-245b6 Prologue>                           Σ0         ↓
        <POP 245b6-245c8 RegCacheLoad>                       Σ0         ↓
        <POP 245c8-245e4 Naked>                              Σ0 Δ-4     ↓
            <MI 245c8  MOVE.W  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <Pointer.fp 0x245cc <LVAR -0x012 @ 4(r)>>        Δ-4                {[2, '(A6+0xc)']|[@@-18]}
            <Pointer.fp 0x245d0 <LVAR -0x00e @ 4(r)>>        Δ-4                {[2, '(A6+0xc)']|[@@-18]|[@@-14]}
            <Call 0x245d4 0x21388>                                              {[2, '(A6+0xc)']|[@@-18]|[@@-14]}
            <POP 245d8-245dc StackAdj>                       Δ+10               {}
            <MI 245dc  MOVEQ.L #0x00,D7>                                        {}
            <MI 245de  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 245e2  MOVEQ.L #0x00,D6>                                        {[4, '(A6+0x8)']}
        <POP 245e4-245e8 Naked>                              Σ-4        ↓ →0x2460e ←0x245e8
            <MI 245e4  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 245e6  BGT     0x2460e>                                         {[-4-]}
        <POP 245e8-2460e Naked>                              Σ-4        ↓ →0x245e4
            <POP 245e8-245ea StackAdj>                       Δ-2                {[-6-]}
            <MI 245ea  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[-6-]|[4, '(A6-0x12)']}
            <MI 245ee  ADD.L   D6,(A7)>                                         {[-10-]}
            <Call 0x245f0 0x224a8>                                              {[-10-]}
            <POP 245f2-245f4 StackAdj>                       Δ+4                {[-6-]}
            <MI 245f4  MOVE.W  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 245f6  EXTW.L  D0>                                              {[-4-]}
            <MI 245f8  ADD.L   D0,D7>                                           {[-4-]}
            <MI 245fa  MOVE.L  D7,D4>                                           {[-4-]}
            <MI 245fc  MOVE.L  #0x100,D3>                                       {[-4-]}
            <Call 0x24602 0x10294>                                              {[-4-]}
                ?divs_d3_d4
            <MI 24608  MOVE.L  D3,D7>                                           {[-4-]}
            <MI 2460a  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 2460c  BVC     0x245e4>                                         {[-4-]}
        <POP 2460e-24710 Naked>                              Σ-4 Δ+4    ↓ →0x2473e ←0x245e4
            <POP 2460e-24610 StackAdj>                       Δ+4                {}
            <MI 24610  ADDI.L  #0x00000100,D7>                                  {}
            <MI 24616  MOVE.L  (A6-0x12),D0>                                    {}
            <MI 2461a  ADD.L   (A6+0x8),D0>                                     {}
            <POP 2461e-24620 StackAdj>                       Δ-2                {[-2-]}
            <MI 24620  MOVE.L  D0,-(A7)>                     Δ-4                {[-2-]|[4, 'D0']}
            <MI 24622  SUBQ.L  #0x5,(A7)>                                       {[-6-]}
            <Call 0x24624 0x224a8>                                              {[-6-]}
            <POP 24626-24628 StackAdj>                       Δ+4                {[-2-]}
            <MI 24628  MOVE.W  (A7)+,D1>                     Δ+2                {}
            <MI 2462a  EXTW.L  D1>                                              {}
            <MI 2462c  SUB.L   D1,D7>                                           {}
            <MI 2462e  MOVE.L  D7,D4>                                           {}
            <MI 24630  MOVE.L  #0x100,D3>                                       {}
            <Call 0x24636 0x10294>                                              {}
                ?divs_d3_d4
            <MI 2463c  MOVE.L  D3,D7>                                           {}
            <Blob 0x2463e [18] @>                            Δ-18               {[«18""»]}
            <POP 2464a-2464c StackAdj>                       Δ-8                {[«18""»]|[-8-]}
            <MI 2464c  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«18""»]|[-8-]|[4, '(A6-0xe)']}
            <Const 0x24650 0x8.4>                            Δ-4                {[«18""»]|[-8-]|[4, '(A6-0xe)']|[##8]}
            <Call 0x24654 0x102f8>                                              {[«18""»]|[-8-]|[4, '(A6-0xe)']|[##8]}
                LeftPad(a : String; b : Long) : String
            <POP 2465a-2465c StackAdj>                       Δ+4                {[«18""»]|[-8-]|[4, '(A6-0xe)']}
            <Lit 0x2465c 18>                                                    {[«18""»]|[-8-]|[$$ prom: revision =_]}
            <POP 24668-2466a StackAdj>                       Δ-10               {[«18""»]|[-8-]|[$$ prom: revision =_]|[-10-]}
            <MI 2466a  MOVE.L  D0,-(A7)>                     Δ-4                {[«18""»]|[-8-]|[$$ prom: revision =_]|[-10-]|[4, 'D0']}
            <MI 2466c  SUBQ.L  #0x4,(A7)>                                       {[«18""»]|[-8-]|[$$ prom: revision =_]|[-14-]}
            <Call 0x2466e 0x224a8>                                              {[«18""»]|[-8-]|[$$ prom: revision =_]|[-14-]}
            <POP 24670-24672 StackAdj>                       Δ+4                {[«18""»]|[-8-]|[$$ prom: revision =_]|[-10-]}
            <MI 24672  MOVE.W  (A7)+,D1>                     Δ+2                {[«18""»]|[-8-]|[$$ prom: revision =_]|[-8-]}
            <MI 24674  EXTW.L  D1>                                              {[«18""»]|[-8-]|[$$ prom: revision =_]|[-8-]}
            <MI 24676  MOVE.L  D1,(A7)>                                         {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']}
            <Const 0x24678 0x2.4>                            Δ-4                {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]}
            <Call 0x2467a 0x102e8>                                              {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 24680-24682 StackAdj>                       Δ-2                {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]|[-2-]}
            <MI 24682  MOVE.L  D0,-(A7)>                     Δ-4                {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]|[-2-]|[4, 'D0']}
            <MI 24684  SUBQ.L  #0x3,(A7)>                                       {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]|[-6-]}
            <Call 0x24686 0x224a8>                                              {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]|[-6-]}
            <POP 24688-2468a StackAdj>                       Δ+4                {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]|[-2-]}
            <MI 2468a  MOVE.W  (A7)+,D1>                     Δ+2                {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]}
            <MI 2468c  EXTW.L  D1>                                              {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[##2]}
            <MI 2468e  MOVE.L  D1,(A7)>                                         {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']}
            <Const 0x24690 0x2.4>                            Δ-4                {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]}
            <Call 0x24692 0x102e8>                                              {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 24698-2469a StackAdj>                       Δ-2                {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]|[-2-]}
            <MI 2469a  MOVE.L  D0,-(A7)>                     Δ-4                {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]|[-2-]|[4, 'D0']}
            <MI 2469c  SUBQ.L  #0x2,(A7)>                                       {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]|[-6-]}
            <Call 0x2469e 0x224a8>                                              {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]|[-6-]}
            <POP 246a0-246a2 StackAdj>                       Δ+4                {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]|[-2-]}
            <MI 246a2  MOVE.W  (A7)+,D1>                     Δ+2                {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]}
            <MI 246a4  EXTW.L  D1>                                              {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[##2]}
            <MI 246a6  MOVE.L  D1,(A7)>                                         {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[4, 'D1']}
            <Const 0x246a8 0x2.4>                            Δ-4                {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[4, 'D1']|[##2]}
            <Call 0x246aa 0x102e8>                                              {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']|[4, 'D1']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 246b0-246b2 StackAdj>                       Δ+8                {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']}
            <Call 0x246b2 0x102dc>                                              {[«18""»]|[-8-]|[$$ prom: revision =_]|[-4-]|[4, 'D1']|[4, 'D1']}
                StringCat5(a, b, c, d, e : String) : String
            <POP 246b8-246ba StackAdj>                       Δ+20               {[«18""»]|[-4-]}
            <Call 0x246ba 0x103d8>                                              {[«18""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 246c0-246c1 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x246c1 [16] @>                            Δ-16               {[«16""»]}
            <POP 246d0-246d2 StackAdj>                       Δ-8                {[«16""»]|[-8-]}
            <Lit 0x246d2 15>                                                    {[«16""»]|[-4-]|[$$, locus byte =_]}
            <POP 246de-246e0 StackAdj>                       Δ-10               {[«16""»]|[-4-]|[$$, locus byte =_]|[-10-]}
            <MI 246e0  SUBQ.L  #0x1,D0>                                         {[«16""»]|[-4-]|[$$, locus byte =_]|[-10-]}
            <MI 246e2  MOVE.L  D0,-(A7)>                     Δ-4                {[«16""»]|[-4-]|[$$, locus byte =_]|[-10-]|[4, 'D0']}
            <Call 0x246e4 0x224a8>                                              {[«16""»]|[-4-]|[$$, locus byte =_]|[-10-]|[4, 'D0']}
            <POP 246e6-246e8 StackAdj>                       Δ+4                {[«16""»]|[-4-]|[$$, locus byte =_]|[-10-]}
            <MI 246e8  MOVE.W  (A7)+,D0>                     Δ+2                {[«16""»]|[-4-]|[$$, locus byte =_]|[-8-]}
            <MI 246ea  EXTW.L  D0>                                              {[«16""»]|[-4-]|[$$, locus byte =_]|[-8-]}
            <MI 246ec  MOVE.L  D0,(A7)>                                         {[«16""»]|[-4-]|[$$, locus byte =_]|[-4-]|[4, 'D0']}
            <Const 0x246ee 0x2.4>                            Δ-4                {[«16""»]|[-4-]|[$$, locus byte =_]|[-4-]|[4, 'D0']|[##2]}
            <Call 0x246f0 0x102e8>                                              {[«16""»]|[-4-]|[$$, locus byte =_]|[-4-]|[4, 'D0']|[##2]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 246f6-246f8 StackAdj>                       Δ+8                {[«16""»]|[-4-]|[$$, locus byte =_]|[-4-]}
            <Call 0x246f8 0x102d0>                                              {[«16""»]|[-4-]|[$$, locus byte =_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 246fe-24700 StackAdj>                       Δ+8                {[«16""»]|[-4-]}
            <Call 0x24700 0x103d8>                                              {[«16""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 24706-24708 StackAdj>                       Δ+20               {}
            <MI 24708  CMPI.L  #0x000000aa,D7>                                  {}
            <MI 2470e  BEQ     0x2473e>                                         {}
        <POP 24710-2473e Naked>                              Σ0         →0x24766
            <Blob 0x24710 [22] @>                            Δ-22               {[«22""»]}
            <POP 24722-24724 StackAdj>                       Δ-4                {[«22""»]|[-4-]}
            <Lit 0x24724 21>                                                    {[«22""»]|[$$, CHECKSUM IS BAD ***]}
            <Call 0x24732 0x103e0>                                              {[«22""»]|[$$, CHECKSUM IS BAD ***]}
                WriteConsoleStringCrLf(str : String)
            <POP 24738-2473c StackAdj>                       Δ+26               {}
            <MI 2473c  BRA     0x24766>                                         {}
        <POP 2473e-24766 Naked>                              Σ0         ↓ ←0x2460e
            <Blob 0x2473e [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x24742 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x24746 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x2474a [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 2474e-24750 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x24750 16>                                                    {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$, checksum is OK]}
            <Call 0x2475e 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$, checksum is OK]}
                WriteConsoleStringCrLf(str : String)
            <POP 24764-24766 StackAdj>                       Δ+20               {}
        <POP 24766-2476e Epilogue>                           Σ0         ←0x24710

0x2476e


@ 2476e
        <LVAR -0x004 @>
    <POP 2476e-2481c Body>                                              
        <POP 2476e-24784 Prologue>                           Σ0         ↓
        <POP 24784-2478c RegCacheLoad>                       Σ0         ↓
        <POP 2478c-247c0 Naked>                              Σ0         ↓ →0x247cc
            <Const 0x2478c 0x21.2>                           Δ-2                {[#33]}
            <Const 0x24790 0x1fff.4>                         Δ-4                {[#33]|[##8191]}
            <Call 0x24792 0x245a0>                                              {[#33]|[##8191]}
            <POP 24794-24796 StackAdj>                       Δ+4                {[#33]}
            <POP 24796-24797 StackAdj>                       Δ+2                {}
            <Const 0x24797 0x19.2>                           Δ-2                {[#25]}
            <Const 0x2479a 0x1fff.4>                         Δ-4                {[#25]|[##8191]}
            <Call 0x2479c 0x245a0>                                              {[#25]|[##8191]}
            <POP 2479e-247a0 StackAdj>                       Δ+4                {[#25]}
            <POP 247a0-247a1 StackAdj>                       Δ+2                {}
            <Const 0x247a1 0x17.2>                           Δ-2                {[#23]}
            <Const 0x247a4 0x1fff.4>                         Δ-4                {[#23]|[##8191]}
            <Call 0x247a6 0x245a0>                                              {[#23]|[##8191]}
            <POP 247a8-247aa StackAdj>                       Δ+4                {[#23]}
            <POP 247aa-247ab StackAdj>                       Δ+2                {}
            <Const 0x247ab 0x15.2>                           Δ-2                {[#21]}
            <Const 0x247ae 0x1dff.4>                         Δ-4                {[#21]|[##7679]}
            <Call 0x247b2 0x245a0>                                              {[#21]|[##7679]}
            <POP 247b4-247b6 StackAdj>                       Δ+4                {[#21]}
            <Call 0x247b6 0x10604>                                              {[#21]}
                Is_fc07_three() : Bool
            <MI 247bc  TST.B   (A7)+>                        Δ+2                {}
            <MI 247be  BNE     0x247cc>                                         {}
        <POP 247c0-247cc Naked>                              Σ0         ↓ →0x24814
            <POP 247c0-247c2 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x247c2 0x1060a>                                              {[-2-]}
                Is_fc07_four() : Bool
            <MI 247c8  TST.B   (A7)+>                        Δ+2                {}
            <MI 247ca  BEQ     0x24814>                                         {}
        <POP 247cc-24814 Naked>                              Σ0         ↓ ←0x2478c
            <Const 0x247cc 0x0.4>                            Δ-4                {[##0]}
            <Pointer.fp 0x247d0 <LVAR -0x004 @>>             Δ-4                {[##0]|[@@-4]}
            <Call 0x247d4 0x24e0a>                                              {[##0]|[@@-4]}
            <POP 247da-247dc StackAdj>                       Δ+8                {}
            <Const 0x247dc 0x1.4>                            Δ-4                {[##1]}
            <Pointer.fp 0x247e0 <LVAR -0x004 @>>             Δ-4                {[##1]|[@@-4]}
            <Call 0x247e4 0x24e0a>                                              {[##1]|[@@-4]}
            <POP 247ea-247ec StackAdj>                       Δ+6                {[-2-]}
            <POP 247ec-247ed StackAdj>                       Δ+2                {}
            <Const 0x247ed 0x50.2>                           Δ-2                {[#80]}
            <Const 0x247f0 0x1fff.4>                         Δ-4                {[#80]|[##8191]}
            <Call 0x247f2 0x245a0>                                              {[#80]|[##8191]}
            <POP 247f4-247f6 StackAdj>                       Δ+4                {[#80]}
            <POP 247f6-247f7 StackAdj>                       Δ+2                {}
            <Const 0x247f7 0x51.2>                           Δ-2                {[#81]}
            <Const 0x247fa 0x1fff.4>                         Δ-4                {[#81]|[##8191]}
            <Call 0x247fc 0x245a0>                                              {[#81]|[##8191]}
            <POP 247fe-24800 StackAdj>                       Δ+4                {[#81]}
            <POP 24800-24801 StackAdj>                       Δ+2                {}
            <Const 0x24801 0x52.2>                           Δ-2                {[#82]}
            <Const 0x24804 0x1fff.4>                         Δ-4                {[#82]|[##8191]}
            <Call 0x24806 0x245a0>                                              {[#82]|[##8191]}
            <POP 24808-2480a StackAdj>                       Δ+4                {[#82]}
            <POP 2480a-2480b StackAdj>                       Δ+2                {}
            <Const 0x2480b 0x53.2>                           Δ-2                {[#83]}
            <Const 0x2480e 0x1fff.4>                         Δ-4                {[#83]|[##8191]}
            <Call 0x24810 0x245a0>                                              {[#83]|[##8191]}
            <POP 24812-24814 StackAdj>                       Δ+6                {}
        <POP 24814-2481c Epilogue>                           Σ0         ←0x247c0

0x2481c


@ 2481c
START
    <POP 2481c--0001 Body>                                   Δ+28       
        <POP 2481c-24826 Prologue>                           Σ0         
        <POP 24826-24842 RegCacheLoad>                       Σ0         ↓
        <POP 24842-24876 Naked>                              Σ0 Δ-4     ↓
            <Blob 0x24842 [40] @>                            Δ-40               {[«40""»]}
            <POP 2484e-24850 StackAdj>                       Δ-4                {[«40""»]|[-4-]}
            <Lit 0x24850 40>                                                    {[«40""»]|[$$@(#)UPDATE_EEPROM,5.3,92/05/04,12:34:56\]}
            <MI 2485e  MOVE.L  (A7)+,0x290c4>                Δ+4                {[«40""»]}
            <POP 24864-24868 StackAdj>                       Δ+40               {}
            <MI 24868  MOVEA.L 0x290c4,A0>                                      {}
            <MI 2486e  MOVE.W  (A0),D0>                                         {}
            <MI 24870  EXTW.L  D0>                                              {}
            <MI 24872  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 24874  MOVEQ.L #0x01,D0>                                        {[4, 'D0']}
        <POP 24876-2487a Naked>                              Σ-4        ↓ →0x248b0 ←0x248ac
            <MI 24876  CMP.L   (A7),D0>                                         {[-4-]}
            <MI 24878  BGT     0x248b0>                                         {[-4-]}
        <POP 2487a-2489c Naked>                              Σ-4        ↓ →0x248a6
            <MI 2487a  MOVE.L  D0,0x290c8>                                      {[-4-]}
            <MI 24880  MOVEA.L 0x290c4,A0>                                      {[-4-]}
            <MI 24886  MOVE.L  D0,D1>                                           {[-4-]}
            <MI 24888  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <POP 0x2488a LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-4-]}
            <MI 24894  CMPI.L  #0x00000004,D0>                                  {[-4-]}
            <MI 2489a  BLE     0x248a6>                                         {[-4-]}
        <POP 2489c-248a6 Naked>                              Σ-4        ↓ →0x248ac
            <MI 2489c  MOVE.B  (A0+D1.L+#0x2),D2>                               {[-4-]}
            <MI 248a0  CMPI.B  #0x2c,D2>                                        {[-4-]}
            <MI 248a4  BNE     0x248ac>                                         {[-4-]}
        <POP 248a6-248ac Naked>                              Σ-4        ↓ ←0x2487a
            <MI 248a6  MOVE.B  #0x20,(A0+D1.L+#0x2)>                            {[-4-]}
        <POP 248ac-248b0 Naked>                              Σ-4        ↓ →0x24876 ←0x2489c
            <MI 248ac  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 248ae  BVC     0x24876>                                         {[-4-]}
        <POP 248b0-248c4 Naked>                              Σ-4 Δ+4    ↓ →0x248d0 ←0x24876
            <POP 248b0-248b1 StackAdj>                       Δ+4                {}
            <Blob 0x248b1 [4] 0x290c4>                       Δ-4                {[«4»]}
            <Call 0x248b6 0x103e0>                                              {[«4»]}
                WriteConsoleStringCrLf(str : String)
            <POP 248b8-248ba StackAdj>                       Δ+2                {[-2-]}
            <Call 0x248ba 0x1060a>                                              {[-2-]}
                Is_fc07_four() : Bool
            <MI 248c0  TST.B   (A7)+>                        Δ+2                {}
            <MI 248c2  BNE     0x248d0>                                         {}
        <POP 248c4-248d0 Naked>                              Σ0         ↓ →0x24902
            <POP 248c4-248c6 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x248c6 0x10604>                                              {[-2-]}
                Is_fc07_three() : Bool
            <MI 248cc  TST.B   (A7)+>                        Δ+2                {}
            <MI 248ce  BEQ     0x24902>                                         {}
        <POP 248d0-24902 Naked>                              Σ0 Δ-16    →0x24932 ←0x248b0
            <Blob 0x248d0 [14] @>                            Δ-14               {[«14""»]}
            <POP 248e0-248e2 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x248e2 13>                                                    {[«14""»]|[$$IOC.M400_PROM]}
            <MI 248ee  MOVE.L  (A7)+,0x290b4>                Δ+4                {[«14""»]}
            <POP 248f0-248f1 StackAdj>                       Δ+14       ↓       {}
            <Blob 0x248f1 [16] @>                            Δ-16               {[«16""»]}
            <MI 24900  BRA     0x24932>                                         {[«16""»]}
        <POP 24902-24932 Naked>                              Σ0 Δ-16    ↓ ←0x248c4
            <Blob 0x24902 [14] @>                            Δ-14               {[«14""»]}
            <POP 24912-24914 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x24914 13>                                                    {[«14""»]|[$$IOC.M200_PROM]}
            <MI 24920  MOVE.L  (A7)+,0x290b4>                Δ+4                {[«14""»]}
            <POP 24922-24923 StackAdj>                       Δ+14       ↓       {}
            <Blob 0x24923 [16] @>                            Δ-16               {[«16""»]}
        <POP 24932-2498e Naked>                              Σ-16 Δ+16  ↓ →0x24a00 ←0x248d0
            <POP 24932-24934 StackAdj>                       Δ-4                {[-20-]}
            <Lit 0x24934>                                                       {[-16-]|[$$…]}
                <Pointer.sp 0x24934 4>                       Δ-4        
                <Const 0x24938 0x1.2>                        Δ-2        
                <Const 0x2493a 0xf.2>                        Δ-2        
                <Call 0x2493e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 24940-24942 StackAdj>                   Δ+8        
            <MI 24942  MOVE.L  (A7)+,0x290b8>                Δ+4                {[-16-]}
            <POP 24948-2494c StackAdj>                       Δ+16               {}
            <Blob 0x2494c [8] @>                             Δ-8                {[«8""»]}
            <POP 2495c-2495e StackAdj>                       Δ-6                {[«8""»]|[-6-]}
            <Call 0x2495e 0x103c4>                                              {[«8""»]|[-6-]}
                GetArgv() : String
            <POP 24964-24966 StackAdj>                       Δ-4                {[«8""»]|[-10-]}
            <Lit 0x24966 7>                                                     {[«8""»]|[-6-]|[$$INSTALL]}
            <Call 0x24974 0x102c8>                                              {[«8""»]|[-6-]|[$$INSTALL]}
                StringEqual(a, b : String) : Byte
            <POP 2497a-2497c StackAdj>                       Δ+8                {[«8""»]|[-2-]}
            <MI 2497c  MOVE.B  (A7)+,D0>                     Δ+2                {[«8""»]}
            <MI 2497e  EXTB.W  D0>                                              {[«8""»]}
            <POP 0x24980 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«8""»]}
            <POP 24982-24984 StackAdj>                       Δ+8                {}
            <MI 24984  MOVE.B  D0,0x290b2>                                      {}
            <MI 2498a  TST.B   D0>                                              {}
            <MI 2498c  BEQ     0x24a00>                                         {}
        <POP 2498e-249b0 Naked>                              Σ0         ↓ →0x249d0
            <MI 2498e  MOVE.W  0x10008,D0>                                      {}
            <POP 0x24994 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {}
            <MI 24998  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x2499a 0x25090.4>                        Δ-4                {[2, 'D0']|[##151696]}
            <Call 0x249a0 0x10394>                                              {[2, 'D0']|[##151696]}
                MountDisk(drive : Word ; VAR status : Byte)
            <POP 249a6-249a8 StackAdj>                       Δ+6                {}
            <MI 249a8  TST.B   0x25090>                                         {}
            <MI 249ae  BEQ     0x249d0>                                         {}
        <POP 249b0-249d0 Naked>                              Σ0         ↓
            <POP 249b0-249b2 StackAdj>                       Δ-4                {[-4-]}
            <Blob 0x249b2 [2] 0x25090>                       Δ-2                {[-4-]|[«2»]}
            <Call 0x249b8 0x103a0>                                              {[-4-]|[«2»]}
                FsErrMsgStr(err: Byte) : String
            <POP 249be-249c0 StackAdj>                       Δ+2                {[-4-]}
            <Call 0x249c0 0x103e0>                                              {[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 249c2-249c4 StackAdj>                       Δ+4                {}
            <Const 0x249c4 0xf.4>                            Δ-4                {[##15]}
            <Call 0x249c8 0x10220>                                              {[##15]}
                KC10_Panic(code : Long)
            <POP 249ce-249d0 StackAdj>                       Δ+4                {}
        <POP 249d0-24a00 Naked>                              Σ0         ↓ ←0x2498e
            <Call 0x249d0 0x24062>                                              {}
            <Blob 0x249d4 [46] @>                            Δ-46               {[«46""»]}
            <POP 249e0-249e2 StackAdj>                       Δ-4                {[«46""»]|[-4-]}
            <Lit 0x249e2 46>                                                    {[«46""»]|[$$INSTALL successfully completed - rebooting IOP]}
            <Call 0x249ee 0x103e0>                                              {[«46""»]|[$$INSTALL successfully completed - rebooting IOP]}
                WriteConsoleStringCrLf(str : String)
            <POP 249f0-249f4 StackAdj>                       Δ+48               {[-2-]}
            <POP 249f4-249f5 StackAdj>                       Δ+2                {}
            <Const 0x249f5 0x19.2>                           Δ-2                {[#25]}
            <Call 0x249f8 0x105da>                                              {[#25]}
                Set_fc01(a : Byte)
            <POP 249fe-24a00 StackAdj>                       Δ+2                {}
        <POP 24a00-24a06 Naked>                              Σ0         ↓ ←0x24932
            <Call 0x24a00 0x10398>                                              {}
                FSCALL_10398
        <POP 24a06-24a96 Naked>                              Σ0         ↓ →0x24aa4 ←0x24d58
            <Blob 0x24a06 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x24a0a [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x24a0e [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 24a12-24a14 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x24a14 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
            <Call 0x24a22 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
                WriteConsoleStringCrLf(str : String)
            <POP 24a24-24a25 StackAdj>                       Δ+16       ↓       {}
            <Blob 0x24a25 [14] @>                            Δ-14               {[«14""»]}
            <POP 24a34-24a36 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x24a36 13>                                                    {[«14""»]|[$$    0 => Exit]}
            <Call 0x24a42 0x103e0>                                              {[«14""»]|[$$    0 => Exit]}
                WriteConsoleStringCrLf(str : String)
            <POP 24a44-24a48 StackAdj>                       Δ+18               {}
            <Blob 0x24a48 [34] @>                            Δ-34               {[«34""»]}
            <POP 24a54-24a56 StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x24a56 34>                                                    {[«34""»]|[$$    1 => Write/read test an EEPROM]}
            <Call 0x24a64 0x103e0>                                              {[«34""»]|[$$    1 => Write/read test an EEPROM]}
                WriteConsoleStringCrLf(str : String)
            <POP 24a66-24a6a StackAdj>                       Δ+38               {}
            <Blob 0x24a6a [54] @>                            Δ-54               {[«54""»]}
            <POP 24a76-24a78 StackAdj>                       Δ-4                {[«54""»]|[-4-]}
            <Lit 0x24a78 54>                                                    {[«54""»]|[$$    2 => Checksum test & print revision of all EEPROMs]}
            <Call 0x24a86 0x103e0>                                              {[«54""»]|[$$    2 => Checksum test & print revision of all EEPROMs]}
                WriteConsoleStringCrLf(str : String)
            <POP 24a88-24a8c StackAdj>                       Δ+56               {[-2-]}
            <Call 0x24a8c 0x1060a>                                              {[-2-]}
                Is_fc07_four() : Bool
            <MI 24a92  TST.B   (A7)+>                        Δ+2                {}
            <MI 24a94  BNE     0x24aa4>                                         {}
        <POP 24a96-24aa4 Naked>                              Σ0         ↓ →0x24bba
            <POP 24a96-24a98 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x24a98 0x10604>                                              {[-2-]}
                Is_fc07_three() : Bool
            <MI 24a9e  TST.B   (A7)+>                        Δ+2                {}
            <MI 24aa0  BEQ     0x24bba>                                         {}
        <POP 24aa4-24bba Naked>                              Σ0         →0x24c82 ←0x24a06
            <Blob 0x24aa4 [60] @>                            Δ-60               {[«60""»]}
            <POP 24ab6-24ab8 StackAdj>                       Δ-4                {[«60""»]|[-4-]}
            <Lit 0x24ab8 59>                                                    {[«60""»]|[$$    3 => Compare an EEPROM quadrant to the file you specify]}
            <Call 0x24ac6 0x103e0>                                              {[«60""»]|[$$    3 => Compare an EEPROM quadrant to the file you specify]}
                WriteConsoleStringCrLf(str : String)
            <POP 24ac8-24ac9 StackAdj>                       Δ+64       ↓       {}
            <Blob 0x24ac9 [46] @>                            Δ-46               {[«46""»]}
            <POP 24ada-24adc StackAdj>                       Δ-8                {[«46""»]|[-8-]}
            <Lit 0x24adc 45>                                                    {[«46""»]|[-4-]|[$$    4 => Compare all 4 IOC   EEPROMs to file_]}
            <POP 24ae8-24ae9 StackAdj>                       Δ-4                {[«46""»]|[-4-]|[$$    4 => Compare all 4 IOC   EEPROMs to file_]|[-4-]}
            <Blob 0x24ae9 [4] 0x290b4>                       Δ-4                {[«46""»]|[-4-]|[$$    4 => Compare all 4 IOC   EEPROMs to file_]|[-4-]|[«4»]}
            <Call 0x24aea 0x102cc>                                              {[«46""»]|[-4-]|[$$    4 => Compare all 4 IOC   EEPROMs to file_]|[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 24af0-24af2 StackAdj>                       Δ+4                {[«46""»]|[-4-]|[$$    4 => Compare all 4 IOC   EEPROMs to file_]|[-4-]}
            <Call 0x24af2 0x102d0>                                              {[«46""»]|[-4-]|[$$    4 => Compare all 4 IOC   EEPROMs to file_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 24af8-24afa StackAdj>                       Δ+8                {[«46""»]|[-4-]}
            <Call 0x24afa 0x103e0>                                              {[«46""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 24afc-24afd StackAdj>                       Δ+50       ↓       {}
            <Blob 0x24afd [46] @>                            Δ-46               {[«46""»]}
            <POP 24b0c-24b0e StackAdj>                       Δ-8                {[«46""»]|[-8-]}
            <Lit 0x24b0e 45>                                                    {[«46""»]|[-4-]|[$$    5 => Compare all 4 RESHA EEPROMs to file_]}
            <POP 24b1a-24b1b StackAdj>                       Δ-4                {[«46""»]|[-4-]|[$$    5 => Compare all 4 RESHA EEPROMs to file_]|[-4-]}
            <Blob 0x24b1b [4] 0x290b8>                       Δ-4                {[«46""»]|[-4-]|[$$    5 => Compare all 4 RESHA EEPROMs to file_]|[-4-]|[«4»]}
            <Call 0x24b20 0x102cc>                                              {[«46""»]|[-4-]|[$$    5 => Compare all 4 RESHA EEPROMs to file_]|[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 24b26-24b28 StackAdj>                       Δ+4                {[«46""»]|[-4-]|[$$    5 => Compare all 4 RESHA EEPROMs to file_]|[-4-]}
            <Call 0x24b28 0x102d0>                                              {[«46""»]|[-4-]|[$$    5 => Compare all 4 RESHA EEPROMs to file_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 24b2e-24b30 StackAdj>                       Δ+8                {[«46""»]|[-4-]}
            <Call 0x24b30 0x103e0>                                              {[«46""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 24b32-24b34 StackAdj>                       Δ+50               {}
            <Blob 0x24b34 [60] @>                            Δ-60               {[«60""»]}
            <POP 24b40-24b42 StackAdj>                       Δ-4                {[«60""»]|[-4-]}
            <Lit 0x24b42 60>                                                    {[«60""»]|[$$    6 => Update an EEPROM quadrant from the file you specify]}
            <Call 0x24b50 0x103e0>                                              {[«60""»]|[$$    6 => Update an EEPROM quadrant from the file you specify]}
                WriteConsoleStringCrLf(str : String)
            <POP 24b52-24b56 StackAdj>                       Δ+64               {}
            <Blob 0x24b56 [46] @>                            Δ-46               {[«46""»]}
            <POP 24b62-24b64 StackAdj>                       Δ-8                {[«46""»]|[-8-]}
            <Lit 0x24b64 46>                                                    {[«46""»]|[-4-]|[$$    7 => Update all 4 IOC   EEPROMs from file_]}
            <POP 24b6e-24b6f StackAdj>                       Δ-4                {[«46""»]|[-4-]|[$$    7 => Update all 4 IOC   EEPROMs from file_]|[-4-]}
            <Blob 0x24b6f [4] 0x290b4>                       Δ-4                {[«46""»]|[-4-]|[$$    7 => Update all 4 IOC   EEPROMs from file_]|[-4-]|[«4»]}
            <Call 0x24b70 0x102cc>                                              {[«46""»]|[-4-]|[$$    7 => Update all 4 IOC   EEPROMs from file_]|[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 24b76-24b78 StackAdj>                       Δ+4                {[«46""»]|[-4-]|[$$    7 => Update all 4 IOC   EEPROMs from file_]|[-4-]}
            <Call 0x24b78 0x102d0>                                              {[«46""»]|[-4-]|[$$    7 => Update all 4 IOC   EEPROMs from file_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 24b7e-24b80 StackAdj>                       Δ+8                {[«46""»]|[-4-]}
            <Call 0x24b80 0x103e0>                                              {[«46""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 24b82-24b84 StackAdj>                       Δ+50               {}
            <Blob 0x24b84 [46] @>                            Δ-46               {[«46""»]}
            <POP 24b90-24b92 StackAdj>                       Δ-8                {[«46""»]|[-8-]}
            <Lit 0x24b92 46>                                                    {[«46""»]|[-4-]|[$$    8 => Update all 4 RESHA EEPROMs from file_]}
            <POP 24b9c-24b9d StackAdj>                       Δ-4                {[«46""»]|[-4-]|[$$    8 => Update all 4 RESHA EEPROMs from file_]|[-4-]}
            <Blob 0x24b9d [4] 0x290b8>                       Δ-4                {[«46""»]|[-4-]|[$$    8 => Update all 4 RESHA EEPROMs from file_]|[-4-]|[«4»]}
            <Call 0x24ba2 0x102cc>                                              {[«46""»]|[-4-]|[$$    8 => Update all 4 RESHA EEPROMs from file_]|[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 24ba8-24baa StackAdj>                       Δ+4                {[«46""»]|[-4-]|[$$    8 => Update all 4 RESHA EEPROMs from file_]|[-4-]}
            <Call 0x24baa 0x102d0>                                              {[«46""»]|[-4-]|[$$    8 => Update all 4 RESHA EEPROMs from file_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 24bb0-24bb2 StackAdj>                       Δ+8                {[«46""»]|[-4-]}
            <Call 0x24bb2 0x103e0>                                              {[«46""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 24bb4-24bb6 StackAdj>                       Δ+50               {}
            <MI 24bb6  BRA     0x24c82>                                         {}
        <POP 24bba-24c82 Naked>                              Σ0         ↓ ←0x24a96
            <Blob 0x24bba [50] @>                            Δ-50               {[«50""»]}
            <POP 24bc6-24bc8 StackAdj>                       Δ-4                {[«50""»]|[-4-]}
            <Lit 0x24bc8 50>                                                    {[«50""»]|[$$    3 => Compare an EEPROM to the file you specify]}
            <Call 0x24bd4 0x103e0>                                              {[«50""»]|[$$    3 => Compare an EEPROM to the file you specify]}
                WriteConsoleStringCrLf(str : String)
            <POP 24bd6-24bd7 StackAdj>                       Δ+54       ↓       {}
            <Blob 0x24bd7 [46] @>                            Δ-46               {[«46""»]}
            <POP 24be6-24be8 StackAdj>                       Δ-8                {[«46""»]|[-8-]}
            <Lit 0x24be8 45>                                                    {[«46""»]|[-4-]|[$$    4 => Compare all 4 IOC   EEPROMs to file_]}
            <POP 24bf4-24bf5 StackAdj>                       Δ-4                {[«46""»]|[-4-]|[$$    4 => Compare all 4 IOC   EEPROMs to file_]|[-4-]}
            <Blob 0x24bf5 [4] 0x290b4>                       Δ-4                {[«46""»]|[-4-]|[$$    4 => Compare all 4 IOC   EEPROMs to file_]|[-4-]|[«4»]}
            <Call 0x24bf6 0x102cc>                                              {[«46""»]|[-4-]|[$$    4 => Compare all 4 IOC   EEPROMs to file_]|[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 24bfc-24bfe StackAdj>                       Δ+4                {[«46""»]|[-4-]|[$$    4 => Compare all 4 IOC   EEPROMs to file_]|[-4-]}
            <Call 0x24bfe 0x102d0>                                              {[«46""»]|[-4-]|[$$    4 => Compare all 4 IOC   EEPROMs to file_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 24c04-24c06 StackAdj>                       Δ+8                {[«46""»]|[-4-]}
            <Call 0x24c06 0x103e0>                                              {[«46""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 24c08-24c09 StackAdj>                       Δ+50       ↓       {}
            <Blob 0x24c09 [52] @>                            Δ-52               {[«52""»]}
            <POP 24c18-24c1a StackAdj>                       Δ-4                {[«52""»]|[-4-]}
            <Lit 0x24c1a 51>                                                    {[«52""»]|[$$    6 => Update an EEPROM from the file you specify]}
            <Call 0x24c28 0x103e0>                                              {[«52""»]|[$$    6 => Update an EEPROM from the file you specify]}
                WriteConsoleStringCrLf(str : String)
            <POP 24c2a-24c2e StackAdj>                       Δ+56               {}
            <Blob 0x24c2e [46] @>                            Δ-46               {[«46""»]}
            <POP 24c3a-24c3c StackAdj>                       Δ-8                {[«46""»]|[-8-]}
            <Lit 0x24c3c 46>                                                    {[«46""»]|[-4-]|[$$    7 => Update all 4 IOC   EEPROMs from file_]}
            <POP 24c46-24c47 StackAdj>                       Δ-4                {[«46""»]|[-4-]|[$$    7 => Update all 4 IOC   EEPROMs from file_]|[-4-]}
            <Blob 0x24c47 [4] 0x290b4>                       Δ-4                {[«46""»]|[-4-]|[$$    7 => Update all 4 IOC   EEPROMs from file_]|[-4-]|[«4»]}
            <Call 0x24c48 0x102cc>                                              {[«46""»]|[-4-]|[$$    7 => Update all 4 IOC   EEPROMs from file_]|[-4-]|[«4»]}
                StringDup(a : String) : String
            <POP 24c4e-24c50 StackAdj>                       Δ+4                {[«46""»]|[-4-]|[$$    7 => Update all 4 IOC   EEPROMs from file_]|[-4-]}
            <Call 0x24c50 0x102d0>                                              {[«46""»]|[-4-]|[$$    7 => Update all 4 IOC   EEPROMs from file_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 24c56-24c58 StackAdj>                       Δ+8                {[«46""»]|[-4-]}
            <Call 0x24c58 0x103e0>                                              {[«46""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 24c5a-24c5b StackAdj>                       Δ+50       ↓       {}
            <Blob 0x24c5b [60] @>                            Δ-60               {[«60""»]}
            <POP 24c6c-24c6e StackAdj>                       Δ-4                {[«60""»]|[-4-]}
            <Lit 0x24c6e 59>                                                    {[«60""»]|[$$    9 => Update all 4 IOC   EEPROMs from the 4 ".HEX" files]}
            <Call 0x24c7c 0x103e0>                                              {[«60""»]|[$$    9 => Update all 4 IOC   EEPROMs from the 4 ".HEX" files]}
                WriteConsoleStringCrLf(str : String)
            <POP 24c7e-24c82 StackAdj>                       Δ+64               {}
        <POP 24c82-24cf0 Naked>                              Σ0         →0x24d06 →0x24d16 →0x24d1c →0x24d22 →0x24d2e →0x24d38 →0x24d3c →0x24d42 →0x24d4a →0x24d4e →0x24d54 ←0x24aa4
            <Blob 0x24c82 [50] @>                            Δ-50               {[«50""»]}
            <POP 24c8e-24c90 StackAdj>                       Δ-4                {[«50""»]|[-4-]}
            <Lit 0x24c90 50>                                                    {[«50""»]|[$$   10 => Update all obsolete EEPROMs automatically]}
            <Call 0x24c9c 0x103e0>                                              {[«50""»]|[$$   10 => Update all obsolete EEPROMs automatically]}
                WriteConsoleStringCrLf(str : String)
            <POP 24c9e-24ca2 StackAdj>                       Δ+54               {}
            <Blob 0x24ca2 [14] @>                            Δ-14               {[«14""»]}
            <POP 24cae-24cb0 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x24cb0 14>                                                    {[«14""»]|[-4-]|[$$Enter option:_]}
            <Const 0x24cbc 0x0.4>                            Δ-4                {[«14""»]|[-4-]|[$$Enter option:_]|[##0]}
            <Const 0x24cc0 0xa.4>                            Δ-4                {[«14""»]|[-4-]|[$$Enter option:_]|[##0]|[##10]}
            <Call 0x24cc4 0x103ec>                                              {[«14""»]|[-4-]|[$$Enter option:_]|[##0]|[##10]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 24cca-24cce StackAdj>                       Δ+12               {[«14""»]|[-4-]}
            <MI 24cce  MOVE.L  (A7)+,0x25092>                Δ+4                {[«14""»]}
            <POP 24cd4-24cd6 StackAdj>                       Δ+14               {}
            <MI 24cd6  MOVE.L  0x25092,D0>                                      {}
            <POP 0x24cdc LimitCheck 0x0 ≤ D0 ≤ 0xa>                             {}
            <MI 24ce6  ADD.W   D0,D0>                                           {}
            <MI 24ce8  SWITCH  D0.W>                                            {}
        <POP 24d06-24d12 Naked>                              Σ0 Δ-6     ↓ ←0x24c82
            <MI 24d06  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x24d08 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x24d0c 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
        <POP 24d12-24d16 Naked>                              Σ-6 Δ+6    →0x24d58 ←0x24d22
            <POP 24d12-24d14 StackAdj>                       Δ+6                {}
            <MI 24d14  BRA     0x24d58>                                         {}
        <POP 24d16-24d1c Naked>                              Σ0         →0x24d58 ←0x24c82
            <Call 0x24d16 0x2442c>                                              {}
            <MI 24d1a  BRA     0x24d58>                                         {}
        <POP 24d1c-24d22 Naked>                              Σ0         →0x24d58 ←0x24c82
            <Call 0x24d1c 0x2476e>                                              {}
            <MI 24d20  BRA     0x24d58>                                         {}
        <POP 24d22-24d2e Naked>                              Σ0 Δ-6     →0x24d12 ←0x24c82
            <Const 0x24d22 0x1.4>                            Δ-4                {[##1]}
            <MI 24d26  CLR.W   -(A7)>                        Δ-2                {[##1]|[#0]}
            <Call 0x24d28 0x22bc6>                                              {[##1]|[#0]}
            <MI 24d2c  BRA     0x24d12>                                         {[##1]|[#0]}
        <POP 24d2e-24d30 Naked>                              Σ0 Δ-2     ↓ ←0x24c82
            <MI 24d2e  CLR.B   -(A7)>                        Δ-2                {[#0]}
        <POP 24d30-24d34 Naked>                              Σ-2        ↓ ←0x24d38
            <Call 0x24d30 0x22cfc>                                              {[-2-]}
        <POP 24d34-24d38 Naked>                              Σ-2 Δ+2    →0x24d58 ←0x24d44
            <POP 24d34-24d36 StackAdj>                       Δ+2                {}
            <MI 24d36  BRA     0x24d58>                                         {}
        <POP 24d38-24d3c Naked>                              Σ0 Δ-2     →0x24d30 ←0x24c82
            <Const 0x24d38 0x1.2>                            Δ-2                {[#1]}
            <MI 24d3a  BRA     0x24d30>                                         {[#1]}
        <POP 24d3c-24d42 Naked>                              Σ0         →0x24d58 ←0x24c82
            <Call 0x24d3c 0x23758>                                              {}
            <MI 24d40  BRA     0x24d58>                                         {}
        <POP 24d42-24d44 Naked>                              Σ0 Δ-2     ↓ ←0x24c82
            <MI 24d42  CLR.B   -(A7)>                        Δ-2                {[#0]}
        <POP 24d44-24d4a Naked>                              Σ-2        →0x24d34 ←0x24d4a
            <Call 0x24d44 0x23b48>                                              {[-2-]}
            <MI 24d48  BRA     0x24d34>                                         {[-2-]}
        <POP 24d4a-24d4e Naked>                              Σ0 Δ-2     →0x24d44 ←0x24c82
            <Const 0x24d4a 0x1.2>                            Δ-2                {[#1]}
            <MI 24d4c  BRA     0x24d44>                                         {[#1]}
        <POP 24d4e-24d54 Naked>                              Σ0         →0x24d58 ←0x24c82
            <Call 0x24d4e 0x23910>                                              {}
            <MI 24d52  BRA     0x24d58>                                         {}
        <POP 24d54-24d58 Naked>                              Σ0         ↓ ←0x24c82
            <Call 0x24d54 0x24062>                                              {}
        <POP 24d58-24d5c Naked>                              Σ0         →0x24a06 ←0x24d12 ←0x24d16 ←0x24d1c ←0x24d34 ←0x24d3c ←0x24d4e
            <MI 24d58  BRA     0x24a06>                                         {}

0x24e90


@ 24e90
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 24e90-24ef8 Body>                                              
        <POP 24e90-24ea6 Prologue>                           Σ0         ↓
        <POP 24ea6-24ef0 Naked>                              Σ0         ↓
            <Blob 0x24ea6 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x24eb2 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 24eb6-24eb8 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x24eb8 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 24eca-24ecc StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 24ecc  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 24ed0  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 24ed2  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 24ed4  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x24ed6 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 24edc-24ede StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x24ede 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 24ee4-24ee6 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x24ee6 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 24eec-24ef0 StackAdj>                       Δ+20               {}
        <POP 24ef0-24ef8 Epilogue>                           Σ0         

0x24f4c


@ 24f4c
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 24f4c-25088 Body>                                              
        <POP 24f4c-24f62 Prologue>                           Σ0         ↓
        <POP 24f62-24f78 RegCacheLoad>                       Σ0         ↓
        <POP 24f78-24fd8 Naked>                              Σ0         ↓ →0x25020
            <Call 0x24f78 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x24f7e [18] @>                            Δ-18               {[«18""»]}
            <POP 24f8a-24f8c StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x24f8c 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x24f98 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 24f9a-24f9b StackAdj>                       Δ+22       ↓       {}
            <Blob 0x24f9b [14] @>                            Δ-14               {[«14""»]}
            <POP 24faa-24fac StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x24fac 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 24fb6-24fb8 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 24fb8  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x24fbc 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 24fc2-24fc4 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x24fc4 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 24fca-24fcc StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x24fcc 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 24fce-24fd0 StackAdj>                       Δ+18               {}
            <MI 24fd0  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 24fd4  CMPA.W  #0x01,A0>                                        {}
            <MI 24fd6  BEQ     0x25020>                                         {}
        <POP 24fd8-25020 Naked>                              Σ0         ↓
            <Blob 0x24fd8 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x24fe8 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 24ff8-24ffa StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x24ffa 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 25004-25006 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x25006>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x25006 12>                      Δ-4        
                <Const 0x2500a 0x1.2>                        Δ-2        
                <Const 0x2500c 0x1e.2>                       Δ-2        
                <Call 0x2500e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 25010-25012 StackAdj>                   Δ+8        
            <Call 0x25012 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 25018-2501a StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x2501a 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2501c-25020 StackAdj>                       Δ+48               {}
        <POP 25020-25080 Naked>                              Σ0         ↓ ←0x24f78
            <Blob 0x25020 [14] @>                            Δ-14               {[«14""»]}
            <POP 25030-25032 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x25032 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 2503c-2503e StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 2503e  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x25042 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 25048-2504a StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x2504a 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 25050-25052 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x25052 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 25054-25055 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x25055 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x25064 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 25068-2506a StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x2506a 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x25078 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 2507e-25080 StackAdj>                       Δ+30               {}
        <POP 25080-25088 Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.03e14e4d32ec21f7
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 48 1c              |  H     |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 90 dc              |        |		.PTR	0x290dc
00020010					code.end:
00020010 00 02 50 88              |  P     |		.PTR	0x25088
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 4e 90              |  N     |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 4f 4c              |  OL    |		.CODE	EXP_FAIL
00020020 00 00 00 00              |        |		.CONST	0x00000000
00020024					exp_init_done:
00020024 00                       |        |		.CONST	0x00
00020025 00                       |        |		.CONST	0x00
00020026 00 00                    |        |		.CONST	0x0000
00020028 00 00                    |        |		.CONST	0x0000
0002002a 00 00                    |        |		.XXX[0x2]
0002002c 00 00                    |        |		.CONST	0x0000
0002002e 00 00                    |        |		.CONST	0x0000
00020030 00 00                    |        |		.CONST	0x0000
00020032 00 00 00 00 00 00        |        |		.XXX[0x6]
00020038 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0xb0]
000200e8 00 00 00 00              |        |		.XXX[0x4]
000200ec 00 00 00 00              |        |		.PTR	0x0
000200f0					is_open_ERROR_LOG:
000200f0 00                       |        |		.CONST	0x0
000200f1					write_error_ERROR_LOG:
000200f1 00                       |        |		.CONST	0x0
000200f2 00 00 00 00              |        |		.CONST	0x00000000
000200f6 00 00 00 00              |        |		.CONST	0x00000000
000200fa 00                       |        |		.CONST	0x00
000200fb 00                       |        |		.CONST	0x00
000200fc					file_ERROR_LOG:
000200fc 00 00 00 00              |        |		.CONST	0x00000000
00020100 00 00 00 00              |        |		.CONST	0x00000000
00020104 00 00                    |        |		.CONST	0x0000
00020106 00 00                    |        |		.CONST	0x0000
00020108					somekindoffsflag:
00020108 00                       |        |		.CONST	0x00
00020109 00                       |        |		.CONST	0x00
0002010a 40 28 23 29 55 50 44 41  |@(#)UPDA|		.TXT	'@(#)UPDATE_EEPROM,5.3,92/05/04,12:34:56\'
00020132 6e 6f 20 65              |no e    |		.TXT	'no e'
00020136 72 72 6f 72              |rror    |		.TXT	'rror'
0002013a 69 6c 6c 65 67 61 6c 20  |illegal |		.TXT	'illegal prom select code'
00020152 62 61 64 20 63 68 65 63  |bad chec|		.TXT	'bad checksum detected '
00020168 77 72 69 74 65 20 70 72  |write pr|		.TXT	'write protect switch is on'
00020182 69 6c 6c 65 67 61 6c 20  |illegal |		.TXT	'illegal module id '
00020194 6e 6f 20 6f 76 65 72 6c  |no overl|		.TXT	'no overlay validity byte'
000201ac 70 72 6f 6d 20 77 72 69  |prom wri|		.TXT	'prom write failed '
000201be 70 72 6f 6d 20 77 72 69  |prom wri|		.TXT	'prom write timed out'
000201d2 2a 2a 20 75 6e 6b 6e 6f  |** unkno|		.TXT	'** unknown ERROR_CODE =_'
000201ea 2a 2a 2a 20 41 42 4f 52  |*** ABOR|		.TXT	'*** ABORT:_ '
000201f6 49 4e 53 54 41 4c 4c 20  |INSTALL |		.TXT	'INSTALL failed: you have to reboot the system '
00020224 73 65 65 20 65 72 72 6f  |see erro|		.TXT	'see error message above '
0002023c 53 45 4c 46              |SELF    |		.TXT	'SELF'
00020240 54 45 53 54              |TEST    |		.TXT	'TEST'
00020244 42 4f 4f 54              |BOOT    |		.TXT	'BOOT'
00020248 55 54 49 4c              |UTIL    |		.TXT	'UTIL'
0002024c 2f 44 45 42              |/DEB    |		.TXT	'/DEB'
00020250 4e 45 54 2f              |NET/    |		.TXT	'NET/'
00020254 44 45 42 32              |DEB2    |		.TXT	'DEB2'
00020258 52 45 53 5f              |RES_    |		.TXT	'RES_'
0002025c 54 45 53 54              |TEST    |		.TXT	'TEST'
00020260 4c 41 4e 43 45 20        |LANCE   |		.TXT	'LANCE '
00020266 44 49 53 4b              |DISK    |		.TXT	'DISK'
0002026a 54 41 50 45              |TAPE    |		.TXT	'TAPE'
0002026e 3f 3f                    |??      |		.TXT	'??'
00020270 3f 20                    |?       |		.XXX[0x2]
00020272 43 68 65 63 6b 73 75 6d  |Checksum|		.TXT	'Checksum error in file data line'
00020292 46 69 6c 65 20 68 61 73  |File has|		.TXT	'File has no END record'
000202a8 46 69 6c 65 20 6c 69 6e  |File lin|		.TXT	'File line too long'
000202ba 49 6e 76 61 6c 69 64 20  |Invalid |		.TXT	'Invalid file data line format '
000202d8 43 68 65 63 6b 73 75 6d  |Checksum|		.TXT	'Checksum error in file data line'
000202f8 46 69 6c 65 20 68 61 73  |File has|		.TXT	'File has no END record'
0002030e 49 6e 76 61 6c 69 64 20  |Invalid |		.TXT	'Invalid file data line format '
0002032c 20 72                    | r      |		.TXT	' r'
0002032e 65 61                    |ea      |		.TXT	'ea'
00020330 64 5f                    |d_      |		.TXT	'd_'
00020332 20 62 79 74 65 73 20 66  | bytes f|		.TXT	' bytes from file at base address 16#'
00020356 69 6e 20 66 69 6c 65 3a  |in file:|		.TXT	'in file: revision date =_ '
00020370 2c 20 6c 6f 63 75 73 20  |, locus |		.TXT	', locus byte =_ '
00020380 20 28                    | (      |		.TXT	' ('
00020382 29 2c 20 63 68 65 63 6b  |), check|		.TXT	'), checksum is OK '
00020394 29 20                    |)       |		.TXT	') '
00020396 45 52 52 4f 52 3a 20 62  |ERROR: b|		.TXT	'ERROR: bad file checksum: expected 16#AA but got 16#'
000203ca 44 6f 20 79 6f 75 20 77  |Do you w|		.TXT	'Do you wish to continue_'
000203e2 72 65 71 75 65 73 74 65  |requeste|		.TXT	'requested by user '
000203f4 77 69 6c 6c 20 77 72 69  |will wri|		.TXT	'will write the correct checksum to prom '
0002041c 66 69 6c 65 20 4c 4f 43  |file LOC|		.TXT	'file LOCUS byte is incorrect'
00020438 66 69 6c 65 20 62 61 73  |file bas|		.TXT	'file base address is incorrect'
00020456 46 69 6c 65 20 68 61 73  |File has|		.TXT	'File has illegal base address '
00020474 66 69 78 65 64 20 69 6e  |fixed in|		.TXT	'fixed incorrect LOCUS byte from file: now targets_'
000204a6 45 6e 74 65 72 20 74 68  |Enter th|		.TXT	'Enter the file name of the EEPROM data :_ '
000204d0 63 6f 75 6c 64 20 6e 6f  |could no|		.TXT	'could not open data file'
000204e8 46 69 6c 65 20 69 73 20  |File is |		.TXT	'File is empty '
000204f6 49 6e 76 61 6c 69 64 20  |Invalid |		.TXT	'Invalid file format '
0002050a 2a 2a 2a 20 45 52 52 4f  |*** ERRO|		.TXT	'*** ERROR: test of EEPROM failed ***'
0002052e 74 65 73 74 20 6f 66 20  |test of |		.TXT	'test of EEPROM passed '
00020544 69 6e 20 70 72 6f 6d 3a  |in prom:|		.TXT	'in prom: revision date =_ '
0002055e 2c 20 6c 6f 63 75 73 20  |, locus |		.TXT	', locus byte =_ '
0002056e 57 41 52 4e 49 4e 47 3a  |WARNING:|		.TXT	'WARNING: the EEPROM has an incorrect LOCUS byte '
0002059e 57 61 72 6e 69 6e 67 20  |Warning |		.TXT	'Warning from REE_DOWNLOAD:_ '
000205ba 45 45 50 52 4f 4d 20 6d  |EEPROM m|		.TXT	'EEPROM matched file '
000205ce 20 64 69 66 66 65 72 69  | differi|		.TXT	' differing bytes were found (excluding checksum)'
000205fe 20 45 45 50              | EEP    |		.TXT	' EEP'
00020602 52 4f 4d 3a              |ROM:    |		.TXT	'ROM:'
00020606 65 6e 74 65 72 20 70 72  |enter pr|		.TXT	'enter prom filename [ '
0002061c 5d 20 3a 5f              |] :_    |		.TXT	'] :_'
00020620 2a 2a 2a 20 50 72 6f 67  |*** Prog|		.TXT	'*** Programming Failure: address = 16#'
00020646 20 77 72 6f 74 65 20 31  | wrote 1|		.TXT	' wrote 16#'
00020650 20 72 65 61 64 20 62 61  | read ba|		.TXT	' read back 16#'
0002065e 45 45 50 52 4f 4d 20 66  |EEPROM f|		.TXT	'EEPROM failed to program even after many retries'
0002068e 54 68 65 20 73 79 73 74  |The syst|		.TXT	'The system may not boot properly unless you replace the IOC EEPROM'
000206d0 74 68 65 20 65 72 72 6f  |the erro|		.TXT	'the error above was fatal '
000206ea 45 45 50 52 4f 4d 20 73  |EEPROM s|		.TXT	'EEPROM successfully updated '
00020706 45 45 50 52 4f 4d 20 6d  |EEPROM m|		.TXT	'EEPROM matched file, update wasn't needed '
00020730 57 61 72 6e 69 6e 67 20  |Warning |		.TXT	'Warning from REE_UPLOAD:_ '
0002074a 65 72 72 6f 72 20 66 72  |error fr|		.TXT	'error from REE_DOWNLOAD:_ '
00020764 57 61 72 6e 69 6e 67 3a  |Warning:|		.TXT	'Warning:_ '
0002076e 20 62 79 74 65 73 20 77  | bytes w|		.TXT	' bytes were incorrectly written - retrying'
00020798 2a 2a 2a 20 45 52 52 4f  |*** ERRO|		.TXT	'*** ERROR: program EEPROM failed too many times '
000207c8 54 68 65 20 73 79 73 74  |The syst|		.TXT	'The system may not boot properly unless you replace the RESHA EEPROM'
0002080c 74 68 65 20 65 72 72 6f  |the erro|		.TXT	'the error above was fatal '
00020826 45 45 50 52 4f 4d 20 73  |EEPROM s|		.TXT	'EEPROM successfully updated '
00020842 20 61 6e 64 20 76 65 72  | and ver|		.TXT	' and verified, ignore the warnings above'
0002086a 74 75 72 6e 20 74 68 65  |turn the|		.TXT	'turn the EEPROM WRITE PROTECT switch ON (up)'
00020896 74 75 72 6e 20 74 68 65  |turn the|		.TXT	'turn the EEPROM WRITE PROTECT switch (at front of RESHA board) OFF (down) '
000208e0 20 2d 20 4f 4b 20        | - OK   |		.TXT	' - OK '
000208e6 55 70 64 61 74 69 6e 67  |Updating|		.TXT	'Updating this EEPROM will take about_ '
0002090c 20 73 65 63 6f 6e 64 73  | seconds|		.TXT	' seconds... '
00020918 56 65 72 69 66 79 69 6e  |Verifyin|		.TXT	'Verifying file_ '
00020928 52 65 61 64 69 6e 67 20  |Reading |		.TXT	'Reading file_ '
00020936 55 70 64 61 74 65 20 74  |Update t|		.TXT	'Update this EEPROM_ '
0002094a 53 45 4c 46              |SELF    |		.TXT	'SELF'
0002094e 54 45 53 54              |TEST    |		.TXT	'TEST'
00020952 2e 48 45 58              |.HEX    |		.TXT	'.HEX'
00020956 42 4f 4f 54              |BOOT    |		.TXT	'BOOT'
0002095a 2e 48 45 58              |.HEX    |		.TXT	'.HEX'
0002095e 55 54                    |UT      |		.XXX[0x2]
00020960 49 4c 49 54 49 45 53 2e  |ILITIES.|		.XXX[0x8]
00020968 48 45 58 20              |HEX     |		.XXX[0x4]
0002096c 4e 45 54 57 4f 52 4b 2e  |NETWORK.|		.TXT	'NETWORK.HEX '
00020978 53 45 4c 46              |SELF    |		.TXT	'SELF'
0002097c 54 45 53 54              |TEST    |		.TXT	'TEST'
00020980 2e 48 45 58              |.HEX    |		.TXT	'.HEX'
00020984 42 4f 4f 54              |BOOT    |		.TXT	'BOOT'
00020988 2e 48 45 58              |.HEX    |		.TXT	'.HEX'
0002098c 55 54 49 4c              |UTIL    |		.XXX[0x4]
00020990 49 54 49 45 53 2e 48 45  |ITIES.HE|		.XXX[0x8]
00020998 58 20                    |X       |		.XXX[0x2]
0002099a 4e 45 54 57 4f 52 4b 2e  |NETWORK.|		.TXT	'NETWORK.HEX '
000209a6 20 45 45 50              | EEP    |		.TXT	' EEP'
000209aa 52 4f 4d 3a              |ROM:    |		.TXT	'ROM:'
000209ae 55 70 64 61 74 65 20 74  |Update t|		.TXT	'Update this EEPROM_ '
000209c2 65 6e 74 65 72 20 70 72  |enter pr|		.TXT	'enter prom filename [ '
000209d8 5d 20 3a 5f              |] :_    |		.TXT	'] :_'
000209dc 43 6f 6d 70 61 72 69 6e  |Comparin|		.TXT	'Comparing the new prom files to the actual EEPROMs: '
00020a10 20 20 28 74 68 65 20 72  |  (the r|		.TXT	'  (the revision dates are identical but the data does not match)'
00020a50 44 6f 20 79 6f 75 20 77  |Do you w|		.TXT	'Do you want to update this prom '
00020a70 3a 20 70 72              |: pr    |		.TXT	': pr'
00020a74 6f 6d 20 72              |om r    |		.TXT	'om r'
00020a78 65 76 69 73              |evis    |		.TXT	'evis'
00020a7c 69 6f 6e 5f              |ion_    |		.TXT	'ion_'
00020a80 2c 20 66 69              |, fi    |		.TXT	', fi'
00020a84 6c 65 20 72              |le r    |		.TXT	'le r'
00020a88 65 76 69 73              |evis    |		.TXT	'evis'
00020a8c 69 6f 6e 5f              |ion_    |		.TXT	'ion_'
00020a90 20 2d 20 70 72 6f 6d 20  | - prom |		.TXT	' - prom newer than file!'
00020aa8 20 2d 20 50 52 4f 4d 20  | - PROM |		.TXT	' - PROM needs updating'
00020abe 20 2d 20 50 52 4f 4d 20  | - PROM |		.TXT	' - PROM needs updating'
00020ad4 20 2d 20 4f 4b 2c 20 77  | - OK, w|		.TXT	' - OK, won't update '
00020ae8 55 70 64 61              |Upda    |		.TXT	'Upda'
00020aec 74 69 6e 67              |ting    |		.TXT	'ting'
00020af0 20 45 45 50              | EEP    |		.TXT	' EEP'
00020af4 52 4f 4d 5f              |ROM_    |		.TXT	'ROM_'
00020af8 2e 20                    |.       |		.TXT	'. '
00020afa 74 68 65 20 49 4f 43 20  |the IOC |		.TXT	'the IOC board revision # in the EEPROM will be updated'
00020b30 49 4f                    |IO      |		.TXT	'IO'
00020b32 43 20                    |C       |		.XXX[0x2]
00020b34 74 68 65 20 52 45 53 48  |the RESH|		.TXT	'the RESHA board revision # in the EEPROM will updated '
00020b6a 52 45 53 48 41 20        |RESHA   |		.TXT	'RESHA '
00020b70 6e 6f 20 45 45 50 52 4f  |no EEPRO|		.TXT	'no EEPROMs need updating'
00020b88 75 70 64 61 74 69 6e 67  |updating|		.TXT	'updating the EEPROMS will take about_ '
00020bae 20 73 65 63 6f 6e 64 73  | seconds|		.TXT	' seconds to complete. '
00020bc4 61 6c 6c 20 45 45 50 52  |all EEPR|		.TXT	'all EEPROMs are up to date now'
00020be2 4f 70 74 69              |Opti    |		.TXT	'Opti'
00020be6 6f 6e 73 20              |ons     |		.TXT	'ons '
00020bea 61 72 65 3a              |are:    |		.TXT	'are:'
00020bee 20 20 20 20 30 20 3d 3e  |    0 =>|		.TXT	'    0 => Exit '
00020bfc 20 20 20 20 31 20 3d 3e  |    1 =>|		.TXT	'    1 => Test SELFTEST EEPROM location        (K21) '
00020c30 20 20 20 20 32 20 3d 3e  |    2 =>|		.TXT	'    2 => Test BOOT EEPROM location            (K19) '
00020c64 20 20 20 20 33 20 3d 3e  |    3 =>|		.TXT	'    3 => Test UTILITIES/DEBUG EEPROM location (K17) '
00020c98 20 20 20 20 34 20 3d 3e  |    4 =>|		.TXT	'    4 => Test NOVRAM/NET/DEB2 EEPROM location (K15) '
00020ccc 45 6e 74 65 72 20 6f 70  |Enter op|		.TXT	'Enter option :_ '
00020cdc 20 70 72 6f 6d 3a 20 72  | prom: r|		.TXT	' prom: revision =_'
00020cee 2c 20 6c 6f 63 75 73 20  |, locus |		.TXT	', locus byte =_ '
00020cfe 2c 20 43 48 45 43 4b 53  |, CHECKS|		.TXT	', CHECKSUM IS BAD *** '
00020d14 2c 20 63 68              |, ch    |		.TXT	', ch'
00020d18 65 63 6b 73              |ecks    |		.TXT	'ecks'
00020d1c 75 6d 20 69              |um i    |		.TXT	'um i'
00020d20 73 20 4f 4b              |s OK    |		.TXT	's OK'
00020d24 20 20 20 20 30 20 3d 3e  |    0 =>|		.TXT	'    0 => Exit '
00020d32 20 20 20 20 31 20 3d 3e  |    1 =>|		.TXT	'    1 => Write/read test an EEPROM'
00020d54 20 20 20 20 32 20 3d 3e  |    2 =>|		.TXT	'    2 => Checksum test & print revision of all EEPROMs'
00020d8a 20 20 20 20 33 20 3d 3e  |    3 =>|		.TXT	'    3 => Compare an EEPROM to the file you specify'
00020dbc 20 20 20 20 33 20 3d 3e  |    3 =>|		.TXT	'    3 => Compare an EEPROM quadrant to the file you specify '
00020df8 20 20 20 20 34 20 3d 3e  |    4 =>|		.TXT	'    4 => Compare all 4 IOC   EEPROMs to file_ '
00020e26 20 20 20 20 35 20 3d 3e  |    5 =>|		.TXT	'    5 => Compare all 4 RESHA EEPROMs to file_ '
00020e54 20 20 20 20 36 20 3d 3e  |    6 =>|		.TXT	'    6 => Update an EEPROM from the file you specify '
00020e88 20 20 20 20 36 20 3d 3e  |    6 =>|		.TXT	'    6 => Update an EEPROM quadrant from the file you specify'
00020ec4 20 20 20 20 37 20 3d 3e  |    7 =>|		.TXT	'    7 => Update all 4 IOC   EEPROMs from file_'
00020ef2 20 20 20 20 38 20 3d 3e  |    8 =>|		.TXT	'    8 => Update all 4 RESHA EEPROMs from file_'
00020f20 20 20 20 20 39 20 3d 3e  |    9 =>|		.TXT	'    9 => Update all 4 IOC   EEPROMs from the 4 ".HEX" files '
00020f5c 20 20 20 31 30 20 3d 3e  |   10 =>|		.TXT	'   10 => Update all obsolete EEPROMs automatically'
00020f8e 49 4f 43 2e 4d 34 30 30  |IOC.M400|		.TXT	'IOC.M400_PROM '
00020f9c 52 45 53 48 41 2e 4d 34  |RESHA.M4|		.TXT	'RESHA.M400_PROM '
00020fac 49 4f 43 2e 4d 32 30 30  |IOC.M200|		.TXT	'IOC.M200_PROM '
00020fba 52 45 53 48 41 2e 4d 32  |RESHA.M2|		.TXT	'RESHA.M200_PROM '
00020fca 49 4e 53 54 41 4c 4c 20  |INSTALL |		.TXT	'INSTALL '
00020fd2 49 4e 53 54 41 4c 4c 20  |INSTALL |		.TXT	'INSTALL successfully completed - rebooting IOP'
00021000 4f 70 74 69              |Opti    |		.TXT	'Opti'
00021004 6f 6e 73 20              |ons     |		.TXT	'ons '
00021008 61 72 65 3a              |are:    |		.TXT	'are:'
0002100c 45 6e 74 65 72 20 6f 70  |Enter op|		.TXT	'Enter option:_'
0002101a ; --------------------------------------------------------------------------------------
0002101a ; OMSI PASCAL Function
0002101a ;    <LVAR  0x00c 4(w)>
0002101a ;    <LVAR  0x008 4(r)>
0002101a ; --------------------------------------------------------------------------------------
0002101a 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
0002101e bf d5                    |        |		CMPA.L	(A5),A7
00021020 62 06                    |b       |		BHI	0x21028
00021022 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021026 4e 76                    |Nv      |		TRAPV
00021028 de fc 00 58              |   X    |		ADDA.W	#0x58,A7
0002102c 48 e7 fe f0              |H       |		MOVEM.L	A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021030 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021036 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
0002103a 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002103c 74 18                    |t       |		MOVEQ.L	#0x18,D2
0002103e 76 12                    |v       |		MOVEQ.L	#0x12,D3
00021040 78 16                    |x       |		MOVEQ.L	#0x16,D4
00021042 7a 1a                    |z       |		MOVEQ.L	#0x1a,D5
00021044 7c 14                    ||       |		MOVEQ.L	#0x14,D6
00021046 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
0002104a 0c 80 00 00 00 07        |        |		CMPI.L	#0x00000007,D0
00021050 62 00 01 0a              |b       |		BHI	0x2115c
00021054 d0 40                    | @      |		ADD.W	D0,D0
00021056 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
0002105e 00 10                    |        |		.CONST	0x10			; [0x0] -> 0x2106e
00021060 00 30                    | 0      |		.CONST	0x30			; [0x1] -> 0x2108e
00021062 00 4c                    | L      |		.CONST	0x4c			; [0x2] -> 0x210aa
00021064 00 74                    | t      |		.CONST	0x74			; [0x3] -> 0x210d2
00021066 00 96                    |        |		.CONST	0x96			; [0x4] -> 0x210f4
00021068 00 bc                    |        |		.CONST	0xbc			; [0x5] -> 0x2111a
0002106a 00 cc                    |        |		.CONST	0xcc			; [0x6] -> 0x2112a
0002106c 00 de                    |        |		.CONST	0xde			; [0x7] -> 0x2113c
0002106e					switch@0x21056[0x0]:
0002106e 2f 3a f0 c6              |/:      |		MOVE.L	0x20136,-(A7)
00021072 2f 3a f0 be              |/:      |		MOVE.L	0x20132,-(A7)
00021076 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021078 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002107c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002107e 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00021082 4e 92                    |N       |		JSR	(A2)
00021084 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021086 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00021088 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002108a 60 00 01 00              |`       |		BRA	0x2118c
0002108e					switch@0x21056[0x1]:
0002108e 41 fa f0 c2              |A       |		LEA.L	0x20152,A0
00021092 70 05                    |p       |		MOVEQ.L	#0x05,D0
00021094 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021096 51 c8 ff fc              |Q       |		DBF	D0,0x21094
0002109a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002109c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000210a0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210a2 3f 02                    |?       |		MOVE.W	D2,-(A7)
000210a4 4e 92                    |N       |		JSR	(A2)
000210a6 60 00 00 de              |`       |		BRA	0x21186
000210aa					switch@0x21056[0x2]:
000210aa 9e c4                    |        |		SUBA.W	D4,A7
000210ac 20 4f                    | O      |		MOVEA.L	A7,A0
000210ae 43 fa f0 a2              |C       |		LEA.L	0x20152,A1
000210b2 70 14                    |p       |		MOVEQ.L	#0x14,D0
000210b4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000210b6 51 c8 ff fc              |Q       |		DBF	D0,0x210b4
000210ba 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210bc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000210c0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210c2 3f 3c 00 15              |?<      |		MOVE.W	#0x15,-(A7)
000210c6 4e 92                    |N       |		JSR	(A2)
000210c8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210ca 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
000210cc de c4                    |        |		ADDA.W	D4,A7
000210ce 60 00 00 bc              |`       |		BRA	0x2118c
000210d2					switch@0x21056[0x3]:
000210d2 41 fa f0 ae              |A       |		LEA.L	0x20182,A0
000210d6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000210d8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000210da 51 c8 ff fc              |Q       |		DBF	D0,0x210d8
000210de 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210e0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000210e4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210e6 3f 05                    |?       |		MOVE.W	D5,-(A7)
000210e8 4e 92                    |N       |		JSR	(A2)
000210ea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210ec 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
000210ee de c5                    |        |		ADDA.W	D5,A7
000210f0 60 00 00 9a              |`       |		BRA	0x2118c
000210f4					switch@0x21056[0x4]:
000210f4 9e c3                    |        |		SUBA.W	D3,A7
000210f6 20 4f                    | O      |		MOVEA.L	A7,A0
000210f8 43 fa f0 88              |C       |		LEA.L	0x20182,A1
000210fc 70 10                    |p       |		MOVEQ.L	#0x10,D0
000210fe 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021100 51 c8 ff fc              |Q       |		DBF	D0,0x210fe
00021104 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021106 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002110a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002110c 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
00021110 4e 92                    |N       |		JSR	(A2)
00021112 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021114 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00021116 de c3                    |        |		ADDA.W	D3,A7
00021118 60 72                    |`r      |		BRA	0x2118c
0002111a					switch@0x21056[0x5]:
0002111a 41 fa f0 90              |A       |		LEA.L	0x201ac,A0
0002111e 70 05                    |p       |		MOVEQ.L	#0x05,D0
00021120 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021122 51 c8 ff fc              |Q       |		DBF	D0,0x21120
00021126 60 00 ff 72              |`  r    |		BRA	0x2109a
0002112a					switch@0x21056[0x6]:
0002112a 9e c3                    |        |		SUBA.W	D3,A7
0002112c 20 4f                    | O      |		MOVEA.L	A7,A0
0002112e 43 fa f0 7c              |C  |    |		LEA.L	0x201ac,A1
00021132 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021134 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021136 51 c8 ff fc              |Q       |		DBF	D0,0x21134
0002113a 60 c8                    |`       |		BRA	0x21104
0002113c					switch@0x21056[0x7]:
0002113c 41 fa f0 94              |A       |		LEA.L	0x201d2,A0
00021140 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021142 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021144 51 c8 ff fc              |Q       |		DBF	D0,0x21142
00021148 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002114a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002114e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021150 3f 06                    |?       |		MOVE.W	D6,-(A7)
00021152 4e 92                    |N       |		JSR	(A2)
00021154 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021156 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00021158 de c6                    |        |		ADDA.W	D6,A7
0002115a 60 30                    |`0      |		BRA	0x2118c
0002115c 41 fa f0 8c              |A       |		LEA.L	0x201ea,A0
00021160 70 05                    |p       |		MOVEQ.L	#0x05,D0
00021162 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021164 51 c8 ff fc              |Q       |		DBF	D0,0x21162
00021168 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002116a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002116e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021170 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021172 4e 92                    |N       |		JSR	(A2)
00021174 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00021178 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
0002117e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021180 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021186 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021188 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
0002118a de c2                    |        |		ADDA.W	D2,A7
0002118c 4c df 0f 7f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3
00021190 4e 5e                    |N^      |		UNLK	A6
00021192 4e 75                    |Nu      |		RTS
00021194 ; --------------------------------------------------------------------------------------
00021194 ; OMSI PASCAL Function
00021194 ;    <LVAR  0x008 4(r)>
00021194 ; --------------------------------------------------------------------------------------
00021194 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
00021198 bf d5                    |        |		CMPA.L	(A5),A7
0002119a 62 06                    |b       |		BHI	0x211a2
0002119c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000211a0 4e 76                    |Nv      |		TRAPV
000211a2 de fc 00 52              |   R    |		ADDA.W	#0x52,A7
000211a6 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000211aa 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000211b0 72 01                    |r       |		MOVEQ.L	#0x01,D1
000211b2 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
000211b6 20 4f                    | O      |		MOVEA.L	A7,A0
000211b8 43 fa f0 30              |C  0    |		LEA.L	0x201ea,A1
000211bc 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000211be 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000211c0 51 c8 ff fc              |Q       |		DBF	D0,0x211be
000211c4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000211c6 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000211ca 3f 01                    |?       |		MOVE.W	D1,-(A7)
000211cc 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
000211d0 4e 92                    |N       |		JSR	(A2)
000211d2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000211d4 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
000211d8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000211de 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211e0 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000211e6 de fc 00 10              |        |		ADDA.W	#0x10,A7
000211ea 4a 39 00 02 90 b2        |J9      |		TST.B	0x290b2
000211f0 67 30                    |g0      |		BEQ	0x21222
000211f2 9e fc 00 2e              |   .    |		SUBA.W	#0x2e,A7
000211f6 20 4f                    | O      |		MOVEA.L	A7,A0
000211f8 43 fa ef fc              |C       |		LEA.L	0x201f6,A1
000211fc 70 2c                    |p,      |		MOVEQ.L	#0x2c,D0
000211fe 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021200 51 c8 ff fc              |Q       |		DBF	D0,0x211fe
00021204 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021206 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002120a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002120c 3f 3c 00 2d              |?< -    |		MOVE.W	#0x2d,-(A7)
00021210 4e 92                    |N       |		JSR	(A2)
00021212 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021214 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002121a de fc 00 32              |   2    |		ADDA.W	#0x32,A7
0002121e 60 fe                    |`       |		BRA	0x2121e
00021220 60 30                    |`0      |		.XXX[0x2]
00021222 9e fc 00 18              |        |		SUBA.W	#0x18,A7
00021226 20 4f                    | O      |		MOVEA.L	A7,A0
00021228 43 fa ef fa              |C       |		LEA.L	0x20224,A1
0002122c 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002122e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021230 51 c8 ff fc              |Q       |		DBF	D0,0x2122e
00021234 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00021238 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002123a 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002123e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021240 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00021244 4e 92                    |N       |		JSR	(A2)
00021246 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021248 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002124e de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00021252 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00021256 4e 5e                    |N^      |		UNLK	A6
00021258 4e 75                    |Nu      |		RTS
0002125a ; --------------------------------------------------------------------------------------
0002125a ; OMSI PASCAL Function
0002125a ;    <LVAR  0x00a 4(rw)>
0002125a ;    <LVAR  0x008 1(r)>
0002125a ; --------------------------------------------------------------------------------------
0002125a 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2
0002125e bf d5                    |        |		CMPA.L	(A5),A7
00021260 62 06                    |b       |		BHI	0x21268
00021262 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021266 4e 76                    |Nv      |		TRAPV
00021268 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002126c 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00021270 41 ee 00 0a              |A       |		LEA.L	(A6+0xa),A0
00021274 42 80                    |B       |		CLR.L	D0
00021276 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0002127a 04 40 00 30              | @ 0    |		SUBI.W	#0x0030,D0
0002127e 0c 40 00 36              | @ 6    |		CMPI.W	#0x0036,D0
00021282 62 00 00 f6              |b       |		BHI	switch@0x21288[0xa]
00021286 d0 40                    | @      |		ADD.W	D0,D0
00021288 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00021290 00 6e                    | n      |		.CONST	0x6e			; [0x0] -> 0x212fe
00021292 00 72                    | r      |		.CONST	0x72			; [0x1] -> 0x21302
00021294 00 7a                    | z      |		.CONST	0x7a			; [0x2] -> 0x2130a
00021296 00 82                    |        |		.CONST	0x82			; [0x3] -> 0x21312
00021298 00 8a                    |        |		.CONST	0x8a			; [0x4] -> 0x2131a
0002129a 00 92                    |        |		.CONST	0x92			; [0x5] -> 0x21322
0002129c 00 9a                    |        |		.CONST	0x9a			; [0x6] -> 0x2132a
0002129e 00 a2                    |        |		.CONST	0xa2			; [0x7] -> 0x21332
000212a0 00 aa                    |        |		.CONST	0xaa			; [0x8] -> 0x2133a
000212a2 00 b2                    |        |		.CONST	0xb2			; [0x9] -> 0x21342
000212a4 00 ea                    |        |		.CONST	0xea			; [0xa] -> 0x2137a
000212a6 00 ea                    |        |		.CONST	0xea			; [0xb] -> 0x2137a
000212a8 00 ea                    |        |		.CONST	0xea			; [0xc] -> 0x2137a
000212aa 00 ea                    |        |		.CONST	0xea			; [0xd] -> 0x2137a
000212ac 00 ea                    |        |		.CONST	0xea			; [0xe] -> 0x2137a
000212ae 00 ea                    |        |		.CONST	0xea			; [0xf] -> 0x2137a
000212b0 00 ea                    |        |		.CONST	0xea			; [0x10] -> 0x2137a
000212b2 00 ba                    |        |		.CONST	0xba			; [0x11] -> 0x2134a
000212b4 00 c2                    |        |		.CONST	0xc2			; [0x12] -> 0x21352
000212b6 00 ca                    |        |		.CONST	0xca			; [0x13] -> 0x2135a
000212b8 00 d2                    |        |		.CONST	0xd2			; [0x14] -> 0x21362
000212ba 00 da                    |        |		.CONST	0xda			; [0x15] -> 0x2136a
000212bc 00 e2                    |        |		.CONST	0xe2			; [0x16] -> 0x21372
000212be 00 ea                    |        |		.CONST	0xea			; [0x17] -> 0x2137a
000212c0 00 ea                    |        |		.CONST	0xea			; [0x18] -> 0x2137a
000212c2 00 ea                    |        |		.CONST	0xea			; [0x19] -> 0x2137a
000212c4 00 ea                    |        |		.CONST	0xea			; [0x1a] -> 0x2137a
000212c6 00 ea                    |        |		.CONST	0xea			; [0x1b] -> 0x2137a
000212c8 00 ea                    |        |		.CONST	0xea			; [0x1c] -> 0x2137a
000212ca 00 ea                    |        |		.CONST	0xea			; [0x1d] -> 0x2137a
000212cc 00 ea                    |        |		.CONST	0xea			; [0x1e] -> 0x2137a
000212ce 00 ea                    |        |		.CONST	0xea			; [0x1f] -> 0x2137a
000212d0 00 ea                    |        |		.CONST	0xea			; [0x20] -> 0x2137a
000212d2 00 ea                    |        |		.CONST	0xea			; [0x21] -> 0x2137a
000212d4 00 ea                    |        |		.CONST	0xea			; [0x22] -> 0x2137a
000212d6 00 ea                    |        |		.CONST	0xea			; [0x23] -> 0x2137a
000212d8 00 ea                    |        |		.CONST	0xea			; [0x24] -> 0x2137a
000212da 00 ea                    |        |		.CONST	0xea			; [0x25] -> 0x2137a
000212dc 00 ea                    |        |		.CONST	0xea			; [0x26] -> 0x2137a
000212de 00 ea                    |        |		.CONST	0xea			; [0x27] -> 0x2137a
000212e0 00 ea                    |        |		.CONST	0xea			; [0x28] -> 0x2137a
000212e2 00 ea                    |        |		.CONST	0xea			; [0x29] -> 0x2137a
000212e4 00 ea                    |        |		.CONST	0xea			; [0x2a] -> 0x2137a
000212e6 00 ea                    |        |		.CONST	0xea			; [0x2b] -> 0x2137a
000212e8 00 ea                    |        |		.CONST	0xea			; [0x2c] -> 0x2137a
000212ea 00 ea                    |        |		.CONST	0xea			; [0x2d] -> 0x2137a
000212ec 00 ea                    |        |		.CONST	0xea			; [0x2e] -> 0x2137a
000212ee 00 ea                    |        |		.CONST	0xea			; [0x2f] -> 0x2137a
000212f0 00 ea                    |        |		.CONST	0xea			; [0x30] -> 0x2137a
000212f2 00 ba                    |        |		.CONST	0xba			; [0x31] -> 0x2134a
000212f4 00 c2                    |        |		.CONST	0xc2			; [0x32] -> 0x21352
000212f6 00 ca                    |        |		.CONST	0xca			; [0x33] -> 0x2135a
000212f8 00 d2                    |        |		.CONST	0xd2			; [0x34] -> 0x21362
000212fa 00 da                    |        |		.CONST	0xda			; [0x35] -> 0x2136a
000212fc 00 e2                    |        |		.CONST	0xe2			; [0x36] -> 0x21372
000212fe					switch@0x21288[0x0]:
000212fe 42 90                    |B       |		CLR.L	(A0)
00021300 60 7e                    |`~      |		BRA	0x21380
00021302					switch@0x21288[0x1]:
00021302 20 bc 00 00 00 01        |        |		MOVE.L	#0x1,(A0)
00021308 60 76                    |`v      |		BRA	0x21380
0002130a					switch@0x21288[0x2]:
0002130a 20 bc 00 00 00 02        |        |		MOVE.L	#0x2,(A0)
00021310 60 6e                    |`n      |		BRA	0x21380
00021312					switch@0x21288[0x3]:
00021312 20 bc 00 00 00 03        |        |		MOVE.L	#0x3,(A0)
00021318 60 66                    |`f      |		BRA	0x21380
0002131a					switch@0x21288[0x4]:
0002131a 20 bc 00 00 00 04        |        |		MOVE.L	#0x4,(A0)
00021320 60 5e                    |`^      |		BRA	0x21380
00021322					switch@0x21288[0x5]:
00021322 20 bc 00 00 00 05        |        |		MOVE.L	#0x5,(A0)
00021328 60 56                    |`V      |		BRA	0x21380
0002132a					switch@0x21288[0x6]:
0002132a 20 bc 00 00 00 06        |        |		MOVE.L	#0x6,(A0)
00021330 60 4e                    |`N      |		BRA	0x21380
00021332					switch@0x21288[0x7]:
00021332 20 bc 00 00 00 07        |        |		MOVE.L	#0x7,(A0)
00021338 60 46                    |`F      |		BRA	0x21380
0002133a					switch@0x21288[0x8]:
0002133a 20 bc 00 00 00 08        |        |		MOVE.L	#0x8,(A0)
00021340 60 3e                    |`>      |		BRA	0x21380
00021342					switch@0x21288[0x9]:
00021342 20 bc 00 00 00 09        |        |		MOVE.L	#0x9,(A0)
00021348 60 36                    |`6      |		BRA	0x21380
0002134a					switch@0x21288[0x11]:
0002134a					switch@0x21288[0x31]:
0002134a 20 bc 00 00 00 0a        |        |		MOVE.L	#0xa,(A0)
00021350 60 2e                    |`.      |		BRA	0x21380
00021352					switch@0x21288[0x12]:
00021352					switch@0x21288[0x32]:
00021352 20 bc 00 00 00 0b        |        |		MOVE.L	#0xb,(A0)
00021358 60 26                    |`&      |		BRA	0x21380
0002135a					switch@0x21288[0x13]:
0002135a					switch@0x21288[0x33]:
0002135a 20 bc 00 00 00 0c        |        |		MOVE.L	#0xc,(A0)
00021360 60 1e                    |`       |		BRA	0x21380
00021362					switch@0x21288[0x14]:
00021362					switch@0x21288[0x34]:
00021362 20 bc 00 00 00 0d        |        |		MOVE.L	#0xd,(A0)
00021368 60 16                    |`       |		BRA	0x21380
0002136a					switch@0x21288[0x15]:
0002136a					switch@0x21288[0x35]:
0002136a 20 bc 00 00 00 0e        |        |		MOVE.L	#0xe,(A0)
00021370 60 0e                    |`       |		BRA	0x21380
00021372					switch@0x21288[0x16]:
00021372					switch@0x21288[0x36]:
00021372 20 bc 00 00 00 0f        |        |		MOVE.L	#0xf,(A0)
00021378 60 06                    |`       |		BRA	0x21380
0002137a					switch@0x21288[0x10]:
0002137a					switch@0x21288[0x17]:
0002137a					switch@0x21288[0x18]:
0002137a					switch@0x21288[0x19]:
0002137a					switch@0x21288[0x1a]:
0002137a					switch@0x21288[0x1b]:
0002137a					switch@0x21288[0x1c]:
0002137a					switch@0x21288[0x1d]:
0002137a					switch@0x21288[0x1e]:
0002137a					switch@0x21288[0x1f]:
0002137a					switch@0x21288[0x20]:
0002137a					switch@0x21288[0x21]:
0002137a					switch@0x21288[0x22]:
0002137a					switch@0x21288[0x23]:
0002137a					switch@0x21288[0x24]:
0002137a					switch@0x21288[0x25]:
0002137a					switch@0x21288[0x26]:
0002137a					switch@0x21288[0x27]:
0002137a					switch@0x21288[0x28]:
0002137a					switch@0x21288[0x29]:
0002137a					switch@0x21288[0x2a]:
0002137a					switch@0x21288[0x2b]:
0002137a					switch@0x21288[0x2c]:
0002137a					switch@0x21288[0x2d]:
0002137a					switch@0x21288[0x2e]:
0002137a					switch@0x21288[0x2f]:
0002137a					switch@0x21288[0x30]:
0002137a					switch@0x21288[0xa]:
0002137a					switch@0x21288[0xb]:
0002137a					switch@0x21288[0xc]:
0002137a					switch@0x21288[0xd]:
0002137a					switch@0x21288[0xe]:
0002137a					switch@0x21288[0xf]:
0002137a 20 bc ff ff ff ff        |        |		MOVE.L	#0xffffffff,(A0)
00021380 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00021384 4e 5e                    |N^      |		UNLK	A6
00021386 4e 75                    |Nu      |		RTS
00021388 ; --------------------------------------------------------------------------------------
00021388 ; OMSI PASCAL Function
00021388 ;    <LVAR  0x010 2(r)>
00021388 ;    <LVAR  0x00c 4(r)>
00021388 ;    <LVAR  0x008 4(r)>
00021388 ; --------------------------------------------------------------------------------------
00021388 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
0002138c bf d5                    |        |		CMPA.L	(A5),A7
0002138e 62 06                    |b       |		BHI	0x21396
00021390 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021394 4e 76                    |Nv      |		TRAPV
00021396 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
0002139a 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
0002139e 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
000213a2 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
000213a6 72 01                    |r       |		MOVEQ.L	#0x01,D1
000213a8 30 2e 00 10              |0.      |		MOVE.W	(A6+0x10),D0
000213ac 04 40 00 15              | @      |		SUBI.W	#0x0015,D0
000213b0 0c 40 00 3e              | @ >    |		CMPI.W	#0x003e,D0
000213b4 62 00 01 6a              |b  j    |		BHI	switch@0x213ba[0x1]
000213b8 d0 40                    | @      |		ADD.W	D0,D0
000213ba 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000213c2 00 de                    |        |		.CONST	0xde			; [0x0] -> 0x214a0
000213c4 01 5e                    | ^      |		.CONST	0x15e			; [0x1] -> 0x21520
000213c6 00 ca                    |        |		.CONST	0xca			; [0x2] -> 0x2148c
000213c8 01 5e                    | ^      |		.CONST	0x15e			; [0x3] -> 0x21520
000213ca 00 ac                    |        |		.CONST	0xac			; [0x4] -> 0x2146e
000213cc 01 5e                    | ^      |		.CONST	0x15e			; [0x5] -> 0x21520
000213ce 01 5e                    | ^      |		.CONST	0x15e			; [0x6] -> 0x21520
000213d0 01 5e                    | ^      |		.CONST	0x15e			; [0x7] -> 0x21520
000213d2 01 5e                    | ^      |		.CONST	0x15e			; [0x8] -> 0x21520
000213d4 01 5e                    | ^      |		.CONST	0x15e			; [0x9] -> 0x21520
000213d6 01 5e                    | ^      |		.CONST	0x15e			; [0xa] -> 0x21520
000213d8 01 5e                    | ^      |		.CONST	0x15e			; [0xb] -> 0x21520
000213da 00 7e                    | ~      |		.CONST	0x7e			; [0xc] -> 0x21440
000213dc 01 5e                    | ^      |		.CONST	0x15e			; [0xd] -> 0x21520
000213de 01 5e                    | ^      |		.CONST	0x15e			; [0xe] -> 0x21520
000213e0 01 5e                    | ^      |		.CONST	0x15e			; [0xf] -> 0x21520
000213e2 01 5e                    | ^      |		.CONST	0x15e			; [0x10] -> 0x21520
000213e4 01 5e                    | ^      |		.CONST	0x15e			; [0x11] -> 0x21520
000213e6 01 5e                    | ^      |		.CONST	0x15e			; [0x12] -> 0x21520
000213e8 01 5e                    | ^      |		.CONST	0x15e			; [0x13] -> 0x21520
000213ea 01 5e                    | ^      |		.CONST	0x15e			; [0x14] -> 0x21520
000213ec 01 5e                    | ^      |		.CONST	0x15e			; [0x15] -> 0x21520
000213ee 01 5e                    | ^      |		.CONST	0x15e			; [0x16] -> 0x21520
000213f0 01 5e                    | ^      |		.CONST	0x15e			; [0x17] -> 0x21520
000213f2 01 5e                    | ^      |		.CONST	0x15e			; [0x18] -> 0x21520
000213f4 01 5e                    | ^      |		.CONST	0x15e			; [0x19] -> 0x21520
000213f6 01 5e                    | ^      |		.CONST	0x15e			; [0x1a] -> 0x21520
000213f8 01 5e                    | ^      |		.CONST	0x15e			; [0x1b] -> 0x21520
000213fa 01 5e                    | ^      |		.CONST	0x15e			; [0x1c] -> 0x21520
000213fc 01 5e                    | ^      |		.CONST	0x15e			; [0x1d] -> 0x21520
000213fe 01 5e                    | ^      |		.CONST	0x15e			; [0x1e] -> 0x21520
00021400 01 5e                    | ^      |		.CONST	0x15e			; [0x1f] -> 0x21520
00021402 01 5e                    | ^      |		.CONST	0x15e			; [0x20] -> 0x21520
00021404 01 5e                    | ^      |		.CONST	0x15e			; [0x21] -> 0x21520
00021406 01 5e                    | ^      |		.CONST	0x15e			; [0x22] -> 0x21520
00021408 01 5e                    | ^      |		.CONST	0x15e			; [0x23] -> 0x21520
0002140a 01 5e                    | ^      |		.CONST	0x15e			; [0x24] -> 0x21520
0002140c 01 5e                    | ^      |		.CONST	0x15e			; [0x25] -> 0x21520
0002140e 01 5e                    | ^      |		.CONST	0x15e			; [0x26] -> 0x21520
00021410 01 5e                    | ^      |		.CONST	0x15e			; [0x27] -> 0x21520
00021412 01 5e                    | ^      |		.CONST	0x15e			; [0x28] -> 0x21520
00021414 01 5e                    | ^      |		.CONST	0x15e			; [0x29] -> 0x21520
00021416 01 5e                    | ^      |		.CONST	0x15e			; [0x2a] -> 0x21520
00021418 01 5e                    | ^      |		.CONST	0x15e			; [0x2b] -> 0x21520
0002141a 01 5e                    | ^      |		.CONST	0x15e			; [0x2c] -> 0x21520
0002141c 01 5e                    | ^      |		.CONST	0x15e			; [0x2d] -> 0x21520
0002141e 01 5e                    | ^      |		.CONST	0x15e			; [0x2e] -> 0x21520
00021420 01 5e                    | ^      |		.CONST	0x15e			; [0x2f] -> 0x21520
00021422 01 5e                    | ^      |		.CONST	0x15e			; [0x30] -> 0x21520
00021424 01 5e                    | ^      |		.CONST	0x15e			; [0x31] -> 0x21520
00021426 01 5e                    | ^      |		.CONST	0x15e			; [0x32] -> 0x21520
00021428 01 5e                    | ^      |		.CONST	0x15e			; [0x33] -> 0x21520
0002142a 01 5e                    | ^      |		.CONST	0x15e			; [0x34] -> 0x21520
0002142c 01 5e                    | ^      |		.CONST	0x15e			; [0x35] -> 0x21520
0002142e 01 5e                    | ^      |		.CONST	0x15e			; [0x36] -> 0x21520
00021430 01 5e                    | ^      |		.CONST	0x15e			; [0x37] -> 0x21520
00021432 01 5e                    | ^      |		.CONST	0x15e			; [0x38] -> 0x21520
00021434 01 5e                    | ^      |		.CONST	0x15e			; [0x39] -> 0x21520
00021436 01 5e                    | ^      |		.CONST	0x15e			; [0x3a] -> 0x21520
00021438 00 f2                    |        |		.CONST	0xf2			; [0x3b] -> 0x214b4
0002143a 01 06                    |        |		.CONST	0x106			; [0x3c] -> 0x214c8
0002143c 01 3a                    | :      |		.CONST	0x13a			; [0x3d] -> 0x214fc
0002143e 01 4c                    | L      |		.CONST	0x14c			; [0x3e] -> 0x2150e
00021440					switch@0x213ba[0xc]:
00021440 20 53                    | S      |		MOVEA.L	(A3),A0
00021442 20 bc 80 00 00 00        |        |		MOVE.L	#0x80000000,(A0)
00021448 20 54                    | T      |		MOVEA.L	(A4),A0
0002144a 2f 3a ed f4              |/:      |		MOVE.L	0x20240,-(A7)
0002144e 2f 3a ed ec              |/:      |		MOVE.L	0x2023c,-(A7)
00021452 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021454 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021458 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002145a 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
0002145e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021464 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021466 20 9f                    |        |		MOVE.L	(A7)+,(A0)
00021468 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002146a 60 00 00 e4              |`       |		BRA	0x21550
0002146e					switch@0x213ba[0x4]:
0002146e 20 53                    | S      |		MOVEA.L	(A3),A0
00021470 20 bc 80 00 20 00        |        |		MOVE.L	#0x80002000,(A0)
00021476 20 54                    | T      |		MOVEA.L	(A4),A0
00021478 2f 3a ed ca              |/:      |		MOVE.L	0x20244,-(A7)
0002147c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002147e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021482 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021484 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00021488 60 00 00 ba              |`       |		BRA	0x21544
0002148c					switch@0x213ba[0x2]:
0002148c 20 53                    | S      |		MOVEA.L	(A3),A0
0002148e 20 bc 80 00 40 00        |    @   |		MOVE.L	#0x80004000,(A0)
00021494 20 54                    | T      |		MOVEA.L	(A4),A0
00021496 2f 3a ed b4              |/:      |		MOVE.L	0x2024c,-(A7)
0002149a 2f 3a ed ac              |/:      |		MOVE.L	0x20248,-(A7)
0002149e 60 b2                    |`       |		BRA	0x21452
000214a0					switch@0x213ba[0x0]:
000214a0 20 53                    | S      |		MOVEA.L	(A3),A0
000214a2 20 bc 80 00 60 00        |    `   |		MOVE.L	#0x80006000,(A0)
000214a8 20 54                    | T      |		MOVEA.L	(A4),A0
000214aa 2f 3a ed a8              |/:      |		MOVE.L	0x20254,-(A7)
000214ae 2f 3a ed a0              |/:      |		MOVE.L	0x20250,-(A7)
000214b2 60 9e                    |`       |		BRA	0x21452
000214b4					switch@0x213ba[0x3b]:
000214b4 20 53                    | S      |		MOVEA.L	(A3),A0
000214b6 20 bc 00 07 00 00        |        |		MOVE.L	#0x70000,(A0)
000214bc 20 54                    | T      |		MOVEA.L	(A4),A0
000214be 2f 3a ed 9c              |/:      |		MOVE.L	0x2025c,-(A7)
000214c2 2f 3a ed 94              |/:      |		MOVE.L	0x20258,-(A7)
000214c6 60 8a                    |`       |		BRA	0x21452
000214c8					switch@0x213ba[0x3c]:
000214c8 20 53                    | S      |		MOVEA.L	(A3),A0
000214ca 20 bc 00 07 20 00        |        |		MOVE.L	#0x72000,(A0)
000214d0 20 54                    | T      |		MOVEA.L	(A4),A0
000214d2 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000214d4 22 4f                    |"O      |		MOVEA.L	A7,A1
000214d6 45 fa ed 88              |E       |		LEA.L	0x20260,A2
000214da 70 04                    |p       |		MOVEQ.L	#0x04,D0
000214dc 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000214de 51 c8 ff fc              |Q       |		DBF	D0,0x214dc
000214e2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000214e4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000214e8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000214ea 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
000214ee 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000214f4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000214f6 20 9f                    |        |		MOVE.L	(A7)+,(A0)
000214f8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000214fa 60 54                    |`T      |		BRA	0x21550
000214fc					switch@0x213ba[0x3d]:
000214fc 20 53                    | S      |		MOVEA.L	(A3),A0
000214fe 20 bc 00 07 40 00        |    @   |		MOVE.L	#0x74000,(A0)
00021504 20 54                    | T      |		MOVEA.L	(A4),A0
00021506 2f 3a ed 5e              |/: ^    |		MOVE.L	0x20266,-(A7)
0002150a 60 00 ff 70              |`  p    |		BRA	0x2147c
0002150e					switch@0x213ba[0x3e]:
0002150e 20 53                    | S      |		MOVEA.L	(A3),A0
00021510 20 bc 00 07 60 00        |    `   |		MOVE.L	#0x76000,(A0)
00021516 20 54                    | T      |		MOVEA.L	(A4),A0
00021518 2f 3a ed 50              |/: P    |		MOVE.L	0x2026a,-(A7)
0002151c 60 00 ff 5e              |`  ^    |		BRA	0x2147c
00021520					switch@0x213ba[0x10]:
00021520					switch@0x213ba[0x11]:
00021520					switch@0x213ba[0x12]:
00021520					switch@0x213ba[0x13]:
00021520					switch@0x213ba[0x14]:
00021520					switch@0x213ba[0x15]:
00021520					switch@0x213ba[0x16]:
00021520					switch@0x213ba[0x17]:
00021520					switch@0x213ba[0x18]:
00021520					switch@0x213ba[0x19]:
00021520					switch@0x213ba[0x1]:
00021520					switch@0x213ba[0x1a]:
00021520					switch@0x213ba[0x1b]:
00021520					switch@0x213ba[0x1c]:
00021520					switch@0x213ba[0x1d]:
00021520					switch@0x213ba[0x1e]:
00021520					switch@0x213ba[0x1f]:
00021520					switch@0x213ba[0x20]:
00021520					switch@0x213ba[0x21]:
00021520					switch@0x213ba[0x22]:
00021520					switch@0x213ba[0x23]:
00021520					switch@0x213ba[0x24]:
00021520					switch@0x213ba[0x25]:
00021520					switch@0x213ba[0x26]:
00021520					switch@0x213ba[0x27]:
00021520					switch@0x213ba[0x28]:
00021520					switch@0x213ba[0x29]:
00021520					switch@0x213ba[0x2a]:
00021520					switch@0x213ba[0x2b]:
00021520					switch@0x213ba[0x2c]:
00021520					switch@0x213ba[0x2d]:
00021520					switch@0x213ba[0x2e]:
00021520					switch@0x213ba[0x2f]:
00021520					switch@0x213ba[0x30]:
00021520					switch@0x213ba[0x31]:
00021520					switch@0x213ba[0x32]:
00021520					switch@0x213ba[0x33]:
00021520					switch@0x213ba[0x34]:
00021520					switch@0x213ba[0x35]:
00021520					switch@0x213ba[0x36]:
00021520					switch@0x213ba[0x37]:
00021520					switch@0x213ba[0x38]:
00021520					switch@0x213ba[0x39]:
00021520					switch@0x213ba[0x3]:
00021520					switch@0x213ba[0x3a]:
00021520					switch@0x213ba[0x5]:
00021520					switch@0x213ba[0x6]:
00021520					switch@0x213ba[0x7]:
00021520					switch@0x213ba[0x8]:
00021520					switch@0x213ba[0x9]:
00021520					switch@0x213ba[0xa]:
00021520					switch@0x213ba[0xb]:
00021520					switch@0x213ba[0xd]:
00021520					switch@0x213ba[0xe]:
00021520					switch@0x213ba[0xf]:
00021520 20 53                    | S      |		MOVEA.L	(A3),A0
00021522 42 90                    |B       |		CLR.L	(A0)
00021524 20 54                    | T      |		MOVEA.L	(A4),A0
00021526 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021528 1e ba ed 44              |   D    |		MOVE.B	0x2026e,(A7)
0002152c 1f 7a ed 41 00 01        | z A    |		MOVE.B	0x2026f,(A7+0x1)
00021532 1f 7a ed 3c 00 02        | z <    |		MOVE.B	0x20270,(A7+0x2)
00021538 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002153a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002153e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021540 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00021544 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002154a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002154c 20 9f                    |        |		MOVE.L	(A7)+,(A0)
0002154e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021550 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
00021554 4e 5e                    |N^      |		UNLK	A6
00021556 4e 75                    |Nu      |		RTS
00021558 ; --------------------------------------------------------------------------------------
00021558 ; OMSI PASCAL Function
00021558 ;    <LVAR  0x008 4(r)>
00021558 ;    <LVAR -0x004 2(rw)>
00021558 ;    <LVAR -0x008 4(rw)>
00021558 ; --------------------------------------------------------------------------------------
00021558 4e 56 ff 88              |NV      |		LINK.W	A6,#0xff88
0002155c bf d5                    |        |		CMPA.L	(A5),A7
0002155e 62 06                    |b       |		BHI	0x21566
00021560 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021564 4e 76                    |Nv      |		TRAPV
00021566 de fc 00 68              |   h    |		ADDA.W	#0x68,A7
0002156a 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002156e 43 fa fc ea              |C       |		LEA.L	0x2125a,A1
00021572 45 f9 00 02 50 9c        |E   P   |		LEA.L	0x2509c,A2
00021578 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
0002157c 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
00021580 20 54                    | T      |		MOVEA.L	(A4),A0
00021582 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021584 1f 28 00 02              | (      |		MOVE.B	(A0+0x2),-(A7)
00021588 4e 91                    |N       |		JSR	(A1)
0002158a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002158c 26 1f                    |&       |		MOVE.L	(A7)+,D3
0002158e 78 10                    |x       |		MOVEQ.L	#0x10,D4
00021590 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021596 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021598 1f 28 00 03              | (      |		MOVE.B	(A0+0x3),-(A7)
0002159c 4e 91                    |N       |		JSR	(A1)
0002159e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000215a0 20 04                    |        |		MOVE.L	D4,D0
000215a2 d0 9f                    |        |		ADD.L	(A7)+,D0
000215a4 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
000215aa 63 02                    |c       |		BLS	0x215ae
000215ac 4e 4f                    |NO      |		TRAP	#15
000215ae 3d 40 ff fc              |=@      |		MOVE.W	D0,(A6-0x4)
000215b2 48 c0                    |H       |		EXTW.L	D0
000215b4 2e 00                    |.       |		MOVE.L	D0,D7
000215b6 42 93                    |B       |		CLR.L	(A3)
000215b8 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000215ba 20 54                    | T      |		MOVEA.L	(A4),A0
000215bc 20 06                    |        |		MOVE.L	D6,D0
000215be e3 80                    |        |		ASL.L	#0x1,D0
000215c0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000215c2 22 00                    |"       |		MOVE.L	D0,D1
000215c4 5a 81                    |Z       |		ADDQ.L	#0x5,D1
000215c6 53 81                    |S       |		SUBQ.L	#0x1,D1
000215c8 0c 81 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D1
000215ce 63 02                    |c       |		BLS	0x215d2
000215d0 4e 4f                    |NO      |		TRAP	#15
000215d2 1f 30 18 00              | 0      |		MOVE.B	(A0+D1.L),-(A7)
000215d6 4e 91                    |N       |		JSR	(A1)
000215d8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000215da 26 1f                    |&       |		MOVE.L	(A7)+,D3
000215dc 78 10                    |x       |		MOVEQ.L	#0x10,D4
000215de 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
000215e4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000215e6 5c 80                    |\       |		ADDQ.L	#0x6,D0
000215e8 53 80                    |S       |		SUBQ.L	#0x1,D0
000215ea 0c 80 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D0
000215f0 63 02                    |c       |		BLS	0x215f4
000215f2 4e 4f                    |NO      |		TRAP	#15
000215f4 1f 30 08 00              | 0      |		MOVE.B	(A0+D0.L),-(A7)
000215f8 4e 91                    |N       |		JSR	(A1)
000215fa 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000215fc 20 04                    |        |		MOVE.L	D4,D0
000215fe d0 9f                    |        |		ADD.L	(A7)+,D0
00021600 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00021606 63 02                    |c       |		BLS	0x2160a
00021608 4e 4f                    |NO      |		TRAP	#15
0002160a 3a 00                    |:       |		MOVE.W	D0,D5
0002160c 20 13                    |        |		MOVE.L	(A3),D0
0002160e e1 80                    |        |		ASL.L	#0x8,D0
00021610 32 05                    |2       |		MOVE.W	D5,D1
00021612 48 c1                    |H       |		EXTW.L	D1
00021614 d0 81                    |        |		ADD.L	D1,D0
00021616 26 80                    |&       |		MOVE.L	D0,(A3)
00021618 de 81                    |        |		ADD.L	D1,D7
0002161a 52 86                    |R       |		ADDQ.L	#0x1,D6
0002161c 0c 86 00 00 00 03        |        |		CMPI.L	#0x00000003,D6
00021622 6f 96                    |o       |		BLE	0x215ba
00021624 4a 92                    |J       |		TST.L	(A2)
00021626 66 0c                    |f       |		BNE	0x21634
00021628 20 13                    |        |		MOVE.L	(A3),D0
0002162a e0 88                    |        |		LSR.L	#0x8,D0
0002162c ea 88                    |        |		LSR.L	#0x5,D0
0002162e e1 80                    |        |		ASL.L	#0x8,D0
00021630 eb 80                    |        |		ASL.L	#0x5,D0
00021632 24 80                    |$       |		MOVE.L	D0,(A2)
00021634 30 2e ff fc              |0.      |		MOVE.W	(A6-0x4),D0
00021638 5d 40                    |]@      |		SUBQ.W	#0x6,D0
0002163a 48 c0                    |H       |		EXTW.L	D0
0002163c 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002163e 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00021640 bc 97                    |        |		CMP.L	(A7),D6
00021642 6e 00 00 a8              |n       |		BGT	0x216ec
00021646 20 54                    | T      |		MOVEA.L	(A4),A0
00021648 20 06                    |        |		MOVE.L	D6,D0
0002164a e3 80                    |        |		ASL.L	#0x1,D0
0002164c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002164e 22 00                    |"       |		MOVE.L	D0,D1
00021650 06 81 00 00 00 0d        |        |		ADDI.L	#0x0000000d,D1
00021656 53 81                    |S       |		SUBQ.L	#0x1,D1
00021658 0c 81 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D1
0002165e 63 02                    |c       |		BLS	0x21662
00021660 4e 4f                    |NO      |		TRAP	#15
00021662 1f 30 18 00              | 0      |		MOVE.B	(A0+D1.L),-(A7)
00021666 4e 91                    |N       |		JSR	(A1)
00021668 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002166a 26 1f                    |&       |		MOVE.L	(A7)+,D3
0002166c 78 10                    |x       |		MOVEQ.L	#0x10,D4
0002166e 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021674 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021676 06 80 00 00 00 0e        |        |		ADDI.L	#0x0000000e,D0
0002167c 53 80                    |S       |		SUBQ.L	#0x1,D0
0002167e 0c 80 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D0
00021684 63 02                    |c       |		BLS	0x21688
00021686 4e 4f                    |NO      |		TRAP	#15
00021688 1f 30 08 00              | 0      |		MOVE.B	(A0+D0.L),-(A7)
0002168c 4e 91                    |N       |		JSR	(A1)
0002168e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021690 20 04                    |        |		MOVE.L	D4,D0
00021692 d0 9f                    |        |		ADD.L	(A7)+,D0
00021694 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
0002169a 63 02                    |c       |		BLS	0x2169e
0002169c 4e 4f                    |NO      |		TRAP	#15
0002169e 3a 00                    |:       |		MOVE.W	D0,D5
000216a0 30 05                    |0       |		MOVE.W	D5,D0
000216a2 48 c0                    |H       |		EXTW.L	D0
000216a4 de 80                    |        |		ADD.L	D0,D7
000216a6 52 b9 00 02 50 a0        |R   P   |		ADDQ.L	#0x1,0x250a0
000216ac 22 13                    |"       |		MOVE.L	(A3),D1
000216ae d2 86                    |        |		ADD.L	D6,D1
000216b0 b2 92                    |        |		CMP.L	(A2),D1
000216b2 65 32                    |e2      |		BCS	0x216e6
000216b4 24 12                    |$       |		MOVE.L	(A2),D2
000216b6 06 82 00 00 20 00        |        |		ADDI.L	#0x00002000,D2
000216bc b2 82                    |        |		CMP.L	D2,D1
000216be 64 26                    |d&      |		BCC	0x216e6
000216c0 02 81 00 00 1f ff        |        |		ANDI.L	#0x00001fff,D1
000216c6 0c 81 00 00 1f ff        |        |		CMPI.L	#0x00001fff,D1
000216cc 63 02                    |c       |		BLS	0x216d0
000216ce 4e 4f                    |NO      |		TRAP	#15
000216d0 e3 81                    |        |		ASL.L	#0x1,D1
000216d2 41 f9 00 02 50 88        |A   P   |		LEA.L	0x25088,A0
000216d8 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
000216dc 31 80 18 2a              |1  *    |		MOVE.W	D0,(A0+D1.L+#0x2a)
000216e0 52 b9 00 02 50 a4        |R   P   |		ADDQ.L	#0x1,0x250a4
000216e6 52 86                    |R       |		ADDQ.L	#0x1,D6
000216e8 68 00 ff 56              |h  V    |		BVC	0x21640
000216ec 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000216ee 20 54                    | T      |		MOVEA.L	(A4),A0
000216f0 30 2e ff fc              |0.      |		MOVE.W	(A6-0x4),D0
000216f4 e3 40                    | @      |		ASL.W	#0x1,D0
000216f6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000216f8 32 00                    |2       |		MOVE.W	D0,D1
000216fa 56 41                    |VA      |		ADDQ.W	#0x3,D1
000216fc 53 41                    |SA      |		SUBQ.W	#0x1,D1
000216fe 43 bc 01 ff              |C       |		CHK.W	#0x1ff,D1
00021702 1f 30 10 00              | 0      |		MOVE.B	(A0+D1.W),-(A7)
00021706 4e 91                    |N       |		JSR	(A1)
00021708 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002170a 26 1f                    |&       |		MOVE.L	(A7)+,D3
0002170c 78 10                    |x       |		MOVEQ.L	#0x10,D4
0002170e 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00021714 de 84                    |        |		ADD.L	D4,D7
00021716 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021718 58 40                    |X@      |		ADDQ.W	#0x4,D0
0002171a 53 40                    |S@      |		SUBQ.W	#0x1,D0
0002171c 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
00021720 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
00021724 4e 91                    |N       |		JSR	(A1)
00021726 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021728 de 9f                    |        |		ADD.L	(A7)+,D7
0002172a 28 07                    |(       |		MOVE.L	D7,D4
0002172c 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
00021732 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00021738 0c 83 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D3
0002173e 67 2a                    |g*      |		BEQ	0x2176a
00021740 41 fa eb 50              |A  P    |		LEA.L	0x20292,A0
00021744 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021746 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021748 51 c8 ff fc              |Q       |		DBF	D0,0x21746
0002174c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002174e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021752 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021756 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
0002175a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021760 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021762 4e ba fa 30              |N  0    |		JSR	0x21194
00021766 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
0002176a 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002176e 4e 5e                    |N^      |		UNLK	A6
00021770 4e 75                    |Nu      |		RTS
00021772 ; --------------------------------------------------------------------------------------
00021772 ; OMSI PASCAL Function
00021772 ;    <LVAR  0x008 4(r)>
00021772 ;    <LVAR -0x209 1(r)>
00021772 ;    <LVAR -0x20a @ 1(rw)>
00021772 ;    <LVAR -0x20e @ 4(r)>
00021772 ;    <LVAR -0x210 @ 1(r)>
00021772 ; --------------------------------------------------------------------------------------
00021772 4e 56 fd 8c              |NV      |		LINK.W	A6,#0xfd8c
00021776 bf d5                    |        |		CMPA.L	(A5),A7
00021778 62 06                    |b       |		BHI	0x21780
0002177a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002177e 4e 76                    |Nv      |		TRAPV
00021780 de fc 00 64              |   d    |		ADDA.W	#0x64,A7
00021784 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021788 45 ee fd f2              |E       |		LEA.L	(A6-0x20e),A2
0002178c 47 ee fd f0              |G       |		LEA.L	(A6-0x210),A3
00021790 49 f9 00 02 50 90        |I   P   |		LEA.L	0x25090,A4
00021796 74 01                    |t       |		MOVEQ.L	#0x01,D2
00021798 7a 53                    |zS      |		MOVEQ.L	#0x53,D5
0002179a 48 52                    |HR      |		PEA.L	(A2)
0002179c 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000217a2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000217a4 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000217a6 1d 7c 00 20 fd f6        | |      |		MOVE.B	#0x20,(A6-0x20a)
000217ac 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000217b0 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000217b2 48 52                    |HR      |		PEA.L	(A2)
000217b4 48 53                    |HS      |		PEA.L	(A3)
000217b6 4e b9 00 01 04 3c        |N    <  |		JSR	FileReadLine(file : File; VAR a : String; VAR b : Byte)
000217bc de fc 00 0c              |        |		ADDA.W	#0xc,A7
000217c0 4a 13                    |J       |		TST.B	(A3)
000217c2 67 3e                    |g>      |		BEQ	0x21802
000217c4 42 27                    |B'      |		CLR.B	-(A7)
000217c6 1f 02                    |        |		MOVE.B	D2,-(A7)
000217c8 48 78 00 01              |Hx      |		PEA.L	0x1
000217cc 48 54                    |HT      |		PEA.L	(A4)
000217ce 48 50                    |HP      |		PEA.L	(A0)
000217d0 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000217d6 de fc 00 10              |        |		ADDA.W	#0x10,A7
000217da 41 fa ea cc              |A       |		LEA.L	0x202a8,A0
000217de 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000217e0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000217e2 51 c8 ff fc              |Q       |		DBF	D0,0x217e0
000217e6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000217e8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000217ec 3f 02                    |?       |		MOVE.W	D2,-(A7)
000217ee 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
000217f2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000217f8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217fa 4e ba f9 98              |N       |		JSR	0x21194
000217fe de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00021802 20 52                    | R      |		MOVEA.L	(A2),A0
00021804 30 10                    |0       |		MOVE.W	(A0),D0
00021806 48 c0                    |H       |		EXTW.L	D0
00021808 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002180a 7c 01                    ||       |		MOVEQ.L	#0x01,D6
0002180c bc 97                    |        |		CMP.L	(A7),D6
0002180e 6e 76                    |nv      |		BGT	0x21886
00021810 52 87                    |R       |		ADDQ.L	#0x1,D7
00021812 0c 87 00 00 02 00        |        |		CMPI.L	#0x00000200,D7
00021818 6f 42                    |oB      |		BLE	0x2185c
0002181a 42 27                    |B'      |		CLR.B	-(A7)
0002181c 1f 02                    |        |		MOVE.B	D2,-(A7)
0002181e 48 78 00 01              |Hx      |		PEA.L	0x1
00021822 48 54                    |HT      |		PEA.L	(A4)
00021824 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021828 48 50                    |HP      |		PEA.L	(A0)
0002182a 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00021830 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021834 41 fa ea 84              |A       |		LEA.L	0x202ba,A0
00021838 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002183a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002183c 51 c8 ff fc              |Q       |		DBF	D0,0x2183a
00021840 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021842 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021846 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021848 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
0002184c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021852 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021854 4e ba f9 3e              |N  >    |		JSR	0x21194
00021858 de fc 00 16              |        |		ADDA.W	#0x16,A7
0002185c 20 07                    |        |		MOVE.L	D7,D0
0002185e 53 80                    |S       |		SUBQ.L	#0x1,D0
00021860 0c 80 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D0
00021866 63 02                    |c       |		BLS	0x2186a
00021868 4e 4f                    |NO      |		TRAP	#15
0002186a 20 4b                    | K      |		MOVEA.L	A3,A0
0002186c 22 52                    |"R      |		MOVEA.L	(A2),A1
0002186e 22 06                    |"       |		MOVE.L	D6,D1
00021870 53 81                    |S       |		SUBQ.L	#0x1,D1
00021872 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
00021878 63 02                    |c       |		BLS	0x2187c
0002187a 4e 4f                    |NO      |		TRAP	#15
0002187c 11 b1 18 02 08 06        |        |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L+#0x6)
00021882 52 86                    |R       |		ADDQ.L	#0x1,D6
00021884 68 86                    |h       |		BVC	0x2180c
00021886 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021888 20 52                    | R      |		MOVEA.L	(A2),A0
0002188a 30 10                    |0       |		MOVE.W	(A0),D0
0002188c 0c 40 00 7e              | @ ~    |		CMPI.W	#0x007e,D0
00021890 6c 00 ff 1a              |l       |		BGE	0x217ac
00021894 10 2e fd f6              | .      |		MOVE.B	(A6-0x20a),D0
00021898 b0 05                    |        |		CMP.B	D5,D0
0002189a 66 16                    |f       |		BNE	0x218b2
0002189c 12 2e fd f7              | .      |		MOVE.B	(A6-0x209),D1
000218a0 0c 01 00 33              |   3    |		CMPI.B	#0x33,D1
000218a4 66 0c                    |f       |		BNE	0x218b2
000218a6 48 6e fd f6              |Hn      |		PEA.L	(A6-0x20a)
000218aa 4e ba fc ac              |N       |		JSR	0x21558
000218ae 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000218b0 60 74                    |`t      |		BRA	0x21926
000218b2 b0 05                    |        |		CMP.B	D5,D0
000218b4 66 0c                    |f       |		BNE	0x218c2
000218b6 12 2e fd f7              | .      |		MOVE.B	(A6-0x209),D1
000218ba 0c 01 00 35              |   5    |		CMPI.B	#0x35,D1
000218be 66 02                    |f       |		BNE	0x218c2
000218c0 60 64                    |`d      |		BRA	0x21926
000218c2 b0 05                    |        |		CMP.B	D5,D0
000218c4 66 0c                    |f       |		BNE	0x218d2
000218c6 12 2e fd f7              | .      |		MOVE.B	(A6-0x209),D1
000218ca 0c 01 00 37              |   7    |		CMPI.B	#0x37,D1
000218ce 66 02                    |f       |		BNE	0x218d2
000218d0 60 54                    |`T      |		BRA	0x21926
000218d2 b0 05                    |        |		CMP.B	D5,D0
000218d4 66 0c                    |f       |		BNE	0x218e2
000218d6 10 2e fd f7              | .      |		MOVE.B	(A6-0x209),D0
000218da 0c 00 00 38              |   8    |		CMPI.B	#0x38,D0
000218de 66 02                    |f       |		BNE	0x218e2
000218e0 60 44                    |`D      |		BRA	0x21926
000218e2 42 27                    |B'      |		CLR.B	-(A7)
000218e4 1f 02                    |        |		MOVE.B	D2,-(A7)
000218e6 48 78 00 01              |Hx      |		PEA.L	0x1
000218ea 48 54                    |HT      |		PEA.L	(A4)
000218ec 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000218f0 48 50                    |HP      |		PEA.L	(A0)
000218f2 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000218f8 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
000218fc 20 4f                    | O      |		MOVEA.L	A7,A0
000218fe 43 fa e9 ba              |C       |		LEA.L	0x202ba,A1
00021902 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00021904 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021906 51 c8 ff fc              |Q       |		DBF	D0,0x21904
0002190a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002190c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021910 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021912 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
00021916 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002191c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002191e 4e ba f8 74              |N  t    |		JSR	0x21194
00021922 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00021926 10 2e fd f7              | .      |		MOVE.B	(A6-0x209),D0
0002192a 0c 00 00 37              |   7    |		CMPI.B	#0x37,D0
0002192e 67 08                    |g       |		BEQ	0x21938
00021930 0c 00 00 38              |   8    |		CMPI.B	#0x38,D0
00021934 66 00 fe 6e              |f  n    |		BNE	0x217a4
00021938 42 79 00 02 90 bc        |By      |		CLR.W	0x290bc
0002193e 42 79 00 02 90 be        |By      |		CLR.W	0x290be
00021944 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021948 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002194a 48 52                    |HR      |		PEA.L	(A2)
0002194c 48 53                    |HS      |		PEA.L	(A3)
0002194e 4e b9 00 01 04 3c        |N    <  |		JSR	FileReadLine(file : File; VAR a : String; VAR b : Byte)
00021954 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021958 20 52                    | R      |		MOVEA.L	(A2),A0
0002195a 4a 13                    |J       |		TST.B	(A3)
0002195c 66 00 00 82              |f       |		BNE	0x219e0
00021960 10 28 00 02              | (      |		MOVE.B	(A0+0x2),D0
00021964 0c 00 00 52              |   R    |		CMPI.B	#0x52,D0
00021968 66 76                    |fv      |		BNE	0x219e0
0002196a 10 28 00 05              | (      |		MOVE.B	(A0+0x5),D0
0002196e 0c 00 00 4e              |   N    |		CMPI.B	#0x4e,D0
00021972 66 6c                    |fl      |		BNE	0x219e0
00021974 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021976 1f 28 00 03              | (      |		MOVE.B	(A0+0x3),-(A7)
0002197a 4e ba f8 de              |N       |		JSR	0x2125a
0002197e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021980 28 1f                    |(       |		MOVE.L	(A7)+,D4
00021982 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
00021984 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
0002198a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002198c 1f 28 00 04              | (      |		MOVE.B	(A0+0x4),-(A7)
00021990 4e ba f8 c8              |N       |		JSR	0x2125a
00021994 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021996 20 04                    |        |		MOVE.L	D4,D0
00021998 d0 9f                    |        |		ADD.L	(A7)+,D0
0002199a 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
000219a0 63 02                    |c       |		BLS	0x219a4
000219a2 4e 4f                    |NO      |		TRAP	#15
000219a4 33 c0 00 02 90 bc        |3       |		MOVE.W	D0,0x290bc
000219aa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000219ac 1f 28 00 06              | (      |		MOVE.B	(A0+0x6),-(A7)
000219b0 4e ba f8 a8              |N       |		JSR	0x2125a
000219b4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000219b6 28 1f                    |(       |		MOVE.L	(A7)+,D4
000219b8 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
000219ba 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
000219c0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000219c2 1f 28 00 07              | (      |		MOVE.B	(A0+0x7),-(A7)
000219c6 4e ba f8 92              |N       |		JSR	0x2125a
000219ca 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000219cc 20 04                    |        |		MOVE.L	D4,D0
000219ce d0 9f                    |        |		ADD.L	(A7)+,D0
000219d0 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
000219d6 63 02                    |c       |		BLS	0x219da
000219d8 4e 4f                    |NO      |		TRAP	#15
000219da 33 c0 00 02 90 be        |3       |		MOVE.W	D0,0x290be
000219e0 48 52                    |HR      |		PEA.L	(A2)
000219e2 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000219e8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219ea 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000219ee 4e 5e                    |N^      |		UNLK	A6
000219f0 4e 75                    |Nu      |		RTS
000219f2 ; --------------------------------------------------------------------------------------
000219f2 ; OMSI PASCAL Function
000219f2 ;    <LVAR  0x008 4(r)>
000219f2 ;    <LVAR -0x010 4(rw)>
000219f2 ;    <LVAR -0x014 4(rw)>
000219f2 ; --------------------------------------------------------------------------------------
000219f2 4e 56 ff 88              |NV      |		LINK.W	A6,#0xff88
000219f6 bf d5                    |        |		CMPA.L	(A5),A7
000219f8 62 06                    |b       |		BHI	0x21a00
000219fa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000219fe 4e 76                    |Nv      |		TRAPV
00021a00 de fc 00 64              |   d    |		ADDA.W	#0x64,A7
00021a04 48 e7 ff f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021a08 43 fa f8 50              |C  P    |		LEA.L	0x2125a,A1
00021a0c 45 f9 00 01 02 8c        |E       |		LEA.L	?muls_d3_d4,A2
00021a12 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
00021a16 74 7d                    |t}      |		MOVEQ.L	#0x7d,D2
00021a18 20 53                    | S      |		MOVEA.L	(A3),A0
00021a1a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a1c 1f 28 00 03              | (      |		MOVE.B	(A0+0x3),-(A7)
00021a20 4e 91                    |N       |		JSR	(A1)
00021a22 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021a24 26 1f                    |&       |		MOVE.L	(A7)+,D3
00021a26 78 10                    |x       |		MOVEQ.L	#0x10,D4
00021a28 4e 92                    |N       |		JSR	(A2)
00021a2a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a2c 1f 28 00 04              | (      |		MOVE.B	(A0+0x4),-(A7)
00021a30 4e 91                    |N       |		JSR	(A1)
00021a32 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021a34 20 04                    |        |		MOVE.L	D4,D0
00021a36 d0 9f                    |        |		ADD.L	(A7)+,D0
00021a38 2d 40 ff f0              |-@      |		MOVE.L	D0,(A6-0x10)
00021a3c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a3e 1f 28 00 05              | (      |		MOVE.B	(A0+0x5),-(A7)
00021a42 4e 91                    |N       |		JSR	(A1)
00021a44 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021a46 26 1f                    |&       |		MOVE.L	(A7)+,D3
00021a48 28 3c 00 00 10 00        |(<      |		MOVE.L	#0x1000,D4
00021a4e 4e 92                    |N       |		JSR	(A2)
00021a50 2f 04                    |/       |		MOVE.L	D4,-(A7)
00021a52 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a54 1f 28 00 06              | (      |		MOVE.B	(A0+0x6),-(A7)
00021a58 4e 91                    |N       |		JSR	(A1)
00021a5a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021a5c 26 1f                    |&       |		MOVE.L	(A7)+,D3
00021a5e 28 3c 00 00 01 00        |(<      |		MOVE.L	#0x100,D4
00021a64 4e 92                    |N       |		JSR	(A2)
00021a66 22 17                    |"       |		MOVE.L	(A7),D1
00021a68 d2 84                    |        |		ADD.L	D4,D1
00021a6a 1f 28 00 07              | (      |		MOVE.B	(A0+0x7),-(A7)
00021a6e 4e 91                    |N       |		JSR	(A1)
00021a70 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021a72 26 1f                    |&       |		MOVE.L	(A7)+,D3
00021a74 78 10                    |x       |		MOVEQ.L	#0x10,D4
00021a76 4e 92                    |N       |		JSR	(A2)
00021a78 d2 84                    |        |		ADD.L	D4,D1
00021a7a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a7c 1f 28 00 08              | (      |		MOVE.B	(A0+0x8),-(A7)
00021a80 4e 91                    |N       |		JSR	(A1)
00021a82 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021a84 d2 9f                    |        |		ADD.L	(A7)+,D1
00021a86 2d 41 ff ec              |-A      |		MOVE.L	D1,(A6-0x14)
00021a8a 2e 00                    |.       |		MOVE.L	D0,D7
00021a8c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a8e 1f 28 00 05              | (      |		MOVE.B	(A0+0x5),-(A7)
00021a92 4e 91                    |N       |		JSR	(A1)
00021a94 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021a96 26 1f                    |&       |		MOVE.L	(A7)+,D3
00021a98 78 10                    |x       |		MOVEQ.L	#0x10,D4
00021a9a 4e 92                    |N       |		JSR	(A2)
00021a9c de 84                    |        |		ADD.L	D4,D7
00021a9e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021aa0 1f 28 00 06              | (      |		MOVE.B	(A0+0x6),-(A7)
00021aa4 4e 91                    |N       |		JSR	(A1)
00021aa6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021aa8 de 9f                    |        |		ADD.L	(A7)+,D7
00021aaa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021aac 1f 28 00 07              | (      |		MOVE.B	(A0+0x7),-(A7)
00021ab0 4e 91                    |N       |		JSR	(A1)
00021ab2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021ab4 26 1f                    |&       |		MOVE.L	(A7)+,D3
00021ab6 78 10                    |x       |		MOVEQ.L	#0x10,D4
00021ab8 4e 92                    |N       |		JSR	(A2)
00021aba de 84                    |        |		ADD.L	D4,D7
00021abc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021abe 1f 28 00 08              | (      |		MOVE.B	(A0+0x8),-(A7)
00021ac2 4e 91                    |N       |		JSR	(A1)
00021ac4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021ac6 de 9f                    |        |		ADD.L	(A7)+,D7
00021ac8 53 80                    |S       |		SUBQ.L	#0x1,D0
00021aca 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021acc 7a 00                    |z       |		MOVEQ.L	#0x00,D5
00021ace ba 97                    |        |		CMP.L	(A7),D5
00021ad0 6e 76                    |nv      |		BGT	0x21b48
00021ad2 20 53                    | S      |		MOVEA.L	(A3),A0
00021ad4 20 05                    |        |		MOVE.L	D5,D0
00021ad6 e3 80                    |        |		ASL.L	#0x1,D0
00021ad8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ada 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
00021adc d2 80                    |        |		ADD.L	D0,D1
00021ade 53 81                    |S       |		SUBQ.L	#0x1,D1
00021ae0 b2 82                    |        |		CMP.L	D2,D1
00021ae2 63 02                    |c       |		BLS	0x21ae6
00021ae4 4e 4f                    |NO      |		TRAP	#15
00021ae6 1f 30 18 02              | 0      |		MOVE.B	(A0+D1.L+#0x2),-(A7)
00021aea 4e 91                    |N       |		JSR	(A1)
00021aec 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021aee 26 1f                    |&       |		MOVE.L	(A7)+,D3
00021af0 78 10                    |x       |		MOVEQ.L	#0x10,D4
00021af2 4e 92                    |N       |		JSR	(A2)
00021af4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021af6 06 80 00 00 00 0b        |        |		ADDI.L	#0x0000000b,D0
00021afc 53 80                    |S       |		SUBQ.L	#0x1,D0
00021afe b0 82                    |        |		CMP.L	D2,D0
00021b00 63 02                    |c       |		BLS	0x21b04
00021b02 4e 4f                    |NO      |		TRAP	#15
00021b04 1f 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),-(A7)
00021b08 4e 91                    |N       |		JSR	(A1)
00021b0a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021b0c 2c 04                    |,       |		MOVE.L	D4,D6
00021b0e dc 9f                    |        |		ADD.L	(A7)+,D6
00021b10 20 2e ff ec              | .      |		MOVE.L	(A6-0x14),D0
00021b14 d0 85                    |        |		ADD.L	D5,D0
00021b16 0c 80 00 00 1f ff        |        |		CMPI.L	#0x00001fff,D0
00021b1c 63 02                    |c       |		BLS	0x21b20
00021b1e 4e 4f                    |NO      |		TRAP	#15
00021b20 e3 80                    |        |		ASL.L	#0x1,D0
00021b22 41 f9 00 02 50 88        |A   P   |		LEA.L	0x25088,A0
00021b28 0c 86 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D6
00021b2e 63 02                    |c       |		BLS	0x21b32
00021b30 4e 4f                    |NO      |		TRAP	#15
00021b32 31 86 08 2a              |1  *    |		MOVE.W	D6,(A0+D0.L+#0x2a)
00021b36 de 86                    |        |		ADD.L	D6,D7
00021b38 52 b9 00 02 50 a0        |R   P   |		ADDQ.L	#0x1,0x250a0
00021b3e 52 b9 00 02 50 a4        |R   P   |		ADDQ.L	#0x1,0x250a4
00021b44 52 85                    |R       |		ADDQ.L	#0x1,D5
00021b46 68 86                    |h       |		BVC	0x21ace
00021b48 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021b4a 20 53                    | S      |		MOVEA.L	(A3),A0
00021b4c 20 2e ff f0              | .      |		MOVE.L	(A6-0x10),D0
00021b50 e3 80                    |        |		ASL.L	#0x1,D0
00021b52 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b54 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
00021b56 d2 80                    |        |		ADD.L	D0,D1
00021b58 53 81                    |S       |		SUBQ.L	#0x1,D1
00021b5a b2 82                    |        |		CMP.L	D2,D1
00021b5c 63 02                    |c       |		BLS	0x21b60
00021b5e 4e 4f                    |NO      |		TRAP	#15
00021b60 1f 30 18 02              | 0      |		MOVE.B	(A0+D1.L+#0x2),-(A7)
00021b64 4e 91                    |N       |		JSR	(A1)
00021b66 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021b68 26 1f                    |&       |		MOVE.L	(A7)+,D3
00021b6a 78 10                    |x       |		MOVEQ.L	#0x10,D4
00021b6c 4e 92                    |N       |		JSR	(A2)
00021b6e de 84                    |        |		ADD.L	D4,D7
00021b70 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b72 06 80 00 00 00 0b        |        |		ADDI.L	#0x0000000b,D0
00021b78 53 80                    |S       |		SUBQ.L	#0x1,D0
00021b7a b0 82                    |        |		CMP.L	D2,D0
00021b7c 63 02                    |c       |		BLS	0x21b80
00021b7e 4e 4f                    |NO      |		TRAP	#15
00021b80 1f 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),-(A7)
00021b84 4e 91                    |N       |		JSR	(A1)
00021b86 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021b88 de 9f                    |        |		ADD.L	(A7)+,D7
00021b8a 28 07                    |(       |		MOVE.L	D7,D4
00021b8c 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
00021b92 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00021b98 4a 83                    |J       |		TST.L	D3
00021b9a 67 2a                    |g*      |		BEQ	0x21bc6
00021b9c 41 fa e7 5a              |A  Z    |		LEA.L	0x202f8,A0
00021ba0 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021ba2 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021ba4 51 c8 ff fc              |Q       |		DBF	D0,0x21ba2
00021ba8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021baa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021bae 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021bb2 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00021bb6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021bbc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021bbe 4e ba f5 d4              |N       |		JSR	0x21194
00021bc2 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00021bc6 4c df 0f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00021bca 4e 5e                    |N^      |		UNLK	A6
00021bcc 4e 75                    |Nu      |		RTS
00021bce ; --------------------------------------------------------------------------------------
00021bce ; OMSI PASCAL Function
00021bce ;    <LVAR  0x008 4(r)>
00021bce ;    <LVAR -0x004 @ 1(r)>
00021bce ;    <LVAR -0x008 @ 4(r)>
00021bce ; --------------------------------------------------------------------------------------
00021bce 4e 56 ff a2              |NV      |		LINK.W	A6,#0xffa2
00021bd2 bf d5                    |        |		CMPA.L	(A5),A7
00021bd4 62 06                    |b       |		BHI	0x21bdc
00021bd6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021bda 4e 76                    |Nv      |		TRAPV
00021bdc de fc 00 56              |   V    |		ADDA.W	#0x56,A7
00021be0 48 e7 e0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
00021be4 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
00021be8 49 f9 00 02 50 90        |I   P   |		LEA.L	0x25090,A4
00021bee 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021bf0 74 30                    |t0      |		MOVEQ.L	#0x30,D2
00021bf2 48 53                    |HS      |		PEA.L	(A3)
00021bf4 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021bfa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021bfc 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021c00 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021c02 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00021c04 48 53                    |HS      |		PEA.L	(A3)
00021c06 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021c0a 4e b9 00 01 04 3c        |N    <  |		JSR	FileReadLine(file : File; VAR a : String; VAR b : Byte)
00021c10 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021c14 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00021c18 67 3e                    |g>      |		BEQ	0x21c58
00021c1a 42 27                    |B'      |		CLR.B	-(A7)
00021c1c 1f 01                    |        |		MOVE.B	D1,-(A7)
00021c1e 48 78 00 01              |Hx      |		PEA.L	0x1
00021c22 48 54                    |HT      |		PEA.L	(A4)
00021c24 48 50                    |HP      |		PEA.L	(A0)
00021c26 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00021c2c de fc 00 10              |        |		ADDA.W	#0x10,A7
00021c30 41 fa e6 dc              |A       |		LEA.L	0x2030e,A0
00021c34 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021c36 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021c38 51 c8 ff fc              |Q       |		DBF	D0,0x21c36
00021c3c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c3e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021c42 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c44 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
00021c48 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021c4e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c50 4e ba f5 42              |N  B    |		JSR	0x21194
00021c54 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00021c58 20 53                    | S      |		MOVEA.L	(A3),A0
00021c5a 10 28 00 02              | (      |		MOVE.B	(A0+0x2),D0
00021c5e 0c 00 00 3a              |   :    |		CMPI.B	#0x3a,D0
00021c62 66 08                    |f       |		BNE	0x21c6c
00021c64 10 28 00 09              | (      |		MOVE.B	(A0+0x9),D0
00021c68 b0 02                    |        |		CMP.B	D2,D0
00021c6a 67 44                    |gD      |		BEQ	0x21cb0
00021c6c 42 27                    |B'      |		CLR.B	-(A7)
00021c6e 1f 01                    |        |		MOVE.B	D1,-(A7)
00021c70 48 78 00 01              |Hx      |		PEA.L	0x1
00021c74 48 54                    |HT      |		PEA.L	(A4)
00021c76 22 6f 00 0c              |"o      |		MOVEA.L	(A7+0xc),A1
00021c7a 48 51                    |HQ      |		PEA.L	(A1)
00021c7c 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00021c82 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00021c86 22 4f                    |"O      |		MOVEA.L	A7,A1
00021c88 45 fa e6 84              |E       |		LEA.L	0x2030e,A2
00021c8c 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00021c8e 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021c90 51 c8 ff fc              |Q       |		DBF	D0,0x21c8e
00021c94 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c96 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021c9a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c9c 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
00021ca0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021ca6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ca8 4e ba f4 ea              |N       |		JSR	0x21194
00021cac de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00021cb0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021cb2 4e ba fd 3e              |N  >    |		JSR	0x219f2
00021cb6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021cb8 10 28 00 05              | (      |		MOVE.B	(A0+0x5),D0
00021cbc 0c 00 00 31              |   1    |		CMPI.B	#0x31,D0
00021cc0 67 06                    |g       |		BEQ	0x21cc8
00021cc2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021cc4 60 00 ff 36              |`  6    |		BRA	0x21bfc
00021cc8 10 28 00 06              | (      |		MOVE.B	(A0+0x6),D0
00021ccc 0c 00 00 46              |   F    |		CMPI.B	#0x46,D0
00021cd0 67 06                    |g       |		BEQ	0x21cd8
00021cd2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021cd4 60 00 ff 26              |`  &    |		BRA	0x21bfc
00021cd8 10 28 00 07              | (      |		MOVE.B	(A0+0x7),D0
00021cdc 0c 00 00 45              |   E    |		CMPI.B	#0x45,D0
00021ce0 67 06                    |g       |		BEQ	0x21ce8
00021ce2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ce4 60 00 ff 16              |`       |		BRA	0x21bfc
00021ce8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021cea 10 28 00 08              | (      |		MOVE.B	(A0+0x8),D0
00021cee b0 02                    |        |		CMP.B	D2,D0
00021cf0 66 00 ff 0a              |f       |		BNE	0x21bfc
00021cf4 48 53                    |HS      |		PEA.L	(A3)
00021cf6 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021cfc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021cfe 4c df 1f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3+A4
00021d02 4e 5e                    |N^      |		UNLK	A6
00021d04 4e 75                    |Nu      |		RTS
00021d06 ; --------------------------------------------------------------------------------------
00021d06 ; OMSI PASCAL Function
00021d06 ;    <LVAR  0x00c 4(r)>
00021d06 ;    <LVAR  0x00a 1(r)>
00021d06 ;    <LVAR  0x008 1(r)>
00021d06 ;    <LVAR -0x004 @ 4(r)>
00021d06 ;    <LVAR -0x008 @ 4(r)>
00021d06 ; --------------------------------------------------------------------------------------
00021d06 4e 56 ff 70              |NV p    |		LINK.W	A6,#0xff70
00021d0a bf d5                    |        |		CMPA.L	(A5),A7
00021d0c 62 06                    |b       |		BHI	0x21d14
00021d0e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021d12 4e 76                    |Nv      |		TRAPV
00021d14 de fc 00 80              |        |		ADDA.W	#0x80,A7
00021d18 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021d1c 45 f9 00 02 50 b0        |E   P   |		LEA.L	0x250b0,A2
00021d22 47 f9 00 02 50 ac        |G   P   |		LEA.L	0x250ac,A3
00021d28 49 f9 00 02 50 88        |I   P   |		LEA.L	0x25088,A4
00021d2e 74 01                    |t       |		MOVEQ.L	#0x01,D2
00021d30 2a 3c 00 00 1f ff        |*<      |		MOVE.L	#0x1fff,D5
00021d36 20 39 00 02 50 9c        | 9  P   |		MOVE.L	0x2509c,D0
00021d3c 0c 80 80 00 60 00        |    `   |		CMPI.L	#0x80006000,D0
00021d42 67 16                    |g       |		BEQ	0x21d5a
00021d44 4a 2e 00 0a              |J.      |		TST.B	(A6+0xa)
00021d48 67 18                    |g       |		BEQ	0x21d62
00021d4a 4a 79 00 02 90 ae        |Jy      |		TST.W	0x290ae
00021d50 66 10                    |f       |		BNE	0x21d62
00021d52 4a 79 00 02 90 a8        |Jy      |		TST.W	0x290a8
00021d58 66 08                    |f       |		BNE	0x21d62
00021d5a 26 bc 00 00 1d ff        |&       |		MOVE.L	#0x1dff,(A3)
00021d60 60 02                    |`       |		BRA	0x21d64
00021d62 26 85                    |&       |		MOVE.L	D5,(A3)
00021d64 20 13                    |        |		MOVE.L	(A3),D0
00021d66 53 80                    |S       |		SUBQ.L	#0x1,D0
00021d68 b0 85                    |        |		CMP.L	D5,D0
00021d6a 63 02                    |c       |		BLS	0x21d6e
00021d6c 4e 4f                    |NO      |		TRAP	#15
00021d6e e3 80                    |        |		ASL.L	#0x1,D0
00021d70 20 4c                    | L      |		MOVEA.L	A4,A0
00021d72 30 30 08 2a              |00 *    |		MOVE.W	(A0+D0.L+#0x2a),D0
00021d76 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00021d7a 34 80                    |4       |		MOVE.W	D0,(A2)
00021d7c 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021d7e 48 79 00 02 50 a8        |Hy  P   |		PEA.L	0x250a8
00021d84 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021d88 4e ba f5 fe              |N       |		JSR	0x21388
00021d8c de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021d90 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00021d94 67 00 01 6c              |g  l    |		BEQ	0x21f02
00021d98 3f 3a e5 96              |?:      |		MOVE.W	0x20330,-(A7)
00021d9c 3f 3a e5 90              |?:      |		MOVE.W	0x2032e,-(A7)
00021da0 3f 3a e5 8a              |?:      |		MOVE.W	0x2032c,-(A7)
00021da4 41 fa e5 b0              |A       |		LEA.L	0x20356,A0
00021da8 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021daa 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021dac 51 c8 ff fc              |Q       |		DBF	D0,0x21daa
00021db0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021db2 48 6f 00 2c              |Ho ,    |		PEA.L	(A7+0x2c)
00021db6 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021db8 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00021dbc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021dc2 2e b9 00 02 50 a4        |.   P   |		MOVE.L	0x250a4,(A7)
00021dc8 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021dce 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00021dd2 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021dd4 3f 3c 00 24              |?< $    |		MOVE.W	#0x24,-(A7)
00021dd8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021dde 2e b9 00 02 50 9c        |.   P   |		MOVE.L	0x2509c,(A7)
00021de4 48 78 00 08              |Hx      |		PEA.L	0x8
00021de8 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00021dee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021df0 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00021df6 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021dfa 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021e00 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021e04 20 4f                    | O      |		MOVEA.L	A7,A0
00021e06 43 fa e5 4e              |C  N    |		LEA.L	0x20356,A1
00021e0a 70 18                    |p       |		MOVEQ.L	#0x18,D0
00021e0c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021e0e 51 c8 ff fc              |Q       |		DBF	D0,0x21e0c
00021e12 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021e14 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021e18 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021e1a 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
00021e1e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021e24 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e26 20 13                    |        |		MOVE.L	(A3),D0
00021e28 59 80                    |Y       |		SUBQ.L	#0x4,D0
00021e2a b0 85                    |        |		CMP.L	D5,D0
00021e2c 63 02                    |c       |		BLS	0x21e30
00021e2e 4e 4f                    |NO      |		TRAP	#15
00021e30 e3 80                    |        |		ASL.L	#0x1,D0
00021e32 20 4c                    | L      |		MOVEA.L	A4,A0
00021e34 32 30 08 2a              |20 *    |		MOVE.W	(A0+D0.L+#0x2a),D1
00021e38 48 c1                    |H       |		EXTW.L	D1
00021e3a 2f 01                    |/       |		MOVE.L	D1,-(A7)
00021e3c 48 78 00 02              |Hx      |		PEA.L	0x2
00021e40 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00021e46 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e48 20 13                    |        |		MOVE.L	(A3),D0
00021e4a 57 80                    |W       |		SUBQ.L	#0x3,D0
00021e4c b0 85                    |        |		CMP.L	D5,D0
00021e4e 63 02                    |c       |		BLS	0x21e52
00021e50 4e 4f                    |NO      |		TRAP	#15
00021e52 e3 80                    |        |		ASL.L	#0x1,D0
00021e54 20 4c                    | L      |		MOVEA.L	A4,A0
00021e56 32 30 08 2a              |20 *    |		MOVE.W	(A0+D0.L+#0x2a),D1
00021e5a 48 c1                    |H       |		EXTW.L	D1
00021e5c 2f 01                    |/       |		MOVE.L	D1,-(A7)
00021e5e 48 78 00 02              |Hx      |		PEA.L	0x2
00021e62 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00021e68 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e6a 20 13                    |        |		MOVE.L	(A3),D0
00021e6c 55 80                    |U       |		SUBQ.L	#0x2,D0
00021e6e b0 85                    |        |		CMP.L	D5,D0
00021e70 63 02                    |c       |		BLS	0x21e74
00021e72 4e 4f                    |NO      |		TRAP	#15
00021e74 e3 80                    |        |		ASL.L	#0x1,D0
00021e76 20 4c                    | L      |		MOVEA.L	A4,A0
00021e78 32 30 08 2a              |20 *    |		MOVE.W	(A0+D0.L+#0x2a),D1
00021e7c 48 c1                    |H       |		EXTW.L	D1
00021e7e 2f 01                    |/       |		MOVE.L	D1,-(A7)
00021e80 48 78 00 02              |Hx      |		PEA.L	0x2
00021e84 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00021e8a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e8c 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00021e92 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021e96 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00021e9c de fc 00 0e              |        |		ADDA.W	#0xe,A7
00021ea0 20 4f                    | O      |		MOVEA.L	A7,A0
00021ea2 43 fa e4 cc              |C       |		LEA.L	0x20370,A1
00021ea6 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021ea8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021eaa 51 c8 ff fc              |Q       |		DBF	D0,0x21ea8
00021eae 3f 3a e4 d0              |?:      |		MOVE.W	0x20380,-(A7)
00021eb2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021eb4 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00021eb8 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021eba 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00021ebe 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021ec4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ec6 30 12                    |0       |		MOVE.W	(A2),D0
00021ec8 48 c0                    |H       |		EXTW.L	D0
00021eca 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021ecc 48 78 00 02              |Hx      |		PEA.L	0x2
00021ed0 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00021ed6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ed8 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00021edc 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021ede 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00021ee2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021ee8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021eea 2e ae ff fc              |.       |		MOVE.L	(A6-0x4),(A7)
00021eee 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00021ef4 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021ef8 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00021efe de fc 00 16              |        |		ADDA.W	#0x16,A7
00021f02 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021f04 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00021f06 bc 85                    |        |		CMP.L	D5,D6
00021f08 63 02                    |c       |		BLS	0x21f0c
00021f0a 4e 4f                    |NO      |		TRAP	#15
00021f0c 20 06                    |        |		MOVE.L	D6,D0
00021f0e e3 80                    |        |		ASL.L	#0x1,D0
00021f10 20 4c                    | L      |		MOVEA.L	A4,A0
00021f12 32 30 08 2a              |20 *    |		MOVE.W	(A0+D0.L+#0x2a),D1
00021f16 48 c1                    |H       |		EXTW.L	D1
00021f18 de 81                    |        |		ADD.L	D1,D7
00021f1a 28 07                    |(       |		MOVE.L	D7,D4
00021f1c 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
00021f22 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00021f28 2e 03                    |.       |		MOVE.L	D3,D7
00021f2a 52 86                    |R       |		ADDQ.L	#0x1,D6
00021f2c bc 85                    |        |		CMP.L	D5,D6
00021f2e 6f d6                    |o       |		BLE	0x21f06
00021f30 0c 87 00 00 00 aa        |        |		CMPI.L	#0x000000aa,D7
00021f36 66 3a                    |f:      |		BNE	0x21f72
00021f38 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00021f3c 67 30                    |g0      |		BEQ	0x21f6e
00021f3e 9e fc 00 12              |        |		SUBA.W	#0x12,A7
00021f42 20 4f                    | O      |		MOVEA.L	A7,A0
00021f44 43 fa e4 3c              |C  <    |		LEA.L	0x20382,A1
00021f48 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021f4a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f4c 51 c8 ff fc              |Q       |		DBF	D0,0x21f4a
00021f50 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f52 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f56 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021f58 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
00021f5c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021f62 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f64 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021f6a de fc 00 16              |        |		ADDA.W	#0x16,A7
00021f6e 60 00 00 ec              |`       |		BRA	0x2205c
00021f72 3f 3a e4 20              |?:      |		MOVE.W	0x20394,-(A7)
00021f76 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f78 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f7c 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021f7e 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00021f82 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021f88 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f8a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021f90 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021f92 41 fa e4 36              |A  6    |		LEA.L	0x203ca,A0
00021f96 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021f98 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021f9a 51 c8 ff fc              |Q       |		DBF	D0,0x21f98
00021f9e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021fa0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021fa4 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021fa6 3f 3c 00 34              |?< 4    |		MOVE.W	#0x34,-(A7)
00021faa 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021fb0 2e 87                    |.       |		MOVE.L	D7,(A7)
00021fb2 48 78 00 02              |Hx      |		PEA.L	0x2
00021fb6 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00021fbc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fbe 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021fc4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fc6 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021fcc de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00021fd0 41 fa e4 10              |A       |		LEA.L	0x203e2,A0
00021fd4 70 05                    |p       |		MOVEQ.L	#0x05,D0
00021fd6 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021fd8 51 c8 ff fc              |Q       |		DBF	D0,0x21fd6
00021fdc 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021fde 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021fe2 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021fe4 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
00021fe8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021fee 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021ff0 42 17                    |B       |		CLR.B	(A7)
00021ff2 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00021ff8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021ffa 4a 1f                    |J       |		TST.B	(A7)+
00021ffc 66 2e                    |f.      |		BNE	0x2202c
00021ffe 9e fc 00 12              |        |		SUBA.W	#0x12,A7
00022002 20 4f                    | O      |		MOVEA.L	A7,A0
00022004 43 fa e3 dc              |C       |		LEA.L	0x203e2,A1
00022008 70 10                    |p       |		MOVEQ.L	#0x10,D0
0002200a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002200c 51 c8 ff fc              |Q       |		DBF	D0,0x2200a
00022010 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022012 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022016 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022018 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
0002201c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022022 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022024 4e ba f1 6e              |N  n    |		JSR	0x21194
00022028 de fc 00 16              |        |		ADDA.W	#0x16,A7
0002202c 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00022030 20 4f                    | O      |		MOVEA.L	A7,A0
00022032 43 fa e3 c0              |C       |		LEA.L	0x203f4,A1
00022036 70 26                    |p&      |		MOVEQ.L	#0x26,D0
00022038 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002203a 51 c8 ff fc              |Q       |		DBF	D0,0x22038
0002203e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022040 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022044 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022046 3f 3c 00 27              |?< '    |		MOVE.W	#0x27,-(A7)
0002204a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022050 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022052 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022058 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
0002205c 4a 2e 00 0a              |J.      |		TST.B	(A6+0xa)
00022060 67 3c                    |g<      |		BEQ	0x2209e
00022062 4a ae 00 0c              |J       |		TST.L	(A6+0xc)
00022066 67 32                    |g2      |		BEQ	0x2209a
00022068 30 12                    |0       |		MOVE.W	(A2),D0
0002206a 48 c0                    |H       |		EXTW.L	D0
0002206c b0 ae 00 0c              |        |		CMP.L	(A6+0xc),D0
00022070 67 28                    |g(      |		BEQ	0x2209a
00022072 41 fa e3 c4              |A       |		LEA.L	0x20438,A0
00022076 70 06                    |p       |		MOVEQ.L	#0x06,D0
00022078 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002207a 51 c8 ff fc              |Q       |		DBF	D0,0x22078
0002207e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022080 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022084 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022086 3f 3c 00 1c              |?<      |		MOVE.W	#0x1c,-(A7)
0002208a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022090 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022092 4e ba f1 00              |N       |		JSR	0x21194
00022096 de fc 00 20              |        |		ADDA.W	#0x20,A7
0002209a 60 00 01 7c              |`  |    |		BRA	0x22218
0002209e 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
000220a2 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
000220a8 63 02                    |c       |		BLS	0x220ac
000220aa 4e 4f                    |NO      |		TRAP	#15
000220ac 3f 00                    |?       |		MOVE.W	D0,-(A7)
000220ae 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000220b2 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000220b6 4e ba f2 d0              |N       |		JSR	0x21388
000220ba de fc 00 0a              |        |		ADDA.W	#0xa,A7
000220be 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000220c2 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000220c8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000220ca 4a ae 00 0c              |J       |		TST.L	(A6+0xc)
000220ce 67 34                    |g4      |		BEQ	0x22104
000220d0 20 2e ff f8              | .      |		MOVE.L	(A6-0x8),D0
000220d4 b0 b9 00 02 50 9c        |    P   |		CMP.L	0x2509c,D0
000220da 67 28                    |g(      |		BEQ	0x22104
000220dc 41 fa e3 78              |A  x    |		LEA.L	0x20456,A0
000220e0 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000220e2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000220e4 51 c8 ff fc              |Q       |		DBF	D0,0x220e2
000220e8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000220ea 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000220ee 3f 02                    |?       |		MOVE.W	D2,-(A7)
000220f0 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
000220f4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000220fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000220fc 4e ba f0 96              |N       |		JSR	0x21194
00022100 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00022104 20 39 00 02 50 a8        | 9  P   |		MOVE.L	0x250a8,D0
0002210a b0 b9 00 02 50 9c        |    P   |		CMP.L	0x2509c,D0
00022110 67 00 01 06              |g       |		BEQ	0x22218
00022114 20 39 00 02 50 9c        | 9  P   |		MOVE.L	0x2509c,D0
0002211a 0c 80 80 00 00 00        |        |		CMPI.L	#0x80000000,D0
00022120 66 08                    |f       |		BNE	0x2212a
00022122 34 bc 00 21              |4  !    |		MOVE.W	#0x21,(A2)
00022126 60 00 00 94              |`       |		BRA	0x221bc
0002212a 0c 80 80 00 20 00        |        |		CMPI.L	#0x80002000,D0
00022130 66 08                    |f       |		BNE	0x2213a
00022132 34 bc 00 19              |4       |		MOVE.W	#0x19,(A2)
00022136 60 00 00 84              |`       |		BRA	0x221bc
0002213a 0c 80 80 00 40 00        |    @   |		CMPI.L	#0x80004000,D0
00022140 66 06                    |f       |		BNE	0x22148
00022142 34 bc 00 17              |4       |		MOVE.W	#0x17,(A2)
00022146 60 74                    |`t      |		BRA	0x221bc
00022148 0c 80 80 00 60 00        |    `   |		CMPI.L	#0x80006000,D0
0002214e 66 06                    |f       |		BNE	0x22156
00022150 34 bc 00 15              |4       |		MOVE.W	#0x15,(A2)
00022154 60 66                    |`f      |		BRA	0x221bc
00022156 0c 80 00 07 00 00        |        |		CMPI.L	#0x00070000,D0
0002215c 66 06                    |f       |		BNE	0x22164
0002215e 34 bc 00 50              |4  P    |		MOVE.W	#0x50,(A2)
00022162 60 58                    |`X      |		BRA	0x221bc
00022164 0c 80 00 07 20 00        |        |		CMPI.L	#0x00072000,D0
0002216a 66 06                    |f       |		BNE	0x22172
0002216c 34 bc 00 51              |4  Q    |		MOVE.W	#0x51,(A2)
00022170 60 4a                    |`J      |		BRA	0x221bc
00022172 0c 80 00 07 40 00        |    @   |		CMPI.L	#0x00074000,D0
00022178 66 06                    |f       |		BNE	0x22180
0002217a 34 bc 00 52              |4  R    |		MOVE.W	#0x52,(A2)
0002217e 60 3c                    |`<      |		BRA	0x221bc
00022180 0c 80 00 07 60 00        |    `   |		CMPI.L	#0x00076000,D0
00022186 66 06                    |f       |		BNE	0x2218e
00022188 34 bc 00 53              |4  S    |		MOVE.W	#0x53,(A2)
0002218c 60 2e                    |`.      |		BRA	0x221bc
0002218e 9e fc 00 1e              |        |		SUBA.W	#0x1e,A7
00022192 20 4f                    | O      |		MOVEA.L	A7,A0
00022194 43 fa e2 c0              |C       |		LEA.L	0x20456,A1
00022198 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
0002219a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002219c 51 c8 ff fc              |Q       |		DBF	D0,0x2219a
000221a0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000221a2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000221a6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000221a8 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
000221ac 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000221b2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221b4 4e ba ef de              |N       |		JSR	0x21194
000221b8 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
000221bc 20 13                    |        |		MOVE.L	(A3),D0
000221be 53 80                    |S       |		SUBQ.L	#0x1,D0
000221c0 b0 85                    |        |		CMP.L	D5,D0
000221c2 63 02                    |c       |		BLS	0x221c6
000221c4 4e 4f                    |NO      |		TRAP	#15
000221c6 e3 80                    |        |		ASL.L	#0x1,D0
000221c8 20 4c                    | L      |		MOVEA.L	A4,A0
000221ca 31 92 08 2a              |1  *    |		MOVE.W	(A2),(A0+D0.L+#0x2a)
000221ce 3f 12                    |?       |		MOVE.W	(A2),-(A7)
000221d0 48 79 00 02 50 a8        |Hy  P   |		PEA.L	0x250a8
000221d6 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000221da 4e ba f1 ac              |N       |		JSR	0x21388
000221de de fc 00 0a              |        |		ADDA.W	#0xa,A7
000221e2 41 fa e2 c2              |A       |		LEA.L	0x204a6,A0
000221e6 70 18                    |p       |		MOVEQ.L	#0x18,D0
000221e8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000221ea 51 c8 ff fc              |Q       |		DBF	D0,0x221e8
000221ee 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000221f0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000221f4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000221f6 3f 3c 00 32              |?< 2    |		MOVE.W	#0x32,-(A7)
000221fa 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022200 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022202 2e ae ff fc              |.       |		MOVE.L	(A6-0x4),(A7)
00022206 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002220c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002220e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022214 de fc 00 36              |   6    |		ADDA.W	#0x36,A7
00022218 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002221a 7c 00                    ||       |		MOVEQ.L	#0x00,D6
0002221c bc 85                    |        |		CMP.L	D5,D6
0002221e 63 02                    |c       |		BLS	0x22222
00022220 4e 4f                    |NO      |		TRAP	#15
00022222 20 06                    |        |		MOVE.L	D6,D0
00022224 e3 80                    |        |		ASL.L	#0x1,D0
00022226 20 4c                    | L      |		MOVEA.L	A4,A0
00022228 32 30 08 2a              |20 *    |		MOVE.W	(A0+D0.L+#0x2a),D1
0002222c 48 c1                    |H       |		EXTW.L	D1
0002222e de 81                    |        |		ADD.L	D1,D7
00022230 28 07                    |(       |		MOVE.L	D7,D4
00022232 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
00022238 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
0002223e 2e 03                    |.       |		MOVE.L	D3,D7
00022240 52 86                    |R       |		ADDQ.L	#0x1,D6
00022242 bc 85                    |        |		CMP.L	D5,D6
00022244 6f d6                    |o       |		BLE	0x2221c
00022246 20 13                    |        |		MOVE.L	(A3),D0
00022248 b0 85                    |        |		CMP.L	D5,D0
0002224a 63 02                    |c       |		BLS	0x2224e
0002224c 4e 4f                    |NO      |		TRAP	#15
0002224e e3 80                    |        |		ASL.L	#0x1,D0
00022250 20 4c                    | L      |		MOVEA.L	A4,A0
00022252 06 70 01 aa 08 2a        | p   *  |		ADDI.W	#0x01aa,(A0+D0.L+#0x2a)
00022258 32 30 08 2a              |20 *    |		MOVE.W	(A0+D0.L+#0x2a),D1
0002225c 48 c1                    |H       |		EXTW.L	D1
0002225e 92 87                    |        |		SUB.L	D7,D1
00022260 28 01                    |(       |		MOVE.L	D1,D4
00022262 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
00022268 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
0002226e 31 83 08 2a              |1  *    |		MOVE.W	D3,(A0+D0.L+#0x2a)
00022272 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022276 4e 5e                    |N^      |		UNLK	A6
00022278 4e 75                    |Nu      |		RTS
0002227a ; --------------------------------------------------------------------------------------
0002227a ; OMSI PASCAL Function
0002227a ;    <LVAR  0x00e 4(r)>
0002227a ;    <LVAR  0x00a 4(r)>
0002227a ;    <LVAR  0x008 1(r)>
0002227a ;    <LVAR -0x00a @ 1(r)>
0002227a ;    <LVAR -0x00e @ 4(r)>
0002227a ;    <LVAR -0x012 @ 4(r)>
0002227a ; --------------------------------------------------------------------------------------
0002227a 4e 56 ff 78              |NV x    |		LINK.W	A6,#0xff78
0002227e bf d5                    |        |		CMPA.L	(A5),A7
00022280 62 06                    |b       |		BHI	0x22288
00022282 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022286 4e 76                    |Nv      |		TRAPV
00022288 de fc 00 76              |   v    |		ADDA.W	#0x76,A7
0002228c 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022290 45 f9 00 02 50 90        |E   P   |		LEA.L	0x25090,A2
00022296 47 ee ff ee              |G       |		LEA.L	(A6-0x12),A3
0002229a 49 f9 00 02 50 98        |I   P   |		LEA.L	0x25098,A4
000222a0 74 01                    |t       |		MOVEQ.L	#0x01,D2
000222a2 76 2a                    |v*      |		MOVEQ.L	#0x2a,D3
000222a4 78 18                    |x       |		MOVEQ.L	#0x18,D4
000222a6 7a 0c                    |z       |		MOVEQ.L	#0x0c,D5
000222a8 20 6e 00 0e              | n      |		MOVEA.L	(A6+0xe),A0
000222ac b0 c2                    |        |		CMPA.W	D2,A0
000222ae 66 32                    |f2      |		BNE	0x222e2
000222b0 9e c3                    |        |		SUBA.W	D3,A7
000222b2 20 4f                    | O      |		MOVEA.L	A7,A0
000222b4 43 fa e1 f0              |C       |		LEA.L	0x204a6,A1
000222b8 70 28                    |p(      |		MOVEQ.L	#0x28,D0
000222ba 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000222bc 51 c8 ff fc              |Q       |		DBF	D0,0x222ba
000222c0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000222c2 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000222c6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000222c8 3f 3c 00 29              |?< )    |		MOVE.W	#0x29,-(A7)
000222cc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000222d2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000222d4 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
000222da 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000222dc 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
000222de de c3                    |        |		ADDA.W	D3,A7
000222e0 60 02                    |`       |		BRA	0x222e4
000222e2 28 88                    |(       |		MOVE.L	A0,(A4)
000222e4 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000222e6 42 27                    |B'      |		CLR.B	-(A7)
000222e8 1f 02                    |        |		MOVE.B	D2,-(A7)
000222ea 48 78 00 00              |Hx      |		PEA.L	0x0
000222ee 48 52                    |HR      |		PEA.L	(A2)
000222f0 48 53                    |HS      |		PEA.L	(A3)
000222f2 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000222f8 de fc 00 14              |        |		ADDA.W	#0x14,A7
000222fc 4a 12                    |J       |		TST.B	(A2)
000222fe 67 26                    |g&      |		BEQ	0x22326
00022300 41 fa e1 e6              |A       |		LEA.L	0x204e8,A0
00022304 70 05                    |p       |		MOVEQ.L	#0x05,D0
00022306 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022308 51 c8 ff fc              |Q       |		DBF	D0,0x22306
0002230c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002230e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022312 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022314 3f 04                    |?       |		MOVE.W	D4,-(A7)
00022316 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002231c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002231e 4e ba ee 74              |N  t    |		JSR	0x21194
00022322 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00022326 20 2e 00 0a              | .      |		MOVE.L	(A6+0xa),D0
0002232a 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00022330 63 02                    |c       |		BLS	0x22334
00022332 4e 4f                    |NO      |		TRAP	#15
00022334 3f 00                    |?       |		MOVE.W	D0,-(A7)
00022336 48 79 00 02 50 9c        |Hy  P   |		PEA.L	0x2509c
0002233c 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00022340 4e ba f0 46              |N  F    |		JSR	0x21388
00022344 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022346 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022348 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
0002234c 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00022350 4e b9 00 01 04 3c        |N    <  |		JSR	FileReadLine(file : File; VAR a : String; VAR b : Byte)
00022356 de c5                    |        |		ADDA.W	D5,A7
00022358 4a 2e ff f6              |J.      |		TST.B	(A6-0xa)
0002235c 67 3e                    |g>      |		BEQ	0x2239c
0002235e 42 27                    |B'      |		CLR.B	-(A7)
00022360 1f 02                    |        |		MOVE.B	D2,-(A7)
00022362 48 78 00 01              |Hx      |		PEA.L	0x1
00022366 48 52                    |HR      |		PEA.L	(A2)
00022368 48 53                    |HS      |		PEA.L	(A3)
0002236a 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00022370 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022372 20 4f                    | O      |		MOVEA.L	A7,A0
00022374 43 fa e1 72              |C  r    |		LEA.L	0x204e8,A1
00022378 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002237a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002237c 51 c8 ff fc              |Q       |		DBF	D0,0x2237a
00022380 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022382 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022386 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022388 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
0002238c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022392 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022394 4e ba ed fe              |N       |		JSR	0x21194
00022398 de fc 00 12              |        |		ADDA.W	#0x12,A7
0002239c 20 6e ff f2              | n      |		MOVEA.L	(A6-0xe),A0
000223a0 10 28 00 02              | (      |		MOVE.B	(A0+0x2),D0
000223a4 0c 00 00 3a              |   :    |		CMPI.B	#0x3a,D0
000223a8 66 18                    |f       |		BNE	0x223c2
000223aa 12 28 00 09              | (      |		MOVE.B	(A0+0x9),D1
000223ae 0c 01 00 30              |   0    |		CMPI.B	#0x30,D1
000223b2 66 0e                    |f       |		BNE	0x223c2
000223b4 7c 01                    ||       |		MOVEQ.L	#0x01,D6
000223b6 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000223b8 4e b9 00 01 04 44        |N    D  |		JSR	FSCALL_10444
000223be 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000223c0 60 64                    |`d      |		BRA	0x22426
000223c2 0c 00 00 53              |   S    |		CMPI.B	#0x53,D0
000223c6 66 0e                    |f       |		BNE	0x223d6
000223c8 12 28 00 03              | (      |		MOVE.B	(A0+0x3),D1
000223cc 0c 01 00 33              |   3    |		CMPI.B	#0x33,D1
000223d0 66 04                    |f       |		BNE	0x223d6
000223d2 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000223d4 60 e0                    |`       |		BRA	0x223b6
000223d6 0c 00 00 53              |   S    |		CMPI.B	#0x53,D0
000223da 66 0e                    |f       |		BNE	0x223ea
000223dc 10 28 00 03              | (      |		MOVE.B	(A0+0x3),D0
000223e0 0c 00 00 30              |   0    |		CMPI.B	#0x30,D0
000223e4 66 04                    |f       |		BNE	0x223ea
000223e6 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000223e8 60 3c                    |`<      |		BRA	0x22426
000223ea 42 27                    |B'      |		CLR.B	-(A7)
000223ec 1f 02                    |        |		MOVE.B	D2,-(A7)
000223ee 48 78 00 01              |Hx      |		PEA.L	0x1
000223f2 48 52                    |HR      |		PEA.L	(A2)
000223f4 48 53                    |HS      |		PEA.L	(A3)
000223f6 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000223fc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000223fe 20 4f                    | O      |		MOVEA.L	A7,A0
00022400 43 fa e0 f4              |C       |		LEA.L	0x204f6,A1
00022404 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022406 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022408 51 c8 ff fc              |Q       |		DBF	D0,0x22406
0002240c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002240e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022412 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022414 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00022418 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002241e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022420 4e ba ed 72              |N  r    |		JSR	0x21194
00022424 de c4                    |        |		ADDA.W	D4,A7
00022426 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
0002242a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022430 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022432 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022434 0c 87 00 00 1f ff        |        |		CMPI.L	#0x00001fff,D7
0002243a 63 02                    |c       |		BLS	0x2243e
0002243c 4e 4f                    |NO      |		TRAP	#15
0002243e 20 07                    |        |		MOVE.L	D7,D0
00022440 e3 80                    |        |		ASL.L	#0x1,D0
00022442 41 f9 00 02 50 88        |A   P   |		LEA.L	0x25088,A0
00022448 42 70 08 2a              |Bp *    |		CLR.W	(A0+D0.L+#0x2a)
0002244c 52 87                    |R       |		ADDQ.L	#0x1,D7
0002244e 0c 87 00 00 1f ff        |        |		CMPI.L	#0x00001fff,D7
00022454 6f de                    |o       |		BLE	0x22434
00022456 42 b9 00 02 50 a0        |B   P   |		CLR.L	0x250a0
0002245c 42 b9 00 02 50 a4        |B   P   |		CLR.L	0x250a4
00022462 4a 06                    |J       |		TST.B	D6
00022464 67 08                    |g       |		BEQ	0x2246e
00022466 48 53                    |HS      |		PEA.L	(A3)
00022468 4e ba f7 64              |N  d    |		JSR	0x21bce
0002246c 60 06                    |`       |		BRA	0x22474
0002246e 48 53                    |HS      |		PEA.L	(A3)
00022470 4e ba f3 00              |N       |		JSR	0x21772
00022474 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022476 42 27                    |B'      |		CLR.B	-(A7)
00022478 1f 02                    |        |		MOVE.B	D2,-(A7)
0002247a 48 78 00 01              |Hx      |		PEA.L	0x1
0002247e 48 52                    |HR      |		PEA.L	(A2)
00022480 48 53                    |HS      |		PEA.L	(A3)
00022482 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00022488 de c5                    |        |		ADDA.W	D5,A7
0002248a 2e ae 00 0a              |.       |		MOVE.L	(A6+0xa),(A7)
0002248e 10 06                    |        |		MOVE.B	D6,D0
00022490 48 80                    |H       |		EXTB.W	D0
00022492 41 82                    |A       |		CHK.W	D2,D0
00022494 1f 00                    |        |		MOVE.B	D0,-(A7)
00022496 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002249a 4e ba f8 6a              |N  j    |		JSR	0x21d06
0002249e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224a0 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000224a4 4e 5e                    |N^      |		UNLK	A6
000224a6 4e 75                    |Nu      |		RTS
000224a8 ; --------------------------------------------------------------------------------------
000224a8 ; OMSI PASCAL Function
000224a8 ;    <LVAR  0x00c 2(w)>
000224a8 ;    <LVAR  0x008 4(r)>
000224a8 ;    <LVAR -0x004 @ 2(r)>
000224a8 ; --------------------------------------------------------------------------------------
000224a8 4e 56 ff e6              |NV      |		LINK.W	A6,#0xffe6
000224ac bf d5                    |        |		CMPA.L	(A5),A7
000224ae 62 06                    |b       |		BHI	0x224b6
000224b0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000224b4 4e 76                    |Nv      |		TRAPV
000224b6 de fc 00 16              |        |		ADDA.W	#0x16,A7
000224ba 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
000224be 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
000224c2 42 51                    |BQ      |		CLR.W	(A1)
000224c4 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000224c8 20 49                    | I      |		MOVEA.L	A1,A0
000224ca 2f 08                    |/       |		MOVE.L	A0,-(A7)
000224cc 52 97                    |R       |		ADDQ.L	#0x1,(A7)
000224ce 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000224d2 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
000224d8 de fc 00 0a              |        |		ADDA.W	#0xa,A7
000224dc 3d 51 00 0c              |=Q      |		MOVE.W	(A1),(A6+0xc)
000224e0 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
000224e4 4e 5e                    |N^      |		UNLK	A6
000224e6 4e 75                    |Nu      |		RTS
000224e8 ; --------------------------------------------------------------------------------------
000224e8 ; OMSI PASCAL Function
000224e8 ;    <LVAR  0x00a 4(r)>
000224e8 ;    <LVAR  0x008 @ 2(r)>
000224e8 ; --------------------------------------------------------------------------------------
000224e8 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
000224ec bf d5                    |        |		CMPA.L	(A5),A7
000224ee 62 06                    |b       |		BHI	0x224f6
000224f0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000224f4 4e 76                    |Nv      |		TRAPV
000224f6 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000224fa 48 e7 c1 80              |H       |		MOVEM.L	A0+D7+D1+D0,-(A7)
000224fe 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022500 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022502 2f 2e 00 0a              |/.      |		MOVE.L	(A6+0xa),-(A7)
00022506 4e ba ff a0              |N       |		JSR	0x224a8
0002250a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002250c 30 1f                    |0       |		MOVE.W	(A7)+,D0
0002250e 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00022512 3e 00                    |>       |		MOVE.W	D0,D7
00022514 be 6e 00 08              | n      |		CMP.W	(A6+0x8),D7
00022518 67 2a                    |g*      |		BEQ	0x22544
0002251a 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
0002251e 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022520 52 97                    |R       |		ADDQ.L	#0x1,(A7)
00022522 2f 2e 00 0a              |/.      |		MOVE.L	(A6+0xa),-(A7)
00022526 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022528 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0002252e de fc 00 0a              |        |		ADDA.W	#0xa,A7
00022532 48 78 01 d4              |Hx      |		PEA.L	0x1d4
00022536 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
0002253c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002253e 13 c1 00 02 50 96        |    P   |		MOVE.B	D1,0x25096
00022544 4c df 01 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0
00022548 4e 5e                    |N^      |		UNLK	A6
0002254a 4e 75                    |Nu      |		RTS
0002254c ; --------------------------------------------------------------------------------------
0002254c ; OMSI PASCAL Function
0002254c ;    <LVAR  0x00a 4(r)>
0002254c ; --------------------------------------------------------------------------------------
0002254c 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00022550 bf d5                    |        |		CMPA.L	(A5),A7
00022552 62 06                    |b       |		BHI	0x2255a
00022554 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022558 4e 76                    |Nv      |		TRAPV
0002255a de fc 00 12              |        |		ADDA.W	#0x12,A7
0002255e 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00022562 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
00022566 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022568 52 97                    |R       |		ADDQ.L	#0x1,(A7)
0002256a 2f 2e 00 0a              |/.      |		MOVE.L	(A6+0xa),-(A7)
0002256e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022572 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00022578 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002257c 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00022580 4e 5e                    |N^      |		UNLK	A6
00022582 4e 75                    |Nu      |		RTS
00022584 ; --------------------------------------------------------------------------------------
00022584 ; OMSI PASCAL Function
00022584 ;    <LVAR  0x008 4(r)>
00022584 ; --------------------------------------------------------------------------------------
00022584 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
00022588 bf d5                    |        |		CMPA.L	(A5),A7
0002258a 62 06                    |b       |		BHI	0x22592
0002258c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022590 4e 76                    |Nv      |		TRAPV
00022592 de fc 00 50              |   P    |		ADDA.W	#0x50,A7
00022596 48 e7 e3 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D2+D1+D0,-(A7)
0002259a 32 3c 00 ff              |2<      |		MOVE.W	#0xff,D1
0002259e 74 01                    |t       |		MOVEQ.L	#0x01,D2
000225a0 2c 2e 00 08              |,.      |		MOVE.L	(A6+0x8),D6
000225a4 5b 86                    |[       |		SUBQ.L	#0x5,D6
000225a6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000225a8 2f 06                    |/       |		MOVE.L	D6,-(A7)
000225aa 4e ba fe fc              |N       |		JSR	0x224a8
000225ae 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000225b0 30 1f                    |0       |		MOVE.W	(A7)+,D0
000225b2 b0 41                    | A      |		CMP.W	D1,D0
000225b4 62 00 02 58              |b  X    |		BHI	switch@0x225ba[0x2]
000225b8 d0 40                    | @      |		ADD.W	D0,D0
000225ba 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000225c2 02 00                    |        |		.CONST	0x200			; [0x0] -> 0x227c2
000225c4 02 04                    |        |		.CONST	0x204			; [0x1] -> 0x227c6
000225c6 02 4c                    | L      |		.CONST	0x24c			; [0x2] -> 0x2280e
000225c8 02 08                    |        |		.CONST	0x208			; [0x3] -> 0x227ca
000225ca 02 4c                    | L      |		.CONST	0x24c			; [0x4] -> 0x2280e
000225cc 02 4c                    | L      |		.CONST	0x24c			; [0x5] -> 0x2280e
000225ce 02 4c                    | L      |		.CONST	0x24c			; [0x6] -> 0x2280e
000225d0 02 0c                    |        |		.CONST	0x20c			; [0x7] -> 0x227ce
000225d2 02 4c                    | L      |		.CONST	0x24c			; [0x8] -> 0x2280e
000225d4 02 4c                    | L      |		.CONST	0x24c			; [0x9] -> 0x2280e
000225d6 02 4c                    | L      |		.CONST	0x24c			; [0xa] -> 0x2280e
000225d8 02 4c                    | L      |		.CONST	0x24c			; [0xb] -> 0x2280e
000225da 02 4c                    | L      |		.CONST	0x24c			; [0xc] -> 0x2280e
000225dc 02 4c                    | L      |		.CONST	0x24c			; [0xd] -> 0x2280e
000225de 02 4c                    | L      |		.CONST	0x24c			; [0xe] -> 0x2280e
000225e0 02 0e                    |        |		.CONST	0x20e			; [0xf] -> 0x227d0
000225e2 02 4c                    | L      |		.CONST	0x24c			; [0x10] -> 0x2280e
000225e4 02 4c                    | L      |		.CONST	0x24c			; [0x11] -> 0x2280e
000225e6 02 4c                    | L      |		.CONST	0x24c			; [0x12] -> 0x2280e
000225e8 02 4c                    | L      |		.CONST	0x24c			; [0x13] -> 0x2280e
000225ea 02 4c                    | L      |		.CONST	0x24c			; [0x14] -> 0x2280e
000225ec 02 4c                    | L      |		.CONST	0x24c			; [0x15] -> 0x2280e
000225ee 02 4c                    | L      |		.CONST	0x24c			; [0x16] -> 0x2280e
000225f0 02 4c                    | L      |		.CONST	0x24c			; [0x17] -> 0x2280e
000225f2 02 4c                    | L      |		.CONST	0x24c			; [0x18] -> 0x2280e
000225f4 02 4c                    | L      |		.CONST	0x24c			; [0x19] -> 0x2280e
000225f6 02 4c                    | L      |		.CONST	0x24c			; [0x1a] -> 0x2280e
000225f8 02 4c                    | L      |		.CONST	0x24c			; [0x1b] -> 0x2280e
000225fa 02 4c                    | L      |		.CONST	0x24c			; [0x1c] -> 0x2280e
000225fc 02 4c                    | L      |		.CONST	0x24c			; [0x1d] -> 0x2280e
000225fe 02 4c                    | L      |		.CONST	0x24c			; [0x1e] -> 0x2280e
00022600 02 12                    |        |		.CONST	0x212			; [0x1f] -> 0x227d4
00022602 02 4c                    | L      |		.CONST	0x24c			; [0x20] -> 0x2280e
00022604 02 4c                    | L      |		.CONST	0x24c			; [0x21] -> 0x2280e
00022606 02 4c                    | L      |		.CONST	0x24c			; [0x22] -> 0x2280e
00022608 02 4c                    | L      |		.CONST	0x24c			; [0x23] -> 0x2280e
0002260a 02 4c                    | L      |		.CONST	0x24c			; [0x24] -> 0x2280e
0002260c 02 4c                    | L      |		.CONST	0x24c			; [0x25] -> 0x2280e
0002260e 02 4c                    | L      |		.CONST	0x24c			; [0x26] -> 0x2280e
00022610 02 4c                    | L      |		.CONST	0x24c			; [0x27] -> 0x2280e
00022612 02 4c                    | L      |		.CONST	0x24c			; [0x28] -> 0x2280e
00022614 02 4c                    | L      |		.CONST	0x24c			; [0x29] -> 0x2280e
00022616 02 4c                    | L      |		.CONST	0x24c			; [0x2a] -> 0x2280e
00022618 02 4c                    | L      |		.CONST	0x24c			; [0x2b] -> 0x2280e
0002261a 02 4c                    | L      |		.CONST	0x24c			; [0x2c] -> 0x2280e
0002261c 02 4c                    | L      |		.CONST	0x24c			; [0x2d] -> 0x2280e
0002261e 02 4c                    | L      |		.CONST	0x24c			; [0x2e] -> 0x2280e
00022620 02 4c                    | L      |		.CONST	0x24c			; [0x2f] -> 0x2280e
00022622 02 4c                    | L      |		.CONST	0x24c			; [0x30] -> 0x2280e
00022624 02 4c                    | L      |		.CONST	0x24c			; [0x31] -> 0x2280e
00022626 02 4c                    | L      |		.CONST	0x24c			; [0x32] -> 0x2280e
00022628 02 4c                    | L      |		.CONST	0x24c			; [0x33] -> 0x2280e
0002262a 02 4c                    | L      |		.CONST	0x24c			; [0x34] -> 0x2280e
0002262c 02 4c                    | L      |		.CONST	0x24c			; [0x35] -> 0x2280e
0002262e 02 4c                    | L      |		.CONST	0x24c			; [0x36] -> 0x2280e
00022630 02 4c                    | L      |		.CONST	0x24c			; [0x37] -> 0x2280e
00022632 02 4c                    | L      |		.CONST	0x24c			; [0x38] -> 0x2280e
00022634 02 4c                    | L      |		.CONST	0x24c			; [0x39] -> 0x2280e
00022636 02 4c                    | L      |		.CONST	0x24c			; [0x3a] -> 0x2280e
00022638 02 4c                    | L      |		.CONST	0x24c			; [0x3b] -> 0x2280e
0002263a 02 4c                    | L      |		.CONST	0x24c			; [0x3c] -> 0x2280e
0002263c 02 4c                    | L      |		.CONST	0x24c			; [0x3d] -> 0x2280e
0002263e 02 4c                    | L      |		.CONST	0x24c			; [0x3e] -> 0x2280e
00022640 02 16                    |        |		.CONST	0x216			; [0x3f] -> 0x227d8
00022642 02 4c                    | L      |		.CONST	0x24c			; [0x40] -> 0x2280e
00022644 02 4c                    | L      |		.CONST	0x24c			; [0x41] -> 0x2280e
00022646 02 4c                    | L      |		.CONST	0x24c			; [0x42] -> 0x2280e
00022648 02 4c                    | L      |		.CONST	0x24c			; [0x43] -> 0x2280e
0002264a 02 4c                    | L      |		.CONST	0x24c			; [0x44] -> 0x2280e
0002264c 02 4c                    | L      |		.CONST	0x24c			; [0x45] -> 0x2280e
0002264e 02 4c                    | L      |		.CONST	0x24c			; [0x46] -> 0x2280e
00022650 02 4c                    | L      |		.CONST	0x24c			; [0x47] -> 0x2280e
00022652 02 4c                    | L      |		.CONST	0x24c			; [0x48] -> 0x2280e
00022654 02 4c                    | L      |		.CONST	0x24c			; [0x49] -> 0x2280e
00022656 02 4c                    | L      |		.CONST	0x24c			; [0x4a] -> 0x2280e
00022658 02 4c                    | L      |		.CONST	0x24c			; [0x4b] -> 0x2280e
0002265a 02 4c                    | L      |		.CONST	0x24c			; [0x4c] -> 0x2280e
0002265c 02 4c                    | L      |		.CONST	0x24c			; [0x4d] -> 0x2280e
0002265e 02 4c                    | L      |		.CONST	0x24c			; [0x4e] -> 0x2280e
00022660 02 4c                    | L      |		.CONST	0x24c			; [0x4f] -> 0x2280e
00022662 02 4c                    | L      |		.CONST	0x24c			; [0x50] -> 0x2280e
00022664 02 4c                    | L      |		.CONST	0x24c			; [0x51] -> 0x2280e
00022666 02 4c                    | L      |		.CONST	0x24c			; [0x52] -> 0x2280e
00022668 02 4c                    | L      |		.CONST	0x24c			; [0x53] -> 0x2280e
0002266a 02 4c                    | L      |		.CONST	0x24c			; [0x54] -> 0x2280e
0002266c 02 4c                    | L      |		.CONST	0x24c			; [0x55] -> 0x2280e
0002266e 02 4c                    | L      |		.CONST	0x24c			; [0x56] -> 0x2280e
00022670 02 4c                    | L      |		.CONST	0x24c			; [0x57] -> 0x2280e
00022672 02 4c                    | L      |		.CONST	0x24c			; [0x58] -> 0x2280e
00022674 02 4c                    | L      |		.CONST	0x24c			; [0x59] -> 0x2280e
00022676 02 4c                    | L      |		.CONST	0x24c			; [0x5a] -> 0x2280e
00022678 02 4c                    | L      |		.CONST	0x24c			; [0x5b] -> 0x2280e
0002267a 02 4c                    | L      |		.CONST	0x24c			; [0x5c] -> 0x2280e
0002267c 02 4c                    | L      |		.CONST	0x24c			; [0x5d] -> 0x2280e
0002267e 02 4c                    | L      |		.CONST	0x24c			; [0x5e] -> 0x2280e
00022680 02 4c                    | L      |		.CONST	0x24c			; [0x5f] -> 0x2280e
00022682 02 4c                    | L      |		.CONST	0x24c			; [0x60] -> 0x2280e
00022684 02 4c                    | L      |		.CONST	0x24c			; [0x61] -> 0x2280e
00022686 02 4c                    | L      |		.CONST	0x24c			; [0x62] -> 0x2280e
00022688 02 4c                    | L      |		.CONST	0x24c			; [0x63] -> 0x2280e
0002268a 02 4c                    | L      |		.CONST	0x24c			; [0x64] -> 0x2280e
0002268c 02 4c                    | L      |		.CONST	0x24c			; [0x65] -> 0x2280e
0002268e 02 4c                    | L      |		.CONST	0x24c			; [0x66] -> 0x2280e
00022690 02 4c                    | L      |		.CONST	0x24c			; [0x67] -> 0x2280e
00022692 02 4c                    | L      |		.CONST	0x24c			; [0x68] -> 0x2280e
00022694 02 4c                    | L      |		.CONST	0x24c			; [0x69] -> 0x2280e
00022696 02 4c                    | L      |		.CONST	0x24c			; [0x6a] -> 0x2280e
00022698 02 4c                    | L      |		.CONST	0x24c			; [0x6b] -> 0x2280e
0002269a 02 4c                    | L      |		.CONST	0x24c			; [0x6c] -> 0x2280e
0002269c 02 4c                    | L      |		.CONST	0x24c			; [0x6d] -> 0x2280e
0002269e 02 4c                    | L      |		.CONST	0x24c			; [0x6e] -> 0x2280e
000226a0 02 4c                    | L      |		.CONST	0x24c			; [0x6f] -> 0x2280e
000226a2 02 4c                    | L      |		.CONST	0x24c			; [0x70] -> 0x2280e
000226a4 02 4c                    | L      |		.CONST	0x24c			; [0x71] -> 0x2280e
000226a6 02 4c                    | L      |		.CONST	0x24c			; [0x72] -> 0x2280e
000226a8 02 4c                    | L      |		.CONST	0x24c			; [0x73] -> 0x2280e
000226aa 02 4c                    | L      |		.CONST	0x24c			; [0x74] -> 0x2280e
000226ac 02 4c                    | L      |		.CONST	0x24c			; [0x75] -> 0x2280e
000226ae 02 4c                    | L      |		.CONST	0x24c			; [0x76] -> 0x2280e
000226b0 02 4c                    | L      |		.CONST	0x24c			; [0x77] -> 0x2280e
000226b2 02 4c                    | L      |		.CONST	0x24c			; [0x78] -> 0x2280e
000226b4 02 4c                    | L      |		.CONST	0x24c			; [0x79] -> 0x2280e
000226b6 02 4c                    | L      |		.CONST	0x24c			; [0x7a] -> 0x2280e
000226b8 02 4c                    | L      |		.CONST	0x24c			; [0x7b] -> 0x2280e
000226ba 02 4c                    | L      |		.CONST	0x24c			; [0x7c] -> 0x2280e
000226bc 02 4c                    | L      |		.CONST	0x24c			; [0x7d] -> 0x2280e
000226be 02 4c                    | L      |		.CONST	0x24c			; [0x7e] -> 0x2280e
000226c0 02 1a                    |        |		.CONST	0x21a			; [0x7f] -> 0x227dc
000226c2 02 48                    | H      |		.CONST	0x248			; [0x80] -> 0x2280a
000226c4 02 4c                    | L      |		.CONST	0x24c			; [0x81] -> 0x2280e
000226c6 02 4c                    | L      |		.CONST	0x24c			; [0x82] -> 0x2280e
000226c8 02 4c                    | L      |		.CONST	0x24c			; [0x83] -> 0x2280e
000226ca 02 4c                    | L      |		.CONST	0x24c			; [0x84] -> 0x2280e
000226cc 02 4c                    | L      |		.CONST	0x24c			; [0x85] -> 0x2280e
000226ce 02 4c                    | L      |		.CONST	0x24c			; [0x86] -> 0x2280e
000226d0 02 4c                    | L      |		.CONST	0x24c			; [0x87] -> 0x2280e
000226d2 02 4c                    | L      |		.CONST	0x24c			; [0x88] -> 0x2280e
000226d4 02 4c                    | L      |		.CONST	0x24c			; [0x89] -> 0x2280e
000226d6 02 4c                    | L      |		.CONST	0x24c			; [0x8a] -> 0x2280e
000226d8 02 4c                    | L      |		.CONST	0x24c			; [0x8b] -> 0x2280e
000226da 02 4c                    | L      |		.CONST	0x24c			; [0x8c] -> 0x2280e
000226dc 02 4c                    | L      |		.CONST	0x24c			; [0x8d] -> 0x2280e
000226de 02 4c                    | L      |		.CONST	0x24c			; [0x8e] -> 0x2280e
000226e0 02 4c                    | L      |		.CONST	0x24c			; [0x8f] -> 0x2280e
000226e2 02 4c                    | L      |		.CONST	0x24c			; [0x90] -> 0x2280e
000226e4 02 4c                    | L      |		.CONST	0x24c			; [0x91] -> 0x2280e
000226e6 02 4c                    | L      |		.CONST	0x24c			; [0x92] -> 0x2280e
000226e8 02 4c                    | L      |		.CONST	0x24c			; [0x93] -> 0x2280e
000226ea 02 4c                    | L      |		.CONST	0x24c			; [0x94] -> 0x2280e
000226ec 02 4c                    | L      |		.CONST	0x24c			; [0x95] -> 0x2280e
000226ee 02 4c                    | L      |		.CONST	0x24c			; [0x96] -> 0x2280e
000226f0 02 4c                    | L      |		.CONST	0x24c			; [0x97] -> 0x2280e
000226f2 02 4c                    | L      |		.CONST	0x24c			; [0x98] -> 0x2280e
000226f4 02 4c                    | L      |		.CONST	0x24c			; [0x99] -> 0x2280e
000226f6 02 4c                    | L      |		.CONST	0x24c			; [0x9a] -> 0x2280e
000226f8 02 4c                    | L      |		.CONST	0x24c			; [0x9b] -> 0x2280e
000226fa 02 4c                    | L      |		.CONST	0x24c			; [0x9c] -> 0x2280e
000226fc 02 4c                    | L      |		.CONST	0x24c			; [0x9d] -> 0x2280e
000226fe 02 4c                    | L      |		.CONST	0x24c			; [0x9e] -> 0x2280e
00022700 02 4c                    | L      |		.CONST	0x24c			; [0x9f] -> 0x2280e
00022702 02 4c                    | L      |		.CONST	0x24c			; [0xa0] -> 0x2280e
00022704 02 4c                    | L      |		.CONST	0x24c			; [0xa1] -> 0x2280e
00022706 02 4c                    | L      |		.CONST	0x24c			; [0xa2] -> 0x2280e
00022708 02 4c                    | L      |		.CONST	0x24c			; [0xa3] -> 0x2280e
0002270a 02 4c                    | L      |		.CONST	0x24c			; [0xa4] -> 0x2280e
0002270c 02 4c                    | L      |		.CONST	0x24c			; [0xa5] -> 0x2280e
0002270e 02 4c                    | L      |		.CONST	0x24c			; [0xa6] -> 0x2280e
00022710 02 4c                    | L      |		.CONST	0x24c			; [0xa7] -> 0x2280e
00022712 02 4c                    | L      |		.CONST	0x24c			; [0xa8] -> 0x2280e
00022714 02 4c                    | L      |		.CONST	0x24c			; [0xa9] -> 0x2280e
00022716 02 4c                    | L      |		.CONST	0x24c			; [0xaa] -> 0x2280e
00022718 02 4c                    | L      |		.CONST	0x24c			; [0xab] -> 0x2280e
0002271a 02 4c                    | L      |		.CONST	0x24c			; [0xac] -> 0x2280e
0002271c 02 4c                    | L      |		.CONST	0x24c			; [0xad] -> 0x2280e
0002271e 02 4c                    | L      |		.CONST	0x24c			; [0xae] -> 0x2280e
00022720 02 4c                    | L      |		.CONST	0x24c			; [0xaf] -> 0x2280e
00022722 02 4c                    | L      |		.CONST	0x24c			; [0xb0] -> 0x2280e
00022724 02 4c                    | L      |		.CONST	0x24c			; [0xb1] -> 0x2280e
00022726 02 4c                    | L      |		.CONST	0x24c			; [0xb2] -> 0x2280e
00022728 02 4c                    | L      |		.CONST	0x24c			; [0xb3] -> 0x2280e
0002272a 02 4c                    | L      |		.CONST	0x24c			; [0xb4] -> 0x2280e
0002272c 02 4c                    | L      |		.CONST	0x24c			; [0xb5] -> 0x2280e
0002272e 02 4c                    | L      |		.CONST	0x24c			; [0xb6] -> 0x2280e
00022730 02 4c                    | L      |		.CONST	0x24c			; [0xb7] -> 0x2280e
00022732 02 4c                    | L      |		.CONST	0x24c			; [0xb8] -> 0x2280e
00022734 02 4c                    | L      |		.CONST	0x24c			; [0xb9] -> 0x2280e
00022736 02 4c                    | L      |		.CONST	0x24c			; [0xba] -> 0x2280e
00022738 02 4c                    | L      |		.CONST	0x24c			; [0xbb] -> 0x2280e
0002273a 02 4c                    | L      |		.CONST	0x24c			; [0xbc] -> 0x2280e
0002273c 02 4c                    | L      |		.CONST	0x24c			; [0xbd] -> 0x2280e
0002273e 02 4c                    | L      |		.CONST	0x24c			; [0xbe] -> 0x2280e
00022740 02 4c                    | L      |		.CONST	0x24c			; [0xbf] -> 0x2280e
00022742 02 42                    | B      |		.CONST	0x242			; [0xc0] -> 0x22804
00022744 02 4c                    | L      |		.CONST	0x24c			; [0xc1] -> 0x2280e
00022746 02 4c                    | L      |		.CONST	0x24c			; [0xc2] -> 0x2280e
00022748 02 4c                    | L      |		.CONST	0x24c			; [0xc3] -> 0x2280e
0002274a 02 4c                    | L      |		.CONST	0x24c			; [0xc4] -> 0x2280e
0002274c 02 4c                    | L      |		.CONST	0x24c			; [0xc5] -> 0x2280e
0002274e 02 4c                    | L      |		.CONST	0x24c			; [0xc6] -> 0x2280e
00022750 02 4c                    | L      |		.CONST	0x24c			; [0xc7] -> 0x2280e
00022752 02 4c                    | L      |		.CONST	0x24c			; [0xc8] -> 0x2280e
00022754 02 4c                    | L      |		.CONST	0x24c			; [0xc9] -> 0x2280e
00022756 02 4c                    | L      |		.CONST	0x24c			; [0xca] -> 0x2280e
00022758 02 4c                    | L      |		.CONST	0x24c			; [0xcb] -> 0x2280e
0002275a 02 4c                    | L      |		.CONST	0x24c			; [0xcc] -> 0x2280e
0002275c 02 4c                    | L      |		.CONST	0x24c			; [0xcd] -> 0x2280e
0002275e 02 4c                    | L      |		.CONST	0x24c			; [0xce] -> 0x2280e
00022760 02 4c                    | L      |		.CONST	0x24c			; [0xcf] -> 0x2280e
00022762 02 4c                    | L      |		.CONST	0x24c			; [0xd0] -> 0x2280e
00022764 02 4c                    | L      |		.CONST	0x24c			; [0xd1] -> 0x2280e
00022766 02 4c                    | L      |		.CONST	0x24c			; [0xd2] -> 0x2280e
00022768 02 4c                    | L      |		.CONST	0x24c			; [0xd3] -> 0x2280e
0002276a 02 4c                    | L      |		.CONST	0x24c			; [0xd4] -> 0x2280e
0002276c 02 4c                    | L      |		.CONST	0x24c			; [0xd5] -> 0x2280e
0002276e 02 4c                    | L      |		.CONST	0x24c			; [0xd6] -> 0x2280e
00022770 02 4c                    | L      |		.CONST	0x24c			; [0xd7] -> 0x2280e
00022772 02 4c                    | L      |		.CONST	0x24c			; [0xd8] -> 0x2280e
00022774 02 4c                    | L      |		.CONST	0x24c			; [0xd9] -> 0x2280e
00022776 02 4c                    | L      |		.CONST	0x24c			; [0xda] -> 0x2280e
00022778 02 4c                    | L      |		.CONST	0x24c			; [0xdb] -> 0x2280e
0002277a 02 4c                    | L      |		.CONST	0x24c			; [0xdc] -> 0x2280e
0002277c 02 4c                    | L      |		.CONST	0x24c			; [0xdd] -> 0x2280e
0002277e 02 4c                    | L      |		.CONST	0x24c			; [0xde] -> 0x2280e
00022780 02 4c                    | L      |		.CONST	0x24c			; [0xdf] -> 0x2280e
00022782 02 3c                    | <      |		.CONST	0x23c			; [0xe0] -> 0x227fe
00022784 02 4c                    | L      |		.CONST	0x24c			; [0xe1] -> 0x2280e
00022786 02 4c                    | L      |		.CONST	0x24c			; [0xe2] -> 0x2280e
00022788 02 4c                    | L      |		.CONST	0x24c			; [0xe3] -> 0x2280e
0002278a 02 4c                    | L      |		.CONST	0x24c			; [0xe4] -> 0x2280e
0002278c 02 4c                    | L      |		.CONST	0x24c			; [0xe5] -> 0x2280e
0002278e 02 4c                    | L      |		.CONST	0x24c			; [0xe6] -> 0x2280e
00022790 02 4c                    | L      |		.CONST	0x24c			; [0xe7] -> 0x2280e
00022792 02 4c                    | L      |		.CONST	0x24c			; [0xe8] -> 0x2280e
00022794 02 4c                    | L      |		.CONST	0x24c			; [0xe9] -> 0x2280e
00022796 02 4c                    | L      |		.CONST	0x24c			; [0xea] -> 0x2280e
00022798 02 4c                    | L      |		.CONST	0x24c			; [0xeb] -> 0x2280e
0002279a 02 4c                    | L      |		.CONST	0x24c			; [0xec] -> 0x2280e
0002279c 02 4c                    | L      |		.CONST	0x24c			; [0xed] -> 0x2280e
0002279e 02 4c                    | L      |		.CONST	0x24c			; [0xee] -> 0x2280e
000227a0 02 4c                    | L      |		.CONST	0x24c			; [0xef] -> 0x2280e
000227a2 02 36                    | 6      |		.CONST	0x236			; [0xf0] -> 0x227f8
000227a4 02 4c                    | L      |		.CONST	0x24c			; [0xf1] -> 0x2280e
000227a6 02 4c                    | L      |		.CONST	0x24c			; [0xf2] -> 0x2280e
000227a8 02 4c                    | L      |		.CONST	0x24c			; [0xf3] -> 0x2280e
000227aa 02 4c                    | L      |		.CONST	0x24c			; [0xf4] -> 0x2280e
000227ac 02 4c                    | L      |		.CONST	0x24c			; [0xf5] -> 0x2280e
000227ae 02 4c                    | L      |		.CONST	0x24c			; [0xf6] -> 0x2280e
000227b0 02 4c                    | L      |		.CONST	0x24c			; [0xf7] -> 0x2280e
000227b2 02 30                    | 0      |		.CONST	0x230			; [0xf8] -> 0x227f2
000227b4 02 4c                    | L      |		.CONST	0x24c			; [0xf9] -> 0x2280e
000227b6 02 4c                    | L      |		.CONST	0x24c			; [0xfa] -> 0x2280e
000227b8 02 4c                    | L      |		.CONST	0x24c			; [0xfb] -> 0x2280e
000227ba 02 2a                    | *      |		.CONST	0x22a			; [0xfc] -> 0x227ec
000227bc 02 4c                    | L      |		.CONST	0x24c			; [0xfd] -> 0x2280e
000227be 02 24                    | $      |		.CONST	0x224			; [0xfe] -> 0x227e6
000227c0 02 1e                    |        |		.CONST	0x21e			; [0xff] -> 0x227e0
000227c2					switch@0x225ba[0x0]:
000227c2 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000227c4 60 4a                    |`J      |		BRA	0x22810
000227c6					switch@0x225ba[0x1]:
000227c6 7e 03                    |~       |		MOVEQ.L	#0x03,D7
000227c8 60 46                    |`F      |		BRA	0x22810
000227ca					switch@0x225ba[0x3]:
000227ca 7e 07                    |~       |		MOVEQ.L	#0x07,D7
000227cc 60 42                    |`B      |		BRA	0x22810
000227ce					switch@0x225ba[0x7]:
000227ce 60 3e                    |`>      |		BRA	switch@0x225ba[0x2]
000227d0					switch@0x225ba[0xf]:
000227d0 7e 1f                    |~       |		MOVEQ.L	#0x1f,D7
000227d2 60 3c                    |`<      |		BRA	0x22810
000227d4					switch@0x225ba[0x1f]:
000227d4 7e 3f                    |~?      |		MOVEQ.L	#0x3f,D7
000227d6 60 38                    |`8      |		BRA	0x22810
000227d8					switch@0x225ba[0x3f]:
000227d8 7e 7f                    |~       |		MOVEQ.L	#0x7f,D7
000227da 60 34                    |`4      |		BRA	0x22810
000227dc					switch@0x225ba[0x7f]:
000227dc 3e 01                    |>       |		MOVE.W	D1,D7
000227de 60 30                    |`0      |		BRA	0x22810
000227e0					switch@0x225ba[0xff]:
000227e0 3e 3c 00 fe              |><      |		MOVE.W	#0xfe,D7
000227e4 60 2a                    |`*      |		BRA	0x22810
000227e6					switch@0x225ba[0xfe]:
000227e6 3e 3c 00 fc              |><      |		MOVE.W	#0xfc,D7
000227ea 60 24                    |`$      |		BRA	0x22810
000227ec					switch@0x225ba[0xfc]:
000227ec 3e 3c 00 f8              |><      |		MOVE.W	#0xf8,D7
000227f0 60 1e                    |`       |		BRA	0x22810
000227f2					switch@0x225ba[0xf8]:
000227f2 3e 3c 00 f0              |><      |		MOVE.W	#0xf0,D7
000227f6 60 18                    |`       |		BRA	0x22810
000227f8					switch@0x225ba[0xf0]:
000227f8 3e 3c 00 e0              |><      |		MOVE.W	#0xe0,D7
000227fc 60 12                    |`       |		BRA	0x22810
000227fe					switch@0x225ba[0xe0]:
000227fe 3e 3c 00 c0              |><      |		MOVE.W	#0xc0,D7
00022802 60 0c                    |`       |		BRA	0x22810
00022804					switch@0x225ba[0xc0]:
00022804 3e 3c 00 80              |><      |		MOVE.W	#0x80,D7
00022808 60 06                    |`       |		BRA	0x22810
0002280a					switch@0x225ba[0x80]:
0002280a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002280c 60 02                    |`       |		BRA	0x22810
0002280e					switch@0x225ba[0x10]:
0002280e					switch@0x225ba[0x11]:
0002280e					switch@0x225ba[0x12]:
0002280e					switch@0x225ba[0x13]:
0002280e					switch@0x225ba[0x14]:
0002280e					switch@0x225ba[0x15]:
0002280e					switch@0x225ba[0x16]:
0002280e					switch@0x225ba[0x17]:
0002280e					switch@0x225ba[0x18]:
0002280e					switch@0x225ba[0x19]:
0002280e					switch@0x225ba[0x1a]:
0002280e					switch@0x225ba[0x1b]:
0002280e					switch@0x225ba[0x1c]:
0002280e					switch@0x225ba[0x1d]:
0002280e					switch@0x225ba[0x1e]:
0002280e					switch@0x225ba[0x20]:
0002280e					switch@0x225ba[0x21]:
0002280e					switch@0x225ba[0x22]:
0002280e					switch@0x225ba[0x23]:
0002280e					switch@0x225ba[0x24]:
0002280e					switch@0x225ba[0x25]:
0002280e					switch@0x225ba[0x26]:
0002280e					switch@0x225ba[0x27]:
0002280e					switch@0x225ba[0x28]:
0002280e					switch@0x225ba[0x29]:
0002280e					switch@0x225ba[0x2]:
0002280e					switch@0x225ba[0x2a]:
0002280e					switch@0x225ba[0x2b]:
0002280e					switch@0x225ba[0x2c]:
0002280e					switch@0x225ba[0x2d]:
0002280e					switch@0x225ba[0x2e]:
0002280e					switch@0x225ba[0x2f]:
0002280e					switch@0x225ba[0x30]:
0002280e					switch@0x225ba[0x31]:
0002280e					switch@0x225ba[0x32]:
0002280e					switch@0x225ba[0x33]:
0002280e					switch@0x225ba[0x34]:
0002280e					switch@0x225ba[0x35]:
0002280e					switch@0x225ba[0x36]:
0002280e					switch@0x225ba[0x37]:
0002280e					switch@0x225ba[0x38]:
0002280e					switch@0x225ba[0x39]:
0002280e					switch@0x225ba[0x3a]:
0002280e					switch@0x225ba[0x3b]:
0002280e					switch@0x225ba[0x3c]:
0002280e					switch@0x225ba[0x3d]:
0002280e					switch@0x225ba[0x3e]:
0002280e					switch@0x225ba[0x40]:
0002280e					switch@0x225ba[0x41]:
0002280e					switch@0x225ba[0x42]:
0002280e					switch@0x225ba[0x43]:
0002280e					switch@0x225ba[0x44]:
0002280e					switch@0x225ba[0x45]:
0002280e					switch@0x225ba[0x46]:
0002280e					switch@0x225ba[0x47]:
0002280e					switch@0x225ba[0x48]:
0002280e					switch@0x225ba[0x49]:
0002280e					switch@0x225ba[0x4]:
0002280e					switch@0x225ba[0x4a]:
0002280e					switch@0x225ba[0x4b]:
0002280e					switch@0x225ba[0x4c]:
0002280e					switch@0x225ba[0x4d]:
0002280e					switch@0x225ba[0x4e]:
0002280e					switch@0x225ba[0x4f]:
0002280e					switch@0x225ba[0x50]:
0002280e					switch@0x225ba[0x51]:
0002280e					switch@0x225ba[0x52]:
0002280e					switch@0x225ba[0x53]:
0002280e					switch@0x225ba[0x54]:
0002280e					switch@0x225ba[0x55]:
0002280e					switch@0x225ba[0x56]:
0002280e					switch@0x225ba[0x57]:
0002280e					switch@0x225ba[0x58]:
0002280e					switch@0x225ba[0x59]:
0002280e					switch@0x225ba[0x5]:
0002280e					switch@0x225ba[0x5a]:
0002280e					switch@0x225ba[0x5b]:
0002280e					switch@0x225ba[0x5c]:
0002280e					switch@0x225ba[0x5d]:
0002280e					switch@0x225ba[0x5e]:
0002280e					switch@0x225ba[0x5f]:
0002280e					switch@0x225ba[0x60]:
0002280e					switch@0x225ba[0x61]:
0002280e					switch@0x225ba[0x62]:
0002280e					switch@0x225ba[0x63]:
0002280e					switch@0x225ba[0x64]:
0002280e					switch@0x225ba[0x65]:
0002280e					switch@0x225ba[0x66]:
0002280e					switch@0x225ba[0x67]:
0002280e					switch@0x225ba[0x68]:
0002280e					switch@0x225ba[0x69]:
0002280e					switch@0x225ba[0x6]:
0002280e					switch@0x225ba[0x6a]:
0002280e					switch@0x225ba[0x6b]:
0002280e					switch@0x225ba[0x6c]:
0002280e					switch@0x225ba[0x6d]:
0002280e					switch@0x225ba[0x6e]:
0002280e					switch@0x225ba[0x6f]:
0002280e					switch@0x225ba[0x70]:
0002280e					switch@0x225ba[0x71]:
0002280e					switch@0x225ba[0x72]:
0002280e					switch@0x225ba[0x73]:
0002280e					switch@0x225ba[0x74]:
0002280e					switch@0x225ba[0x75]:
0002280e					switch@0x225ba[0x76]:
0002280e					switch@0x225ba[0x77]:
0002280e					switch@0x225ba[0x78]:
0002280e					switch@0x225ba[0x79]:
0002280e					switch@0x225ba[0x7a]:
0002280e					switch@0x225ba[0x7b]:
0002280e					switch@0x225ba[0x7c]:
0002280e					switch@0x225ba[0x7d]:
0002280e					switch@0x225ba[0x7e]:
0002280e					switch@0x225ba[0x81]:
0002280e					switch@0x225ba[0x82]:
0002280e					switch@0x225ba[0x83]:
0002280e					switch@0x225ba[0x84]:
0002280e					switch@0x225ba[0x85]:
0002280e					switch@0x225ba[0x86]:
0002280e					switch@0x225ba[0x87]:
0002280e					switch@0x225ba[0x88]:
0002280e					switch@0x225ba[0x89]:
0002280e					switch@0x225ba[0x8]:
0002280e					switch@0x225ba[0x8a]:
0002280e					switch@0x225ba[0x8b]:
0002280e					switch@0x225ba[0x8c]:
0002280e					switch@0x225ba[0x8d]:
0002280e					switch@0x225ba[0x8e]:
0002280e					switch@0x225ba[0x8f]:
0002280e					switch@0x225ba[0x90]:
0002280e					switch@0x225ba[0x91]:
0002280e					switch@0x225ba[0x92]:
0002280e					switch@0x225ba[0x93]:
0002280e					switch@0x225ba[0x94]:
0002280e					switch@0x225ba[0x95]:
0002280e					switch@0x225ba[0x96]:
0002280e					switch@0x225ba[0x97]:
0002280e					switch@0x225ba[0x98]:
0002280e					switch@0x225ba[0x99]:
0002280e					switch@0x225ba[0x9]:
0002280e					switch@0x225ba[0x9a]:
0002280e					switch@0x225ba[0x9b]:
0002280e					switch@0x225ba[0x9c]:
0002280e					switch@0x225ba[0x9d]:
0002280e					switch@0x225ba[0x9e]:
0002280e					switch@0x225ba[0x9f]:
0002280e					switch@0x225ba[0xa0]:
0002280e					switch@0x225ba[0xa1]:
0002280e					switch@0x225ba[0xa2]:
0002280e					switch@0x225ba[0xa3]:
0002280e					switch@0x225ba[0xa4]:
0002280e					switch@0x225ba[0xa5]:
0002280e					switch@0x225ba[0xa6]:
0002280e					switch@0x225ba[0xa7]:
0002280e					switch@0x225ba[0xa8]:
0002280e					switch@0x225ba[0xa9]:
0002280e					switch@0x225ba[0xa]:
0002280e					switch@0x225ba[0xaa]:
0002280e					switch@0x225ba[0xab]:
0002280e					switch@0x225ba[0xac]:
0002280e					switch@0x225ba[0xad]:
0002280e					switch@0x225ba[0xae]:
0002280e					switch@0x225ba[0xaf]:
0002280e					switch@0x225ba[0xb0]:
0002280e					switch@0x225ba[0xb1]:
0002280e					switch@0x225ba[0xb2]:
0002280e					switch@0x225ba[0xb3]:
0002280e					switch@0x225ba[0xb4]:
0002280e					switch@0x225ba[0xb5]:
0002280e					switch@0x225ba[0xb6]:
0002280e					switch@0x225ba[0xb7]:
0002280e					switch@0x225ba[0xb8]:
0002280e					switch@0x225ba[0xb9]:
0002280e					switch@0x225ba[0xb]:
0002280e					switch@0x225ba[0xba]:
0002280e					switch@0x225ba[0xbb]:
0002280e					switch@0x225ba[0xbc]:
0002280e					switch@0x225ba[0xbd]:
0002280e					switch@0x225ba[0xbe]:
0002280e					switch@0x225ba[0xbf]:
0002280e					switch@0x225ba[0xc1]:
0002280e					switch@0x225ba[0xc2]:
0002280e					switch@0x225ba[0xc3]:
0002280e					switch@0x225ba[0xc4]:
0002280e					switch@0x225ba[0xc5]:
0002280e					switch@0x225ba[0xc6]:
0002280e					switch@0x225ba[0xc7]:
0002280e					switch@0x225ba[0xc8]:
0002280e					switch@0x225ba[0xc9]:
0002280e					switch@0x225ba[0xc]:
0002280e					switch@0x225ba[0xca]:
0002280e					switch@0x225ba[0xcb]:
0002280e					switch@0x225ba[0xcc]:
0002280e					switch@0x225ba[0xcd]:
0002280e					switch@0x225ba[0xce]:
0002280e					switch@0x225ba[0xcf]:
0002280e					switch@0x225ba[0xd0]:
0002280e					switch@0x225ba[0xd1]:
0002280e					switch@0x225ba[0xd2]:
0002280e					switch@0x225ba[0xd3]:
0002280e					switch@0x225ba[0xd4]:
0002280e					switch@0x225ba[0xd5]:
0002280e					switch@0x225ba[0xd6]:
0002280e					switch@0x225ba[0xd7]:
0002280e					switch@0x225ba[0xd8]:
0002280e					switch@0x225ba[0xd9]:
0002280e					switch@0x225ba[0xd]:
0002280e					switch@0x225ba[0xda]:
0002280e					switch@0x225ba[0xdb]:
0002280e					switch@0x225ba[0xdc]:
0002280e					switch@0x225ba[0xdd]:
0002280e					switch@0x225ba[0xde]:
0002280e					switch@0x225ba[0xdf]:
0002280e					switch@0x225ba[0xe1]:
0002280e					switch@0x225ba[0xe2]:
0002280e					switch@0x225ba[0xe3]:
0002280e					switch@0x225ba[0xe4]:
0002280e					switch@0x225ba[0xe5]:
0002280e					switch@0x225ba[0xe6]:
0002280e					switch@0x225ba[0xe7]:
0002280e					switch@0x225ba[0xe8]:
0002280e					switch@0x225ba[0xe9]:
0002280e					switch@0x225ba[0xe]:
0002280e					switch@0x225ba[0xea]:
0002280e					switch@0x225ba[0xeb]:
0002280e					switch@0x225ba[0xec]:
0002280e					switch@0x225ba[0xed]:
0002280e					switch@0x225ba[0xee]:
0002280e					switch@0x225ba[0xef]:
0002280e					switch@0x225ba[0xf1]:
0002280e					switch@0x225ba[0xf2]:
0002280e					switch@0x225ba[0xf3]:
0002280e					switch@0x225ba[0xf4]:
0002280e					switch@0x225ba[0xf5]:
0002280e					switch@0x225ba[0xf6]:
0002280e					switch@0x225ba[0xf7]:
0002280e					switch@0x225ba[0xf9]:
0002280e					switch@0x225ba[0xfa]:
0002280e					switch@0x225ba[0xfb]:
0002280e					switch@0x225ba[0xfd]:
0002280e 7e 0f                    |~       |		MOVEQ.L	#0x0f,D7
00022810 2f 06                    |/       |		MOVE.L	D6,-(A7)
00022812 4f 81                    |O       |		CHK.W	D1,D7
00022814 3f 07                    |?       |		MOVE.W	D7,-(A7)
00022816 4e ba fc d0              |N       |		JSR	0x224e8
0002281a 2e 86                    |.       |		MOVE.L	D6,(A7)
0002281c 4e ba fc 8a              |N       |		JSR	0x224a8
00022820 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022822 be 5f                    | _      |		CMP.W	(A7)+,D7
00022824 67 2c                    |g,      |		BEQ	0x22852
00022826 41 fa dd 06              |A       |		LEA.L	0x2052e,A0
0002282a 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002282c 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002282e 51 c8 ff fc              |Q       |		DBF	D0,0x2282c
00022832 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022834 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022838 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002283a 3f 3c 00 24              |?< $    |		MOVE.W	#0x24,-(A7)
0002283e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022844 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022846 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002284c de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00022850 60 30                    |`0      |		BRA	0x22882
00022852 9e fc 00 16              |        |		SUBA.W	#0x16,A7
00022856 20 4f                    | O      |		MOVEA.L	A7,A0
00022858 43 fa dc d4              |C       |		LEA.L	0x2052e,A1
0002285c 70 14                    |p       |		MOVEQ.L	#0x14,D0
0002285e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022860 51 c8 ff fc              |Q       |		DBF	D0,0x2285e
00022864 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022866 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002286a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002286c 3f 3c 00 15              |?<      |		MOVE.W	#0x15,-(A7)
00022870 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022876 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022878 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002287e de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00022882 4c df 03 c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0+A1
00022886 4e 5e                    |N^      |		UNLK	A6
00022888 4e 75                    |Nu      |		RTS
0002288a ; --------------------------------------------------------------------------------------
0002288a ; OMSI PASCAL Function
0002288a ; --------------------------------------------------------------------------------------
0002288a 4e 56 ff 90              |NV      |		LINK.W	A6,#0xff90
0002288e bf d5                    |        |		CMPA.L	(A5),A7
00022890 62 06                    |b       |		BHI	0x22898
00022892 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022896 4e 76                    |Nv      |		TRAPV
00022898 de fc 00 70              |   p    |		ADDA.W	#0x70,A7
0002289c 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
000228a0 45 f9 00 02 50 a8        |E   P   |		LEA.L	0x250a8,A2
000228a6 47 f9 00 02 50 ac        |G   P   |		LEA.L	0x250ac,A3
000228ac 49 fa fb fa              |I       |		LEA.L	0x224a8,A4
000228b0 72 01                    |r       |		MOVEQ.L	#0x01,D1
000228b2 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
000228b6 20 4f                    | O      |		MOVEA.L	A7,A0
000228b8 43 fa dc 8a              |C       |		LEA.L	0x20544,A1
000228bc 70 18                    |p       |		MOVEQ.L	#0x18,D0
000228be 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000228c0 51 c8 ff fc              |Q       |		DBF	D0,0x228be
000228c4 9e fc 00 10              |        |		SUBA.W	#0x10,A7
000228c8 20 4f                    | O      |		MOVEA.L	A7,A0
000228ca 43 fa dc 92              |C       |		LEA.L	0x2055e,A1
000228ce 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000228d0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000228d2 51 c8 ff fc              |Q       |		DBF	D0,0x228d0
000228d6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000228d8 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
000228dc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000228de 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
000228e2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000228e8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000228ea 20 12                    |        |		MOVE.L	(A2),D0
000228ec d0 93                    |        |		ADD.L	(A3),D0
000228ee 59 80                    |Y       |		SUBQ.L	#0x4,D0
000228f0 2f 00                    |/       |		MOVE.L	D0,-(A7)
000228f2 4e 94                    |N       |		JSR	(A4)
000228f4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000228f6 30 1f                    |0       |		MOVE.W	(A7)+,D0
000228f8 48 c0                    |H       |		EXTW.L	D0
000228fa 2e 80                    |.       |		MOVE.L	D0,(A7)
000228fc 48 78 00 02              |Hx      |		PEA.L	0x2
00022900 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00022906 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022908 20 12                    |        |		MOVE.L	(A2),D0
0002290a d0 93                    |        |		ADD.L	(A3),D0
0002290c 57 80                    |W       |		SUBQ.L	#0x3,D0
0002290e 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022910 4e 94                    |N       |		JSR	(A4)
00022912 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022914 30 1f                    |0       |		MOVE.W	(A7)+,D0
00022916 48 c0                    |H       |		EXTW.L	D0
00022918 2e 80                    |.       |		MOVE.L	D0,(A7)
0002291a 48 78 00 02              |Hx      |		PEA.L	0x2
0002291e 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00022924 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022926 20 12                    |        |		MOVE.L	(A2),D0
00022928 d0 93                    |        |		ADD.L	(A3),D0
0002292a 55 80                    |U       |		SUBQ.L	#0x2,D0
0002292c 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002292e 4e 94                    |N       |		JSR	(A4)
00022930 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022932 30 1f                    |0       |		MOVE.W	(A7)+,D0
00022934 48 c0                    |H       |		EXTW.L	D0
00022936 2e 80                    |.       |		MOVE.L	D0,(A7)
00022938 48 78 00 02              |Hx      |		PEA.L	0x2
0002293c 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00022942 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022944 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
00022948 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002294a 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
0002294e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022954 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022956 20 12                    |        |		MOVE.L	(A2),D0
00022958 d0 93                    |        |		ADD.L	(A3),D0
0002295a 53 80                    |S       |		SUBQ.L	#0x1,D0
0002295c 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002295e 4e 94                    |N       |		JSR	(A4)
00022960 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022962 30 1f                    |0       |		MOVE.W	(A7)+,D0
00022964 48 c0                    |H       |		EXTW.L	D0
00022966 2e 80                    |.       |		MOVE.L	D0,(A7)
00022968 48 78 00 02              |Hx      |		PEA.L	0x2
0002296c 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00022972 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022974 4e b9 00 01 02 e0        |N       |		JSR	StringCat6(a, b, c, d, e, f : String) : String
0002297a de fc 00 18              |        |		ADDA.W	#0x18,A7
0002297e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022984 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00022988 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
0002298c 4e 5e                    |N^      |		UNLK	A6
0002298e 4e 75                    |Nu      |		RTS
00022990 ; --------------------------------------------------------------------------------------
00022990 ; OMSI PASCAL Function
00022990 ;    <LVAR  0x008 4(r)>
00022990 ; --------------------------------------------------------------------------------------
00022990 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
00022994 bf d5                    |        |		CMPA.L	(A5),A7
00022996 62 06                    |b       |		BHI	0x2299e
00022998 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002299c 4e 76                    |Nv      |		TRAPV
0002299e de fc 00 5c              |   \    |		ADDA.W	#0x5c,A7
000229a2 48 e7 c1 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D1+D0,-(A7)
000229a6 45 f9 00 02 50 ac        |E   P   |		LEA.L	0x250ac,A2
000229ac 47 f9 00 02 50 a8        |G   P   |		LEA.L	0x250a8,A3
000229b2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000229b4 20 13                    |        |		MOVE.L	(A3),D0
000229b6 d0 92                    |        |		ADD.L	(A2),D0
000229b8 53 80                    |S       |		SUBQ.L	#0x1,D0
000229ba 2f 00                    |/       |		MOVE.L	D0,-(A7)
000229bc 4e ba fa ea              |N       |		JSR	0x224a8
000229c0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000229c2 30 39 00 02 50 b0        |09  P   |		MOVE.W	0x250b0,D0
000229c8 b0 5f                    | _      |		CMP.W	(A7)+,D0
000229ca 67 32                    |g2      |		BEQ	0x229fe
000229cc 9e fc 00 30              |   0    |		SUBA.W	#0x30,A7
000229d0 20 4f                    | O      |		MOVEA.L	A7,A0
000229d2 43 fa db 9a              |C       |		LEA.L	0x2056e,A1
000229d6 70 2e                    |p.      |		MOVEQ.L	#0x2e,D0
000229d8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000229da 51 c8 ff fc              |Q       |		DBF	D0,0x229d8
000229de 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000229e0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000229e4 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000229e8 3f 3c 00 2f              |?< /    |		MOVE.W	#0x2f,-(A7)
000229ec 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000229f2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000229f4 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000229fa de fc 00 34              |   4    |		ADDA.W	#0x34,A7
000229fe 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022a02 42 90                    |B       |		CLR.L	(A0)
00022a04 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022a06 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00022a08 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022a0a be 97                    |        |		CMP.L	(A7),D7
00022a0c 6e 3a                    |n:      |		BGT	0x22a48
00022a0e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022a10 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022a12 df 97                    |        |		ADD.L	D7,(A7)
00022a14 4e ba fa 92              |N       |		JSR	0x224a8
00022a18 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a1a 0c 87 00 00 1f ff        |        |		CMPI.L	#0x00001fff,D7
00022a20 63 02                    |c       |		BLS	0x22a24
00022a22 4e 4f                    |NO      |		TRAP	#15
00022a24 20 07                    |        |		MOVE.L	D7,D0
00022a26 e3 80                    |        |		ASL.L	#0x1,D0
00022a28 41 f9 00 02 50 88        |A   P   |		LEA.L	0x25088,A0
00022a2e 32 1f                    |2       |		MOVE.W	(A7)+,D1
00022a30 b2 70 08 2a              | p *    |		CMP.W	(A0+D0.L+#0x2a),D1
00022a34 67 0e                    |g       |		BEQ	0x22a44
00022a36 20 12                    |        |		MOVE.L	(A2),D0
00022a38 5b 80                    |[       |		SUBQ.L	#0x5,D0
00022a3a be 80                    |        |		CMP.L	D0,D7
00022a3c 67 06                    |g       |		BEQ	0x22a44
00022a3e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022a42 52 90                    |R       |		ADDQ.L	#0x1,(A0)
00022a44 52 87                    |R       |		ADDQ.L	#0x1,D7
00022a46 68 c2                    |h       |		BVC	0x22a0a
00022a48 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a4a 4c df 0f 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2+A3
00022a4e 4e 5e                    |N^      |		UNLK	A6
00022a50 4e 75                    |Nu      |		RTS
00022a52 ; --------------------------------------------------------------------------------------
00022a52 ; OMSI PASCAL Function
00022a52 ;    <LVAR  0x008 4(r)>
00022a52 ;    <LVAR -0x004 @ 4(r)>
00022a52 ; --------------------------------------------------------------------------------------
00022a52 4e 56 ff 94              |NV      |		LINK.W	A6,#0xff94
00022a56 bf d5                    |        |		CMPA.L	(A5),A7
00022a58 62 06                    |b       |		BHI	0x22a60
00022a5a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022a5e 4e 76                    |Nv      |		TRAPV
00022a60 de fc 00 60              |   `    |		ADDA.W	#0x60,A7
00022a64 48 e7 fb f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7)
00022a68 45 f9 00 02 50 a8        |E   P   |		LEA.L	0x250a8,A2
00022a6e 47 f9 00 02 50 ac        |G   P   |		LEA.L	0x250ac,A3
00022a74 49 f9 00 02 50 88        |I   P   |		LEA.L	0x25088,A4
00022a7a 24 3c 00 00 1f ff        |$<      |		MOVE.L	#0x1fff,D2
00022a80 36 3c 00 ff              |6<      |		MOVE.W	#0xff,D3
00022a84 78 07                    |x       |		MOVEQ.L	#0x07,D4
00022a86 30 39 00 02 50 b0        |09  P   |		MOVE.W	0x250b0,D0
00022a8c 04 40 00 50              | @ P    |		SUBI.W	#0x0050,D0
00022a90 48 c0                    |H       |		EXTW.L	D0
00022a92 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022a94 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00022a98 4e b9 00 02 4e 0a        |N   N   |		JSR	0x24e0a
00022a9e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022aa0 4a ae ff fc              |J       |		TST.L	(A6-0x4)
00022aa4 67 42                    |gB      |		BEQ	0x22ae8
00022aa6 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
00022aaa 20 4f                    | O      |		MOVEA.L	A7,A0
00022aac 43 fa da f0              |C       |		LEA.L	0x2059e,A1
00022ab0 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
00022ab2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022ab4 51 c8 ff fc              |Q       |		DBF	D0,0x22ab2
00022ab8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022aba 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00022abe 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022ac2 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
00022ac6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022acc 2e ae ff fc              |.       |		MOVE.L	(A6-0x4),(A7)
00022ad0 4e ba e5 48              |N  H    |		JSR	0x2101a
00022ad4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022ad6 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022adc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022ade 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022ae4 de fc 00 20              |        |		ADDA.W	#0x20,A7
00022ae8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022aea 4e b9 00 02 4d 8c        |N   M   |		JSR	0x24d8c
00022af0 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00022af2 bc 92                    |        |		CMP.L	(A2),D6
00022af4 65 38                    |e8      |		BCS	0x22b2e
00022af6 20 12                    |        |		MOVE.L	(A2),D0
00022af8 d0 93                    |        |		ADD.L	(A3),D0
00022afa bc 80                    |        |		CMP.L	D0,D6
00022afc 62 30                    |b0      |		BHI	0x22b2e
00022afe 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022b00 20 06                    |        |		MOVE.L	D6,D0
00022b02 d0 87                    |        |		ADD.L	D7,D0
00022b04 22 00                    |"       |		MOVE.L	D0,D1
00022b06 c2 82                    |        |		AND.L	D2,D1
00022b08 b2 82                    |        |		CMP.L	D2,D1
00022b0a 63 02                    |c       |		BLS	0x22b0e
00022b0c 4e 4f                    |NO      |		TRAP	#15
00022b0e e3 81                    |        |		ASL.L	#0x1,D1
00022b10 20 4c                    | L      |		MOVEA.L	A4,A0
00022b12 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022b14 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022b16 4e ba f9 90              |N       |		JSR	0x224a8
00022b1a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022b1c 30 1f                    |0       |		MOVE.W	(A7)+,D0
00022b1e 41 83                    |A       |		CHK.W	D3,D0
00022b20 31 80 18 2a              |1  *    |		MOVE.W	D0,(A0+D1.L+#0x2a)
00022b24 52 87                    |R       |		ADDQ.L	#0x1,D7
00022b26 0c 87 00 00 00 05        |        |		CMPI.L	#0x00000005,D7
00022b2c 6f d2                    |o       |		BLE	0x22b00
00022b2e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022b30 4e b9 00 02 4d b6        |N   M   |		JSR	0x24db6
00022b36 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00022b38 bc 92                    |        |		CMP.L	(A2),D6
00022b3a 65 34                    |e4      |		BCS	0x22b70
00022b3c 20 12                    |        |		MOVE.L	(A2),D0
00022b3e d0 93                    |        |		ADD.L	(A3),D0
00022b40 bc 80                    |        |		CMP.L	D0,D6
00022b42 62 2c                    |b,      |		BHI	0x22b70
00022b44 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022b46 20 06                    |        |		MOVE.L	D6,D0
00022b48 d0 87                    |        |		ADD.L	D7,D0
00022b4a 22 00                    |"       |		MOVE.L	D0,D1
00022b4c c2 82                    |        |		AND.L	D2,D1
00022b4e b2 82                    |        |		CMP.L	D2,D1
00022b50 63 02                    |c       |		BLS	0x22b54
00022b52 4e 4f                    |NO      |		TRAP	#15
00022b54 e3 81                    |        |		ASL.L	#0x1,D1
00022b56 20 4c                    | L      |		MOVEA.L	A4,A0
00022b58 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022b5a 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022b5c 4e ba f9 4a              |N  J    |		JSR	0x224a8
00022b60 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022b62 30 1f                    |0       |		MOVE.W	(A7)+,D0
00022b64 41 83                    |A       |		CHK.W	D3,D0
00022b66 31 80 18 2a              |1  *    |		MOVE.W	D0,(A0+D1.L+#0x2a)
00022b6a 52 87                    |R       |		ADDQ.L	#0x1,D7
00022b6c be 84                    |        |		CMP.L	D4,D7
00022b6e 6f d6                    |o       |		BLE	0x22b46
00022b70 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022b72 4e b9 00 02 4d e0        |N   M   |		JSR	0x24de0
00022b78 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00022b7a bc 92                    |        |		CMP.L	(A2),D6
00022b7c 65 34                    |e4      |		BCS	0x22bb2
00022b7e 20 12                    |        |		MOVE.L	(A2),D0
00022b80 d0 93                    |        |		ADD.L	(A3),D0
00022b82 bc 80                    |        |		CMP.L	D0,D6
00022b84 62 2c                    |b,      |		BHI	0x22bb2
00022b86 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022b88 20 06                    |        |		MOVE.L	D6,D0
00022b8a d0 87                    |        |		ADD.L	D7,D0
00022b8c 22 00                    |"       |		MOVE.L	D0,D1
00022b8e c2 82                    |        |		AND.L	D2,D1
00022b90 b2 82                    |        |		CMP.L	D2,D1
00022b92 63 02                    |c       |		BLS	0x22b96
00022b94 4e 4f                    |NO      |		TRAP	#15
00022b96 e3 81                    |        |		ASL.L	#0x1,D1
00022b98 20 4c                    | L      |		MOVEA.L	A4,A0
00022b9a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022b9c 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022b9e 4e ba f9 08              |N       |		JSR	0x224a8
00022ba2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022ba4 30 1f                    |0       |		MOVE.W	(A7)+,D0
00022ba6 41 83                    |A       |		CHK.W	D3,D0
00022ba8 31 80 18 2a              |1  *    |		MOVE.W	D0,(A0+D1.L+#0x2a)
00022bac 52 87                    |R       |		ADDQ.L	#0x1,D7
00022bae be 84                    |        |		CMP.L	D4,D7
00022bb0 6f d6                    |o       |		BLE	0x22b88
00022bb2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00022bb6 48 50                    |HP      |		PEA.L	(A0)
00022bb8 4e ba fd d6              |N       |		JSR	0x22990
00022bbc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022bbe 4c df 1f df              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2+A3+A4
00022bc2 4e 5e                    |N^      |		UNLK	A6
00022bc4 4e 75                    |Nu      |		RTS
00022bc6 ; --------------------------------------------------------------------------------------
00022bc6 ; OMSI PASCAL Function
00022bc6 ;    <LVAR  0x00a 4(r)>
00022bc6 ;    <LVAR  0x008 2(r)>
00022bc6 ;    <LVAR -0x006 @ 4(r)>
00022bc6 ; --------------------------------------------------------------------------------------
00022bc6 4e 56 ff 9e              |NV      |		LINK.W	A6,#0xff9e
00022bca bf d5                    |        |		CMPA.L	(A5),A7
00022bcc 62 06                    |b       |		BHI	0x22bd4
00022bce 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022bd2 4e 76                    |Nv      |		TRAPV
00022bd4 de fc 00 5c              |   \    |		ADDA.W	#0x5c,A7
00022bd8 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00022bdc 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00022be0 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022be2 2f 2e 00 0a              |/.      |		MOVE.L	(A6+0xa),-(A7)
00022be6 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00022bea 48 c0                    |H       |		EXTW.L	D0
00022bec 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022bee 1f 01                    |        |		MOVE.B	D1,-(A7)
00022bf0 4e ba f6 88              |N       |		JSR	0x2227a
00022bf4 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00022bf8 4e ba fc 90              |N       |		JSR	0x2288a
00022bfc 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00022c00 0c 40 00 50              | @ P    |		CMPI.W	#0x0050,D0
00022c04 6c 08                    |l       |		BGE	0x22c0e
00022c06 48 52                    |HR      |		PEA.L	(A2)
00022c08 4e ba fd 86              |N       |		JSR	0x22990
00022c0c 60 06                    |`       |		BRA	0x22c14
00022c0e 48 52                    |HR      |		PEA.L	(A2)
00022c10 4e ba fe 40              |N  @    |		JSR	0x22a52
00022c14 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022c16 4a 92                    |J       |		TST.L	(A2)
00022c18 66 32                    |f2      |		BNE	0x22c4c
00022c1a 9e fc 00 14              |        |		SUBA.W	#0x14,A7
00022c1e 20 4f                    | O      |		MOVEA.L	A7,A0
00022c20 43 fa d9 98              |C       |		LEA.L	0x205ba,A1
00022c24 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022c26 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022c28 51 c8 ff fc              |Q       |		DBF	D0,0x22c26
00022c2c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c2e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c32 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c34 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00022c38 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022c3e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c40 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022c46 de fc 00 18              |        |		ADDA.W	#0x18,A7
00022c4a 60 3a                    |`:      |		BRA	0x22c86
00022c4c 41 fa d9 b0              |A       |		LEA.L	0x205fe,A0
00022c50 70 0b                    |p       |		MOVEQ.L	#0x0b,D0
00022c52 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022c54 51 c8 ff fc              |Q       |		DBF	D0,0x22c52
00022c58 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022c5a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022c5c 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00022c62 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00022c66 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c68 3f 3c 00 30              |?< 0    |		MOVE.W	#0x30,-(A7)
00022c6c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022c72 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c74 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022c7a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c7c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022c82 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00022c86 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00022c8c 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00022c90 4e 5e                    |N^      |		UNLK	A6
00022c92 4e 75                    |Nu      |		RTS
00022c94 ; --------------------------------------------------------------------------------------
00022c94 ; OMSI PASCAL Function
00022c94 ;    <LVAR  0x008 2(r)>
00022c94 ;    <LVAR -0x006 @>
00022c94 ;    <LVAR -0x00a @ 4(r)>
00022c94 ; --------------------------------------------------------------------------------------
00022c94 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6		; Spelunked
00022c98 bf d5                    |        |		CMPA.L	(A5),A7
00022c9a 62 06                    |b       |		BHI	0x22ca2
00022c9c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022ca0 4e 76                    |Nv      |		TRAPV
00022ca2 de fc 00 20              |        |		ADDA.W	#0x20,A7
00022ca6 3f 2e 00 08              |?.      |		MOVE.W	(A6+0x8),-(A7)
00022caa 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00022cae 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00022cb2 4e ba e6 d4              |N       |		JSR	0x21388
00022cb6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022cb8 2e ba d9 48              |.  H    |		MOVE.L	0x20602,(A7)
00022cbc 2f 3a d9 40              |/: @    |		MOVE.L	0x205fe,-(A7)
00022cc0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022cc2 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00022cc6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022cc8 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00022ccc 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022cd0 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00022cd4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022cda 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022cdc 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022ce2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022ce4 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00022cea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022cec 2e 94                    |.       |		MOVE.L	(A4),(A7)
00022cee 3f 2e 00 08              |?.      |		MOVE.W	(A6+0x8),-(A7)
00022cf2 4e ba fe d2              |N       |		JSR	0x22bc6
00022cf6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022cf8 4e 5e                    |N^      |		UNLK	A6
00022cfa 4e 75                    |Nu      |		RTS
00022cfc ; --------------------------------------------------------------------------------------
00022cfc ; OMSI PASCAL Function
00022cfc ;    <LVAR  0x008 1(r)>
00022cfc ;    <LVAR -0x006 @ 4(rw)>
00022cfc ;    <LVAR -0x00a @ 4(rw)>
00022cfc ; --------------------------------------------------------------------------------------
00022cfc 4e 56 ff 98              |NV      |		LINK.W	A6,#0xff98
00022d00 bf d5                    |        |		CMPA.L	(A5),A7
00022d02 62 06                    |b       |		BHI	0x22d0a
00022d04 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022d08 4e 76                    |Nv      |		TRAPV
00022d0a de fc 00 5e              |   ^    |		ADDA.W	#0x5e,A7
00022d0e 48 e7 f0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
00022d12 45 ee ff f6              |E       |		LEA.L	(A6-0xa),A2
00022d16 47 fa ff 7c              |G  |    |		LEA.L	0x22c94,A3
00022d1a 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022d1c 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00022d1e 76 15                    |v       |		MOVEQ.L	#0x15,D3
00022d20 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00022d24 67 08                    |g       |		BEQ	0x22d2e
00022d26 24 b9 00 02 90 b8        |$       |		MOVE.L	0x290b8,(A2)
00022d2c 60 06                    |`       |		BRA	0x22d34
00022d2e 24 b9 00 02 90 b4        |$       |		MOVE.L	0x290b4,(A2)
00022d34 9e fc 00 16              |        |		SUBA.W	#0x16,A7
00022d38 20 4f                    | O      |		MOVEA.L	A7,A0
00022d3a 43 fa d8 ca              |C       |		LEA.L	0x20606,A1
00022d3e 70 14                    |p       |		MOVEQ.L	#0x14,D0
00022d40 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022d42 51 c8 ff fc              |Q       |		DBF	D0,0x22d40
00022d46 2f 3a d8 d4              |/:      |		MOVE.L	0x2061c,-(A7)
00022d4a 9e c2                    |        |		SUBA.W	D2,A7
00022d4c 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00022d50 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022d52 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022d54 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022d5a 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022d5c 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022d62 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00022d66 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022d68 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00022d6c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022d72 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022d74 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00022d7a de c2                    |        |		ADDA.W	D2,A7
00022d7c 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00022d82 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022d84 2d 5f ff fa              |-_      |		MOVE.L	(A7)+,(A6-0x6)
00022d88 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00022d8c 20 6e ff fa              | n      |		MOVEA.L	(A6-0x6),A0
00022d90 30 10                    |0       |		MOVE.W	(A0),D0
00022d92 b0 41                    | A      |		CMP.W	D1,D0
00022d94 6f 06                    |o       |		BLE	0x22d9c
00022d96 24 ae ff fa              |$       |		MOVE.L	(A6-0x6),(A2)
00022d9a 60 0c                    |`       |		BRA	0x22da8
00022d9c 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00022da0 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022da6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022da8 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00022dac 67 1e                    |g       |		BEQ	0x22dcc
00022dae 3f 3c 00 50              |?< P    |		MOVE.W	#0x50,-(A7)
00022db2 28 4a                    |(J      |		MOVEA.L	A2,A4
00022db4 4e 93                    |N       |		JSR	(A3)
00022db6 3e bc 00 51              |>  Q    |		MOVE.W	#0x51,(A7)
00022dba 28 4a                    |(J      |		MOVEA.L	A2,A4
00022dbc 4e 93                    |N       |		JSR	(A3)
00022dbe 3e bc 00 52              |>  R    |		MOVE.W	#0x52,(A7)
00022dc2 28 4a                    |(J      |		MOVEA.L	A2,A4
00022dc4 4e 93                    |N       |		JSR	(A3)
00022dc6 3e bc 00 53              |>  S    |		MOVE.W	#0x53,(A7)
00022dca 60 1a                    |`       |		BRA	0x22de6
00022dcc 3f 3c 00 21              |?< !    |		MOVE.W	#0x21,-(A7)
00022dd0 28 4a                    |(J      |		MOVEA.L	A2,A4
00022dd2 4e 93                    |N       |		JSR	(A3)
00022dd4 3e bc 00 19              |>       |		MOVE.W	#0x19,(A7)
00022dd8 28 4a                    |(J      |		MOVEA.L	A2,A4
00022dda 4e 93                    |N       |		JSR	(A3)
00022ddc 3e bc 00 17              |>       |		MOVE.W	#0x17,(A7)
00022de0 28 4a                    |(J      |		MOVEA.L	A2,A4
00022de2 4e 93                    |N       |		JSR	(A3)
00022de4 3e 83                    |>       |		MOVE.W	D3,(A7)
00022de6 28 4a                    |(J      |		MOVEA.L	A2,A4
00022de8 4e 93                    |N       |		JSR	(A3)
00022dea 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022dec 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00022df2 4c df 1f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
00022df6 4e 5e                    |N^      |		UNLK	A6
00022df8 4e 75                    |Nu      |		RTS
00022dfa ; --------------------------------------------------------------------------------------
00022dfa ; OMSI PASCAL Function
00022dfa ; --------------------------------------------------------------------------------------
00022dfa 4e 56 ff 50              |NV P    |		LINK.W	A6,#0xff50
00022dfe bf d5                    |        |		CMPA.L	(A5),A7
00022e00 62 06                    |b       |		BHI	0x22e08
00022e02 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022e06 4e 76                    |Nv      |		TRAPV
00022e08 de fc 00 a8              |        |		ADDA.W	#0xa8,A7
00022e0c 48 e7 fb f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7)
00022e10 45 f9 00 02 50 a8        |E   P   |		LEA.L	0x250a8,A2
00022e16 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00022e1c 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00022e22 74 01                    |t       |		MOVEQ.L	#0x01,D2
00022e24 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
00022e26 78 42                    |xB      |		MOVEQ.L	#0x42,D4
00022e28 2f 39 00 02 50 ac        |/9  P   |		MOVE.L	0x250ac,-(A7)
00022e2e 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00022e30 bc 97                    |        |		CMP.L	(A7),D6
00022e32 6e 00 01 96              |n       |		BGT	0x22fca
00022e36 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022e38 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022e3a dd 97                    |        |		ADD.L	D6,(A7)
00022e3c 4e ba f6 6a              |N  j    |		JSR	0x224a8
00022e40 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022e42 0c 86 00 00 1f ff        |        |		CMPI.L	#0x00001fff,D6
00022e48 63 02                    |c       |		BLS	0x22e4c
00022e4a 4e 4f                    |NO      |		TRAP	#15
00022e4c 20 06                    |        |		MOVE.L	D6,D0
00022e4e e3 80                    |        |		ASL.L	#0x1,D0
00022e50 41 f9 00 02 50 88        |A   P   |		LEA.L	0x25088,A0
00022e56 32 1f                    |2       |		MOVE.W	(A7)+,D1
00022e58 b2 70 08 2a              | p *    |		CMP.W	(A0+D0.L+#0x2a),D1
00022e5c 67 00 01 66              |g  f    |		BEQ	0x22fc4
00022e60 20 39 00 02 50 ac        | 9  P   |		MOVE.L	0x250ac,D0
00022e66 5b 80                    |[       |		SUBQ.L	#0x5,D0
00022e68 bc 80                    |        |		CMP.L	D0,D6
00022e6a 67 00 01 58              |g  X    |		BEQ	0x22fc4
00022e6e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022e70 0c 86 00 00 1f ff        |        |		CMPI.L	#0x00001fff,D6
00022e76 63 02                    |c       |		BLS	0x22e7a
00022e78 4e 4f                    |NO      |		TRAP	#15
00022e7a 20 06                    |        |		MOVE.L	D6,D0
00022e7c e3 80                    |        |		ASL.L	#0x1,D0
00022e7e 41 f9 00 02 50 88        |A   P   |		LEA.L	0x25088,A0
00022e84 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022e86 dd 97                    |        |		ADD.L	D6,(A7)
00022e88 3f 30 08 2a              |?0 *    |		MOVE.W	(A0+D0.L+#0x2a),-(A7)
00022e8c 4e ba f6 5a              |N  Z    |		JSR	0x224e8
00022e90 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022e92 52 87                    |R       |		ADDQ.L	#0x1,D7
00022e94 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022e96 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022e98 dd 97                    |        |		ADD.L	D6,(A7)
00022e9a 4e ba f6 0c              |N       |		JSR	0x224a8
00022e9e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022ea0 32 1f                    |2       |		MOVE.W	(A7)+,D1
00022ea2 b2 70 08 2a              | p *    |		CMP.W	(A0+D0.L+#0x2a),D1
00022ea6 67 04                    |g       |		BEQ	0x22eac
00022ea8 be 83                    |        |		CMP.L	D3,D7
00022eaa 66 c4                    |f       |		BNE	0x22e70
00022eac 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022eae 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022eb0 dd 97                    |        |		ADD.L	D6,(A7)
00022eb2 4e ba f5 f4              |N       |		JSR	0x224a8
00022eb6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022eb8 32 1f                    |2       |		MOVE.W	(A7)+,D1
00022eba b2 70 08 2a              | p *    |		CMP.W	(A0+D0.L+#0x2a),D1
00022ebe 67 00 01 04              |g       |		BEQ	0x22fc4
00022ec2 43 fa d7 82              |C       |		LEA.L	0x20646,A1
00022ec6 72 12                    |r       |		MOVEQ.L	#0x12,D1
00022ec8 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00022eca 51 c9 ff fc              |Q       |		DBF	D1,0x22ec8
00022ece 43 fa d7 80              |C       |		LEA.L	0x20650,A1
00022ed2 72 04                    |r       |		MOVEQ.L	#0x04,D1
00022ed4 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00022ed6 51 c9 ff fc              |Q       |		DBF	D1,0x22ed4
00022eda 43 fa d7 82              |C       |		LEA.L	0x2065e,A1
00022ede 72 06                    |r       |		MOVEQ.L	#0x06,D1
00022ee0 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00022ee2 51 c9 ff fc              |Q       |		DBF	D1,0x22ee0
00022ee6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022ee8 48 6f 00 20              |Ho      |		PEA.L	(A7+0x20)
00022eec 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022eee 3f 3c 00 26              |?< &    |		MOVE.W	#0x26,-(A7)
00022ef2 4e 93                    |N       |		JSR	(A3)
00022ef4 2e 92                    |.       |		MOVE.L	(A2),(A7)
00022ef6 dd 97                    |        |		ADD.L	D6,(A7)
00022ef8 48 78 00 08              |Hx      |		PEA.L	0x8
00022efc 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00022f02 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022f04 48 6f 00 1e              |Ho      |		PEA.L	(A7+0x1e)
00022f08 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022f0a 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022f0c 4e 93                    |N       |		JSR	(A3)
00022f0e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022f10 32 30 08 2a              |20 *    |		MOVE.W	(A0+D0.L+#0x2a),D1
00022f14 48 c1                    |H       |		EXTW.L	D1
00022f16 2f 01                    |/       |		MOVE.L	D1,-(A7)
00022f18 48 78 00 02              |Hx      |		PEA.L	0x2
00022f1c 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00022f22 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022f24 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
00022f28 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022f2a 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00022f2e 4e 93                    |N       |		JSR	(A3)
00022f30 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022f32 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022f34 dd 97                    |        |		ADD.L	D6,(A7)
00022f36 4e ba f5 70              |N  p    |		JSR	0x224a8
00022f3a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022f3c 30 1f                    |0       |		MOVE.W	(A7)+,D0
00022f3e 48 c0                    |H       |		EXTW.L	D0
00022f40 2e 80                    |.       |		MOVE.L	D0,(A7)
00022f42 48 78 00 02              |Hx      |		PEA.L	0x2
00022f46 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00022f4c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f4e 4e b9 00 01 02 e0        |N       |		JSR	StringCat6(a, b, c, d, e, f : String) : String
00022f54 de fc 00 18              |        |		ADDA.W	#0x18,A7
00022f58 4e 94                    |N       |		JSR	(A4)
00022f5a de c4                    |        |		ADDA.W	D4,A7
00022f5c 41 fa d7 30              |A  0    |		LEA.L	0x2068e,A0
00022f60 70 0b                    |p       |		MOVEQ.L	#0x0b,D0
00022f62 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022f64 51 c8 ff fc              |Q       |		DBF	D0,0x22f62
00022f68 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022f6a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022f6e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022f70 3f 3c 00 30              |?< 0    |		MOVE.W	#0x30,-(A7)
00022f74 4e 93                    |N       |		JSR	(A3)
00022f76 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f78 4e 94                    |N       |		JSR	(A4)
00022f7a de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00022f7e 41 fa d7 50              |A  P    |		LEA.L	0x206d0,A0
00022f82 70 20                    |p       |		MOVEQ.L	#0x20,D0
00022f84 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022f86 51 c8 ff fc              |Q       |		DBF	D0,0x22f84
00022f8a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022f8c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022f90 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022f92 3f 04                    |?       |		MOVE.W	D4,-(A7)
00022f94 4e 93                    |N       |		JSR	(A3)
00022f96 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f98 4e 94                    |N       |		JSR	(A4)
00022f9a de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00022f9e 20 4f                    | O      |		MOVEA.L	A7,A0
00022fa0 43 fa d7 2e              |C  .    |		LEA.L	0x206d0,A1
00022fa4 70 18                    |p       |		MOVEQ.L	#0x18,D0
00022fa6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022fa8 51 c8 ff fc              |Q       |		DBF	D0,0x22fa6
00022fac 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022fae 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022fb2 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022fb4 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
00022fb8 4e 93                    |N       |		JSR	(A3)
00022fba 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022fbc 4e ba e1 d6              |N       |		JSR	0x21194
00022fc0 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00022fc4 52 86                    |R       |		ADDQ.L	#0x1,D6
00022fc6 68 00 fe 68              |h  h    |		BVC	0x22e30
00022fca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022fcc 4a 39 00 02 50 96        |J9  P   |		TST.B	0x25096
00022fd2 67 2a                    |g*      |		BEQ	0x22ffe
00022fd4 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
00022fd8 20 4f                    | O      |		MOVEA.L	A7,A0
00022fda 43 fa d7 0e              |C       |		LEA.L	0x206ea,A1
00022fde 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
00022fe0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022fe2 51 c8 ff fc              |Q       |		DBF	D0,0x22fe0
00022fe6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022fe8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022fec 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022fee 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
00022ff2 4e 93                    |N       |		JSR	(A3)
00022ff4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022ff6 4e 94                    |N       |		JSR	(A4)
00022ff8 de fc 00 20              |        |		ADDA.W	#0x20,A7
00022ffc 60 28                    |`(      |		BRA	0x23026
00022ffe 9e fc 00 2a              |   *    |		SUBA.W	#0x2a,A7
00023002 20 4f                    | O      |		MOVEA.L	A7,A0
00023004 43 fa d7 00              |C       |		LEA.L	0x20706,A1
00023008 70 28                    |p(      |		MOVEQ.L	#0x28,D0
0002300a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002300c 51 c8 ff fc              |Q       |		DBF	D0,0x2300a
00023010 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023012 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023016 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023018 3f 3c 00 29              |?< )    |		MOVE.W	#0x29,-(A7)
0002301c 4e 93                    |N       |		JSR	(A3)
0002301e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023020 4e 94                    |N       |		JSR	(A4)
00023022 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00023026 4c df 1f df              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2+A3+A4
0002302a 4e 5e                    |N^      |		UNLK	A6
0002302c 4e 75                    |Nu      |		RTS
0002302e ; --------------------------------------------------------------------------------------
0002302e ; OMSI PASCAL Function
0002302e ;    <LVAR -0x004 1(rw)>
0002302e ;    <LVAR -0x008 4(rw)>
0002302e ;    <LVAR -0x00c @ 4(r)>
0002302e ;    <LVAR -0x010 4(rw)>
0002302e ;    <LVAR -0x014 4(rw)>
0002302e ;    <LVAR -0x02a 2(rw)>
0002302e ;    <LVAR -0x030 2(rw)>
0002302e ; --------------------------------------------------------------------------------------
0002302e 4e 56 ff 28              |NV (    |		LINK.W	A6,#0xff28
00023032 bf d5                    |        |		CMPA.L	(A5),A7
00023034 62 06                    |b       |		BHI	0x2303c
00023036 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002303a 4e 76                    |Nv      |		TRAPV
0002303c de fc 00 88              |        |		ADDA.W	#0x88,A7
00023040 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00023044 45 f9 00 02 50 a8        |E   P   |		LEA.L	0x250a8,A2
0002304a 47 f9 00 02 50 ac        |G   P   |		LEA.L	0x250ac,A3
00023050 49 f9 00 01 02 c4        |I       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00023056 74 07                    |t       |		MOVEQ.L	#0x07,D2
00023058 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002305a 4e b9 00 02 4d 8c        |N   M   |		JSR	0x24d8c
00023060 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00023062 67 2e                    |g.      |		BEQ	0x23092
00023064 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00023066 be 82                    |        |		CMP.L	D2,D7
00023068 63 02                    |c       |		BLS	0x2306c
0002306a 4e 4f                    |NO      |		TRAP	#15
0002306c 20 07                    |        |		MOVE.L	D7,D0
0002306e e3 80                    |        |		ASL.L	#0x1,D0
00023070 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023072 2f 06                    |/       |		MOVE.L	D6,-(A7)
00023074 df 97                    |        |		ADD.L	D7,(A7)
00023076 4e ba f4 30              |N  0    |		JSR	0x224a8
0002307a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002307c 32 1f                    |2       |		MOVE.W	(A7)+,D1
0002307e 43 bc 00 ff              |C       |		CHK.W	#0xff,D1
00023082 3d 81 08 b8              |=       |		MOVE.W	D1,(A6+D0.L-#0x48)
00023086 52 87                    |R       |		ADDQ.L	#0x1,D7
00023088 0c 87 00 00 00 05        |        |		CMPI.L	#0x00000005,D7
0002308e 6f d6                    |o       |		BLE	0x23066
00023090 60 1a                    |`       |		BRA	0x230ac
00023092 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00023094 be 82                    |        |		CMP.L	D2,D7
00023096 63 02                    |c       |		BLS	0x2309a
00023098 4e 4f                    |NO      |		TRAP	#15
0002309a 20 07                    |        |		MOVE.L	D7,D0
0002309c e3 80                    |        |		ASL.L	#0x1,D0
0002309e 42 76 08 b8              |Bv      |		CLR.W	(A6+D0.L-#0x48)
000230a2 52 87                    |R       |		ADDQ.L	#0x1,D7
000230a4 0c 87 00 00 00 05        |        |		CMPI.L	#0x00000005,D7
000230aa 6f e8                    |o       |		BLE	0x23094
000230ac 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000230ae 4e b9 00 02 4d b6        |N   M   |		JSR	0x24db6
000230b4 2c 1f                    |,       |		MOVE.L	(A7)+,D6
000230b6 67 2a                    |g*      |		BEQ	0x230e2
000230b8 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000230ba be 82                    |        |		CMP.L	D2,D7
000230bc 63 02                    |c       |		BLS	0x230c0
000230be 4e 4f                    |NO      |		TRAP	#15
000230c0 20 07                    |        |		MOVE.L	D7,D0
000230c2 e3 80                    |        |		ASL.L	#0x1,D0
000230c4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000230c6 2f 06                    |/       |		MOVE.L	D6,-(A7)
000230c8 df 97                    |        |		ADD.L	D7,(A7)
000230ca 4e ba f3 dc              |N       |		JSR	0x224a8
000230ce 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000230d0 32 1f                    |2       |		MOVE.W	(A7)+,D1
000230d2 43 bc 00 ff              |C       |		CHK.W	#0xff,D1
000230d6 3d 81 08 c8              |=       |		MOVE.W	D1,(A6+D0.L-#0x38)
000230da 52 87                    |R       |		ADDQ.L	#0x1,D7
000230dc be 82                    |        |		CMP.L	D2,D7
000230de 6f da                    |o       |		BLE	0x230ba
000230e0 60 16                    |`       |		BRA	0x230f8
000230e2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000230e4 be 82                    |        |		CMP.L	D2,D7
000230e6 63 02                    |c       |		BLS	0x230ea
000230e8 4e 4f                    |NO      |		TRAP	#15
000230ea 20 07                    |        |		MOVE.L	D7,D0
000230ec e3 80                    |        |		ASL.L	#0x1,D0
000230ee 42 76 08 c8              |Bv      |		CLR.W	(A6+D0.L-#0x38)
000230f2 52 87                    |R       |		ADDQ.L	#0x1,D7
000230f4 be 82                    |        |		CMP.L	D2,D7
000230f6 6f ec                    |o       |		BLE	0x230e4
000230f8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000230fa 4e b9 00 02 4d e0        |N   M   |		JSR	0x24de0
00023100 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00023102 67 2a                    |g*      |		BEQ	0x2312e
00023104 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00023106 be 82                    |        |		CMP.L	D2,D7
00023108 63 02                    |c       |		BLS	0x2310c
0002310a 4e 4f                    |NO      |		TRAP	#15
0002310c 20 07                    |        |		MOVE.L	D7,D0
0002310e e3 80                    |        |		ASL.L	#0x1,D0
00023110 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023112 2f 06                    |/       |		MOVE.L	D6,-(A7)
00023114 df 97                    |        |		ADD.L	D7,(A7)
00023116 4e ba f3 90              |N       |		JSR	0x224a8
0002311a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002311c 32 1f                    |2       |		MOVE.W	(A7)+,D1
0002311e 43 bc 00 ff              |C       |		CHK.W	#0xff,D1
00023122 3d 81 08 d8              |=       |		MOVE.W	D1,(A6+D0.L-#0x28)
00023126 52 87                    |R       |		ADDQ.L	#0x1,D7
00023128 be 82                    |        |		CMP.L	D2,D7
0002312a 6f da                    |o       |		BLE	0x23106
0002312c 60 16                    |`       |		BRA	0x23144
0002312e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00023130 be 82                    |        |		CMP.L	D2,D7
00023132 63 02                    |c       |		BLS	0x23136
00023134 4e 4f                    |NO      |		TRAP	#15
00023136 20 07                    |        |		MOVE.L	D7,D0
00023138 e3 80                    |        |		ASL.L	#0x1,D0
0002313a 42 76 08 d8              |Bv      |		CLR.W	(A6+D0.L-#0x28)
0002313e 52 87                    |R       |		ADDQ.L	#0x1,D7
00023140 be 82                    |        |		CMP.L	D2,D7
00023142 6f ec                    |o       |		BLE	0x23130
00023144 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00023146 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00023148 be 97                    |        |		CMP.L	(A7),D7
0002314a 6e 26                    |n&      |		BGT	0x23172
0002314c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002314e df 97                    |        |		ADD.L	D7,(A7)
00023150 0c 87 00 00 1f ff        |        |		CMPI.L	#0x00001fff,D7
00023156 63 02                    |c       |		BLS	0x2315a
00023158 4e 4f                    |NO      |		TRAP	#15
0002315a 20 07                    |        |		MOVE.L	D7,D0
0002315c e3 80                    |        |		ASL.L	#0x1,D0
0002315e 41 f9 00 02 50 88        |A   P   |		LEA.L	0x25088,A0
00023164 3f 30 08 2a              |?0 *    |		MOVE.W	(A0+D0.L+#0x2a),-(A7)
00023168 4e ba f3 e2              |N       |		JSR	0x2254c
0002316c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002316e 52 87                    |R       |		ADDQ.L	#0x1,D7
00023170 68 d6                    |h       |		BVC	0x23148
00023172 4e b9 00 02 4d 8c        |N   M   |		JSR	0x24d8c
00023178 2c 1f                    |,       |		MOVE.L	(A7)+,D6
0002317a bc 92                    |        |		CMP.L	(A2),D6
0002317c 65 32                    |e2      |		BCS	0x231b0
0002317e 20 12                    |        |		MOVE.L	(A2),D0
00023180 d0 93                    |        |		ADD.L	(A3),D0
00023182 bc 80                    |        |		CMP.L	D0,D6
00023184 62 2a                    |b*      |		BHI	0x231b0
00023186 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00023188 2f 06                    |/       |		MOVE.L	D6,-(A7)
0002318a df 97                    |        |		ADD.L	D7,(A7)
0002318c be 82                    |        |		CMP.L	D2,D7
0002318e 63 02                    |c       |		BLS	0x23192
00023190 4e 4f                    |NO      |		TRAP	#15
00023192 20 07                    |        |		MOVE.L	D7,D0
00023194 e3 80                    |        |		ASL.L	#0x1,D0
00023196 30 36 08 b8              |06      |		MOVE.W	(A6+D0.L-#0x48),D0
0002319a 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
0002319e 3f 00                    |?       |		MOVE.W	D0,-(A7)
000231a0 4e ba f3 aa              |N       |		JSR	0x2254c
000231a4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000231a6 52 87                    |R       |		ADDQ.L	#0x1,D7
000231a8 0c 87 00 00 00 05        |        |		CMPI.L	#0x00000005,D7
000231ae 6f d8                    |o       |		BLE	0x23188
000231b0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000231b2 4e b9 00 02 4d e0        |N   M   |		JSR	0x24de0
000231b8 2c 1f                    |,       |		MOVE.L	(A7)+,D6
000231ba bc 92                    |        |		CMP.L	(A2),D6
000231bc 65 2e                    |e.      |		BCS	0x231ec
000231be 20 12                    |        |		MOVE.L	(A2),D0
000231c0 d0 93                    |        |		ADD.L	(A3),D0
000231c2 bc 80                    |        |		CMP.L	D0,D6
000231c4 62 26                    |b&      |		BHI	0x231ec
000231c6 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000231c8 2f 06                    |/       |		MOVE.L	D6,-(A7)
000231ca df 97                    |        |		ADD.L	D7,(A7)
000231cc be 82                    |        |		CMP.L	D2,D7
000231ce 63 02                    |c       |		BLS	0x231d2
000231d0 4e 4f                    |NO      |		TRAP	#15
000231d2 20 07                    |        |		MOVE.L	D7,D0
000231d4 e3 80                    |        |		ASL.L	#0x1,D0
000231d6 30 36 08 d8              |06      |		MOVE.W	(A6+D0.L-#0x28),D0
000231da 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
000231de 3f 00                    |?       |		MOVE.W	D0,-(A7)
000231e0 4e ba f3 6a              |N  j    |		JSR	0x2254c
000231e4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000231e6 52 87                    |R       |		ADDQ.L	#0x1,D7
000231e8 be 82                    |        |		CMP.L	D2,D7
000231ea 6f dc                    |o       |		BLE	0x231c8
000231ec 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000231ee 4e b9 00 02 4d b6        |N   M   |		JSR	0x24db6
000231f4 2c 1f                    |,       |		MOVE.L	(A7)+,D6
000231f6 bc 92                    |        |		CMP.L	(A2),D6
000231f8 65 5a                    |eZ      |		BCS	0x23254
000231fa 20 12                    |        |		MOVE.L	(A2),D0
000231fc d0 93                    |        |		ADD.L	(A3),D0
000231fe bc 80                    |        |		CMP.L	D0,D6
00023200 62 52                    |bR      |		BHI	0x23254
00023202 4a 79 00 02 90 c2        |Jy      |		TST.W	0x290c2
00023208 6f 24                    |o$      |		BLE	0x2322e
0002320a 30 2e ff d6              |0.      |		MOVE.W	(A6-0x2a),D0
0002320e d0 6e ff d0              | n      |		ADD.W	(A6-0x30),D0
00023212 90 79 00 02 90 c2        | y      |		SUB.W	0x290c2,D0
00023218 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
0002321c 3d 40 ff d6              |=@      |		MOVE.W	D0,(A6-0x2a)
00023220 30 39 00 02 90 c2        |09      |		MOVE.W	0x290c2,D0
00023226 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
0002322a 3d 40 ff d0              |=@      |		MOVE.W	D0,(A6-0x30)
0002322e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00023230 2f 06                    |/       |		MOVE.L	D6,-(A7)
00023232 df 97                    |        |		ADD.L	D7,(A7)
00023234 be 82                    |        |		CMP.L	D2,D7
00023236 63 02                    |c       |		BLS	0x2323a
00023238 4e 4f                    |NO      |		TRAP	#15
0002323a 20 07                    |        |		MOVE.L	D7,D0
0002323c e3 80                    |        |		ASL.L	#0x1,D0
0002323e 30 36 08 c8              |06      |		MOVE.W	(A6+D0.L-#0x38),D0
00023242 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00023246 3f 00                    |?       |		MOVE.W	D0,-(A7)
00023248 4e ba f3 02              |N       |		JSR	0x2254c
0002324c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002324e 52 87                    |R       |		ADDQ.L	#0x1,D7
00023250 be 82                    |        |		CMP.L	D2,D7
00023252 6f dc                    |o       |		BLE	0x23230
00023254 7a 00                    |z       |		MOVEQ.L	#0x00,D5
00023256 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00023258 53 97                    |S       |		SUBQ.L	#0x1,(A7)
0002325a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002325c be 97                    |        |		CMP.L	(A7),D7
0002325e 6e 26                    |n&      |		BGT	0x23286
00023260 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023262 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023264 df 97                    |        |		ADD.L	D7,(A7)
00023266 4e ba f2 40              |N  @    |		JSR	0x224a8
0002326a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002326c 30 1f                    |0       |		MOVE.W	(A7)+,D0
0002326e 48 c0                    |H       |		EXTW.L	D0
00023270 da 80                    |        |		ADD.L	D0,D5
00023272 28 05                    |(       |		MOVE.L	D5,D4
00023274 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
0002327a 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00023280 2a 03                    |*       |		MOVE.L	D3,D5
00023282 52 87                    |R       |		ADDQ.L	#0x1,D7
00023284 68 d6                    |h       |		BVC	0x2325c
00023286 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023288 20 12                    |        |		MOVE.L	(A2),D0
0002328a d0 93                    |        |		ADD.L	(A3),D0
0002328c 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002328e 20 3c 00 00 01 aa        | <      |		MOVE.L	#0x1aa,D0
00023294 90 85                    |        |		SUB.L	D5,D0
00023296 28 00                    |(       |		MOVE.L	D0,D4
00023298 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
0002329e 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000232a4 3f 03                    |?       |		MOVE.W	D3,-(A7)
000232a6 4e ba f2 a4              |N       |		JSR	0x2254c
000232aa 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000232ac 42 ae ff ec              |B       |		CLR.L	(A6-0x14)
000232b0 42 ae ff f0              |B       |		CLR.L	(A6-0x10)
000232b4 42 2e ff fc              |B.      |		CLR.B	(A6-0x4)
000232b8 20 2e ff ec              | .      |		MOVE.L	(A6-0x14),D0
000232bc b0 82                    |        |		CMP.L	D2,D0
000232be 6f 04                    |o       |		BLE	0x232c4
000232c0 52 2e ff fc              |R.      |		ADDQ.B	#0x1,(A6-0x4)
000232c4 30 39 00 02 50 b0        |09  P   |		MOVE.W	0x250b0,D0
000232ca 04 40 00 50              | @ P    |		SUBI.W	#0x0050,D0
000232ce 48 c0                    |H       |		EXTW.L	D0
000232d0 2f 00                    |/       |		MOVE.L	D0,-(A7)
000232d2 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
000232d6 4e b9 00 02 4e 32        |N   N2  |		JSR	0x24e32
000232dc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000232de 4a ae ff f4              |J       |		TST.L	(A6-0xc)
000232e2 67 48                    |gH      |		BEQ	0x2332c
000232e4 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
000232e8 67 42                    |gB      |		BEQ	0x2332c
000232ea 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
000232ee 20 4f                    | O      |		MOVEA.L	A7,A0
000232f0 43 fa d4 3e              |C  >    |		LEA.L	0x20730,A1
000232f4 70 18                    |p       |		MOVEQ.L	#0x18,D0
000232f6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000232f8 51 c8 ff fc              |Q       |		DBF	D0,0x232f6
000232fc 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000232fe 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00023302 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00023306 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
0002330a 4e 94                    |N       |		JSR	(A4)
0002330c 2e ae ff f4              |.       |		MOVE.L	(A6-0xc),(A7)
00023310 4e ba dd 08              |N       |		JSR	0x2101a
00023314 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023316 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002331c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002331e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023324 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023328 52 ae ff f0              |R       |		ADDQ.L	#0x1,(A6-0x10)
0002332c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002332e 0c 87 00 00 1f ff        |        |		CMPI.L	#0x00001fff,D7
00023334 63 02                    |c       |		BLS	0x23338
00023336 4e 4f                    |NO      |		TRAP	#15
00023338 20 07                    |        |		MOVE.L	D7,D0
0002333a e3 80                    |        |		ASL.L	#0x1,D0
0002333c 41 f9 00 02 50 88        |A   P   |		LEA.L	0x25088,A0
00023342 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023344 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00023346 df 97                    |        |		ADD.L	D7,(A7)
00023348 4e ba f1 5e              |N  ^    |		JSR	0x224a8
0002334c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002334e 32 1f                    |2       |		MOVE.W	(A7)+,D1
00023350 43 bc 00 ff              |C       |		CHK.W	#0xff,D1
00023354 31 81 08 2a              |1  *    |		MOVE.W	D1,(A0+D0.L+#0x2a)
00023358 52 87                    |R       |		ADDQ.L	#0x1,D7
0002335a 0c 87 00 00 1f ff        |        |		CMPI.L	#0x00001fff,D7
00023360 6f cc                    |o       |		BLE	0x2332e
00023362 30 39 00 02 50 b0        |09  P   |		MOVE.W	0x250b0,D0
00023368 04 40 00 50              | @ P    |		SUBI.W	#0x0050,D0
0002336c 48 c0                    |H       |		EXTW.L	D0
0002336e 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023370 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00023374 4e b9 00 02 4e 0a        |N   N   |		JSR	0x24e0a
0002337a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002337c 4a ae ff f4              |J       |		TST.L	(A6-0xc)
00023380 67 48                    |gH      |		BEQ	0x233ca
00023382 20 2e ff f4              | .      |		MOVE.L	(A6-0xc),D0
00023386 0c 80 00 00 00 02        |        |		CMPI.L	#0x00000002,D0
0002338c 67 3c                    |g<      |		BEQ	0x233ca
0002338e 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
00023392 20 4f                    | O      |		MOVEA.L	A7,A0
00023394 43 fa d3 b4              |C       |		LEA.L	0x2074a,A1
00023398 70 18                    |p       |		MOVEQ.L	#0x18,D0
0002339a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002339c 51 c8 ff fc              |Q       |		DBF	D0,0x2339a
000233a0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000233a2 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000233a6 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000233aa 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
000233ae 4e 94                    |N       |		JSR	(A4)
000233b0 2e ae ff f4              |.       |		MOVE.L	(A6-0xc),(A7)
000233b4 4e ba dc 64              |N  d    |		JSR	0x2101a
000233b8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000233ba 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000233c0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000233c2 4e ba dd d0              |N       |		JSR	0x21194
000233c6 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000233ca 42 ae ff f8              |B       |		CLR.L	(A6-0x8)
000233ce 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000233d0 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000233d2 be 97                    |        |		CMP.L	(A7),D7
000233d4 6e 38                    |n8      |		BGT	0x2340e
000233d6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000233d8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000233da df 97                    |        |		ADD.L	D7,(A7)
000233dc 4e ba f0 ca              |N       |		JSR	0x224a8
000233e0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000233e2 0c 87 00 00 1f ff        |        |		CMPI.L	#0x00001fff,D7
000233e8 63 02                    |c       |		BLS	0x233ec
000233ea 4e 4f                    |NO      |		TRAP	#15
000233ec 20 07                    |        |		MOVE.L	D7,D0
000233ee e3 80                    |        |		ASL.L	#0x1,D0
000233f0 41 f9 00 02 50 88        |A   P   |		LEA.L	0x25088,A0
000233f6 32 1f                    |2       |		MOVE.W	(A7)+,D1
000233f8 b2 70 08 2a              | p *    |		CMP.W	(A0+D0.L+#0x2a),D1
000233fc 67 0c                    |g       |		BEQ	0x2340a
000233fe 20 13                    |        |		MOVE.L	(A3),D0
00023400 5b 80                    |[       |		SUBQ.L	#0x5,D0
00023402 be 80                    |        |		CMP.L	D0,D7
00023404 67 04                    |g       |		BEQ	0x2340a
00023406 52 ae ff f8              |R       |		ADDQ.L	#0x1,(A6-0x8)
0002340a 52 87                    |R       |		ADDQ.L	#0x1,D7
0002340c 68 c4                    |h       |		BVC	0x233d2
0002340e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023410 4a ae ff f8              |J       |		TST.L	(A6-0x8)
00023414 6f 00 01 38              |o  8    |		BLE	0x2354e
00023418 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002341a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002341c df 97                    |        |		ADD.L	D7,(A7)
0002341e 0c 87 00 00 1f ff        |        |		CMPI.L	#0x00001fff,D7
00023424 63 02                    |c       |		BLS	0x23428
00023426 4e 4f                    |NO      |		TRAP	#15
00023428 20 07                    |        |		MOVE.L	D7,D0
0002342a e3 80                    |        |		ASL.L	#0x1,D0
0002342c 41 f9 00 02 50 88        |A   P   |		LEA.L	0x25088,A0
00023432 3f 30 08 2a              |?0 *    |		MOVE.W	(A0+D0.L+#0x2a),-(A7)
00023436 4e ba f1 14              |N       |		JSR	0x2254c
0002343a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002343c 52 87                    |R       |		ADDQ.L	#0x1,D7
0002343e 0c 87 00 00 1f ff        |        |		CMPI.L	#0x00001fff,D7
00023444 6f d4                    |o       |		BLE	0x2341a
00023446 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
0002344a 67 62                    |gb      |		BEQ	0x234ae
0002344c 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00023450 20 4f                    | O      |		MOVEA.L	A7,A0
00023452 43 fa d3 10              |C       |		LEA.L	0x20764,A1
00023456 70 08                    |p       |		MOVEQ.L	#0x08,D0
00023458 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002345a 51 c8 ff fc              |Q       |		DBF	D0,0x23458
0002345e 41 fa d3 38              |A  8    |		LEA.L	0x20798,A0
00023462 70 14                    |p       |		MOVEQ.L	#0x14,D0
00023464 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023466 51 c8 ff fc              |Q       |		DBF	D0,0x23464
0002346a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002346c 48 6f 00 32              |Ho 2    |		PEA.L	(A7+0x32)
00023470 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00023474 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00023478 4e 94                    |N       |		JSR	(A4)
0002347a 2e ae ff f8              |.       |		MOVE.L	(A6-0x8),(A7)
0002347e 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00023484 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023488 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002348c 3f 3c 00 2a              |?< *    |		MOVE.W	#0x2a,-(A7)
00023490 4e 94                    |N       |		JSR	(A4)
00023492 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023494 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
0002349a de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002349e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000234a4 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
000234a8 52 ae ff f0              |R       |		ADDQ.L	#0x1,(A6-0x10)
000234ac 60 0c                    |`       |		BRA	0x234ba
000234ae 1f 3c 00 2e              | < .    |		MOVE.B	#0x2e,-(A7)
000234b2 4e b9 00 01 03 d0        |N       |		JSR	WriteConsoleChar(chr : char)
000234b8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000234ba 52 ae ff ec              |R       |		ADDQ.L	#0x1,(A6-0x14)
000234be 20 2e ff ec              | .      |		MOVE.L	(A6-0x14),D0
000234c2 0c 80 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D0
000234c8 6c 04                    |l       |		BGE	0x234ce
000234ca 60 00 fd e8              |`       |		BRA	0x232b4
000234ce 9e fc 00 30              |   0    |		SUBA.W	#0x30,A7
000234d2 20 4f                    | O      |		MOVEA.L	A7,A0
000234d4 43 fa d2 c2              |C       |		LEA.L	0x20798,A1
000234d8 70 2e                    |p.      |		MOVEQ.L	#0x2e,D0
000234da 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000234dc 51 c8 ff fc              |Q       |		DBF	D0,0x234da
000234e0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000234e2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000234e6 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000234ea 3f 3c 00 2f              |?< /    |		MOVE.W	#0x2f,-(A7)
000234ee 4e 94                    |N       |		JSR	(A4)
000234f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000234f2 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000234f8 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
000234fc 41 fa d3 0e              |A       |		LEA.L	0x2080c,A0
00023500 70 10                    |p       |		MOVEQ.L	#0x10,D0
00023502 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00023504 51 c8 ff fc              |Q       |		DBF	D0,0x23502
00023508 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002350a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002350e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00023512 3f 3c 00 44              |?< D    |		MOVE.W	#0x44,-(A7)
00023516 4e 94                    |N       |		JSR	(A4)
00023518 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002351a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023520 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00023524 20 4f                    | O      |		MOVEA.L	A7,A0
00023526 43 fa d2 e4              |C       |		LEA.L	0x2080c,A1
0002352a 70 18                    |p       |		MOVEQ.L	#0x18,D0
0002352c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002352e 51 c8 ff fc              |Q       |		DBF	D0,0x2352c
00023532 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023534 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023538 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002353c 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
00023540 4e 94                    |N       |		JSR	(A4)
00023542 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023544 4e ba dc 4e              |N  N    |		JSR	0x21194
00023548 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
0002354c 60 64                    |`d      |		BRA	0x235b2
0002354e 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
00023552 20 4f                    | O      |		MOVEA.L	A7,A0
00023554 43 fa d2 d0              |C       |		LEA.L	0x20826,A1
00023558 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
0002355a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002355c 51 c8 ff fc              |Q       |		DBF	D0,0x2355a
00023560 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023562 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023566 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002356a 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
0002356e 4e 94                    |N       |		JSR	(A4)
00023570 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023572 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00023578 de fc 00 20              |        |		ADDA.W	#0x20,A7
0002357c 4a ae ff f0              |J       |		TST.L	(A6-0x10)
00023580 66 08                    |f       |		BNE	0x2358a
00023582 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00023588 60 28                    |`(      |		BRA	0x235b2
0002358a 41 fa d2 de              |A       |		LEA.L	0x2086a,A0
0002358e 70 09                    |p       |		MOVEQ.L	#0x09,D0
00023590 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00023592 51 c8 ff fc              |Q       |		DBF	D0,0x23590
00023596 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023598 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002359c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000235a0 3f 3c 00 28              |?< (    |		MOVE.W	#0x28,-(A7)
000235a4 4e 94                    |N       |		JSR	(A4)
000235a6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000235a8 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000235ae de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000235b2 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000235b6 4e 5e                    |N^      |		UNLK	A6
000235b8 4e 75                    |Nu      |		RTS
000235ba ; --------------------------------------------------------------------------------------
000235ba ; OMSI PASCAL Function
000235ba ;    <LVAR  0x008 1(r)>
000235ba ; --------------------------------------------------------------------------------------
000235ba 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
000235be bf d5                    |        |		CMPA.L	(A5),A7
000235c0 62 06                    |b       |		BHI	0x235c8
000235c2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000235c6 4e 76                    |Nv      |		TRAPV
000235c8 de fc 00 6e              |   n    |		ADDA.W	#0x6e,A7
000235cc 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000235d0 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000235d6 72 01                    |r       |		MOVEQ.L	#0x01,D1
000235d8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000235da 4e b9 00 01 06 0a        |N       |		JSR	Is_fc07_four() : Bool
000235e0 4a 1f                    |J       |		TST.B	(A7)+
000235e2 66 0e                    |f       |		BNE	0x235f2
000235e4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000235e6 4e b9 00 01 06 04        |N       |		JSR	Is_fc07_three() : Bool
000235ec 4a 1f                    |J       |		TST.B	(A7)+
000235ee 67 00 00 a4              |g       |		BEQ	0x23694
000235f2 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
000235f6 67 28                    |g(      |		BEQ	0x23620
000235f8 41 fa d2 9c              |A       |		LEA.L	0x20896,A0
000235fc 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000235fe 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00023600 51 c8 ff fc              |Q       |		DBF	D0,0x235fe
00023604 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023606 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002360a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002360c 3f 3c 00 2c              |?< ,    |		MOVE.W	#0x2c,-(A7)
00023610 4e 92                    |N       |		JSR	(A2)
00023612 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023614 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
0002361a de fc 00 30              |   0    |		ADDA.W	#0x30,A7
0002361e 60 2c                    |`,      |		BRA	0x2364c
00023620 9e fc 00 4a              |   J    |		SUBA.W	#0x4a,A7
00023624 20 4f                    | O      |		MOVEA.L	A7,A0
00023626 43 fa d2 6e              |C  n    |		LEA.L	0x20896,A1
0002362a 70 48                    |pH      |		MOVEQ.L	#0x48,D0
0002362c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002362e 51 c8 ff fc              |Q       |		DBF	D0,0x2362c
00023632 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023634 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023638 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002363a 3f 3c 00 49              |?< I    |		MOVE.W	#0x49,-(A7)
0002363e 4e 92                    |N       |		JSR	(A2)
00023640 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023642 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00023648 de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
0002364c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002364e 4e b9 00 02 4d 62        |N   Mb  |		JSR	0x24d62
00023654 10 1f                    |        |		MOVE.B	(A7)+,D0
00023656 b0 2e 00 08              | .      |		CMP.B	(A6+0x8),D0
0002365a 67 02                    |g       |		BEQ	0x2365e
0002365c 60 ee                    |`       |		BRA	0x2364c
0002365e 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00023660 20 4f                    | O      |		MOVEA.L	A7,A0
00023662 43 fa d2 7c              |C  |    |		LEA.L	0x208e0,A1
00023666 70 04                    |p       |		MOVEQ.L	#0x04,D0
00023668 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002366a 51 c8 ff fc              |Q       |		DBF	D0,0x23668
0002366e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023670 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023674 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023676 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
0002367a 4e 92                    |N       |		JSR	(A2)
0002367c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002367e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023684 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023686 2e bc 00 00 98 96        |.       |		MOVE.L	#0x9896,(A7)
0002368c 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
00023692 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023694 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00023698 4e 5e                    |N^      |		UNLK	A6
0002369a 4e 75                    |Nu      |		RTS
0002369c ; --------------------------------------------------------------------------------------
0002369c ; OMSI PASCAL Function
0002369c ;    <LVAR -0x008 @ 4(r)>
0002369c ; --------------------------------------------------------------------------------------
0002369c 4e 56 ff 8a              |NV      |		LINK.W	A6,#0xff8a
000236a0 bf d5                    |        |		CMPA.L	(A5),A7
000236a2 62 06                    |b       |		BHI	0x236aa
000236a4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000236a8 4e 76                    |Nv      |		TRAPV
000236aa de fc 00 6e              |   n    |		ADDA.W	#0x6e,A7
000236ae 48 e7 f9 c0              |H       |		MOVEM.L	A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
000236b2 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
000236b4 74 01                    |t       |		MOVEQ.L	#0x01,D2
000236b6 4e ba f1 d2              |N       |		JSR	0x2288a
000236ba 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000236be 4e ba f2 d0              |N       |		JSR	0x22990
000236c2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000236c4 30 39 00 02 50 b0        |09  P   |		MOVE.W	0x250b0,D0
000236ca 0c 40 00 50              | @ P    |		CMPI.W	#0x0050,D0
000236ce 6c 1e                    |l       |		BGE	0x236ee
000236d0 28 2e ff f8              |(.      |		MOVE.L	(A6-0x8),D4
000236d4 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
000236d6 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
000236dc 26 3c 00 00 03 e8        |&<      |		MOVE.L	#0x3e8,D3
000236e2 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000236e8 52 84                    |R       |		ADDQ.L	#0x1,D4
000236ea 2e 04                    |.       |		MOVE.L	D4,D7
000236ec 60 02                    |`       |		BRA	0x236f0
000236ee 7e 06                    |~       |		MOVEQ.L	#0x06,D7
000236f0 9e fc 00 26              |   &    |		SUBA.W	#0x26,A7
000236f4 20 4f                    | O      |		MOVEA.L	A7,A0
000236f6 43 fa d1 ee              |C       |		LEA.L	0x208e6,A1
000236fa 70 24                    |p$      |		MOVEQ.L	#0x24,D0
000236fc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000236fe 51 c8 ff fc              |Q       |		DBF	D0,0x236fc
00023702 9e c1                    |        |		SUBA.W	D1,A7
00023704 20 4f                    | O      |		MOVEA.L	A7,A0
00023706 43 fa d2 04              |C       |		LEA.L	0x2090c,A1
0002370a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002370c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002370e 51 c8 ff fc              |Q       |		DBF	D0,0x2370c
00023712 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023714 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00023718 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002371a 3f 3c 00 25              |?< %    |		MOVE.W	#0x25,-(A7)
0002371e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023724 2e 87                    |.       |		MOVE.L	D7,(A7)
00023726 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
0002372c 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023730 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023732 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00023736 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002373c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002373e 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00023744 de c1                    |        |		ADDA.W	D1,A7
00023746 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002374c de fc 00 36              |   6    |		ADDA.W	#0x36,A7
00023750 4c df 03 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1
00023754 4e 5e                    |N^      |		UNLK	A6
00023756 4e 75                    |Nu      |		RTS
00023758 ; --------------------------------------------------------------------------------------
00023758 ; OMSI PASCAL Function
00023758 ; --------------------------------------------------------------------------------------
00023758 4e 56 ff ea              |NV      |		LINK.W	A6,#0xffea
0002375c bf d5                    |        |		CMPA.L	(A5),A7
0002375e 62 06                    |b       |		BHI	0x23766
00023760 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023764 4e 76                    |Nv      |		TRAPV
00023766 de fc 00 16              |        |		ADDA.W	#0x16,A7
0002376a 48 e7 c0 00              |H       |		MOVEM.L	D1+D0,-(A7)
0002376e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00023770 48 78 00 01              |Hx      |		PEA.L	0x1
00023774 48 78 00 00              |Hx      |		PEA.L	0x0
00023778 1f 01                    |        |		MOVE.B	D1,-(A7)
0002377a 4e ba ea fe              |N       |		JSR	0x2227a
0002377e de fc 00 0a              |        |		ADDA.W	#0xa,A7
00023782 4e ba ff 18              |N       |		JSR	0x2369c
00023786 42 27                    |B'      |		CLR.B	-(A7)
00023788 4e ba fe 30              |N  0    |		JSR	0x235ba
0002378c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002378e 42 39 00 02 50 96        |B9  P   |		CLR.B	0x25096
00023794 42 79 00 02 90 c2        |By      |		CLR.W	0x290c2
0002379a 30 39 00 02 50 b0        |09  P   |		MOVE.W	0x250b0,D0
000237a0 0c 40 00 50              | @ P    |		CMPI.W	#0x0050,D0
000237a4 6c 06                    |l       |		BGE	0x237ac
000237a6 4e ba f6 52              |N  R    |		JSR	0x22dfa
000237aa 60 04                    |`       |		BRA	0x237b0
000237ac 4e ba f8 80              |N       |		JSR	0x2302e
000237b0 1f 01                    |        |		MOVE.B	D1,-(A7)
000237b2 4e ba fe 06              |N       |		JSR	0x235ba
000237b6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000237b8 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000237be 4c df 00 03              |L       |		MOVEM.L	(A7)+,D0+D1
000237c2 4e 5e                    |N^      |		UNLK	A6
000237c4 4e 75                    |Nu      |		RTS
000237c6 ; --------------------------------------------------------------------------------------
000237c6 ; OMSI PASCAL Function
000237c6 ;    <LVAR  0x00a @ 4(r)>
000237c6 ;    <LVAR  0x008 2(r)>
000237c6 ; --------------------------------------------------------------------------------------
000237c6 4e 56 ff c2              |NV      |		LINK.W	A6,#0xffc2		; Spelunked
000237ca bf d5                    |        |		CMPA.L	(A5),A7
000237cc 62 06                    |b       |		BHI	0x237d4
000237ce 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000237d2 4e 76                    |Nv      |		TRAPV
000237d4 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
000237d8 48 e7 e0 e0              |H       |		MOVEM.L	A2+A1+A0+D2+D1+D0,-(A7)
000237dc 45 ee 00 0a              |E       |		LEA.L	(A6+0xa),A2
000237e0 72 10                    |r       |		MOVEQ.L	#0x10,D1
000237e2 74 01                    |t       |		MOVEQ.L	#0x01,D2
000237e4 9e c1                    |        |		SUBA.W	D1,A7
000237e6 20 4f                    | O      |		MOVEA.L	A7,A0
000237e8 43 fa d1 2e              |C  .    |		LEA.L	0x20918,A1
000237ec 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000237ee 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000237f0 51 c8 ff fc              |Q       |		DBF	D0,0x237ee
000237f4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000237f6 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000237fa 3f 02                    |?       |		MOVE.W	D2,-(A7)
000237fc 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00023800 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023806 2e 92                    |.       |		MOVE.L	(A2),(A7)
00023808 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
0002380e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023810 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023816 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023818 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
0002381e de c1                    |        |		ADDA.W	D1,A7
00023820 2e 92                    |.       |		MOVE.L	(A2),(A7)
00023822 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00023826 48 c0                    |H       |		EXTW.L	D0
00023828 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002382a 1f 02                    |        |		MOVE.B	D2,-(A7)
0002382c 4e ba ea 4c              |N  L    |		JSR	0x2227a
00023830 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00023834 48 52                    |HR      |		PEA.L	(A2)
00023836 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002383c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002383e 4c df 07 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2
00023842 4e 5e                    |N^      |		UNLK	A6
00023844 4e 75                    |Nu      |		RTS
00023846 ; --------------------------------------------------------------------------------------
00023846 ; OMSI PASCAL Function
00023846 ;    <LVAR  0x00a @ 4(r)>
00023846 ;    <LVAR  0x008 2(r)>
00023846 ; --------------------------------------------------------------------------------------
00023846 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc		; Spelunked
0002384a bf d5                    |        |		CMPA.L	(A5),A7
0002384c 62 06                    |b       |		BHI	0x23854
0002384e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023852 4e 76                    |Nv      |		TRAPV
00023854 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00023858 48 e7 f0 e0              |H       |		MOVEM.L	A2+A1+A0+D3+D2+D1+D0,-(A7)
0002385c 45 ee 00 0a              |E       |		LEA.L	(A6+0xa),A2
00023860 72 01                    |r       |		MOVEQ.L	#0x01,D1
00023862 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00023864 76 14                    |v       |		MOVEQ.L	#0x14,D3
00023866 9e c2                    |        |		SUBA.W	D2,A7
00023868 20 4f                    | O      |		MOVEA.L	A7,A0
0002386a 43 fa d0 bc              |C       |		LEA.L	0x20928,A1
0002386e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023870 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023872 51 c8 ff fc              |Q       |		DBF	D0,0x23870
00023876 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023878 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002387c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002387e 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00023882 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023888 2e 92                    |.       |		MOVE.L	(A2),(A7)
0002388a 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00023890 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023892 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023898 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002389a 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000238a0 de c2                    |        |		ADDA.W	D2,A7
000238a2 2e 92                    |.       |		MOVE.L	(A2),(A7)
000238a4 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
000238a8 48 c0                    |H       |		EXTW.L	D0
000238aa 2f 00                    |/       |		MOVE.L	D0,-(A7)
000238ac 1f 01                    |        |		MOVE.B	D1,-(A7)
000238ae 4e ba e9 ca              |N       |		JSR	0x2227a
000238b2 de fc 00 0a              |        |		ADDA.W	#0xa,A7
000238b6 4e ba fd e4              |N       |		JSR	0x2369c
000238ba 9e c3                    |        |		SUBA.W	D3,A7
000238bc 20 4f                    | O      |		MOVEA.L	A7,A0
000238be 43 fa d0 76              |C  v    |		LEA.L	0x20936,A1
000238c2 70 12                    |p       |		MOVEQ.L	#0x12,D0
000238c4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000238c6 51 c8 ff fc              |Q       |		DBF	D0,0x238c4
000238ca 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000238cc 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000238d0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000238d2 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
000238d6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000238dc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000238de 1e 81                    |        |		MOVE.B	D1,(A7)
000238e0 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
000238e6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000238e8 4a 1f                    |J       |		TST.B	(A7)+
000238ea 67 0a                    |g       |		BEQ	0x238f6
000238ec 42 39 00 02 50 96        |B9  P   |		CLR.B	0x25096
000238f2 4e ba f5 06              |N       |		JSR	0x22dfa
000238f6 de c3                    |        |		ADDA.W	D3,A7
000238f8 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000238fe 48 52                    |HR      |		PEA.L	(A2)
00023900 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00023906 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023908 4c df 07 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2
0002390c 4e 5e                    |N^      |		UNLK	A6
0002390e 4e 75                    |Nu      |		RTS
00023910 ; --------------------------------------------------------------------------------------
00023910 ; OMSI PASCAL Function
00023910 ; --------------------------------------------------------------------------------------
00023910 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
00023914 bf d5                    |        |		CMPA.L	(A5),A7
00023916 62 06                    |b       |		BHI	0x2391e
00023918 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002391c 4e 76                    |Nv      |		TRAPV
0002391e de fc 00 52              |   R    |		ADDA.W	#0x52,A7
00023922 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00023926 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
0002392c 47 fa fe 98              |G       |		LEA.L	0x237c6,A3
00023930 49 fa ff 14              |I       |		LEA.L	0x23846,A4
00023934 72 01                    |r       |		MOVEQ.L	#0x01,D1
00023936 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00023938 76 21                    |v!      |		MOVEQ.L	#0x21,D3
0002393a 78 0e                    |x       |		MOVEQ.L	#0x0e,D4
0002393c 7a 08                    |z       |		MOVEQ.L	#0x08,D5
0002393e 7c 19                    ||       |		MOVEQ.L	#0x19,D6
00023940 7e 0d                    |~       |		MOVEQ.L	#0x0d,D7
00023942 2f 3a d0 0e              |/:      |		MOVE.L	0x20952,-(A7)
00023946 2f 3a d0 06              |/:      |		MOVE.L	0x2094e,-(A7)
0002394a 2f 3a cf fe              |/:      |		MOVE.L	0x2094a,-(A7)
0002394e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023950 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023954 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023956 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023958 4e 92                    |N       |		JSR	(A2)
0002395a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002395c 3e 83                    |>       |		MOVE.W	D3,(A7)
0002395e 4e 93                    |N       |		JSR	(A3)
00023960 de c4                    |        |		ADDA.W	D4,A7
00023962 2e ba cf f6              |.       |		MOVE.L	0x2095a,(A7)
00023966 2f 3a cf ee              |/:      |		MOVE.L	0x20956,-(A7)
0002396a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002396c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023970 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023972 3f 05                    |?       |		MOVE.W	D5,-(A7)
00023974 4e 92                    |N       |		JSR	(A2)
00023976 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023978 3e 86                    |>       |		MOVE.W	D6,(A7)
0002397a 4e 93                    |N       |		JSR	(A3)
0002397c 20 4f                    | O      |		MOVEA.L	A7,A0
0002397e 43 fa cf de              |C       |		LEA.L	0x2095e,A1
00023982 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023984 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023986 51 c8 ff fc              |Q       |		DBF	D0,0x23984
0002398a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002398c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023990 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023992 3f 07                    |?       |		MOVE.W	D7,-(A7)
00023994 4e 92                    |N       |		JSR	(A2)
00023996 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023998 3e bc 00 17              |>       |		MOVE.W	#0x17,(A7)
0002399c 4e 93                    |N       |		JSR	(A3)
0002399e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000239a0 20 4f                    | O      |		MOVEA.L	A7,A0
000239a2 43 fa cf c8              |C       |		LEA.L	0x2096c,A1
000239a6 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000239a8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000239aa 51 c8 ff fc              |Q       |		DBF	D0,0x239a8
000239ae 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000239b0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000239b4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000239b6 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
000239ba 4e 92                    |N       |		JSR	(A2)
000239bc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000239be 3e bc 00 15              |>       |		MOVE.W	#0x15,(A7)
000239c2 4e 93                    |N       |		JSR	(A3)
000239c4 de fc 00 12              |        |		ADDA.W	#0x12,A7
000239c8 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000239ce 42 27                    |B'      |		CLR.B	-(A7)
000239d0 4e ba fb e8              |N       |		JSR	0x235ba
000239d4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000239d6 2f 3a cf a8              |/:      |		MOVE.L	0x20980,-(A7)
000239da 2f 3a cf a0              |/:      |		MOVE.L	0x2097c,-(A7)
000239de 2f 3a cf 98              |/:      |		MOVE.L	0x20978,-(A7)
000239e2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000239e4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000239e8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000239ea 3f 02                    |?       |		MOVE.W	D2,-(A7)
000239ec 4e 92                    |N       |		JSR	(A2)
000239ee 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000239f0 3e 83                    |>       |		MOVE.W	D3,(A7)
000239f2 4e 94                    |N       |		JSR	(A4)
000239f4 de c4                    |        |		ADDA.W	D4,A7
000239f6 2e ba cf 90              |.       |		MOVE.L	0x20988,(A7)
000239fa 2f 3a cf 88              |/:      |		MOVE.L	0x20984,-(A7)
000239fe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023a00 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023a04 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023a06 3f 05                    |?       |		MOVE.W	D5,-(A7)
00023a08 4e 92                    |N       |		JSR	(A2)
00023a0a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023a0c 3e 86                    |>       |		MOVE.W	D6,(A7)
00023a0e 4e 94                    |N       |		JSR	(A4)
00023a10 20 4f                    | O      |		MOVEA.L	A7,A0
00023a12 43 fa cf 78              |C  x    |		LEA.L	0x2098c,A1
00023a16 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023a18 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023a1a 51 c8 ff fc              |Q       |		DBF	D0,0x23a18
00023a1e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023a20 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023a24 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023a26 3f 07                    |?       |		MOVE.W	D7,-(A7)
00023a28 4e 92                    |N       |		JSR	(A2)
00023a2a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023a2c 3e bc 00 17              |>       |		MOVE.W	#0x17,(A7)
00023a30 4e 94                    |N       |		JSR	(A4)
00023a32 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023a34 20 4f                    | O      |		MOVEA.L	A7,A0
00023a36 43 fa cf 62              |C  b    |		LEA.L	0x2099a,A1
00023a3a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00023a3c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023a3e 51 c8 ff fc              |Q       |		DBF	D0,0x23a3c
00023a42 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023a44 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023a48 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023a4a 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00023a4e 4e 92                    |N       |		JSR	(A2)
00023a50 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023a52 3e bc 00 15              |>       |		MOVE.W	#0x15,(A7)
00023a56 4e 94                    |N       |		JSR	(A4)
00023a58 de fc 00 10              |        |		ADDA.W	#0x10,A7
00023a5c 1e 81                    |        |		MOVE.B	D1,(A7)
00023a5e 4e ba fb 5a              |N  Z    |		JSR	0x235ba
00023a62 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023a64 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00023a6a 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00023a6e 4e 5e                    |N^      |		UNLK	A6
00023a70 4e 75                    |Nu      |		RTS
00023a72 ; --------------------------------------------------------------------------------------
00023a72 ; OMSI PASCAL Function
00023a72 ;    <LVAR  0x008 2(r)>
00023a72 ;    <LVAR -0x006 @>
00023a72 ;    <LVAR -0x00a @ 4(r)>
00023a72 ; --------------------------------------------------------------------------------------
00023a72 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8		; Spelunked
00023a76 bf d5                    |        |		CMPA.L	(A5),A7
00023a78 62 06                    |b       |		BHI	0x23a80
00023a7a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023a7e 4e 76                    |Nv      |		TRAPV
00023a80 de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00023a84 48 e7 e0 e0              |H       |		MOVEM.L	A2+A1+A0+D2+D1+D0,-(A7)
00023a88 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00023a8c 72 01                    |r       |		MOVEQ.L	#0x01,D1
00023a8e 74 14                    |t       |		MOVEQ.L	#0x14,D2
00023a90 3f 12                    |?       |		MOVE.W	(A2),-(A7)
00023a92 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00023a96 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00023a9a 4e ba d8 ec              |N       |		JSR	0x21388
00023a9e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023aa0 2e ba cf 08              |.       |		MOVE.L	0x209aa,(A7)
00023aa4 2f 3a cf 00              |/:      |		MOVE.L	0x209a6,-(A7)
00023aa8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023aaa 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00023aae 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023ab0 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00023ab4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023ab6 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00023aba 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023ac0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ac2 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023ac8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023aca 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00023ad0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ad2 2e 94                    |.       |		MOVE.L	(A4),(A7)
00023ad4 30 12                    |0       |		MOVE.W	(A2),D0
00023ad6 48 c0                    |H       |		EXTW.L	D0
00023ad8 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023ada 1f 01                    |        |		MOVE.B	D1,-(A7)
00023adc 4e ba e7 9c              |N       |		JSR	0x2227a
00023ae0 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00023ae4 4e ba fb b6              |N       |		JSR	0x2369c
00023ae8 9e c2                    |        |		SUBA.W	D2,A7
00023aea 20 4f                    | O      |		MOVEA.L	A7,A0
00023aec 43 fa ce c0              |C       |		LEA.L	0x209ae,A1
00023af0 70 12                    |p       |		MOVEQ.L	#0x12,D0
00023af2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023af4 51 c8 ff fc              |Q       |		DBF	D0,0x23af2
00023af8 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00023afa 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00023afe 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023b00 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00023b04 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023b0a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023b0c 1e 81                    |        |		MOVE.B	D1,(A7)
00023b0e 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00023b14 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023b16 4a 1f                    |J       |		TST.B	(A7)+
00023b18 67 1e                    |g       |		BEQ	0x23b38
00023b1a 42 39 00 02 50 96        |B9  P   |		CLR.B	0x25096
00023b20 42 79 00 02 90 c2        |By      |		CLR.W	0x290c2
00023b26 30 12                    |0       |		MOVE.W	(A2),D0
00023b28 0c 40 00 50              | @ P    |		CMPI.W	#0x0050,D0
00023b2c 6c 06                    |l       |		BGE	0x23b34
00023b2e 4e ba f2 ca              |N       |		JSR	0x22dfa
00023b32 60 04                    |`       |		BRA	0x23b38
00023b34 4e ba f4 f8              |N       |		JSR	0x2302e
00023b38 de c2                    |        |		ADDA.W	D2,A7
00023b3a 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00023b40 4c df 07 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2
00023b44 4e 5e                    |N^      |		UNLK	A6
00023b46 4e 75                    |Nu      |		RTS
00023b48 ; --------------------------------------------------------------------------------------
00023b48 ; OMSI PASCAL Function
00023b48 ;    <LVAR  0x008 1(r)>
00023b48 ;    <LVAR -0x006 @ 4(rw)>
00023b48 ;    <LVAR -0x00a @ 4(rw)>
00023b48 ; --------------------------------------------------------------------------------------
00023b48 4e 56 ff 98              |NV      |		LINK.W	A6,#0xff98
00023b4c bf d5                    |        |		CMPA.L	(A5),A7
00023b4e 62 06                    |b       |		BHI	0x23b56
00023b50 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023b54 4e 76                    |Nv      |		TRAPV
00023b56 de fc 00 5e              |   ^    |		ADDA.W	#0x5e,A7
00023b5a 48 e7 f0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
00023b5e 45 ee ff f6              |E       |		LEA.L	(A6-0xa),A2
00023b62 47 fa ff 0e              |G       |		LEA.L	0x23a72,A3
00023b66 72 01                    |r       |		MOVEQ.L	#0x01,D1
00023b68 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00023b6a 76 15                    |v       |		MOVEQ.L	#0x15,D3
00023b6c 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00023b70 67 08                    |g       |		BEQ	0x23b7a
00023b72 24 b9 00 02 90 b8        |$       |		MOVE.L	0x290b8,(A2)
00023b78 60 06                    |`       |		BRA	0x23b80
00023b7a 24 b9 00 02 90 b4        |$       |		MOVE.L	0x290b4,(A2)
00023b80 9e fc 00 16              |        |		SUBA.W	#0x16,A7
00023b84 20 4f                    | O      |		MOVEA.L	A7,A0
00023b86 43 fa ce 3a              |C  :    |		LEA.L	0x209c2,A1
00023b8a 70 14                    |p       |		MOVEQ.L	#0x14,D0
00023b8c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023b8e 51 c8 ff fc              |Q       |		DBF	D0,0x23b8c
00023b92 2f 3a ce 44              |/: D    |		MOVE.L	0x209d8,-(A7)
00023b96 9e c2                    |        |		SUBA.W	D2,A7
00023b98 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00023b9c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023b9e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00023ba0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023ba6 2e 92                    |.       |		MOVE.L	(A2),(A7)
00023ba8 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00023bae 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00023bb2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023bb4 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00023bb8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023bbe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023bc0 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00023bc6 de c2                    |        |		ADDA.W	D2,A7
00023bc8 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00023bce 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023bd0 2d 5f ff fa              |-_      |		MOVE.L	(A7)+,(A6-0x6)
00023bd4 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00023bd8 20 6e ff fa              | n      |		MOVEA.L	(A6-0x6),A0
00023bdc 30 10                    |0       |		MOVE.W	(A0),D0
00023bde b0 41                    | A      |		CMP.W	D1,D0
00023be0 6f 06                    |o       |		BLE	0x23be8
00023be2 24 ae ff fa              |$       |		MOVE.L	(A6-0x6),(A2)
00023be6 60 0c                    |`       |		BRA	0x23bf4
00023be8 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00023bec 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00023bf2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023bf4 42 27                    |B'      |		CLR.B	-(A7)
00023bf6 4e ba f9 c2              |N       |		JSR	0x235ba
00023bfa 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023bfc 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00023c00 67 1e                    |g       |		BEQ	0x23c20
00023c02 3f 3c 00 50              |?< P    |		MOVE.W	#0x50,-(A7)
00023c06 28 4a                    |(J      |		MOVEA.L	A2,A4
00023c08 4e 93                    |N       |		JSR	(A3)
00023c0a 3e bc 00 51              |>  Q    |		MOVE.W	#0x51,(A7)
00023c0e 28 4a                    |(J      |		MOVEA.L	A2,A4
00023c10 4e 93                    |N       |		JSR	(A3)
00023c12 3e bc 00 52              |>  R    |		MOVE.W	#0x52,(A7)
00023c16 28 4a                    |(J      |		MOVEA.L	A2,A4
00023c18 4e 93                    |N       |		JSR	(A3)
00023c1a 3e bc 00 53              |>  S    |		MOVE.W	#0x53,(A7)
00023c1e 60 1a                    |`       |		BRA	0x23c3a
00023c20 3f 3c 00 21              |?< !    |		MOVE.W	#0x21,-(A7)
00023c24 28 4a                    |(J      |		MOVEA.L	A2,A4
00023c26 4e 93                    |N       |		JSR	(A3)
00023c28 3e bc 00 19              |>       |		MOVE.W	#0x19,(A7)
00023c2c 28 4a                    |(J      |		MOVEA.L	A2,A4
00023c2e 4e 93                    |N       |		JSR	(A3)
00023c30 3e bc 00 17              |>       |		MOVE.W	#0x17,(A7)
00023c34 28 4a                    |(J      |		MOVEA.L	A2,A4
00023c36 4e 93                    |N       |		JSR	(A3)
00023c38 3e 83                    |>       |		MOVE.W	D3,(A7)
00023c3a 28 4a                    |(J      |		MOVEA.L	A2,A4
00023c3c 4e 93                    |N       |		JSR	(A3)
00023c3e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023c40 1f 01                    |        |		MOVE.B	D1,-(A7)
00023c42 4e ba f9 76              |N  v    |		JSR	0x235ba
00023c46 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023c48 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00023c4e 4c df 1f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
00023c52 4e 5e                    |N^      |		UNLK	A6
00023c54 4e 75                    |Nu      |		RTS
00023c56 ; --------------------------------------------------------------------------------------
00023c56 ; OMSI PASCAL Function
00023c56 ;    <LVAR  0x008 4(w)>
00023c56 ; --------------------------------------------------------------------------------------
00023c56 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00023c5a bf d5                    |        |		CMPA.L	(A5),A7
00023c5c 62 06                    |b       |		BHI	0x23c64
00023c5e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023c62 4e 76                    |Nv      |		TRAPV
00023c64 de fc 00 20              |        |		ADDA.W	#0x20,A7
00023c68 48 e7 f0 e0              |H       |		MOVEM.L	A2+A1+A0+D3+D2+D1+D0,-(A7)
00023c6c 43 f9 00 02 50 ac        |C   P   |		LEA.L	0x250ac,A1
00023c72 45 f9 00 02 50 88        |E   P   |		LEA.L	0x25088,A2
00023c78 26 3c 00 00 1f ff        |&<      |		MOVE.L	#0x1fff,D3
00023c7e 20 11                    |        |		MOVE.L	(A1),D0
00023c80 59 80                    |Y       |		SUBQ.L	#0x4,D0
00023c82 b0 83                    |        |		CMP.L	D3,D0
00023c84 63 02                    |c       |		BLS	0x23c88
00023c86 4e 4f                    |NO      |		TRAP	#15
00023c88 e3 80                    |        |		ASL.L	#0x1,D0
00023c8a 20 4a                    | J      |		MOVEA.L	A2,A0
00023c8c 32 30 08 2a              |20 *    |		MOVE.W	(A0+D0.L+#0x2a),D1
00023c90 48 c1                    |H       |		EXTW.L	D1
00023c92 e1 81                    |        |		ASL.L	#0x8,D1
00023c94 e1 81                    |        |		ASL.L	#0x8,D1
00023c96 20 11                    |        |		MOVE.L	(A1),D0
00023c98 57 80                    |W       |		SUBQ.L	#0x3,D0
00023c9a b0 83                    |        |		CMP.L	D3,D0
00023c9c 63 02                    |c       |		BLS	0x23ca0
00023c9e 4e 4f                    |NO      |		TRAP	#15
00023ca0 e3 80                    |        |		ASL.L	#0x1,D0
00023ca2 20 4a                    | J      |		MOVEA.L	A2,A0
00023ca4 30 30 08 2a              |00 *    |		MOVE.W	(A0+D0.L+#0x2a),D0
00023ca8 e1 40                    | @      |		ASL.W	#0x8,D0
00023caa 48 c0                    |H       |		EXTW.L	D0
00023cac d0 81                    |        |		ADD.L	D1,D0
00023cae 22 11                    |"       |		MOVE.L	(A1),D1
00023cb0 55 81                    |U       |		SUBQ.L	#0x2,D1
00023cb2 b2 83                    |        |		CMP.L	D3,D1
00023cb4 63 02                    |c       |		BLS	0x23cb8
00023cb6 4e 4f                    |NO      |		TRAP	#15
00023cb8 e3 81                    |        |		ASL.L	#0x1,D1
00023cba 20 4a                    | J      |		MOVEA.L	A2,A0
00023cbc 34 30 18 2a              |40 *    |		MOVE.W	(A0+D1.L+#0x2a),D2
00023cc0 48 c2                    |H       |		EXTW.L	D2
00023cc2 d4 80                    |        |		ADD.L	D0,D2
00023cc4 2d 42 00 08              |-B      |		MOVE.L	D2,(A6+0x8)
00023cc8 4c df 07 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2
00023ccc 4e 5e                    |N^      |		UNLK	A6
00023cce 4e 75                    |Nu      |		RTS
00023cd0 ; --------------------------------------------------------------------------------------
00023cd0 ; OMSI PASCAL Function
00023cd0 ;    <LVAR  0x008 4(w)>
00023cd0 ; --------------------------------------------------------------------------------------
00023cd0 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00023cd4 bf d5                    |        |		CMPA.L	(A5),A7
00023cd6 62 06                    |b       |		BHI	0x23cde
00023cd8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023cdc 4e 76                    |Nv      |		TRAPV
00023cde de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00023ce2 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00023ce6 41 f9 00 02 50 a8        |A   P   |		LEA.L	0x250a8,A0
00023cec 43 f9 00 02 50 ac        |C   P   |		LEA.L	0x250ac,A1
00023cf2 45 fa e7 b4              |E       |		LEA.L	0x224a8,A2
00023cf6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023cf8 20 10                    |        |		MOVE.L	(A0),D0
00023cfa d0 91                    |        |		ADD.L	(A1),D0
00023cfc 59 80                    |Y       |		SUBQ.L	#0x4,D0
00023cfe 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023d00 4e 92                    |N       |		JSR	(A2)
00023d02 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023d04 30 1f                    |0       |		MOVE.W	(A7)+,D0
00023d06 48 c0                    |H       |		EXTW.L	D0
00023d08 e1 80                    |        |		ASL.L	#0x8,D0
00023d0a e1 80                    |        |		ASL.L	#0x8,D0
00023d0c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023d0e 22 10                    |"       |		MOVE.L	(A0),D1
00023d10 d2 91                    |        |		ADD.L	(A1),D1
00023d12 57 81                    |W       |		SUBQ.L	#0x3,D1
00023d14 2f 01                    |/       |		MOVE.L	D1,-(A7)
00023d16 4e 92                    |N       |		JSR	(A2)
00023d18 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023d1a 32 1f                    |2       |		MOVE.W	(A7)+,D1
00023d1c e1 41                    | A      |		ASL.W	#0x8,D1
00023d1e 48 c1                    |H       |		EXTW.L	D1
00023d20 d2 80                    |        |		ADD.L	D0,D1
00023d22 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00023d24 20 10                    |        |		MOVE.L	(A0),D0
00023d26 d0 91                    |        |		ADD.L	(A1),D0
00023d28 55 80                    |U       |		SUBQ.L	#0x2,D0
00023d2a 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023d2c 4e 92                    |N       |		JSR	(A2)
00023d2e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023d30 30 1f                    |0       |		MOVE.W	(A7)+,D0
00023d32 48 c0                    |H       |		EXTW.L	D0
00023d34 d0 81                    |        |		ADD.L	D1,D0
00023d36 2d 40 00 08              |-@      |		MOVE.L	D0,(A6+0x8)
00023d3a 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00023d3e 4e 5e                    |N^      |		UNLK	A6
00023d40 4e 75                    |Nu      |		RTS
00023d42 ; --------------------------------------------------------------------------------------
00023d42 ; OMSI PASCAL Function
00023d42 ;    <LVAR  0x008 2(r)>
00023d42 ;    <LVAR -0x006 @ 4(r)>
00023d42 ;    <LVAR -0x00a @>
00023d42 ;    <LVAR -0x00e @ 4(r)>
00023d42 ; --------------------------------------------------------------------------------------
00023d42 4e 56 ff 68              |NV h    |		LINK.W	A6,#0xff68
00023d46 bf d5                    |        |		CMPA.L	(A5),A7
00023d48 62 06                    |b       |		BHI	0x23d50
00023d4a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023d4e 4e 76                    |Nv      |		TRAPV
00023d50 de fc 00 8a              |        |		ADDA.W	#0x8a,A7
00023d54 48 e7 ff f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00023d58 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00023d5e 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
00023d62 74 01                    |t       |		MOVEQ.L	#0x01,D2
00023d64 7a 50                    |zP      |		MOVEQ.L	#0x50,D5
00023d66 7c 10                    ||       |		MOVEQ.L	#0x10,D6
00023d68 7e 14                    |~       |		MOVEQ.L	#0x14,D7
00023d6a 3f 2e 00 08              |?.      |		MOVE.W	(A6+0x8),-(A7)
00023d6e 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00023d72 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00023d76 4e ba d6 10              |N       |		JSR	0x21388
00023d7a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023d7c 2e 94                    |.       |		MOVE.L	(A4),(A7)
00023d7e 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00023d82 48 c0                    |H       |		EXTW.L	D0
00023d84 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023d86 42 27                    |B'      |		CLR.B	-(A7)
00023d88 4e ba e4 f0              |N       |		JSR	0x2227a
00023d8c de fc 00 0a              |        |		ADDA.W	#0xa,A7
00023d90 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00023d94 b0 45                    | E      |		CMP.W	D5,D0
00023d96 6c 08                    |l       |		BGE	0x23da0
00023d98 48 53                    |HS      |		PEA.L	(A3)
00023d9a 4e ba eb f4              |N       |		JSR	0x22990
00023d9e 60 06                    |`       |		BRA	0x23da6
00023da0 48 53                    |HS      |		PEA.L	(A3)
00023da2 4e ba ec ae              |N       |		JSR	0x22a52
00023da6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023da8 2f 3a cc d2              |/:      |		MOVE.L	0x20a7c,-(A7)
00023dac 2f 3a cc ca              |/:      |		MOVE.L	0x20a78,-(A7)
00023db0 2f 3a cc c2              |/:      |		MOVE.L	0x20a74,-(A7)
00023db4 2f 3a cc ba              |/:      |		MOVE.L	0x20a70,-(A7)
00023db8 2f 3a cc d2              |/:      |		MOVE.L	0x20a8c,-(A7)
00023dbc 2f 3a cc ca              |/:      |		MOVE.L	0x20a88,-(A7)
00023dc0 2f 3a cc c2              |/:      |		MOVE.L	0x20a84,-(A7)
00023dc4 2f 3a cc ba              |/:      |		MOVE.L	0x20a80,-(A7)
00023dc8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023dca 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
00023dce 48 78 00 08              |Hx      |		PEA.L	0x8
00023dd2 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
00023dd8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023dda 48 6f 00 1c              |Ho      |		PEA.L	(A7+0x1c)
00023dde 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023de0 3f 06                    |?       |		MOVE.W	D6,-(A7)
00023de2 4e 92                    |N       |		JSR	(A2)
00023de4 4e ba fe ea              |N       |		JSR	0x23cd0
00023de8 48 78 00 06              |Hx      |		PEA.L	0x6
00023dec 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00023df2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023df4 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00023df8 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023dfa 3f 06                    |?       |		MOVE.W	D6,-(A7)
00023dfc 4e 92                    |N       |		JSR	(A2)
00023dfe 4e ba fe 56              |N  V    |		JSR	0x23c56
00023e02 48 78 00 06              |Hx      |		PEA.L	0x6
00023e06 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00023e0c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e0e 4e b9 00 01 02 dc        |N       |		JSR	StringCat5(a, b, c, d, e : String) : String
00023e14 de c7                    |        |		ADDA.W	D7,A7
00023e16 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00023e1c de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00023e20 42 34 00 05              |B4      |		CLR.B	(A4+D0.W+#0x5)
00023e24 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023e26 4e ba fe 2e              |N  .    |		JSR	0x23c56
00023e2a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023e2c 4e ba fe a2              |N       |		JSR	0x23cd0
00023e30 22 2f 00 04              |"/      |		MOVE.L	(A7+0x4),D1
00023e34 b2 9f                    |        |		CMP.L	(A7)+,D1
00023e36 6c 5e                    |l^      |		BGE	0x23e96
00023e38 41 fa cc 6e              |A  n    |		LEA.L	0x20aa8,A0
00023e3c 72 05                    |r       |		MOVEQ.L	#0x05,D1
00023e3e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00023e40 51 c9 ff fc              |Q       |		DBF	D1,0x23e3e
00023e44 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023e46 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023e4a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023e4c 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
00023e50 4e 92                    |N       |		JSR	(A2)
00023e52 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023e54 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023e5a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023e5c 20 4f                    | O      |		MOVEA.L	A7,A0
00023e5e 43 fa cb f0              |C       |		LEA.L	0x20a50,A1
00023e62 72 1e                    |r       |		MOVEQ.L	#0x1e,D1
00023e64 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023e66 51 c9 ff fc              |Q       |		DBF	D1,0x23e64
00023e6a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00023e6c 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00023e70 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023e72 3f 3c 00 1f              |?<      |		MOVE.W	#0x1f,-(A7)
00023e76 4e 92                    |N       |		JSR	(A2)
00023e78 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023e7a 42 17                    |B       |		CLR.B	(A7)
00023e7c 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00023e82 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023e84 12 1f                    |        |		MOVE.B	(A7)+,D1
00023e86 48 81                    |H       |		EXTB.W	D1
00023e88 43 82                    |C       |		CHK.W	D2,D1
00023e8a de fc 00 20              |        |		ADDA.W	#0x20,A7
00023e8e 19 81 00 05              |        |		MOVE.B	D1,(A4+D0.W+#0x5)
00023e92 60 00 00 c0              |`       |		BRA	0x23f54
00023e96 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023e98 4e ba fd bc              |N       |		JSR	0x23c56
00023e9c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023e9e 4e ba fe 30              |N  0    |		JSR	0x23cd0
00023ea2 22 2f 00 04              |"/      |		MOVE.L	(A7+0x4),D1
00023ea6 b2 9f                    |        |		CMP.L	(A7)+,D1
00023ea8 6f 2c                    |o,      |		BLE	0x23ed6
00023eaa 41 fa cc 12              |A       |		LEA.L	0x20abe,A0
00023eae 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
00023eb0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023eb2 51 c9 ff fc              |Q       |		DBF	D1,0x23eb0
00023eb6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023eb8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023ebc 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023ebe 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
00023ec2 4e 92                    |N       |		JSR	(A2)
00023ec4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ec6 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023ecc de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00023ed0 19 82 00 05              |        |		MOVE.B	D2,(A4+D0.W+#0x5)
00023ed4 60 7c                    |`|      |		BRA	0x23f52
00023ed6 4a 93                    |J       |		TST.L	(A3)
00023ed8 6f 4e                    |oN      |		BLE	0x23f28
00023eda 41 fa cb f8              |A       |		LEA.L	0x20ad4,A0
00023ede 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
00023ee0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023ee2 51 c9 ff fc              |Q       |		DBF	D1,0x23ee0
00023ee6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023ee8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023eec 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023eee 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
00023ef2 4e 92                    |N       |		JSR	(A2)
00023ef4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ef6 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023efc de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00023f00 41 fa cb 4e              |A  N    |		LEA.L	0x20a50,A0
00023f04 72 0f                    |r       |		MOVEQ.L	#0x0f,D1
00023f06 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00023f08 51 c9 ff fc              |Q       |		DBF	D1,0x23f06
00023f0c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023f0e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023f12 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023f14 3f 3c 00 40              |?< @    |		MOVE.W	#0x40,-(A7)
00023f18 4e 92                    |N       |		JSR	(A2)
00023f1a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023f1c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023f22 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
00023f26 60 a8                    |`       |		BRA	0x23ed0
00023f28 9e c7                    |        |		SUBA.W	D7,A7
00023f2a 20 4f                    | O      |		MOVEA.L	A7,A0
00023f2c 43 fa cb a6              |C       |		LEA.L	0x20ad4,A1
00023f30 72 12                    |r       |		MOVEQ.L	#0x12,D1
00023f32 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023f34 51 c9 ff fc              |Q       |		DBF	D1,0x23f32
00023f38 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023f3a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023f3e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023f40 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00023f44 4e 92                    |N       |		JSR	(A2)
00023f46 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023f48 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023f4e de fc 00 18              |        |		ADDA.W	#0x18,A7
00023f52 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023f54 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023f56 4a 34 00 05              |J4      |		TST.B	(A4+D0.W+#0x5)
00023f5a 67 2c                    |g,      |		BEQ	0x23f88
00023f5c 19 42 00 04              | B      |		MOVE.B	D2,(A4+0x4)
00023f60 5a ac 01 06              |Z       |		ADDQ.L	#0x5,(A4+0x106)
00023f64 b0 45                    | E      |		CMP.W	D5,D0
00023f66 6c 1c                    |l       |		BGE	0x23f84
00023f68 28 13                    |(       |		MOVE.L	(A3),D4
00023f6a 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00023f6c 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00023f72 26 3c 00 00 03 e8        |&<      |		MOVE.L	#0x3e8,D3
00023f78 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00023f7e d9 ac 01 06              |        |		ADD.L	D4,(A4+0x106)
00023f82 60 04                    |`       |		BRA	0x23f88
00023f84 5c ac 01 06              |\       |		ADDQ.L	#0x6,(A4+0x106)
00023f88 4c df 0f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00023f8c 4e 5e                    |N^      |		UNLK	A6
00023f8e 4e 75                    |Nu      |		RTS
00023f90 ; --------------------------------------------------------------------------------------
00023f90 ; OMSI PASCAL Function
00023f90 ;    <LVAR  0x008 2(r)>
00023f90 ;    <LVAR -0x006 @>
00023f90 ;    <LVAR -0x00a @ 4(r)>
00023f90 ; --------------------------------------------------------------------------------------
00023f90 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
00023f94 bf d5                    |        |		CMPA.L	(A5),A7
00023f96 62 06                    |b       |		BHI	0x23f9e
00023f98 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023f9c 4e 76                    |Nv      |		TRAPV
00023f9e de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00023fa2 48 e7 e0 00              |H       |		MOVEM.L	D2+D1+D0,-(A7)
00023fa6 74 10                    |t       |		MOVEQ.L	#0x10,D2
00023fa8 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00023fac 4a 34 00 05              |J4      |		TST.B	(A4+D0.W+#0x5)
00023fb0 67 70                    |gp      |		BEQ	0x24022
00023fb2 3f 00                    |?       |		MOVE.W	D0,-(A7)
00023fb4 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00023fb8 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00023fbc 4e ba d3 ca              |N       |		JSR	0x21388
00023fc0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023fc2 2e ba cb 30              |.  0    |		MOVE.L	0x20af4,(A7)
00023fc6 2f 3a cb 28              |/: (    |		MOVE.L	0x20af0,-(A7)
00023fca 2f 3a cb 20              |/:      |		MOVE.L	0x20aec,-(A7)
00023fce 2f 3a cb 18              |/:      |		MOVE.L	0x20ae8,-(A7)
00023fd2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023fd4 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00023fd8 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00023fdc 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023fde 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023fe4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023fe6 2e ae ff f6              |.       |		MOVE.L	(A6-0xa),(A7)
00023fea 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023ff0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023ff2 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023ff8 de c2                    |        |		ADDA.W	D2,A7
00023ffa 2e 94                    |.       |		MOVE.L	(A4),(A7)
00023ffc 32 00                    |2       |		MOVE.W	D0,D1
00023ffe 48 c1                    |H       |		EXTW.L	D1
00024000 2f 01                    |/       |		MOVE.L	D1,-(A7)
00024002 42 27                    |B'      |		CLR.B	-(A7)
00024004 4e ba e2 74              |N  t    |		JSR	0x2227a
00024008 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002400c 42 39 00 02 50 96        |B9  P   |		CLR.B	0x25096
00024012 0c 40 00 50              | @ P    |		CMPI.W	#0x0050,D0
00024016 6c 06                    |l       |		BGE	0x2401e
00024018 4e ba ed e0              |N       |		JSR	0x22dfa
0002401c 60 04                    |`       |		BRA	0x24022
0002401e 4e ba f0 0e              |N       |		JSR	0x2302e
00024022 4c df 00 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2
00024026 4e 5e                    |N^      |		UNLK	A6
00024028 4e 75                    |Nu      |		RTS
0002402a ; --------------------------------------------------------------------------------------
0002402a ; OMSI PASCAL Function
0002402a ; --------------------------------------------------------------------------------------
0002402a 4e 56 ff ee              |NV      |		LINK.W	A6,#0xffee
0002402e bf d5                    |        |		CMPA.L	(A5),A7
00024030 62 06                    |b       |		BHI	0x24038
00024032 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024036 4e 76                    |Nv      |		TRAPV
00024038 de fc 00 12              |        |		ADDA.W	#0x12,A7
0002403c 3f 3a ca ba              |?:      |		MOVE.W	0x20af8,-(A7)
00024040 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024042 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024046 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002404a 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
0002404e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024054 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024056 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002405c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002405e 4e 5e                    |N^      |		UNLK	A6
00024060 4e 75                    |Nu      |		RTS
00024062 ; --------------------------------------------------------------------------------------
00024062 ; OMSI PASCAL Function
00024062 ;    <LVAR -0x00a 4(rw)>
00024062 ;    <LVAR -0x0bb 1(w)>
00024062 ;    <LVAR -0x10c 1(rw)>
00024062 ;    <LVAR -0x110 @ 4(w)>
00024062 ; --------------------------------------------------------------------------------------
00024062 4e 56 fe 64              |NV d    |		LINK.W	A6,#0xfe64
00024066 bf d5                    |        |		CMPA.L	(A5),A7
00024068 62 06                    |b       |		BHI	0x24070
0002406a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002406e 4e 76                    |Nv      |		TRAPV
00024070 de fc 00 8c              |        |		ADDA.W	#0x8c,A7
00024074 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00024078 45 ee fe f0              |E       |		LEA.L	(A6-0x110),A2
0002407c 47 f9 00 02 90 be        |G       |		LEA.L	0x290be,A3
00024082 72 01                    |r       |		MOVEQ.L	#0x01,D1
00024084 34 3c 00 ff              |4<      |		MOVE.W	#0xff,D2
00024088 76 15                    |v       |		MOVEQ.L	#0x15,D3
0002408a 78 21                    |x!      |		MOVEQ.L	#0x21,D4
0002408c 7a 19                    |z       |		MOVEQ.L	#0x19,D5
0002408e 9e fc 00 34              |   4    |		SUBA.W	#0x34,A7
00024092 20 4f                    | O      |		MOVEA.L	A7,A0
00024094 43 fa c9 46              |C  F    |		LEA.L	0x209dc,A1
00024098 70 32                    |p2      |		MOVEQ.L	#0x32,D0
0002409a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002409c 51 c8 ff fc              |Q       |		DBF	D0,0x2409a
000240a0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000240a2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000240a6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000240a8 3f 3c 00 33              |?< 3    |		MOVE.W	#0x33,-(A7)
000240ac 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000240b2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000240b4 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000240ba de fc 00 38              |   8    |		ADDA.W	#0x38,A7
000240be 42 2e fe f4              |B.      |		CLR.B	(A6-0x10c)
000240c2 2d 41 ff f6              |-A      |		MOVE.L	D1,(A6-0xa)
000240c6 24 b9 00 02 90 b4        |$       |		MOVE.L	0x290b4,(A2)
000240cc 3f 04                    |?       |		MOVE.W	D4,-(A7)
000240ce 28 4a                    |(J      |		MOVEA.L	A2,A4
000240d0 4e ba fc 70              |N  p    |		JSR	0x23d42
000240d4 3e 85                    |>       |		MOVE.W	D5,(A7)
000240d6 28 4a                    |(J      |		MOVEA.L	A2,A4
000240d8 4e ba fc 68              |N  h    |		JSR	0x23d42
000240dc 3e bc 00 17              |>       |		MOVE.W	#0x17,(A7)
000240e0 28 4a                    |(J      |		MOVEA.L	A2,A4
000240e2 4e ba fc 5e              |N  ^    |		JSR	0x23d42
000240e6 3e 83                    |>       |		MOVE.W	D3,(A7)
000240e8 28 4a                    |(J      |		MOVEA.L	A2,A4
000240ea 4e ba fc 56              |N  V    |		JSR	0x23d42
000240ee 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000240f0 42 79 00 02 90 c0        |By      |		CLR.W	0x290c0
000240f6 4a 53                    |JS      |		TST.W	(A3)
000240f8 6f 00 00 94              |o       |		BLE	0x2418e
000240fc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000240fe 48 78 01 05              |Hx      |		PEA.L	0x105
00024102 4e b9 00 01 05 92        |N       |		JSR	ReadConfig(where : Long) : Word
00024108 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002410a 30 1f                    |0       |		MOVE.W	(A7)+,D0
0002410c 41 82                    |A       |		CHK.W	D2,D0
0002410e 3e 00                    |>       |		MOVE.W	D0,D7
00024110 be 79 00 02 90 bc        | y      |		CMP.W	0x290bc,D7
00024116 6d 3a                    |m:      |		BLT	0x24152
00024118 be 53                    | S      |		CMP.W	(A3),D7
0002411a 6c 36                    |l6      |		BGE	0x24152
0002411c 33 d3 00 02 90 c0        |3       |		MOVE.W	(A3),0x290c0
00024122 1d 41 fe f4              | A      |		MOVE.B	D1,(A6-0x10c)
00024126 41 fa ca 08              |A       |		LEA.L	0x20b30,A0
0002412a 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
0002412c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002412e 51 c8 ff fc              |Q       |		DBF	D0,0x2412c
00024132 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024134 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024138 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002413a 3f 3c 00 36              |?< 6    |		MOVE.W	#0x36,-(A7)
0002413e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024144 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024146 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002414c de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00024150 60 3c                    |`<      |		BRA	0x2418e
00024152 be 79 00 02 90 bc        | y      |		CMP.W	0x290bc,D7
00024158 6c 34                    |l4      |		BGE	0x2418e
0002415a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002415c 1e ba c9 d2              |        |		MOVE.B	0x20b30,(A7)
00024160 1f 7a c9 cf 00 01        | z      |		MOVE.B	0x20b31,(A7+0x1)
00024166 1f 7a c9 ca 00 02        | z      |		MOVE.B	0x20b32,(A7+0x2)
0002416c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002416e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024172 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024174 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00024178 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002417e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024180 4f 82                    |O       |		CHK.W	D2,D7
00024182 3f 07                    |?       |		MOVE.W	D7,-(A7)
00024184 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00024186 4e ba fe a2              |N       |		JSR	0x2402a
0002418a de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002418e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024190 4e b9 00 01 06 04        |N       |		JSR	Is_fc07_three() : Bool
00024196 4a 1f                    |J       |		TST.B	(A7)+
00024198 66 0e                    |f       |		BNE	0x241a8
0002419a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002419c 4e b9 00 01 06 0a        |N       |		JSR	Is_fc07_four() : Bool
000241a2 4a 1f                    |J       |		TST.B	(A7)+
000241a4 67 00 00 e4              |g       |		BEQ	0x2428a
000241a8 24 b9 00 02 90 b8        |$       |		MOVE.L	0x290b8,(A2)
000241ae 3f 3c 00 50              |?< P    |		MOVE.W	#0x50,-(A7)
000241b2 28 4a                    |(J      |		MOVEA.L	A2,A4
000241b4 4e ba fb 8c              |N       |		JSR	0x23d42
000241b8 3e bc 00 51              |>  Q    |		MOVE.W	#0x51,(A7)
000241bc 28 4a                    |(J      |		MOVEA.L	A2,A4
000241be 4e ba fb 82              |N       |		JSR	0x23d42
000241c2 3e bc 00 52              |>  R    |		MOVE.W	#0x52,(A7)
000241c6 28 4a                    |(J      |		MOVEA.L	A2,A4
000241c8 4e ba fb 78              |N  x    |		JSR	0x23d42
000241cc 3e bc 00 53              |>  S    |		MOVE.W	#0x53,(A7)
000241d0 28 4a                    |(J      |		MOVEA.L	A2,A4
000241d2 4e ba fb 6e              |N  n    |		JSR	0x23d42
000241d6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000241d8 42 79 00 02 90 c2        |By      |		CLR.W	0x290c2
000241de 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000241e0 4e b9 00 02 4d b6        |N   M   |		JSR	0x24db6
000241e6 2c 1f                    |,       |		MOVE.L	(A7)+,D6
000241e8 67 00 00 a0              |g       |		BEQ	0x2428a
000241ec 4a 53                    |JS      |		TST.W	(A3)
000241ee 6f 00 00 9a              |o       |		BLE	0x2428a
000241f2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000241f4 2f 06                    |/       |		MOVE.L	D6,-(A7)
000241f6 58 97                    |X       |		ADDQ.L	#0x4,(A7)
000241f8 4e ba e2 ae              |N       |		JSR	0x224a8
000241fc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000241fe 30 1f                    |0       |		MOVE.W	(A7)+,D0
00024200 41 82                    |A       |		CHK.W	D2,D0
00024202 3e 00                    |>       |		MOVE.W	D0,D7
00024204 be 79 00 02 90 bc        | y      |		CMP.W	0x290bc,D7
0002420a 6d 44                    |mD      |		BLT	0x24250
0002420c be 53                    | S      |		CMP.W	(A3),D7
0002420e 6c 40                    |l@      |		BGE	0x24250
00024210 33 d3 00 02 90 c2        |3       |		MOVE.W	(A3),0x290c2
00024216 1d 41 fe f4              | A      |		MOVE.B	D1,(A6-0x10c)
0002421a 1d 41 ff 45              | A E    |		MOVE.B	D1,(A6-0xbb)
0002421e 9e fc 00 36              |   6    |		SUBA.W	#0x36,A7
00024222 20 4f                    | O      |		MOVEA.L	A7,A0
00024224 43 fa c9 0e              |C       |		LEA.L	0x20b34,A1
00024228 70 34                    |p4      |		MOVEQ.L	#0x34,D0
0002422a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002422c 51 c8 ff fc              |Q       |		DBF	D0,0x2422a
00024230 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024232 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024236 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024238 3f 3c 00 35              |?< 5    |		MOVE.W	#0x35,-(A7)
0002423c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024242 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024244 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002424a de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
0002424e 60 3a                    |`:      |		BRA	0x2428a
00024250 be 79 00 02 90 bc        | y      |		CMP.W	0x290bc,D7
00024256 6c 32                    |l2      |		BGE	0x2428a
00024258 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002425a 20 4f                    | O      |		MOVEA.L	A7,A0
0002425c 43 fa c9 0c              |C       |		LEA.L	0x20b6a,A1
00024260 70 04                    |p       |		MOVEQ.L	#0x04,D0
00024262 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024264 51 c8 ff fc              |Q       |		DBF	D0,0x24262
00024268 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002426a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002426e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024270 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00024274 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002427a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002427c 4f 82                    |O       |		CHK.W	D2,D7
0002427e 3f 07                    |?       |		MOVE.W	D7,-(A7)
00024280 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00024282 4e ba fd a6              |N       |		JSR	0x2402a
00024286 de fc 00 0e              |        |		ADDA.W	#0xe,A7
0002428a 4a 2e fe f4              |J.      |		TST.B	(A6-0x10c)
0002428e 66 2e                    |f.      |		BNE	0x242be
00024290 41 fa c8 f6              |A       |		LEA.L	0x20b88,A0
00024294 70 05                    |p       |		MOVEQ.L	#0x05,D0
00024296 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00024298 51 c8 ff fc              |Q       |		DBF	D0,0x24296
0002429c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002429e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000242a2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000242a4 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
000242a8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000242ae 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000242b0 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000242b6 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000242ba 60 00 01 68              |`  h    |		BRA	0x24424
000242be 9e fc 00 26              |   &    |		SUBA.W	#0x26,A7
000242c2 20 4f                    | O      |		MOVEA.L	A7,A0
000242c4 43 fa c8 c2              |C       |		LEA.L	0x20b88,A1
000242c8 70 24                    |p$      |		MOVEQ.L	#0x24,D0
000242ca 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000242cc 51 c8 ff fc              |Q       |		DBF	D0,0x242ca
000242d0 9e fc 00 16              |        |		SUBA.W	#0x16,A7
000242d4 20 4f                    | O      |		MOVEA.L	A7,A0
000242d6 43 fa c8 d6              |C       |		LEA.L	0x20bae,A1
000242da 70 14                    |p       |		MOVEQ.L	#0x14,D0
000242dc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000242de 51 c8 ff fc              |Q       |		DBF	D0,0x242dc
000242e2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000242e4 48 6f 00 1e              |Ho      |		PEA.L	(A7+0x1e)
000242e8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000242ea 3f 3c 00 25              |?< %    |		MOVE.W	#0x25,-(A7)
000242ee 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000242f4 2e ae ff f6              |.       |		MOVE.L	(A6-0xa),(A7)
000242f8 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000242fe 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00024302 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024304 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024306 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002430c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002430e 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00024314 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024318 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002431e de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00024322 42 17                    |B       |		CLR.B	(A7)
00024324 4e ba f2 94              |N       |		JSR	0x235ba
00024328 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002432a 24 b9 00 02 90 b4        |$       |		MOVE.L	0x290b4,(A2)
00024330 3f 04                    |?       |		MOVE.W	D4,-(A7)
00024332 28 4a                    |(J      |		MOVEA.L	A2,A4
00024334 4e ba fc 5a              |N  Z    |		JSR	0x23f90
00024338 3e 85                    |>       |		MOVE.W	D5,(A7)
0002433a 28 4a                    |(J      |		MOVEA.L	A2,A4
0002433c 4e ba fc 52              |N  R    |		JSR	0x23f90
00024340 3e bc 00 17              |>       |		MOVE.W	#0x17,(A7)
00024344 28 4a                    |(J      |		MOVEA.L	A2,A4
00024346 4e ba fc 48              |N  H    |		JSR	0x23f90
0002434a 3e 83                    |>       |		MOVE.W	D3,(A7)
0002434c 28 4a                    |(J      |		MOVEA.L	A2,A4
0002434e 4e ba fc 40              |N  @    |		JSR	0x23f90
00024352 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024354 4a 79 00 02 90 c0        |Jy      |		TST.W	0x290c0
0002435a 6f 4e                    |oN      |		BLE	0x243aa
0002435c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002435e 48 78 01 05              |Hx      |		PEA.L	0x105
00024362 4e b9 00 01 05 92        |N       |		JSR	ReadConfig(where : Long) : Word
00024368 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002436a 30 1f                    |0       |		MOVE.W	(A7)+,D0
0002436c 41 82                    |A       |		CHK.W	D2,D0
0002436e 3e 00                    |>       |		MOVE.W	D0,D7
00024370 48 78 01 05              |Hx      |		PEA.L	0x105
00024374 3f 39 00 02 90 c0        |?9      |		MOVE.W	0x290c0,-(A7)
0002437a 4e b9 00 01 05 98        |N       |		JSR	WriteConfig(what: Word; where : Long)
00024380 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024382 48 78 01 08              |Hx      |		PEA.L	0x108
00024386 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024388 48 78 01 08              |Hx      |		PEA.L	0x108
0002438c 4e b9 00 01 05 92        |N       |		JSR	ReadConfig(where : Long) : Word
00024392 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024394 df 57                    | W      |		ADD.W	D7,(A7)
00024396 30 17                    |0       |		MOVE.W	(A7),D0
00024398 90 79 00 02 90 c0        | y      |		SUB.W	0x290c0,D0
0002439e c0 42                    | B      |		AND.W	D2,D0
000243a0 3e 80                    |>       |		MOVE.W	D0,(A7)
000243a2 4e b9 00 01 05 98        |N       |		JSR	WriteConfig(what: Word; where : Long)
000243a8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000243aa 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000243ac 4e b9 00 01 06 04        |N       |		JSR	Is_fc07_three() : Bool
000243b2 4a 1f                    |J       |		TST.B	(A7)+
000243b4 66 0c                    |f       |		BNE	0x243c2
000243b6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000243b8 4e b9 00 01 06 0a        |N       |		JSR	Is_fc07_four() : Bool
000243be 4a 1f                    |J       |		TST.B	(A7)+
000243c0 67 30                    |g0      |		BEQ	0x243f2
000243c2 24 b9 00 02 90 b8        |$       |		MOVE.L	0x290b8,(A2)
000243c8 3f 3c 00 51              |?< Q    |		MOVE.W	#0x51,-(A7)
000243cc 28 4a                    |(J      |		MOVEA.L	A2,A4
000243ce 4e ba fb c0              |N       |		JSR	0x23f90
000243d2 3e bc 00 52              |>  R    |		MOVE.W	#0x52,(A7)
000243d6 28 4a                    |(J      |		MOVEA.L	A2,A4
000243d8 4e ba fb b6              |N       |		JSR	0x23f90
000243dc 3e bc 00 53              |>  S    |		MOVE.W	#0x53,(A7)
000243e0 28 4a                    |(J      |		MOVEA.L	A2,A4
000243e2 4e ba fb ac              |N       |		JSR	0x23f90
000243e6 3e bc 00 50              |>  P    |		MOVE.W	#0x50,(A7)
000243ea 28 4a                    |(J      |		MOVEA.L	A2,A4
000243ec 4e ba fb a2              |N       |		JSR	0x23f90
000243f0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000243f2 1f 01                    |        |		MOVE.B	D1,-(A7)
000243f4 4e ba f1 c4              |N       |		JSR	0x235ba
000243f8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000243fa 41 fa c7 e6              |A       |		LEA.L	0x20be2,A0
000243fe 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00024400 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024402 51 c8 ff fc              |Q       |		DBF	D0,0x24400
00024406 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024408 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002440c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002440e 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
00024412 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024418 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002441a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00024420 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00024424 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00024428 4e 5e                    |N^      |		UNLK	A6
0002442a 4e 75                    |Nu      |		RTS
0002442c ; --------------------------------------------------------------------------------------
0002442c ; OMSI PASCAL Function
0002442c ; --------------------------------------------------------------------------------------
0002442c 4e 56 ff 94              |NV      |		LINK.W	A6,#0xff94
00024430 bf d5                    |        |		CMPA.L	(A5),A7
00024432 62 06                    |b       |		BHI	0x2443a
00024434 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024438 4e 76                    |Nv      |		TRAPV
0002443a de fc 00 68              |   h    |		ADDA.W	#0x68,A7
0002443e 48 e7 f1 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
00024442 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00024448 47 f9 00 01 03 e0        |G       |		LEA.L	WriteConsoleStringCrLf(str : String),A3
0002444e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00024450 74 33                    |t3      |		MOVEQ.L	#0x33,D2
00024452 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00024454 2f 3a c7 94              |/:      |		MOVE.L	0x20bea,-(A7)
00024458 2f 3a c7 8c              |/:      |		MOVE.L	0x20be6,-(A7)
0002445c 2f 3a c7 84              |/:      |		MOVE.L	0x20be2,-(A7)
00024460 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024462 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024466 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024468 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002446a 4e 92                    |N       |		JSR	(A2)
0002446c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002446e 4e 93                    |N       |		JSR	(A3)
00024470 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024472 20 4f                    | O      |		MOVEA.L	A7,A0
00024474 43 fa c7 78              |C  x    |		LEA.L	0x20bee,A1
00024478 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002447a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002447c 51 c8 ff fc              |Q       |		DBF	D0,0x2447a
00024480 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024482 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024486 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024488 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
0002448c 4e 92                    |N       |		JSR	(A2)
0002448e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024490 4e 93                    |N       |		JSR	(A3)
00024492 9e fc 00 22              |   "    |		SUBA.W	#0x22,A7
00024496 20 4f                    | O      |		MOVEA.L	A7,A0
00024498 43 fa c7 62              |C  b    |		LEA.L	0x20bfc,A1
0002449c 70 32                    |p2      |		MOVEQ.L	#0x32,D0
0002449e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000244a0 51 c8 ff fc              |Q       |		DBF	D0,0x2449e
000244a4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000244a6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000244aa 3f 01                    |?       |		MOVE.W	D1,-(A7)
000244ac 3f 02                    |?       |		MOVE.W	D2,-(A7)
000244ae 4e 92                    |N       |		JSR	(A2)
000244b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000244b2 4e 93                    |N       |		JSR	(A3)
000244b4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000244b6 20 4f                    | O      |		MOVEA.L	A7,A0
000244b8 43 fa c7 76              |C  v    |		LEA.L	0x20c30,A1
000244bc 70 32                    |p2      |		MOVEQ.L	#0x32,D0
000244be 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000244c0 51 c8 ff fc              |Q       |		DBF	D0,0x244be
000244c4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000244c6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000244ca 3f 01                    |?       |		MOVE.W	D1,-(A7)
000244cc 3f 02                    |?       |		MOVE.W	D2,-(A7)
000244ce 4e 92                    |N       |		JSR	(A2)
000244d0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000244d2 4e 93                    |N       |		JSR	(A3)
000244d4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000244d6 20 4f                    | O      |		MOVEA.L	A7,A0
000244d8 43 fa c7 8a              |C       |		LEA.L	0x20c64,A1
000244dc 70 32                    |p2      |		MOVEQ.L	#0x32,D0
000244de 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000244e0 51 c8 ff fc              |Q       |		DBF	D0,0x244de
000244e4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000244e6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000244ea 3f 01                    |?       |		MOVE.W	D1,-(A7)
000244ec 3f 02                    |?       |		MOVE.W	D2,-(A7)
000244ee 4e 92                    |N       |		JSR	(A2)
000244f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000244f2 4e 93                    |N       |		JSR	(A3)
000244f4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000244f6 20 4f                    | O      |		MOVEA.L	A7,A0
000244f8 43 fa c7 9e              |C       |		LEA.L	0x20c98,A1
000244fc 70 32                    |p2      |		MOVEQ.L	#0x32,D0
000244fe 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024500 51 c8 ff fc              |Q       |		DBF	D0,0x244fe
00024504 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024506 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002450a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002450c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002450e 4e 92                    |N       |		JSR	(A2)
00024510 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024512 4e 93                    |N       |		JSR	(A3)
00024514 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00024518 20 4f                    | O      |		MOVEA.L	A7,A0
0002451a 43 fa c7 b0              |C       |		LEA.L	0x20ccc,A1
0002451e 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00024520 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024522 51 c8 ff fc              |Q       |		DBF	D0,0x24520
00024526 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024528 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002452c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002452e 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00024532 4e 92                    |N       |		JSR	(A2)
00024534 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024536 48 78 00 00              |Hx      |		PEA.L	0x0
0002453a 48 78 00 04              |Hx      |		PEA.L	0x4
0002453e 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00024544 de c3                    |        |		ADDA.W	D3,A7
00024546 2e 1f                    |.       |		MOVE.L	(A7)+,D7
00024548 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002454c 20 07                    |        |		MOVE.L	D7,D0
0002454e 0c 80 00 00 00 04        |        |		CMPI.L	#0x00000004,D0
00024554 63 02                    |c       |		BLS	0x24558
00024556 4e 4e                    |NN      |		TRAP	#14
00024558 d0 40                    | @      |		ADD.W	D0,D0
0002455a 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00024562 00 0a                    |        |		.CONST	0xa			; [0x0] -> 0x2456c
00024564 00 0c                    |        |		.CONST	0xc			; [0x1] -> 0x2456e
00024566 00 14                    |        |		.CONST	0x14			; [0x2] -> 0x24576
00024568 00 1c                    |        |		.CONST	0x1c			; [0x3] -> 0x2457e
0002456a 00 24                    | $      |		.CONST	0x24			; [0x4] -> 0x24586
0002456c					switch@0x2455a[0x0]:
0002456c 60 24                    |`$      |		BRA	0x24592
0002456e					switch@0x2455a[0x1]:
0002456e 2f 3c 80 00 1f ff        |/<      |		MOVE.L	#0x80001fff,-(A7)
00024574 60 16                    |`       |		BRA	0x2458c
00024576					switch@0x2455a[0x2]:
00024576 2f 3c 80 00 3f ff        |/<  ?   |		MOVE.L	#0x80003fff,-(A7)
0002457c 60 0e                    |`       |		BRA	0x2458c
0002457e					switch@0x2455a[0x3]:
0002457e 2f 3c 80 00 5f ff        |/<  _   |		MOVE.L	#0x80005fff,-(A7)
00024584 60 06                    |`       |		BRA	0x2458c
00024586					switch@0x2455a[0x4]:
00024586 2f 3c 80 00 7d ff        |/<  }   |		MOVE.L	#0x80007dff,-(A7)
0002458c 4e ba df f6              |N       |		JSR	0x22584
00024590 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024592 4a 87                    |J       |		TST.L	D7
00024594 66 00 fe be              |f       |		BNE	0x24454
00024598 4c df 0f 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3
0002459c 4e 5e                    |N^      |		UNLK	A6
0002459e 4e 75                    |Nu      |		RTS
000245a0 ; --------------------------------------------------------------------------------------
000245a0 ; OMSI PASCAL Function
000245a0 ;    <LVAR  0x00c 2(r)>
000245a0 ;    <LVAR  0x008 4(r)>
000245a0 ;    <LVAR -0x00e @ 4(r)>
000245a0 ;    <LVAR -0x012 @ 4(r)>
000245a0 ; --------------------------------------------------------------------------------------
000245a0 4e 56 ff 7e              |NV ~    |		LINK.W	A6,#0xff7e		; Spelunked
000245a4 bf d5                    |        |		CMPA.L	(A5),A7
000245a6 62 06                    |b       |		BHI	0x245ae
000245a8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000245ac 4e 76                    |Nv      |		TRAPV
000245ae de fc 00 70              |   p    |		ADDA.W	#0x70,A7
000245b2 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000245b6 45 fa de f0              |E       |		LEA.L	0x224a8,A2
000245ba 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000245c0 49 f8 00 02              |I       |		LEA.L	0x2,A4
000245c4 74 01                    |t       |		MOVEQ.L	#0x01,D2
000245c6 7a 14                    |z       |		MOVEQ.L	#0x14,D5
000245c8 3f 2e 00 0c              |?.      |		MOVE.W	(A6+0xc),-(A7)
000245cc 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
000245d0 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
000245d4 4e ba cd b2              |N       |		JSR	0x21388
000245d8 de fc 00 0a              |        |		ADDA.W	#0xa,A7
000245dc 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000245de 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000245e2 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000245e4 bc 97                    |        |		CMP.L	(A7),D6
000245e6 6e 26                    |n&      |		BGT	0x2460e
000245e8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000245ea 2f 2e ff ee              |/.      |		MOVE.L	(A6-0x12),-(A7)
000245ee dd 97                    |        |		ADD.L	D6,(A7)
000245f0 4e 92                    |N       |		JSR	(A2)
000245f2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000245f4 30 1f                    |0       |		MOVE.W	(A7)+,D0
000245f6 48 c0                    |H       |		EXTW.L	D0
000245f8 de 80                    |        |		ADD.L	D0,D7
000245fa 28 07                    |(       |		MOVE.L	D7,D4
000245fc 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
00024602 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00024608 2e 03                    |.       |		MOVE.L	D3,D7
0002460a 52 86                    |R       |		ADDQ.L	#0x1,D6
0002460c 68 d6                    |h       |		BVC	0x245e4
0002460e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024610 06 87 00 00 01 00        |        |		ADDI.L	#0x00000100,D7
00024616 20 2e ff ee              | .      |		MOVE.L	(A6-0x12),D0
0002461a d0 ae 00 08              |        |		ADD.L	(A6+0x8),D0
0002461e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024620 2f 00                    |/       |		MOVE.L	D0,-(A7)
00024622 5b 97                    |[       |		SUBQ.L	#0x5,(A7)
00024624 4e 92                    |N       |		JSR	(A2)
00024626 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024628 32 1f                    |2       |		MOVE.W	(A7)+,D1
0002462a 48 c1                    |H       |		EXTW.L	D1
0002462c 9e 81                    |        |		SUB.L	D1,D7
0002462e 28 07                    |(       |		MOVE.L	D7,D4
00024630 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
00024636 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
0002463c 2e 03                    |.       |		MOVE.L	D3,D7
0002463e 41 fa c6 ae              |A       |		LEA.L	0x20cee,A0
00024642 72 08                    |r       |		MOVEQ.L	#0x08,D1
00024644 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024646 51 c9 ff fc              |Q       |		DBF	D1,0x24644
0002464a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002464c 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
00024650 48 78 00 08              |Hx      |		PEA.L	0x8
00024654 4e b9 00 01 02 f8        |N       |		JSR	LeftPad(a : String; b : Long) : String
0002465a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002465c 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00024660 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024662 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00024666 4e 93                    |N       |		JSR	(A3)
00024668 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002466a 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002466c 59 97                    |Y       |		SUBQ.L	#0x4,(A7)
0002466e 4e 92                    |N       |		JSR	(A2)
00024670 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024672 32 1f                    |2       |		MOVE.W	(A7)+,D1
00024674 48 c1                    |H       |		EXTW.L	D1
00024676 2e 81                    |.       |		MOVE.L	D1,(A7)
00024678 48 54                    |HT      |		PEA.L	(A4)
0002467a 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00024680 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024682 2f 00                    |/       |		MOVE.L	D0,-(A7)
00024684 57 97                    |W       |		SUBQ.L	#0x3,(A7)
00024686 4e 92                    |N       |		JSR	(A2)
00024688 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002468a 32 1f                    |2       |		MOVE.W	(A7)+,D1
0002468c 48 c1                    |H       |		EXTW.L	D1
0002468e 2e 81                    |.       |		MOVE.L	D1,(A7)
00024690 48 54                    |HT      |		PEA.L	(A4)
00024692 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00024698 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002469a 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002469c 55 97                    |U       |		SUBQ.L	#0x2,(A7)
0002469e 4e 92                    |N       |		JSR	(A2)
000246a0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000246a2 32 1f                    |2       |		MOVE.W	(A7)+,D1
000246a4 48 c1                    |H       |		EXTW.L	D1
000246a6 2e 81                    |.       |		MOVE.L	D1,(A7)
000246a8 48 54                    |HT      |		PEA.L	(A4)
000246aa 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
000246b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000246b2 4e b9 00 01 02 dc        |N       |		JSR	StringCat5(a, b, c, d, e : String) : String
000246b8 de c5                    |        |		ADDA.W	D5,A7
000246ba 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000246c0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000246c2 20 4f                    | O      |		MOVEA.L	A7,A0
000246c4 43 fa c6 28              |C  (    |		LEA.L	0x20cee,A1
000246c8 72 0e                    |r       |		MOVEQ.L	#0x0e,D1
000246ca 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000246cc 51 c9 ff fc              |Q       |		DBF	D1,0x246ca
000246d0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000246d2 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000246d6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000246d8 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
000246dc 4e 93                    |N       |		JSR	(A3)
000246de 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000246e0 53 80                    |S       |		SUBQ.L	#0x1,D0
000246e2 2f 00                    |/       |		MOVE.L	D0,-(A7)
000246e4 4e 92                    |N       |		JSR	(A2)
000246e6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000246e8 30 1f                    |0       |		MOVE.W	(A7)+,D0
000246ea 48 c0                    |H       |		EXTW.L	D0
000246ec 2e 80                    |.       |		MOVE.L	D0,(A7)
000246ee 48 54                    |HT      |		PEA.L	(A4)
000246f0 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
000246f6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000246f8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000246fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024700 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00024706 de c5                    |        |		ADDA.W	D5,A7
00024708 0c 87 00 00 00 aa        |        |		CMPI.L	#0x000000aa,D7
0002470e 67 2e                    |g.      |		BEQ	0x2473e
00024710 9e fc 00 16              |        |		SUBA.W	#0x16,A7
00024714 20 4f                    | O      |		MOVEA.L	A7,A0
00024716 43 fa c5 e6              |C       |		LEA.L	0x20cfe,A1
0002471a 70 14                    |p       |		MOVEQ.L	#0x14,D0
0002471c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002471e 51 c8 ff fc              |Q       |		DBF	D0,0x2471c
00024722 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024724 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024728 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002472a 3f 3c 00 15              |?<      |		MOVE.W	#0x15,-(A7)
0002472e 4e 93                    |N       |		JSR	(A3)
00024730 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024732 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00024738 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
0002473c 60 28                    |`(      |		BRA	0x24766
0002473e 2f 3a c5 e0              |/:      |		MOVE.L	0x20d20,-(A7)
00024742 2f 3a c5 d8              |/:      |		MOVE.L	0x20d1c,-(A7)
00024746 2f 3a c5 d0              |/:      |		MOVE.L	0x20d18,-(A7)
0002474a 2f 3a c5 c8              |/:      |		MOVE.L	0x20d14,-(A7)
0002474e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024750 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024754 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024756 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
0002475a 4e 93                    |N       |		JSR	(A3)
0002475c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002475e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00024764 de c5                    |        |		ADDA.W	D5,A7
00024766 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002476a 4e 5e                    |N^      |		UNLK	A6
0002476c 4e 75                    |Nu      |		RTS
0002476e ; --------------------------------------------------------------------------------------
0002476e ; OMSI PASCAL Function
0002476e ;    <LVAR -0x004 @>
0002476e ; --------------------------------------------------------------------------------------
0002476e 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00024772 bf d5                    |        |		CMPA.L	(A5),A7
00024774 62 06                    |b       |		BHI	0x2477c
00024776 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002477a 4e 76                    |Nv      |		TRAPV
0002477c de fc 00 14              |        |		ADDA.W	#0x14,A7
00024780 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
00024784 41 fa fe 1a              |A       |		LEA.L	0x245a0,A0
00024788 43 f8 1f ff              |C       |		LEA.L	0x1fff,A1
0002478c 3f 3c 00 21              |?< !    |		MOVE.W	#0x21,-(A7)
00024790 48 51                    |HQ      |		PEA.L	(A1)
00024792 4e 90                    |N       |		JSR	(A0)
00024794 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024796 3e bc 00 19              |>       |		MOVE.W	#0x19,(A7)
0002479a 48 51                    |HQ      |		PEA.L	(A1)
0002479c 4e 90                    |N       |		JSR	(A0)
0002479e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000247a0 3e bc 00 17              |>       |		MOVE.W	#0x17,(A7)
000247a4 48 51                    |HQ      |		PEA.L	(A1)
000247a6 4e 90                    |N       |		JSR	(A0)
000247a8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000247aa 3e bc 00 15              |>       |		MOVE.W	#0x15,(A7)
000247ae 48 78 1d ff              |Hx      |		PEA.L	0x1dff
000247b2 4e 90                    |N       |		JSR	(A0)
000247b4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000247b6 4e b9 00 01 06 04        |N       |		JSR	Is_fc07_three() : Bool
000247bc 4a 1f                    |J       |		TST.B	(A7)+
000247be 66 0c                    |f       |		BNE	0x247cc
000247c0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000247c2 4e b9 00 01 06 0a        |N       |		JSR	Is_fc07_four() : Bool
000247c8 4a 1f                    |J       |		TST.B	(A7)+
000247ca 67 48                    |gH      |		BEQ	0x24814
000247cc 48 78 00 00              |Hx      |		PEA.L	0x0
000247d0 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000247d4 4e b9 00 02 4e 0a        |N   N   |		JSR	0x24e0a
000247da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000247dc 48 78 00 01              |Hx      |		PEA.L	0x1
000247e0 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000247e4 4e b9 00 02 4e 0a        |N   N   |		JSR	0x24e0a
000247ea 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000247ec 3e bc 00 50              |>  P    |		MOVE.W	#0x50,(A7)
000247f0 48 51                    |HQ      |		PEA.L	(A1)
000247f2 4e 90                    |N       |		JSR	(A0)
000247f4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000247f6 3e bc 00 51              |>  Q    |		MOVE.W	#0x51,(A7)
000247fa 48 51                    |HQ      |		PEA.L	(A1)
000247fc 4e 90                    |N       |		JSR	(A0)
000247fe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024800 3e bc 00 52              |>  R    |		MOVE.W	#0x52,(A7)
00024804 48 51                    |HQ      |		PEA.L	(A1)
00024806 4e 90                    |N       |		JSR	(A0)
00024808 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002480a 3e bc 00 53              |>  S    |		MOVE.W	#0x53,(A7)
0002480e 48 51                    |HQ      |		PEA.L	(A1)
00024810 4e 90                    |N       |		JSR	(A0)
00024812 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024814 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
00024818 4e 5e                    |N^      |		UNLK	A6
0002481a 4e 75                    |Nu      |		RTS
0002481c ; --------------------------------------------------------------------------------------
0002481c ; OMSI PASCAL Function
0002481c ; --------------------------------------------------------------------------------------
0002481c					START:
0002481c 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00024820 4e f9 00 01 02 80        |N       |		JMP	?start_program
00024826					MAIN:
00024826 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
0002482c 47 f9 00 01 03 e0        |G       |		LEA.L	WriteConsoleStringCrLf(str : String),A3
00024832 49 f9 00 02 90 b4        |I       |		LEA.L	0x290b4,A4
00024838 76 01                    |v       |		MOVEQ.L	#0x01,D3
0002483a 78 32                    |x2      |		MOVEQ.L	#0x32,D4
0002483c 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
0002483e 7c 2e                    ||.      |		MOVEQ.L	#0x2e,D6
00024840 7e 0d                    |~       |		MOVEQ.L	#0x0d,D7
00024842 41 fa b8 ee              |A       |		LEA.L	0x20132,A0
00024846 70 09                    |p       |		MOVEQ.L	#0x09,D0
00024848 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002484a 51 c8 ff fc              |Q       |		DBF	D0,0x24848
0002484e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024850 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024854 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024856 3f 3c 00 28              |?< (    |		MOVE.W	#0x28,-(A7)
0002485a 4e 92                    |N       |		JSR	(A2)
0002485c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002485e 23 df 00 02 90 c4        |#       |		MOVE.L	(A7)+,0x290c4
00024864 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00024868 20 79 00 02 90 c4        | y      |		MOVEA.L	0x290c4,A0
0002486e 30 10                    |0       |		MOVE.W	(A0),D0
00024870 48 c0                    |H       |		EXTW.L	D0
00024872 2f 00                    |/       |		MOVE.L	D0,-(A7)
00024874 70 01                    |p       |		MOVEQ.L	#0x01,D0
00024876 b0 97                    |        |		CMP.L	(A7),D0
00024878 6e 36                    |n6      |		BGT	0x248b0
0002487a 23 c0 00 02 90 c8        |#       |		MOVE.L	D0,0x290c8
00024880 20 79 00 02 90 c4        | y      |		MOVEA.L	0x290c4,A0
00024886 22 00                    |"       |		MOVE.L	D0,D1
00024888 53 81                    |S       |		SUBQ.L	#0x1,D1
0002488a 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
00024890 63 02                    |c       |		BLS	0x24894
00024892 4e 4f                    |NO      |		TRAP	#15
00024894 0c 80 00 00 00 04        |        |		CMPI.L	#0x00000004,D0
0002489a 6f 0a                    |o       |		BLE	0x248a6
0002489c 14 30 18 02              | 0      |		MOVE.B	(A0+D1.L+#0x2),D2
000248a0 0c 02 00 2c              |   ,    |		CMPI.B	#0x2c,D2
000248a4 66 06                    |f       |		BNE	0x248ac
000248a6 11 bc 00 20 18 02        |        |		MOVE.B	#0x20,(A0+D1.L+#0x2)
000248ac 52 80                    |R       |		ADDQ.L	#0x1,D0
000248ae 68 c6                    |h       |		BVC	0x24876
000248b0 2e b9 00 02 90 c4        |.       |		MOVE.L	0x290c4,(A7)
000248b6 4e 93                    |N       |		JSR	(A3)
000248b8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000248ba 4e b9 00 01 06 0a        |N       |		JSR	Is_fc07_four() : Bool
000248c0 4a 1f                    |J       |		TST.B	(A7)+
000248c2 66 0c                    |f       |		BNE	0x248d0
000248c4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000248c6 4e b9 00 01 06 04        |N       |		JSR	Is_fc07_three() : Bool
000248cc 4a 1f                    |J       |		TST.B	(A7)+
000248ce 67 32                    |g2      |		BEQ	0x24902
000248d0 9e c5                    |        |		SUBA.W	D5,A7
000248d2 20 4f                    | O      |		MOVEA.L	A7,A0
000248d4 43 fa c6 b8              |C       |		LEA.L	0x20f8e,A1
000248d8 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000248da 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000248dc 51 c8 ff fc              |Q       |		DBF	D0,0x248da
000248e0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000248e2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000248e6 3f 03                    |?       |		MOVE.W	D3,-(A7)
000248e8 3f 07                    |?       |		MOVE.W	D7,-(A7)
000248ea 4e 92                    |N       |		JSR	(A2)
000248ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000248ee 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
000248f0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000248f2 20 4f                    | O      |		MOVEA.L	A7,A0
000248f4 43 fa c6 a6              |C       |		LEA.L	0x20f9c,A1
000248f8 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000248fa 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000248fc 51 c8 ff fc              |Q       |		DBF	D0,0x248fa
00024900 60 30                    |`0      |		BRA	0x24932
00024902 9e c5                    |        |		SUBA.W	D5,A7
00024904 20 4f                    | O      |		MOVEA.L	A7,A0
00024906 43 fa c6 a4              |C       |		LEA.L	0x20fac,A1
0002490a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002490c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002490e 51 c8 ff fc              |Q       |		DBF	D0,0x2490c
00024912 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024914 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024918 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002491a 3f 07                    |?       |		MOVE.W	D7,-(A7)
0002491c 4e 92                    |N       |		JSR	(A2)
0002491e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024920 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00024922 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024924 20 4f                    | O      |		MOVEA.L	A7,A0
00024926 43 fa c6 92              |C       |		LEA.L	0x20fba,A1
0002492a 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
0002492c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002492e 51 c8 ff fc              |Q       |		DBF	D0,0x2492c
00024932 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024934 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024938 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002493a 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
0002493e 4e 92                    |N       |		JSR	(A2)
00024940 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024942 23 df 00 02 90 b8        |#       |		MOVE.L	(A7)+,0x290b8
00024948 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002494c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002494e 20 4f                    | O      |		MOVEA.L	A7,A0
00024950 43 fa c6 78              |C  x    |		LEA.L	0x20fca,A1
00024954 70 06                    |p       |		MOVEQ.L	#0x06,D0
00024956 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024958 51 c8 ff fc              |Q       |		DBF	D0,0x24956
0002495c 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002495e 4e b9 00 01 03 c4        |N       |		JSR	GetArgv() : String
00024964 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024966 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
0002496a 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002496c 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00024970 4e 92                    |N       |		JSR	(A2)
00024972 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024974 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
0002497a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002497c 10 1f                    |        |		MOVE.B	(A7)+,D0
0002497e 48 80                    |H       |		EXTB.W	D0
00024980 41 83                    |A       |		CHK.W	D3,D0
00024982 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024984 13 c0 00 02 90 b2        |        |		MOVE.B	D0,0x290b2
0002498a 4a 00                    |J       |		TST.B	D0
0002498c 67 72                    |gr      |		BEQ	0x24a00
0002498e 30 39 00 01 00 08        |09      |		MOVE.W	0x10008,D0
00024994 41 bc 00 0f              |A       |		CHK.W	#0xf,D0
00024998 3f 00                    |?       |		MOVE.W	D0,-(A7)
0002499a 48 79 00 02 50 90        |Hy  P   |		PEA.L	0x25090
000249a0 4e b9 00 01 03 94        |N       |		JSR	MountDisk(drive : Word ; VAR status : Byte)
000249a6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000249a8 4a 39 00 02 50 90        |J9  P   |		TST.B	0x25090
000249ae 67 20                    |g       |		BEQ	0x249d0
000249b0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000249b2 1f 39 00 02 50 90        | 9  P   |		MOVE.B	0x25090,-(A7)
000249b8 4e b9 00 01 03 a0        |N       |		JSR	FsErrMsgStr(err: Byte) : String
000249be 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000249c0 4e 93                    |N       |		JSR	(A3)
000249c2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000249c4 48 78 00 0f              |Hx      |		PEA.L	0xf
000249c8 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
000249ce 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000249d0 4e ba f6 90              |N       |		JSR	0x24062
000249d4 41 fa c6 2a              |A  *    |		LEA.L	0x21000,A0
000249d8 70 16                    |p       |		MOVEQ.L	#0x16,D0
000249da 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000249dc 51 c8 ff fc              |Q       |		DBF	D0,0x249da
000249e0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000249e2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000249e6 3f 03                    |?       |		MOVE.W	D3,-(A7)
000249e8 3f 06                    |?       |		MOVE.W	D6,-(A7)
000249ea 4e 92                    |N       |		JSR	(A2)
000249ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000249ee 4e 93                    |N       |		JSR	(A3)
000249f0 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000249f4 1e bc 00 19              |        |		MOVE.B	#0x19,(A7)
000249f8 4e b9 00 01 05 da        |N       |		JSR	Set_fc01(a : Byte)
000249fe 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024a00 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00024a06 2f 3a c6 00              |/:      |		MOVE.L	0x21008,-(A7)
00024a0a 2f 3a c5 f8              |/:      |		MOVE.L	0x21004,-(A7)
00024a0e 2f 3a c5 f0              |/:      |		MOVE.L	0x21000,-(A7)
00024a12 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024a14 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024a18 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024a1a 3f 3c 00 0c              |?<      |		MOVE.W	#0xc,-(A7)
00024a1e 4e 92                    |N       |		JSR	(A2)
00024a20 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024a22 4e 93                    |N       |		JSR	(A3)
00024a24 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024a26 20 4f                    | O      |		MOVEA.L	A7,A0
00024a28 43 fa c2 fa              |C       |		LEA.L	0x20d24,A1
00024a2c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00024a2e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024a30 51 c8 ff fc              |Q       |		DBF	D0,0x24a2e
00024a34 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024a36 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024a3a 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024a3c 3f 07                    |?       |		MOVE.W	D7,-(A7)
00024a3e 4e 92                    |N       |		JSR	(A2)
00024a40 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024a42 4e 93                    |N       |		JSR	(A3)
00024a44 de fc 00 12              |        |		ADDA.W	#0x12,A7
00024a48 41 fa c3 0a              |A       |		LEA.L	0x20d54,A0
00024a4c 70 10                    |p       |		MOVEQ.L	#0x10,D0
00024a4e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024a50 51 c8 ff fc              |Q       |		DBF	D0,0x24a4e
00024a54 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024a56 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024a5a 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024a5c 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
00024a60 4e 92                    |N       |		JSR	(A2)
00024a62 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024a64 4e 93                    |N       |		JSR	(A3)
00024a66 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00024a6a 41 fa c3 1e              |A       |		LEA.L	0x20d8a,A0
00024a6e 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
00024a70 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024a72 51 c8 ff fc              |Q       |		DBF	D0,0x24a70
00024a76 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024a78 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024a7c 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024a7e 3f 3c 00 36              |?< 6    |		MOVE.W	#0x36,-(A7)
00024a82 4e 92                    |N       |		JSR	(A2)
00024a84 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024a86 4e 93                    |N       |		JSR	(A3)
00024a88 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00024a8c 4e b9 00 01 06 0a        |N       |		JSR	Is_fc07_four() : Bool
00024a92 4a 1f                    |J       |		TST.B	(A7)+
00024a94 66 0e                    |f       |		BNE	0x24aa4
00024a96 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024a98 4e b9 00 01 06 04        |N       |		JSR	Is_fc07_three() : Bool
00024a9e 4a 1f                    |J       |		TST.B	(A7)+
00024aa0 67 00 01 18              |g       |		BEQ	0x24bba
00024aa4 9e fc 00 3c              |   <    |		SUBA.W	#0x3c,A7
00024aa8 20 4f                    | O      |		MOVEA.L	A7,A0
00024aaa 43 fa c3 10              |C       |		LEA.L	0x20dbc,A1
00024aae 70 3a                    |p:      |		MOVEQ.L	#0x3a,D0
00024ab0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024ab2 51 c8 ff fc              |Q       |		DBF	D0,0x24ab0
00024ab6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024ab8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024abc 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024abe 3f 3c 00 3b              |?< ;    |		MOVE.W	#0x3b,-(A7)
00024ac2 4e 92                    |N       |		JSR	(A2)
00024ac4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024ac6 4e 93                    |N       |		JSR	(A3)
00024ac8 de fc 00 12              |        |		ADDA.W	#0x12,A7
00024acc 20 4f                    | O      |		MOVEA.L	A7,A0
00024ace 43 fa c3 28              |C  (    |		LEA.L	0x20df8,A1
00024ad2 70 2c                    |p,      |		MOVEQ.L	#0x2c,D0
00024ad4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024ad6 51 c8 ff fc              |Q       |		DBF	D0,0x24ad4
00024ada 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024adc 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00024ae0 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024ae2 3f 3c 00 2d              |?< -    |		MOVE.W	#0x2d,-(A7)
00024ae6 4e 92                    |N       |		JSR	(A2)
00024ae8 2e 94                    |.       |		MOVE.L	(A4),(A7)
00024aea 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00024af0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024af2 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00024af8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024afa 4e 93                    |N       |		JSR	(A3)
00024afc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024afe 20 4f                    | O      |		MOVEA.L	A7,A0
00024b00 43 fa c3 24              |C  $    |		LEA.L	0x20e26,A1
00024b04 70 2c                    |p,      |		MOVEQ.L	#0x2c,D0
00024b06 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024b08 51 c8 ff fc              |Q       |		DBF	D0,0x24b06
00024b0c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024b0e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00024b12 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024b14 3f 3c 00 2d              |?< -    |		MOVE.W	#0x2d,-(A7)
00024b18 4e 92                    |N       |		JSR	(A2)
00024b1a 2e b9 00 02 90 b8        |.       |		MOVE.L	0x290b8,(A7)
00024b20 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00024b26 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024b28 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00024b2e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024b30 4e 93                    |N       |		JSR	(A3)
00024b32 de c4                    |        |		ADDA.W	D4,A7
00024b34 41 fa c3 8e              |A       |		LEA.L	0x20ec4,A0
00024b38 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00024b3a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00024b3c 51 c8 ff fc              |Q       |		DBF	D0,0x24b3a
00024b40 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024b42 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024b46 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024b48 3f 3c 00 3c              |?< <    |		MOVE.W	#0x3c,-(A7)
00024b4c 4e 92                    |N       |		JSR	(A2)
00024b4e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024b50 4e 93                    |N       |		JSR	(A3)
00024b52 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00024b56 41 fa c3 9a              |A       |		LEA.L	0x20ef2,A0
00024b5a 70 16                    |p       |		MOVEQ.L	#0x16,D0
00024b5c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024b5e 51 c8 ff fc              |Q       |		DBF	D0,0x24b5c
00024b62 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024b64 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00024b68 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024b6a 3f 06                    |?       |		MOVE.W	D6,-(A7)
00024b6c 4e 92                    |N       |		JSR	(A2)
00024b6e 2e 94                    |.       |		MOVE.L	(A4),(A7)
00024b70 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00024b76 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024b78 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00024b7e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024b80 4e 93                    |N       |		JSR	(A3)
00024b82 de c4                    |        |		ADDA.W	D4,A7
00024b84 41 fa c3 9a              |A       |		LEA.L	0x20f20,A0
00024b88 70 16                    |p       |		MOVEQ.L	#0x16,D0
00024b8a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024b8c 51 c8 ff fc              |Q       |		DBF	D0,0x24b8a
00024b90 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024b92 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00024b96 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024b98 3f 06                    |?       |		MOVE.W	D6,-(A7)
00024b9a 4e 92                    |N       |		JSR	(A2)
00024b9c 2e b9 00 02 90 b8        |.       |		MOVE.L	0x290b8,(A7)
00024ba2 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00024ba8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024baa 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00024bb0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024bb2 4e 93                    |N       |		JSR	(A3)
00024bb4 de c4                    |        |		ADDA.W	D4,A7
00024bb6 60 00 00 ca              |`       |		BRA	0x24c82
00024bba 41 fa c2 00              |A       |		LEA.L	0x20dbc,A0
00024bbe 70 18                    |p       |		MOVEQ.L	#0x18,D0
00024bc0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024bc2 51 c8 ff fc              |Q       |		DBF	D0,0x24bc0
00024bc6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024bc8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024bcc 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024bce 3f 04                    |?       |		MOVE.W	D4,-(A7)
00024bd0 4e 92                    |N       |		JSR	(A2)
00024bd2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024bd4 4e 93                    |N       |		JSR	(A3)
00024bd6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024bd8 20 4f                    | O      |		MOVEA.L	A7,A0
00024bda 43 fa c2 1c              |C       |		LEA.L	0x20df8,A1
00024bde 70 2c                    |p,      |		MOVEQ.L	#0x2c,D0
00024be0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024be2 51 c8 ff fc              |Q       |		DBF	D0,0x24be0
00024be6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024be8 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00024bec 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024bee 3f 3c 00 2d              |?< -    |		MOVE.W	#0x2d,-(A7)
00024bf2 4e 92                    |N       |		JSR	(A2)
00024bf4 2e 94                    |.       |		MOVE.L	(A4),(A7)
00024bf6 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00024bfc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024bfe 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00024c04 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024c06 4e 93                    |N       |		JSR	(A3)
00024c08 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00024c0a 20 4f                    | O      |		MOVEA.L	A7,A0
00024c0c 43 fa c2 46              |C  F    |		LEA.L	0x20e54,A1
00024c10 70 32                    |p2      |		MOVEQ.L	#0x32,D0
00024c12 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024c14 51 c8 ff fc              |Q       |		DBF	D0,0x24c12
00024c18 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024c1a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024c1e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024c20 3f 3c 00 33              |?< 3    |		MOVE.W	#0x33,-(A7)
00024c24 4e 92                    |N       |		JSR	(A2)
00024c26 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024c28 4e 93                    |N       |		JSR	(A3)
00024c2a de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00024c2e 41 fa c2 c2              |A       |		LEA.L	0x20ef2,A0
00024c32 70 16                    |p       |		MOVEQ.L	#0x16,D0
00024c34 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024c36 51 c8 ff fc              |Q       |		DBF	D0,0x24c34
00024c3a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024c3c 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00024c40 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024c42 3f 06                    |?       |		MOVE.W	D6,-(A7)
00024c44 4e 92                    |N       |		JSR	(A2)
00024c46 2e 94                    |.       |		MOVE.L	(A4),(A7)
00024c48 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00024c4e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024c50 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00024c56 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024c58 4e 93                    |N       |		JSR	(A3)
00024c5a 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00024c5e 20 4f                    | O      |		MOVEA.L	A7,A0
00024c60 43 fa c2 be              |C       |		LEA.L	0x20f20,A1
00024c64 70 3a                    |p:      |		MOVEQ.L	#0x3a,D0
00024c66 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024c68 51 c8 ff fc              |Q       |		DBF	D0,0x24c66
00024c6c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024c6e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024c72 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024c74 3f 3c 00 3b              |?< ;    |		MOVE.W	#0x3b,-(A7)
00024c78 4e 92                    |N       |		JSR	(A2)
00024c7a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024c7c 4e 93                    |N       |		JSR	(A3)
00024c7e de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00024c82 41 fa c3 0a              |A       |		LEA.L	0x20f8e,A0
00024c86 70 18                    |p       |		MOVEQ.L	#0x18,D0
00024c88 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024c8a 51 c8 ff fc              |Q       |		DBF	D0,0x24c88
00024c8e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024c90 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024c94 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024c96 3f 04                    |?       |		MOVE.W	D4,-(A7)
00024c98 4e 92                    |N       |		JSR	(A2)
00024c9a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024c9c 4e 93                    |N       |		JSR	(A3)
00024c9e de fc 00 36              |   6    |		ADDA.W	#0x36,A7
00024ca2 41 fa c3 76              |A  v    |		LEA.L	0x2101a,A0
00024ca6 70 06                    |p       |		MOVEQ.L	#0x06,D0
00024ca8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024caa 51 c8 ff fc              |Q       |		DBF	D0,0x24ca8
00024cae 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024cb0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00024cb4 3f 03                    |?       |		MOVE.W	D3,-(A7)
00024cb6 3f 05                    |?       |		MOVE.W	D5,-(A7)
00024cb8 4e 92                    |N       |		JSR	(A2)
00024cba 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024cbc 48 78 00 00              |Hx      |		PEA.L	0x0
00024cc0 48 78 00 0a              |Hx      |		PEA.L	0xa
00024cc4 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00024cca de fc 00 0c              |        |		ADDA.W	#0xc,A7
00024cce 23 df 00 02 50 92        |#   P   |		MOVE.L	(A7)+,0x25092
00024cd4 de c5                    |        |		ADDA.W	D5,A7
00024cd6 20 39 00 02 50 92        | 9  P   |		MOVE.L	0x25092,D0
00024cdc 0c 80 00 00 00 0a        |        |		CMPI.L	#0x0000000a,D0
00024ce2 63 02                    |c       |		BLS	0x24ce6
00024ce4 4e 4e                    |NN      |		TRAP	#14
00024ce6 d0 40                    | @      |		ADD.W	D0,D0
00024ce8 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00024cf0 00 16                    |        |		.CONST	0x16			; [0x0] -> 0x24d06
00024cf2 00 26                    | &      |		.CONST	0x26			; [0x1] -> 0x24d16
00024cf4 00 2c                    | ,      |		.CONST	0x2c			; [0x2] -> 0x24d1c
00024cf6 00 32                    | 2      |		.CONST	0x32			; [0x3] -> 0x24d22
00024cf8 00 3e                    | >      |		.CONST	0x3e			; [0x4] -> 0x24d2e
00024cfa 00 48                    | H      |		.CONST	0x48			; [0x5] -> 0x24d38
00024cfc 00 4c                    | L      |		.CONST	0x4c			; [0x6] -> 0x24d3c
00024cfe 00 52                    | R      |		.CONST	0x52			; [0x7] -> 0x24d42
00024d00 00 5a                    | Z      |		.CONST	0x5a			; [0x8] -> 0x24d4a
00024d02 00 5e                    | ^      |		.CONST	0x5e			; [0x9] -> 0x24d4e
00024d04 00 64                    | d      |		.CONST	0x64			; [0xa] -> 0x24d54
00024d06					switch@0x24ce8[0x0]:
00024d06 42 27                    |B'      |		CLR.B	-(A7)
00024d08 48 78 00 01              |Hx      |		PEA.L	0x1
00024d0c 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00024d12 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00024d14 60 42                    |`B      |		BRA	0x24d58
00024d16					switch@0x24ce8[0x1]:
00024d16 4e ba f7 14              |N       |		JSR	0x2442c
00024d1a 60 3c                    |`<      |		BRA	0x24d58
00024d1c					switch@0x24ce8[0x2]:
00024d1c 4e ba fa 50              |N  P    |		JSR	0x2476e
00024d20 60 36                    |`6      |		BRA	0x24d58
00024d22					switch@0x24ce8[0x3]:
00024d22 48 78 00 01              |Hx      |		PEA.L	0x1
00024d26 42 67                    |Bg      |		CLR.W	-(A7)
00024d28 4e ba de 9c              |N       |		JSR	0x22bc6
00024d2c 60 e4                    |`       |		BRA	0x24d12
00024d2e					switch@0x24ce8[0x4]:
00024d2e 42 27                    |B'      |		CLR.B	-(A7)
00024d30 4e ba df ca              |N       |		JSR	0x22cfc
00024d34 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024d36 60 20                    |`       |		BRA	0x24d58
00024d38					switch@0x24ce8[0x5]:
00024d38 1f 03                    |        |		MOVE.B	D3,-(A7)
00024d3a 60 f4                    |`       |		BRA	0x24d30
00024d3c					switch@0x24ce8[0x6]:
00024d3c 4e ba ea 1a              |N       |		JSR	0x23758
00024d40 60 16                    |`       |		BRA	0x24d58
00024d42					switch@0x24ce8[0x7]:
00024d42 42 27                    |B'      |		CLR.B	-(A7)
00024d44 4e ba ee 02              |N       |		JSR	0x23b48
00024d48 60 ea                    |`       |		BRA	0x24d34
00024d4a					switch@0x24ce8[0x8]:
00024d4a 1f 03                    |        |		MOVE.B	D3,-(A7)
00024d4c 60 f6                    |`       |		BRA	0x24d44
00024d4e					switch@0x24ce8[0x9]:
00024d4e 4e ba eb c0              |N       |		JSR	0x23910
00024d52 60 04                    |`       |		BRA	0x24d58
00024d54					switch@0x24ce8[0xa]:
00024d54 4e ba f3 0c              |N       |		JSR	0x24062
00024d58 60 00 fc ac              |`       |		BRA	0x24a06
00024d5c 4e b9 00 01              |N       |		.XXX[0x4]
00024d60 02 84                    |        |		.XXX[0x2]
00024d62 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00024d66 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00024d6a bf d5                    |        |		CMPA.L	(A5),A7
00024d6c 4e 76                    |Nv      |		TRAPV
00024d6e 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
00024d72 30 39 93 03 e0 00        |09      |		MOVE.W	0x9303e000,D0
00024d78 02 40 00 08              | @      |		ANDI.W	#0x0008,D0
00024d7c 67 00 00 06              |g       |		BEQ	0x24d84
00024d80 52 2e 00 08              |R.      |		ADDQ.B	#0x1,(A6+0x8)
00024d84 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00024d88 4e 5e                    |N^      |		UNLK	A6
00024d8a 4e 75                    |Nu      |		RTS
00024d8c 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00024d90 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00024d94 bf d5                    |        |		CMPA.L	(A5),A7
00024d96 4e 76                    |Nv      |		TRAPV
00024d98 30 3c 02 01              |0<      |		MOVE.W	#0x201,D0
00024d9c 4e b9 80 00 20 64        |N    d  |		JSR	0x80002064
00024da2 67 00 00 06              |g       |		BEQ	0x24daa
00024da6 30 7c 00 00              |0|      |		MOVEA.W	#0x0,A0
00024daa 2d 48 00 08              |-H      |		MOVE.L	A0,(A6+0x8)
00024dae 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00024db2 4e 5e                    |N^      |		UNLK	A6
00024db4 4e 75                    |Nu      |		RTS
00024db6 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00024dba 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00024dbe bf d5                    |        |		CMPA.L	(A5),A7
00024dc0 4e 76                    |Nv      |		TRAPV
00024dc2 30 3c 07 00              |0<      |		MOVE.W	#0x700,D0
00024dc6 4e b9 80 00 20 64        |N    d  |		JSR	0x80002064
00024dcc 67 00 00 06              |g       |		BEQ	0x24dd4
00024dd0 30 7c 00 00              |0|      |		MOVEA.W	#0x0,A0
00024dd4 2d 48 00 08              |-H      |		MOVE.L	A0,(A6+0x8)
00024dd8 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00024ddc 4e 5e                    |N^      |		UNLK	A6
00024dde 4e 75                    |Nu      |		RTS
00024de0 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00024de4 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00024de8 bf d5                    |        |		CMPA.L	(A5),A7
00024dea 4e 76                    |Nv      |		TRAPV
00024dec 30 3c 08 00              |0<      |		MOVE.W	#0x800,D0
00024df0 4e b9 80 00 20 64        |N    d  |		JSR	0x80002064
00024df6 67 00 00 06              |g       |		BEQ	0x24dfe
00024dfa 30 7c 00 00              |0|      |		MOVEA.W	#0x0,A0
00024dfe 2d 48 00 08              |-H      |		MOVE.L	A0,(A6+0x8)
00024e02 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00024e06 4e 5e                    |N^      |		UNLK	A6
00024e08 4e 75                    |Nu      |		RTS
00024e0a 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00024e0e 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00024e12 bf d5                    |        |		CMPA.L	(A5),A7
00024e14 4e 76                    |Nv      |		TRAPV
00024e16 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
00024e1a 4e b9 80 00 20 5c        |N    \  |		JSR	0x8000205c
00024e20 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024e24 42 90                    |B       |		CLR.L	(A0)
00024e26 11 41 00 03              | A      |		MOVE.B	D1,(A0+0x3)
00024e2a 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00024e2e 4e 5e                    |N^      |		UNLK	A6
00024e30 4e 75                    |Nu      |		RTS
00024e32 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00024e36 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00024e3a bf d5                    |        |		CMPA.L	(A5),A7
00024e3c 4e 76                    |Nv      |		TRAPV
00024e3e 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
00024e42 4e b9 80 00 20 60        |N    `  |		JSR	0x80002060
00024e48 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024e4c 42 90                    |B       |		CLR.L	(A0)
00024e4e 11 41 00 03              | A      |		MOVE.B	D1,(A0+0x3)
00024e52 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00024e56 4e 5e                    |N^      |		UNLK	A6
00024e58 4e 75                    |Nu      |		RTS
00024e5a 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000		; Spelunked
00024e5e 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00024e62 bf d5                    |        |		CMPA.L	(A5),A7
00024e64 4e 76                    |Nv      |		TRAPV
00024e66 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
00024e6a 4e b9 80 00 20 6c        |N    l  |		JSR	0x8000206c
00024e70 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00024e74 42 90                    |B       |		CLR.L	(A0)
00024e76 11 41 00 03              | A      |		MOVE.B	D1,(A0+0x3)
00024e7a 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00024e7e 4e 5e                    |N^      |		UNLK	A6
00024e80 4e 75                    |Nu      |		RTS
00024e82 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00024e90 ; --------------------------------------------------------------------------------------
00024e90 ; OMSI PASCAL Function
00024e90 ;    <LVAR  0x008 1(r)>
00024e90 ; --------------------------------------------------------------------------------------
00024e90					PROG_FAIL:
00024e90 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00024e94 bf d5                    |        |		CMPA.L	(A5),A7
00024e96 62 06                    |b       |		BHI	0x24e9e
00024e98 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024e9c 4e 76                    |Nv      |		TRAPV
00024e9e de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00024ea2 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00024ea6 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00024eaa 70 06                    |p       |		MOVEQ.L	#0x06,D0
00024eac 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024eae 51 c8 ff fc              |Q       |		DBF	D0,0x24eac
00024eb2 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00024eb6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024eb8 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00024ebc 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00024ec0 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00024ec4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00024eca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024ecc 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00024ed0 48 80                    |H       |		EXTB.W	D0
00024ed2 48 c0                    |H       |		EXTW.L	D0
00024ed4 2f 00                    |/       |		MOVE.L	D0,-(A7)
00024ed6 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00024edc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00024ede 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00024ee4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024ee6 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00024eec de fc 00 14              |        |		ADDA.W	#0x14,A7
00024ef0 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00024ef4 4e 5e                    |N^      |		UNLK	A6
00024ef6 4e 75                    |Nu      |		RTS
00024ef8 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
00024f06 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00024f14 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00024f22 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00024f34 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00024f4c ; --------------------------------------------------------------------------------------
00024f4c ; OMSI PASCAL Function
00024f4c ;    <LVAR  0x00e 1(r)>
00024f4c ;    <LVAR  0x00a 4(r)>
00024f4c ;    <LVAR  0x008 1(r)>
00024f4c ; --------------------------------------------------------------------------------------
00024f4c					EXP_FAIL:
00024f4c 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00024f50 bf d5                    |        |		CMPA.L	(A5),A7
00024f52 62 06                    |b       |		BHI	0x24f5a
00024f54 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00024f58 4e 76                    |Nv      |		TRAPV
00024f5a de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00024f5e 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00024f62 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00024f68 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00024f6e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00024f70 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00024f72 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00024f74 78 12                    |x       |		MOVEQ.L	#0x12,D4
00024f76 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00024f78 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00024f7e 41 fa ff b4              |A       |		LEA.L	0x24f34,A0
00024f82 70 08                    |p       |		MOVEQ.L	#0x08,D0
00024f84 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00024f86 51 c8 ff fc              |Q       |		DBF	D0,0x24f84
00024f8a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00024f8c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00024f90 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024f92 3f 04                    |?       |		MOVE.W	D4,-(A7)
00024f94 4e 93                    |N       |		JSR	(A3)
00024f96 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024f98 4e 94                    |N       |		JSR	(A4)
00024f9a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024f9c 20 4f                    | O      |		MOVEA.L	A7,A0
00024f9e 43 fa ff 58              |C  X    |		LEA.L	0x24ef8,A1
00024fa2 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00024fa4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00024fa6 51 c8 ff fc              |Q       |		DBF	D0,0x24fa4
00024faa 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024fac 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00024fb0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00024fb2 3f 02                    |?       |		MOVE.W	D2,-(A7)
00024fb4 4e 93                    |N       |		JSR	(A3)
00024fb6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024fb8 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
00024fbc 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00024fc2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00024fc4 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00024fca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00024fcc 4e 94                    |N       |		JSR	(A4)
00024fce de c4                    |        |		ADDA.W	D4,A7
00024fd0 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00024fd4 b0 c1                    |        |		CMPA.W	D1,A0
00024fd6 67 48                    |gH      |		BEQ	0x25020
00024fd8 9e c5                    |        |		SUBA.W	D5,A7
00024fda 22 4f                    |"O      |		MOVEA.L	A7,A1
00024fdc 45 fa ff 28              |E  (    |		LEA.L	0x24f06,A2
00024fe0 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00024fe2 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00024fe4 51 c8 ff fc              |Q       |		DBF	D0,0x24fe2
00024fe8 9e c3                    |        |		SUBA.W	D3,A7
00024fea 22 4f                    |"O      |		MOVEA.L	A7,A1
00024fec 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00024ff0 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00024ff2 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00024ff4 51 c8 ff fc              |Q       |		DBF	D0,0x24ff2
00024ff8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00024ffa 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00024ffe 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025000 3f 02                    |?       |		MOVE.W	D2,-(A7)
00025002 4e 93                    |N       |		JSR	(A3)
00025004 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00025006 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002500a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002500c 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002500e 4e 93                    |N       |		JSR	(A3)
00025010 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025012 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00025018 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002501a 4e 94                    |N       |		JSR	(A4)
0002501c de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00025020 9e c5                    |        |		SUBA.W	D5,A7
00025022 20 4f                    | O      |		MOVEA.L	A7,A0
00025024 43 fa fe ee              |C       |		LEA.L	0x24f14,A1
00025028 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002502a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002502c 51 c8 ff fc              |Q       |		DBF	D0,0x2502a
00025030 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00025032 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00025036 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025038 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002503a 4e 93                    |N       |		JSR	(A3)
0002503c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002503e 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00025042 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
00025048 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002504a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00025050 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025052 4e 94                    |N       |		JSR	(A4)
00025054 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00025056 20 4f                    | O      |		MOVEA.L	A7,A0
00025058 43 fa fe da              |C       |		LEA.L	0x24f34,A1
0002505c 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002505e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00025060 51 c8 ff fc              |Q       |		DBF	D0,0x2505e
00025064 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00025068 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002506a 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002506e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00025070 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00025074 4e 93                    |N       |		JSR	(A3)
00025076 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00025078 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002507e de c3                    |        |		ADDA.W	D3,A7
00025080 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00025084 4e 5e                    |N^      |		UNLK	A6
00025086 4e 75                    |Nu      |		RTS