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

⟦c63f0250c⟧ M200

    Length: 14848 (0x3a00)
    Types: M200
    Notes: @(#)STARTER,2.2,92/05/01,16:25:00, M200_PROGRAM
    Names: »PROGRAM_0.M200«, »STARTER.M200«

Derivation

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

Disassembly

0x2124c


@ 2124c
        <LVAR  0x008 4(w)>
        <LVAR -0x004 @>
        <LVAR -0x00c @ 4(r)>
    <POP 2124c-212da Body>                                              
        <POP 2124c-21262 Prologue>                           Σ0         ↓
        <POP 21262-2126a RegCacheLoad>                       Σ0         ↓
        <POP 2126a-21282 Naked>                              Σ0         ↓
            <Pointer.fp 0x2126a <LVAR -0x004 @>>             Δ-4                {[@@-4]}
            <Call 0x2126e 0x1059e>                                              {[@@-4]}
                ReadClusterNo(VAR a : Long)
            <POP 21274-21276 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x21276 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Call 0x21278 0x102b8>                                              {[@@-12]}
                NewString(VAR a : String)
            <POP 2127e-21280 StackAdj>                       Δ+4                {}
            <MI 21280  MOVEQ.L #0x00,D7>                                        {}
        <POP 21282-212ce Naked>                              Σ0         ↓ →0x21282 ←0x21282
            <POP 0x21282 LimitCheck 0x0 ≤ D7 ≤ 0x3>                             {}
            <MI 21288  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0xc)']}
            <MI 2128a  CLR.L   D0>                                              {[4, '(A6-0xc)']}
            <MI 2128c  MOVE.B  (A6+D7.L-#0x4),D0>                               {[4, '(A6-0xc)']}
            <MI 21290  ASR.W   #0x4,D0>                                         {[4, '(A6-0xc)']}
            <POP 0x21292 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {[4, '(A6-0xc)']}
            <MI 21298  LEA.L   0x2012c,A0>                                      {[4, '(A6-0xc)']}
            <MI 2129c  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
            <Call 0x212a0 0x102c0>                                              {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
                AppendChar(MOD b : String; a : char)
            <POP 212a6-212a8 StackAdj>                       Δ+2                {[4, '(A6-0xc)']}
            <MI 212a8  MOVE.L  (A6-0xc),(A7)>                                   {[4, '(A6-0xc)']}
            <MI 212aa  CLR.L   D0>                                              {[4, '(A6-0xc)']}
            <MI 212ac  MOVE.B  (A6+D7.L-#0x4),D0>                               {[4, '(A6-0xc)']}
            <MI 212b0  AND.W   #0x0f,D0>                                        {[4, '(A6-0xc)']}
            <POP 0x212b2 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {[4, '(A6-0xc)']}
            <MI 212b8  LEA.L   0x2012c,A0>                                      {[4, '(A6-0xc)']}
            <MI 212bc  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
            <Call 0x212c0 0x102c0>                                              {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
                AppendChar(MOD b : String; a : char)
            <POP 212c6-212c8 StackAdj>                       Δ+6                {}
            <MI 212c8  ADDQ.L  #0x1,D7>                                         {}
            <MI 212ca  CMP.L   #0x03,D7>                                        {}
            <MI 212cc  BLE     0x21282>                                         {}
        <POP 212ce-212d2 Naked>                              Σ0         ↓
            <MI 212ce  MOVE.L  (A6-0xc),(A6+0x8)>                               {}
        <POP 212d2-212da Epilogue>                           Σ0         

0x212da


@ 212da
        <LVAR -0x004 @>
    <POP 212da-2147a Body>                                              
        <POP 212da-212f0 Prologue>                           Σ0         ↓
        <POP 212f0-21300 RegCacheLoad>                       Σ0         ↓
        <POP 21300-2130e Naked>                              Σ0         ↓ →0x21472
            <MI 21300  MOVE.B  0x2393f,D0>                                      {}
            <MI 21306  LSL.B   #0x7,D0>                                         {}
            <MI 21308  LSR.B   #0x7,D0>                                         {}
            <MI 2130a  BEQ     0x21472>                                         {}
        <POP 2130e-21326 Naked>                              Σ0 Δ-2     ↓ →0x21356
            <POP 2130e-21310 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x21310 0x180.4>                          Δ-4                {[-2-]|[##384]}
            <Call 0x21314 0x10592>                                              {[-2-]|[##384]}
                ReadConfig(where : Long) : Word
            <POP 2131a-2131c StackAdj>                       Δ+4                {[-2-]}
            <MI 2131c  MOVE.B  (A7+0x1),D0>                                     {[-2-]}
            <MI 21320  CMPI.B  #0x58,D0>                                        {[-2-]}
            <MI 21324  BNE     0x21356>                                         {[-2-]}
        <POP 21326-21356 Naked>                              Σ-2        →0x21380
            <Blob 0x21326 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <Blob 0x2132a [2] @>                             Δ-2                {[-2-]|[«2""»]|[«2""»]}
            <Blob 0x2132e [2] @>                             Δ-2                {[-2-]|[«2""»]|[«2""»]|[«2""»]}
            <POP 21332-21334 StackAdj>                       Δ-4                {[-2-]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x21334 6>                                                     {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]}
            <Const 0x21342 0x1.4>                            Δ-4                {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]}
            <Const 0x21344 0x1.2>                            Δ-2                {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]}
            <Pointer.fp 0x21346 <LVAR -0x004 @>>             Δ-4                {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]|[@@-4]}
            <Call 0x2134a 0x103b0>                                              {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 21350-21354 StackAdj>                       Δ+20               {[-2-]}
            <MI 21354  BRA     0x21380>                                         {[-2-]}
        <POP 21356-21380 Naked>                              Σ-2        ↓ ←0x2130e
            <Blob 0x21356 [4] @>                             Δ-4                {[-2-]|[«4""»]}
            <Blob 0x2135a [4] @>                             Δ-4                {[-2-]|[«4""»]|[«4""»]}
            <POP 2135e-21360 StackAdj>                       Δ-4                {[-2-]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x21360 8>                                                     {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]}
            <Const 0x2136e 0x1.4>                            Δ-4                {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]}
            <Const 0x21370 0x1.2>                            Δ-2                {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]}
            <Pointer.fp 0x21372 <LVAR -0x004 @>>             Δ-4                {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]|[@@-4]}
            <Call 0x21376 0x103b0>                                              {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 2137c-21380 StackAdj>                       Δ+22               {[-2-]}
        <POP 21380-21390 Naked>                              Σ-2 Δ+2    ↓ →0x21472 ←0x21326
            <POP 21380-21382 StackAdj>                       Δ-2                {[-4-]}
            <Call 0x21382 0x103f8>                                              {[-4-]}
                GetConsoleConfig() : Long
            <MI 21388  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 2138a  CMP.L   #0x01,D0>                                        {}
            <MI 2138c  BEQ     0x21472>                                         {}
        <POP 21390-213c6 Naked>                              Σ0         ↓
            <Blob 0x21390 [46] @>                            Δ-46               {[«46""»]}
            <POP 2139c-2139e StackAdj>                       Δ-8                {[«46""»]|[-8-]}
            <Lit 0x2139e 46>                                                    {[«46""»]|[-4-]|[$$Starting remote diagnostics from Cluster id =>]}
            <POP 213aa-213ac StackAdj>                       Δ-4                {[«46""»]|[-4-]|[$$Starting remote diagnostics from Cluster id =>]|[-4-]}
            <Call 0x213ac 0x2124c>                                              {[«46""»]|[-4-]|[$$Starting remote diagnostics from Cluster id =>]|[-4-]}
            <Call 0x213b0 0x102d0>                                              {[«46""»]|[-4-]|[$$Starting remote diagnostics from Cluster id =>]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 213b6-213b8 StackAdj>                       Δ+8                {[«46""»]|[-4-]}
            <Call 0x213b8 0x103e0>                                              {[«46""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 213be-213c2 StackAdj>                       Δ+50               {}
            <MI 213c2  MOVEQ.L #0x00,D7>                                        {}
            <MI 213c4  MOVEQ.L #0x00,D6>                                        {}
        <POP 213c6-213fa Naked>                              Σ0         ↓ →0x2142c ←0x21430
            <Blob 0x213c6 [26] @>                            Δ-26               {[«26""»]}
            <POP 213d6-213d8 StackAdj>                       Δ-6                {[«26""»]|[-6-]}
            <Lit 0x213d8 25>                                                    {[«26""»]|[-2-]|[$$Are you ready to continue]}
            <POP 213e2-213e4 StackAdj>                       Δ-2                {[«26""»]|[-2-]|[$$Are you ready to continue]|[-2-]}
            <POP 213e4-213e5 StackAdj>                       Δ+2                {[«26""»]|[-2-]|[$$Are you ready to continue]}
            <Const 0x213e5 0x1.2>                            Δ-2                {[«26""»]|[-2-]|[$$Are you ready to continue]|[#1]}
            <Call 0x213e6 0x103f0>                                              {[«26""»]|[-2-]|[$$Are you ready to continue]|[#1]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 213ec-213ee StackAdj>                       Δ+6                {[«26""»]|[-2-]}
            <MI 213ee  MOVE.B  (A7)+,D0>                     Δ+2                {[«26""»]}
            <MI 213f0  EXTB.W  D0>                                              {[«26""»]}
            <POP 0x213f2 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«26""»]}
            <POP 213f4-213f6 StackAdj>                       Δ+26               {}
            <MI 213f6  MOVE.B  D0,D7>                                           {}
            <MI 213f8  BNE     0x2142c>                                         {}
        <POP 213fa-2142c Naked>                              Σ0         ↓
            <Blob 0x213fa [26] @>                            Δ-26               {[«26""»]}
            <POP 2140a-2140c StackAdj>                       Δ-6                {[«26""»]|[-6-]}
            <Lit 0x2140c 25>                                                    {[«26""»]|[-2-]|[$$Do you want do disconnect]}
            <POP 21416-21418 StackAdj>                       Δ-2                {[«26""»]|[-2-]|[$$Do you want do disconnect]|[-2-]}
            <POP 21418-21419 StackAdj>                       Δ+2                {[«26""»]|[-2-]|[$$Do you want do disconnect]}
            <Const 0x21419 0x1.2>                            Δ-2                {[«26""»]|[-2-]|[$$Do you want do disconnect]|[#1]}
            <Call 0x2141a 0x103f0>                                              {[«26""»]|[-2-]|[$$Do you want do disconnect]|[#1]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 21420-21422 StackAdj>                       Δ+6                {[«26""»]|[-2-]}
            <MI 21422  MOVE.B  (A7)+,D0>                     Δ+2                {[«26""»]}
            <MI 21424  EXTB.W  D0>                                              {[«26""»]}
            <POP 0x21426 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«26""»]}
            <POP 21428-2142a StackAdj>                       Δ+26               {}
            <MI 2142a  MOVE.B  D0,D6>                                           {}
        <POP 2142c-21430 Naked>                              Σ0         ↓ →0x21434 ←0x213c6
            <MI 2142c  TST.B   D7>                                              {}
            <MI 2142e  BNE     0x21434>                                         {}
        <POP 21430-21434 Naked>                              Σ0         ↓ →0x213c6
            <MI 21430  TST.B   D6>                                              {}
            <MI 21432  BEQ     0x213c6>                                         {}
        <POP 21434-21438 Naked>                              Σ0         ↓ →0x21472 ←0x2142c
            <MI 21434  TST.B   D6>                                              {}
            <MI 21436  BEQ     0x21472>                                         {}
        <POP 21438-21472 Naked>                              Σ0         ↓
            <Call 0x21438 0x10216>                                              {}
                KC0b
            <Const 0x2143e 0x1.4>                            Δ-4                {[##1]}
            <Call 0x21440 0x103f4>                                              {[##1]}
                SetConsoleConfig(a : Long)
            <POP 21446-21447 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x21447 [34] @>                            Δ-34               {[«34""»]}
            <POP 21458-2145a StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x2145a 33>                                                    {[«34""»]|[$$Rational Service has disconnected]}
            <Call 0x21468 0x103e0>                                              {[«34""»]|[$$Rational Service has disconnected]}
                WriteConsoleStringCrLf(str : String)
            <POP 2146e-21472 StackAdj>                       Δ+38               {}
        <POP 21472-2147a Epilogue>                           Σ0         ←0x21300 ←0x21380 ←0x21434

0x2147a


@ 2147a
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x00a 2(r)>
        <LVAR -0x00c @ 4(r)>
    <POP 2147a-21546 Body>                                              
        <POP 2147a-21490 Prologue>                           Σ0         ↓
        <POP 21490-21496 RegCacheLoad>                       Σ0         ↓
        <POP 21496-214ae Naked>                              Σ0         ↓ →0x214b0 ←0x21538
            <Pointer.fp 0x21496 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Call 0x21498 0x10304>                                              {[@@-12]}
                GetRtc() : TimeStamp
            <POP 2149e-214a0 StackAdj>                       Δ+4                {}
            <MI 214a0  MOVEQ.L #0x00,D7>                                        {}
            <MI 214a2  MOVE.W  (A6-0xa),D0>                                     {}
            <MI 214a6  LSL.W   #0x7,D0>                                         {}
            <MI 214a8  LSR.W   #0x8,D0>                                         {}
            <MI 214aa  LSR.W   #0x4,D0>                                         {}
            <MI 214ac  BEQ     0x214b0>                                         {}
        <POP 214ae-214b0 Naked>                              Σ0         ↓
            <MI 214ae  ADDQ.B  #0x1,D7>                                         {}
        <POP 214b0-214b6 Naked>                              Σ0         ↓ →0x21538 ←0x21496
            <MI 214b0  TST.B   D7>                                              {}
            <MI 214b2  BNE     0x21538>                                         {}
        <POP 214b6-21502 Naked>                              Σ0         ↓ →0x2150e
            <Blob 0x214b6 [60] @>                            Δ-60               {[«60""»]}
            <POP 214c8-214ca StackAdj>                       Δ-8                {[«60""»]|[-8-]}
            <Lit 0x214ca 59>                                                    {[«60""»]|[-4-]|[$$Please enter current date and time as HH:MM:SS DD-MMM-YY :_]}
            <Call 0x214dc 0x103e4>                                              {[«60""»]|[-4-]|[$$Please enter current date and time as HH:MM:SS DD-MMM-YY :_]}
                AskConsoleString(prompt : String) : String
            <POP 214e2-214e4 StackAdj>                       Δ+4                {[«60""»]|[-4-]}
            <MI 214e4  MOVEA.L (A7)+,A4>                     Δ+4                {[«60""»]}
            <POP 214e6-214ea StackAdj>                       Δ+56               {[-4-]}
            <MI 214ea  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <Pointer.fp 0x214ec <LVAR -0x00c @ 4(r)>>        Δ-4                {[4, 'A4']|[@@-12]}
            <Pointer.fp 0x214ee <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, 'A4']|[@@-12]|[@@-4]}
            <Call 0x214f2 0x10310>                                              {[4, 'A4']|[@@-12]|[@@-4]}
                ConvertTimestamp(MOD input : String; b : L; VAR status : Bool)
            <POP 214f8-214fc StackAdj>                       Δ+12               {}
            <MI 214fc  TST.B   (A6-0x4)>                                        {}
            <MI 21500  BEQ     0x2150e>                                         {}
        <POP 21502-2150e Naked>                              Σ0         →0x21538
            <MI 21502  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0xc)']}
            <Call 0x21504 0x1030c>                                              {[4, '(A6-0xc)']}
                SetRtc(a: TimeStamp)
            <POP 2150a-2150c StackAdj>                       Δ+4                {}
            <MI 2150c  BRA     0x21538>                                         {}
        <POP 2150e-21538 Naked>                              Σ0         ↓ ←0x214b6
            <Blob 0x2150e [44] @>                            Δ-44               {[«44""»]}
            <POP 2151a-2151c StackAdj>                       Δ-4                {[«44""»]|[-4-]}
            <Lit 0x2151c 44>                                                    {[«44""»]|[$$Illegal value or incorret format, try again.]}
            <Call 0x2152e 0x103e0>                                              {[«44""»]|[$$Illegal value or incorret format, try again.]}
                WriteConsoleStringCrLf(str : String)
            <POP 21534-21538 StackAdj>                       Δ+48               {}
        <POP 21538-2153e Naked>                              Σ0         ↓ →0x21496 ←0x214b0 ←0x21502
            <MI 21538  TST.B   D7>                                              {}
            <MI 2153a  BEQ     0x21496>                                         {}
        <POP 2153e-21546 Epilogue>                           Σ0         

0x21546


@ 21546
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x006 @ 2(r)>
        <LVAR -0x008 @ 1(r)>
    <POP 21546-21778 Body>                                   Δ+64       
        <POP 21546-2155c Prologue>                           Σ0         ↓
        <POP 2155c-21572 RegCacheLoad>                       Σ0         ↓
        <POP 21572-215c0 Naked>                              Σ0         ↓ →0x215f8
            <Blob 0x21572 [40] @>                            Δ-40               {[«40""»]}
            <POP 21584-21586 StackAdj>                       Δ-4                {[«40""»]|[-4-]}
            <Lit 0x21586 39>                                                    {[«40""»]|[$$Initializing diagnostic file system ...]}
            <Call 0x21594 0x103d8>                                              {[«40""»]|[$$Initializing diagnostic file system ...]}
                WriteConsoleString(str : String)
            <POP 2159a-2159c StackAdj>                       Δ+42               {[-2-]}
            <POP 2159c-2159d StackAdj>                       Δ+2                {}
            <Const 0x2159d 0x20.2>                           Δ-2                {[#32]}
            <Call 0x215a0 0x103d0>                                              {[#32]}
                WriteConsoleChar(chr : char)
            <POP 215a6-215a8 StackAdj>                       Δ+2                {}
            <Pointer.fp 0x215a8 <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Pointer.fp 0x215ac <LVAR -0x006 @ 2(r)>>        Δ-4                {[@@-8]|[@@-6]}
            <Call 0x215b0 0x10200>                                              {[@@-8]|[@@-6]}
                KC00_GetBootDev(VAR a : Byte; VAR b : Word)
            <POP 215b6-215b8 StackAdj>                       Δ+8                {}
            <MI 215b8  MOVE.B  (A6-0x8),D0>                                     {}
            <MI 215bc  CMP.B   #0x02,D0>                                        {}
            <MI 215be  BEQ     0x215f8>                                         {}
        <POP 215c0-215f8 Naked>                              Σ0         ↓
            <Call 0x215c0 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x215c6 [42] @>                            Δ-42               {[«42""»]}
            <POP 215d6-215d8 StackAdj>                       Δ-4                {[«42""»]|[-4-]}
            <Lit 0x215d8 41>                                                    {[«42""»]|[$$File system starter not booted from disk.]}
            <Call 0x215e6 0x103e0>                                              {[«42""»]|[$$File system starter not booted from disk.]}
                WriteConsoleStringCrLf(str : String)
            <POP 215e8-215ec StackAdj>                       Δ+46               {}
            <Const 0x215ec 0x10.4>                           Δ-4                {[##16]}
            <Call 0x215f0 0x10220>                                              {[##16]}
                KC10_Panic(code : Long)
            <POP 215f6-215f8 StackAdj>                       Δ+4                {}
        <POP 215f8-21612 Naked>                              Σ0         ↓ →0x2174c ←0x21572
            <MI 215f8  MOVE.W  (A6-0x6),D0>                                     {}
            <POP 0x215fc LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {}
            <MI 21600  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x21602 <LVAR -0x004 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-4]}
            <Call 0x21604 0x10394>                                              {[2, 'D0']|[@@-4]}
                MountDisk(drive : Word ; VAR status : Byte)
            <POP 2160a-2160c StackAdj>                       Δ+6                {}
            <MI 2160c  TST.B   (A6-0x4)>                                        {}
            <MI 2160e  BEQ     0x2174c>                                         {}
        <POP 21612-21626 Naked>                              Σ0         ↓ →0x216fa
            <Call 0x21612 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <MI 21618  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 2161a  EXTB.W  D0>                                              {}
            <MI 2161c  SUBI.W  #0x000c,D0>                                      {}
            <MI 21620  CMP.W   #0x02,D0>                                        {}
            <MI 21622  BHI     0x216fa>                                         {}
        <POP 21626-21630 Naked>                              Σ0         →0x21636 →0x2167e →0x216b4
            <MI 21626  ADD.W   D0,D0>                                           {}
            <MI 21628  SWITCH  D0.W>                                            {}
        <POP 21636-21664 Naked>                              Σ0 Δ-64    ↓ ←0x21626
            <Blob 0x21636 [64] @>                            Δ-64               {[«64""»]}
            <POP 21642-21644 StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x21644 64>                                                    {[«64""»]|[$$Hard disk errors in diagnostic filesystem labels on boot device.]}
            <Call 0x21652 0x103e0>                                              {[«64""»]|[$$Hard disk errors in diagnostic filesystem labels on boot device.]}
                WriteConsoleStringCrLf(str : String)
            <POP 21654-21655 StackAdj>                       Δ+68       ↓       {}
            <Blob 0x21655 [64] @>                            Δ-64               {[«64""»]}
        <POP 21664-2167e Naked>                              Σ-64 Δ+64  →0x21740 ←0x2167e
            <POP 21664-21666 StackAdj>                       Δ-4                {[-68-]}
            <Lit 0x21666>                                                       {[-64-]|[$$…]}
                <Pointer.sp 0x21666 4>                       Δ-4        
                <Const 0x2166a 0x1.2>                        Δ-2        
                <Const 0x2166c 0x3f.2>                       Δ-2        
                <Call 0x21670 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21672-21674 StackAdj>                   Δ+8        
            <Call 0x21674 0x103e0>                                              {[-64-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 21676-2167a StackAdj>                       Δ+68               {}
            <MI 2167a  BRA     0x21740>                                         {}
        <POP 2167e-216b4 Naked>                              Σ0 Δ-64    →0x21664 ←0x21626
            <Blob 0x2167e [54] @>                            Δ-54               {[«54""»]}
            <POP 21690-21692 StackAdj>                       Δ-4                {[«54""»]|[-4-]}
            <Lit 0x21692 53>                                                    {[«54""»]|[$$No diagnostic filesystem labels found on boot device.]}
            <Call 0x216a0 0x103e0>                                              {[«54""»]|[$$No diagnostic filesystem labels found on boot device.]}
                WriteConsoleStringCrLf(str : String)
            <POP 216a2-216a3 StackAdj>                       Δ+58       ↓       {}
            <Blob 0x216a3 [64] @>                            Δ-64               {[«64""»]}
            <MI 216b2  BRA     0x21664>                                         {[«64""»]}
        <POP 216b4-216fa Naked>                              Σ0         →0x21740 ←0x21626
            <Blob 0x216b4 [52] @>                            Δ-52               {[«52""»]}
            <POP 216c0-216c2 StackAdj>                       Δ-4                {[«52""»]|[-4-]}
            <Lit 0x216c2 52>                                                    {[«52""»]|[$$No diagnostic file system is installed on boot unit.]}
            <Call 0x216d0 0x103e0>                                              {[«52""»]|[$$No diagnostic file system is installed on boot unit.]}
                WriteConsoleStringCrLf(str : String)
            <POP 216d2-216d3 StackAdj>                       Δ+56       ↓       {}
            <Blob 0x216d3 [62] @>                            Δ-62               {[«62""»]}
            <POP 216e2-216e4 StackAdj>                       Δ-4                {[«62""»]|[-4-]}
            <Lit 0x216e4 61>                                                    {[«62""»]|[$$This disk unit is not bootable.  Re-boot from different unit.]}
            <Call 0x216f2 0x103e0>                                              {[«62""»]|[$$This disk unit is not bootable.  Re-boot from different unit.]}
                WriteConsoleStringCrLf(str : String)
            <POP 216f4-216f8 StackAdj>                       Δ+66               {}
            <MI 216f8  BRA     0x21740>                                         {}
        <POP 216fa-21740 Naked>                              Σ0         ↓ ←0x21612
            <Blob 0x216fa [58] @>                            Δ-58               {[«58""»]}
            <POP 21706-21708 StackAdj>                       Δ-4                {[«58""»]|[-4-]}
            <Lit 0x21708 58>                                                    {[«58""»]|[$$Unknown fault during diagnostic filesystem initialization.]}
            <Call 0x21716 0x103e0>                                              {[«58""»]|[$$Unknown fault during diagnostic filesystem initialization.]}
                WriteConsoleStringCrLf(str : String)
            <POP 21718-21719 StackAdj>                       Δ+62       ↓       {}
            <Blob 0x21719 [34] @>                            Δ-34               {[«34""»]}
            <POP 2172a-2172c StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x2172c 33>                                                    {[«34""»]|[$$Contact Rational customer support]}
            <Call 0x2173a 0x103e0>                                              {[«34""»]|[$$Contact Rational customer support]}
                WriteConsoleStringCrLf(str : String)
            <POP 2173c-21740 StackAdj>                       Δ+38               {}
        <POP 21740-2174c Naked>                              Σ0         ↓ ←0x21664 ←0x216b4
            <Const 0x21740 0x11.4>                           Δ-4                {[##17]}
            <Call 0x21744 0x10220>                                              {[##17]}
                KC10_Panic(code : Long)
            <POP 2174a-2174c StackAdj>                       Δ+4                {}
        <POP 2174c-21770 Naked>                              Σ0         ↓ ←0x215f8
            <Call 0x2174c 0x103a4>                                              {}
                Open_ERROR_LOG(void)
            <Call 0x21752 0x105e6>                                              {}
                Set_fc04_to_01(void)
            <Blob 0x21758 [4] @>                             Δ-4                {[«4""»]}
            <POP 2175c-2175e StackAdj>                       Δ-4                {[«4""»]|[-4-]}
            <Lit 0x2175e 4>                                                     {[«4""»]|[$$[OK]]}
            <Call 0x2176c 0x103e0>                                              {[«4""»]|[$$[OK]]}
                WriteConsoleStringCrLf(str : String)
            <POP 2176e-21770 StackAdj>                       Δ+8                {}
        <POP 21770-21778 Epilogue>                           Σ0         

0x21778


@ 21778
        <LVAR -0x001 1(r)>
        <LVAR -0x002 1(r)>
        <LVAR -0x003 1(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x006 @ 2(r)>
        <LVAR -0x008 @ 2(r)>
        <LVAR -0x40c 2(w)>
        <LVAR -0x40e @>
        <LVAR -0x412 @ 4(r)>
        <LVAR -0x414 @ 1(r)>
        <LVAR -0x41c @ 4(rw)>
        <LVAR -0x420 @ 4(rw)>
    <POP 21778-21a0a Body>                                              
        <POP 21778-2178e Prologue>                           Σ0         ↓
        <POP 2178e-217a2 RegCacheLoad>                       Σ0         ↓
        <POP 217a2-217e4 Naked>                              Σ0         ↓ →0x217fa
            <Blob 0x217a2 [10] @>                            Δ-10               {[«10""»]}
            <POP 217b2-217b4 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x217b4 9>                                                     {[«10""»]|[$$IOP_DUMP4]}
            <MI 217c6  MOVE.L  (A7)+,(A6-0x420)>             Δ+4                {[«10""»]}
            <POP 217c8-217ca StackAdj>                       Δ+6                {[-4-]}
            <MI 217ca  MOVE.L  (A6-0x420),(A7)>                                 {[4, '(A6-0x420)']}
            <MI 217cc  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x420)']|[#0]}
            <MI 217ce  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x420)']|[#0]|[#0]}
            <Const 0x217d0 0x0.4>                            Δ-4                {[4, '(A6-0x420)']|[#0]|[#0]|[##0]}
            <Pointer.fp 0x217d4 <LVAR -0x414 @ 1(r)>>        Δ-4                {[4, '(A6-0x420)']|[#0]|[#0]|[##0]|[@@-1044]}
            <Pointer.fp 0x217d6 <LVAR -0x412 @ 4(r)>>        Δ-4                {[4, '(A6-0x420)']|[#0]|[#0]|[##0]|[@@-1044]|[@@-1042]}
            <Call 0x217d8 0x10380>                                              {[4, '(A6-0x420)']|[#0]|[#0]|[##0]|[@@-1044]|[@@-1042]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 217de-217e0 StackAdj>                       Δ+20               {}
            <MI 217e0  TST.B   (A6-0x414)>                                      {}
            <MI 217e2  BNE     0x217fa>                                         {}
        <POP 217e4-217fa Naked>                              Σ0         ↓
            <Const 0x217e4 0x2.2>                            Δ-2                {[#2]}
            <Const 0x217e8 0x1.2>                            Δ-2                {[#2]|[#1]}
            <Const 0x217ea 0x1.4>                            Δ-4                {[#2]|[#1]|[##1]}
            <Pointer.fp 0x217ee <LVAR -0x414 @ 1(r)>>        Δ-4                {[#2]|[#1]|[##1]|[@@-1044]}
            <Pointer.fp 0x217f0 <LVAR -0x412 @ 4(r)>>        Δ-4                {[#2]|[#1]|[##1]|[@@-1044]|[@@-1042]}
            <Call 0x217f2 0x1038c>                                              {[#2]|[#1]|[##1]|[@@-1044]|[@@-1042]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 217f8-217fa StackAdj>                       Δ+16               {}
        <POP 217fa-21806 Naked>                              Σ0         ↓ ←0x217a2
            <Pointer.fp 0x217fa <LVAR -0x420 @ 4(rw)>>       Δ-4                {[@@-1056]}
            <Call 0x217fc 0x102bc>                                              {[@@-1056]}
                FreeString(VAR a : String)
            <POP 21802-21804 StackAdj>                       Δ+4                {}
            <MI 21804  MOVEQ.L #0x03,D7>                                        {}
        <POP 21806-21886 Naked>                              Σ0         ↓ →0x21922 ←0x21922
            <Blob 0x21806 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x2180a [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 2180e-21810 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[-8-]}
            <Lit 0x21810 8>                                                     {[«4""»]|[«4""»]|[-4-]|[$$IOP_DUMP]}
            <MI 21820  MOVE.L  D7,(A7)>                                         {[«4""»]|[«4""»]|[-4-]|[4, 'D7']}
            <POP 2181a-21820 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
            <Call 0x21822 0x102e4>                                              {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
                Long2String(a : Long) : String
            <POP 21828-2182a StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-4-]}
            <Call 0x2182a 0x102d0>                                              {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21830-21832 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-4-]}
            <MI 21832  MOVE.L  (A7)+,(A6-0x420)>             Δ+4                {[«4""»]|[«4""»]}
            <POP 21834-21836 StackAdj>                       Δ+4                {[«4""»]}
            <POP 21836-21837 StackAdj>                       Δ+4                {}
            <Blob 0x21837 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x2183a [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 2183e-21840 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[-8-]}
            <Lit 0x21840 8>                                                     {[«4""»]|[«4""»]|[-4-]|[$$IOP_DUMP]}
            <MI 21850  MOVE.L  D7,(A7)>                                         {[«4""»]|[«4""»]|[-4-]|[4, 'D7']}
            <POP 2184a-21850 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
            <MI 21852  ADDQ.L  #0x1,(A7)>                                       {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
            <Call 0x21854 0x102e4>                                              {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
                Long2String(a : Long) : String
            <POP 2185a-2185c StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-4-]}
            <Call 0x2185c 0x102d0>                                              {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21862-21864 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-4-]}
            <MI 21864  MOVE.L  (A7)+,(A6-0x41c)>             Δ+4                {[«4""»]|[«4""»]}
            <POP 21868-2186a StackAdj>                       Δ+4                {[«4""»]}
            <MI 2186a  MOVE.L  (A6-0x420),(A7)>                                 {[4, '(A6-0x420)']}
            <MI 2186c  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x420)']|[#0]}
            <MI 2186e  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x420)']|[#0]|[#0]}
            <Const 0x21870 0x0.4>                            Δ-4                {[4, '(A6-0x420)']|[#0]|[#0]|[##0]}
            <Pointer.fp 0x21874 <LVAR -0x414 @ 1(r)>>        Δ-4                {[4, '(A6-0x420)']|[#0]|[#0]|[##0]|[@@-1044]}
            <Pointer.fp 0x21876 <LVAR -0x412 @ 4(r)>>        Δ-4                {[4, '(A6-0x420)']|[#0]|[#0]|[##0]|[@@-1044]|[@@-1042]}
            <Call 0x21878 0x10380>                                              {[4, '(A6-0x420)']|[#0]|[#0]|[##0]|[@@-1044]|[@@-1042]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 2187e-21880 StackAdj>                       Δ+20               {}
            <MI 21880  TST.B   (A6-0x414)>                                      {}
            <MI 21882  BNE     0x21922>                                         {}
        <POP 21886-2188c Naked>                              Σ0         ↓ →0x2190e
            <MI 21886  TST.L   D7>                                              {}
            <MI 21888  BNE     0x2190e>                                         {}
        <POP 2188c-2190e Naked>                              Σ0         ↓
            <POP 2188c-2188e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2188e 0x105ec>                                              {[-2-]}
                Get_fc05() : Byte
            <MI 21894  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 21896  EXTB.W  D0>                                              {}
            <MI 21898  EXTW.L  D0>                                              {}
            <POP 0x2189a LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 218a4  MOVE.W  D0,D6>                                           {}
            <MI 218a6  MOVE.L  (A6-0x412),-(A7)>             Δ-4                {[4, '(A6-0x412)']}
            <MI 218a8  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x412)']|[#0]}
            <MI 218aa  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x412)']|[#0]|[#0]}
            <Const 0x218ac 0x200.2>                          Δ-2                {[4, '(A6-0x412)']|[#0]|[#0]|[#512]}
            <Const 0x218b0 0x1.2>                            Δ-2                {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]}
            <MI 218b2  LEA.L   (A6-0x40e),A0>                                   {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]}
            <MI 218b6  MOVE.L  A0,-(A7)>                     Δ-4                {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']}
            <Pointer.fp 0x218b8 <LVAR -0x414 @ 1(r)>>        Δ-4                {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1044]}
            <Call 0x218ba 0x10384>                                              {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1044]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 218c0-218c2 StackAdj>                       Δ+20               {}
            <MI 218c2  MOVE.W  D6,(A6-0x40c)>                                   {}
            <MI 218c6  MOVE.L  (A6-0x412),-(A7)>             Δ-4                {[4, '(A6-0x412)']}
            <MI 218c8  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x412)']|[#0]}
            <MI 218ca  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x412)']|[#0]|[#0]}
            <Const 0x218cc 0x200.2>                          Δ-2                {[4, '(A6-0x412)']|[#0]|[#0]|[#512]}
            <Const 0x218d0 0x1.2>                            Δ-2                {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]}
            <MI 218d2  LEA.L   (A6-0x40e),A0>                                   {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]}
            <MI 218d6  MOVE.L  A0,-(A7)>                     Δ-4                {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']}
            <Pointer.fp 0x218d8 <LVAR -0x414 @ 1(r)>>        Δ-4                {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1044]}
            <Call 0x218da 0x10388>                                              {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1044]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 218e0-218e2 StackAdj>                       Δ+20               {}
            <Pointer.fp 0x218e2 <LVAR -0x004 @ 1(r)>>        Δ-4                {[@@-4]}
            <Call 0x218e6 0x10304>                                              {[@@-4]}
                GetRtc() : TimeStamp
            <POP 218ec-218ee StackAdj>                       Δ+4                {}
            <MI 218ee  MOVEA.L (A6-0x412),A0>                                   {}
            <MI 218f0  MOVE.B  (A6-0x4),(A0+0x3a)>                              {}
            <MI 218f6  MOVE.B  (A6-0x3),(A0+0x3b)>                              {}
            <MI 218fc  MOVE.B  (A6-0x2),(A0+0x3c)>                              {}
            <MI 21902  MOVE.B  (A6-0x1),(A0+0x3d)>                              {}
            <MI 21908  ANDI.B  #0xfe,(A0+0x3f)>                                 {}
        <POP 2190e-21922 Naked>                              Σ0         ↓ ←0x21886
            <Const 0x2190e 0x1.2>                            Δ-2                {[#1]}
            <Const 0x21910 0x1.2>                            Δ-2                {[#1]|[#1]}
            <MI 21912  MOVE.L  (A6-0x41c),-(A7)>             Δ-4                {[#1]|[#1]|[4, '(A6-0x41c)']}
            <Pointer.fp 0x21916 <LVAR -0x414 @ 1(r)>>        Δ-4                {[#1]|[#1]|[4, '(A6-0x41c)']|[@@-1044]}
            <Pointer.fp 0x21918 <LVAR -0x412 @ 4(r)>>        Δ-4                {[#1]|[#1]|[4, '(A6-0x41c)']|[@@-1044]|[@@-1042]}
            <Call 0x2191a 0x1038c>                                              {[#1]|[#1]|[4, '(A6-0x41c)']|[@@-1044]|[@@-1042]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 21920-21922 StackAdj>                       Δ+16               {}
        <POP 21922-2193e Naked>                              Σ0         ↓ →0x21806 ←0x21806
            <Pointer.fp 0x21922 <LVAR -0x420 @ 4(rw)>>       Δ-4                {[@@-1056]}
            <Call 0x21924 0x102bc>                                              {[@@-1056]}
                FreeString(VAR a : String)
            <POP 2192a-2192c StackAdj>                       Δ+4                {}
            <Pointer.fp 0x2192c <LVAR -0x41c @ 4(rw)>>       Δ-4                {[@@-1052]}
            <Call 0x21930 0x102bc>                                              {[@@-1052]}
                FreeString(VAR a : String)
            <POP 21936-21938 StackAdj>                       Δ+4                {}
            <MI 21938  SUBQ.L  #0x1,D7>                                         {}
            <MI 2193a  BGE     0x21806>                                         {}
        <POP 2193e-21988 Naked>                              Σ0         ↓ →0x219cc
            <Blob 0x2193e [10] @>                            Δ-10               {[«10""»]}
            <POP 2194e-21950 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x21950 9>                                                     {[«10""»]|[$$IOP_DUMP0]}
            <MI 21962  MOVE.L  (A7)+,(A6-0x41c)>             Δ+4                {[«10""»]}
            <POP 21966-21968 StackAdj>                       Δ+10               {}
            <MI 21968  MOVE.L  #0xfffffc00,D5>                                  {}
            <MI 2196e  MOVE.L  (A6-0x41c),-(A7)>             Δ-4                {[4, '(A6-0x41c)']}
            <Const 0x21972 0x1.2>                            Δ-2                {[4, '(A6-0x41c)']|[#1]}
            <Const 0x21974 0x1.2>                            Δ-2                {[4, '(A6-0x41c)']|[#1]|[#1]}
            <MI 21976  MOVE.L  D5,-(A7)>                     Δ-4                {[4, '(A6-0x41c)']|[#1]|[#1]|[4, 'D5']}
            <Pointer.fp 0x21978 <LVAR -0x414 @ 1(r)>>        Δ-4                {[4, '(A6-0x41c)']|[#1]|[#1]|[4, 'D5']|[@@-1044]}
            <Pointer.fp 0x2197a <LVAR -0x412 @ 4(r)>>        Δ-4                {[4, '(A6-0x41c)']|[#1]|[#1]|[4, 'D5']|[@@-1044]|[@@-1042]}
            <Call 0x2197c 0x10380>                                              {[4, '(A6-0x41c)']|[#1]|[#1]|[4, 'D5']|[@@-1044]|[@@-1042]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 21982-21984 StackAdj>                       Δ+20               {}
            <MI 21984  TST.B   (A6-0x414)>                                      {}
            <MI 21986  BNE     0x219cc>                                         {}
        <POP 21988-219cc Naked>                              Σ0         →0x219f6
            <MI 21988  MOVEA.L (A6-0x412),A0>                                   {}
            <MI 2198a  MOVE.W  (A0+0x24),-(A7)>              Δ-2                {[2, '(A0+0x24)']}
            <Pointer.fp 0x2198e <LVAR -0x008 @ 2(r)>>        Δ-4                {[2, '(A0+0x24)']|[@@-8]}
            <Pointer.fp 0x21992 <LVAR -0x006 @ 2(r)>>        Δ-4                {[2, '(A0+0x24)']|[@@-8]|[@@-6]}
            <Call 0x21996 0x10368>                                              {[2, '(A0+0x24)']|[@@-8]|[@@-6]}
                Lba2Chs(lba : W; VAR cyl : W ; VAR hd_sec : W)
            <POP 2199c-2199e StackAdj>                       Δ+8                {[2, '(A0+0x24)']}
            <MI 2199e  MOVE.W  (A6-0x8),(A7)>                                   {[2, '(A6-0x8)']}
            <MI 219a2  MOVE.W  (A6-0x6),-(A7)>               Δ-2                {[2, '(A6-0x8)']|[2, '(A6-0x6)']}
            <Call 0x219a6 0x10202>                                              {[2, '(A6-0x8)']|[2, '(A6-0x6)']}
                KC01_DumpOn
            <POP 219ac-219ae StackAdj>                       Δ+4                {}
            <MI 219ae  OR.B    #0x01,(A0+0x3f)>                                 {}
            <MI 219b2  MOVE.B  #0x01,(A0+0x4c)>                                 {}
            <MI 219b6  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 219b8  CLR.B   -(A7)>                        Δ-2                {[#0]|[#0]}
            <Const 0x219ba 0x1.4>                            Δ-4                {[#0]|[#0]|[##1]}
            <Pointer.fp 0x219be <LVAR -0x414 @ 1(r)>>        Δ-4                {[#0]|[#0]|[##1]|[@@-1044]}
            <Pointer.fp 0x219c0 <LVAR -0x412 @ 4(r)>>        Δ-4                {[#0]|[#0]|[##1]|[@@-1044]|[@@-1042]}
            <Call 0x219c2 0x1038c>                                              {[#0]|[#0]|[##1]|[@@-1044]|[@@-1042]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 219c8-219ca StackAdj>                       Δ+16               {}
            <MI 219ca  BRA     0x219f6>                                         {}
        <POP 219cc-219f6 Naked>                              Σ0         ↓ ←0x2193e
            <Blob 0x219cc [54] @>                            Δ-54               {[«54""»]}
            <POP 219d8-219da StackAdj>                       Δ-4                {[«54""»]|[-4-]}
            <Lit 0x219da 54>                                                    {[«54""»]|[$$*** could not create IOP_DUMP0 file (see reason above)]}
            <Call 0x219ec 0x103e0>                                              {[«54""»]|[$$*** could not create IOP_DUMP0 file (see reason above)]}
                WriteConsoleStringCrLf(str : String)
            <POP 219f2-219f6 StackAdj>                       Δ+58               {}
        <POP 219f6-21a02 Naked>                              Σ0         ↓ ←0x21988
            <Pointer.fp 0x219f6 <LVAR -0x41c @ 4(rw)>>       Δ-4                {[@@-1052]}
            <Call 0x219fa 0x102bc>                                              {[@@-1052]}
                FreeString(VAR a : String)
            <POP 21a00-21a02 StackAdj>                       Δ+4                {}
        <POP 21a02-21a0a Epilogue>                           Σ0         

0x21a0a


@ 21a0a
        <LVAR  0x00a 1(w)>
        <LVAR  0x008 1(r)>
    <POP 21a0a-21a38 Body>                                              
        <POP 21a0a-21a20 Prologue>                           Σ0         ↓
        <POP 21a20-21a30 Naked>                              Σ0         ↓
            <MI 21a20  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 21a24  EXTB.W  D0>                                              {}
            <MI 21a26  LEA.L   0x20f5c,A0>                                      {}
            <MI 21a2a  MOVE.B  (A0+D0.W),(A6+0xa)>                              {}
        <POP 21a30-21a38 Epilogue>                           Σ0         

0x21a38


@ 21a38
        <LVAR  0x008 1(r)>
        <LVAR -0x002 @ 1(r)>
    <POP 21a38-21b26 Body>                                              
        <POP 21a38-21a4e Prologue>                           Σ0         ↓
        <POP 21a4e-21a64 RegCacheLoad>                       Σ0         ↓
        <POP 21a64-21a76 Naked>                              Σ0         ↓ →0x21a84
            <Call 0x21a64 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <MI 21a6a  MOVE.B  0x2393f,D0>                                      {}
            <MI 21a70  LSL.B   #0x3,D0>                                         {}
            <MI 21a72  LSR.B   #0x7,D0>                                         {}
            <MI 21a74  BEQ     0x21a84>                                         {}
        <POP 21a76-21a7c Naked>                              Σ0         ↓ →0x21a84
            <MI 21a76  TST.B   (A6+0x8)>                                        {}
            <MI 21a7a  BEQ     0x21a84>                                         {}
        <POP 21a7c-21a84 Naked>                              Σ0         ↓ →0x21ad2
            <MI 21a7c  TST.B   0x23941>                                         {}
            <MI 21a82  BEQ     0x21ad2>                                         {}
        <POP 21a84-21ad2 Naked>                              Σ0         →0x21b1e ←0x21a64 ←0x21a76
            <Blob 0x21a84 [10] @>                            Δ-10               {[«10""»]}
            <Blob 0x21a94 [12] @>                            Δ-12               {[«10""»]|[«12""»]}
            <POP 21aa6-21aa8 StackAdj>                       Δ-4                {[«10""»]|[«12""»]|[-4-]}
            <Lit 0x21aa8 9>                                                     {[«10""»]|[«12""»]|[$$CRASHSAVE]}
            <POP 21ab2-21ab4 StackAdj>                       Δ-4                {[«10""»]|[«12""»]|[$$CRASHSAVE]|[-4-]}
            <Lit 0x21ab4 11>                                                    {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]}
            <POP 21ac0-21ac2 StackAdj>                       Δ-2                {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]|[-2-]}
            <POP 21ac2-21ac3 StackAdj>                       Δ+2                {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]}
            <Const 0x21ac3 0x1.2>                            Δ-2                {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]|[#1]}
            <Pointer.fp 0x21ac4 <LVAR -0x002 @ 1(r)>>        Δ-4                {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]|[#1]|[@@-2]}
            <Call 0x21ac6 0x103b0>                                              {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]|[#1]|[@@-2]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 21acc-21ad0 StackAdj>                       Δ+36               {}
            <MI 21ad0  BRA     0x21b1e>                                         {}
        <POP 21ad2-21b1c Naked>                              Σ0         ↓ →0x21b1e ←0x21a7c
            <Blob 0x21ad2 [10] @>                            Δ-10               {[«10""»]}
            <Blob 0x21ae2 [10] @>                            Δ-10               {[«10""»]|[«10""»]}
            <POP 21aee-21af0 StackAdj>                       Δ-4                {[«10""»]|[«10""»]|[-4-]}
            <Lit 0x21af0 9>                                                     {[«10""»]|[«10""»]|[$$CRASHSAVE]}
            <POP 21afa-21afc StackAdj>                       Δ-4                {[«10""»]|[«10""»]|[$$CRASHSAVE]|[-4-]}
            <Lit 0x21afc 10>                                                    {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]}
            <POP 21b06-21b08 StackAdj>                       Δ-2                {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]|[-2-]}
            <POP 21b08-21b09 StackAdj>                       Δ+2                {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]}
            <Const 0x21b09 0x1.2>                            Δ-2                {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]|[#1]}
            <Pointer.fp 0x21b0a <LVAR -0x002 @ 1(r)>>        Δ-4                {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]|[#1]|[@@-2]}
            <Call 0x21b0c 0x103b0>                                              {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]|[#1]|[@@-2]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 21b12-21b16 StackAdj>                       Δ+34               {}
            <MI 21b16  CLR.B   0x23948>                                         {}
            <MI 21b18  TST.B   (A6-0x2)>                                        {}
            <MI 21b1a  BNE     0x21b1e>                                         {}
        <POP 21b1c-21b1e Naked>                              Σ0         ↓
            <MI 21b1c  ADDQ.B  #0x1,0x23948>                                    {}
        <POP 21b1e-21b26 Epilogue>                           Σ0         ←0x21a84 ←0x21ad2

0x21b26


@ 21b26
        <LVAR -0x004 @ 1(r)>
    <POP 21b26-21c30 Body>                                              
        <POP 21b26-21b3c Prologue>                           Σ0         ↓
        <POP 21b3c-21b4c RegCacheLoad>                       Σ0         ↓
        <POP 21b4c-21b54 Naked>                              Σ0         ↓ →0x21b82
            <MI 21b4c  TST.B   0x23948>                                         {}
            <MI 21b52  BNE     0x21b82>                                         {}
        <POP 21b54-21b82 Naked>                              Σ0         →0x21c1e
            <Blob 0x21b54 [64] @>                            Δ-64               {[«64""»]}
            <POP 21b64-21b66 StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x21b66 63>                                                    {[«64""»]|[$$>>> Can't make a CRASHDUMP because a full CRASHSAVE wasn't made]}
            <Call 0x21b74 0x103e0>                                              {[«64""»]|[$$>>> Can't make a CRASHDUMP because a full CRASHSAVE wasn't made]}
                WriteConsoleStringCrLf(str : String)
            <POP 21b7a-21b7e StackAdj>                       Δ+68               {}
            <MI 21b7e  BRA     0x21c1e>                                         {}
        <POP 21b82-21b8a Naked>                              Σ0         ↓ →0x21bb2 ←0x21b4c
            <MI 21b82  TST.B   0x23949>                                         {}
            <MI 21b88  BEQ     0x21bb2>                                         {}
        <POP 21b8a-21bb2 Naked>                              Σ0         →0x21c1e
            <Blob 0x21b8a [66] @>                            Δ-66               {[«66""»]}
            <POP 21b96-21b98 StackAdj>                       Δ-4                {[«66""»]|[-4-]}
            <Lit 0x21b98 66>                                                    {[«66""»]|[$$>>> Can't make a CRASHDUMP because the uDIAG or FRU tests were run]}
            <Call 0x21ba6 0x103e0>                                              {[«66""»]|[$$>>> Can't make a CRASHDUMP because the uDIAG or FRU tests were run]}
                WriteConsoleStringCrLf(str : String)
            <POP 21bac-21bb0 StackAdj>                       Δ+70               {}
            <MI 21bb0  BRA     0x21c1e>                                         {}
        <POP 21bb2-21c1c Naked>                              Σ0         ↓ →0x21c1e ←0x21b82
            <Blob 0x21bb2 [64] @>                            Δ-64               {[«64""»]}
            <POP 21bbe-21bc0 StackAdj>                       Δ-6                {[«64""»]|[-6-]}
            <Lit 0x21bc0 64>                                                    {[«64""»]|[-2-]|[$$Do you want to AUTO BOOT the R1000 after the crash dump is taken]}
            <POP 21bca-21bcc StackAdj>                       Δ-2                {[«64""»]|[-2-]|[$$Do you want to AUTO BOOT the R1000 after the crash dump is taken]|[-2-]}
            <MI 21bcc  CLR.B   (A7)>                                            {[«64""»]|[-2-]|[$$Do you want to AUTO BOOT the R1000 after the crash dump is taken]|[-2-]}
            <Call 0x21bce 0x103f0>                                              {[«64""»]|[-2-]|[$$Do you want to AUTO BOOT the R1000 after the crash dump is taken]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 21bd4-21bd6 StackAdj>                       Δ+6                {[«64""»]|[-2-]}
            <MI 21bd6  MOVE.B  (A7)+,D0>                     Δ+2                {[«64""»]}
            <MI 21bd8  EXTB.W  D0>                                              {[«64""»]}
            <POP 0x21bda LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«64""»]}
            <POP 21bdc-21bde StackAdj>                       Δ+64               {}
            <MI 21bde  MOVE.B  D0,0x23942>                                      {}
            <Blob 0x21be0 [10] @>                            Δ-10               {[«10""»]}
            <POP 21bf2-21bf4 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x21bf4 9>                                                     {[«10""»]|[$$CRASHDUMP]}
            <Const 0x21c02 0x1.4>                            Δ-4                {[«10""»]|[$$CRASHDUMP]|[##1]}
            <Const 0x21c06 0x1.2>                            Δ-2                {[«10""»]|[$$CRASHDUMP]|[##1]|[#1]}
            <Pointer.fp 0x21c08 <LVAR -0x004 @ 1(r)>>        Δ-4                {[«10""»]|[$$CRASHDUMP]|[##1]|[#1]|[@@-4]}
            <Call 0x21c0c 0x103b0>                                              {[«10""»]|[$$CRASHDUMP]|[##1]|[#1]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 21c12-21c16 StackAdj>                       Δ+24               {}
            <MI 21c16  TST.B   (A6-0x4)>                                        {}
            <MI 21c1a  BEQ     0x21c1e>                                         {}
        <POP 21c1c-21c1e Naked>                              Σ0         ↓
            <MI 21c1c  CLR.B   0x23942>                                         {}
        <POP 21c1e-21c28 Naked>                              Σ0         ↓ ←0x21b54 ←0x21b8a ←0x21bb2
            <MI 21c1e  MOVE.L  #0x6,0x23944>                                    {}
        <POP 21c28-21c30 Epilogue>                           Σ0         

0x21c30


@ 21c30
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
    <POP 21c30-21cd8 Body>                                              
        <POP 21c30-21c46 Prologue>                           Σ0         ↓
        <POP 21c46-21c4e RegCacheLoad>                       Σ0         ↓
        <POP 21c4e-21cb4 Naked>                              Σ0         ↓ →0x21cca
            <MI 21c4e  MOVE.B  #0x01,0x23949>                                   {}
            <Call 0x21c54 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Call 0x21c5a 0x10538>                                              {}
                IPC_Init(void)
            <Const 0x21c60 0x1.2>                            Δ-2                {[#1]}
            <Call 0x21c62 0x10502>                                              {[#1]}
                IPC_PutBool(a : Bool)
            <POP 21c64-21c65 StackAdj>                       Δ+2                {}
            <Const 0x21c65 0x1.2>                            Δ-2                {[#1]}
            <Call 0x21c66 0x10502>                                              {[#1]}
                IPC_PutBool(a : Bool)
            <POP 21c68-21c69 StackAdj>                       Δ+2                {}
            <Const 0x21c69 0x1.2>                            Δ-2                {[#1]}
            <Call 0x21c6a 0x10502>                                              {[#1]}
                IPC_PutBool(a : Bool)
            <POP 21c6c-21c6e StackAdj>                       Δ+2                {}
            <Call 0x21c6e 0x10514>                                              {}
                IPC_PutEnd(void)
            <Blob 0x21c74 [10] @>                            Δ-10               {[«10""»]}
            <POP 21c86-21c88 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x21c88 9>                                                     {[«10""»]|[$$RUN_UDIAG]}
            <Const 0x21c9a 0x1.4>                            Δ-4                {[«10""»]|[$$RUN_UDIAG]|[##1]}
            <Const 0x21c9e 0x1.2>                            Δ-2                {[«10""»]|[$$RUN_UDIAG]|[##1]|[#1]}
            <Pointer.fp 0x21ca0 <LVAR -0x004 @ 1(r)>>        Δ-4                {[«10""»]|[$$RUN_UDIAG]|[##1]|[#1]|[@@-4]}
            <Call 0x21ca4 0x103b0>                                              {[«10""»]|[$$RUN_UDIAG]|[##1]|[#1]|[@@-4]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 21caa-21cae StackAdj>                       Δ+24               {}
            <MI 21cae  TST.B   (A6-0x4)>                                        {}
            <MI 21cb2  BNE     0x21cca>                                         {}
        <POP 21cb4-21cca Naked>                              Σ0         →0x21cd0
            <Call 0x21cb4 0x10538>                                              {}
                IPC_Init(void)
            <MI 21cba  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21cbe  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x21cc0 0x10526>                                              {[4, '^(A0)']}
                IPC_GetBool() : Bool
            <POP 21cc6-21cc8 StackAdj>                       Δ+4                {}
            <MI 21cc8  BRA     0x21cd0>                                         {}
        <POP 21cca-21cd0 Naked>                              Σ0         ↓ ←0x21c4e
            <MI 21cca  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21cce  CLR.B   (A0)>                                            {}
        <POP 21cd0-21cd8 Epilogue>                           Σ0         ←0x21cb4

0x21cd8


@ 21cd8
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x080 @>
        <LVAR -0x081 1(w)>
        <LVAR -0x082 1(r)>
        <LVAR -0x084 2(w)>
        <LVAR -0x086 @ 2(w)>
        <LVAR -0x08f @>
        <LVAR -0x090 @ 1(r)>
        <LVAR -0x094 @ 4(r)>
        <LVAR -0x098 @ 4(rw)>
        <LVAR -0x099 @ 1(r)>
        <LVAR -0x09a @ 1(r)>
    <POP 21cd8-21f5c Body>                                              
        <POP 21cd8-21cee Prologue>                           Σ0         ↓
        <POP 21cee-21d00 RegCacheLoad>                       Σ0         ↓
        <POP 21d00-21d8c Naked>                              Σ0         ↓ →0x21d9c
            <Blob 0x21d00 [32] @>                            Δ-32               {[«32""»]}
            <POP 21d0c-21d0e StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x21d0e 32>                                                    {[«32""»]|[$$Running post-mortem diagnostics.]}
            <Call 0x21d20 0x103e0>                                              {[«32""»]|[$$Running post-mortem diagnostics.]}
                WriteConsoleStringCrLf(str : String)
            <POP 21d26-21d2a StackAdj>                       Δ+36               {}
            <Call 0x21d2a 0x10538>                                              {}
                IPC_Init(void)
            <Const 0x21d30 0x1.2>                            Δ-2                {[#1]}
            <Call 0x21d32 0x10502>                                              {[#1]}
                IPC_PutBool(a : Bool)
            <MI 21d38  CLR.B   (A7)>                                            {[#1]}
            <Call 0x21d3a 0x10502>                                              {[#1]}
                IPC_PutBool(a : Bool)
            <POP 21d40-21d42 StackAdj>                       Δ+2                {}
            <Call 0x21d42 0x10514>                                              {}
                IPC_PutEnd(void)
            <Blob 0x21d48 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21d4c [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21d50 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21d54-21d56 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x21d56 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]}
            <Const 0x21d68 0x1.4>                            Δ-4                {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[##1]}
            <Const 0x21d6c 0x1.2>                            Δ-2                {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[##1]|[#1]}
            <Pointer.fp 0x21d6e <LVAR -0x09a @ 1(r)>>        Δ-4                {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[##1]|[#1]|[@@-154]}
            <Call 0x21d70 0x103b0>                                              {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[##1]|[#1]|[@@-154]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 21d76-21d7a StackAdj>                       Δ+20               {}
            <MI 21d7a  MOVE.B  (A6+0xc),D0>                                     {}
            <MI 21d7e  EXTB.W  D0>                                              {}
            <MI 21d80  MOVE.W  D0,(A6-0x84)>                                    {}
            <MI 21d84  CLR.B   (A6-0x82)>                                       {}
            <MI 21d88  TST.B   (A6-0x9a)>                                       {}
            <MI 21d8a  BEQ     0x21d9c>                                         {}
        <POP 21d8c-21d9c Naked>                              Σ0         →0x21f42
            <MI 21d8c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21d90  CLR.B   (A0)>                                            {}
            <MI 21d92  MOVE.W  #0x2,(A6-0x86)>                                  {}
            <MI 21d98  BRA     0x21f42>                                         {}
        <POP 21d9c-21e6c Naked>                              Σ0 Δ-8     ↓ ←0x21d00
            <Call 0x21d9c 0x10538>                                              {}
                IPC_Init(void)
            <Pointer.fp 0x21da2 <LVAR -0x099 @ 1(r)>>        Δ-4                {[@@-153]}
            <Call 0x21da6 0x10526>                                              {[@@-153]}
                IPC_GetBool() : Bool
            <POP 21dac-21dae StackAdj>                       Δ+4                {}
            <Pointer.fp 0x21dae <LVAR -0x098 @ 4(rw)>>       Δ-4                {[@@-152]}
            <Call 0x21db0 0x1052c>                                              {[@@-152]}
                IPC_GetString(VAR retval : String)
            <POP 21db6-21db8 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x21db8 <LVAR -0x094 @ 4(r)>>        Δ-4                {[@@-148]}
            <Call 0x21dba 0x1052c>                                              {[@@-148]}
                IPC_GetString(VAR retval : String)
            <POP 21dc0-21dc2 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x21dc2 <LVAR -0x090 @ 1(r)>>        Δ-4                {[@@-144]}
            <Const 0x21dc6 0x0.4>                            Δ-4                {[@@-144]|[##0]}
            <Const 0x21dca 0x0.4>                            Δ-4                {[@@-144]|[##0]|[##0]}
            <Call 0x21dce 0x10520>                                              {[@@-144]|[##0]|[##0]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 21dd4-21dd6 StackAdj>                       Δ+12               {}
            <Pointer.fp 0x21dd6 <LVAR -0x08f @>>             Δ-4                {[@@-143]}
            <Const 0x21dda 0x0.4>                            Δ-4                {[@@-143]|[##0]}
            <Const 0x21dde 0x7.4>                            Δ-4                {[@@-143]|[##0]|[##7]}
            <Call 0x21de2 0x10520>                                              {[@@-143]|[##0]|[##7]}
                IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 21de8-21dea StackAdj>                       Δ+12               {}
            <Call 0x21dea 0x1051a>                                              {}
                IPC_GetEnd(void)
            <MI 21df0  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21df4  MOVE.B  (A6-0x99),D0>                                    {}
            <MI 21df8  NEG.B   D0>                                              {}
            <MI 21dfa  ADDQ.B  #0x1,D0>                                         {}
            <MI 21dfc  EXTB.W  D0>                                              {}
            <POP 0x21dfe LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 21e00  MOVE.B  D0,(A0)>                                         {}
            <Blob 0x21e02 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21e06 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 21e0a-21e0c StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <MI 21e0c  MOVE.L  (A6-0x98),-(A7)>              Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x98)']}
            <POP 21e0e-21e10 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x98)']|[-4-]}
            <Lit 0x21e10 8>                                                     {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x98)']|[$$.ERRMESS]}
            <Call 0x21e22 0x102d0>                                              {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x98)']|[$$.ERRMESS]}
                StringCat2(a, b : String) : String
            <POP 21e28-21e2a StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-4-]}
            <MI 21e2a  MOVE.L  (A7)+,(A6-0x98)>              Δ+4                {[«4""»]|[«4""»]}
            <MI 21e2c  MOVE.L  (A6-0x98),(A7)>                                  {[«4""»]|[4, '(A6-0x98)']}
            <Call 0x21e2e 0x102cc>                                              {[«4""»]|[4, '(A6-0x98)']}
                StringDup(a : String) : String
            <MI 21e34  MOVE.L  (A6-0x94),(A7)>                                  {[«4""»]|[4, '(A6-0x94)']}
            <MI 21e36  CLR.L   D0>                                              {[«4""»]|[4, '(A6-0x94)']}
            <MI 21e38  MOVE.B  (A6-0x90),D0>                                    {[«4""»]|[4, '(A6-0x94)']}
            <MI 21e3c  MOVE.L  D0,-(A7)>                     Δ-4                {[«4""»]|[4, '(A6-0x94)']|[4, 'D0']}
            <Call 0x21e3e 0x1044c>                                              {[«4""»]|[4, '(A6-0x94)']|[4, 'D0']}
                WriteErrorMessage(file : String; txt : String; number : Long) : Bool
            <POP 21e44-21e46 StackAdj>                       Δ+12               {}
            <MI 21e46  MOVE.W  #0x01,(A6-0x86)>                                 {}
            <MI 21e4a  MOVE.B  (A6-0x90),(A6-0x81)>                             {}
            <MI 21e50  LEA.L   (A6-0x80),A0>                                    {}
            <MI 21e54  LEA.L   (A6-0x8f),A1>                                    {}
            <BlockMove 8,A1,A0>                                                 {}
            <MI 21e60  MOVEA.L (A6-0x98),A0>                                    {}
            <MI 21e62  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 21e64  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 21e66  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 21e68  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 21e6a  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D0']}
        <POP 21e6c-21e70 Naked>                              Σ-8        ↓ →0x21e98 ←0x21e70
            <MI 21e6c  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 21e6e  BGT     0x21e98>                                         {[-8-]}
        <POP 21e70-21e98 Naked>                              Σ-8        ↓ →0x21e6c
            <MI 21e70  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 21e72  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x21e74 LimitCheck 0x0 ≤ D0 ≤ 0x6b>                            {[-8-]}
            <MI 21e7a  LEA.L   (A6-0x9a),A0>                                    {[-8-]}
            <MI 21e7c  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 21e7e  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x21e80 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 21e8a  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 21e8e  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L+#0x22)>                  {[-8-]}
            <MI 21e94  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 21e96  BVC     0x21e6c>                                         {[-8-]}
        <POP 21e98-21ec8 Naked>                              Σ-8 Δ+4    ↓ →0x21ede ←0x21e6c
            <POP 21e98-21e9a StackAdj>                       Δ+4                {[-4-]}
            <MI 21e9a  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 21e9c  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 21e9e  EXTW.L  D0>                                              {[-4-]}
            <MI 21ea0  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 21ea2  MOVE.L  D0,D6>                                           {[-4-]}
            <POP 21ea4-21ea6 StackAdj>                       Δ+4                {}
            <MI 21ea6  MOVE.L  D6,D0>                                           {}
            <MI 21ea8  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x21eaa LimitCheck 0x0 ≤ D0 ≤ 0x6b>                            {}
            <MI 21eb0  LEA.L   (A6-0x9a),A0>                                    {}
            <MI 21eb2  CLR.B   (A0+D0.L+#0x22)>                                 {}
            <MI 21eb6  MOVEA.L (A6-0x94),A0>                                    {}
            <MI 21eb8  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 21eba  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 21ebc  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 21ebe  MOVE.L  D0,D5>                                           {[4, 'A0']}
            <MI 21ec0  MOVEQ.L #0x6c,D0>                                        {[4, 'A0']}
            <MI 21ec2  SUB.L   D6,D0>                                           {[4, 'A0']}
            <MI 21ec4  CMP.L   D0,D5>                                           {[4, 'A0']}
            <MI 21ec6  BLE     0x21ede>                                         {[4, 'A0']}
        <POP 21ec8-21ede Naked>                              Σ-4        ↓
            <MI 21ec8  MOVE.L  D0,D5>                                           {[-4-]}
            <MI 21eca  MOVE.L  D5,D0>                                           {[-4-]}
            <MI 21ecc  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x21ece LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-4-]}
            <MI 21ed8  MOVE.B  #0x5c,(A0+D0.L+#0x2)>                            {[-4-]}
        <POP 21ede-21ee2 Naked>                              Σ-4 Δ-4    ↓ ←0x21e98
            <MI 21ede  MOVE.L  D5,-(A7)>                     Δ-4                {[-4-]|[4, 'D5']}
            <MI 21ee0  MOVEQ.L #0x01,D7>                                        {[-4-]|[4, 'D5']}
        <POP 21ee2-21ee6 Naked>                              Σ-8        ↓ →0x21f10 ←0x21ee6
            <MI 21ee2  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 21ee4  BGT     0x21f10>                                         {[-8-]}
        <POP 21ee6-21f10 Naked>                              Σ-8        ↓ →0x21ee2
            <MI 21ee6  ADDQ.L  #0x1,D6>                                         {[-8-]}
            <MI 21ee8  MOVE.L  D6,D0>                                           {[-8-]}
            <MI 21eea  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x21eec LimitCheck 0x0 ≤ D0 ≤ 0x6b>                            {[-8-]}
            <MI 21ef2  LEA.L   (A6-0x9a),A0>                                    {[-8-]}
            <MI 21ef4  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 21ef6  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x21ef8 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 21f02  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 21f06  MOVE.B  (A1+D1.L+#0x2),(A0+D0.L+#0x22)>                  {[-8-]}
            <MI 21f0c  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 21f0e  BVC     0x21ee2>                                         {[-8-]}
        <POP 21f10-21f1a Naked>                              Σ-8 Δ+4    ↓ →0x21f2c ←0x21ee2
            <POP 21f10-21f12 StackAdj>                       Δ+4                {[-4-]}
            <MI 21f12  CMPI.L  #0x0000006c,D6>                                  {[-4-]}
            <MI 21f18  BGE     0x21f2c>                                         {[-4-]}
        <POP 21f1a-21f2c Naked>                              Σ-4        ↓
            <MI 21f1a  MOVE.L  D6,D0>                                           {[-4-]}
            <MI 21f1c  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 21f1e  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x21f20 LimitCheck 0x0 ≤ D0 ≤ 0x6b>                            {[-4-]}
            <MI 21f26  LEA.L   (A6-0x9a),A0>                                    {[-4-]}
            <MI 21f28  CLR.B   (A0+D0.L+#0x22)>                                 {[-4-]}
        <POP 21f2c-21f42 Naked>                              Σ-4 Δ+4    ↓ ←0x21f10
            <POP 21f2c-21f2e StackAdj>                       Δ+4                {}
            <Pointer.fp 0x21f2e <LVAR -0x094 @ 4(r)>>        Δ-4                {[@@-148]}
            <Call 0x21f30 0x102bc>                                              {[@@-148]}
                FreeString(VAR a : String)
            <POP 21f36-21f38 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x21f38 <LVAR -0x098 @ 4(rw)>>       Δ-4                {[@@-152]}
            <Call 0x21f3a 0x102bc>                                              {[@@-152]}
                FreeString(VAR a : String)
            <POP 21f40-21f42 StackAdj>                       Δ+4                {}
        <POP 21f42-21f54 Naked>                              Σ0         ↓ ←0x21d8c
            <Const 0x21f42 0x3.2>                            Δ-2                {[#3]}
            <MI 21f46  LEA.L   (A6-0x86),A0>                                    {[#3]}
            <MI 21f4a  MOVE.L  A0,-(A7)>                     Δ-4                {[#3]|[4, 'A0']}
            <Call 0x21f4c 0x103a8>                                              {[#3]|[4, 'A0']}
                Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 21f52-21f54 StackAdj>                       Δ+6                {}
        <POP 21f54-21f5c Epilogue>                           Σ0         

0x21f5c


@ 21f5c
        <LVAR  0x008 1(r)>
    <POP 21f5c-21fde Body>                                              
        <POP 21f5c-21f72 Prologue>                           Σ0         ↓
        <POP 21f72-21f76 RegCacheLoad>                       Σ0         ↓
        <POP 21f76-21fd6 Naked>                              Σ0         ↓
            <Blob 0x21f76 [40] @>                            Δ-40               {[«40""»]}
            <MI 21f88  MOVE.B  (A6+0x8),D0>                                     {[«40""»]}
            <MI 21f8c  EXTB.W  D0>                                              {[«40""»]}
            <MI 21f8e  MULS.W  #0x32,D0>                                        {[«40""»]}
            <MI 21f90  LEA.L   0x20f7c,A0>                                      {[«40""»]}
            <Blob 0x21f94 [50] (A0+D0.W+#0x32)>              Δ-50               {[«40""»]|[«50»]}
            <POP 21fa0-21fa2 StackAdj>                       Δ-8                {[«40""»]|[«50»]|[-8-]}
            <Lit 0x21fa2 39>                                                    {[«40""»]|[«50»]|[-4-]|[$$Restarting system after R1000 Processor]}
            <POP 21fb2-21fb4 StackAdj>                       Δ-4                {[«40""»]|[«50»]|[-4-]|[$$Restarting system after R1000 Processor]|[-4-]}
            <Lit 0x21fb4>                                                       {[«40""»]|[«50»]|[-4-]|[$$Restarting system after R1000 Processor]|[$$…]}
                <Pointer.sp 0x21fb4 12>                      Δ-4        
                <Const 0x21fb8 0x1.2>                        Δ-2        
                <Const 0x21fba 0x32.2>                       Δ-2        
                <Call 0x21fbc 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21fc2-21fc4 StackAdj>                   Δ+8        
            <Call 0x21fc4 0x102d0>                                              {[«40""»]|[«50»]|[-4-]|[$$Restarting system after R1000 Processor]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 21fca-21fcc StackAdj>                       Δ+8                {[«40""»]|[«50»]|[-4-]}
            <Call 0x21fcc 0x103e0>                                              {[«40""»]|[«50»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21fd2-21fd6 StackAdj>                       Δ+94               {}
        <POP 21fd6-21fde Epilogue>                           Σ0         

0x21fde


@ 21fde
        <LVAR  0x008 1(rw)>
        <LVAR -0x003 1(r)>
        <LVAR -0x004 1(r) 2(r)>
        <LVAR -0x006 @>
        <LVAR -0x080 2(r)>
        <LVAR -0x081 1(r)>
        <LVAR -0x082 1(r) 2(r)>
        <LVAR -0x086 @ 1(r)>
        <LVAR -0x483 1(r)>
        <LVAR -0x484 2(r)>
        <LVAR -0x486 @>
        <LVAR -0x488 @ 1(r)>
        <LVAR -0x48c @ 4(r)>
    <POP 21fde-22118 Body>                                              
        <POP 21fde-21ff4 Prologue>                           Σ0         ↓
        <POP 21ff4-22004 RegCacheLoad>                       Σ0         ↓
        <POP 22004-22048 Naked>                              Σ0         ↓ →0x22110
            <MI 22004  CLR.B   (A6+0x8)>                                        {}
            <Blob 0x22006 [10] @>                            Δ-10               {[«10""»]}
            <POP 22018-2201a StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x2201a 9>                                                     {[«10""»]|[$$ERROR_LOG]}
            <POP 2202a-2202c StackAdj>                       Δ-2                {[«10""»]|[$$ERROR_LOG]|[-2-]}
            <MI 2202c  CLR.B   (A7)>                                            {[«10""»]|[$$ERROR_LOG]|[-2-]}
            <Const 0x2202e 0x1.2>                            Δ-2                {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]}
            <Const 0x22030 0x0.4>                            Δ-4                {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]}
            <Pointer.fp 0x22034 <LVAR -0x488 @ 1(r)>>        Δ-4                {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]|[@@-1160]}
            <Pointer.fp 0x22036 <LVAR -0x48c @ 4(r)>>        Δ-4                {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]|[@@-1160]|[@@-1164]}
            <Call 0x22038 0x10380>                                              {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]|[@@-1160]|[@@-1164]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 2203e-22042 StackAdj>                       Δ+30               {}
            <MI 22042  TST.B   (A6-0x488)>                                      {}
            <MI 22044  BNE     0x22110>                                         {}
        <POP 22048-220cc Naked>                              Σ0         ↓ →0x22110
            <MI 22048  MOVE.L  (A6-0x48c),-(A7)>             Δ-4                {[4, '(A6-0x48c)']}
            <MI 2204a  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x48c)']|[#0]}
            <MI 2204c  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x48c)']|[#0]|[#0]}
            <Const 0x2204e 0x200.2>                          Δ-2                {[4, '(A6-0x48c)']|[#0]|[#0]|[#512]}
            <Const 0x22052 0x1.2>                            Δ-2                {[4, '(A6-0x48c)']|[#0]|[#0]|[#512]|[#1]}
            <MI 22054  LEA.L   (A6-0x486),A0>                                   {[4, '(A6-0x48c)']|[#0]|[#0]|[#512]|[#1]}
            <MI 22058  MOVE.L  A0,-(A7)>                     Δ-4                {[4, '(A6-0x48c)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']}
            <Pointer.fp 0x2205a <LVAR -0x488 @ 1(r)>>        Δ-4                {[4, '(A6-0x48c)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1160]}
            <Call 0x2205c 0x10384>                                              {[4, '(A6-0x48c)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1160]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 22062-22064 StackAdj>                       Δ+16               {[4, '(A6-0x48c)']}
            <MI 22064  MOVE.L  (A6-0x48c),(A7)>                                 {[4, '(A6-0x48c)']}
            <MI 22066  MOVE.W  (A6-0x484),D0>                                   {[4, '(A6-0x48c)']}
            <MI 2206a  LSR.W   #0x3,D0>                                         {[4, '(A6-0x48c)']}
            <MI 2206c  ADDQ.W  #0x1,D0>                                         {[4, '(A6-0x48c)']}
            <MI 2206e  MOVE.W  D0,-(A7)>                     Δ-2                {[4, '(A6-0x48c)']|[2, 'D0']}
            <MI 22070  CLR.L   D0>                                              {[4, '(A6-0x48c)']|[2, 'D0']}
            <MI 22072  MOVE.B  (A6-0x483),D0>                                   {[4, '(A6-0x48c)']|[2, 'D0']}
            <MI 22076  LSL.B   #0x5,D0>                                         {[4, '(A6-0x48c)']|[2, 'D0']}
            <MI 22078  LSR.B   #0x5,D0>                                         {[4, '(A6-0x48c)']|[2, 'D0']}
            <MI 2207a  ASL.W   #0x6,D0>                                         {[4, '(A6-0x48c)']|[2, 'D0']}
            <MI 2207c  MOVE.W  D0,-(A7)>                     Δ-2                {[4, '(A6-0x48c)']|[2, 'D0']|[2, 'D0']}
            <Const 0x2207e 0x40.2>                           Δ-2                {[4, '(A6-0x48c)']|[2, 'D0']|[2, 'D0']|[#64]}
            <Const 0x22082 0x1.2>                            Δ-2                {[4, '(A6-0x48c)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]}
            <MI 22084  LEA.L   (A6-0x86),A0>                                    {[4, '(A6-0x48c)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]}
            <MI 22088  MOVE.L  A0,-(A7)>                     Δ-4                {[4, '(A6-0x48c)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]|[4, 'A0']}
            <Pointer.fp 0x2208a <LVAR -0x488 @ 1(r)>>        Δ-4                {[4, '(A6-0x48c)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]|[4, 'A0']|[@@-1160]}
            <Call 0x2208c 0x10384>                                              {[4, '(A6-0x48c)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]|[4, 'A0']|[@@-1160]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 22092-22096 StackAdj>                       Δ+18               {[-2-]}
            <MI 22096  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x22098 0x1.2>                            Δ-2                {[-2-]|[#1]}
            <Const 0x2209a 0x1.4>                            Δ-4                {[-2-]|[#1]|[##1]}
            <Pointer.fp 0x2209e <LVAR -0x488 @ 1(r)>>        Δ-4                {[-2-]|[#1]|[##1]|[@@-1160]}
            <Pointer.fp 0x220a0 <LVAR -0x48c @ 4(r)>>        Δ-4                {[-2-]|[#1]|[##1]|[@@-1160]|[@@-1164]}
            <Call 0x220a2 0x1038c>                                              {[-2-]|[#1]|[##1]|[@@-1160]|[@@-1164]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 220a8-220aa StackAdj>                       Δ+16               {}
            <Pointer.fp 0x220aa <LVAR -0x006 @>>             Δ-4                {[@@-6]}
            <Call 0x220ae 0x10304>                                              {[@@-6]}
                GetRtc() : TimeStamp
            <POP 220b4-220b6 StackAdj>                       Δ+4                {}
            <MI 220b6  CLR.B   (A6+0x8)>                                        {}
            <MI 220b8  CLR.L   D0>                                              {}
            <MI 220ba  MOVE.B  (A6-0x82),D0>                                    {}
            <MI 220be  LSR.B   #0x1,D0>                                         {}
            <MI 220c0  CLR.L   D1>                                              {}
            <MI 220c2  MOVE.B  (A6-0x4),D1>                                     {}
            <MI 220c6  LSR.B   #0x1,D1>                                         {}
            <MI 220c8  CMP.W   D1,D0>                                           {}
            <MI 220ca  BNE     0x22110>                                         {}
        <POP 220cc-220e4 Naked>                              Σ0         ↓ →0x22110
            <MI 220cc  MOVE.W  (A6-0x82),D0>                                    {}
            <MI 220d0  LSL.W   #0x7,D0>                                         {}
            <MI 220d2  LSR.W   #0x8,D0>                                         {}
            <MI 220d4  LSR.W   #0x4,D0>                                         {}
            <MI 220d6  MOVE.W  (A6-0x4),D1>                                     {}
            <MI 220da  LSL.W   #0x7,D1>                                         {}
            <MI 220dc  LSR.W   #0x8,D1>                                         {}
            <MI 220de  LSR.W   #0x4,D1>                                         {}
            <MI 220e0  CMP.W   D1,D0>                                           {}
            <MI 220e2  BNE     0x22110>                                         {}
        <POP 220e4-220fc Naked>                              Σ0         ↓ →0x22110
            <MI 220e4  CLR.L   D0>                                              {}
            <MI 220e6  MOVE.B  (A6-0x81),D0>                                    {}
            <MI 220ea  LSL.B   #0x3,D0>                                         {}
            <MI 220ec  LSR.B   #0x3,D0>                                         {}
            <MI 220ee  CLR.L   D1>                                              {}
            <MI 220f0  MOVE.B  (A6-0x3),D1>                                     {}
            <MI 220f4  LSL.B   #0x3,D1>                                         {}
            <MI 220f6  LSR.B   #0x3,D1>                                         {}
            <MI 220f8  CMP.W   D1,D0>                                           {}
            <MI 220fa  BNE     0x22110>                                         {}
        <POP 220fc-22106 Naked>                              Σ0         ↓ →0x22110
            <MI 220fc  MOVE.B  (A6-0x86),D0>                                    {}
            <MI 22100  CMPI.B  #0x03,D0>                                        {}
            <MI 22104  BNE     0x22110>                                         {}
        <POP 22106-2210e Naked>                              Σ0         ↓ →0x22110
            <MI 22106  MOVE.W  (A6-0x80),D0>                                    {}
            <MI 2210a  CMP.W   #0x01,D0>                                        {}
            <MI 2210c  BNE     0x22110>                                         {}
        <POP 2210e-22110 Naked>                              Σ0         ↓
            <MI 2210e  ADDQ.B  #0x1,(A6+0x8)>                                   {}
        <POP 22110-22118 Epilogue>                           Σ0         ←0x22004 ←0x22048 ←0x220cc ←0x220e4 ←0x220fc ←0x22106

0x22118


@ 22118
        <LVAR  0x008 1(r)>
        <LVAR -0x078 2(r)>
        <LVAR -0x07a @ 2(w)>
    <POP 22118-221c8 Body>                                              
        <POP 22118-2212e Prologue>                           Σ0         ↓
        <POP 2212e-22130 RegCacheLoad>                       Σ0         ↓
        <POP 22130-221c0 Naked>                              Σ0         ↓
            <MI 22130  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 22134  EXTB.W  D0>                                              {}
            <MI 22136  MOVE.W  D0,(A6-0x7a)>                                    {}
            <MI 2213a  CLR.W   (A6-0x78)>                                       {}
            <Const 0x2213e 0x2.2>                            Δ-2                {[#2]}
            <MI 22142  LEA.L   (A6-0x7a),A0>                                    {[#2]}
            <MI 22146  MOVE.L  A0,-(A7)>                     Δ-4                {[#2]|[4, 'A0']}
            <Call 0x22148 0x103a8>                                              {[#2]|[4, 'A0']}
                Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 2214e-2214f StackAdj>                       Δ+6        ↓       {}
            <Blob 0x2214f [56] @>                            Δ-56               {[«56""»]}
            <POP 22160-22162 StackAdj>                       Δ-4                {[«56""»]|[-4-]}
            <Lit 0x22162 55>                                                    {[«56""»]|[$$The R1000 has exceeded maximum safe temperature limits.]}
            <Call 0x22174 0x103e0>                                              {[«56""»]|[$$The R1000 has exceeded maximum safe temperature limits.]}
                WriteConsoleStringCrLf(str : String)
            <POP 2217a-2217e StackAdj>                       Δ+58               {[-2-]}
            <POP 2217e-2217f StackAdj>                       Δ+2                {}
            <Const 0x2217f 0x1b.2>                           Δ-2                {[#27]}
            <Call 0x22182 0x103d0>                                              {[#27]}
                WriteConsoleChar(chr : char)
            <POP 22188-2218a StackAdj>                       Δ-2                {[#27]|[-2-]}
            <POP 2218a-2218b StackAdj>                       Δ+2                {[#27]}
            <Blob 0x2218b [2] @>                             Δ-2                {[#27]|[«2""»]}
            <MI 2218e  MOVE.B  0x208ff,(A7+0x1)>                                {[#27]|[«2""»]}
            <MI 22194  MOVE.B  0x20900,(A7+0x2)>                                {[#27]|[«2""»]}
            <POP 2219a-2219c StackAdj>                       Δ-4                {[#27]|[«2""»]|[-4-]}
            <Lit 0x2219c>                                                       {[#27]|[«2""»]|[$$…]}
                <Pointer.sp 0x2219c 4>                       Δ-4        
                <Const 0x221a0 0x1.2>                        Δ-2        
                <Const 0x221a2 0x3.2>                        Δ-2        
                <Call 0x221a6 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 221ac-221ae StackAdj>                   Δ+8        
            <Call 0x221ae 0x103d8>                                              {[#27]|[«2""»]|[$$…]}
                WriteConsoleString(str : String)
            <POP 221b4-221b6 StackAdj>                       Δ+8                {}
            <MI 221b6  MOVE.L  #0x6,0x23944>                                    {}
        <POP 221c0-221c8 Epilogue>                           Σ0         

0x221c8


@ 221c8
        <LVAR  0x008 1(r)>
        <LVAR -0x078 2(r)>
        <LVAR -0x07a @ 2(w)>
    <POP 221c8-222dc Body>                                              
        <POP 221c8-221de Prologue>                           Σ0         ↓
        <POP 221de-221ec RegCacheLoad>                       Σ0         ↓
        <POP 221ec-2221a Naked>                              Σ0         ↓ →0x22242
            <MI 221ec  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 221f0  EXTB.W  D0>                                              {}
            <MI 221f2  MOVE.W  D0,(A6-0x7a)>                                    {}
            <MI 221f6  CLR.W   (A6-0x78)>                                       {}
            <Const 0x221fa 0x2.2>                            Δ-2                {[#2]}
            <MI 221fe  LEA.L   (A6-0x7a),A0>                                    {[#2]}
            <MI 22202  MOVE.L  A0,-(A7)>                     Δ-4                {[#2]|[4, 'A0']}
            <Call 0x22204 0x103a8>                                              {[#2]|[4, 'A0']}
                Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 2220a-2220c StackAdj>                       Δ+6                {}
            <MI 2220c  MOVE.L  #0x6,0x23944>                                    {}
            <MI 22216  TST.W   D0>                                              {}
            <MI 22218  BNE     0x22242>                                         {}
        <POP 2221a-22242 Naked>                              Σ0         →0x22268
            <Blob 0x2221a [40] @>                            Δ-40               {[«40""»]}
            <POP 22226-22228 StackAdj>                       Δ-4                {[«40""»]|[-4-]}
            <Lit 0x22228 40>                                                    {[«40""»]|[$$Restarting system after loss of AC power]}
            <Call 0x22236 0x103e0>                                              {[«40""»]|[$$Restarting system after loss of AC power]}
                WriteConsoleStringCrLf(str : String)
            <POP 2223c-22240 StackAdj>                       Δ+44               {}
            <MI 22240  BRA     0x22268>                                         {}
        <POP 22242-22268 Naked>                              Σ0         ↓ ←0x221ec
            <Blob 0x22242 [60] @>                            Δ-60               {[«60""»]}
            <POP 2224e-22250 StackAdj>                       Δ-4                {[«60""»]|[-4-]}
            <Lit 0x22250 60>                                                    {[«60""»]|[$$Restarting system after DC power fault or White Button Reset]}
            <Call 0x2225e 0x103e0>                                              {[«60""»]|[$$Restarting system after DC power fault or White Button Reset]}
                WriteConsoleStringCrLf(str : String)
            <POP 22264-22268 StackAdj>                       Δ+64               {}
        <POP 22268-222ce Naked>                              Σ0         ↓ →0x222d4 ←0x2221a
            <Const 0x22268 0x1b.2>                           Δ-2                {[#27]}
            <Call 0x2226c 0x103d0>                                              {[#27]}
                WriteConsoleChar(chr : char)
            <POP 22272-22274 StackAdj>                       Δ-2                {[#27]|[-2-]}
            <POP 22274-22275 StackAdj>                       Δ+2                {[#27]}
            <Blob 0x22275 [2] @>                             Δ-2                {[#27]|[«2""»]}
            <MI 22278  MOVE.B  0x20967,(A7+0x1)>                                {[#27]|[«2""»]}
            <MI 2227e  MOVE.B  0x20968,(A7+0x2)>                                {[#27]|[«2""»]}
            <POP 22284-22286 StackAdj>                       Δ-4                {[#27]|[«2""»]|[-4-]}
            <Lit 0x22286>                                                       {[#27]|[«2""»]|[$$…]}
                <Pointer.sp 0x22286 4>                       Δ-4        
                <Const 0x2228a 0x1.2>                        Δ-2        
                <Const 0x2228c 0x3.2>                        Δ-2        
                <Call 0x22290 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22292-22294 StackAdj>                   Δ+8        
            <Call 0x22294 0x103d8>                                              {[#27]|[«2""»]|[$$…]}
                WriteConsoleString(str : String)
            <POP 2229a-2229c StackAdj>                       Δ+6                {[#27]}
            <MI 2229c  CLR.B   (A7)>                                            {[#27]}
            <Call 0x2229e 0x21a38>                                              {[#27]}
            <POP 222a2-222a4 StackAdj>                       Δ+2                {}
            <MI 222a4  CLR.B   0x23942>                                         {}
            <POP 222a6-222a8 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x222a8 0x105ce>                                              {[-2-]}
                ReadKeySwitch() : Bool
            <MI 222ae  MOVE.B  (A7)+,D1>                     Δ+2                {}
            <MI 222b0  NEG.B   D1>                                              {}
            <MI 222b2  ADDQ.B  #0x1,D1>                                         {}
            <MI 222b4  MOVE.B  0x2393f,D2>                                      {}
            <MI 222ba  LSL.B   #0x4,D2>                                         {}
            <MI 222bc  LSR.B   #0x7,D2>                                         {}
            <MI 222be  AND.B   D1,D2>                                           {}
            <MI 222c0  MOVE.B  0x2393f,D1>                                      {}
            <MI 222c6  LSL.B   #0x5,D1>                                         {}
            <MI 222c8  LSR.B   #0x7,D1>                                         {}
            <MI 222ca  AND.B   D2,D1>                                           {}
            <MI 222cc  BEQ     0x222d4>                                         {}
        <POP 222ce-222d2 Naked>                              Σ0         ↓ →0x222d4
            <MI 222ce  TST.W   D0>                                              {}
            <MI 222d0  BNE     0x222d4>                                         {}
        <POP 222d2-222d4 Naked>                              Σ0         ↓
            <MI 222d2  ADDQ.B  #0x1,0x23942>                                    {}
        <POP 222d4-222dc Epilogue>                           Σ0         ←0x22268 ←0x222ce

0x222dc


@ 222dc
        <LVAR  0x008 1(r)>
        <LVAR -0x078 2(r)>
        <LVAR -0x07a @ 2(w)>
    <POP 222dc-22400 Body>                                              
        <POP 222dc-222f2 Prologue>                           Σ0         ↓
        <POP 222f2-22304 RegCacheLoad>                       Σ0         ↓
        <POP 22304-22330 Naked>                              Σ0         ↓ →0x2238e
            <MI 22304  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 22308  EXTB.W  D0>                                              {}
            <MI 2230a  MOVE.W  D0,(A6-0x7a)>                                    {}
            <MI 2230e  CLR.W   (A6-0x78)>                                       {}
            <Const 0x22312 0x2.2>                            Δ-2                {[#2]}
            <MI 22316  LEA.L   (A6-0x7a),A0>                                    {[#2]}
            <MI 2231a  MOVE.L  A0,-(A7)>                     Δ-4                {[#2]|[4, 'A0']}
            <Call 0x2231c 0x103a8>                                              {[#2]|[4, 'A0']}
                Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 22322-22324 StackAdj>                       Δ+6                {}
            <MI 22324  MOVE.L  #0x6,0x23944>                                    {}
            <MI 2232a  CMPI.B  #0x19,D0>                                        {}
            <MI 2232e  BNE     0x2238e>                                         {}
        <POP 22330-2238e Naked>                              Σ0         →0x223f8
            <Blob 0x22330 [64] @>                            Δ-64               {[«64""»]}
            <POP 22342-22344 StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x22344 63>                                                    {[«64""»]|[$$Restarting system after operator or program invoked crash (EPO)]}
            <Call 0x22352 0x103e0>                                              {[«64""»]|[$$Restarting system after operator or program invoked crash (EPO)]}
                WriteConsoleStringCrLf(str : String)
            <POP 22358-2235c StackAdj>                       Δ+66               {[-2-]}
            <POP 2235c-2235d StackAdj>                       Δ+2                {}
            <Const 0x2235d 0x1b.2>                           Δ-2                {[#27]}
            <Call 0x2235e 0x103d0>                                              {[#27]}
                WriteConsoleChar(chr : char)
            <POP 22364-22366 StackAdj>                       Δ-2                {[#27]|[-2-]}
            <POP 22366-22367 StackAdj>                       Δ+2                {[#27]}
            <Blob 0x22367 [2] @>                             Δ-2                {[#27]|[«2""»]}
            <MI 2236a  MOVE.B  0x209dd,(A7+0x1)>                                {[#27]|[«2""»]}
            <MI 22370  MOVE.B  0x209de,(A7+0x2)>                                {[#27]|[«2""»]}
            <POP 22376-22378 StackAdj>                       Δ-4                {[#27]|[«2""»]|[-4-]}
            <Lit 0x22378>                                                       {[#27]|[«2""»]|[$$…]}
                <Pointer.sp 0x22378 4>                       Δ-4        
                <Const 0x2237c 0x1.2>                        Δ-2        
                <Const 0x2237e 0x3.2>                        Δ-2        
                <Call 0x22380 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22382-22384 StackAdj>                   Δ+8        
            <Call 0x22384 0x103d8>                                              {[#27]|[«2""»]|[$$…]}
                WriteConsoleString(str : String)
            <POP 2238a-2238c StackAdj>                       Δ+8                {}
            <MI 2238c  BRA     0x223f8>                                         {}
        <POP 2238e-223ec Naked>                              Σ0         ↓ →0x223f6 ←0x22304
            <Blob 0x2238e [50] @>                            Δ-50               {[«50""»]}
            <POP 2239a-2239c StackAdj>                       Δ-4                {[«50""»]|[-4-]}
            <Lit 0x2239c 50>                                                    {[«50""»]|[$$Restarting system after operator console BREAK key]}
            <Call 0x223aa 0x103e0>                                              {[«50""»]|[$$Restarting system after operator console BREAK key]}
                WriteConsoleStringCrLf(str : String)
            <POP 223b0-223b4 StackAdj>                       Δ+52               {[-2-]}
            <POP 223b4-223b5 StackAdj>                       Δ+2                {}
            <Const 0x223b5 0x1b.2>                           Δ-2                {[#27]}
            <Call 0x223b6 0x103d0>                                              {[#27]}
                WriteConsoleChar(chr : char)
            <POP 223bc-223be StackAdj>                       Δ-2                {[#27]|[-2-]}
            <POP 223be-223bf StackAdj>                       Δ+2                {[#27]}
            <Blob 0x223bf [2] @>                             Δ-2                {[#27]|[«2""»]}
            <MI 223c2  MOVE.B  0x209e1,(A7+0x1)>                                {[#27]|[«2""»]}
            <MI 223c8  MOVE.B  0x209e2,(A7+0x2)>                                {[#27]|[«2""»]}
            <POP 223ce-223d0 StackAdj>                       Δ-4                {[#27]|[«2""»]|[-4-]}
            <Lit 0x223d0>                                                       {[#27]|[«2""»]|[$$…]}
                <Pointer.sp 0x223d0 4>                       Δ-4        
                <Const 0x223d4 0x1.2>                        Δ-2        
                <Const 0x223d6 0x3.2>                        Δ-2        
                <Call 0x223d8 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 223da-223dc StackAdj>                   Δ+8        
            <Call 0x223dc 0x103d8>                                              {[#27]|[«2""»]|[$$…]}
                WriteConsoleString(str : String)
            <POP 223e2-223e4 StackAdj>                       Δ+8                {}
            <MI 223e4  TST.B   0x23940>                                         {}
            <MI 223ea  BEQ     0x223f6>                                         {}
        <POP 223ec-223f6 Naked>                              Σ0         →0x223f8
            <Const 0x223ec 0x1.2>                            Δ-2                {[#1]}
            <Call 0x223ee 0x21a38>                                              {[#1]}
            <POP 223f2-223f4 StackAdj>                       Δ+2                {}
            <MI 223f4  BRA     0x223f8>                                         {}
        <POP 223f6-223f8 Naked>                              Σ0         ↓ ←0x2238e
            <MI 223f6  MOVE.L  #0x01,0x23944>                                   {}
        <POP 223f8-22400 Epilogue>                           Σ0         ←0x22330 ←0x223ec

0x22400


@ 22400
        <LVAR  0x008 1(r)>
        <LVAR -0x005 @ 1(r)>
        <LVAR -0x006 @ 1(r)>
    <POP 22400-225d4 Body>                                              
        <POP 22400-22416 Prologue>                           Σ0         ↓
        <POP 22416-2242e RegCacheLoad>                       Σ0         ↓
        <POP 2242e-22440 Naked>                              Σ0         ↓ →0x2244a
            <Call 0x2242e 0x212da>                                              {}
            <POP 22432-22434 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x22434 0x103f8>                                              {[-4-]}
                GetConsoleConfig() : Long
            <MI 2243a  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 2243c  CMP.L   #0x01,D0>                                        {}
            <MI 2243e  BEQ     0x2244a>                                         {}
        <POP 22440-2244a Naked>                              Σ0         ↓
            <MI 22440  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x22444 0x21f5c>                                              {[2, '(A6+0x8)']}
            <POP 22448-2244a StackAdj>                       Δ+2                {}
        <POP 2244a-22476 Naked>                              Σ0         ↓ →0x2247c ←0x2242e
            <POP 2244a-2244c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2244c 0x21fde>                                              {[-2-]}
            <MI 22450  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 22452  EXTB.W  D0>                                              {}
            <POP 0x22454 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 22456  MOVE.B  D0,D7>                                           {}
            <MI 22458  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Pointer.fp 0x2245c <LVAR -0x006 @ 1(r)>>        Δ-4                {[2, '(A6+0x8)']|[@@-6]}
            <Call 0x22460 0x21cd8>                                              {[2, '(A6+0x8)']|[@@-6]}
            <POP 22464-22466 StackAdj>                       Δ+4                {[2, '(A6+0x8)']}
            <POP 22466-22467 StackAdj>                       Δ+2                {}
            <Const 0x22467 0x1.2>                            Δ-2                {[#1]}
            <Call 0x22468 0x21a38>                                              {[#1]}
            <POP 2246c-2246e StackAdj>                       Δ+2                {}
            <MI 2246e  CLR.B   0x23942>                                         {}
            <MI 22470  TST.B   (A6-0x6)>                                        {}
            <MI 22474  BEQ     0x2247c>                                         {}
        <POP 22476-2247c Naked>                              Σ0         →0x225cc
            <MI 22476  MOVE.L  #0x03,0x23944>                                   {}
            <MI 22478  BRA     0x225cc>                                         {}
        <POP 2247c-2248a Naked>                              Σ0         ↓ →0x225a4 ←0x2244a
            <MI 2247c  MOVE.B  0x2393f,D0>                                      {}
            <MI 22482  LSL.B   #0x3,D0>                                         {}
            <MI 22484  LSR.B   #0x7,D0>                                         {}
            <MI 22486  BEQ     0x225a4>                                         {}
        <POP 2248a-22494 Naked>                              Σ0         ↓ →0x225a4
            <MI 2248a  TST.B   0x23941>                                         {}
            <MI 22490  BNE     0x225a4>                                         {}
        <POP 22494-224a6 Naked>                              Σ0         ↓ →0x22574
            <Pointer.fp 0x22494 <LVAR -0x005 @ 1(r)>>        Δ-4                {[@@-5]}
            <Call 0x22498 0x21c30>                                              {[@@-5]}
            <POP 2249c-2249e StackAdj>                       Δ+4                {}
            <MI 2249e  TST.B   (A6-0x5)>                                        {}
            <MI 224a2  BEQ     0x22574>                                         {}
        <POP 224a6-224b0 Naked>                              Σ0         ↓ →0x22506
            <MI 224a6  MOVE.L  #0x6,0x23944>                                    {}
            <MI 224ac  TST.B   D7>                                              {}
            <MI 224ae  BEQ     0x22506>                                         {}
        <POP 224b0-22506 Naked>                              Σ0         →0x22572
            <Blob 0x224b0 [70] @>                            Δ-70               {[«70""»]}
            <POP 224c2-224c4 StackAdj>                       Δ-4                {[«70""»]|[-4-]}
            <Lit 0x224c4 69>                                                    {[«70""»]|[$$*** the microdiagnostic passed but this is the second crash today due]}
            <Call 0x224d2 0x103e0>                                              {[«70""»]|[$$*** the microdiagnostic passed but this is the second crash today due]}
                WriteConsoleStringCrLf(str : String)
            <POP 224d8-224d9 StackAdj>                       Δ+74       ↓       {}
            <Blob 0x224d9 [54] @>                            Δ-54               {[«54""»]}
            <POP 224ea-224ec StackAdj>                       Δ-4                {[«54""»]|[-4-]}
            <Lit 0x224ec 53>                                                    {[«54""»]|[$$    a hardware problem. Call RATIONAL for assistance.]}
            <Call 0x224fa 0x103e0>                                              {[«54""»]|[$$    a hardware problem. Call RATIONAL for assistance.]}
                WriteConsoleStringCrLf(str : String)
            <POP 22500-22504 StackAdj>                       Δ+58               {}
            <MI 22504  BRA     0x22572>                                         {}
        <POP 22506-22572 Naked>                              Σ0         ↓ ←0x224a6
            <Blob 0x22506 [72] @>                            Δ-72               {[«72""»]}
            <POP 22512-22514 StackAdj>                       Δ-4                {[«72""»]|[-4-]}
            <Lit 0x22514 72>                                                    {[«72""»]|[$$>>> The system crashed due to a hardware problem but the microdiagnostic]}
            <Call 0x22522 0x103e0>                                              {[«72""»]|[$$>>> The system crashed due to a hardware problem but the microdiagnostic]}
                WriteConsoleStringCrLf(str : String)
            <POP 22528-2252a StackAdj>                       Δ+76               {}
            <Blob 0x2252a [74] @>                            Δ-74               {[«74""»]}
            <POP 22536-22538 StackAdj>                       Δ-4                {[«74""»]|[-4-]}
            <Lit 0x22538 74>                                                    {[«74""»]|[$$    test passed. The problem may be intermittent. Suggest trying to reboot]}
            <Call 0x22546 0x103e0>                                              {[«74""»]|[$$    test passed. The problem may be intermittent. Suggest trying to reboot]}
                WriteConsoleStringCrLf(str : String)
            <POP 2254c-2254e StackAdj>                       Δ+76               {[-2-]}
            <Call 0x2254e 0x105ce>                                              {[-2-]}
                ReadKeySwitch() : Bool
            <MI 22554  MOVE.B  (A7)+,0x23942>                Δ+2                {}
            <MI 22556  NEG.B   0x23942>                                         {}
            <MI 22558  ADDQ.B  #0x1,0x23942>                                    {}
            <MI 2255a  MOVE.B  0x2393f,D0>                                      {}
            <MI 22560  LSL.B   #0x4,D0>                                         {}
            <MI 22562  LSR.B   #0x7,D0>                                         {}
            <MI 22564  AND.B   D0,0x23942>                                      {}
            <MI 22566  MOVE.B  0x2393f,D0>                                      {}
            <MI 2256c  LSL.B   #0x5,D0>                                         {}
            <MI 2256e  LSR.B   #0x7,D0>                                         {}
            <MI 22570  AND.B   D0,0x23942>                                      {}
        <POP 22572-22574 Naked>                              Σ0         →0x225a2 ←0x224b0
            <MI 22572  BRA     0x225a2>                                         {}
        <POP 22574-225a2 Naked>                              Σ0         ↓ ←0x22494
            <Blob 0x22574 [62] @>                            Δ-62               {[«62""»]}
            <POP 22586-22588 StackAdj>                       Δ-4                {[«62""»]|[-4-]}
            <Lit 0x22588 61>                                                    {[«62""»]|[$$*** the microdiagnostic test failed: please run the FRU tests]}
            <Call 0x22596 0x103e0>                                              {[«62""»]|[$$*** the microdiagnostic test failed: please run the FRU tests]}
                WriteConsoleStringCrLf(str : String)
            <POP 2259c-225a0 StackAdj>                       Δ+66               {}
            <MI 225a0  MOVE.L  #0x03,0x23944>                                   {}
        <POP 225a2-225a4 Naked>                              Σ0         →0x225cc ←0x22572
            <MI 225a2  BRA     0x225cc>                                         {}
        <POP 225a4-225cc Naked>                              Σ0         ↓ ←0x2247c ←0x2248a
            <Blob 0x225a4 [40] @>                            Δ-40               {[«40""»]}
            <POP 225b0-225b2 StackAdj>                       Δ-4                {[«40""»]|[-4-]}
            <Lit 0x225b2 40>                                                    {[«40""»]|[$$>>> Automatic Crash Recovery is disabled]}
            <Call 0x225c0 0x103e0>                                              {[«40""»]|[$$>>> Automatic Crash Recovery is disabled]}
                WriteConsoleStringCrLf(str : String)
            <POP 225c6-225ca StackAdj>                       Δ+44               {}
            <MI 225ca  MOVE.L  #0x01,0x23944>                                   {}
        <POP 225cc-225d4 Epilogue>                           Σ0         ←0x22476 ←0x225a2

0x225d4


@ 225d4
        <LVAR  0x008 1(r)>
        <LVAR -0x078 2(w)>
        <LVAR -0x07a @ 2(w)>
    <POP 225d4-22626 Body>                                              
        <POP 225d4-225ea Prologue>                           Σ0         ↓
        <POP 225ea-225ec RegCacheLoad>                       Σ0         ↓
        <POP 225ec-2261e Naked>                              Σ0         ↓
            <MI 225ec  MOVE.W  #0x03,(A6-0x7a)>                                 {}
            <MI 225f0  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 225f4  EXTB.W  D0>                                              {}
            <MI 225f6  MOVE.W  D0,(A6-0x78)>                                    {}
            <Const 0x225fa 0x3.2>                            Δ-2                {[#3]}
            <MI 225fc  LEA.L   (A6-0x7a),A0>                                    {[#3]}
            <MI 22600  MOVE.L  A0,-(A7)>                     Δ-4                {[#3]|[4, 'A0']}
            <Call 0x22602 0x103a8>                                              {[#3]|[4, 'A0']}
                Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 22608-2260a StackAdj>                       Δ+4                {[#3]}
            <POP 2260a-2260b StackAdj>                       Δ+2                {}
            <Const 0x2260b 0x1.2>                            Δ-2                {[#1]}
            <Call 0x2260e 0x21a38>                                              {[#1]}
            <POP 22612-22614 StackAdj>                       Δ+2                {}
            <MI 22614  MOVE.L  #0x6,0x23944>                                    {}
        <POP 2261e-22626 Epilogue>                           Σ0         

0x22626


@ 22626
        <LVAR -0x078 2(r)>
        <LVAR -0x07a 2(w)>
        <LVAR -0x07c @ 2(w)>
    <POP 22626-22696 Body>                                              
        <POP 22626-2263c Prologue>                           Σ0         ↓
        <POP 2263c-22642 RegCacheLoad>                       Σ0         ↓
        <POP 22642-2268e Naked>                              Σ0         ↓
            <MI 22642  MOVE.W  #0x4,(A6-0x7c)>                                  {}
            <MI 22648  MOVE.W  #0x9,(A6-0x7a)>                                  {}
            <MI 2264e  CLR.W   (A6-0x78)>                                       {}
            <Const 0x22652 0x3.2>                            Δ-2                {[#3]}
            <MI 22656  LEA.L   (A6-0x7c),A0>                                    {[#3]}
            <MI 2265a  MOVE.L  A0,-(A7)>                     Δ-4                {[#3]|[4, 'A0']}
            <Call 0x2265c 0x103a8>                                              {[#3]|[4, 'A0']}
                Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 22662-22664 StackAdj>                       Δ+4                {[#3]}
            <MI 22664  CLR.B   (A7)>                                            {[#3]}
            <Call 0x22666 0x21a38>                                              {[#3]}
            <Call 0x2266a 0x105ce>                                              {[#3]}
                ReadKeySwitch() : Bool
            <MI 22670  MOVE.B  (A7)+,0x23942>                Δ+2                {}
            <MI 22672  NEG.B   0x23942>                                         {}
            <MI 22674  ADDQ.B  #0x1,0x23942>                                    {}
            <MI 22676  MOVE.B  0x2393f,D0>                                      {}
            <MI 2267c  LSL.B   #0x4,D0>                                         {}
            <MI 2267e  LSR.B   #0x7,D0>                                         {}
            <MI 22680  AND.B   D0,0x23942>                                      {}
            <MI 22682  MOVE.B  0x2393f,D0>                                      {}
            <MI 22688  LSL.B   #0x5,D0>                                         {}
            <MI 2268a  LSR.B   #0x7,D0>                                         {}
            <MI 2268c  AND.B   D0,0x23942>                                      {}
        <POP 2268e-22696 Epilogue>                           Σ0         

0x22696


@ 22696
        <LVAR  0x008 1(r)>
    <POP 22696-22758 Body>                                   Δ+2        
        <POP 22696-226ac Prologue>                           Σ0         ↓
        <POP 226ac-22708 Naked>                              Σ0         →0x22724 →0x22726 →0x22728 →0x22730 →0x22732 →0x22734 →0x22736 →0x22738 →0x2273a →0x2273c →0x22742 →0x22744 →0x22746 →0x22748
            <MI 226ac  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x226b0 0x21f5c>                                              {[2, '(A6+0x8)']}
            <POP 226b4-226b5 StackAdj>                       Δ+2                {}
            <Const 0x226b5 0x1b.2>                           Δ-2                {[#27]}
            <Call 0x226b8 0x103d0>                                              {[#27]}
                WriteConsoleChar(chr : char)
            <POP 226be-226c0 StackAdj>                       Δ-2                {[#27]|[-2-]}
            <POP 226c0-226c1 StackAdj>                       Δ+2                {[#27]}
            <Blob 0x226c1 [2] @>                             Δ-2                {[#27]|[«2""»]}
            <MI 226c4  MOVE.B  0x20b59,(A7+0x1)>                                {[#27]|[«2""»]}
            <MI 226ca  MOVE.B  0x20b5a,(A7+0x2)>                                {[#27]|[«2""»]}
            <POP 226d0-226d2 StackAdj>                       Δ-4                {[#27]|[«2""»]|[-4-]}
            <Lit 0x226d2>                                                       {[#27]|[«2""»]|[$$…]}
                <Pointer.sp 0x226d2 4>                       Δ-4        
                <Const 0x226d6 0x1.2>                        Δ-2        
                <Const 0x226da 0x3.2>                        Δ-2        
                <Call 0x226de 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 226e4-226e6 StackAdj>                   Δ+8        
            <Call 0x226e6 0x103d8>                                              {[#27]|[«2""»]|[$$…]}
                WriteConsoleString(str : String)
            <POP 226ec-226ee StackAdj>                       Δ+8                {}
            <MI 226ee  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 226f2  EXTB.W  D0>                                              {}
            <MI 226f4  MOVE.W  D0,D1>                                           {}
            <POP 0x226f6 LimitCheck 0x0 ≤ D1 ≤ 0xd>                             {}
            <MI 226fe  ADD.W   D1,D1>                                           {}
            <MI 22700  SWITCH  D1.W>                                            {}
        <POP 22724-22726 Naked>                              Σ0         →0x22750 ←0x226ac
            <MI 22724  BRA     0x22750>                                         {}
        <POP 22726-22728 Naked>                              Σ0         →0x22748 ←0x226ac
            <MI 22726  BRA     0x22748>                                         {}
        <POP 22728-22730 Naked>                              Σ0 Δ-2     →0x2274e ←0x226ac ←0x22732 ←0x22734 ←0x22736 ←0x22746
            <MI 22728  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x2272a 0x22400>                                              {[2, 'D0']}
            <MI 2272e  BRA     0x2274e>                                         {[2, 'D0']}
        <POP 22730-22732 Naked>                              Σ0         →0x22748 ←0x226ac
            <MI 22730  BRA     0x22748>                                         {}
        <POP 22732-22734 Naked>                              Σ0         →0x22728 ←0x226ac
            <MI 22732  BRA     0x22728>                                         {}
        <POP 22734-22736 Naked>                              Σ0         →0x22728 ←0x226ac
            <MI 22734  BRA     0x22728>                                         {}
        <POP 22736-22738 Naked>                              Σ0         →0x22728 ←0x226ac
            <MI 22736  BRA     0x22728>                                         {}
        <POP 22738-2273a Naked>                              Σ0         →0x22748 ←0x226ac
            <MI 22738  BRA     0x22748>                                         {}
        <POP 2273a-2273c Naked>                              Σ0         →0x22748 ←0x226ac
            <MI 2273a  BRA     0x22748>                                         {}
        <POP 2273c-22742 Naked>                              Σ0         →0x22750 ←0x226ac
            <Call 0x2273c 0x22626>                                              {}
            <MI 22740  BRA     0x22750>                                         {}
        <POP 22742-22744 Naked>                              Σ0         →0x22748 ←0x226ac
            <MI 22742  BRA     0x22748>                                         {}
        <POP 22744-22746 Naked>                              Σ0         →0x22748 ←0x226ac
            <MI 22744  BRA     0x22748>                                         {}
        <POP 22746-22748 Naked>                              Σ0         →0x22728 ←0x226ac
            <MI 22746  BRA     0x22728>                                         {}
        <POP 22748-2274e Naked>                              Σ0 Δ-2     ↓ ←0x226ac ←0x22726 ←0x22730 ←0x22738 ←0x2273a ←0x22742 ←0x22744
            <MI 22748  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x2274a 0x225d4>                                              {[2, 'D0']}
        <POP 2274e-22750 Naked>                              Σ-2 Δ+2    ↓ ←0x22728
            <POP 2274e-22750 StackAdj>                       Δ+2                {}
        <POP 22750-22758 Epilogue>                           Σ0         ←0x22724 ←0x2273c

0x22758


@ 22758
        <LVAR  0x012 @ 4(r)>
        <LVAR  0x00e @ 4(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 22758-22884 Body>                                              
        <POP 22758-2276e Prologue>                           Σ0         ↓
        <POP 2276e-22784 RegCacheLoad>                       Σ0         ↓
        <POP 22784-22812 Naked>                              Σ0         ↓ →0x22828
            <POP 22784-22786 StackAdj>                       Δ-4                {[-4-]}
            <MI 22786  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x12)']}
            <Call 0x22788 0x102cc>                                              {[-4-]|[4, '(A6+0x12)']}
                StringDup(a : String) : String
            <POP 2278a-2278c StackAdj>                       Δ+4                {[-4-]}
            <Call 0x2278c 0x103e0>                                              {[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22792-22794 StackAdj>                       Δ+2                {[-2-]}
            <POP 22794-22795 StackAdj>                       Δ+2                {}
            <Blob 0x22795 [2] @>                             Δ-2                {[«2""»]}
            <POP 22798-2279a StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <Lit 0x2279a 2>                                                     {[«2""»]|[$$ _]}
            <Call 0x227ac 0x103d8>                                              {[«2""»]|[$$ _]}
                WriteConsoleString(str : String)
            <POP 227b2-227b4 StackAdj>                       Δ+2                {[«2""»]|[-2-]}
            <MI 227b4  MOVE.L  (A6+0xe),-(A7)>               Δ-4                {[«2""»]|[-2-]|[4, '(A6+0xe)']}
            <Call 0x227b6 0x102cc>                                              {[«2""»]|[-2-]|[4, '(A6+0xe)']}
                StringDup(a : String) : String
            <MI 227b8  MOVE.L  (A6+0xa),(A7)>                                   {[«2""»]|[-2-]|[4, '(A6+0xa)']}
            <Call 0x227bc 0x10450>                                              {[«2""»]|[-2-]|[4, '(A6+0xa)']}
                FS_10450(&, &)
            <POP 227c2-227c4 StackAdj>                       Δ+6                {[«2""»]}
            <POP 227c4-227c5 StackAdj>                       Δ+2                {}
            <Const 0x227c5 0x1b.2>                           Δ-2                {[#27]}
            <Call 0x227c8 0x103d0>                                              {[#27]}
                WriteConsoleChar(chr : char)
            <POP 227ce-227d0 StackAdj>                       Δ-2                {[#27]|[-2-]}
            <POP 227d0-227d1 StackAdj>                       Δ+2                {[#27]}
            <Blob 0x227d1 [2] @>                             Δ-2                {[#27]|[«2""»]}
            <MI 227d4  MOVE.B  0x20b5f,(A7+0x1)>                                {[#27]|[«2""»]}
            <MI 227da  MOVE.B  0x20b60,(A7+0x2)>                                {[#27]|[«2""»]}
            <POP 227e0-227e2 StackAdj>                       Δ-4                {[#27]|[«2""»]|[-4-]}
            <Lit 0x227e2>                                                       {[#27]|[«2""»]|[$$…]}
                <Pointer.sp 0x227e2 4>                       Δ-4        
                <Const 0x227e6 0x1.2>                        Δ-2        
                <Const 0x227e8 0x3.2>                        Δ-2        
                <Call 0x227ec 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 227f2-227f4 StackAdj>                   Δ+8        
            <Call 0x227f4 0x103d8>                                              {[#27]|[«2""»]|[$$…]}
                WriteConsoleString(str : String)
            <POP 227fa-227fc StackAdj>                       Δ+8                {}
            <MI 227fc  MOVE.L  #0x6,0x23944>                                    {}
            <MI 22802  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 22806  EXTB.W  D0>                                              {}
            <MI 22808  LEA.L   0x21238,A0>                                      {}
            <MI 2280c  TST.B   (A0+D0.W)>                                       {}
            <MI 22810  BEQ     0x22828>                                         {}
        <POP 22812-2281a Naked>                              Σ0         ↓ →0x22824
            <MI 22812  TST.B   0x23940>                                         {}
            <MI 22818  BEQ     0x22824>                                         {}
        <POP 2281a-22824 Naked>                              Σ0         →0x22826
            <Const 0x2281a 0x1.2>                            Δ-2                {[#1]}
            <Call 0x2281c 0x21a38>                                              {[#1]}
            <POP 22820-22822 StackAdj>                       Δ+2                {}
            <MI 22822  BRA     0x22826>                                         {}
        <POP 22824-22826 Naked>                              Σ0         ↓ ←0x22812
            <MI 22824  MOVE.L  #0x01,0x23944>                                   {}
        <POP 22826-22828 Naked>                              Σ0         →0x22868 ←0x2281a
            <MI 22826  BRA     0x22868>                                         {}
        <POP 22828-2283a Naked>                              Σ0         ↓ →0x22858 ←0x22784
            <Call 0x22828 0x212da>                                              {}
            <POP 2282c-2282e StackAdj>                       Δ-4                {[-4-]}
            <Call 0x2282e 0x103f8>                                              {[-4-]}
                GetConsoleConfig() : Long
            <MI 22834  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <MI 22836  CMP.L   #0x01,D0>                                        {}
            <MI 22838  BEQ     0x22858>                                         {}
        <POP 2283a-22858 Naked>                              Σ0         ↓
            <POP 2283a-2283c StackAdj>                       Δ-4                {[-4-]}
            <MI 2283c  MOVE.L  (A6+0x12),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x12)']}
            <Call 0x2283e 0x102cc>                                              {[-4-]|[4, '(A6+0x12)']}
                StringDup(a : String) : String
            <POP 22840-22842 StackAdj>                       Δ+4                {[-4-]}
            <Call 0x22842 0x103e0>                                              {[-4-]}
                WriteConsoleStringCrLf(str : String)
            <MI 22848  MOVE.L  (A6+0xe),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xe)']}
            <Call 0x2284a 0x102cc>                                              {[-4-]|[4, '(A6+0xe)']}
                StringDup(a : String) : String
            <MI 2284c  MOVE.L  (A6+0xa),(A7)>                                   {[-4-]|[4, '(A6+0xa)']}
            <Call 0x22850 0x10450>                                              {[-4-]|[4, '(A6+0xa)']}
                FS_10450(&, &)
            <POP 22856-22858 StackAdj>                       Δ+8                {}
        <POP 22858-22860 Naked>                              Σ0         ↓ →0x22868 ←0x22828
            <MI 22858  TST.B   0x23940>                                         {}
            <MI 2285e  BEQ     0x22868>                                         {}
        <POP 22860-22868 Naked>                              Σ0         ↓
            <MI 22860  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x22862 0x21a38>                                              {[#0]}
            <POP 22866-22868 StackAdj>                       Δ+2                {}
        <POP 22868-2287c Naked>                              Σ0         ↓ ←0x22826 ←0x22858
            <Pointer.fp 0x22868 <LVAR  0x012 @ 4(r)>>        Δ-4                {[@@18]}
            <Call 0x2286a 0x102bc>                                              {[@@18]}
                FreeString(VAR a : String)
            <POP 22870-22872 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x22872 <LVAR  0x00e @ 4(r)>>        Δ-4                {[@@14]}
            <Call 0x22874 0x102bc>                                              {[@@14]}
                FreeString(VAR a : String)
            <POP 2287a-2287c StackAdj>                       Δ+4                {}
        <POP 2287c-22884 Epilogue>                           Σ0         

0x22884


@ 22884
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x07a @ 2(w)>
    <POP 22884-22916 Body>                                              
        <POP 22884-2289a Prologue>                           Σ0         ↓
        <POP 2289a-2289c RegCacheLoad>                       Σ0         ↓
        <POP 2289c-2290e Naked>                              Σ0         ↓
            <MI 2289c  MOVE.L  (A6+0xa),D0>                                     {}
            <POP 0x228a0 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 228aa  MOVE.W  D0,(A6-0x7a)>                                    {}
            <Const 0x228ae 0x4.2>                            Δ-2                {[#4]}
            <MI 228b2  LEA.L   (A6-0x7a),A0>                                    {[#4]}
            <MI 228b6  MOVE.L  A0,-(A7)>                     Δ-4                {[#4]|[4, 'A0']}
            <Call 0x228b8 0x103a8>                                              {[#4]|[4, 'A0']}
                Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 228be-228c0 StackAdj>                       Δ+6                {}
            <Blob 0x228c0 [42] @>                            Δ-42               {[«42""»]}
            <Blob 0x228cc [18] @>                            Δ-18               {[«42""»]|[«18""»]}
            <POP 228d8-228da StackAdj>                       Δ-4                {[«42""»]|[«18""»]|[-4-]}
            <Lit 0x228da 42>                                                    {[«42""»]|[«18""»]|[$$Restaring system after IOP Kernel crash =>]}
            <POP 228ea-228ec StackAdj>                       Δ-4                {[«42""»]|[«18""»]|[$$Restaring system after IOP Kernel crash =>]|[-4-]}
            <Lit 0x228ec 18>                                                    {[«42""»]|[«18""»]|[$$Restaring system after IOP Kernel crash =>]|[$$IOP_PANICS.ERRMESS]}
            <POP 228fc-228fe StackAdj>                       Δ-4                {[«42""»]|[«18""»]|[$$Restaring system after IOP Kernel crash =>]|[$$IOP_PANICS.ERRMESS]|[-4-]}
            <MI 228fe  MOVE.L  (A6+0xa),(A7)>                                   {[«42""»]|[«18""»]|[$$Restaring system after IOP Kernel crash =>]|[$$IOP_PANICS.ERRMESS]|[4, '(A6+0xa)']}
            <MI 22902  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[«42""»]|[«18""»]|[$$Restaring system after IOP Kernel crash =>]|[$$IOP_PANICS.ERRMESS]|[4, '(A6+0xa)']|[2, '(A6+0x8)']}
            <Call 0x22906 0x22758>                                              {[«42""»]|[«18""»]|[$$Restaring system after IOP Kernel crash =>]|[$$IOP_PANICS.ERRMESS]|[4, '(A6+0xa)']|[2, '(A6+0x8)']}
            <POP 2290a-2290e StackAdj>                       Δ+74               {}
        <POP 2290e-22916 Epilogue>                           Σ0         

0x22916


@ 22916
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x07a 2(r)>
        <LVAR -0x07c @ 2(w)>
    <POP 22916-229a4 Body>                                              
        <POP 22916-2292c Prologue>                           Σ0         ↓
        <POP 2292c-2292e RegCacheLoad>                       Σ0         ↓
        <POP 2292e-2299c Naked>                              Σ0         ↓
            <MI 2292e  MOVE.B  (A6+0xa),D0>                                     {}
            <MI 22932  EXTB.W  D0>                                              {}
            <MI 22934  MOVE.W  D0,(A6-0x7c)>                                    {}
            <MI 22938  CLR.W   (A6-0x7a)>                                       {}
            <Const 0x2293c 0x2.2>                            Δ-2                {[#2]}
            <MI 22940  LEA.L   (A6-0x7c),A0>                                    {[#2]}
            <MI 22944  MOVE.L  A0,-(A7)>                     Δ-4                {[#2]|[4, 'A0']}
            <Call 0x22946 0x103a8>                                              {[#2]|[4, 'A0']}
                Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 2294c-2294e StackAdj>                       Δ+6                {}
            <Blob 0x2294e [52] @>                            Δ-52               {[«52""»]}
            <Blob 0x2295a [18] @>                            Δ-18               {[«52""»]|[«18""»]}
            <POP 22966-22968 StackAdj>                       Δ-4                {[«52""»]|[«18""»]|[-4-]}
            <Lit 0x22968 52>                                                    {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]}
            <POP 22978-2297a StackAdj>                       Δ-4                {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[-4-]}
            <Lit 0x2297a 18>                                                    {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[$$IOA_PANICS.ERRMESS]}
            <MI 2298c  EXTW.L  D0>                                              {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[$$IOA_PANICS.ERRMESS]}
            <MI 2298e  MOVE.L  D0,-(A7)>                     Δ-4                {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[$$IOA_PANICS.ERRMESS]|[4, 'D0']}
            <MI 22990  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[$$IOA_PANICS.ERRMESS]|[4, 'D0']|[2, '(A6+0x8)']}
            <Call 0x22994 0x22758>                                              {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[$$IOA_PANICS.ERRMESS]|[4, 'D0']|[2, '(A6+0x8)']}
            <POP 22998-2299c StackAdj>                       Δ+84               {}
        <POP 2299c-229a4 Epilogue>                           Σ0         

0x229a4


@ 229a4
    <POP 229a4-22a24 Body>                                              
        <POP 229a4-229ba Prologue>                           Σ0         ↓
        <POP 229ba-229c2 Naked>                              Σ0         ↓ →0x229d4
            <MI 229ba  TST.B   0x23940>                                         {}
            <MI 229c0  BNE     0x229d4>                                         {}
        <POP 229c2-229d4 Naked>                              Σ0         →0x22a1c
            <Const 0x229c2 0x5.2>                            Δ-2                {[#5]}
            <Const 0x229c6 0x2.2>                            Δ-2                {[#5]|[#2]}
            <Call 0x229ca 0x1048a>                                              {[#5]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 229d0-229d2 StackAdj>                       Δ+4                {}
            <MI 229d2  BRA     0x22a1c>                                         {}
        <POP 229d4-229f4 Naked>                              Σ0         ↓ ←0x229ba
            <Call 0x229d4 0x235fa>                                              {}
                exp_FREEZE_WORLD.FIU()
            <Call 0x229da 0x2371c>                                              {}
                exp_MF.IOC()
            <Call 0x229e0 0x23678>                                              {}
                exp_MF.VAL()
            <Call 0x229e6 0x23664>                                              {}
                exp_MF.TYP()
            <Call 0x229ec 0x23618>                                              {}
                exp_RESET.SEQ()
            <MI 229f2  MOVEQ.L #0x0c,D7>                                        {}
        <POP 229f4-22a04 Naked>                              Σ0         ↓ →0x22a0e ←0x22a0e
            <POP 229f4-229f6 StackAdj>                       Δ-2                {[-2-]}
            <MI 229f6  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x229f8 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 229fe-22a00 StackAdj>                       Δ+2                {[-2-]}
            <MI 22a00  TST.B   (A7)+>                        Δ+2                {}
            <MI 22a02  BEQ     0x22a0e>                                         {}
        <POP 22a04-22a0e Naked>                              Σ0         ↓
            <MI 22a04  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x22a06 0x23698>                                              {[2, 'D7']}
            <POP 22a0c-22a0e StackAdj>                       Δ+2                {}
        <POP 22a0e-22a16 Naked>                              Σ0         ↓ →0x229f4 ←0x229f4
            <MI 22a0e  ADDQ.B  #0x1,D7>                                         {}
            <MI 22a10  CMPI.B  #0x0f,D7>                                        {}
            <MI 22a14  BLE     0x229f4>                                         {}
        <POP 22a16-22a1c Naked>                              Σ0         ↓
            <Call 0x22a16 0x235e6>                                              {}
                exp_MF.FIU()
        <POP 22a1c-22a24 Epilogue>                           Σ0         ←0x229c2

0x22a24


@ 22a24
        <LVAR  0x008 4(r)>
        <LVAR -0x006 1(r)>
        <LVAR -0x007 @ 1(r)>
        <LVAR -0x008 @ 1(r)>
        <LVAR -0x009 @ 1(r)>
        <LVAR -0x00a @>
        <LVAR -0x00b @ 1(r)>
        <LVAR -0x00c @>
    <POP 22a24-22b8a Body>                                              
        <POP 22a24-22a3a Prologue>                           Σ0         ↓
        <POP 22a3a-22a48 RegCacheLoad>                       Σ0         ↓
        <POP 22a48-22a56 Naked>                              Σ0         ↓ →0x22a5a
            <MI 22a48  CLR.B   (A6-0x8)>                                        {}
            <MI 22a4a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22a4c  CLR.B   (A0)>                                            {}
            <MI 22a4e  TST.B   0x23940>                                         {}
            <MI 22a54  BNE     0x22a5a>                                         {}
        <POP 22a56-22a5a Naked>                              Σ0         →0x22b82
            <MI 22a56  BRA     0x22b82>                                         {}
        <POP 22a5a-22a6a Naked>                              Σ0         ↓ →0x22b06 ←0x22a48
            <Pointer.fp 0x22a5a <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Call 0x22a5c 0x2364e>                                              {[@@-8]}
                exp_HALT.SEQ(&Fr)
            <POP 22a62-22a64 StackAdj>                       Δ+4                {}
            <MI 22a64  TST.B   (A6-0x8)>                                        {}
            <MI 22a66  BEQ     0x22b06>                                         {}
        <POP 22a6a-22a96 Naked>                              Σ0         ↓ →0x22afe
            <Pointer.fp 0x22a6a <LVAR -0x007 @ 1(r)>>        Δ-4                {[@@-7]}
            <Call 0x22a6e 0x2362e>                                              {[@@-7]}
                exp_READ_CUR_UADR.SEQ(&Sr_2)
            <POP 22a74-22a76 StackAdj>                       Δ+4                {}
            <MI 22a76  CLR.L   D0>                                              {}
            <MI 22a78  MOVE.B  (A6-0x7),D0>                                     {}
            <MI 22a7c  ASL.W   #0x8,D0>                                         {}
            <MI 22a7e  CLR.L   D1>                                              {}
            <MI 22a80  MOVE.B  (A6-0x6),D1>                                     {}
            <MI 22a84  ADD.W   D0,D1>                                           {}
            <MI 22a86  EXTW.L  D1>                                              {}
            <MI 22a88  MOVE.L  D1,D6>                                           {}
            <MI 22a8a  MOVE.L  D6,D0>                                           {}
            <MI 22a8c  SUBI.L  #0x00000200,D0>                                  {}
            <MI 22a92  CMP.L   #0x09,D0>                                        {}
            <MI 22a94  BHI     0x22afe>                                         {}
        <POP 22a96-22aa0 Naked>                              Σ0         →0x22ab4 →0x22abc →0x22ac4 →0x22acc →0x22ad4 →0x22adc →0x22ae4 →0x22aea →0x22af0 →0x22af6
            <MI 22a96  ADD.W   D0,D0>                                           {}
            <MI 22a98  SWITCH  D0.W>                                            {}
        <POP 22ab4-22abc Naked>                              Σ0         →0x22b04 ←0x22a96
            <MI 22ab4  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22ab6  MOVE.B  #0x01,(A0)>                                      {}
            <MI 22aba  BRA     0x22b04>                                         {}
        <POP 22abc-22ac4 Naked>                              Σ0         →0x22b04 ←0x22a96
            <MI 22abc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22abe  MOVE.B  #0x02,(A0)>                                      {}
            <MI 22ac2  BRA     0x22b04>                                         {}
        <POP 22ac4-22acc Naked>                              Σ0         →0x22b04 ←0x22a96
            <MI 22ac4  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22ac6  MOVE.B  #0x03,(A0)>                                      {}
            <MI 22aca  BRA     0x22b04>                                         {}
        <POP 22acc-22ad4 Naked>                              Σ0         →0x22b04 ←0x22a96
            <MI 22acc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22ace  MOVE.B  #0x04,(A0)>                                      {}
            <MI 22ad2  BRA     0x22b04>                                         {}
        <POP 22ad4-22adc Naked>                              Σ0         →0x22b04 ←0x22a96
            <MI 22ad4  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22ad6  MOVE.B  #0x05,(A0)>                                      {}
            <MI 22ada  BRA     0x22b04>                                         {}
        <POP 22adc-22ae4 Naked>                              Σ0         →0x22b04 ←0x22a96
            <MI 22adc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22ade  MOVE.B  #0x06,(A0)>                                      {}
            <MI 22ae2  BRA     0x22b04>                                         {}
        <POP 22ae4-22aea Naked>                              Σ0         →0x22b04 ←0x22a96
            <MI 22ae4  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22ae6  MOVE.B  #0x07,(A0)>                                      {}
            <MI 22ae8  BRA     0x22b04>                                         {}
        <POP 22aea-22af0 Naked>                              Σ0         →0x22b04 ←0x22a96
            <MI 22aea  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22aec  MOVE.B  #0x08,(A0)>                                      {}
            <MI 22aee  BRA     0x22b04>                                         {}
        <POP 22af0-22af6 Naked>                              Σ0         →0x22b04 ←0x22a96
            <MI 22af0  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22af2  MOVE.B  #0x09,(A0)>                                      {}
            <MI 22af4  BRA     0x22b04>                                         {}
        <POP 22af6-22afe Naked>                              Σ0         →0x22b04 ←0x22a96
            <MI 22af6  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22af8  MOVE.B  #0x0a,(A0)>                                      {}
            <MI 22afc  BRA     0x22b04>                                         {}
        <POP 22afe-22b04 Naked>                              Σ0         ↓ ←0x22a6a
            <MI 22afe  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22b00  MOVE.B  #0x0d,(A0)>                                      {}
        <POP 22b04-22b06 Naked>                              Σ0         →0x22b82 ←0x22ab4 ←0x22abc ←0x22ac4 ←0x22acc ←0x22ad4 ←0x22adc ←0x22ae4 ←0x22aea ←0x22af0 ←0x22af6
            <MI 22b04  BRA     0x22b82>                                         {}
        <POP 22b06-22b08 Naked>                              Σ0         ↓ ←0x22a5a
            <MI 22b06  MOVEQ.L #0x00,D7>                                        {}
        <POP 22b08-22b24 Naked>                              Σ0         ↓ →0x22b50 ←0x22b50
            <POP 0x22b08 LimitCheck 0x0 ≤ D7 ≤ 0x7>                             {}
            <POP 22b0e-22b10 StackAdj>                       Δ-2                {[-2-]}
            <MI 22b10  LEA.L   0x21243,A0>                                      {[-2-]}
            <MI 22b14  MOVE.B  (A0+D7.L),-(A7)>              Δ-2                {[-2-]|[2, '(A0+D7.L)']}
            <Call 0x22b18 0x104c0>                                              {[-2-]|[2, '(A0+D7.L)']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 22b1e-22b20 StackAdj>                       Δ+2                {[-2-]}
            <MI 22b20  TST.B   (A7)+>                        Δ+2                {}
            <MI 22b22  BEQ     0x22b50>                                         {}
        <POP 22b24-22b48 Naked>                              Σ0         ↓ →0x22b50
            <MI 22b24  LEA.L   0x21243,A0>                                      {}
            <MI 22b28  MOVE.B  (A0+D7.L),-(A7)>              Δ-2                {[2, '(A0+D7.L)']}
            <Pointer.fp 0x22b2c <LVAR -0x00c @>>             Δ-4                {[2, '(A0+D7.L)']|[@@-12]}
            <Pointer.fp 0x22b30 <LVAR -0x00b @ 1(r)>>        Δ-4                {[2, '(A0+D7.L)']|[@@-12]|[@@-11]}
            <Pointer.fp 0x22b34 <LVAR -0x00a @>>             Δ-4                {[2, '(A0+D7.L)']|[@@-12]|[@@-11]|[@@-10]}
            <Call 0x22b38 0x10484>                                              {[2, '(A0+D7.L)']|[@@-12]|[@@-11]|[@@-10]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 22b3e-22b42 StackAdj>                       Δ+14               {}
            <MI 22b42  TST.B   (A6-0xb)>                                        {}
            <MI 22b46  BEQ     0x22b50>                                         {}
        <POP 22b48-22b50 Naked>                              Σ0         →0x22b82 ←0x22b76
            <MI 22b48  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22b4a  MOVE.B  #0x0c,(A0)>                                      {}
            <MI 22b4e  BRA     0x22b82>                                         {}
        <POP 22b50-22b56 Naked>                              Σ0         ↓ →0x22b08 ←0x22b08 ←0x22b24
            <MI 22b50  ADDQ.L  #0x1,D7>                                         {}
            <MI 22b52  CMP.L   #0x07,D7>                                        {}
            <MI 22b54  BLE     0x22b08>                                         {}
        <POP 22b56-22b76 Naked>                              Σ0         ↓ →0x22b78
            <MI 22b56  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Pointer.fp 0x22b58 <LVAR -0x009 @ 1(r)>>        Δ-4                {[#0]|[@@-9]}
            <Call 0x22b5c 0x235c8>                                              {[#0]|[@@-9]}
                exp_READ_PAREG.FIU(Sw_1, &Sr_1)
            <POP 22b62-22b64 StackAdj>                       Δ+6                {}
            <MI 22b64  CLR.L   D0>                                              {}
            <MI 22b66  MOVE.B  (A6-0x9),D0>                                     {}
            <MI 22b6a  MOVE.W  D0,D1>                                           {}
            <MI 22b6c  ANDI.W  #0x00f7,D1>                                      {}
            <MI 22b70  CMPI.W  #0x00f7,D1>                                      {}
            <MI 22b74  BEQ     0x22b78>                                         {}
        <POP 22b76-22b78 Naked>                              Σ0         →0x22b48
            <MI 22b76  BRA     0x22b48>                                         {}
        <POP 22b78-22b7c Naked>                              Σ0         ↓ →0x22b82 ←0x22b56
            <MI 22b78  AND.W   #0x08,D0>                                        {}
            <MI 22b7a  BNE     0x22b82>                                         {}
        <POP 22b7c-22b82 Naked>                              Σ0         ↓
            <MI 22b7c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 22b7e  MOVE.B  #0x0b,(A0)>                                      {}
        <POP 22b82-22b8a Epilogue>                           Σ0         ←0x22a56 ←0x22b04 ←0x22b48 ←0x22b78

0x22b8a


@ 22b8a
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @>
        <LVAR -0x00a @ 2(r)>
        <LVAR -0x00c 2(w)>
        <LVAR -0x00f @ 1(r)>
        <LVAR -0x014 @ 1(r)>
    <POP 22b8a-22d78 Body>                                   Δ+6        
        <POP 22b8a-22ba0 Prologue>                           Σ0         ↓
        <POP 22ba0-22bb4 RegCacheLoad>                       Σ0         ↓
        <POP 22bb4-22bd6 Naked>                              Σ0         ↓ →0x22bd8
            <MI 22bb4  CLR.W   (A6-0xa)>                                        {}
            <Const 0x22bb6 0xfc10.4>                         Δ-4                {[##64528]}
            <MI 22bbc  LEA.L   (A6-0xa),A0>                                     {[##64528]}
            <MI 22bbe  MOVE.L  A0,-(A7)>                     Δ-4                {[##64528]|[4, 'A0']}
            <MI 22bc0  ADDQ.L  #0x1,(A7)>                                       {[##64528]|[-4-]}
            <Const 0x22bc2 0x1.2>                            Δ-2                {[##64528]|[-4-]|[#1]}
            <Call 0x22bc4 0x10238>                                              {[##64528]|[-4-]|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 22bca-22bcc StackAdj>                       Δ+10               {}
            <MI 22bcc  CLR.B   0x23940>                                         {}
            <MI 22bce  MOVE.W  (A6-0xa),D0>                                     {}
            <MI 22bd0  AND.W   #0x01,D0>                                        {}
            <MI 22bd2  CMP.W   #0x01,D0>                                        {}
            <MI 22bd4  BNE     0x22bd8>                                         {}
        <POP 22bd6-22bd8 Naked>                              Σ0         ↓
            <MI 22bd6  ADDQ.B  #0x1,0x23940>                                    {}
        <POP 22bd8-22be4 Naked>                              Σ0         ↓ →0x22bea ←0x22bb4
            <MI 22bd8  CLR.B   0x23941>                                         {}
            <MI 22bde  MOVE.W  (A6-0xa),D0>                                     {}
            <MI 22be0  CMP.W   #0x02,D0>                                        {}
            <MI 22be2  BCS     0x22bea>                                         {}
        <POP 22be4-22bea Naked>                              Σ0         ↓
            <MI 22be4  ADDQ.B  #0x1,0x23941>                                    {}
        <POP 22bea-22c6a Naked>                              Σ0         ↓ →0x22c6e ←0x22bd8
            <Call 0x22bea 0x229a4>                                              {}
            <Blob 0x22bee [52] @>                            Δ-52               {[«52""»]}
            <POP 22bfa-22bfc StackAdj>                       Δ-4                {[«52""»]|[-4-]}
            <Lit 0x22bfc 52>                                                    {[«52""»]|[$$====================================================]}
            <Call 0x22c0e 0x103e0>                                              {[«52""»]|[$$====================================================]}
                WriteConsoleStringCrLf(str : String)
            <POP 22c14-22c18 StackAdj>                       Δ+54               {[-2-]}
            <POP 22c18-22c19 StackAdj>                       Δ+2                {}
            <Const 0x22c19 0x1b.2>                           Δ-2                {[#27]}
            <Call 0x22c1c 0x103d0>                                              {[#27]}
                WriteConsoleChar(chr : char)
            <POP 22c22-22c23 StackAdj>                       Δ+2        ↓       {}
            <Blob 0x22c23 [6] @>                             Δ-6                {[«6""»]}
            <POP 22c32-22c34 StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <Lit 0x22c34 5>                                                     {[«6""»]|[$$[1;7m]}
            <Call 0x22c46 0x103d8>                                              {[«6""»]|[$$[1;7m]}
                WriteConsoleString(str : String)
            <POP 22c4c-22c4e StackAdj>                       Δ+10               {}
            <Pointer.fp 0x22c4e <LVAR -0x014 @ 1(r)>>        Δ-4                {[@@-20]}
            <Call 0x22c50 0x105e0>                                              {[@@-20]}
                Get_fc01() : Byte
            <MI 22c56  MOVE.B  (A6-0x14),(A7)>                                  {[-4-]}
            <Call 0x22c58 0x21a0a>                                              {[-4-]}
            <POP 22c5c-22c5e StackAdj>                       Δ+2                {[-2-]}
            <MI 22c5e  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 22c60  EXTB.W  D0>                                              {}
            <POP 0x22c62 LimitCheck 0x0 ≤ D0 ≤ 0xa>                             {}
            <MI 22c64  MOVE.B  D0,D7>                                           {}
            <MI 22c66  CMP.B   #0x02,D7>                                        {}
            <MI 22c68  BEQ     0x22c6e>                                         {}
        <POP 22c6a-22c6e Naked>                              Σ0         ↓ →0x22cc8
            <MI 22c6a  TST.B   0x23940>                                         {}
            <MI 22c6c  BEQ     0x22cc8>                                         {}
        <POP 22c6e-22cae Naked>                              Σ0         ↓ →0x22cc8 ←0x22bea
            <Blob 0x22c6e [22] @>                            Δ-22               {[«22""»]}
            <POP 22c7a-22c7c StackAdj>                       Δ-4                {[«22""»]|[-4-]}
            <Lit 0x22c7c 22>                                                    {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]}
            <POP 22c8c-22c8e StackAdj>                       Δ-2                {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]}
            <MI 22c8e  CLR.B   (A7)>                                            {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]}
            <MI 22c90  CLR.B   -(A7)>                        Δ-2                {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#0]}
            <Const 0x22c92 0x0.4>                            Δ-4                {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#0]|[##0]}
            <Pointer.fp 0x22c96 <LVAR -0x004 @ 1(r)>>        Δ-4                {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#0]|[##0]|[@@-4]}
            <Pointer.fp 0x22c9a <LVAR -0x008 @>>             Δ-4                {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#0]|[##0]|[@@-4]|[@@-8]}
            <Call 0x22c9e 0x10380>                                              {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#0]|[##0]|[@@-4]|[@@-8]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 22ca4-22ca8 StackAdj>                       Δ+42               {}
            <MI 22ca8  TST.B   (A6-0x4)>                                        {}
            <MI 22cac  BNE     0x22cc8>                                         {}
        <POP 22cae-22cc8 Naked>                              Σ0         ↓
            <Const 0x22cae 0x2.2>                            Δ-2                {[#2]}
            <Const 0x22cb0 0x1.2>                            Δ-2                {[#2]|[#1]}
            <Const 0x22cb2 0x1.4>                            Δ-4                {[#2]|[#1]|[##1]}
            <Pointer.fp 0x22cb6 <LVAR -0x004 @ 1(r)>>        Δ-4                {[#2]|[#1]|[##1]|[@@-4]}
            <Pointer.fp 0x22cba <LVAR -0x008 @>>             Δ-4                {[#2]|[#1]|[##1]|[@@-4]|[@@-8]}
            <Call 0x22cbe 0x1038c>                                              {[#2]|[#1]|[##1]|[@@-4]|[@@-8]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 22cc4-22cc8 StackAdj>                       Δ+16               {}
        <POP 22cc8-22ccc Naked>                              Σ0         ↓ →0x22cd8 ←0x22c6a ←0x22c6e
            <MI 22cc8  CMP.B   #0x02,D7>                                        {}
            <MI 22cca  BNE     0x22cd8>                                         {}
        <POP 22ccc-22cd2 Naked>                              Σ0 Δ-2     ↓
            <MI 22ccc  MOVE.B  (A6-0x14),-(A7)>              Δ-2                {[2, '(A6-0x14)']}
            <Call 0x22cce 0x221c8>                                              {[2, '(A6-0x14)']}
        <POP 22cd2-22cd8 Naked>                              Σ-2 Δ+2    →0x22d58 ←0x22cdc ←0x22ce8 ←0x22d22
            <POP 22cd2-22cd4 StackAdj>                       Δ+2                {}
            <MI 22cd4  BRA     0x22d58>                                         {}
        <POP 22cd8-22cdc Naked>                              Σ0         ↓ →0x22ce4 ←0x22cc8
            <MI 22cd8  CMP.B   #0x01,D7>                                        {}
            <MI 22cda  BNE     0x22ce4>                                         {}
        <POP 22cdc-22ce4 Naked>                              Σ0 Δ-2     →0x22cd2
            <MI 22cdc  MOVE.B  (A6-0x14),-(A7)>              Δ-2                {[2, '(A6-0x14)']}
            <Call 0x22cde 0x22118>                                              {[2, '(A6-0x14)']}
            <MI 22ce2  BRA     0x22cd2>                                         {[2, '(A6-0x14)']}
        <POP 22ce4-22ce8 Naked>                              Σ0         ↓ →0x22cf0 ←0x22cd8
            <MI 22ce4  TST.B   D7>                                              {}
            <MI 22ce6  BNE     0x22cf0>                                         {}
        <POP 22ce8-22cf0 Naked>                              Σ0 Δ-2     →0x22cd2
            <MI 22ce8  MOVE.B  (A6-0x14),-(A7)>              Δ-2                {[2, '(A6-0x14)']}
            <Call 0x22cea 0x222dc>                                              {[2, '(A6-0x14)']}
            <MI 22cee  BRA     0x22cd2>                                         {[2, '(A6-0x14)']}
        <POP 22cf0-22d22 Naked>                              Σ0         ↓ →0x22d34 ←0x22ce4
            <POP 22cf0-22cf2 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22cf2 0x105f2>                                              {[-2-]}
                Get_fc02() : Word
            <MI 22cf8  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <MI 22cfa  MOVE.W  D0,(A6-0xc)>                                     {}
            <MI 22cfe  MOVE.W  D0,D6>                                           {}
            <MI 22d00  ANDI.W  #0x00ff,D6>                                      {}
            <MI 22d04  MOVE.W  D0,D1>                                           {}
            <MI 22d06  LSR.W   #0x8,D1>                                         {}
            <MI 22d08  MOVE.B  D1,-(A7)>                     Δ-2                {[2, 'D1']}
            <MI 22d0a  CLR.L   D1>                                              {[2, 'D1']}
            <MI 22d0c  MOVE.B  (A7)+,D1>                     Δ+2                {}
            <POP 0x22d0e LimitCheck 0x0 ≤ D1 ≤ 0xa>                             {}
            <MI 22d10  MOVE.B  D1,D5>                                           {}
            <Pointer.fp 0x22d12 <LVAR -0x00f @ 1(r)>>        Δ-4                {[@@-15]}
            <Call 0x22d16 0x22a24>                                              {[@@-15]}
            <POP 22d1a-22d1c StackAdj>                       Δ+4                {}
            <MI 22d1c  TST.B   (A6-0xf)>                                        {}
            <MI 22d20  BEQ     0x22d34>                                         {}
        <POP 22d22-22d34 Naked>                              Σ0 Δ-2     →0x22cd2
            <MI 22d22  MOVE.B  (A6-0xf),D0>                                     {}
            <MI 22d26  EXTB.W  D0>                                              {}
            <POP 0x22d28 LimitCheck 0x0 ≤ D0 ≤ 0xd>                             {}
            <MI 22d2c  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x22d2e 0x22696>                                              {[2, 'D0']}
            <MI 22d32  BRA     0x22cd2>                                         {[2, 'D0']}
        <POP 22d34-22d38 Naked>                              Σ0         ↓ →0x22d4e ←0x22cf0
            <MI 22d34  TST.W   D0>                                              {}
            <MI 22d36  BEQ     0x22d4e>                                         {}
        <POP 22d38-22d4e Naked>                              Σ0         →0x22d58
            <MI 22d38  CLR.L   D0>                                              {}
            <MI 22d3a  MOVE.W  D6,D0>                                           {}
            <MI 22d3c  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 22d3e  MOVE.B  D5,D0>                                           {[4, 'D0']}
            <MI 22d40  EXTB.W  D0>                                              {[4, 'D0']}
            <POP 0x22d42 LimitCheck 0x0 ≤ D0 ≤ 0xa>                             {[4, 'D0']}
            <MI 22d44  MOVE.B  D0,-(A7)>                     Δ-2                {[4, 'D0']|[2, 'D0']}
            <Call 0x22d46 0x22884>                                              {[4, 'D0']|[2, 'D0']}
            <POP 22d4a-22d4c StackAdj>                       Δ+6                {}
            <MI 22d4c  BRA     0x22d58>                                         {}
        <POP 22d4e-22d58 Naked>                              Σ0         ↓ ←0x22d34
            <MI 22d4e  MOVE.B  (A6-0x14),-(A7)>              Δ-2                {[2, '(A6-0x14)']}
            <MI 22d50  MOVE.B  D7,-(A7)>                     Δ-2                {[2, '(A6-0x14)']|[2, 'D7']}
            <Call 0x22d52 0x22916>                                              {[2, '(A6-0x14)']|[2, 'D7']}
            <POP 22d56-22d58 StackAdj>                       Δ+4                {}
        <POP 22d58-22d70 Naked>                              Σ0         ↓ ←0x22cd2 ←0x22d38
            <MI 22d58  CLR.W   (A6-0xa)>                                        {}
            <MI 22d5a  LEA.L   (A6-0xa),A0>                                     {}
            <MI 22d5c  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 22d5e  ADDQ.L  #0x1,(A7)>                                       {[-4-]}
            <Const 0x22d60 0xfc10.4>                         Δ-4                {[-4-]|[##64528]}
            <Const 0x22d66 0x1.2>                            Δ-2                {[-4-]|[##64528]|[#1]}
            <Call 0x22d68 0x10238>                                              {[-4-]|[##64528]|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 22d6e-22d70 StackAdj>                       Δ+10               {}
        <POP 22d70-22d78 Epilogue>                           Σ0         

0x22d78


@ 22d78
        <LVAR -0x004 @ 2(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 22d78-22e82 Body>                                              
        <POP 22d78-22d8e Prologue>                           Σ0         ↓
        <POP 22d8e-22da6 RegCacheLoad>                       Σ0         ↓
        <POP 22da6-22db2 Naked>                              Σ0         ↓ →0x22dbe
            <POP 22da6-22da8 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22da8 0x1060a>                                              {[-2-]}
                Is_fc07_four() : Bool
            <MI 22dae  TST.B   (A7)+>                        Δ+2                {}
            <MI 22db0  BNE     0x22dbe>                                         {}
        <POP 22db2-22dbe Naked>                              Σ0         ↓ →0x22e04
            <POP 22db2-22db4 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22db4 0x10604>                                              {[-2-]}
                Is_fc07_three() : Bool
            <MI 22dba  TST.B   (A7)+>                        Δ+2                {}
            <MI 22dbc  BEQ     0x22e04>                                         {}
        <POP 22dbe-22de2 Naked>                              Σ0         ↓ →0x22e04 ←0x22da6
            <Const 0x22dbe 0x9303e000.4>                     Δ-4                {[##2466504704]}
            <Const 0x22dc4 0x5.2>                            Δ-2                {[##2466504704]|[#5]}
            <MI 22dc6  LEA.L   (A6-0x4),A0>                                     {[##2466504704]|[#5]}
            <MI 22dca  MOVE.L  A0,-(A7)>                     Δ-4                {[##2466504704]|[#5]|[4, 'A0']}
            <Const 0x22dcc 0x1.2>                            Δ-2                {[##2466504704]|[#5]|[4, 'A0']|[#1]}
            <Const 0x22dce 0x2.2>                            Δ-2                {[##2466504704]|[#5]|[4, 'A0']|[#1]|[#2]}
            <Call 0x22dd2 0x1023a>                                              {[##2466504704]|[#5]|[4, 'A0']|[#1]|[#2]}
                KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
            <POP 22dd8-22dda StackAdj>                       Δ+14               {}
            <MI 22dda  MOVE.W  (A6-0x4),D0>                                     {}
            <MI 22dde  AND.W   #0x08,D0>                                        {}
            <MI 22de0  BNE     0x22e04>                                         {}
        <POP 22de2-22e04 Naked>                              Σ0         ↓
            <Blob 0x22de2 [80] @>                            Δ-80               {[«80""»]}
            <POP 22dee-22df0 StackAdj>                       Δ-4                {[«80""»]|[-4-]}
            <Lit 0x22df0 80>                                                    {[«80""»]|[$$>>> WARNING: the EPROM WRITE PROTECT switch is OFF (at front of RESHA board) <<<]}
            <Call 0x22dfe 0x103e0>                                              {[«80""»]|[$$>>> WARNING: the EPROM WRITE PROTECT switch is OFF (at front of RESHA board) <<<]}
                WriteConsoleStringCrLf(str : String)
            <POP 22e00-22e04 StackAdj>                       Δ+84               {}
        <POP 22e04-22e26 Naked>                              Σ0         ↓ →0x22e30 ←0x22db2 ←0x22dbe
            <Const 0x22e04 0xfffff800.4>                     Δ-4                {[##4294965248]}
            <Const 0x22e08 0x5.2>                            Δ-2                {[##4294965248]|[#5]}
            <MI 22e0a  LEA.L   (A6-0x8),A0>                                     {[##4294965248]|[#5]}
            <MI 22e0c  MOVE.L  A0,-(A7)>                     Δ-4                {[##4294965248]|[#5]|[4, 'A0']}
            <Const 0x22e0e 0x1.2>                            Δ-2                {[##4294965248]|[#5]|[4, 'A0']|[#1]}
            <Const 0x22e10 0x4.2>                            Δ-2                {[##4294965248]|[#5]|[4, 'A0']|[#1]|[#4]}
            <Call 0x22e14 0x1023a>                                              {[##4294965248]|[#5]|[4, 'A0']|[#1]|[#4]}
                KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
            <POP 22e1a-22e1c StackAdj>                       Δ+14               {}
            <MI 22e1c  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 22e1e  ANDI.L  #0x80000000,D0>                                  {}
            <MI 22e24  BEQ     0x22e30>                                         {}
        <POP 22e26-22e30 Naked>                              Σ0         ↓ →0x22e52
            <MI 22e26  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 22e28  ANDI.L  #0x00000200,D0>                                  {}
            <MI 22e2e  BEQ     0x22e52>                                         {}
        <POP 22e30-22e52 Naked>                              Σ0         ↓ ←0x22e04
            <Blob 0x22e30 [54] @>                            Δ-54               {[«54""»]}
            <POP 22e3c-22e3e StackAdj>                       Δ-4                {[«54""»]|[-4-]}
            <Lit 0x22e3e 54>                                                    {[«54""»]|[$$>>> WARNING: the system clock or power is margined <<<]}
            <Call 0x22e4c 0x103e0>                                              {[«54""»]|[$$>>> WARNING: the system clock or power is margined <<<]}
                WriteConsoleStringCrLf(str : String)
            <POP 22e4e-22e52 StackAdj>                       Δ+58               {}
        <POP 22e52-22e58 Naked>                              Σ0         ↓ →0x22e7a ←0x22e26
            <MI 22e52  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 22e54  AND.L   #0x08,D0>                                        {}
            <MI 22e56  BEQ     0x22e7a>                                         {}
        <POP 22e58-22e7a Naked>                              Σ0         ↓
            <Blob 0x22e58 [62] @>                            Δ-62               {[«62""»]}
            <POP 22e64-22e66 StackAdj>                       Δ-4                {[«62""»]|[-4-]}
            <Lit 0x22e66 62>                                                    {[«62""»]|[$$>>> NOTICE: the OPERATOR_MODE switch is set to INTERACTIVE <<<]}
            <Call 0x22e74 0x103e0>                                              {[«62""»]|[$$>>> NOTICE: the OPERATOR_MODE switch is set to INTERACTIVE <<<]}
                WriteConsoleStringCrLf(str : String)
            <POP 22e76-22e7a StackAdj>                       Δ+66               {}
        <POP 22e7a-22e82 Epilogue>                           Σ0         ←0x22e52

0x22e82


@ 22e82
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 22e82-22ee8 Body>                                              
        <POP 22e82-22e98 Prologue>                           Σ0         ↓
        <POP 22e98-22e9c RegCacheLoad>                       Σ0         ↓
        <POP 22e9c-22ee0 Naked>                              Σ0         ↓
            <MI 22e9c  CLR.L   (A6-0x4)>                                        {}
            <MI 22e9e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 22ea2  LEA.L   (A6-0x4),A0>                                     {[4, '(A6+0xc)']}
            <MI 22ea4  MOVE.L  A0,-(A7)>                     Δ-4                {[4, '(A6+0xc)']|[4, 'A0']}
            <MI 22ea6  ADDQ.L  #0x1,(A7)>                                       {[4, '(A6+0xc)']|[-4-]}
            <Const 0x22ea8 0x3.2>                            Δ-2                {[4, '(A6+0xc)']|[-4-]|[#3]}
            <Call 0x22eac 0x10238>                                              {[4, '(A6+0xc)']|[-4-]|[#3]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 22eb2-22eb4 StackAdj>                       Δ+6                {[4, '(A6+0xc)']}
            <MI 22eb4  MOVE.L  (A4),(A7)>                                       {[4, '(A4)']}
            <POP 22eb6-22eb8 StackAdj>                       Δ-8                {[4, '(A4)']|[-8-]}
            <MI 22eb8  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A4)']|[-8-]|[4, '(A6-0x4)']}
            <Const 0x22eba 0x6.4>                            Δ-4                {[4, '(A4)']|[-8-]|[4, '(A6-0x4)']|[##6]}
            <Call 0x22ebe 0x102e8>                                              {[4, '(A4)']|[-8-]|[4, '(A6-0x4)']|[##6]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 22ec4-22ec6 StackAdj>                       Δ+4                {[4, '(A4)']|[-8-]|[4, '(A6-0x4)']}
            <MI 22ec6  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A4)']|[-8-]|[4, '(A6+0x8)']}
            <Call 0x22eca 0x102d0>                                              {[4, '(A4)']|[-8-]|[4, '(A6+0x8)']}
                StringCat2(a, b : String) : String
            <POP 22ed0-22ed2 StackAdj>                       Δ+8                {[4, '(A4)']|[-4-]}
            <MI 22ed2  PEA.L   (A4+0x5)>                     Δ-4                {[4, '(A4)']|[-4-]|[4, '^(A4+0x5)']}
            <Call 0x22ed6 0x10440>                                              {[4, '(A4)']|[-4-]|[4, '^(A4+0x5)']}
                FSCALL_10440
            <POP 22edc-22ee0 StackAdj>                       Δ+12               {}
        <POP 22ee0-22ee8 Epilogue>                           Σ0         

0x22ee8


@ 22ee8
        <LVAR -0x004 @>
        <LVAR -0x008 @ 4(r)>
    <POP 22ee8-230dc Body>                                              
        <POP 22ee8-22efe Prologue>                           Σ0         ↓
        <POP 22efe-22f14 RegCacheLoad>                       Σ0         ↓
        <POP 22f14-22ffc Naked>                              Σ0         ↓ →0x2300a
            <Blob 0x22f14 [12] @>                            Δ-12               {[«12""»]}
            <POP 22f24-22f26 StackAdj>                       Δ-4                {[«12""»]|[-4-]}
            <Lit 0x22f26 11>                                                    {[«12""»]|[$$EEPROM_REVS]}
            <POP 22f30-22f32 StackAdj>                       Δ-2                {[«12""»]|[$$EEPROM_REVS]|[-2-]}
            <POP 22f32-22f33 StackAdj>                       Δ+2                {[«12""»]|[$$EEPROM_REVS]}
            <Const 0x22f33 0x1.2>                            Δ-2                {[«12""»]|[$$EEPROM_REVS]|[#1]}
            <Const 0x22f34 0x1.2>                            Δ-2                {[«12""»]|[$$EEPROM_REVS]|[#1]|[#1]}
            <Const 0x22f36 0x1.4>                            Δ-4                {[«12""»]|[$$EEPROM_REVS]|[#1]|[#1]|[##1]}
            <Pointer.fp 0x22f3a <LVAR -0x004 @>>             Δ-4                {[«12""»]|[$$EEPROM_REVS]|[#1]|[#1]|[##1]|[@@-4]}
            <Pointer.fp 0x22f3e <LVAR -0x008 @ 4(r)>>        Δ-4                {[«12""»]|[$$EEPROM_REVS]|[#1]|[#1]|[##1]|[@@-4]|[@@-8]}
            <Call 0x22f40 0x10380>                                              {[«12""»]|[$$EEPROM_REVS]|[#1]|[#1]|[##1]|[@@-4]|[@@-8]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 22f46-22f47 StackAdj>                       Δ+32       ↓       {}
            <Blob 0x22f47 [16] @>                            Δ-16               {[«16""»]}
            <Const 0x22f56 0x80001ffb.4>                     Δ-4                {[«16""»]|[##2147491835]}
            <POP 22f5c-22f5e StackAdj>                       Δ-4                {[«16""»]|[##2147491835]|[-4-]}
            <Lit 0x22f5e 15>                                                    {[«16""»]|[##2147491835]|[$$ --IOC_SELFTEST]}
            <MI 22f6c  LEA.L   (A6-0x8),A4>                                     {[«16""»]|[##2147491835]|[$$ --IOC_SELFTEST]}
            <Call 0x22f6e 0x22e82>                                              {[«16""»]|[##2147491835]|[$$ --IOC_SELFTEST]}
            <POP 22f72-22f73 StackAdj>                       Δ+24       ↓       {}
            <Blob 0x22f73 [12] @>                            Δ-12               {[«12""»]}
            <Const 0x22f82 0x80003ffb.4>                     Δ-4                {[«12""»]|[##2147500027]}
            <POP 22f88-22f8a StackAdj>                       Δ-4                {[«12""»]|[##2147500027]|[-4-]}
            <Lit 0x22f8a 11>                                                    {[«12""»]|[##2147500027]|[$$ --IOC_BOOT]}
            <MI 22f96  LEA.L   (A6-0x8),A4>                                     {[«12""»]|[##2147500027]|[$$ --IOC_BOOT]}
            <Call 0x22f98 0x22e82>                                              {[«12""»]|[##2147500027]|[$$ --IOC_BOOT]}
            <POP 22f9c-22f9d StackAdj>                       Δ+20       ↓       {}
            <Blob 0x22f9d [12] @>                            Δ-12               {[«12""»]}
            <Const 0x22fac 0x80005ffb.4>                     Δ-4                {[«12""»]|[##2147508219]}
            <POP 22fb2-22fb4 StackAdj>                       Δ-4                {[«12""»]|[##2147508219]|[-4-]}
            <Lit 0x22fb4 11>                                                    {[«12""»]|[##2147508219]|[$$ --UTIL/DEB]}
            <MI 22fc0  LEA.L   (A6-0x8),A4>                                     {[«12""»]|[##2147508219]|[$$ --UTIL/DEB]}
            <Call 0x22fc2 0x22e82>                                              {[«12""»]|[##2147508219]|[$$ --UTIL/DEB]}
            <POP 22fc6-22fc7 StackAdj>                       Δ+20       ↓       {}
            <Blob 0x22fc7 [12] @>                            Δ-12               {[«12""»]}
            <Const 0x22fd6 0x80007dfb.4>                     Δ-4                {[«12""»]|[##2147515899]}
            <POP 22fdc-22fde StackAdj>                       Δ-4                {[«12""»]|[##2147515899]|[-4-]}
            <Lit 0x22fde 11>                                                    {[«12""»]|[##2147515899]|[$$ --NET/DEB2]}
            <MI 22fea  LEA.L   (A6-0x8),A4>                                     {[«12""»]|[##2147515899]|[$$ --NET/DEB2]}
            <Call 0x22fec 0x22e82>                                              {[«12""»]|[##2147515899]|[$$ --NET/DEB2]}
            <POP 22ff0-22ff2 StackAdj>                       Δ+18               {[-2-]}
            <Call 0x22ff2 0x1060a>                                              {[-2-]}
                Is_fc07_four() : Bool
            <MI 22ff8  TST.B   (A7)+>                        Δ+2                {}
            <MI 22ffa  BNE     0x2300a>                                         {}
        <POP 22ffc-2300a Naked>                              Σ0         ↓ →0x230b4
            <POP 22ffc-22ffe StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22ffe 0x10604>                                              {[-2-]}
                Is_fc07_three() : Bool
            <MI 23004  TST.B   (A7)+>                        Δ+2                {}
            <MI 23006  BEQ     0x230b4>                                         {}
        <POP 2300a-230b4 Naked>                              Σ0         ↓ ←0x22f14
            <Blob 0x2300a [14] @>                            Δ-14               {[«14""»]}
            <Const 0x2301c 0x71ffb.4>                        Δ-4                {[«14""»]|[##466939]}
            <POP 23022-23024 StackAdj>                       Δ-4                {[«14""»]|[##466939]|[-4-]}
            <Lit 0x23024 13>                                                    {[«14""»]|[##466939]|[$$ --RESHA_TEST]}
            <MI 23030  LEA.L   (A6-0x8),A4>                                     {[«14""»]|[##466939]|[$$ --RESHA_TEST]}
            <Call 0x23032 0x22e82>                                              {[«14""»]|[##466939]|[$$ --RESHA_TEST]}
            <POP 23036-23037 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x23037 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x23046 0x73ffb.4>                        Δ-4                {[«14""»]|[##475131]}
            <POP 2304c-2304e StackAdj>                       Δ-4                {[«14""»]|[##475131]|[-4-]}
            <Lit 0x2304e 13>                                                    {[«14""»]|[##475131]|[$$ --LANCE_BOOT]}
            <MI 2305a  LEA.L   (A6-0x8),A4>                                     {[«14""»]|[##475131]|[$$ --LANCE_BOOT]}
            <Call 0x2305c 0x22e82>                                              {[«14""»]|[##475131]|[$$ --LANCE_BOOT]}
            <POP 23060-23062 StackAdj>                       Δ+18               {[-4-]}
            <POP 23062-23063 StackAdj>                       Δ+4                {}
            <Blob 0x23063 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x23066 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x2306a [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Const 0x2306e 0x75ffb.4>                        Δ-4                {[«4""»]|[«4""»]|[«4""»]|[##483323]}
            <POP 23074-23076 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[##483323]|[-4-]}
            <Lit 0x23076 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[##483323]|[$$ --DISK_BOOT]}
            <MI 23082  LEA.L   (A6-0x8),A4>                                     {[«4""»]|[«4""»]|[«4""»]|[##483323]|[$$ --DISK_BOOT]}
            <Call 0x23084 0x22e82>                                              {[«4""»]|[«4""»]|[«4""»]|[##483323]|[$$ --DISK_BOOT]}
            <POP 23088-2308a StackAdj>                       Δ+16               {[«4""»]}
            <POP 2308a-2308b StackAdj>                       Δ+4                {}
            <Blob 0x2308b [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x2308e [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x23092 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Const 0x23096 0x77ffb.4>                        Δ-4                {[«4""»]|[«4""»]|[«4""»]|[##491515]}
            <POP 2309c-2309e StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[##491515]|[-4-]}
            <Lit 0x2309e 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[##491515]|[$$ --TAPE_BOOT]}
            <MI 230aa  LEA.L   (A6-0x8),A4>                                     {[«4""»]|[«4""»]|[«4""»]|[##491515]|[$$ --TAPE_BOOT]}
            <Call 0x230ac 0x22e82>                                              {[«4""»]|[«4""»]|[«4""»]|[##491515]|[$$ --TAPE_BOOT]}
            <POP 230b0-230b4 StackAdj>                       Δ+20               {}
        <POP 230b4-230d4 Naked>                              Σ0         ↓ ←0x22ffc
            <MI 230b4  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <Call 0x230b6 0x10448>                                              {[4, '(A6-0x8)']}
                FSCALL_10448
            <POP 230bc-230be StackAdj>                       Δ+2                {[-2-]}
            <MI 230be  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x230c0 0x1.2>                            Δ-2                {[-2-]|[#1]}
            <Const 0x230c2 0x1.4>                            Δ-4                {[-2-]|[#1]|[##1]}
            <Pointer.fp 0x230c6 <LVAR -0x004 @>>             Δ-4                {[-2-]|[#1]|[##1]|[@@-4]}
            <Pointer.fp 0x230ca <LVAR -0x008 @ 4(r)>>        Δ-4                {[-2-]|[#1]|[##1]|[@@-4]|[@@-8]}
            <Call 0x230cc 0x1038c>                                              {[-2-]|[#1]|[##1]|[@@-4]|[@@-8]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 230d2-230d4 StackAdj>                       Δ+16               {}
        <POP 230d4-230dc Epilogue>                           Σ0         

0x230dc


@ 230dc
START
    <POP 230dc--0001 Body>                                   Δ+124      
        <POP 230dc-230e6 Prologue>                           Σ0         
        <POP 230e6-23106 RegCacheLoad>                       Σ0         ↓
        <POP 23106-231aa Naked>                              Σ0         ↓
            <Const 0x23106 0x1.4>                            Δ-4                {[##1]}
            <Call 0x2310a 0x103f4>                                              {[##1]}
                SetConsoleConfig(a : Long)
            <POP 23110-23112 StackAdj>                       Δ+2                {[-2-]}
            <MI 23112  CLR.B   (A7)>                                            {[-2-]}
            <Call 0x23114 0x10404>                                              {[-2-]}
                SetSomeKindOfFlag(a : Byte)
            <POP 2311a-2311b StackAdj>                       Δ+2                {}
            <Const 0x2311b 0x1.2>                            Δ-2                {[#1]}
            <Const 0x2311c 0x1.2>                            Δ-2                {[#1]|[#1]}
            <Call 0x2311e 0x10210>                                              {[#1]|[#1]}
                KC08_PortSomething(port: Word; b: Byte)
            <POP 23124-23126 StackAdj>                       Δ+4                {}
            <Const 0x23126 0xf.4>                            Δ-4                {[##15]}
            <Call 0x2312a 0x104d8>                                              {[##15]}
                ExpInit(a : Long)
            <POP 23130-23132 StackAdj>                       Δ+4                {}
            <Call 0x23132 0x2147a>                                              {}
            <Const 0x23136 0x2393f.4>                        Δ-4                {[##145727]}
            <Call 0x2313c 0x105aa>                                              {[##145727]}
                Read_fc00() : Byte
            <POP 23142-23144 StackAdj>                       Δ+4                {}
            <Call 0x23144 0x21546>                                              {}
            <Call 0x23148 0x21778>                                              {}
            <Blob 0x2314c [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x23150 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x23154 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <Blob 0x23158 [6] @>                             Δ-6                {[«2""»]|[«2""»]|[«2""»]|[«6""»]}
            <POP 23168-2316a StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[-4-]}
            <Lit 0x2316a 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]}
            <POP 23174-23176 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[-4-]}
            <Lit 0x23176 5>                                                     {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[$$DOUSE]}
            <POP 23180-23182 StackAdj>                       Δ-2                {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[$$DOUSE]|[-2-]}
            <MI 23182  CLR.B   (A7)>                                            {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[$$DOUSE]|[-2-]}
            <Const 0x23184 0x2393e.4>                        Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[$$DOUSE]|[-2-]|[##145726]}
            <Call 0x2318a 0x103b0>                                              {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[$$DOUSE]|[-2-]|[##145726]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 2318c-2318e StackAdj>                       Δ+26               {}
            <Call 0x2318e 0x22ee8>                                              {}
            <MI 23192  CLR.B   0x23948>                                         {}
            <MI 23198  CLR.B   0x23949>                                         {}
            <MI 2319e  CLR.B   0x23942>                                         {}
            <MI 231a4  MOVE.L  #0x06,0x23944>                                   {}
            <Call 0x231a6 0x22b8a>                                              {}
        <POP 231aa-231bc Naked>                              Σ0         ↓ →0x231c2 ←0x235be
            <Call 0x231aa 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Call 0x231b0 0x22d78>                                              {}
            <MI 231b4  TST.B   0x23942>                                         {}
            <MI 231ba  BEQ     0x231c2>                                         {}
        <POP 231bc-231c2 Naked>                              Σ0         →0x23416
            <MI 231bc  MOVE.L  #0x06,0x23944>                                   {}
            <MI 231be  BRA     0x23416>                                         {}
        <POP 231c2-232d2 Naked>                              Σ0         ↓ →0x233a6 ←0x231aa
            <Blob 0x231c2 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x231c6 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x231ca [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 231ce-231d0 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x231d0 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
            <Call 0x231de 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
                WriteConsoleStringCrLf(str : String)
            <POP 231e4-231e8 StackAdj>                       Δ+12               {[«4""»]}
            <POP 231e8-231e9 StackAdj>                       Δ+4                {}
            <Blob 0x231e9 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x231ec [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x231f0 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x231f4 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 231f8-231fa StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x231fa 16>                                                    {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$  1 => enter CLI]}
            <Call 0x23208 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$  1 => enter CLI]}
                WriteConsoleStringCrLf(str : String)
            <POP 2320e-2320f StackAdj>                       Δ+20       ↓       {}
            <Blob 0x2320f [24] @>                            Δ-24               {[«24""»]}
            <POP 2321e-23220 StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x23220 23>                                                    {[«24""»]|[$$  2 => make a CRASHDUMP]}
            <Call 0x2322e 0x103e0>                                              {[«24""»]|[$$  2 => make a CRASHDUMP]}
                WriteConsoleStringCrLf(str : String)
            <POP 23234-23236 StackAdj>                       Δ+28               {}
            <Blob 0x23236 [24] @>                            Δ-24               {[«24""»]}
            <POP 23242-23244 StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x23244 24>                                                    {[«24""»]|[$$  3 => run the FRU tests]}
            <Call 0x23252 0x103e0>                                              {[«24""»]|[$$  3 => run the FRU tests]}
                WriteConsoleStringCrLf(str : String)
            <POP 23258-23259 StackAdj>                       Δ+28       ↓       {}
            <Blob 0x23259 [30] @>                            Δ-30               {[«30""»]}
            <POP 23268-2326a StackAdj>                       Δ-4                {[«30""»]|[-4-]}
            <Lit 0x2326a 29>                                                    {[«30""»]|[$$  4 => Boot DDC configuration]}
            <Call 0x23278 0x103e0>                                              {[«30""»]|[$$  4 => Boot DDC configuration]}
                WriteConsoleStringCrLf(str : String)
            <POP 2327e-23280 StackAdj>                       Δ+34               {}
            <Blob 0x23280 [30] @>                            Δ-30               {[«30""»]}
            <POP 2328c-2328e StackAdj>                       Δ-4                {[«30""»]|[-4-]}
            <Lit 0x2328e 30>                                                    {[«30""»]|[$$  5 => Boot EEDB configuration]}
            <Call 0x2329c 0x103e0>                                              {[«30""»]|[$$  5 => Boot EEDB configuration]}
                WriteConsoleStringCrLf(str : String)
            <POP 232a2-232a4 StackAdj>                       Δ+34               {}
            <Blob 0x232a4 [34] @>                            Δ-34               {[«34""»]}
            <POP 232b0-232b2 StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x232b2 34>                                                    {[«34""»]|[$$  6 => Boot STANDARD configuration]}
            <Call 0x232be 0x103e0>                                              {[«34""»]|[$$  6 => Boot STANDARD configuration]}
                WriteConsoleStringCrLf(str : String)
            <POP 232c4-232c8 StackAdj>                       Δ+38               {}
            <MI 232c8  MOVE.L  0x23944,D0>                                      {}
            <MI 232ca  SUBQ.L  #0x1,D0>                                         {}
            <MI 232cc  CMP.L   #0x05,D0>                                        {}
            <MI 232ce  BHI     0x233a6>                                         {}
        <POP 232d2-232dc Naked>                              Σ0         →0x232e8 →0x23314 →0x2333c →0x23368 →0x23380 →0x23394
            <MI 232d2  ADD.W   D0,D0>                                           {}
            <MI 232d4  SWITCH  D0.W>                                            {}
        <POP 232e8-232f8 Naked>                              Σ0 Δ-28    ↓ ←0x232d2
            <Blob 0x232e8 [28] @>                            Δ-28               {[«28""»]}
        <POP 232f8-23314 Naked>                              Σ-28 Δ+28  →0x233d0 ←0x23380
            <POP 232f8-232fa StackAdj>                       Δ-4                {[-32-]}
            <Lit 0x232fa>                                                       {[-28-]|[$$…]}
                <Pointer.sp 0x232fa 4>                       Δ-4        
                <Const 0x232fe 0x1.2>                        Δ-2        
                <Const 0x23300 0x1b.2>                       Δ-2        
                <Call 0x23304 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 23306-23308 StackAdj>                   Δ+8        
            <Call 0x23308 0x103d8>                                              {[-28-]|[$$…]}
                WriteConsoleString(str : String)
            <POP 2330e-23310 StackAdj>                       Δ+32               {}
            <MI 23310  BRA     0x233d0>                                         {}
        <POP 23314-2333c Naked>                              Σ0         →0x233d0 ←0x232d2
            <Blob 0x23314 [34] @>                            Δ-34               {[«34""»]}
            <POP 23320-23322 StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x23322 34>                                                    {[«34""»]|[$$Enter option [Make a CRASHDUMP] :_]}
            <Call 0x2332e 0x103d8>                                              {[«34""»]|[$$Enter option [Make a CRASHDUMP] :_]}
                WriteConsoleString(str : String)
            <POP 23334-23338 StackAdj>                       Δ+38               {}
            <MI 23338  BRA     0x233d0>                                         {}
        <POP 2333c-2334c Naked>                              Σ0 Δ-32    ↓ ←0x232d2
            <Blob 0x2333c [32] @>                            Δ-32               {[«32""»]}
        <POP 2334c-23368 Naked>                              Σ-32 Δ+32  →0x233d0 ←0x23394
            <POP 2334c-2334e StackAdj>                       Δ-4                {[-36-]}
            <Lit 0x2334e>                                                       {[-32-]|[$$…]}
                <Pointer.sp 0x2334e 4>                       Δ-4        
                <Const 0x23352 0x1.2>                        Δ-2        
                <Const 0x23354 0x1f.2>                       Δ-2        
                <Call 0x23358 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2335a-2335c StackAdj>                   Δ+8        
            <Call 0x2335c 0x103d8>                                              {[-32-]|[$$…]}
                WriteConsoleString(str : String)
            <POP 23362-23366 StackAdj>                       Δ+36               {}
            <MI 23366  BRA     0x233d0>                                         {}
        <POP 23368-23380 Naked>                              Σ0 Δ-38    →0x233c2 ←0x232d2
            <Blob 0x23368 [26] @>                            Δ-26               {[«26""»]}
            <POP 23374-23376 StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Pointer.sp 0x23376 4>                           Δ-4                {[«26""»]|[-4-]|[^^4]}
            <Const 0x2337a 0x1.2>                            Δ-2                {[«26""»]|[-4-]|[^^4]|[#1]}
            <Const 0x2337c 0x1a.2>                           Δ-2                {[«26""»]|[-4-]|[^^4]|[#1]|[#26]}
            <MI 2337e  BRA     0x233c2>                                         {[«26""»]|[-4-]|[^^4]|[#1]|[#26]}
        <POP 23380-23394 Naked>                              Σ0 Δ-28    →0x232f8 ←0x232d2
            <Blob 0x23380 [28] @>                            Δ-28               {[«28""»]}
            <MI 23390  BRA     0x232f8>                                         {[«28""»]}
        <POP 23394-233a6 Naked>                              Σ0 Δ-32    →0x2334c ←0x232d2
            <Blob 0x23394 [32] @>                            Δ-32               {[«32""»]}
            <MI 233a4  BRA     0x2334c>                                         {[«32""»]}
        <POP 233a6-233c2 Naked>                              Σ0 Δ-38    ↓ ←0x231c2
            <Blob 0x233a6 [26] @>                            Δ-26               {[«26""»]}
            <POP 233b6-233b8 StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Pointer.sp 0x233b8 4>                           Δ-4                {[«26""»]|[-4-]|[^^4]}
            <Const 0x233bc 0x1.2>                            Δ-2                {[«26""»]|[-4-]|[^^4]|[#1]}
            <Const 0x233be 0x19.2>                           Δ-2                {[«26""»]|[-4-]|[^^4]|[#1]|[#25]}
        <POP 233c2-233d0 Naked>                              Σ-38 Δ+38  ↓ ←0x23368
            <Call 0x233c2 0x102c4>                                              {[-38-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 233c4-233c6 StackAdj>                       Δ+8                {[-30-]}
            <Call 0x233c6 0x103d8>                                              {[-30-]}
                WriteConsoleString(str : String)
            <POP 233cc-233d0 StackAdj>                       Δ+30               {}
        <POP 233d0-233ee Naked>                              Σ0         ↓ →0x233fe ←0x232f8 ←0x23314 ←0x2334c
            <POP 233d0-233d2 StackAdj>                       Δ-4                {[-4-]}
            <Const 0x233d2 0x1.4>                            Δ-4                {[-4-]|[##1]}
            <Call 0x233d6 0x103e4>                                              {[-4-]|[##1]}
                AskConsoleString(prompt : String) : String
            <POP 233dc-233de StackAdj>                       Δ+4                {[-4-]}
            <MI 233de  MOVE.L  (A7)+,0x2394a>                Δ+4                {}
            <MI 233e4  MOVEA.L 0x2394a,A0>                                      {}
            <MI 233ea  TST.W   (A0)>                                            {}
            <MI 233ec  BNE     0x233fe>                                         {}
        <POP 233ee-233fe Naked>                              Σ0         →0x23416
            <Const 0x233ee 0x2394a.4>                        Δ-4                {[##145738]}
            <Call 0x233f4 0x102bc>                                              {[##145738]}
                FreeString(VAR a : String)
            <POP 233fa-233fc StackAdj>                       Δ+4                {}
            <MI 233fc  BRA     0x23416>                                         {}
        <POP 233fe-23416 Naked>                              Σ0         ↓ ←0x233d0
            <Blob 0x233fe [4] 0x2394a>                       Δ-4                {[«4»]}
            <Const 0x23404 0x2394e.4>                        Δ-4                {[«4»]|[##145742]}
            <Const 0x2340a 0x23944.4>                        Δ-4                {[«4»]|[##145742]|[##145732]}
            <Call 0x2340c 0x102ec>                                              {[«4»]|[##145742]|[##145732]}
                String2Long(src : String; VAR status : Bool; VAR retval : Long)
            <POP 23412-23416 StackAdj>                       Δ+12               {}
        <POP 23416-23420 Naked>                              Σ0         ↓ →0x23596 ←0x231bc ←0x233ee
            <MI 23416  MOVE.L  0x23944,D0>                                      {}
            <MI 23418  SUBQ.L  #0x1,D0>                                         {}
            <MI 2341a  CMP.L   #0x05,D0>                                        {}
            <MI 2341c  BHI     0x23596>                                         {}
        <POP 23420-2342a Naked>                              Σ0         →0x23436 →0x2346e →0x23476 →0x234b6 →0x23502 →0x2352c
            <MI 23420  ADD.W   D0,D0>                                           {}
            <MI 23422  SWITCH  D0.W>                                            {}
        <POP 23436-2346e Naked>                              Σ0         →0x235be ←0x23420
            <POP 23436-23438 StackAdj>                       Δ-4                {[-4-]}
            <POP 23438-23439 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x23439 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 2343c  MOVE.B  0x20ef1,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 23442  MOVE.B  0x20ef2,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 23448-2344a StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x2344a>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x2344a 4>                       Δ-4        
                <Const 0x2344e 0x1.2>                        Δ-2        
                <Const 0x23450 0x3.2>                        Δ-2        
                <Call 0x23454 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 23456-23458 StackAdj>                   Δ+8        
            <Const 0x23458 0x1.4>                            Δ-4                {[-2-]|[«2""»]|[$$…]|[##1]}
            <Const 0x2345c 0x1.2>                            Δ-2                {[-2-]|[«2""»]|[$$…]|[##1]|[#1]}
            <Const 0x2345e 0x2394f.4>                        Δ-4                {[-2-]|[«2""»]|[$$…]|[##1]|[#1]|[##145743]}
            <Call 0x23464 0x103b0>                                              {[-2-]|[«2""»]|[$$…]|[##1]|[#1]|[##145743]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 23466-2346a StackAdj>                       Δ+18               {}
            <MI 2346a  BRA     0x235be>                                         {}
        <POP 2346e-23476 Naked>                              Σ0         →0x235be ←0x23420
            <Call 0x2346e 0x21b26>                                              {}
            <MI 23472  BRA     0x235be>                                         {}
        <POP 23476-234b6 Naked>                              Σ0         →0x235be ←0x23420
            <POP 23476-23478 StackAdj>                       Δ-4                {[-4-]}
            <POP 23478-23479 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x23479 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 2347c  MOVE.B  0x20ef5,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 23482  MOVE.B  0x20ef6,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 23488-2348a StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x2348a>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x2348a 4>                       Δ-4        
                <Const 0x2348e 0x1.2>                        Δ-2        
                <Const 0x23490 0x3.2>                        Δ-2        
                <Call 0x23494 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 23496-23498 StackAdj>                   Δ+8        
            <Const 0x23498 0x1.4>                            Δ-4                {[-2-]|[«2""»]|[$$…]|[##1]}
            <Const 0x2349c 0x1.2>                            Δ-2                {[-2-]|[«2""»]|[$$…]|[##1]|[#1]}
            <Const 0x2349e 0x2394f.4>                        Δ-4                {[-2-]|[«2""»]|[$$…]|[##1]|[#1]|[##145743]}
            <Call 0x234a4 0x103b0>                                              {[-2-]|[«2""»]|[$$…]|[##1]|[#1]|[##145743]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 234a6-234aa StackAdj>                       Δ+18               {}
            <MI 234aa  MOVE.B  #0x01,0x23949>                                   {}
            <MI 234b0  MOVE.L  #0x06,0x23944>                                   {}
            <MI 234b2  BRA     0x235be>                                         {}
        <POP 234b6-234ec Naked>                              Σ0 Δ-26    ↓ ←0x23420
            <Blob 0x234b6 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x234ba [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x234be [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 234c2-234c4 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <POP 234c4-234c5 StackAdj>                       Δ+2                {[«2""»]|[«2""»]|[«2""»]|[-2-]}
            <Blob 0x234c5 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]}
            <MI 234c8  MOVE.B  0x20eff,(A7+0x1)>                                {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]}
            <MI 234ce  MOVE.B  0x20f00,(A7+0x2)>                                {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]}
            <POP 234d4-234d6 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[-4-]}
            <Lit 0x234d6 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[$$LOADER]}
            <POP 234e0-234e2 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[$$LOADER]|[-4-]}
            <Pointer.sp 0x234e2 8>                           Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[$$LOADER]|[-4-]|[^^8]}
            <Const 0x234e6 0x1.2>                            Δ-2                {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[$$LOADER]|[-4-]|[^^8]|[#1]}
            <Const 0x234e8 0x3.2>                            Δ-2                {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[$$LOADER]|[-4-]|[^^8]|[#1]|[#3]}
        <POP 234ec-23502 Naked>                              Σ-26 Δ+26  →0x235be ←0x23502
            <Call 0x234ec 0x102c4>                                              {[-26-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 234ee-234f0 StackAdj>                       Δ+6                {[-20-]}
            <POP 234f0-234f1 StackAdj>                       Δ+2                {[-18-]}
            <Const 0x234f1 0x1.2>                            Δ-2                {[-18-]|[#1]}
            <Const 0x234f2 0x2394f.4>                        Δ-4                {[-18-]|[#1]|[##145743]}
            <Call 0x234f8 0x103b0>                                              {[-18-]|[#1]|[##145743]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 234fa-234fe StackAdj>                       Δ+24               {}
            <MI 234fe  BRA     0x235be>                                         {}
        <POP 23502-2352c Naked>                              Σ0 Δ-26    →0x234ec ←0x23420
            <Blob 0x23502 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x23506 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x2350a [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <Blob 0x2350e [4] @>                             Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«4""»]}
            <POP 23512-23514 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[-4-]}
            <Lit 0x23514 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]}
            <POP 2351e-23520 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]|[-4-]}
            <Pointer.sp 0x23520 8>                           Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]|[-4-]|[^^8]}
            <Const 0x23524 0x1.2>                            Δ-2                {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]|[-4-]|[^^8]|[#1]}
            <Const 0x23526 0x4.2>                            Δ-2                {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]|[-4-]|[^^8]|[#1]|[#4]}
            <MI 2352a  BRA     0x234ec>                                         {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]|[-4-]|[^^8]|[#1]|[#4]}
        <POP 2352c-23596 Naked>                              Σ0         →0x235be ←0x23420
            <Blob 0x2352c [38] @>                            Δ-38               {[«38""»]}
            <POP 2353e-23540 StackAdj>                       Δ-4                {[«38""»]|[-4-]}
            <Lit 0x23540 37>                                                    {[«38""»]|[$$--- Booting the R1000 Environment ---]}
            <Call 0x2354e 0x103e0>                                              {[«38""»]|[$$--- Booting the R1000 Environment ---]}
                WriteConsoleStringCrLf(str : String)
            <POP 23554-23558 StackAdj>                       Δ+40               {[-2-]}
            <POP 23558-23559 StackAdj>                       Δ+2                {}
            <Blob 0x23559 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x2355c [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x23560 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <Blob 0x23564 [4] @>                             Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«4""»]}
            <Blob 0x23568 [4] @>                             Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]}
            <POP 2356c-2356e StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x2356e 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]}
            <POP 23578-2357a StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[-4-]}
            <Lit 0x2357a 8>                                                     {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]}
            <POP 23586-23588 StackAdj>                       Δ-2                {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]|[-2-]}
            <POP 23588-23589 StackAdj>                       Δ+2                {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]}
            <Const 0x23589 0x1.2>                            Δ-2                {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]|[#1]}
            <Const 0x2358a 0x2394f.4>                        Δ-4                {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]|[#1]|[##145743]}
            <Call 0x23590 0x103b0>                                              {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]|[#1]|[##145743]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 23592-23594 StackAdj>                       Δ+28               {}
            <MI 23594  BRA     0x235be>                                         {}
        <POP 23596-235be Naked>                              Σ0         ↓ ←0x23416
            <Blob 0x23596 [28] @>                            Δ-28               {[«28""»]}
            <POP 235a6-235a8 StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x235a8 27>                                                    {[«28""»]|[$$illegal response, try again]}
            <Call 0x235b6 0x103e0>                                              {[«28""»]|[$$illegal response, try again]}
                WriteConsoleStringCrLf(str : String)
            <POP 235bc-235be StackAdj>                       Δ+32               {}
        <POP 235be-235c2 Naked>                              Σ0         →0x231aa ←0x23436 ←0x2346e ←0x23476 ←0x234ec ←0x2352c
            <MI 235be  BRA     0x231aa>                                         {}
        <POP 235c8-235ce Naked>                              Σ0         
            <Call 0x235c8 0x10568>                                              {}
                Run_Experiment()

0x23698


@ 23698
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 23698-2371c Body>                                   Δ+6        
        <POP 23698-236ae Prologue>                           Σ0         ↓
        <POP 236ae-236b2 RegCacheLoad>                       Σ0         ↓
        <POP 236b2-236be Naked>                              Σ0         ↓ →0x236cc
            <POP 236b2-236b4 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x236b4 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 236ba  TST.B   (A7)+>                        Δ+2                {}
            <MI 236bc  BEQ     0x236cc>                                         {}
        <POP 236be-236cc Naked>                              Σ0 Δ-6     →0x236d8
            <Blob 0x236be [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x236c2 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x236c6 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <MI 236ca  BRA     0x236d8>                                         {[«2""»]|[«2""»]|[«2""»]}
        <POP 236cc-236d8 Naked>                              Σ0 Δ-6     ↓ ←0x236b2
            <Blob 0x236cc [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x236d0 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x236d4 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
        <POP 236d8-23714 Naked>                              Σ-6 Δ+6    ↓ ←0x236be
            <POP 236d8-236da StackAdj>                       Δ-4                {[-10-]}
            <Lit 0x236da>                                                       {[-6-]|[$$…]}
                <Pointer.sp 0x236da 4>                       Δ-4        
                <Const 0x236de 0x1.2>                        Δ-2        
                <Const 0x236e2 0x6.2>                        Δ-2        
                <Call 0x236e6 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 236ec-236ee StackAdj>                   Δ+8        
            <Pointer.fp 0x236ee <LVAR -0x006 @ 4(r)>>        Δ-4                {[-6-]|[$$…]|[@@-6]}
            <Call 0x236f0 0x10460>                                              {[-6-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 236f6-236fa StackAdj>                       Δ+14               {}
            <MI 236fa  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 236fc  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 23700  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x23702 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 23708-2370a StackAdj>                       Δ+8                {}
            <Pointer.fp 0x2370a <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x2370c 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 23712-23714 StackAdj>                       Δ+4                {}
        <POP 23714-2371c Epilogue>                           Σ0         

0x2373e


@ 2373e
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 2373e-237a6 Body>                                              
        <POP 2373e-23754 Prologue>                           Σ0         ↓
        <POP 23754-2379e Naked>                              Σ0         ↓
            <Blob 0x23754 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x23760 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 23764-23766 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x23766 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 23778-2377a StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2377a  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2377e  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 23780  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 23782  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x23784 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 2378a-2378c StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x2378c 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 23792-23794 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x23794 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 2379a-2379e StackAdj>                       Δ+20               {}
        <POP 2379e-237a6 Epilogue>                           Σ0         

0x237fa


@ 237fa
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 237fa-23936 Body>                                              
        <POP 237fa-23810 Prologue>                           Σ0         ↓
        <POP 23810-23826 RegCacheLoad>                       Σ0         ↓
        <POP 23826-23886 Naked>                              Σ0         ↓ →0x238ce
            <Call 0x23826 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x2382c [18] @>                            Δ-18               {[«18""»]}
            <POP 23838-2383a StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x2383a 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x23846 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 23848-23849 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x23849 [14] @>                            Δ-14               {[«14""»]}
            <POP 23858-2385a StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x2385a 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 23864-23866 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 23866  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x2386a 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 23870-23872 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x23872 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 23878-2387a StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x2387a 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2387c-2387e StackAdj>                       Δ+18               {}
            <MI 2387e  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 23882  CMPA.W  #0x01,A0>                                        {}
            <MI 23884  BEQ     0x238ce>                                         {}
        <POP 23886-238ce Naked>                              Σ0         ↓
            <Blob 0x23886 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x23896 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 238a6-238a8 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x238a8 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 238b2-238b4 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x238b4>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x238b4 12>                      Δ-4        
                <Const 0x238b8 0x1.2>                        Δ-2        
                <Const 0x238ba 0x1e.2>                       Δ-2        
                <Call 0x238bc 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 238be-238c0 StackAdj>                   Δ+8        
            <Call 0x238c0 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 238c6-238c8 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x238c8 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 238ca-238ce StackAdj>                       Δ+48               {}
        <POP 238ce-2392e Naked>                              Σ0         ↓ ←0x23826
            <Blob 0x238ce [14] @>                            Δ-14               {[«14""»]}
            <POP 238de-238e0 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x238e0 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 238ea-238ec StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 238ec  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x238f0 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 238f6-238f8 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x238f8 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 238fe-23900 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x23900 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 23902-23903 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x23903 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x23912 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 23916-23918 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x23918 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x23926 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 2392c-2392e StackAdj>                       Δ+30               {}
        <POP 2392e-23936 Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.1b317b11999bc8c6
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 30 dc              |  0     |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 39 6a              |  9j    |		.PTR	0x2396a
00020010					code.end:
00020010 00 02 39 36              |  96    |		.PTR	0x23936
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 37 3e              |  7>    |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 37 fa              |  7     |		.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 53 54        |@(#)ST  |		.XXX[0x6]
00020110 41 52 54 45 52 2c 32 2e  |ARTER,2.|		.XXX[0x28]
00020118 32 2c 39 32 2f 30 35 2f  |2,92/05/|
00020120 30 31 2c 31 36 3a 32 35  |01,16:25|
00020128 3a 30 30 5c 30 31 32 33  |:00\0123|
00020130 34 35 36 37 38 39 41 42  |456789AB|
00020138 43 44 45 46              |CDEF    |		.XXX[0x4]
0002013c 53 74 61 72 74 69 6e 67  |Starting|		.TXT	'Starting remote diagnostics from Cluster id =>'
0002016a 52 61 74 69 6f 6e 61 6c  |Rational|		.TXT	'Rational Service has disconnected '
0002018c 41 72 65 20 79 6f 75 20  |Are you |		.TXT	'Are you ready to continue '
000201a6 44 6f 20 79 6f 75 20 77  |Do you w|		.TXT	'Do you want do disconnect '
000201c0 46 49                    |FI      |		.TXT	'FI'
000201c2 58 50                    |XP      |		.TXT	'XP'
000201c4 41 44                    |AD      |		.TXT	'AD'
000201c6 46 49 58 4d              |FIXM    |		.TXT	'FIXM'
000201ca 4f 44 45 4d              |ODEM    |		.TXT	'ODEM'
000201ce 50 6c 65 61 73 65 20 65  |Please e|		.TXT	'Please enter current date and time as HH:MM:SS DD-MMM-YY :_ '
0002020a 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal value or incorret format, try again.'
00020236 48 61 72 64 20 64 69 73  |Hard dis|		.TXT	'Hard disk errors in diagnostic filesystem labels on boot device.'
00020276 4e 6f 20 64 69 61 67 6e  |No diagn|		.TXT	'No diagnostic filesystem labels found on boot device. '
000202ac 4e 6f 20 64 69 61 67 6e  |No diagn|		.TXT	'No diagnostic file system is installed on boot unit.'
000202e0 55 6e 6b 6e 6f 77 6e 20  |Unknown |		.TXT	'Unknown fault during diagnostic filesystem initialization.'
0002031a 42 6f 6f 74 20 61 20 64  |Boot a d|		.TXT	'Boot a different disk if possible.  This unit must be re-built. '
0002035a 42 6f 6f 74 20 61 20 64  |Boot a d|		.TXT	'Boot a different disk if possible.  This unit must be re-built. '
0002039a 54 68 69 73 20 64 69 73  |This dis|		.TXT	'This disk unit is not bootable.  Re-boot from different unit. '
000203d8 43 6f 6e 74 61 63 74 20  |Contact |		.TXT	'Contact Rational customer support '
000203fa 49 6e 69 74 69 61 6c 69  |Initiali|		.TXT	'Initializing diagnostic file system ... '
00020422 46 69 6c 65 20 73 79 73  |File sys|		.TXT	'File system starter not booted from disk. '
0002044c 5b 4f 4b 5d              |[OK]    |		.TXT	'[OK]'
00020450 49 4f 50 5f 44 55 4d 50  |IOP_DUMP|		.TXT	'IOP_DUMP4 '
0002045a 49 4f 50 5f              |IOP_    |		.TXT	'IOP_'
0002045e 44 55 4d 50              |DUMP    |		.TXT	'DUMP'
00020462 49 4f 50 5f              |IOP_    |		.TXT	'IOP_'
00020466 44 55 4d 50              |DUMP    |		.TXT	'DUMP'
0002046a 49 4f 50 5f 44 55 4d 50  |IOP_DUMP|		.TXT	'IOP_DUMP0 '
00020474 2a 2a 2a 20 63 6f 75 6c  |*** coul|		.TXT	'*** could not create IOP_DUMP0 file (see reason above)'
000204aa 43 52 41 53 48 53 41 56  |CRASHSAV|		.TXT	'CRASHSAVE '
000204b4 4e 4f 5f 52 31 4b 5f 44  |NO_R1K_D|		.TXT	'NO_R1K_DUMP '
000204c0 43 52 41 53 48 53 41 56  |CRASHSAV|		.TXT	'CRASHSAVE '
000204ca 44 55 4d 50 5f 52 31 30  |DUMP_R10|		.TXT	'DUMP_R1000'
000204d4 44 6f 20 79 6f 75 20 77  |Do you w|		.TXT	'Do you want to AUTO BOOT the R1000 after the crash dump is taken'
00020514 3e 3e 3e 20 43 61 6e 27  |>>> Can'|		.TXT	'>>> Can't make a CRASHDUMP because a full CRASHSAVE wasn't made '
00020554 3e 3e 3e 20 43 61 6e 27  |>>> Can'|		.TXT	'>>> Can't make a CRASHDUMP because the uDIAG or FRU tests were run'
00020596 43 52 41 53 48 44 55 4d  |CRASHDUM|		.TXT	'CRASHDUMP '
000205a0 52 55 4e 5f 55 44 49 41  |RUN_UDIA|		.TXT	'RUN_UDIAG '
000205aa 52 75 6e 6e 69 6e 67 20  |Running |		.TXT	'Running post-mortem diagnostics.'
000205ca 45 4d                    |EM      |		.TXT	'EM'
000205cc 42 41                    |BA      |		.TXT	'BA'
000205ce 4c 4d                    |LM      |		.TXT	'LM'
000205d0 2e 45 52 52              |.ERR    |		.TXT	'.ERR'
000205d4 4d 45 53 53              |MESS    |		.TXT	'MESS'
000205d8 52 65 73 74 61 72 74 69  |Restarti|		.TXT	'Restarting system after R1000 Processor '
00020600 20 6e 6f 20 66 61 75 6c  | no faul|		.XXX[0x10]
00020608 74 20 66 6f 75 6e 64 20  |t found |
00020610 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x20]
00020630 20 20 20 48 61 6c 74 20  |   Halt |		.XXX[0x18]
00020638 3d 3e 20 53 79 73 74 65  |=> Syste|
00020640 6d 20 65 72 72 6f 72 20  |m error |
00020648 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x18]
00020660 20 20 20 20 20 48 61 6c  |     Hal|		.XXX[0x98]
00020668 74 20 3d 3e 20 49 2f 4f  |t => I/O|
00020670 20 50 72 6f 63 65 73 73  | Process|
00020678 6f 72 20 68 61 72 64 77  |or hardw|
00020680 61 72 65 20 65 72 72 6f  |are erro|
00020688 72 20 20 20 20 20 20 20  |r       |
00020690 20 20 20 20 20 20 20 48  |       H|
00020698 61 6c 74 20 3d 3e 20 49  |alt => I|
000206a0 2f 4f 20 50 72 6f 63 65  |/O Proce|
000206a8 73 73 6f 72 20 73 6f 66  |ssor sof|
000206b0 74 77 61 72 65 20 65 72  |tware er|
000206b8 72 6f 72 20 20 20 20 20  |ror     |
000206c0 20 20 20 20 20 20 20 20  |        |
000206c8 20 48 61 6c 74 20 3d 3e  | Halt =>|
000206d0 20 50 72 6f 63 65 73 73  | Process|
000206d8 6f 72 20 68 61 72 64 77  |or hardw|
000206e0 61 72 65 20 65 72 72 6f  |are erro|
000206e8 72 20 20 20 20 20 20 20  |r       |
000206f0 20 20 20 20 20 20 20 20  |        |
000206f8 20 20 20                 |        |		.XXX[0x3]
000206fb 48 61 6c 74 20           |Halt    |		.XXX[0x5]
00020700 3d 3e 20 50 72 6f 63 65  |=> Proce|		.XXX[0x80]
00020708 73 73 6f 72 20 6d 75 6c  |ssor mul|
00020710 74 69 2d 62 69 74 20 6d  |ti-bit m|
00020718 65 6d 6f 72 79 20 65 72  |emory er|
00020720 72 6f 72 20 20 20 20 20  |ror     |
00020728 20 20 20 20 20 48 61 6c  |     Hal|
00020730 74 20 3d 3e 20 50 72 6f  |t => Pro|
00020738 63 65 73 73 6f 72 20 53  |cessor S|
00020740 59 53 42 55 53 20 68 61  |YSBUS ha|
00020748 72 64 77 61 72 65 20 65  |rdware e|
00020750 72 72 6f 72 20 20 20 20  |rror    |
00020758 20 20 20 20 20 20 20 48  |       H|
00020760 61 6c 74 20 3d 3e 20 50  |alt => P|
00020768 72 6f 63 65 73 73 6f 72  |rocessor|
00020770 20 6d 69 63 72 6f 63 6f  | microco|
00020778 64 65 20 65 72 72 6f 72  |de error|
00020780 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00020790 20                       |        |		.BLANK	20[0x1]
00020791 48 61 6c 74 20 3d 3e     |Halt => |		.XXX[0x7]
00020798 20 50 72 6f 63 65 73 73  | Process|		.XXX[0x28]
000207a0 6f 72 20 73 6f 66 74 77  |or softw|
000207a8 61 72 65 20 65 72 72 6f  |are erro|
000207b0 72 20 20 20 20 20 20 20  |r       |
000207b8 20 20 20 20 20 20 20 20  |        |
000207c0 20 20 20                 |        |		.XXX[0x3]
000207c3 48 61 6c 74 20           |Halt    |		.XXX[0x5]
000207c8 3d 3e 20 53 68 75 74 64  |=> Shutd|		.XXX[0x28]
000207d0 6f 77 6e 20 66 72 6f 6d  |own from|
000207d8 20 45 6e 76 69 72 6f 6e  | Environ|
000207e0 6d 65 6e 74 20 20 20 20  |ment    |
000207e8 20 20 20 20 20 20 20 20  |        |
000207f0 20 20 20 20 20           |        |		.XXX[0x5]
000207f5 48 61 6c                 |Hal     |		.XXX[0x3]
000207f8 74 20 3d 3e 20 50 72 6f  |t => Pro|		.XXX[0x28]
00020800 63 65 73 73 6f 72 20 63  |cessor c|
00020808 72 61 73 68 20 65 72 72  |rash err|
00020810 6f 72 20 20 20 20 20 20  |or      |
00020818 20 20 20 20 20 20 20 20  |        |
00020820 20 20 20 20 20 20 20     |        |		.XXX[0x7]
00020827 72                       |r       |		.XXX[0x1]
00020828 65 66 72 65 73 68 20 6d  |efresh m|		.XXX[0x20]
00020830 61 63 68 69 6e 65 20 63  |achine c|
00020838 68 65 63 6b 20 65 72 72  |heck err|
00020840 6f 72 20 20 20 20 20 20  |or      |
00020848 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00020858 20 6d 61 63 68 69 6e 65  | machine|		.XXX[0x20]
00020860 20 63 68 65 63 6b 20 28  | check (|
00020868 70 61 72 69 74 79 20 65  |parity e|
00020870 72 72 6f 72 29 20 20 20  |rror)   |
00020878 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00020888 20 20 20 48 61 6c 74 20  |   Halt |		.XXX[0x20]
00020890 3d 3e 20 55 6e 6b 6e 6f  |=> Unkno|
00020898 77 6e 20 65 72 72 6f 72  |wn error|
000208a0 20 68 61 6c 74 20 20 20  | halt   |
000208a8 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
000208b8 20 20 20 20              |        |		.XXX[0x4]
000208bc 45 52 52 4f 52 5f 4c 4f  |ERROR_LO|		.TXT	'ERROR_LOG '
000208c6 54 68 65 20 52 31 30 30  |The R100|		.TXT	'The R1000 has exceeded maximum safe temperature limits. '
000208fe 5b 30                    |[0      |		.TXT	'[0'
00020900 6d 20                    |m       |		.XXX[0x2]
00020902 52 65 73 74 61 72 74 69  |Restarti|		.TXT	'Restarting system after loss of AC power'
0002092a 52 65 73 74 61 72 74 69  |Restarti|		.TXT	'Restarting system after DC power fault or White Button Reset'
00020966 5b 30                    |[0      |		.TXT	'[0'
00020968 6d 20                    |m       |		.XXX[0x2]
0002096a 52 65 73 74 61 72 74 69  |Restarti|		.TXT	'Restarting system after operator console BREAK key'
0002099c 52 65 73 74 61 72 74 69  |Restarti|		.TXT	'Restarting system after operator or program invoked crash (EPO) '
000209dc 5b 30                    |[0      |		.TXT	'[0'
000209de 6d 20                    |m       |		.XXX[0x2]
000209e0 5b 30                    |[0      |		.TXT	'[0'
000209e2 6d 20                    |m       |		.XXX[0x2]
000209e4 2a 2a 2a 20 74 68 65 20  |*** the |		.TXT	'*** the microdiagnostic passed but this is the second crash today due '
00020a2a 20 20 20 20 61 20 68 61  |    a ha|		.TXT	'    a hardware problem. Call RATIONAL for assistance. '
00020a60 3e 3e 3e 20 54 68 65 20  |>>> The |		.TXT	'>>> The system crashed due to a hardware problem but the microdiagnostic'
00020aa8 20 20 20 20 74 65 73 74  |    test|		.TXT	'    test passed. The problem may be intermittent. Suggest trying to reboot'
00020af2 2a 2a 2a 20 74 68 65 20  |*** the |		.TXT	'*** the microdiagnostic test failed: please run the FRU tests '
00020b30 3e 3e 3e 20 41 75 74 6f  |>>> Auto|		.TXT	'>>> Automatic Crash Recovery is disabled'
00020b58 5b 30                    |[0      |		.TXT	'[0'
00020b5a 6d 20                    |m       |		.XXX[0x2]
00020b5c 20 5f                    | _      |		.TXT	' _'
00020b5e 5b 30                    |[0      |		.TXT	'[0'
00020b60 6d 20                    |m       |		.XXX[0x2]
00020b62 52 65 73 74 61 72 69 6e  |Restarin|		.TXT	'Restaring system after IOP Kernel crash =>'
00020b8c 49 4f 50 5f 50 41 4e 49  |IOP_PANI|		.TXT	'IOP_PANICS.ERRMESS'
00020b9e 52 65 73 74 61 72 69 6e  |Restarin|		.TXT	'Restaring system after IOA reboot request, reason =>'
00020bd2 49 4f 41 5f 50 41 4e 49  |IOA_PANI|		.TXT	'IOA_PANICS.ERRMESS'
00020be4 3d 3d 3d 3d 3d 3d 3d 3d  |========|		.TXT	'===================================================='
00020c18 5b 31 3b 37 6d 20        |[1;7m   |		.TXT	'[1;7m '
00020c1e 43 52 41 53 48 5f 44 55  |CRASH_DU|		.TXT	'CRASH_DUMP.SAVED_STATE'
00020c34 3e 3e 3e 20 57 41 52 4e  |>>> WARN|		.TXT	'>>> WARNING: the EPROM WRITE PROTECT switch is OFF (at front of RESHA board) <<<'
00020c84 3e 3e 3e 20 57 41 52 4e  |>>> WARN|		.TXT	'>>> WARNING: the system clock or power is margined <<<'
00020cba 3e 3e 3e 20 4e 4f 54 49  |>>> NOTI|		.TXT	'>>> NOTICE: the OPERATOR_MODE switch is set to INTERACTIVE <<<'
00020cf8 45 45 50 52 4f 4d 5f 52  |EEPROM_R|		.TXT	'EEPROM_REVS '
00020d04 20 2d 2d 49 4f 43 5f 53  | --IOC_S|		.TXT	' --IOC_SELFTEST '
00020d14 20 2d 2d 49 4f 43 5f 42  | --IOC_B|		.TXT	' --IOC_BOOT '
00020d20 20 2d 2d 55 54 49 4c 2f  | --UTIL/|		.TXT	' --UTIL/DEB '
00020d2c 20 2d 2d 4e 45 54 2f 44  | --NET/D|		.TXT	' --NET/DEB2 '
00020d38 20 2d 2d 52 45 53 48 41  | --RESHA|		.TXT	' --RESHA_TEST '
00020d46 20 2d 2d 4c 41 4e 43 45  | --LANCE|		.TXT	' --LANCE_BOOT '
00020d54 20 2d 2d 44              | --D    |		.TXT	' --D'
00020d58 49 53 4b 5f              |ISK_    |		.TXT	'ISK_'
00020d5c 42 4f 4f 54              |BOOT    |		.TXT	'BOOT'
00020d60 20 2d 2d 54              | --T    |		.TXT	' --T'
00020d64 41 50 45 5f              |APE_    |		.TXT	'APE_'
00020d68 42 4f 4f 54              |BOOT    |		.TXT	'BOOT'
00020d6c 42 45                    |BE      |		.TXT	'BE'
00020d6e 4b 49                    |KI      |		.TXT	'KI'
00020d70 4e 53                    |NS      |		.TXT	'NS'
00020d72 44 4f 55 53 45 20        |DOUSE   |		.TXT	'DOUSE '
00020d78 4f 70 74 69              |Opti    |		.TXT	'Opti'
00020d7c 6f 6e 73 20              |ons     |		.TXT	'ons '
00020d80 61 72 65 3a              |are:    |		.TXT	'are:'
00020d84 20 20 31 20              |  1     |		.TXT	'  1 '
00020d88 3d 3e 20 65              |=> e    |		.TXT	'=> e'
00020d8c 6e 74 65 72              |nter    |		.TXT	'nter'
00020d90 20 43 4c 49              | CLI    |		.TXT	' CLI'
00020d94 20 20 32 20 3d 3e 20 6d  |  2 => m|		.TXT	'  2 => make a CRASHDUMP '
00020dac 20 20 33 20 3d 3e 20 72  |  3 => r|		.TXT	'  3 => run the FRU tests'
00020dc4 20 20 34 20 3d 3e 20 42  |  4 => B|		.TXT	'  4 => Boot DDC configuration '
00020de2 20 20 35 20 3d 3e 20 42  |  5 => B|		.TXT	'  5 => Boot EEDB configuration'
00020e00 20 20 36 20 3d 3e 20 42  |  6 => B|		.TXT	'  6 => Boot STANDARD configuration'
00020e22 45 6e 74 65 72 20 6f 70  |Enter op|		.TXT	'Enter option [Enter CLI] :_ '
00020e3e 45 6e 74 65 72 20 6f 70  |Enter op|		.TXT	'Enter option [Make a CRASHDUMP] :_'
00020e60 45 6e 74 65 72 20 6f 70  |Enter op|		.TXT	'Enter option [Run FRU tests] :_ '
00020e80 45 6e 74 65 72 20 6f 70  |Enter op|		.TXT	'Enter option [Boot DDC] :_'
00020e9a 45 6e 74 65 72 20 6f 70  |Enter op|		.TXT	'Enter option [Boot EEDB] :_ '
00020eb6 45 6e 74 65 72 20 6f 70  |Enter op|		.TXT	'Enter option [Boot STANDARD] :_ '
00020ed6 45 6e 74 65 72 20 6f 70  |Enter op|		.TXT	'Enter option [???????] :_ '
00020ef0 43 4c                    |CL      |		.TXT	'CL'
00020ef2 49 20                    |I       |		.XXX[0x2]
00020ef4 46 52                    |FR      |		.TXT	'FR'
00020ef6 55 20                    |U       |		.XXX[0x2]
00020ef8 4c 4f                    |LO      |		.TXT	'LO'
00020efa 41 44                    |AD      |		.TXT	'AD'
00020efc 45 52                    |ER      |		.TXT	'ER'
00020efe 44 44                    |DD      |		.TXT	'DD'
00020f00 43 20                    |C       |		.XXX[0x2]
00020f02 4c 4f                    |LO      |		.TXT	'LO'
00020f04 41 44                    |AD      |		.TXT	'AD'
00020f06 45 52                    |ER      |		.TXT	'ER'
00020f08 45 45 44 42              |EEDB    |		.TXT	'EEDB'
00020f0c 2d 2d 2d 20 42 6f 6f 74  |--- Boot|		.TXT	'--- Booting the R1000 Environment --- '
00020f32 4c 4f                    |LO      |		.TXT	'LO'
00020f34 41 44                    |AD      |		.TXT	'AD'
00020f36 45 52                    |ER      |		.TXT	'ER'
00020f38 53 54 41 4e              |STAN    |		.TXT	'STAN'
00020f3c 44 41 52 44              |DARD    |		.TXT	'DARD'
00020f40 69 6c 6c 65 67 61 6c 20  |illegal |		.TXT	'illegal response, try again '
00020f5c 02 02 05 02              |        |		.XXX[0x4]
00020f60 02 05 04 01 00 06 04 04  |        |		.XXX[0x30]
00020f68 09 06 05 06 06 04 02 06  |        |
00020f70 04 07 07 07 07 00 06 07  |        |
00020f78 07 04 01 00 20 6e 6f 20  |     no |
00020f80 66 61 75 6c 74 20 66 6f  |fault fo|
00020f88 75 6e 64 20 20 20 20 20  |und     |
00020f90 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x18]
00020fa8 20 20 20 20 20 20 20 48  |       H|		.XXX[0x20]
00020fb0 61 6c 74 20 3d 3e 20 53  |alt => S|
00020fb8 79 73 74 65 6d 20 65 72  |ystem er|
00020fc0 72 6f 72 20 20 20 20 20  |ror     |
00020fc8 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x18]
00020fe0 20 48 61 6c 74 20 3d 3e  | Halt =>|		.XXX[0x90]
00020fe8 20 49 2f 4f 20 50 72 6f  | I/O Pro|
00020ff0 63 65 73 73 6f 72 20 68  |cessor h|
00020ff8 61 72 64 77 61 72 65 20  |ardware |
00021000 65 72 72 6f 72 20 20 20  |error   |
00021008 20 20 20 20 20 20 20 20  |        |
00021010 20 20 20 48 61 6c 74 20  |   Halt |
00021018 3d 3e 20 49 2f 4f 20 50  |=> I/O P|
00021020 72 6f 63 65 73 73 6f 72  |rocessor|
00021028 20 73 6f 66 74 77 61 72  | softwar|
00021030 65 20 65 72 72 6f 72 20  |e error |
00021038 20 20 20 20 20 20 20 20  |        |
00021040 20 20 20 20 20 48 61 6c  |     Hal|
00021048 74 20 3d 3e 20 50 72 6f  |t => Pro|
00021050 63 65 73 73 6f 72 20 68  |cessor h|
00021058 61 72 64 77 61 72 65 20  |ardware |
00021060 65 72 72 6f 72 20 20 20  |error   |
00021068 20 20 20 20 20 20 20 20  |        |
00021070 20 20 20 20 20 20 20     |        |		.XXX[0x7]
00021077 48                       |H       |		.XXX[0x1]
00021078 61 6c 74 20 3d 3e 20 50  |alt => P|		.XXX[0x90]
00021080 72 6f 63 65 73 73 6f 72  |rocessor|
00021088 20 6d 75 6c 74 69 2d 62  | multi-b|
00021090 69 74 20 6d 65 6d 6f 72  |it memor|
00021098 79 20 65 72 72 6f 72 20  |y error |
000210a0 20 20 20 20 20 20 20 20  |        |
000210a8 20 48 61 6c 74 20 3d 3e  | Halt =>|
000210b0 20 50 72 6f 63 65 73 73  | Process|
000210b8 6f 72 20 53 59 53 42 55  |or SYSBU|
000210c0 53 20 68 61 72 64 77 61  |S hardwa|
000210c8 72 65 20 65 72 72 6f 72  |re error|
000210d0 20 20 20 20 20 20 20 20  |        |
000210d8 20 20 20 48 61 6c 74 20  |   Halt |
000210e0 3d 3e 20 50 72 6f 63 65  |=> Proce|
000210e8 73 73 6f 72 20 6d 69 63  |ssor mic|
000210f0 72 6f 63 6f 64 65 20 65  |rocode e|
000210f8 72 72 6f 72 20 20 20 20  |rror    |
00021100 20 20 20 20 20 20 20 20  |        |
00021108 20 20 20 20 20           |        |		.XXX[0x5]
0002110d 48 61 6c                 |Hal     |		.XXX[0x3]
00021110 74 20 3d 3e 20 50 72 6f  |t => Pro|		.XXX[0x28]
00021118 63 65 73 73 6f 72 20 73  |cessor s|
00021120 6f 66 74 77 61 72 65 20  |oftware |
00021128 65 72 72 6f 72 20 20 20  |error   |
00021130 20 20 20 20 20 20 20 20  |        |
00021138 20 20 20 20 20 20 20     |        |		.XXX[0x7]
0002113f 48                       |H       |		.XXX[0x1]
00021140 61 6c 74 20 3d 3e 20 53  |alt => S|		.XXX[0x20]
00021148 68 75 74 64 6f 77 6e 20  |hutdown |
00021150 66 72 6f 6d 20 45 6e 76  |from Env|
00021158 69 72 6f 6e 6d 65 6e 74  |ironment|
00021160 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00021170 20                       |        |		.BLANK	20[0x1]
00021171 48 61 6c 74 20 3d 3e     |Halt => |		.XXX[0x7]
00021178 20 50 72 6f 63 65 73 73  | Process|		.XXX[0x18]
00021180 6f 72 20 63 72 61 73 68  |or crash|
00021188 20 65 72 72 6f 72 20 20  | error  |
00021190 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
000211a0 20 20 20 72 65 66 72 65  |   refre|		.XXX[0x20]
000211a8 73 68 20 6d 61 63 68 69  |sh machi|
000211b0 6e 65 20 63 68 65 63 6b  |ne check|
000211b8 20 65 72 72 6f 72 20 20  | error  |
000211c0 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
000211d0 20 20 20 20 20 6d 61 63  |     mac|		.XXX[0x30]
000211d8 68 69 6e 65 20 63 68 65  |hine che|
000211e0 63 6b 20 28 70 61 72 69  |ck (pari|
000211e8 74 79 20 65 72 72 6f 72  |ty error|
000211f0 29 20 20 20 20 20 20 20  |)       |
000211f8 20 20 20 20 20 20 20 20  |        |
00021200 20 20 20 20 20 20 20     |        |		.XXX[0x7]
00021207 48                       |H       |		.XXX[0x1]
00021208 61 6c 74 20 3d 3e 20 55  |alt => U|		.XXX[0x20]
00021210 6e 6b 6e 6f 77 6e 20 65  |nknown e|
00021218 72 72 6f 72 20 68 61 6c  |rror hal|
00021220 74 20 20 20 20 20 20 20  |t       |
00021228 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00021238 00 00 00 01 01 00 01 00  |        |		.XXX[0x10]
00021240 01 00 00 06 07 04 02 0c  |        |
00021248 0d 0e 0f 00              |        |		.XXX[0x4]
0002124c ; --------------------------------------------------------------------------------------
0002124c ; OMSI PASCAL Function
0002124c ;    <LVAR  0x008 4(w)>
0002124c ;    <LVAR -0x004 @>
0002124c ;    <LVAR -0x00c @ 4(r)>
0002124c ; --------------------------------------------------------------------------------------
0002124c 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
00021250 bf d5                    |        |		CMPA.L	(A5),A7
00021252 62 06                    |b       |		BHI	0x2125a
00021254 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021258 4e 76                    |Nv      |		TRAPV
0002125a de fc 00 26              |   &    |		ADDA.W	#0x26,A7
0002125e 48 e7 e1 c0              |H       |		MOVEM.L	A1+A0+D7+D2+D1+D0,-(A7)
00021262 43 ee ff f4              |C       |		LEA.L	(A6-0xc),A1
00021266 72 0f                    |r       |		MOVEQ.L	#0x0f,D1
00021268 74 03                    |t       |		MOVEQ.L	#0x03,D2
0002126a 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002126e 4e b9 00 01 05 9e        |N       |		JSR	ReadClusterNo(VAR a : Long)
00021274 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021276 48 51                    |HQ      |		PEA.L	(A1)
00021278 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
0002127e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021280 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021282 be 82                    |        |		CMP.L	D2,D7
00021284 63 02                    |c       |		BLS	0x21288
00021286 4e 4f                    |NO      |		TRAP	#15
00021288 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002128a 42 80                    |B       |		CLR.L	D0
0002128c 10 36 78 fc              | 6x     |		MOVE.B	(A6+D7.L-#0x4),D0
00021290 e8 40                    | @      |		ASR.W	#0x4,D0
00021292 52 40                    |R@      |		ADDQ.W	#0x1,D0
00021294 53 40                    |S@      |		SUBQ.W	#0x1,D0
00021296 41 81                    |A       |		CHK.W	D1,D0
00021298 41 fa ee 92              |A       |		LEA.L	0x2012c,A0
0002129c 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
000212a0 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
000212a6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000212a8 2e 91                    |.       |		MOVE.L	(A1),(A7)
000212aa 42 80                    |B       |		CLR.L	D0
000212ac 10 36 78 fc              | 6x     |		MOVE.B	(A6+D7.L-#0x4),D0
000212b0 c0 41                    | A      |		AND.W	D1,D0
000212b2 52 40                    |R@      |		ADDQ.W	#0x1,D0
000212b4 53 40                    |S@      |		SUBQ.W	#0x1,D0
000212b6 41 81                    |A       |		CHK.W	D1,D0
000212b8 41 fa ee 72              |A  r    |		LEA.L	0x2012c,A0
000212bc 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
000212c0 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
000212c6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000212c8 52 87                    |R       |		ADDQ.L	#0x1,D7
000212ca be 82                    |        |		CMP.L	D2,D7
000212cc 6f b4                    |o       |		BLE	0x21282
000212ce 2d 51 00 08              |-Q      |		MOVE.L	(A1),(A6+0x8)
000212d2 4c df 03 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1
000212d6 4e 5e                    |N^      |		UNLK	A6
000212d8 4e 75                    |Nu      |		RTS
000212da ; --------------------------------------------------------------------------------------
000212da ; OMSI PASCAL Function
000212da ;    <LVAR -0x004 @>
000212da ; --------------------------------------------------------------------------------------
000212da 4e 56 ff 92              |NV      |		LINK.W	A6,#0xff92
000212de bf d5                    |        |		CMPA.L	(A5),A7
000212e0 62 06                    |b       |		BHI	0x212e8
000212e2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000212e6 4e 76                    |Nv      |		TRAPV
000212e8 de fc 00 6a              |   j    |		ADDA.W	#0x6a,A7
000212ec 48 e7 f3 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7)
000212f0 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000212f6 47 f8 00 01              |G       |		LEA.L	0x1,A3
000212fa 72 01                    |r       |		MOVEQ.L	#0x01,D1
000212fc 74 1a                    |t       |		MOVEQ.L	#0x1a,D2
000212fe 76 19                    |v       |		MOVEQ.L	#0x19,D3
00021300 10 39 00 02 39 3f        | 9  9?  |		MOVE.B	0x2393f,D0
00021306 ef 08                    |        |		LSL.B	#0x7,D0
00021308 ee 08                    |        |		LSR.B	#0x7,D0
0002130a 67 00 01 66              |g  f    |		BEQ	0x21472
0002130e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021310 48 78 01 80              |Hx      |		PEA.L	0x180
00021314 4e b9 00 01 05 92        |N       |		JSR	ReadConfig(where : Long) : Word
0002131a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002131c 10 2f 00 01              | /      |		MOVE.B	(A7+0x1),D0
00021320 0c 00 00 58              |   X    |		CMPI.B	#0x58,D0
00021324 66 30                    |f0      |		BNE	0x21356
00021326 3f 3a ee 9c              |?:      |		MOVE.W	0x201c4,-(A7)
0002132a 3f 3a ee 96              |?:      |		MOVE.W	0x201c2,-(A7)
0002132e 3f 3a ee 90              |?:      |		MOVE.W	0x201c0,-(A7)
00021332 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021334 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021338 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002133a 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
0002133e 4e 92                    |N       |		JSR	(A2)
00021340 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021342 48 53                    |HS      |		PEA.L	(A3)
00021344 1f 01                    |        |		MOVE.B	D1,-(A7)
00021346 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002134a 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00021350 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021354 60 2a                    |`*      |		BRA	0x21380
00021356 2f 3a ee 72              |/: r    |		MOVE.L	0x201ca,-(A7)
0002135a 2f 3a ee 6a              |/: j    |		MOVE.L	0x201c6,-(A7)
0002135e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021360 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021364 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021366 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
0002136a 4e 92                    |N       |		JSR	(A2)
0002136c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002136e 48 53                    |HS      |		PEA.L	(A3)
00021370 1f 01                    |        |		MOVE.B	D1,-(A7)
00021372 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021376 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
0002137c de fc 00 16              |        |		ADDA.W	#0x16,A7
00021380 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021382 4e b9 00 01 03 f8        |N       |		JSR	GetConsoleConfig() : Long
00021388 20 1f                    |        |		MOVE.L	(A7)+,D0
0002138a b0 81                    |        |		CMP.L	D1,D0
0002138c 67 00 00 e4              |g       |		BEQ	0x21472
00021390 41 fa ed d8              |A       |		LEA.L	0x2016a,A0
00021394 70 16                    |p       |		MOVEQ.L	#0x16,D0
00021396 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021398 51 c8 ff fc              |Q       |		DBF	D0,0x21396
0002139c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002139e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000213a2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000213a4 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
000213a8 4e 92                    |N       |		JSR	(A2)
000213aa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000213ac 4e ba fe 9e              |N       |		JSR	0x2124c
000213b0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000213b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213b8 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000213be de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000213c2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000213c4 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000213c6 9e c2                    |        |		SUBA.W	D2,A7
000213c8 20 4f                    | O      |		MOVEA.L	A7,A0
000213ca 43 fa ed c0              |C       |		LEA.L	0x2018c,A1
000213ce 70 18                    |p       |		MOVEQ.L	#0x18,D0
000213d0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000213d2 51 c8 ff fc              |Q       |		DBF	D0,0x213d0
000213d6 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000213d8 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000213dc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000213de 3f 03                    |?       |		MOVE.W	D3,-(A7)
000213e0 4e 92                    |N       |		JSR	(A2)
000213e2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000213e4 1e 81                    |        |		MOVE.B	D1,(A7)
000213e6 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
000213ec 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000213ee 10 1f                    |        |		MOVE.B	(A7)+,D0
000213f0 48 80                    |H       |		EXTB.W	D0
000213f2 41 81                    |A       |		CHK.W	D1,D0
000213f4 de c2                    |        |		ADDA.W	D2,A7
000213f6 1e 00                    |        |		MOVE.B	D0,D7
000213f8 66 32                    |f2      |		BNE	0x2142c
000213fa 9e c2                    |        |		SUBA.W	D2,A7
000213fc 20 4f                    | O      |		MOVEA.L	A7,A0
000213fe 43 fa ed a6              |C       |		LEA.L	0x201a6,A1
00021402 70 18                    |p       |		MOVEQ.L	#0x18,D0
00021404 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021406 51 c8 ff fc              |Q       |		DBF	D0,0x21404
0002140a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002140c 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021410 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021412 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021414 4e 92                    |N       |		JSR	(A2)
00021416 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021418 1e 81                    |        |		MOVE.B	D1,(A7)
0002141a 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00021420 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021422 10 1f                    |        |		MOVE.B	(A7)+,D0
00021424 48 80                    |H       |		EXTB.W	D0
00021426 41 81                    |A       |		CHK.W	D1,D0
00021428 de c2                    |        |		ADDA.W	D2,A7
0002142a 1c 00                    |        |		MOVE.B	D0,D6
0002142c 4a 07                    |J       |		TST.B	D7
0002142e 66 04                    |f       |		BNE	0x21434
00021430 4a 06                    |J       |		TST.B	D6
00021432 67 92                    |g       |		BEQ	0x213c6
00021434 4a 06                    |J       |		TST.B	D6
00021436 67 3a                    |g:      |		BEQ	0x21472
00021438 4e b9 00 01 02 16        |N       |		JSR	KC0b
0002143e 48 53                    |HS      |		PEA.L	(A3)
00021440 4e b9 00 01 03 f4        |N       |		JSR	SetConsoleConfig(a : Long)
00021446 9e fc 00 1e              |        |		SUBA.W	#0x1e,A7
0002144a 20 4f                    | O      |		MOVEA.L	A7,A0
0002144c 43 fa ed 1c              |C       |		LEA.L	0x2016a,A1
00021450 70 20                    |p       |		MOVEQ.L	#0x20,D0
00021452 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021454 51 c8 ff fc              |Q       |		DBF	D0,0x21452
00021458 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002145a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002145e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021460 3f 3c 00 21              |?< !    |		MOVE.W	#0x21,-(A7)
00021464 4e 92                    |N       |		JSR	(A2)
00021466 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021468 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002146e de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00021472 4c df 0f cf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2+A3
00021476 4e 5e                    |N^      |		UNLK	A6
00021478 4e 75                    |Nu      |		RTS
0002147a ; --------------------------------------------------------------------------------------
0002147a ; OMSI PASCAL Function
0002147a ;    <LVAR -0x004 @ 1(r)>
0002147a ;    <LVAR -0x00a 2(r)>
0002147a ;    <LVAR -0x00c @ 4(r)>
0002147a ; --------------------------------------------------------------------------------------
0002147a 4e 56 ff 88              |NV      |		LINK.W	A6,#0xff88
0002147e bf d5                    |        |		CMPA.L	(A5),A7
00021480 62 06                    |b       |		BHI	0x21488
00021482 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021486 4e 76                    |Nv      |		TRAPV
00021488 de fc 00 6c              |   l    |		ADDA.W	#0x6c,A7
0002148c 48 e7 c1 e8              |H       |		MOVEM.L	A4+A2+A1+A0+D7+D1+D0,-(A7)
00021490 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
00021494 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021496 48 52                    |HR      |		PEA.L	(A2)
00021498 4e b9 00 01 03 04        |N       |		JSR	GetRtc() : TimeStamp
0002149e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000214a0 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000214a2 30 2e ff f6              |0.      |		MOVE.W	(A6-0xa),D0
000214a6 ef 48                    | H      |		LSL.W	#0x7,D0
000214a8 e0 48                    | H      |		LSR.W	#0x8,D0
000214aa e8 48                    | H      |		LSR.W	#0x4,D0
000214ac 67 02                    |g       |		BEQ	0x214b0
000214ae 52 07                    |R       |		ADDQ.B	#0x1,D7
000214b0 4a 07                    |J       |		TST.B	D7
000214b2 66 00 00 84              |f       |		BNE	0x21538
000214b6 9e fc 00 3c              |   <    |		SUBA.W	#0x3c,A7
000214ba 20 4f                    | O      |		MOVEA.L	A7,A0
000214bc 43 fa ed 10              |C       |		LEA.L	0x201ce,A1
000214c0 70 3a                    |p:      |		MOVEQ.L	#0x3a,D0
000214c2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000214c4 51 c8 ff fc              |Q       |		DBF	D0,0x214c2
000214c8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000214ca 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000214ce 3f 01                    |?       |		MOVE.W	D1,-(A7)
000214d0 3f 3c 00 3b              |?< ;    |		MOVE.W	#0x3b,-(A7)
000214d4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000214da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000214dc 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
000214e2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000214e4 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000214e6 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
000214ea 2e 8c                    |.       |		MOVE.L	A4,(A7)
000214ec 48 52                    |HR      |		PEA.L	(A2)
000214ee 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000214f2 4e b9 00 01 03 10        |N       |		JSR	ConvertTimestamp(MOD input : String; b : L; VAR status : Bool)
000214f8 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000214fc 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00021500 67 0c                    |g       |		BEQ	0x2150e
00021502 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021504 4e b9 00 01 03 0c        |N       |		JSR	SetRtc(a: TimeStamp)
0002150a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002150c 60 2a                    |`*      |		BRA	0x21538
0002150e 41 fa ed 26              |A  &    |		LEA.L	0x20236,A0
00021512 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021514 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021516 51 c8 ff fc              |Q       |		DBF	D0,0x21514
0002151a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002151c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021520 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021522 3f 3c 00 2c              |?< ,    |		MOVE.W	#0x2c,-(A7)
00021526 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002152c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002152e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021534 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021538 4a 07                    |J       |		TST.B	D7
0002153a 67 00 ff 5a              |g  Z    |		BEQ	0x21496
0002153e 4c df 17 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2+A4
00021542 4e 5e                    |N^      |		UNLK	A6
00021544 4e 75                    |Nu      |		RTS
00021546 ; --------------------------------------------------------------------------------------
00021546 ; OMSI PASCAL Function
00021546 ;    <LVAR -0x004 @ 1(r)>
00021546 ;    <LVAR -0x006 @ 2(r)>
00021546 ;    <LVAR -0x008 @ 1(r)>
00021546 ; --------------------------------------------------------------------------------------
00021546 4e 56 ff 80              |NV      |		LINK.W	A6,#0xff80
0002154a bf d5                    |        |		CMPA.L	(A5),A7
0002154c 62 06                    |b       |		BHI	0x21554
0002154e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021552 4e 76                    |Nv      |		TRAPV
00021554 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00021558 48 e7 f0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
0002155c 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021562 47 f9 00 01 03 e0        |G       |		LEA.L	WriteConsoleStringCrLf(str : String),A3
00021568 49 ee ff fc              |I       |		LEA.L	(A6-0x4),A4
0002156c 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002156e 74 2a                    |t*      |		MOVEQ.L	#0x2a,D2
00021570 76 02                    |v       |		MOVEQ.L	#0x02,D3
00021572 9e fc 00 28              |   (    |		SUBA.W	#0x28,A7
00021576 20 4f                    | O      |		MOVEA.L	A7,A0
00021578 43 fa ee 80              |C       |		LEA.L	0x203fa,A1
0002157c 70 26                    |p&      |		MOVEQ.L	#0x26,D0
0002157e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021580 51 c8 ff fc              |Q       |		DBF	D0,0x2157e
00021584 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021586 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002158a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002158c 3f 3c 00 27              |?< '    |		MOVE.W	#0x27,-(A7)
00021590 4e 92                    |N       |		JSR	(A2)
00021592 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021594 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
0002159a de c2                    |        |		ADDA.W	D2,A7
0002159c 1e bc 00 20              |        |		MOVE.B	#0x20,(A7)
000215a0 4e b9 00 01 03 d0        |N       |		JSR	WriteConsoleChar(chr : char)
000215a6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000215a8 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000215ac 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000215b0 4e b9 00 01 02 00        |N       |		JSR	KC00_GetBootDev(VAR a : Byte; VAR b : Word)
000215b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215b8 10 2e ff f8              | .      |		MOVE.B	(A6-0x8),D0
000215bc b0 03                    |        |		CMP.B	D3,D0
000215be 67 38                    |g8      |		BEQ	0x215f8
000215c0 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000215c6 9e c2                    |        |		SUBA.W	D2,A7
000215c8 20 4f                    | O      |		MOVEA.L	A7,A0
000215ca 43 fa ee 56              |C  V    |		LEA.L	0x20422,A1
000215ce 70 28                    |p(      |		MOVEQ.L	#0x28,D0
000215d0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000215d2 51 c8 ff fc              |Q       |		DBF	D0,0x215d0
000215d6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000215d8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000215dc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000215de 3f 3c 00 29              |?< )    |		MOVE.W	#0x29,-(A7)
000215e2 4e 92                    |N       |		JSR	(A2)
000215e4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215e6 4e 93                    |N       |		JSR	(A3)
000215e8 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
000215ec 48 78 00 10              |Hx      |		PEA.L	0x10
000215f0 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
000215f6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000215f8 30 2e ff fa              |0.      |		MOVE.W	(A6-0x6),D0
000215fc 41 bc 00 0f              |A       |		CHK.W	#0xf,D0
00021600 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021602 48 54                    |HT      |		PEA.L	(A4)
00021604 4e b9 00 01 03 94        |N       |		JSR	MountDisk(drive : Word ; VAR status : Byte)
0002160a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002160c 4a 14                    |J       |		TST.B	(A4)
0002160e 67 00 01 3c              |g  <    |		BEQ	0x2174c
00021612 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00021618 10 14                    |        |		MOVE.B	(A4),D0
0002161a 48 80                    |H       |		EXTB.W	D0
0002161c 04 40 00 0c              | @      |		SUBI.W	#0x000c,D0
00021620 b0 43                    | C      |		CMP.W	D3,D0
00021622 62 00 00 d6              |b       |		BHI	0x216fa
00021626 d0 40                    | @      |		ADD.W	D0,D0
00021628 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00021630 00 06                    |        |		.CONST	0x6			; [0x0] -> 0x21636
00021632 00 4e                    | N      |		.CONST	0x4e			; [0x1] -> 0x2167e
00021634 00 84                    |        |		.CONST	0x84			; [0x2] -> 0x216b4
00021636					switch@0x21628[0x0]:
00021636 41 fa ec 3e              |A  >    |		LEA.L	0x20276,A0
0002163a 70 0f                    |p       |		MOVEQ.L	#0x0f,D0
0002163c 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002163e 51 c8 ff fc              |Q       |		DBF	D0,0x2163c
00021642 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021644 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021648 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002164a 3f 3c 00 40              |?< @    |		MOVE.W	#0x40,-(A7)
0002164e 4e 92                    |N       |		JSR	(A2)
00021650 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021652 4e 93                    |N       |		JSR	(A3)
00021654 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021656 20 4f                    | O      |		MOVEA.L	A7,A0
00021658 43 fa ec c0              |C       |		LEA.L	0x2031a,A1
0002165c 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
0002165e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021660 51 c8 ff fc              |Q       |		DBF	D0,0x2165e
00021664 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021666 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002166a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002166c 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
00021670 4e 92                    |N       |		JSR	(A2)
00021672 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021674 4e 93                    |N       |		JSR	(A3)
00021676 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
0002167a 60 00 00 c4              |`       |		BRA	0x21740
0002167e					switch@0x21628[0x1]:
0002167e 9e fc 00 36              |   6    |		SUBA.W	#0x36,A7
00021682 20 4f                    | O      |		MOVEA.L	A7,A0
00021684 43 fa eb f0              |C       |		LEA.L	0x20276,A1
00021688 70 34                    |p4      |		MOVEQ.L	#0x34,D0
0002168a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002168c 51 c8 ff fc              |Q       |		DBF	D0,0x2168a
00021690 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021692 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021696 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021698 3f 3c 00 35              |?< 5    |		MOVE.W	#0x35,-(A7)
0002169c 4e 92                    |N       |		JSR	(A2)
0002169e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216a0 4e 93                    |N       |		JSR	(A3)
000216a2 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000216a4 20 4f                    | O      |		MOVEA.L	A7,A0
000216a6 43 fa ec b2              |C       |		LEA.L	0x2035a,A1
000216aa 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
000216ac 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000216ae 51 c8 ff fc              |Q       |		DBF	D0,0x216ac
000216b2 60 b0                    |`       |		BRA	0x21664
000216b4					switch@0x21628[0x2]:
000216b4 41 fa ec 2a              |A  *    |		LEA.L	0x202e0,A0
000216b8 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000216ba 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000216bc 51 c8 ff fc              |Q       |		DBF	D0,0x216ba
000216c0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000216c2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000216c6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000216c8 3f 3c 00 34              |?< 4    |		MOVE.W	#0x34,-(A7)
000216cc 4e 92                    |N       |		JSR	(A2)
000216ce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216d0 4e 93                    |N       |		JSR	(A3)
000216d2 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000216d4 20 4f                    | O      |		MOVEA.L	A7,A0
000216d6 43 fa ec c2              |C       |		LEA.L	0x2039a,A1
000216da 70 3c                    |p<      |		MOVEQ.L	#0x3c,D0
000216dc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000216de 51 c8 ff fc              |Q       |		DBF	D0,0x216dc
000216e2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000216e4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000216e8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000216ea 3f 3c 00 3d              |?< =    |		MOVE.W	#0x3d,-(A7)
000216ee 4e 92                    |N       |		JSR	(A2)
000216f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216f2 4e 93                    |N       |		JSR	(A3)
000216f4 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
000216f8 60 46                    |`F      |		BRA	0x21740
000216fa 41 fa ec 1e              |A       |		LEA.L	0x2031a,A0
000216fe 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00021700 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021702 51 c8 ff fc              |Q       |		DBF	D0,0x21700
00021706 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021708 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002170c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002170e 3f 3c 00 3a              |?< :    |		MOVE.W	#0x3a,-(A7)
00021712 4e 92                    |N       |		JSR	(A2)
00021714 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021716 4e 93                    |N       |		JSR	(A3)
00021718 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
0002171c 20 4f                    | O      |		MOVEA.L	A7,A0
0002171e 43 fa ec b8              |C       |		LEA.L	0x203d8,A1
00021722 70 20                    |p       |		MOVEQ.L	#0x20,D0
00021724 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021726 51 c8 ff fc              |Q       |		DBF	D0,0x21724
0002172a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002172c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021730 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021732 3f 3c 00 21              |?< !    |		MOVE.W	#0x21,-(A7)
00021736 4e 92                    |N       |		JSR	(A2)
00021738 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002173a 4e 93                    |N       |		JSR	(A3)
0002173c de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00021740 48 78 00 11              |Hx      |		PEA.L	0x11
00021744 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
0002174a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002174c 4e b9 00 01 03 a4        |N       |		JSR	Open_ERROR_LOG(void)
00021752 4e b9 00 01 05 e6        |N       |		JSR	Set_fc04_to_01(void)
00021758 2f 3a ec f2              |/:      |		MOVE.L	0x2044c,-(A7)
0002175c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002175e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021762 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021764 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00021768 4e 92                    |N       |		JSR	(A2)
0002176a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002176c 4e 93                    |N       |		JSR	(A3)
0002176e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021770 4c df 1f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
00021774 4e 5e                    |N^      |		UNLK	A6
00021776 4e 75                    |Nu      |		RTS
00021778 ; --------------------------------------------------------------------------------------
00021778 ; OMSI PASCAL Function
00021778 ;    <LVAR -0x001 1(r)>
00021778 ;    <LVAR -0x002 1(r)>
00021778 ;    <LVAR -0x003 1(r)>
00021778 ;    <LVAR -0x004 @ 1(r)>
00021778 ;    <LVAR -0x006 @ 2(r)>
00021778 ;    <LVAR -0x008 @ 2(r)>
00021778 ;    <LVAR -0x40c 2(w)>
00021778 ;    <LVAR -0x40e @>
00021778 ;    <LVAR -0x412 @ 4(r)>
00021778 ;    <LVAR -0x414 @ 1(r)>
00021778 ;    <LVAR -0x41c @ 4(rw)>
00021778 ;    <LVAR -0x420 @ 4(rw)>
00021778 ; --------------------------------------------------------------------------------------
00021778 4e 56 fb 66              |NV f    |		LINK.W	A6,#0xfb66
0002177c bf d5                    |        |		CMPA.L	(A5),A7
0002177e 62 06                    |b       |		BHI	0x21786
00021780 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021784 4e 76                    |Nv      |		TRAPV
00021786 de fc 00 7a              |   z    |		ADDA.W	#0x7a,A7
0002178a 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002178e 45 ee fb ec              |E       |		LEA.L	(A6-0x414),A2
00021792 47 ee fb ee              |G       |		LEA.L	(A6-0x412),A3
00021796 49 ee fb e0              |I       |		LEA.L	(A6-0x420),A4
0002179a 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002179c 74 14                    |t       |		MOVEQ.L	#0x14,D2
0002179e 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
000217a0 78 10                    |x       |		MOVEQ.L	#0x10,D4
000217a2 9e c3                    |        |		SUBA.W	D3,A7
000217a4 20 4f                    | O      |		MOVEA.L	A7,A0
000217a6 43 fa ec a8              |C       |		LEA.L	0x20450,A1
000217aa 70 08                    |p       |		MOVEQ.L	#0x08,D0
000217ac 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000217ae 51 c8 ff fc              |Q       |		DBF	D0,0x217ac
000217b2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000217b4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000217b8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000217ba 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
000217be 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000217c4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217c6 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
000217c8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000217ca 2e 94                    |.       |		MOVE.L	(A4),(A7)
000217cc 42 27                    |B'      |		CLR.B	-(A7)
000217ce 42 27                    |B'      |		CLR.B	-(A7)
000217d0 48 78 00 00              |Hx      |		PEA.L	0x0
000217d4 48 52                    |HR      |		PEA.L	(A2)
000217d6 48 53                    |HS      |		PEA.L	(A3)
000217d8 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000217de de c2                    |        |		ADDA.W	D2,A7
000217e0 4a 12                    |J       |		TST.B	(A2)
000217e2 66 16                    |f       |		BNE	0x217fa
000217e4 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000217e8 1f 01                    |        |		MOVE.B	D1,-(A7)
000217ea 48 78 00 01              |Hx      |		PEA.L	0x1
000217ee 48 52                    |HR      |		PEA.L	(A2)
000217f0 48 53                    |HS      |		PEA.L	(A3)
000217f2 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000217f8 de c4                    |        |		ADDA.W	D4,A7
000217fa 48 54                    |HT      |		PEA.L	(A4)
000217fc 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021802 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021804 7e 03                    |~       |		MOVEQ.L	#0x03,D7
00021806 2f 3a ec 56              |/: V    |		MOVE.L	0x2045e,-(A7)
0002180a 2f 3a ec 4e              |/: N    |		MOVE.L	0x2045a,-(A7)
0002180e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021810 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021814 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021816 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
0002181a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021820 2e 87                    |.       |		MOVE.L	D7,(A7)
00021822 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021828 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002182a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021830 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021832 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00021834 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021836 2e ba ec 2e              |.  .    |		MOVE.L	0x20466,(A7)
0002183a 2f 3a ec 26              |/: &    |		MOVE.L	0x20462,-(A7)
0002183e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021840 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021844 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021846 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
0002184a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021850 2e 87                    |.       |		MOVE.L	D7,(A7)
00021852 52 97                    |R       |		ADDQ.L	#0x1,(A7)
00021854 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
0002185a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002185c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021862 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021864 2d 5f fb e4              |-_      |		MOVE.L	(A7)+,(A6-0x41c)
00021868 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002186a 2e 94                    |.       |		MOVE.L	(A4),(A7)
0002186c 42 27                    |B'      |		CLR.B	-(A7)
0002186e 42 27                    |B'      |		CLR.B	-(A7)
00021870 48 78 00 00              |Hx      |		PEA.L	0x0
00021874 48 52                    |HR      |		PEA.L	(A2)
00021876 48 53                    |HS      |		PEA.L	(A3)
00021878 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0002187e de c2                    |        |		ADDA.W	D2,A7
00021880 4a 12                    |J       |		TST.B	(A2)
00021882 66 00 00 9e              |f       |		BNE	0x21922
00021886 4a 87                    |J       |		TST.L	D7
00021888 66 00 00 84              |f       |		BNE	0x2190e
0002188c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002188e 4e b9 00 01 05 ec        |N       |		JSR	Get_fc05() : Byte
00021894 10 1f                    |        |		MOVE.B	(A7)+,D0
00021896 48 80                    |H       |		EXTB.W	D0
00021898 48 c0                    |H       |		EXTW.L	D0
0002189a 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000218a0 63 02                    |c       |		BLS	0x218a4
000218a2 4e 4f                    |NO      |		TRAP	#15
000218a4 3c 00                    |<       |		MOVE.W	D0,D6
000218a6 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000218a8 42 67                    |Bg      |		CLR.W	-(A7)
000218aa 42 67                    |Bg      |		CLR.W	-(A7)
000218ac 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
000218b0 1f 01                    |        |		MOVE.B	D1,-(A7)
000218b2 41 ee fb f2              |A       |		LEA.L	(A6-0x40e),A0
000218b6 2f 08                    |/       |		MOVE.L	A0,-(A7)
000218b8 48 52                    |HR      |		PEA.L	(A2)
000218ba 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
000218c0 de c2                    |        |		ADDA.W	D2,A7
000218c2 3d 46 fb f4              |=F      |		MOVE.W	D6,(A6-0x40c)
000218c6 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000218c8 42 67                    |Bg      |		CLR.W	-(A7)
000218ca 42 67                    |Bg      |		CLR.W	-(A7)
000218cc 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
000218d0 1f 01                    |        |		MOVE.B	D1,-(A7)
000218d2 41 ee fb f2              |A       |		LEA.L	(A6-0x40e),A0
000218d6 2f 08                    |/       |		MOVE.L	A0,-(A7)
000218d8 48 52                    |HR      |		PEA.L	(A2)
000218da 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
000218e0 de c2                    |        |		ADDA.W	D2,A7
000218e2 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000218e6 4e b9 00 01 03 04        |N       |		JSR	GetRtc() : TimeStamp
000218ec 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000218ee 20 53                    | S      |		MOVEA.L	(A3),A0
000218f0 11 6e ff fc 00 3a        | n   :  |		MOVE.B	(A6-0x4),(A0+0x3a)
000218f6 11 6e ff fd 00 3b        | n   ;  |		MOVE.B	(A6-0x3),(A0+0x3b)
000218fc 11 6e ff fe 00 3c        | n   <  |		MOVE.B	(A6-0x2),(A0+0x3c)
00021902 11 6e ff ff 00 3d        | n   =  |		MOVE.B	(A6-0x1),(A0+0x3d)
00021908 02 28 00 fe 00 3f        | (   ?  |		ANDI.B	#0xfe,(A0+0x3f)
0002190e 1f 01                    |        |		MOVE.B	D1,-(A7)
00021910 1f 01                    |        |		MOVE.B	D1,-(A7)
00021912 2f 2e fb e4              |/.      |		MOVE.L	(A6-0x41c),-(A7)
00021916 48 52                    |HR      |		PEA.L	(A2)
00021918 48 53                    |HS      |		PEA.L	(A3)
0002191a 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00021920 de c4                    |        |		ADDA.W	D4,A7
00021922 48 54                    |HT      |		PEA.L	(A4)
00021924 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002192a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002192c 48 6e fb e4              |Hn      |		PEA.L	(A6-0x41c)
00021930 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021936 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021938 53 87                    |S       |		SUBQ.L	#0x1,D7
0002193a 6c 00 fe ca              |l       |		BGE	0x21806
0002193e 9e c3                    |        |		SUBA.W	D3,A7
00021940 20 4f                    | O      |		MOVEA.L	A7,A0
00021942 43 fa eb 26              |C  &    |		LEA.L	0x2046a,A1
00021946 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021948 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002194a 51 c8 ff fc              |Q       |		DBF	D0,0x21948
0002194e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021950 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021954 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021956 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
0002195a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021960 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021962 2d 5f fb e4              |-_      |		MOVE.L	(A7)+,(A6-0x41c)
00021966 de c3                    |        |		ADDA.W	D3,A7
00021968 2a 3c ff ff fc 00        |*<      |		MOVE.L	#0xfffffc00,D5
0002196e 2f 2e fb e4              |/.      |		MOVE.L	(A6-0x41c),-(A7)
00021972 1f 01                    |        |		MOVE.B	D1,-(A7)
00021974 1f 01                    |        |		MOVE.B	D1,-(A7)
00021976 2f 05                    |/       |		MOVE.L	D5,-(A7)
00021978 48 52                    |HR      |		PEA.L	(A2)
0002197a 48 53                    |HS      |		PEA.L	(A3)
0002197c 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00021982 de c2                    |        |		ADDA.W	D2,A7
00021984 4a 12                    |J       |		TST.B	(A2)
00021986 66 44                    |fD      |		BNE	0x219cc
00021988 20 53                    | S      |		MOVEA.L	(A3),A0
0002198a 3f 28 00 24              |?( $    |		MOVE.W	(A0+0x24),-(A7)
0002198e 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00021992 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00021996 4e b9 00 01 03 68        |N    h  |		JSR	Lba2Chs(lba : W; VAR cyl : W ; VAR hd_sec : W)
0002199c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002199e 3e ae ff f8              |>       |		MOVE.W	(A6-0x8),(A7)
000219a2 3f 2e ff fa              |?.      |		MOVE.W	(A6-0x6),-(A7)
000219a6 4e b9 00 01 02 02        |N       |		JSR	KC01_DumpOn
000219ac 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219ae 83 28 00 3f              | ( ?    |		OR.B	D1,(A0+0x3f)
000219b2 11 41 00 4c              | A L    |		MOVE.B	D1,(A0+0x4c)
000219b6 42 27                    |B'      |		CLR.B	-(A7)
000219b8 42 27                    |B'      |		CLR.B	-(A7)
000219ba 48 78 00 01              |Hx      |		PEA.L	0x1
000219be 48 52                    |HR      |		PEA.L	(A2)
000219c0 48 53                    |HS      |		PEA.L	(A3)
000219c2 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000219c8 de c4                    |        |		ADDA.W	D4,A7
000219ca 60 2a                    |`*      |		BRA	0x219f6
000219cc 41 fa ea dc              |A       |		LEA.L	0x204aa,A0
000219d0 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
000219d2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000219d4 51 c8 ff fc              |Q       |		DBF	D0,0x219d2
000219d8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000219da 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000219de 3f 01                    |?       |		MOVE.W	D1,-(A7)
000219e0 3f 3c 00 36              |?< 6    |		MOVE.W	#0x36,-(A7)
000219e4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000219ea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000219ec 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000219f2 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
000219f6 48 6e fb e4              |Hn      |		PEA.L	(A6-0x41c)
000219fa 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021a00 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a02 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021a06 4e 5e                    |N^      |		UNLK	A6
00021a08 4e 75                    |Nu      |		RTS
00021a0a ; --------------------------------------------------------------------------------------
00021a0a ; OMSI PASCAL Function
00021a0a ;    <LVAR  0x00a 1(w)>
00021a0a ;    <LVAR  0x008 1(r)>
00021a0a ; --------------------------------------------------------------------------------------
00021a0a 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2
00021a0e bf d5                    |        |		CMPA.L	(A5),A7
00021a10 62 06                    |b       |		BHI	0x21a18
00021a12 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021a16 4e 76                    |Nv      |		TRAPV
00021a18 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021a1c 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00021a20 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00021a24 48 80                    |H       |		EXTB.W	D0
00021a26 41 fa f5 34              |A  4    |		LEA.L	0x20f5c,A0
00021a2a 1d 70 00 00 00 0a        | p      |		MOVE.B	(A0+D0.W),(A6+0xa)
00021a30 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00021a34 4e 5e                    |N^      |		UNLK	A6
00021a36 4e 75                    |Nu      |		RTS
00021a38 ; --------------------------------------------------------------------------------------
00021a38 ; OMSI PASCAL Function
00021a38 ;    <LVAR  0x008 1(r)>
00021a38 ;    <LVAR -0x002 @ 1(r)>
00021a38 ; --------------------------------------------------------------------------------------
00021a38 4e 56 ff b0              |NV      |		LINK.W	A6,#0xffb0
00021a3c bf d5                    |        |		CMPA.L	(A5),A7
00021a3e 62 06                    |b       |		BHI	0x21a46
00021a40 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021a44 4e 76                    |Nv      |		TRAPV
00021a46 de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
00021a4a 48 e7 f0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
00021a4e 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021a54 47 ee ff fe              |G       |		LEA.L	(A6-0x2),A3
00021a58 49 f9 00 02 39 48        |I   9H  |		LEA.L	0x23948,A4
00021a5e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021a60 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
00021a62 76 09                    |v       |		MOVEQ.L	#0x09,D3
00021a64 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00021a6a 10 39 00 02 39 3f        | 9  9?  |		MOVE.B	0x2393f,D0
00021a70 e7 08                    |        |		LSL.B	#0x3,D0
00021a72 ee 08                    |        |		LSR.B	#0x7,D0
00021a74 67 0e                    |g       |		BEQ	0x21a84
00021a76 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00021a7a 67 08                    |g       |		BEQ	0x21a84
00021a7c 4a 39 00 02 39 41        |J9  9A  |		TST.B	0x23941
00021a82 67 4e                    |gN      |		BEQ	0x21ad2
00021a84 9e c2                    |        |		SUBA.W	D2,A7
00021a86 20 4f                    | O      |		MOVEA.L	A7,A0
00021a88 43 fa ea 20              |C       |		LEA.L	0x204aa,A1
00021a8c 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021a8e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021a90 51 c8 ff fc              |Q       |		DBF	D0,0x21a8e
00021a94 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00021a98 20 4f                    | O      |		MOVEA.L	A7,A0
00021a9a 43 fa ea 18              |C       |		LEA.L	0x204b4,A1
00021a9e 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021aa0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021aa2 51 c8 ff fc              |Q       |		DBF	D0,0x21aa0
00021aa6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021aa8 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00021aac 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021aae 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021ab0 4e 92                    |N       |		JSR	(A2)
00021ab2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ab4 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021ab8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021aba 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00021abe 4e 92                    |N       |		JSR	(A2)
00021ac0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021ac2 1e 81                    |        |		MOVE.B	D1,(A7)
00021ac4 48 53                    |HS      |		PEA.L	(A3)
00021ac6 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00021acc de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00021ad0 60 4c                    |`L      |		BRA	0x21b1e
00021ad2 9e c2                    |        |		SUBA.W	D2,A7
00021ad4 20 4f                    | O      |		MOVEA.L	A7,A0
00021ad6 43 fa e9 e8              |C       |		LEA.L	0x204c0,A1
00021ada 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021adc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021ade 51 c8 ff fc              |Q       |		DBF	D0,0x21adc
00021ae2 41 fa e9 f0              |A       |		LEA.L	0x204d4,A0
00021ae6 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021ae8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021aea 51 c8 ff fc              |Q       |		DBF	D0,0x21ae8
00021aee 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021af0 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00021af4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021af6 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021af8 4e 92                    |N       |		JSR	(A2)
00021afa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021afc 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021b00 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b02 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021b04 4e 92                    |N       |		JSR	(A2)
00021b06 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021b08 1e 81                    |        |		MOVE.B	D1,(A7)
00021b0a 48 53                    |HS      |		PEA.L	(A3)
00021b0c 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00021b12 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00021b16 42 14                    |B       |		CLR.B	(A4)
00021b18 4a 13                    |J       |		TST.B	(A3)
00021b1a 66 02                    |f       |		BNE	0x21b1e
00021b1c 52 14                    |R       |		ADDQ.B	#0x1,(A4)
00021b1e 4c df 1f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
00021b22 4e 5e                    |N^      |		UNLK	A6
00021b24 4e 75                    |Nu      |		RTS
00021b26 ; --------------------------------------------------------------------------------------
00021b26 ; OMSI PASCAL Function
00021b26 ;    <LVAR -0x004 @ 1(r)>
00021b26 ; --------------------------------------------------------------------------------------
00021b26 4e 56 ff 8e              |NV      |		LINK.W	A6,#0xff8e
00021b2a bf d5                    |        |		CMPA.L	(A5),A7
00021b2c 62 06                    |b       |		BHI	0x21b34
00021b2e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021b32 4e 76                    |Nv      |		TRAPV
00021b34 de fc 00 6e              |   n    |		ADDA.W	#0x6e,A7
00021b38 48 e7 e0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D2+D1+D0,-(A7)
00021b3c 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021b42 47 f9 00 02 39 42        |G   9B  |		LEA.L	0x23942,A3
00021b48 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021b4a 74 40                    |t@      |		MOVEQ.L	#0x40,D2
00021b4c 4a 39 00 02 39 48        |J9  9H  |		TST.B	0x23948
00021b52 66 2e                    |f.      |		BNE	0x21b82
00021b54 9e c2                    |        |		SUBA.W	D2,A7
00021b56 20 4f                    | O      |		MOVEA.L	A7,A0
00021b58 43 fa e9 ba              |C       |		LEA.L	0x20514,A1
00021b5c 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
00021b5e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021b60 51 c8 ff fc              |Q       |		DBF	D0,0x21b5e
00021b64 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b66 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021b6a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b6c 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
00021b70 4e 92                    |N       |		JSR	(A2)
00021b72 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b74 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021b7a de fc 00 44              |   D    |		ADDA.W	#0x44,A7
00021b7e 60 00 00 9e              |`       |		BRA	0x21c1e
00021b82 4a 39 00 02 39 49        |J9  9I  |		TST.B	0x23949
00021b88 67 28                    |g(      |		BEQ	0x21bb2
00021b8a 41 fa ea 0a              |A       |		LEA.L	0x20596,A0
00021b8e 70 20                    |p       |		MOVEQ.L	#0x20,D0
00021b90 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021b92 51 c8 ff fc              |Q       |		DBF	D0,0x21b90
00021b96 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b98 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021b9c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b9e 3f 3c 00 42              |?< B    |		MOVE.W	#0x42,-(A7)
00021ba2 4e 92                    |N       |		JSR	(A2)
00021ba4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ba6 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021bac de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00021bb0 60 6c                    |`l      |		BRA	0x21c1e
00021bb2 41 fa e9 60              |A  `    |		LEA.L	0x20514,A0
00021bb6 70 0f                    |p       |		MOVEQ.L	#0x0f,D0
00021bb8 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021bba 51 c8 ff fc              |Q       |		DBF	D0,0x21bb8
00021bbe 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021bc0 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021bc4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021bc6 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021bc8 4e 92                    |N       |		JSR	(A2)
00021bca 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021bcc 42 17                    |B       |		CLR.B	(A7)
00021bce 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00021bd4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021bd6 10 1f                    |        |		MOVE.B	(A7)+,D0
00021bd8 48 80                    |H       |		EXTB.W	D0
00021bda 41 81                    |A       |		CHK.W	D1,D0
00021bdc de c2                    |        |		ADDA.W	D2,A7
00021bde 16 80                    |        |		MOVE.B	D0,(A3)
00021be0 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00021be4 20 4f                    | O      |		MOVEA.L	A7,A0
00021be6 43 fa e9 ae              |C       |		LEA.L	0x20596,A1
00021bea 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021bec 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021bee 51 c8 ff fc              |Q       |		DBF	D0,0x21bec
00021bf2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021bf4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021bf8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021bfa 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00021bfe 4e 92                    |N       |		JSR	(A2)
00021c00 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c02 48 78 00 01              |Hx      |		PEA.L	0x1
00021c06 1f 01                    |        |		MOVE.B	D1,-(A7)
00021c08 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021c0c 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00021c12 de fc 00 18              |        |		ADDA.W	#0x18,A7
00021c16 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00021c1a 67 02                    |g       |		BEQ	0x21c1e
00021c1c 42 13                    |B       |		CLR.B	(A3)
00021c1e 23 fc 00 00 00 06 00 02  |#       |		MOVE.L	#0x6,0x23944
00021c26 39 44                    |9D      |
00021c28 4c df 0f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3
00021c2c 4e 5e                    |N^      |		UNLK	A6
00021c2e 4e 75                    |Nu      |		RTS
00021c30 ; --------------------------------------------------------------------------------------
00021c30 ; OMSI PASCAL Function
00021c30 ;    <LVAR  0x008 4(r)>
00021c30 ;    <LVAR -0x004 @ 1(r)>
00021c30 ; --------------------------------------------------------------------------------------
00021c30 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00021c34 bf d5                    |        |		CMPA.L	(A5),A7
00021c36 62 06                    |b       |		BHI	0x21c3e
00021c38 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021c3c 4e 76                    |Nv      |		TRAPV
00021c3e de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021c42 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00021c46 45 f9 00 01 05 02        |E       |		LEA.L	IPC_PutBool(a : Bool),A2
00021c4c 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021c4e 13 c1 00 02 39 49        |    9I  |		MOVE.B	D1,0x23949
00021c54 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00021c5a 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00021c60 1f 01                    |        |		MOVE.B	D1,-(A7)
00021c62 4e 92                    |N       |		JSR	(A2)
00021c64 1e 81                    |        |		MOVE.B	D1,(A7)
00021c66 4e 92                    |N       |		JSR	(A2)
00021c68 1e 81                    |        |		MOVE.B	D1,(A7)
00021c6a 4e 92                    |N       |		JSR	(A2)
00021c6c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021c6e 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00021c74 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00021c78 20 4f                    | O      |		MOVEA.L	A7,A0
00021c7a 43 fa e9 24              |C  $    |		LEA.L	0x205a0,A1
00021c7e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021c80 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021c82 51 c8 ff fc              |Q       |		DBF	D0,0x21c80
00021c86 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c88 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021c8c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c8e 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00021c92 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021c98 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c9a 48 78 00 01              |Hx      |		PEA.L	0x1
00021c9e 1f 01                    |        |		MOVE.B	D1,-(A7)
00021ca0 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021ca4 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00021caa de fc 00 18              |        |		ADDA.W	#0x18,A7
00021cae 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00021cb2 66 16                    |f       |		BNE	0x21cca
00021cb4 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00021cba 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021cbe 48 50                    |HP      |		PEA.L	(A0)
00021cc0 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00021cc6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021cc8 60 06                    |`       |		BRA	0x21cd0
00021cca 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021cce 42 10                    |B       |		CLR.B	(A0)
00021cd0 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00021cd4 4e 5e                    |N^      |		UNLK	A6
00021cd6 4e 75                    |Nu      |		RTS
00021cd8 ; --------------------------------------------------------------------------------------
00021cd8 ; OMSI PASCAL Function
00021cd8 ;    <LVAR  0x00c 1(r)>
00021cd8 ;    <LVAR  0x008 4(r)>
00021cd8 ;    <LVAR -0x080 @>
00021cd8 ;    <LVAR -0x081 1(w)>
00021cd8 ;    <LVAR -0x082 1(r)>
00021cd8 ;    <LVAR -0x084 2(w)>
00021cd8 ;    <LVAR -0x086 @ 2(w)>
00021cd8 ;    <LVAR -0x08f @>
00021cd8 ;    <LVAR -0x090 @ 1(r)>
00021cd8 ;    <LVAR -0x094 @ 4(r)>
00021cd8 ;    <LVAR -0x098 @ 4(rw)>
00021cd8 ;    <LVAR -0x099 @ 1(r)>
00021cd8 ;    <LVAR -0x09a @ 1(r)>
00021cd8 ; --------------------------------------------------------------------------------------
00021cd8 4e 56 ff 02              |NV      |		LINK.W	A6,#0xff02
00021cdc bf d5                    |        |		CMPA.L	(A5),A7
00021cde 62 06                    |b       |		BHI	0x21ce6
00021ce0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021ce4 4e 76                    |Nv      |		TRAPV
00021ce6 de fc 00 64              |   d    |		ADDA.W	#0x64,A7
00021cea 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021cee 45 ee ff 66              |E  f    |		LEA.L	(A6-0x9a),A2
00021cf2 47 ee ff 68              |G  h    |		LEA.L	(A6-0x98),A3
00021cf6 49 ee ff 6c              |I  l    |		LEA.L	(A6-0x94),A4
00021cfa 74 01                    |t       |		MOVEQ.L	#0x01,D2
00021cfc 76 6b                    |vk      |		MOVEQ.L	#0x6b,D3
00021cfe 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
00021d00 41 fa e8 c8              |A       |		LEA.L	0x205ca,A0
00021d04 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021d06 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021d08 51 c8 ff fc              |Q       |		DBF	D0,0x21d06
00021d0c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d0e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021d12 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021d14 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00021d18 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021d1e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d20 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021d26 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00021d2a 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00021d30 1f 02                    |        |		MOVE.B	D2,-(A7)
00021d32 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00021d38 42 17                    |B       |		CLR.B	(A7)
00021d3a 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00021d40 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021d42 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00021d48 3f 3a e8 84              |?:      |		MOVE.W	0x205ce,-(A7)
00021d4c 3f 3a e8 7e              |?: ~    |		MOVE.W	0x205cc,-(A7)
00021d50 3f 3a e8 78              |?: x    |		MOVE.W	0x205ca,-(A7)
00021d54 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d56 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021d5a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021d5c 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00021d60 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021d66 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d68 48 78 00 01              |Hx      |		PEA.L	0x1
00021d6c 1f 02                    |        |		MOVE.B	D2,-(A7)
00021d6e 48 52                    |HR      |		PEA.L	(A2)
00021d70 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00021d76 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021d7a 10 2e 00 0c              | .      |		MOVE.B	(A6+0xc),D0
00021d7e 48 80                    |H       |		EXTB.W	D0
00021d80 3d 40 ff 7c              |=@ |    |		MOVE.W	D0,(A6-0x84)
00021d84 42 2e ff 7e              |B. ~    |		CLR.B	(A6-0x82)
00021d88 4a 12                    |J       |		TST.B	(A2)
00021d8a 67 10                    |g       |		BEQ	0x21d9c
00021d8c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021d90 42 10                    |B       |		CLR.B	(A0)
00021d92 3d 7c 00 02 ff 7a        |=|   z  |		MOVE.W	#0x2,(A6-0x86)
00021d98 60 00 01 a8              |`       |		BRA	0x21f42
00021d9c 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00021da2 48 6e ff 67              |Hn g    |		PEA.L	(A6-0x99)
00021da6 4e b9 00 01 05 26        |N    &  |		JSR	IPC_GetBool() : Bool
00021dac 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021dae 48 53                    |HS      |		PEA.L	(A3)
00021db0 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
00021db6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021db8 48 54                    |HT      |		PEA.L	(A4)
00021dba 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
00021dc0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021dc2 48 6e ff 70              |Hn p    |		PEA.L	(A6-0x90)
00021dc6 48 78 00 00              |Hx      |		PEA.L	0x0
00021dca 48 78 00 00              |Hx      |		PEA.L	0x0
00021dce 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00021dd4 de c4                    |        |		ADDA.W	D4,A7
00021dd6 48 6e ff 71              |Hn q    |		PEA.L	(A6-0x8f)
00021dda 48 78 00 00              |Hx      |		PEA.L	0x0
00021dde 48 78 00 07              |Hx      |		PEA.L	0x7
00021de2 4e b9 00 01 05 20        |N       |		JSR	IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00021de8 de c4                    |        |		ADDA.W	D4,A7
00021dea 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
00021df0 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021df4 10 2e ff 67              | . g    |		MOVE.B	(A6-0x99),D0
00021df8 44 00                    |D       |		NEG.B	D0
00021dfa 52 00                    |R       |		ADDQ.B	#0x1,D0
00021dfc 48 80                    |H       |		EXTB.W	D0
00021dfe 41 82                    |A       |		CHK.W	D2,D0
00021e00 10 80                    |        |		MOVE.B	D0,(A0)
00021e02 2f 3a e7 d0              |/:      |		MOVE.L	0x205d4,-(A7)
00021e06 2f 3a e7 c8              |/:      |		MOVE.L	0x205d0,-(A7)
00021e0a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021e0c 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00021e0e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021e10 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021e14 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021e16 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00021e1a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021e20 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e22 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021e28 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e2a 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00021e2c 2e 93                    |.       |		MOVE.L	(A3),(A7)
00021e2e 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00021e34 2e 94                    |.       |		MOVE.L	(A4),(A7)
00021e36 42 80                    |B       |		CLR.L	D0
00021e38 10 2e ff 70              | . p    |		MOVE.B	(A6-0x90),D0
00021e3c 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021e3e 4e b9 00 01 04 4c        |N    L  |		JSR	WriteErrorMessage(file : String; txt : String; number : Long) : Bool
00021e44 de c4                    |        |		ADDA.W	D4,A7
00021e46 3d 42 ff 7a              |=B z    |		MOVE.W	D2,(A6-0x86)
00021e4a 1d 6e ff 70 ff 7f        | n p    |		MOVE.B	(A6-0x90),(A6-0x81)
00021e50 41 ee ff 80              |A       |		LEA.L	(A6-0x80),A0
00021e54 43 ee ff 71              |C  q    |		LEA.L	(A6-0x8f),A1
00021e58 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021e5a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021e5c 51 c8 ff fc              |Q       |		DBF	D0,0x21e5a
00021e60 20 53                    | S      |		MOVEA.L	(A3),A0
00021e62 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021e64 30 10                    |0       |		MOVE.W	(A0),D0
00021e66 48 c0                    |H       |		EXTW.L	D0
00021e68 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021e6a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00021e6c be 97                    |        |		CMP.L	(A7),D7
00021e6e 6e 28                    |n(      |		BGT	0x21e98
00021e70 20 07                    |        |		MOVE.L	D7,D0
00021e72 53 80                    |S       |		SUBQ.L	#0x1,D0
00021e74 b0 83                    |        |		CMP.L	D3,D0
00021e76 63 02                    |c       |		BLS	0x21e7a
00021e78 4e 4f                    |NO      |		TRAP	#15
00021e7a 20 4a                    | J      |		MOVEA.L	A2,A0
00021e7c 22 07                    |"       |		MOVE.L	D7,D1
00021e7e 53 81                    |S       |		SUBQ.L	#0x1,D1
00021e80 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
00021e86 63 02                    |c       |		BLS	0x21e8a
00021e88 4e 4f                    |NO      |		TRAP	#15
00021e8a 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
00021e8e 11 b1 18 02 08 22        |     "  |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L+#0x22)
00021e94 52 87                    |R       |		ADDQ.L	#0x1,D7
00021e96 68 d4                    |h       |		BVC	0x21e6c
00021e98 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021e9a 20 57                    | W      |		MOVEA.L	(A7),A0
00021e9c 30 10                    |0       |		MOVE.W	(A0),D0
00021e9e 48 c0                    |H       |		EXTW.L	D0
00021ea0 52 80                    |R       |		ADDQ.L	#0x1,D0
00021ea2 2c 00                    |,       |		MOVE.L	D0,D6
00021ea4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ea6 20 06                    |        |		MOVE.L	D6,D0
00021ea8 53 80                    |S       |		SUBQ.L	#0x1,D0
00021eaa b0 83                    |        |		CMP.L	D3,D0
00021eac 63 02                    |c       |		BLS	0x21eb0
00021eae 4e 4f                    |NO      |		TRAP	#15
00021eb0 20 4a                    | J      |		MOVEA.L	A2,A0
00021eb2 42 30 08 22              |B0 "    |		CLR.B	(A0+D0.L+#0x22)
00021eb6 20 54                    | T      |		MOVEA.L	(A4),A0
00021eb8 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021eba 30 10                    |0       |		MOVE.W	(A0),D0
00021ebc 48 c0                    |H       |		EXTW.L	D0
00021ebe 2a 00                    |*       |		MOVE.L	D0,D5
00021ec0 70 6c                    |pl      |		MOVEQ.L	#0x6c,D0
00021ec2 90 86                    |        |		SUB.L	D6,D0
00021ec4 ba 80                    |        |		CMP.L	D0,D5
00021ec6 6f 16                    |o       |		BLE	0x21ede
00021ec8 2a 00                    |*       |		MOVE.L	D0,D5
00021eca 20 05                    |        |		MOVE.L	D5,D0
00021ecc 53 80                    |S       |		SUBQ.L	#0x1,D0
00021ece 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
00021ed4 63 02                    |c       |		BLS	0x21ed8
00021ed6 4e 4f                    |NO      |		TRAP	#15
00021ed8 11 bc 00 5c 08 02        |   \    |		MOVE.B	#0x5c,(A0+D0.L+#0x2)
00021ede 2f 05                    |/       |		MOVE.L	D5,-(A7)
00021ee0 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00021ee2 be 97                    |        |		CMP.L	(A7),D7
00021ee4 6e 2a                    |n*      |		BGT	0x21f10
00021ee6 52 86                    |R       |		ADDQ.L	#0x1,D6
00021ee8 20 06                    |        |		MOVE.L	D6,D0
00021eea 53 80                    |S       |		SUBQ.L	#0x1,D0
00021eec b0 83                    |        |		CMP.L	D3,D0
00021eee 63 02                    |c       |		BLS	0x21ef2
00021ef0 4e 4f                    |NO      |		TRAP	#15
00021ef2 20 4a                    | J      |		MOVEA.L	A2,A0
00021ef4 22 07                    |"       |		MOVE.L	D7,D1
00021ef6 53 81                    |S       |		SUBQ.L	#0x1,D1
00021ef8 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
00021efe 63 02                    |c       |		BLS	0x21f02
00021f00 4e 4f                    |NO      |		TRAP	#15
00021f02 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
00021f06 11 b1 18 02 08 22        |     "  |		MOVE.B	(A1+D1.L+#0x2),(A0+D0.L+#0x22)
00021f0c 52 87                    |R       |		ADDQ.L	#0x1,D7
00021f0e 68 d2                    |h       |		BVC	0x21ee2
00021f10 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f12 0c 86 00 00 00 6c        |     l  |		CMPI.L	#0x0000006c,D6
00021f18 6c 12                    |l       |		BGE	0x21f2c
00021f1a 20 06                    |        |		MOVE.L	D6,D0
00021f1c 52 80                    |R       |		ADDQ.L	#0x1,D0
00021f1e 53 80                    |S       |		SUBQ.L	#0x1,D0
00021f20 b0 83                    |        |		CMP.L	D3,D0
00021f22 63 02                    |c       |		BLS	0x21f26
00021f24 4e 4f                    |NO      |		TRAP	#15
00021f26 20 4a                    | J      |		MOVEA.L	A2,A0
00021f28 42 30 08 22              |B0 "    |		CLR.B	(A0+D0.L+#0x22)
00021f2c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f2e 48 54                    |HT      |		PEA.L	(A4)
00021f30 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021f36 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f38 48 53                    |HS      |		PEA.L	(A3)
00021f3a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021f40 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f42 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00021f46 41 ee ff 7a              |A  z    |		LEA.L	(A6-0x86),A0
00021f4a 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021f4c 4e b9 00 01 03 a8        |N       |		JSR	Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
00021f52 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021f54 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021f58 4e 5e                    |N^      |		UNLK	A6
00021f5a 4e 75                    |Nu      |		RTS
00021f5c ; --------------------------------------------------------------------------------------
00021f5c ; OMSI PASCAL Function
00021f5c ;    <LVAR  0x008 1(r)>
00021f5c ; --------------------------------------------------------------------------------------
00021f5c 4e 56 ff 78              |NV x    |		LINK.W	A6,#0xff78
00021f60 bf d5                    |        |		CMPA.L	(A5),A7
00021f62 62 06                    |b       |		BHI	0x21f6a
00021f64 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021f68 4e 76                    |Nv      |		TRAPV
00021f6a de fc 00 86              |        |		ADDA.W	#0x86,A7
00021f6e 48 e7 e0 c0              |H       |		MOVEM.L	A1+A0+D2+D1+D0,-(A7)
00021f72 72 32                    |r2      |		MOVEQ.L	#0x32,D1
00021f74 74 01                    |t       |		MOVEQ.L	#0x01,D2
00021f76 9e fc 00 28              |   (    |		SUBA.W	#0x28,A7
00021f7a 20 4f                    | O      |		MOVEA.L	A7,A0
00021f7c 43 fa e6 5a              |C  Z    |		LEA.L	0x205d8,A1
00021f80 70 26                    |p&      |		MOVEQ.L	#0x26,D0
00021f82 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f84 51 c8 ff fc              |Q       |		DBF	D0,0x21f82
00021f88 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00021f8c 48 80                    |H       |		EXTB.W	D0
00021f8e c1 c1                    |        |		MULS.W	D1,D0
00021f90 41 fa ef ea              |A       |		LEA.L	0x20f7c,A0
00021f94 41 f0 00 32              |A  2    |		LEA.L	(A0+D0.W+#0x32),A0
00021f98 70 18                    |p       |		MOVEQ.L	#0x18,D0
00021f9a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021f9c 51 c8 ff fc              |Q       |		DBF	D0,0x21f9a
00021fa0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021fa2 48 6f 00 3a              |Ho :    |		PEA.L	(A7+0x3a)
00021fa6 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021fa8 3f 3c 00 27              |?< '    |		MOVE.W	#0x27,-(A7)
00021fac 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021fb2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021fb4 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021fb8 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021fba 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021fbc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021fc2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fc4 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021fca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fcc 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021fd2 de fc 00 5e              |   ^    |		ADDA.W	#0x5e,A7
00021fd6 4c df 03 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1
00021fda 4e 5e                    |N^      |		UNLK	A6
00021fdc 4e 75                    |Nu      |		RTS
00021fde ; --------------------------------------------------------------------------------------
00021fde ; OMSI PASCAL Function
00021fde ;    <LVAR  0x008 1(rw)>
00021fde ;    <LVAR -0x003 1(r)>
00021fde ;    <LVAR -0x004 1(r) 2(r)>
00021fde ;    <LVAR -0x006 @>
00021fde ;    <LVAR -0x080 2(r)>
00021fde ;    <LVAR -0x081 1(r)>
00021fde ;    <LVAR -0x082 1(r) 2(r)>
00021fde ;    <LVAR -0x086 @ 1(r)>
00021fde ;    <LVAR -0x483 1(r)>
00021fde ;    <LVAR -0x484 2(r)>
00021fde ;    <LVAR -0x486 @>
00021fde ;    <LVAR -0x488 @ 1(r)>
00021fde ;    <LVAR -0x48c @ 4(r)>
00021fde ; --------------------------------------------------------------------------------------
00021fde 4e 56 fb 2e              |NV .    |		LINK.W	A6,#0xfb2e
00021fe2 bf d5                    |        |		CMPA.L	(A5),A7
00021fe4 62 06                    |b       |		BHI	0x21fec
00021fe6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021fea 4e 76                    |Nv      |		TRAPV
00021fec de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00021ff0 48 e7 f0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
00021ff4 45 ee fb 78              |E  x    |		LEA.L	(A6-0x488),A2
00021ff8 47 ee fb 74              |G  t    |		LEA.L	(A6-0x48c),A3
00021ffc 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
00022000 74 01                    |t       |		MOVEQ.L	#0x01,D2
00022002 76 10                    |v       |		MOVEQ.L	#0x10,D3
00022004 42 14                    |B       |		CLR.B	(A4)
00022006 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
0002200a 20 4f                    | O      |		MOVEA.L	A7,A0
0002200c 43 fa e8 ae              |C       |		LEA.L	0x208bc,A1
00022010 70 08                    |p       |		MOVEQ.L	#0x08,D0
00022012 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022014 51 c8 ff fc              |Q       |		DBF	D0,0x22012
00022018 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002201a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002201e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022020 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00022024 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002202a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002202c 42 17                    |B       |		CLR.B	(A7)
0002202e 1f 02                    |        |		MOVE.B	D2,-(A7)
00022030 48 78 00 00              |Hx      |		PEA.L	0x0
00022034 48 52                    |HR      |		PEA.L	(A2)
00022036 48 53                    |HS      |		PEA.L	(A3)
00022038 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0002203e de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00022042 4a 12                    |J       |		TST.B	(A2)
00022044 66 00 00 ca              |f       |		BNE	0x22110
00022048 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002204a 42 67                    |Bg      |		CLR.W	-(A7)
0002204c 42 67                    |Bg      |		CLR.W	-(A7)
0002204e 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00022052 1f 02                    |        |		MOVE.B	D2,-(A7)
00022054 41 ee fb 7a              |A  z    |		LEA.L	(A6-0x486),A0
00022058 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002205a 48 52                    |HR      |		PEA.L	(A2)
0002205c 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00022062 de c3                    |        |		ADDA.W	D3,A7
00022064 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022066 30 2e fb 7c              |0. |    |		MOVE.W	(A6-0x484),D0
0002206a e6 48                    | H      |		LSR.W	#0x3,D0
0002206c 52 40                    |R@      |		ADDQ.W	#0x1,D0
0002206e 3f 00                    |?       |		MOVE.W	D0,-(A7)
00022070 42 80                    |B       |		CLR.L	D0
00022072 10 2e fb 7d              | . }    |		MOVE.B	(A6-0x483),D0
00022076 eb 08                    |        |		LSL.B	#0x5,D0
00022078 ea 08                    |        |		LSR.B	#0x5,D0
0002207a ed 40                    | @      |		ASL.W	#0x6,D0
0002207c 3f 00                    |?       |		MOVE.W	D0,-(A7)
0002207e 3f 3c 00 40              |?< @    |		MOVE.W	#0x40,-(A7)
00022082 1f 02                    |        |		MOVE.B	D2,-(A7)
00022084 41 ee ff 7a              |A  z    |		LEA.L	(A6-0x86),A0
00022088 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002208a 48 52                    |HR      |		PEA.L	(A2)
0002208c 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00022092 de fc 00 12              |        |		ADDA.W	#0x12,A7
00022096 42 17                    |B       |		CLR.B	(A7)
00022098 1f 02                    |        |		MOVE.B	D2,-(A7)
0002209a 48 78 00 01              |Hx      |		PEA.L	0x1
0002209e 48 52                    |HR      |		PEA.L	(A2)
000220a0 48 53                    |HS      |		PEA.L	(A3)
000220a2 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000220a8 de c3                    |        |		ADDA.W	D3,A7
000220aa 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000220ae 4e b9 00 01 03 04        |N       |		JSR	GetRtc() : TimeStamp
000220b4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000220b6 42 14                    |B       |		CLR.B	(A4)
000220b8 42 80                    |B       |		CLR.L	D0
000220ba 10 2e ff 7e              | . ~    |		MOVE.B	(A6-0x82),D0
000220be e2 08                    |        |		LSR.B	#0x1,D0
000220c0 42 81                    |B       |		CLR.L	D1
000220c2 12 2e ff fc              | .      |		MOVE.B	(A6-0x4),D1
000220c6 e2 09                    |        |		LSR.B	#0x1,D1
000220c8 b0 41                    | A      |		CMP.W	D1,D0
000220ca 66 44                    |fD      |		BNE	0x22110
000220cc 30 2e ff 7e              |0. ~    |		MOVE.W	(A6-0x82),D0
000220d0 ef 48                    | H      |		LSL.W	#0x7,D0
000220d2 e0 48                    | H      |		LSR.W	#0x8,D0
000220d4 e8 48                    | H      |		LSR.W	#0x4,D0
000220d6 32 2e ff fc              |2.      |		MOVE.W	(A6-0x4),D1
000220da ef 49                    | I      |		LSL.W	#0x7,D1
000220dc e0 49                    | I      |		LSR.W	#0x8,D1
000220de e8 49                    | I      |		LSR.W	#0x4,D1
000220e0 b0 41                    | A      |		CMP.W	D1,D0
000220e2 66 2c                    |f,      |		BNE	0x22110
000220e4 42 80                    |B       |		CLR.L	D0
000220e6 10 2e ff 7f              | .      |		MOVE.B	(A6-0x81),D0
000220ea e7 08                    |        |		LSL.B	#0x3,D0
000220ec e6 08                    |        |		LSR.B	#0x3,D0
000220ee 42 81                    |B       |		CLR.L	D1
000220f0 12 2e ff fd              | .      |		MOVE.B	(A6-0x3),D1
000220f4 e7 09                    |        |		LSL.B	#0x3,D1
000220f6 e6 09                    |        |		LSR.B	#0x3,D1
000220f8 b0 41                    | A      |		CMP.W	D1,D0
000220fa 66 14                    |f       |		BNE	0x22110
000220fc 10 2e ff 7a              | . z    |		MOVE.B	(A6-0x86),D0
00022100 0c 00 00 03              |        |		CMPI.B	#0x03,D0
00022104 66 0a                    |f       |		BNE	0x22110
00022106 30 2e ff 80              |0.      |		MOVE.W	(A6-0x80),D0
0002210a b0 42                    | B      |		CMP.W	D2,D0
0002210c 66 02                    |f       |		BNE	0x22110
0002210e 52 14                    |R       |		ADDQ.B	#0x1,(A4)
00022110 4c df 1f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
00022114 4e 5e                    |N^      |		UNLK	A6
00022116 4e 75                    |Nu      |		RTS
00022118 ; --------------------------------------------------------------------------------------
00022118 ; OMSI PASCAL Function
00022118 ;    <LVAR  0x008 1(r)>
00022118 ;    <LVAR -0x078 2(r)>
00022118 ;    <LVAR -0x07a @ 2(w)>
00022118 ; --------------------------------------------------------------------------------------
00022118 4e 56 ff 2e              |NV .    |		LINK.W	A6,#0xff2e
0002211c bf d5                    |        |		CMPA.L	(A5),A7
0002211e 62 06                    |b       |		BHI	0x22126
00022120 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022124 4e 76                    |Nv      |		TRAPV
00022126 de fc 00 58              |   X    |		ADDA.W	#0x58,A7
0002212a 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
0002212e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022130 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00022134 48 80                    |H       |		EXTB.W	D0
00022136 3d 40 ff 86              |=@      |		MOVE.W	D0,(A6-0x7a)
0002213a 42 6e ff 88              |Bn      |		CLR.W	(A6-0x78)
0002213e 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00022142 41 ee ff 86              |A       |		LEA.L	(A6-0x7a),A0
00022146 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022148 4e b9 00 01 03 a8        |N       |		JSR	Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
0002214e 9e fc 00 32              |   2    |		SUBA.W	#0x32,A7
00022152 20 4f                    | O      |		MOVEA.L	A7,A0
00022154 43 fa e7 70              |C  p    |		LEA.L	0x208c6,A1
00022158 70 36                    |p6      |		MOVEQ.L	#0x36,D0
0002215a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002215c 51 c8 ff fc              |Q       |		DBF	D0,0x2215a
00022160 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022162 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022166 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022168 3f 3c 00 37              |?< 7    |		MOVE.W	#0x37,-(A7)
0002216c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022172 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022174 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002217a de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
0002217e 1e bc 00 1b              |        |		MOVE.B	#0x1b,(A7)
00022182 4e b9 00 01 03 d0        |N       |		JSR	WriteConsoleChar(chr : char)
00022188 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002218a 1e ba e7 72              |   r    |		MOVE.B	0x208fe,(A7)
0002218e 1f 7a e7 6f 00 01        | z o    |		MOVE.B	0x208ff,(A7+0x1)
00022194 1f 7a e7 6a 00 02        | z j    |		MOVE.B	0x20900,(A7+0x2)
0002219a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002219c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000221a0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000221a2 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
000221a6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000221ac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221ae 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000221b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221b6 23 fc 00 00 00 06 00 02  |#       |		MOVE.L	#0x6,0x23944
000221be 39 44                    |9D      |
000221c0 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
000221c4 4e 5e                    |N^      |		UNLK	A6
000221c6 4e 75                    |Nu      |		RTS
000221c8 ; --------------------------------------------------------------------------------------
000221c8 ; OMSI PASCAL Function
000221c8 ;    <LVAR  0x008 1(r)>
000221c8 ;    <LVAR -0x078 2(r)>
000221c8 ;    <LVAR -0x07a @ 2(w)>
000221c8 ; --------------------------------------------------------------------------------------
000221c8 4e 56 ff 1c              |NV      |		LINK.W	A6,#0xff1c
000221cc bf d5                    |        |		CMPA.L	(A5),A7
000221ce 62 06                    |b       |		BHI	0x221d6
000221d0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000221d4 4e 76                    |Nv      |		TRAPV
000221d6 de fc 00 6a              |   j    |		ADDA.W	#0x6a,A7
000221da 48 e7 f0 e0              |H       |		MOVEM.L	A2+A1+A0+D3+D2+D1+D0,-(A7)
000221de 43 f9 00 01 02 c4        |C       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A1
000221e4 45 f9 00 02 39 42        |E   9B  |		LEA.L	0x23942,A2
000221ea 76 01                    |v       |		MOVEQ.L	#0x01,D3
000221ec 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000221f0 48 80                    |H       |		EXTB.W	D0
000221f2 3d 40 ff 86              |=@      |		MOVE.W	D0,(A6-0x7a)
000221f6 42 6e ff 88              |Bn      |		CLR.W	(A6-0x78)
000221fa 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000221fe 41 ee ff 86              |A       |		LEA.L	(A6-0x7a),A0
00022202 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022204 4e b9 00 01 03 a8        |N       |		JSR	Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
0002220a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002220c 23 fc 00 00 00 06 00 02  |#       |		MOVE.L	#0x6,0x23944
00022214 39 44                    |9D      |
00022216 4a 40                    |J@      |		TST.W	D0
00022218 66 28                    |f(      |		BNE	0x22242
0002221a 41 fa e7 0e              |A       |		LEA.L	0x2092a,A0
0002221e 72 09                    |r       |		MOVEQ.L	#0x09,D1
00022220 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022222 51 c9 ff fc              |Q       |		DBF	D1,0x22220
00022226 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022228 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002222c 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002222e 3f 3c 00 28              |?< (    |		MOVE.W	#0x28,-(A7)
00022232 4e 91                    |N       |		JSR	(A1)
00022234 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022236 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002223c de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00022240 60 26                    |`&      |		BRA	0x22268
00022242 41 fa e7 22              |A  "    |		LEA.L	0x20966,A0
00022246 72 0e                    |r       |		MOVEQ.L	#0x0e,D1
00022248 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002224a 51 c9 ff fc              |Q       |		DBF	D1,0x22248
0002224e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022250 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022254 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022256 3f 3c 00 3c              |?< <    |		MOVE.W	#0x3c,-(A7)
0002225a 4e 91                    |N       |		JSR	(A1)
0002225c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002225e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022264 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00022268 1f 3c 00 1b              | <      |		MOVE.B	#0x1b,-(A7)
0002226c 4e b9 00 01 03 d0        |N       |		JSR	WriteConsoleChar(chr : char)
00022272 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022274 1e ba e6 f0              |        |		MOVE.B	0x20966,(A7)
00022278 1f 7a e6 ed 00 01        | z      |		MOVE.B	0x20967,(A7+0x1)
0002227e 1f 7a e6 e8 00 02        | z      |		MOVE.B	0x20968,(A7+0x2)
00022284 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022286 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002228a 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002228c 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00022290 4e 91                    |N       |		JSR	(A1)
00022292 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022294 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
0002229a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002229c 42 17                    |B       |		CLR.B	(A7)
0002229e 4e ba f7 98              |N       |		JSR	0x21a38
000222a2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000222a4 42 12                    |B       |		CLR.B	(A2)
000222a6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000222a8 4e b9 00 01 05 ce        |N       |		JSR	ReadKeySwitch() : Bool
000222ae 12 1f                    |        |		MOVE.B	(A7)+,D1
000222b0 44 01                    |D       |		NEG.B	D1
000222b2 52 01                    |R       |		ADDQ.B	#0x1,D1
000222b4 14 39 00 02 39 3f        | 9  9?  |		MOVE.B	0x2393f,D2
000222ba e9 0a                    |        |		LSL.B	#0x4,D2
000222bc ee 0a                    |        |		LSR.B	#0x7,D2
000222be c4 01                    |        |		AND.B	D1,D2
000222c0 12 39 00 02 39 3f        | 9  9?  |		MOVE.B	0x2393f,D1
000222c6 eb 09                    |        |		LSL.B	#0x5,D1
000222c8 ee 09                    |        |		LSR.B	#0x7,D1
000222ca c2 02                    |        |		AND.B	D2,D1
000222cc 67 06                    |g       |		BEQ	0x222d4
000222ce 4a 40                    |J@      |		TST.W	D0
000222d0 66 02                    |f       |		BNE	0x222d4
000222d2 52 12                    |R       |		ADDQ.B	#0x1,(A2)
000222d4 4c df 07 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2
000222d8 4e 5e                    |N^      |		UNLK	A6
000222da 4e 75                    |Nu      |		RTS
000222dc ; --------------------------------------------------------------------------------------
000222dc ; OMSI PASCAL Function
000222dc ;    <LVAR  0x008 1(r)>
000222dc ;    <LVAR -0x078 2(r)>
000222dc ;    <LVAR -0x07a @ 2(w)>
000222dc ; --------------------------------------------------------------------------------------
000222dc 4e 56 ff 14              |NV      |		LINK.W	A6,#0xff14
000222e0 bf d5                    |        |		CMPA.L	(A5),A7
000222e2 62 06                    |b       |		BHI	0x222ea
000222e4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000222e8 4e 76                    |Nv      |		TRAPV
000222ea de fc 00 72              |   r    |		ADDA.W	#0x72,A7
000222ee 48 e7 f0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
000222f2 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000222f8 47 f9 00 02 39 44        |G   9D  |		LEA.L	0x23944,A3
000222fe 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022300 74 1b                    |t       |		MOVEQ.L	#0x1b,D2
00022302 76 03                    |v       |		MOVEQ.L	#0x03,D3
00022304 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00022308 48 80                    |H       |		EXTB.W	D0
0002230a 3d 40 ff 86              |=@      |		MOVE.W	D0,(A6-0x7a)
0002230e 42 6e ff 88              |Bn      |		CLR.W	(A6-0x78)
00022312 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00022316 41 ee ff 86              |A       |		LEA.L	(A6-0x7a),A0
0002231a 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002231c 4e b9 00 01 03 a8        |N       |		JSR	Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
00022322 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022324 26 bc 00 00 00 06        |&       |		MOVE.L	#0x6,(A3)
0002232a 0c 00 00 19              |        |		CMPI.B	#0x19,D0
0002232e 66 5e                    |f^      |		BNE	0x2238e
00022330 9e fc 00 40              |   @    |		SUBA.W	#0x40,A7
00022334 20 4f                    | O      |		MOVEA.L	A7,A0
00022336 43 fa e6 64              |C  d    |		LEA.L	0x2099c,A1
0002233a 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
0002233c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002233e 51 c8 ff fc              |Q       |		DBF	D0,0x2233c
00022342 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022344 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022348 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002234a 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
0002234e 4e 92                    |N       |		JSR	(A2)
00022350 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022352 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022358 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
0002235c 1e 82                    |        |		MOVE.B	D2,(A7)
0002235e 4e b9 00 01 03 d0        |N       |		JSR	WriteConsoleChar(chr : char)
00022364 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022366 1e ba e6 74              |   t    |		MOVE.B	0x209dc,(A7)
0002236a 1f 7a e6 71 00 01        | z q    |		MOVE.B	0x209dd,(A7+0x1)
00022370 1f 7a e6 6c 00 02        | z l    |		MOVE.B	0x209de,(A7+0x2)
00022376 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022378 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002237c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002237e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022380 4e 92                    |N       |		JSR	(A2)
00022382 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022384 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
0002238a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002238c 60 6a                    |`j      |		BRA	0x223f8
0002238e 41 fa e6 0c              |A       |		LEA.L	0x2099c,A0
00022392 70 18                    |p       |		MOVEQ.L	#0x18,D0
00022394 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022396 51 c8 ff fc              |Q       |		DBF	D0,0x22394
0002239a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002239c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000223a0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000223a2 3f 3c 00 32              |?< 2    |		MOVE.W	#0x32,-(A7)
000223a6 4e 92                    |N       |		JSR	(A2)
000223a8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000223aa 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000223b0 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
000223b4 1e 82                    |        |		MOVE.B	D2,(A7)
000223b6 4e b9 00 01 03 d0        |N       |		JSR	WriteConsoleChar(chr : char)
000223bc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000223be 1e ba e6 20              |        |		MOVE.B	0x209e0,(A7)
000223c2 1f 7a e6 1d 00 01        | z      |		MOVE.B	0x209e1,(A7+0x1)
000223c8 1f 7a e6 18 00 02        | z      |		MOVE.B	0x209e2,(A7+0x2)
000223ce 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000223d0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000223d4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000223d6 3f 03                    |?       |		MOVE.W	D3,-(A7)
000223d8 4e 92                    |N       |		JSR	(A2)
000223da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000223dc 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000223e2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000223e4 4a 39 00 02 39 40        |J9  9@  |		TST.B	0x23940
000223ea 67 0a                    |g       |		BEQ	0x223f6
000223ec 1f 01                    |        |		MOVE.B	D1,-(A7)
000223ee 4e ba f6 48              |N  H    |		JSR	0x21a38
000223f2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000223f4 60 02                    |`       |		BRA	0x223f8
000223f6 26 81                    |&       |		MOVE.L	D1,(A3)
000223f8 4c df 0f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3
000223fc 4e 5e                    |N^      |		UNLK	A6
000223fe 4e 75                    |Nu      |		RTS
00022400 ; --------------------------------------------------------------------------------------
00022400 ; OMSI PASCAL Function
00022400 ;    <LVAR  0x008 1(r)>
00022400 ;    <LVAR -0x005 @ 1(r)>
00022400 ;    <LVAR -0x006 @ 1(r)>
00022400 ; --------------------------------------------------------------------------------------
00022400 4e 56 ff 78              |NV x    |		LINK.W	A6,#0xff78
00022404 bf d5                    |        |		CMPA.L	(A5),A7
00022406 62 06                    |b       |		BHI	0x2240e
00022408 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002240c 4e 76                    |Nv      |		TRAPV
0002240e de fc 00 82              |        |		ADDA.W	#0x82,A7
00022412 48 e7 f1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
00022416 45 f9 00 02 39 42        |E   9B  |		LEA.L	0x23942,A2
0002241c 47 f9 00 02 39 44        |G   9D  |		LEA.L	0x23944,A3
00022422 49 f9 00 01 02 c4        |I       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00022428 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002242a 74 03                    |t       |		MOVEQ.L	#0x03,D2
0002242c 76 4c                    |vL      |		MOVEQ.L	#0x4c,D3
0002242e 4e ba ee aa              |N       |		JSR	0x212da
00022432 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022434 4e b9 00 01 03 f8        |N       |		JSR	GetConsoleConfig() : Long
0002243a 20 1f                    |        |		MOVE.L	(A7)+,D0
0002243c b0 81                    |        |		CMP.L	D1,D0
0002243e 67 0a                    |g       |		BEQ	0x2244a
00022440 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00022444 4e ba fb 16              |N       |		JSR	0x21f5c
00022448 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002244a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002244c 4e ba fb 90              |N       |		JSR	0x21fde
00022450 10 1f                    |        |		MOVE.B	(A7)+,D0
00022452 48 80                    |H       |		EXTB.W	D0
00022454 41 81                    |A       |		CHK.W	D1,D0
00022456 1e 00                    |        |		MOVE.B	D0,D7
00022458 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002245c 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00022460 4e ba f8 76              |N  v    |		JSR	0x21cd8
00022464 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022466 1e 81                    |        |		MOVE.B	D1,(A7)
00022468 4e ba f5 ce              |N       |		JSR	0x21a38
0002246c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002246e 42 12                    |B       |		CLR.B	(A2)
00022470 4a 2e ff fa              |J.      |		TST.B	(A6-0x6)
00022474 67 06                    |g       |		BEQ	0x2247c
00022476 26 82                    |&       |		MOVE.L	D2,(A3)
00022478 60 00 01 52              |`  R    |		BRA	0x225cc
0002247c 10 39 00 02 39 3f        | 9  9?  |		MOVE.B	0x2393f,D0
00022482 e7 08                    |        |		LSL.B	#0x3,D0
00022484 ee 08                    |        |		LSR.B	#0x7,D0
00022486 67 00 01 1c              |g       |		BEQ	0x225a4
0002248a 4a 39 00 02 39 41        |J9  9A  |		TST.B	0x23941
00022490 66 00 01 12              |f       |		BNE	0x225a4
00022494 48 6e ff fb              |Hn      |		PEA.L	(A6-0x5)
00022498 4e ba f7 96              |N       |		JSR	0x21c30
0002249c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002249e 4a 2e ff fb              |J.      |		TST.B	(A6-0x5)
000224a2 67 00 00 d0              |g       |		BEQ	0x22574
000224a6 26 bc 00 00 00 06        |&       |		MOVE.L	#0x6,(A3)
000224ac 4a 07                    |J       |		TST.B	D7
000224ae 67 56                    |gV      |		BEQ	0x22506
000224b0 9e fc 00 46              |   F    |		SUBA.W	#0x46,A7
000224b4 20 4f                    | O      |		MOVEA.L	A7,A0
000224b6 43 fa e5 2c              |C  ,    |		LEA.L	0x209e4,A1
000224ba 70 44                    |pD      |		MOVEQ.L	#0x44,D0
000224bc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000224be 51 c8 ff fc              |Q       |		DBF	D0,0x224bc
000224c2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000224c4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000224c8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000224ca 3f 3c 00 45              |?< E    |		MOVE.W	#0x45,-(A7)
000224ce 4e 94                    |N       |		JSR	(A4)
000224d0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224d2 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000224d8 de fc 00 14              |        |		ADDA.W	#0x14,A7
000224dc 20 4f                    | O      |		MOVEA.L	A7,A0
000224de 43 fa e5 4a              |C  J    |		LEA.L	0x20a2a,A1
000224e2 70 34                    |p4      |		MOVEQ.L	#0x34,D0
000224e4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000224e6 51 c8 ff fc              |Q       |		DBF	D0,0x224e4
000224ea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000224ec 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000224f0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000224f2 3f 3c 00 35              |?< 5    |		MOVE.W	#0x35,-(A7)
000224f6 4e 94                    |N       |		JSR	(A4)
000224f8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224fa 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022500 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00022504 60 6c                    |`l      |		BRA	0x22572
00022506 41 fa e5 a0              |A       |		LEA.L	0x20aa8,A0
0002250a 70 11                    |p       |		MOVEQ.L	#0x11,D0
0002250c 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002250e 51 c8 ff fc              |Q       |		DBF	D0,0x2250c
00022512 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022514 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022518 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002251a 3f 3c 00 48              |?< H    |		MOVE.W	#0x48,-(A7)
0002251e 4e 94                    |N       |		JSR	(A4)
00022520 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022522 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022528 de c3                    |        |		ADDA.W	D3,A7
0002252a 41 fa e5 c6              |A       |		LEA.L	0x20af2,A0
0002252e 70 24                    |p$      |		MOVEQ.L	#0x24,D0
00022530 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022532 51 c8 ff fc              |Q       |		DBF	D0,0x22530
00022536 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022538 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002253c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002253e 3f 3c 00 4a              |?< J    |		MOVE.W	#0x4a,-(A7)
00022542 4e 94                    |N       |		JSR	(A4)
00022544 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022546 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002254c de c3                    |        |		ADDA.W	D3,A7
0002254e 4e b9 00 01 05 ce        |N       |		JSR	ReadKeySwitch() : Bool
00022554 14 9f                    |        |		MOVE.B	(A7)+,(A2)
00022556 44 12                    |D       |		NEG.B	(A2)
00022558 52 12                    |R       |		ADDQ.B	#0x1,(A2)
0002255a 10 39 00 02 39 3f        | 9  9?  |		MOVE.B	0x2393f,D0
00022560 e9 08                    |        |		LSL.B	#0x4,D0
00022562 ee 08                    |        |		LSR.B	#0x7,D0
00022564 c1 12                    |        |		AND.B	D0,(A2)
00022566 10 39 00 02 39 3f        | 9  9?  |		MOVE.B	0x2393f,D0
0002256c eb 08                    |        |		LSL.B	#0x5,D0
0002256e ee 08                    |        |		LSR.B	#0x7,D0
00022570 c1 12                    |        |		AND.B	D0,(A2)
00022572 60 2e                    |`.      |		BRA	0x225a2
00022574 9e fc 00 3e              |   >    |		SUBA.W	#0x3e,A7
00022578 20 4f                    | O      |		MOVEA.L	A7,A0
0002257a 43 fa e5 76              |C  v    |		LEA.L	0x20af2,A1
0002257e 70 3c                    |p<      |		MOVEQ.L	#0x3c,D0
00022580 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022582 51 c8 ff fc              |Q       |		DBF	D0,0x22580
00022586 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022588 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002258c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002258e 3f 3c 00 3d              |?< =    |		MOVE.W	#0x3d,-(A7)
00022592 4e 94                    |N       |		JSR	(A4)
00022594 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022596 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002259c de fc 00 42              |   B    |		ADDA.W	#0x42,A7
000225a0 26 82                    |&       |		MOVE.L	D2,(A3)
000225a2 60 28                    |`(      |		BRA	0x225cc
000225a4 41 fa e5 b2              |A       |		LEA.L	0x20b58,A0
000225a8 70 09                    |p       |		MOVEQ.L	#0x09,D0
000225aa 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000225ac 51 c8 ff fc              |Q       |		DBF	D0,0x225aa
000225b0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000225b2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000225b6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000225b8 3f 3c 00 28              |?< (    |		MOVE.W	#0x28,-(A7)
000225bc 4e 94                    |N       |		JSR	(A4)
000225be 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000225c0 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000225c6 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000225ca 26 81                    |&       |		MOVE.L	D1,(A3)
000225cc 4c df 1f 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3+A4
000225d0 4e 5e                    |N^      |		UNLK	A6
000225d2 4e 75                    |Nu      |		RTS
000225d4 ; --------------------------------------------------------------------------------------
000225d4 ; OMSI PASCAL Function
000225d4 ;    <LVAR  0x008 1(r)>
000225d4 ;    <LVAR -0x078 2(w)>
000225d4 ;    <LVAR -0x07a @ 2(w)>
000225d4 ; --------------------------------------------------------------------------------------
000225d4 4e 56 ff 70              |NV p    |		LINK.W	A6,#0xff70
000225d8 bf d5                    |        |		CMPA.L	(A5),A7
000225da 62 06                    |b       |		BHI	0x225e2
000225dc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000225e0 4e 76                    |Nv      |		TRAPV
000225e2 de fc 00 16              |        |		ADDA.W	#0x16,A7
000225e6 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
000225ea 72 03                    |r       |		MOVEQ.L	#0x03,D1
000225ec 3d 41 ff 86              |=A      |		MOVE.W	D1,(A6-0x7a)
000225f0 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000225f4 48 80                    |H       |		EXTB.W	D0
000225f6 3d 40 ff 88              |=@      |		MOVE.W	D0,(A6-0x78)
000225fa 1f 01                    |        |		MOVE.B	D1,-(A7)
000225fc 41 ee ff 86              |A       |		LEA.L	(A6-0x7a),A0
00022600 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022602 4e b9 00 01 03 a8        |N       |		JSR	Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
00022608 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002260a 1e bc 00 01              |        |		MOVE.B	#0x01,(A7)
0002260e 4e ba f4 28              |N  (    |		JSR	0x21a38
00022612 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022614 23 fc 00 00 00 06 00 02  |#       |		MOVE.L	#0x6,0x23944
0002261c 39 44                    |9D      |
0002261e 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00022622 4e 5e                    |N^      |		UNLK	A6
00022624 4e 75                    |Nu      |		RTS
00022626 ; --------------------------------------------------------------------------------------
00022626 ; OMSI PASCAL Function
00022626 ;    <LVAR -0x078 2(r)>
00022626 ;    <LVAR -0x07a 2(w)>
00022626 ;    <LVAR -0x07c @ 2(w)>
00022626 ; --------------------------------------------------------------------------------------
00022626 4e 56 ff 6e              |NV n    |		LINK.W	A6,#0xff6e
0002262a bf d5                    |        |		CMPA.L	(A5),A7
0002262c 62 06                    |b       |		BHI	0x22634
0002262e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022632 4e 76                    |Nv      |		TRAPV
00022634 de fc 00 16              |        |		ADDA.W	#0x16,A7
00022638 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0002263c 43 f9 00 02 39 42        |C   9B  |		LEA.L	0x23942,A1
00022642 3d 7c 00 04 ff 84        |=|      |		MOVE.W	#0x4,(A6-0x7c)
00022648 3d 7c 00 09 ff 86        |=|      |		MOVE.W	#0x9,(A6-0x7a)
0002264e 42 6e ff 88              |Bn      |		CLR.W	(A6-0x78)
00022652 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00022656 41 ee ff 84              |A       |		LEA.L	(A6-0x7c),A0
0002265a 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002265c 4e b9 00 01 03 a8        |N       |		JSR	Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
00022662 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022664 42 17                    |B       |		CLR.B	(A7)
00022666 4e ba f3 d0              |N       |		JSR	0x21a38
0002266a 4e b9 00 01 05 ce        |N       |		JSR	ReadKeySwitch() : Bool
00022670 12 9f                    |        |		MOVE.B	(A7)+,(A1)
00022672 44 11                    |D       |		NEG.B	(A1)
00022674 52 11                    |R       |		ADDQ.B	#0x1,(A1)
00022676 10 39 00 02 39 3f        | 9  9?  |		MOVE.B	0x2393f,D0
0002267c e9 08                    |        |		LSL.B	#0x4,D0
0002267e ee 08                    |        |		LSR.B	#0x7,D0
00022680 c1 11                    |        |		AND.B	D0,(A1)
00022682 10 39 00 02 39 3f        | 9  9?  |		MOVE.B	0x2393f,D0
00022688 eb 08                    |        |		LSL.B	#0x5,D0
0002268a ee 08                    |        |		LSR.B	#0x7,D0
0002268c c1 11                    |        |		AND.B	D0,(A1)
0002268e 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00022692 4e 5e                    |N^      |		UNLK	A6
00022694 4e 75                    |Nu      |		RTS
00022696 ; --------------------------------------------------------------------------------------
00022696 ; OMSI PASCAL Function
00022696 ;    <LVAR  0x008 1(r)>
00022696 ; --------------------------------------------------------------------------------------
00022696 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
0002269a bf d5                    |        |		CMPA.L	(A5),A7
0002269c 62 06                    |b       |		BHI	0x226a4
0002269e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000226a2 4e 76                    |Nv      |		TRAPV
000226a4 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000226a8 48 e7 c0 00              |H       |		MOVEM.L	D1+D0,-(A7)
000226ac 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000226b0 4e ba f8 aa              |N       |		JSR	0x21f5c
000226b4 1e bc 00 1b              |        |		MOVE.B	#0x1b,(A7)
000226b8 4e b9 00 01 03 d0        |N       |		JSR	WriteConsoleChar(chr : char)
000226be 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000226c0 1e ba e4 96              |        |		MOVE.B	0x20b58,(A7)
000226c4 1f 7a e4 93 00 01        | z      |		MOVE.B	0x20b59,(A7+0x1)
000226ca 1f 7a e4 8e 00 02        | z      |		MOVE.B	0x20b5a,(A7+0x2)
000226d0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000226d2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000226d6 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000226da 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
000226de 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000226e4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000226e6 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000226ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000226ee 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000226f2 48 80                    |H       |		EXTB.W	D0
000226f4 32 00                    |2       |		MOVE.W	D0,D1
000226f6 0c 41 00 0d              | A      |		CMPI.W	#0x000d,D1
000226fa 63 02                    |c       |		BLS	0x226fe
000226fc 4e 4e                    |NN      |		TRAP	#14
000226fe d2 41                    | A      |		ADD.W	D1,D1
00022700 32 3b 10 06 4e fb 10 02  |2;  N   |		SWITCH	D1.W
00022708 00 1c                    |        |		.CONST	0x1c			; [0x0] -> 0x22724
0002270a 00 1e                    |        |		.CONST	0x1e			; [0x1] -> 0x22726
0002270c 00 20                    |        |		.CONST	0x20			; [0x2] -> 0x22728
0002270e 00 28                    | (      |		.CONST	0x28			; [0x3] -> 0x22730
00022710 00 2a                    | *      |		.CONST	0x2a			; [0x4] -> 0x22732
00022712 00 2c                    | ,      |		.CONST	0x2c			; [0x5] -> 0x22734
00022714 00 2e                    | .      |		.CONST	0x2e			; [0x6] -> 0x22736
00022716 00 30                    | 0      |		.CONST	0x30			; [0x7] -> 0x22738
00022718 00 32                    | 2      |		.CONST	0x32			; [0x8] -> 0x2273a
0002271a 00 34                    | 4      |		.CONST	0x34			; [0x9] -> 0x2273c
0002271c 00 3a                    | :      |		.CONST	0x3a			; [0xa] -> 0x22742
0002271e 00 3c                    | <      |		.CONST	0x3c			; [0xb] -> 0x22744
00022720 00 3e                    | >      |		.CONST	0x3e			; [0xc] -> 0x22746
00022722 00 40                    | @      |		.CONST	0x40			; [0xd] -> 0x22748
00022724					switch@0x22700[0x0]:
00022724 60 2a                    |`*      |		BRA	0x22750
00022726					switch@0x22700[0x1]:
00022726 60 20                    |`       |		BRA	switch@0x22700[0xd]
00022728					switch@0x22700[0x2]:
00022728 1f 00                    |        |		MOVE.B	D0,-(A7)
0002272a 4e ba fc d4              |N       |		JSR	0x22400
0002272e 60 1e                    |`       |		BRA	0x2274e
00022730					switch@0x22700[0x3]:
00022730 60 16                    |`       |		BRA	switch@0x22700[0xd]
00022732					switch@0x22700[0x4]:
00022732 60 f4                    |`       |		BRA	switch@0x22700[0x2]
00022734					switch@0x22700[0x5]:
00022734 60 f2                    |`       |		BRA	switch@0x22700[0x2]
00022736					switch@0x22700[0x6]:
00022736 60 f0                    |`       |		BRA	switch@0x22700[0x2]
00022738					switch@0x22700[0x7]:
00022738 60 0e                    |`       |		BRA	switch@0x22700[0xd]
0002273a					switch@0x22700[0x8]:
0002273a 60 0c                    |`       |		BRA	switch@0x22700[0xd]
0002273c					switch@0x22700[0x9]:
0002273c 4e ba fe e8              |N       |		JSR	0x22626
00022740 60 0e                    |`       |		BRA	0x22750
00022742					switch@0x22700[0xa]:
00022742 60 04                    |`       |		BRA	switch@0x22700[0xd]
00022744					switch@0x22700[0xb]:
00022744 60 02                    |`       |		BRA	switch@0x22700[0xd]
00022746					switch@0x22700[0xc]:
00022746 60 e0                    |`       |		BRA	switch@0x22700[0x2]
00022748					switch@0x22700[0xd]:
00022748 1f 00                    |        |		MOVE.B	D0,-(A7)
0002274a 4e ba fe 88              |N       |		JSR	0x225d4
0002274e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022750 4c df 00 03              |L       |		MOVEM.L	(A7)+,D0+D1
00022754 4e 5e                    |N^      |		UNLK	A6
00022756 4e 75                    |Nu      |		RTS
00022758 ; --------------------------------------------------------------------------------------
00022758 ; OMSI PASCAL Function
00022758 ;    <LVAR  0x012 @ 4(r)>
00022758 ;    <LVAR  0x00e @ 4(r)>
00022758 ;    <LVAR  0x00a 4(r)>
00022758 ;    <LVAR  0x008 1(r)>
00022758 ; --------------------------------------------------------------------------------------
00022758 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
0002275c bf d5                    |        |		CMPA.L	(A5),A7
0002275e 62 06                    |b       |		BHI	0x22766
00022760 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022764 4e 76                    |Nv      |		TRAPV
00022766 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
0002276a 48 e7 c0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D1+D0,-(A7)
0002276e 43 f9 00 01 02 cc        |C       |		LEA.L	StringDup(a : String) : String,A1
00022774 45 ee 00 12              |E       |		LEA.L	(A6+0x12),A2
00022778 47 ee 00 0e              |G       |		LEA.L	(A6+0xe),A3
0002277c 49 f9 00 02 39 44        |I   9D  |		LEA.L	0x23944,A4
00022782 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022784 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022786 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00022788 4e 91                    |N       |		JSR	(A1)
0002278a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002278c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022792 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022794 3e ba e3 c6              |>       |		MOVE.W	0x20b5c,(A7)
00022798 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002279a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002279e 3f 01                    |?       |		MOVE.W	D1,-(A7)
000227a0 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
000227a4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000227aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000227ac 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000227b2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000227b4 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000227b6 4e 91                    |N       |		JSR	(A1)
000227b8 2e ae 00 0a              |.       |		MOVE.L	(A6+0xa),(A7)
000227bc 4e b9 00 01 04 50        |N    P  |		JSR	FS_10450(&, &)
000227c2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000227c4 1e bc 00 1b              |        |		MOVE.B	#0x1b,(A7)
000227c8 4e b9 00 01 03 d0        |N       |		JSR	WriteConsoleChar(chr : char)
000227ce 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000227d0 1e ba e3 8c              |        |		MOVE.B	0x20b5e,(A7)
000227d4 1f 7a e3 89 00 01        | z      |		MOVE.B	0x20b5f,(A7+0x1)
000227da 1f 7a e3 84 00 02        | z      |		MOVE.B	0x20b60,(A7+0x2)
000227e0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000227e2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000227e6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000227e8 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
000227ec 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000227f2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000227f4 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000227fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000227fc 28 bc 00 00 00 06        |(       |		MOVE.L	#0x6,(A4)
00022802 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00022806 48 80                    |H       |		EXTB.W	D0
00022808 41 fa ea 2e              |A  .    |		LEA.L	0x21238,A0
0002280c 4a 30 00 00              |J0      |		TST.B	(A0+D0.W)
00022810 67 16                    |g       |		BEQ	0x22828
00022812 4a 39 00 02 39 40        |J9  9@  |		TST.B	0x23940
00022818 67 0a                    |g       |		BEQ	0x22824
0002281a 1f 01                    |        |		MOVE.B	D1,-(A7)
0002281c 4e ba f2 1a              |N       |		JSR	0x21a38
00022820 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022822 60 02                    |`       |		BRA	0x22826
00022824 28 81                    |(       |		MOVE.L	D1,(A4)
00022826 60 40                    |`@      |		BRA	0x22868
00022828 4e ba ea b0              |N       |		JSR	0x212da
0002282c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002282e 4e b9 00 01 03 f8        |N       |		JSR	GetConsoleConfig() : Long
00022834 20 1f                    |        |		MOVE.L	(A7)+,D0
00022836 b0 81                    |        |		CMP.L	D1,D0
00022838 67 1e                    |g       |		BEQ	0x22858
0002283a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002283c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002283e 4e 91                    |N       |		JSR	(A1)
00022840 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022842 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022848 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002284a 4e 91                    |N       |		JSR	(A1)
0002284c 2e ae 00 0a              |.       |		MOVE.L	(A6+0xa),(A7)
00022850 4e b9 00 01 04 50        |N    P  |		JSR	FS_10450(&, &)
00022856 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022858 4a 39 00 02 39 40        |J9  9@  |		TST.B	0x23940
0002285e 67 08                    |g       |		BEQ	0x22868
00022860 42 27                    |B'      |		CLR.B	-(A7)
00022862 4e ba f1 d4              |N       |		JSR	0x21a38
00022866 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022868 48 52                    |HR      |		PEA.L	(A2)
0002286a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022870 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022872 48 53                    |HS      |		PEA.L	(A3)
00022874 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002287a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002287c 4c df 1f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3+A4
00022880 4e 5e                    |N^      |		UNLK	A6
00022882 4e 75                    |Nu      |		RTS
00022884 ; --------------------------------------------------------------------------------------
00022884 ; OMSI PASCAL Function
00022884 ;    <LVAR  0x00a 4(r)>
00022884 ;    <LVAR  0x008 1(r)>
00022884 ;    <LVAR -0x07a @ 2(w)>
00022884 ; --------------------------------------------------------------------------------------
00022884 4e 56 ff 2a              |NV *    |		LINK.W	A6,#0xff2a
00022888 bf d5                    |        |		CMPA.L	(A5),A7
0002288a 62 06                    |b       |		BHI	0x22892
0002288c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022890 4e 76                    |Nv      |		TRAPV
00022892 de fc 00 5c              |   \    |		ADDA.W	#0x5c,A7
00022896 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
0002289a 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002289c 20 2e 00 0a              | .      |		MOVE.L	(A6+0xa),D0
000228a0 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000228a6 63 02                    |c       |		BLS	0x228aa
000228a8 4e 4f                    |NO      |		TRAP	#15
000228aa 3d 40 ff 86              |=@      |		MOVE.W	D0,(A6-0x7a)
000228ae 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
000228b2 41 ee ff 86              |A       |		LEA.L	(A6-0x7a),A0
000228b6 2f 08                    |/       |		MOVE.L	A0,-(A7)
000228b8 4e b9 00 01 03 a8        |N       |		JSR	Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
000228be 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000228c0 41 fa e2 ca              |A       |		LEA.L	0x20b8c,A0
000228c4 70 14                    |p       |		MOVEQ.L	#0x14,D0
000228c6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000228c8 51 c8 ff fc              |Q       |		DBF	D0,0x228c6
000228cc 41 fa e2 d0              |A       |		LEA.L	0x20b9e,A0
000228d0 70 08                    |p       |		MOVEQ.L	#0x08,D0
000228d2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000228d4 51 c8 ff fc              |Q       |		DBF	D0,0x228d2
000228d8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000228da 48 6f 00 16              |Ho      |		PEA.L	(A7+0x16)
000228de 3f 01                    |?       |		MOVE.W	D1,-(A7)
000228e0 3f 3c 00 2a              |?< *    |		MOVE.W	#0x2a,-(A7)
000228e4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000228ea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000228ec 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000228f0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000228f2 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
000228f6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000228fc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000228fe 2e ae 00 0a              |.       |		MOVE.L	(A6+0xa),(A7)
00022902 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00022906 4e ba fe 50              |N  P    |		JSR	0x22758
0002290a de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
0002290e 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00022912 4e 5e                    |N^      |		UNLK	A6
00022914 4e 75                    |Nu      |		RTS
00022916 ; --------------------------------------------------------------------------------------
00022916 ; OMSI PASCAL Function
00022916 ;    <LVAR  0x00a 1(r)>
00022916 ;    <LVAR  0x008 1(r)>
00022916 ;    <LVAR -0x07a 2(r)>
00022916 ;    <LVAR -0x07c @ 2(w)>
00022916 ; --------------------------------------------------------------------------------------
00022916 4e 56 ff 18              |NV      |		LINK.W	A6,#0xff18
0002291a bf d5                    |        |		CMPA.L	(A5),A7
0002291c 62 06                    |b       |		BHI	0x22924
0002291e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022922 4e 76                    |Nv      |		TRAPV
00022924 de fc 00 6c              |   l    |		ADDA.W	#0x6c,A7
00022928 48 e7 e0 80              |H       |		MOVEM.L	A0+D2+D1+D0,-(A7)
0002292c 74 01                    |t       |		MOVEQ.L	#0x01,D2
0002292e 10 2e 00 0a              | .      |		MOVE.B	(A6+0xa),D0
00022932 48 80                    |H       |		EXTB.W	D0
00022934 3d 40 ff 84              |=@      |		MOVE.W	D0,(A6-0x7c)
00022938 42 6e ff 86              |Bn      |		CLR.W	(A6-0x7a)
0002293c 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00022940 41 ee ff 84              |A       |		LEA.L	(A6-0x7c),A0
00022944 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022946 4e b9 00 01 03 a8        |N       |		JSR	Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
0002294c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002294e 41 fa e2 82              |A       |		LEA.L	0x20bd2,A0
00022952 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00022954 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022956 51 c9 ff fc              |Q       |		DBF	D1,0x22954
0002295a 41 fa e2 88              |A       |		LEA.L	0x20be4,A0
0002295e 72 08                    |r       |		MOVEQ.L	#0x08,D1
00022960 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022962 51 c9 ff fc              |Q       |		DBF	D1,0x22960
00022966 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022968 48 6f 00 16              |Ho      |		PEA.L	(A7+0x16)
0002296c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002296e 3f 3c 00 34              |?< 4    |		MOVE.W	#0x34,-(A7)
00022972 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022978 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002297a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002297e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022980 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00022984 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002298a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002298c 48 c0                    |H       |		EXTW.L	D0
0002298e 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022990 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00022994 4e ba fd c2              |N       |		JSR	0x22758
00022998 de fc 00 54              |   T    |		ADDA.W	#0x54,A7
0002299c 4c df 01 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0
000229a0 4e 5e                    |N^      |		UNLK	A6
000229a2 4e 75                    |Nu      |		RTS
000229a4 ; --------------------------------------------------------------------------------------
000229a4 ; OMSI PASCAL Function
000229a4 ; --------------------------------------------------------------------------------------
000229a4 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
000229a8 bf d5                    |        |		CMPA.L	(A5),A7
000229aa 62 06                    |b       |		BHI	0x229b2
000229ac 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000229b0 4e 76                    |Nv      |		TRAPV
000229b2 de fc 00 10              |        |		ADDA.W	#0x10,A7
000229b6 48 e7 01 00              |H       |		MOVEM.L	D7,-(A7)
000229ba 4a 39 00 02 39 40        |J9  9@  |		TST.B	0x23940
000229c0 66 12                    |f       |		BNE	0x229d4
000229c2 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
000229c6 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000229ca 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
000229d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000229d2 60 48                    |`H      |		BRA	0x22a1c
000229d4 4e b9 00 02 35 fa        |N   5   |		JSR	exp_FREEZE_WORLD.FIU()
000229da 4e b9 00 02 37 1c        |N   7   |		JSR	exp_MF.IOC()
000229e0 4e b9 00 02 36 78        |N   6x  |		JSR	exp_MF.VAL()
000229e6 4e b9 00 02 36 64        |N   6d  |		JSR	exp_MF.TYP()
000229ec 4e b9 00 02 36 18        |N   6   |		JSR	exp_RESET.SEQ()
000229f2 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
000229f4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000229f6 1f 07                    |        |		MOVE.B	D7,-(A7)
000229f8 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
000229fe 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022a00 4a 1f                    |J       |		TST.B	(A7)+
00022a02 67 0a                    |g       |		BEQ	0x22a0e
00022a04 1f 07                    |        |		MOVE.B	D7,-(A7)
00022a06 4e b9 00 02 36 98        |N   6   |		JSR	0x23698
00022a0c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022a0e 52 07                    |R       |		ADDQ.B	#0x1,D7
00022a10 0c 07 00 0f              |        |		CMPI.B	#0x0f,D7
00022a14 6f de                    |o       |		BLE	0x229f4
00022a16 4e b9 00 02 35 e6        |N   5   |		JSR	exp_MF.FIU()
00022a1c 4c df 00 80              |L       |		MOVEM.L	(A7)+,D7
00022a20 4e 5e                    |N^      |		UNLK	A6
00022a22 4e 75                    |Nu      |		RTS
00022a24 ; --------------------------------------------------------------------------------------
00022a24 ; OMSI PASCAL Function
00022a24 ;    <LVAR  0x008 4(r)>
00022a24 ;    <LVAR -0x006 1(r)>
00022a24 ;    <LVAR -0x007 @ 1(r)>
00022a24 ;    <LVAR -0x008 @ 1(r)>
00022a24 ;    <LVAR -0x009 @ 1(r)>
00022a24 ;    <LVAR -0x00a @>
00022a24 ;    <LVAR -0x00b @ 1(r)>
00022a24 ;    <LVAR -0x00c @>
00022a24 ; --------------------------------------------------------------------------------------
00022a24 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
00022a28 bf d5                    |        |		CMPA.L	(A5),A7
00022a2a 62 06                    |b       |		BHI	0x22a32
00022a2c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022a30 4e 76                    |Nv      |		TRAPV
00022a32 de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00022a36 48 e7 fb e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7)
00022a3a 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00022a3e 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
00022a42 74 07                    |t       |		MOVEQ.L	#0x07,D2
00022a44 76 09                    |v       |		MOVEQ.L	#0x09,D3
00022a46 78 08                    |x       |		MOVEQ.L	#0x08,D4
00022a48 42 12                    |B       |		CLR.B	(A2)
00022a4a 20 51                    | Q      |		MOVEA.L	(A1),A0
00022a4c 42 10                    |B       |		CLR.B	(A0)
00022a4e 4a 39 00 02 39 40        |J9  9@  |		TST.B	0x23940
00022a54 66 04                    |f       |		BNE	0x22a5a
00022a56 60 00 01 2a              |`  *    |		BRA	0x22b82
00022a5a 48 52                    |HR      |		PEA.L	(A2)
00022a5c 4e b9 00 02 36 4e        |N   6N  |		JSR	exp_HALT.SEQ(&Fr)
00022a62 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a64 4a 12                    |J       |		TST.B	(A2)
00022a66 67 00 00 9e              |g       |		BEQ	0x22b06
00022a6a 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
00022a6e 4e b9 00 02 36 2e        |N   6.  |		JSR	exp_READ_CUR_UADR.SEQ(&Sr_2)
00022a74 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a76 42 80                    |B       |		CLR.L	D0
00022a78 10 2e ff f9              | .      |		MOVE.B	(A6-0x7),D0
00022a7c e1 40                    | @      |		ASL.W	#0x8,D0
00022a7e 42 81                    |B       |		CLR.L	D1
00022a80 12 2e ff fa              | .      |		MOVE.B	(A6-0x6),D1
00022a84 d2 40                    | @      |		ADD.W	D0,D1
00022a86 48 c1                    |H       |		EXTW.L	D1
00022a88 2c 01                    |,       |		MOVE.L	D1,D6
00022a8a 20 06                    |        |		MOVE.L	D6,D0
00022a8c 04 80 00 00 02 00        |        |		SUBI.L	#0x00000200,D0
00022a92 b0 83                    |        |		CMP.L	D3,D0
00022a94 62 68                    |bh      |		BHI	0x22afe
00022a96 d0 40                    | @      |		ADD.W	D0,D0
00022a98 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00022aa0 00 14                    |        |		.CONST	0x14			; [0x0] -> 0x22ab4
00022aa2 00 1c                    |        |		.CONST	0x1c			; [0x1] -> 0x22abc
00022aa4 00 24                    | $      |		.CONST	0x24			; [0x2] -> 0x22ac4
00022aa6 00 2c                    | ,      |		.CONST	0x2c			; [0x3] -> 0x22acc
00022aa8 00 34                    | 4      |		.CONST	0x34			; [0x4] -> 0x22ad4
00022aaa 00 3c                    | <      |		.CONST	0x3c			; [0x5] -> 0x22adc
00022aac 00 44                    | D      |		.CONST	0x44			; [0x6] -> 0x22ae4
00022aae 00 4a                    | J      |		.CONST	0x4a			; [0x7] -> 0x22aea
00022ab0 00 50                    | P      |		.CONST	0x50			; [0x8] -> 0x22af0
00022ab2 00 56                    | V      |		.CONST	0x56			; [0x9] -> 0x22af6
00022ab4					switch@0x22a98[0x0]:
00022ab4 20 51                    | Q      |		MOVEA.L	(A1),A0
00022ab6 10 bc 00 01              |        |		MOVE.B	#0x01,(A0)
00022aba 60 48                    |`H      |		BRA	0x22b04
00022abc					switch@0x22a98[0x1]:
00022abc 20 51                    | Q      |		MOVEA.L	(A1),A0
00022abe 10 bc 00 02              |        |		MOVE.B	#0x02,(A0)
00022ac2 60 40                    |`@      |		BRA	0x22b04
00022ac4					switch@0x22a98[0x2]:
00022ac4 20 51                    | Q      |		MOVEA.L	(A1),A0
00022ac6 10 bc 00 03              |        |		MOVE.B	#0x03,(A0)
00022aca 60 38                    |`8      |		BRA	0x22b04
00022acc					switch@0x22a98[0x3]:
00022acc 20 51                    | Q      |		MOVEA.L	(A1),A0
00022ace 10 bc 00 04              |        |		MOVE.B	#0x04,(A0)
00022ad2 60 30                    |`0      |		BRA	0x22b04
00022ad4					switch@0x22a98[0x4]:
00022ad4 20 51                    | Q      |		MOVEA.L	(A1),A0
00022ad6 10 bc 00 05              |        |		MOVE.B	#0x05,(A0)
00022ada 60 28                    |`(      |		BRA	0x22b04
00022adc					switch@0x22a98[0x5]:
00022adc 20 51                    | Q      |		MOVEA.L	(A1),A0
00022ade 10 bc 00 06              |        |		MOVE.B	#0x06,(A0)
00022ae2 60 20                    |`       |		BRA	0x22b04
00022ae4					switch@0x22a98[0x6]:
00022ae4 20 51                    | Q      |		MOVEA.L	(A1),A0
00022ae6 10 82                    |        |		MOVE.B	D2,(A0)
00022ae8 60 1a                    |`       |		BRA	0x22b04
00022aea					switch@0x22a98[0x7]:
00022aea 20 51                    | Q      |		MOVEA.L	(A1),A0
00022aec 10 84                    |        |		MOVE.B	D4,(A0)
00022aee 60 14                    |`       |		BRA	0x22b04
00022af0					switch@0x22a98[0x8]:
00022af0 20 51                    | Q      |		MOVEA.L	(A1),A0
00022af2 10 83                    |        |		MOVE.B	D3,(A0)
00022af4 60 0e                    |`       |		BRA	0x22b04
00022af6					switch@0x22a98[0x9]:
00022af6 20 51                    | Q      |		MOVEA.L	(A1),A0
00022af8 10 bc 00 0a              |        |		MOVE.B	#0x0a,(A0)
00022afc 60 06                    |`       |		BRA	0x22b04
00022afe 20 51                    | Q      |		MOVEA.L	(A1),A0
00022b00 10 bc 00 0d              |        |		MOVE.B	#0x0d,(A0)
00022b04 60 7c                    |`|      |		BRA	0x22b82
00022b06 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00022b08 be 82                    |        |		CMP.L	D2,D7
00022b0a 63 02                    |c       |		BLS	0x22b0e
00022b0c 4e 4f                    |NO      |		TRAP	#15
00022b0e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022b10 41 fa e7 31              |A  1    |		LEA.L	0x21243,A0
00022b14 1f 30 78 00              | 0x     |		MOVE.B	(A0+D7.L),-(A7)
00022b18 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00022b1e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022b20 4a 1f                    |J       |		TST.B	(A7)+
00022b22 67 2c                    |g,      |		BEQ	0x22b50
00022b24 41 fa e7 1d              |A       |		LEA.L	0x21243,A0
00022b28 1f 30 78 00              | 0x     |		MOVE.B	(A0+D7.L),-(A7)
00022b2c 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00022b30 48 6e ff f5              |Hn      |		PEA.L	(A6-0xb)
00022b34 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00022b38 4e b9 00 01 04 84        |N       |		JSR	DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
00022b3e de fc 00 0e              |        |		ADDA.W	#0xe,A7
00022b42 4a 2e ff f5              |J.      |		TST.B	(A6-0xb)
00022b46 67 08                    |g       |		BEQ	0x22b50
00022b48 20 51                    | Q      |		MOVEA.L	(A1),A0
00022b4a 10 bc 00 0c              |        |		MOVE.B	#0x0c,(A0)
00022b4e 60 32                    |`2      |		BRA	0x22b82
00022b50 52 87                    |R       |		ADDQ.L	#0x1,D7
00022b52 be 82                    |        |		CMP.L	D2,D7
00022b54 6f b2                    |o       |		BLE	0x22b08
00022b56 42 27                    |B'      |		CLR.B	-(A7)
00022b58 48 6e ff f7              |Hn      |		PEA.L	(A6-0x9)
00022b5c 4e b9 00 02 35 c8        |N   5   |		JSR	exp_READ_PAREG.FIU(Sw_1, &Sr_1)
00022b62 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022b64 42 80                    |B       |		CLR.L	D0
00022b66 10 2e ff f7              | .      |		MOVE.B	(A6-0x9),D0
00022b6a 32 00                    |2       |		MOVE.W	D0,D1
00022b6c 02 41 00 f7              | A      |		ANDI.W	#0x00f7,D1
00022b70 0c 41 00 f7              | A      |		CMPI.W	#0x00f7,D1
00022b74 67 02                    |g       |		BEQ	0x22b78
00022b76 60 d0                    |`       |		BRA	0x22b48
00022b78 c0 44                    | D      |		AND.W	D4,D0
00022b7a 66 06                    |f       |		BNE	0x22b82
00022b7c 20 51                    | Q      |		MOVEA.L	(A1),A0
00022b7e 10 bc 00 0b              |        |		MOVE.B	#0x0b,(A0)
00022b82 4c df 07 df              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2
00022b86 4e 5e                    |N^      |		UNLK	A6
00022b88 4e 75                    |Nu      |		RTS
00022b8a ; --------------------------------------------------------------------------------------
00022b8a ; OMSI PASCAL Function
00022b8a ;    <LVAR -0x004 @ 1(r)>
00022b8a ;    <LVAR -0x008 @>
00022b8a ;    <LVAR -0x00a @ 2(r)>
00022b8a ;    <LVAR -0x00c 2(w)>
00022b8a ;    <LVAR -0x00f @ 1(r)>
00022b8a ;    <LVAR -0x014 @ 1(r)>
00022b8a ; --------------------------------------------------------------------------------------
00022b8a 4e 56 ff 74              |NV t    |		LINK.W	A6,#0xff74
00022b8e bf d5                    |        |		CMPA.L	(A5),A7
00022b90 62 06                    |b       |		BHI	0x22b98
00022b92 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022b96 4e 76                    |Nv      |		TRAPV
00022b98 de fc 00 78              |   x    |		ADDA.W	#0x78,A7
00022b9c 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022ba0 45 ee ff f6              |E       |		LEA.L	(A6-0xa),A2
00022ba4 47 ee ff ec              |G       |		LEA.L	(A6-0x14),A3
00022ba8 49 f9 00 02 39 40        |I   9@  |		LEA.L	0x23940,A4
00022bae 74 01                    |t       |		MOVEQ.L	#0x01,D2
00022bb0 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
00022bb2 78 02                    |x       |		MOVEQ.L	#0x02,D4
00022bb4 42 52                    |BR      |		CLR.W	(A2)
00022bb6 2f 3c 00 00 fc 10        |/<      |		MOVE.L	#0xfc10,-(A7)
00022bbc 20 4a                    | J      |		MOVEA.L	A2,A0
00022bbe 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022bc0 52 97                    |R       |		ADDQ.L	#0x1,(A7)
00022bc2 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022bc4 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00022bca de c3                    |        |		ADDA.W	D3,A7
00022bcc 42 14                    |B       |		CLR.B	(A4)
00022bce 30 12                    |0       |		MOVE.W	(A2),D0
00022bd0 c0 42                    | B      |		AND.W	D2,D0
00022bd2 b0 42                    | B      |		CMP.W	D2,D0
00022bd4 66 02                    |f       |		BNE	0x22bd8
00022bd6 52 14                    |R       |		ADDQ.B	#0x1,(A4)
00022bd8 42 39 00 02 39 41        |B9  9A  |		CLR.B	0x23941
00022bde 30 12                    |0       |		MOVE.W	(A2),D0
00022be0 b0 44                    | D      |		CMP.W	D4,D0
00022be2 65 06                    |e       |		BCS	0x22bea
00022be4 52 39 00 02 39 41        |R9  9A  |		ADDQ.B	#0x1,0x23941
00022bea 4e ba fd b8              |N       |		JSR	0x229a4
00022bee 41 fa e0 28              |A  (    |		LEA.L	0x20c18,A0
00022bf2 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022bf4 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022bf6 51 c8 ff fc              |Q       |		DBF	D0,0x22bf4
00022bfa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022bfc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c00 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022c02 3f 3c 00 34              |?< 4    |		MOVE.W	#0x34,-(A7)
00022c06 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022c0c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c0e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022c14 de fc 00 36              |   6    |		ADDA.W	#0x36,A7
00022c18 1e bc 00 1b              |        |		MOVE.B	#0x1b,(A7)
00022c1c 4e b9 00 01 03 d0        |N       |		JSR	WriteConsoleChar(chr : char)
00022c22 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c24 20 4f                    | O      |		MOVEA.L	A7,A0
00022c26 43 fa df f0              |C       |		LEA.L	0x20c18,A1
00022c2a 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022c2c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022c2e 51 c8 ff fc              |Q       |		DBF	D0,0x22c2c
00022c32 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c34 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c38 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022c3a 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00022c3e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022c44 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c46 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00022c4c de c3                    |        |		ADDA.W	D3,A7
00022c4e 48 53                    |HS      |		PEA.L	(A3)
00022c50 4e b9 00 01 05 e0        |N       |		JSR	Get_fc01() : Byte
00022c56 1e 93                    |        |		MOVE.B	(A3),(A7)
00022c58 4e ba ed b0              |N       |		JSR	0x21a0a
00022c5c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022c5e 10 1f                    |        |		MOVE.B	(A7)+,D0
00022c60 48 80                    |H       |		EXTB.W	D0
00022c62 41 83                    |A       |		CHK.W	D3,D0
00022c64 1e 00                    |        |		MOVE.B	D0,D7
00022c66 be 04                    |        |		CMP.B	D4,D7
00022c68 67 04                    |g       |		BEQ	0x22c6e
00022c6a 4a 14                    |J       |		TST.B	(A4)
00022c6c 67 5a                    |gZ      |		BEQ	0x22cc8
00022c6e 41 fa df c4              |A       |		LEA.L	0x20c34,A0
00022c72 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022c74 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022c76 51 c8 ff fc              |Q       |		DBF	D0,0x22c74
00022c7a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c7c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c80 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022c82 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
00022c86 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022c8c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022c8e 42 17                    |B       |		CLR.B	(A7)
00022c90 42 27                    |B'      |		CLR.B	-(A7)
00022c92 48 78 00 00              |Hx      |		PEA.L	0x0
00022c96 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00022c9a 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00022c9e 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00022ca4 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00022ca8 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00022cac 66 1a                    |f       |		BNE	0x22cc8
00022cae 1f 04                    |        |		MOVE.B	D4,-(A7)
00022cb0 1f 02                    |        |		MOVE.B	D2,-(A7)
00022cb2 48 78 00 01              |Hx      |		PEA.L	0x1
00022cb6 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00022cba 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00022cbe 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00022cc4 de fc 00 10              |        |		ADDA.W	#0x10,A7
00022cc8 be 04                    |        |		CMP.B	D4,D7
00022cca 66 0c                    |f       |		BNE	0x22cd8
00022ccc 1f 13                    |        |		MOVE.B	(A3),-(A7)
00022cce 4e ba f4 f8              |N       |		JSR	0x221c8
00022cd2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022cd4 60 00 00 82              |`       |		BRA	0x22d58
00022cd8 be 02                    |        |		CMP.B	D2,D7
00022cda 66 08                    |f       |		BNE	0x22ce4
00022cdc 1f 13                    |        |		MOVE.B	(A3),-(A7)
00022cde 4e ba f4 38              |N  8    |		JSR	0x22118
00022ce2 60 ee                    |`       |		BRA	0x22cd2
00022ce4 4a 07                    |J       |		TST.B	D7
00022ce6 66 08                    |f       |		BNE	0x22cf0
00022ce8 1f 13                    |        |		MOVE.B	(A3),-(A7)
00022cea 4e ba f5 f0              |N       |		JSR	0x222dc
00022cee 60 e2                    |`       |		BRA	0x22cd2
00022cf0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022cf2 4e b9 00 01 05 f2        |N       |		JSR	Get_fc02() : Word
00022cf8 30 1f                    |0       |		MOVE.W	(A7)+,D0
00022cfa 3d 40 ff f4              |=@      |		MOVE.W	D0,(A6-0xc)
00022cfe 3c 00                    |<       |		MOVE.W	D0,D6
00022d00 02 46 00 ff              | F      |		ANDI.W	#0x00ff,D6
00022d04 32 00                    |2       |		MOVE.W	D0,D1
00022d06 e0 49                    | I      |		LSR.W	#0x8,D1
00022d08 1f 01                    |        |		MOVE.B	D1,-(A7)
00022d0a 42 81                    |B       |		CLR.L	D1
00022d0c 12 1f                    |        |		MOVE.B	(A7)+,D1
00022d0e 43 83                    |C       |		CHK.W	D3,D1
00022d10 1a 01                    |        |		MOVE.B	D1,D5
00022d12 48 6e ff f1              |Hn      |		PEA.L	(A6-0xf)
00022d16 4e ba fd 0c              |N       |		JSR	0x22a24
00022d1a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022d1c 4a 2e ff f1              |J.      |		TST.B	(A6-0xf)
00022d20 67 12                    |g       |		BEQ	0x22d34
00022d22 10 2e ff f1              | .      |		MOVE.B	(A6-0xf),D0
00022d26 48 80                    |H       |		EXTB.W	D0
00022d28 41 bc 00 0d              |A       |		CHK.W	#0xd,D0
00022d2c 1f 00                    |        |		MOVE.B	D0,-(A7)
00022d2e 4e ba f9 66              |N  f    |		JSR	0x22696
00022d32 60 9e                    |`       |		BRA	0x22cd2
00022d34 4a 40                    |J@      |		TST.W	D0
00022d36 67 16                    |g       |		BEQ	0x22d4e
00022d38 42 80                    |B       |		CLR.L	D0
00022d3a 30 06                    |0       |		MOVE.W	D6,D0
00022d3c 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022d3e 10 05                    |        |		MOVE.B	D5,D0
00022d40 48 80                    |H       |		EXTB.W	D0
00022d42 41 83                    |A       |		CHK.W	D3,D0
00022d44 1f 00                    |        |		MOVE.B	D0,-(A7)
00022d46 4e ba fb 3c              |N  <    |		JSR	0x22884
00022d4a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022d4c 60 0a                    |`       |		BRA	0x22d58
00022d4e 1f 13                    |        |		MOVE.B	(A3),-(A7)
00022d50 1f 07                    |        |		MOVE.B	D7,-(A7)
00022d52 4e ba fb c2              |N       |		JSR	0x22916
00022d56 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022d58 42 52                    |BR      |		CLR.W	(A2)
00022d5a 20 4a                    | J      |		MOVEA.L	A2,A0
00022d5c 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022d5e 52 97                    |R       |		ADDQ.L	#0x1,(A7)
00022d60 2f 3c 00 00 fc 10        |/<      |		MOVE.L	#0xfc10,-(A7)
00022d66 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022d68 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00022d6e de c3                    |        |		ADDA.W	D3,A7
00022d70 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022d74 4e 5e                    |N^      |		UNLK	A6
00022d76 4e 75                    |Nu      |		RTS
00022d78 ; --------------------------------------------------------------------------------------
00022d78 ; OMSI PASCAL Function
00022d78 ;    <LVAR -0x004 @ 2(r)>
00022d78 ;    <LVAR -0x008 @ 4(r)>
00022d78 ; --------------------------------------------------------------------------------------
00022d78 4e 56 ff 74              |NV t    |		LINK.W	A6,#0xff74
00022d7c bf d5                    |        |		CMPA.L	(A5),A7
00022d7e 62 06                    |b       |		BHI	0x22d86
00022d80 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022d84 4e 76                    |Nv      |		TRAPV
00022d86 de fc 00 84              |        |		ADDA.W	#0x84,A7
00022d8a 48 e7 f8 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7)
00022d8e 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
00022d92 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00022d98 47 f9 00 01 03 e0        |G       |		LEA.L	WriteConsoleStringCrLf(str : String),A3
00022d9e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022da0 74 05                    |t       |		MOVEQ.L	#0x05,D2
00022da2 76 0e                    |v       |		MOVEQ.L	#0x0e,D3
00022da4 78 08                    |x       |		MOVEQ.L	#0x08,D4
00022da6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022da8 4e b9 00 01 06 0a        |N       |		JSR	Is_fc07_four() : Bool
00022dae 4a 1f                    |J       |		TST.B	(A7)+
00022db0 66 0c                    |f       |		BNE	0x22dbe
00022db2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022db4 4e b9 00 01 06 04        |N       |		JSR	Is_fc07_three() : Bool
00022dba 4a 1f                    |J       |		TST.B	(A7)+
00022dbc 67 46                    |gF      |		BEQ	0x22e04
00022dbe 2f 3c 93 03 e0 00        |/<      |		MOVE.L	#0x9303e000,-(A7)
00022dc4 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022dc6 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
00022dca 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022dcc 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022dce 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00022dd2 4e b9 00 01 02 3a        |N    :  |		JSR	KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
00022dd8 de c3                    |        |		ADDA.W	D3,A7
00022dda 30 2e ff fc              |0.      |		MOVE.W	(A6-0x4),D0
00022dde c0 44                    | D      |		AND.W	D4,D0
00022de0 66 22                    |f"      |		BNE	0x22e04
00022de2 41 fa de a0              |A       |		LEA.L	0x20c84,A0
00022de6 70 13                    |p       |		MOVEQ.L	#0x13,D0
00022de8 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022dea 51 c8 ff fc              |Q       |		DBF	D0,0x22de8
00022dee 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022df0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022df4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022df6 3f 3c 00 50              |?< P    |		MOVE.W	#0x50,-(A7)
00022dfa 4e 92                    |N       |		JSR	(A2)
00022dfc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022dfe 4e 93                    |N       |		JSR	(A3)
00022e00 de fc 00 54              |   T    |		ADDA.W	#0x54,A7
00022e04 48 78 f8 00              |Hx      |		PEA.L	0xfffff800
00022e08 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022e0a 20 49                    | I      |		MOVEA.L	A1,A0
00022e0c 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022e0e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022e10 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00022e14 4e b9 00 01 02 3a        |N    :  |		JSR	KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
00022e1a de c3                    |        |		ADDA.W	D3,A7
00022e1c 20 11                    |        |		MOVE.L	(A1),D0
00022e1e 02 80 80 00 00 00        |        |		ANDI.L	#0x80000000,D0
00022e24 67 0a                    |g       |		BEQ	0x22e30
00022e26 20 11                    |        |		MOVE.L	(A1),D0
00022e28 02 80 00 00 02 00        |        |		ANDI.L	#0x00000200,D0
00022e2e 67 22                    |g"      |		BEQ	0x22e52
00022e30 41 fa de 88              |A       |		LEA.L	0x20cba,A0
00022e34 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
00022e36 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022e38 51 c8 ff fc              |Q       |		DBF	D0,0x22e36
00022e3c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022e3e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022e42 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022e44 3f 3c 00 36              |?< 6    |		MOVE.W	#0x36,-(A7)
00022e48 4e 92                    |N       |		JSR	(A2)
00022e4a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022e4c 4e 93                    |N       |		JSR	(A3)
00022e4e de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00022e52 20 11                    |        |		MOVE.L	(A1),D0
00022e54 c0 84                    |        |		AND.L	D4,D0
00022e56 67 22                    |g"      |		BEQ	0x22e7a
00022e58 41 fa de 9e              |A       |		LEA.L	0x20cf8,A0
00022e5c 70 1e                    |p       |		MOVEQ.L	#0x1e,D0
00022e5e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022e60 51 c8 ff fc              |Q       |		DBF	D0,0x22e5e
00022e64 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022e66 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022e6a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022e6c 3f 3c 00 3e              |?< >    |		MOVE.W	#0x3e,-(A7)
00022e70 4e 92                    |N       |		JSR	(A2)
00022e72 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022e74 4e 93                    |N       |		JSR	(A3)
00022e76 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00022e7a 4c df 0f 1f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3
00022e7e 4e 5e                    |N^      |		UNLK	A6
00022e80 4e 75                    |Nu      |		RTS
00022e82 ; --------------------------------------------------------------------------------------
00022e82 ; OMSI PASCAL Function
00022e82 ;    <LVAR  0x00c 4(r)>
00022e82 ;    <LVAR  0x008 4(r)>
00022e82 ;    <LVAR -0x004 @ 4(r)>
00022e82 ; --------------------------------------------------------------------------------------
00022e82 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
00022e86 bf d5                    |        |		CMPA.L	(A5),A7
00022e88 62 06                    |b       |		BHI	0x22e90
00022e8a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022e8e 4e 76                    |Nv      |		TRAPV
00022e90 de fc 00 20              |        |		ADDA.W	#0x20,A7
00022e94 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
00022e98 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00022e9c 42 91                    |B       |		CLR.L	(A1)
00022e9e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00022ea2 20 49                    | I      |		MOVEA.L	A1,A0
00022ea4 2f 08                    |/       |		MOVE.L	A0,-(A7)
00022ea6 52 97                    |R       |		ADDQ.L	#0x1,(A7)
00022ea8 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00022eac 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00022eb2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022eb4 2e 94                    |.       |		MOVE.L	(A4),(A7)
00022eb6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022eb8 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00022eba 48 78 00 06              |Hx      |		PEA.L	0x6
00022ebe 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
00022ec4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022ec6 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00022eca 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022ed0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022ed2 48 6c 00 05              |Hl      |		PEA.L	(A4+0x5)
00022ed6 4e b9 00 01 04 40        |N    @  |		JSR	FSCALL_10440
00022edc de fc 00 0c              |        |		ADDA.W	#0xc,A7
00022ee0 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
00022ee4 4e 5e                    |N^      |		UNLK	A6
00022ee6 4e 75                    |Nu      |		RTS
00022ee8 ; --------------------------------------------------------------------------------------
00022ee8 ; OMSI PASCAL Function
00022ee8 ;    <LVAR -0x004 @>
00022ee8 ;    <LVAR -0x008 @ 4(r)>
00022ee8 ; --------------------------------------------------------------------------------------
00022ee8 4e 56 ff a4              |NV      |		LINK.W	A6,#0xffa4
00022eec bf d5                    |        |		CMPA.L	(A5),A7
00022eee 62 06                    |b       |		BHI	0x22ef6
00022ef0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022ef4 4e 76                    |Nv      |		TRAPV
00022ef6 de fc 00 54              |   T    |		ADDA.W	#0x54,A7
00022efa 48 e7 fe f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022efe 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
00022f02 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00022f08 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022f0a 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00022f0c 76 0b                    |v       |		MOVEQ.L	#0x0b,D3
00022f0e 78 10                    |x       |		MOVEQ.L	#0x10,D4
00022f10 7a 12                    |z       |		MOVEQ.L	#0x12,D5
00022f12 7c 0d                    ||       |		MOVEQ.L	#0x0d,D6
00022f14 9e c2                    |        |		SUBA.W	D2,A7
00022f16 20 4f                    | O      |		MOVEA.L	A7,A0
00022f18 43 fa dd de              |C       |		LEA.L	0x20cf8,A1
00022f1c 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022f1e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022f20 51 c8 ff fc              |Q       |		DBF	D0,0x22f1e
00022f24 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022f26 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022f2a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022f2c 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022f2e 4e 93                    |N       |		JSR	(A3)
00022f30 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022f32 1e 81                    |        |		MOVE.B	D1,(A7)
00022f34 1f 01                    |        |		MOVE.B	D1,-(A7)
00022f36 48 78 00 01              |Hx      |		PEA.L	0x1
00022f3a 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00022f3e 48 52                    |HR      |		PEA.L	(A2)
00022f40 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00022f46 de c4                    |        |		ADDA.W	D4,A7
00022f48 20 4f                    | O      |		MOVEA.L	A7,A0
00022f4a 43 fa dd b8              |C       |		LEA.L	0x20d04,A1
00022f4e 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022f50 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022f52 51 c8 ff fc              |Q       |		DBF	D0,0x22f50
00022f56 2f 3c 80 00 1f fb        |/<      |		MOVE.L	#0x80001ffb,-(A7)
00022f5c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022f5e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00022f62 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022f64 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00022f68 4e 93                    |N       |		JSR	(A3)
00022f6a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f6c 28 4a                    |(J      |		MOVEA.L	A2,A4
00022f6e 4e ba ff 12              |N       |		JSR	0x22e82
00022f72 de c2                    |        |		ADDA.W	D2,A7
00022f74 20 4f                    | O      |		MOVEA.L	A7,A0
00022f76 43 fa dd 9c              |C       |		LEA.L	0x20d14,A1
00022f7a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022f7c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022f7e 51 c8 ff fc              |Q       |		DBF	D0,0x22f7c
00022f82 2f 3c 80 00 3f fb        |/<  ?   |		MOVE.L	#0x80003ffb,-(A7)
00022f88 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022f8a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00022f8e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022f90 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022f92 4e 93                    |N       |		JSR	(A3)
00022f94 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f96 28 4a                    |(J      |		MOVEA.L	A2,A4
00022f98 4e ba fe e8              |N       |		JSR	0x22e82
00022f9c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f9e 20 4f                    | O      |		MOVEA.L	A7,A0
00022fa0 43 fa dd 7e              |C  ~    |		LEA.L	0x20d20,A1
00022fa4 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022fa6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022fa8 51 c8 ff fc              |Q       |		DBF	D0,0x22fa6
00022fac 2f 3c 80 00 5f fb        |/<  _   |		MOVE.L	#0x80005ffb,-(A7)
00022fb2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022fb4 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00022fb8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022fba 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022fbc 4e 93                    |N       |		JSR	(A3)
00022fbe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022fc0 28 4a                    |(J      |		MOVEA.L	A2,A4
00022fc2 4e ba fe be              |N       |		JSR	0x22e82
00022fc6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022fc8 20 4f                    | O      |		MOVEA.L	A7,A0
00022fca 43 fa dd 60              |C  `    |		LEA.L	0x20d2c,A1
00022fce 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022fd0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022fd2 51 c8 ff fc              |Q       |		DBF	D0,0x22fd0
00022fd6 2f 3c 80 00 7d fb        |/<  }   |		MOVE.L	#0x80007dfb,-(A7)
00022fdc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022fde 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00022fe2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022fe4 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022fe6 4e 93                    |N       |		JSR	(A3)
00022fe8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022fea 28 4a                    |(J      |		MOVEA.L	A2,A4
00022fec 4e ba fe 94              |N       |		JSR	0x22e82
00022ff0 de c5                    |        |		ADDA.W	D5,A7
00022ff2 4e b9 00 01 06 0a        |N       |		JSR	Is_fc07_four() : Bool
00022ff8 4a 1f                    |J       |		TST.B	(A7)+
00022ffa 66 0e                    |f       |		BNE	0x2300a
00022ffc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022ffe 4e b9 00 01 06 04        |N       |		JSR	Is_fc07_three() : Bool
00023004 4a 1f                    |J       |		TST.B	(A7)+
00023006 67 00 00 ac              |g       |		BEQ	0x230b4
0002300a 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
0002300e 20 4f                    | O      |		MOVEA.L	A7,A0
00023010 43 fa dd 26              |C  &    |		LEA.L	0x20d38,A1
00023014 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023016 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023018 51 c8 ff fc              |Q       |		DBF	D0,0x23016
0002301c 2f 3c 00 07 1f fb        |/<      |		MOVE.L	#0x71ffb,-(A7)
00023022 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023024 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00023028 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002302a 3f 06                    |?       |		MOVE.W	D6,-(A7)
0002302c 4e 93                    |N       |		JSR	(A3)
0002302e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023030 28 4a                    |(J      |		MOVEA.L	A2,A4
00023032 4e ba fe 4e              |N  N    |		JSR	0x22e82
00023036 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023038 20 4f                    | O      |		MOVEA.L	A7,A0
0002303a 43 fa dd 0a              |C       |		LEA.L	0x20d46,A1
0002303e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023040 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023042 51 c8 ff fc              |Q       |		DBF	D0,0x23040
00023046 2f 3c 00 07 3f fb        |/<  ?   |		MOVE.L	#0x73ffb,-(A7)
0002304c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002304e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00023052 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023054 3f 06                    |?       |		MOVE.W	D6,-(A7)
00023056 4e 93                    |N       |		JSR	(A3)
00023058 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002305a 28 4a                    |(J      |		MOVEA.L	A2,A4
0002305c 4e ba fe 24              |N  $    |		JSR	0x22e82
00023060 de c5                    |        |		ADDA.W	D5,A7
00023062 2e ba dc f8              |.       |		MOVE.L	0x20d5c,(A7)
00023066 2f 3a dc f0              |/:      |		MOVE.L	0x20d58,-(A7)
0002306a 2f 3a dc e8              |/:      |		MOVE.L	0x20d54,-(A7)
0002306e 2f 3c 00 07 5f fb        |/<  _   |		MOVE.L	#0x75ffb,-(A7)
00023074 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023076 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002307a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002307c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002307e 4e 93                    |N       |		JSR	(A3)
00023080 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023082 28 4a                    |(J      |		MOVEA.L	A2,A4
00023084 4e ba fd fc              |N       |		JSR	0x22e82
00023088 de c4                    |        |		ADDA.W	D4,A7
0002308a 2e ba dc dc              |.       |		MOVE.L	0x20d68,(A7)
0002308e 2f 3a dc d4              |/:      |		MOVE.L	0x20d64,-(A7)
00023092 2f 3a dc cc              |/:      |		MOVE.L	0x20d60,-(A7)
00023096 2f 3c 00 07 7f fb        |/<      |		MOVE.L	#0x77ffb,-(A7)
0002309c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002309e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000230a2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000230a4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000230a6 4e 93                    |N       |		JSR	(A3)
000230a8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000230aa 28 4a                    |(J      |		MOVEA.L	A2,A4
000230ac 4e ba fd d4              |N       |		JSR	0x22e82
000230b0 de fc 00 14              |        |		ADDA.W	#0x14,A7
000230b4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000230b6 4e b9 00 01 04 48        |N    H  |		JSR	FSCALL_10448
000230bc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000230be 42 17                    |B       |		CLR.B	(A7)
000230c0 1f 01                    |        |		MOVE.B	D1,-(A7)
000230c2 48 78 00 01              |Hx      |		PEA.L	0x1
000230c6 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000230ca 48 52                    |HR      |		PEA.L	(A2)
000230cc 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000230d2 de c4                    |        |		ADDA.W	D4,A7
000230d4 4c df 1f 7f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4
000230d8 4e 5e                    |N^      |		UNLK	A6
000230da 4e 75                    |Nu      |		RTS
000230dc ; --------------------------------------------------------------------------------------
000230dc ; OMSI PASCAL Function
000230dc ; --------------------------------------------------------------------------------------
000230dc					START:
000230dc 4f fa 00 08              |O       |		LEA.L	MAIN,A7
000230e0 4e f9 00 01 02 80        |N       |		JMP	?start_program
000230e6					MAIN:
000230e6 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000230ec 47 f9 00 02 39 44        |G   9D  |		LEA.L	0x23944,A3
000230f2 49 f9 00 01 03 b0        |I       |		LEA.L	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool),A4
000230f8 72 01                    |r       |		MOVEQ.L	#0x01,D1
000230fa 74 06                    |t       |		MOVEQ.L	#0x06,D2
000230fc 76 1c                    |v       |		MOVEQ.L	#0x1c,D3
000230fe 78 22                    |x"      |		MOVEQ.L	#0x22,D4
00023100 7a 20                    |z       |		MOVEQ.L	#0x20,D5
00023102 7c 05                    ||       |		MOVEQ.L	#0x05,D6
00023104 7e 1a                    |~       |		MOVEQ.L	#0x1a,D7
00023106 48 78 00 01              |Hx      |		PEA.L	0x1
0002310a 4e b9 00 01 03 f4        |N       |		JSR	SetConsoleConfig(a : Long)
00023110 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023112 42 17                    |B       |		CLR.B	(A7)
00023114 4e b9 00 01 04 04        |N       |		JSR	SetSomeKindOfFlag(a : Byte)
0002311a 3e 81                    |>       |		MOVE.W	D1,(A7)
0002311c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002311e 4e b9 00 01 02 10        |N       |		JSR	KC08_PortSomething(port: Word; b: Byte)
00023124 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023126 48 78 00 0f              |Hx      |		PEA.L	0xf
0002312a 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
00023130 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023132 4e ba e3 46              |N  F    |		JSR	0x2147a
00023136 48 79 00 02 39 3f        |Hy  9?  |		PEA.L	0x2393f
0002313c 4e b9 00 01 05 aa        |N       |		JSR	Read_fc00() : Byte
00023142 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023144 4e ba e4 00              |N       |		JSR	0x21546
00023148 4e ba e6 2e              |N  .    |		JSR	0x21778
0002314c 3f 3a dc 22              |?: "    |		MOVE.W	0x20d70,-(A7)
00023150 3f 3a dc 1c              |?:      |		MOVE.W	0x20d6e,-(A7)
00023154 3f 3a dc 16              |?:      |		MOVE.W	0x20d6c,-(A7)
00023158 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002315a 20 4f                    | O      |		MOVEA.L	A7,A0
0002315c 43 fa dc 14              |C       |		LEA.L	0x20d72,A1
00023160 70 04                    |p       |		MOVEQ.L	#0x04,D0
00023162 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023164 51 c8 ff fc              |Q       |		DBF	D0,0x23162
00023168 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002316a 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
0002316e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023170 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023172 4e 92                    |N       |		JSR	(A2)
00023174 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023176 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002317a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002317c 3f 06                    |?       |		MOVE.W	D6,-(A7)
0002317e 4e 92                    |N       |		JSR	(A2)
00023180 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023182 42 17                    |B       |		CLR.B	(A7)
00023184 48 79 00 02 39 3e        |Hy  9>  |		PEA.L	0x2393e
0002318a 4e 94                    |N       |		JSR	(A4)
0002318c de c7                    |        |		ADDA.W	D7,A7
0002318e 4e ba fd 58              |N  X    |		JSR	0x22ee8
00023192 42 39 00 02 39 48        |B9  9H  |		CLR.B	0x23948
00023198 42 39 00 02 39 49        |B9  9I  |		CLR.B	0x23949
0002319e 42 39 00 02 39 42        |B9  9B  |		CLR.B	0x23942
000231a4 26 82                    |&       |		MOVE.L	D2,(A3)
000231a6 4e ba f9 e2              |N       |		JSR	0x22b8a
000231aa 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000231b0 4e ba fb c6              |N       |		JSR	0x22d78
000231b4 4a 39 00 02 39 42        |J9  9B  |		TST.B	0x23942
000231ba 67 06                    |g       |		BEQ	0x231c2
000231bc 26 82                    |&       |		MOVE.L	D2,(A3)
000231be 60 00 02 56              |`  V    |		BRA	0x23416
000231c2 2f 3a db bc              |/:      |		MOVE.L	0x20d80,-(A7)
000231c6 2f 3a db b4              |/:      |		MOVE.L	0x20d7c,-(A7)
000231ca 2f 3a db ac              |/:      |		MOVE.L	0x20d78,-(A7)
000231ce 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000231d0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000231d4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000231d6 3f 3c 00 0c              |?<      |		MOVE.W	#0xc,-(A7)
000231da 4e 92                    |N       |		JSR	(A2)
000231dc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000231de 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000231e4 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000231e8 2e ba db a6              |.       |		MOVE.L	0x20d90,(A7)
000231ec 2f 3a db 9e              |/:      |		MOVE.L	0x20d8c,-(A7)
000231f0 2f 3a db 96              |/:      |		MOVE.L	0x20d88,-(A7)
000231f4 2f 3a db 8e              |/:      |		MOVE.L	0x20d84,-(A7)
000231f8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000231fa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000231fe 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023200 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
00023204 4e 92                    |N       |		JSR	(A2)
00023206 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023208 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002320e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023210 20 4f                    | O      |		MOVEA.L	A7,A0
00023212 43 fa db 80              |C       |		LEA.L	0x20d94,A1
00023216 70 16                    |p       |		MOVEQ.L	#0x16,D0
00023218 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002321a 51 c8 ff fc              |Q       |		DBF	D0,0x23218
0002321e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023220 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023224 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023226 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
0002322a 4e 92                    |N       |		JSR	(A2)
0002322c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002322e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023234 de c3                    |        |		ADDA.W	D3,A7
00023236 41 fa db 8c              |A       |		LEA.L	0x20dc4,A0
0002323a 70 05                    |p       |		MOVEQ.L	#0x05,D0
0002323c 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002323e 51 c8 ff fc              |Q       |		DBF	D0,0x2323c
00023242 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023244 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023248 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002324a 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
0002324e 4e 92                    |N       |		JSR	(A2)
00023250 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023252 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023258 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002325a 20 4f                    | O      |		MOVEA.L	A7,A0
0002325c 43 fa db 66              |C  f    |		LEA.L	0x20dc4,A1
00023260 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00023262 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023264 51 c8 ff fc              |Q       |		DBF	D0,0x23262
00023268 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002326a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002326e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023270 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
00023274 4e 92                    |N       |		JSR	(A2)
00023276 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023278 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002327e de c4                    |        |		ADDA.W	D4,A7
00023280 41 fa db 7e              |A  ~    |		LEA.L	0x20e00,A0
00023284 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00023286 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023288 51 c8 ff fc              |Q       |		DBF	D0,0x23286
0002328c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002328e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023292 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023294 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
00023298 4e 92                    |N       |		JSR	(A2)
0002329a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002329c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000232a2 de c4                    |        |		ADDA.W	D4,A7
000232a4 41 fa db 7c              |A  |    |		LEA.L	0x20e22,A0
000232a8 70 10                    |p       |		MOVEQ.L	#0x10,D0
000232aa 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000232ac 51 c8 ff fc              |Q       |		DBF	D0,0x232aa
000232b0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000232b2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000232b6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000232b8 3f 04                    |?       |		MOVE.W	D4,-(A7)
000232ba 4e 92                    |N       |		JSR	(A2)
000232bc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000232be 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000232c4 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
000232c8 20 13                    |        |		MOVE.L	(A3),D0
000232ca 53 80                    |S       |		SUBQ.L	#0x1,D0
000232cc b0 86                    |        |		CMP.L	D6,D0
000232ce 62 00 00 d6              |b       |		BHI	0x233a6
000232d2 d0 40                    | @      |		ADD.W	D0,D0
000232d4 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000232dc 00 0c                    |        |		.CONST	0xc			; [0x0] -> 0x232e8
000232de 00 38                    | 8      |		.CONST	0x38			; [0x1] -> 0x23314
000232e0 00 60                    | `      |		.CONST	0x60			; [0x2] -> 0x2333c
000232e2 00 8c                    |        |		.CONST	0x8c			; [0x3] -> 0x23368
000232e4 00 a4                    |        |		.CONST	0xa4			; [0x4] -> 0x23380
000232e6 00 b8                    |        |		.CONST	0xb8			; [0x5] -> 0x23394
000232e8					switch@0x232d4[0x0]:
000232e8 9e c3                    |        |		SUBA.W	D3,A7
000232ea 20 4f                    | O      |		MOVEA.L	A7,A0
000232ec 43 fa db 34              |C  4    |		LEA.L	0x20e22,A1
000232f0 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
000232f2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000232f4 51 c8 ff fc              |Q       |		DBF	D0,0x232f2
000232f8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000232fa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000232fe 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023300 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
00023304 4e 92                    |N       |		JSR	(A2)
00023306 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023308 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
0002330e de c5                    |        |		ADDA.W	D5,A7
00023310 60 00 00 be              |`       |		BRA	0x233d0
00023314					switch@0x232d4[0x1]:
00023314 41 fa db 4a              |A  J    |		LEA.L	0x20e60,A0
00023318 70 10                    |p       |		MOVEQ.L	#0x10,D0
0002331a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002331c 51 c8 ff fc              |Q       |		DBF	D0,0x2331a
00023320 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023322 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023326 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023328 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002332a 4e 92                    |N       |		JSR	(A2)
0002332c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002332e 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00023334 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00023338 60 00 00 96              |`       |		BRA	0x233d0
0002333c					switch@0x232d4[0x2]:
0002333c 9e c5                    |        |		SUBA.W	D5,A7
0002333e 20 4f                    | O      |		MOVEA.L	A7,A0
00023340 43 fa db 1e              |C       |		LEA.L	0x20e60,A1
00023344 70 1e                    |p       |		MOVEQ.L	#0x1e,D0
00023346 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023348 51 c8 ff fc              |Q       |		DBF	D0,0x23346
0002334c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002334e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023352 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023354 3f 3c 00 1f              |?<      |		MOVE.W	#0x1f,-(A7)
00023358 4e 92                    |N       |		JSR	(A2)
0002335a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002335c 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00023362 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00023366 60 68                    |`h      |		BRA	0x233d0
00023368					switch@0x232d4[0x3]:
00023368 41 fa db 30              |A  0    |		LEA.L	0x20e9a,A0
0002336c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002336e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023370 51 c8 ff fc              |Q       |		DBF	D0,0x2336e
00023374 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023376 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002337a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002337c 3f 07                    |?       |		MOVE.W	D7,-(A7)
0002337e 60 42                    |`B      |		BRA	0x233c2
00023380					switch@0x232d4[0x4]:
00023380 9e c3                    |        |		SUBA.W	D3,A7
00023382 20 4f                    | O      |		MOVEA.L	A7,A0
00023384 43 fa db 14              |C       |		LEA.L	0x20e9a,A1
00023388 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
0002338a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002338c 51 c8 ff fc              |Q       |		DBF	D0,0x2338a
00023390 60 00 ff 66              |`  f    |		BRA	0x232f8
00023394					switch@0x232d4[0x5]:
00023394 9e c5                    |        |		SUBA.W	D5,A7
00023396 20 4f                    | O      |		MOVEA.L	A7,A0
00023398 43 fa db 1c              |C       |		LEA.L	0x20eb6,A1
0002339c 70 1e                    |p       |		MOVEQ.L	#0x1e,D0
0002339e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000233a0 51 c8 ff fc              |Q       |		DBF	D0,0x2339e
000233a4 60 a6                    |`       |		BRA	0x2334c
000233a6 9e c7                    |        |		SUBA.W	D7,A7
000233a8 20 4f                    | O      |		MOVEA.L	A7,A0
000233aa 43 fa db 2a              |C  *    |		LEA.L	0x20ed6,A1
000233ae 70 18                    |p       |		MOVEQ.L	#0x18,D0
000233b0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000233b2 51 c8 ff fc              |Q       |		DBF	D0,0x233b0
000233b6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000233b8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000233bc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000233be 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
000233c2 4e 92                    |N       |		JSR	(A2)
000233c4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000233c6 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000233cc de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000233d0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000233d2 48 78 00 01              |Hx      |		PEA.L	0x1
000233d6 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
000233dc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000233de 23 df 00 02 39 4a        |#   9J  |		MOVE.L	(A7)+,0x2394a
000233e4 20 79 00 02 39 4a        | y  9J  |		MOVEA.L	0x2394a,A0
000233ea 4a 50                    |JP      |		TST.W	(A0)
000233ec 66 10                    |f       |		BNE	0x233fe
000233ee 48 79 00 02 39 4a        |Hy  9J  |		PEA.L	0x2394a
000233f4 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000233fa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000233fc 60 18                    |`       |		BRA	0x23416
000233fe 2f 39 00 02 39 4a        |/9  9J  |		MOVE.L	0x2394a,-(A7)
00023404 48 79 00 02 39 4e        |Hy  9N  |		PEA.L	0x2394e
0002340a 48 53                    |HS      |		PEA.L	(A3)
0002340c 4e b9 00 01 02 ec        |N       |		JSR	String2Long(src : String; VAR status : Bool; VAR retval : Long)
00023412 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00023416 20 13                    |        |		MOVE.L	(A3),D0
00023418 53 80                    |S       |		SUBQ.L	#0x1,D0
0002341a b0 86                    |        |		CMP.L	D6,D0
0002341c 62 00 01 78              |b  x    |		BHI	0x23596
00023420 d0 40                    | @      |		ADD.W	D0,D0
00023422 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
0002342a 00 0c                    |        |		.CONST	0xc			; [0x0] -> 0x23436
0002342c 00 44                    | D      |		.CONST	0x44			; [0x1] -> 0x2346e
0002342e 00 4c                    | L      |		.CONST	0x4c			; [0x2] -> 0x23476
00023430 00 8c                    |        |		.CONST	0x8c			; [0x3] -> 0x234b6
00023432 00 d8                    |        |		.CONST	0xd8			; [0x4] -> 0x23502
00023434 01 02                    |        |		.CONST	0x102			; [0x5] -> 0x2352c
00023436					switch@0x23422[0x0]:
00023436 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023438 1e ba da b6              |        |		MOVE.B	0x20ef0,(A7)
0002343c 1f 7a da b3 00 01        | z      |		MOVE.B	0x20ef1,(A7+0x1)
00023442 1f 7a da ae 00 02        | z      |		MOVE.B	0x20ef2,(A7+0x2)
00023448 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002344a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002344e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023450 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00023454 4e 92                    |N       |		JSR	(A2)
00023456 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023458 48 78 00 01              |Hx      |		PEA.L	0x1
0002345c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002345e 48 79 00 02 39 4f        |Hy  9O  |		PEA.L	0x2394f
00023464 4e 94                    |N       |		JSR	(A4)
00023466 de fc 00 12              |        |		ADDA.W	#0x12,A7
0002346a 60 00 01 52              |`  R    |		BRA	0x235be
0002346e					switch@0x23422[0x1]:
0002346e 4e ba e6 b6              |N       |		JSR	0x21b26
00023472 60 00 01 4a              |`  J    |		BRA	0x235be
00023476					switch@0x23422[0x2]:
00023476 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023478 1e ba da 7a              |   z    |		MOVE.B	0x20ef4,(A7)
0002347c 1f 7a da 77 00 01        | z w    |		MOVE.B	0x20ef5,(A7+0x1)
00023482 1f 7a da 72 00 02        | z r    |		MOVE.B	0x20ef6,(A7+0x2)
00023488 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002348a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002348e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023490 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00023494 4e 92                    |N       |		JSR	(A2)
00023496 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023498 48 78 00 01              |Hx      |		PEA.L	0x1
0002349c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002349e 48 79 00 02 39 4f        |Hy  9O  |		PEA.L	0x2394f
000234a4 4e 94                    |N       |		JSR	(A4)
000234a6 de fc 00 12              |        |		ADDA.W	#0x12,A7
000234aa 13 c1 00 02 39 49        |    9I  |		MOVE.B	D1,0x23949
000234b0 26 82                    |&       |		MOVE.L	D2,(A3)
000234b2 60 00 01 0a              |`       |		BRA	0x235be
000234b6					switch@0x23422[0x3]:
000234b6 3f 3a da 44              |?: D    |		MOVE.W	0x20efc,-(A7)
000234ba 3f 3a da 3e              |?: >    |		MOVE.W	0x20efa,-(A7)
000234be 3f 3a da 38              |?: 8    |		MOVE.W	0x20ef8,-(A7)
000234c2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000234c4 1e ba da 38              |   8    |		MOVE.B	0x20efe,(A7)
000234c8 1f 7a da 35 00 01        | z 5    |		MOVE.B	0x20eff,(A7+0x1)
000234ce 1f 7a da 30 00 02        | z 0    |		MOVE.B	0x20f00,(A7+0x2)
000234d4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000234d6 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000234da 3f 01                    |?       |		MOVE.W	D1,-(A7)
000234dc 3f 02                    |?       |		MOVE.W	D2,-(A7)
000234de 4e 92                    |N       |		JSR	(A2)
000234e0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000234e2 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000234e6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000234e8 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
000234ec 4e 92                    |N       |		JSR	(A2)
000234ee 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000234f0 1e 81                    |        |		MOVE.B	D1,(A7)
000234f2 48 79 00 02 39 4f        |Hy  9O  |		PEA.L	0x2394f
000234f8 4e 94                    |N       |		JSR	(A4)
000234fa de fc 00 18              |        |		ADDA.W	#0x18,A7
000234fe 60 00 00 be              |`       |		BRA	0x235be
00023502					switch@0x23422[0x4]:
00023502 3f 3a da 02              |?:      |		MOVE.W	0x20f06,-(A7)
00023506 3f 3a d9 fc              |?:      |		MOVE.W	0x20f04,-(A7)
0002350a 3f 3a d9 f6              |?:      |		MOVE.W	0x20f02,-(A7)
0002350e 2f 3a d9 f8              |/:      |		MOVE.L	0x20f08,-(A7)
00023512 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023514 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00023518 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002351a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002351c 4e 92                    |N       |		JSR	(A2)
0002351e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023520 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00023524 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023526 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
0002352a 60 c0                    |`       |		BRA	0x234ec
0002352c					switch@0x23422[0x5]:
0002352c 9e fc 00 26              |   &    |		SUBA.W	#0x26,A7
00023530 20 4f                    | O      |		MOVEA.L	A7,A0
00023532 43 fa d9 d8              |C       |		LEA.L	0x20f0c,A1
00023536 70 24                    |p$      |		MOVEQ.L	#0x24,D0
00023538 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002353a 51 c8 ff fc              |Q       |		DBF	D0,0x23538
0002353e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023540 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023544 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023546 3f 3c 00 25              |?< %    |		MOVE.W	#0x25,-(A7)
0002354a 4e 92                    |N       |		JSR	(A2)
0002354c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002354e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00023554 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00023558 3e ba d9 dc              |>       |		MOVE.W	0x20f36,(A7)
0002355c 3f 3a d9 d6              |?:      |		MOVE.W	0x20f34,-(A7)
00023560 3f 3a d9 d0              |?:      |		MOVE.W	0x20f32,-(A7)
00023564 2f 3a d9 d6              |/:      |		MOVE.L	0x20f3c,-(A7)
00023568 2f 3a d9 ce              |/:      |		MOVE.L	0x20f38,-(A7)
0002356c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002356e 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00023572 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023574 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023576 4e 92                    |N       |		JSR	(A2)
00023578 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002357a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002357e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023580 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00023584 4e 92                    |N       |		JSR	(A2)
00023586 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00023588 1e 81                    |        |		MOVE.B	D1,(A7)
0002358a 48 79 00 02 39 4f        |Hy  9O  |		PEA.L	0x2394f
00023590 4e 94                    |N       |		JSR	(A4)
00023592 de c3                    |        |		ADDA.W	D3,A7
00023594 60 28                    |`(      |		BRA	0x235be
00023596 9e c3                    |        |		SUBA.W	D3,A7
00023598 20 4f                    | O      |		MOVEA.L	A7,A0
0002359a 43 fa d9 a4              |C       |		LEA.L	0x20f40,A1
0002359e 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
000235a0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000235a2 51 c8 ff fc              |Q       |		DBF	D0,0x235a0
000235a6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000235a8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000235ac 3f 01                    |?       |		MOVE.W	D1,-(A7)
000235ae 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
000235b2 4e 92                    |N       |		JSR	(A2)
000235b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000235b6 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000235bc de c5                    |        |		ADDA.W	D5,A7
000235be 60 00 fb ea              |`       |		BRA	0x231aa
000235c2 4e b9 00 01 02 84        |N       |		.XXX[0x6]
000235c8					exp_READ_PAREG.FIU(Sw_1, &Sr_1):
000235c8 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000235ce 00 0e                    |        |		.CONST	0x000e			; Stack-delta
000235d0 0e 52 45 41 44 5f 50 41  | READ_PA|		.TXT	14,'READ_PAREG.FIU'
000235df 00                       |        |		.CONST	0x0
000235e0 03                       |        |		.CONST	0x3			; DIPROC address
000235e1 01                       |        |		.CONST	0x1			; Output Parameters
000235e2 01                       |        |		.CONST	0x1			; Input Parameters
000235e3 00                       |        |		.CONST	0x0			; In arg [1]
000235e4 00                       |        |		.CONST	0x0			; Out arg [1]
000235e5 00                       |        |		.PAD	0x0
000235e6					exp_MF.FIU():
000235e6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000235ec 00 08                    |        |		.CONST	0x0008			; Stack-delta
000235ee 06 4d 46 2e 46 49 55     | MF.FIU |		.TXT	6,'MF.FIU'
000235f5 00                       |        |		.CONST	0x0
000235f6 03                       |        |		.CONST	0x3			; DIPROC address
000235f7 00                       |        |		.CONST	0x0			; Output Parameters
000235f8 00                       |        |		.CONST	0x0			; Input Parameters
000235f9 00                       |        |		.PAD	0x0
000235fa					exp_FREEZE_WORLD.FIU():
000235fa 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023600 00 08                    |        |		.CONST	0x0008			; Stack-delta
00023602 10 46 52 45 45 5a 45 5f  | FREEZE_|		.TXT	16,'FREEZE_WORLD.FIU'
00023613 00                       |        |		.CONST	0x0
00023614 03                       |        |		.CONST	0x3			; DIPROC address
00023615 00                       |        |		.CONST	0x0			; Output Parameters
00023616 00                       |        |		.CONST	0x0			; Input Parameters
00023617 00                       |        |		.PAD	0x0
00023618					exp_RESET.SEQ():
00023618 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002361e 00 08                    |        |		.CONST	0x0008			; Stack-delta
00023620 09 52 45 53 45 54 2e 53  | RESET.S|		.TXT	9,'RESET.SEQ'
0002362a 00                       |        |		.CONST	0x0
0002362b 02                       |        |		.CONST	0x2			; DIPROC address
0002362c 00                       |        |		.CONST	0x0			; Output Parameters
0002362d 00                       |        |		.CONST	0x0			; Input Parameters
0002362e					exp_READ_CUR_UADR.SEQ(&Sr_2):
0002362e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023634 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00023636 11 52 45 41 44 5f 43 55  | READ_CU|		.TXT	17,'READ_CUR_UADR.SEQ'
00023648 00                       |        |		.CONST	0x0
00023649 02                       |        |		.CONST	0x2			; DIPROC address
0002364a 01                       |        |		.CONST	0x1			; Output Parameters
0002364b 00                       |        |		.CONST	0x0			; Input Parameters
0002364c 01                       |        |		.CONST	0x1			; Out arg [2]
0002364d 00                       |        |		.PAD	0x0
0002364e					exp_HALT.SEQ(&Fr):
0002364e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023654 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00023656 08 48 41 4c 54 2e 53 45  | HALT.SE|		.TXT	8,'HALT.SEQ'
0002365f 00                       |        |		.CONST	0x0
00023660 02                       |        |		.CONST	0x2			; DIPROC address
00023661 01                       |        |		.CONST	0x1			; Output Parameters
00023662 00                       |        |		.CONST	0x0			; Input Parameters
00023663 08                       |        |		.CONST	0x8			; Out arg flag
00023664					exp_MF.TYP():
00023664 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002366a 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002366c 06 4d 46 2e 54 59 50     | MF.TYP |		.TXT	6,'MF.TYP'
00023673 00                       |        |		.CONST	0x0
00023674 06                       |        |		.CONST	0x6			; DIPROC address
00023675 00                       |        |		.CONST	0x0			; Output Parameters
00023676 00                       |        |		.CONST	0x0			; Input Parameters
00023677 00                       |        |		.PAD	0x0
00023678					exp_MF.VAL():
00023678 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002367e 00 08                    |        |		.CONST	0x0008			; Stack-delta
00023680 06 4d 46 2e 56 41 4c     | MF.VAL |		.TXT	6,'MF.VAL'
00023687 00                       |        |		.CONST	0x0
00023688 07                       |        |		.CONST	0x7			; DIPROC address
00023689 00                       |        |		.CONST	0x0			; Output Parameters
0002368a 00                       |        |		.CONST	0x0			; Input Parameters
0002368b 00                       |        |		.PAD	0x0
0002368c 4d 46                    |MF      |		.TXT	'MF'
0002368e 2e 4d                    |.M      |		.TXT	'.M'
00023690 45 4d                    |EM      |		.TXT	'EM'
00023692 4d 46                    |MF      |		.TXT	'MF'
00023694 2e 4d                    |.M      |		.TXT	'.M'
00023696 33 32                    |32      |		.TXT	'32'
00023698 ; --------------------------------------------------------------------------------------
00023698 ; OMSI PASCAL Function
00023698 ;    <LVAR  0x008 1(r)>
00023698 ;    <LVAR -0x006 @ 4(r)>
00023698 ; --------------------------------------------------------------------------------------
00023698 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
0002369c bf d5                    |        |		CMPA.L	(A5),A7
0002369e 62 06                    |b       |		BHI	0x236a6
000236a0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000236a4 4e 76                    |Nv      |		TRAPV
000236a6 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000236aa 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
000236ae 41 ee ff fa              |A       |		LEA.L	(A6-0x6),A0
000236b2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000236b4 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000236ba 4a 1f                    |J       |		TST.B	(A7)+
000236bc 67 0e                    |g       |		BEQ	0x236cc
000236be 3f 3a ff d0              |?:      |		MOVE.W	0x23690,-(A7)
000236c2 3f 3a ff ca              |?:      |		MOVE.W	0x2368e,-(A7)
000236c6 3f 3a ff c4              |?:      |		MOVE.W	0x2368c,-(A7)
000236ca 60 0c                    |`       |		BRA	0x236d8
000236cc 3f 3a ff c8              |?:      |		MOVE.W	0x23696,-(A7)
000236d0 3f 3a ff c2              |?:      |		MOVE.W	0x23694,-(A7)
000236d4 3f 3a ff bc              |?:      |		MOVE.W	0x23692,-(A7)
000236d8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000236da 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000236de 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000236e2 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
000236e6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000236ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000236ee 48 50                    |HP      |		PEA.L	(A0)
000236f0 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000236f6 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000236fa 42 27                    |B'      |		CLR.B	-(A7)
000236fc 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00023700 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00023702 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00023708 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002370a 48 50                    |HP      |		PEA.L	(A0)
0002370c 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00023712 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00023714 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00023718 4e 5e                    |N^      |		UNLK	A6
0002371a 4e 75                    |Nu      |		RTS
0002371c					exp_MF.IOC():
0002371c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00023722 00 08                    |        |		.CONST	0x0008			; Stack-delta
00023724 06 4d 46 2e 49 4f 43     | MF.IOC |		.TXT	6,'MF.IOC'
0002372b 00                       |        |		.CONST	0x0
0002372c 04                       |        |		.CONST	0x4			; DIPROC address
0002372d 00                       |        |		.CONST	0x0			; Output Parameters
0002372e 00                       |        |		.CONST	0x0			; Input Parameters
0002372f 00                       |        |		.PAD	0x0
00023730 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
0002373e ; --------------------------------------------------------------------------------------
0002373e ; OMSI PASCAL Function
0002373e ;    <LVAR  0x008 1(r)>
0002373e ; --------------------------------------------------------------------------------------
0002373e					PROG_FAIL:
0002373e 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00023742 bf d5                    |        |		CMPA.L	(A5),A7
00023744 62 06                    |b       |		BHI	0x2374c
00023746 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002374a 4e 76                    |Nv      |		TRAPV
0002374c de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00023750 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00023754 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00023758 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002375a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002375c 51 c8 ff fc              |Q       |		DBF	D0,0x2375a
00023760 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00023764 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023766 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
0002376a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002376e 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00023772 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00023778 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002377a 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0002377e 48 80                    |H       |		EXTB.W	D0
00023780 48 c0                    |H       |		EXTW.L	D0
00023782 2f 00                    |/       |		MOVE.L	D0,-(A7)
00023784 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
0002378a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002378c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023792 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023794 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002379a de fc 00 14              |        |		ADDA.W	#0x14,A7
0002379e 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
000237a2 4e 5e                    |N^      |		UNLK	A6
000237a4 4e 75                    |Nu      |		RTS
000237a6 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
000237b4 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
000237c2 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
000237d0 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
000237e2 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
000237fa ; --------------------------------------------------------------------------------------
000237fa ; OMSI PASCAL Function
000237fa ;    <LVAR  0x00e 1(r)>
000237fa ;    <LVAR  0x00a 4(r)>
000237fa ;    <LVAR  0x008 1(r)>
000237fa ; --------------------------------------------------------------------------------------
000237fa					EXP_FAIL:
000237fa 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
000237fe bf d5                    |        |		CMPA.L	(A5),A7
00023800 62 06                    |b       |		BHI	0x23808
00023802 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023806 4e 76                    |Nv      |		TRAPV
00023808 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
0002380c 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00023810 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00023816 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
0002381c 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002381e 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00023820 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00023822 78 12                    |x       |		MOVEQ.L	#0x12,D4
00023824 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00023826 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
0002382c 41 fa ff b4              |A       |		LEA.L	0x237e2,A0
00023830 70 08                    |p       |		MOVEQ.L	#0x08,D0
00023832 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023834 51 c8 ff fc              |Q       |		DBF	D0,0x23832
00023838 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002383a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002383e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023840 3f 04                    |?       |		MOVE.W	D4,-(A7)
00023842 4e 93                    |N       |		JSR	(A3)
00023844 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023846 4e 94                    |N       |		JSR	(A4)
00023848 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002384a 20 4f                    | O      |		MOVEA.L	A7,A0
0002384c 43 fa ff 58              |C  X    |		LEA.L	0x237a6,A1
00023850 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023852 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023854 51 c8 ff fc              |Q       |		DBF	D0,0x23852
00023858 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002385a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002385e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023860 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023862 4e 93                    |N       |		JSR	(A3)
00023864 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023866 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
0002386a 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00023870 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023872 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023878 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002387a 4e 94                    |N       |		JSR	(A4)
0002387c de c4                    |        |		ADDA.W	D4,A7
0002387e 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00023882 b0 c1                    |        |		CMPA.W	D1,A0
00023884 67 48                    |gH      |		BEQ	0x238ce
00023886 9e c5                    |        |		SUBA.W	D5,A7
00023888 22 4f                    |"O      |		MOVEA.L	A7,A1
0002388a 45 fa ff 28              |E  (    |		LEA.L	0x237b4,A2
0002388e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023890 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00023892 51 c8 ff fc              |Q       |		DBF	D0,0x23890
00023896 9e c3                    |        |		SUBA.W	D3,A7
00023898 22 4f                    |"O      |		MOVEA.L	A7,A1
0002389a 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
0002389e 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000238a0 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000238a2 51 c8 ff fc              |Q       |		DBF	D0,0x238a0
000238a6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000238a8 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
000238ac 3f 01                    |?       |		MOVE.W	D1,-(A7)
000238ae 3f 02                    |?       |		MOVE.W	D2,-(A7)
000238b0 4e 93                    |N       |		JSR	(A3)
000238b2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000238b4 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000238b8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000238ba 3f 03                    |?       |		MOVE.W	D3,-(A7)
000238bc 4e 93                    |N       |		JSR	(A3)
000238be 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000238c0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000238c6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000238c8 4e 94                    |N       |		JSR	(A4)
000238ca de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000238ce 9e c5                    |        |		SUBA.W	D5,A7
000238d0 20 4f                    | O      |		MOVEA.L	A7,A0
000238d2 43 fa fe ee              |C       |		LEA.L	0x237c2,A1
000238d6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000238d8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000238da 51 c8 ff fc              |Q       |		DBF	D0,0x238d8
000238de 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000238e0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000238e4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000238e6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000238e8 4e 93                    |N       |		JSR	(A3)
000238ea 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000238ec 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
000238f0 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
000238f6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000238f8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000238fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023900 4e 94                    |N       |		JSR	(A4)
00023902 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00023904 20 4f                    | O      |		MOVEA.L	A7,A0
00023906 43 fa fe da              |C       |		LEA.L	0x237e2,A1
0002390a 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002390c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002390e 51 c8 ff fc              |Q       |		DBF	D0,0x2390c
00023912 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00023916 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00023918 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002391c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002391e 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00023922 4e 93                    |N       |		JSR	(A3)
00023924 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023926 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002392c de c3                    |        |		ADDA.W	D3,A7
0002392e 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00023932 4e 5e                    |N^      |		UNLK	A6
00023934 4e 75                    |Nu      |		RTS