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

⟦bcdc508ab⟧ M200

    Length: 46080 (0xb400)
    Types: M200
    Notes: M200_FS
    Names: »FS_0.M200«, »FS_1.M200«, »FS_2.M200«

Derivation

└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »FS_1.M200« 
    └─ ⟦this⟧ »FS_2.M200« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »FS_0.M200« 
    └─ ⟦this⟧ »FS_0.M200« 
    └─ ⟦this⟧ »FS_0.M200« 
    └─ ⟦this⟧ »FS_1.M200« 
    └─ ⟦this⟧ »FS_1.M200« 
    └─ ⟦this⟧ »FS_2.M200« 
    └─ ⟦this⟧ »FS_2.M200« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »FS_1.M200« 
    └─ ⟦this⟧ »FS_2.M200« 

Disassembly

0x10a46


@ 10a46
_FSCALL_102b4
        <LVAR  0x008 4(r)>
        <LVAR -0x004 4(rw)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x012 1(rw)>
        <LVAR -0x028 2(rw)>
    <POP 10a46-10cac Body>                                              
        <POP 10a46-10a5c Prologue>                           Σ0         ↓
        <POP 10a5c-10a64 RegCacheLoad>                       Σ0         ↓
        <POP 10a64-10ab6 Naked>                              Σ0 Δ-4     ↓ →0x10abc
            <Const 0x10a64 0x0.4>                            Δ-4                {[##0]}
            <MI 10a68  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {}
            <MI 10a6c  CLR.B   (A6-0x12)>                                       {}
            <MI 10a70  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 10a74  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 10a76  MOVEA.L (A0),A1>                                         {[4, 'A0']}
            <MI 10a78  MOVE.L  (A1+0x30),(A6-0x10)>                             {[4, 'A0']}
            <MI 10a7e  SUBQ.L  #0x2,(A6-0x10)>                                  {[4, 'A0']}
            <MI 10a82  MOVE.L  (A6-0x10),(A6-0xc)>                              {[4, 'A0']}
            <MI 10a88  MOVEA.L (A6-0xc),A2>                                     {[4, 'A0']}
            <MI 10a8c  MOVE.W  (A2),(A6-0x28)>                                  {[4, 'A0']}
            <POP 10a90-10a92 StackAdj>                       Δ-4                {[4, 'A0']|[-4-]}
            <MI 10a92  MOVE.B  (A1+0x34),(A7)>                                  {[4, 'A0']|[-4-]}
            <MI 10a96  MOVE.B  (A1+0x35),(A7+0x1)>                              {[4, 'A0']|[-4-]}
            <MI 10a9c  MOVE.B  (A1+0x36),(A7+0x2)>                              {[4, 'A0']|[-4-]}
            <MI 10aa2  MOVE.B  (A1+0x37),(A7+0x3)>                              {[4, 'A0']|[-4-]}
            <MI 10aa8  MOVEA.L (A7)+,A4>                     Δ+4                {[4, 'A0']}
            <MI 10aaa  MOVE.L  (A1+0x3e),D6>                                    {[4, 'A0']}
            <MI 10aae  MOVE.W  (A0+0x4),D0>                                     {[4, 'A0']}
            <MI 10ab2  CMP.W   #0x10,D0>                                        {[4, 'A0']}
            <MI 10ab4  BCS     0x10abc>                                         {[4, 'A0']}
        <POP 10ab6-10abc Naked>                              Σ-4        ↓ →0x10ad6
            <MI 10ab6  CMPI.W  #0x0014,D0>                                      {[-4-]}
            <MI 10aba  BLS     0x10ad6>                                         {[-4-]}
        <POP 10abc-10ac2 Naked>                              Σ-4        ↓ →0x10ad6 ←0x10a64 ←0x10ac2
            <MI 10abc  TST.W   (A6-0x28)>                                       {[-4-]}
            <MI 10ac0  BEQ     0x10ad6>                                         {[-4-]}
        <POP 10ac2-10ad6 Naked>                              Σ-4        →0x10abc
            <MI 10ac2  MOVE.L  (A4+0x4),D6>                                     {[-4-]}
            <MI 10ac6  MOVEA.L (A4),A4>                                         {[-4-]}
            <MI 10ac8  CLR.L   D0>                                              {[-4-]}
            <MI 10aca  MOVE.W  (A6-0x28),D0>                                    {[-4-]}
            <MI 10ace  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <MI 10ad0  MOVE.W  D0,(A6-0x28)>                                    {[-4-]}
            <MI 10ad4  BRA     0x10abc>                                         {[-4-]}
        <POP 10ad6-10b52 Naked>                              Σ-4        ↓ ←0x10ab6 ←0x10abc
            <MI 10ad6  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 10ad8  ANDI.W  #0x00ff,(A0+0x4)>                                {[-4-]}
            <Call 0x10ade 0x153fc>                                              {[-4-]}
                _WriteConsoleCrLf(void)
            <Blob 0x10ae4 [14] @>                            Δ-14               {[-4-]|[«14""»]}
            <POP 10af0-10af2 StackAdj>                       Δ-8                {[-4-]|[«14""»]|[-8-]}
            <Lit 0x10af2 14>                                                    {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]}
            <POP 10b00-10b02 StackAdj>                       Δ-4                {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]|[-4-]}
            <MI 10b02  CLR.L   D0>                                              {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]|[-4-]}
            <MI 10b04  MOVE.W  (A0+0x4),D0>                                     {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]|[-4-]}
            <MI 10b08  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]|[-4-]|[4, 'D0']}
            <Call 0x10b0a 0x110b0>                                              {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]|[-4-]|[4, 'D0']}
                _Long2String(a : Long) : String
            <POP 10b10-10b12 StackAdj>                       Δ+4                {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]|[-4-]}
            <Call 0x10b12 0x10f34>                                              {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 10b18-10b1a StackAdj>                       Δ+8                {[-4-]|[«14""»]|[-4-]}
            <MI 10b1a  MOVEA.L (A7)+,A3>                     Δ+4                {[-4-]|[«14""»]}
            <POP 10b1c-10b1e StackAdj>                       Δ+10               {[-4-]|[-4-]}
            <MI 10b1e  MOVE.L  A3,(A7)>                                         {[-4-]|[4, 'A3']}
            <Call 0x10b20 0x15384>                                              {[-4-]|[4, 'A3']}
                _WriteConsoleString(str : String)
            <POP 10b26-10b27 StackAdj>                       Δ+4        ↓       {[-4-]}
            <Blob 0x10b27 [6] @>                             Δ-6                {[-4-]|[«6""»]}
            <POP 10b36-10b38 StackAdj>                       Δ-4                {[-4-]|[«6""»]|[-4-]}
            <Lit 0x10b38 5>                                                     {[-4-]|[«6""»]|[$$, at_]}
            <Call 0x10b4a 0x15384>                                              {[-4-]|[«6""»]|[$$, at_]}
                _WriteConsoleString(str : String)
            <POP 10b50-10b52 StackAdj>                       Δ+10               {[-4-]}
        <POP 10b52-10b98 Naked>                              Σ-4        ↓ →0x10ba0 ←0x10c3c
            <Blob 0x10b52 [10] @>                            Δ-10               {[-4-]|[«10""»]}
            <POP 10b62-10b64 StackAdj>                       Δ-8                {[-4-]|[«10""»]|[-8-]}
            <Lit 0x10b64 9>                                                     {[-4-]|[«10""»]|[-4-]|[$$location_]}
            <MI 10b74  MOVE.L  D6,(A7)>                                         {[-4-]|[«10""»]|[-4-]|[4, 'D6']}
            <POP 10b6e-10b74 StackAdj>                       Δ-8                {[-4-]|[«10""»]|[-4-]|[4, 'D6']|[-8-]}
            <Const 0x10b76 0x8.4>                            Δ-4                {[-4-]|[«10""»]|[-4-]|[4, 'D6']|[-8-]|[##8]}
            <Call 0x10b7a 0x111b4>                                              {[-4-]|[«10""»]|[-4-]|[4, 'D6']|[-8-]|[##8]}
                _Long2HexString(val : Long; ndig : Long) : String
            <POP 10b80-10b82 StackAdj>                       Δ+8                {[-4-]|[«10""»]|[-4-]|[4, 'D6']|[-4-]}
            <Call 0x10b82 0x10f34>                                              {[-4-]|[«10""»]|[-4-]|[4, 'D6']|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 10b88-10b8a StackAdj>                       Δ+8                {[-4-]|[«10""»]|[-4-]}
            <Call 0x10b8a 0x15384>                                              {[-4-]|[«10""»]|[-4-]}
                _WriteConsoleString(str : String)
            <POP 10b90-10b92 StackAdj>                       Δ+14               {[-4-]}
            <MI 10b92  CMPA.L  (A6-0x4),A4>                                     {[-4-]}
            <MI 10b96  BNE     0x10ba0>                                         {[-4-]}
        <POP 10b98-10ba0 Naked>                              Σ-4        →0x10c3c
            <MI 10b98  MOVE.B  #0x01,(A6-0x12)>                                 {[-4-]}
            <MI 10b9c  BRA     0x10c3c>                                         {[-4-]}
        <POP 10ba0-10ba2 Naked>                              Σ-4        ↓ ←0x10b52
            <MI 10ba0  MOVEQ.L #0x00,D7>                                        {[-4-]}
        <POP 10ba2-10bae Naked>                              Σ-4        ↓ →0x10ba2 ←0x10ba2
            <MI 10ba2  MOVE.L  (A4+0x4),D5>                                     {[-4-]}
            <MI 10ba6  MOVEA.L (A4),A4>                                         {[-4-]}
            <MI 10ba8  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 10baa  CMP.L   D6,D5>                                           {[-4-]}
            <MI 10bac  BEQ     0x10ba2>                                         {[-4-]}
        <POP 10bae-10bb4 Naked>                              Σ-4        ↓ →0x10c06
            <MI 10bae  MOVE.L  D5,D6>                                           {[-4-]}
            <MI 10bb0  CMP.L   #0x01,D7>                                        {[-4-]}
            <MI 10bb2  BLE     0x10c06>                                         {[-4-]}
        <POP 10bb4-10c06 Naked>                              Σ-4        ↓
            <Blob 0x10bb4 [2] @>                             Δ-2                {[-4-]|[«2""»]}
            <Blob 0x10bb8 [8] @>                             Δ-8                {[-4-]|[«2""»]|[«8""»]}
            <POP 10bc8-10bca StackAdj>                       Δ-8                {[-4-]|[«2""»]|[«8""»]|[-8-]}
            <Lit 0x10bca 2>                                                     {[-4-]|[«2""»]|[«8""»]|[-4-]|[$$ (]}
            <MI 10bda  MOVE.L  D7,(A7)>                                         {[-4-]|[«2""»]|[«8""»]|[-4-]|[4, 'D7']}
            <POP 10bd4-10bda StackAdj>                       Δ-8                {[-4-]|[«2""»]|[«8""»]|[-4-]|[4, 'D7']|[-8-]}
            <Call 0x10bdc 0x110b0>                                              {[-4-]|[«2""»]|[«8""»]|[-4-]|[4, 'D7']|[-8-]}
                _Long2String(a : Long) : String
            <Lit 0x10be2 7>                                                     {[-4-]|[«2""»]|[«8""»]|[-4-]|[4, 'D7']|[-4-]|[$$ times)]}
            <Call 0x10bf4 0x10fba>                                              {[-4-]|[«2""»]|[«8""»]|[-4-]|[4, 'D7']|[-4-]|[$$ times)]}
                _StringCat3(a, b, c : String) : String
            <POP 10bfa-10bfe StackAdj>                       Δ+12               {[-4-]|[«2""»]|[«8""»]|[-4-]}
            <Call 0x10bfe 0x15384>                                              {[-4-]|[«2""»]|[«8""»]|[-4-]}
                _WriteConsoleString(str : String)
            <POP 10c04-10c06 StackAdj>                       Δ+14               {[-4-]}
        <POP 10c06-10c3c Naked>                              Σ-4        ↓ ←0x10bae
            <Call 0x10c06 0x153fc>                                              {[-4-]}
                _WriteConsoleCrLf(void)
            <Blob 0x10c0c [18] @>                            Δ-18               {[-4-]|[«18""»]}
            <POP 10c1e-10c20 StackAdj>                       Δ-4                {[-4-]|[«18""»]|[-4-]}
            <Lit 0x10c20 17>                                                    {[-4-]|[«18""»]|[$$Last called from_]}
            <Call 0x10c32 0x15384>                                              {[-4-]|[«18""»]|[$$Last called from_]}
                _WriteConsoleString(str : String)
            <POP 10c38-10c3c StackAdj>                       Δ+22               {[-4-]}
        <POP 10c3c-10c44 Naked>                              Σ-4        ↓ →0x10b52 ←0x10b98
            <MI 10c3c  TST.B   (A6-0x12)>                                       {[-4-]}
            <MI 10c40  BEQ     0x10b52>                                         {[-4-]}
        <POP 10c44-10ca4 Naked>                              Σ-4 Δ+4    ↓
            <Call 0x10c44 0x153fc>                                              {[-4-]}
                _WriteConsoleCrLf(void)
            <Const 0x10c4a 0x9896.4>                         Δ-4                {[-4-]|[##39062]}
            <Call 0x10c50 0x10224>                                              {[-4-]|[##39062]}
                KC12_Sleep(dur: Long)
            <POP 10c56-10c58 StackAdj>                       Δ+4                {[-4-]}
            <Blob 0x10c58 [14] @>                            Δ-14               {[-4-]|[«14""»]}
            <POP 10c64-10c66 StackAdj>                       Δ-8                {[-4-]|[«14""»]|[-8-]}
            <Lit 0x10c66 14>                                                    {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]}
            <POP 10c74-10c76 StackAdj>                       Δ-4                {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]|[-4-]}
            <MI 10c76  MOVEA.L (A7+0x1a),A0>                                    {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]|[-4-]}
            <MI 10c7a  CLR.L   D0>                                              {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]|[-4-]}
            <MI 10c7c  MOVE.W  (A0+0x4),D0>                                     {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]|[-4-]}
            <MI 10c80  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]|[-4-]|[4, 'D0']}
            <Call 0x10c82 0x110b0>                                              {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]|[-4-]|[4, 'D0']}
                _Long2String(a : Long) : String
            <POP 10c88-10c8a StackAdj>                       Δ+4                {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]|[-4-]}
            <Call 0x10c8a 0x10f34>                                              {[-4-]|[«14""»]|[-4-]|[$$PASCAL error #]|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 10c90-10c92 StackAdj>                       Δ+8                {[-4-]|[«14""»]|[-4-]}
            <MI 10c92  MOVEA.L (A7)+,A3>                     Δ+4                {[-4-]|[«14""»]}
            <POP 10c94-10c96 StackAdj>                       Δ+16               {[-2-]}
            <POP 10c96-10c97 StackAdj>                       Δ+2                {}
            <Const 0x10c97 0x7.2>                            Δ-2                {[#7]}
            <MI 10c9a  MOVE.L  A3,-(A7)>                     Δ-4                {[#7]|[4, 'A3']}
            <Call 0x10c9c 0x14e0a>                                              {[#7]|[4, 'A3']}
                _PopProgram(status : Byte; msg : String)
            <POP 10ca2-10ca4 StackAdj>                       Δ+6                {}
        <POP 10ca4-10cac Epilogue>                           Σ0         

0x10d42


@ 10d42
_NewString(VAR a : String)
        <LVAR  0x008 4(r)>
    <POP 10d42-10d76 Body>                                              
        <POP 10d42-10d58 Prologue>                           Σ0         ↓
        <POP 10d58-10d6e Naked>                              Σ0         ↓
            <MI 10d58  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 10d5c  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x10d5e 0x80.4>                           Δ-4                {[4, '^(A0)']|[##128]}
            <Call 0x10d62 0x10856>                                              {[4, '^(A0)']|[##128]}
                _Malloc1(length : Long) : Pointer
            <POP 10d68-10d6a StackAdj>                       Δ+8                {}
            <MI 10d6a  MOVEA.L (A0),A0>                                         {}
            <MI 10d6c  CLR.W   (A0)>                                            {}
        <POP 10d6e-10d76 Epilogue>                           Σ0         

0x10d76


@ 10d76
_FreeString(VAR a : String)
        <LVAR  0x008 4(r)>
    <POP 10d76-10da6 Body>                                              
        <POP 10d76-10d8c Prologue>                           Σ0         ↓
        <POP 10d8c-10d9e Naked>                              Σ0         ↓
            <MI 10d8c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 10d90  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x10d92 0x80.4>                           Δ-4                {[4, '^(A0)']|[##128]}
            <Call 0x10d96 0x108fa>                                              {[4, '^(A0)']|[##128]}
                _Free2(a : Pointer; b : Long)
            <POP 10d9c-10d9e StackAdj>                       Δ+8                {}
        <POP 10d9e-10da6 Epilogue>                           Σ0         

0x10da6


@ 10da6
_AppendChar(MOD b : String; a : char)
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 10da6-10ddc Body>                                              
        <POP 10da6-10dbc Prologue>                           Σ0         ↓
        <POP 10dbc-10dc8 Naked>                              Σ0         ↓ →0x10dd4
            <MI 10dbc  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 10dc0  MOVE.W  (A0),D0>                                         {}
            <MI 10dc2  CMPI.W  #0x007e,D0>                                      {}
            <MI 10dc6  BGE     0x10dd4>                                         {}
        <POP 10dc8-10dd4 Naked>                              Σ0         ↓
            <MI 10dc8  EXTW.L  D0>                                              {}
            <MI 10dca  ADDQ.L  #0x1,D0>                                         {}
            <MI 10dcc  MOVE.W  D0,(A0)>                                         {}
            <MI 10dce  MOVE.B  (A6+0x8),(A0+D0.W+#0x1)>                         {}
        <POP 10dd4-10ddc Epilogue>                           Σ0         ←0x10dbc

0x10ddc


@ 10ddc
_StringLit(Src : Pointer; Offset: W; Len : W) : String
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x00a 2(r)>
        <LVAR  0x008 2(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 10ddc-10e92 Body>                                              
        <POP 10ddc-10df2 Prologue>                           Σ0         ↓
        <POP 10df2-10dfe RegCacheLoad>                       Σ0         ↓
        <POP 10dfe-10e12 Naked>                              Σ0 Δ-8     ↓
            <Pointer.fp 0x10dfe <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x10e00 0x10d42>                                              {[@@-4]}
                _NewString(VAR a : String)
            <POP 10e04-10e06 StackAdj>                       Δ+4                {}
            <MI 10e06  MOVEA.L (A6-0x4),A0>                                     {}
            <MI 10e08  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 10e0a  MOVE.W  (A6+0x8),D0>                                     {[4, 'A0']}
            <MI 10e0c  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 10e0e  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 10e10  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D0']}
        <POP 10e12-10e16 Naked>                              Σ-8        ↓ →0x10e32 ←0x10e16
            <MI 10e12  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 10e14  BGT     0x10e32>                                         {[-8-]}
        <POP 10e16-10e32 Naked>                              Σ-8        ↓ →0x10e12
            <MI 10e16  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 10e1a  MOVEA.L (A6+0xc),A1>                                     {[-8-]}
            <MI 10e1e  MOVE.W  (A6+0xa),D0>                                     {[-8-]}
            <MI 10e22  EXTW.L  D0>                                              {[-8-]}
            <MI 10e24  NEG.L   D0>                                              {[-8-]}
            <MI 10e26  ADD.L   D7,D0>                                           {[-8-]}
            <MI 10e28  MOVE.B  (A1+D0.L),(A0+D7.L+#0x1)>                        {[-8-]}
            <MI 10e2e  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 10e30  BVC     0x10e12>                                         {[-8-]}
        <POP 10e32-10e3e Naked>                              Σ-8 Δ+4    ↓ ←0x10e12
            <POP 10e32-10e34 StackAdj>                       Δ+4                {[-4-]}
            <MI 10e34  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 10e36  MOVE.W  (A6+0x8),(A0)>                                   {[-4-]}
            <MI 10e38  MOVE.W  (A6+0x8),D0>                                     {[-4-]}
            <MI 10e3a  EXTW.L  D0>                                              {[-4-]}
            <MI 10e3c  MOVE.L  D0,D7>                                           {[-4-]}
        <POP 10e3e-10e42 Naked>                              Σ-4        ↓ →0x10e60 ←0x10e5c
            <MI 10e3e  CMP.L   #0x01,D7>                                        {[-4-]}
            <MI 10e40  BLT     0x10e60>                                         {[-4-]}
        <POP 10e42-10e4c Naked>                              Σ-4        ↓ →0x10e50
            <MI 10e42  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 10e44  MOVE.B  (A0+D7.L+#0x1),D0>                               {[-4-]}
            <MI 10e48  CMP.B   #0x20,D0>                                        {[-4-]}
            <MI 10e4a  BEQ     0x10e50>                                         {[-4-]}
        <POP 10e4c-10e50 Naked>                              Σ-4        ↓ →0x10e5a
            <MI 10e4c  TST.B   D0>                                              {[-4-]}
            <MI 10e4e  BNE     0x10e5a>                                         {[-4-]}
        <POP 10e50-10e5a Naked>                              Σ-4        →0x10e5c ←0x10e42
            <MI 10e50  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 10e52  EXTW.L  D0>                                              {[-4-]}
            <MI 10e54  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <MI 10e56  MOVE.W  D0,(A0)>                                         {[-4-]}
            <MI 10e58  BRA     0x10e5c>                                         {[-4-]}
        <POP 10e5a-10e5c Naked>                              Σ-4        →0x10e60 ←0x10e4c
            <MI 10e5a  BRA     0x10e60>                                         {[-4-]}
        <POP 10e5c-10e60 Naked>                              Σ-4        ↓ →0x10e3e ←0x10e50
            <MI 10e5c  SUBQ.L  #0x1,D7>                                         {[-4-]}
            <MI 10e5e  BVC     0x10e3e>                                         {[-4-]}
        <POP 10e60-10e68 Naked>                              Σ-4        ↓ ←0x10e3e ←0x10e5a
            <MI 10e60  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 10e62  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 10e64  EXTW.L  D0>                                              {[-4-]}
            <MI 10e66  MOVE.L  D0,D7>                                           {[-4-]}
        <POP 10e68-10e6c Naked>                              Σ-4        ↓ →0x10e84 ←0x10e80
            <MI 10e68  CMP.L   #0x01,D7>                                        {[-4-]}
            <MI 10e6a  BLT     0x10e84>                                         {[-4-]}
        <POP 10e6c-10e78 Naked>                              Σ-4        ↓ →0x10e7e
            <MI 10e6c  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 10e6e  MOVE.B  (A0+D7.L+#0x1),D0>                               {[-4-]}
            <MI 10e72  CMPI.B  #0x5f,D0>                                        {[-4-]}
            <MI 10e76  BNE     0x10e7e>                                         {[-4-]}
        <POP 10e78-10e7e Naked>                              Σ-4        →0x10e80
            <MI 10e78  MOVE.B  #0x20,(A0+D7.L+#0x1)>                            {[-4-]}
            <MI 10e7c  BRA     0x10e80>                                         {[-4-]}
        <POP 10e7e-10e80 Naked>                              Σ-4        →0x10e84 ←0x10e6c
            <MI 10e7e  BRA     0x10e84>                                         {[-4-]}
        <POP 10e80-10e84 Naked>                              Σ-4        ↓ →0x10e68 ←0x10e78
            <MI 10e80  SUBQ.L  #0x1,D7>                                         {[-4-]}
            <MI 10e82  BVC     0x10e68>                                         {[-4-]}
        <POP 10e84-10e8a Naked>                              Σ-4 Δ+4    ↓ ←0x10e68 ←0x10e7e
            <POP 10e84-10e86 StackAdj>                       Δ+4                {}
            <MI 10e86  MOVE.L  (A6-0x4),(A6+0x10)>                              {}
        <POP 10e8a-10e92 Epilogue>                           Σ0         

0x10e92


@ 10e92
_StringEqual(a, b : String) : Byte
        <LVAR  0x010 1(rw)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 10e92-10ef2 Body>                                   Δ-8        
        <POP 10e92-10ea8 Prologue>                           Σ0         ↓
        <POP 10ea8-10ebc Naked>                              Σ0 Δ-4     ↓ →0x10ee8
            <MI 10ea8  CLR.B   (A6+0x10)>                                       {}
            <MI 10eac  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 10eb0  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 10eb2  MOVEA.L (A6+0x8),A1>                                     {[4, 'A0']}
            <MI 10eb6  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 10eb8  CMP.W   (A1),D0>                                         {[4, 'A0']}
            <MI 10eba  BNE     0x10ee8>                                         {[4, 'A0']}
        <POP 10ebc-10ec2 Naked>                              Σ-4 Δ-4    ↓
            <MI 10ebc  EXTW.L  D0>                                              {[-4-]}
            <MI 10ebe  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 10ec0  MOVEQ.L #0x01,D7>                                        {[-4-]|[4, 'D0']}
        <POP 10ec2-10ec6 Naked>                              Σ-8        ↓ →0x10ee0 ←0x10edc
            <MI 10ec2  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 10ec4  BGT     0x10ee0>                                         {[-8-]}
        <POP 10ec6-10ed8 Naked>                              Σ-8        ↓ →0x10edc
            <MI 10ec6  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 10eca  MOVEA.L (A6+0x8),A1>                                     {[-8-]}
            <MI 10ece  MOVE.B  (A0+D7.L+#0x1),D0>                               {[-8-]}
            <MI 10ed2  CMP.B   (A1+D7.L+#0x1),D0>                               {[-8-]}
            <MI 10ed6  BEQ     0x10edc>                                         {[-8-]}
        <POP 10ed8-10edc Naked>                              Σ-8 Δ+8    →0x10eea
            <POP 10ed8-10eda StackAdj>                       Δ+8                {}
            <MI 10eda  BRA     0x10eea>                                         {}
        <POP 10edc-10ee0 Naked>                              Σ-8        ↓ →0x10ec2 ←0x10ec6
            <MI 10edc  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 10ede  BVC     0x10ec2>                                         {[-8-]}
        <POP 10ee0-10ee8 Naked>                              Σ-8 Δ+4    ↓ ←0x10ec2
            <POP 10ee0-10ee2 StackAdj>                       Δ+4                {[-4-]}
            <MI 10ee2  MOVE.B  #0x01,(A6+0x10)>                                 {[-4-]}
        <POP 10ee8-10eea Naked>                              Σ-4 Δ+4    ↓ ←0x10ea8
            <POP 10ee8-10eea StackAdj>                       Δ+4                {}
        <POP 10eea-10ef2 Epilogue>                           Σ0         ←0x10ed8

0x10ef2


@ 10ef2
_StringDup(a : String) : String
        <LVAR  0x00c 4(w)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 10ef2-10f34 Body>                                              
        <POP 10ef2-10f08 Prologue>                           Σ0         ↓
        <POP 10f08-10f0c RegCacheLoad>                       Σ0         ↓
        <POP 10f0c-10f2c Naked>                              Σ0         ↓
            <Pointer.fp 0x10f0c <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Const 0x10f0e 0x80.4>                           Δ-4                {[@@-4]|[##128]}
            <Call 0x10f12 0x10856>                                              {[@@-4]|[##128]}
                _Malloc1(length : Long) : Pointer
            <POP 10f18-10f1a StackAdj>                       Δ+8                {}
            <MI 10f1a  MOVEA.L (A6-0x4),A0>                                     {}
            <MI 10f1c  MOVEA.L (A6+0x8),A1>                                     {}
            <BlockMove 128,A1,A0>                                               {}
            <MI 10f28  MOVE.L  (A6-0x4),(A6+0xc)>                               {}
        <POP 10f2c-10f34 Epilogue>                           Σ0         

0x10f34


@ 10f34
_StringCat2(a, b : String) : String
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 @ 4(r)>
    <POP 10f34-10fba Body>                                              
        <POP 10f34-10f4a Prologue>                           Σ0         ↓
        <POP 10f4a-10f50 RegCacheLoad>                       Σ0         ↓
        <POP 10f50-10f68 Naked>                              Σ0 Δ-4     ↓ →0x10f70
            <MI 10f50  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 10f54  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 10f56  MOVEA.L (A6+0x8),A1>                                     {[4, 'A0']}
            <MI 10f58  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 10f5a  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 10f5c  MOVE.W  (A1),D1>                                         {[4, 'A0']}
            <MI 10f5e  EXTW.L  D1>                                              {[4, 'A0']}
            <MI 10f60  MOVE.L  D0,D2>                                           {[4, 'A0']}
            <MI 10f62  ADD.L   D1,D2>                                           {[4, 'A0']}
            <MI 10f64  CMP.L   #0x7e,D2>                                        {[4, 'A0']}
            <MI 10f66  BLE     0x10f70>                                         {[4, 'A0']}
        <POP 10f68-10f70 Naked>                              Σ-4        →0x10f72
            <MI 10f68  NEG.L   D0>                                              {[-4-]}
            <MI 10f6a  ADD.L   #0x7e,D0>                                        {[-4-]}
            <MI 10f6c  MOVE.L  D0,D6>                                           {[-4-]}
            <MI 10f6e  BRA     0x10f72>                                         {[-4-]}
        <POP 10f70-10f72 Naked>                              Σ-4        ↓ ←0x10f50
            <MI 10f70  MOVE.L  D1,D6>                                           {[-4-]}
        <POP 10f72-10f76 Naked>                              Σ-4 Δ-4    ↓ ←0x10f68
            <MI 10f72  MOVE.L  D6,-(A7)>                     Δ-4                {[-4-]|[4, 'D6']}
            <MI 10f74  MOVEQ.L #0x01,D7>                                        {[-4-]|[4, 'D6']}
        <POP 10f76-10f7a Naked>                              Σ-8        ↓ →0x10f90 ←0x10f7a
            <MI 10f76  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 10f78  BGT     0x10f90>                                         {[-8-]}
        <POP 10f7a-10f90 Naked>                              Σ-8        ↓ →0x10f76
            <MI 10f7a  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 10f7e  MOVE.W  (A0),D0>                                         {[-8-]}
            <MI 10f80  EXTW.L  D0>                                              {[-8-]}
            <MI 10f82  ADD.L   D7,D0>                                           {[-8-]}
            <MI 10f84  MOVEA.L (A6+0x8),A1>                                     {[-8-]}
            <MI 10f86  MOVE.B  (A1+D7.L+#0x1),(A0+D0.L+#0x1)>                   {[-8-]}
            <MI 10f8c  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 10f8e  BVC     0x10f76>                                         {[-8-]}
        <POP 10f90-10fb2 Naked>                              Σ-8 Δ+8    ↓ ←0x10f76
            <POP 10f90-10f92 StackAdj>                       Δ+4                {[-4-]}
            <MI 10f92  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 10f94  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 10f96  EXTW.L  D0>                                              {[-4-]}
            <MI 10f98  ADD.L   D6,D0>                                           {[-4-]}
            <MI 10f9a  MOVE.W  D0,(A0)>                                         {[-4-]}
            <Pointer.fp 0x10f9c <LVAR  0x008 @ 4(r)>>        Δ-4                {[-4-]|[@@8]}
            <Const 0x10f9e 0x80.4>                           Δ-4                {[-4-]|[@@8]|[##128]}
            <Call 0x10fa2 0x108fa>                                              {[-4-]|[@@8]|[##128]}
                _Free2(a : Pointer; b : Long)
            <POP 10fa8-10faa StackAdj>                       Δ+8                {[-4-]}
            <MI 10faa  MOVE.L  (A6+0xc),(A6+0x10)>                              {[-4-]}
            <POP 10fb0-10fb2 StackAdj>                       Δ+4                {}
        <POP 10fb2-10fba Epilogue>                           Σ0         

0x10fba


@ 10fba
_StringCat3(a, b, c : String) : String
        <LVAR  0x014 4(w)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 10fba-10ff0 Body>                                              
        <POP 10fba-10fcc Prologue>                           Σ0         ↓
        <POP 10fcc-10fec Naked>                              Σ0         ↓
            <POP 10fcc-10fce StackAdj>                       Δ-4                {[-4-]}
            <MI 10fce  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x10)']}
            <POP 10fd2-10fd4 StackAdj>                       Δ-4                {[-4-]|[4, '(A6+0x10)']|[-4-]}
            <MI 10fd4  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']}
            <MI 10fd8  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x10fdc 0x10f34>                                              {[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
                _StringCat2(a, b : String) : String
            <POP 10fe0-10fe2 StackAdj>                       Δ+8                {[-4-]|[4, '(A6+0x10)']|[-4-]}
            <Call 0x10fe2 0x10f34>                                              {[-4-]|[4, '(A6+0x10)']|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 10fe6-10fe8 StackAdj>                       Δ+8                {[-4-]}
            <MI 10fe8  MOVE.L  (A7)+,(A6+0x14)>              Δ+4                {}
        <POP 10fec-10ff0 Epilogue>                           Σ0         

0x10ff0


@ 10ff0
_StringCat4(a, b, c, d : String) : String
        <LVAR  0x018 4(w)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 10ff0-1102c Body>                                              
        <POP 10ff0-11002 Prologue>                           Σ0         ↓
        <POP 11002-11028 Naked>                              Σ0         ↓
            <POP 11002-11004 StackAdj>                       Δ-4                {[-4-]}
            <MI 11004  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']}
            <POP 11008-1100a StackAdj>                       Δ-4                {[-4-]|[4, '(A6+0x14)']|[-4-]}
            <MI 1100a  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x14)']|[-4-]|[4, '(A6+0x10)']}
            <MI 1100e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x14)']|[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 11012  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x14)']|[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x11016 0x10fba>                                              {[-4-]|[4, '(A6+0x14)']|[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
                _StringCat3(a, b, c : String) : String
            <POP 1101a-1101e StackAdj>                       Δ+12               {[-4-]|[4, '(A6+0x14)']|[-4-]}
            <Call 0x1101e 0x10f34>                                              {[-4-]|[4, '(A6+0x14)']|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 11022-11024 StackAdj>                       Δ+8                {[-4-]}
            <MI 11024  MOVE.L  (A7)+,(A6+0x18)>              Δ+4                {}
        <POP 11028-1102c Epilogue>                           Σ0         

0x1102c


@ 1102c
_StringCat5(a, b, c, d, e : String) : String
        <LVAR  0x01c 4(w)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 1102c-1106c Body>                                              
        <POP 1102c-1103e Prologue>                           Σ0         ↓
        <POP 1103e-11068 Naked>                              Σ0         ↓
            <POP 1103e-11040 StackAdj>                       Δ-4                {[-4-]}
            <MI 11040  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x18)']}
            <POP 11044-11046 StackAdj>                       Δ-4                {[-4-]|[4, '(A6+0x18)']|[-4-]}
            <MI 11046  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x18)']|[-4-]|[4, '(A6+0x14)']}
            <MI 1104a  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x18)']|[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 1104e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x18)']|[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 11052  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x18)']|[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x11056 0x10ff0>                                              {[-4-]|[4, '(A6+0x18)']|[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
                _StringCat4(a, b, c, d : String) : String
            <POP 1105a-1105e StackAdj>                       Δ+16               {[-4-]|[4, '(A6+0x18)']|[-4-]}
            <Call 0x1105e 0x10f34>                                              {[-4-]|[4, '(A6+0x18)']|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 11062-11064 StackAdj>                       Δ+8                {[-4-]}
            <MI 11064  MOVE.L  (A7)+,(A6+0x1c)>              Δ+4                {}
        <POP 11068-1106c Epilogue>                           Σ0         

0x1106c


@ 1106c
_StringCat6(a, b, c, d, e, f : String) : String
        <LVAR  0x020 4(w)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 1106c-110b0 Body>                                              
        <POP 1106c-1107e Prologue>                           Σ0         ↓
        <POP 1107e-110ac Naked>                              Σ0         ↓
            <POP 1107e-11080 StackAdj>                       Δ-4                {[-4-]}
            <MI 11080  MOVE.L  (A6+0x1c),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x1c)']}
            <POP 11084-11086 StackAdj>                       Δ-4                {[-4-]|[4, '(A6+0x1c)']|[-4-]}
            <MI 11086  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x1c)']|[-4-]|[4, '(A6+0x18)']}
            <MI 1108a  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x1c)']|[-4-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
            <MI 1108e  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x1c)']|[-4-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 11092  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x1c)']|[-4-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 11096  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0x1c)']|[-4-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x1109a 0x1102c>                                              {[-4-]|[4, '(A6+0x1c)']|[-4-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
                _StringCat5(a, b, c, d, e : String) : String
            <POP 1109e-110a2 StackAdj>                       Δ+20               {[-4-]|[4, '(A6+0x1c)']|[-4-]}
            <Call 0x110a2 0x10f34>                                              {[-4-]|[4, '(A6+0x1c)']|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 110a6-110a8 StackAdj>                       Δ+8                {[-4-]}
            <MI 110a8  MOVE.L  (A7)+,(A6+0x20)>              Δ+4                {}
        <POP 110ac-110b0 Epilogue>                           Σ0         

0x110b0


@ 110b0
_Long2String(a : Long) : String
        <LVAR  0x00c 4(w)>
        <LVAR  0x008 4(rw)>
        <LVAR -0x008 @ 4(rw)>
        <LVAR -0x00c @ 4(r)>
    <POP 110b0-111b4 Body>                                              
        <POP 110b0-110c6 Prologue>                           Σ0         ↓
        <POP 110c6-110d6 RegCacheLoad>                       Σ0         ↓
        <POP 110d6-110da Naked>                              Σ0         ↓ →0x110f8
            <MI 110d6  TST.L   (A6+0x8)>                                        {}
            <MI 110d8  BNE     0x110f8>                                         {}
        <POP 110da-110f8 Naked>                              Σ0         →0x111a8
            <Blob 0x110da [2] @>                             Δ-2                {[«2""»]}
            <POP 110de-110e0 StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <Lit 0x110e0 2>                                                     {[«2""»]|[$$0 ]}
            <MI 110f0  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«2""»]}
            <POP 110f2-110f4 StackAdj>                       Δ+2                {}
            <MI 110f4  BRA     0x111a8>                                         {}
        <POP 110f8-11102 Naked>                              Σ0         ↓ →0x1112a ←0x110d6
            <MI 110f8  MOVE.L  (A6+0x8),D0>                                     {}
            <MI 110fa  CMPI.L  #0x80000000,D0>                                  {}
            <MI 11100  BNE     0x1112a>                                         {}
        <POP 11102-1112a Naked>                              Σ0         →0x111a8
            <Blob 0x11102 [12] @>                            Δ-12               {[«12""»]}
            <POP 11112-11114 StackAdj>                       Δ-4                {[«12""»]|[-4-]}
            <Lit 0x11114 11>                                                    {[«12""»]|[$$-2147483648]}
            <MI 11124  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«12""»]}
            <POP 11126-11128 StackAdj>                       Δ+12               {}
            <MI 11128  BRA     0x111a8>                                         {}
        <POP 1112a-1113e Naked>                              Σ0         ↓ →0x1114e ←0x110f8
            <Pointer.fp 0x1112a <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x1112c 0x10d42>                                              {[@@-8]}
                _NewString(VAR a : String)
            <POP 11130-11132 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x11132 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Call 0x11134 0x10d42>                                              {[@@-12]}
                _NewString(VAR a : String)
            <POP 11138-1113a StackAdj>                       Δ+4                {}
            <MI 1113a  TST.L   D0>                                              {}
            <MI 1113c  BGE     0x1114e>                                         {}
        <POP 1113e-1114e Naked>                              Σ0         ↓
            <MI 1113e  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <Const 0x11140 0x2d.2>                           Δ-2                {[4, '(A6-0x8)']|[#45]}
            <Call 0x11144 0x10da6>                                              {[4, '(A6-0x8)']|[#45]}
                _AppendChar(MOD b : String; a : char)
            <POP 11148-1114a StackAdj>                       Δ+6                {}
            <MI 1114a  NEG.L   D0>                                              {}
            <MI 1114c  MOVE.L  D0,(A6+0x8)>                                     {}
        <POP 1114e-1116e Naked>                              Σ0         ↓ →0x1114e ←0x1112a ←0x1114e
            <MI 1114e  MOVE.L  (A6+0x8),D4>                                     {}
            <MI 11150  MOVEQ.L #0x0a,D3>                                        {}
            <Call 0x11152 0x1080a>                                              {}
                _?divs_d3_d4
            <MI 11158  MOVE.L  D3,D7>                                           {}
            <MI 1115a  MOVE.L  D4,(A6+0x8)>                                     {}
            <MI 1115c  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0xc)']}
            <MI 1115e  MOVEQ.L #0x30,D0>                                        {[4, '(A6-0xc)']}
            <MI 11160  ADD.L   D7,D0>                                           {[4, '(A6-0xc)']}
            <MI 11162  MOVE.B  D0,-(A7)>                     Δ-2                {[4, '(A6-0xc)']|[2, 'D0']}
            <Call 0x11164 0x10da6>                                              {[4, '(A6-0xc)']|[2, 'D0']}
                _AppendChar(MOD b : String; a : char)
            <POP 11168-1116a StackAdj>                       Δ+6                {}
            <MI 1116a  TST.L   D4>                                              {}
            <MI 1116c  BNE     0x1114e>                                         {}
        <POP 1116e-1117c Naked>                              Σ0 Δ-8     ↓
            <MI 1116e  MOVEA.L (A6-0xc),A0>                                     {}
            <MI 11170  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 11172  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 11174  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 11176  SUBQ.L  #0x1,D0>                                         {[4, 'A0']}
            <MI 11178  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 1117a  MOVEQ.L #0x00,D7>                                        {[4, 'A0']|[4, 'D0']}
        <POP 1117c-11180 Naked>                              Σ-8        ↓ →0x1119e ←0x11180
            <MI 1117c  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 1117e  BGT     0x1119e>                                         {[-8-]}
        <POP 11180-1119e Naked>                              Σ-8        ↓ →0x1117c
            <MI 11180  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0x8)']}
            <MI 11182  MOVEA.L (A7+0x8),A0>                                     {[-8-]|[4, '(A6-0x8)']}
            <MI 11186  MOVE.W  (A0),D0>                                         {[-8-]|[4, '(A6-0x8)']}
            <MI 11188  EXTW.L  D0>                                              {[-8-]|[4, '(A6-0x8)']}
            <MI 1118a  SUB.L   D7,D0>                                           {[-8-]|[4, '(A6-0x8)']}
            <MI 1118c  MOVEA.L (A7+0x8),A0>                                     {[-8-]|[4, '(A6-0x8)']}
            <MI 11190  MOVE.B  (A0+D0.L+#0x1),-(A7)>         Δ-2                {[-8-]|[4, '(A6-0x8)']|[2, '(A0+D0.L+#0x1)']}
            <Call 0x11194 0x10da6>                                              {[-8-]|[4, '(A6-0x8)']|[2, '(A0+D0.L+#0x1)']}
                _AppendChar(MOD b : String; a : char)
            <POP 11198-1119a StackAdj>                       Δ+6                {[-8-]}
            <MI 1119a  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 1119c  BVC     0x1117c>                                         {[-8-]}
        <POP 1119e-111a8 Naked>                              Σ-8 Δ+8    ↓ ←0x1117c
            <POP 1119e-111a0 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x111a0 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Call 0x111a2 0x10d76>                                              {[@@-12]}
                _FreeString(VAR a : String)
            <POP 111a6-111a8 StackAdj>                       Δ+4                {}
        <POP 111a8-111ac Naked>                              Σ0         ↓ ←0x110da ←0x11102
            <MI 111a8  MOVE.L  (A6-0x8),(A6+0xc)>                               {}
        <POP 111ac-111b4 Epilogue>                           Σ0         

0x111b4


@ 111b4
_Long2HexString(val : Long; ndig : Long) : String
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(rw)>
        <LVAR  0x008 4(rw)>
        <LVAR -0x00c @ 4(r)>
    <POP 111b4-11264 Body>                                              
        <POP 111b4-111ca Prologue>                           Σ0         ↓
        <POP 111ca-111d8 RegCacheLoad>                       Σ0         ↓
        <POP 111d8-111ec Naked>                              Σ0 Δ-4     ↓ →0x111f0
            <Pointer.fp 0x111d8 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Call 0x111da 0x10d42>                                              {[@@-12]}
                _NewString(VAR a : String)
            <POP 111de-111e0 StackAdj>                       Δ+4                {}
            <MI 111e0  MOVEA.L (A6-0xc),A0>                                     {}
            <MI 111e2  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 111e4  MOVEQ.L #0x08,D5>                                        {[4, 'A0']}
            <MI 111e6  MOVE.L  (A6+0x8),D0>                                     {[4, 'A0']}
            <MI 111e8  CMP.L   #0x01,D0>                                        {[4, 'A0']}
            <MI 111ea  BLT     0x111f0>                                         {[4, 'A0']}
        <POP 111ec-111f0 Naked>                              Σ-4        ↓ →0x111f2
            <MI 111ec  CMP.L   D5,D0>                                           {[-4-]}
            <MI 111ee  BLE     0x111f2>                                         {[-4-]}
        <POP 111f0-111f2 Naked>                              Σ-4        ↓ ←0x111d8
            <MI 111f0  MOVE.L  D5,(A6+0x8)>                                     {[-4-]}
        <POP 111f2-11210 Naked>                              Σ-4        ↓ ←0x111ec
            <MI 111f2  MOVE.L  (A6+0x8),D0>                                     {[-4-]}
            <POP 0x111f4 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff>                      {[-4-]}
            <MI 1120a  MOVE.W  D0,(A0)>                                         {[-4-]}
            <MI 1120c  MOVE.L  (A6+0xc),D7>                                     {[-4-]}
            <MI 1120e  MOVE.L  (A6+0x8),D6>                                     {[-4-]}
        <POP 11210-11214 Naked>                              Σ-4        ↓ →0x11256 ←0x1122c
            <MI 11210  CMP.L   #0x01,D6>                                        {[-4-]}
            <MI 11212  BLT     0x11256>                                         {[-4-]}
        <POP 11214-11228 Naked>                              Σ-4        ↓ →0x1122c
            <MI 11214  MOVE.L  D7,(A6+0xc)>                                     {[-4-]}
            <MI 11216  ANDI.L  #0x0000000f,(A6+0xc)>                            {[-4-]}
            <MI 1121c  LSR.L   #0x4,D7>                                         {[-4-]}
            <MI 1121e  MOVE.L  (A6+0xc),D0>                                     {[-4-]}
            <MI 11220  CMPI.L  #0x00000009,D0>                                  {[-4-]}
            <MI 11226  BLS     0x1122c>                                         {[-4-]}
        <POP 11228-1122c Naked>                              Σ-4        ↓
            <MI 11228  ADDQ.L  #0x7,D0>                                         {[-4-]}
            <MI 1122a  MOVE.L  D0,(A6+0xc)>                                     {[-4-]}
        <POP 1122c-11256 Naked>                              Σ-4        ↓ →0x11210 ←0x11214
            <MI 1122c  MOVE.L  D6,D0>                                           {[-4-]}
            <MI 1122e  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x11230 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-4-]}
            <MI 1123a  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 1123c  MOVE.L  (A6+0xc),D1>                                     {[-4-]}
            <MI 1123e  ADDI.L  #0x00000030,D1>                                  {[-4-]}
            <POP 0x11244 LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {[-4-]}
            <MI 1124e  MOVE.B  D1,(A0+D0.L+#0x2)>                               {[-4-]}
            <MI 11252  SUBQ.L  #0x1,D6>                                         {[-4-]}
            <MI 11254  BVC     0x11210>                                         {[-4-]}
        <POP 11256-1125c Naked>                              Σ-4 Δ+4    ↓ ←0x11210
            <POP 11256-11258 StackAdj>                       Δ+4                {}
            <MI 11258  MOVE.L  (A6-0xc),(A6+0x10)>                              {}
        <POP 1125c-11264 Epilogue>                           Σ0         

0x11264


@ 11264
        <LVAR  0x00c 1(rw)>
        <LVAR  0x008 4(r)>
    <POP 11264-11288 Body>                                              
        <POP 11264-11276 Prologue>                           Σ0         ↓
        <POP 11276-11280 Naked>                              Σ0         ↓ →0x11284
            <MI 11276  CLR.B   (A6+0xc)>                                        {}
            <MI 1127a  TST.L   (A6+0x8)>                                        {}
            <MI 1127e  BLT     0x11284>                                         {}
        <POP 11280-11284 Naked>                              Σ0         ↓
            <MI 11280  ADDQ.B  #0x1,(A6+0xc)>                                   {}
        <POP 11284-11288 Epilogue>                           Σ0         ←0x11276

0x11288


@ 11288
_String2Long(src : String; VAR status : Bool; VAR retval : Long)
        <LVAR  0x010 @ 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 4(rw)>
        <LVAR -0x008 4(rw)>
        <LVAR -0x00e 2(rw)>
    <POP 11288-113b4 Body>                                   Δ-20       
        <POP 11288-1129e Prologue>                           Σ0         ↓
        <POP 1129e-112aa RegCacheLoad>                       Σ0         ↓
        <POP 112aa-112cc Naked>                              Σ0 Δ-4     ↓ →0x112d2
            <MI 112aa  MOVE.L  #0xccccccc,(A6-0x8)>                             {}
            <MI 112b2  MOVE.L  #0xf3333334,(A6-0x4)>                            {}
            <MI 112ba  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 112be  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 112c0  MOVEA.L (A6+0xc),A1>                                     {[4, 'A0']}
            <MI 112c4  CLR.B   (A1)>                                            {[4, 'A0']}
            <MI 112c6  MOVEQ.L #0x01,D7>                                        {[4, 'A0']}
            <MI 112c8  TST.W   (A0)>                                            {[4, 'A0']}
            <MI 112ca  BNE     0x112d2>                                         {[4, 'A0']}
        <POP 112cc-112d2 Naked>                              Σ-4 Δ+4    →0x1139c
            <POP 112cc-112ce StackAdj>                       Δ+4                {}
            <MI 112ce  BRA     0x1139c>                                         {}
        <POP 112d2-112dc Naked>                              Σ-4        ↓ →0x112e2 ←0x112aa
            <MI 112d2  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 112d4  MOVE.B  (A0+0x2),D0>                                     {[-4-]}
            <MI 112d8  CMP.B   #0x2d,D0>                                        {[-4-]}
            <MI 112da  BNE     0x112e2>                                         {[-4-]}
        <POP 112dc-112e2 Naked>                              Σ-4        →0x112e4
            <MI 112dc  MOVE.W  #0xffff,(A6-0xe)>                                {[-4-]}
            <MI 112e0  BRA     0x112e4>                                         {[-4-]}
        <POP 112e2-112e4 Naked>                              Σ-4        ↓ ←0x112d2
            <MI 112e2  MOVE.W  #0x01,(A6-0xe)>                                  {[-4-]}
        <POP 112e4-112ee Naked>                              Σ-4        ↓ →0x112f2 ←0x112dc
            <MI 112e4  MOVE.B  (A0+0x2),D0>                                     {[-4-]}
            <MI 112e8  CMPI.B  #0x2b,D0>                                        {[-4-]}
            <MI 112ec  BEQ     0x112f2>                                         {[-4-]}
        <POP 112ee-112f2 Naked>                              Σ-4        ↓ →0x11302
            <MI 112ee  CMP.B   #0x2d,D0>                                        {[-4-]}
            <MI 112f0  BNE     0x11302>                                         {[-4-]}
        <POP 112f2-112fc Naked>                              Σ-4        ↓ →0x11302 ←0x112e4
            <MI 112f2  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 112f4  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 112f6  EXTW.L  D0>                                              {[-4-]}
            <MI 112f8  CMP.L   D0,D7>                                           {[-4-]}
            <MI 112fa  BLE     0x11302>                                         {[-4-]}
        <POP 112fc-11302 Naked>                              Σ-4 Δ+4    →0x1139c
            <POP 112fc-112fe StackAdj>                       Δ+4                {}
            <MI 112fe  BRA     0x1139c>                                         {}
        <POP 11302-11306 Naked>                              Σ-4        ↓ ←0x112ee ←0x112f2
            <MI 11302  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 11304  CLR.L   (A0)>                                            {[-4-]}
        <POP 11306-11320 Naked>                              Σ-4        ↓ →0x11326 ←0x11380
            <MI 11306  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 11308  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x1130a LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-4-]}
            <MI 11314  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 11316  MOVE.B  (A0+D0.L+#0x2),D6>                               {[-4-]}
            <MI 1131a  CMPI.B  #0x30,D6>                                        {[-4-]}
            <MI 1131e  BCS     0x11326>                                         {[-4-]}
        <POP 11320-11326 Naked>                              Σ-4        ↓ →0x1132a
            <MI 11320  CMPI.B  #0x39,D6>                                        {[-4-]}
            <MI 11324  BLS     0x1132a>                                         {[-4-]}
        <POP 11326-1132a Naked>                              Σ-4 Δ+4    →0x1139c ←0x11306
            <POP 11326-11328 StackAdj>                       Δ+4                {}
            <MI 11328  BRA     0x1139c>                                         {}
        <POP 1132a-11340 Naked>                              Σ-4        ↓ →0x11346 ←0x11320
            <MI 1132a  CLR.L   D0>                                              {[-4-]}
            <MI 1132c  MOVE.B  D6,D0>                                           {[-4-]}
            <MI 1132e  SUBI.W  #0x0030,D0>                                      {[-4-]}
            <MI 11332  MULS.W  (A6-0xe),D0>                                     {[-4-]}
            <MI 11334  MOVE.L  D0,D5>                                           {[-4-]}
            <MI 11336  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 11338  MOVE.L  (A0),D0>                                         {[-4-]}
            <MI 1133a  CMP.L   (A6-0x4),D0>                                     {[-4-]}
            <MI 1133e  BLT     0x11346>                                         {[-4-]}
        <POP 11340-11346 Naked>                              Σ-4        ↓ →0x1134a
            <MI 11340  CMP.L   (A6-0x8),D0>                                     {[-4-]}
            <MI 11344  BLE     0x1134a>                                         {[-4-]}
        <POP 11346-1134a Naked>                              Σ-4 Δ+4    →0x1139c ←0x1132a
            <POP 11346-11348 StackAdj>                       Δ+4                {}
            <MI 11348  BRA     0x1139c>                                         {}
        <POP 1134a-1135c Naked>                              Σ-4        ↓ →0x11360 ←0x11340
            <MI 1134a  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 1134c  MOVE.L  (A0),D4>                                         {[-4-]}
            <MI 1134e  MOVEQ.L #0x0a,D3>                                        {[-4-]}
            <Call 0x11350 0x107ea>                                              {[-4-]}
                _?muls_d3_d4
            <MI 11356  MOVE.L  D4,(A0)>                                         {[-4-]}
            <MI 11358  TST.L   D4>                                              {[-4-]}
            <MI 1135a  BNE     0x11360>                                         {[-4-]}
        <POP 1135c-11360 Naked>                              Σ-4 Δ-2    →0x11380
            <POP 1135c-1135e StackAdj>                       Δ-2                {[-6-]}
            <MI 1135e  BRA     0x11380>                                         {[-6-]}
        <POP 11360-1137c Naked>                              Σ-4 Δ-2    ↓ →0x11380 ←0x1134a
            <POP 11360-11362 StackAdj>                       Δ-2                {[-6-]}
            <MI 11362  MOVE.L  D4,-(A7)>                     Δ-4                {[-6-]|[4, 'D4']}
            <Call 0x11364 0x11264>                                              {[-6-]|[4, 'D4']}
            <POP 11368-1136a StackAdj>                       Δ+2                {[-6-]|[-2-]}
            <MI 1136a  MOVE.L  D4,-(A7)>                     Δ-4                {[-6-]|[-2-]|[4, 'D4']}
            <MI 1136c  ADD.L   D5,(A7)>                                         {[-6-]|[-6-]}
            <Call 0x1136e 0x11264>                                              {[-6-]|[-6-]}
            <POP 11372-11374 StackAdj>                       Δ+4                {[-6-]|[-2-]}
            <MI 11374  MOVE.B  (A7+0x2),D0>                                     {[-6-]|[-2-]}
            <MI 11378  CMP.B   (A7)+,D0>                     Δ+2                {[-6-]}
            <MI 1137a  BEQ     0x11380>                                         {[-6-]}
        <POP 1137c-11380 Naked>                              Σ-6 Δ+6    →0x1139c
            <POP 1137c-1137e StackAdj>                       Δ+6                {}
            <MI 1137e  BRA     0x1139c>                                         {}
        <POP 11380-11394 Naked>                              Σ-6 Δ+2    ↓ →0x11306 ←0x1135c ←0x11360
            <POP 11380-11382 StackAdj>                       Δ+2                {[-4-]}
            <MI 11382  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 11384  ADD.L   D5,(A0)>                                         {[-4-]}
            <MI 11386  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 11388  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 1138a  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 1138c  EXTW.L  D0>                                              {[-4-]}
            <MI 1138e  CMP.L   D0,D7>                                           {[-4-]}
            <MI 11390  BLE     0x11306>                                         {[-4-]}
        <POP 11394-1139c Naked>                              Σ-4 Δ+4    ↓
            <MI 11394  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 11398  MOVE.B  #0x01,(A0)>                                      {[-4-]}
            <POP 1139a-1139c StackAdj>                       Δ+4                {}
        <POP 1139c-113ac Naked>                              Σ0         ↓ ←0x112cc ←0x112fc ←0x11326 ←0x11346 ←0x1137c
            <Pointer.fp 0x1139c <LVAR  0x010 @ 4(r)>>        Δ-4                {[@@16]}
            <Const 0x113a0 0x80.4>                           Δ-4                {[@@16]|[##128]}
            <Call 0x113a4 0x108fa>                                              {[@@16]|[##128]}
                _Free2(a : Pointer; b : Long)
            <POP 113aa-113ac StackAdj>                       Δ+8                {}
        <POP 113ac-113b4 Epilogue>                           Σ0         

0x113b4


@ 113b4
_ToUpper(a : String) : String
        <LVAR  0x00c 4(w)>
        <LVAR  0x008 4(r)>
    <POP 113b4-11422 Body>                                              
        <POP 113b4-113ca Prologue>                           Σ0         ↓
        <POP 113ca-113d8 Naked>                              Σ0 Δ-8     ↓
            <MI 113ca  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 113ce  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 113d0  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 113d2  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 113d4  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 113d6  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D0']}
        <POP 113d8-113dc Naked>                              Σ-8        ↓ →0x11412 ←0x1140e
            <MI 113d8  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 113da  BGT     0x11412>                                         {[-8-]}
        <POP 113dc-113f8 Naked>                              Σ-8        ↓ →0x1140e
            <MI 113dc  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 113de  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x113e0 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 113ea  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 113ee  MOVE.B  (A0+D0.L+#0x2),D6>                               {[-8-]}
            <MI 113f2  CMPI.B  #0x61,D6>                                        {[-8-]}
            <MI 113f6  BCS     0x1140e>                                         {[-8-]}
        <POP 113f8-113fe Naked>                              Σ-8        ↓ →0x1140e
            <MI 113f8  CMPI.B  #0x7a,D6>                                        {[-8-]}
            <MI 113fc  BHI     0x1140e>                                         {[-8-]}
        <POP 113fe-1140e Naked>                              Σ-8        ↓
            <MI 113fe  CLR.L   D1>                                              {[-8-]}
            <MI 11400  MOVE.B  D6,D1>                                           {[-8-]}
            <MI 11402  SUBI.W  #0x0020,D1>                                      {[-8-]}
            <POP 0x11406 LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {[-8-]}
            <MI 1140a  MOVE.B  D1,(A0+D0.L+#0x2)>                               {[-8-]}
        <POP 1140e-11412 Naked>                              Σ-8        ↓ →0x113d8 ←0x113dc ←0x113f8
            <MI 1140e  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 11410  BVC     0x113d8>                                         {[-8-]}
        <POP 11412-1141a Naked>                              Σ-8 Δ+8    ↓ ←0x113d8
            <POP 11412-11414 StackAdj>                       Δ+8                {}
            <MI 11414  MOVE.L  (A6+0x8),(A6+0xc)>                               {}
        <POP 1141a-11422 Epilogue>                           Σ0         

0x11422


@ 11422
_RightPad(a : String; b : Long) : String
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 11422-11480 Body>                                              
        <POP 11422-11438 Prologue>                           Σ0         ↓
        <POP 11438-1143c RegCacheLoad>                       Σ0         ↓
        <POP 1143c-11454 Naked>                              Σ0 Δ-4     ↓
            <Pointer.fp 0x1143c <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Call 0x1143e 0x10d42>                                              {[@@-8]}
                _NewString(VAR a : String)
            <POP 11442-11444 StackAdj>                       Δ+4                {}
            <MI 11444  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 11448  MOVE.W  (A0),D0>                                         {}
            <MI 1144a  EXTW.L  D0>                                              {}
            <MI 1144c  ADDQ.L  #0x1,D0>                                         {}
            <MI 1144e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 11452  MOVE.L  D0,D7>                                           {[4, '(A6+0x8)']}
        <POP 11454-11458 Naked>                              Σ-4        ↓ →0x11468 ←0x11458
            <MI 11454  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 11456  BGT     0x11468>                                         {[-4-]}
        <POP 11458-11468 Naked>                              Σ-4        ↓ →0x11454
            <MI 11458  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x8)']}
            <Const 0x1145a 0x20.2>                           Δ-2                {[-4-]|[4, '(A6-0x8)']|[#32]}
            <Call 0x1145e 0x10da6>                                              {[-4-]|[4, '(A6-0x8)']|[#32]}
                _AppendChar(MOD b : String; a : char)
            <POP 11462-11464 StackAdj>                       Δ+6                {[-4-]}
            <MI 11464  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 11466  BVC     0x11454>                                         {[-4-]}
        <POP 11468-11478 Naked>                              Σ-4 Δ+4    ↓ ←0x11454
            <MI 11468  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x8)']}
            <MI 1146a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x8)']|[4, '(A6+0xc)']}
            <Call 0x1146e 0x10f34>                                              {[-4-]|[4, '(A6-0x8)']|[4, '(A6+0xc)']}
                _StringCat2(a, b : String) : String
            <POP 11472-11474 StackAdj>                       Δ+8                {[-4-]}
            <MI 11474  MOVE.L  (A7)+,(A6+0x10)>              Δ+4                {}
        <POP 11478-11480 Epilogue>                           Σ0         

0x11480


@ 11480
_LeftPad(a : String; b : Long) : String
        <LVAR  0x010 4(w)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(rw)>
    <POP 11480-114d6 Body>                                              
        <POP 11480-11496 Prologue>                           Σ0         ↓
        <POP 11496-114a0 RegCacheLoad>                       Σ0         ↓
        <POP 114a0-114a6 Naked>                              Σ0         ↓ →0x114a8
            <MI 114a0  MOVE.L  (A6+0x8),D0>                                     {}
            <MI 114a2  CMP.L   #0x7e,D0>                                        {}
            <MI 114a4  BLE     0x114a8>                                         {}
        <POP 114a6-114a8 Naked>                              Σ0         ↓
            <MI 114a6  MOVE.L  #0x7e,(A6+0x8)>                                  {}
        <POP 114a8-114b4 Naked>                              Σ0 Δ-4     ↓ ←0x114a0
            <MI 114a8  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 114aa  MOVE.W  (A0),D0>                                         {}
            <MI 114ac  EXTW.L  D0>                                              {}
            <MI 114ae  ADDQ.L  #0x1,D0>                                         {}
            <MI 114b0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 114b2  MOVE.L  D0,D7>                                           {[4, '(A6+0x8)']}
        <POP 114b4-114b8 Naked>                              Σ-4        ↓ →0x114c8 ←0x114b8
            <MI 114b4  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 114b6  BGT     0x114c8>                                         {[-4-]}
        <POP 114b8-114c8 Naked>                              Σ-4        ↓ →0x114b4
            <MI 114b8  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <Const 0x114ba 0x20.2>                           Δ-2                {[-4-]|[4, '(A6+0xc)']|[#32]}
            <Call 0x114be 0x10da6>                                              {[-4-]|[4, '(A6+0xc)']|[#32]}
                _AppendChar(MOD b : String; a : char)
            <POP 114c2-114c4 StackAdj>                       Δ+6                {[-4-]}
            <MI 114c4  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 114c6  BVC     0x114b4>                                         {[-4-]}
        <POP 114c8-114ce Naked>                              Σ-4 Δ+4    ↓ ←0x114b4
            <POP 114c8-114ca StackAdj>                       Δ+4                {}
            <MI 114ca  MOVE.L  (A6+0xc),(A6+0x10)>                              {}
        <POP 114ce-114d6 Epilogue>                           Σ0         

0x114d6


@ 114d6
_FirstField(MOD input : String; MOD output : String; VAR c : Bool
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 114d6-115fe Body>                                   Δ-8        
        <POP 114d6-114ec Prologue>                           Σ0         ↓
        <POP 114ec-114f2 RegCacheLoad>                       Σ0         ↓
        <POP 114f2-11502 Naked>                              Σ0 Δ-8     ↓
            <MI 114f2  MOVEQ.L #0x00,D6>                                        {}
            <MI 114f4  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 114f8  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 114fa  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 114fc  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 114fe  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 11500  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D0']}
        <POP 11502-11506 Naked>                              Σ-8        ↓ →0x11534 ←0x11530
            <MI 11502  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 11504  BGT     0x11534>                                         {[-8-]}
        <POP 11506-11528 Naked>                              Σ-8        ↓ →0x1152c
            <MI 11506  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 11508  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x1150a LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 11510  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 11514  CLR.L   D1>                                              {[-8-]}
            <MI 11516  MOVE.B  (A0+D0.L+#0x2),D1>                               {[-8-]}
            <MI 1151a  LEA.L   0x10d22,A0>                                      {[-8-]}
            <MI 1151e  MOVE.W  D1,D0>                                           {[-8-]}
            <MI 11520  LSR.W   #0x3,D0>                                         {[-8-]}
            <MI 11522  BTST.B  D1,(A0+D0.W)>                                    {[-8-]}
            <MI 11526  BEQ     0x1152c>                                         {[-8-]}
        <POP 11528-1152c Naked>                              Σ-8        →0x11530
            <MI 11528  ADDQ.L  #0x1,D6>                                         {[-8-]}
            <MI 1152a  BRA     0x11530>                                         {[-8-]}
        <POP 1152c-11530 Naked>                              Σ-8 Δ+4    →0x11536 ←0x11506
            <POP 1152c-1152e StackAdj>                       Δ+4                {[-4-]}
            <MI 1152e  BRA     0x11536>                                         {[-4-]}
        <POP 11530-11534 Naked>                              Σ-8        ↓ →0x11502 ←0x11528
            <MI 11530  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 11532  BVC     0x11502>                                         {[-8-]}
        <POP 11534-11536 Naked>                              Σ-8 Δ+4    ↓ ←0x11502
            <POP 11534-11536 StackAdj>                       Δ+4                {[-4-]}
        <POP 11536-11548 Naked>                              Σ-4 Δ-4    ↓ ←0x1152c
            <MI 11536  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 11538  CLR.W   (A0)>                                            {[-4-]}
            <MI 1153a  MOVE.L  D6,D0>                                           {[-4-]}
            <MI 1153c  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 1153e  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 11540  MOVE.W  (A0),D1>                                         {[-4-]}
            <MI 11542  EXTW.L  D1>                                              {[-4-]}
            <MI 11544  MOVE.L  D1,-(A7)>                     Δ-4                {[-4-]|[4, 'D1']}
            <MI 11546  MOVE.L  D0,D7>                                           {[-4-]|[4, 'D1']}
        <POP 11548-1154c Naked>                              Σ-8        ↓ →0x11584 ←0x11576
            <MI 11548  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 1154a  BGT     0x11584>                                         {[-8-]}
        <POP 1154c-11564 Naked>                              Σ-8        ↓ →0x11570
            <MI 1154c  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 1154e  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x11550 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 11556  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 1155a  MOVE.B  (A0+D0.L+#0x2),D1>                               {[-8-]}
            <MI 1155e  CMPI.B  #0x20,D1>                                        {[-8-]}
            <MI 11562  BEQ     0x11570>                                         {[-8-]}
        <POP 11564-1156a Naked>                              Σ-8        ↓ →0x11570
            <MI 11564  CMPI.B  #0x2c,D1>                                        {[-8-]}
            <MI 11568  BEQ     0x11570>                                         {[-8-]}
        <POP 1156a-11570 Naked>                              Σ-8        ↓ →0x11576
            <MI 1156a  CMPI.B  #0x09,D1>                                        {[-8-]}
            <MI 1156e  BNE     0x11576>                                         {[-8-]}
        <POP 11570-11574 Naked>                              Σ-8 Δ+4    →0x11586 ←0x1154c ←0x11564
            <POP 11570-11572 StackAdj>                       Δ+4                {[-4-]}
            <MI 11572  BRA     0x11586>                                         {[-4-]}
        <POP 11576-11584 Naked>                              Σ-8        ↓ →0x11548 ←0x1156a
            <MI 11576  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0xc)']}
            <MI 11578  MOVE.B  D1,-(A7)>                     Δ-2                {[-8-]|[4, '(A6+0xc)']|[2, 'D1']}
            <Call 0x1157a 0x10da6>                                              {[-8-]|[4, '(A6+0xc)']|[2, 'D1']}
                _AppendChar(MOD b : String; a : char)
            <POP 1157e-11580 StackAdj>                       Δ+6                {[-8-]}
            <MI 11580  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 11582  BVC     0x11548>                                         {[-8-]}
        <POP 11584-11586 Naked>                              Σ-8 Δ+4    ↓ ←0x11548
            <POP 11584-11586 StackAdj>                       Δ+4                {[-4-]}
        <POP 11586-1159c Naked>                              Σ-4 Δ-4    ↓ ←0x11570
            <MI 11586  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 11588  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 1158a  EXTW.L  D0>                                              {[-4-]}
            <MI 1158c  ADD.L   D6,D0>                                           {[-4-]}
            <MI 1158e  MOVE.L  D0,D5>                                           {[-4-]}
            <MI 11590  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 11592  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 11594  EXTW.L  D0>                                              {[-4-]}
            <MI 11596  SUB.L   D5,D0>                                           {[-4-]}
            <MI 11598  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 1159a  MOVEQ.L #0x01,D7>                                        {[-4-]|[4, 'D0']}
        <POP 1159c-115a0 Naked>                              Σ-8        ↓ →0x115c4 ←0x115a0
            <MI 1159c  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 1159e  BGT     0x115c4>                                         {[-8-]}
        <POP 115a0-115c4 Naked>                              Σ-8        ↓ →0x1159c
            <MI 115a0  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 115a2  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x115a4 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 115aa  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 115ae  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 115b0  ADD.L   D5,D1>                                           {[-8-]}
            <MI 115b2  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x115b4 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 115ba  MOVE.B  (A0+D1.L+#0x2),(A0+D0.L+#0x2)>                   {[-8-]}
            <MI 115c0  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 115c2  BVC     0x1159c>                                         {[-8-]}
        <POP 115c4-115f4 Naked>                              Σ-8 Δ+8    ↓ →0x115f6 ←0x1159c
            <POP 115c4-115c6 StackAdj>                       Δ+4                {[-4-]}
            <MI 115c6  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 115c8  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 115ca  EXTW.L  D0>                                              {[-4-]}
            <MI 115cc  SUB.L   D5,D0>                                           {[-4-]}
            <POP 0x115ce LimitCheck -0x8000 ≤ D0 ≤ 0x7fff>                      {[-4-]}
            <MI 115e4  MOVE.W  D0,(A0)>                                         {[-4-]}
            <POP 115e6-115e8 StackAdj>                       Δ+4                {}
            <MI 115e8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 115ec  CLR.B   (A0)>                                            {}
            <MI 115ee  MOVEA.L (A6+0xc),A1>                                     {}
            <MI 115f0  TST.W   (A1)>                                            {}
            <MI 115f2  BEQ     0x115f6>                                         {}
        <POP 115f4-115f6 Naked>                              Σ0         ↓
            <MI 115f4  ADDQ.B  #0x1,(A0)>                                       {}
        <POP 115f6-115fe Epilogue>                           Σ0         ←0x115c4

0x115fe


@ 115fe
_FSCALL_10300
        <LVAR  0x010 4(rw)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 115fe-1169a Body>                                   Δ-8        
        <POP 115fe-11614 Prologue>                           Σ0         ↓
        <POP 11614-11616 RegCacheLoad>                       Σ0         ↓
        <POP 11616-11636 Naked>                              Σ0 Δ-8     ↓
            <MI 11616  CLR.L   (A6+0x10)>                                       {}
            <MI 1161a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1161e  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 11620  MOVEA.L (A6+0xc),A1>                                     {[4, 'A0']}
            <MI 11624  MOVE.W  (A1),D0>                                         {[4, 'A0']}
            <MI 11626  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 11628  MOVE.W  (A0),D1>                                         {[4, 'A0']}
            <MI 1162a  EXTW.L  D1>                                              {[4, 'A0']}
            <MI 1162c  NEG.L   D1>                                              {[4, 'A0']}
            <MI 1162e  ADD.L   D0,D1>                                           {[4, 'A0']}
            <MI 11630  ADDQ.L  #0x1,D1>                                         {[4, 'A0']}
            <MI 11632  MOVE.L  D1,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D1']}
            <MI 11634  MOVEQ.L #0x01,D5>                                        {[4, 'A0']|[4, 'D1']}
        <POP 11636-1163a Naked>                              Σ-8        ↓ →0x11690 ←0x1168c
            <MI 11636  CMP.L   (A7),D5>                                         {[-8-]}
            <MI 11638  BGT     0x11690>                                         {[-8-]}
        <POP 1163a-1163c Naked>                              Σ-8        ↓
            <MI 1163a  MOVEQ.L #0x00,D7>                                        {[-8-]}
        <POP 1163c-1166a Naked>                              Σ-8        ↓ →0x1166c ←0x11670
            <MI 1163c  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 1163e  MOVEQ.L #0x00,D6>                                        {[-8-]}
            <MI 11640  MOVEA.L (A6+0xc),A0>                                     {[-8-]}
            <MI 11644  MOVE.L  D5,D0>                                           {[-8-]}
            <MI 11646  ADD.L   D7,D0>                                           {[-8-]}
            <MI 11648  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <MI 1164a  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x1164c LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 11652  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 11654  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x11656 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 1165c  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 11660  MOVE.B  (A0+D0.L+#0x2),D0>                               {[-8-]}
            <MI 11664  CMP.B   (A1+D1.L+#0x2),D0>                               {[-8-]}
            <MI 11668  BNE     0x1166c>                                         {[-8-]}
        <POP 1166a-1166c Naked>                              Σ-8        ↓
            <MI 1166a  ADDQ.B  #0x1,D6>                                         {[-8-]}
        <POP 1166c-11670 Naked>                              Σ-8        ↓ →0x11678 ←0x1163c
            <MI 1166c  TST.B   D6>                                              {[-8-]}
            <MI 1166e  BEQ     0x11678>                                         {[-8-]}
        <POP 11670-11678 Naked>                              Σ-8        ↓ →0x1163c
            <MI 11670  MOVE.W  (A1),D0>                                         {[-8-]}
            <MI 11672  EXTW.L  D0>                                              {[-8-]}
            <MI 11674  CMP.L   D0,D7>                                           {[-8-]}
            <MI 11676  BNE     0x1163c>                                         {[-8-]}
        <POP 11678-11680 Naked>                              Σ-8        ↓ →0x1168c ←0x1166c
            <MI 11678  MOVE.W  (A1),D0>                                         {[-8-]}
            <MI 1167a  EXTW.L  D0>                                              {[-8-]}
            <MI 1167c  CMP.L   D0,D7>                                           {[-8-]}
            <MI 1167e  BNE     0x1168c>                                         {[-8-]}
        <POP 11680-11684 Naked>                              Σ-8        ↓ →0x1168c
            <MI 11680  TST.B   D6>                                              {[-8-]}
            <MI 11682  BEQ     0x1168c>                                         {[-8-]}
        <POP 11684-1168c Naked>                              Σ-8 Δ+8    →0x11692
            <MI 11684  MOVE.L  D5,(A6+0x10)>                                    {[-8-]}
            <POP 11688-1168a StackAdj>                       Δ+8                {}
            <MI 1168a  BRA     0x11692>                                         {}
        <POP 1168c-11690 Naked>                              Σ-8        ↓ →0x11636 ←0x11678 ←0x11680
            <MI 1168c  ADDQ.L  #0x1,D5>                                         {[-8-]}
            <MI 1168e  BVC     0x11636>                                         {[-8-]}
        <POP 11690-11692 Naked>                              Σ-8 Δ+8    ↓ ←0x11636
            <POP 11690-11692 StackAdj>                       Δ+8                {}
        <POP 11692-1169a Epilogue>                           Σ0         ←0x11684

0x116e0


@ 116e0
_GetRtc() : TimeStamp
        <LVAR  0x008 4(r)>
        <LVAR -0x006 1(r)>
        <LVAR -0x007 1(r)>
        <LVAR -0x008 1(r)>
        <LVAR -0x00a 1(r)>
        <LVAR -0x00b 1(r)>
        <LVAR -0x00c @ 1(r)>
    <POP 116e0-117c6 Body>                                              
        <POP 116e0-116f6 Prologue>                           Σ0         ↓
        <POP 116f6-116fa RegCacheLoad>                       Σ0         ↓
        <POP 116fa-1170e Naked>                              Σ0         ↓
            <MI 116fa  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 116fc  CLR.L   (A0)>                                            {}
            <Pointer.fp 0x116fe <LVAR -0x00c @ 1(r)>>        Δ-4                {[@@-12]}
            <Call 0x11702 0x10226>                                              {[@@-12]}
                KC13_ReadRtc
            <POP 11708-1170a StackAdj>                       Δ+4                {}
            <MI 1170a  MOVEQ.L #0x01,D7>                                        {}
            <MI 1170c  MOVEQ.L #0x00,D6>                                        {}
        <POP 1170e-11712 Naked>                              Σ0         ↓ →0x1172e ←0x11752
            <MI 1170e  TST.B   D6>                                              {}
            <MI 11710  BEQ     0x1172e>                                         {}
        <POP 11712-1172e Naked>                              Σ0         ↓
            <MI 11712  MOVE.B  D6,D0>                                           {}
            <MI 11714  EXTB.W  D0>                                              {}
            <MI 11716  CLR.L   D1>                                              {}
            <MI 11718  MOVE.B  (A6+D0.W-#0xc),D1>                               {}
            <MI 1171c  MOVE.W  D1,D2>                                           {}
            <MI 1171e  ASR.W   #0x4,D2>                                         {}
            <MI 11720  MULS.W  #0xa,D2>                                         {}
            <MI 11724  ANDI.W  #0x000f,D1>                                      {}
            <MI 11728  ADD.W   D2,D1>                                           {}
            <MI 1172a  MOVE.B  D1,(A6+D0.W-#0xc)>                               {}
        <POP 1172e-11734 Naked>                              Σ0         ↓ →0x11752 ←0x1170e
            <MI 1172e  CMPI.B  #0x03,D6>                                        {}
            <MI 11732  BEQ     0x11752>                                         {}
        <POP 11734-11746 Naked>                              Σ0         ↓ →0x11750
            <MI 11734  MOVE.B  D6,D0>                                           {}
            <MI 11736  EXTB.W  D0>                                              {}
            <MI 11738  LEA.L   0x116b4,A0>                                      {}
            <MI 1173c  MOVE.B  (A6+D0.W-#0xc),D1>                               {}
            <MI 11740  CMP.B   (A0+D0.W),D1>                                    {}
            <MI 11744  BHI     0x11750>                                         {}
        <POP 11746-11750 Naked>                              Σ0         ↓ →0x11752
            <MI 11746  LEA.L   0x116ac,A0>                                      {}
            <MI 1174a  CMP.B   (A0+D0.W),D1>                                    {}
            <MI 1174e  BCC     0x11752>                                         {}
        <POP 11750-11752 Naked>                              Σ0         ↓ ←0x11734
            <MI 11750  MOVEQ.L #0x00,D7>                                        {}
        <POP 11752-1175a Naked>                              Σ0         ↓ →0x1170e ←0x1172e ←0x11746
            <MI 11752  ADDQ.B  #0x1,D6>                                         {}
            <MI 11754  CMPI.B  #0x07,D6>                                        {}
            <MI 11758  BLE     0x1170e>                                         {}
        <POP 1175a-1175e Naked>                              Σ0         ↓ →0x11764
            <MI 1175a  TST.B   D7>                                              {}
            <MI 1175c  BNE     0x11764>                                         {}
        <POP 1175e-11764 Naked>                              Σ0         →0x117be
            <MI 1175e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 11760  CLR.L   (A0)>                                            {}
            <MI 11762  BRA     0x117be>                                         {}
        <POP 11764-117be Naked>                              Σ0         ↓ ←0x1175a
            <MI 11764  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 11766  CLR.L   D0>                                              {}
            <MI 11768  MOVE.B  (A6-0x8),D0>                                     {}
            <MI 1176c  MULU.W  #0x708,D0>                                       {}
            <MI 11770  CLR.L   D1>                                              {}
            <MI 11772  MOVE.B  (A6-0x7),D1>                                     {}
            <MI 11776  MULU.W  #0x1e,D1>                                        {}
            <MI 1177a  CLR.L   D2>                                              {}
            <MI 1177c  MOVE.W  D1,D2>                                           {}
            <MI 1177e  ADD.L   D0,D2>                                           {}
            <MI 11780  CLR.L   D0>                                              {}
            <MI 11782  MOVE.B  (A6-0x6),D0>                                     {}
            <MI 11786  ASR.W   #0x1,D0>                                         {}
            <MI 11788  EXTW.L  D0>                                              {}
            <MI 1178a  ADD.L   D2,D0>                                           {}
            <MI 1178c  MOVE.W  D0,(A0)>                                         {}
            <MI 1178e  CLR.L   D0>                                              {}
            <MI 11790  MOVE.B  (A6-0xb),D0>                                     {}
            <MI 11794  ANDI.W  #0xfe1f,(A0+0x2)>                                {}
            <MI 1179a  LSL.W   #0x5,D0>                                         {}
            <MI 1179c  OR.W    D0,(A0+0x2)>                                     {}
            <MI 117a0  MOVE.B  (A6-0xa),D0>                                     {}
            <MI 117a4  ANDI.B  #0xe0,(A0+0x3)>                                  {}
            <MI 117aa  OR.B    D0,(A0+0x3)>                                     {}
            <MI 117ae  MOVE.B  (A6-0xc),D0>                                     {}
            <MI 117b2  ANDI.B  #0x01,(A0+0x2)>                                  {}
            <MI 117b8  LSL.B   #0x1,D0>                                         {}
            <MI 117ba  OR.B    D0,(A0+0x2)>                                     {}
        <POP 117be-117c6 Epilogue>                           Σ0         ←0x1175e

0x117c6


@ 117c6
_SetRtc(a: TimeStamp)
        <LVAR  0x00b 1(r)>
        <LVAR  0x00a 1(r) 2(r)>
        <LVAR  0x008 2(r)>
        <LVAR -0x005 1(r)>
        <LVAR -0x006 1(w)>
        <LVAR -0x007 1(w)>
        <LVAR -0x008 1(w)>
        <LVAR -0x009 1(w)>
        <LVAR -0x00a 1(w)>
        <LVAR -0x00b 1(w)>
        <LVAR -0x00c @ 1(w)>
    <POP 117c6-11894 Body>                                              
        <POP 117c6-117dc Prologue>                           Σ0         ↓
        <POP 117dc-117de RegCacheLoad>                       Σ0         ↓
        <POP 117de-1183a Naked>                              Σ0         ↓
            <MI 117de  MOVE.B  (A6+0xa),D0>                                     {}
            <MI 117e2  LSR.B   #0x1,D0>                                         {}
            <MI 117e4  MOVE.B  D0,(A6-0xc)>                                     {}
            <MI 117e8  MOVE.W  (A6+0xa),D0>                                     {}
            <MI 117ec  LSL.W   #0x7,D0>                                         {}
            <MI 117ee  LSR.W   #0x8,D0>                                         {}
            <MI 117f0  LSR.W   #0x4,D0>                                         {}
            <MI 117f2  MOVE.B  D0,(A6-0xb)>                                     {}
            <MI 117f6  MOVE.B  (A6+0xb),D0>                                     {}
            <MI 117fa  LSL.B   #0x3,D0>                                         {}
            <MI 117fc  LSR.B   #0x3,D0>                                         {}
            <MI 117fe  MOVE.B  D0,(A6-0xa)>                                     {}
            <MI 11802  MOVE.B  #0x01,(A6-0x9)>                                  {}
            <MI 11808  CLR.L   D0>                                              {}
            <MI 1180a  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 1180e  DIVU.W  #0x708,D0>                                       {}
            <MI 11812  MOVE.B  D0,(A6-0x8)>                                     {}
            <MI 11816  SWAP.W  D0>                                              {}
            <MI 11818  CLR.L   D1>                                              {}
            <MI 1181a  MOVE.W  D0,D1>                                           {}
            <MI 1181c  DIVU.W  #0x1e,D1>                                        {}
            <MI 1181e  MOVE.B  D1,(A6-0x7)>                                     {}
            <MI 11822  CLR.L   D0>                                              {}
            <MI 11824  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 11828  DIVU.W  #0x1e,D0>                                        {}
            <MI 1182a  SWAP.W  D0>                                              {}
            <MI 1182c  ASL.W   #0x1,D0>                                         {}
            <MI 1182e  MOVE.B  D0,(A6-0x6)>                                     {}
            <MI 11832  CLR.B   (A6-0x5)>                                        {}
            <MI 11836  MOVEQ.L #0x01,D7>                                        {}
            <MI 11838  MOVEQ.L #0x01,D6>                                        {}
        <POP 1183a-11850 Naked>                              Σ0         ↓ →0x1185e ←0x11860
            <MI 1183a  MOVE.B  D6,D0>                                           {}
            <MI 1183c  EXTB.W  D0>                                              {}
            <MI 1183e  MOVE.B  D6,D1>                                           {}
            <MI 11840  EXTB.W  D1>                                              {}
            <MI 11842  LEA.L   0x116b4,A0>                                      {}
            <MI 11846  MOVE.B  (A6+D0.W-#0xc),D2>                               {}
            <MI 1184a  CMP.B   (A0+D1.W),D2>                                    {}
            <MI 1184e  BHI     0x1185e>                                         {}
        <POP 11850-1185e Naked>                              Σ0         ↓ →0x11860
            <MI 11850  MOVE.B  D6,D1>                                           {}
            <MI 11852  EXTB.W  D1>                                              {}
            <MI 11854  LEA.L   0x116ac,A0>                                      {}
            <MI 11858  CMP.B   (A0+D1.W),D2>                                    {}
            <MI 1185c  BCC     0x11860>                                         {}
        <POP 1185e-11860 Naked>                              Σ0         ↓ ←0x1183a
            <MI 1185e  MOVEQ.L #0x00,D7>                                        {}
        <POP 11860-1187c Naked>                              Σ0         ↓ →0x1183a ←0x11850
            <MI 11860  CLR.L   D1>                                              {}
            <MI 11862  MOVE.B  D2,D1>                                           {}
            <MI 11864  DIVU.W  #0xa,D1>                                         {}
            <MI 11868  MOVE.W  D1,D2>                                           {}
            <MI 1186a  ASL.W   #0x4,D2>                                         {}
            <MI 1186c  SWAP.W  D1>                                              {}
            <MI 1186e  ADD.W   D2,D1>                                           {}
            <MI 11870  MOVE.B  D1,(A6+D0.W-#0xc)>                               {}
            <MI 11874  ADDQ.B  #0x1,D6>                                         {}
            <MI 11876  CMPI.B  #0x07,D6>                                        {}
            <MI 1187a  BLE     0x1183a>                                         {}
        <POP 1187c-11880 Naked>                              Σ0         ↓ →0x1188c
            <MI 1187c  TST.B   D7>                                              {}
            <MI 1187e  BEQ     0x1188c>                                         {}
        <POP 11880-1188c Naked>                              Σ0         ↓
            <Pointer.fp 0x11880 <LVAR -0x00c @ 1(w)>>        Δ-4                {[@@-12]}
            <Call 0x11884 0x10228>                                              {[@@-12]}
                KC14_WriteRtc
            <POP 1188a-1188c StackAdj>                       Δ+4                {}
        <POP 1188c-11894 Epilogue>                           Σ0         ←0x1187c

0x11894


@ 11894
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 11894-118ec Body>                                              
        <POP 11894-118aa Prologue>                           Σ0         ↓
        <POP 118aa-118b2 RegCacheLoad>                       Σ0         ↓
        <POP 118b2-118da Naked>                              Σ0         ↓ →0x118e4
            <MI 118b2  MOVE.L  (A6+0xa),D4>                                     {}
            <MI 118b6  MOVEQ.L #0x0a,D3>                                        {}
            <Call 0x118b8 0x1080a>                                              {}
                _?divs_d3_d4
            <MI 118be  MOVE.L  (A4),-(A7)>                   Δ-4                {[4, '(A4)']}
            <MI 118c0  MOVE.L  D4,D0>                                           {[4, '(A4)']}
            <MI 118c2  ADD.L   #0x30,D0>                                        {[4, '(A4)']}
            <MI 118c4  MOVE.B  D0,-(A7)>                     Δ-2                {[4, '(A4)']|[2, 'D0']}
            <Call 0x118c6 0x10da6>                                              {[4, '(A4)']|[2, 'D0']}
                _AppendChar(MOD b : String; a : char)
            <POP 118c8-118ca StackAdj>                       Δ+2                {[4, '(A4)']}
            <MI 118ca  MOVE.L  (A4),(A7)>                                       {[4, '(A4)']}
            <MI 118cc  ADD.W   #0x30,D3>                                        {[4, '(A4)']}
            <MI 118ce  MOVE.B  D3,-(A7)>                     Δ-2                {[4, '(A4)']|[2, 'D3']}
            <Call 0x118d0 0x10da6>                                              {[4, '(A4)']|[2, 'D3']}
                _AppendChar(MOD b : String; a : char)
            <POP 118d2-118d4 StackAdj>                       Δ+6                {}
            <MI 118d4  TST.B   (A6+0x8)>                                        {}
            <MI 118d8  BEQ     0x118e4>                                         {}
        <POP 118da-118e4 Naked>                              Σ0         ↓
            <MI 118da  MOVE.L  (A4),-(A7)>                   Δ-4                {[4, '(A4)']}
            <MI 118dc  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[4, '(A4)']|[2, '(A6+0x8)']}
            <Call 0x118e0 0x10da6>                                              {[4, '(A4)']|[2, '(A6+0x8)']}
                _AppendChar(MOD b : String; a : char)
            <POP 118e2-118e4 StackAdj>                       Δ+6                {}
        <POP 118e4-118ec Epilogue>                           Σ0         ←0x118b2

0x118ec


@ 118ec
_TimeToText()
        <LVAR  0x00c 4(w)>
        <LVAR  0x00b 1(r)>
        <LVAR  0x00a 1(r) 2(r)>
        <LVAR  0x008 2(r)>
        <LVAR -0x004 2(w)>
        <LVAR -0x014 @ 4(rw)>
    <POP 118ec-11a28 Body>                                              
        <POP 118ec-11902 Prologue>                           Σ0         ↓
        <POP 11902-11914 RegCacheLoad>                       Σ0         ↓
        <POP 11914-1191e Naked>                              Σ0         ↓ →0x11944
            <MI 11914  MOVE.W  (A6+0xa),D0>                                     {}
            <MI 11916  LSL.W   #0x7,D0>                                         {}
            <MI 11918  LSR.W   #0x8,D0>                                         {}
            <MI 1191a  LSR.W   #0x4,D0>                                         {}
            <MI 1191c  BNE     0x11944>                                         {}
        <POP 1191e-11944 Naked>                              Σ0         →0x11a1c
            <Blob 0x1191e [18] @>                            Δ-18               {[«18""»]}
            <POP 1192a-1192c StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x1192c 18>                                                    {[«18""»]|[$$??:??:?? ??-???-??]}
            <MI 1193c  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«18""»]}
            <POP 1193e-11940 StackAdj>                       Δ+18               {}
            <MI 11940  BRA     0x11a1c>                                         {}
        <POP 11944-11a1c Naked>                              Σ0         ↓ ←0x11914
            <Pointer.fp 0x11944 <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x11946 0x10d42>                                              {[@@-20]}
                _NewString(VAR a : String)
            <POP 1194c-1194e StackAdj>                       Δ+4                {}
            <MI 1194e  CLR.L   D0>                                              {}
            <MI 11950  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 11954  DIVU.W  #0x708,D0>                                       {}
            <MI 11958  CLR.L   D1>                                              {}
            <MI 1195a  MOVE.W  D0,D1>                                           {}
            <MI 1195c  MOVE.L  D1,D7>                                           {}
            <MI 1195e  SWAP.W  D0>                                              {}
            <MI 11960  MOVE.W  D0,(A6-0x4)>                                     {}
            <MI 11964  CLR.L   D1>                                              {}
            <MI 11966  MOVE.W  D0,D1>                                           {}
            <MI 11968  DIVU.W  #0x1e,D1>                                        {}
            <MI 1196c  CLR.L   D0>                                              {}
            <MI 1196e  MOVE.W  D1,D0>                                           {}
            <MI 11970  MOVE.L  D0,D6>                                           {}
            <MI 11972  SWAP.W  D1>                                              {}
            <MI 11974  ASL.W   #0x1,D1>                                         {}
            <MI 11976  CLR.L   D0>                                              {}
            <MI 11978  MOVE.W  D1,D0>                                           {}
            <MI 1197a  MOVE.L  D0,D5>                                           {}
            <MI 1197c  MOVE.L  D7,-(A7)>                     Δ-4                {[4, 'D7']}
            <Const 0x1197e 0x3a.2>                           Δ-2                {[4, 'D7']|[#58]}
            <MI 11980  LEA.L   (A6-0x14),A4>                                    {[4, 'D7']|[#58]}
            <Call 0x11982 0x11894>                                              {[4, 'D7']|[#58]}
            <POP 11984-11986 StackAdj>                       Δ+2                {[4, 'D7']}
            <MI 11986  MOVE.L  D6,(A7)>                                         {[4, 'D6']}
            <Const 0x11988 0x3a.2>                           Δ-2                {[4, 'D6']|[#58]}
            <MI 1198a  LEA.L   (A6-0x14),A4>                                    {[4, 'D6']|[#58]}
            <Call 0x1198c 0x11894>                                              {[4, 'D6']|[#58]}
            <POP 1198e-11990 StackAdj>                       Δ+2                {[4, 'D6']}
            <MI 11990  MOVE.L  D5,(A7)>                                         {[4, 'D5']}
            <Const 0x11992 0x20.2>                           Δ-2                {[4, 'D5']|[#32]}
            <MI 11996  LEA.L   (A6-0x14),A4>                                    {[4, 'D5']|[#32]}
            <Call 0x11998 0x11894>                                              {[4, 'D5']|[#32]}
            <POP 1199a-1199c StackAdj>                       Δ+6                {}
            <MI 1199c  CLR.L   D0>                                              {}
            <MI 1199e  MOVE.B  (A6+0xb),D0>                                     {}
            <MI 119a2  LSL.B   #0x3,D0>                                         {}
            <MI 119a4  LSR.B   #0x3,D0>                                         {}
            <MI 119a6  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <Const 0x119a8 0x2d.2>                           Δ-2                {[4, 'D0']|[#45]}
            <MI 119ac  LEA.L   (A6-0x14),A4>                                    {[4, 'D0']|[#45]}
            <Call 0x119ae 0x11894>                                              {[4, 'D0']|[#45]}
            <POP 119b0-119b2 StackAdj>                       Δ+6                {}
            <MI 119b2  MOVE.W  (A6+0xa),D0>                                     {}
            <MI 119b4  LSL.W   #0x7,D0>                                         {}
            <MI 119b6  LSR.W   #0x8,D0>                                         {}
            <MI 119b8  LSR.W   #0x4,D0>                                         {}
            <MI 119ba  MULU.W  #0x3,D0>                                         {}
            <MI 119be  CLR.L   D1>                                              {}
            <MI 119c0  MOVE.W  D0,D1>                                           {}
            <MI 119c2  LEA.L   0x116bc,A0>                                      {}
            <POP 119c6-119c8 StackAdj>                       Δ-4                {[-4-]}
            <MI 119c8  MOVE.B  (A0+D1.L-#0x3),(A7)>                             {[-4-]}
            <MI 119cc  MOVE.B  (A0+D1.L-#0x2),(A7+0x1)>                         {[-4-]}
            <MI 119d2  MOVE.B  (A0+D1.L-#0x1),(A7+0x2)>                         {[-4-]}
            <POP 119d8-119da StackAdj>                       Δ-4                {[-8-]}
            <MI 119da  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x14)']}
            <POP 119dc-119de StackAdj>                       Δ-4                {[-8-]|[4, '(A6-0x14)']|[-4-]}
            <Lit 0x119de>                                                       {[-8-]|[4, '(A6-0x14)']|[$$…]}
                <Pointer.sp 0x119de 12>                      Δ-4        
                <Const 0x119e2 0x1.2>                        Δ-2        
                <Const 0x119e4 0x3.2>                        Δ-2        
                <Call 0x119e8 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 119ee-119f0 StackAdj>                   Δ+8        
            <Call 0x119f0 0x10f34>                                              {[-8-]|[4, '(A6-0x14)']|[$$…]}
                _StringCat2(a, b : String) : String
            <POP 119f6-119f8 StackAdj>                       Δ+8                {[-8-]}
            <MI 119f8  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[-4-]}
            <MI 119fa  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Const 0x119fc 0x2d.2>                           Δ-2                {[4, '(A6-0x14)']|[#45]}
            <Call 0x11a00 0x10da6>                                              {[4, '(A6-0x14)']|[#45]}
                _AppendChar(MOD b : String; a : char)
            <POP 11a06-11a08 StackAdj>                       Δ+6                {}
            <MI 11a08  CLR.L   D0>                                              {}
            <MI 11a0a  MOVE.B  (A6+0xa),D0>                                     {}
            <MI 11a0c  LSR.B   #0x1,D0>                                         {}
            <MI 11a0e  ADDQ.W  #0x1,D0>                                         {}
            <MI 11a10  EXTW.L  D0>                                              {}
            <MI 11a12  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 11a14  CLR.B   -(A7)>                        Δ-2                {[4, 'D0']|[#0]}
            <MI 11a16  LEA.L   (A6-0x14),A4>                                    {[4, 'D0']|[#0]}
            <Call 0x11a18 0x11894>                                              {[4, 'D0']|[#0]}
            <POP 11a1a-11a1c StackAdj>                       Δ+6                {}
        <POP 11a1c-11a20 Naked>                              Σ0         ↓ ←0x1191e
            <MI 11a1c  MOVE.L  (A6-0x14),(A6+0xc)>                              {}
        <POP 11a20-11a28 Epilogue>                           Σ0         

0x11a28


@ 11a28
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 11a28-11aa6 Body>                                              
        <POP 11a28-11a3e Prologue>                           Σ0         ↓
        <POP 11a3e-11a44 RegCacheLoad>                       Σ0         ↓
        <POP 11a44-11a66 Naked>                              Σ0         ↓ →0x11a72
            <Pointer.fp 0x11a44 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x11a46 0x10d42>                                              {[@@-4]}
                _NewString(VAR a : String)
            <POP 11a4c-11a4e StackAdj>                       Δ+4                {}
            <MI 11a4e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 11a52  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[4, '(A6+0x18)']}
            <MI 11a56  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6+0x18)']|[4, '(A6-0x4)']}
            <MI 11a58  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0x18)']|[4, '(A6-0x4)']|[4, '^(A0)']}
            <Call 0x11a5a 0x114d6>                                              {[4, '(A6+0x18)']|[4, '(A6-0x4)']|[4, '^(A0)']}
                _FirstField(MOD input : String; MOD output : String; VAR c : Bool
            <POP 11a60-11a62 StackAdj>                       Δ+12               {}
            <MI 11a62  TST.B   (A0)>                                            {}
            <MI 11a64  BNE     0x11a72>                                         {}
        <POP 11a66-11a72 Naked>                              Σ0         →0x11a9e
            <Pointer.fp 0x11a66 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x11a68 0x10d76>                                              {[@@-4]}
                _FreeString(VAR a : String)
            <POP 11a6e-11a70 StackAdj>                       Δ+4                {}
            <MI 11a70  BRA     0x11a9e>                                         {}
        <POP 11a72-11a8a Naked>                              Σ0         ↓ →0x11a9c ←0x11a44
            <MI 11a72  MOVEA.L (A6+0x14),A1>                                    {}
            <MI 11a76  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[4, '(A6-0x4)']}
            <MI 11a78  PEA.L   (A0)>                         Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']}
            <MI 11a7a  PEA.L   (A1)>                         Δ-4                {[4, '(A6-0x4)']|[4, '^(A0)']|[4, '^(A1)']}
            <Call 0x11a7c 0x11288>                                              {[4, '(A6-0x4)']|[4, '^(A0)']|[4, '^(A1)']}
                _String2Long(src : String; VAR status : Bool; VAR retval : Long)
            <POP 11a82-11a84 StackAdj>                       Δ+12               {}
            <MI 11a84  MOVEQ.L #0x00,D0>                                        {}
            <MI 11a86  TST.B   (A0)>                                            {}
            <MI 11a88  BEQ     0x11a9c>                                         {}
        <POP 11a8a-11a92 Naked>                              Σ0         ↓ →0x11a9c
            <MI 11a8a  MOVE.L  (A1),D1>                                         {}
            <MI 11a8c  CMP.L   (A6+0x10),D1>                                    {}
            <MI 11a90  BLT     0x11a9c>                                         {}
        <POP 11a92-11a9a Naked>                              Σ0         ↓ →0x11a9c
            <MI 11a92  MOVE.L  (A1),D1>                                         {}
            <MI 11a94  CMP.L   (A6+0xc),D1>                                     {}
            <MI 11a98  BGT     0x11a9c>                                         {}
        <POP 11a9a-11a9c Naked>                              Σ0         ↓
            <MI 11a9a  ADDQ.B  #0x1,D0>                                         {}
        <POP 11a9c-11a9e Naked>                              Σ0         ↓ ←0x11a72 ←0x11a8a ←0x11a92
            <MI 11a9c  MOVE.B  D0,(A0)>                                         {}
        <POP 11a9e-11aa6 Epilogue>                           Σ0         ←0x11a66

0x11aa6


@ 11aa6
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x00c @ 4(rw)>
        <LVAR -0x010 @ 4(rw)>
    <POP 11aa6-11b76 Body>                                              
        <POP 11aa6-11abc Prologue>                           Σ0         ↓
        <POP 11abc-11ac6 RegCacheLoad>                       Σ0         ↓
        <POP 11ac6-11ae8 Naked>                              Σ0         ↓ →0x11aea
            <Pointer.fp 0x11ac6 <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x11ac8 0x10d42>                                              {[@@-16]}
                _NewString(VAR a : String)
            <POP 11ace-11ad0 StackAdj>                       Δ+4                {}
            <MI 11ad0  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 11ad4  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6+0x10)']}
            <MI 11ad8  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6+0x10)']|[4, '(A6-0x10)']}
            <MI 11ada  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0x10)']|[4, '(A6-0x10)']|[4, '^(A0)']}
            <Call 0x11adc 0x114d6>                                              {[4, '(A6+0x10)']|[4, '(A6-0x10)']|[4, '^(A0)']}
                _FirstField(MOD input : String; MOD output : String; VAR c : Bool
            <POP 11ae2-11ae4 StackAdj>                       Δ+12               {}
            <MI 11ae4  TST.B   (A0)>                                            {}
            <MI 11ae6  BNE     0x11aea>                                         {}
        <POP 11ae8-11aea Naked>                              Σ0         →0x11b64
            <MI 11ae8  BRA     0x11b64>                                         {}
        <POP 11aea-11afa Naked>                              Σ0         ↓ ←0x11ac6
            <POP 11aea-11aec StackAdj>                       Δ-4                {[-4-]}
            <MI 11aec  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x10)']}
            <Call 0x11aee 0x113b4>                                              {[-4-]|[4, '(A6-0x10)']}
                _ToUpper(a : String) : String
            <POP 11af4-11af6 StackAdj>                       Δ+4                {[-4-]}
            <MI 11af6  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <MI 11af8  MOVEQ.L #0x01,D6>                                        {}
        <POP 11afa-11b50 Naked>                              Σ0         ↓ →0x11b58 ←0x11b58
            <MI 11afa  MOVE.L  D6,D4>                                           {}
            <MI 11afc  MOVEQ.L #0x03,D3>                                        {}
            <Call 0x11afe 0x107ea>                                              {}
                _?muls_d3_d4
            <MI 11b04  LEA.L   0x116bc,A0>                                      {}
            <POP 11b08-11b0a StackAdj>                       Δ-4                {[-4-]}
            <MI 11b0a  MOVE.B  (A0+D4.L-#0x3),(A7)>                             {[-4-]}
            <MI 11b0e  MOVE.B  (A0+D4.L-#0x2),(A7+0x1)>                         {[-4-]}
            <MI 11b14  MOVE.B  (A0+D4.L-#0x1),(A7+0x2)>                         {[-4-]}
            <POP 11b1a-11b1c StackAdj>                       Δ-4                {[-8-]}
            <Lit 0x11b1c>                                                       {[-4-]|[$$…]}
                <Pointer.sp 0x11b1c 4>                       Δ-4        
                <Const 0x11b20 0x1.2>                        Δ-2        
                <Const 0x11b24 0x3.2>                        Δ-2        
                <Call 0x11b28 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 11b2e-11b30 StackAdj>                   Δ+8        
            <MI 11b30  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[-4-]}
            <POP 11b32-11b34 StackAdj>                       Δ+2                {[-2-]}
            <MI 11b34  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-2-]|[4, '(A6-0x10)']}
            <MI 11b36  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0xc)']}
            <Call 0x11b38 0x10e92>                                              {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0xc)']}
                _StringEqual(a, b : String) : Byte
            <POP 11b3e-11b40 StackAdj>                       Δ+8                {[-2-]}
            <MI 11b40  MOVE.B  (A7)+,D7>                     Δ+2                {}
            <Pointer.fp 0x11b42 <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x11b44 0x10d76>                                              {[@@-12]}
                _FreeString(VAR a : String)
            <POP 11b4a-11b4c StackAdj>                       Δ+4                {}
            <MI 11b4c  TST.B   D7>                                              {}
            <MI 11b4e  BEQ     0x11b58>                                         {}
        <POP 11b50-11b58 Naked>                              Σ0         →0x11b64
            <MI 11b50  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 11b54  MOVE.L  D6,(A0)>                                         {}
            <MI 11b56  BRA     0x11b64>                                         {}
        <POP 11b58-11b5e Naked>                              Σ0         ↓ →0x11afa ←0x11afa
            <MI 11b58  ADDQ.L  #0x1,D6>                                         {}
            <MI 11b5a  CMP.L   #0x0c,D6>                                        {}
            <MI 11b5c  BLE     0x11afa>                                         {}
        <POP 11b5e-11b64 Naked>                              Σ0         ↓
            <MI 11b5e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 11b62  CLR.B   (A0)>                                            {}
        <POP 11b64-11b6e Naked>                              Σ0         ↓ ←0x11ae8 ←0x11b50
            <Pointer.fp 0x11b64 <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x11b66 0x10d76>                                              {[@@-16]}
                _FreeString(VAR a : String)
            <POP 11b6c-11b6e StackAdj>                       Δ+4                {}
        <POP 11b6e-11b76 Epilogue>                           Σ0         

0x11b76


@ 11b76
_ConvertTimestamp(MOD input : String; b : L; VAR status : Bool)
        <LVAR  0x010 @ 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(r)>
        <LVAR -0x010 @ 4(r)>
        <LVAR -0x014 @ 4(r)>
        <LVAR -0x018 @ 4(r)>
        <LVAR -0x01c @ 4(r)>
    <POP 11b76-11cf6 Body>                                              
        <POP 11b76-11b8c Prologue>                           Σ0         ↓
        <POP 11b8c-11b9e RegCacheLoad>                       Σ0         ↓
        <POP 11b9e-11baa Naked>                              Σ0 Δ-8     ↓
            <MI 11b9e  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 11ba0  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 11ba2  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 11ba4  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 11ba6  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 11ba8  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D0']}
        <POP 11baa-11bae Naked>                              Σ-8        ↓ →0x11bcc ←0x11bc8
            <MI 11baa  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 11bac  BGT     0x11bcc>                                         {[-8-]}
        <POP 11bae-11bbc Naked>                              Σ-8        ↓ →0x11bc2
            <MI 11bae  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 11bb2  MOVE.B  (A0+D7.L+#0x1),D0>                               {[-8-]}
            <MI 11bb6  CMPI.B  #0x3a,D0>                                        {[-8-]}
            <MI 11bba  BEQ     0x11bc2>                                         {[-8-]}
        <POP 11bbc-11bc2 Naked>                              Σ-8        ↓ →0x11bc8
            <MI 11bbc  CMPI.B  #0x2d,D0>                                        {[-8-]}
            <MI 11bc0  BNE     0x11bc8>                                         {[-8-]}
        <POP 11bc2-11bc8 Naked>                              Σ-8        ↓ ←0x11bae
            <MI 11bc2  MOVE.B  #0x20,(A0+D7.L+#0x1)>                            {[-8-]}
        <POP 11bc8-11bcc Naked>                              Σ-8        ↓ →0x11baa ←0x11bbc
            <MI 11bc8  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 11bca  BVC     0x11baa>                                         {[-8-]}
        <POP 11bcc-11bec Naked>                              Σ-8 Δ+8    ↓ →0x11bf0 ←0x11baa
            <POP 11bcc-11bce StackAdj>                       Δ+8                {}
            <MI 11bce  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 11bd2  CLR.L   (A0)>                                            {}
            <MI 11bd4  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 11bd6  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6+0x10)']}
            <Pointer.fp 0x11bd8 <LVAR -0x01c @ 4(r)>>        Δ-4                {[4, '(A6+0x10)']|[@@-28]}
            <Const 0x11bdc 0x0.4>                            Δ-4                {[4, '(A6+0x10)']|[@@-28]|[##0]}
            <Const 0x11bde 0x17.4>                           Δ-4                {[4, '(A6+0x10)']|[@@-28]|[##0]|[##23]}
            <MI 11be2  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0x10)']|[@@-28]|[##0]|[##23]|[4, '^(A0)']}
            <Call 0x11be4 0x11a28>                                              {[4, '(A6+0x10)']|[@@-28]|[##0]|[##23]|[4, '^(A0)']}
            <POP 11be6-11be8 StackAdj>                       Δ+20               {}
            <MI 11be8  TST.B   (A0)>                                            {}
            <MI 11bea  BNE     0x11bf0>                                         {}
        <POP 11bec-11bf0 Naked>                              Σ0         →0x11ce4
            <MI 11bec  BRA     0x11ce4>                                         {}
        <POP 11bf0-11c08 Naked>                              Σ0         ↓ →0x11c0c ←0x11bcc
            <MI 11bf0  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 11bf2  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6+0x10)']}
            <Pointer.fp 0x11bf4 <LVAR -0x018 @ 4(r)>>        Δ-4                {[4, '(A6+0x10)']|[@@-24]}
            <Const 0x11bf8 0x0.4>                            Δ-4                {[4, '(A6+0x10)']|[@@-24]|[##0]}
            <Const 0x11bfa 0x3b.4>                           Δ-4                {[4, '(A6+0x10)']|[@@-24]|[##0]|[##59]}
            <MI 11bfe  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0x10)']|[@@-24]|[##0]|[##59]|[4, '^(A0)']}
            <Call 0x11c00 0x11a28>                                              {[4, '(A6+0x10)']|[@@-24]|[##0]|[##59]|[4, '^(A0)']}
            <POP 11c02-11c04 StackAdj>                       Δ+20               {}
            <MI 11c04  TST.B   (A0)>                                            {}
            <MI 11c06  BNE     0x11c0c>                                         {}
        <POP 11c08-11c0c Naked>                              Σ0         →0x11ce4
            <MI 11c08  BRA     0x11ce4>                                         {}
        <POP 11c0c-11c24 Naked>                              Σ0         ↓ →0x11c28 ←0x11bf0
            <MI 11c0c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 11c0e  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6+0x10)']}
            <Pointer.fp 0x11c10 <LVAR -0x014 @ 4(r)>>        Δ-4                {[4, '(A6+0x10)']|[@@-20]}
            <Const 0x11c14 0x0.4>                            Δ-4                {[4, '(A6+0x10)']|[@@-20]|[##0]}
            <Const 0x11c16 0x3b.4>                           Δ-4                {[4, '(A6+0x10)']|[@@-20]|[##0]|[##59]}
            <MI 11c1a  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0x10)']|[@@-20]|[##0]|[##59]|[4, '^(A0)']}
            <Call 0x11c1c 0x11a28>                                              {[4, '(A6+0x10)']|[@@-20]|[##0]|[##59]|[4, '^(A0)']}
            <POP 11c1e-11c20 StackAdj>                       Δ+20               {}
            <MI 11c20  TST.B   (A0)>                                            {}
            <MI 11c22  BNE     0x11c28>                                         {}
        <POP 11c24-11c28 Naked>                              Σ0         →0x11ce4
            <MI 11c24  BRA     0x11ce4>                                         {}
        <POP 11c28-11c42 Naked>                              Σ0         ↓ →0x11c46 ←0x11c0c
            <MI 11c28  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 11c2a  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6+0x10)']}
            <Pointer.fp 0x11c2c <LVAR -0x010 @ 4(r)>>        Δ-4                {[4, '(A6+0x10)']|[@@-16]}
            <Const 0x11c30 0x1.4>                            Δ-4                {[4, '(A6+0x10)']|[@@-16]|[##1]}
            <Const 0x11c34 0x1f.4>                           Δ-4                {[4, '(A6+0x10)']|[@@-16]|[##1]|[##31]}
            <MI 11c38  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0x10)']|[@@-16]|[##1]|[##31]|[4, '^(A0)']}
            <Call 0x11c3a 0x11a28>                                              {[4, '(A6+0x10)']|[@@-16]|[##1]|[##31]|[4, '^(A0)']}
            <POP 11c3c-11c3e StackAdj>                       Δ+20               {}
            <MI 11c3e  TST.B   (A0)>                                            {}
            <MI 11c40  BNE     0x11c46>                                         {}
        <POP 11c42-11c46 Naked>                              Σ0         →0x11ce4
            <MI 11c42  BRA     0x11ce4>                                         {}
        <POP 11c46-11c5c Naked>                              Σ0         ↓ →0x11c60 ←0x11c28
            <MI 11c46  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 11c48  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6+0x10)']}
            <Pointer.fp 0x11c4a <LVAR -0x00c @ 4(r)>>        Δ-4                {[4, '(A6+0x10)']|[@@-12]}
            <MI 11c4e  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0x10)']|[@@-12]|[4, '^(A0)']}
            <Call 0x11c50 0x11aa6>                                              {[4, '(A6+0x10)']|[@@-12]|[4, '^(A0)']}
            <POP 11c54-11c58 StackAdj>                       Δ+12               {}
            <MI 11c58  TST.B   (A0)>                                            {}
            <MI 11c5a  BNE     0x11c60>                                         {}
        <POP 11c5c-11c60 Naked>                              Σ0         →0x11ce4
            <MI 11c5c  BRA     0x11ce4>                                         {}
        <POP 11c60-11c7a Naked>                              Σ0         ↓ →0x11c7c ←0x11c46
            <MI 11c60  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 11c62  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6+0x10)']}
            <Pointer.fp 0x11c64 <LVAR -0x008 @ 4(r)>>        Δ-4                {[4, '(A6+0x10)']|[@@-8]}
            <Const 0x11c68 0x1.4>                            Δ-4                {[4, '(A6+0x10)']|[@@-8]|[##1]}
            <Const 0x11c6c 0x63.4>                           Δ-4                {[4, '(A6+0x10)']|[@@-8]|[##1]|[##99]}
            <MI 11c70  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0x10)']|[@@-8]|[##1]|[##99]|[4, '^(A0)']}
            <Call 0x11c72 0x11a28>                                              {[4, '(A6+0x10)']|[@@-8]|[##1]|[##99]|[4, '^(A0)']}
            <POP 11c74-11c76 StackAdj>                       Δ+20               {}
            <MI 11c76  TST.B   (A0)>                                            {}
            <MI 11c78  BNE     0x11c7c>                                         {}
        <POP 11c7a-11c7c Naked>                              Σ0         →0x11ce4
            <MI 11c7a  BRA     0x11ce4>                                         {}
        <POP 11c7c-11ce4 Naked>                              Σ0         ↓ ←0x11c60
            <MI 11c7c  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 11c80  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 11c84  SUBQ.L  #0x1,D0>                                         {}
            <MI 11c86  ANDI.B  #0x01,(A0+0x2)>                                  {}
            <MI 11c8c  LSL.B   #0x1,D0>                                         {}
            <MI 11c8e  OR.B    D0,(A0+0x2)>                                     {}
            <MI 11c92  MOVE.L  (A6-0xc),D0>                                     {}
            <MI 11c96  ANDI.W  #0xfe1f,(A0+0x2)>                                {}
            <MI 11c9c  LSL.W   #0x5,D0>                                         {}
            <MI 11c9e  OR.W    D0,(A0+0x2)>                                     {}
            <MI 11ca2  MOVE.L  (A6-0x10),D0>                                    {}
            <MI 11ca6  ANDI.B  #0xe0,(A0+0x3)>                                  {}
            <MI 11cac  OR.B    D0,(A0+0x3)>                                     {}
            <MI 11cb0  MOVE.L  (A6-0x1c),D4>                                    {}
            <MI 11cb4  MOVE.L  #0x708,D3>                                       {}
            <Call 0x11cba 0x107ea>                                              {}
                _?muls_d3_d4
            <MI 11cc0  MOVE.L  D4,-(A7)>                     Δ-4                {[4, 'D4']}
            <MI 11cc2  MOVE.L  (A6-0x18),D4>                                    {[4, 'D4']}
            <MI 11cc6  MOVEQ.L #0x1e,D3>                                        {[4, 'D4']}
            <Call 0x11cc8 0x107ea>                                              {[4, 'D4']}
                _?muls_d3_d4
            <MI 11cce  MOVE.L  (A7),D0>                                         {[4, 'D4']}
            <MI 11cd0  ADD.L   D4,D0>                                           {[4, 'D4']}
            <POP 11cd2-11cd4 StackAdj>                       Δ+4                {}
            <MI 11cd4  MOVE.L  (A6-0x14),D4>                                    {}
            <MI 11cd8  MOVEQ.L #0x02,D3>                                        {}
            <Call 0x11cda 0x1080a>                                              {}
                _?divs_d3_d4
            <MI 11ce0  ADD.L   D0,D4>                                           {}
            <MI 11ce2  MOVE.W  D4,(A0)>                                         {}
        <POP 11ce4-11cee Naked>                              Σ0         ↓ ←0x11bec ←0x11c08 ←0x11c24 ←0x11c42 ←0x11c5c ←0x11c7a
            <Pointer.fp 0x11ce4 <LVAR  0x010 @ 4(r)>>        Δ-4                {[@@16]}
            <Call 0x11ce6 0x10d76>                                              {[@@16]}
                _FreeString(VAR a : String)
            <POP 11cec-11cee StackAdj>                       Δ+4                {}
        <POP 11cee-11cf6 Epilogue>                           Σ0         

0x121cc


@ 121cc
_Modulus(a, b : Quad) : Quad
        <LVAR  0x01c 4(w)>
        <LVAR  0x018 4(w)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 121cc-12232 Body>                                              
        <POP 121cc-121e2 Prologue>                           Σ0         ↓
        <POP 121e2-121e4 RegCacheLoad>                       Σ0         ↓
        <POP 121e4-1222a Naked>                              Σ0         ↓
            <POP 121e4-121e6 StackAdj>                       Δ-8                {[-8-]}
            <MI 121e6  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x14)']}
            <MI 121ea  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <POP 121ee-121f0 StackAdj>                       Δ-16               {[-8-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[-16-]}
            <MI 121f0  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[-16-]|[4, '(A6+0x14)']}
            <MI 121f4  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[-16-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
            <MI 121f8  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[-16-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 121fc  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[-16-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x12200 0x11dde>                                              {[-8-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[-16-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
                _Divide(a, b : Quad) : Quad
            <POP 12206-1220a StackAdj>                       Δ+12               {[-8-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[-16-]|[4, '(A6+0x14)']}
            <MI 1220a  MOVE.L  (A6+0xc),(A7)>                                   {[-8-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[-16-]|[4, '(A6+0xc)']}
            <MI 1220e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[-16-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x12212 0x11d6a>                                              {[-8-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[-16-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
                _Multiply(a, b : Quad) : Quad
            <POP 12218-1221a StackAdj>                       Δ+16               {[-8-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[-8-]}
            <Call 0x1221a 0x11d30>                                              {[-8-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[-8-]}
                _Subtract(a, b : Quad) : Quad
            <POP 12220-12222 StackAdj>                       Δ+16               {[-8-]}
            <MI 12222  MOVE.L  (A7)+,(A6+0x18)>              Δ+4                {[-4-]}
            <MI 12226  MOVE.L  (A7)+,(A6+0x1c)>              Δ+4                {}
        <POP 1222a-12232 Epilogue>                           Σ0         

0x12232


@ 12232
_?StringToInt64()
        <LVAR  0x014 4(w)>
        <LVAR  0x010 4(w)>
        <LVAR  0x00c @ 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x003 1(rw)>
        <LVAR -0x00e 2(rw)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 4(rw)>
        <LVAR -0x018 4(rw)>
        <LVAR -0x01c 4(rw)>
        <LVAR -0x020 4(rw)>
        <LVAR -0x024 4(rw)>
        <LVAR -0x028 4(rw)>
    <POP 12232-123ca Body>                                   Δ+8        
        <POP 12232-12248 Prologue>                           Σ0         ↓
        <POP 12248-12260 RegCacheLoad>                       Σ0         ↓
        <POP 12260-12274 Naked>                              Σ0         ↓ →0x12278
            <MI 12260  MOVE.L  0x12180,(A6-0x24)>                               {}
            <MI 12264  MOVE.L  0x12184,(A6-0x20)>                               {}
            <MI 12268  MOVE.L  (A6+0x8),D0>                                     {}
            <MI 1226c  CMPI.L  #0x00000002,D0>                                  {}
            <MI 12272  BCS     0x12278>                                         {}
        <POP 12274-12278 Naked>                              Σ0         ↓ →0x12280
            <MI 12274  CMP.L   #0x10,D0>                                        {}
            <MI 12276  BLS     0x12280>                                         {}
        <POP 12278-12280 Naked>                              Σ0         ↓ ←0x12260
            <Const 0x12278 0xb.2>                            Δ-2                {[#11]}
            <Call 0x1227c 0x10704>                                              {[#11]}
            <POP 1227e-12280 StackAdj>                       Δ+2                {}
        <POP 12280-122a2 Naked>                              Σ0 Δ-4     ↓ →0x122ac ←0x12274
            <POP 0x12280 LimitCheck 0x0 ≤ D0 ≤ 0x10>                            {}
            <MI 12286  MOVE.L  D0,D1>                                           {}
            <MI 12288  ASL.L   #0x2,D1>                                         {}
            <MI 1228a  LEA.L   0x12188,A0>                                      {}
            <MI 1228e  MOVE.L  (A0+D1.L),(A6-0x28)>                             {}
            <MI 12292  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 12296  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 12298  MOVE.B  (A0+0x2),D1>                                     {[4, 'A0']}
            <MI 1229c  CMPI.B  #0x2d,D1>                                        {[4, 'A0']}
            <MI 122a0  BNE     0x122ac>                                         {[4, 'A0']}
        <POP 122a2-122ac Naked>                              Σ-4        →0x122b2
            <MI 122a2  MOVEQ.L #0x02,D5>                                        {[-4-]}
            <MI 122a4  MOVE.B  #0x01,(A6-0x3)>                                  {[-4-]}
            <MI 122aa  BRA     0x122b2>                                         {[-4-]}
        <POP 122ac-122b2 Naked>                              Σ-4        ↓ ←0x12280
            <MI 122ac  MOVEQ.L #0x01,D5>                                        {[-4-]}
            <MI 122ae  CLR.B   (A6-0x3)>                                        {[-4-]}
        <POP 122b2-122da Naked>                              Σ-4 Δ-4    ↓ ←0x122a2
            <POP 122b2-122b4 StackAdj>                       Δ-8                {[-12-]}
            <MI 122b4  MOVE.L  D0,-(A7)>                     Δ-4                {[-12-]|[4, 'D0']}
            <Call 0x122b6 0x1215c>                                              {[-12-]|[4, 'D0']}
                _Long2Quad(a : Long) : Quad
            <POP 122bc-122be StackAdj>                       Δ+4                {[-12-]}
            <MI 122be  MOVE.L  (A7)+,(A6-0x1c)>              Δ+4                {[-8-]}
            <MI 122c2  MOVE.L  (A7)+,(A6-0x18)>              Δ+4                {[-4-]}
            <MI 122c6  MOVE.L  0x12180,(A6-0x14)>                               {[-4-]}
            <MI 122cc  MOVE.L  0x12184,(A6-0x10)>                               {[-4-]}
            <MI 122d2  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 122d4  EXTW.L  D0>                                              {[-4-]}
            <MI 122d6  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 122d8  MOVE.L  D5,D7>                                           {[-4-]|[4, 'D0']}
        <POP 122da-122e0 Naked>                              Σ-8        ↓ →0x12394 ←0x12374
            <MI 122da  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 122dc  BGT     0x12394>                                         {[-8-]}
        <POP 122e0-122e4 Naked>                              Σ-8        ↓ →0x122f8
            <MI 122e0  TST.L   (A6-0x28)>                                       {[-8-]}
            <MI 122e2  BEQ     0x122f8>                                         {[-8-]}
        <POP 122e4-122f8 Naked>                              Σ-8 Δ-8    →0x1230e
            <POP 122e4-122e6 StackAdj>                       Δ-8                {[-16-]}
            <MI 122e6  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[-16-]|[4, '(A6-0x20)']}
            <MI 122e8  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[-16-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <MI 122ea  MOVE.L  (A6-0x28),-(A7)>              Δ-4                {[-16-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x28)']}
            <Call 0x122ec 0x1200a>                                              {[-16-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x28)']}
                _BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 122f2-122f6 StackAdj>                       Δ+12               {[-16-]}
            <MI 122f6  BRA     0x1230e>                                         {[-16-]}
        <POP 122f8-1230e Naked>                              Σ-8 Δ-8    ↓ ←0x122e0
            <POP 122f8-122fa StackAdj>                       Δ-8                {[-16-]}
            <MI 122fa  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[-16-]|[4, '(A6-0x20)']}
            <MI 122fc  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[-16-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <MI 122fe  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[-16-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
            <MI 12302  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[-16-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
            <Call 0x12306 0x11d6a>                                              {[-16-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
                _Multiply(a, b : Quad) : Quad
            <POP 1230c-1230e StackAdj>                       Δ+16               {[-16-]}
        <POP 1230e-1231e Naked>                              Σ-16 Δ+8   ↓ →0x12330 ←0x122e4
            <MI 1230e  MOVE.L  (A7)+,(A6-0x24)>              Δ+4                {[-12-]}
            <MI 12310  MOVE.L  (A7)+,(A6-0x20)>              Δ+4                {[-8-]}
            <MI 12312  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 12316  MOVE.B  (A0+D7.L+#0x1),D6>                               {[-8-]}
            <MI 1231a  CMP.B   #0x30,D6>                                        {[-8-]}
            <MI 1231c  BCS     0x12330>                                         {[-8-]}
        <POP 1231e-12324 Naked>                              Σ-8        ↓ →0x12330
            <MI 1231e  CMPI.B  #0x39,D6>                                        {[-8-]}
            <MI 12322  BHI     0x12330>                                         {[-8-]}
        <POP 12324-1232a Naked>                              Σ-8        ↓
            <MI 12324  CLR.L   D0>                                              {[-8-]}
            <MI 12326  MOVE.B  D6,D0>                                           {[-8-]}
            <MI 12328  SUB.W   #0x30,D0>                                        {[-8-]}
        <POP 1232a-12330 Naked>                              Σ-8        →0x12362 ←0x1233c ←0x12352
            <MI 1232a  MOVE.W  D0,(A6-0xe)>                                     {[-8-]}
            <MI 1232e  BRA     0x12362>                                         {[-8-]}
        <POP 12330-12336 Naked>                              Σ-8        ↓ →0x12346 ←0x1230e ←0x1231e
            <MI 12330  CMPI.B  #0x41,D6>                                        {[-8-]}
            <MI 12334  BCS     0x12346>                                         {[-8-]}
        <POP 12336-1233c Naked>                              Σ-8        ↓ →0x12346
            <MI 12336  CMPI.B  #0x46,D6>                                        {[-8-]}
            <MI 1233a  BHI     0x12346>                                         {[-8-]}
        <POP 1233c-12346 Naked>                              Σ-8        →0x1232a
            <MI 1233c  CLR.L   D0>                                              {[-8-]}
            <MI 1233e  MOVE.B  D6,D0>                                           {[-8-]}
            <MI 12340  SUBI.W  #0x0037,D0>                                      {[-8-]}
            <MI 12344  BRA     0x1232a>                                         {[-8-]}
        <POP 12346-1234c Naked>                              Σ-8        ↓ →0x1235c ←0x12330 ←0x12336
            <MI 12346  CMPI.B  #0x61,D6>                                        {[-8-]}
            <MI 1234a  BCS     0x1235c>                                         {[-8-]}
        <POP 1234c-12352 Naked>                              Σ-8        ↓ →0x1235c
            <MI 1234c  CMPI.B  #0x66,D6>                                        {[-8-]}
            <MI 12350  BHI     0x1235c>                                         {[-8-]}
        <POP 12352-1235c Naked>                              Σ-8        →0x1232a
            <MI 12352  CLR.L   D0>                                              {[-8-]}
            <MI 12354  MOVE.B  D6,D0>                                           {[-8-]}
            <MI 12356  SUBI.W  #0x0057,D0>                                      {[-8-]}
            <MI 1235a  BRA     0x1232a>                                         {[-8-]}
        <POP 1235c-12362 Naked>                              Σ-8        ↓ ←0x12346 ←0x1234c
            <Const 0x1235c 0xd.2>                            Δ-2                {[-8-]|[#13]}
            <Call 0x1235e 0x10704>                                              {[-8-]|[#13]}
            <POP 12360-12362 StackAdj>                       Δ+2                {[-8-]}
        <POP 12362-1236e Naked>                              Σ-8        ↓ →0x12374 ←0x1232a
            <MI 12362  CLR.L   D0>                                              {[-8-]}
            <MI 12364  MOVE.W  (A6-0xe),D0>                                     {[-8-]}
            <MI 12368  CMP.L   (A6+0x8),D0>                                     {[-8-]}
            <MI 1236c  BCS     0x12374>                                         {[-8-]}
        <POP 1236e-12374 Naked>                              Σ-8        ↓
            <Const 0x1236e 0xd.2>                            Δ-2                {[-8-]|[#13]}
            <Call 0x12370 0x10704>                                              {[-8-]|[#13]}
            <POP 12372-12374 StackAdj>                       Δ+2                {[-8-]}
        <POP 12374-12394 Naked>                              Σ-8        ↓ →0x122da ←0x12362
            <POP 12374-12376 StackAdj>                       Δ-8                {[-16-]}
            <MI 12376  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[-16-]|[4, '(A6-0x20)']}
            <MI 12378  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[-16-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <MI 1237a  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-16-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x10)']}
            <MI 1237e  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[-16-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
            <Call 0x12382 0x11cf6>                                              {[-16-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
                _Add(a, b : Quad) : Quad
            <POP 12388-1238a StackAdj>                       Δ+16               {[-16-]}
            <MI 1238a  MOVE.L  (A7)+,(A6-0x24)>              Δ+4                {[-12-]}
            <MI 1238c  MOVE.L  (A7)+,(A6-0x20)>              Δ+4                {[-8-]}
            <MI 1238e  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 12390  BVC     0x122da>                                         {[-8-]}
        <POP 12394-123a8 Naked>                              Σ-8 Δ+8    ↓ →0x123ba ←0x122da
            <POP 12394-12396 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x12396 <LVAR  0x00c @ 4(r)>>        Δ-4                {[@@12]}
            <Call 0x1239a 0x10d76>                                              {[@@12]}
                _FreeString(VAR a : String)
            <POP 123a0-123a2 StackAdj>                       Δ+4                {}
            <MI 123a2  TST.B   (A6-0x3)>                                        {}
            <MI 123a6  BEQ     0x123ba>                                         {}
        <POP 123a8-123ba Naked>                              Σ0         ↓
            <POP 123a8-123aa StackAdj>                       Δ-8                {[-8-]}
            <MI 123aa  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x20)']}
            <MI 123ac  MOVE.L  (A6-0x24),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
            <Call 0x123ae 0x11fa6>                                              {[-8-]|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
                _Negate(a : Quad) : Quad
            <POP 123b4-123b6 StackAdj>                       Δ+8                {[-8-]}
            <MI 123b6  MOVE.L  (A7)+,(A6-0x24)>              Δ+4                {[-4-]}
            <MI 123b8  MOVE.L  (A7)+,(A6-0x20)>              Δ+4                {}
        <POP 123ba-123c2 Naked>                              Σ0         ↓ ←0x12394
            <MI 123ba  MOVE.L  (A6-0x24),(A6+0x10)>                             {}
            <MI 123be  MOVE.L  (A6-0x20),(A6+0x14)>                             {}
        <POP 123c2-123ca Epilogue>                           Σ0         

0x123ca


@ 123ca
_Quad2String(a : Quad; radix : Long ) : String
        <LVAR  0x014 4(w)>
        <LVAR  0x010 4(rw)>
        <LVAR  0x00c 2(r) 4(rw)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 2(rw)>
        <LVAR -0x004 4(w)>
        <LVAR -0x008 4(w)>
        <LVAR -0x00c 4(rw)>
        <LVAR -0x010 4(rw)>
        <LVAR -0x014 @ 4(r)>
        <LVAR -0x020 @ 4(r)>
    <POP 123ca-125b0 Body>                                              
        <POP 123ca-123e0 Prologue>                           Σ0         ↓
        <POP 123e0-123f8 RegCacheLoad>                       Σ0         ↓
        <POP 123f8-12404 Naked>                              Σ0         ↓ →0x12408
            <MI 123f8  MOVE.L  (A6+0x8),D0>                                     {}
            <MI 123fc  CMPI.L  #0x00000002,D0>                                  {}
            <MI 12402  BCS     0x12408>                                         {}
        <POP 12404-12408 Naked>                              Σ0         ↓ →0x12412
            <MI 12404  CMP.L   #0x10,D0>                                        {}
            <MI 12406  BLS     0x12412>                                         {}
        <POP 12408-12412 Naked>                              Σ0         ↓ ←0x123f8
            <Const 0x12408 0xc.2>                            Δ-2                {[#12]}
            <Call 0x1240a 0x10704>                                              {[#12]}
            <POP 12410-12412 StackAdj>                       Δ+2                {}
        <POP 12412-12422 Naked>                              Σ0         ↓ →0x12496 ←0x12404
            <Pointer.fp 0x12412 <LVAR -0x020 @ 4(r)>>        Δ-4                {[@@-32]}
            <Call 0x12414 0x10d42>                                              {[@@-32]}
                _NewString(VAR a : String)
            <POP 1241a-1241c StackAdj>                       Δ+4                {}
            <MI 1241c  MOVEQ.L #0x01,D5>                                        {}
            <MI 1241e  CMP.L   #0x10,D0>                                        {}
            <MI 12420  BNE     0x12496>                                         {}
        <POP 12422-12424 Naked>                              Σ0         ↓
            <MI 12422  MOVEQ.L #0x00,D6>                                        {}
        <POP 12424-1242e Naked>                              Σ0         ↓ →0x12440 ←0x12472
            <MI 12424  MOVE.W  (A6+0xc),D7>                                     {}
            <MI 12426  LSR.W   #0x8,D7>                                         {}
            <MI 12428  LSR.W   #0x4,D7>                                         {}
            <MI 1242a  CMP.W   #0x09,D7>                                        {}
            <MI 1242c  BLS     0x12440>                                         {}
        <POP 1242e-12440 Naked>                              Σ0         ↓
            <MI 1242e  CLR.L   D0>                                              {}
            <MI 12430  MOVE.W  D7,D0>                                           {}
            <MI 12432  ADDQ.L  #0x7,D0>                                         {}
            <POP 0x12434 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 1243e  MOVE.W  D0,D7>                                           {}
        <POP 12440-12444 Naked>                              Σ0         ↓ →0x1244a ←0x12424
            <MI 12440  TST.B   D5>                                              {}
            <MI 12442  BEQ     0x1244a>                                         {}
        <POP 12444-12448 Naked>                              Σ0         ↓ →0x1244a
            <MI 12444  TST.W   D7>                                              {}
            <MI 12446  BEQ     0x1244a>                                         {}
        <POP 12448-1244a Naked>                              Σ0         ↓
            <MI 12448  MOVEQ.L #0x00,D5>                                        {}
        <POP 1244a-1244e Naked>                              Σ0         ↓ →0x12456 ←0x12440 ←0x12444
            <MI 1244a  TST.B   D5>                                              {}
            <MI 1244c  BEQ     0x12456>                                         {}
        <POP 1244e-12456 Naked>                              Σ0         ↓ →0x12472
            <MI 1244e  CMPI.L  #0x0000000f,D6>                                  {}
            <MI 12454  BNE     0x12472>                                         {}
        <POP 12456-12472 Naked>                              Σ0         ↓ ←0x1244a
            <MI 12456  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[4, '(A6-0x20)']}
            <MI 12458  CLR.L   D0>                                              {[4, '(A6-0x20)']}
            <MI 1245a  MOVE.W  D7,D0>                                           {[4, '(A6-0x20)']}
            <MI 1245c  ADDI.L  #0x00000030,D0>                                  {[4, '(A6-0x20)']}
            <POP 0x12462 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[4, '(A6-0x20)']}
            <MI 1246c  MOVE.B  D0,-(A7)>                     Δ-2                {[4, '(A6-0x20)']|[2, 'D0']}
            <Call 0x1246e 0x10da6>                                              {[4, '(A6-0x20)']|[2, 'D0']}
                _AppendChar(MOD b : String; a : char)
            <POP 12470-12472 StackAdj>                       Δ+6                {}
        <POP 12472-12492 Naked>                              Σ0         ↓ →0x12424 ←0x1244e
            <POP 12472-12474 StackAdj>                       Δ-8                {[-8-]}
            <MI 12474  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x10)']}
            <MI 12476  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <Const 0x12478 0x4.4>                            Δ-4                {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[##4]}
            <Call 0x1247c 0x1200a>                                              {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[##4]}
                _BitShift(a : Quad ; howmuch : integer) : Quad
            <POP 12482-12484 StackAdj>                       Δ+12               {[-8-]}
            <MI 12484  MOVE.L  (A7)+,(A6+0xc)>               Δ+4                {[-4-]}
            <MI 12486  MOVE.L  (A7)+,(A6+0x10)>              Δ+4                {}
            <MI 12488  ADDQ.L  #0x1,D6>                                         {}
            <MI 1248a  CMPI.L  #0x0000000f,D6>                                  {}
            <MI 12490  BLE     0x12424>                                         {}
        <POP 12492-12496 Naked>                              Σ0         →0x125a4
            <MI 12492  BRA     0x125a4>                                         {}
        <POP 12496-1249a Naked>                              Σ0         →0x124b6 ←0x12412
            <MI 12496  TST.W   (A6+0xc)>                                        {}
            <MI 12498  BRA     0x124b6>                                         {}
        <POP 124b6-124d6 Naked>                              Σ0         ↓ ←0x12496
            <POP 124b6-124b8 StackAdj>                       Δ-8                {[-8-]}
            <MI 124b8  MOVE.L  D0,-(A7)>                     Δ-4                {[-8-]|[4, 'D0']}
            <Call 0x124ba 0x1215c>                                              {[-8-]|[4, 'D0']}
                _Long2Quad(a : Long) : Quad
            <POP 124c0-124c2 StackAdj>                       Δ+4                {[-8-]}
            <MI 124c2  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[-4-]}
            <MI 124c6  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <Pointer.fp 0x124ca <LVAR -0x014 @ 4(r)>>        Δ-4                {[@@-20]}
            <Call 0x124ce 0x10d42>                                              {[@@-20]}
                _NewString(VAR a : String)
            <POP 124d4-124d6 StackAdj>                       Δ+4                {}
        <POP 124d6-124fa Naked>                              Σ0         ↓ →0x1250e ←0x1250e
            <POP 124d6-124d8 StackAdj>                       Δ-8                {[-8-]}
            <MI 124d8  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x10)']}
            <MI 124da  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 124dc  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6-0xc)']}
            <MI 124e0  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Call 0x124e4 0x121cc>                                              {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
                _Modulus(a, b : Quad) : Quad
            <POP 124e8-124ea StackAdj>                       Δ+16               {[-8-]}
            <MI 124ea  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[-4-]}
            <MI 124ee  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {}
            <MI 124f2  MOVE.W  (A6-0x2),D0>                                     {}
            <MI 124f6  CMP.W   #0x09,D0>                                        {}
            <MI 124f8  BLS     0x1250e>                                         {}
        <POP 124fa-1250e Naked>                              Σ0         ↓
            <MI 124fa  CLR.L   D1>                                              {}
            <MI 124fc  MOVE.W  D0,D1>                                           {}
            <MI 124fe  ADDQ.L  #0x7,D1>                                         {}
            <POP 0x12500 LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {}
            <MI 1250a  MOVE.W  D1,(A6-0x2)>                                     {}
        <POP 1250e-12562 Naked>                              Σ0         ↓ →0x124d6 ←0x124d6
            <MI 1250e  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[4, '(A6-0x14)']}
            <MI 12512  CLR.L   D0>                                              {[4, '(A6-0x14)']}
            <MI 12514  MOVE.W  (A6-0x2),D0>                                     {[4, '(A6-0x14)']}
            <MI 12518  ADDI.L  #0x00000030,D0>                                  {[4, '(A6-0x14)']}
            <POP 0x1251e LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[4, '(A6-0x14)']}
            <MI 12528  MOVE.B  D0,-(A7)>                     Δ-2                {[4, '(A6-0x14)']|[2, 'D0']}
            <Call 0x1252a 0x10da6>                                              {[4, '(A6-0x14)']|[2, 'D0']}
                _AppendChar(MOD b : String; a : char)
            <POP 1252c-1252e StackAdj>                       Δ-2                {[4, '(A6-0x14)']|[2, 'D0']|[-2-]}
            <MI 1252e  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6-0x14)']|[2, 'D0']|[-2-]|[4, '(A6+0x10)']}
            <MI 12530  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6-0x14)']|[2, 'D0']|[-2-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <MI 12532  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0x14)']|[2, 'D0']|[-2-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6-0xc)']}
            <MI 12536  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x14)']|[2, 'D0']|[-2-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
            <Call 0x1253a 0x11dde>                                              {[4, '(A6-0x14)']|[2, 'D0']|[-2-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
                _Divide(a, b : Quad) : Quad
            <POP 12540-12542 StackAdj>                       Δ+16               {[4, '(A6-0x14)']|[2, 'D0']|[-2-]}
            <MI 12542  MOVE.L  (A7)+,(A6+0xc)>               Δ+4                {[4, '(A6-0x14)']}
            <MI 12544  MOVE.L  (A7),(A6+0x10)>                                  {[4, '(A6-0x14)']}
            <POP 12546-12548 StackAdj>                       Δ+2                {[-2-]}
            <MI 12548  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-2-]|[4, '(A6+0x10)']}
            <MI 1254a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
            <Blob 0x1254c [4] @>                             Δ-4                {[-2-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[«4""»]}
            <Blob 0x12550 [4] @>                             Δ-4                {[-2-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[«4""»]|[«4""»]}
            <Call 0x12554 0x11ef4>                                              {[-2-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[«4""»]|[«4""»]}
                _IsEqual(a, b : Quad) : Bool
            <POP 1255a-1255c StackAdj>                       Δ+16               {[-2-]}
            <MI 1255c  TST.B   (A7)+>                        Δ+2                {}
            <MI 1255e  BEQ     0x124d6>                                         {}
        <POP 12562-1256e Naked>                              Σ0 Δ-4     ↓
            <MI 12562  MOVEA.L (A6-0x14),A0>                                    {}
            <MI 12566  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 12568  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 1256a  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 1256c  MOVE.L  D0,D6>                                           {[4, 'A0']}
        <POP 1256e-12576 Naked>                              Σ-4        ↓ →0x12596 ←0x12576
            <MI 1256e  CMPI.L  #0x00000001,D6>                                  {[-4-]}
            <MI 12574  BLT     0x12596>                                         {[-4-]}
        <POP 12576-12596 Naked>                              Σ-4        ↓ →0x1256e
            <MI 12576  MOVE.L  (A6-0x20),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x20)']}
            <MI 12578  MOVE.L  D6,D0>                                           {[-4-]|[4, '(A6-0x20)']}
            <MI 1257a  SUBQ.L  #0x1,D0>                                         {[-4-]|[4, '(A6-0x20)']}
            <POP 0x1257c LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-4-]|[4, '(A6-0x20)']}
            <MI 12586  MOVEA.L (A7+0x4),A0>                                     {[-4-]|[4, '(A6-0x20)']}
            <MI 1258a  MOVE.B  (A0+D0.L+#0x2),-(A7)>         Δ-2                {[-4-]|[4, '(A6-0x20)']|[2, '(A0+D0.L+#0x2)']}
            <Call 0x1258e 0x10da6>                                              {[-4-]|[4, '(A6-0x20)']|[2, '(A0+D0.L+#0x2)']}
                _AppendChar(MOD b : String; a : char)
            <POP 12590-12592 StackAdj>                       Δ+6                {[-4-]}
            <MI 12592  SUBQ.L  #0x1,D6>                                         {[-4-]}
            <MI 12594  BVC     0x1256e>                                         {[-4-]}
        <POP 12596-125a4 Naked>                              Σ-4 Δ+4    ↓ ←0x1256e
            <POP 12596-12598 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x12598 <LVAR -0x014 @ 4(r)>>        Δ-4                {[@@-20]}
            <Call 0x1259c 0x10d76>                                              {[@@-20]}
                _FreeString(VAR a : String)
            <POP 125a2-125a4 StackAdj>                       Δ+4                {}
        <POP 125a4-125a8 Naked>                              Σ0         ↓ ←0x12492
            <MI 125a4  MOVE.L  (A6-0x20),(A6+0x14)>                             {}
        <POP 125a8-125b0 Epilogue>                           Σ0         

0x12602


@ 12602
_Lba2Chs(lba : W; VAR cyl : W ; VAR hd_sec : W)
        <LVAR  0x010 2(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 12602-12666 Body>                                              
        <POP 12602-12618 Prologue>                           Σ0         ↓
        <POP 12618-1265e Naked>                              Σ0         ↓
            <MI 12618  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 1261c  CLR.L   D0>                                              {}
            <MI 1261e  MOVE.W  (A6+0x10),D0>                                    {}
            <MI 12622  DIVU.W  0x1000c,D0>                                      {}
            <MI 12628  MOVE.W  D0,(A0)>                                         {}
            <MI 1262a  SWAP.W  D0>                                              {}
            <MI 1262c  CLR.L   D1>                                              {}
            <MI 1262e  MOVE.W  D0,D1>                                           {}
            <MI 12630  MOVE.L  D1,D5>                                           {}
            <MI 12632  MOVE.L  D5,D4>                                           {}
            <MI 12634  CLR.L   D3>                                              {}
            <MI 12636  MOVE.W  0x1000a,D3>                                      {}
            <Call 0x1263c 0x10816>                                              {}
                _?divu_d3_d4
            <MI 12642  MOVE.L  D4,D7>                                           {}
            <MI 12644  ASL.L   #0x1,D3>                                         {}
            <MI 12646  MOVE.L  D3,D6>                                           {}
            <MI 12648  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1264c  MOVE.L  D7,D0>                                           {}
            <MI 1264e  ASL.L   #0x8,D0>                                         {}
            <MI 12650  ADD.L   D6,D0>                                           {}
            <POP 0x12652 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 1265c  MOVE.W  D0,(A0)>                                         {}
        <POP 1265e-12666 Epilogue>                           Σ0         

0x12666


@ 12666
        <LVAR  0x008 1(r)>
    <POP 12666-127b6 Body>                                              
        <POP 12666-1267c Prologue>                           Σ0         ↓
        <POP 1267c-12688 RegCacheLoad>                       Σ0         ↓
        <POP 12688-126e8 Naked>                              Σ0         ↓
            <MI 12688  CLR.L   D0>                                              {}
            <MI 1268a  MOVE.W  (A4+0xb8),D0>                                    {}
            <MI 1268e  ADD.L   (A4+0x96),D0>                                    {}
            <POP 0x12692 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 1269c  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 1269e  PEA.L   (A4+0x8c)>                    Δ-4                {[2, 'D0']|[4, '^(A4+0x8c)']}
            <MI 126a2  PEA.L   (A4+0x8e)>                    Δ-4                {[2, 'D0']|[4, '^(A4+0x8c)']|[4, '^(A4+0x8e)']}
            <Call 0x126a6 0x12602>                                              {[2, 'D0']|[4, '^(A4+0x8c)']|[4, '^(A4+0x8e)']}
                _Lba2Chs(lba : W; VAR cyl : W ; VAR hd_sec : W)
            <POP 126aa-126ac StackAdj>                       Δ+10               {}
            <MI 126ac  MOVE.W  #0x100,(A4+0x2)>                                 {}
            <MI 126b2  CLR.W   (A4+0x4)>                                        {}
            <MI 126b6  MOVE.W  #0x02,(A4+0x6)>                                  {}
            <MI 126ba  CLR.W   (A4+0x8)>                                        {}
            <MI 126be  MOVE.W  #0x80,(A4+0xa)>                                  {}
            <MI 126c4  MOVE.W  0x10008,D0>                                      {}
            <MI 126ca  ASL.W   #0x8,D0>                                         {}
            <MI 126cc  MOVE.B  (A6+0x8),D1>                                     {}
            <MI 126d0  EXTB.W  D1>                                              {}
            <MI 126d2  ADD.W   D1,D0>                                           {}
            <MI 126d4  MOVE.W  D0,(A4+0xc)>                                     {}
            <MI 126d6  MOVE.W  (A4+0x8c),(A4+0xe)>                              {}
            <MI 126dc  MOVE.W  (A4+0x8e),(A4+0x10)>                             {}
            <MI 126e2  CLR.L   (A4+0x90)>                                       {}
            <MI 126e4  MOVE.B  D1,(A4+0x94)>                                    {}
        <POP 126e8-12710 Naked>                              Σ0         ↓ →0x1279c ←0x127a2
            <MI 126e8  PEA.L   (A4+0x2)>                     Δ-4                {[4, '^(A4+0x2)']}
            <MI 126ec  MOVE.L  (A4+0x9e),-(A7)>              Δ-4                {[4, '^(A4+0x2)']|[4, '(A4+0x9e)']}
            <MI 126f0  CLR.W   -(A7)>                        Δ-2                {[4, '^(A4+0x2)']|[4, '(A4+0x9e)']|[#0]}
            <Call 0x126f2 0x10204>                                              {[4, '^(A4+0x2)']|[4, '(A4+0x9e)']|[#0]}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 126f8-126fa StackAdj>                       Δ+10               {}
            <MI 126fa  MOVEA.L (A4+0xac),A0>                                    {}
            <MI 126fe  CLR.W   -(A7)>                        Δ-2                {[#0]}
            <MI 12700  PEA.L   (A0)>                         Δ-4                {[#0]|[4, '^(A0)']}
            <Call 0x12702 0x10206>                                              {[#0]|[4, '^(A0)']}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 12708-1270a StackAdj>                       Δ+6                {}
            <MI 1270a  TST.B   (A0)>                                            {}
            <MI 1270c  BNE     0x1279c>                                         {}
        <POP 12710-12752 Naked>                              Σ0         ↓ →0x1275e
            <MI 12710  MOVE.W  #0x80,(A4+0xa)>                                  {}
            <MI 12716  MOVE.W  (A4+0xc),D0>                                     {}
            <MI 12718  ANDI.W  #0xff00,D0>                                      {}
            <MI 1271c  CLR.L   D1>                                              {}
            <MI 1271e  MOVE.W  D0,D1>                                           {}
            <MI 12720  ADDQ.L  #0x1,D1>                                         {}
            <POP 0x12722 LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {}
            <MI 1272c  MOVE.W  D1,(A4+0xc)>                                     {}
            <MI 1272e  PEA.L   (A4+0x2)>                     Δ-4                {[4, '^(A4+0x2)']}
            <MI 12732  LEA.L   (A4+0x12),A1>                                    {[4, '^(A4+0x2)']}
            <MI 12736  MOVE.L  A1,-(A7)>                     Δ-4                {[4, '^(A4+0x2)']|[4, 'A1']}
            <MI 12738  CLR.W   -(A7)>                        Δ-2                {[4, '^(A4+0x2)']|[4, 'A1']|[#0]}
            <Call 0x1273a 0x10204>                                              {[4, '^(A4+0x2)']|[4, 'A1']|[#0]}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 12740-12742 StackAdj>                       Δ+8                {[-2-]}
            <MI 12742  CLR.W   (A7)>                                            {[-2-]}
            <MI 12744  PEA.L   (A4)>                         Δ-4                {[-2-]|[4, '^(A4)']}
            <Call 0x12746 0x10206>                                              {[-2-]|[4, '^(A4)']}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 1274c-1274e StackAdj>                       Δ+6                {}
            <MI 1274e  TST.B   (A4)>                                            {}
            <MI 12750  BNE     0x1275e>                                         {}
        <POP 12752-1275e Naked>                              Σ0         ↓
            <Const 0x12752 0x1.4>                            Δ-4                {[##1]}
            <Call 0x12756 0x10220>                                              {[##1]}
                KC10_Panic(code : Long)
            <POP 1275c-1275e StackAdj>                       Δ+4                {}
        <POP 1275e-12774 Naked>                              Σ0         ↓ →0x1279c ←0x12710
            <MI 1275e  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 12760  LEA.L   (A4+0x12),A1>                                    {[#0]}
            <MI 12764  MOVE.L  A1,-(A7)>                     Δ-4                {[#0]|[4, 'A1']}
            <Call 0x12766 0x144d8>                                              {[#0]|[4, 'A1']}
                _Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 1276c-1276e StackAdj>                       Δ+6                {}
            <MI 1276e  MOVE.L  (A4+0x90),D0>                                    {}
            <MI 12770  CMP.L   #0x0a,D0>                                        {}
            <MI 12772  BLT     0x1279c>                                         {}
        <POP 12774-1277c Naked>                              Σ0         ↓ →0x1279c
            <MI 12774  MOVE.B  (A4+0x94),D1>                                    {}
            <MI 12778  CMP.B   #0x02,D1>                                        {}
            <MI 1277a  BNE     0x1279c>                                         {}
        <POP 1277c-12784 Naked>                              Σ0         ↓ →0x12790
            <MI 1277c  CMPI.L  #0x0000000f,D0>                                  {}
            <MI 12782  BGE     0x12790>                                         {}
        <POP 12784-12790 Naked>                              Σ0         →0x1279a
            <MI 12784  MOVE.W  0x10008,D0>                                      {}
            <MI 1278a  ASL.W   #0x8,D0>                                         {}
            <MI 1278c  ADDQ.W  #0x6,D0>                                         {}
            <MI 1278e  BRA     0x1279a>                                         {}
        <POP 12790-1279a Naked>                              Σ0         ↓ ←0x1277c
            <MI 12790  MOVE.W  0x10008,D0>                                      {}
            <MI 12796  ASL.W   #0x8,D0>                                         {}
            <MI 12798  ADDQ.W  #0x5,D0>                                         {}
        <POP 1279a-1279c Naked>                              Σ0         ↓ ←0x12784
            <MI 1279a  MOVE.W  D0,(A4+0xc)>                                     {}
        <POP 1279c-127a2 Naked>                              Σ0         ↓ →0x127ae ←0x126e8 ←0x1275e ←0x12774
            <MI 1279c  ADDQ.L  #0x1,(A4+0x90)>                                  {}
            <MI 1279e  TST.B   (A0)>                                            {}
            <MI 127a0  BNE     0x127ae>                                         {}
        <POP 127a2-127ae Naked>                              Σ0         ↓ →0x126e8
            <MI 127a2  MOVE.L  (A4+0x90),D0>                                    {}
            <MI 127a4  CMPI.L  #0x00000014,D0>                                  {}
            <MI 127aa  BNE     0x126e8>                                         {}
        <POP 127ae-127b6 Epilogue>                           Σ0         ←0x1279c

0x127b6


@ 127b6
_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
        <LVAR  0x016 1(r)>
        <LVAR  0x014 2(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 4(w)>
        <LVAR -0x00e 4(rw)>
        <LVAR -0x010 1(rw)>
        <LVAR -0x014 4(rw)>
        <LVAR -0x016 @ 2(r)>
        <LVAR -0x018 @ 2(r)>
        <LVAR -0x092 @>
        <LVAR -0x094 2(w)>
        <LVAR -0x096 2(w)>
        <LVAR -0x098 2(rw)>
        <LVAR -0x09a 2(w)>
        <LVAR -0x09c 2(r)>
        <LVAR -0x09e 2(w)>
        <LVAR -0x0a0 2(r)>
        <LVAR -0x0a2 @ 2(rw)>
        <LVAR -0x0a4 @ 1(r)>
    <POP 127b6-12986 Body>                                              
        <POP 127b6-127cc Prologue>                           Σ0         ↓
        <POP 127cc-127de RegCacheLoad>                       Σ0         ↓
        <POP 127de-127ea Naked>                              Σ0         ↓ →0x12842
            <POP 127de-127e0 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x127e0 0x1afc2>                                              {[-2-]}
                _Is_fc07_one_or_three() : Bool
            <MI 127e6  TST.B   (A7)+>                        Δ+2                {}
            <MI 127e8  BEQ     0x12842>                                         {}
        <POP 127ea-127f0 Naked>                              Σ0         ↓ →0x127f6
            <MI 127ea  MOVE.B  (A6+0x16),D0>                                    {}
            <MI 127ec  CMP.B   #0x02,D0>                                        {}
            <MI 127ee  BEQ     0x127f6>                                         {}
        <POP 127f0-127f6 Naked>                              Σ0         ↓ →0x1282a
            <MI 127f0  CMPI.B  #0x03,D0>                                        {}
            <MI 127f4  BNE     0x1282a>                                         {}
        <POP 127f6-12804 Naked>                              Σ0         ↓ ←0x127ea
            <MI 127f6  MOVE.L  (A6+0xc),(A6-0x6)>                               {}
            <MI 127fc  CLR.L   (A6-0xe)>                                        {}
            <MI 12800  MOVE.L  (A6+0x10),D7>                                    {}
        <POP 12804-1280a Naked>                              Σ0         ↓ →0x12824 ←0x1280a
            <MI 12804  CMP.L   (A6-0xe),D7>                                     {}
            <MI 12808  BEQ     0x12824>                                         {}
        <POP 1280a-12824 Naked>                              Σ0         →0x12804
            <MI 1280a  MOVE.B  (A6+0x16),-(A7)>              Δ-2                {[2, '(A6+0x16)']}
            <MI 1280c  LEA.L   (A6-0xa4),A4>                                    {[2, '(A6+0x16)']}
            <Call 0x12810 0x12666>                                              {[2, '(A6+0x16)']}
            <POP 12814-12816 StackAdj>                       Δ+2                {}
            <MI 12816  ADDQ.L  #0x1,(A6-0xe)>                                   {}
            <MI 1281a  ADDI.L  #0x00000400,(A6-0x6)>                            {}
            <MI 12822  BRA     0x12804>                                         {}
        <POP 12824-12828 Naked>                              Σ0         →0x1297e ←0x12804
            <MI 12824  BRA     0x1297e>                                         {}
        <POP 1282a-12832 Naked>                              Σ0         ↓ →0x12842 ←0x127f0
            <MI 1282a  MOVE.W  (A6-0xa2),D1>                                    {}
            <MI 1282c  ANDI.W  #0xfe00,D1>                                      {}
            <MI 12830  BEQ     0x12842>                                         {}
        <POP 12832-12836 Naked>                              Σ0         ↓ →0x12842
            <MI 12832  CMP.B   #0x13,D0>                                        {}
            <MI 12834  BEQ     0x12842>                                         {}
        <POP 12836-12842 Naked>                              Σ0         ↓
            <Const 0x12836 0x63.4>                           Δ-4                {[##99]}
            <Call 0x1283a 0x10220>                                              {[##99]}
                KC10_Panic(code : Long)
            <POP 12840-12842 StackAdj>                       Δ+4                {}
        <POP 12842-1288a Naked>                              Σ0         ↓ →0x128a0 ←0x127de ←0x1282a ←0x12832
            <MI 12842  MOVE.W  (A6+0x14),-(A7)>              Δ-2                {[2, '(A6+0x14)']}
            <Pointer.fp 0x12846 <LVAR -0x018 @ 2(r)>>        Δ-4                {[2, '(A6+0x14)']|[@@-24]}
            <Pointer.fp 0x1284a <LVAR -0x016 @ 2(r)>>        Δ-4                {[2, '(A6+0x14)']|[@@-24]|[@@-22]}
            <Call 0x1284e 0x12602>                                              {[2, '(A6+0x14)']|[@@-24]|[@@-22]}
                _Lba2Chs(lba : W; VAR cyl : W ; VAR hd_sec : W)
            <POP 12852-12854 StackAdj>                       Δ+10               {}
            <MI 12854  MOVE.L  (A6+0x10),D0>                                    {}
            <MI 12858  ASL.L   #0x8,D0>                                         {}
            <POP 0x1285a LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 12864  MOVE.W  D0,(A6-0xa2)>                                    {}
            <MI 12866  CLR.W   (A6-0xa0)>                                       {}
            <MI 1286a  MOVE.W  #0x02,(A6-0x9e)>                                 {}
            <MI 1286e  CLR.W   (A6-0x9c)>                                       {}
            <MI 12872  MOVE.W  #0x80,(A6-0x9a)>                                 {}
            <MI 12878  MOVE.W  (A6-0x18),(A6-0x96)>                             {}
            <MI 1287e  MOVE.W  (A6-0x16),(A6-0x94)>                             {}
            <MI 12884  MOVE.B  (A6+0x16),D0>                                    {}
            <MI 12886  CMP.B   #0x13,D0>                                        {}
            <MI 12888  BNE     0x128a0>                                         {}
        <POP 1288a-128a0 Naked>                              Σ0         ↓
            <MI 1288a  MOVE.W  0x10008,D0>                                      {}
            <MI 12890  ASL.W   #0x8,D0>                                         {}
            <MI 12892  ADDQ.W  #0x2,D0>                                         {}
            <MI 12894  MOVE.W  D0,(A6-0x98)>                                    {}
            <Pointer.fp 0x12896 <LVAR -0x0a2 @ 2(rw)>>       Δ-4                {[@@-162]}
            <Call 0x12898 0x1021e>                                              {[@@-162]}
                KC0f_ReInit
            <POP 1289e-128a0 StackAdj>                       Δ+4                {}
        <POP 128a0-128a8 Naked>                              Σ0         ↓ ←0x12842
            <MI 128a0  MOVE.B  (A6+0x16),(A6-0x10)>                             {}
            <MI 128a4  CLR.L   (A6-0x14)>                                       {}
        <POP 128a8-128e0 Naked>                              Σ0         ↓ →0x12964 ←0x12970
            <MI 128a8  MOVE.W  0x10008,D0>                                      {}
            <MI 128ae  ASL.W   #0x8,D0>                                         {}
            <MI 128b0  MOVE.B  (A6-0x10),D1>                                    {}
            <MI 128b4  EXTB.W  D1>                                              {}
            <MI 128b6  ADD.W   D0,D1>                                           {}
            <MI 128b8  MOVE.W  D1,(A6-0x98)>                                    {}
            <Pointer.fp 0x128ba <LVAR -0x0a2 @ 2(rw)>>       Δ-4                {[@@-162]}
            <MI 128bc  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[@@-162]|[4, '(A6+0xc)']}
            <MI 128c0  CLR.W   -(A7)>                        Δ-2                {[@@-162]|[4, '(A6+0xc)']|[#0]}
            <Call 0x128c2 0x10204>                                              {[@@-162]|[4, '(A6+0xc)']|[#0]}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 128c8-128ca StackAdj>                       Δ+10               {}
            <MI 128ca  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 128ce  CLR.W   -(A7)>                        Δ-2                {[#0]}
            <MI 128d0  PEA.L   (A0)>                         Δ-4                {[#0]|[4, '^(A0)']}
            <Call 0x128d2 0x10206>                                              {[#0]|[4, '^(A0)']}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 128d8-128da StackAdj>                       Δ+6                {}
            <MI 128da  TST.B   (A0)>                                            {}
            <MI 128dc  BNE     0x12964>                                         {}
        <POP 128e0-12924 Naked>                              Σ0         ↓ →0x12930
            <MI 128e0  MOVE.W  #0x80,(A6-0x9a)>                                 {}
            <MI 128e6  MOVE.W  (A6-0x98),D0>                                    {}
            <MI 128e8  ANDI.W  #0xff00,D0>                                      {}
            <MI 128ec  CLR.L   D1>                                              {}
            <MI 128ee  MOVE.W  D0,D1>                                           {}
            <MI 128f0  ADDQ.L  #0x1,D1>                                         {}
            <POP 0x128f2 LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {}
            <MI 128fc  MOVE.W  D1,(A6-0x98)>                                    {}
            <Pointer.fp 0x128fe <LVAR -0x0a2 @ 2(rw)>>       Δ-4                {[@@-162]}
            <MI 12900  LEA.L   (A6-0x92),A0>                                    {[@@-162]}
            <MI 12904  MOVE.L  A0,-(A7)>                     Δ-4                {[@@-162]|[4, 'A0']}
            <MI 12906  CLR.W   -(A7)>                        Δ-2                {[@@-162]|[4, 'A0']|[#0]}
            <Call 0x12908 0x10204>                                              {[@@-162]|[4, 'A0']|[#0]}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 1290e-12910 StackAdj>                       Δ+8                {[-2-]}
            <MI 12910  CLR.W   (A7)>                                            {[-2-]}
            <Pointer.fp 0x12912 <LVAR -0x0a4 @ 1(r)>>        Δ-4                {[-2-]|[@@-164]}
            <Call 0x12916 0x10206>                                              {[-2-]|[@@-164]}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 1291c-1291e StackAdj>                       Δ+6                {}
            <MI 1291e  TST.B   (A6-0xa4)>                                       {}
            <MI 12922  BNE     0x12930>                                         {}
        <POP 12924-12930 Naked>                              Σ0         ↓
            <Const 0x12924 0x1.4>                            Δ-4                {[##1]}
            <Call 0x12928 0x10220>                                              {[##1]}
                KC10_Panic(code : Long)
            <POP 1292e-12930 StackAdj>                       Δ+4                {}
        <POP 12930-12948 Naked>                              Σ0         ↓ →0x12964 ←0x128e0
            <MI 12930  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 12932  LEA.L   (A6-0x92),A0>                                    {[#0]}
            <MI 12936  MOVE.L  A0,-(A7)>                     Δ-4                {[#0]|[4, 'A0']}
            <Call 0x12938 0x144d8>                                              {[#0]|[4, 'A0']}
                _Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 1293e-12940 StackAdj>                       Δ+6                {}
            <MI 12940  MOVE.L  (A6-0x14),D0>                                    {}
            <MI 12944  CMP.L   #0x0a,D0>                                        {}
            <MI 12946  BLT     0x12964>                                         {}
        <POP 12948-1294e Naked>                              Σ0         ↓ →0x12964
            <MI 12948  MOVE.B  (A6+0x16),D1>                                    {}
            <MI 1294a  CMP.B   #0x02,D1>                                        {}
            <MI 1294c  BNE     0x12964>                                         {}
        <POP 1294e-12956 Naked>                              Σ0         ↓ →0x1295e
            <MI 1294e  CMPI.L  #0x0000000f,D0>                                  {}
            <MI 12954  BGE     0x1295e>                                         {}
        <POP 12956-1295e Naked>                              Σ0         →0x12964
            <MI 12956  MOVE.B  #0x06,(A6-0x10)>                                 {}
            <MI 1295c  BRA     0x12964>                                         {}
        <POP 1295e-12964 Naked>                              Σ0         ↓ ←0x1294e
            <MI 1295e  MOVE.B  #0x05,(A6-0x10)>                                 {}
        <POP 12964-12970 Naked>                              Σ0         ↓ →0x1297e ←0x128a8 ←0x12930 ←0x12948 ←0x12956
            <MI 12964  ADDQ.L  #0x1,(A6-0x14)>                                  {}
            <MI 12968  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1296c  TST.B   (A0)>                                            {}
            <MI 1296e  BNE     0x1297e>                                         {}
        <POP 12970-1297e Naked>                              Σ0         ↓ →0x128a8
            <MI 12970  MOVE.L  (A6-0x14),D0>                                    {}
            <MI 12974  CMPI.L  #0x00000014,D0>                                  {}
            <MI 1297a  BNE     0x128a8>                                         {}
        <POP 1297e-12986 Epilogue>                           Σ0         ←0x12824 ←0x12964

0x12986


@ 12986
_ReadWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B)
        <LVAR  0x014 2(r)>
        <LVAR  0x012 2(r)>
        <LVAR  0x00e 4(r)>
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x00e @ 4(rw)>
    <POP 12986-12a4c Body>                                              
        <POP 12986-1299c Prologue>                           Σ0         ↓
        <POP 1299c-129a8 RegCacheLoad>                       Σ0         ↓
        <POP 129a8-129b0 Naked>                              Σ0         ↓ →0x129c0
            <MI 129a8  MOVE.W  (A6+0xc),D0>                                     {}
            <MI 129ac  CMP.W   #0x200,D0>                                       {}
            <MI 129ae  BEQ     0x129c0>                                         {}
        <POP 129b0-129c0 Naked>                              Σ0         →0x129c4
            <Pointer.fp 0x129b0 <LVAR -0x00e @ 4(rw)>>       Δ-4                {[@@-14]}
            <Const 0x129b2 0x400.4>                          Δ-4                {[@@-14]|[##1024]}
            <Call 0x129b6 0x10856>                                              {[@@-14]|[##1024]}
                _Malloc1(length : Long) : Pointer
            <POP 129bc-129be StackAdj>                       Δ+8                {}
            <MI 129be  BRA     0x129c4>                                         {}
        <POP 129c0-129c4 Naked>                              Σ0         ↓ ←0x129a8
            <MI 129c0  MOVE.L  (A6+0xe),(A6-0xe)>                               {}
        <POP 129c4-129e4 Naked>                              Σ0         ↓ →0x12a2e ←0x129b0
            <MI 129c4  MOVEA.L (A6+0x8),A0>                                     {}
            <Const 0x129c8 0x2.2>                            Δ-2                {[#2]}
            <MI 129cc  MOVE.W  (A6+0x14),-(A7)>              Δ-2                {[#2]|[2, '(A6+0x14)']}
            <Const 0x129d0 0x1.4>                            Δ-4                {[#2]|[2, '(A6+0x14)']|[##1]}
            <MI 129d4  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[#2]|[2, '(A6+0x14)']|[##1]|[4, '(A6-0xe)']}
            <MI 129d6  PEA.L   (A0)>                         Δ-4                {[#2]|[2, '(A6+0x14)']|[##1]|[4, '(A6-0xe)']|[4, '^(A0)']}
            <Call 0x129d8 0x127b6>                                              {[#2]|[2, '(A6+0x14)']|[##1]|[4, '(A6-0xe)']|[4, '^(A0)']}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 129dc-129e0 StackAdj>                       Δ+16               {}
            <MI 129e0  TST.B   (A0)>                                            {}
            <MI 129e2  BEQ     0x12a2e>                                         {}
        <POP 129e4-129e8 Naked>                              Σ0         ↓ →0x12a2e
            <MI 129e4  CMP.W   #0x200,D0>                                       {}
            <MI 129e6  BEQ     0x12a2e>                                         {}
        <POP 129e8-129fa Naked>                              Σ0 Δ-4     ↓
            <MI 129e8  MOVEA.L (A6+0xe),A4>                                     {}
            <MI 129ec  ADD.W   (A6+0x12),D0>                                    {}
            <MI 129ee  SUBQ.W  #0x1,D0>                                         {}
            <MI 129f0  EXTW.L  D0>                                              {}
            <MI 129f2  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 129f4  MOVE.W  (A6+0x12),D0>                                    {[4, 'D0']}
            <MI 129f6  EXTW.L  D0>                                              {[4, 'D0']}
            <MI 129f8  MOVE.L  D0,D7>                                           {[4, 'D0']}
        <POP 129fa-129fe Naked>                              Σ-4        ↓ →0x12a2c ←0x129fe
            <MI 129fa  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 129fc  BGT     0x12a2c>                                         {[-4-]}
        <POP 129fe-12a2c Naked>                              Σ-4        ↓ →0x129fa
            <MI 129fe  MOVE.W  (A6+0x12),D0>                                    {[-4-]}
            <MI 12a00  EXTW.L  D0>                                              {[-4-]}
            <MI 12a02  NEG.L   D0>                                              {[-4-]}
            <MI 12a04  ADD.L   D7,D0>                                           {[-4-]}
            <POP 0x12a06 LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {[-4-]}
            <MI 12a10  ASL.L   #0x1,D0>                                         {[-4-]}
            <MI 12a12  MOVEA.L (A6-0xe),A0>                                     {[-4-]}
            <POP 0x12a14 LimitCheck 0x0 ≤ D7 ≤ 0x1ff>                           {[-4-]}
            <MI 12a1e  MOVE.L  D7,D1>                                           {[-4-]}
            <MI 12a20  ASL.L   #0x1,D1>                                         {[-4-]}
            <MI 12a22  MOVE.W  (A0+D1.L),(A4+D0.L)>                             {[-4-]}
            <MI 12a28  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 12a2a  BVC     0x129fa>                                         {[-4-]}
        <POP 12a2c-12a2e Naked>                              Σ-4 Δ+4    ↓ ←0x129fa
            <POP 12a2c-12a2e StackAdj>                       Δ+4                {}
        <POP 12a2e-12a36 Naked>                              Σ0         ↓ →0x12a44 ←0x129c4 ←0x129e4
            <MI 12a2e  MOVE.W  (A6+0xc),D0>                                     {}
            <MI 12a32  CMP.W   #0x200,D0>                                       {}
            <MI 12a34  BEQ     0x12a44>                                         {}
        <POP 12a36-12a44 Naked>                              Σ0         ↓
            <Pointer.fp 0x12a36 <LVAR -0x00e @ 4(rw)>>       Δ-4                {[@@-14]}
            <Const 0x12a38 0x400.4>                          Δ-4                {[@@-14]|[##1024]}
            <Call 0x12a3c 0x108fa>                                              {[@@-14]|[##1024]}
                _Free2(a : Pointer; b : Long)
            <POP 12a42-12a44 StackAdj>                       Δ+8                {}
        <POP 12a44-12a4c Epilogue>                           Σ0         ←0x12a2e

0x12a4c


@ 12a4c
_WriteWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B)
        <LVAR  0x014 2(r)>
        <LVAR  0x012 2(r)>
        <LVAR  0x00e 4(r)>
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x00a @ 4(rw)>
    <POP 12a4c-12b2c Body>                                              
        <POP 12a4c-12a62 Prologue>                           Σ0         ↓
        <POP 12a62-12a70 RegCacheLoad>                       Σ0         ↓
        <POP 12a70-12a78 Naked>                              Σ0         ↓ →0x12a7e
            <MI 12a70  MOVE.W  (A6+0xc),D0>                                     {}
            <MI 12a72  CMPI.W  #0x0200,D0>                                      {}
            <MI 12a76  BNE     0x12a7e>                                         {}
        <POP 12a78-12a7e Naked>                              Σ0         →0x12af4
            <MI 12a78  MOVE.L  (A6+0xe),(A6-0xa)>                               {}
            <MI 12a7c  BRA     0x12af4>                                         {}
        <POP 12a7e-12aaa Naked>                              Σ0         ↓ →0x12aac ←0x12a70
            <Pointer.fp 0x12a7e <LVAR -0x00a @ 4(rw)>>       Δ-4                {[@@-10]}
            <Const 0x12a80 0x400.4>                          Δ-4                {[@@-10]|[##1024]}
            <Call 0x12a84 0x10856>                                              {[@@-10]|[##1024]}
                _Malloc1(length : Long) : Pointer
            <POP 12a8a-12a8c StackAdj>                       Δ+8                {}
            <MI 12a8c  MOVEA.L (A6+0x8),A0>                                     {}
            <Const 0x12a90 0x2.2>                            Δ-2                {[#2]}
            <MI 12a94  MOVE.W  (A6+0x14),-(A7)>              Δ-2                {[#2]|[2, '(A6+0x14)']}
            <Const 0x12a98 0x1.4>                            Δ-4                {[#2]|[2, '(A6+0x14)']|[##1]}
            <MI 12a9c  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[#2]|[2, '(A6+0x14)']|[##1]|[4, '(A6-0xa)']}
            <MI 12a9e  PEA.L   (A0)>                         Δ-4                {[#2]|[2, '(A6+0x14)']|[##1]|[4, '(A6-0xa)']|[4, '^(A0)']}
            <Call 0x12aa0 0x127b6>                                              {[#2]|[2, '(A6+0x14)']|[##1]|[4, '(A6-0xa)']|[4, '^(A0)']}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 12aa4-12aa6 StackAdj>                       Δ+16               {}
            <MI 12aa6  TST.B   (A0)>                                            {}
            <MI 12aa8  BNE     0x12aac>                                         {}
        <POP 12aaa-12aac Naked>                              Σ0         →0x12b0e
            <MI 12aaa  BRA     0x12b0e>                                         {}
        <POP 12aac-12ac0 Naked>                              Σ0 Δ-4     ↓ ←0x12a7e
            <MI 12aac  MOVEA.L (A6+0xe),A4>                                     {}
            <MI 12ab0  MOVE.W  (A6+0x12),D0>                                    {}
            <MI 12ab2  ADD.W   (A6+0xc),D0>                                     {}
            <MI 12ab4  SUBQ.W  #0x1,D0>                                         {}
            <MI 12ab6  EXTW.L  D0>                                              {}
            <MI 12ab8  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 12aba  MOVE.W  (A6+0x12),D0>                                    {[4, 'D0']}
            <MI 12abc  EXTW.L  D0>                                              {[4, 'D0']}
            <MI 12abe  MOVE.L  D0,D7>                                           {[4, 'D0']}
        <POP 12ac0-12ac4 Naked>                              Σ-4        ↓ →0x12af2 ←0x12ac4
            <MI 12ac0  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 12ac2  BGT     0x12af2>                                         {[-4-]}
        <POP 12ac4-12af2 Naked>                              Σ-4        ↓ →0x12ac0
            <MI 12ac4  MOVEA.L (A6-0xa),A0>                                     {[-4-]}
            <POP 0x12ac6 LimitCheck 0x0 ≤ D7 ≤ 0x1ff>                           {[-4-]}
            <MI 12ad0  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 12ad2  ASL.L   #0x1,D0>                                         {[-4-]}
            <MI 12ad4  MOVE.W  (A6+0x12),D1>                                    {[-4-]}
            <MI 12ad6  EXTW.L  D1>                                              {[-4-]}
            <MI 12ad8  NEG.L   D1>                                              {[-4-]}
            <MI 12ada  ADD.L   D7,D1>                                           {[-4-]}
            <POP 0x12adc LimitCheck 0x0 ≤ D1 ≤ 0x1ff>                           {[-4-]}
            <MI 12ae6  ASL.L   #0x1,D1>                                         {[-4-]}
            <MI 12ae8  MOVE.W  (A4+D1.L),(A0+D0.L)>                             {[-4-]}
            <MI 12aee  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 12af0  BVC     0x12ac0>                                         {[-4-]}
        <POP 12af2-12af4 Naked>                              Σ-4 Δ+4    ↓ ←0x12ac0
            <POP 12af2-12af4 StackAdj>                       Δ+4                {}
        <POP 12af4-12b0e Naked>                              Σ0         ↓ ←0x12a78
            <Const 0x12af4 0x3.2>                            Δ-2                {[#3]}
            <MI 12af8  MOVE.W  (A6+0x14),-(A7)>              Δ-2                {[#3]|[2, '(A6+0x14)']}
            <Const 0x12afc 0x1.4>                            Δ-4                {[#3]|[2, '(A6+0x14)']|[##1]}
            <MI 12b00  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[#3]|[2, '(A6+0x14)']|[##1]|[4, '(A6-0xa)']}
            <MI 12b02  MOVEA.L (A6+0x8),A0>                                     {[#3]|[2, '(A6+0x14)']|[##1]|[4, '(A6-0xa)']}
            <MI 12b06  PEA.L   (A0)>                         Δ-4                {[#3]|[2, '(A6+0x14)']|[##1]|[4, '(A6-0xa)']|[4, '^(A0)']}
            <Call 0x12b08 0x127b6>                                              {[#3]|[2, '(A6+0x14)']|[##1]|[4, '(A6-0xa)']|[4, '^(A0)']}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 12b0c-12b0e StackAdj>                       Δ+16               {}
        <POP 12b0e-12b16 Naked>                              Σ0         ↓ →0x12b24 ←0x12aaa
            <MI 12b0e  MOVE.W  (A6+0xc),D0>                                     {}
            <MI 12b10  CMPI.W  #0x0200,D0>                                      {}
            <MI 12b14  BEQ     0x12b24>                                         {}
        <POP 12b16-12b24 Naked>                              Σ0         ↓
            <Pointer.fp 0x12b16 <LVAR -0x00a @ 4(rw)>>       Δ-4                {[@@-10]}
            <Const 0x12b18 0x400.4>                          Δ-4                {[@@-10]|[##1024]}
            <Call 0x12b1c 0x108fa>                                              {[@@-10]|[##1024]}
                _Free2(a : Pointer; b : Long)
            <POP 12b22-12b24 StackAdj>                       Δ+8                {}
        <POP 12b24-12b2c Epilogue>                           Σ0         ←0x12b0e

0x12b2c


@ 12b2c
        <LVAR  0x010 2(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 2(r) 4(rw)>
        <LVAR -0x006 2(rw)>
        <LVAR -0x008 2(rw)>
        <LVAR -0x00a 2(rw)>
        <LVAR -0x00c @ 1(r)>
        <LVAR -0x414 2(rw)>
        <LVAR -0x416 @ 2(rw) 4(rw)>
    <POP 12b2c-12cf8 Body>                                              
        <POP 12b2c-12b42 Prologue>                           Σ0         ↓
        <POP 12b42-12b50 RegCacheLoad>                       Σ0         ↓
        <POP 12b50-12b5e Naked>                              Σ0         ↓ →0x12b62
            <MI 12b50  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 12b54  CLR.W   (A0)>                                            {}
            <MI 12b56  TST.W   0x10010>                                         {}
            <MI 12b5c  BNE     0x12b62>                                         {}
        <POP 12b5e-12b62 Naked>                              Σ0         →0x12cf0
            <MI 12b5e  BRA     0x12cf0>                                         {}
        <POP 12b62-12b74 Naked>                              Σ0         ↓ ←0x12b50
            <MI 12b62  LEA.L   (A6-0x416),A0>                                   {}
            <MI 12b64  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 12b66  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <MI 12b68  MOVE.W  0x10010,(A6-0x414)>                              {}
            <MI 12b6e  CLR.W   (A6-0x416)>                                      {}
            <MI 12b70  CLR.W   (A6-0x4)>                                        {}
        <POP 12b74-12b7c Naked>                              Σ0         ↓ →0x12bd4 ←0x12bd2
            <MI 12b74  MOVE.W  (A6-0x416),D0>                                   {}
            <MI 12b76  CMP.W   (A6+0x10),D0>                                    {}
            <MI 12b7a  BCC     0x12bd4>                                         {}
        <POP 12b7c-12b80 Naked>                              Σ0         ↓ →0x12bd4
            <MI 12b7c  TST.W   (A6-0x414)>                                      {}
            <MI 12b7e  BEQ     0x12bd4>                                         {}
        <POP 12b80-12ba2 Naked>                              Σ0         ↓ →0x12ba6
            <POP 0x12b80 LimitCheck 0x0 ≤ D0 ≤ 0x4000>                          {}
            <MI 12b84  MOVE.W  D0,D5>                                           {}
            <MI 12b86  MOVE.W  D7,D6>                                           {}
            <MI 12b88  MOVE.W  (A6-0x414),D7>                                   {}
            <Const 0x12b8a 0x2.2>                            Δ-2                {[#2]}
            <MI 12b8e  MOVE.W  D7,-(A7)>                     Δ-2                {[#2]|[2, 'D7']}
            <Const 0x12b90 0x1.4>                            Δ-4                {[#2]|[2, 'D7']|[##1]}
            <MI 12b94  MOVE.L  A4,-(A7)>                     Δ-4                {[#2]|[2, 'D7']|[##1]|[4, 'A4']}
            <Pointer.fp 0x12b96 <LVAR -0x00c @ 1(r)>>        Δ-4                {[#2]|[2, 'D7']|[##1]|[4, 'A4']|[@@-12]}
            <Call 0x12b98 0x127b6>                                              {[#2]|[2, 'D7']|[##1]|[4, 'A4']|[@@-12]}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 12b9c-12b9e StackAdj>                       Δ+16               {}
            <MI 12b9e  TST.B   (A6-0xc)>                                        {}
            <MI 12ba0  BNE     0x12ba6>                                         {}
        <POP 12ba2-12ba6 Naked>                              Σ0         →0x12cf0
            <MI 12ba2  BRA     0x12cf0>                                         {}
        <POP 12ba6-12baa Naked>                              Σ0         ↓ →0x12bb6 ←0x12b80
            <MI 12ba6  TST.W   (A6-0x416)>                                      {}
            <MI 12ba8  BNE     0x12bb6>                                         {}
        <POP 12baa-12bb6 Naked>                              Σ0         ↓
            <Const 0x12baa 0x15.4>                           Δ-4                {[##21]}
            <Call 0x12bae 0x10220>                                              {[##21]}
                KC10_Panic(code : Long)
            <POP 12bb4-12bb6 StackAdj>                       Δ+4                {}
        <POP 12bb6-12bbe Naked>                              Σ0         ↓ →0x12bd2 ←0x12ba6
            <MI 12bb6  MOVE.W  (A6-0x416),D1>                                   {}
            <MI 12bb8  CMP.W   (A6-0x4),D1>                                     {}
            <MI 12bbc  BLS     0x12bd2>                                         {}
        <POP 12bbe-12bd2 Naked>                              Σ0         ↓
            <MI 12bbe  MOVE.W  D7,(A6-0x8)>                                     {}
            <MI 12bc2  MOVE.L  (A6-0x416),(A6-0x4)>                             {}
            <MI 12bc6  MOVE.W  D6,(A6-0xa)>                                     {}
            <POP 0x12bca LimitCheck 0x0 ≤ D5 ≤ 0x4000>                          {}
            <MI 12bce  MOVE.W  D5,(A6-0x6)>                                     {}
        <POP 12bd2-12bd4 Naked>                              Σ0         →0x12b74 ←0x12bb6
            <MI 12bd2  BRA     0x12b74>                                         {}
        <POP 12bd4-12bda Naked>                              Σ0         ↓ →0x12c3a ←0x12b74 ←0x12b7c
            <MI 12bd4  CMP.W   (A6+0x10),D0>                                    {}
            <MI 12bd8  BLS     0x12c3a>                                         {}
        <POP 12bda-12c24 Naked>                              Σ0         ↓ →0x12c30
            <MI 12bda  CLR.L   D1>                                              {}
            <MI 12bdc  MOVE.W  D0,D1>                                           {}
            <MI 12bde  MOVE.W  (A6+0x10),D0>                                    {}
            <MI 12be2  EXTW.L  D0>                                              {}
            <MI 12be4  SUB.L   D0,D1>                                           {}
            <POP 0x12be6 LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {}
            <MI 12bf0  MOVE.W  D1,(A6-0x416)>                                   {}
            <MI 12bf2  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 12bf6  CLR.L   D2>                                              {}
            <MI 12bf8  MOVE.W  D7,D2>                                           {}
            <MI 12bfa  CLR.L   D3>                                              {}
            <MI 12bfc  MOVE.W  D1,D3>                                           {}
            <MI 12bfe  ADD.L   D2,D3>                                           {}
            <POP 0x12c00 LimitCheck 0x0 ≤ D3 ≤ 0xffff>                          {}
            <MI 12c0a  MOVE.W  D3,(A0)>                                         {}
            <Const 0x12c0c 0x3.2>                            Δ-2                {[#3]}
            <MI 12c10  MOVE.W  D2,-(A7)>                     Δ-2                {[#3]|[2, 'D2']}
            <Const 0x12c12 0x1.4>                            Δ-4                {[#3]|[2, 'D2']|[##1]}
            <MI 12c16  MOVE.L  A4,-(A7)>                     Δ-4                {[#3]|[2, 'D2']|[##1]|[4, 'A4']}
            <Pointer.fp 0x12c18 <LVAR -0x00c @ 1(r)>>        Δ-4                {[#3]|[2, 'D2']|[##1]|[4, 'A4']|[@@-12]}
            <Call 0x12c1a 0x127b6>                                              {[#3]|[2, 'D2']|[##1]|[4, 'A4']|[@@-12]}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 12c1e-12c20 StackAdj>                       Δ+16               {}
            <MI 12c20  TST.B   (A6-0xc)>                                        {}
            <MI 12c22  BNE     0x12c30>                                         {}
        <POP 12c24-12c30 Naked>                              Σ0         ↓
            <Const 0x12c24 0x2.4>                            Δ-4                {[##2]}
            <Call 0x12c28 0x10220>                                              {[##2]}
                KC10_Panic(code : Long)
            <POP 12c2e-12c30 StackAdj>                       Δ+4                {}
        <POP 12c30-12c3a Naked>                              Σ0         →0x12cf0 ←0x12bda
            <MI 12c30  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 12c34  MOVE.W  D0,(A0)>                                         {}
            <MI 12c36  BRA     0x12cf0>                                         {}
        <POP 12c3a-12c40 Naked>                              Σ0         ↓ →0x12c56 ←0x12bd4
            <MI 12c3a  CMP.W   (A6-0x4),D0>                                     {}
            <MI 12c3e  BCC     0x12c56>                                         {}
        <POP 12c40-12c56 Naked>                              Σ0         ↓
            <MI 12c40  MOVE.L  (A6-0x4),(A6-0x416)>                             {}
            <MI 12c44  MOVE.W  (A6-0x8),D7>                                     {}
            <MI 12c48  MOVE.W  (A6-0x6),D0>                                     {}
            <POP 0x12c4c LimitCheck 0x0 ≤ D0 ≤ 0x4000>                          {}
            <MI 12c50  MOVE.W  D0,D5>                                           {}
            <MI 12c52  MOVE.W  (A6-0xa),D6>                                     {}
        <POP 12c56-12c70 Naked>                              Σ0         ↓ →0x12cae ←0x12c3a
            <MI 12c56  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 12c5a  MOVE.W  (A6-0x416),D0>                                   {}
            <POP 0x12c5c LimitCheck 0x0 ≤ D0 ≤ 0x4000>                          {}
            <MI 12c60  MOVE.W  D0,(A0)>                                         {}
            <MI 12c62  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 12c66  MOVE.W  D7,(A0)>                                         {}
            <MI 12c68  CMP.W   0x10010,D7>                                      {}
            <MI 12c6e  BNE     0x12cae>                                         {}
        <POP 12c70-12c7a Naked>                              Σ0         ↓ →0x12c82
            <MI 12c70  MOVE.W  (A6-0x414),0x10010>                              {}
            <MI 12c76  TST.W   (A6-0x414)>                                      {}
            <MI 12c78  BNE     0x12c82>                                         {}
        <POP 12c7a-12c82 Naked>                              Σ0         →0x12cac
            <MI 12c7a  CLR.W   0x10022>                                         {}
            <MI 12c80  BRA     0x12cac>                                         {}
        <POP 12c82-12c9a Naked>                              Σ0         ↓ →0x12ca6 ←0x12c70
            <Const 0x12c82 0x2.2>                            Δ-2                {[#2]}
            <MI 12c86  MOVE.W  (A6-0x414),-(A7)>             Δ-2                {[#2]|[2, '(A6-0x414)']}
            <Const 0x12c88 0x1.4>                            Δ-4                {[#2]|[2, '(A6-0x414)']|[##1]}
            <MI 12c8c  MOVE.L  A4,-(A7)>                     Δ-4                {[#2]|[2, '(A6-0x414)']|[##1]|[4, 'A4']}
            <Pointer.fp 0x12c8e <LVAR -0x00c @ 1(r)>>        Δ-4                {[#2]|[2, '(A6-0x414)']|[##1]|[4, 'A4']|[@@-12]}
            <Call 0x12c90 0x127b6>                                              {[#2]|[2, '(A6-0x414)']|[##1]|[4, 'A4']|[@@-12]}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 12c94-12c96 StackAdj>                       Δ+16               {}
            <MI 12c96  TST.B   (A6-0xc)>                                        {}
            <MI 12c98  BNE     0x12ca6>                                         {}
        <POP 12c9a-12ca6 Naked>                              Σ0         ↓
            <Const 0x12c9a 0x3.4>                            Δ-4                {[##3]}
            <Call 0x12c9e 0x10220>                                              {[##3]}
                KC10_Panic(code : Long)
            <POP 12ca4-12ca6 StackAdj>                       Δ+4                {}
        <POP 12ca6-12cac Naked>                              Σ0         ↓ ←0x12c82
            <MI 12ca6  MOVE.L  (A6-0x416),0x10022>                              {}
        <POP 12cac-12cae Naked>                              Σ0         →0x12cea ←0x12c7a
            <MI 12cac  BRA     0x12cea>                                         {}
        <POP 12cae-12cd0 Naked>                              Σ0         ↓ →0x12cdc ←0x12c56
            <POP 0x12cae LimitCheck 0x0 ≤ D5 ≤ 0xffff>                          {}
            <MI 12cb6  MOVE.W  D5,(A6-0x416)>                                   {}
            <Const 0x12cb8 0x3.2>                            Δ-2                {[#3]}
            <MI 12cbc  MOVE.W  D6,-(A7)>                     Δ-2                {[#3]|[2, 'D6']}
            <Const 0x12cbe 0x1.4>                            Δ-4                {[#3]|[2, 'D6']|[##1]}
            <MI 12cc2  MOVE.L  A4,-(A7)>                     Δ-4                {[#3]|[2, 'D6']|[##1]|[4, 'A4']}
            <Pointer.fp 0x12cc4 <LVAR -0x00c @ 1(r)>>        Δ-4                {[#3]|[2, 'D6']|[##1]|[4, 'A4']|[@@-12]}
            <Call 0x12cc6 0x127b6>                                              {[#3]|[2, 'D6']|[##1]|[4, 'A4']|[@@-12]}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 12cca-12ccc StackAdj>                       Δ+16               {}
            <MI 12ccc  TST.B   (A6-0xc)>                                        {}
            <MI 12cce  BNE     0x12cdc>                                         {}
        <POP 12cd0-12cdc Naked>                              Σ0         ↓
            <Const 0x12cd0 0x4.4>                            Δ-4                {[##4]}
            <Call 0x12cd4 0x10220>                                              {[##4]}
                KC10_Panic(code : Long)
            <POP 12cda-12cdc StackAdj>                       Δ+4                {}
        <POP 12cdc-12ce4 Naked>                              Σ0         ↓ →0x12cf0 ←0x12cae
            <MI 12cdc  CMP.W   0x10010,D6>                                      {}
            <MI 12ce2  BNE     0x12cf0>                                         {}
        <POP 12ce4-12cea Naked>                              Σ0         ↓
            <MI 12ce4  MOVE.W  (A6-0x414),0x10024>                              {}
        <POP 12cea-12cf0 Naked>                              Σ0         ↓ ←0x12cac
            <Call 0x12cea 0x13e4e>                                              {}
                _WriteFreeList(void)
        <POP 12cf0-12cf8 Epilogue>                           Σ0         ←0x12b5e ←0x12ba2 ←0x12c30 ←0x12cdc

0x12cf8


@ 12cf8
_FS10378(MOD a : File; b: Byte; VAR c: Bool)
        <LVAR  0x00e 4(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 2(rw)>
        <LVAR -0x00e @ 2(rw)>
    <POP 12cf8-12e20 Body>                                              
        <POP 12cf8-12d0e Prologue>                           Σ0         ↓
        <POP 12d0e-12d26 RegCacheLoad>                       Σ0         ↓
        <POP 12d26-12d32 Naked>                              Σ0         ↓ →0x12d36
            <MI 12d26  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 12d28  CLR.B   (A0)>                                            {}
            <MI 12d2a  MOVEA.L (A6+0xe),A0>                                     {}
            <MI 12d2c  TST.W   (A0+0x20)>                                       {}
            <MI 12d30  BNE     0x12d36>                                         {}
        <POP 12d32-12d36 Naked>                              Σ0         →0x12e12
            <MI 12d32  BRA     0x12e12>                                         {}
        <POP 12d36-12d3e Naked>                              Σ0         ↓ →0x12d46 ←0x12d26
            <MI 12d36  TST.W   0x10010>                                         {}
            <MI 12d3c  BNE     0x12d46>                                         {}
        <POP 12d3e-12d46 Naked>                              Σ0         →0x12e12
            <MI 12d3e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 12d40  MOVE.B  #0x01,(A0)>                                      {}
            <MI 12d42  BRA     0x12e12>                                         {}
        <POP 12d46-12d50 Naked>                              Σ0         ↓ ←0x12d36
            <MI 12d46  MOVEA.L (A6+0xe),A0>                                     {}
            <MI 12d48  MOVE.W  (A0+0x20),D6>                                    {}
            <MI 12d4c  MOVEQ.L #0x00,D7>                                        {}
            <MI 12d4e  MOVEQ.L #0x00,D5>                                        {}
        <POP 12d50-12d58 Naked>                              Σ0         ↓ →0x12d6c ←0x12df8
            <MI 12d50  CMP.W   0x10022,D6>                                      {}
            <MI 12d56  BCS     0x12d6c>                                         {}
        <POP 12d58-12d6c Naked>                              Σ0         →0x12daa
            <POP 0x12d58 LimitCheck 0x0 ≤ D6 ≤ 0x4000>                          {}
            <MI 12d5c  MOVE.W  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <Pointer.fp 0x12d5e <LVAR -0x008 @ 2(rw)>>       Δ-4                {[2, 'D6']|[@@-8]}
            <Pointer.fp 0x12d60 <LVAR -0x00e @ 2(rw)>>       Δ-4                {[2, 'D6']|[@@-8]|[@@-14]}
            <Call 0x12d62 0x12b2c>                                              {[2, 'D6']|[@@-8]|[@@-14]}
            <POP 12d66-12d6a StackAdj>                       Δ+10               {}
            <MI 12d6a  BRA     0x12daa>                                         {}
        <POP 12d6c-12daa Naked>                              Σ0         ↓ ←0x12d50
            <POP 0x12d6c LimitCheck 0x0 ≤ D6 ≤ 0x4000>                          {}
            <MI 12d70  MOVE.W  D6,(A6-0x8)>                                     {}
            <MI 12d72  CLR.L   D0>                                              {}
            <MI 12d74  MOVE.W  0x10022,D0>                                      {}
            <MI 12d7a  CLR.L   D1>                                              {}
            <MI 12d7c  MOVE.W  D6,D1>                                           {}
            <MI 12d7e  NEG.L   D1>                                              {}
            <MI 12d80  ADD.L   D0,D1>                                           {}
            <POP 0x12d82 LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {}
            <MI 12d88  MOVE.W  D1,0x10022>                                      {}
            <MI 12d8e  CLR.L   D0>                                              {}
            <MI 12d90  MOVE.W  0x10010,D0>                                      {}
            <MI 12d96  CLR.L   D2>                                              {}
            <MI 12d98  MOVE.W  D1,D2>                                           {}
            <MI 12d9a  ADD.L   D0,D2>                                           {}
            <POP 0x12d9c LimitCheck 0x0 ≤ D2 ≤ 0xffff>                          {}
            <MI 12da2  MOVE.W  D2,(A6-0xe)>                                     {}
            <Call 0x12da4 0x13e4e>                                              {}
                _WriteFreeList(void)
        <POP 12daa-12dce Naked>                              Σ0         ↓ →0x12dea ←0x12d58
            <MI 12daa  CLR.L   D0>                                              {}
            <MI 12dac  MOVE.W  D6,D0>                                           {}
            <MI 12dae  MOVE.W  (A6-0x8),D1>                                     {}
            <MI 12db0  EXTW.L  D1>                                              {}
            <MI 12db2  SUB.L   D1,D0>                                           {}
            <POP 0x12db4 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 12dba  MOVE.W  D0,D6>                                           {}
            <MI 12dbc  CLR.L   D0>                                              {}
            <MI 12dbe  MOVE.W  D7,D0>                                           {}
            <MI 12dc0  ADD.L   D1,D0>                                           {}
            <POP 0x12dc2 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 12dc8  MOVE.W  D0,D7>                                           {}
            <MI 12dca  TST.L   D1>                                              {}
            <MI 12dcc  BEQ     0x12dea>                                         {}
        <POP 12dce-12dea Naked>                              Σ0         ↓
            <MI 12dce  MOVEA.L (A6+0xe),A0>                                     {}
            <POP 0x12dd0 LimitCheck 0x0 ≤ D5 ≤ 0x5>                             {}
            <MI 12dda  MOVE.L  D5,D0>                                           {}
            <MI 12ddc  ASL.L   #0x2,D0>                                         {}
            <MI 12dde  MOVE.W  (A6-0xe),(A0+D0.L+#0x24)>                        {}
            <POP 0x12de2 LimitCheck 0x0 ≤ D7 ≤ 0x4000>                          {}
            <MI 12de6  MOVE.W  D7,(A0+D0.L+#0x22)>                              {}
        <POP 12dea-12dee Naked>                              Σ0         ↓ →0x12df0 ←0x12daa
            <MI 12dea  TST.W   D6>                                              {}
            <MI 12dec  BNE     0x12df0>                                         {}
        <POP 12dee-12df0 Naked>                              Σ0         →0x12e12
            <MI 12dee  BRA     0x12e12>                                         {}
        <POP 12df0-12df6 Naked>                              Σ0         ↓ →0x12df8 ←0x12dea
            <MI 12df0  TST.B   (A6+0xc)>                                        {}
            <MI 12df4  BEQ     0x12df8>                                         {}
        <POP 12df6-12df8 Naked>                              Σ0         →0x12e04
            <MI 12df6  BRA     0x12e04>                                         {}
        <POP 12df8-12e04 Naked>                              Σ0         ↓ →0x12d50 ←0x12df0
            <MI 12df8  ADDQ.L  #0x1,D5>                                         {}
            <MI 12dfa  CMPI.L  #0x00000005,D5>                                  {}
            <MI 12e00  BLE     0x12d50>                                         {}
        <POP 12e04-12e12 Naked>                              Σ0         ↓ ←0x12df6
            <MI 12e04  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 12e06  MOVE.B  #0x01,(A0)>                                      {}
            <MI 12e08  MOVE.L  (A6+0xe),-(A7)>               Δ-4                {[4, '(A6+0xe)']}
            <Call 0x12e0a 0x12e20>                                              {[4, '(A6+0xe)']}
                _FS1037c(MOD a : File)
            <POP 12e10-12e12 StackAdj>                       Δ+4                {}
        <POP 12e12-12e18 Naked>                              Σ0         ↓ ←0x12d32 ←0x12d3e ←0x12dee
            <MI 12e12  MOVEA.L (A6+0xe),A0>                                     {}
            <MI 12e14  MOVE.B  #0x01,(A0+0x4c)>                                 {}
        <POP 12e18-12e20 Epilogue>                           Σ0         

0x12e20


@ 12e20
_FS1037c(MOD a : File)
        <LVAR  0x008 4(r)>
    <POP 12e20-12e9c Body>                                              
        <POP 12e20-12e36 Prologue>                           Σ0         ↓
        <POP 12e36-12e38 RegCacheLoad>                       Σ0         ↓
        <POP 12e38-12e3c Naked>                              Σ0         ↓
            <MI 12e38  MOVEQ.L #0x00,D7>                                        {}
            <MI 12e3a  MOVEQ.L #0x00,D6>                                        {}
        <POP 12e3c-12e50 Naked>                              Σ0         ↓ →0x12e8e ←0x12e8e
            <MI 12e3c  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 0x12e40 LimitCheck 0x0 ≤ D6 ≤ 0x5>                             {}
            <MI 12e46  MOVE.L  D6,D0>                                           {}
            <MI 12e48  ASL.L   #0x2,D0>                                         {}
            <MI 12e4a  TST.W   (A0+D0.L+#0x22)>                                 {}
            <MI 12e4e  BEQ     0x12e8e>                                         {}
        <POP 12e50-12e8e Naked>                              Σ0         ↓
            <MI 12e50  MOVE.W  (A0+D0.L+#0x22),D1>                              {}
            <MI 12e54  SUB.W   D7,D1>                                           {}
            <POP 0x12e56 LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {}
            <MI 12e5e  MOVE.W  D1,0x10022>                                      {}
            <MI 12e64  MOVE.W  0x10010,0x10024>                                 {}
            <MI 12e6e  MOVE.W  (A0+D0.L+#0x24),0x10010>                         {}
            <MI 12e76  MOVE.W  (A0+D0.L+#0x22),D1>                              {}
            <POP 0x12e7a LimitCheck 0x0 ≤ D1 ≤ 0x4000>                          {}
            <MI 12e7e  MOVE.W  D1,D7>                                           {}
            <MI 12e80  CLR.W   (A0+D0.L+#0x22)>                                 {}
            <MI 12e84  CLR.W   (A0+D0.L+#0x24)>                                 {}
            <Call 0x12e88 0x13e4e>                                              {}
                _WriteFreeList(void)
        <POP 12e8e-12e94 Naked>                              Σ0         ↓ →0x12e3c ←0x12e3c
            <MI 12e8e  ADDQ.L  #0x1,D6>                                         {}
            <MI 12e90  CMP.L   #0x05,D6>                                        {}
            <MI 12e92  BLE     0x12e3c>                                         {}
        <POP 12e94-12e9c Epilogue>                           Σ0         

0x132fc


@ 132fc
        <LVAR  0x00e 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 @ 4(rw)>
    <POP 132fc-1338a Body>                                   Δ+4        
        <POP 132fc-13312 Prologue>                           Σ0         ↓
        <POP 13312-13318 RegCacheLoad>                       Σ0         ↓
        <POP 13318-1331e Naked>                              Σ0         ↓ →0x13328
            <MI 13318  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1331a  CMPA.W  #0x01,A0>                                        {}
            <MI 1331c  BNE     0x13328>                                         {}
        <POP 1331e-13328 Naked>                              Σ0         ↓
            <Pointer.fp 0x1331e <LVAR  0x008 @ 4(rw)>>       Δ-4                {[@@8]}
            <Call 0x13320 0x10d42>                                              {[@@8]}
                _NewString(VAR a : String)
            <POP 13326-13328 StackAdj>                       Δ+4                {}
        <POP 13328-1335a Naked>                              Σ0         →0x13360 →0x1336c →0x13376 ←0x13318
            <POP 13328-1332a StackAdj>                       Δ-8                {[-8-]}
            <MI 1332a  MOVE.B  (A6+0xe),-(A7)>               Δ-2                {[-8-]|[2, '(A6+0xe)']}
            <Call 0x1332e 0x142fe>                                              {[-8-]|[2, '(A6+0xe)']}
                _FsErrMsgStr(err: Byte) : String
            <POP 13334-13336 StackAdj>                       Δ+2                {[-8-]}
            <MI 13336  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Call 0x13338 0x10f34>                                              {[-8-]|[4, '(A6+0x8)']}
                _StringCat2(a, b : String) : String
            <POP 1333e-13340 StackAdj>                       Δ+8                {[-4-]}
            <MI 13340  MOVE.L  (A7)+,(A6+0x8)>               Δ+4                {}
            <MI 13342  MOVE.B  (A6+0xc),D0>                                     {}
            <MI 13346  EXTB.W  D0>                                              {}
            <POP 0x13348 LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {}
            <MI 13350  ADD.W   D0,D0>                                           {}
            <MI 13352  SWITCH  D0.W>                                            {}
        <POP 13360-13368 Naked>                              Σ0 Δ-4     ↓ ←0x13328
            <Pointer.fp 0x13360 <LVAR  0x008 @ 4(rw)>>       Δ-4                {[@@8]}
            <Call 0x13362 0x10d76>                                              {[@@8]}
                _FreeString(VAR a : String)
        <POP 13368-1336c Naked>                              Σ-4 Δ+4    →0x13382 ←0x1336c
            <POP 13368-1336a StackAdj>                       Δ+4                {}
            <MI 1336a  BRA     0x13382>                                         {}
        <POP 1336c-13376 Naked>                              Σ0 Δ-4     →0x13368 ←0x13328
            <MI 1336c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Call 0x1336e 0x154a2>                                              {[4, '(A6+0x8)']}
                _WriteConsoleStringCrLf(str : String)
            <MI 13374  BRA     0x13368>                                         {[4, '(A6+0x8)']}
        <POP 13376-13382 Naked>                              Σ0         ↓ ←0x13328
            <Const 0x13376 0x1.2>                            Δ-2                {[#1]}
            <MI 13378  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[#1]|[4, '(A6+0x8)']}
            <Call 0x1337a 0x14e0a>                                              {[#1]|[4, '(A6+0x8)']}
                _PopProgram(status : Byte; msg : String)
            <POP 13380-13382 StackAdj>                       Δ+6                {}
        <POP 13382-1338a Epilogue>                           Σ0         ←0x13368

0x1338a


@ 1338a
        <LVAR  0x008 4(r)>
        <LVAR -0x00c 4(rw)>
    <POP 1338a-13412 Body>                                              
        <POP 1338a-133a0 Prologue>                           Σ0         ↓
        <POP 133a0-133a6 RegCacheLoad>                       Σ0         ↓
        <POP 133a6-133b0 Naked>                              Σ0         ↓
            <MI 133a6  MOVE.L  0x20020,(A6-0xc)>                                {}
            <MI 133ac  MOVEA.W #0x01,A4>                                        {}
            <MI 133ae  MOVEQ.L #0x00,D7>                                        {}
        <POP 133b0-133b6 Naked>                              Σ0         ↓ →0x133ce ←0x133cc
            <MI 133b0  MOVEA.L (A6-0xc),A0>                                     {}
            <MI 133b2  CMPA.W  #0x01,A0>                                        {}
            <MI 133b4  BEQ     0x133ce>                                         {}
        <POP 133b6-133ba Naked>                              Σ0         ↓ →0x133ce
            <MI 133b6  TST.B   D7>                                              {}
            <MI 133b8  BNE     0x133ce>                                         {}
        <POP 133ba-133c2 Naked>                              Σ0         ↓ →0x133c6
            <MI 133ba  MOVEA.L (A6+0x8),A1>                                     {}
            <MI 133be  CMPA.L  (A1),A0>                                         {}
            <MI 133c0  BNE     0x133c6>                                         {}
        <POP 133c2-133c6 Naked>                              Σ0         →0x133cc
            <MI 133c2  MOVEQ.L #0x01,D7>                                        {}
            <MI 133c4  BRA     0x133cc>                                         {}
        <POP 133c6-133cc Naked>                              Σ0         ↓ ←0x133ba
            <MI 133c6  MOVEA.L A0,A4>                                           {}
            <MI 133c8  MOVE.L  (A0+0x44),(A6-0xc)>                              {}
        <POP 133cc-133ce Naked>                              Σ0         →0x133b0 ←0x133c2
            <MI 133cc  BRA     0x133b0>                                         {}
        <POP 133ce-133d2 Naked>                              Σ0         ↓ →0x133de ←0x133b0 ←0x133b6
            <MI 133ce  TST.B   D7>                                              {}
            <MI 133d0  BNE     0x133de>                                         {}
        <POP 133d2-133de Naked>                              Σ0         ↓
            <Const 0x133d2 0x5.4>                            Δ-4                {[##5]}
            <Call 0x133d6 0x10220>                                              {[##5]}
                KC10_Panic(code : Long)
            <POP 133dc-133de StackAdj>                       Δ+4                {}
        <POP 133de-133e2 Naked>                              Σ0         ↓ →0x133ee ←0x133ce
            <MI 133de  CMPA.W  #0x01,A4>                                        {}
            <MI 133e0  BNE     0x133ee>                                         {}
        <POP 133e2-133ee Naked>                              Σ0         →0x133f6
            <MI 133e2  MOVEA.L (A6-0xc),A0>                                     {}
            <MI 133e4  MOVE.L  (A0+0x44),0x20020>                               {}
            <MI 133ec  BRA     0x133f6>                                         {}
        <POP 133ee-133f6 Naked>                              Σ0         ↓ ←0x133de
            <MI 133ee  MOVEA.L (A6-0xc),A0>                                     {}
            <MI 133f0  MOVE.L  (A0+0x44),(A4+0x44)>                             {}
        <POP 133f6-1340a Naked>                              Σ0         ↓ ←0x133e2
            <MI 133f6  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 133fa  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x133fc 0x4d.4>                           Δ-4                {[4, '^(A0)']|[##77]}
            <Call 0x13400 0x108fa>                                              {[4, '^(A0)']|[##77]}
                _Free2(a : Pointer; b : Long)
            <POP 13406-13408 StackAdj>                       Δ+8                {}
            <MI 13408  MOVE.L  #0x01,(A0)>                                      {}
        <POP 1340a-13412 Epilogue>                           Σ0         

0x13412


@ 13412
        <LVAR  0x00c 1(w)>
        <LVAR  0x008 4(r)>
        <LVAR -0x008 4(rw)>
    <POP 13412-1345c Body>                                              
        <POP 13412-13428 Prologue>                           Σ0         ↓
        <POP 13428-1342c RegCacheLoad>                       Σ0         ↓
        <POP 1342c-13434 Naked>                              Σ0         ↓
            <MI 1342c  MOVE.L  0x20020,(A6-0x8)>                                {}
            <MI 13432  MOVEQ.L #0x01,D7>                                        {}
        <POP 13434-1343c Naked>                              Σ0         ↓ →0x13450 ←0x1344e
            <MI 13434  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 13436  CMPA.W  #0x1,A0>                                         {}
            <MI 1343a  BEQ     0x13450>                                         {}
        <POP 1343c-13440 Naked>                              Σ0         ↓ →0x13450
            <MI 1343c  TST.B   D7>                                              {}
            <MI 1343e  BEQ     0x13450>                                         {}
        <POP 13440-13446 Naked>                              Σ0         ↓ →0x1344a
            <MI 13440  CMPA.L  (A6+0x8),A0>                                     {}
            <MI 13444  BNE     0x1344a>                                         {}
        <POP 13446-1344a Naked>                              Σ0         →0x1344e
            <MI 13446  MOVEQ.L #0x00,D7>                                        {}
            <MI 13448  BRA     0x1344e>                                         {}
        <POP 1344a-1344e Naked>                              Σ0         ↓ ←0x13440
            <MI 1344a  MOVE.L  (A0+0x44),(A6-0x8)>                              {}
        <POP 1344e-13450 Naked>                              Σ0         →0x13434 ←0x13446
            <MI 1344e  BRA     0x13434>                                         {}
        <POP 13450-13454 Naked>                              Σ0         ↓ ←0x13434 ←0x1343c
            <MI 13450  MOVE.B  D7,(A6+0xc)>                                     {}
        <POP 13454-1345c Epilogue>                           Σ0         

0x1345c


@ 1345c
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x00c 4(w)>
    <POP 1345c-1358e Body>                                   Δ-12       
        <POP 1345c-13472 Prologue>                           Σ0         ↓
        <POP 13472-1347e RegCacheLoad>                       Σ0         ↓
        <POP 1347e-134b2 Naked>                              Σ0 Δ-4     ↓ →0x134b6
            <MI 1347e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13482  MOVE.B  #0x01,(A0)>                                      {}
            <MI 13484  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 13486  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x13488 0x4d.4>                           Δ-4                {[4, '^(A0)']|[##77]}
            <Call 0x1348c 0x10856>                                              {[4, '^(A0)']|[##77]}
                _Malloc1(length : Long) : Pointer
            <POP 13492-13494 StackAdj>                       Δ+8                {}
            <MI 13494  MOVEA.L (A0),A1>                                         {}
            <MI 13496  MOVE.L  0x20020,(A1+0x44)>                               {}
            <MI 1349e  MOVE.L  (A0),0x20020>                                    {}
            <MI 134a4  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 134a8  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 134aa  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 134ac  CMPI.W  #0x001e,D0>                                      {[4, 'A0']}
            <MI 134b0  BGT     0x134b6>                                         {[4, 'A0']}
        <POP 134b2-134b6 Naked>                              Σ-4        ↓ →0x134bc
            <MI 134b2  CMP.W   #0x01,D0>                                        {[-4-]}
            <MI 134b4  BGE     0x134bc>                                         {[-4-]}
        <POP 134b6-134bc Naked>                              Σ-4 Δ+4    →0x13586 ←0x1347e
            <POP 134b6-134b8 StackAdj>                       Δ+4                {}
            <MI 134b8  BRA     0x13586>                                         {}
        <POP 134bc-134c8 Naked>                              Σ-4 Δ-4    ↓ ←0x134b2
            <MI 134bc  MOVEQ.L #0x00,D5>                                        {[-4-]}
            <MI 134be  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 134c0  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 134c2  EXTW.L  D0>                                              {[-4-]}
            <MI 134c4  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 134c6  MOVEQ.L #0x01,D7>                                        {[-4-]|[4, 'D0']}
        <POP 134c8-134cc Naked>                              Σ-8        ↓ →0x13548 ←0x13510
            <MI 134c8  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 134ca  BGT     0x13548>                                         {[-8-]}
        <POP 134cc-134e8 Naked>                              Σ-8        ↓ →0x134fa
            <MI 134cc  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 134ce  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x134d0 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 134da  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 134de  MOVE.B  (A0+D0.L+#0x2),D6>                               {[-8-]}
            <MI 134e2  CMPI.B  #0x61,D6>                                        {[-8-]}
            <MI 134e6  BCS     0x134fa>                                         {[-8-]}
        <POP 134e8-134ee Naked>                              Σ-8        ↓ →0x134fa
            <MI 134e8  CMPI.B  #0x7a,D6>                                        {[-8-]}
            <MI 134ec  BHI     0x134fa>                                         {[-8-]}
        <POP 134ee-134fa Naked>                              Σ-8        →0x13510
            <MI 134ee  CLR.L   D0>                                              {[-8-]}
            <MI 134f0  MOVE.B  D6,D0>                                           {[-8-]}
            <MI 134f2  SUBI.W  #0x0020,D0>                                      {[-8-]}
            <MI 134f6  MOVE.B  D0,D6>                                           {[-8-]}
            <MI 134f8  BRA     0x13510>                                         {[-8-]}
        <POP 134fa-1350c Naked>                              Σ-8        ↓ →0x13510 ←0x134cc ←0x134e8
            <MI 134fa  CLR.L   D0>                                              {[-8-]}
            <MI 134fc  MOVE.B  D6,D0>                                           {[-8-]}
            <MI 134fe  LEA.L   0x130e4,A0>                                      {[-8-]}
            <MI 13502  MOVE.W  D0,D1>                                           {[-8-]}
            <MI 13504  LSR.W   #0x3,D1>                                         {[-8-]}
            <MI 13506  BTST.B  D0,(A0+D1.W)>                                    {[-8-]}
            <MI 1350a  BNE     0x13510>                                         {[-8-]}
        <POP 1350c-13510 Naked>                              Σ-8 Δ+8    →0x13586
            <POP 1350c-1350e StackAdj>                       Δ+8                {}
            <MI 1350e  BRA     0x13586>                                         {}
        <POP 13510-13548 Naked>                              Σ-8        ↓ →0x134c8 ←0x134ee ←0x134fa
            <MI 13510  MOVEA.L (A6+0xc),A0>                                     {[-8-]}
            <MI 13512  MOVEA.L (A0),A0>                                         {[-8-]}
            <MI 13514  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 13516  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x13518 LimitCheck 0x0 ≤ D0 ≤ 0x1d>                            {[-8-]}
            <MI 13522  MOVE.B  D6,(A0+D0.L)>                                    {[-8-]}
            <MI 13526  CLR.L   D0>                                              {[-8-]}
            <MI 13528  MOVE.B  D6,D0>                                           {[-8-]}
            <MI 1352a  ANDI.W  #0x003f,D0>                                      {[-8-]}
            <MI 1352e  EXTW.L  D0>                                              {[-8-]}
            <MI 13530  MOVE.L  D0,(A6-0xc)>                                     {[-8-]}
            <MI 13534  MOVE.L  D0,D4>                                           {[-8-]}
            <MI 13536  MOVE.L  D0,D3>                                           {[-8-]}
            <Call 0x13538 0x107ea>                                              {[-8-]}
                _?muls_d3_d4
            <MI 1353a  MOVE.L  D0,D3>                                           {[-8-]}
            <Call 0x1353c 0x107ea>                                              {[-8-]}
                _?muls_d3_d4
            <MI 1353e  MOVE.L  D7,D3>                                           {[-8-]}
            <Call 0x13540 0x107ea>                                              {[-8-]}
                _?muls_d3_d4
            <MI 13542  ADD.L   D4,D5>                                           {[-8-]}
            <MI 13544  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 13546  BVC     0x134c8>                                         {[-8-]}
        <POP 13548-13554 Naked>                              Σ-8 Δ+4    ↓ ←0x134c8
            <POP 13548-1354a StackAdj>                       Δ+4                {[-4-]}
            <MI 1354a  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 1354c  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 1354e  EXTW.L  D0>                                              {[-4-]}
            <MI 13550  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 13552  MOVE.L  D0,D7>                                           {[-4-]}
        <POP 13554-1355c Naked>                              Σ-4        ↓ →0x13576 ←0x1355c
            <MI 13554  CMPI.L  #0x0000001e,D7>                                  {[-4-]}
            <MI 1355a  BGT     0x13576>                                         {[-4-]}
        <POP 1355c-13576 Naked>                              Σ-4        ↓ →0x13554
            <MI 1355c  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 1355e  MOVEA.L (A0),A0>                                         {[-4-]}
            <MI 13560  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 13562  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x13564 LimitCheck 0x0 ≤ D0 ≤ 0x1d>                            {[-4-]}
            <MI 1356e  CLR.B   (A0+D0.L)>                                       {[-4-]}
            <MI 13572  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 13574  BVC     0x13554>                                         {[-4-]}
        <POP 13576-13586 Naked>                              Σ-4 Δ+4    ↓ ←0x13554
            <POP 13576-13578 StackAdj>                       Δ+4                {}
            <MI 13578  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 1357a  MOVEA.L (A0),A0>                                         {}
            <MI 1357c  MOVE.W  D5,(A0+0x1e)>                                    {}
            <MI 13580  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13584  CLR.B   (A0)>                                            {}
        <POP 13586-1358e Epilogue>                           Σ0         ←0x134b6 ←0x1350c

0x1358e


@ 1358e
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x024 @>
        <LVAR -0x026 2(w)>
        <LVAR -0x044 @>
    <POP 1358e-13630 Body>                                              
        <POP 1358e-135a4 Prologue>                           Σ0         ↓
        <POP 135a4-135b2 Naked>                              Σ0         ↓ →0x135b8
            <MI 135a4  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 135a8  MOVE.B  (A0+0x3f),D0>                                    {}
            <MI 135ac  LSL.B   #0x4,D0>                                         {}
            <MI 135ae  LSR.B   #0x7,D0>                                         {}
            <MI 135b0  BNE     0x135b8>                                         {}
        <POP 135b2-135b8 Naked>                              Σ0         ↓ →0x13628
            <MI 135b2  TST.B   (A0+0x4c)>                                       {}
            <MI 135b6  BEQ     0x13628>                                         {}
        <POP 135b8-13618 Naked>                              Σ0         ↓ →0x13624 ←0x135a4
            <MI 135b8  ANDI.B  #0xf7,(A0+0x3f)>                                 {}
            <MI 135be  LEA.L   (A6-0x44),A1>                                    {}
            <MI 135c2  MOVEA.L A0,A2>                                           {}
            <BlockMove 30,A2,A1>                                                {}
            <MI 135cc  MOVE.W  (A0+0x1e),(A6-0x26)>                             {}
            <MI 135d2  LEA.L   (A6-0x24),A1>                                    {}
            <MI 135d6  LEA.L   (A0+0x20),A2>                                    {}
            <BlockMove 32,A2,A1>                                                {}
            <MI 135e2  MOVE.W  (A0+0x40),-(A7)>              Δ-2                {[2, '(A0+0x40)']}
            <MI 135e6  MOVE.W  (A0+0x42),D0>                                    {[2, '(A0+0x40)']}
            <MI 135ea  EXTW.L  D0>                                              {[2, '(A0+0x40)']}
            <MI 135ec  ASL.L   #0x5,D0>                                         {[2, '(A0+0x40)']}
            <POP 0x135ee LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {[2, '(A0+0x40)']}
            <MI 135f8  MOVE.W  D0,-(A7)>                     Δ-2                {[2, '(A0+0x40)']|[2, 'D0']}
            <MI 135fa  LEA.L   (A6-0x44),A1>                                    {[2, '(A0+0x40)']|[2, 'D0']}
            <MI 135fe  MOVE.L  A1,-(A7)>                     Δ-4                {[2, '(A0+0x40)']|[2, 'D0']|[4, 'A1']}
            <Const 0x13600 0x20.2>                           Δ-2                {[2, '(A0+0x40)']|[2, 'D0']|[4, 'A1']|[#32]}
            <Pointer.fp 0x13604 <LVAR -0x004 @ 1(r)>>        Δ-4                {[2, '(A0+0x40)']|[2, 'D0']|[4, 'A1']|[#32]|[@@-4]}
            <Call 0x13608 0x12a4c>                                              {[2, '(A0+0x40)']|[2, 'D0']|[4, 'A1']|[#32]|[@@-4]}
                _WriteWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B)
            <POP 1360e-13612 StackAdj>                       Δ+14               {}
            <MI 13612  TST.B   (A6-0x4)>                                        {}
            <MI 13616  BNE     0x13624>                                         {}
        <POP 13618-13624 Naked>                              Σ0         ↓
            <Const 0x13618 0x8.4>                            Δ-4                {[##8]}
            <Call 0x1361c 0x10220>                                              {[##8]}
                KC10_Panic(code : Long)
            <POP 13622-13624 StackAdj>                       Δ+4                {}
        <POP 13624-13628 Naked>                              Σ0         ↓ ←0x135b8
            <MI 13624  CLR.B   (A0+0x4c)>                                       {}
        <POP 13628-13630 Epilogue>                           Σ0         ←0x135b2

0x13630


@ 13630
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x00d 1(w)>
        <LVAR -0x40c @>
    <POP 13630-1370a Body>                                              
        <POP 13630-13646 Prologue>                           Σ0         ↓
        <POP 13646-13654 RegCacheLoad>                       Σ0         ↓
        <POP 13654-13664 Naked>                              Σ0         ↓ →0x13702
            <MI 13654  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13658  MOVE.B  (A0+0x3f),D0>                                    {}
            <MI 1365c  LSL.B   #0x4,D0>                                         {}
            <MI 1365e  LSR.B   #0x7,D0>                                         {}
            <MI 13660  BNE     0x13702>                                         {}
        <POP 13664-13688 Naked>                              Σ0         ↓ →0x13694
            <MI 13664  MOVE.W  (A0+0x40),D6>                                    {}
            <MI 13668  LEA.L   (A6-0x40c),A1>                                   {}
            <MI 1366a  MOVE.L  A1,-(A7)>                     Δ-4                {[4, 'A1']}
            <MI 1366c  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <Const 0x1366e 0x2.2>                            Δ-2                {[#2]}
            <MI 13672  MOVE.W  D6,-(A7)>                     Δ-2                {[#2]|[2, 'D6']}
            <Const 0x13674 0x1.4>                            Δ-4                {[#2]|[2, 'D6']|[##1]}
            <MI 13678  MOVE.L  A4,-(A7)>                     Δ-4                {[#2]|[2, 'D6']|[##1]|[4, 'A4']}
            <Pointer.fp 0x1367a <LVAR -0x002 @ 1(r)>>        Δ-4                {[#2]|[2, 'D6']|[##1]|[4, 'A4']|[@@-2]}
            <Call 0x1367c 0x127b6>                                              {[#2]|[2, 'D6']|[##1]|[4, 'A4']|[@@-2]}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 13682-13684 StackAdj>                       Δ+16               {}
            <MI 13684  TST.B   (A6-0x2)>                                        {}
            <MI 13686  BNE     0x13694>                                         {}
        <POP 13688-13694 Naked>                              Σ0         ↓
            <Const 0x13688 0x6.4>                            Δ-4                {[##6]}
            <Call 0x1368c 0x10220>                                              {[##6]}
                KC10_Panic(code : Long)
            <POP 13692-13694 StackAdj>                       Δ+4                {}
        <POP 13694-1369e Naked>                              Σ0         ↓ ←0x13664
            <MI 13694  MOVE.W  (A0+0x42),D0>                                    {}
            <MI 13698  EXTW.L  D0>                                              {}
            <MI 1369a  ADDQ.L  #0x1,D0>                                         {}
            <MI 1369c  MOVE.L  D0,D7>                                           {}
        <POP 1369e-136a2 Naked>                              Σ0         ↓ →0x136d0 ←0x136a2
            <MI 1369e  CMP.L   #0x0f,D7>                                        {}
            <MI 136a0  BGT     0x136d0>                                         {}
        <POP 136a2-136d0 Naked>                              Σ0         ↓ →0x1369e
            <MI 136a2  MOVE.L  D7,D0>                                           {}
            <MI 136a4  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x136a6 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {}
            <MI 136ac  ASL.L   #0x6,D0>                                         {}
            <MI 136ae  LEA.L   (A6-0x40c),A0>                                   {}
            <POP 0x136b0 LimitCheck 0x0 ≤ D7 ≤ 0xf>                             {}
            <MI 136b6  MOVE.L  D7,D1>                                           {}
            <MI 136b8  ASL.L   #0x6,D1>                                         {}
            <MI 136ba  LEA.L   (A6-0x40c),A1>                                   {}
            <MI 136bc  LEA.L   (A0+D0.L),A0>                                    {}
            <MI 136c0  LEA.L   (A1+D1.L),A1>                                    {}
            <BlockMove 64,A1,A0>                                                {}
            <MI 136cc  ADDQ.L  #0x1,D7>                                         {}
            <MI 136ce  BVC     0x1369e>                                         {}
        <POP 136d0-136ee Naked>                              Σ0         ↓ →0x136fa ←0x1369e
            <MI 136d0  OR.B    #0x08,(A6-0xd)>                                  {}
            <Const 0x136d4 0x3.2>                            Δ-2                {[#3]}
            <MI 136d8  MOVE.W  D6,-(A7)>                     Δ-2                {[#3]|[2, 'D6']}
            <Const 0x136da 0x1.4>                            Δ-4                {[#3]|[2, 'D6']|[##1]}
            <MI 136de  MOVE.L  A4,-(A7)>                     Δ-4                {[#3]|[2, 'D6']|[##1]|[4, 'A4']}
            <Pointer.fp 0x136e0 <LVAR -0x002 @ 1(r)>>        Δ-4                {[#3]|[2, 'D6']|[##1]|[4, 'A4']|[@@-2]}
            <Call 0x136e2 0x127b6>                                              {[#3]|[2, 'D6']|[##1]|[4, 'A4']|[@@-2]}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 136e8-136ea StackAdj>                       Δ+16               {}
            <MI 136ea  TST.B   (A6-0x2)>                                        {}
            <MI 136ec  BNE     0x136fa>                                         {}
        <POP 136ee-136fa Naked>                              Σ0         ↓
            <Const 0x136ee 0x7.4>                            Δ-4                {[##7]}
            <Call 0x136f2 0x10220>                                              {[##7]}
                KC10_Panic(code : Long)
            <POP 136f8-136fa StackAdj>                       Δ+4                {}
        <POP 136fa-13702 Naked>                              Σ0         ↓ ←0x136d0
            <MI 136fa  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 136fe  OR.B    #0x08,(A0+0x3f)>                                 {}
        <POP 13702-1370a Epilogue>                           Σ0         ←0x13654

0x1370a


@ 1370a
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x005 1(r)>
        <LVAR -0x006 1(r)>
        <LVAR -0x007 1(r)>
        <LVAR -0x008 @ 1(r)>
        <LVAR -0x40c @>
        <LVAR -0x410 @>
    <POP 1370a-138a6 Body>                                              
        <POP 1370a-13720 Prologue>                           Σ0         ↓
        <POP 13720-1372c RegCacheLoad>                       Σ0         ↓
        <POP 1372c-13790 Naked>                              Σ0         ↓ →0x1379c
            <MI 1372c  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 1372e  MOVE.W  (A0+0x1e),D5>                                    {}
            <MI 13732  ANDI.W  #0xffe0,D5>                                      {}
            <MI 13736  LSR.W   #0x5,D5>                                         {}
            <MI 13738  MOVE.W  D5,D0>                                           {}
            <MI 1373a  ANDI.W  #0x00ff,D0>                                      {}
            <MI 1373e  MOVE.W  D5,D1>                                           {}
            <MI 13740  LSR.W   #0x8,D1>                                         {}
            <POP 0x13742 LimitCheck 0x0 ≤ D1 ≤ 0x7>                             {}
            <MI 13746  ASL.W   #0x1,D1>                                         {}
            <MI 13748  CLR.L   D2>                                              {}
            <MI 1374a  MOVE.W  D1,D2>                                           {}
            <MI 1374c  LEA.L   0x0,A0>                                          {}
            <MI 13750  LEA.L   (A0+D2.L),A0>                                    {}
            <MI 13754  ADDA.L  #0x10012,A0>                                     {}
            <MI 1375a  CLR.L   D1>                                              {}
            <MI 1375c  MOVE.W  (A0),D1>                                         {}
            <MI 1375e  CLR.L   D2>                                              {}
            <MI 13760  MOVE.W  D0,D2>                                           {}
            <MI 13762  ADD.L   D1,D2>                                           {}
            <POP 0x13764 LimitCheck 0x0 ≤ D2 ≤ 0xffff>                          {}
            <MI 1376a  MOVE.W  D2,D6>                                           {}
            <Const 0x1376c 0x2.2>                            Δ-2                {[#2]}
            <MI 13770  MOVE.W  D6,-(A7)>                     Δ-2                {[#2]|[2, 'D6']}
            <Const 0x13772 0x1.4>                            Δ-4                {[#2]|[2, 'D6']|[##1]}
            <MI 13776  LEA.L   (A6-0x40c),A0>                                   {[#2]|[2, 'D6']|[##1]}
            <MI 1377a  MOVE.L  A0,-(A7)>                     Δ-4                {[#2]|[2, 'D6']|[##1]|[4, 'A0']}
            <Pointer.fp 0x1377c <LVAR -0x004 @ 1(r)>>        Δ-4                {[#2]|[2, 'D6']|[##1]|[4, 'A0']|[@@-4]}
            <Call 0x13780 0x127b6>                                              {[#2]|[2, 'D6']|[##1]|[4, 'A0']|[@@-4]}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 13786-1378a StackAdj>                       Δ+16               {}
            <MI 1378a  TST.B   (A6-0x4)>                                        {}
            <MI 1378e  BNE     0x1379c>                                         {}
        <POP 13790-1379c Naked>                              Σ0         ↓
            <Const 0x13790 0x6.4>                            Δ-4                {[##6]}
            <Call 0x13794 0x10220>                                              {[##6]}
                KC10_Panic(code : Long)
            <POP 1379a-1379c StackAdj>                       Δ+4                {}
        <POP 1379c-1379e Naked>                              Σ0         ↓ ←0x1372c
            <MI 1379c  MOVEQ.L #0x00,D7>                                        {}
        <POP 1379e-137b6 Naked>                              Σ0         ↓ →0x1382c ←0x13878
            <POP 0x1379e LimitCheck 0x0 ≤ D7 ≤ 0xf>                             {}
            <MI 137a4  MOVE.L  D7,D0>                                           {}
            <MI 137a6  ASL.L   #0x6,D0>                                         {}
            <MI 137a8  LEA.L   (A6-0x410),A0>                                   {}
            <MI 137ac  MOVE.B  (A0+D0.L+#0x43),D1>                              {}
            <MI 137b0  LSL.B   #0x4,D1>                                         {}
            <MI 137b2  LSR.B   #0x7,D1>                                         {}
            <MI 137b4  BEQ     0x1382c>                                         {}
        <POP 137b6-1382c Naked>                              Σ0         →0x1388a
            <Pointer.fp 0x137b6 <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Call 0x137ba 0x116e0>                                              {[@@-8]}
                _GetRtc() : TimeStamp
            <POP 137c0-137c2 StackAdj>                       Δ+4                {}
            <MI 137c2  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 137c4  LEA.L   (A0+0x22),A1>                                    {}
            <MI 137c8  LEA.L   0x13104,A2>                                      {}
            <BlockMove 24,A2,A1>                                                {}
            <MI 137d4  CLR.W   (A0+0x20)>                                       {}
            <MI 137d8  MOVE.B  (A6-0x8),(A0+0x3a)>                              {}
            <MI 137de  MOVE.B  (A6-0x7),(A0+0x3b)>                              {}
            <MI 137e4  MOVE.B  (A6-0x6),(A0+0x3c)>                              {}
            <MI 137ea  MOVE.B  (A6-0x5),(A0+0x3d)>                              {}
            <MI 137f0  AND.W   #0x0f,(A0+0x3e)>                                 {}
            <MI 137f4  ORI.B   #0x08,(A0+0x3f)>                                 {}
            <MI 137fa  ANDI.B  #0xfb,(A0+0x3f)>                                 {}
            <MI 13800  ANDI.B  #0xfd,(A0+0x3f)>                                 {}
            <MI 13806  ANDI.B  #0xfe,(A0+0x3f)>                                 {}
            <MI 1380c  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 1380e  MOVE.B  #0x01,(A0+0x4c)>                                 {}
            <POP 0x13814 LimitCheck -0x8000 ≤ D7 ≤ 0x7fff>                      {}
            <MI 13826  MOVE.W  D7,(A0+0x42)>                                    {}
            <MI 1382a  BRA     0x1388a>                                         {}
        <POP 1382c-13846 Naked>                              Σ0         ↓ →0x13878 ←0x1379e
            <MI 1382c  MOVEA.L (A6+0xc),A0>                                     {}
            <POP 0x1382e LimitCheck 0x0 ≤ D7 ≤ 0xf>                             {}
            <MI 13834  MOVE.L  D7,D0>                                           {}
            <MI 13836  ASL.L   #0x6,D0>                                         {}
            <MI 13838  LEA.L   (A6-0x410),A1>                                   {}
            <MI 1383c  MOVE.W  (A0+0x1e),D1>                                    {}
            <MI 13840  CMP.W   (A1+D0.L+#0x22),D1>                              {}
            <MI 13844  BNE     0x13878>                                         {}
        <POP 13846-1384e Naked>                              Σ0         ↓
            <MI 13846  LEA.L   (A1+D0.L+#0x4),A2>                               {}
            <MI 1384a  MOVEA.L A0,A3>                                           {}
            <MI 1384c  MOVEQ.L #0x1d,D1>                                        {}
        <POP 1384e-13854 Naked>                              Σ0         ↓ →0x1384e ←0x1384e
            <MI 1384e  CMPM.B  (A2)+,(A3)+>                                     {}
            <MI 13850  DBNE    D1,0x1384e>                                      {}
        <POP 13854-13856 Naked>                              Σ0         ↓ →0x13878
            <MI 13854  BNE     0x13878>                                         {}
        <POP 13856-13878 Naked>                              Σ0         
            <MI 13856  LEA.L   (A0+0x20),A2>                                    {}
            <MI 1385a  LEA.L   (A1+D0.L+#0x24),A1>                              {}
            <BlockMove 32,A1,A2>                                                {}
            <MI 13866  CLR.B   (A0+0x4c)>                                       {}
            <MI 1386a  SUBI.L  #0xffff8000,D7>                                  {}
            <POP 0x13870 LimitCheck 0x0 ≤ D7 ≤ 0xffff>                          {}
            <MI 13876  BRA     0x13820>                                         {}
        <POP 13878-13880 Naked>                              Σ0         ↓ →0x1379e ←0x1382c ←0x13854
            <MI 13878  ADDQ.L  #0x1,D7>                                         {}
            <MI 1387a  CMP.L   #0x0f,D7>                                        {}
            <MI 1387c  BLE     0x1379e>                                         {}
        <POP 13880-1388a Naked>                              Σ0         →0x1389e
            <MI 13880  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13884  MOVE.B  #0x05,(A0)>                                      {}
            <MI 13888  BRA     0x1389e>                                         {}
        <POP 1388a-1389e Naked>                              Σ0         ↓ ←0x137b6
            <MI 1388a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1388e  CLR.B   (A0)>                                            {}
            <MI 13890  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 13892  MOVE.W  D6,(A0+0x40)>                                    {}
            <MI 13896  CLR.W   (A0+0x48)>                                       {}
            <MI 1389a  CLR.W   (A0+0x4a)>                                       {}
        <POP 1389e-138a6 Epilogue>                           Σ0         ←0x13880

0x138a6


@ 138a6
_OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
        <LVAR  0x018 4(r)>
        <LVAR  0x016 1(r)>
        <LVAR  0x014 1(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x001 @ 1(r)>
        <LVAR -0x002 1(rw)>
    <POP 138a6-13a62 Body>                                   Δ-28       
        <POP 138a6-138bc Prologue>                           Σ0         ↓
        <POP 138bc-138ce RegCacheLoad>                       Σ0         ↓
        <POP 138ce-138d6 Naked>                              Σ0         ↓ →0x138e2
            <MI 138ce  TST.B   0x1b094>                                         {}
            <MI 138d4  BNE     0x138e2>                                         {}
        <POP 138d6-138e2 Naked>                              Σ0         ↓
            <Const 0x138d6 0x19.4>                           Δ-4                {[##25]}
            <Call 0x138da 0x10220>                                              {[##25]}
                KC10_Panic(code : Long)
            <POP 138e0-138e2 StackAdj>                       Δ+4                {}
        <POP 138e2-138e6 Naked>                              Σ0         ↓ →0x138ea ←0x138ce
            <MI 138e2  TST.L   (A6+0x10)>                                       {}
            <MI 138e4  BLT     0x138ea>                                         {}
        <POP 138e6-138ea Naked>                              Σ0         →0x138ee
            <MI 138e6  MOVEQ.L #0x00,D5>                                        {}
            <MI 138e8  BRA     0x138ee>                                         {}
        <POP 138ea-138ee Naked>                              Σ0         ↓ ←0x138e2
            <MI 138ea  NEG.L   (A6+0x10)>                                       {}
            <MI 138ec  MOVEQ.L #0x01,D5>                                        {}
        <POP 138ee-13906 Naked>                              Σ0         ↓ →0x1390a ←0x138e6
            <MI 138ee  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 138f0  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[4, '(A6+0x18)']}
            <MI 138f4  MOVEA.L (A6+0x8),A1>                                     {[4, '(A6+0x18)']}
            <MI 138f6  PEA.L   (A1)>                         Δ-4                {[4, '(A6+0x18)']|[4, '^(A1)']}
            <MI 138f8  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0x18)']|[4, '^(A1)']|[4, '^(A0)']}
            <Call 0x138fa 0x1345c>                                              {[4, '(A6+0x18)']|[4, '^(A1)']|[4, '^(A0)']}
            <POP 138fe-13902 StackAdj>                       Δ+12               {}
            <MI 13902  TST.B   (A0)>                                            {}
            <MI 13904  BEQ     0x1390a>                                         {}
        <POP 13906-1390a Naked>                              Σ0         →0x13a34
            <MI 13906  BRA     0x13a34>                                         {}
        <POP 1390a-1391c Naked>                              Σ0         ↓ →0x13920 ←0x138ee
            <MI 1390a  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 1390c  MOVEA.L (A6+0x8),A1>                                     {}
            <MI 1390e  MOVE.L  (A1),-(A7)>                   Δ-4                {[4, '(A1)']}
            <MI 13910  PEA.L   (A0)>                         Δ-4                {[4, '(A1)']|[4, '^(A0)']}
            <Call 0x13912 0x1370a>                                              {[4, '(A1)']|[4, '^(A0)']}
            <POP 13916-13918 StackAdj>                       Δ+8                {}
            <MI 13918  TST.B   (A0)>                                            {}
            <MI 1391a  BEQ     0x13920>                                         {}
        <POP 1391c-13920 Naked>                              Σ0         →0x13a34
            <MI 1391c  BRA     0x13a34>                                         {}
        <POP 13920-1393c Naked>                              Σ0 Δ-4     ↓ →0x13952 ←0x1390a
            <MI 13920  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13922  MOVEA.L (A0),A0>                                         {}
            <MI 13924  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 13926  MOVE.B  (A0+0x3f),D0>                                    {[4, 'A0']}
            <MI 1392a  LSL.B   #0x4,D0>                                         {[4, 'A0']}
            <MI 1392c  LSR.B   #0x7,D0>                                         {[4, 'A0']}
            <MI 1392e  NEG.B   D0>                                              {[4, 'A0']}
            <MI 13930  ADDQ.B  #0x1,D0>                                         {[4, 'A0']}
            <MI 13932  MOVE.B  D0,(A6-0x2)>                                     {[4, 'A0']}
            <MI 13936  TST.B   (A6+0x16)>                                       {[4, 'A0']}
            <MI 1393a  BNE     0x13952>                                         {[4, 'A0']}
        <POP 1393c-13940 Naked>                              Σ-4        ↓ →0x13948
            <MI 1393c  TST.B   D0>                                              {[-4-]}
            <MI 1393e  BEQ     0x13948>                                         {[-4-]}
        <POP 13940-13946 Naked>                              Σ-4 Δ+4    →0x13a5a
            <POP 13940-13942 StackAdj>                       Δ+4                {}
            <MI 13942  BRA     0x13a5a>                                         {}
        <POP 13948-13952 Naked>                              Σ-4 Δ+4    →0x13a34 ←0x1393c
            <MI 13948  MOVEA.L (A6+0xc),A1>                                     {[-4-]}
            <MI 1394a  MOVE.B  #0x02,(A1)>                                      {[-4-]}
            <POP 1394c-1394e StackAdj>                       Δ+4                {}
            <MI 1394e  BRA     0x13a34>                                         {}
        <POP 13952-1395a Naked>                              Σ-4        ↓ →0x13978 ←0x13920
            <MI 13952  MOVE.B  (A6+0x16),D0>                                    {[-4-]}
            <MI 13956  CMP.B   #0x02,D0>                                        {[-4-]}
            <MI 13958  BNE     0x13978>                                         {[-4-]}
        <POP 1395a-13960 Naked>                              Σ-4        ↓ →0x13978
            <MI 1395a  TST.B   (A6-0x2)>                                        {[-4-]}
            <MI 1395e  BEQ     0x13978>                                         {[-4-]}
        <POP 13960-1396c Naked>                              Σ-4        ↓ →0x13978
            <MI 13960  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 13962  MOVE.B  (A0+0x3f),D0>                                    {[-4-]}
            <MI 13966  LSL.B   #0x7,D0>                                         {[-4-]}
            <MI 13968  LSR.B   #0x7,D0>                                         {[-4-]}
            <MI 1396a  BNE     0x13978>                                         {[-4-]}
        <POP 1396c-13978 Naked>                              Σ-4 Δ+4    →0x13a34
            <MI 1396c  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 1396e  MOVE.B  #0x06,(A0)>                                      {[-4-]}
            <POP 13972-13974 StackAdj>                       Δ+4                {}
            <MI 13974  BRA     0x13a34>                                         {}
        <POP 13978-13984 Naked>                              Σ-4        ↓ →0x1398a ←0x13952 ←0x1395a ←0x13960
            <MI 13978  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 1397a  MOVE.W  (A0+0x20),D0>                                    {[-4-]}
            <MI 1397e  EXTW.L  D0>                                              {[-4-]}
            <MI 13980  CMP.L   (A6+0x10),D0>                                    {[-4-]}
            <MI 13982  BNE     0x1398a>                                         {[-4-]}
        <POP 13984-1398a Naked>                              Σ-4 Δ+4    →0x13a5a
            <POP 13984-13986 StackAdj>                       Δ+4                {}
            <MI 13986  BRA     0x13a5a>                                         {}
        <POP 1398a-139a4 Naked>                              Σ-4        ↓ ←0x13978
            <MI 1398a  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 1398c  MOVE.B  #0x01,(A0+0x4c)>                                 {[-4-]}
            <MI 13990  MOVE.L  (A6+0x10),D0>                                    {[-4-]}
            <POP 0x13992 LimitCheck 0x0 ≤ D0 ≤ 0x4000>                          {[-4-]}
            <MI 1399c  MOVE.W  D0,(A0+0x20)>                                    {[-4-]}
            <MI 139a0  MOVEQ.L #0x01,D7>                                        {[-4-]}
            <MI 139a2  MOVEQ.L #0x00,D6>                                        {[-4-]}
        <POP 139a4-139ba Naked>                              Σ-4        ↓ →0x139bc ←0x139bc
            <POP 0x139a4 LimitCheck 0x0 ≤ D6 ≤ 0x5>                             {[-4-]}
            <MI 139aa  MOVE.L  D6,D0>                                           {[-4-]}
            <MI 139ac  ASL.L   #0x2,D0>                                         {[-4-]}
            <MI 139ae  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 139b0  MOVE.W  (A0+D0.L+#0x22),D1>                              {[-4-]}
            <MI 139b4  EXTW.L  D1>                                              {[-4-]}
            <MI 139b6  CMP.L   (A6+0x10),D1>                                    {[-4-]}
            <MI 139b8  BLT     0x139bc>                                         {[-4-]}
        <POP 139ba-139bc Naked>                              Σ-4        ↓
            <MI 139ba  MOVEQ.L #0x00,D7>                                        {[-4-]}
        <POP 139bc-139c2 Naked>                              Σ-4        ↓ →0x139a4 ←0x139a4
            <MI 139bc  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 139be  CMP.L   #0x05,D6>                                        {[-4-]}
            <MI 139c0  BLE     0x139a4>                                         {[-4-]}
        <POP 139c2-139c6 Naked>                              Σ-4        ↓ →0x13a28
            <MI 139c2  TST.B   D7>                                              {[-4-]}
            <MI 139c4  BEQ     0x13a28>                                         {[-4-]}
        <POP 139c6-139d2 Naked>                              Σ-4        ↓ →0x139dc
            <MI 139c6  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 139c8  MOVE.B  (A0+0x3f),D0>                                    {[-4-]}
            <MI 139cc  LSL.B   #0x7,D0>                                         {[-4-]}
            <MI 139ce  LSR.B   #0x7,D0>                                         {[-4-]}
            <MI 139d0  BEQ     0x139dc>                                         {[-4-]}
        <POP 139d2-139dc Naked>                              Σ-4 Δ+4    →0x13a34
            <MI 139d2  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 139d4  MOVE.B  #0x08,(A0)>                                      {[-4-]}
            <POP 139d8-139da StackAdj>                       Δ+4                {}
            <MI 139da  BRA     0x13a34>                                         {}
        <POP 139dc-139e2 Naked>                              Σ-4        ↓ →0x139ee ←0x139c6
            <MI 139dc  TST.B   (A6-0x2)>                                        {[-4-]}
            <MI 139e0  BEQ     0x139ee>                                         {[-4-]}
        <POP 139e2-139ee Naked>                              Σ-4        ↓
            <MI 139e2  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 139e4  MOVE.L  (A0),-(A7)>                   Δ-4                {[-4-]|[4, '(A0)']}
            <Call 0x139e6 0x12e20>                                              {[-4-]|[4, '(A0)']}
                _FS1037c(MOD a : File)
            <POP 139ec-139ee StackAdj>                       Δ+4                {[-4-]}
        <POP 139ee-13a0e Naked>                              Σ-4        ↓ →0x13a28 ←0x139dc
            <MI 139ee  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 139f0  MOVE.L  (A0),-(A7)>                   Δ-4                {[-4-]|[4, '(A0)']}
            <MI 139f2  MOVE.B  D5,D0>                                           {[-4-]|[4, '(A0)']}
            <MI 139f4  EXTB.W  D0>                                              {[-4-]|[4, '(A0)']}
            <POP 0x139f6 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-4-]|[4, '(A0)']}
            <MI 139f8  MOVE.B  D0,-(A7)>                     Δ-2                {[-4-]|[4, '(A0)']|[2, 'D0']}
            <Pointer.fp 0x139fa <LVAR -0x001 @ 1(r)>>        Δ-4                {[-4-]|[4, '(A0)']|[2, 'D0']|[@@-1]}
            <Call 0x139fe 0x12cf8>                                              {[-4-]|[4, '(A0)']|[2, 'D0']|[@@-1]}
                _FS10378(MOD a : File; b: Byte; VAR c: Bool)
            <POP 13a04-13a08 StackAdj>                       Δ+10               {[-4-]}
            <MI 13a08  TST.B   (A6-0x1)>                                        {[-4-]}
            <MI 13a0c  BEQ     0x13a28>                                         {[-4-]}
        <POP 13a0e-13a1a Naked>                              Σ-4        ↓ →0x13a24
            <MI 13a0e  MOVEA.L (A6+0xc),A1>                                     {[-4-]}
            <MI 13a10  MOVE.B  #0x04,(A1)>                                      {[-4-]}
            <MI 13a14  TST.B   (A6-0x2)>                                        {[-4-]}
            <MI 13a18  BEQ     0x13a24>                                         {[-4-]}
        <POP 13a1a-13a24 Naked>                              Σ-4 Δ+4    →0x13a34
            <MI 13a1a  MOVE.L  (A0),-(A7)>                   Δ-4                {[-4-]|[4, '(A0)']}
            <Call 0x13a1c 0x13630>                                              {[-4-]|[4, '(A0)']}
            <POP 13a20-13a22 StackAdj>                       Δ+8                {}
            <MI 13a22  BRA     0x13a34>                                         {}
        <POP 13a24-13a28 Naked>                              Σ-4 Δ+4    →0x13a34 ←0x13a0e
            <POP 13a24-13a26 StackAdj>                       Δ+4                {}
            <MI 13a26  BRA     0x13a34>                                         {}
        <POP 13a28-13a34 Naked>                              Σ-4 Δ+4    →0x13a5a ←0x139c2 ←0x139ee
            <MI 13a28  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 13a2a  MOVE.L  (A0),-(A7)>                   Δ-4                {[-4-]|[4, '(A0)']}
            <Call 0x13a2c 0x1358e>                                              {[-4-]|[4, '(A0)']}
            <POP 13a30-13a32 StackAdj>                       Δ+8                {}
            <MI 13a32  BRA     0x13a5a>                                         {}
        <POP 13a34-13a5a Naked>                              Σ0         ↓ ←0x13906 ←0x1391c ←0x13948 ←0x1396c ←0x139d2 ←0x13a1a ←0x13a24
            <MI 13a34  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13a36  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x13a38 0x1338a>                                              {[4, '^(A0)']}
            <POP 13a3c-13a3e StackAdj>                       Δ+4                {}
            <MI 13a3e  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 13a40  MOVE.B  (A0),-(A7)>                   Δ-2                {[2, '(A0)']}
            <MI 13a42  MOVE.B  (A6+0x14),-(A7)>              Δ-2                {[2, '(A0)']|[2, '(A6+0x14)']}
            <POP 13a46-13a48 StackAdj>                       Δ-4                {[2, '(A0)']|[2, '(A6+0x14)']|[-4-]}
            <MI 13a48  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[2, '(A0)']|[2, '(A6+0x14)']|[-4-]|[4, '(A6+0x18)']}
            <Call 0x13a4c 0x10ef2>                                              {[2, '(A0)']|[2, '(A6+0x14)']|[-4-]|[4, '(A6+0x18)']}
                _StringDup(a : String) : String
            <POP 13a52-13a54 StackAdj>                       Δ+4                {[2, '(A0)']|[2, '(A6+0x14)']|[-4-]}
            <Call 0x13a54 0x132fc>                                              {[2, '(A0)']|[2, '(A6+0x14)']|[-4-]}
            <POP 13a58-13a5a StackAdj>                       Δ+8                {}
        <POP 13a5a-13a62 Epilogue>                           Σ0         ←0x13940 ←0x13984 ←0x13a28

0x13a62


@ 13a62
        <LVAR  0x00e 2(w)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 2(r)>
    <POP 13a62-13ad8 Body>                                              
        <POP 13a62-13a78 Prologue>                           Σ0         ↓
        <POP 13a78-13a82 Naked>                              Σ0 Δ-4     ↓
            <MI 13a78  MOVEQ.L #0x00,D6>                                        {}
            <MI 13a7a  MOVEQ.L #0x00,D7>                                        {}
            <MI 13a7c  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 13a80  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
        <POP 13a82-13a9c Naked>                              Σ-4        ↓ →0x13aaa ←0x13a9c
            <POP 0x13a82 LimitCheck 0x0 ≤ D6 ≤ 0x5>                             {[-4-]}
            <MI 13a8c  MOVE.L  D6,D0>                                           {[-4-]}
            <MI 13a8e  ASL.L   #0x2,D0>                                         {[-4-]}
            <MI 13a90  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 13a92  MOVE.W  (A0+D0.L+#0x22),D1>                              {[-4-]}
            <MI 13a96  CMP.W   (A6+0x8),D1>                                     {[-4-]}
            <MI 13a9a  BGT     0x13aaa>                                         {[-4-]}
        <POP 13a9c-13aaa Naked>                              Σ-4        →0x13a82
            <POP 0x13a9c LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {[-4-]}
            <MI 13aa4  MOVE.W  D1,D7>                                           {[-4-]}
            <MI 13aa6  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 13aa8  BRA     0x13a82>                                         {[-4-]}
        <POP 13aaa-13ad0 Naked>                              Σ-4 Δ+4    ↓ ←0x13a82
            <MI 13aaa  MOVE.W  (A6+0x8),D1>                                     {[-4-]}
            <MI 13aae  EXTW.L  D1>                                              {[-4-]}
            <MI 13ab0  CLR.L   D2>                                              {[-4-]}
            <MI 13ab2  MOVE.W  D7,D2>                                           {[-4-]}
            <MI 13ab4  NEG.L   D2>                                              {[-4-]}
            <MI 13ab6  ADD.L   D1,D2>                                           {[-4-]}
            <MI 13ab8  CLR.L   D1>                                              {[-4-]}
            <MI 13aba  MOVE.W  (A0+D0.L+#0x24),D1>                              {[-4-]}
            <MI 13abe  ADD.L   D1,D2>                                           {[-4-]}
            <POP 0x13ac0 LimitCheck 0x0 ≤ D2 ≤ 0xffff>                          {[-4-]}
            <MI 13aca  MOVE.W  D2,(A6+0xe)>                                     {[-4-]}
            <POP 13ace-13ad0 StackAdj>                       Δ+4                {}
        <POP 13ad0-13ad8 Epilogue>                           Σ0         

0x13ad8


@ 13ad8
_ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
        <LVAR  0x018 4(r)>
        <LVAR  0x016 2(r)>
        <LVAR  0x014 2(r)>
        <LVAR  0x012 2(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
    <POP 13ad8-13baa Body>                                              
        <POP 13ad8-13aee Prologue>                           Σ0         ↓
        <POP 13aee-13af8 RegCacheLoad>                       Σ0         ↓
        <POP 13af8-13b0a Naked>                              Σ0         ↓ →0x13b10
            <MI 13af8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13afa  CLR.B   (A0)>                                            {}
            <POP 13afc-13afe StackAdj>                       Δ-2                {[-2-]}
            <MI 13afe  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-2-]|[4, '(A6+0x18)']}
            <Call 0x13b00 0x13412>                                              {[-2-]|[4, '(A6+0x18)']}
            <POP 13b04-13b06 StackAdj>                       Δ+4                {[-2-]}
            <MI 13b06  TST.B   (A7)+>                        Δ+2                {}
            <MI 13b08  BEQ     0x13b10>                                         {}
        <POP 13b0a-13b10 Naked>                              Σ0         →0x13b70
            <MI 13b0a  MOVE.B  #0x03,(A0)>                                      {}
            <MI 13b0e  BRA     0x13b70>                                         {}
        <POP 13b10-13b1c Naked>                              Σ0         ↓ →0x13b24 ←0x13af8
            <MI 13b10  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 13b12  MOVE.W  (A6+0x16),D0>                                    {}
            <MI 13b16  CMP.W   (A0+0x20),D0>                                    {}
            <MI 13b1a  BLT     0x13b24>                                         {}
        <POP 13b1c-13b24 Naked>                              Σ0         →0x13b70
            <MI 13b1c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13b1e  MOVE.B  #0x09,(A0)>                                      {}
            <MI 13b22  BRA     0x13b70>                                         {}
        <POP 13b24-13b32 Naked>                              Σ0         ↓ →0x13b3a ←0x13b10
            <MI 13b24  MOVE.W  (A6+0x14),D0>                                    {}
            <MI 13b28  ADD.W   (A6+0x12),D0>                                    {}
            <MI 13b2c  CMPI.W  #0x0200,D0>                                      {}
            <MI 13b30  BLE     0x13b3a>                                         {}
        <POP 13b32-13b3a Naked>                              Σ0         →0x13b70
            <MI 13b32  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13b34  MOVE.B  #0x0a,(A0)>                                      {}
            <MI 13b38  BRA     0x13b70>                                         {}
        <POP 13b3a-13b68 Naked>                              Σ0         ↓ →0x13b6a ←0x13b24
            <POP 13b3a-13b3c StackAdj>                       Δ-2                {[-2-]}
            <MI 13b3c  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-2-]|[4, '(A6+0x18)']}
            <MI 13b3e  MOVE.W  (A6+0x16),-(A7)>              Δ-2                {[-2-]|[4, '(A6+0x18)']|[2, '(A6+0x16)']}
            <Call 0x13b42 0x13a62>                                              {[-2-]|[4, '(A6+0x18)']|[2, '(A6+0x16)']}
            <POP 13b46-13b48 StackAdj>                       Δ+4                {[-2-]|[-2-]}
            <MI 13b48  MOVE.W  (A6+0x14),(A7)>                                  {[-2-]|[2, '(A6+0x14)']}
            <MI 13b4c  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0x14)']|[4, '(A6+0xc)']}
            <MI 13b50  MOVE.W  (A6+0x12),-(A7)>              Δ-2                {[-2-]|[2, '(A6+0x14)']|[4, '(A6+0xc)']|[2, '(A6+0x12)']}
            <Pointer.fp 0x13b54 <LVAR -0x004 @ 1(r)>>        Δ-4                {[-2-]|[2, '(A6+0x14)']|[4, '(A6+0xc)']|[2, '(A6+0x12)']|[@@-4]}
            <Call 0x13b58 0x12986>                                              {[-2-]|[2, '(A6+0x14)']|[4, '(A6+0xc)']|[2, '(A6+0x12)']|[@@-4]}
                _ReadWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B)
            <POP 13b5e-13b62 StackAdj>                       Δ+14               {}
            <MI 13b62  TST.B   (A6-0x4)>                                        {}
            <MI 13b66  BEQ     0x13b6a>                                         {}
        <POP 13b68-13b6a Naked>                              Σ0         →0x13ba2
            <MI 13b68  BRA     0x13ba2>                                         {}
        <POP 13b6a-13b70 Naked>                              Σ0         ↓ ←0x13b3a
            <MI 13b6a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13b6c  MOVE.B  #0x0c,(A0)>                                      {}
        <POP 13b70-13ba2 Naked>                              Σ0         ↓ ←0x13b0a ←0x13b1c ←0x13b32
            <MI 13b70  MOVEA.L (A6+0x18),A0>                                    {}
            <POP 13b72-13b74 StackAdj>                       Δ-30               {[-30-]}
            <MI 13b74  MOVEA.L A7,A1>                                           {[-30-]}
            <BlockMove 30,A0,A1>                                                {[-30-]}
            <MI 13b7e  MOVEA.L (A6+0x8),A0>                                     {[-30-]}
            <MI 13b80  MOVE.B  (A0),-(A7)>                   Δ-2                {[-30-]|[2, '(A0)']}
            <MI 13b82  MOVE.B  (A6+0x10),-(A7)>              Δ-2                {[-30-]|[2, '(A0)']|[2, '(A6+0x10)']}
            <POP 13b86-13b88 StackAdj>                       Δ-4                {[-30-]|[2, '(A0)']|[2, '(A6+0x10)']|[-4-]}
            <Lit 0x13b88>                                                       {[-30-]|[2, '(A0)']|[2, '(A6+0x10)']|[$$…]}
                <Pointer.sp 0x13b88 8>                       Δ-4        
                <Const 0x13b8c 0x1.2>                        Δ-2        
                <Const 0x13b90 0x1e.2>                       Δ-2        
                <Call 0x13b92 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 13b98-13b9a StackAdj>                   Δ+8        
            <Call 0x13b9a 0x132fc>                                              {[-30-]|[2, '(A0)']|[2, '(A6+0x10)']|[$$…]}
            <POP 13b9e-13ba2 StackAdj>                       Δ+38               {}
        <POP 13ba2-13baa Epilogue>                           Σ0         ←0x13b68

0x13baa


@ 13baa
_WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
        <LVAR  0x018 4(r)>
        <LVAR  0x016 2(r)>
        <LVAR  0x014 2(r)>
        <LVAR  0x012 2(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
    <POP 13baa-13c7c Body>                                              
        <POP 13baa-13bc0 Prologue>                           Σ0         ↓
        <POP 13bc0-13bca RegCacheLoad>                       Σ0         ↓
        <POP 13bca-13bdc Naked>                              Σ0         ↓ →0x13be2
            <MI 13bca  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13bcc  CLR.B   (A0)>                                            {}
            <POP 13bce-13bd0 StackAdj>                       Δ-2                {[-2-]}
            <MI 13bd0  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-2-]|[4, '(A6+0x18)']}
            <Call 0x13bd2 0x13412>                                              {[-2-]|[4, '(A6+0x18)']}
            <POP 13bd6-13bd8 StackAdj>                       Δ+4                {[-2-]}
            <MI 13bd8  TST.B   (A7)+>                        Δ+2                {}
            <MI 13bda  BEQ     0x13be2>                                         {}
        <POP 13bdc-13be2 Naked>                              Σ0         →0x13c42
            <MI 13bdc  MOVE.B  #0x03,(A0)>                                      {}
            <MI 13be0  BRA     0x13c42>                                         {}
        <POP 13be2-13bee Naked>                              Σ0         ↓ →0x13bf6 ←0x13bca
            <MI 13be2  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 13be4  MOVE.W  (A6+0x16),D0>                                    {}
            <MI 13be8  CMP.W   (A0+0x20),D0>                                    {}
            <MI 13bec  BLT     0x13bf6>                                         {}
        <POP 13bee-13bf6 Naked>                              Σ0         →0x13c42
            <MI 13bee  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13bf0  MOVE.B  #0x09,(A0)>                                      {}
            <MI 13bf4  BRA     0x13c42>                                         {}
        <POP 13bf6-13c04 Naked>                              Σ0         ↓ →0x13c0c ←0x13be2
            <MI 13bf6  MOVE.W  (A6+0x14),D0>                                    {}
            <MI 13bfa  ADD.W   (A6+0x12),D0>                                    {}
            <MI 13bfe  CMPI.W  #0x0200,D0>                                      {}
            <MI 13c02  BLE     0x13c0c>                                         {}
        <POP 13c04-13c0c Naked>                              Σ0         →0x13c42
            <MI 13c04  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13c06  MOVE.B  #0x0a,(A0)>                                      {}
            <MI 13c0a  BRA     0x13c42>                                         {}
        <POP 13c0c-13c3a Naked>                              Σ0         ↓ →0x13c3c ←0x13bf6
            <POP 13c0c-13c0e StackAdj>                       Δ-2                {[-2-]}
            <MI 13c0e  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-2-]|[4, '(A6+0x18)']}
            <MI 13c10  MOVE.W  (A6+0x16),-(A7)>              Δ-2                {[-2-]|[4, '(A6+0x18)']|[2, '(A6+0x16)']}
            <Call 0x13c14 0x13a62>                                              {[-2-]|[4, '(A6+0x18)']|[2, '(A6+0x16)']}
            <POP 13c18-13c1a StackAdj>                       Δ+4                {[-2-]|[-2-]}
            <MI 13c1a  MOVE.W  (A6+0x14),(A7)>                                  {[-2-]|[2, '(A6+0x14)']}
            <MI 13c1e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-2-]|[2, '(A6+0x14)']|[4, '(A6+0xc)']}
            <MI 13c22  MOVE.W  (A6+0x12),-(A7)>              Δ-2                {[-2-]|[2, '(A6+0x14)']|[4, '(A6+0xc)']|[2, '(A6+0x12)']}
            <Pointer.fp 0x13c26 <LVAR -0x004 @ 1(r)>>        Δ-4                {[-2-]|[2, '(A6+0x14)']|[4, '(A6+0xc)']|[2, '(A6+0x12)']|[@@-4]}
            <Call 0x13c2a 0x12a4c>                                              {[-2-]|[2, '(A6+0x14)']|[4, '(A6+0xc)']|[2, '(A6+0x12)']|[@@-4]}
                _WriteWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B)
            <POP 13c30-13c34 StackAdj>                       Δ+14               {}
            <MI 13c34  TST.B   (A6-0x4)>                                        {}
            <MI 13c38  BEQ     0x13c3c>                                         {}
        <POP 13c3a-13c3c Naked>                              Σ0         →0x13c74
            <MI 13c3a  BRA     0x13c74>                                         {}
        <POP 13c3c-13c42 Naked>                              Σ0         ↓ ←0x13c0c
            <MI 13c3c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13c3e  MOVE.B  #0x0c,(A0)>                                      {}
        <POP 13c42-13c74 Naked>                              Σ0         ↓ ←0x13bdc ←0x13bee ←0x13c04
            <MI 13c42  MOVEA.L (A6+0x18),A0>                                    {}
            <POP 13c44-13c46 StackAdj>                       Δ-30               {[-30-]}
            <MI 13c46  MOVEA.L A7,A1>                                           {[-30-]}
            <BlockMove 30,A0,A1>                                                {[-30-]}
            <MI 13c50  MOVEA.L (A6+0x8),A0>                                     {[-30-]}
            <MI 13c52  MOVE.B  (A0),-(A7)>                   Δ-2                {[-30-]|[2, '(A0)']}
            <MI 13c54  MOVE.B  (A6+0x10),-(A7)>              Δ-2                {[-30-]|[2, '(A0)']|[2, '(A6+0x10)']}
            <POP 13c58-13c5a StackAdj>                       Δ-4                {[-30-]|[2, '(A0)']|[2, '(A6+0x10)']|[-4-]}
            <Lit 0x13c5a>                                                       {[-30-]|[2, '(A0)']|[2, '(A6+0x10)']|[$$…]}
                <Pointer.sp 0x13c5a 8>                       Δ-4        
                <Const 0x13c5e 0x1.2>                        Δ-2        
                <Const 0x13c62 0x1e.2>                       Δ-2        
                <Call 0x13c64 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 13c6a-13c6c StackAdj>                   Δ+8        
            <Call 0x13c6c 0x132fc>                                              {[-30-]|[2, '(A0)']|[2, '(A6+0x10)']|[$$…]}
            <POP 13c70-13c74 StackAdj>                       Δ+38               {}
        <POP 13c74-13c7c Epilogue>                           Σ0         ←0x13c3a

0x13c7c


@ 13c7c
_CloseFile(a : L; VAR status : B; VAR file : File)
        <LVAR  0x016 1(r)>
        <LVAR  0x014 1(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 13c7c-13e4e Body>                                   Δ-20       
        <POP 13c7c-13c92 Prologue>                           Σ0         ↓
        <POP 13c92-13c9e RegCacheLoad>                       Σ0         ↓
        <POP 13c9e-13ca6 Naked>                              Σ0         ↓ →0x13cb2
            <MI 13c9e  TST.B   0x1b094>                                         {}
            <MI 13ca4  BNE     0x13cb2>                                         {}
        <POP 13ca6-13cb2 Naked>                              Σ0         ↓
            <Const 0x13ca6 0x18.4>                           Δ-4                {[##24]}
            <Call 0x13caa 0x10220>                                              {[##24]}
                KC10_Panic(code : Long)
            <POP 13cb0-13cb2 StackAdj>                       Δ+4                {}
        <POP 13cb2-13cc2 Naked>                              Σ0         ↓ →0x13cdc ←0x13c9e
            <POP 13cb2-13cb4 StackAdj>                       Δ-2                {[-2-]}
            <MI 13cb4  MOVEA.L (A6+0x8),A0>                                     {[-2-]}
            <MI 13cb6  MOVE.L  (A0),-(A7)>                   Δ-4                {[-2-]|[4, '(A0)']}
            <Call 0x13cb8 0x13412>                                              {[-2-]|[4, '(A0)']}
            <POP 13cbc-13cbe StackAdj>                       Δ+4                {[-2-]}
            <MI 13cbe  TST.B   (A7)+>                        Δ+2                {}
            <MI 13cc0  BEQ     0x13cdc>                                         {}
        <POP 13cc2-13cdc Naked>                              Σ0         →0x13e46
            <MI 13cc2  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 13cc4  MOVE.B  #0x03,(A0)>                                      {}
            <MI 13cc8  MOVE.B  (A0),-(A7)>                   Δ-2                {[2, '(A0)']}
            <MI 13cca  MOVE.B  (A6+0x14),-(A7)>              Δ-2                {[2, '(A0)']|[2, '(A6+0x14)']}
            <Const 0x13cce 0x1.4>                            Δ-4                {[2, '(A0)']|[2, '(A6+0x14)']|[##1]}
            <Call 0x13cd2 0x132fc>                                              {[2, '(A0)']|[2, '(A6+0x14)']|[##1]}
            <POP 13cd6-13cd8 StackAdj>                       Δ+8                {}
            <MI 13cd8  BRA     0x13e46>                                         {}
        <POP 13cdc-13cec Naked>                              Σ0         ↓ →0x13cf2 ←0x13cb2
            <MI 13cdc  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 13cde  CLR.B   (A0)>                                            {}
            <MI 13ce0  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13ce2  MOVEA.L (A0),A0>                                         {}
            <MI 13ce4  CMPA.L  0x10026,A0>                                      {}
            <MI 13cea  BNE     0x13cf2>                                         {}
        <POP 13cec-13cf2 Naked>                              Σ0         ↓
            <MI 13cec  MOVE.L  #0x01,0x10026>                                   {}
        <POP 13cf2-13cf8 Naked>                              Σ0         ↓ →0x13cfc ←0x13cdc
            <MI 13cf2  TST.B   (A6+0x16)>                                       {}
            <MI 13cf6  BNE     0x13cfc>                                         {}
        <POP 13cf8-13cfc Naked>                              Σ0         →0x13e32
            <MI 13cf8  BRA     0x13e32>                                         {}
        <POP 13cfc-13d0c Naked>                              Σ0 Δ-4     ↓ →0x13d18 ←0x13cf2
            <MI 13cfc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13cfe  MOVEA.L (A0),A0>                                         {}
            <MI 13d00  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 13d02  MOVE.B  (A0+0x3f),D0>                                    {[4, 'A0']}
            <MI 13d06  LSL.B   #0x7,D0>                                         {[4, 'A0']}
            <MI 13d08  LSR.B   #0x7,D0>                                         {[4, 'A0']}
            <MI 13d0a  BEQ     0x13d18>                                         {[4, 'A0']}
        <POP 13d0c-13d18 Naked>                              Σ-4 Δ+4    →0x13e00
            <MI 13d0c  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 13d0e  MOVE.B  #0x08,(A0)>                                      {[-4-]}
            <POP 13d12-13d14 StackAdj>                       Δ+4                {}
            <MI 13d14  BRA     0x13e00>                                         {}
        <POP 13d18-13d22 Naked>                              Σ-4        ↓ →0x13d38 ←0x13cfc
            <MI 13d18  MOVE.B  (A6+0x16),D0>                                    {[-4-]}
            <MI 13d1c  CMPI.B  #0x02,D0>                                        {[-4-]}
            <MI 13d20  BNE     0x13d38>                                         {[-4-]}
        <POP 13d22-13d32 Naked>                              Σ-4 Δ-4    ↓
            <MI 13d22  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 13d24  MOVE.L  (A0),-(A7)>                   Δ-4                {[-4-]|[4, '(A0)']}
            <Call 0x13d26 0x13630>                                              {[-4-]|[4, '(A0)']}
            <MI 13d2a  MOVE.L  (A0),(A7)>                                       {[-4-]|[4, '(A0)']}
            <Call 0x13d2c 0x12e20>                                              {[-4-]|[4, '(A0)']}
                _FS1037c(MOD a : File)
        <POP 13d32-13d38 Naked>                              Σ-8 Δ+8    →0x13e3c ←0x13d9e
            <POP 13d32-13d34 StackAdj>                       Δ+8                {}
            <MI 13d34  BRA     0x13e3c>                                         {}
        <POP 13d38-13d42 Naked>                              Σ-4        ↓ →0x13dd6 ←0x13d18
            <MI 13d38  MOVE.B  (A6+0x16),D0>                                    {[-4-]}
            <MI 13d3c  CMP.B   #0x01,D0>                                        {[-4-]}
            <MI 13d3e  BNE     0x13dd6>                                         {[-4-]}
        <POP 13d42-13d4a Naked>                              Σ-4        ↓ →0x13d54
            <MI 13d42  MOVEA.L (A6+0x10),A0>                                    {[-4-]}
            <MI 13d46  CMPA.W  #0x01,A0>                                        {[-4-]}
            <MI 13d48  BNE     0x13d54>                                         {[-4-]}
        <POP 13d4a-13d54 Naked>                              Σ-4 Δ+4    →0x13e00
            <MI 13d4a  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 13d4c  MOVE.B  #0x01,(A0)>                                      {[-4-]}
            <POP 13d4e-13d50 StackAdj>                       Δ+4                {}
            <MI 13d50  BRA     0x13e00>                                         {}
        <POP 13d54-13d6c Naked>                              Σ-4        ↓ →0x13d70 ←0x13d42
            <MI 13d54  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 13d56  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x10)']}
            <Pointer.fp 0x13d5a <LVAR -0x004 @ 4(r)>>        Δ-4                {[-4-]|[4, '(A6+0x10)']|[@@-4]}
            <MI 13d5e  PEA.L   (A0)>                         Δ-4                {[-4-]|[4, '(A6+0x10)']|[@@-4]|[4, '^(A0)']}
            <Call 0x13d60 0x1345c>                                              {[-4-]|[4, '(A6+0x10)']|[@@-4]|[4, '^(A0)']}
            <POP 13d64-13d68 StackAdj>                       Δ+12               {[-4-]}
            <MI 13d68  TST.B   (A0)>                                            {[-4-]}
            <MI 13d6a  BEQ     0x13d70>                                         {[-4-]}
        <POP 13d6c-13d70 Naked>                              Σ-4 Δ+4    →0x13dd8
            <POP 13d6c-13d6e StackAdj>                       Δ+4                {}
            <MI 13d6e  BRA     0x13dd8>                                         {}
        <POP 13d70-13d82 Naked>                              Σ-4        ↓ →0x13d86 ←0x13d54
            <MI 13d70  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 13d72  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x4)']}
            <MI 13d76  PEA.L   (A0)>                         Δ-4                {[-4-]|[4, '(A6-0x4)']|[4, '^(A0)']}
            <Call 0x13d78 0x1370a>                                              {[-4-]|[4, '(A6-0x4)']|[4, '^(A0)']}
            <POP 13d7c-13d7e StackAdj>                       Δ+8                {[-4-]}
            <MI 13d7e  TST.B   (A0)>                                            {[-4-]}
            <MI 13d80  BEQ     0x13d86>                                         {[-4-]}
        <POP 13d82-13d86 Naked>                              Σ-4 Δ+4    →0x13dd8
            <POP 13d82-13d84 StackAdj>                       Δ+4                {}
            <MI 13d84  BRA     0x13dd8>                                         {}
        <POP 13d86-13d94 Naked>                              Σ-4        ↓ →0x13d9e ←0x13d70
            <MI 13d86  MOVEA.L (A6-0x4),A0>                                     {[-4-]}
            <MI 13d8a  MOVE.B  (A0+0x3f),D0>                                    {[-4-]}
            <MI 13d8e  LSL.B   #0x4,D0>                                         {[-4-]}
            <MI 13d90  LSR.B   #0x7,D0>                                         {[-4-]}
            <MI 13d92  BNE     0x13d9e>                                         {[-4-]}
        <POP 13d94-13d9e Naked>                              Σ-4 Δ+4    →0x13dd8
            <MI 13d94  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 13d96  MOVE.B  #0x06,(A0)>                                      {[-4-]}
            <POP 13d9a-13d9c StackAdj>                       Δ+4                {}
            <MI 13d9c  BRA     0x13dd8>                                         {}
        <POP 13d9e-13dd6 Naked>                              Σ-4 Δ-4    →0x13d32 ←0x13d86
            <MI 13d9e  MOVEA.L (A6-0x4),A0>                                     {[-4-]}
            <MI 13da2  MOVEA.L (A7),A1>                                         {[-4-]}
            <MI 13da4  LEA.L   (A0+0x20),A2>                                    {[-4-]}
            <MI 13da8  LEA.L   (A1+0x20),A1>                                    {[-4-]}
            <BlockMove 32,A1,A2>                                                {[-4-]}
            <MI 13db4  MOVE.B  #0x01,(A0+0x4c)>                                 {[-4-]}
            <MI 13db8  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 13dba  MOVE.L  (A0),-(A7)>                   Δ-4                {[-4-]|[4, '(A0)']}
            <Call 0x13dbc 0x13630>                                              {[-4-]|[4, '(A0)']}
            <MI 13dc0  MOVE.L  (A6-0x4),(A7)>                                   {[-4-]|[4, '(A6-0x4)']}
            <Call 0x13dc4 0x1358e>                                              {[-4-]|[4, '(A6-0x4)']}
            <POP 13dc8-13dca StackAdj>                       Δ+4                {[-4-]}
            <Pointer.fp 0x13dca <LVAR -0x004 @ 4(r)>>        Δ-4                {[-4-]|[@@-4]}
            <Call 0x13dce 0x1338a>                                              {[-4-]|[@@-4]}
            <MI 13dd2  BRA     0x13d32>                                         {[-4-]|[@@-4]}
        <POP 13dd6-13dd8 Naked>                              Σ-4 Δ+4    ↓ ←0x13d38
            <POP 13dd6-13dd8 StackAdj>                       Δ+4                {}
        <POP 13dd8-13e00 Naked>                              Σ0         →0x13e32 ←0x13d6c ←0x13d82 ←0x13d94
            <MI 13dd8  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 13dda  MOVE.B  (A0),-(A7)>                   Δ-2                {[2, '(A0)']}
            <MI 13ddc  MOVE.B  (A6+0x14),-(A7)>              Δ-2                {[2, '(A0)']|[2, '(A6+0x14)']}
            <POP 13de0-13de2 StackAdj>                       Δ-4                {[2, '(A0)']|[2, '(A6+0x14)']|[-4-]}
            <MI 13de2  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[2, '(A0)']|[2, '(A6+0x14)']|[-4-]|[4, '(A6+0x10)']}
            <Call 0x13de6 0x10ef2>                                              {[2, '(A0)']|[2, '(A6+0x14)']|[-4-]|[4, '(A6+0x10)']}
                _StringDup(a : String) : String
            <POP 13dec-13dee StackAdj>                       Δ+4                {[2, '(A0)']|[2, '(A6+0x14)']|[-4-]}
            <Call 0x13dee 0x132fc>                                              {[2, '(A0)']|[2, '(A6+0x14)']|[-4-]}
            <POP 13df2-13df4 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x13df4 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x13df8 0x1338a>                                              {[@@-4]}
            <POP 13dfc-13dfe StackAdj>                       Δ+4                {}
            <MI 13dfe  BRA     0x13e32>                                         {}
        <POP 13e00-13e32 Naked>                              Σ0         ↓ ←0x13d0c ←0x13d4a
            <MI 13e00  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13e02  MOVEA.L (A0),A0>                                         {}
            <POP 13e04-13e06 StackAdj>                       Δ-30               {[-30-]}
            <MI 13e06  MOVEA.L A7,A1>                                           {[-30-]}
            <BlockMove 30,A0,A1>                                                {[-30-]}
            <MI 13e10  MOVEA.L (A6+0xc),A0>                                     {[-30-]}
            <MI 13e12  MOVE.B  (A0),-(A7)>                   Δ-2                {[-30-]|[2, '(A0)']}
            <MI 13e14  MOVE.B  (A6+0x14),-(A7)>              Δ-2                {[-30-]|[2, '(A0)']|[2, '(A6+0x14)']}
            <POP 13e18-13e1a StackAdj>                       Δ-4                {[-30-]|[2, '(A0)']|[2, '(A6+0x14)']|[-4-]}
            <Lit 0x13e1a>                                                       {[-30-]|[2, '(A0)']|[2, '(A6+0x14)']|[$$…]}
                <Pointer.sp 0x13e1a 8>                       Δ-4        
                <Const 0x13e1e 0x1.2>                        Δ-2        
                <Const 0x13e20 0x1e.2>                       Δ-2        
                <Call 0x13e22 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 13e28-13e2a StackAdj>                   Δ+8        
            <Call 0x13e2a 0x132fc>                                              {[-30-]|[2, '(A0)']|[2, '(A6+0x14)']|[$$…]}
            <POP 13e2e-13e32 StackAdj>                       Δ+38               {}
        <POP 13e32-13e3c Naked>                              Σ0         ↓ ←0x13cf8 ←0x13dd8
            <MI 13e32  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13e34  MOVE.L  (A0),-(A7)>                   Δ-4                {[4, '(A0)']}
            <Call 0x13e36 0x1358e>                                              {[4, '(A0)']}
            <POP 13e3a-13e3c StackAdj>                       Δ+4                {}
        <POP 13e3c-13e46 Naked>                              Σ0         ↓ ←0x13d32
            <MI 13e3c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13e3e  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x13e40 0x1338a>                                              {[4, '^(A0)']}
            <POP 13e44-13e46 StackAdj>                       Δ+4                {}
        <POP 13e46-13e4e Epilogue>                           Σ0         ←0x13cc2

0x13e4e


@ 13e4e
_WriteFreeList(void)
        <LVAR -0x004 @ 1(r)>
    <POP 13e4e-13ed6 Body>                                              
        <POP 13e4e-13e64 Prologue>                           Σ0         ↓
        <POP 13e64-13e6c RegCacheLoad>                       Σ0         ↓
        <POP 13e6c-13e74 Naked>                              Σ0         ↓ →0x13ea2
            <MI 13e6c  TST.W   0x10010>                                         {}
            <MI 13e72  BEQ     0x13ea2>                                         {}
        <POP 13e74-13e96 Naked>                              Σ0         ↓ →0x13ea2
            <Const 0x13e74 0x3.2>                            Δ-2                {[#3]}
            <Blob 0x13e76 [2] @>                             Δ-2                {[#3]|[«2""»]}
            <Const 0x13e7c 0x1.4>                            Δ-4                {[#3]|[«2""»]|[##1]}
            <MI 13e80  LEA.L   0x10022,A0>                                      {[#3]|[«2""»]|[##1]}
            <MI 13e86  MOVE.L  A0,-(A7)>                     Δ-4                {[#3]|[«2""»]|[##1]|[4, 'A0']}
            <Pointer.fp 0x13e88 <LVAR -0x004 @ 1(r)>>        Δ-4                {[#3]|[«2""»]|[##1]|[4, 'A0']|[@@-4]}
            <Call 0x13e8a 0x127b6>                                              {[#3]|[«2""»]|[##1]|[4, 'A0']|[@@-4]}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 13e90-13e92 StackAdj>                       Δ+16               {}
            <MI 13e92  TST.B   (A6-0x4)>                                        {}
            <MI 13e94  BNE     0x13ea2>                                         {}
        <POP 13e96-13ea2 Naked>                              Σ0         ↓
            <Const 0x13e96 0xa.4>                            Δ-4                {[##10]}
            <Call 0x13e9a 0x10220>                                              {[##10]}
                KC10_Panic(code : Long)
            <POP 13ea0-13ea2 StackAdj>                       Δ+4                {}
        <POP 13ea2-13ec2 Naked>                              Σ0         ↓ →0x13ece ←0x13e6c ←0x13e74
            <Const 0x13ea2 0x3.2>                            Δ-2                {[#3]}
            <Const 0x13ea4 0x4.2>                            Δ-2                {[#3]|[#4]}
            <Const 0x13ea8 0x1.4>                            Δ-4                {[#3]|[#4]|[##1]}
            <MI 13eac  LEA.L   0x1000e,A0>                                      {[#3]|[#4]|[##1]}
            <MI 13eb2  MOVE.L  A0,-(A7)>                     Δ-4                {[#3]|[#4]|[##1]|[4, 'A0']}
            <Pointer.fp 0x13eb4 <LVAR -0x004 @ 1(r)>>        Δ-4                {[#3]|[#4]|[##1]|[4, 'A0']|[@@-4]}
            <Call 0x13eb6 0x127b6>                                              {[#3]|[#4]|[##1]|[4, 'A0']|[@@-4]}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 13ebc-13ebe StackAdj>                       Δ+16               {}
            <MI 13ebe  TST.B   (A6-0x4)>                                        {}
            <MI 13ec0  BNE     0x13ece>                                         {}
        <POP 13ec2-13ece Naked>                              Σ0         ↓
            <Const 0x13ec2 0x9.4>                            Δ-4                {[##9]}
            <Call 0x13ec6 0x10220>                                              {[##9]}
                KC10_Panic(code : Long)
            <POP 13ecc-13ece StackAdj>                       Δ+4                {}
        <POP 13ece-13ed6 Epilogue>                           Σ0         ←0x13ea2

0x13ed6


@ 13ed6
_MountDisk(drive : Word ; VAR status : Byte)
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x00a @ 1(r)>
        <LVAR -0x408 2(r)>
        <LVAR -0x40a @ 2(r)>
    <POP 13ed6-14036 Body>                                              
        <POP 13ed6-13eec Prologue>                           Σ0         ↓
        <POP 13eec-13ef6 RegCacheLoad>                       Σ0         ↓
        <POP 13ef6-13f50 Naked>                              Σ0         ↓ →0x13f54
            <MI 13ef6  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x13ef8 0x14732>                                              {[#0]}
                _Set_is_open_ERROR_LOG(a : Bool)
            <POP 13efe-13f00 StackAdj>                       Δ+2                {}
            <MI 13f00  CLR.B   0x1b094>                                         {}
            <MI 13f06  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13f0a  MOVE.B  #0x0c,(A0)>                                      {}
            <MI 13f0e  MOVE.W  (A6+0xc),0x10008>                                {}
            <MI 13f16  MOVE.L  #0x01,0x10026>                                   {}
            <MI 13f1c  MOVE.W  #0x7fff,0x1000a>                                 {}
            <MI 13f24  MOVE.W  #0x7fff,0x1000c>                                 {}
            <MI 13f2c  MOVE.L  #0x01,0x20020>                                   {}
            <Const 0x13f32 0x2.2>                            Δ-2                {[#2]}
            <Const 0x13f34 0x2.2>                            Δ-2                {[#2]|[#2]}
            <Const 0x13f36 0x1.4>                            Δ-4                {[#2]|[#2]|[##1]}
            <MI 13f3a  LEA.L   (A6-0x40a),A0>                                   {[#2]|[#2]|[##1]}
            <MI 13f3c  MOVE.L  A0,-(A7)>                     Δ-4                {[#2]|[#2]|[##1]|[4, 'A0']}
            <Pointer.fp 0x13f3e <LVAR -0x00a @ 1(r)>>        Δ-4                {[#2]|[#2]|[##1]|[4, 'A0']|[@@-10]}
            <Call 0x13f42 0x127b6>                                              {[#2]|[#2]|[##1]|[4, 'A0']|[@@-10]}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 13f48-13f4a StackAdj>                       Δ+16               {}
            <MI 13f4a  TST.B   (A6-0xa)>                                        {}
            <MI 13f4e  BNE     0x13f54>                                         {}
        <POP 13f50-13f54 Naked>                              Σ0         →0x1402e
            <MI 13f50  BRA     0x1402e>                                         {}
        <POP 13f54-13f64 Naked>                              Σ0         ↓ →0x13f70 ←0x13ef6
            <MI 13f54  LEA.L   (A6-0x40a),A0>                                   {}
            <MI 13f56  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 13f58  MOVEA.L (A7)+,A3>                     Δ+4                {}
            <MI 13f5a  MOVE.W  (A3+0x2),D0>                                     {}
            <MI 13f5e  CMPI.W  #0x7fed,D0>                                      {}
            <MI 13f62  BEQ     0x13f70>                                         {}
        <POP 13f64-13f70 Naked>                              Σ0         →0x1402e
            <MI 13f64  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13f68  MOVE.B  #0x0d,(A0)>                                      {}
            <MI 13f6c  BRA     0x1402e>                                         {}
        <POP 13f70-13f76 Naked>                              Σ0         ↓ →0x13f82 ←0x13f54
            <MI 13f70  TST.B   (A3+0x34)>                                       {}
            <MI 13f74  BNE     0x13f82>                                         {}
        <POP 13f76-13f82 Naked>                              Σ0         →0x1402e
            <MI 13f76  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 13f7a  MOVE.B  #0x0e,(A0)>                                      {}
            <MI 13f7e  BRA     0x1402e>                                         {}
        <POP 13f82-13fc8 Naked>                              Σ0         ↓ →0x13fca ←0x13f70
            <MI 13f82  CLR.L   D0>                                              {}
            <MI 13f84  MOVE.B  (A3+0xb),D0>                                     {}
            <MI 13f88  ASR.W   #0x1,D0>                                         {}
            <MI 13f8a  MOVE.W  D0,0x1000a>                                      {}
            <MI 13f90  CLR.L   D1>                                              {}
            <MI 13f92  MOVE.B  (A3+0xa),D1>                                     {}
            <MI 13f96  MULU.W  D1,D0>                                           {}
            <POP 0x13f98 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 13fa2  MOVE.W  D0,0x1000c>                                      {}
            <Const 0x13fa8 0x2.2>                            Δ-2                {[#2]}
            <Const 0x13faa 0x4.2>                            Δ-2                {[#2]|[#4]}
            <Const 0x13fae 0x1.4>                            Δ-4                {[#2]|[#4]|[##1]}
            <MI 13fb2  LEA.L   (A6-0x40a),A0>                                   {[#2]|[#4]|[##1]}
            <MI 13fb4  MOVE.L  A0,-(A7)>                     Δ-4                {[#2]|[#4]|[##1]|[4, 'A0']}
            <Pointer.fp 0x13fb6 <LVAR -0x00a @ 1(r)>>        Δ-4                {[#2]|[#4]|[##1]|[4, 'A0']|[@@-10]}
            <Call 0x13fba 0x127b6>                                              {[#2]|[#4]|[##1]|[4, 'A0']|[@@-10]}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 13fc0-13fc2 StackAdj>                       Δ+16               {}
            <MI 13fc2  TST.B   (A6-0xa)>                                        {}
            <MI 13fc6  BNE     0x13fca>                                         {}
        <POP 13fc8-13fca Naked>                              Σ0         →0x1402e
            <MI 13fc8  BRA     0x1402e>                                         {}
        <POP 13fca-13fe8 Naked>                              Σ0         ↓ →0x13ff0 ←0x13f82
            <MI 13fca  LEA.L   (A6-0x40a),A0>                                   {}
            <MI 13fcc  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 13fce  MOVEA.L (A7)+,A4>                     Δ+4                {}
            <MI 13fd0  LEA.L   0x1000e,A0>                                      {}
            <MI 13fd6  MOVEA.L A4,A1>                                           {}
            <BlockMove 20,A1,A0>                                                {}
            <MI 13fe0  TST.W   0x10010>                                         {}
            <MI 13fe6  BNE     0x13ff0>                                         {}
        <POP 13fe8-13ff0 Naked>                              Σ0         →0x14022
            <MI 13fe8  CLR.W   0x10022>                                         {}
            <MI 13fee  BRA     0x14022>                                         {}
        <POP 13ff0-14012 Naked>                              Σ0         ↓ →0x14014 ←0x13fca
            <Const 0x13ff0 0x2.2>                            Δ-2                {[#2]}
            <Blob 0x13ff2 [2] @>                             Δ-2                {[#2]|[«2""»]}
            <Const 0x13ff8 0x1.4>                            Δ-4                {[#2]|[«2""»]|[##1]}
            <MI 13ffc  LEA.L   (A6-0x40a),A0>                                   {[#2]|[«2""»]|[##1]}
            <MI 13ffe  MOVE.L  A0,-(A7)>                     Δ-4                {[#2]|[«2""»]|[##1]|[4, 'A0']}
            <Pointer.fp 0x14000 <LVAR -0x00a @ 1(r)>>        Δ-4                {[#2]|[«2""»]|[##1]|[4, 'A0']|[@@-10]}
            <Call 0x14004 0x127b6>                                              {[#2]|[«2""»]|[##1]|[4, 'A0']|[@@-10]}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 1400a-1400c StackAdj>                       Δ+16               {}
            <MI 1400c  TST.B   (A6-0xa)>                                        {}
            <MI 14010  BNE     0x14014>                                         {}
        <POP 14012-14014 Naked>                              Σ0         →0x1402e
            <MI 14012  BRA     0x1402e>                                         {}
        <POP 14014-14022 Naked>                              Σ0         ↓ ←0x13ff0
            <MI 14014  MOVE.W  (A6-0x40a),0x10022>                              {}
            <MI 1401a  MOVE.W  (A6-0x408),0x10024>                              {}
        <POP 14022-1402e Naked>                              Σ0         ↓ ←0x13fe8
            <MI 14022  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 14026  CLR.B   (A0)>                                            {}
            <MI 14028  MOVE.B  #0x01,0x1b094>                                   {}
        <POP 1402e-14036 Epilogue>                           Σ0         ←0x13f50 ←0x13f64 ←0x13f76 ←0x13fc8 ←0x14012

0x14036


@ 14036
_FSCALL_10398
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x006 @ 2(rw)>
        <LVAR -0x008 @ 1(r)>
    <POP 14036-1410c Body>                                              
        <POP 14036-1404c Prologue>                           Σ0         ↓
        <POP 1404c-14058 RegCacheLoad>                       Σ0         ↓
        <POP 14058-14076 Naked>                              Σ0         ↓ →0x140ca
            <Call 0x14058 0x15b76>                                              {}
                _FSCALL_10400
            <Pointer.fp 0x1405e <LVAR -0x008 @ 1(r)>>        Δ-4                {[@@-8]}
            <Pointer.fp 0x14062 <LVAR -0x006 @ 2(rw)>>       Δ-4                {[@@-8]|[@@-6]}
            <Call 0x14064 0x10200>                                              {[@@-8]|[@@-6]}
                KC00_GetBootDev(VAR a : Byte; VAR b : Word)
            <POP 1406a-1406c StackAdj>                       Δ+8                {}
            <MI 1406c  MOVE.B  (A6-0x8),D0>                                     {}
            <MI 14070  CMPI.B  #0x02,D0>                                        {}
            <MI 14074  BEQ     0x140ca>                                         {}
        <POP 14076-140ca Naked>                              Σ0         ↓
            <MI 14076  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x14078 0x15c70>                                              {[#0]}
                _SetSomeKindOfFlag(a : Byte)
            <POP 1407e-1407f StackAdj>                       Δ+2                {}
            <Const 0x1407f 0x1.2>                            Δ-2                {[#1]}
            <Const 0x14080 0x1.2>                            Δ-2                {[#1]|[#1]}
            <Call 0x14082 0x10210>                                              {[#1]|[#1]}
                KC08_PortSomething(port: Word; b: Byte)
            <POP 14088-1408a StackAdj>                       Δ+4                {}
            <Blob 0x1408a [42] @>                            Δ-42               {[«42""»]}
            <POP 14096-14098 StackAdj>                       Δ-8                {[«42""»]|[-8-]}
            <Lit 0x14098 42>                                                    {[«42""»]|[-4-]|[$$Enter unit number of disk to initialize :_]}
            <Const 0x140a8 0x0.4>                            Δ-4                {[«42""»]|[-4-]|[$$Enter unit number of disk to initialize :_]|[##0]}
            <Const 0x140ac 0xf.4>                            Δ-4                {[«42""»]|[-4-]|[$$Enter unit number of disk to initialize :_]|[##0]|[##15]}
            <Call 0x140b0 0x15942>                                              {[«42""»]|[-4-]|[$$Enter unit number of disk to initialize :_]|[##0]|[##15]}
                _AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 140b6-140ba StackAdj>                       Δ+12               {[«42""»]|[-4-]}
            <MI 140ba  MOVE.L  (A7)+,D0>                     Δ+4                {[«42""»]}
            <POP 0x140bc LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[«42""»]}
            <POP 140c6-140c8 StackAdj>                       Δ+42               {}
            <MI 140c8  MOVE.W  D0,(A6-0x6)>                                     {}
        <POP 140ca-140de Naked>                              Σ0         ↓ →0x140fe ←0x14058
            <MI 140ca  MOVE.W  (A6-0x6),D0>                                     {}
            <POP 0x140cc LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {}
            <MI 140d0  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x140d2 <LVAR -0x004 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-4]}
            <Call 0x140d4 0x13ed6>                                              {[2, 'D0']|[@@-4]}
                _MountDisk(drive : Word ; VAR status : Byte)
            <POP 140d8-140da StackAdj>                       Δ+6                {}
            <MI 140da  TST.B   (A6-0x4)>                                        {}
            <MI 140dc  BEQ     0x140fe>                                         {}
        <POP 140de-140fe Naked>                              Σ0         ↓
            <POP 140de-140e0 StackAdj>                       Δ-4                {[-4-]}
            <MI 140e0  MOVE.B  (A6-0x4),-(A7)>               Δ-2                {[-4-]|[2, '(A6-0x4)']}
            <Call 0x140e2 0x142fe>                                              {[-4-]|[2, '(A6-0x4)']}
                _FsErrMsgStr(err: Byte) : String
            <POP 140e8-140ea StackAdj>                       Δ+2                {[-4-]}
            <Call 0x140ea 0x154a2>                                              {[-4-]}
                _WriteConsoleStringCrLf(str : String)
            <POP 140f0-140f2 StackAdj>                       Δ+4                {}
            <Const 0x140f2 0xf.4>                            Δ-4                {[##15]}
            <Call 0x140f6 0x10220>                                              {[##15]}
                KC10_Panic(code : Long)
            <POP 140fc-140fe StackAdj>                       Δ+4                {}
        <POP 140fe-14104 Naked>                              Σ0         ↓ ←0x140ca
            <Call 0x140fe 0x1444a>                                              {}
                _Open_ERROR_LOG(void)
        <POP 14104-1410c Epilogue>                           Σ0         

0x1410c


@ 1410c
        <LVAR  0x010 1(rw)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 1410c-14184 Body>                                              
        <POP 1410c-14122 Prologue>                           Σ0         ↓
        <POP 14122-14128 RegCacheLoad>                       Σ0         ↓
        <POP 14128-1413a Naked>                              Σ0         ↓ →0x14144
            <MI 14128  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 1412c  MOVEA.L (A6+0x8),A1>                                     {}
            <MI 14130  MOVE.W  (A0+0x42),D0>                                    {}
            <MI 14134  CMP.W   (A1+0x42),D0>                                    {}
            <MI 14138  BNE     0x14144>                                         {}
        <POP 1413a-14144 Naked>                              Σ0         ↓ →0x14148
            <MI 1413a  MOVE.W  (A0+0x20),D0>                                    {}
            <MI 1413e  CMP.W   (A1+0x20),D0>                                    {}
            <MI 14142  BEQ     0x14148>                                         {}
        <POP 14144-14148 Naked>                              Σ0         →0x1417c ←0x14128
            <MI 14144  CLR.B   (A6+0x10)>                                       {}
            <MI 14146  BRA     0x1417c>                                         {}
        <POP 14148-1414e Naked>                              Σ0         ↓ ←0x1413a
            <MI 14148  MOVE.B  #0x01,(A6+0x10)>                                 {}
            <MI 1414c  MOVEQ.L #0x00,D7>                                        {}
        <POP 1414e-1416a Naked>                              Σ0         ↓ →0x14174 ←0x14176
            <MI 1414e  MOVEA.L (A6+0xc),A0>                                     {}
            <POP 0x14152 LimitCheck 0x0 ≤ D7 ≤ 0x5>                             {}
            <MI 14158  MOVE.L  D7,D0>                                           {}
            <MI 1415a  ASL.L   #0x2,D0>                                         {}
            <MI 1415c  MOVEA.L (A6+0x8),A1>                                     {}
            <MI 14160  MOVE.W  (A0+D0.L+#0x22),D1>                              {}
            <MI 14164  CMP.W   (A1+D0.L+#0x22),D1>                              {}
            <MI 14168  BNE     0x14174>                                         {}
        <POP 1416a-14174 Naked>                              Σ0         ↓ →0x14176
            <MI 1416a  MOVE.W  (A0+D0.L+#0x24),D1>                              {}
            <MI 1416e  CMP.W   (A1+D0.L+#0x24),D1>                              {}
            <MI 14172  BEQ     0x14176>                                         {}
        <POP 14174-14176 Naked>                              Σ0         ↓ ←0x1414e
            <MI 14174  CLR.B   (A6+0x10)>                                       {}
        <POP 14176-1417c Naked>                              Σ0         ↓ →0x1414e ←0x1416a
            <MI 14176  ADDQ.L  #0x1,D7>                                         {}
            <MI 14178  CMP.L   #0x05,D7>                                        {}
            <MI 1417a  BLE     0x1414e>                                         {}
        <POP 1417c-14184 Epilogue>                           Σ0         ←0x14144

0x14184


@ 14184
_InitProg(void)
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x010 @ 1(r)>
        <LVAR -0x018 @ 4(rw)>
    <POP 14184-142fe Body>                                              
        <POP 14184-1419a Prologue>                           Σ0         ↓
        <POP 1419a-141a4 RegCacheLoad>                       Σ0         ↓
        <POP 141a4-141c2 Naked>                              Σ0         ↓ →0x14208
            <Call 0x141a4 0x15b76>                                              {}
                _FSCALL_10400
            <MI 141aa  MOVEA.L 0x20020,A3>                                      {}
            <Blob 0x141b0 [2] @>                             Δ-2                {[«2""»]}
            <Pointer.fp 0x141b6 <LVAR -0x010 @ 1(r)>>        Δ-4                {[«2""»]|[@@-16]}
            <Call 0x141b8 0x13ed6>                                              {[«2""»]|[@@-16]}
                _MountDisk(drive : Word ; VAR status : Byte)
            <POP 141bc-141be StackAdj>                       Δ+6                {}
            <MI 141be  TST.B   (A6-0x10)>                                       {}
            <MI 141c0  BEQ     0x14208>                                         {}
        <POP 141c2-14208 Naked>                              Σ0         ↓
            <Blob 0x141c2 [22] @>                            Δ-22               {[«22""»]}
            <POP 141ce-141d0 StackAdj>                       Δ-8                {[«22""»]|[-8-]}
            <Lit 0x141d0 22>                                                    {[«22""»]|[-4-]|[$$Fatal restart error :_]}
            <POP 141e0-141e2 StackAdj>                       Δ-6                {[«22""»]|[-4-]|[$$Fatal restart error :_]|[-6-]}
            <MI 141e2  MOVE.B  (A6-0x10),(A7)>                                  {[«22""»]|[-4-]|[$$Fatal restart error :_]|[-6-]}
            <Call 0x141e4 0x142fe>                                              {[«22""»]|[-4-]|[$$Fatal restart error :_]|[-6-]}
                _FsErrMsgStr(err: Byte) : String
            <POP 141ea-141ec StackAdj>                       Δ+2                {[«22""»]|[-4-]|[$$Fatal restart error :_]|[-4-]}
            <Call 0x141ec 0x10f34>                                              {[«22""»]|[-4-]|[$$Fatal restart error :_]|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 141f2-141f4 StackAdj>                       Δ+8                {[«22""»]|[-4-]}
            <Call 0x141f4 0x154a2>                                              {[«22""»]|[-4-]}
                _WriteConsoleStringCrLf(str : String)
            <POP 141fa-141fc StackAdj>                       Δ+26               {}
            <Const 0x141fc 0xb.4>                            Δ-4                {[##11]}
            <Call 0x14200 0x10220>                                              {[##11]}
                KC10_Panic(code : Long)
            <POP 14206-14208 StackAdj>                       Δ+4                {}
        <POP 14208-1420a Naked>                              Σ0         ↓ ←0x141a4
            <MI 14208  MOVEA.L A3,A4>                                           {}
        <POP 1420a-14210 Naked>                              Σ0         ↓ →0x14296 ←0x1426a
            <MI 1420a  CMPA.W  #0x01,A4>                                        {}
            <MI 1420c  BEQ     0x14296>                                         {}
        <POP 14210-14254 Naked>                              Σ0         ↓ →0x14256
            <POP 14210-14212 StackAdj>                       Δ-30               {[-30-]}
            <MI 14212  MOVEA.L A7,A0>                                           {[-30-]}
            <MI 14214  MOVEA.L A4,A1>                                           {[-30-]}
            <BlockMove 30,A1,A0>                                                {[-30-]}
            <POP 1421e-14220 StackAdj>                       Δ-4                {[-34-]}
            <Lit 0x14220>                                                       {[-30-]|[$$…]}
                <Pointer.sp 0x14220 4>                       Δ-4        
                <Const 0x14224 0x1.2>                        Δ-2        
                <Const 0x14226 0x1e.2>                       Δ-2        
                <Call 0x14228 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 1422e-14230 StackAdj>                   Δ+8        
            <MI 14230  MOVE.L  (A7)+,(A6-0x18)>              Δ+4                {[-30-]}
            <POP 14234-14236 StackAdj>                       Δ+26               {[-4-]}
            <MI 14236  MOVE.L  (A6-0x18),(A7)>                                  {[4, '(A6-0x18)']}
            <MI 1423a  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x18)']|[#0]}
            <Const 0x1423c 0x1.2>                            Δ-2                {[4, '(A6-0x18)']|[#0]|[#1]}
            <Const 0x1423e 0x0.4>                            Δ-4                {[4, '(A6-0x18)']|[#0]|[#1]|[##0]}
            <Pointer.fp 0x14242 <LVAR -0x010 @ 1(r)>>        Δ-4                {[4, '(A6-0x18)']|[#0]|[#1]|[##0]|[@@-16]}
            <Pointer.fp 0x14244 <LVAR -0x006 @ 4(r)>>        Δ-4                {[4, '(A6-0x18)']|[#0]|[#1]|[##0]|[@@-16]|[@@-6]}
            <Call 0x14248 0x138a6>                                              {[4, '(A6-0x18)']|[#0]|[#1]|[##0]|[@@-16]|[@@-6]}
                _OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 1424c-14250 StackAdj>                       Δ+20               {}
            <MI 14250  TST.B   (A6-0x10)>                                       {}
            <MI 14252  BEQ     0x14256>                                         {}
        <POP 14254-14256 Naked>                              Σ0         →0x142ae
            <MI 14254  BRA     0x142ae>                                         {}
        <POP 14256-14268 Naked>                              Σ0         ↓ →0x1426a ←0x14210
            <POP 14256-14258 StackAdj>                       Δ-2                {[-2-]}
            <MI 14258  MOVE.L  A4,-(A7)>                     Δ-4                {[-2-]|[4, 'A4']}
            <MI 1425a  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-2-]|[4, 'A4']|[4, '(A6-0x6)']}
            <Call 0x1425e 0x1410c>                                              {[-2-]|[4, 'A4']|[4, '(A6-0x6)']}
            <POP 14262-14264 StackAdj>                       Δ+8                {[-2-]}
            <MI 14264  TST.B   (A7)+>                        Δ+2                {}
            <MI 14266  BNE     0x1426a>                                         {}
        <POP 14268-1426a Naked>                              Σ0         →0x142ae
            <MI 14268  BRA     0x142ae>                                         {}
        <POP 1426a-14296 Naked>                              Σ0         →0x1420a ←0x14256
            <MI 1426a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x1426c 0x2.2>                            Δ-2                {[#0]|[#2]}
            <Const 0x14270 0x1.4>                            Δ-4                {[#0]|[#2]|[##1]}
            <Pointer.fp 0x14274 <LVAR -0x010 @ 1(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-16]}
            <Pointer.fp 0x14276 <LVAR -0x006 @ 4(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-16]|[@@-6]}
            <Call 0x1427a 0x13c7c>                                              {[#0]|[#2]|[##1]|[@@-16]|[@@-6]}
                _CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 1427e-14282 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x14282 <LVAR -0x018 @ 4(rw)>>       Δ-4                {[@@-24]}
            <Call 0x14286 0x10d76>                                              {[@@-24]}
                _FreeString(VAR a : String)
            <POP 1428c-1428e StackAdj>                       Δ+4                {}
            <MI 1428e  MOVEA.L (A4+0x44),A4>                                    {}
            <MI 14292  BRA     0x1420a>                                         {}
        <POP 14296-142a0 Naked>                              Σ0         ↓ →0x142ac ←0x1420a
            <MI 14296  MOVEA.L 0x20020,A0>                                      {}
            <MI 1429c  CMPA.W  #0x01,A0>                                        {}
            <MI 1429e  BEQ     0x142ac>                                         {}
        <POP 142a0-142ac Naked>                              Σ0         ↓
            <Const 0x142a0 0x1b.4>                           Δ-4                {[##27]}
            <Call 0x142a4 0x10220>                                              {[##27]}
                KC10_Panic(code : Long)
            <POP 142aa-142ac StackAdj>                       Δ+4                {}
        <POP 142ac-142ae Naked>                              Σ0         →0x142e6 ←0x14296
            <MI 142ac  BRA     0x142e6>                                         {}
        <POP 142ae-142e6 Naked>                              Σ0         ↓ ←0x14254 ←0x14268
            <Blob 0x142ae [40] @>                            Δ-40               {[«40""»]}
            <Const 0x142ba 0x1.2>                            Δ-2                {[«40""»]|[#1]}
            <POP 142bc-142be StackAdj>                       Δ-8                {[«40""»]|[#1]|[-8-]}
            <Lit 0x142be 40>                                                    {[«40""»]|[#1]|[-4-]|[$$File control block obsolete after pop ->]}
            <POP 142ce-142d0 StackAdj>                       Δ-4                {[«40""»]|[#1]|[-4-]|[$$File control block obsolete after pop ->]|[-4-]}
            <MI 142d0  MOVE.L  (A6-0x18),(A7)>                                  {[«40""»]|[#1]|[-4-]|[$$File control block obsolete after pop ->]|[4, '(A6-0x18)']}
            <Call 0x142d4 0x10f34>                                              {[«40""»]|[#1]|[-4-]|[$$File control block obsolete after pop ->]|[4, '(A6-0x18)']}
                _StringCat2(a, b : String) : String
            <POP 142da-142dc StackAdj>                       Δ+8                {[«40""»]|[#1]|[-4-]}
            <Call 0x142dc 0x14e0a>                                              {[«40""»]|[#1]|[-4-]}
                _PopProgram(status : Byte; msg : String)
            <POP 142e2-142e6 StackAdj>                       Δ+46               {}
        <POP 142e6-142f6 Naked>                              Σ0         ↓ ←0x142ac
            <MI 142e6  MOVE.L  A3,0x20020>                                      {}
            <Const 0x142ec 0x1.2>                            Δ-2                {[#1]}
            <Call 0x142ee 0x14732>                                              {[#1]}
                _Set_is_open_ERROR_LOG(a : Bool)
            <POP 142f4-142f6 StackAdj>                       Δ+2                {}
        <POP 142f6-142fe Epilogue>                           Σ0         

0x142fe


@ 142fe
_FsErrMsgStr(err: Byte) : String
        <LVAR  0x00a 4(w)>
        <LVAR  0x008 1(r)>
    <POP 142fe-14350 Body>                                              
        <POP 142fe-14314 Prologue>                           Σ0         ↓
        <POP 14314-14316 RegCacheLoad>                       Σ0         ↓
        <POP 14316-14348 Naked>                              Σ0         ↓
            <MI 14316  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 1431a  EXTB.W  D0>                                              {}
            <MI 1431c  MULS.W  #0x1e,D0>                                        {}
            <MI 1431e  LEA.L   0x1311c,A0>                                      {}
            <Blob 0x14322 [30] (A0+D0.W+#0x1e)>              Δ-30               {[«30»]}
            <POP 1432e-14330 StackAdj>                       Δ-4                {[«30»]|[-4-]}
            <Lit 0x14330>                                                       {[«30»]|[$$…]}
                <Pointer.sp 0x14330 4>                       Δ-4        
                <Const 0x14334 0x1.2>                        Δ-2        
                <Const 0x14338 0x1e.2>                       Δ-2        
                <Call 0x1433a 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 14340-14342 StackAdj>                   Δ+8        
            <MI 14342  MOVE.L  (A7)+,(A6+0xa)>               Δ+4                {[«30»]}
            <POP 14346-14348 StackAdj>                       Δ+30               {}
        <POP 14348-14350 Epilogue>                           Σ0         

0x1444a


@ 1444a
_Open_ERROR_LOG(void)
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(rw)>
    <POP 1444a-144d8 Body>                                              
        <POP 1444a-14460 Prologue>                           Σ0         ↓
        <POP 14460-14466 RegCacheLoad>                       Σ0         ↓
        <POP 14466-144ca Naked>                              Σ0         ↓ →0x144d0
            <MI 14466  CLR.B   0x200f1>                                         {}
            <MI 1446c  CLR.B   0x200f0>                                         {}
            <Blob 0x14472 [10] @>                            Δ-10               {[«10""»]}
            <POP 14484-14486 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x14486 9>                                                     {[«10""»]|[$$ERROR_LOG]}
            <MI 14498  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«10""»]}
            <POP 1449a-1449c StackAdj>                       Δ+6                {[-4-]}
            <MI 1449c  MOVE.L  (A6-0x8),(A7)>                                   {[4, '(A6-0x8)']}
            <MI 1449e  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x8)']|[#0]}
            <Const 0x144a0 0x1.2>                            Δ-2                {[4, '(A6-0x8)']|[#0]|[#1]}
            <Const 0x144a2 0x0.4>                            Δ-4                {[4, '(A6-0x8)']|[#0]|[#1]|[##0]}
            <Pointer.fp 0x144a6 <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6-0x8)']|[#0]|[#1]|[##0]|[@@-4]}
            <Const 0x144aa 0x200ec.4>                        Δ-4                {[4, '(A6-0x8)']|[#0]|[#1]|[##0]|[@@-4]|[##131308]}
            <Call 0x144b0 0x138a6>                                              {[4, '(A6-0x8)']|[#0]|[#1]|[##0]|[@@-4]|[##131308]}
                _OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 144b6-144ba StackAdj>                       Δ+20               {}
            <Pointer.fp 0x144ba <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x144bc 0x10d76>                                              {[@@-8]}
                _FreeString(VAR a : String)
            <POP 144c2-144c4 StackAdj>                       Δ+4                {}
            <MI 144c4  TST.B   (A6-0x4)>                                        {}
            <MI 144c8  BNE     0x144d0>                                         {}
        <POP 144ca-144d0 Naked>                              Σ0         ↓
            <MI 144ca  MOVE.B  #0x01,0x200f0>                                   {}
        <POP 144d0-144d8 Epilogue>                           Σ0         ←0x14466

0x144d8


@ 144d8
_Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x400 2(rw)>
        <LVAR -0x405 1(r)>
        <LVAR -0x406 2(rw)>
        <LVAR -0x408 @ 2(rw)>
        <LVAR -0x482 @>
        <LVAR -0x486 @>
        <LVAR -0x488 @ 1(w)>
        <LVAR -0x48a @>
    <POP 144d8-14732 Body>                                              
        <POP 144d8-144ee Prologue>                           Σ0         ↓
        <POP 144ee-144fe RegCacheLoad>                       Σ0         ↓
        <POP 144fe-14506 Naked>                              Σ0         ↓ →0x1452e
            <MI 144fe  TST.B   0x200f1>                                         {}
            <MI 14504  BEQ     0x1452e>                                         {}
        <POP 14506-1452e Naked>                              Σ0         ↓
            <Blob 0x14506 [36] @>                            Δ-36               {[«36""»]}
            <Const 0x14512 0x1.2>                            Δ-2                {[«36""»]|[#1]}
            <POP 14514-14516 StackAdj>                       Δ-4                {[«36""»]|[#1]|[-4-]}
            <Lit 0x14516 36>                                                    {[«36""»]|[#1]|[$$Disk errors while writing error log.]}
            <Call 0x14524 0x14e0a>                                              {[«36""»]|[#1]|[$$Disk errors while writing error log.]}
                _PopProgram(status : Byte; msg : String)
            <POP 1452a-1452e StackAdj>                       Δ+42               {}
        <POP 1452e-1453a Naked>                              Σ0         ↓ →0x14620 ←0x144fe
            <MI 1452e  MOVE.B  (A6+0xc),D0>                                     {}
            <MI 14532  EXTB.W  D0>                                              {}
            <MI 14534  CMP.W   #0x01,D0>                                        {}
            <MI 14536  BHI     0x14620>                                         {}
        <POP 1453a-14544 Naked>                              Σ0         →0x14548 →0x145b2
            <MI 1453a  ADD.W   D0,D0>                                           {}
            <MI 1453c  SWITCH  D0.W>                                            {}
        <POP 14548-1454a Naked>                              Σ0         ↓ ←0x1453a
            <MI 14548  MOVEQ.L #0x00,D7>                                        {}
        <POP 1454a-145b0 Naked>                              Σ0         ↓ →0x1454a ←0x1454a
            <MI 1454a  MOVE.L  D7,D4>                                           {}
            <MI 1454c  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x1454e 0x107ea>                                              {}
                _?muls_d3_d4
            <MI 14554  LEA.L   0x143e4,A0>                                      {}
            <Blob 0x14558 [6] (A0+D4.L)>                     Δ-6                {[«6»]}
            <POP 14568-1456a StackAdj>                       Δ-8                {[«6»]|[-8-]}
            <Lit 0x1456a>                                                       {[«6»]|[-4-]|[$$…]}
                <Pointer.sp 0x1456a 8>                       Δ-4        
                <Const 0x1456e 0x1.2>                        Δ-2        
                <Const 0x14570 0x6.2>                        Δ-2        
                <Call 0x14574 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 14576-14578 StackAdj>                   Δ+8        
            <POP 14576-14578 StackAdj>                       Δ-4                {[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 14578  MOVEA.L (A6+0x8),A0>                                     {[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 1457c  MOVE.L  D7,D0>                                           {[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 1457e  ASL.L   #0x1,D0>                                         {[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 14580  CLR.L   D1>                                              {[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 14582  MOVE.W  (A0+D0.L),D1>                                    {[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 14586  MOVE.L  D1,-(A7)>                     Δ-4                {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']}
            <Const 0x14588 0x4.4>                            Δ-4                {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']|[##4]}
            <Call 0x1458c 0x111b4>                                              {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']|[##4]}
                _Long2HexString(val : Long; ndig : Long) : String
            <POP 14592-14594 StackAdj>                       Δ+8                {[«6»]|[-4-]|[$$…]|[-4-]}
            <Call 0x14594 0x10f34>                                              {[«6»]|[-4-]|[$$…]|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 1459a-1459c StackAdj>                       Δ+8                {[«6»]|[-4-]}
            <Call 0x1459c 0x15384>                                              {[«6»]|[-4-]}
                _WriteConsoleString(str : String)
            <POP 145a2-145a6 StackAdj>                       Δ+10               {}
            <MI 145a6  ADDQ.L  #0x1,D7>                                         {}
            <MI 145a8  CMPI.L  #0x00000008,D7>                                  {}
            <MI 145ae  BLE     0x1454a>                                         {}
        <POP 145b0-145b2 Naked>                              Σ0         →0x1461a
            <MI 145b0  BRA     0x1461a>                                         {}
        <POP 145b2-145b4 Naked>                              Σ0         ↓ ←0x1453a
            <MI 145b2  MOVEQ.L #0x00,D7>                                        {}
        <POP 145b4-1461a Naked>                              Σ0         ↓ →0x145b4 ←0x145b4
            <MI 145b4  MOVE.L  D7,D4>                                           {}
            <MI 145b6  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x145b8 0x107ea>                                              {}
                _?muls_d3_d4
            <MI 145be  LEA.L   0x1441a,A0>                                      {}
            <Blob 0x145c2 [6] (A0+D4.L)>                     Δ-6                {[«6»]}
            <POP 145d2-145d4 StackAdj>                       Δ-8                {[«6»]|[-8-]}
            <Lit 0x145d4>                                                       {[«6»]|[-4-]|[$$…]}
                <Pointer.sp 0x145d4 8>                       Δ-4        
                <Const 0x145d8 0x1.2>                        Δ-2        
                <Const 0x145da 0x6.2>                        Δ-2        
                <Call 0x145de 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 145e0-145e2 StackAdj>                   Δ+8        
            <POP 145e0-145e2 StackAdj>                       Δ-4                {[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 145e2  MOVEA.L (A6+0x8),A0>                                     {[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 145e6  MOVE.L  D7,D0>                                           {[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 145e8  ASL.L   #0x1,D0>                                         {[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 145ea  CLR.L   D1>                                              {[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 145ec  MOVE.W  (A0+D0.L),D1>                                    {[«6»]|[-4-]|[$$…]|[-4-]}
            <MI 145f0  MOVE.L  D1,-(A7)>                     Δ-4                {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']}
            <Const 0x145f2 0x4.4>                            Δ-4                {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']|[##4]}
            <Call 0x145f6 0x111b4>                                              {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']|[##4]}
                _Long2HexString(val : Long; ndig : Long) : String
            <POP 145fc-145fe StackAdj>                       Δ+8                {[«6»]|[-4-]|[$$…]|[-4-]}
            <Call 0x145fe 0x10f34>                                              {[«6»]|[-4-]|[$$…]|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 14604-14606 StackAdj>                       Δ+8                {[«6»]|[-4-]}
            <Call 0x14606 0x15384>                                              {[«6»]|[-4-]}
                _WriteConsoleString(str : String)
            <POP 1460c-14610 StackAdj>                       Δ+10               {}
            <MI 14610  ADDQ.L  #0x1,D7>                                         {}
            <MI 14612  CMPI.L  #0x00000007,D7>                                  {}
            <MI 14618  BLE     0x145b4>                                         {}
        <POP 1461a-14620 Naked>                              Σ0         ↓ ←0x145b0
            <Call 0x1461a 0x153fc>                                              {}
                _WriteConsoleCrLf(void)
        <POP 14620-1462a Naked>                              Σ0         ↓ →0x1472a ←0x1452e
            <MI 14620  TST.B   0x200f0>                                         {}
            <MI 14626  BEQ     0x1472a>                                         {}
        <POP 1462a-14644 Naked>                              Σ0         ↓ →0x14650
            <MI 1462a  MOVE.B  (A6+0xc),(A6-0x488)>                             {}
            <Pointer.fp 0x14630 <LVAR -0x486 @>>             Δ-4                {[@@-1158]}
            <Call 0x14634 0x116e0>                                              {[@@-1158]}
                _GetRtc() : TimeStamp
            <POP 1463a-1463c StackAdj>                       Δ+4                {}
            <MI 1463c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 14640  CMPA.W  #0x01,A0>                                        {}
            <MI 14642  BEQ     0x14650>                                         {}
        <POP 14644-14650 Naked>                              Σ0         ↓
            <MI 14644  LEA.L   (A6-0x482),A1>                                   {}
            <BlockMove 122,A0,A1>                                               {}
        <POP 14650-1468c Naked>                              Σ0         ↓ →0x1469a ←0x1462a
            <MI 14650  MOVE.B  #0x01,0x200f1>                                   {}
            <Blob 0x14656 [4] 0x200ec>                       Δ-4                {[«4»]}
            <MI 1465c  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#0]}
            <MI 1465e  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#0]|[#0]}
            <Const 0x14660 0x200.2>                          Δ-2                {[«4»]|[#0]|[#0]|[#512]}
            <Const 0x14664 0x2.2>                            Δ-2                {[«4»]|[#0]|[#0]|[#512]|[#2]}
            <MI 14668  LEA.L   (A6-0x408),A0>                                   {[«4»]|[#0]|[#0]|[#512]|[#2]}
            <MI 1466a  MOVE.L  A0,-(A7)>                     Δ-4                {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']}
            <Pointer.fp 0x1466c <LVAR -0x48a @>>             Δ-4                {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-1162]}
            <Call 0x14670 0x13ad8>                                              {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-1162]}
                _ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 14676-1467a StackAdj>                       Δ+20               {}
            <MI 1467a  CLR.L   D0>                                              {}
            <MI 1467c  MOVE.W  (A6-0x406),D0>                                   {}
            <MI 1467e  ADDQ.L  #0x1,D0>                                         {}
            <MI 14680  ANDI.L  #0x000007ff,D0>                                  {}
            <MI 14686  MOVE.W  D0,(A6-0x406)>                                   {}
            <MI 14688  CMP.W   (A6-0x408),D0>                                   {}
            <MI 1468a  BNE     0x1469a>                                         {}
        <POP 1468c-1469a Naked>                              Σ0         ↓
            <MI 1468c  CLR.L   D0>                                              {}
            <MI 1468e  MOVE.W  (A6-0x408),D0>                                   {}
            <MI 14690  ADDQ.L  #0x1,D0>                                         {}
            <MI 14692  ANDI.L  #0x000007ff,D0>                                  {}
            <MI 14698  MOVE.W  D0,(A6-0x408)>                                   {}
        <POP 1469a-146a2 Naked>                              Σ0         ↓ →0x146b4 ←0x14650
            <MI 1469a  MOVE.W  (A6-0x406),D0>                                   {}
            <MI 1469c  CMP.W   (A6-0x400),D0>                                   {}
            <MI 146a0  BNE     0x146b4>                                         {}
        <POP 146a2-146b4 Naked>                              Σ0         ↓
            <MI 146a2  CLR.L   D0>                                              {}
            <MI 146a4  MOVE.W  (A6-0x400),D0>                                   {}
            <MI 146a8  ADDQ.L  #0x1,D0>                                         {}
            <MI 146aa  ANDI.L  #0x000007ff,D0>                                  {}
            <MI 146b0  MOVE.W  D0,(A6-0x400)>                                   {}
        <POP 146b4-1472a Naked>                              Σ0         ↓ ←0x1469a
            <MI 146b4  MOVE.W  (A6-0x406),D0>                                   {}
            <MI 146b6  LSR.W   #0x3,D0>                                         {}
            <MI 146b8  ADDQ.W  #0x1,D0>                                         {}
            <MI 146ba  MOVE.W  D0,D6>                                           {}
            <MI 146bc  CLR.L   D0>                                              {}
            <MI 146be  MOVE.B  (A6-0x405),D0>                                   {}
            <MI 146c2  LSL.B   #0x5,D0>                                         {}
            <MI 146c4  LSR.B   #0x5,D0>                                         {}
            <MI 146c6  ASL.W   #0x6,D0>                                         {}
            <MI 146c8  EXTW.L  D0>                                              {}
            <MI 146ca  MOVE.L  D0,D5>                                           {}
            <Blob 0x146cc [4] 0x200ec>                       Δ-4                {[«4»]}
            <POP 0x146d2 LimitCheck 0x0 ≤ D6 ≤ 0x4000>                          {[«4»]}
            <MI 146d6  MOVE.W  D6,-(A7)>                     Δ-2                {[«4»]|[2, 'D6']}
            <POP 0x146d8 LimitCheck 0x0 ≤ D5 ≤ 0x1ff>                           {[«4»]|[2, 'D6']}
            <MI 146e2  MOVE.W  D5,-(A7)>                     Δ-2                {[«4»]|[2, 'D6']|[2, 'D5']}
            <Const 0x146e4 0x40.2>                           Δ-2                {[«4»]|[2, 'D6']|[2, 'D5']|[#64]}
            <Const 0x146e8 0x2.2>                            Δ-2                {[«4»]|[2, 'D6']|[2, 'D5']|[#64]|[#2]}
            <MI 146ec  LEA.L   (A6-0x488),A0>                                   {[«4»]|[2, 'D6']|[2, 'D5']|[#64]|[#2]}
            <MI 146f0  MOVE.L  A0,-(A7)>                     Δ-4                {[«4»]|[2, 'D6']|[2, 'D5']|[#64]|[#2]|[4, 'A0']}
            <Pointer.fp 0x146f2 <LVAR -0x48a @>>             Δ-4                {[«4»]|[2, 'D6']|[2, 'D5']|[#64]|[#2]|[4, 'A0']|[@@-1162]}
            <Call 0x146f6 0x13baa>                                              {[«4»]|[2, 'D6']|[2, 'D5']|[#64]|[#2]|[4, 'A0']|[@@-1162]}
                _WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 146fc-14700 StackAdj>                       Δ+16               {[«4»]}
            <POP 14700-14701 StackAdj>                       Δ+4                {}
            <Blob 0x14701 [4] 0x200ec>                       Δ-4                {[«4»]}
            <MI 14706  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#0]}
            <MI 14708  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#0]|[#0]}
            <Const 0x1470a 0x200.2>                          Δ-2                {[«4»]|[#0]|[#0]|[#512]}
            <Const 0x1470e 0x2.2>                            Δ-2                {[«4»]|[#0]|[#0]|[#512]|[#2]}
            <MI 14712  LEA.L   (A6-0x408),A0>                                   {[«4»]|[#0]|[#0]|[#512]|[#2]}
            <MI 14714  MOVE.L  A0,-(A7)>                     Δ-4                {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']}
            <Pointer.fp 0x14716 <LVAR -0x48a @>>             Δ-4                {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-1162]}
            <Call 0x1471a 0x13baa>                                              {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-1162]}
                _WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 14720-14724 StackAdj>                       Δ+20               {}
            <MI 14724  CLR.B   0x200f1>                                         {}
        <POP 1472a-14732 Epilogue>                           Σ0         ←0x14620

0x14732


@ 14732
_Set_is_open_ERROR_LOG(a : Bool)
        <LVAR  0x008 1(r)>
    <POP 14732-14750 Body>                                              
        <POP 14732-14744 Prologue>                           Σ0         ↓
        <POP 14744-1474c Naked>                              Σ0         ↓
            <MI 14744  MOVE.B  (A6+0x8),0x200f0>                                {}
        <POP 1474c-14750 Epilogue>                           Σ0         

0x14b9a


@ 14b9a
        <LVAR  0x008 4(r)>
        <LVAR -0x003 @>
        <LVAR -0x004 @>
        <LVAR -0x008 @ 4(r)>
    <POP 14b9a-14bfe Body>                                              
        <POP 14b9a-14bb0 Prologue>                           Σ0         ↓
        <POP 14bb0-14bf6 Naked>                              Σ0         ↓
            <MI 14bb0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 14bb4  CLR.B   -(A7)>                        Δ-2                {[4, '(A6+0x8)']|[#0]}
            <Const 0x14bb6 0x2.2>                            Δ-2                {[4, '(A6+0x8)']|[#0]|[#2]}
            <Const 0x14bba 0x0.4>                            Δ-4                {[4, '(A6+0x8)']|[#0]|[#2]|[##0]}
            <Pointer.fp 0x14bbe <LVAR -0x004 @>>             Δ-4                {[4, '(A6+0x8)']|[#0]|[#2]|[##0]|[@@-4]}
            <Pointer.fp 0x14bc2 <LVAR -0x008 @ 4(r)>>        Δ-4                {[4, '(A6+0x8)']|[#0]|[#2]|[##0]|[@@-4]|[@@-8]}
            <Call 0x14bc6 0x138a6>                                              {[4, '(A6+0x8)']|[#0]|[#2]|[##0]|[@@-4]|[@@-8]}
                _OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 14bcc-14bd0 StackAdj>                       Δ+20               {}
            <MI 14bd0  MOVEA.L (A6-0x8),A0>                                     {}
            <Const 0x14bd4 0x13.2>                           Δ-2                {[#19]}
            <MI 14bd8  MOVE.W  (A0+0x24),-(A7)>              Δ-2                {[#19]|[2, '(A0+0x24)']}
            <MI 14bdc  MOVE.W  (A0+0x20),D0>                                    {[#19]|[2, '(A0+0x24)']}
            <MI 14be0  EXTW.L  D0>                                              {[#19]|[2, '(A0+0x24)']}
            <MI 14be2  MOVE.L  D0,-(A7)>                     Δ-4                {[#19]|[2, '(A0+0x24)']|[4, 'D0']}
            <Const 0x14be4 0x1.4>                            Δ-4                {[#19]|[2, '(A0+0x24)']|[4, 'D0']|[##1]}
            <Pointer.fp 0x14be8 <LVAR -0x003 @>>             Δ-4                {[#19]|[2, '(A0+0x24)']|[4, 'D0']|[##1]|[@@-3]}
            <Call 0x14bec 0x127b6>                                              {[#19]|[2, '(A0+0x24)']|[4, 'D0']|[##1]|[@@-3]}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 14bf2-14bf6 StackAdj>                       Δ+16               {}
        <POP 14bf6-14bfe Epilogue>                           Σ0         

0x14bfe


@ 14bfe
_WriteProgToSwapFile(prog: String; args: String)
        <LVAR  0x00c 4(rw)>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x006 @ 1(r)>
        <LVAR -0x00a @ 4(r)>
        <LVAR -0x00c @>
        <LVAR -0x010 @ 4(rw)>
    <POP 14bfe-14d66 Body>                                              
        <POP 14bfe-14c14 Prologue>                           Σ0         ↓
        <POP 14c14-14c2c RegCacheLoad>                       Σ0         ↓
        <POP 14c2c-14c32 Naked>                              Σ0         ↓ →0x14c3c
            <MI 14c2c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 14c2e  CMPA.W  #0x01,A0>                                        {}
            <MI 14c30  BNE     0x14c3c>                                         {}
        <POP 14c32-14c3c Naked>                              Σ0         ↓
            <Pointer.fp 0x14c32 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x14c34 0x10d42>                                              {[@@8]}
                _NewString(VAR a : String)
            <POP 14c3a-14c3c StackAdj>                       Δ+4                {}
        <POP 14c3c-14cf4 Naked>                              Σ0         ↓ →0x14d20 ←0x14c2c
            <MI 14c3c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 14c3e  LEA.L   0x1b0b0,A1>                                      {}
            <BlockMove 128,A0,A1>                                               {}
            <Pointer.fp 0x14c4c <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x14c4e 0x10d76>                                              {[@@8]}
                _FreeString(VAR a : String)
            <POP 14c54-14c56 StackAdj>                       Δ+4                {}
            <Blob 0x14c56 [10] @>                            Δ-10               {[«10""»]}
            <POP 14c62-14c64 StackAdj>                       Δ-8                {[«10""»]|[-8-]}
            <Lit 0x14c64 10>                                                    {[«10""»]|[-4-]|[$$SWAP.M200.]}
            <POP 14c6e-14c6f StackAdj>                       Δ-4                {[«10""»]|[-4-]|[$$SWAP.M200.]|[-4-]}
            <Blob 0x14c6f [4] 0x1b0aa>                       Δ-4                {[«10""»]|[-4-]|[$$SWAP.M200.]|[-4-]|[«4»]}
            <Call 0x14c70 0x110b0>                                              {[«10""»]|[-4-]|[$$SWAP.M200.]|[-4-]|[«4»]}
                _Long2String(a : Long) : String
            <POP 14c76-14c78 StackAdj>                       Δ+4                {[«10""»]|[-4-]|[$$SWAP.M200.]|[-4-]}
            <Call 0x14c78 0x10f34>                                              {[«10""»]|[-4-]|[$$SWAP.M200.]|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 14c7e-14c80 StackAdj>                       Δ+8                {[«10""»]|[-4-]}
            <MI 14c80  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«10""»]}
            <POP 14c84-14c86 StackAdj>                       Δ+10               {}
            <MI 14c86  ADDQ.L  #0x1,0x1b0aa>                                    {}
            <MI 14c88  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']}
            <Const 0x14c8c 0x1.2>                            Δ-2                {[4, '(A6-0x10)']|[#1]}
            <Const 0x14c8e 0x2.2>                            Δ-2                {[4, '(A6-0x10)']|[#1]|[#2]}
            <Const 0x14c90 0xffffff80.4>                     Δ-4                {[4, '(A6-0x10)']|[#1]|[#2]|[##4294967168]}
            <Pointer.fp 0x14c94 <LVAR -0x00c @>>             Δ-4                {[4, '(A6-0x10)']|[#1]|[#2]|[##4294967168]|[@@-12]}
            <Pointer.fp 0x14c98 <LVAR -0x00a @ 4(r)>>        Δ-4                {[4, '(A6-0x10)']|[#1]|[#2]|[##4294967168]|[@@-12]|[@@-10]}
            <Call 0x14c9c 0x138a6>                                              {[4, '(A6-0x10)']|[#1]|[#2]|[##4294967168]|[@@-12]|[@@-10]}
                _OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 14ca2-14ca6 StackAdj>                       Δ+20               {}
            <MI 14ca6  MOVEA.L (A6-0xa),A0>                                     {}
            <MI 14caa  MOVE.W  (A0+0x24),D7>                                    {}
            <MI 14cae  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x14cb0 0x2.2>                            Δ-2                {[#0]|[#2]}
            <Const 0x14cb2 0x1.4>                            Δ-4                {[#0]|[#2]|[##1]}
            <Pointer.fp 0x14cb6 <LVAR -0x00c @>>             Δ-4                {[#0]|[#2]|[##1]|[@@-12]}
            <Pointer.fp 0x14cba <LVAR -0x00a @ 4(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-12]|[@@-10]}
            <Call 0x14cbe 0x13c7c>                                              {[#0]|[#2]|[##1]|[@@-12]|[@@-10]}
                _CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 14cc4-14cc6 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x14cc6 <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x14cca 0x10d76>                                              {[@@-16]}
                _FreeString(VAR a : String)
            <POP 14cd0-14cd2 StackAdj>                       Δ+2                {[-2-]}
            <POP 14cd2-14cd3 StackAdj>                       Δ+2                {}
            <Const 0x14cd3 0x3.2>                            Δ-2                {[#3]}
            <MI 14cd6  MOVE.W  D7,-(A7)>                     Δ-2                {[#3]|[2, 'D7']}
            <Const 0x14cd8 0x80.4>                           Δ-4                {[#3]|[2, 'D7']|[##128]}
            <Const 0x14cdc 0x20000.4>                        Δ-4                {[#3]|[2, 'D7']|[##128]|[##131072]}
            <Pointer.fp 0x14ce2 <LVAR -0x006 @ 1(r)>>        Δ-4                {[#3]|[2, 'D7']|[##128]|[##131072]|[@@-6]}
            <Call 0x14ce6 0x127b6>                                              {[#3]|[2, 'D7']|[##128]|[##131072]|[@@-6]}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 14cec-14cee StackAdj>                       Δ+16               {}
            <MI 14cee  TST.B   (A6-0x6)>                                        {}
            <MI 14cf2  BNE     0x14d20>                                         {}
        <POP 14cf4-14d20 Naked>                              Σ0         ↓
            <Blob 0x14cf4 [16] @>                            Δ-16               {[«16""»]}
            <Const 0x14d04 0x1.2>                            Δ-2                {[«16""»]|[#1]}
            <POP 14d06-14d08 StackAdj>                       Δ-4                {[«16""»]|[#1]|[-4-]}
            <Lit 0x14d08 15>                                                    {[«16""»]|[#1]|[$$PUSH disk error]}
            <Call 0x14d16 0x14e0a>                                              {[«16""»]|[#1]|[$$PUSH disk error]}
                _PopProgram(status : Byte; msg : String)
            <POP 14d1c-14d20 StackAdj>                       Δ+22               {}
        <POP 14d20-14d5e Naked>                              Σ0         ↓ ←0x14c3c
            <Blob 0x14d20 [6] @>                             Δ-6                {[«6""»]}
            <POP 14d30-14d32 StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <MI 14d32  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[«6""»]|[-4-]|[4, '(A6+0xc)']}
            <POP 14d36-14d38 StackAdj>                       Δ-4                {[«6""»]|[-4-]|[4, '(A6+0xc)']|[-4-]}
            <Lit 0x14d38 5>                                                     {[«6""»]|[-4-]|[4, '(A6+0xc)']|[$$.M200]}
            <Call 0x14d46 0x10f34>                                              {[«6""»]|[-4-]|[4, '(A6+0xc)']|[$$.M200]}
                _StringCat2(a, b : String) : String
            <POP 14d4c-14d4e StackAdj>                       Δ+8                {[«6""»]|[-4-]}
            <MI 14d4e  MOVE.L  (A7)+,(A6+0xc)>               Δ+4                {[«6""»]}
            <POP 14d52-14d54 StackAdj>                       Δ+2                {[-4-]}
            <MI 14d54  MOVE.L  (A6+0xc),(A7)>                                   {[4, '(A6+0xc)']}
            <Call 0x14d58 0x14b9a>                                              {[4, '(A6+0xc)']}
            <POP 14d5c-14d5e StackAdj>                       Δ+4                {}
        <POP 14d5e-14d66 Epilogue>                           Σ0         

0x14d66


@ 14d66
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
    <POP 14d66-14dc8 Body>                                              
        <POP 14d66-14d78 Prologue>                           Σ0         ↓
        <POP 14d78-14dc4 Naked>                              Σ0         ↓
            <Call 0x14d78 0x153fc>                                              {}
                _WriteConsoleCrLf(void)
            <Blob 0x14d7e [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x14d82 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 14d86-14d88 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[-8-]}
            <Lit 0x14d88 8>                                                     {[«4""»]|[«4""»]|[-4-]|[$$Abort :_]}
            <POP 14d9a-14d9c StackAdj>                       Δ-6                {[«4""»]|[«4""»]|[-4-]|[$$Abort :_]|[-6-]}
            <MI 14d9c  MOVE.B  (A6+0xc),(A7)>                                   {[«4""»]|[«4""»]|[-4-]|[$$Abort :_]|[-6-]}
            <Call 0x14da0 0x15008>                                              {[«4""»]|[«4""»]|[-4-]|[$$Abort :_]|[-6-]}
                _ExpErrMsg(a: Byte) : String
            <POP 14da6-14da8 StackAdj>                       Δ+2                {[«4""»]|[«4""»]|[-4-]|[$$Abort :_]|[-4-]}
            <Call 0x14da8 0x10f34>                                              {[«4""»]|[«4""»]|[-4-]|[$$Abort :_]|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 14dae-14db0 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-4-]}
            <Call 0x14db0 0x154a2>                                              {[«4""»]|[«4""»]|[-4-]}
                _WriteConsoleStringCrLf(str : String)
            <POP 14db6-14db8 StackAdj>                       Δ+8                {[«4""»]}
            <MI 14db8  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Call 0x14dbc 0x154a2>                                              {[4, '(A6+0x8)']}
                _WriteConsoleStringCrLf(str : String)
            <POP 14dc2-14dc4 StackAdj>                       Δ+4                {}
        <POP 14dc4-14dc8 Epilogue>                           Σ0         

0x14dc8


@ 14dc8
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 14dc8-14e0a Body>                                              
        <POP 14dc8-14dda Prologue>                           Σ0         ↓
        <POP 14dda-14e06 Naked>                              Σ0         ↓
            <MI 14dda  MOVE.B  (A6+0x10),-(A7)>              Δ-2                {[2, '(A6+0x10)']}
            <MI 14dde  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[2, '(A6+0x10)']|[4, '(A6+0xc)']}
            <Call 0x14de2 0x14d66>                                              {[2, '(A6+0x10)']|[4, '(A6+0xc)']}
            <POP 14de6-14de8 StackAdj>                       Δ+2                {[2, '(A6+0x10)']|[-2-]}
            <MI 14de8  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Call 0x14dec 0x154a2>                                              {[4, '(A6+0x8)']}
                _WriteConsoleStringCrLf(str : String)
            <POP 14df2-14df4 StackAdj>                       Δ+4                {}
            <Call 0x14df4 0x153fc>                                              {}
                _WriteConsoleCrLf(void)
            <Const 0x14dfa 0x1d.4>                           Δ-4                {[##29]}
            <Call 0x14dfe 0x10220>                                              {[##29]}
                KC10_Panic(code : Long)
            <POP 14e04-14e06 StackAdj>                       Δ+4                {}
        <POP 14e06-14e0a Epilogue>                           Σ0         

0x14e0a


@ 14e0a
_PopProgram(status : Byte; msg : String)
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x002 @>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(w)>
        <LVAR -0x00a @>
    <POP 14e0a-14f5a Body>                                   Δ+28       
        <POP 14e0a-14e20 Prologue>                           Σ0         ↓
        <POP 14e20-14e2e RegCacheLoad>                       Σ0         ↓
        <POP 14e2e-14e36 Naked>                              Σ0         ↓ →0x14e44
            <MI 14e2e  TST.B   0x1b0a8>                                         {}
            <MI 14e34  BEQ     0x14e44>                                         {}
        <POP 14e36-14e44 Naked>                              Σ0         →0x14e4a
            <Const 0x14e36 0x16.4>                           Δ-4                {[##22]}
            <Call 0x14e3a 0x10220>                                              {[##22]}
                KC10_Panic(code : Long)
            <POP 14e40-14e42 StackAdj>                       Δ+4                {}
            <MI 14e42  BRA     0x14e4a>                                         {}
        <POP 14e44-14e4a Naked>                              Σ0         ↓ ←0x14e2e
            <MI 14e44  MOVE.B  #0x01,0x1b0a8>                                   {}
        <POP 14e4a-14e50 Naked>                              Σ0         ↓ →0x14e5a ←0x14e36
            <MI 14e4a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 14e4c  CMPA.W  #0x01,A0>                                        {}
            <MI 14e4e  BNE     0x14e5a>                                         {}
        <POP 14e50-14e5a Naked>                              Σ0         ↓
            <Pointer.fp 0x14e50 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x14e52 0x10d42>                                              {[@@8]}
                _NewString(VAR a : String)
            <POP 14e58-14e5a StackAdj>                       Δ+4                {}
        <POP 14e5a-14e64 Naked>                              Σ0         ↓ ←0x14e4a
            <MI 14e5a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Call 0x14e5c 0x14732>                                              {[#0]}
                _Set_is_open_ERROR_LOG(a : Bool)
            <POP 14e62-14e64 StackAdj>                       Δ+2                {}
        <POP 14e64-14e6e Naked>                              Σ0         ↓ →0x14e92 ←0x14e6e
            <MI 14e64  MOVEA.L 0x20020,A0>                                      {}
            <MI 14e6a  CMPA.W  #0x01,A0>                                        {}
            <MI 14e6c  BEQ     0x14e92>                                         {}
        <POP 14e6e-14e92 Naked>                              Σ0         →0x14e64
            <MI 14e6e  MOVE.L  0x20020,(A6-0x8)>                                {}
            <MI 14e76  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x14e78 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x14e7a 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Pointer.fp 0x14e7e <LVAR -0x00a @>>             Δ-4                {[#0]|[#1]|[##1]|[@@-10]}
            <Pointer.fp 0x14e82 <LVAR -0x008 @ 4(w)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-10]|[@@-8]}
            <Call 0x14e86 0x13c7c>                                              {[#0]|[#1]|[##1]|[@@-10]|[@@-8]}
                _CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 14e8c-14e90 StackAdj>                       Δ+16               {}
            <MI 14e90  BRA     0x14e64>                                         {}
        <POP 14e92-14e96 Naked>                              Σ0         ↓ →0x14ef4 ←0x14e64
            <MI 14e92  TST.L   0x1b0aa>                                         {}
            <MI 14e94  BNE     0x14ef4>                                         {}
        <POP 14e96-14eb0 Naked>                              Σ0         ↓ →0x14ec2
            <Pointer.fp 0x14e96 <LVAR -0x004 @ 1(r)>>        Δ-4                {[@@-4]}
            <Pointer.fp 0x14e9a <LVAR -0x002 @>>             Δ-4                {[@@-4]|[@@-2]}
            <Call 0x14e9e 0x10200>                                              {[@@-4]|[@@-2]}
                KC00_GetBootDev(VAR a : Byte; VAR b : Word)
            <POP 14ea4-14ea6 StackAdj>                       Δ+8                {}
            <MI 14ea6  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 14eaa  CMPI.B  #0x02,D0>                                        {}
            <MI 14eae  BEQ     0x14ec2>                                         {}
        <POP 14eb0-14ec2 Naked>                              Σ0 Δ-28    →0x14ed2
            <Blob 0x14eb0 [28] @>                            Δ-28               {[«28""»]}
            <MI 14ec0  BRA     0x14ed2>                                         {[«28""»]}
        <POP 14ec2-14ed2 Naked>                              Σ0 Δ-28    ↓ ←0x14e96
            <Blob 0x14ec2 [28] @>                            Δ-28               {[«28""»]}
        <POP 14ed2-14ef4 Naked>                              Σ-28 Δ+28  ↓ ←0x14eb0
            <MI 14ed2  MOVE.B  (A6+0xc),-(A7)>               Δ-2                {[-28-]|[2, '(A6+0xc)']}
            <MI 14ed6  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-28-]|[2, '(A6+0xc)']|[4, '(A6+0x8)']}
            <POP 14ed8-14eda StackAdj>                       Δ-4                {[-28-]|[2, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x14eda>                                                       {[-28-]|[2, '(A6+0xc)']|[4, '(A6+0x8)']|[$$…]}
                <Pointer.sp 0x14eda 10>                      Δ-4        
                <Const 0x14ede 0x1.2>                        Δ-2        
                <Const 0x14ee0 0x1b.2>                       Δ-2        
                <Call 0x14ee4 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 14eea-14eec StackAdj>                   Δ+8        
            <Call 0x14eec 0x14dc8>                                              {[-28-]|[2, '(A6+0xc)']|[4, '(A6+0x8)']|[$$…]}
            <POP 14ef0-14ef4 StackAdj>                       Δ+38               {}
        <POP 14ef4-14f00 Naked>                              Σ0         ↓ →0x14f16 ←0x14e92
            <MI 14ef4  SUBQ.L  #0x1,0x1b0aa>                                    {}
            <MI 14ef6  MOVE.B  (A6+0xc),D0>                                     {}
            <MI 14efa  CMPI.B  #0x06,D0>                                        {}
            <MI 14efe  BEQ     0x14f16>                                         {}
        <POP 14f00-14f16 Naked>                              Σ0         ↓
            <MI 14f00  MOVE.B  D0,0x1b0ae>                                      {}
            <MI 14f06  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 14f08  LEA.L   0x1b130,A1>                                      {}
            <BlockMove 128,A0,A1>                                               {}
        <POP 14f16-14f52 Naked>                              Σ0         ↓ ←0x14ef4
            <Blob 0x14f16 [10] @>                            Δ-10               {[«10""»]}
            <POP 14f22-14f24 StackAdj>                       Δ-8                {[«10""»]|[-8-]}
            <Lit 0x14f24 10>                                                    {[«10""»]|[-4-]|[$$SWAP.M200.]}
            <POP 14f34-14f35 StackAdj>                       Δ-4                {[«10""»]|[-4-]|[$$SWAP.M200.]|[-4-]}
            <Blob 0x14f35 [4] 0x1b0aa>                       Δ-4                {[«10""»]|[-4-]|[$$SWAP.M200.]|[-4-]|[«4»]}
            <Call 0x14f36 0x110b0>                                              {[«10""»]|[-4-]|[$$SWAP.M200.]|[-4-]|[«4»]}
                _Long2String(a : Long) : String
            <POP 14f3c-14f3e StackAdj>                       Δ+4                {[«10""»]|[-4-]|[$$SWAP.M200.]|[-4-]}
            <Call 0x14f3e 0x10f34>                                              {[«10""»]|[-4-]|[$$SWAP.M200.]|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 14f44-14f46 StackAdj>                       Δ+8                {[«10""»]|[-4-]}
            <MI 14f46  MOVEA.L (A7)+,A4>                     Δ+4                {[«10""»]}
            <POP 14f48-14f4a StackAdj>                       Δ+6                {[-4-]}
            <MI 14f4a  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <Call 0x14f4c 0x14b9a>                                              {[4, 'A4']}
            <POP 14f50-14f52 StackAdj>                       Δ+4                {}
        <POP 14f52-14f5a Epilogue>                           Σ0         

0x14f5a


@ 14f5a
_?FS103bc(MOD a: String; VAR b: Bool) : Bool
        <LVAR  0x010 1(r)>
        <LVAR  0x00c @ 4(r)>
        <LVAR  0x008 4(r)>
    <POP 14f5a-15008 Body>                                              
        <POP 14f5a-14f70 Prologue>                           Σ0         ↓
        <POP 14f70-14f8c Naked>                              Σ0         ↓ →0x14f92
            <MI 14f70  CLR.B   0x1b0a8>                                         {}
            <MI 14f76  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 14f7a  MOVE.B  0x1b0ae,D0>                                      {}
            <MI 14f80  EXTB.W  D0>                                              {}
            <POP 0x14f82 LimitCheck 0x0 ≤ D0 ≤ 0xe>                             {}
            <MI 14f86  MOVE.B  D0,(A0)>                                         {}
            <MI 14f88  TST.B   D0>                                              {}
            <MI 14f8a  BEQ     0x14f92>                                         {}
        <POP 14f8c-14f92 Naked>                              Σ0         ↓ →0x14fa0
            <MI 14f8c  TST.B   (A6+0x10)>                                       {}
            <MI 14f90  BNE     0x14fa0>                                         {}
        <POP 14f92-14fa0 Naked>                              Σ0         →0x15000 ←0x14f70
            <Pointer.fp 0x14f92 <LVAR  0x00c @ 4(r)>>        Δ-4                {[@@12]}
            <Call 0x14f96 0x10d76>                                              {[@@12]}
                _FreeString(VAR a : String)
            <POP 14f9c-14f9e StackAdj>                       Δ+4                {}
            <MI 14f9e  BRA     0x15000>                                         {}
        <POP 14fa0-14ff2 Naked>                              Σ0         ↓ →0x15000 ←0x14f8c
            <MI 14fa0  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <POP 14fa2-14fa4 StackAdj>                       Δ-4                {[2, 'D0']|[-4-]}
            <Call 0x14fa4 0x1509a>                                              {[2, 'D0']|[-4-]}
                _FSCALL_103c8
            <Call 0x14faa 0x14d66>                                              {[2, 'D0']|[-4-]}
            <MI 14fae  MOVEA.L A7,A0>                                           {[2, 'D0']|[-4-]}
            <MI 14fb0  LEA.L   0x14810,A1>                                      {[2, 'D0']|[-4-]}
            <BlockMove 5,A1,A0>                                                 {[2, 'D0']|[-4-]}
            <POP 14fbc-14fbe StackAdj>                       Δ-8                {[2, 'D0']|[-12-]}
            <Lit 0x14fbe>                                                       {[2, 'D0']|[-8-]|[$$…]}
                <Pointer.sp 0x14fbe 8>                       Δ-4        
                <Const 0x14fc2 0x1.2>                        Δ-2        
                <Const 0x14fc6 0x5.2>                        Δ-2        
                <Call 0x14fca 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 14fd0-14fd2 StackAdj>                   Δ+8        
            <POP 14fd0-14fd2 StackAdj>                       Δ-4                {[2, 'D0']|[-8-]|[$$…]|[-4-]}
            <MI 14fd2  MOVE.L  (A6+0xc),(A7)>                                   {[2, 'D0']|[-8-]|[$$…]|[4, '(A6+0xc)']}
            <Call 0x14fd6 0x10f34>                                              {[2, 'D0']|[-8-]|[$$…]|[4, '(A6+0xc)']}
                _StringCat2(a, b : String) : String
            <POP 14fdc-14fde StackAdj>                       Δ+8                {[2, 'D0']|[-8-]}
            <Call 0x14fde 0x154a2>                                              {[2, 'D0']|[-8-]}
                _WriteConsoleStringCrLf(str : String)
            <POP 14fe4-14fe8 StackAdj>                       Δ+10               {}
            <MI 14fe8  MOVE.B  (A6+0x10),D0>                                    {}
            <MI 14fec  CMPI.B  #0x02,D0>                                        {}
            <MI 14ff0  BNE     0x15000>                                         {}
        <POP 14ff2-15000 Naked>                              Σ0         ↓
            <Const 0x14ff2 0x6.2>                            Δ-2                {[#6]}
            <Const 0x14ff6 0x1.4>                            Δ-4                {[#6]|[##1]}
            <Call 0x14ffa 0x14e0a>                                              {[#6]|[##1]}
                _PopProgram(status : Byte; msg : String)
            <POP 14ffe-15000 StackAdj>                       Δ+6                {}
        <POP 15000-15008 Epilogue>                           Σ0         ←0x14f92 ←0x14fa0

0x15008


@ 15008
_ExpErrMsg(a: Byte) : String
        <LVAR  0x00a 4(w)>
        <LVAR  0x008 1(r)>
    <POP 15008-1505a Body>                                              
        <POP 15008-1501e Prologue>                           Σ0         ↓
        <POP 1501e-15020 RegCacheLoad>                       Σ0         ↓
        <POP 15020-15052 Naked>                              Σ0         ↓
            <MI 15020  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 15024  EXTB.W  D0>                                              {}
            <MI 15026  MULS.W  #0x1e,D0>                                        {}
            <MI 15028  LEA.L   0x149d8,A0>                                      {}
            <Blob 0x1502c [30] (A0+D0.W+#0x1e)>              Δ-30               {[«30»]}
            <POP 15038-1503a StackAdj>                       Δ-4                {[«30»]|[-4-]}
            <Lit 0x1503a>                                                       {[«30»]|[$$…]}
                <Pointer.sp 0x1503a 4>                       Δ-4        
                <Const 0x1503e 0x1.2>                        Δ-2        
                <Const 0x15042 0x1e.2>                       Δ-2        
                <Call 0x15044 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 1504a-1504c StackAdj>                   Δ+8        
            <MI 1504c  MOVE.L  (A7)+,(A6+0xa)>               Δ+4                {[«30»]}
            <POP 15050-15052 StackAdj>                       Δ+30               {}
        <POP 15052-1505a Epilogue>                           Σ0         

0x1505a


@ 1505a
_GetArgv() : String
        <LVAR  0x008 4(w)>
        <LVAR -0x004 @ 4(r)>
    <POP 1505a-1509a Body>                                              
        <POP 1505a-15070 Prologue>                           Σ0         ↓
        <POP 15070-15074 RegCacheLoad>                       Σ0         ↓
        <POP 15074-15092 Naked>                              Σ0         ↓
            <Pointer.fp 0x15074 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x15076 0x10d42>                                              {[@@-4]}
                _NewString(VAR a : String)
            <POP 1507c-1507e StackAdj>                       Δ+4                {}
            <MI 1507e  MOVEA.L (A6-0x4),A0>                                     {}
            <MI 15080  LEA.L   0x1b0b0,A1>                                      {}
            <BlockMove 128,A1,A0>                                               {}
            <MI 1508e  MOVE.L  (A6-0x4),(A6+0x8)>                               {}
        <POP 15092-1509a Epilogue>                           Σ0         

0x1509a


@ 1509a
_FSCALL_103c8
        <LVAR  0x008 4(w)>
        <LVAR -0x004 @ 4(r)>
    <POP 1509a-150da Body>                                              
        <POP 1509a-150b0 Prologue>                           Σ0         ↓
        <POP 150b0-150b4 RegCacheLoad>                       Σ0         ↓
        <POP 150b4-150d2 Naked>                              Σ0         ↓
            <Pointer.fp 0x150b4 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x150b6 0x10d42>                                              {[@@-4]}
                _NewString(VAR a : String)
            <POP 150bc-150be StackAdj>                       Δ+4                {}
            <MI 150be  MOVEA.L (A6-0x4),A0>                                     {}
            <MI 150c0  LEA.L   0x1b130,A1>                                      {}
            <BlockMove 128,A1,A0>                                               {}
            <MI 150ce  MOVE.L  (A6-0x4),(A6+0x8)>                               {}
        <POP 150d2-150da Epilogue>                           Σ0         

0x150da


@ 150da
_GetPushLevel() : Long
        <LVAR  0x008 4(w)>
    <POP 150da-150f8 Body>                                              
        <POP 150da-150ec Prologue>                           Σ0         ↓
        <POP 150ec-150f4 Naked>                              Σ0         ↓
            <MI 150ec  MOVE.L  0x1b0aa,(A6+0x8)>                                {}
        <POP 150f4-150f8 Epilogue>                           Σ0         

0x15202


@ 15202
_WriteConsoleChar(chr : char)
        <LVAR  0x008 1(r)>
    <POP 15202-15278 Body>                                              
        <POP 15202-15218 Prologue>                           Σ0         ↓
        <POP 15218-1521e RegCacheLoad>                       Σ0         ↓
        <POP 1521e-15244 Naked>                              Σ0         ↓ →0x15270
            <MI 1521e  MOVE.L  0x1b1b8,D0>                                      {}
            <POP 0x15224 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 1522a  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 1522c  CLR.L   D0>                                              {[2, 'D0']}
            <MI 1522e  MOVE.B  (A6+0x8),D0>                                     {[2, 'D0']}
            <MI 15232  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']|[2, 'D0']}
            <Call 0x15234 0x1020c>                                              {[2, 'D0']|[2, 'D0']}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 1523a-1523c StackAdj>                       Δ+4                {}
            <MI 1523c  TST.B   0x1b1bc>                                         {}
            <MI 15242  BEQ     0x15270>                                         {}
        <POP 15244-15270 Naked>                              Σ0         ↓
            <MI 15244  MOVE.W  0x1b1be,D0>                                      {}
            <POP 0x1524a LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 15250  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 15252  MOVE.W  0x1b1c0,D0>                                      {[2, 'D0']}
            <POP 0x15258 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[2, 'D0']}
            <MI 1525e  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']|[2, 'D0']}
            <MI 15260  CLR.L   D0>                                              {[2, 'D0']|[2, 'D0']}
            <MI 15262  MOVE.B  (A6+0x8),D0>                                     {[2, 'D0']|[2, 'D0']}
            <MI 15266  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']|[2, 'D0']|[2, 'D0']}
            <Call 0x15268 0x10218>                                              {[2, 'D0']|[2, 'D0']|[2, 'D0']}
                KC0c_Write_Modem_Char(a, b: Word ; c : char)
            <POP 1526e-15270 StackAdj>                       Δ+6                {}
        <POP 15270-15278 Epilogue>                           Σ0         ←0x1521e

0x15278


@ 15278
_ReadChar() : Byte
        <LVAR  0x008 1(w)>
        <LVAR -0x001 @>
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x004 @ 2(r)>
    <POP 15278-15384 Body>                                              
        <POP 15278-1528e Prologue>                           Σ0         ↓
        <POP 1528e-152a0 RegCacheLoad>                       Σ0         ↓
        <POP 152a0-152aa Naked>                              Σ0         ↓ →0x152b4
            <MI 152a0  MOVE.L  0x1b1b8,D0>                                      {}
            <MI 152a2  CMPI.L  #0x00000003,D0>                                  {}
            <MI 152a8  BEQ     0x152b4>                                         {}
        <POP 152aa-152b4 Naked>                              Σ0         →0x15362
            <POP 0x152aa LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 152b0  BRA     0x15362>                                         {}
        <POP 152b4-152cc Naked>                              Σ0         ↓ →0x152b4 ←0x152a0 ←0x152b4 ←0x15354
            <MI 152b4  MOVE.L  0x1b1b8,D0>                                      {}
            <POP 0x152b6 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 152bc  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x152be <LVAR -0x002 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-2]}
            <Call 0x152c0 0x10212>                                              {[2, 'D0']|[@@-2]}
                KC09_PortStatus(Port : Word; VAR b: Byte)
            <POP 152c6-152c8 StackAdj>                       Δ+6                {}
            <MI 152c8  TST.B   (A6-0x2)>                                        {}
            <MI 152ca  BEQ     0x152b4>                                         {}
        <POP 152cc-152d4 Naked>                              Σ0         ↓ →0x15354
            <MI 152cc  MOVE.B  (A6-0x2),D0>                                     {}
            <MI 152ce  CMP.B   #0x01,D0>                                        {}
            <MI 152d0  BEQ     0x15354>                                         {}
        <POP 152d4-152ec Naked>                              Σ0 Δ-2     ↓ →0x15322
            <POP 152d4-152d6 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x152d6 0x180.4>                          Δ-4                {[-2-]|[##384]}
            <Call 0x152da 0x1a95c>                                              {[-2-]|[##384]}
                _ReadConfig(where : Long) : Word
            <POP 152e0-152e2 StackAdj>                       Δ+4                {[-2-]}
            <MI 152e2  MOVE.B  (A7+0x1),D1>                                     {[-2-]}
            <MI 152e6  CMPI.B  #0x58,D1>                                        {[-2-]}
            <MI 152ea  BNE     0x15322>                                         {[-2-]}
        <POP 152ec-15322 Naked>                              Σ-2        →0x15352
            <Blob 0x152ec [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <Blob 0x152f0 [2] @>                             Δ-2                {[-2-]|[«2""»]|[«2""»]}
            <Blob 0x152f4 [2] @>                             Δ-2                {[-2-]|[«2""»]|[«2""»]|[«2""»]}
            <POP 152f8-152fa StackAdj>                       Δ-4                {[-2-]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x152fa 6>                                                     {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]}
            <Const 0x1530c 0x1.4>                            Δ-4                {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]}
            <MI 15310  CLR.B   -(A7)>                        Δ-2                {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#0]}
            <Pointer.fp 0x15312 <LVAR -0x001 @>>             Δ-4                {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#0]|[@@-1]}
            <Call 0x15316 0x14750>                                              {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#0]|[@@-1]}
                _PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 1531c-15320 StackAdj>                       Δ+20               {[-2-]}
            <MI 15320  BRA     0x15352>                                         {[-2-]}
        <POP 15322-15352 Naked>                              Σ-2        ↓ ←0x152d4
            <Blob 0x15322 [4] @>                             Δ-4                {[-2-]|[«4""»]}
            <Blob 0x15326 [4] @>                             Δ-4                {[-2-]|[«4""»]|[«4""»]}
            <POP 1532a-1532c StackAdj>                       Δ-4                {[-2-]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x1532c 8>                                                     {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]}
            <Const 0x1533e 0x1.4>                            Δ-4                {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]}
            <MI 15342  CLR.B   -(A7)>                        Δ-2                {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#0]}
            <Pointer.fp 0x15344 <LVAR -0x001 @>>             Δ-4                {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#0]|[@@-1]}
            <Call 0x15348 0x14750>                                              {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#0]|[@@-1]}
                _PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 1534e-15352 StackAdj>                       Δ+22               {[-2-]}
        <POP 15352-15354 Naked>                              Σ-2 Δ+2    ↓ ←0x152ec
            <POP 15352-15354 StackAdj>                       Δ+2                {}
        <POP 15354-1535a Naked>                              Σ0         ↓ →0x152b4 ←0x152cc
            <MI 15354  CMP.B   #0x01,D0>                                        {}
            <MI 15356  BNE     0x152b4>                                         {}
        <POP 1535a-15362 Naked>                              Σ0         ↓
            <MI 1535a  MOVE.L  0x1b1b8,D0>                                      {}
            <POP 0x1535c LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
        <POP 15362-1537c Naked>                              Σ0         ↓ ←0x152aa
            <MI 15362  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x15364 <LVAR -0x004 @ 2(r)>>        Δ-4                {[2, 'D0']|[@@-4]}
            <Call 0x15368 0x1020e>                                              {[2, 'D0']|[@@-4]}
                KC07_PortGetChar(port : Word ; VAR ret : Word)
            <POP 1536e-15370 StackAdj>                       Δ+6                {}
            <MI 15370  MOVE.W  (A6-0x4),D0>                                     {}
            <MI 15374  ANDI.W  #0x00ff,D0>                                      {}
            <MI 15378  MOVE.B  D0,(A6+0x8)>                                     {}
        <POP 1537c-15384 Epilogue>                           Σ0         

0x15384


@ 15384
_WriteConsoleString(str : String)
        <LVAR  0x008 @ 4(r)>
    <POP 15384-153fc Body>                                              
        <POP 15384-1539a Prologue>                           Σ0         ↓
        <POP 1539a-153a4 RegCacheLoad>                       Σ0         ↓
        <POP 153a4-153c4 Naked>                              Σ0         ↓ →0x153ea
            <MI 153a4  MOVE.L  0x1b1b8,D0>                                      {}
            <POP 0x153aa LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 153b0  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 153b2  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[2, 'D0']|[4, '(A6+0x8)']}
            <Call 0x153b4 0x1020a>                                              {[2, 'D0']|[4, '(A6+0x8)']}
                KC05_Write_Console_String(port : Word ; str : String)
            <POP 153ba-153bc StackAdj>                       Δ+6                {}
            <MI 153bc  TST.B   0x1b1bc>                                         {}
            <MI 153c2  BEQ     0x153ea>                                         {}
        <POP 153c4-153ea Naked>                              Σ0         ↓
            <MI 153c4  MOVE.W  0x1b1be,D0>                                      {}
            <POP 0x153ca LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 153d0  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 153d2  MOVE.W  0x1b1c0,D0>                                      {[2, 'D0']}
            <POP 0x153d8 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[2, 'D0']}
            <MI 153de  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']|[2, 'D0']}
            <MI 153e0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[2, 'D0']|[2, 'D0']|[4, '(A6+0x8)']}
            <Call 0x153e2 0x1021a>                                              {[2, 'D0']|[2, 'D0']|[4, '(A6+0x8)']}
                KC0d_Write_Modem_String(Word, Word, Char)
            <POP 153e8-153ea StackAdj>                       Δ+8                {}
        <POP 153ea-153f4 Naked>                              Σ0         ↓ ←0x153a4
            <Pointer.fp 0x153ea <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x153ec 0x10d76>                                              {[@@8]}
                _FreeString(VAR a : String)
            <POP 153f2-153f4 StackAdj>                       Δ+4                {}
        <POP 153f4-153fc Epilogue>                           Σ0         

0x153fc


@ 153fc
_WriteConsoleCrLf(void)
    <POP 153fc-154a2 Body>                                              
        <POP 153fc-15412 Prologue>                           Σ0         ↓
        <POP 15412-1542e RegCacheLoad>                       Σ0         ↓
        <POP 1542e-1545e Naked>                              Σ0         ↓ →0x1549a
            <MI 1542e  MOVE.L  0x1b1b8,D0>                                      {}
            <POP 0x15430 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 15436  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x15438 0xd.2>                            Δ-2                {[2, 'D0']|[#13]}
            <Call 0x1543a 0x1020c>                                              {[2, 'D0']|[#13]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 15440-15442 StackAdj>                       Δ+4                {}
            <MI 15442  MOVE.L  0x1b1b8,D0>                                      {}
            <POP 0x15444 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 1544a  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x1544c 0xa.2>                            Δ-2                {[2, 'D0']|[#10]}
            <Call 0x1544e 0x1020c>                                              {[2, 'D0']|[#10]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 15454-15456 StackAdj>                       Δ+4                {}
            <MI 15456  TST.B   0x1b1bc>                                         {}
            <MI 1545c  BEQ     0x1549a>                                         {}
        <POP 1545e-1549a Naked>                              Σ0         ↓
            <MI 1545e  MOVE.W  0x1b1be,D0>                                      {}
            <POP 0x15460 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 15466  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 15468  MOVE.W  0x1b1c0,D0>                                      {[2, 'D0']}
            <POP 0x1546a LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[2, 'D0']}
            <MI 15470  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']|[2, 'D0']}
            <Const 0x15472 0xd.2>                            Δ-2                {[2, 'D0']|[2, 'D0']|[#13]}
            <Call 0x15474 0x10218>                                              {[2, 'D0']|[2, 'D0']|[#13]}
                KC0c_Write_Modem_Char(a, b: Word ; c : char)
            <POP 1547a-1547c StackAdj>                       Δ+6                {}
            <MI 1547c  MOVE.W  0x1b1be,D0>                                      {}
            <POP 0x1547e LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 15484  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 15486  MOVE.W  0x1b1c0,D0>                                      {[2, 'D0']}
            <POP 0x15488 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[2, 'D0']}
            <MI 1548e  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']|[2, 'D0']}
            <Const 0x15490 0xa.2>                            Δ-2                {[2, 'D0']|[2, 'D0']|[#10]}
            <Call 0x15492 0x10218>                                              {[2, 'D0']|[2, 'D0']|[#10]}
                KC0c_Write_Modem_Char(a, b: Word ; c : char)
            <POP 15498-1549a StackAdj>                       Δ+6                {}
        <POP 1549a-154a2 Epilogue>                           Σ0         ←0x1542e

0x154a2


@ 154a2
_WriteConsoleStringCrLf(str : String)
        <LVAR  0x008 4(r)>
    <POP 154a2-154e8 Body>                                              
        <POP 154a2-154b8 Prologue>                           Σ0         ↓
        <POP 154b8-154bc RegCacheLoad>                       Σ0         ↓
        <POP 154bc-154e0 Naked>                              Σ0         ↓
            <MI 154bc  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Const 0x154be 0xd.2>                            Δ-2                {[4, '(A6+0x8)']|[#13]}
            <Call 0x154c2 0x10da6>                                              {[4, '(A6+0x8)']|[#13]}
                _AppendChar(MOD b : String; a : char)
            <POP 154c8-154ca StackAdj>                       Δ+2                {[4, '(A6+0x8)']}
            <MI 154ca  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Const 0x154cc 0xa.2>                            Δ-2                {[4, '(A6+0x8)']|[#10]}
            <Call 0x154d0 0x10da6>                                              {[4, '(A6+0x8)']|[#10]}
                _AppendChar(MOD b : String; a : char)
            <POP 154d6-154d8 StackAdj>                       Δ+2                {[4, '(A6+0x8)']}
            <MI 154d8  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Call 0x154da 0x15384>                                              {[4, '(A6+0x8)']}
                _WriteConsoleString(str : String)
            <POP 154de-154e0 StackAdj>                       Δ+4                {}
        <POP 154e0-154e8 Epilogue>                           Σ0         

0x154e8


@ 154e8
        <LVAR  0x008 4(r)>
    <POP 154e8-155b2 Body>                                              
        <POP 154e8-154fe Prologue>                           Σ0         ↓
        <POP 154fe-15514 RegCacheLoad>                       Σ0         ↓
        <POP 15514-1551e Naked>                              Σ0 Δ-4     ↓ →0x15532
            <MI 15514  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 15518  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1551a  TST.W   (A0)>                                            {[4, 'A0']}
            <MI 1551c  BNE     0x15532>                                         {[4, 'A0']}
        <POP 1551e-15532 Naked>                              Σ-4        →0x155a8
            <MI 1551e  MOVE.L  0x1b1b8,D0>                                      {[-4-]}
            <POP 0x15520 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-4-]}
            <MI 15526  MOVE.W  D0,-(A7)>                     Δ-2                {[-4-]|[2, 'D0']}
            <Const 0x15528 0x7.2>                            Δ-2                {[-4-]|[2, 'D0']|[#7]}
            <Call 0x1552c 0x1020c>                                              {[-4-]|[2, 'D0']|[#7]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 1552e-15530 StackAdj>                       Δ+4                {[-4-]}
            <MI 15530  BRA     0x155a8>                                         {[-4-]}
        <POP 15532-1554c Naked>                              Σ-4        ↓ →0x1554e ←0x15514
            <MI 15532  MOVEQ.L #0x00,D6>                                        {[-4-]}
            <MI 15534  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 15536  EXTW.L  D0>                                              {[-4-]}
            <MI 15538  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x1553a LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-4-]}
            <MI 15544  MOVE.B  (A0+D0.L+#0x2),D0>                               {[-4-]}
            <MI 15548  CMP.B   #0x20,D0>                                        {[-4-]}
            <MI 1554a  BCC     0x1554e>                                         {[-4-]}
        <POP 1554c-1554e Naked>                              Σ-4        ↓
            <MI 1554c  MOVEQ.L #0x01,D6>                                        {[-4-]}
        <POP 1554e-15552 Naked>                              Σ-4 Δ-4    ↓ ←0x15532
            <MI 1554e  MOVE.L  D6,-(A7)>                     Δ-4                {[-4-]|[4, 'D6']}
            <MI 15550  MOVEQ.L #0x00,D7>                                        {[-4-]|[4, 'D6']}
        <POP 15552-15556 Naked>                              Σ-8        ↓ →0x1558a ←0x15556
            <MI 15552  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 15554  BGT     0x1558a>                                         {[-8-]}
        <POP 15556-1558a Naked>                              Σ-8        ↓ →0x15552
            <MI 15556  MOVE.L  0x1b1b8,D0>                                      {[-8-]}
            <POP 0x15558 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-8-]}
            <MI 1555e  MOVE.W  D0,-(A7)>                     Δ-2                {[-8-]|[2, 'D0']}
            <Const 0x15560 0x8.2>                            Δ-2                {[-8-]|[2, 'D0']|[#8]}
            <Call 0x15562 0x1020c>                                              {[-8-]|[2, 'D0']|[#8]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 15564-15566 StackAdj>                       Δ+4                {[-8-]}
            <MI 15566  MOVE.L  0x1b1b8,D0>                                      {[-8-]}
            <POP 0x15568 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-8-]}
            <MI 1556e  MOVE.W  D0,-(A7)>                     Δ-2                {[-8-]|[2, 'D0']}
            <Const 0x15570 0x20.2>                           Δ-2                {[-8-]|[2, 'D0']|[#32]}
            <Call 0x15572 0x1020c>                                              {[-8-]|[2, 'D0']|[#32]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 15574-15576 StackAdj>                       Δ+4                {[-8-]}
            <MI 15576  MOVE.L  0x1b1b8,D0>                                      {[-8-]}
            <POP 0x15578 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-8-]}
            <MI 1557e  MOVE.W  D0,-(A7)>                     Δ-2                {[-8-]|[2, 'D0']}
            <Const 0x15580 0x8.2>                            Δ-2                {[-8-]|[2, 'D0']|[#8]}
            <Call 0x15582 0x1020c>                                              {[-8-]|[2, 'D0']|[#8]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 15584-15586 StackAdj>                       Δ+4                {[-8-]}
            <MI 15586  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 15588  BVC     0x15552>                                         {[-8-]}
        <POP 1558a-155a8 Naked>                              Σ-8 Δ+4    ↓ ←0x15552
            <POP 1558a-1558c StackAdj>                       Δ+4                {[-4-]}
            <MI 1558c  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 1558e  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 15590  EXTW.L  D0>                                              {[-4-]}
            <MI 15592  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x15594 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff>                      {[-4-]}
            <MI 155a6  MOVE.W  D0,(A0)>                                         {[-4-]}
        <POP 155a8-155aa Naked>                              Σ-4 Δ+4    ↓ ←0x1551e
            <POP 155a8-155aa StackAdj>                       Δ+4                {}
        <POP 155aa-155b2 Epilogue>                           Σ0         

0x155b2


@ 155b2
    <POP 155b2-1563c Body>                                              
        <POP 155b2-155c8 Prologue>                           Σ0         ↓
        <POP 155c8-155da RegCacheLoad>                       Σ0         ↓
        <POP 155da-15634 Naked>                              Σ0         ↓
            <MI 155da  MOVE.L  0x1b1b8,D0>                                      {}
            <POP 0x155dc LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 155e2  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x155e4 0xd.2>                            Δ-2                {[2, 'D0']|[#13]}
            <Call 0x155e8 0x1020c>                                              {[2, 'D0']|[#13]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 155ea-155ec StackAdj>                       Δ+4                {}
            <MI 155ec  MOVE.L  0x1b1b8,D0>                                      {}
            <POP 0x155ee LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 155f4  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x155f6 0x1b.2>                           Δ-2                {[2, 'D0']|[#27]}
            <Call 0x155fa 0x1020c>                                              {[2, 'D0']|[#27]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 155fc-155fe StackAdj>                       Δ+4                {}
            <MI 155fe  MOVE.L  0x1b1b8,D0>                                      {}
            <POP 0x15600 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 15606  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x15608 0x5b.2>                           Δ-2                {[2, 'D0']|[#91]}
            <Call 0x1560c 0x1020c>                                              {[2, 'D0']|[#91]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 1560e-15610 StackAdj>                       Δ+4                {}
            <MI 15610  MOVE.L  0x1b1b8,D0>                                      {}
            <POP 0x15612 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 15618  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x1561a 0x30.2>                           Δ-2                {[2, 'D0']|[#48]}
            <Call 0x1561e 0x1020c>                                              {[2, 'D0']|[#48]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 15620-15622 StackAdj>                       Δ+4                {}
            <MI 15622  MOVE.L  0x1b1b8,D0>                                      {}
            <POP 0x15624 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 1562a  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Const 0x1562c 0x4b.2>                           Δ-2                {[2, 'D0']|[#75]}
            <Call 0x15630 0x1020c>                                              {[2, 'D0']|[#75]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 15632-15634 StackAdj>                       Δ+4                {}
        <POP 15634-1563c Epilogue>                           Σ0         

0x1563c


@ 1563c
        <LVAR  0x008 1(rw)>
    <POP 1563c-15686 Body>                                              
        <POP 1563c-15652 Prologue>                           Σ0         ↓
        <POP 15652-15656 RegCacheLoad>                       Σ0         ↓
        <POP 15656-1565e Naked>                              Σ0         ↓ →0x15676
            <MI 15656  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 15658  CMPI.B  #0x20,D0>                                        {}
            <MI 1565c  BCC     0x15676>                                         {}
        <POP 1565e-15676 Naked>                              Σ0         ↓
            <Const 0x1565e 0x5e.2>                           Δ-2                {[#94]}
            <Call 0x15662 0x15202>                                              {[#94]}
                _WriteConsoleChar(chr : char)
            <POP 15666-15668 StackAdj>                       Δ+2                {}
            <MI 15668  CLR.L   D1>                                              {}
            <MI 1566a  MOVE.B  D0,D1>                                           {}
            <MI 1566c  ADDI.W  #0x0040,D1>                                      {}
            <POP 0x15670 LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {}
            <MI 15674  MOVE.B  D1,(A6+0x8)>                                     {}
        <POP 15676-1567e Naked>                              Σ0         ↓ ←0x15656
            <MI 15676  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Call 0x15678 0x15202>                                              {[2, '(A6+0x8)']}
                _WriteConsoleChar(chr : char)
            <POP 1567c-1567e StackAdj>                       Δ+2                {}
        <POP 1567e-15686 Epilogue>                           Σ0         

0x15686


@ 15686
_AskConsoleString(prompt : String) : String
        <LVAR  0x00c 4(w)>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x004 1(rw)>
        <LVAR -0x005 1(rw)>
        <LVAR -0x010 @ 4(r)>
    <POP 15686-158b2 Body>                                              
        <POP 15686-1569c Prologue>                           Σ0         ↓
        <POP 1569c-156b0 RegCacheLoad>                       Σ0         ↓
        <POP 156b0-156c0 Naked>                              Σ0 Δ-4     ↓
            <MI 156b0  MOVE.W  0x1b5c2,D6>                                      {}
            <Pointer.fp 0x156b2 <LVAR -0x010 @ 4(r)>>        Δ-4                {[@@-16]}
            <Call 0x156b4 0x10d42>                                              {[@@-16]}
                _NewString(VAR a : String)
            <POP 156ba-156bc StackAdj>                       Δ+4                {}
            <MI 156bc  MOVEA.L (A6-0x10),A0>                                    {}
            <MI 156be  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
        <POP 156c0-156ca Naked>                              Σ-4        ↓ →0x156dc ←0x1570c ←0x157bc
            <MI 156c0  CLR.B   (A6-0x5)>                                        {[-4-]}
            <MI 156c4  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 156c6  CMPA.W  #0x01,A0>                                        {[-4-]}
            <MI 156c8  BEQ     0x156dc>                                         {[-4-]}
        <POP 156ca-156dc Naked>                              Σ-4        ↓
            <POP 156ca-156cc StackAdj>                       Δ-4                {[-8-]}
            <MI 156cc  MOVE.L  A0,-(A7)>                     Δ-4                {[-8-]|[4, 'A0']}
            <Call 0x156ce 0x10ef2>                                              {[-8-]|[4, 'A0']}
                _StringDup(a : String) : String
            <POP 156d4-156d6 StackAdj>                       Δ+4                {[-8-]}
            <Call 0x156d6 0x15384>                                              {[-8-]}
                _WriteConsoleString(str : String)
            <POP 156da-156dc StackAdj>                       Δ+4                {[-4-]}
        <POP 156dc-156e0 Naked>                              Σ-4        ↓ ←0x156c0
            <MI 156dc  MOVEA.L (A6-0x10),A0>                                    {[-4-]}
            <MI 156de  CLR.W   (A0)>                                            {[-4-]}
        <POP 156e0-156f4 Naked>                              Σ-4        ↓ →0x156fa ←0x1584e
            <MI 156e0  MOVEQ.L #0x00,D7>                                        {[-4-]}
            <POP 156e2-156e4 StackAdj>                       Δ-2                {[-6-]}
            <Call 0x156e4 0x15278>                                              {[-6-]}
                _ReadChar() : Byte
            <MI 156e8  MOVE.B  (A7)+,D0>                     Δ+2                {[-4-]}
            <MI 156ea  MOVE.B  D0,(A6-0x4)>                                     {[-4-]}
            <MI 156ee  CMPI.B  #0x08,D0>                                        {[-4-]}
            <MI 156f2  BEQ     0x156fa>                                         {[-4-]}
        <POP 156f4-156fa Naked>                              Σ-4        ↓ →0x15706
            <MI 156f4  CMPI.B  #0x7f,D0>                                        {[-4-]}
            <MI 156f8  BNE     0x15706>                                         {[-4-]}
        <POP 156fa-15706 Naked>                              Σ-4        →0x15804 ←0x156e0
            <MI 156fa  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x10)']}
            <Call 0x156fc 0x154e8>                                              {[-4-]|[4, '(A6-0x10)']}
            <POP 15700-15702 StackAdj>                       Δ+4                {[-4-]}
            <MI 15702  BRA     0x15804>                                         {[-4-]}
        <POP 15706-1570c Naked>                              Σ-4        ↓ →0x15716 ←0x156f4
            <MI 15706  CMPI.B  #0x15,D0>                                        {[-4-]}
            <MI 1570a  BNE     0x15716>                                         {[-4-]}
        <POP 1570c-15712 Naked>                              Σ-4        →0x156c0
            <Call 0x1570c 0x155b2>                                              {[-4-]}
            <MI 15710  BRA     0x156c0>                                         {[-4-]}
        <POP 15716-1571a Naked>                              Σ-4        ↓ →0x15720 ←0x15706
            <MI 15716  CMP.B   #0x12,D0>                                        {[-4-]}
            <MI 15718  BNE     0x15720>                                         {[-4-]}
        <POP 1571a-15720 Naked>                              Σ-4        →0x15804 ←0x157ae
            <MI 1571a  MOVEQ.L #0x01,D7>                                        {[-4-]}
            <MI 1571c  BRA     0x15804>                                         {[-4-]}
        <POP 15720-15726 Naked>                              Σ-4        ↓ →0x15764 ←0x15716
            <MI 15720  CMPI.B  #0x03,D0>                                        {[-4-]}
            <MI 15724  BNE     0x15764>                                         {[-4-]}
        <POP 15726-1572e Naked>                              Σ-4        ↓ →0x15764
            <MI 15726  TST.B   0x20108>                                         {[-4-]}
            <MI 1572c  BNE     0x15764>                                         {[-4-]}
        <POP 1572e-15764 Naked>                              Σ-4        →0x15804
            <Blob 0x1572e [18] @>                            Δ-18               {[-4-]|[«18""»]}
            <Const 0x1573e 0xe.2>                            Δ-2                {[-4-]|[«18""»]|[#14]}
            <POP 15742-15744 StackAdj>                       Δ-4                {[-4-]|[«18""»]|[#14]|[-4-]}
            <Lit 0x15744 17>                                                    {[-4-]|[«18""»]|[#14]|[$$Console interrupt]}
            <Call 0x15756 0x14e0a>                                              {[-4-]|[«18""»]|[#14]|[$$Console interrupt]}
                _PopProgram(status : Byte; msg : String)
            <POP 1575c-15760 StackAdj>                       Δ+24               {[-4-]}
            <MI 15760  BRA     0x15804>                                         {[-4-]}
        <POP 15764-1576a Naked>                              Σ-4        ↓ →0x15772 ←0x15720 ←0x15726
            <MI 15764  CMPI.B  #0x0d,D0>                                        {[-4-]}
            <MI 15768  BNE     0x15772>                                         {[-4-]}
        <POP 1576a-15772 Naked>                              Σ-4        →0x15804
            <MI 1576a  MOVE.B  #0x01,(A6-0x5)>                                  {[-4-]}
            <MI 1576e  BRA     0x15804>                                         {[-4-]}
        <POP 15772-15778 Naked>                              Σ-4        ↓ →0x157b2 ←0x15764
            <MI 15772  CMPI.B  #0x10,D0>                                        {[-4-]}
            <MI 15776  BNE     0x157b2>                                         {[-4-]}
        <POP 15778-15798 Naked>                              Σ-4        ↓ →0x1579c
            <MI 15778  MOVEA.L (A6-0x10),A0>                                    {[-4-]}
            <POP 0x1577a LimitCheck 0x0 ≤ D6 ≤ 0x7>                             {[-4-]}
            <MI 1577c  CLR.L   D0>                                              {[-4-]}
            <MI 1577e  MOVE.W  D6,D0>                                           {[-4-]}
            <MI 15780  ASL.L   #0x7,D0>                                         {[-4-]}
            <MI 15782  LEA.L   0x1b1b0,A1>                                      {[-4-]}
            <MI 15788  LEA.L   (A1+D0.L+#0x12),A1>                              {[-4-]}
            <BlockMove 128,A1,A0>                                               {[-4-]}
            <MI 15794  TST.W   D6>                                              {[-4-]}
            <MI 15796  BNE     0x1579c>                                         {[-4-]}
        <POP 15798-1579c Naked>                              Σ-4        →0x157ae
            <MI 15798  MOVEQ.L #0x07,D6>                                        {[-4-]}
            <MI 1579a  BRA     0x157ae>                                         {[-4-]}
        <POP 1579c-157ae Naked>                              Σ-4        ↓ ←0x15778
            <MI 1579c  CLR.L   D0>                                              {[-4-]}
            <MI 1579e  MOVE.W  D6,D0>                                           {[-4-]}
            <MI 157a0  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x157a2 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-4-]}
            <MI 157ac  MOVE.W  D0,D6>                                           {[-4-]}
        <POP 157ae-157b2 Naked>                              Σ-4        →0x1571a ←0x15798
            <MI 157ae  BRA     0x1571a>                                         {[-4-]}
        <POP 157b2-157bc Naked>                              Σ-4        ↓ →0x157ec ←0x15772
            <MI 157b2  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 157b4  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 157b6  CMPI.W  #0x007e,D0>                                      {[-4-]}
            <MI 157ba  BNE     0x157ec>                                         {[-4-]}
        <POP 157bc-157ec Naked>                              Σ-4        →0x156c0
            <Call 0x157bc 0x153fc>                                              {[-4-]}
                _WriteConsoleCrLf(void)
            <Blob 0x157c0 [22] @>                            Δ-22               {[-4-]|[«22""»]}
            <POP 157cc-157ce StackAdj>                       Δ-4                {[-4-]|[«22""»]|[-4-]}
            <Lit 0x157ce 22>                                                    {[-4-]|[«22""»]|[$$Input string too long!]}
            <Call 0x157e0 0x154a2>                                              {[-4-]|[«22""»]|[$$Input string too long!]}
                _WriteConsoleStringCrLf(str : String)
            <POP 157e4-157e8 StackAdj>                       Δ+26               {[-4-]}
            <MI 157e8  BRA     0x156c0>                                         {[-4-]}
        <POP 157ec-15804 Naked>                              Σ-4        ↓ ←0x157b2
            <MI 157ec  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x10)']}
            <MI 157ee  MOVE.B  (A6-0x4),-(A7)>               Δ-2                {[-4-]|[4, '(A6-0x10)']|[2, '(A6-0x4)']}
            <Call 0x157f2 0x10da6>                                              {[-4-]|[4, '(A6-0x10)']|[2, '(A6-0x4)']}
                _AppendChar(MOD b : String; a : char)
            <POP 157f8-157fa StackAdj>                       Δ+4                {[-4-]|[-2-]}
            <MI 157fa  MOVE.B  (A6-0x4),(A7)>                                   {[-6-]}
            <Call 0x157fe 0x1563c>                                              {[-6-]}
            <POP 15802-15804 StackAdj>                       Δ+2                {[-4-]}
        <POP 15804-15808 Naked>                              Σ-4        ↓ →0x1584e ←0x156fa ←0x1571a ←0x1572e ←0x1576a
            <MI 15804  TST.B   D7>                                              {[-4-]}
            <MI 15806  BEQ     0x1584e>                                         {[-4-]}
        <POP 15808-15828 Naked>                              Σ-4 Δ-4    ↓
            <Call 0x15808 0x155b2>                                              {[-4-]}
            <POP 1580c-1580e StackAdj>                       Δ-4                {[-8-]}
            <MI 1580e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Call 0x15810 0x10ef2>                                              {[-8-]|[4, '(A6+0x8)']}
                _StringDup(a : String) : String
            <POP 15816-15818 StackAdj>                       Δ+4                {[-8-]}
            <Call 0x15818 0x15384>                                              {[-8-]}
                _WriteConsoleString(str : String)
            <POP 1581c-1581e StackAdj>                       Δ+4                {[-4-]}
            <MI 1581e  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 15820  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 15822  EXTW.L  D0>                                              {[-4-]}
            <MI 15824  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 15826  MOVEQ.L #0x01,D5>                                        {[-4-]|[4, 'D0']}
        <POP 15828-1582c Naked>                              Σ-8        ↓ →0x1584c ←0x1582c
            <MI 15828  CMP.L   (A7),D5>                                         {[-8-]}
            <MI 1582a  BGT     0x1584c>                                         {[-8-]}
        <POP 1582c-1584c Naked>                              Σ-8        ↓ →0x15828
            <MI 1582c  MOVE.L  D5,D0>                                           {[-8-]}
            <MI 1582e  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x15830 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 1583a  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 1583e  MOVE.B  (A0+D0.L+#0x2),-(A7)>         Δ-2                {[-8-]|[2, '(A0+D0.L+#0x2)']}
            <Call 0x15842 0x1563c>                                              {[-8-]|[2, '(A0+D0.L+#0x2)']}
            <POP 15846-15848 StackAdj>                       Δ+2                {[-8-]}
            <MI 15848  ADDQ.L  #0x1,D5>                                         {[-8-]}
            <MI 1584a  BVC     0x15828>                                         {[-8-]}
        <POP 1584c-1584e Naked>                              Σ-8 Δ+4    ↓ ←0x15828
            <POP 1584c-1584e StackAdj>                       Δ+4                {[-4-]}
        <POP 1584e-15856 Naked>                              Σ-4        ↓ →0x156e0 ←0x15804
            <MI 1584e  TST.B   (A6-0x5)>                                        {[-4-]}
            <MI 15852  BEQ     0x156e0>                                         {[-4-]}
        <POP 15856-1585e Naked>                              Σ-4 Δ+4    ↓ →0x15862
            <POP 15856-15858 StackAdj>                       Δ+4                {}
            <MI 15858  MOVE.W  0x1b5c2,D0>                                      {}
            <MI 1585a  CMP.W   #0x07,D0>                                        {}
            <MI 1585c  BNE     0x15862>                                         {}
        <POP 1585e-15862 Naked>                              Σ0         →0x15874
            <MI 1585e  CLR.W   0x1b5c2>                                         {}
            <MI 15860  BRA     0x15874>                                         {}
        <POP 15862-15874 Naked>                              Σ0         ↓ ←0x15856
            <MI 15862  CLR.L   D1>                                              {}
            <MI 15864  MOVE.W  D0,D1>                                           {}
            <MI 15866  ADDQ.L  #0x1,D1>                                         {}
            <POP 0x15868 LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {}
            <MI 15872  MOVE.W  D1,0x1b5c2>                                      {}
        <POP 15874-15898 Naked>                              Σ0         ↓ →0x158a2 ←0x1585e
            <MI 15874  MOVE.W  0x1b5c2,D0>                                      {}
            <POP 0x15876 LimitCheck 0x0 ≤ D0 ≤ 0x7>                             {}
            <MI 15878  CLR.L   D1>                                              {}
            <MI 1587a  MOVE.W  D0,D1>                                           {}
            <MI 1587c  ASL.L   #0x7,D1>                                         {}
            <MI 1587e  LEA.L   0x1b1b0,A0>                                      {}
            <MI 15884  MOVEA.L (A6-0x10),A1>                                    {}
            <MI 15886  LEA.L   (A0+D1.L+#0x12),A0>                              {}
            <BlockMove 128,A1,A0>                                               {}
            <MI 15892  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 15894  CMPA.W  #0x01,A0>                                        {}
            <MI 15896  BEQ     0x158a2>                                         {}
        <POP 15898-158a2 Naked>                              Σ0         ↓
            <Pointer.fp 0x15898 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x1589a 0x10d76>                                              {[@@8]}
                _FreeString(VAR a : String)
            <POP 158a0-158a2 StackAdj>                       Δ+4                {}
        <POP 158a2-158aa Naked>                              Σ0         ↓ ←0x15874
            <Call 0x158a2 0x153fc>                                              {}
                _WriteConsoleCrLf(void)
            <MI 158a6  MOVE.L  (A6-0x10),(A6+0xc)>                              {}
        <POP 158aa-158b2 Epilogue>                           Σ0         

0x158b2


@ 158b2
_AskOnConsoleInt(prompt: String) : Long
        <LVAR  0x00c 4(w)>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 158b2-15942 Body>                                              
        <POP 158b2-158c8 Prologue>                           Σ0         ↓
        <POP 158c8-158cc RegCacheLoad>                       Σ0         ↓
        <POP 158cc-158f4 Naked>                              Σ0         ↓ →0x15924 ←0x15924
            <POP 158cc-158ce StackAdj>                       Δ-8                {[-8-]}
            <MI 158ce  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-8-]|[4, '(A6+0x8)']}
            <Call 0x158d2 0x10ef2>                                              {[-8-]|[4, '(A6+0x8)']}
                _StringDup(a : String) : String
            <POP 158d8-158da StackAdj>                       Δ+4                {[-8-]}
            <Call 0x158da 0x15686>                                              {[-8-]}
                _AskConsoleString(prompt : String) : String
            <POP 158de-158e0 StackAdj>                       Δ+4                {[-4-]}
            <Pointer.fp 0x158e0 <LVAR -0x004 @ 1(r)>>        Δ-4                {[-4-]|[@@-4]}
            <Pointer.fp 0x158e2 <LVAR -0x008 @ 4(r)>>        Δ-4                {[-4-]|[@@-4]|[@@-8]}
            <Call 0x158e6 0x11288>                                              {[-4-]|[@@-4]|[@@-8]}
                _String2Long(src : String; VAR status : Bool; VAR retval : Long)
            <POP 158ec-158f0 StackAdj>                       Δ+12               {}
            <MI 158f0  TST.B   (A6-0x4)>                                        {}
            <MI 158f2  BNE     0x15924>                                         {}
        <POP 158f4-15924 Naked>                              Σ0         ↓
            <Blob 0x158f4 [48] @>                            Δ-48               {[«48""»]}
            <POP 15906-15908 StackAdj>                       Δ-4                {[«48""»]|[-4-]}
            <Lit 0x15908 47>                                                    {[«48""»]|[$$Integer input expected, bad syntax, or too big.]}
            <Call 0x1591c 0x154a2>                                              {[«48""»]|[$$Integer input expected, bad syntax, or too big.]}
                _WriteConsoleStringCrLf(str : String)
            <POP 15920-15924 StackAdj>                       Δ+52               {}
        <POP 15924-15928 Naked>                              Σ0         ↓ →0x158cc ←0x158cc
            <MI 15924  TST.B   (A6-0x4)>                                        {}
            <MI 15926  BEQ     0x158cc>                                         {}
        <POP 15928-1593a Naked>                              Σ0         ↓
            <Pointer.fp 0x15928 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x1592c 0x10d76>                                              {[@@8]}
                _FreeString(VAR a : String)
            <POP 15932-15934 StackAdj>                       Δ+4                {}
            <MI 15934  MOVE.L  (A6-0x8),(A6+0xc)>                               {}
        <POP 1593a-15942 Epilogue>                           Σ0         

0x15942


@ 15942
_AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
        <LVAR  0x014 4(w)>
        <LVAR  0x010 @ 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 15942-15a08 Body>                                              
        <POP 15942-15958 Prologue>                           Σ0         ↓
        <POP 15958-15962 RegCacheLoad>                       Σ0         ↓
        <POP 15962-15980 Naked>                              Σ0         ↓ →0x15988 ←0x159ea
            <POP 15962-15964 StackAdj>                       Δ-8                {[-8-]}
            <MI 15964  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x10)']}
            <Call 0x15968 0x10ef2>                                              {[-8-]|[4, '(A6+0x10)']}
                _StringDup(a : String) : String
            <POP 1596e-15970 StackAdj>                       Δ+4                {[-8-]}
            <Call 0x15970 0x158b2>                                              {[-8-]}
                _AskOnConsoleInt(prompt: String) : Long
            <POP 15974-15976 StackAdj>                       Δ+4                {[-4-]}
            <MI 15976  MOVE.L  (A7)+,D7>                     Δ+4                {}
            <MI 15978  MOVEQ.L #0x00,D6>                                        {}
            <MI 1597a  CMP.L   (A6+0xc),D7>                                     {}
            <MI 1597e  BLT     0x15988>                                         {}
        <POP 15980-15986 Naked>                              Σ0         ↓ →0x15988
            <MI 15980  CMP.L   (A6+0x8),D7>                                     {}
            <MI 15984  BGT     0x15988>                                         {}
        <POP 15986-15988 Naked>                              Σ0         ↓
            <MI 15986  ADDQ.B  #0x1,D6>                                         {}
        <POP 15988-1598c Naked>                              Σ0         ↓ →0x159ea ←0x15962 ←0x15980
            <MI 15988  TST.B   D6>                                              {}
            <MI 1598a  BNE     0x159ea>                                         {}
        <POP 1598c-159ea Naked>                              Σ0         ↓
            <Blob 0x1598c [34] @>                            Δ-34               {[«34""»]}
            <Blob 0x15998 [2] @>                             Δ-2                {[«34""»]|[«2""»]}
            <Blob 0x1599c [2] @>                             Δ-2                {[«34""»]|[«2""»]|[«2""»]}
            <POP 159a0-159a2 StackAdj>                       Δ-8                {[«34""»]|[«2""»]|[«2""»]|[-8-]}
            <Lit 0x159a2 34>                                                    {[«34""»]|[«2""»]|[«2""»]|[-4-]|[$$Integer input expected, in range []}
            <MI 159ae  MOVE.L  (A6+0xc),(A7)>                                   {[«34""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']}
            <POP 159ac-159ae StackAdj>                       Δ-8                {[«34""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']|[-8-]}
            <Call 0x159b2 0x110b0>                                              {[«34""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']|[-8-]}
                _Long2String(a : Long) : String
            <Lit 0x159b8 2>                                                     {[«34""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$..]}
            <MI 159c2  MOVE.L  (A6+0x8),(A7)>                                   {[«34""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']}
            <POP 159c0-159c2 StackAdj>                       Δ-8                {[«34""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-8-]}
            <Call 0x159c6 0x110b0>                                              {[«34""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-8-]}
                _Long2String(a : Long) : String
            <Lit 0x159cc 2>                                                     {[«34""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-4-]|[$$] ]}
            <Call 0x159d8 0x1102c>                                              {[«34""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-4-]|[$$] ]}
                _StringCat5(a, b, c, d, e : String) : String
            <POP 159de-159e2 StackAdj>                       Δ+20               {[«34""»]|[«2""»]|[«2""»]|[-4-]}
            <Call 0x159e2 0x154a2>                                              {[«34""»]|[«2""»]|[«2""»]|[-4-]}
                _WriteConsoleStringCrLf(str : String)
            <POP 159e6-159ea StackAdj>                       Δ+42               {}
        <POP 159ea-159f0 Naked>                              Σ0         ↓ →0x15962 ←0x15988
            <MI 159ea  TST.B   D6>                                              {}
            <MI 159ec  BEQ     0x15962>                                         {}
        <POP 159f0-15a00 Naked>                              Σ0         ↓
            <Pointer.fp 0x159f0 <LVAR  0x010 @ 4(r)>>        Δ-4                {[@@16]}
            <Call 0x159f4 0x10d76>                                              {[@@16]}
                _FreeString(VAR a : String)
            <POP 159fa-159fc StackAdj>                       Δ+4                {}
            <MI 159fc  MOVE.L  D7,(A6+0x14)>                                    {}
        <POP 15a00-15a08 Epilogue>                           Σ0         

0x15a08


@ 15a08
_AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
        <LVAR  0x00e 1(rw)>
        <LVAR  0x00a @ 4(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x008 @ 4(rw)>
    <POP 15a08-15afe Body>                                              
        <POP 15a08-15a1e Prologue>                           Σ0         ↓
        <POP 15a1e-15a2a RegCacheLoad>                       Σ0         ↓
        <POP 15a2a-15a88 Naked>                              Σ0         ↓ →0x15a8c ←0x15ae4
            <MI 15a2a  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 15a2e  EXTB.W  D0>                                              {}
            <MI 15a30  MOVEQ.L #0x0a,D1>                                        {}
            <MI 15a32  MULS.W  D0,D1>                                           {}
            <MI 15a34  LEA.L   0x151ee,A0>                                      {}
            <Blob 0x15a38 [10] (A0+D1.W)>                    Δ-10               {[«10»]}
            <POP 15a48-15a4c StackAdj>                       Δ-16               {[«10»]|[-16-]}
            <MI 15a4c  MOVE.L  (A6+0xa),-(A7)>               Δ-4                {[«10»]|[-16-]|[4, '(A6+0xa)']}
            <Call 0x15a50 0x10ef2>                                              {[«10»]|[-16-]|[4, '(A6+0xa)']}
                _StringDup(a : String) : String
            <Lit 0x15a56>                                                       {[«10»]|[-16-]|[$$…]}
                <Pointer.sp 0x15a56 20>                      Δ-4        
                <Const 0x15a5a 0x1.2>                        Δ-2        
                <Const 0x15a5c 0xa.2>                        Δ-2        
                <Call 0x15a5e 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 15a64-15a66 StackAdj>                   Δ+8        
            <Call 0x15a66 0x10f34>                                              {[«10»]|[-16-]|[$$…]}
                _StringCat2(a, b : String) : String
            <POP 15a6c-15a6e StackAdj>                       Δ+8                {[«10»]|[-12-]}
            <Call 0x15a6e 0x15686>                                              {[«10»]|[-12-]}
                _AskConsoleString(prompt : String) : String
            <POP 15a72-15a74 StackAdj>                       Δ+4                {[«10»]|[-8-]}
            <Call 0x15a74 0x113b4>                                              {[«10»]|[-8-]}
                _ToUpper(a : String) : String
            <POP 15a7a-15a7c StackAdj>                       Δ+4                {[«10»]|[-4-]}
            <MI 15a7c  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«10»]}
            <POP 15a7e-15a80 StackAdj>                       Δ+10               {}
            <MI 15a80  MOVEQ.L #0x01,D7>                                        {}
            <MI 15a82  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 15a84  TST.W   (A0)>                                            {}
            <MI 15a86  BNE     0x15a8c>                                         {}
        <POP 15a88-15a8c Naked>                              Σ0         →0x15aae
            <MI 15a88  MOVE.B  D0,(A6+0xe)>                                     {}
            <MI 15a8a  BRA     0x15aae>                                         {}
        <POP 15a8c-15a92 Naked>                              Σ0         ↓ →0x15a94 ←0x15a2a
            <MI 15a8c  MOVE.W  (A0),D0>                                         {}
            <MI 15a8e  CMP.W   #0x01,D0>                                        {}
            <MI 15a90  BEQ     0x15a94>                                         {}
        <POP 15a92-15a94 Naked>                              Σ0         →0x15aac
            <MI 15a92  BRA     0x15aac>                                         {}
        <POP 15a94-15a9e Naked>                              Σ0         ↓ →0x15aa2 ←0x15a8c
            <MI 15a94  MOVE.B  (A0+0x2),D6>                                     {}
            <MI 15a98  CMPI.B  #0x59,D6>                                        {}
            <MI 15a9c  BNE     0x15aa2>                                         {}
        <POP 15a9e-15aa2 Naked>                              Σ0         →0x15aae
            <MI 15a9e  MOVE.B  #0x01,(A6+0xe)>                                  {}
            <MI 15aa0  BRA     0x15aae>                                         {}
        <POP 15aa2-15aa8 Naked>                              Σ0         ↓ →0x15aac ←0x15a94
            <MI 15aa2  CMPI.B  #0x4e,D6>                                        {}
            <MI 15aa6  BNE     0x15aac>                                         {}
        <POP 15aa8-15aac Naked>                              Σ0         →0x15aae
            <MI 15aa8  CLR.B   (A6+0xe)>                                        {}
            <MI 15aaa  BRA     0x15aae>                                         {}
        <POP 15aac-15aae Naked>                              Σ0         ↓ ←0x15a92 ←0x15aa2
            <MI 15aac  MOVEQ.L #0x00,D7>                                        {}
        <POP 15aae-15abc Naked>                              Σ0         ↓ →0x15ae4 ←0x15a88 ←0x15a9e ←0x15aa8
            <Pointer.fp 0x15aae <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x15ab0 0x10d76>                                              {[@@-8]}
                _FreeString(VAR a : String)
            <POP 15ab6-15ab8 StackAdj>                       Δ+4                {}
            <MI 15ab8  TST.B   D7>                                              {}
            <MI 15aba  BNE     0x15ae4>                                         {}
        <POP 15abc-15ae4 Naked>                              Σ0         ↓
            <Blob 0x15abc [20] @>                            Δ-20               {[«20""»]}
            <POP 15ac8-15aca StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x15aca 20>                                                    {[«20""»]|[$$Expected 'Y' or 'N'!]}
            <Call 0x15adc 0x154a2>                                              {[«20""»]|[$$Expected 'Y' or 'N'!]}
                _WriteConsoleStringCrLf(str : String)
            <POP 15ae0-15ae4 StackAdj>                       Δ+24               {}
        <POP 15ae4-15aea Naked>                              Σ0         ↓ →0x15a2a ←0x15aae
            <MI 15ae4  TST.B   D7>                                              {}
            <MI 15ae6  BEQ     0x15a2a>                                         {}
        <POP 15aea-15af6 Naked>                              Σ0         ↓
            <Pointer.fp 0x15aea <LVAR  0x00a @ 4(r)>>        Δ-4                {[@@10]}
            <Call 0x15aee 0x10d76>                                              {[@@10]}
                _FreeString(VAR a : String)
            <POP 15af4-15af6 StackAdj>                       Δ+4                {}
        <POP 15af6-15afe Epilogue>                           Σ0         

0x15afe


@ 15afe
_SetConsoleConfig(a : Long)
        <LVAR  0x008 4(r)>
    <POP 15afe-15b1c Body>                                              
        <POP 15afe-15b10 Prologue>                           Σ0         ↓
        <POP 15b10-15b18 Naked>                              Σ0         ↓
            <MI 15b10  MOVE.L  (A6+0x8),0x1b1b8>                                {}
        <POP 15b18-15b1c Epilogue>                           Σ0         

0x15b1c


@ 15b1c
_GetConsoleConfig() : Long
        <LVAR  0x008 4(w)>
    <POP 15b1c-15b3a Body>                                              
        <POP 15b1c-15b2e Prologue>                           Σ0         ↓
        <POP 15b2e-15b36 Naked>                              Σ0         ↓
            <MI 15b2e  MOVE.L  0x1b1b8,(A6+0x8)>                                {}
        <POP 15b36-15b3a Epilogue>                           Σ0         

0x15b3a


@ 15b3a
_SetConsolePrinter(a: Byte; b: Word; c: Word)
        <LVAR  0x00c 1(r)>
        <LVAR  0x00a 2(r)>
        <LVAR  0x008 2(r)>
    <POP 15b3a-15b76 Body>                                              
        <POP 15b3a-15b50 Prologue>                           Σ0         ↓
        <POP 15b50-15b6e Naked>                              Σ0         ↓
            <MI 15b50  MOVE.B  (A6+0xc),0x1b1bc>                                {}
            <MI 15b58  MOVE.W  (A6+0xa),D0>                                     {}
            <POP 0x15b5c LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 15b60  MOVE.W  D0,0x1b1be>                                      {}
            <MI 15b66  MOVE.W  (A6+0x8),0x1b1c0>                                {}
        <POP 15b6e-15b76 Epilogue>                           Σ0         

0x15b76


@ 15b76
_FSCALL_10400
        <LVAR -0x00a @>
        <LVAR -0x00c @ 1(r)>
    <POP 15b76-15c70 Body>                                              
        <POP 15b76-15b8c Prologue>                           Σ0         ↓
        <POP 15b8c-15b9e RegCacheLoad>                       Σ0         ↓
        <POP 15b9e-15bb8 Naked>                              Σ0         ↓ →0x15bc8
            <Pointer.fp 0x15b9e <LVAR -0x00c @ 1(r)>>        Δ-4                {[@@-12]}
            <Pointer.fp 0x15ba2 <LVAR -0x00a @>>             Δ-4                {[@@-12]|[@@-10]}
            <Call 0x15ba6 0x10200>                                              {[@@-12]|[@@-10]}
                KC00_GetBootDev(VAR a : Byte; VAR b : Word)
            <POP 15bac-15bae StackAdj>                       Δ+8                {}
            <MI 15bae  MOVE.B  (A6-0xc),D0>                                     {}
            <MI 15bb2  CMPI.B  #0x02,D0>                                        {}
            <MI 15bb6  BNE     0x15bc8>                                         {}
        <POP 15bb8-15bc2 Naked>                              Σ0         ↓ →0x15bc4
            <MI 15bb8  MOVE.L  0x1b1b8,D0>                                      {}
            <MI 15bba  CMPI.L  #0x00000003,D0>                                  {}
            <MI 15bc0  BEQ     0x15bc4>                                         {}
        <POP 15bc2-15bc4 Naked>                              Σ0         ↓
            <MI 15bc2  MOVE.L  #0x01,0x1b1b8>                                   {}
        <POP 15bc4-15bc8 Naked>                              Σ0         →0x15c68 ←0x15bb8
            <MI 15bc4  BRA     0x15c68>                                         {}
        <POP 15bc8-15c02 Naked>                              Σ0         ↓ →0x15c56 ←0x15b9e
            <MI 15bc8  MOVE.L  #0x01,0x1b1b8>                                   {}
            <Blob 0x15bca [38] @>                            Δ-38               {[«38""»]}
            <POP 15bd6-15bd8 StackAdj>                       Δ-6                {[«38""»]|[-6-]}
            <Lit 0x15bd8 38>                                                    {[«38""»]|[-2-]|[$$Enable line printer for console output]}
            <POP 15be6-15be8 StackAdj>                       Δ-2                {[«38""»]|[-2-]|[$$Enable line printer for console output]|[-2-]}
            <MI 15be8  CLR.B   (A7)>                                            {[«38""»]|[-2-]|[$$Enable line printer for console output]|[-2-]}
            <Call 0x15bea 0x15a08>                                              {[«38""»]|[-2-]|[$$Enable line printer for console output]|[-2-]}
                _AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 15bee-15bf0 StackAdj>                       Δ+6                {[«38""»]|[-2-]}
            <MI 15bf0  MOVE.B  (A7)+,D0>                     Δ+2                {[«38""»]}
            <MI 15bf2  EXTB.W  D0>                                              {[«38""»]}
            <POP 0x15bf4 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«38""»]}
            <POP 15bf6-15bf8 StackAdj>                       Δ+38               {}
            <MI 15bf8  MOVE.B  D0,0x1b1bc>                                      {}
            <MI 15bfe  TST.B   D0>                                              {}
            <MI 15c00  BEQ     0x15c56>                                         {}
        <POP 15c02-15c56 Naked>                              Σ0         ↓
            <Blob 0x15c02 [28] @>                            Δ-28               {[«28""»]}
            <POP 15c0e-15c10 StackAdj>                       Δ-8                {[«28""»]|[-8-]}
            <Lit 0x15c10 28>                                                    {[«28""»]|[-4-]|[$$Enter printer line number :_]}
            <Const 0x15c20 0x10.4>                           Δ-4                {[«28""»]|[-4-]|[$$Enter printer line number :_]|[##16]}
            <Const 0x15c24 0xff.4>                           Δ-4                {[«28""»]|[-4-]|[$$Enter printer line number :_]|[##16]|[##255]}
            <Call 0x15c28 0x15942>                                              {[«28""»]|[-4-]|[$$Enter printer line number :_]|[##16]|[##255]}
                _AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 15c2c-15c30 StackAdj>                       Δ+12               {[«28""»]|[-4-]}
            <MI 15c30  MOVE.L  (A7)+,D0>                     Δ+4                {[«28""»]}
            <POP 0x15c32 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[«28""»]}
            <POP 15c3c-15c3e StackAdj>                       Δ+28               {}
            <MI 15c3e  MOVE.W  D0,D7>                                           {}
            <MI 15c40  MOVE.W  D7,D0>                                           {}
            <MI 15c42  LSR.W   #0x4,D0>                                         {}
            <MI 15c44  SUBQ.W  #0x1,D0>                                         {}
            <POP 0x15c46 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 15c4a  MOVE.W  D0,0x1b1be>                                      {}
            <MI 15c50  MOVE.W  D7,0x1b1c0>                                      {}
            <MI 15c52  ANDI.W  #0x000f,0x1b1c0>                                 {}
        <POP 15c56-15c68 Naked>                              Σ0         ↓ ←0x15bc8
            <MI 15c56  MOVE.B  #0x01,0x20108>                                   {}
            <Const 0x15c5c 0x1.2>                            Δ-2                {[#1]}
            <Const 0x15c5e 0x1.2>                            Δ-2                {[#1]|[#1]}
            <Call 0x15c60 0x10210>                                              {[#1]|[#1]}
                KC08_PortSomething(port: Word; b: Byte)
            <POP 15c66-15c68 StackAdj>                       Δ+4                {}
        <POP 15c68-15c70 Epilogue>                           Σ0         ←0x15bc4

0x15c70


@ 15c70
_SetSomeKindOfFlag(a : Byte)
        <LVAR  0x008 1(r)>
    <POP 15c70-15c9a Body>                                              
        <POP 15c70-15c82 Prologue>                           Σ0         ↓
        <POP 15c82-15c96 Naked>                              Σ0         ↓
            <MI 15c82  MOVE.B  (A6+0x8),0x20108>                                {}
            <MI 15c8a  NEG.B   0x20108>                                         {}
            <MI 15c90  ADDQ.B  #0x1,0x20108>                                    {}
        <POP 15c96-15c9a Epilogue>                           Σ0         

0x16048


@ 16048
        <LVAR  0x014 1(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00e 2(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 2(w)>
        <LVAR -0x008 2(w)>
        <LVAR -0x00e 2(w)>
        <LVAR -0x012 @>
    <POP 16048-160ba Body>                                              
        <POP 16048-1605e Prologue>                           Σ0         ↓
        <POP 1605e-16060 RegCacheLoad>                       Σ0         ↓
        <POP 16060-160a2 Naked>                              Σ0         ↓ →0x160b2
            <MI 16060  MOVE.W  #0x3,(A6-0xe)>                                   {}
            <MI 16066  MOVE.W  0x1b5de,D0>                                      {}
            <MI 1606c  ASL.W   #0x8,D0>                                         {}
            <MI 1606e  MOVE.B  (A6+0x14),D1>                                    {}
            <MI 16072  EXTB.W  D1>                                              {}
            <MI 16074  ADD.W   D0,D1>                                           {}
            <POP 0x16076 LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {}
            <MI 1607e  MOVE.W  D1,(A6-0x8)>                                     {}
            <MI 16082  MOVE.W  (A6+0xe),(A6-0x6)>                               {}
            <Pointer.fp 0x16088 <LVAR -0x012 @>>             Δ-4                {[@@-18]}
            <MI 1608c  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[@@-18]|[4, '(A6+0x10)']}
            <Const 0x16090 0x1.2>                            Δ-2                {[@@-18]|[4, '(A6+0x10)']|[#1]}
            <Call 0x16092 0x10204>                                              {[@@-18]|[4, '(A6+0x10)']|[#1]}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 16098-1609c StackAdj>                       Δ+10               {}
            <MI 1609c  TST.B   (A6+0xc)>                                        {}
            <MI 160a0  BEQ     0x160b2>                                         {}
        <POP 160a2-160b2 Naked>                              Σ0         ↓
            <Const 0x160a2 0x1.2>                            Δ-2                {[#1]}
            <MI 160a4  MOVEA.L (A6+0x8),A0>                                     {[#1]}
            <MI 160a8  PEA.L   (A0)>                         Δ-4                {[#1]|[4, '^(A0)']}
            <Call 0x160aa 0x10206>                                              {[#1]|[4, '^(A0)']}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 160b0-160b2 StackAdj>                       Δ+6                {}
        <POP 160b2-160ba Epilogue>                           Σ0         ←0x16060

0x160ba


@ 160ba
        <LVAR  0x008 1(rw)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x00c 2(r)>
        <LVAR -0x018 @>
    <POP 160ba-16116 Body>                                              
        <POP 160ba-160d0 Prologue>                           Σ0         ↓
        <POP 160d0-160f0 Naked>                              Σ0         ↓ →0x160fc
            <MI 160d0  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 160d2  LEA.L   (A6-0x18),A0>                                    {[#0]}
            <MI 160d6  MOVE.L  A0,-(A7)>                     Δ-4                {[#0]|[4, 'A0']}
            <MI 160d8  CLR.W   -(A7)>                        Δ-2                {[#0]|[4, 'A0']|[#0]}
            <Const 0x160da 0x1.2>                            Δ-2                {[#0]|[4, 'A0']|[#0]|[#1]}
            <Pointer.fp 0x160de <LVAR -0x004 @ 1(r)>>        Δ-4                {[#0]|[4, 'A0']|[#0]|[#1]|[@@-4]}
            <Call 0x160e2 0x16048>                                              {[#0]|[4, 'A0']|[#0]|[#1]|[@@-4]}
            <POP 160e6-160ea StackAdj>                       Δ+14               {}
            <MI 160ea  TST.B   (A6-0x4)>                                        {}
            <MI 160ee  BNE     0x160fc>                                         {}
        <POP 160f0-160fc Naked>                              Σ0         ↓
            <Const 0x160f0 0xc.4>                            Δ-4                {[##12]}
            <Call 0x160f4 0x10220>                                              {[##12]}
                KC10_Panic(code : Long)
            <POP 160fa-160fc StackAdj>                       Δ+4                {}
        <POP 160fc-1610a Naked>                              Σ0         ↓ →0x1610e ←0x160d0
            <MI 160fc  CLR.B   (A6+0x8)>                                        {}
            <MI 16100  MOVE.W  (A6-0xc),D0>                                     {}
            <MI 16104  ANDI.W  #0x0004,D0>                                      {}
            <MI 16108  BEQ     0x1610e>                                         {}
        <POP 1610a-1610e Naked>                              Σ0         ↓
            <MI 1610a  ADDQ.B  #0x1,(A6+0x8)>                                   {}
        <POP 1610e-16116 Epilogue>                           Σ0         ←0x160fc

0x16116


@ 16116
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 16116-16176 Body>                                              
        <POP 16116-1612c Prologue>                           Σ0         ↓
        <POP 1612c-16140 Naked>                              Σ0         ↓ →0x16144
            <MI 1612c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 16130  CLR.B   (A0)>                                            {}
            <MI 16132  MOVEA.L (A6+0xc),A1>                                     {}
            <MI 16136  MOVE.W  (A1+0xe),D0>                                     {}
            <MI 1613a  ANDI.W  #0x0008,D0>                                      {}
            <MI 1613e  BEQ     0x16144>                                         {}
        <POP 16140-16144 Naked>                              Σ0         ↓
            <MI 16140  MOVE.B  #0x0a,(A0)>                                      {}
        <POP 16144-1614c Naked>                              Σ0         ↓ →0x16150 ←0x1612c
            <MI 16144  MOVE.W  (A1),D0>                                         {}
            <MI 16146  ANDI.W  #0x0040,D0>                                      {}
            <MI 1614a  BEQ     0x16150>                                         {}
        <POP 1614c-16150 Naked>                              Σ0         ↓
            <MI 1614c  MOVE.B  #0x05,(A0)>                                      {}
        <POP 16150-1615a Naked>                              Σ0         ↓ →0x1616e ←0x16144
            <MI 16150  MOVE.W  (A1+0xa),D0>                                     {}
            <MI 16154  ANDI.W  #0x0020,D0>                                      {}
            <MI 16158  BEQ     0x1616e>                                         {}
        <POP 1615a-1616e Naked>                              Σ0         ↓
            <MI 1615a  MOVE.B  #0x0b,(A0)>                                      {}
            <Const 0x1615e 0x1.2>                            Δ-2                {[#1]}
            <MI 16162  MOVEA.L A1,A0>                                           {[#1]}
            <MI 16164  MOVE.L  A0,-(A7)>                     Δ-4                {[#1]|[4, 'A0']}
            <Call 0x16166 0x144d8>                                              {[#1]|[4, 'A0']}
                _Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 1616c-1616e StackAdj>                       Δ+6                {}
        <POP 1616e-16176 Epilogue>                           Σ0         ←0x16150

0x16176


@ 16176
        <LVAR  0x008 4(r)>
    <POP 16176-161a6 Body>                                              
        <POP 16176-1618c Prologue>                           Σ0         ↓
        <POP 1618c-1619e Naked>                              Σ0         ↓
            <Const 0x1618c 0x1.2>                            Δ-2                {[#1]}
            <MI 16190  MOVEA.L (A6+0x8),A0>                                     {[#1]}
            <MI 16194  MOVE.L  A0,-(A7)>                     Δ-4                {[#1]|[4, 'A0']}
            <Call 0x16196 0x144d8>                                              {[#1]|[4, 'A0']}
                _Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 1619c-1619e StackAdj>                       Δ+6                {}
        <POP 1619e-161a6 Epilogue>                           Σ0         

0x161a6


@ 161a6
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 161a6-16260 Body>                                              
        <POP 161a6-161bc Prologue>                           Σ0         ↓
        <POP 161bc-161d0 RegCacheLoad>                       Σ0         ↓
        <POP 161d0-161e2 Naked>                              Σ0         ↓ →0x161e6
            <MI 161d0  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 161d4  MOVE.W  (A0+0xe),D0>                                     {}
            <MI 161d8  AND.W   #0x01,D0>                                        {}
            <MI 161da  MOVE.W  (A0+0x8),D1>                                     {}
            <MI 161de  AND.W   #0x2003,D1>                                      {}
            <MI 161e0  BNE     0x161e6>                                         {}
        <POP 161e2-161e6 Naked>                              Σ0         ↓ →0x161ea
            <MI 161e2  TST.W   D0>                                              {}
            <MI 161e4  BEQ     0x161ea>                                         {}
        <POP 161e6-161ea Naked>                              Σ0         ↓ ←0x161d0
            <MI 161e6  MOVEA.L (A6+0x8),A1>                                     {}
            <MI 161e8  CLR.B   (A1)>                                            {}
        <POP 161ea-161f4 Naked>                              Σ0         ↓ →0x161fa ←0x161e2
            <MI 161ea  MOVE.W  (A0+0x8),D1>                                     {}
            <MI 161ee  ANDI.W  #0x1000,D1>                                      {}
            <MI 161f2  BEQ     0x161fa>                                         {}
        <POP 161f4-161fa Naked>                              Σ0         ↓
            <MI 161f4  MOVEA.L (A6+0x8),A1>                                     {}
            <MI 161f6  MOVE.B  #0x08,(A1)>                                      {}
        <POP 161fa-16204 Naked>                              Σ0         ↓ →0x16222 ←0x161ea
            <MI 161fa  MOVE.W  (A0+0x8),D1>                                     {}
            <MI 161fe  ANDI.W  #0x4000,D1>                                      {}
            <MI 16202  BEQ     0x16222>                                         {}
        <POP 16204-1620a Naked>                              Σ0         ↓ →0x16210
            <MI 16204  MOVE.B  0x1b5dc,D1>                                      {}
            <MI 16206  CMP.B   #0x07,D1>                                        {}
            <MI 16208  BEQ     0x16210>                                         {}
        <POP 1620a-16210 Naked>                              Σ0         ↓ →0x16216
            <MI 1620a  CMPI.B  #0x09,D1>                                        {}
            <MI 1620e  BNE     0x16216>                                         {}
        <POP 16210-16216 Naked>                              Σ0         →0x16222 ←0x16204
            <MI 16210  MOVEA.L (A6+0x8),A1>                                     {}
            <MI 16212  CLR.B   (A1)>                                            {}
            <MI 16214  BRA     0x16222>                                         {}
        <POP 16216-1621a Naked>                              Σ0         ↓ →0x1621e ←0x1620a
            <MI 16216  CMP.B   #0x02,D1>                                        {}
            <MI 16218  BEQ     0x1621e>                                         {}
        <POP 1621a-1621e Naked>                              Σ0         ↓ →0x16222
            <MI 1621a  CMP.B   #0x2003,D1>                                      {}
            <MI 1621c  BNE     0x16222>                                         {}
        <POP 1621e-16222 Naked>                              Σ0         ↓ ←0x16216
            <MI 1621e  MOVEA.L (A6+0x8),A1>                                     {}
            <MI 16220  MOVE.B  #0x07,(A1)>                                      {}
        <POP 16222-1622c Naked>                              Σ0         ↓ →0x1623e ←0x161fa ←0x16210 ←0x1621a
            <MI 16222  MOVE.W  (A0+0x8),D1>                                     {}
            <MI 16226  ANDI.W  #0x8000,D1>                                      {}
            <MI 1622a  BEQ     0x1623e>                                         {}
        <POP 1622c-16232 Naked>                              Σ0         ↓ →0x16238
            <MI 1622c  MOVE.B  0x1b5dc,D1>                                      {}
            <MI 1622e  CMP.B   #0x02,D1>                                        {}
            <MI 16230  BEQ     0x16238>                                         {}
        <POP 16232-16238 Naked>                              Σ0         ↓ →0x1623e
            <MI 16232  MOVE.B  0x1b5dc,D1>                                      {}
            <MI 16234  CMP.B   #0x2003,D1>                                      {}
            <MI 16236  BNE     0x1623e>                                         {}
        <POP 16238-1623e Naked>                              Σ0         ↓ ←0x1622c
            <MI 16238  MOVEA.L (A6+0x8),A1>                                     {}
            <MI 1623a  MOVE.B  #0x06,(A1)>                                      {}
        <POP 1623e-16248 Naked>                              Σ0         ↓ →0x16258 ←0x16222 ←0x16232
            <MI 1623e  MOVE.W  (A0+0x8),D1>                                     {}
            <MI 16242  ANDI.W  #0xf003,D1>                                      {}
            <MI 16246  BNE     0x16258>                                         {}
        <POP 16248-1624c Naked>                              Σ0         ↓ →0x16258
            <MI 16248  TST.W   D0>                                              {}
            <MI 1624a  BNE     0x16258>                                         {}
        <POP 1624c-16258 Naked>                              Σ0         ↓
            <Const 0x1624c 0x1.2>                            Δ-2                {[#1]}
            <MI 1624e  MOVE.L  A0,-(A7)>                     Δ-4                {[#1]|[4, 'A0']}
            <Call 0x16250 0x144d8>                                              {[#1]|[4, 'A0']}
                _Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 16256-16258 StackAdj>                       Δ+6                {}
        <POP 16258-16260 Epilogue>                           Σ0         ←0x1623e ←0x16248

0x16260


@ 16260
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 16260-162e0 Body>                                              
        <POP 16260-16276 Prologue>                           Σ0         ↓
        <POP 16276-1627c RegCacheLoad>                       Σ0         ↓
        <POP 1627c-1628a Naked>                              Σ0         ↓ →0x1628e
            <MI 1627c  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 16280  MOVE.W  (A0+0x8),D0>                                     {}
            <MI 16284  ANDI.W  #0x0002,D0>                                      {}
            <MI 16288  BEQ     0x1628e>                                         {}
        <POP 1628a-1628e Naked>                              Σ0         ↓
            <MI 1628a  MOVEA.L (A6+0x8),A1>                                     {}
            <MI 1628c  CLR.B   (A1)>                                            {}
        <POP 1628e-16294 Naked>                              Σ0         ↓ →0x1629e ←0x1627c
            <MI 1628e  MOVE.W  (A0),D0>                                         {}
            <MI 16290  AND.W   #0x40,D0>                                        {}
            <MI 16292  BNE     0x1629e>                                         {}
        <POP 16294-1629e Naked>                              Σ0         ↓ →0x162a4
            <MI 16294  MOVE.W  (A0+0x8),D1>                                     {}
            <MI 16298  ANDI.W  #0x0010,D1>                                      {}
            <MI 1629c  BEQ     0x162a4>                                         {}
        <POP 1629e-162a4 Naked>                              Σ0         ↓ ←0x1628e
            <MI 1629e  MOVEA.L (A6+0x8),A1>                                     {}
            <MI 162a0  MOVE.B  #0x05,(A1)>                                      {}
        <POP 162a4-162ae Naked>                              Σ0         ↓ →0x162b4 ←0x16294
            <MI 162a4  MOVE.W  (A0+0x8),D1>                                     {}
            <MI 162a8  ANDI.W  #0x0800,D1>                                      {}
            <MI 162ac  BEQ     0x162b4>                                         {}
        <POP 162ae-162b4 Naked>                              Σ0         ↓
            <MI 162ae  MOVEA.L (A6+0x8),A1>                                     {}
            <MI 162b0  MOVE.B  #0x04,(A1)>                                      {}
        <POP 162b4-162b8 Naked>                              Σ0         ↓ →0x162d8 ←0x162a4
            <MI 162b4  TST.W   D0>                                              {}
            <MI 162b6  BNE     0x162d8>                                         {}
        <POP 162b8-162c0 Naked>                              Σ0         ↓ →0x162d8
            <MI 162b8  MOVE.W  (A0+0x8),D0>                                     {}
            <MI 162bc  AND.W   #0x40,D0>                                        {}
            <MI 162be  BEQ     0x162d8>                                         {}
        <POP 162c0-162ca Naked>                              Σ0         ↓ →0x162d8
            <MI 162c0  MOVE.W  (A0+0x8),D0>                                     {}
            <MI 162c4  ANDI.W  #0x0c12,D0>                                      {}
            <MI 162c8  BNE     0x162d8>                                         {}
        <POP 162ca-162d8 Naked>                              Σ0         ↓
            <Const 0x162ca 0x1.2>                            Δ-2                {[#1]}
            <MI 162ce  MOVE.L  A0,-(A7)>                     Δ-4                {[#1]|[4, 'A0']}
            <Call 0x162d0 0x144d8>                                              {[#1]|[4, 'A0']}
                _Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 162d6-162d8 StackAdj>                       Δ+6                {}
        <POP 162d8-162e0 Epilogue>                           Σ0         ←0x162b4 ←0x162b8 ←0x162c0

0x162e0


@ 162e0
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 162e0-16384 Body>                                              
        <POP 162e0-162f6 Prologue>                           Σ0         ↓
        <POP 162f6-162fc RegCacheLoad>                       Σ0         ↓
        <POP 162fc-16310 Naked>                              Σ0         ↓ →0x16318
            <MI 162fc  MOVE.B  0x1b5dc,D0>                                      {}
            <MI 16302  EXTB.W  D0>                                              {}
            <POP 0x16304 LimitCheck 0x0 ≤ D0 ≤ 0x1b>                            {}
            <MI 16306  LEA.L   0x15e7c,A0>                                      {}
            <MI 1630a  TST.B   (A0+D0.W)>                                       {}
            <MI 1630e  BNE     0x16318>                                         {}
        <POP 16310-16318 Naked>                              Σ0         →0x1637c
            <MI 16310  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 16314  CLR.B   (A0)>                                            {}
            <MI 16316  BRA     0x1637c>                                         {}
        <POP 16318-16334 Naked>                              Σ0         ↓ →0x1633c ←0x162fc
            <MI 16318  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 1631c  MOVE.B  #0x09,(A0)>                                      {}
            <MI 16320  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 16324  MOVE.B  #0x01,(A0)>                                      {}
            <MI 16328  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 1632c  MOVE.W  (A0),D1>                                         {}
            <MI 1632e  ANDI.W  #0x0002,D1>                                      {}
            <MI 16332  BEQ     0x1633c>                                         {}
        <POP 16334-1633c Naked>                              Σ0         →0x1637c
            <MI 16334  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 0x16336 LimitCheck 0x0 ≤ D0 ≤ 0x1b>                            {}
            <MI 16338  MOVE.B  D0,(A0)>                                         {}
            <MI 1633a  BRA     0x1637c>                                         {}
        <POP 1633c-16350 Naked>                              Σ0         →0x16366 →0x16366 →0x1636e →0x1636e →0x16376 →0x16376 ←0x16318
            <MI 1633c  SUBQ.W  #0x2,D0>                                         {}
            <POP 0x1633e LimitCheck 0x0 ≤ D0 ≤ 0xa>                             {}
            <MI 16346  ADD.W   D0,D0>                                           {}
            <MI 16348  SWITCH  D0.W>                                            {}
        <POP 16366-1636e Naked>                              Σ0         →0x1637c ←0x1633c ←0x1633c
            <MI 16366  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 16368  MOVE.B  #0x03,(A0)>                                      {}
            <MI 1636c  BRA     0x1637c>                                         {}
        <POP 1636e-16376 Naked>                              Σ0         →0x1637c ←0x1633c ←0x1633c
            <MI 1636e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 16370  MOVE.B  #0x05,(A0)>                                      {}
            <MI 16374  BRA     0x1637c>                                         {}
        <POP 16376-1637c Naked>                              Σ0         ↓ ←0x1633c ←0x1633c
            <MI 16376  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 16378  MOVE.B  #0x0c,(A0)>                                      {}
        <POP 1637c-16384 Epilogue>                           Σ0         ←0x16310 ←0x16334 ←0x16366 ←0x1636e

0x16384


@ 16384
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 16384-163c6 Body>                                              
        <POP 16384-1639a Prologue>                           Σ0         ↓
        <POP 1639a-163a8 Naked>                              Σ0         ↓ →0x163b0
            <MI 1639a  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 1639e  MOVE.W  (A0+0xe),D0>                                     {}
            <MI 163a2  ANDI.W  #0x0008,D0>                                      {}
            <MI 163a6  BEQ     0x163b0>                                         {}
        <POP 163a8-163b0 Naked>                              Σ0         ↓
            <MI 163a8  MOVEA.L (A6+0x8),A1>                                     {}
            <MI 163ac  MOVE.B  #0x0a,(A1)>                                      {}
        <POP 163b0-163be Naked>                              Σ0         ↓ ←0x1639a
            <Const 0x163b0 0x1.2>                            Δ-2                {[#1]}
            <MI 163b4  MOVE.L  A0,-(A7)>                     Δ-4                {[#1]|[4, 'A0']}
            <Call 0x163b6 0x144d8>                                              {[#1]|[4, 'A0']}
                _Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 163bc-163be StackAdj>                       Δ+6                {}
        <POP 163be-163c6 Epilogue>                           Σ0         

0x163c6


@ 163c6
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 163c6-163fe Body>                                              
        <POP 163c6-163dc Prologue>                           Σ0         ↓
        <POP 163dc-163f6 Naked>                              Σ0         ↓
            <MI 163dc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 163e0  MOVE.B  #0x0c,(A0)>                                      {}
            <Const 0x163e4 0x1.2>                            Δ-2                {[#1]}
            <MI 163e8  MOVEA.L (A6+0xc),A0>                                     {[#1]}
            <MI 163ec  MOVE.L  A0,-(A7)>                     Δ-4                {[#1]|[4, 'A0']}
            <Call 0x163ee 0x144d8>                                              {[#1]|[4, 'A0']}
                _Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 163f4-163f6 StackAdj>                       Δ+6                {}
        <POP 163f6-163fe Epilogue>                           Σ0         

0x163fe


@ 163fe
_FSCALL_10408
        <LVAR  0x008 4(r)>
        <LVAR -0x00c 2(r)>
        <LVAR -0x00e 2(r)>
        <LVAR -0x014 @ 2(r)>
        <LVAR -0x015 @ 1(r)>
        <LVAR -0x016 @ 1(r)>
        <LVAR -0x017 @ 1(r)>
        <LVAR -0x018 @ 1(r)>
    <POP 163fe-16562 Body>                                   Δ+32       
        <POP 163fe-16414 Prologue>                           Σ0         ↓
        <POP 16414-16426 RegCacheLoad>                       Σ0         ↓
        <POP 16426-16428 Naked>                              Σ0         ↓
            <MI 16426  MOVEQ.L #0x00,D7>                                        {}
        <POP 16428-16444 Naked>                              Σ0         ↓ →0x16550 ←0x16554
            <MI 16428  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1642c  CLR.B   (A0)>                                            {}
            <MI 1642e  CLR.B   (A0+0x1)>                                        {}
            <Const 0x16432 0x1.2>                            Δ-2                {[#1]}
            <Pointer.fp 0x16434 <LVAR -0x016 @ 1(r)>>        Δ-4                {[#1]|[@@-22]}
            <Call 0x16436 0x10206>                                              {[#1]|[@@-22]}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 1643c-1643e StackAdj>                       Δ+6                {}
            <MI 1643e  TST.B   (A6-0x16)>                                       {}
            <MI 16440  BNE     0x16550>                                         {}
        <POP 16444-16462 Naked>                              Σ0         ↓ →0x1646e
            <MI 16444  ADDQ.L  #0x1,D7>                                         {}
            <MI 16446  CLR.B   (A6-0x18)>                                       {}
            <Const 0x16448 0x1.2>                            Δ-2                {[#1]}
            <MI 1644a  LEA.L   (A6-0x14),A1>                                    {[#1]}
            <MI 1644c  MOVE.L  A1,-(A7)>                     Δ-4                {[#1]|[4, 'A1']}
            <MI 1644e  CLR.W   -(A7)>                        Δ-2                {[#1]|[4, 'A1']|[#0]}
            <Const 0x16450 0x1.2>                            Δ-2                {[#1]|[4, 'A1']|[#0]|[#1]}
            <Pointer.fp 0x16452 <LVAR -0x015 @ 1(r)>>        Δ-4                {[#1]|[4, 'A1']|[#0]|[#1]|[@@-21]}
            <Call 0x16456 0x16048>                                              {[#1]|[4, 'A1']|[#0]|[#1]|[@@-21]}
            <POP 1645a-1645c StackAdj>                       Δ+14               {}
            <MI 1645c  TST.B   (A6-0x15)>                                       {}
            <MI 16460  BNE     0x1646e>                                         {}
        <POP 16462-1646e Naked>                              Σ0         ↓
            <Const 0x16462 0xd.4>                            Δ-4                {[##13]}
            <Call 0x16466 0x10220>                                              {[##13]}
                KC10_Panic(code : Long)
            <POP 1646c-1646e StackAdj>                       Δ+4                {}
        <POP 1646e-16486 Naked>                              Σ0         ↓ →0x1648a ←0x16444
            <MI 1646e  CLR.L   D0>                                              {}
            <MI 16470  MOVE.W  (A6-0xe),D0>                                     {}
            <MI 16474  MOVE.L  D0,0x1b5ce>                                      {}
            <MI 1647a  CLR.B   (A0+0x1)>                                        {}
            <MI 1647e  MOVE.W  (A6-0xc),D0>                                     {}
            <MI 16482  AND.W   #0x01,D0>                                        {}
            <MI 16484  BEQ     0x1648a>                                         {}
        <POP 16486-1648a Naked>                              Σ0         ↓
            <MI 16486  ADDQ.B  #0x1,(A0+0x1)>                                   {}
        <POP 1648a-164a6 Naked>                              Σ0         →0x164b6 →0x164c0 →0x164ca →0x164d4 →0x164de →0x164de →0x164f2 →0x164fc ←0x1646e
            <MI 1648a  MOVE.B  #0x0b,(A0)>                                      {}
            <MI 1648e  MOVE.W  (A6-0x14),D0>                                    {}
            <MI 16490  AND.W   #0x0e,D0>                                        {}
            <MI 16492  LSR.W   #0x1,D0>                                         {}
            <POP 0x16494 LimitCheck 0x0 ≤ D0 ≤ 0x7>                             {}
            <MI 1649c  ADD.W   D0,D0>                                           {}
            <MI 1649e  SWITCH  D0.W>                                            {}
        <POP 164b6-164c0 Naked>                              Σ0 Δ-8     →0x16504 ←0x1648a
            <Pointer.fp 0x164b6 <LVAR -0x014 @ 2(r)>>        Δ-4                {[@@-20]}
            <MI 164b8  PEA.L   (A0)>                         Δ-4                {[@@-20]|[4, '^(A0)']}
            <Call 0x164ba 0x16116>                                              {[@@-20]|[4, '^(A0)']}
            <MI 164be  BRA     0x16504>                                         {[@@-20]|[4, '^(A0)']}
        <POP 164c0-164ca Naked>                              Σ0         →0x16506 ←0x1648a
            <Pointer.fp 0x164c0 <LVAR -0x014 @ 2(r)>>        Δ-4                {[@@-20]}
            <Call 0x164c2 0x16176>                                              {[@@-20]}
            <POP 164c6-164c8 StackAdj>                       Δ+4                {}
            <MI 164c8  BRA     0x16506>                                         {}
        <POP 164ca-164d4 Naked>                              Σ0 Δ-8     →0x16504 ←0x1648a
            <Pointer.fp 0x164ca <LVAR -0x014 @ 2(r)>>        Δ-4                {[@@-20]}
            <MI 164cc  PEA.L   (A0)>                         Δ-4                {[@@-20]|[4, '^(A0)']}
            <Call 0x164ce 0x161a6>                                              {[@@-20]|[4, '^(A0)']}
            <MI 164d2  BRA     0x16504>                                         {[@@-20]|[4, '^(A0)']}
        <POP 164d4-164de Naked>                              Σ0 Δ-8     →0x16504 ←0x1648a
            <Pointer.fp 0x164d4 <LVAR -0x014 @ 2(r)>>        Δ-4                {[@@-20]}
            <MI 164d6  PEA.L   (A0)>                         Δ-4                {[@@-20]|[4, '^(A0)']}
            <Call 0x164d8 0x16260>                                              {[@@-20]|[4, '^(A0)']}
            <MI 164dc  BRA     0x16504>                                         {[@@-20]|[4, '^(A0)']}
        <POP 164de-164f2 Naked>                              Σ0         →0x16506 ←0x1648a ←0x1648a
            <Pointer.fp 0x164de <LVAR -0x014 @ 2(r)>>        Δ-4                {[@@-20]}
            <MI 164e0  PEA.L   (A0)>                         Δ-4                {[@@-20]|[4, '^(A0)']}
            <Pointer.fp 0x164e2 <LVAR -0x018 @ 1(r)>>        Δ-4                {[@@-20]|[4, '^(A0)']|[@@-24]}
            <Pointer.fp 0x164e4 <LVAR -0x017 @ 1(r)>>        Δ-4                {[@@-20]|[4, '^(A0)']|[@@-24]|[@@-23]}
            <Call 0x164e8 0x162e0>                                              {[@@-20]|[4, '^(A0)']|[@@-24]|[@@-23]}
            <POP 164ec-164f0 StackAdj>                       Δ+16               {}
            <MI 164f0  BRA     0x16506>                                         {}
        <POP 164f2-164fc Naked>                              Σ0 Δ-8     →0x16504 ←0x1648a
            <Pointer.fp 0x164f2 <LVAR -0x014 @ 2(r)>>        Δ-4                {[@@-20]}
            <MI 164f4  PEA.L   (A0)>                         Δ-4                {[@@-20]|[4, '^(A0)']}
            <Call 0x164f6 0x16384>                                              {[@@-20]|[4, '^(A0)']}
            <MI 164fa  BRA     0x16504>                                         {[@@-20]|[4, '^(A0)']}
        <POP 164fc-16504 Naked>                              Σ0 Δ-8     ↓ ←0x1648a
            <Pointer.fp 0x164fc <LVAR -0x014 @ 2(r)>>        Δ-4                {[@@-20]}
            <MI 164fe  PEA.L   (A0)>                         Δ-4                {[@@-20]|[4, '^(A0)']}
            <Call 0x16500 0x163c6>                                              {[@@-20]|[4, '^(A0)']}
        <POP 16504-16506 Naked>                              Σ-8 Δ+8    ↓ ←0x164b6 ←0x164ca ←0x164d4 ←0x164f2
            <POP 16504-16506 StackAdj>                       Δ+8                {}
        <POP 16506-1650a Naked>                              Σ0         ↓ →0x16550 ←0x164c0 ←0x164de
            <MI 16506  TST.B   (A6-0x18)>                                       {}
            <MI 16508  BEQ     0x16550>                                         {}
        <POP 1650a-16520 Naked>                              Σ0         ↓ →0x16540
            <MI 1650a  MOVE.B  (A6-0x17),D0>                                    {}
            <MI 1650e  EXTB.W  D0>                                              {}
            <POP 0x16510 LimitCheck 0x0 ≤ D0 ≤ 0x1b>                            {}
            <MI 16512  MOVE.B  D0,0x1b5dc>                                      {}
            <MI 16518  CMPI.L  #0x00000014,D7>                                  {}
            <MI 1651e  BGT     0x16540>                                         {}
        <POP 16520-16540 Naked>                              Σ0         →0x16550
            <MI 16520  EXTB.W  D0>                                              {}
            <POP 0x16522 LimitCheck 0x0 ≤ D0 ≤ 0x1b>                            {}
            <MI 16524  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Blob 0x16526 [4] 0x1b5d8>                       Δ-4                {[2, 'D0']|[«4»]}
            <Blob 0x1652c [2] 0x1b5d6>                       Δ-2                {[2, 'D0']|[«4»]|[«2»]}
            <MI 16532  CLR.B   -(A7)>                        Δ-2                {[2, 'D0']|[«4»]|[«2»]|[#0]}
            <Pointer.fp 0x16534 <LVAR -0x015 @ 1(r)>>        Δ-4                {[2, 'D0']|[«4»]|[«2»]|[#0]|[@@-21]}
            <Call 0x16538 0x16048>                                              {[2, 'D0']|[«4»]|[«2»]|[#0]|[@@-21]}
            <POP 1653c-1653e StackAdj>                       Δ+14               {}
            <MI 1653e  BRA     0x16550>                                         {}
        <POP 16540-16550 Naked>                              Σ0         ↓ ←0x1650a
            <MI 16540  CLR.B   (A6-0x18)>                                       {}
            <Const 0x16542 0x1.2>                            Δ-2                {[#1]}
            <MI 16544  LEA.L   (A6-0x14),A0>                                    {[#1]}
            <MI 16546  MOVE.L  A0,-(A7)>                     Δ-4                {[#1]|[4, 'A0']}
            <Call 0x16548 0x144d8>                                              {[#1]|[4, 'A0']}
                _Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
            <POP 1654e-16550 StackAdj>                       Δ+6                {}
        <POP 16550-16554 Naked>                              Σ0         ↓ →0x1655a ←0x16428 ←0x16506 ←0x16520
            <MI 16550  TST.B   (A6-0x16)>                                       {}
            <MI 16552  BNE     0x1655a>                                         {}
        <POP 16554-1655a Naked>                              Σ0         ↓ →0x16428
            <MI 16554  TST.B   (A6-0x18)>                                       {}
            <MI 16556  BNE     0x16428>                                         {}
        <POP 1655a-16562 Epilogue>                           Σ0         ←0x16550

0x16562


@ 16562
_FSCALL_1040c
        <LVAR  0x010 2(r)>
        <LVAR  0x00e 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x012 2(r)>
        <LVAR -0x016 @ 2(r)>
    <POP 16562-16618 Body>                                              
        <POP 16562-16578 Prologue>                           Σ0         ↓
        <POP 16578-16584 RegCacheLoad>                       Σ0         ↓
        <POP 16584-165aa Naked>                              Σ0         ↓ →0x165b6
            <MI 16584  MOVE.W  (A6+0x10),0x1b5de>                               {}
            <MI 1658c  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 1658e  LEA.L   (A6-0x16),A0>                                    {[#0]}
            <MI 16592  MOVE.L  A0,-(A7)>                     Δ-4                {[#0]|[4, 'A0']}
            <MI 16594  CLR.W   -(A7)>                        Δ-2                {[#0]|[4, 'A0']|[#0]}
            <Const 0x16596 0x1.2>                            Δ-2                {[#0]|[4, 'A0']|[#0]|[#1]}
            <Pointer.fp 0x16598 <LVAR -0x002 @ 1(r)>>        Δ-4                {[#0]|[4, 'A0']|[#0]|[#1]|[@@-2]}
            <Call 0x1659c 0x16048>                                              {[#0]|[4, 'A0']|[#0]|[#1]|[@@-2]}
            <POP 165a0-165a4 StackAdj>                       Δ+14               {}
            <MI 165a4  TST.B   (A6-0x2)>                                        {}
            <MI 165a8  BNE     0x165b6>                                         {}
        <POP 165aa-165b6 Naked>                              Σ0         ↓
            <Const 0x165aa 0xc.4>                            Δ-4                {[##12]}
            <Call 0x165ae 0x10220>                                              {[##12]}
                KC10_Panic(code : Long)
            <POP 165b4-165b6 StackAdj>                       Δ+4                {}
        <POP 165b6-165bc Naked>                              Σ0         ↓ →0x165c2 ←0x16584
            <MI 165b6  TST.W   (A6-0x16)>                                       {}
            <MI 165ba  BNE     0x165c2>                                         {}
        <POP 165bc-165c2 Naked>                              Σ0         →0x16606
            <MI 165bc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 165be  MOVE.B  #0x01,(A0)>                                      {}
            <MI 165c0  BRA     0x16606>                                         {}
        <POP 165c2-165cc Naked>                              Σ0         ↓ →0x165d4 ←0x165b6
            <MI 165c2  MOVE.W  (A6-0x12),D0>                                    {}
            <MI 165c6  ANDI.W  #0x0040,D0>                                      {}
            <MI 165ca  BEQ     0x165d4>                                         {}
        <POP 165cc-165d4 Naked>                              Σ0         →0x16606
            <MI 165cc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 165ce  MOVE.B  #0x05,(A0)>                                      {}
            <MI 165d2  BRA     0x16606>                                         {}
        <POP 165d4-165da Naked>                              Σ0         ↓ →0x165ec ←0x165c2
            <MI 165d4  TST.B   (A6+0xe)>                                        {}
            <MI 165d8  BEQ     0x165ec>                                         {}
        <POP 165da-165e4 Naked>                              Σ0         ↓ →0x165ec
            <POP 165da-165dc StackAdj>                       Δ-2                {[-2-]}
            <Call 0x165dc 0x160ba>                                              {[-2-]}
            <MI 165e0  TST.B   (A7)+>                        Δ+2                {}
            <MI 165e2  BEQ     0x165ec>                                         {}
        <POP 165e4-165ec Naked>                              Σ0         →0x16606
            <MI 165e4  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 165e6  MOVE.B  #0x04,(A0)>                                      {}
            <MI 165ea  BRA     0x16606>                                         {}
        <POP 165ec-165f2 Naked>                              Σ0         ↓ →0x16602 ←0x165d4 ←0x165da
            <MI 165ec  TST.B   (A6+0xc)>                                        {}
            <MI 165f0  BEQ     0x16602>                                         {}
        <POP 165f2-16602 Naked>                              Σ0         →0x16606
            <MI 165f2  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 165f4  MOVEA.L (A6+0x8),A0>                                     {[#0]}
            <MI 165f6  PEA.L   (A0)>                         Δ-4                {[#0]|[4, '^(A0)']}
            <Call 0x165f8 0x16634>                                              {[#0]|[4, '^(A0)']}
                _FSCALL_10414
            <POP 165fe-16600 StackAdj>                       Δ+6                {}
            <MI 16600  BRA     0x16606>                                         {}
        <POP 16602-16606 Naked>                              Σ0         ↓ ←0x165ec
            <MI 16602  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 16604  CLR.B   (A0)>                                            {}
        <POP 16606-1660e Naked>                              Σ0         ↓ →0x16610 ←0x165bc ←0x165cc ←0x165e4 ←0x165f2
            <MI 16606  CLR.B   0x1b5cc>                                         {}
            <MI 16608  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1660a  TST.B   (A0)>                                            {}
            <MI 1660c  BNE     0x16610>                                         {}
        <POP 1660e-16610 Naked>                              Σ0         ↓
            <MI 1660e  ADDQ.B  #0x1,0x1b5cc>                                    {}
        <POP 16610-16618 Epilogue>                           Σ0         ←0x16606

0x16618


@ 16618
_FSCALL_10410
    <POP 16618-16634 Body>                                              
        <POP 16618-1662a Prologue>                           Σ0         ↓
        <POP 1662a-16630 Naked>                              Σ0         ↓
            <MI 1662a  CLR.B   0x1b5cc>                                         {}
        <POP 16630-16634 Epilogue>                           Σ0         

0x16634


@ 16634
_FSCALL_10414
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @>
    <POP 16634-16682 Body>                                              
        <POP 16634-1664a Prologue>                           Σ0         ↓
        <POP 1664a-1667a Naked>                              Σ0         ↓
            <MI 1664a  MOVE.B  (A6+0xc),D0>                                     {}
            <MI 1664e  EXTB.W  D0>                                              {}
            <MI 16650  LEA.L   0x15e98,A0>                                      {}
            <MI 16654  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[2, '(A0+D0.W)']}
            <Const 0x16658 0x0.4>                            Δ-4                {[2, '(A0+D0.W)']|[##0]}
            <Const 0x1665c 0x1.2>                            Δ-2                {[2, '(A0+D0.W)']|[##0]|[#1]}
            <MI 16660  CLR.B   -(A7)>                        Δ-2                {[2, '(A0+D0.W)']|[##0]|[#1]|[#0]}
            <Pointer.fp 0x16662 <LVAR -0x002 @>>             Δ-4                {[2, '(A0+D0.W)']|[##0]|[#1]|[#0]|[@@-2]}
            <Call 0x16666 0x16048>                                              {[2, '(A0+D0.W)']|[##0]|[#1]|[#0]|[@@-2]}
            <POP 1666a-1666e StackAdj>                       Δ+14               {}
            <MI 1666e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 16672  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x16674 0x163fe>                                              {[4, '^(A0)']}
                _FSCALL_10408
            <POP 16678-1667a StackAdj>                       Δ+4                {}
        <POP 1667a-16682 Epilogue>                           Σ0         

0x16682


@ 16682
_FSCALL_10418
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 2(r)>
        <LVAR -0x002 @>
    <POP 16682-166d0 Body>                                              
        <POP 16682-16698 Prologue>                           Σ0         ↓
        <POP 16698-1669a RegCacheLoad>                       Σ0         ↓
        <POP 1669a-166c8 Naked>                              Σ0         ↓
            <MI 1669a  MOVE.B  #0x02,0x1b5dc>                                   {}
            <MI 166a0  MOVE.W  (A6+0x8),0x1b5d6>                                {}
            <MI 166a8  MOVE.L  (A6+0xa),0x1b5d8>                                {}
            <Const 0x166b0 0x2.2>                            Δ-2                {[#2]}
            <MI 166b2  MOVE.L  (A6+0xa),-(A7)>               Δ-4                {[#2]|[4, '(A6+0xa)']}
            <MI 166b6  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[#2]|[4, '(A6+0xa)']|[2, '(A6+0x8)']}
            <MI 166ba  CLR.B   -(A7)>                        Δ-2                {[#2]|[4, '(A6+0xa)']|[2, '(A6+0x8)']|[#0]}
            <Pointer.fp 0x166bc <LVAR -0x002 @>>             Δ-4                {[#2]|[4, '(A6+0xa)']|[2, '(A6+0x8)']|[#0]|[@@-2]}
            <Call 0x166c0 0x16048>                                              {[#2]|[4, '(A6+0xa)']|[2, '(A6+0x8)']|[#0]|[@@-2]}
            <POP 166c4-166c8 StackAdj>                       Δ+14               {}
        <POP 166c8-166d0 Epilogue>                           Σ0         

0x166d0


@ 166d0
_FSCALL_1041c
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 2(r)>
        <LVAR -0x002 @>
    <POP 166d0-1671e Body>                                              
        <POP 166d0-166e6 Prologue>                           Σ0         ↓
        <POP 166e6-166e8 RegCacheLoad>                       Σ0         ↓
        <POP 166e8-16716 Naked>                              Σ0         ↓
            <MI 166e8  MOVE.B  #0x04,0x1b5dc>                                   {}
            <MI 166ee  MOVE.W  (A6+0x8),0x1b5d6>                                {}
            <MI 166f6  MOVE.L  (A6+0xa),0x1b5d8>                                {}
            <Const 0x166fe 0x4.2>                            Δ-2                {[#4]}
            <MI 16700  MOVE.L  (A6+0xa),-(A7)>               Δ-4                {[#4]|[4, '(A6+0xa)']}
            <MI 16704  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[#4]|[4, '(A6+0xa)']|[2, '(A6+0x8)']}
            <MI 16708  CLR.B   -(A7)>                        Δ-2                {[#4]|[4, '(A6+0xa)']|[2, '(A6+0x8)']|[#0]}
            <Pointer.fp 0x1670a <LVAR -0x002 @>>             Δ-4                {[#4]|[4, '(A6+0xa)']|[2, '(A6+0x8)']|[#0]|[@@-2]}
            <Call 0x1670e 0x16048>                                              {[#4]|[4, '(A6+0xa)']|[2, '(A6+0x8)']|[#0]|[@@-2]}
            <POP 16712-16716 StackAdj>                       Δ+14               {}
        <POP 16716-1671e Epilogue>                           Σ0         

0x1671e


@ 1671e
_FSCALL_10420
        <LVAR -0x004 @>
    <POP 1671e-16766 Body>                                              
        <POP 1671e-16734 Prologue>                           Σ0         ↓
        <POP 16734-16736 RegCacheLoad>                       Σ0         ↓
        <POP 16736-1675e Naked>                              Σ0         ↓
            <MI 16736  MOVE.B  #0x0b,0x1b5dc>                                   {}
            <MI 1673c  CLR.W   0x1b5d6>                                         {}
            <MI 16742  CLR.L   0x1b5d8>                                         {}
            <Const 0x16748 0xb.2>                            Δ-2                {[#11]}
            <Const 0x1674a 0x0.4>                            Δ-4                {[#11]|[##0]}
            <MI 1674e  CLR.W   -(A7)>                        Δ-2                {[#11]|[##0]|[#0]}
            <MI 16750  CLR.B   -(A7)>                        Δ-2                {[#11]|[##0]|[#0]|[#0]}
            <Pointer.fp 0x16752 <LVAR -0x004 @>>             Δ-4                {[#11]|[##0]|[#0]|[#0]|[@@-4]}
            <Call 0x16756 0x16048>                                              {[#11]|[##0]|[#0]|[#0]|[@@-4]}
            <POP 1675a-1675e StackAdj>                       Δ+14               {}
        <POP 1675e-16766 Epilogue>                           Σ0         

0x16766


@ 16766
_TapeErrorMsg(a : Byte) : String
        <LVAR  0x00a 4(w)>
        <LVAR  0x008 1(r)>
    <POP 16766-167b8 Body>                                              
        <POP 16766-1677c Prologue>                           Σ0         ↓
        <POP 1677c-1677e RegCacheLoad>                       Σ0         ↓
        <POP 1677e-167b0 Naked>                              Σ0         ↓
            <MI 1677e  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 16782  EXTB.W  D0>                                              {}
            <MI 16784  MULS.W  #0x1e,D0>                                        {}
            <MI 16786  LEA.L   0x15ea4,A0>                                      {}
            <Blob 0x1678a [30] (A0+D0.W+#0x1e)>              Δ-30               {[«30»]}
            <POP 16796-16798 StackAdj>                       Δ-4                {[«30»]|[-4-]}
            <Lit 0x16798>                                                       {[«30»]|[$$…]}
                <Pointer.sp 0x16798 4>                       Δ-4        
                <Const 0x1679c 0x1.2>                        Δ-2        
                <Const 0x167a0 0x1e.2>                       Δ-2        
                <Call 0x167a2 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 167a8-167aa StackAdj>                   Δ+8        
            <MI 167aa  MOVE.L  (A7)+,(A6+0xa)>               Δ+4                {[«30»]}
            <POP 167ae-167b0 StackAdj>                       Δ+30               {}
        <POP 167b0-167b8 Epilogue>                           Σ0         

0x167b8


@ 167b8
_FSCALL_10428
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(rw)>
    <POP 167b8-16876 Body>                                   Δ+4        
        <POP 167b8-167ce Prologue>                           Σ0         ↓
        <POP 167ce-167d2 RegCacheLoad>                       Σ0         ↓
        <POP 167d2-16844 Naked>                              Σ0         →0x1684a →0x16856 →0x16860
            <Blob 0x167d2 [8] @>                             Δ-8                {[«8""»]}
            <POP 167e2-167e4 StackAdj>                       Δ-8                {[«8""»]|[-8-]}
            <MI 167e4  MOVEA.L (A6+0x8),A0>                                     {[«8""»]|[-8-]}
            <POP 167e8-167ea StackAdj>                       Δ-2                {[«8""»]|[-10-]}
            <MI 167ea  MOVE.B  (A0),(A7)>                                       {[«8""»]|[-10-]}
            <MI 167ec  MOVE.B  (A0+0x1),(A7+0x1)>                               {[«8""»]|[-10-]}
            <Call 0x167f2 0x16766>                                              {[«8""»]|[-10-]}
                _TapeErrorMsg(a : Byte) : String
            <POP 167f6-167f8 StackAdj>                       Δ-2                {[«8""»]|[-12-]}
            <Lit 0x167f8 7>                                                     {[«8""»]|[-8-]|[$$, unit_]}
            <POP 1680a-1680c StackAdj>                       Δ-4                {[«8""»]|[-8-]|[$$, unit_]|[-4-]}
            <MI 1680c  MOVE.W  0x1b5de,D0>                                      {[«8""»]|[-8-]|[$$, unit_]|[-4-]}
            <MI 16812  EXTW.L  D0>                                              {[«8""»]|[-8-]|[$$, unit_]|[-4-]}
            <MI 16814  MOVE.L  D0,-(A7)>                     Δ-4                {[«8""»]|[-8-]|[$$, unit_]|[-4-]|[4, 'D0']}
            <Call 0x16816 0x110b0>                                              {[«8""»]|[-8-]|[$$, unit_]|[-4-]|[4, 'D0']}
                _Long2String(a : Long) : String
            <POP 1681c-1681e StackAdj>                       Δ+4                {[«8""»]|[-8-]|[$$, unit_]|[-4-]}
            <Call 0x1681e 0x10fba>                                              {[«8""»]|[-8-]|[$$, unit_]|[-4-]}
                _StringCat3(a, b, c : String) : String
            <POP 16824-16828 StackAdj>                       Δ+12               {[«8""»]|[-4-]}
            <MI 16828  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«8""»]}
            <POP 1682a-1682c StackAdj>                       Δ+8                {}
            <MI 1682c  MOVE.B  (A6+0xc),D0>                                     {}
            <MI 16830  EXTB.W  D0>                                              {}
            <POP 0x16832 LimitCheck 0x0 ≤ D0 ≤ 0x2>                             {}
            <MI 1683a  ADD.W   D0,D0>                                           {}
            <MI 1683c  SWITCH  D0.W>                                            {}
        <POP 1684a-16852 Naked>                              Σ0 Δ-4     ↓ ←0x167d2
            <Pointer.fp 0x1684a <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x1684c 0x10d76>                                              {[@@-6]}
                _FreeString(VAR a : String)
        <POP 16852-16856 Naked>                              Σ-4 Δ+4    →0x1686e ←0x16856
            <POP 16852-16854 StackAdj>                       Δ+4                {}
            <MI 16854  BRA     0x1686e>                                         {}
        <POP 16856-16860 Naked>                              Σ0 Δ-4     →0x16852 ←0x167d2
            <MI 16856  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Call 0x16858 0x154a2>                                              {[4, '(A6-0x6)']}
                _WriteConsoleStringCrLf(str : String)
            <MI 1685e  BRA     0x16852>                                         {[4, '(A6-0x6)']}
        <POP 16860-1686e Naked>                              Σ0         ↓ ←0x167d2
            <Const 0x16860 0x4.2>                            Δ-2                {[#4]}
            <MI 16864  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#4]|[4, '(A6-0x6)']}
            <Call 0x16866 0x14e0a>                                              {[#4]|[4, '(A6-0x6)']}
                _PopProgram(status : Byte; msg : String)
            <POP 1686c-1686e StackAdj>                       Δ+6                {}
        <POP 1686e-16876 Epilogue>                           Σ0         ←0x16852

0x16876


@ 16876
_FSCALL_1042c
        <LVAR -0x006 @ 1(r)>
    <POP 16876-16936 Body>                                              
        <POP 16876-1688c Prologue>                           Σ0         ↓
        <POP 1688c-16896 RegCacheLoad>                       Σ0         ↓
        <POP 16896-168b4 Naked>                              Σ0         ↓
            <MI 16896  MOVEQ.L #0x00,D7>                                        {}
            <POP 16898-1689a StackAdj>                       Δ-2                {[-2-]}
            <Call 0x1689a 0x160ba>                                              {[-2-]}
            <MI 1689e  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 168a0  EXTB.W  D0>                                              {}
            <POP 0x168a2 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 168a4  MOVE.B  D0,D5>                                           {}
            <Const 0x168a6 0x1.2>                            Δ-2                {[#1]}
            <Pointer.fp 0x168a8 <LVAR -0x006 @ 1(r)>>        Δ-4                {[#1]|[@@-6]}
            <Call 0x168aa 0x16634>                                              {[#1]|[@@-6]}
                _FSCALL_10414
            <POP 168ae-168b0 StackAdj>                       Δ+6                {}
            <Call 0x168b0 0x16618>                                              {}
                _FSCALL_10410
        <POP 168b4-16910 Naked>                              Σ0         ↓ →0x16914 ←0x1692a
            <Blob 0x168b4 [54] @>                            Δ-54               {[«54""»]}
            <POP 168c4-168c6 StackAdj>                       Δ-8                {[«54""»]|[-8-]}
            <Lit 0x168c6 53>                                                    {[«54""»]|[-4-]|[$$Reached EOT, mount next tape and enter unit number ?_]}
            <Const 0x168d8 0x0.4>                            Δ-4                {[«54""»]|[-4-]|[$$Reached EOT, mount next tape and enter unit number ?_]|[##0]}
            <Const 0x168dc 0x3.4>                            Δ-4                {[«54""»]|[-4-]|[$$Reached EOT, mount next tape and enter unit number ?_]|[##0]|[##3]}
            <Call 0x168e0 0x15942>                                              {[«54""»]|[-4-]|[$$Reached EOT, mount next tape and enter unit number ?_]|[##0]|[##3]}
                _AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 168e6-168ea StackAdj>                       Δ+12               {[«54""»]|[-4-]}
            <MI 168ea  MOVE.L  (A7)+,D0>                     Δ+4                {[«54""»]}
            <POP 0x168ec LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {[«54""»]}
            <POP 168f2-168f4 StackAdj>                       Δ+54               {}
            <MI 168f4  MOVE.W  D0,D6>                                           {}
            <POP 0x168f6 LimitCheck 0x0 ≤ D6 ≤ 0x3>                             {}
            <MI 168f8  MOVE.W  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <MI 168fa  MOVE.B  D5,-(A7)>                     Δ-2                {[2, 'D6']|[2, 'D5']}
            <MI 168fc  NEG.B   (A7)>                                            {[2, 'D6']|[2, 'D5']}
            <MI 168fe  ADDQ.B  #0x1,(A7)>                                       {[2, 'D6']|[-2-]}
            <Const 0x16900 0x1.2>                            Δ-2                {[2, 'D6']|[-2-]|[#1]}
            <Pointer.fp 0x16902 <LVAR -0x006 @ 1(r)>>        Δ-4                {[2, 'D6']|[-2-]|[#1]|[@@-6]}
            <Call 0x16904 0x16562>                                              {[2, 'D6']|[-2-]|[#1]|[@@-6]}
                _FSCALL_1040c
            <POP 16908-1690c StackAdj>                       Δ+10               {}
            <MI 1690c  TST.B   (A6-0x6)>                                        {}
            <MI 1690e  BNE     0x16914>                                         {}
        <POP 16910-16914 Naked>                              Σ0         →0x1692a
            <MI 16910  MOVEQ.L #0x01,D7>                                        {}
            <MI 16912  BRA     0x1692a>                                         {}
        <POP 16914-16926 Naked>                              Σ0         ↓ →0x1692a ←0x168b4
            <Const 0x16914 0x1.2>                            Δ-2                {[#1]}
            <Pointer.fp 0x16916 <LVAR -0x006 @ 1(r)>>        Δ-4                {[#1]|[@@-6]}
            <Call 0x16918 0x167b8>                                              {[#1]|[@@-6]}
                _FSCALL_10428
            <POP 1691c-1691e StackAdj>                       Δ+6                {}
            <MI 1691e  TST.B   0x1b5cc>                                         {}
            <MI 16924  BEQ     0x1692a>                                         {}
        <POP 16926-1692a Naked>                              Σ0         ↓
            <Call 0x16926 0x16618>                                              {}
                _FSCALL_10410
        <POP 1692a-1692e Naked>                              Σ0         ↓ →0x168b4 ←0x16910 ←0x16914
            <MI 1692a  TST.B   D7>                                              {}
            <MI 1692c  BEQ     0x168b4>                                         {}
        <POP 1692e-16936 Epilogue>                           Σ0         

0x16936


@ 16936
_FSCALL_10430
        <LVAR  0x008 4(w)>
    <POP 16936-16954 Body>                                              
        <POP 16936-16948 Prologue>                           Σ0         ↓
        <POP 16948-16950 Naked>                              Σ0         ↓
            <MI 16948  MOVE.L  0x1b5ce,(A6+0x8)>                                {}
        <POP 16950-16954 Epilogue>                           Σ0         

0x169c6


@ 169c6
        <LVAR  0x008 4(r)>
        <LVAR -0x008 4(rw)>
    <POP 169c6-16a4c Body>                                              
        <POP 169c6-169dc Prologue>                           Σ0         ↓
        <POP 169dc-16a44 Naked>                              Σ0         ↓
            <MI 169dc  LEA.L   0x1b5e8,A0>                                      {}
            <MI 169e2  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 169e4  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 169e8  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 169ec  MOVEA.L (A6+0x8),A1>                                     {}
            <MI 169f0  MOVEA.L A0,A2>                                           {}
            <MI 169f2  MOVEA.L A1,A3>                                           {}
            <BlockMove 30,A3,A2>                                                {}
            <MI 169fc  MOVE.W  (A1+0x20),D0>                                    {}
            <POP 0x16a00 LimitCheck 0x0 ≤ D0 ≤ 0x4000>                          {}
            <MI 16a04  MOVE.W  D0,(A0+0x1e)>                                    {}
            <MI 16a08  MOVE.B  (A1+0x3a),(A0+0x24)>                             {}
            <MI 16a0e  MOVE.B  (A1+0x3b),(A0+0x25)>                             {}
            <MI 16a14  MOVE.B  (A1+0x3c),(A0+0x26)>                             {}
            <MI 16a1a  MOVE.B  (A1+0x3d),(A0+0x27)>                             {}
            <MI 16a20  MOVE.W  #0x400,(A0+0x20)>                                {}
            <MI 16a26  MOVE.W  #0x1,(A0+0x28)>                                  {}
            <MI 16a2c  MOVE.B  (A1+0x3f),D0>                                    {}
            <MI 16a30  LSL.B   #0x6,D0>                                         {}
            <MI 16a32  LSR.B   #0x7,D0>                                         {}
            <MI 16a34  MOVE.B  D0,(A0+0x23)>                                    {}
            <MI 16a38  MOVE.B  (A1+0x3f),D0>                                    {}
            <MI 16a3c  LSL.B   #0x5,D0>                                         {}
            <MI 16a3e  LSR.B   #0x7,D0>                                         {}
            <MI 16a40  MOVE.B  D0,(A0+0x22)>                                    {}
        <POP 16a44-16a4c Epilogue>                           Σ0         

0x16a4c


@ 16a4c
_FSCALL_10434
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 1(rw)>
        <LVAR -0x008 4(w)>
        <LVAR -0x00c 4(w)>
        <LVAR -0x012 @ 1(r)>
        <LVAR -0x013 1(r)>
        <LVAR -0x014 @ 1(r)>
    <POP 16a4c-16c2e Body>                                              
        <POP 16a4c-16a62 Prologue>                           Σ0         ↓
        <POP 16a62-16a76 RegCacheLoad>                       Σ0         ↓
        <POP 16a76-16aa2 Naked>                              Σ0         ↓ →0x16af8
            <MI 16a76  LEA.L   0x1b5e8,A0>                                      {}
            <MI 16a7c  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 16a7e  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 16a82  LEA.L   0x1b9e8,A0>                                      {}
            <MI 16a88  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 16a8a  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {}
            <MI 16a8e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Call 0x16a90 0x169c6>                                              {[4, '(A6+0x8)']}
            <POP 16a94-16a96 StackAdj>                       Δ+4                {}
            <MI 16a96  MOVEQ.L #0x00,D7>                                        {}
            <MI 16a98  MOVEQ.L #0x01,D6>                                        {}
            <MI 16a9a  MOVEQ.L #0x40,D5>                                        {}
            <MI 16a9c  TST.B   (A6+0x10)>                                       {}
            <MI 16aa0  BEQ     0x16af8>                                         {}
        <POP 16aa2-16af8 Naked>                              Σ0         ↓
            <Blob 0x16aa2 [12] @>                            Δ-12               {[«12""»]}
            <MI 16ab4  MOVEA.L (A6+0x8),A0>                                     {[«12""»]}
            <POP 16ab6-16ab8 StackAdj>                       Δ-30               {[«12""»]|[-30-]}
            <MI 16ab8  MOVEA.L A7,A1>                                           {[«12""»]|[-30-]}
            <BlockMove 30,A0,A1>                                                {[«12""»]|[-30-]}
            <POP 16ac2-16ac4 StackAdj>                       Δ-8                {[«12""»]|[-38-]}
            <Lit 0x16ac4 11>                                                    {[«12""»]|[-34-]|[$$Writing ->_]}
            <POP 16ad4-16ad6 StackAdj>                       Δ-4                {[«12""»]|[-34-]|[$$Writing ->_]|[-4-]}
            <Lit 0x16ad6>                                                       {[«12""»]|[-34-]|[$$Writing ->_]|[$$…]}
                <Pointer.sp 0x16ad6 12>                      Δ-4        
                <Const 0x16ada 0x1.2>                        Δ-2        
                <Const 0x16adc 0x1e.2>                       Δ-2        
                <Call 0x16ade 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 16ae4-16ae6 StackAdj>                   Δ+8        
            <Call 0x16ae6 0x10f34>                                              {[«12""»]|[-34-]|[$$Writing ->_]|[$$…]}
                _StringCat2(a, b : String) : String
            <POP 16aec-16aee StackAdj>                       Δ+8                {[«12""»]|[-34-]}
            <Call 0x16aee 0x154a2>                                              {[«12""»]|[-34-]}
                _WriteConsoleStringCrLf(str : String)
            <POP 16af4-16af8 StackAdj>                       Δ+46               {}
        <POP 16af8-16b06 Naked>                              Σ0         ↓ →0x16b0e ←0x16a76
            <MI 16af8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 16afa  MOVE.W  (A0+0x20),D0>                                    {}
            <MI 16afe  EXTW.L  D0>                                              {}
            <MI 16b00  CMP.L   (A6+0xc),D0>                                     {}
            <MI 16b04  BLT     0x16b0e>                                         {}
        <POP 16b06-16b0e Naked>                              Σ0         →0x16b14
            <MI 16b06  MOVE.B  #0x06,(A6-0x4)>                                  {}
            <MI 16b0c  BRA     0x16b14>                                         {}
        <POP 16b0e-16b14 Naked>                              Σ0         ↓ ←0x16af8
            <MI 16b0e  MOVE.B  #0x07,(A6-0x4)>                                  {}
        <POP 16b14-16b2e Naked>                              Σ0         ↓ →0x16b36 ←0x16b06
            <MI 16b14  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 16b18  EXTB.W  D0>                                              {}
            <POP 0x16b1a LimitCheck 0x0 ≤ D0 ≤ 0xb>                             {}
            <MI 16b1e  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x16b20 <LVAR -0x014 @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-20]}
            <Call 0x16b22 0x16634>                                              {[2, 'D0']|[@@-20]}
                _FSCALL_10414
            <POP 16b28-16b2a StackAdj>                       Δ+6                {}
            <MI 16b2a  TST.B   (A6-0x14)>                                       {}
            <MI 16b2c  BEQ     0x16b36>                                         {}
        <POP 16b2e-16b36 Naked>                              Σ0         ↓
            <Const 0x16b2e 0x2.2>                            Δ-2                {[#2]}
            <Pointer.fp 0x16b30 <LVAR -0x014 @ 1(r)>>        Δ-4                {[#2]|[@@-20]}
            <Call 0x16b32 0x167b8>                                              {[#2]|[@@-20]}
                _FSCALL_10428
            <POP 16b34-16b36 StackAdj>                       Δ+6                {}
        <POP 16b36-16b42 Naked>                              Σ0 Δ-4     ↓ ←0x16b14
            <MI 16b36  MOVE.W  (A0+0x20),D0>                                    {}
            <MI 16b3a  SUBQ.W  #0x1,D0>                                         {}
            <MI 16b3c  EXTW.L  D0>                                              {}
            <MI 16b3e  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 16b40  MOVEQ.L #0x00,D0>                                        {[4, 'D0']}
        <POP 16b42-16b48 Naked>                              Σ-4        ↓ →0x16bf8 ←0x16bee
            <MI 16b42  CMP.L   (A7),D0>                                         {[-4-]}
            <MI 16b44  BGT     0x16bf8>                                         {[-4-]}
        <POP 16b48-16b9c Naked>                              Σ-4        ↓ →0x16ba4
            <POP 0x16b48 LimitCheck 0x0 ≤ D7 ≤ 0x1>                             {[-4-]}
            <MI 16b4a  CLR.L   D1>                                              {[-4-]}
            <MI 16b4c  MOVE.W  D7,D1>                                           {[-4-]}
            <MI 16b4e  ASL.L   #0x2,D1>                                         {[-4-]}
            <MI 16b50  MOVE.L  (A6+D1.L-#0xc),-(A7)>         Δ-4                {[-4-]|[4, '(A6+D1.L-#0xc)']}
            <MI 16b54  MOVE.W  D5,-(A7)>                     Δ-2                {[-4-]|[4, '(A6+D1.L-#0xc)']|[2, 'D5']}
            <Call 0x16b56 0x166d0>                                              {[-4-]|[4, '(A6+D1.L-#0xc)']|[2, 'D5']}
                _FSCALL_1041c
            <POP 16b5c-16b5e StackAdj>                       Δ+2                {[-4-]|[4, '(A6+D1.L-#0xc)']}
            <MI 16b5e  MOVE.L  (A6+0x8),(A7)>                                   {[-4-]|[4, '(A6+0x8)']}
            <POP 0x16b60 LimitCheck 0x0 ≤ D0 ≤ 0x4000>                          {[-4-]|[4, '(A6+0x8)']}
            <MI 16b6a  MOVE.W  D0,-(A7)>                     Δ-2                {[-4-]|[4, '(A6+0x8)']|[2, 'D0']}
            <MI 16b6c  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]}
            <Const 0x16b6e 0x200.2>                          Δ-2                {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]}
            <Const 0x16b72 0x1.2>                            Δ-2                {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]|[#1]}
            <POP 0x16b74 LimitCheck 0x0 ≤ D6 ≤ 0x1>                             {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]|[#1]}
            <MI 16b76  CLR.L   D1>                                              {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]|[#1]}
            <MI 16b78  MOVE.W  D6,D1>                                           {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]|[#1]}
            <MI 16b7a  ASL.L   #0x2,D1>                                         {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]|[#1]}
            <MI 16b7c  MOVE.L  (A6+D1.L-#0xc),-(A7)>         Δ-4                {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]|[#1]|[4, '(A6+D1.L-#0xc)']}
            <Pointer.fp 0x16b80 <LVAR -0x012 @ 1(r)>>        Δ-4                {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]|[#1]|[4, '(A6+D1.L-#0xc)']|[@@-18]}
            <Call 0x16b84 0x13ad8>                                              {[-4-]|[4, '(A6+0x8)']|[2, 'D0']|[#0]|[#512]|[#1]|[4, '(A6+D1.L-#0xc)']|[@@-18]}
                _ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 16b8a-16b8e StackAdj>                       Δ+20               {[-4-]}
            <Pointer.fp 0x16b8e <LVAR -0x014 @ 1(r)>>        Δ-4                {[-4-]|[@@-20]}
            <Call 0x16b90 0x163fe>                                              {[-4-]|[@@-20]}
                _FSCALL_10408
            <POP 16b96-16b98 StackAdj>                       Δ+4                {[-4-]}
            <MI 16b98  TST.B   (A6-0x14)>                                       {[-4-]}
            <MI 16b9a  BEQ     0x16ba4>                                         {[-4-]}
        <POP 16b9c-16ba4 Naked>                              Σ-4        ↓
            <Const 0x16b9c 0x2.2>                            Δ-2                {[-4-]|[#2]}
            <Pointer.fp 0x16b9e <LVAR -0x014 @ 1(r)>>        Δ-4                {[-4-]|[#2]|[@@-20]}
            <Call 0x16ba0 0x167b8>                                              {[-4-]|[#2]|[@@-20]}
                _FSCALL_10428
            <POP 16ba2-16ba4 StackAdj>                       Δ+6                {[-4-]}
        <POP 16ba4-16baa Naked>                              Σ-4        ↓ →0x16bb8 ←0x16b48
            <MI 16ba4  TST.B   (A6-0x12)>                                       {[-4-]}
            <MI 16ba8  BEQ     0x16bb8>                                         {[-4-]}
        <POP 16baa-16bb8 Naked>                              Σ-4        ↓
            <Const 0x16baa 0x1.2>                            Δ-2                {[-4-]|[#1]}
            <Const 0x16bac 0x1.4>                            Δ-4                {[-4-]|[#1]|[##1]}
            <Call 0x16bb0 0x14e0a>                                              {[-4-]|[#1]|[##1]}
                _PopProgram(status : Byte; msg : String)
            <POP 16bb6-16bb8 StackAdj>                       Δ+6                {[-4-]}
        <POP 16bb8-16bbe Naked>                              Σ-4        ↓ →0x16be0 ←0x16ba4
            <MI 16bb8  TST.B   (A6-0x13)>                                       {[-4-]}
            <MI 16bbc  BEQ     0x16be0>                                         {[-4-]}
        <POP 16bbe-16bd2 Naked>                              Σ-4        ↓ →0x16bda
            <Call 0x16bbe 0x1671e>                                              {[-4-]}
                _FSCALL_10420
            <Pointer.fp 0x16bc4 <LVAR -0x014 @ 1(r)>>        Δ-4                {[-4-]|[@@-20]}
            <Call 0x16bc6 0x163fe>                                              {[-4-]|[@@-20]}
                _FSCALL_10408
            <POP 16bcc-16bce StackAdj>                       Δ+4                {[-4-]}
            <MI 16bce  TST.B   (A6-0x14)>                                       {[-4-]}
            <MI 16bd0  BEQ     0x16bda>                                         {[-4-]}
        <POP 16bd2-16bda Naked>                              Σ-4        ↓
            <Const 0x16bd2 0x2.2>                            Δ-2                {[-4-]|[#2]}
            <Pointer.fp 0x16bd4 <LVAR -0x014 @ 1(r)>>        Δ-4                {[-4-]|[#2]|[@@-20]}
            <Call 0x16bd6 0x167b8>                                              {[-4-]|[#2]|[@@-20]}
                _FSCALL_10428
            <POP 16bd8-16bda StackAdj>                       Δ+6                {[-4-]}
        <POP 16bda-16be0 Naked>                              Σ-4        ↓ ←0x16bbe
            <Call 0x16bda 0x16876>                                              {[-4-]}
                _FSCALL_1042c
        <POP 16be0-16be4 Naked>                              Σ-4        ↓ →0x16bea ←0x16bb8
            <MI 16be0  TST.W   D7>                                              {[-4-]}
            <MI 16be2  BNE     0x16bea>                                         {[-4-]}
        <POP 16be4-16bea Naked>                              Σ-4        →0x16bee
            <MI 16be4  MOVEQ.L #0x01,D7>                                        {[-4-]}
            <MI 16be6  MOVEQ.L #0x00,D6>                                        {[-4-]}
            <MI 16be8  BRA     0x16bee>                                         {[-4-]}
        <POP 16bea-16bee Naked>                              Σ-4        ↓ ←0x16be0
            <MI 16bea  MOVEQ.L #0x00,D7>                                        {[-4-]}
            <MI 16bec  MOVEQ.L #0x01,D6>                                        {[-4-]}
        <POP 16bee-16bf8 Naked>                              Σ-4        ↓ →0x16b42 ←0x16be4
            <MI 16bee  MOVE.W  #0x400,D5>                                       {[-4-]}
            <MI 16bf2  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 16bf4  BVC     0x16b42>                                         {[-4-]}
        <POP 16bf8-16c1e Naked>                              Σ-4 Δ+4    ↓ →0x16c26 ←0x16b42
            <POP 16bf8-16bfa StackAdj>                       Δ+4                {}
            <POP 0x16bfa LimitCheck 0x0 ≤ D7 ≤ 0x1>                             {}
            <MI 16bfc  CLR.L   D0>                                              {}
            <MI 16bfe  MOVE.W  D7,D0>                                           {}
            <MI 16c00  ASL.L   #0x2,D0>                                         {}
            <MI 16c02  MOVE.L  (A6+D0.L-#0xc),-(A7)>         Δ-4                {[4, '(A6+D0.L-#0xc)']}
            <MI 16c06  MOVE.W  D5,-(A7)>                     Δ-2                {[4, '(A6+D0.L-#0xc)']|[2, 'D5']}
            <Call 0x16c08 0x166d0>                                              {[4, '(A6+D0.L-#0xc)']|[2, 'D5']}
                _FSCALL_1041c
            <POP 16c0e-16c10 StackAdj>                       Δ+6                {}
            <Pointer.fp 0x16c10 <LVAR -0x014 @ 1(r)>>        Δ-4                {[@@-20]}
            <Call 0x16c12 0x163fe>                                              {[@@-20]}
                _FSCALL_10408
            <POP 16c18-16c1a StackAdj>                       Δ+4                {}
            <MI 16c1a  TST.B   (A6-0x14)>                                       {}
            <MI 16c1c  BEQ     0x16c26>                                         {}
        <POP 16c1e-16c26 Naked>                              Σ0         ↓
            <Const 0x16c1e 0x2.2>                            Δ-2                {[#2]}
            <Pointer.fp 0x16c20 <LVAR -0x014 @ 1(r)>>        Δ-4                {[#2]|[@@-20]}
            <Call 0x16c22 0x167b8>                                              {[#2]|[@@-20]}
                _FSCALL_10428
            <POP 16c24-16c26 StackAdj>                       Δ+6                {}
        <POP 16c26-16c2e Epilogue>                           Σ0         ←0x16bf8

0x16c2e


@ 16c2e
_FSCALL_10438
        <LVAR  0x012 1(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 1(rw)>
        <LVAR -0x008 4(rw)>
        <LVAR -0x00c 4(w)>
        <LVAR -0x010 4(w)>
        <LVAR -0x018 @ 4(r)>
        <LVAR -0x01c @ 4(rw)>
        <LVAR -0x034 2(r)>
        <LVAR -0x035 1(r)>
        <LVAR -0x036 1(r)>
        <LVAR -0x037 1(r)>
        <LVAR -0x038 1(r)>
        <LVAR -0x039 1(r)>
        <LVAR -0x03a 1(r)>
        <LVAR -0x03e 2(r)>
        <LVAR -0x05c @>
        <LVAR -0x05d @ 1(r)>
        <LVAR -0x05e 1(r)>
        <LVAR -0x05f @ 1(r)>
    <POP 16c2e-170b6 Body>                                   Δ+2        
        <POP 16c2e-16c44 Prologue>                           Σ0         ↓
        <POP 16c44-16c58 RegCacheLoad>                       Σ0         ↓
        <POP 16c58-16c9e Naked>                              Σ0 Δ-4     ↓ →0x16cba
            <MI 16c58  LEA.L   0x1b5e8,A0>                                      {}
            <MI 16c5e  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 16c60  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <MI 16c64  LEA.L   0x1b9e8,A0>                                      {}
            <MI 16c6a  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 16c6c  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 16c70  MOVEQ.L #0x00,D7>                                        {}
            <MI 16c72  MOVEQ.L #0x01,D6>                                        {}
            <MI 16c74  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 16c78  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 16c7a  MOVE.B  #0x01,(A0)>                                      {[4, 'A0']}
            <MI 16c7c  LEA.L   (A6-0x5c),A1>                                    {[4, 'A0']}
            <MI 16c80  MOVE.L  A1,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A1']}
            <Const 0x16c82 0x40.2>                           Δ-2                {[4, 'A0']|[4, 'A1']|[#64]}
            <Call 0x16c86 0x16682>                                              {[4, 'A0']|[4, 'A1']|[#64]}
                _FSCALL_10418
            <POP 16c8c-16c8e StackAdj>                       Δ+6                {[4, 'A0']}
            <Pointer.fp 0x16c8e <LVAR -0x05f @ 1(r)>>        Δ-4                {[4, 'A0']|[@@-95]}
            <Call 0x16c90 0x163fe>                                              {[4, 'A0']|[@@-95]}
                _FSCALL_10408
            <POP 16c96-16c98 StackAdj>                       Δ+4                {[4, 'A0']}
            <MI 16c98  MOVE.B  (A6-0x5f),D0>                                    {[4, 'A0']}
            <MI 16c9a  CMP.B   #0x06,D0>                                        {[4, 'A0']}
            <MI 16c9c  BNE     0x16cba>                                         {[4, 'A0']}
        <POP 16c9e-16cba Naked>                              Σ-4        ↓
            <MI 16c9e  LEA.L   (A6-0x5c),A0>                                    {[-4-]}
            <MI 16ca2  MOVE.L  A0,-(A7)>                     Δ-4                {[-4-]|[4, 'A0']}
            <Const 0x16ca4 0x40.2>                           Δ-2                {[-4-]|[4, 'A0']|[#64]}
            <Call 0x16ca8 0x16682>                                              {[-4-]|[4, 'A0']|[#64]}
                _FSCALL_10418
            <POP 16cae-16cb0 StackAdj>                       Δ+6                {[-4-]}
            <Pointer.fp 0x16cb0 <LVAR -0x05f @ 1(r)>>        Δ-4                {[-4-]|[@@-95]}
            <Call 0x16cb2 0x163fe>                                              {[-4-]|[@@-95]}
                _FSCALL_10408
            <POP 16cb8-16cba StackAdj>                       Δ+4                {[-4-]}
        <POP 16cba-16cc0 Naked>                              Σ-4        ↓ →0x16ce6 ←0x16c58
            <MI 16cba  MOVE.B  (A6-0x5f),D0>                                    {[-4-]}
            <MI 16cbc  CMP.B   #0x06,D0>                                        {[-4-]}
            <MI 16cbe  BNE     0x16ce6>                                         {[-4-]}
        <POP 16cc0-16cd2 Naked>                              Σ-4        ↓ →0x16cde
            <Const 0x16cc0 0x5.2>                            Δ-2                {[-4-]|[#5]}
            <Pointer.fp 0x16cc4 <LVAR -0x05f @ 1(r)>>        Δ-4                {[-4-]|[#5]|[@@-95]}
            <Call 0x16cc6 0x16634>                                              {[-4-]|[#5]|[@@-95]}
                _FSCALL_10414
            <POP 16ccc-16cce StackAdj>                       Δ+6                {[-4-]}
            <MI 16cce  TST.B   (A6-0x5f)>                                       {[-4-]}
            <MI 16cd0  BEQ     0x16cde>                                         {[-4-]}
        <POP 16cd2-16cde Naked>                              Σ-4        ↓
            <Const 0x16cd2 0x2.2>                            Δ-2                {[-4-]|[#2]}
            <Pointer.fp 0x16cd4 <LVAR -0x05f @ 1(r)>>        Δ-4                {[-4-]|[#2]|[@@-95]}
            <Call 0x16cd6 0x167b8>                                              {[-4-]|[#2]|[@@-95]}
                _FSCALL_10428
            <POP 16cdc-16cde StackAdj>                       Δ+6                {[-4-]}
        <POP 16cde-16ce4 Naked>                              Σ-4 Δ+4    →0x170ae ←0x16cc0 ←0x16cec
            <POP 16cde-16ce0 StackAdj>                       Δ+4                {}
            <MI 16ce0  BRA     0x170ae>                                         {}
        <POP 16ce6-16cec Naked>                              Σ-4        ↓ →0x16cee ←0x16cba
            <MI 16ce6  TST.B   (A6-0x5e)>                                       {[-4-]}
            <MI 16cea  BEQ     0x16cee>                                         {[-4-]}
        <POP 16cec-16cee Naked>                              Σ-4        →0x16cde
            <MI 16cec  BRA     0x16cde>                                         {[-4-]}
        <POP 16cee-16cf2 Naked>                              Σ-4        ↓ →0x16d00 ←0x16ce6
            <MI 16cee  TST.B   D0>                                              {[-4-]}
            <MI 16cf0  BEQ     0x16d00>                                         {[-4-]}
        <POP 16cf2-16d00 Naked>                              Σ-4        →0x16d3c
            <Const 0x16cf2 0x2.2>                            Δ-2                {[-4-]|[#2]}
            <Pointer.fp 0x16cf4 <LVAR -0x05f @ 1(r)>>        Δ-4                {[-4-]|[#2]|[@@-95]}
            <Call 0x16cf6 0x167b8>                                              {[-4-]|[#2]|[@@-95]}
                _FSCALL_10428
            <POP 16cfc-16cfe StackAdj>                       Δ+6                {[-4-]}
            <MI 16cfe  BRA     0x16d3c>                                         {[-4-]}
        <POP 16d00-16d0c Naked>                              Σ-4        ↓ →0x16d3c ←0x16cee
            <MI 16d00  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 16d02  CLR.B   (A0)>                                            {[-4-]}
            <MI 16d04  MOVE.W  (A6-0x34),D0>                                    {[-4-]}
            <MI 16d08  CMP.W   #0x01,D0>                                        {[-4-]}
            <MI 16d0a  BEQ     0x16d3c>                                         {[-4-]}
        <POP 16d0c-16d3c Naked>                              Σ-4        ↓
            <Blob 0x16d0c [30] @>                            Δ-30               {[-4-]|[«30""»]}
            <Const 0x16d1e 0x4.2>                            Δ-2                {[-4-]|[«30""»]|[#4]}
            <POP 16d22-16d24 StackAdj>                       Δ-4                {[-4-]|[«30""»]|[#4]|[-4-]}
            <Lit 0x16d24 29>                                                    {[-4-]|[«30""»]|[#4]|[$$Obsolete tape header version.]}
            <Call 0x16d32 0x14e0a>                                              {[-4-]|[«30""»]|[#4]|[$$Obsolete tape header version.]}
                _PopProgram(status : Byte; msg : String)
            <POP 16d38-16d3c StackAdj>                       Δ+36               {[-4-]}
        <POP 16d3c-16d44 Naked>                              Σ-4 Δ+4    ↓ →0x16d90 ←0x16cf2 ←0x16d00
            <POP 16d3c-16d3e StackAdj>                       Δ+4                {}
            <MI 16d3e  TST.B   (A6+0x12)>                                       {}
            <MI 16d42  BEQ     0x16d90>                                         {}
        <POP 16d44-16d90 Naked>                              Σ0         ↓
            <Blob 0x16d44 [12] @>                            Δ-12               {[«12""»]}
            <Blob 0x16d56 [30] (A6-0x3e)>                    Δ-30               {[«12""»]|[«30»]}
            <POP 16d60-16d62 StackAdj>                       Δ-8                {[«12""»]|[«30»]|[-8-]}
            <Lit 0x16d62 11>                                                    {[«12""»]|[«30»]|[-4-]|[$$Reading ->_]}
            <POP 16d6e-16d70 StackAdj>                       Δ-4                {[«12""»]|[«30»]|[-4-]|[$$Reading ->_]|[-4-]}
            <Lit 0x16d70>                                                       {[«12""»]|[«30»]|[-4-]|[$$Reading ->_]|[$$…]}
                <Pointer.sp 0x16d70 12>                      Δ-4        
                <Const 0x16d74 0x1.2>                        Δ-2        
                <Const 0x16d76 0x1e.2>                       Δ-2        
                <Call 0x16d7a 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 16d7c-16d7e StackAdj>                   Δ+8        
            <Call 0x16d7e 0x10f34>                                              {[«12""»]|[«30»]|[-4-]|[$$Reading ->_]|[$$…]}
                _StringCat2(a, b : String) : String
            <POP 16d84-16d86 StackAdj>                       Δ+8                {[«12""»]|[«30»]|[-4-]}
            <Call 0x16d86 0x154a2>                                              {[«12""»]|[«30»]|[-4-]}
                _WriteConsoleStringCrLf(str : String)
            <POP 16d8c-16d90 StackAdj>                       Δ+46               {}
        <POP 16d90-16d96 Naked>                              Σ0         ↓ →0x16da8 ←0x16d3c
            <MI 16d90  TST.B   (A6+0x10)>                                       {}
            <MI 16d94  BEQ     0x16da8>                                         {}
        <POP 16d96-16da0 Naked>                              Σ0         ↓ →0x16da8
            <MI 16d96  MOVE.W  (A6-0x3e),D0>                                    {}
            <MI 16d98  EXTW.L  D0>                                              {}
            <MI 16d9a  CMP.L   (A6+0xc),D0>                                     {}
            <MI 16d9e  BGE     0x16da8>                                         {}
        <POP 16da0-16da8 Naked>                              Σ0         →0x16dac
            <MI 16da0  MOVE.B  #0x07,(A6-0x4)>                                  {}
            <MI 16da6  BRA     0x16dac>                                         {}
        <POP 16da8-16dac Naked>                              Σ0         ↓ ←0x16d90 ←0x16d96
            <MI 16da8  MOVE.B  #0x06,(A6-0x4)>                                  {}
        <POP 16dac-16dc6 Naked>                              Σ0         ↓ →0x16dd2 ←0x16da0
            <MI 16dac  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 16db0  EXTB.W  D0>                                              {}
            <POP 0x16db2 LimitCheck 0x0 ≤ D0 ≤ 0xb>                             {}
            <MI 16db6  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Pointer.fp 0x16db8 <LVAR -0x05f @ 1(r)>>        Δ-4                {[2, 'D0']|[@@-95]}
            <Call 0x16dba 0x16634>                                              {[2, 'D0']|[@@-95]}
                _FSCALL_10414
            <POP 16dc0-16dc2 StackAdj>                       Δ+6                {}
            <MI 16dc2  TST.B   (A6-0x5f)>                                       {}
            <MI 16dc4  BEQ     0x16dd2>                                         {}
        <POP 16dc6-16dd2 Naked>                              Σ0         ↓
            <Const 0x16dc6 0x2.2>                            Δ-2                {[#2]}
            <Pointer.fp 0x16dc8 <LVAR -0x05f @ 1(r)>>        Δ-4                {[#2]|[@@-95]}
            <Call 0x16dca 0x167b8>                                              {[#2]|[@@-95]}
                _FSCALL_10428
            <POP 16dd0-16dd2 StackAdj>                       Δ+6                {}
        <POP 16dd2-16dd8 Naked>                              Σ0         ↓ →0x16de8 ←0x16dac
            <MI 16dd2  TST.B   (A6+0x10)>                                       {}
            <MI 16dd6  BNE     0x16de8>                                         {}
        <POP 16dd8-16de8 Naked>                              Σ0         →0x16ed0
            <Const 0x16dd8 0x2.2>                            Δ-2                {[#2]}
            <Pointer.fp 0x16dda <LVAR -0x05f @ 1(r)>>        Δ-4                {[#2]|[@@-95]}
            <Call 0x16ddc 0x16634>                                              {[#2]|[@@-95]}
                _FSCALL_10414
            <POP 16de2-16de4 StackAdj>                       Δ+6                {}
            <MI 16de4  BRA     0x16ed0>                                         {}
        <POP 16de8-16e28 Naked>                              Σ0         ↓ →0x16e2e ←0x16dd2
            <POP 0x16de8 LimitCheck 0x0 ≤ D7 ≤ 0x1>                             {}
            <MI 16dea  CLR.L   D0>                                              {}
            <MI 16dec  MOVE.W  D7,D0>                                           {}
            <MI 16dee  ASL.L   #0x2,D0>                                         {}
            <MI 16df0  MOVE.L  (A6+D0.L-#0x10),-(A7)>        Δ-4                {[4, '(A6+D0.L-#0x10)']}
            <Const 0x16df4 0x400.2>                          Δ-2                {[4, '(A6+D0.L-#0x10)']|[#1024]}
            <Call 0x16df8 0x16682>                                              {[4, '(A6+D0.L-#0x10)']|[#1024]}
                _FSCALL_10418
            <POP 16dfe-16e00 StackAdj>                       Δ+6                {}
            <Blob 0x16e00 [30] (A6-0x3e)>                    Δ-30               {[«30»]}
            <POP 16e0a-16e0c StackAdj>                       Δ-4                {[«30»]|[-4-]}
            <Lit 0x16e0c>                                                       {[«30»]|[$$…]}
                <Pointer.sp 0x16e0c 4>                       Δ-4        
                <Const 0x16e10 0x1.2>                        Δ-2        
                <Const 0x16e12 0x1e.2>                       Δ-2        
                <Call 0x16e16 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 16e18-16e1a StackAdj>                   Δ+8        
            <MI 16e1a  MOVE.L  (A7)+,(A6-0x1c)>              Δ+4                {[«30»]}
            <POP 16e1e-16e22 StackAdj>                       Δ+30               {}
            <MI 16e22  TST.B   (A6-0x39)>                                       {}
            <MI 16e26  BEQ     0x16e2e>                                         {}
        <POP 16e28-16e2e Naked>                              Σ0         →0x16e30
            <MI 16e28  MOVE.W  (A6-0x3e),D0>                                    {}
            <MI 16e2a  NEG.W   D0>                                              {}
            <MI 16e2c  BRA     0x16e30>                                         {}
        <POP 16e2e-16e30 Naked>                              Σ0         ↓ ←0x16de8
            <MI 16e2e  MOVE.W  (A6-0x3e),D0>                                    {}
        <POP 16e30-16e5a Naked>                              Σ0         ↓ →0x16e90 ←0x16e28
            <MI 16e30  EXTW.L  D0>                                              {}
            <MI 16e32  MOVE.L  D0,(A6-0x8)>                                     {}
            <MI 16e36  MOVE.L  (A6-0x1c),-(A7)>              Δ-4                {[4, '(A6-0x1c)']}
            <Const 0x16e3a 0x1.2>                            Δ-2                {[4, '(A6-0x1c)']|[#1]}
            <Const 0x16e3c 0x1.2>                            Δ-2                {[4, '(A6-0x1c)']|[#1]|[#1]}
            <MI 16e3e  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x1c)']|[#1]|[#1]|[4, '(A6-0x8)']}
            <Pointer.fp 0x16e42 <LVAR -0x05d @ 1(r)>>        Δ-4                {[4, '(A6-0x1c)']|[#1]|[#1]|[4, '(A6-0x8)']|[@@-93]}
            <Pointer.fp 0x16e46 <LVAR -0x018 @ 4(r)>>        Δ-4                {[4, '(A6-0x1c)']|[#1]|[#1]|[4, '(A6-0x8)']|[@@-93]|[@@-24]}
            <Call 0x16e4a 0x138a6>                                              {[4, '(A6-0x1c)']|[#1]|[#1]|[4, '(A6-0x8)']|[@@-93]|[@@-24]}
                _OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 16e50-16e54 StackAdj>                       Δ+20               {}
            <MI 16e54  TST.B   (A6-0x5d)>                                       {}
            <MI 16e58  BEQ     0x16e90>                                         {}
        <POP 16e5a-16e90 Naked>                              Σ0         ↓
            <Pointer.fp 0x16e5a <LVAR -0x05f @ 1(r)>>        Δ-4                {[@@-95]}
            <Call 0x16e5c 0x163fe>                                              {[@@-95]}
                _FSCALL_10408
            <POP 16e62-16e63 StackAdj>                       Δ+4                {}
            <Blob 0x16e63 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x16e66 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x16e6a [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x16e6e [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <Const 0x16e72 0xe.2>                            Δ-2                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]}
            <POP 16e76-16e78 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]|[-4-]}
            <Lit 0x16e78 16>                                                    {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]|[$$File open error.]}
            <Call 0x16e86 0x14e0a>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]|[$$File open error.]}
                _PopProgram(status : Byte; msg : String)
            <POP 16e8c-16e90 StackAdj>                       Δ+22               {}
        <POP 16e90-16ed0 Naked>                              Σ0         ↓ ←0x16e30
            <MI 16e90  MOVEA.L (A6-0x18),A0>                                    {}
            <MI 16e94  MOVE.B  (A6-0x39),D0>                                    {}
            <MI 16e98  ANDI.B  #0xfd,(A0+0x3f)>                                 {}
            <MI 16e9e  LSL.B   #0x1,D0>                                         {}
            <MI 16ea0  OR.B    D0,(A0+0x3f)>                                    {}
            <MI 16ea4  MOVE.B  (A6-0x3a),D0>                                    {}
            <MI 16ea8  ANDI.B  #0xfb,(A0+0x3f)>                                 {}
            <MI 16eae  LSL.B   #0x2,D0>                                         {}
            <MI 16eb0  OR.B    D0,(A0+0x3f)>                                    {}
            <MI 16eb4  MOVE.B  (A6-0x38),(A0+0x3a)>                             {}
            <MI 16eba  MOVE.B  (A6-0x37),(A0+0x3b)>                             {}
            <MI 16ec0  MOVE.B  (A6-0x36),(A0+0x3c)>                             {}
            <MI 16ec6  MOVE.B  (A6-0x35),(A0+0x3d)>                             {}
            <MI 16ecc  MOVE.B  #0x01,(A0+0x4c)>                                 {}
        <POP 16ed0-16eda Naked>                              Σ0 Δ-4     ↓ ←0x16dd8
            <MI 16ed0  MOVE.W  (A6-0x3e),D0>                                    {}
            <MI 16ed2  SUBQ.W  #0x1,D0>                                         {}
            <MI 16ed4  EXTW.L  D0>                                              {}
            <MI 16ed6  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 16ed8  MOVEQ.L #0x00,D0>                                        {[4, 'D0']}
        <POP 16eda-16ede Naked>                              Σ-4        ↓ →0x16ee4 ←0x17018
            <MI 16eda  CMP.L   (A7),D0>                                         {[-4-]}
            <MI 16edc  BLE     0x16ee4>                                         {[-4-]}
        <POP 16ede-16ee4 Naked>                              Σ-4 Δ-4    →0x1701e
            <POP 16ede-16ee0 StackAdj>                       Δ-4                {[-8-]}
            <MI 16ee0  BRA     0x1701e>                                         {[-8-]}
        <POP 16ee4-16ee6 Naked>                              Σ-4 Δ-4    ↓ ←0x16eda
            <MI 16ee4  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
        <POP 16ee6-16ef4 Naked>                              Σ-8        ↓ →0x16ef6 ←0x16f40
            <MI 16ee6  MOVEQ.L #0x00,D5>                                        {[-8-]}
            <MI 16ee8  MOVE.W  (A6-0x3e),D0>                                    {[-8-]}
            <MI 16eea  SUBQ.W  #0x1,D0>                                         {[-8-]}
            <MI 16eec  MOVE.L  (A7),D1>                                         {[-8-]}
            <MI 16eee  EXTW.L  D0>                                              {[-8-]}
            <MI 16ef0  CMP.L   D0,D1>                                           {[-8-]}
            <MI 16ef2  BNE     0x16ef6>                                         {[-8-]}
        <POP 16ef4-16ef6 Naked>                              Σ-8        ↓
            <MI 16ef4  ADDQ.B  #0x1,D5>                                         {[-8-]}
        <POP 16ef6-16efc Naked>                              Σ-8        ↓ →0x16f06 ←0x16ee6
            <MI 16ef6  TST.B   (A6+0x10)>                                       {[-8-]}
            <MI 16efa  BEQ     0x16f06>                                         {[-8-]}
        <POP 16efc-16f06 Naked>                              Σ-8        ↓
            <Pointer.fp 0x16efc <LVAR -0x05f @ 1(r)>>        Δ-4                {[-8-]|[@@-95]}
            <Call 0x16efe 0x163fe>                                              {[-8-]|[@@-95]}
                _FSCALL_10408
            <POP 16f04-16f06 StackAdj>                       Δ+4                {[-8-]}
        <POP 16f06-16f0c Naked>                              Σ-8        ↓ →0x16f44 ←0x16ef6
            <MI 16f06  MOVE.B  (A6-0x5f),D0>                                    {[-8-]}
            <MI 16f08  CMP.B   #0x06,D0>                                        {[-8-]}
            <MI 16f0a  BNE     0x16f44>                                         {[-8-]}
        <POP 16f0c-16f18 Naked>                              Σ-8        ↓ →0x16f24
            <Call 0x16f0c 0x16876>                                              {[-8-]}
                _FSCALL_1042c
            <MI 16f12  TST.B   (A6+0x10)>                                       {[-8-]}
            <MI 16f16  BNE     0x16f24>                                         {[-8-]}
        <POP 16f18-16f24 Naked>                              Σ-8 Δ-6    →0x16f3e
            <Const 0x16f18 0x2.2>                            Δ-2                {[-8-]|[#2]}
            <Pointer.fp 0x16f1a <LVAR -0x05f @ 1(r)>>        Δ-4                {[-8-]|[#2]|[@@-95]}
            <Call 0x16f1c 0x16634>                                              {[-8-]|[#2]|[@@-95]}
                _FSCALL_10414
            <MI 16f22  BRA     0x16f3e>                                         {[-8-]|[#2]|[@@-95]}
        <POP 16f24-16f28 Naked>                              Σ-8        ↓ →0x16f40 ←0x16f0c
            <MI 16f24  TST.B   D5>                                              {[-8-]}
            <MI 16f26  BNE     0x16f40>                                         {[-8-]}
        <POP 16f28-16f3e Naked>                              Σ-8 Δ-6    ↓
            <POP 0x16f28 LimitCheck 0x0 ≤ D7 ≤ 0x1>                             {[-8-]}
            <MI 16f2a  CLR.L   D0>                                              {[-8-]}
            <MI 16f2c  MOVE.W  D7,D0>                                           {[-8-]}
            <MI 16f2e  ASL.L   #0x2,D0>                                         {[-8-]}
            <MI 16f30  MOVE.L  (A6+D0.L-#0x10),-(A7)>        Δ-4                {[-8-]|[4, '(A6+D0.L-#0x10)']}
            <Const 0x16f34 0x400.2>                          Δ-2                {[-8-]|[4, '(A6+D0.L-#0x10)']|[#1024]}
            <Call 0x16f38 0x16682>                                              {[-8-]|[4, '(A6+D0.L-#0x10)']|[#1024]}
                _FSCALL_10418
        <POP 16f3e-16f40 Naked>                              Σ-14 Δ+6   ↓ ←0x16f18
            <POP 16f3e-16f40 StackAdj>                       Δ+6                {[-8-]}
        <POP 16f40-16f42 Naked>                              Σ-8        →0x16ee6 ←0x16f24
            <MI 16f40  BRA     0x16ee6>                                         {[-8-]}
        <POP 16f44-16f48 Naked>                              Σ-8        ↓ →0x16f54 ←0x16f06
            <MI 16f44  TST.B   D0>                                              {[-8-]}
            <MI 16f46  BEQ     0x16f54>                                         {[-8-]}
        <POP 16f48-16f54 Naked>                              Σ-8        ↓
            <Const 0x16f48 0x2.2>                            Δ-2                {[-8-]|[#2]}
            <Pointer.fp 0x16f4a <LVAR -0x05f @ 1(r)>>        Δ-4                {[-8-]|[#2]|[@@-95]}
            <Call 0x16f4c 0x167b8>                                              {[-8-]|[#2]|[@@-95]}
                _FSCALL_10428
            <POP 16f52-16f54 StackAdj>                       Δ+6                {[-8-]}
        <POP 16f54-16f58 Naked>                              Σ-8        ↓ →0x16f5e ←0x16f44
            <MI 16f54  TST.W   D7>                                              {[-8-]}
            <MI 16f56  BNE     0x16f5e>                                         {[-8-]}
        <POP 16f58-16f5e Naked>                              Σ-8        →0x16f62
            <MI 16f58  MOVEQ.L #0x01,D7>                                        {[-8-]}
            <MI 16f5a  MOVEQ.L #0x00,D6>                                        {[-8-]}
            <MI 16f5c  BRA     0x16f62>                                         {[-8-]}
        <POP 16f5e-16f62 Naked>                              Σ-8        ↓ ←0x16f54
            <MI 16f5e  MOVEQ.L #0x00,D7>                                        {[-8-]}
            <MI 16f60  MOVEQ.L #0x01,D6>                                        {[-8-]}
        <POP 16f62-16f6a Naked>                              Σ-8        ↓ →0x17002 ←0x16f58
            <MI 16f62  TST.B   (A6+0x10)>                                       {[-8-]}
            <MI 16f66  BEQ     0x17002>                                         {[-8-]}
        <POP 16f6a-16f6e Naked>                              Σ-8        ↓ →0x16f86
            <MI 16f6a  TST.B   D5>                                              {[-8-]}
            <MI 16f6c  BNE     0x16f86>                                         {[-8-]}
        <POP 16f6e-16f86 Naked>                              Σ-8        ↓
            <POP 0x16f6e LimitCheck 0x0 ≤ D7 ≤ 0x1>                             {[-8-]}
            <MI 16f70  CLR.L   D0>                                              {[-8-]}
            <MI 16f72  MOVE.W  D7,D0>                                           {[-8-]}
            <MI 16f74  ASL.L   #0x2,D0>                                         {[-8-]}
            <MI 16f76  MOVE.L  (A6+D0.L-#0x10),-(A7)>        Δ-4                {[-8-]|[4, '(A6+D0.L-#0x10)']}
            <Const 0x16f7a 0x400.2>                          Δ-2                {[-8-]|[4, '(A6+D0.L-#0x10)']|[#1024]}
            <Call 0x16f7e 0x16682>                                              {[-8-]|[4, '(A6+D0.L-#0x10)']|[#1024]}
                _FSCALL_10418
            <POP 16f84-16f86 StackAdj>                       Δ+6                {[-8-]}
        <POP 16f86-16fc2 Naked>                              Σ-8        ↓ →0x17000 ←0x16f6a
            <MI 16f86  MOVE.L  (A6-0x18),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x18)']}
            <MI 16f8a  MOVE.L  (A7+0x4),D0>                                     {[-8-]|[4, '(A6-0x18)']}
            <POP 0x16f8e LimitCheck 0x0 ≤ D0 ≤ 0x4000>                          {[-8-]|[4, '(A6-0x18)']}
            <MI 16f98  MOVE.W  D0,-(A7)>                     Δ-2                {[-8-]|[4, '(A6-0x18)']|[2, 'D0']}
            <MI 16f9a  CLR.W   -(A7)>                        Δ-2                {[-8-]|[4, '(A6-0x18)']|[2, 'D0']|[#0]}
            <Const 0x16f9c 0x200.2>                          Δ-2                {[-8-]|[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]}
            <Const 0x16fa0 0x1.2>                            Δ-2                {[-8-]|[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]|[#1]}
            <POP 0x16fa2 LimitCheck 0x0 ≤ D6 ≤ 0x1>                             {[-8-]|[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]|[#1]}
            <MI 16fa4  CLR.L   D0>                                              {[-8-]|[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]|[#1]}
            <MI 16fa6  MOVE.W  D6,D0>                                           {[-8-]|[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]|[#1]}
            <MI 16fa8  ASL.L   #0x2,D0>                                         {[-8-]|[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]|[#1]}
            <MI 16faa  MOVE.L  (A6+D0.L-#0x10),-(A7)>        Δ-4                {[-8-]|[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]|[#1]|[4, '(A6+D0.L-#0x10)']}
            <Pointer.fp 0x16fae <LVAR -0x05d @ 1(r)>>        Δ-4                {[-8-]|[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]|[#1]|[4, '(A6+D0.L-#0x10)']|[@@-93]}
            <Call 0x16fb2 0x13baa>                                              {[-8-]|[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]|[#1]|[4, '(A6+D0.L-#0x10)']|[@@-93]}
                _WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 16fb8-16fbc StackAdj>                       Δ+20               {[-8-]}
            <MI 16fbc  TST.B   (A6-0x5d)>                                       {[-8-]}
            <MI 16fc0  BEQ     0x17000>                                         {[-8-]}
        <POP 16fc2-16fc6 Naked>                              Σ-8        ↓ →0x16fd0
            <MI 16fc2  TST.B   D5>                                              {[-8-]}
            <MI 16fc4  BNE     0x16fd0>                                         {[-8-]}
        <POP 16fc6-16fd0 Naked>                              Σ-8        ↓
            <Pointer.fp 0x16fc6 <LVAR -0x05f @ 1(r)>>        Δ-4                {[-8-]|[@@-95]}
            <Call 0x16fc8 0x163fe>                                              {[-8-]|[@@-95]}
                _FSCALL_10408
            <POP 16fce-16fd0 StackAdj>                       Δ+4                {[-8-]}
        <POP 16fd0-17000 Naked>                              Σ-8        ↓ ←0x16fc2
            <Blob 0x16fd0 [26] @>                            Δ-26               {[-8-]|[«26""»]}
            <Const 0x16fe2 0xe.2>                            Δ-2                {[-8-]|[«26""»]|[#14]}
            <POP 16fe6-16fe8 StackAdj>                       Δ-4                {[-8-]|[«26""»]|[#14]|[-4-]}
            <Lit 0x16fe8 25>                                                    {[-8-]|[«26""»]|[#14]|[$$Unrecoverable file error.]}
            <Call 0x16ff6 0x14e0a>                                              {[-8-]|[«26""»]|[#14]|[$$Unrecoverable file error.]}
                _PopProgram(status : Byte; msg : String)
            <POP 16ffc-17000 StackAdj>                       Δ+32               {[-8-]}
        <POP 17000-17002 Naked>                              Σ-8        →0x17012 ←0x16f86
            <MI 17000  BRA     0x17012>                                         {[-8-]}
        <POP 17002-17006 Naked>                              Σ-8        ↓ →0x17012 ←0x16f62
            <MI 17002  TST.B   D5>                                              {[-8-]}
            <MI 17004  BNE     0x17012>                                         {[-8-]}
        <POP 17006-17012 Naked>                              Σ-8        ↓
            <Const 0x17006 0x2.2>                            Δ-2                {[-8-]|[#2]}
            <Pointer.fp 0x17008 <LVAR -0x05f @ 1(r)>>        Δ-4                {[-8-]|[#2]|[@@-95]}
            <Call 0x1700a 0x16634>                                              {[-8-]|[#2]|[@@-95]}
                _FSCALL_10414
            <POP 17010-17012 StackAdj>                       Δ+6                {[-8-]}
        <POP 17012-17018 Naked>                              Σ-8        ↓ →0x1701e ←0x17000 ←0x17002
            <MI 17012  MOVE.L  (A7),D0>                                         {[-8-]}
            <MI 17014  ADDQ.L  #0x1,D0>                                         {[-8-]}
            <MI 17016  BVS     0x1701e>                                         {[-8-]}
        <POP 17018-1701e Naked>                              Σ-8 Δ+4    →0x16eda
            <POP 17018-1701a StackAdj>                       Δ+4                {[-4-]}
            <MI 1701a  BRA     0x16eda>                                         {[-4-]}
        <POP 1701e-17026 Naked>                              Σ-8 Δ+8    ↓ →0x17090 ←0x16ede ←0x17012
            <POP 1701e-17020 StackAdj>                       Δ+8                {}
            <MI 17020  TST.B   (A6+0x10)>                                       {}
            <MI 17024  BEQ     0x17090>                                         {}
        <POP 17026-17050 Naked>                              Σ0         ↓ →0x1705a
            <Pointer.fp 0x17026 <LVAR -0x01c @ 4(rw)>>       Δ-4                {[@@-28]}
            <Call 0x1702a 0x10d76>                                              {[@@-28]}
                _FreeString(VAR a : String)
            <POP 17030-17032 StackAdj>                       Δ+2                {[-2-]}
            <MI 17032  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x17034 0x1.2>                            Δ-2                {[-2-]|[#1]}
            <Const 0x17036 0x1.4>                            Δ-4                {[-2-]|[#1]|[##1]}
            <Pointer.fp 0x1703a <LVAR -0x05d @ 1(r)>>        Δ-4                {[-2-]|[#1]|[##1]|[@@-93]}
            <Pointer.fp 0x1703e <LVAR -0x018 @ 4(r)>>        Δ-4                {[-2-]|[#1]|[##1]|[@@-93]|[@@-24]}
            <Call 0x17042 0x13c7c>                                              {[-2-]|[#1]|[##1]|[@@-93]|[@@-24]}
                _CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 17048-1704c StackAdj>                       Δ+16               {}
            <MI 1704c  TST.B   D5>                                              {}
            <MI 1704e  BNE     0x1705a>                                         {}
        <POP 17050-1705a Naked>                              Σ0         ↓
            <Pointer.fp 0x17050 <LVAR -0x05f @ 1(r)>>        Δ-4                {[@@-95]}
            <Call 0x17052 0x163fe>                                              {[@@-95]}
                _FSCALL_10408
            <POP 17058-1705a StackAdj>                       Δ+4                {}
        <POP 1705a-17060 Naked>                              Σ0         ↓ →0x17090 ←0x17026
            <MI 1705a  TST.B   (A6-0x5d)>                                       {}
            <MI 1705e  BEQ     0x17090>                                         {}
        <POP 17060-17090 Naked>                              Σ0         ↓
            <Blob 0x17060 [18] @>                            Δ-18               {[«18""»]}
            <Const 0x17072 0xe.2>                            Δ-2                {[«18""»]|[#14]}
            <POP 17076-17078 StackAdj>                       Δ-4                {[«18""»]|[#14]|[-4-]}
            <Lit 0x17078 17>                                                    {[«18""»]|[#14]|[$$File close error.]}
            <Call 0x17086 0x14e0a>                                              {[«18""»]|[#14]|[$$File close error.]}
                _PopProgram(status : Byte; msg : String)
            <POP 1708c-17090 StackAdj>                       Δ+24               {}
        <POP 17090-170a2 Naked>                              Σ0         ↓ →0x170ae ←0x1701e ←0x1705a
            <Const 0x17090 0x7.2>                            Δ-2                {[#7]}
            <Pointer.fp 0x17094 <LVAR -0x05f @ 1(r)>>        Δ-4                {[#7]|[@@-95]}
            <Call 0x17096 0x16634>                                              {[#7]|[@@-95]}
                _FSCALL_10414
            <POP 1709c-1709e StackAdj>                       Δ+6                {}
            <MI 1709e  TST.B   (A6-0x5f)>                                       {}
            <MI 170a0  BEQ     0x170ae>                                         {}
        <POP 170a2-170ae Naked>                              Σ0         ↓
            <Const 0x170a2 0x2.2>                            Δ-2                {[#2]}
            <Pointer.fp 0x170a4 <LVAR -0x05f @ 1(r)>>        Δ-4                {[#2]|[@@-95]}
            <Call 0x170a6 0x167b8>                                              {[#2]|[@@-95]}
                _FSCALL_10428
            <POP 170ac-170ae StackAdj>                       Δ+6                {}
        <POP 170ae-170b6 Epilogue>                           Σ0         ←0x16cde ←0x17090

0x170b6


@ 170b6
_FileReadLine(file : File; VAR a : String; VAR b : Byte)
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @>
    <POP 170b6-1721a Body>                                   Δ-4        
        <POP 170b6-170cc Prologue>                           Σ0         ↓
        <POP 170cc-170dc RegCacheLoad>                       Σ0         ↓
        <POP 170dc-170f4 Naked>                              Σ0 Δ-8     ↓
            <MI 170dc  LEA.L   0x1bdf0,A0>                                      {}
            <MI 170e2  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 170e4  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 170e6  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 170ea  MOVEA.L (A0),A0>                                         {}
            <MI 170ec  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 170ee  CLR.W   (A0)>                                            {[4, 'A0']}
            <MI 170f0  MOVEA.L (A6+0x10),A1>                                    {[4, 'A0']}
            <MI 170f2  MOVE.L  A1,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A1']}
        <POP 170f4-17100 Naked>                              Σ-8        ↓ →0x1710c ←0x171f6
            <MI 170f4  MOVEA.L (A7),A0>                                         {[-8-]}
            <MI 170f6  MOVEA.L 0x10026,A1>                                      {[-8-]}
            <MI 170fc  CMPA.L  (A6+0x10),A1>                                    {[-8-]}
            <MI 170fe  BNE     0x1710c>                                         {[-8-]}
        <POP 17100-1710c Naked>                              Σ-8        ↓ →0x17154
            <MI 17100  MOVE.W  0x1002a,D0>                                      {[-8-]}
            <MI 17106  CMP.W   (A0+0x48),D0>                                    {[-8-]}
            <MI 1710a  BEQ     0x17154>                                         {[-8-]}
        <POP 1710c-17116 Naked>                              Σ-8        ↓ →0x17120 ←0x170f4
            <MI 1710c  MOVE.W  (A0+0x48),D0>                                    {[-8-]}
            <MI 17110  CMP.W   (A0+0x20),D0>                                    {[-8-]}
            <MI 17114  BLT     0x17120>                                         {[-8-]}
        <POP 17116-17120 Naked>                              Σ-8 Δ+4    →0x171fe
            <MI 17116  MOVEA.L (A6+0x8),A1>                                     {[-8-]}
            <MI 17118  MOVE.B  #0x01,(A1)>                                      {[-8-]}
            <POP 1711a-1711c StackAdj>                       Δ+4                {[-4-]}
            <MI 1711c  BRA     0x171fe>                                         {[-4-]}
        <POP 17120-17154 Naked>                              Σ-8        ↓ ←0x1710c
            <MI 17120  MOVEA.L (A7),A1>                                         {[-8-]}
            <MI 17122  MOVE.W  (A1+0x48),D0>                                    {[-8-]}
            <POP 0x17126 LimitCheck 0x0 ≤ D0 ≤ 0x4000>                          {[-8-]}
            <MI 1712a  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-8-]|[4, '(A6+0x10)']}
            <MI 1712c  MOVE.W  D0,-(A7)>                     Δ-2                {[-8-]|[4, '(A6+0x10)']|[2, 'D0']}
            <MI 1712e  CLR.W   -(A7)>                        Δ-2                {[-8-]|[4, '(A6+0x10)']|[2, 'D0']|[#0]}
            <Const 0x17130 0x200.2>                          Δ-2                {[-8-]|[4, '(A6+0x10)']|[2, 'D0']|[#0]|[#512]}
            <Const 0x17134 0x2.2>                            Δ-2                {[-8-]|[4, '(A6+0x10)']|[2, 'D0']|[#0]|[#512]|[#2]}
            <MI 17138  MOVE.L  D5,-(A7)>                     Δ-4                {[-8-]|[4, '(A6+0x10)']|[2, 'D0']|[#0]|[#512]|[#2]|[4, 'D5']}
            <Pointer.fp 0x1713a <LVAR -0x002 @>>             Δ-4                {[-8-]|[4, '(A6+0x10)']|[2, 'D0']|[#0]|[#512]|[#2]|[4, 'D5']|[@@-2]}
            <Call 0x1713e 0x13ad8>                                              {[-8-]|[4, '(A6+0x10)']|[2, 'D0']|[#0]|[#512]|[#2]|[4, 'D5']|[@@-2]}
                _ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 17144-17148 StackAdj>                       Δ+20               {[-8-]}
            <MI 17148  MOVE.L  (A6+0x10),0x10026>                               {[-8-]}
            <MI 1714e  MOVE.W  D0,0x1002a>                                      {[-8-]}
        <POP 17154-1716a Naked>                              Σ-8        ↓ →0x17170 ←0x17100
            <MI 17154  MOVEA.L (A7),A0>                                         {[-8-]}
            <MI 17156  MOVE.W  (A0+0x4a),D0>                                    {[-8-]}
            <POP 0x1715a LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {[-8-]}
            <MI 1715e  LEA.L   0x1bde8,A1>                                      {[-8-]}
            <MI 17164  MOVE.B  (A1+D0.W+#0x8),D6>                               {[-8-]}
            <MI 17168  BNE     0x17170>                                         {[-8-]}
        <POP 1716a-17170 Naked>                              Σ-8        →0x171a6
            <MI 1716a  MOVEA.L (A6+0x8),A0>                                     {[-8-]}
            <MI 1716c  MOVE.B  #0x01,(A0)>                                      {[-8-]}
            <MI 1716e  BRA     0x171a6>                                         {[-8-]}
        <POP 17170-17190 Naked>                              Σ-8        ↓ →0x171a2 ←0x17154
            <MI 17170  MOVE.W  (A0+0x4a),D0>                                    {[-8-]}
            <MI 17174  EXTW.L  D0>                                              {[-8-]}
            <MI 17176  ADDQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x17178 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff>                      {[-8-]}
            <MI 17186  MOVE.W  D0,(A0+0x4a)>                                    {[-8-]}
            <MI 1718a  CMPI.W  #0x0400,D0>                                      {[-8-]}
            <MI 1718e  BNE     0x171a2>                                         {[-8-]}
        <POP 17190-171a2 Naked>                              Σ-8        ↓
            <MI 17190  MOVE.W  (A0+0x48),D0>                                    {[-8-]}
            <MI 17194  ADDQ.W  #0x1,D0>                                         {[-8-]}
            <POP 0x17196 LimitCheck 0x0 ≤ D0 ≤ 0x4000>                          {[-8-]}
            <MI 1719a  MOVE.W  D0,(A0+0x48)>                                    {[-8-]}
            <MI 1719e  CLR.W   (A0+0x4a)>                                       {[-8-]}
        <POP 171a2-171a6 Naked>                              Σ-8        ↓ ←0x17170
            <MI 171a2  MOVEA.L (A6+0x8),A0>                                     {[-8-]}
            <MI 171a4  CLR.B   (A0)>                                            {[-8-]}
        <POP 171a6-171ae Naked>                              Σ-8        ↓ →0x171b4 ←0x1716a
            <MI 171a6  MOVEQ.L #0x00,D7>                                        {[-8-]}
            <MI 171a8  MOVEA.L (A6+0x8),A0>                                     {[-8-]}
            <MI 171aa  TST.B   (A0)>                                            {[-8-]}
            <MI 171ac  BNE     0x171b4>                                         {[-8-]}
        <POP 171ae-171b4 Naked>                              Σ-8        ↓ →0x171b6
            <MI 171ae  CMPI.B  #0x0a,D6>                                        {[-8-]}
            <MI 171b2  BNE     0x171b6>                                         {[-8-]}
        <POP 171b4-171b6 Naked>                              Σ-8        ↓ ←0x171a6
            <MI 171b4  ADDQ.B  #0x1,D7>                                         {[-8-]}
        <POP 171b6-171ba Naked>                              Σ-8        ↓ →0x171f6 ←0x171ae
            <MI 171b6  TST.B   D7>                                              {[-8-]}
            <MI 171b8  BNE     0x171f6>                                         {[-8-]}
        <POP 171ba-171c0 Naked>                              Σ-8        ↓ →0x171f6
            <MI 171ba  CMPI.B  #0x0d,D6>                                        {[-8-]}
            <MI 171be  BEQ     0x171f6>                                         {[-8-]}
        <POP 171c0-171f4 Naked>                              Σ-8        ↓ →0x171f6
            <MI 171c0  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 171c4  MOVE.W  (A0),D0>                                         {[-8-]}
            <MI 171c6  EXTW.L  D0>                                              {[-8-]}
            <MI 171c8  ADDQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x171ca LimitCheck -0x8000 ≤ D0 ≤ 0x7fff>                      {[-8-]}
            <MI 171d8  MOVE.W  D0,(A0)>                                         {[-8-]}
            <MI 171da  EXTW.L  D0>                                              {[-8-]}
            <MI 171dc  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x171de LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 171e8  MOVE.B  D6,(A0+D0.L+#0x2)>                               {[-8-]}
            <MI 171ec  MOVE.W  (A0),D0>                                         {[-8-]}
            <MI 171ee  CMPI.W  #0x007e,D0>                                      {[-8-]}
            <MI 171f2  BNE     0x171f6>                                         {[-8-]}
        <POP 171f4-171f6 Naked>                              Σ-8        ↓
            <MI 171f4  MOVEQ.L #0x01,D7>                                        {[-8-]}
        <POP 171f6-171fc Naked>                              Σ-8        ↓ →0x170f4 ←0x171b6 ←0x171ba ←0x171c0
            <MI 171f6  TST.B   D7>                                              {[-8-]}
            <MI 171f8  BEQ     0x170f4>                                         {[-8-]}
        <POP 171fc-171fe Naked>                              Σ-8 Δ+4    ↓
            <POP 171fc-171fe StackAdj>                       Δ+4                {[-4-]}
        <POP 171fe-17206 Naked>                              Σ-4        ↓ →0x1720e ←0x17116
            <MI 171fe  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 17200  MOVEQ.L #0x00,D0>                                        {[-4-]}
            <MI 17202  TST.B   (A0)>                                            {[-4-]}
            <MI 17204  BEQ     0x1720e>                                         {[-4-]}
        <POP 17206-1720c Naked>                              Σ-4        ↓ →0x1720e
            <MI 17206  MOVEA.L (A7),A1>                                         {[-4-]}
            <MI 17208  TST.W   (A1)>                                            {[-4-]}
            <MI 1720a  BNE     0x1720e>                                         {[-4-]}
        <POP 1720c-1720e Naked>                              Σ-4        ↓
            <MI 1720c  ADDQ.B  #0x1,D0>                                         {[-4-]}
        <POP 1720e-17212 Naked>                              Σ-4 Δ+4    ↓ ←0x171fe ←0x17206
            <MI 1720e  MOVE.B  D0,(A0)>                                         {[-4-]}
            <POP 17210-17212 StackAdj>                       Δ+4                {}
        <POP 17212-1721a Epilogue>                           Σ0         

0x1721a


@ 1721a
_FSCALL_10440
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 4(rw)>
        <LVAR -0x012 4(rw)>
        <LVAR -0x017 @>
    <POP 1721a-17378 Body>                                              
        <POP 1721a-17230 Prologue>                           Σ0         ↓
        <POP 17230-17242 RegCacheLoad>                       Σ0         ↓
        <POP 17242-17250 Naked>                              Σ0         ↓ →0x1725e
            <MI 17242  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 17244  MOVE.W  (A0),D0>                                         {}
            <MI 17246  EXTW.L  D0>                                              {}
            <MI 17248  MOVE.L  D0,(A6-0x6)>                                     {}
            <MI 1724c  AND.W   #0x01,D0>                                        {}
            <MI 1724e  BNE     0x1725e>                                         {}
        <POP 17250-1725e Naked>                              Σ0         ↓
            <MI 17250  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Const 0x17252 0xd.2>                            Δ-2                {[4, '(A6+0xc)']|[#13]}
            <Call 0x17256 0x10da6>                                              {[4, '(A6+0xc)']|[#13]}
                _AppendChar(MOD b : String; a : char)
            <POP 1725c-1725e StackAdj>                       Δ+6                {}
        <POP 1725e-17296 Naked>                              Σ0 Δ-4     ↓ →0x1729c ←0x17242
            <MI 1725e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Const 0x17260 0xa.2>                            Δ-2                {[4, '(A6+0xc)']|[#10]}
            <Call 0x17264 0x10da6>                                              {[4, '(A6+0xc)']|[#10]}
                _AppendChar(MOD b : String; a : char)
            <POP 1726a-1726c StackAdj>                       Δ+6                {}
            <MI 1726c  LEA.L   (A0+0x2),A1>                                     {}
            <MI 17270  MOVE.L  A1,-(A7)>                     Δ-4                {[4, 'A1']}
            <MI 17272  MOVE.L  (A7)+,D5>                     Δ+4                {}
            <MI 17274  MOVE.W  (A0),D0>                                         {}
            <MI 17276  EXTW.L  D0>                                              {}
            <MI 17278  DIVS.W  #0x02,D0>                                        {}
            <MI 1727a  EXTW.L  D0>                                              {}
            <MI 1727c  MOVE.L  D0,(A6-0x12)>                                    {}
            <MI 1727e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 17282  CLR.B   (A0)>                                            {}
            <MI 17284  MOVEA.L (A6+0x10),A1>                                    {}
            <MI 17288  MOVE.L  A1,-(A7)>                     Δ-4                {[4, 'A1']}
            <MI 1728a  MOVEA.L 0x10026,A2>                                      {[4, 'A1']}
            <MI 17290  CMPA.L  (A6+0x10),A2>                                    {[4, 'A1']}
            <MI 17294  BNE     0x1729c>                                         {[4, 'A1']}
        <POP 17296-1729c Naked>                              Σ-4        ↓
            <MI 17296  MOVE.L  #0x01,0x10026>                                   {[-4-]}
        <POP 1729c-172a6 Naked>                              Σ-4        ↓ →0x172ac ←0x1725e
            <MI 1729c  MOVE.W  (A1+0x48),D0>                                    {[-4-]}
            <MI 172a0  CMP.W   (A1+0x20),D0>                                    {[-4-]}
            <MI 172a4  BLT     0x172ac>                                         {[-4-]}
        <POP 172a6-172ac Naked>                              Σ-4        →0x17358
            <MI 172a6  MOVE.B  #0x01,(A0)>                                      {[-4-]}
            <MI 172a8  BRA     0x17358>                                         {[-4-]}
        <POP 172ac-172ba Naked>                              Σ-4        ↓ ←0x1729c
            <MI 172ac  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 172ae  MOVE.W  (A0+0x4a),D0>                                    {[-4-]}
            <MI 172b2  EXTW.L  D0>                                              {[-4-]}
            <MI 172b4  DIVS.W  #0x02,D0>                                        {[-4-]}
            <MI 172b6  EXTW.L  D0>                                              {[-4-]}
            <MI 172b8  MOVE.L  D0,D7>                                           {[-4-]}
        <POP 172ba-172c6 Naked>                              Σ-4        ↓ →0x172c8 ←0x1733c
            <MI 172ba  MOVE.L  #0x200,D6>                                       {[-4-]}
            <MI 172c0  SUB.L   D7,D6>                                           {[-4-]}
            <MI 172c2  CMP.L   (A6-0x12),D6>                                    {[-4-]}
            <MI 172c4  BLE     0x172c8>                                         {[-4-]}
        <POP 172c6-172c8 Naked>                              Σ-4        ↓
            <MI 172c6  MOVE.L  (A6-0x12),D6>                                    {[-4-]}
        <POP 172c8-17316 Naked>                              Σ-4        ↓ →0x17332 ←0x172ba
            <MI 172c8  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 172ca  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, '(A6+0x10)']}
            <MI 172ce  MOVE.W  (A0+0x48),D0>                                    {[-4-]|[4, '(A6+0x10)']}
            <POP 0x172d2 LimitCheck 0x0 ≤ D0 ≤ 0x4000>                          {[-4-]|[4, '(A6+0x10)']}
            <MI 172d6  MOVE.W  D0,-(A7)>                     Δ-2                {[-4-]|[4, '(A6+0x10)']|[2, 'D0']}
            <POP 0x172d8 LimitCheck 0x0 ≤ D7 ≤ 0x1ff>                           {[-4-]|[4, '(A6+0x10)']|[2, 'D0']}
            <MI 172e2  MOVE.W  D7,-(A7)>                     Δ-2                {[-4-]|[4, '(A6+0x10)']|[2, 'D0']|[2, 'D7']}
            <POP 0x172e4 LimitCheck 0x1 ≤ D6 ≤ 0x200>                           {[-4-]|[4, '(A6+0x10)']|[2, 'D0']|[2, 'D7']}
            <MI 172f2  MOVE.W  D6,-(A7)>                     Δ-2                {[-4-]|[4, '(A6+0x10)']|[2, 'D0']|[2, 'D7']|[2, 'D6']}
            <Const 0x172f4 0x2.2>                            Δ-2                {[-4-]|[4, '(A6+0x10)']|[2, 'D0']|[2, 'D7']|[2, 'D6']|[#2]}
            <MI 172f6  MOVE.L  D5,-(A7)>                     Δ-4                {[-4-]|[4, '(A6+0x10)']|[2, 'D0']|[2, 'D7']|[2, 'D6']|[#2]|[4, 'D5']}
            <Pointer.fp 0x172f8 <LVAR -0x017 @>>             Δ-4                {[-4-]|[4, '(A6+0x10)']|[2, 'D0']|[2, 'D7']|[2, 'D6']|[#2]|[4, 'D5']|[@@-23]}
            <Call 0x172fc 0x13baa>                                              {[-4-]|[4, '(A6+0x10)']|[2, 'D0']|[2, 'D7']|[2, 'D6']|[#2]|[4, 'D5']|[@@-23]}
                _WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 17302-17306 StackAdj>                       Δ+20               {[-4-]}
            <MI 17306  MOVE.L  D6,D0>                                           {[-4-]}
            <MI 17308  ASL.L   #0x1,D0>                                         {[-4-]}
            <MI 1730a  ADD.L   D0,D5>                                           {[-4-]}
            <MI 1730c  ADD.L   D6,D7>                                           {[-4-]}
            <MI 1730e  CMPI.L  #0x00000200,D7>                                  {[-4-]}
            <MI 17314  BNE     0x17332>                                         {[-4-]}
        <POP 17316-1732c Naked>                              Σ-4        ↓ →0x17332
            <MI 17316  MOVE.W  (A0+0x48),D0>                                    {[-4-]}
            <MI 1731a  ADDQ.W  #0x1,D0>                                         {[-4-]}
            <POP 0x1731c LimitCheck 0x0 ≤ D0 ≤ 0x4000>                          {[-4-]}
            <MI 17320  MOVE.W  D0,(A0+0x48)>                                    {[-4-]}
            <MI 17324  MOVEQ.L #0x00,D7>                                        {[-4-]}
            <MI 17326  CMP.W   (A0+0x20),D0>                                    {[-4-]}
            <MI 1732a  BLT     0x17332>                                         {[-4-]}
        <POP 1732c-17332 Naked>                              Σ-4        ↓
            <MI 1732c  MOVEA.L (A6+0x8),A1>                                     {[-4-]}
            <MI 17330  MOVE.B  #0x01,(A1)>                                      {[-4-]}
        <POP 17332-1733c Naked>                              Σ-4        ↓ →0x17342 ←0x172c8 ←0x17316
            <MI 17332  SUB.L   D6,(A6-0x12)>                                    {[-4-]}
            <MI 17334  MOVEA.L (A6+0x8),A1>                                     {[-4-]}
            <MI 17338  TST.B   (A1)>                                            {[-4-]}
            <MI 1733a  BNE     0x17342>                                         {[-4-]}
        <POP 1733c-17342 Naked>                              Σ-4        ↓ →0x172ba
            <MI 1733c  TST.L   (A6-0x12)>                                       {[-4-]}
            <MI 1733e  BNE     0x172ba>                                         {[-4-]}
        <POP 17342-17358 Naked>                              Σ-4        ↓ ←0x17332
            <MI 17342  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 17344  ASL.L   #0x1,D0>                                         {[-4-]}
            <POP 0x17346 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff>                      {[-4-]}
            <MI 17354  MOVE.W  D0,(A0+0x4a)>                                    {[-4-]}
        <POP 17358-17370 Naked>                              Σ-4 Δ+4    ↓ ←0x172a6
            <POP 17358-1735a StackAdj>                       Δ+4                {}
            <MI 1735a  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 1735c  MOVE.L  (A6-0x6),D0>                                     {}
            <POP 0x17360 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff>                      {}
            <MI 1736e  MOVE.W  D0,(A0)>                                         {}
        <POP 17370-17378 Epilogue>                           Σ0         

0x17378


@ 17378
_FSCALL_10444
        <LVAR  0x008 4(r)>
    <POP 17378-173c0 Body>                                              
        <POP 17378-1738e Prologue>                           Σ0         ↓
        <POP 1738e-173a6 Naked>                              Σ0         ↓ →0x173b8
            <MI 1738e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 17392  CLR.W   (A0+0x48)>                                       {}
            <MI 17396  CLR.W   (A0+0x4a)>                                       {}
            <MI 1739a  MOVEA.L 0x10026,A0>                                      {}
            <MI 173a0  CMPA.L  (A6+0x8),A0>                                     {}
            <MI 173a4  BNE     0x173b8>                                         {}
        <POP 173a6-173ae Naked>                              Σ0         ↓ →0x173b8
            <MI 173a6  TST.W   0x1002a>                                         {}
            <MI 173ac  BEQ     0x173b8>                                         {}
        <POP 173ae-173b8 Naked>                              Σ0         ↓
            <MI 173ae  MOVE.L  #0x1,0x10026>                                    {}
        <POP 173b8-173c0 Epilogue>                           Σ0         ←0x1738e ←0x173a6

0x173c0


@ 173c0
_FSCALL_10448
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @>
        <LVAR -0x008 @ 4(r)>
    <POP 173c0-17420 Body>                                              
        <POP 173c0-173d6 Prologue>                           Σ0         ↓
        <POP 173d6-173d8 RegCacheLoad>                       Σ0         ↓
        <POP 173d8-17418 Naked>                              Σ0         ↓
            <MI 173d8  CLR.L   (A6-0x8)>                                        {}
            <MI 173dc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 173e0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 173e4  MOVE.W  (A0+0x48),D0>                                    {[4, '(A6+0x8)']}
            <POP 0x173e8 LimitCheck 0x0 ≤ D0 ≤ 0x4000>                          {[4, '(A6+0x8)']}
            <MI 173ec  MOVE.W  D0,-(A7)>                     Δ-2                {[4, '(A6+0x8)']|[2, 'D0']}
            <MI 173ee  MOVE.W  (A0+0x4a),D0>                                    {[4, '(A6+0x8)']|[2, 'D0']}
            <MI 173f2  EXTW.L  D0>                                              {[4, '(A6+0x8)']|[2, 'D0']}
            <MI 173f4  DIVS.W  #0x02,D0>                                        {[4, '(A6+0x8)']|[2, 'D0']}
            <POP 173f6-173f8 StackAdj>                       Δ-2                {[4, '(A6+0x8)']|[2, 'D0']|[-2-]}
            <POP 0x173f8 LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {[4, '(A6+0x8)']|[2, 'D0']|[-2-]}
            <MI 173fc  MOVE.W  D0,(A7)>                                         {[4, '(A6+0x8)']|[2, 'D0']|[2, 'D0']}
            <Const 0x173fe 0x1.2>                            Δ-2                {[4, '(A6+0x8)']|[2, 'D0']|[2, 'D0']|[#1]}
            <Const 0x17402 0x2.2>                            Δ-2                {[4, '(A6+0x8)']|[2, 'D0']|[2, 'D0']|[#1]|[#2]}
            <MI 17404  LEA.L   (A6-0x8),A0>                                     {[4, '(A6+0x8)']|[2, 'D0']|[2, 'D0']|[#1]|[#2]}
            <MI 17408  MOVE.L  A0,-(A7)>                     Δ-4                {[4, '(A6+0x8)']|[2, 'D0']|[2, 'D0']|[#1]|[#2]|[4, 'A0']}
            <Pointer.fp 0x1740a <LVAR -0x004 @>>             Δ-4                {[4, '(A6+0x8)']|[2, 'D0']|[2, 'D0']|[#1]|[#2]|[4, 'A0']|[@@-4]}
            <Call 0x1740e 0x13baa>                                              {[4, '(A6+0x8)']|[2, 'D0']|[2, 'D0']|[#1]|[#2]|[4, 'A0']|[@@-4]}
                _WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 17414-17418 StackAdj>                       Δ+20               {}
        <POP 17418-17420 Epilogue>                           Σ0         

0x17476


@ 17476
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(rw)>
    <POP 17476-1755c Body>                                              
        <POP 17476-1748c Prologue>                           Σ0         ↓
        <POP 1748c-1749e RegCacheLoad>                       Σ0         ↓
        <POP 1749e-174dc Naked>                              Σ0         ↓ →0x17554
            <MI 1749e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 174a2  MOVE.L  #0x01,(A0)>                                      {}
            <Blob 0x174a4 [2] @>                             Δ-2                {[«2""»]}
            <POP 174a8-174aa StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <Lit 0x174aa 2>                                                     {[«2""»]|[$$\ ]}
            <MI 174bc  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {[«2""»]}
            <POP 174be-174c0 StackAdj>                       Δ-2                {[«2""»]|[-2-]}
            <MI 174c0  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[«2""»]|[-2-]|[4, '(A6+0xc)']}
            <MI 174c2  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[«2""»]|[-2-]|[4, '(A6+0xc)']|[4, '(A6-0x4)']}
            <Call 0x174c4 0x115fe>                                              {[«2""»]|[-2-]|[4, '(A6+0xc)']|[4, '(A6-0x4)']}
                _FSCALL_10300
            <POP 174ca-174cc StackAdj>                       Δ+8                {[«2""»]|[-2-]}
            <MI 174cc  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <Pointer.fp 0x174ce <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x174d0 0x10d76>                                              {[@@-4]}
                _FreeString(VAR a : String)
            <POP 174d6-174d8 StackAdj>                       Δ+4                {}
            <MI 174d8  TST.L   D6>                                              {}
            <MI 174da  BEQ     0x17554>                                         {}
        <POP 174dc-17510 Naked>                              Σ0 Δ-8     ↓
            <POP 174dc-174de StackAdj>                       Δ-4                {[-4-]}
            <MI 174de  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xc)']}
            <Call 0x174e0 0x10ef2>                                              {[-4-]|[4, '(A6+0xc)']}
                _StringDup(a : String) : String
            <POP 174e6-174e8 StackAdj>                       Δ+4                {[-4-]}
            <MI 174e8  MOVE.L  (A7)+,(A0)>                   Δ+4                {}
            <MI 174ea  MOVEA.L (A0),A0>                                         {}
            <MI 174ec  MOVE.L  D6,D0>                                           {}
            <MI 174ee  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x174f0 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff>                      {}
            <MI 174fe  MOVE.W  D0,(A0)>                                         {}
            <MI 17500  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 17502  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 17504  MOVE.L  D6,D0>                                           {[4, 'A0']}
            <MI 17506  ADDQ.L  #0x1,D0>                                         {[4, 'A0']}
            <MI 17508  MOVE.W  (A0),D1>                                         {[4, 'A0']}
            <MI 1750a  EXTW.L  D1>                                              {[4, 'A0']}
            <MI 1750c  MOVE.L  D1,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D1']}
            <MI 1750e  MOVE.L  D0,D7>                                           {[4, 'A0']|[4, 'D1']}
        <POP 17510-17514 Naked>                              Σ-8        ↓ →0x17538 ←0x17514
            <MI 17510  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 17512  BGT     0x17538>                                         {[-8-]}
        <POP 17514-17538 Naked>                              Σ-8        ↓ →0x17510
            <MI 17514  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 17516  SUB.L   D6,D0>                                           {[-8-]}
            <MI 17518  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x1751a LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 17520  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 17524  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 17526  SUBQ.L  #0x1,D1>                                         {[-8-]}
            <POP 0x17528 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]}
            <MI 1752e  MOVE.B  (A0+D1.L+#0x2),(A0+D0.L+#0x2)>                   {[-8-]}
            <MI 17534  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 17536  BVC     0x17510>                                         {[-8-]}
        <POP 17538-17554 Naked>                              Σ-8 Δ+8    ↓ ←0x17510
            <POP 17538-1753a StackAdj>                       Δ+4                {[-4-]}
            <MI 1753a  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 1753c  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 1753e  EXTW.L  D0>                                              {[-4-]}
            <MI 17540  SUB.L   D6,D0>                                           {[-4-]}
            <POP 0x17542 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff>                      {[-4-]}
            <MI 17550  MOVE.W  D0,(A0)>                                         {[-4-]}
            <POP 17552-17554 StackAdj>                       Δ+4                {}
        <POP 17554-1755c Epilogue>                           Σ0         ←0x1749e

0x1755c


@ 1755c
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(rw)>
        <LVAR -0x00a @ 1(r)>
        <LVAR -0x012 @ 4(r)>
        <LVAR -0x01a @ 4(r)>
    <POP 1755c-176c2 Body>                                   Δ+8        
        <POP 1755c-17572 Prologue>                           Σ0         ↓
        <POP 17572-17584 RegCacheLoad>                       Σ0         ↓
        <POP 17584-1759e Naked>                              Σ0 Δ-8     ↓
            <MI 17584  MOVEQ.L #0x00,D6>                                        {}
            <Pointer.fp 0x17586 <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x17588 0x10d42>                                              {[@@-4]}
                _NewString(VAR a : String)
            <POP 1758e-17590 StackAdj>                       Δ+4                {}
            <MI 17590  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 17594  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 17596  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 17598  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 1759a  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 1759c  MOVEQ.L #0x02,D0>                                        {[4, 'A0']|[4, 'D0']}
        <POP 1759e-175a2 Naked>                              Σ-8        ↓ →0x175a8 ←0x1767e
            <MI 1759e  CMP.L   (A7),D0>                                         {[-8-]}
            <MI 175a0  BLE     0x175a8>                                         {[-8-]}
        <POP 175a2-175a8 Naked>                              Σ-8 Δ-4    →0x17684
            <POP 175a2-175a4 StackAdj>                       Δ-4                {[-12-]}
            <MI 175a4  BRA     0x17684>                                         {[-12-]}
        <POP 175a8-175c6 Naked>                              Σ-8 Δ-4    ↓ →0x175de ←0x1759e
            <MI 175a8  MOVE.L  D0,-(A7)>                     Δ-4                {[-8-]|[4, 'D0']}
            <MI 175aa  MOVE.L  D0,D1>                                           {[-8-]|[4, 'D0']}
            <MI 175ac  SUBQ.L  #0x1,D1>                                         {[-8-]|[4, 'D0']}
            <POP 0x175ae LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-8-]|[4, 'D0']}
            <MI 175b8  MOVEA.L (A7+0x8),A0>                                     {[-8-]|[4, 'D0']}
            <MI 175bc  MOVE.B  (A0+D1.L+#0x2),D5>                               {[-8-]|[4, 'D0']}
            <MI 175c0  CMPI.B  #0x25,D5>                                        {[-8-]|[4, 'D0']}
            <MI 175c4  BEQ     0x175de>                                         {[-8-]|[4, 'D0']}
        <POP 175c6-175ca Naked>                              Σ-12       ↓ →0x175ce
            <MI 175c6  TST.B   D6>                                              {[-12-]}
            <MI 175c8  BEQ     0x175ce>                                         {[-12-]}
        <POP 175ca-175ce Naked>                              Σ-12 Δ-4   →0x175d0
            <MI 175ca  MOVE.L  (A6-0x1a),-(A7)>              Δ-4                {[-12-]|[4, '(A6-0x1a)']}
            <MI 175cc  BRA     0x175d0>                                         {[-12-]|[4, '(A6-0x1a)']}
        <POP 175ce-175d0 Naked>                              Σ-12 Δ-4   ↓ ←0x175c6
            <MI 175ce  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x4)']}
        <POP 175d0-175de Naked>                              Σ-16 Δ+4   →0x17678 ←0x175ca
            <MI 175d0  MOVE.B  D5,-(A7)>                     Δ-2                {[-16-]|[2, 'D5']}
            <Call 0x175d2 0x10da6>                                              {[-16-]|[2, 'D5']}
                _AppendChar(MOD b : String; a : char)
            <POP 175d8-175da StackAdj>                       Δ+6                {[-12-]}
            <MI 175da  BRA     0x17678>                                         {[-12-]}
        <POP 175de-175e2 Naked>                              Σ-12       ↓ →0x175f0 ←0x175a8
            <MI 175de  TST.B   D6>                                              {[-12-]}
            <MI 175e0  BNE     0x175f0>                                         {[-12-]}
        <POP 175e2-175ea Naked>                              Σ-12 Δ-4   ↓
            <Pointer.fp 0x175e2 <LVAR -0x01a @ 4(r)>>        Δ-4                {[-12-]|[@@-26]}
            <Call 0x175e4 0x10d42>                                              {[-12-]|[@@-26]}
                _NewString(VAR a : String)
        <POP 175ea-175f0 Naked>                              Σ-16 Δ+4   →0x17674 ←0x175f8
            <POP 175ea-175ec StackAdj>                       Δ+4                {[-12-]}
            <MI 175ec  BRA     0x17674>                                         {[-12-]}
        <POP 175f0-175f8 Naked>                              Σ-12       ↓ →0x17602 ←0x175de
            <MI 175f0  MOVEA.L (A6+0x8),A0>                                     {[-12-]}
            <MI 175f4  CMPA.W  #0x01,A0>                                        {[-12-]}
            <MI 175f6  BNE     0x17602>                                         {[-12-]}
        <POP 175f8-17602 Naked>                              Σ-12 Δ-4   →0x175ea
            <Pointer.fp 0x175f8 <LVAR -0x01a @ 4(r)>>        Δ-4                {[-12-]|[@@-26]}
            <Call 0x175fa 0x10d76>                                              {[-12-]|[@@-26]}
                _FreeString(VAR a : String)
            <MI 17600  BRA     0x175ea>                                         {[-12-]|[@@-26]}
        <POP 17602-1761a Naked>                              Σ-12       ↓ →0x17642 ←0x175f0
            <MI 17602  MOVE.L  (A6-0x1a),-(A7)>              Δ-4                {[-12-]|[4, '(A6-0x1a)']}
            <Pointer.fp 0x17604 <LVAR -0x00a @ 1(r)>>        Δ-4                {[-12-]|[4, '(A6-0x1a)']|[@@-10]}
            <Pointer.fp 0x17608 <LVAR -0x012 @ 4(r)>>        Δ-4                {[-12-]|[4, '(A6-0x1a)']|[@@-10]|[@@-18]}
            <Call 0x1760a 0x11288>                                              {[-12-]|[4, '(A6-0x1a)']|[@@-10]|[@@-18]}
                _String2Long(src : String; VAR status : Bool; VAR retval : Long)
            <POP 17610-17614 StackAdj>                       Δ+12               {[-12-]}
            <MI 17614  TST.B   (A6-0xa)>                                        {[-12-]}
            <MI 17618  BNE     0x17642>                                         {[-12-]}
        <POP 1761a-17642 Naked>                              Σ-12       →0x17674
            <Blob 0x1761a [14] @>                            Δ-14               {[-12-]|[«14""»]}
            <POP 17626-17628 StackAdj>                       Δ-4                {[-12-]|[«14""»]|[-4-]}
            <Lit 0x17628 14>                                                    {[-12-]|[«14""»]|[$$Illegal marker]}
            <Call 0x17638 0x154a2>                                              {[-12-]|[«14""»]|[$$Illegal marker]}
                _WriteConsoleStringCrLf(str : String)
            <POP 1763e-17640 StackAdj>                       Δ+18               {[-12-]}
            <MI 17640  BRA     0x17674>                                         {[-12-]}
        <POP 17642-17646 Naked>                              Σ-12       ↓ ←0x17602
            <MI 17642  MOVEA.L A0,A4>                                           {[-12-]}
            <MI 17644  MOVEQ.L #0x00,D7>                                        {[-12-]}
        <POP 17646-1764c Naked>                              Σ-12       ↓ →0x17668 ←0x17670
            <MI 17646  ADDQ.L  #0x1,D7>                                         {[-12-]}
            <MI 17648  CMP.L   (A6-0x12),D7>                                    {[-12-]}
            <MI 1764a  BNE     0x17668>                                         {[-12-]}
        <POP 1764c-17668 Naked>                              Σ-12       →0x1766c
            <POP 1764c-1764e StackAdj>                       Δ-4                {[-16-]}
            <MI 1764e  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-16-]|[4, '(A6-0x4)']}
            <POP 17650-17652 StackAdj>                       Δ-4                {[-16-]|[4, '(A6-0x4)']|[-4-]}
            <MI 17652  MOVE.L  (A4),-(A7)>                   Δ-4                {[-16-]|[4, '(A6-0x4)']|[-4-]|[4, '(A4)']}
            <Call 0x17654 0x10ef2>                                              {[-16-]|[4, '(A6-0x4)']|[-4-]|[4, '(A4)']}
                _StringDup(a : String) : String
            <POP 1765a-1765c StackAdj>                       Δ+4                {[-16-]|[4, '(A6-0x4)']|[-4-]}
            <Call 0x1765c 0x10f34>                                              {[-16-]|[4, '(A6-0x4)']|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 17662-17664 StackAdj>                       Δ+8                {[-16-]}
            <MI 17664  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {[-12-]}
            <MI 17666  BRA     0x1766c>                                         {[-12-]}
        <POP 17668-1766c Naked>                              Σ-12       ↓ ←0x17646
            <MI 17668  MOVEA.L (A4+0x4),A4>                                     {[-12-]}
        <POP 1766c-17670 Naked>                              Σ-12       ↓ →0x17674 ←0x1764c
            <MI 1766c  CMPA.W  #0x01,A4>                                        {[-12-]}
            <MI 1766e  BEQ     0x17674>                                         {[-12-]}
        <POP 17670-17674 Naked>                              Σ-12       ↓ →0x17646
            <MI 17670  CMP.L   (A6-0x12),D7>                                    {[-12-]}
            <MI 17672  BNE     0x17646>                                         {[-12-]}
        <POP 17674-17678 Naked>                              Σ-12       ↓ ←0x175ea ←0x1761a ←0x1766c
            <MI 17674  NEG.B   D6>                                              {[-12-]}
            <MI 17676  ADDQ.B  #0x1,D6>                                         {[-12-]}
        <POP 17678-1767e Naked>                              Σ-12       ↓ →0x17684 ←0x175d0
            <MI 17678  MOVE.L  (A7),D0>                                         {[-12-]}
            <MI 1767a  ADDQ.L  #0x1,D0>                                         {[-12-]}
            <MI 1767c  BVS     0x17684>                                         {[-12-]}
        <POP 1767e-17684 Naked>                              Σ-12 Δ+4   →0x1759e
            <POP 1767e-17680 StackAdj>                       Δ+4                {[-8-]}
            <MI 17680  BRA     0x1759e>                                         {[-8-]}
        <POP 17684-17694 Naked>                              Σ-12 Δ+12  ↓ →0x176ba ←0x175a2 ←0x17678
            <POP 17684-17686 StackAdj>                       Δ+8                {[-4-]}
            <MI 17686  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <Call 0x17688 0x154a2>                                              {[4, '(A6-0x4)']}
                _WriteConsoleStringCrLf(str : String)
            <POP 1768e-17690 StackAdj>                       Δ+4                {}
            <MI 17690  TST.B   D6>                                              {}
            <MI 17692  BEQ     0x176ba>                                         {}
        <POP 17694-176ba Naked>                              Σ0         ↓
            <Blob 0x17694 [14] @>                            Δ-14               {[«14""»]}
            <POP 176a0-176a2 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x176a2 14>                                                    {[«14""»]|[$$Illegal marker]}
            <Call 0x176b2 0x154a2>                                              {[«14""»]|[$$Illegal marker]}
                _WriteConsoleStringCrLf(str : String)
            <POP 176b8-176ba StackAdj>                       Δ+18               {}
        <POP 176ba-176c2 Epilogue>                           Σ0         ←0x17684

0x176c2


@ 176c2
_WriteErrorMessage(file : String; txt : String; number : Long) : Bool
        <LVAR  0x010 @ 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(rw)>
        <LVAR -0x00a @ 4(rw)>
        <LVAR -0x00e 4(rw)>
        <LVAR -0x012 @ 4(r)>
        <LVAR -0x016 @ 4(r)>
        <LVAR -0x01a @ 4(r)>
        <LVAR -0x01b @ 1(r)>
        <LVAR -0x01d @ 1(r)>
        <LVAR -0x022 @ 4(r)>
        <LVAR -0x024 @ 1(r)>
        <LVAR -0x028 @ 4(r)>
        <LVAR -0x02c @ 4(r)>
    <POP 176c2-1795a Body>                                              
        <POP 176c2-176d8 Prologue>                           Σ0         ↓
        <POP 176d8-176ee RegCacheLoad>                       Σ0         ↓
        <POP 176ee-17710 Naked>                              Σ0         ↓ →0x1774c
            <MI 176ee  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[4, '(A6+0x10)']}
            <MI 176f2  CLR.B   -(A7)>                        Δ-2                {[4, '(A6+0x10)']|[#0]}
            <Const 0x176f4 0x1.2>                            Δ-2                {[4, '(A6+0x10)']|[#0]|[#1]}
            <Const 0x176f6 0x0.4>                            Δ-4                {[4, '(A6+0x10)']|[#0]|[#1]|[##0]}
            <Pointer.fp 0x176fa <LVAR -0x024 @ 1(r)>>        Δ-4                {[4, '(A6+0x10)']|[#0]|[#1]|[##0]|[@@-36]}
            <Pointer.fp 0x176fe <LVAR -0x022 @ 4(r)>>        Δ-4                {[4, '(A6+0x10)']|[#0]|[#1]|[##0]|[@@-36]|[@@-34]}
            <Call 0x17702 0x138a6>                                              {[4, '(A6+0x10)']|[#0]|[#1]|[##0]|[@@-36]|[@@-34]}
                _OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 17708-1770a StackAdj>                       Δ+20               {}
            <MI 1770a  TST.B   (A6-0x24)>                                       {}
            <MI 1770e  BEQ     0x1774c>                                         {}
        <POP 17710-1774c Naked>                              Σ0         →0x17946
            <Blob 0x17710 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x17714 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x17718 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x1771c [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 17720-17722 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
            <Lit 0x17722 16>                                                    {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unknown error :_]}
            <MI 1772c  MOVE.L  (A6+0x8),(A7)>                                   {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']}
            <POP 1772a-1772c StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
            <Call 0x17730 0x110b0>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
                _Long2String(a : Long) : String
            <POP 17736-17738 StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
            <Call 0x17738 0x10f34>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 1773e-17740 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Call 0x17740 0x154a2>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
                _WriteConsoleStringCrLf(str : String)
            <POP 17746-17748 StackAdj>                       Δ+20               {}
            <MI 17748  BRA     0x17946>                                         {}
        <POP 1774c-17756 Naked>                              Σ0         ↓ →0x177b8 ←0x176ee
            <MI 1774c  MOVE.L  #0x01,(A6-0xe)>                                  {}
            <MI 1774e  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 17752  CMPA.W  #0x01,A0>                                        {}
            <MI 17754  BEQ     0x177b8>                                         {}
        <POP 17756-17766 Naked>                              Σ0         ↓
            <POP 17756-17758 StackAdj>                       Δ-4                {[-4-]}
            <MI 17758  MOVE.L  A0,-(A7)>                     Δ-4                {[-4-]|[4, 'A0']}
            <Call 0x1775a 0x10ef2>                                              {[-4-]|[4, 'A0']}
                _StringDup(a : String) : String
            <POP 17760-17762 StackAdj>                       Δ+4                {[-4-]}
            <MI 17762  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {}
        <POP 17766-1777c Naked>                              Σ0         ↓ →0x177a8 ←0x177a8
            <MI 17766  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Pointer.fp 0x1776a <LVAR -0x016 @ 4(r)>>        Δ-4                {[4, '(A6-0x6)']|[@@-22]}
            <Call 0x1776e 0x17476>                                              {[4, '(A6-0x6)']|[@@-22]}
            <POP 17772-17774 StackAdj>                       Δ+8                {}
            <MI 17774  MOVEA.L (A6-0x16),A0>                                    {}
            <MI 17778  CMPA.W  #0x01,A0>                                        {}
            <MI 1777a  BEQ     0x177a8>                                         {}
        <POP 1777c-17798 Naked>                              Σ0         ↓ →0x1779c
            <Pointer.fp 0x1777c <LVAR -0x012 @ 4(r)>>        Δ-4                {[@@-18]}
            <Const 0x1777e 0x8.4>                            Δ-4                {[@@-18]|[##8]}
            <Call 0x17782 0x10856>                                              {[@@-18]|[##8]}
                _Malloc1(length : Long) : Pointer
            <POP 17788-1778a StackAdj>                       Δ+8                {}
            <MI 1778a  MOVEA.L (A6-0x12),A1>                                    {}
            <MI 1778c  MOVE.L  A0,(A1)>                                         {}
            <MI 1778e  MOVE.L  #0x01,(A1+0x4)>                                  {}
            <MI 17792  MOVEA.L (A6-0xe),A1>                                     {}
            <MI 17794  CMPA.W  #0x01,A1>                                        {}
            <MI 17796  BNE     0x1779c>                                         {}
        <POP 17798-1779c Naked>                              Σ0         →0x177a4
            <MI 17798  MOVE.L  (A6-0x12),(A6-0xe)>                              {}
            <MI 1779a  BRA     0x177a4>                                         {}
        <POP 1779c-177a4 Naked>                              Σ0         ↓ ←0x1777c
            <MI 1779c  MOVEA.L (A6-0xa),A1>                                     {}
            <MI 177a0  MOVE.L  (A6-0x12),(A1+0x4)>                              {}
        <POP 177a4-177a8 Naked>                              Σ0         ↓ ←0x17798
            <MI 177a4  MOVE.L  (A6-0x12),(A6-0xa)>                              {}
        <POP 177a8-177ac Naked>                              Σ0         ↓ →0x17766 ←0x17766
            <MI 177a8  CMPA.W  #0x01,A0>                                        {}
            <MI 177aa  BNE     0x17766>                                         {}
        <POP 177ac-177b8 Naked>                              Σ0         ↓
            <Pointer.fp 0x177ac <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x177b0 0x10d76>                                              {[@@-6]}
                _FreeString(VAR a : String)
            <POP 177b6-177b8 StackAdj>                       Δ+4                {}
        <POP 177b8-177c8 Naked>                              Σ0         ↓ ←0x1774c
            <MI 177b8  MOVEQ.L #0x00,D7>                                        {}
            <MI 177ba  MOVEQ.L #0x00,D6>                                        {}
            <Pointer.fp 0x177bc <LVAR -0x02c @ 4(r)>>        Δ-4                {[@@-44]}
            <Call 0x177c0 0x10d42>                                              {[@@-44]}
                _NewString(VAR a : String)
            <POP 177c6-177c8 StackAdj>                       Δ+4                {}
        <POP 177c8-177e2 Naked>                              Σ0         ↓ →0x177e8 ←0x1788a
            <MI 177c8  MOVE.L  (A6-0x22),-(A7)>              Δ-4                {[4, '(A6-0x22)']}
            <Pointer.fp 0x177cc <LVAR -0x02c @ 4(r)>>        Δ-4                {[4, '(A6-0x22)']|[@@-44]}
            <Pointer.fp 0x177d0 <LVAR -0x01d @ 1(r)>>        Δ-4                {[4, '(A6-0x22)']|[@@-44]|[@@-29]}
            <Call 0x177d4 0x170b6>                                              {[4, '(A6-0x22)']|[@@-44]|[@@-29]}
                _FileReadLine(file : File; VAR a : String; VAR b : Byte)
            <POP 177da-177dc StackAdj>                       Δ+12               {}
            <MI 177dc  TST.B   (A6-0x1d)>                                       {}
            <MI 177e0  BEQ     0x177e8>                                         {}
        <POP 177e2-177e8 Naked>                              Σ0         →0x1788a ←0x1780e
            <MI 177e2  MOVEQ.L #0x01,D7>                                        {}
            <MI 177e4  BRA     0x1788a>                                         {}
        <POP 177e8-177f6 Naked>                              Σ0         ↓ →0x1780a ←0x177c8
            <MI 177e8  MOVEA.L (A6-0x2c),A0>                                    {}
            <MI 177ec  MOVE.B  (A0+0x2),D0>                                     {}
            <MI 177f0  CMPI.B  #0x09,D0>                                        {}
            <MI 177f4  BNE     0x1780a>                                         {}
        <POP 177f6-177fa Naked>                              Σ0         ↓ →0x17806
            <MI 177f6  TST.B   D6>                                              {}
            <MI 177f8  BEQ     0x17806>                                         {}
        <POP 177fa-17806 Naked>                              Σ0         ↓
            <MI 177fa  MOVE.L  (A6-0x2c),-(A7)>              Δ-4                {[4, '(A6-0x2c)']}
            <MI 177fe  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[4, '(A6-0x2c)']|[4, '(A6-0xe)']}
            <Call 0x17800 0x1755c>                                              {[4, '(A6-0x2c)']|[4, '(A6-0xe)']}
            <POP 17804-17806 StackAdj>                       Δ+8                {}
        <POP 17806-1780a Naked>                              Σ0         →0x1788a ←0x177f6
            <MI 17806  BRA     0x1788a>                                         {}
        <POP 1780a-1780e Naked>                              Σ0         ↓ →0x17810 ←0x177e8
            <MI 1780a  TST.B   D6>                                              {}
            <MI 1780c  BEQ     0x17810>                                         {}
        <POP 1780e-17810 Naked>                              Σ0         →0x177e2
            <MI 1780e  BRA     0x177e2>                                         {}
        <POP 17810-17848 Naked>                              Σ0         ↓ →0x17872 ←0x1780a
            <Pointer.fp 0x17810 <LVAR -0x028 @ 4(r)>>        Δ-4                {[@@-40]}
            <Call 0x17814 0x10d42>                                              {[@@-40]}
                _NewString(VAR a : String)
            <MI 1781a  MOVE.L  (A6-0x2c),(A7)>                                  {[4, '(A6-0x2c)']}
            <MI 1781e  MOVE.L  (A6-0x28),-(A7)>              Δ-4                {[4, '(A6-0x2c)']|[4, '(A6-0x28)']}
            <Pointer.fp 0x17822 <LVAR -0x01b @ 1(r)>>        Δ-4                {[4, '(A6-0x2c)']|[4, '(A6-0x28)']|[@@-27]}
            <Call 0x17826 0x114d6>                                              {[4, '(A6-0x2c)']|[4, '(A6-0x28)']|[@@-27]}
                _FirstField(MOD input : String; MOD output : String; VAR c : Bool
            <POP 1782c-1782e StackAdj>                       Δ+8                {[4, '(A6-0x2c)']}
            <MI 1782e  MOVE.L  (A6-0x28),(A7)>                                  {[4, '(A6-0x28)']}
            <Pointer.fp 0x17832 <LVAR -0x01b @ 1(r)>>        Δ-4                {[4, '(A6-0x28)']|[@@-27]}
            <Pointer.fp 0x17836 <LVAR -0x01a @ 4(r)>>        Δ-4                {[4, '(A6-0x28)']|[@@-27]|[@@-26]}
            <Call 0x1783a 0x11288>                                              {[4, '(A6-0x28)']|[@@-27]|[@@-26]}
                _String2Long(src : String; VAR status : Bool; VAR retval : Long)
            <POP 17840-17842 StackAdj>                       Δ+12               {}
            <MI 17842  TST.B   (A6-0x1b)>                                       {}
            <MI 17846  BNE     0x17872>                                         {}
        <POP 17848-17872 Naked>                              Σ0         ↓
            <Blob 0x17848 [30] @>                            Δ-30               {[«30""»]}
            <Const 0x17854 0xe.2>                            Δ-2                {[«30""»]|[#14]}
            <POP 17858-1785a StackAdj>                       Δ-4                {[«30""»]|[#14]|[-4-]}
            <Lit 0x1785a 30>                                                    {[«30""»]|[#14]|[$$Bad error message file format.]}
            <Call 0x17868 0x14e0a>                                              {[«30""»]|[#14]|[$$Bad error message file format.]}
                _PopProgram(status : Byte; msg : String)
            <POP 1786e-17872 StackAdj>                       Δ+36               {}
        <POP 17872-1787c Naked>                              Σ0         ↓ →0x1788a ←0x17810
            <MI 17872  MOVE.L  (A6-0x1a),D0>                                    {}
            <MI 17876  CMP.L   (A6+0x8),D0>                                     {}
            <MI 1787a  BNE     0x1788a>                                         {}
        <POP 1787c-1788a Naked>                              Σ0         ↓
            <MI 1787c  MOVEQ.L #0x01,D6>                                        {}
            <MI 1787e  MOVE.L  (A6-0x2c),-(A7)>              Δ-4                {[4, '(A6-0x2c)']}
            <MI 17882  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[4, '(A6-0x2c)']|[4, '(A6-0xe)']}
            <Call 0x17884 0x1755c>                                              {[4, '(A6-0x2c)']|[4, '(A6-0xe)']}
            <POP 17888-1788a StackAdj>                       Δ+8                {}
        <POP 1788a-17890 Naked>                              Σ0         ↓ →0x177c8 ←0x177e2 ←0x17806 ←0x17872
            <MI 1788a  TST.B   D7>                                              {}
            <MI 1788c  BEQ     0x177c8>                                         {}
        <POP 17890-17894 Naked>                              Σ0         ↓ →0x178f6
            <MI 17890  TST.B   D6>                                              {}
            <MI 17892  BNE     0x178f6>                                         {}
        <POP 17894-178f6 Naked>                              Σ0         ↓
            <Blob 0x17894 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x17898 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x1789c [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x178a0 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x178a4 [24] @>                            Δ-24               {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«24""»]}
            <POP 178b6-178b8 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«24""»]|[-8-]}
            <Lit 0x178b8 16>                                                    {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«24""»]|[-4-]|[$$Unknown error :_]}
            <MI 178c2  MOVE.L  (A6+0x8),(A7)>                                   {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«24""»]|[-4-]|[4, '(A6+0x8)']}
            <POP 178c0-178c2 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«24""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
            <Call 0x178c6 0x110b0>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«24""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
                _Long2String(a : Long) : String
            <Lit 0x178cc 23>                                                    {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«24""»]|[-4-]|[4, '(A6+0x8)']|[-4-]|[$$, error message file :_]}
            <MI 178d8  MOVE.L  (A6+0x10),(A7)>                                  {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«24""»]|[-4-]|[4, '(A6+0x8)']|[-4-]|[4, '(A6+0x10)']}
            <POP 178d6-178d8 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«24""»]|[-4-]|[4, '(A6+0x8)']|[-4-]|[4, '(A6+0x10)']|[-8-]}
            <Call 0x178dc 0x10ef2>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«24""»]|[-4-]|[4, '(A6+0x8)']|[-4-]|[4, '(A6+0x10)']|[-8-]}
                _StringDup(a : String) : String
            <POP 178e2-178e4 StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«24""»]|[-4-]|[4, '(A6+0x8)']|[-4-]|[4, '(A6+0x10)']|[-4-]}
            <Call 0x178e4 0x10ff0>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«24""»]|[-4-]|[4, '(A6+0x8)']|[-4-]|[4, '(A6+0x10)']|[-4-]}
                _StringCat4(a, b, c, d : String) : String
            <POP 178ea-178ec StackAdj>                       Δ+16               {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«24""»]|[-4-]}
            <Call 0x178ec 0x154a2>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«24""»]|[-4-]}
                _WriteConsoleStringCrLf(str : String)
            <POP 178f2-178f6 StackAdj>                       Δ+44               {}
        <POP 178f6-1791c Naked>                              Σ0         ↓ ←0x17890
            <MI 178f6  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x178f8 0x2.2>                            Δ-2                {[#0]|[#2]}
            <Const 0x178fc 0x1.4>                            Δ-4                {[#0]|[#2]|[##1]}
            <Pointer.fp 0x17900 <LVAR -0x024 @ 1(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-36]}
            <Pointer.fp 0x17904 <LVAR -0x022 @ 4(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-36]|[@@-34]}
            <Call 0x17908 0x13c7c>                                              {[#0]|[#2]|[##1]|[@@-36]|[@@-34]}
                _CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 1790e-17910 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x17910 <LVAR -0x02c @ 4(r)>>        Δ-4                {[@@-44]}
            <Call 0x17914 0x10d76>                                              {[@@-44]}
                _FreeString(VAR a : String)
            <POP 1791a-1791c StackAdj>                       Δ+4                {}
        <POP 1791c-17922 Naked>                              Σ0         ↓ →0x17946 ←0x17922
            <MI 1791c  MOVEA.L (A6-0xe),A0>                                     {}
            <MI 1791e  CMPA.W  #0x01,A0>                                        {}
            <MI 17920  BEQ     0x17946>                                         {}
        <POP 17922-17946 Naked>                              Σ0         →0x1791c
            <MI 17922  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x17924 0x10d76>                                              {[4, '^(A0)']}
                _FreeString(VAR a : String)
            <POP 1792a-1792c StackAdj>                       Δ+4                {}
            <MI 1792c  MOVE.L  A0,(A6-0xa)>                                     {}
            <MI 17930  MOVE.L  (A0+0x4),(A6-0xe)>                               {}
            <Pointer.fp 0x17934 <LVAR -0x00a @ 4(rw)>>       Δ-4                {[@@-10]}
            <Const 0x17938 0x8.4>                            Δ-4                {[@@-10]|[##8]}
            <Call 0x1793c 0x108fa>                                              {[@@-10]|[##8]}
                _Free2(a : Pointer; b : Long)
            <POP 17942-17944 StackAdj>                       Δ+8                {}
            <MI 17944  BRA     0x1791c>                                         {}
        <POP 17946-17952 Naked>                              Σ0         ↓ ←0x17710 ←0x1791c
            <Pointer.fp 0x17946 <LVAR  0x010 @ 4(r)>>        Δ-4                {[@@16]}
            <Call 0x1794a 0x10d76>                                              {[@@16]}
                _FreeString(VAR a : String)
            <POP 17950-17952 StackAdj>                       Δ+4                {}
        <POP 17952-1795a Epilogue>                           Σ0         

0x1795a


@ 1795a
_FS_10450(&, &)
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 1795a-17984 Body>                                              
        <POP 1795a-1796c Prologue>                           Σ0         ↓
        <POP 1796c-17980 Naked>                              Σ0         ↓
            <MI 1796c  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Const 0x17970 0x1.4>                            Δ-4                {[4, '(A6+0xc)']|[##1]}
            <MI 17974  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[##1]|[4, '(A6+0x8)']}
            <Call 0x17978 0x176c2>                                              {[4, '(A6+0xc)']|[##1]|[4, '(A6+0x8)']}
                _WriteErrorMessage(file : String; txt : String; number : Long) : Bool
            <POP 1797c-17980 StackAdj>                       Δ+12               {}
        <POP 17980-17984 Epilogue>                           Σ0         

0x179b4


@ 179b4
_Glob(input : String; pattern : String): Bool
        <LVAR  0x010 1(rw)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 1(w)>
        <LVAR -0x008 2(rw)>
        <LVAR -0x00a 2(rw)>
        <LVAR -0x010 4(w)>
        <LVAR -0x014 4(w)>
        <LVAR -0x018 2(rw)>
        <LVAR -0x01a 2(rw)>
        <LVAR -0x01c @ 2(rw)>
        <LVAR -0x09c @>
    <POP 179b4-17bd0 Body>                                              
        <POP 179b4-179ca Prologue>                           Σ0         ↓
        <POP 179ca-179d8 RegCacheLoad>                       Σ0         ↓
        <POP 179d8-17a0a Naked>                              Σ0         ↓
            <MI 179d8  MOVEQ.L #0x00,D6>                                        {}
            <MI 179da  MOVEQ.L #0x00,D7>                                        {}
            <MI 179dc  MOVE.W  0x179ae,(A6-0x1c)>                               {}
            <MI 179e0  MOVE.W  0x179b0,(A6-0x1a)>                               {}
            <MI 179e6  MOVE.W  0x179b2,(A6-0x18)>                               {}
            <MI 179ea  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 179ee  MOVE.W  (A0),D0>                                         {}
            <POP 0x179f0 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 179f6  MOVE.W  D0,(A6-0xa)>                                     {}
            <MI 179fa  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 179fe  MOVE.W  (A0),D0>                                         {}
            <POP 0x17a00 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 17a06  MOVE.W  D0,(A6-0x8)>                                     {}
        <POP 17a0a-17a10 Naked>                              Σ0         ↓ →0x17bba ←0x17bb6
            <MI 17a0a  TST.B   D7>                                              {}
            <MI 17a0c  BNE     0x17bba>                                         {}
        <POP 17a10-17a3e Naked>                              Σ0         ↓ →0x17a4c
            <MI 17a10  CLR.L   D0>                                              {}
            <MI 17a12  MOVE.W  (A6-0xa),D0>                                     {}
            <MI 17a16  ADDQ.L  #0x1,D0>                                         {}
            <MI 17a18  CLR.L   D1>                                              {}
            <MI 17a1a  MOVE.W  (A6-0x1c),D1>                                    {}
            <MI 17a1c  NEG.L   D1>                                              {}
            <MI 17a1e  ADD.L   D0,D1>                                           {}
            <MI 17a20  MOVE.L  D1,(A6-0x14)>                                    {}
            <MI 17a24  CLR.L   D2>                                              {}
            <MI 17a26  MOVE.W  (A6-0x8),D2>                                     {}
            <MI 17a2a  ADDQ.L  #0x1,D2>                                         {}
            <MI 17a2c  CLR.L   D3>                                              {}
            <MI 17a2e  MOVE.W  (A6-0x1a),D3>                                    {}
            <MI 17a32  NEG.L   D3>                                              {}
            <MI 17a34  ADD.L   D2,D3>                                           {}
            <MI 17a36  MOVE.L  D3,(A6-0x10)>                                    {}
            <MI 17a3a  TST.L   D3>                                              {}
            <MI 17a3c  BNE     0x17a4c>                                         {}
        <POP 17a3e-17a42 Naked>                              Σ0         ↓ →0x17a46
            <MI 17a3e  TST.L   D1>                                              {}
            <MI 17a40  BNE     0x17a46>                                         {}
        <POP 17a42-17a46 Naked>                              Σ0         →0x17a48
            <MI 17a42  MOVEQ.L #0x04,D7>                                        {}
            <MI 17a44  BRA     0x17a48>                                         {}
        <POP 17a46-17a48 Naked>                              Σ0         ↓ ←0x17a3e
            <MI 17a46  MOVEQ.L #0x01,D7>                                        {}
        <POP 17a48-17a4c Naked>                              Σ0         →0x17b0c ←0x17a42
            <MI 17a48  BRA     0x17b0c>                                         {}
        <POP 17a4c-17a72 Naked>                              Σ0         ↓ →0x17a88 ←0x17a10
            <MI 17a4c  MOVE.W  #0x1,(A6-0x18)>                                  {}
            <MI 17a50  MOVEQ.L #0x01,D7>                                        {}
            <MI 17a52  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 17a56  CLR.L   D2>                                              {}
            <MI 17a58  MOVE.W  (A6-0x1a),D2>                                    {}
            <MI 17a5c  SUBQ.L  #0x1,D2>                                         {}
            <POP 0x17a5e LimitCheck 0x0 ≤ D2 ≤ 0x7d>                            {}
            <MI 17a68  MOVE.B  (A0+D2.L+#0x2),D3>                               {}
            <MI 17a6c  CMPI.B  #0x2a,D3>                                        {}
            <MI 17a70  BNE     0x17a88>                                         {}
        <POP 17a72-17a82 Naked>                              Σ0         ↓
            <MI 17a72  CLR.L   D1>                                              {}
            <MI 17a74  MOVE.W  (A6-0x1c),D1>                                    {}
            <MI 17a76  NEG.L   D1>                                              {}
            <MI 17a78  ADD.L   D0,D1>                                           {}
            <POP 0x17a7a LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {}
            <MI 17a80  MOVE.W  D1,(A6-0x18)>                                    {}
        <POP 17a82-17a88 Naked>                              Σ0         →0x17b0c ←0x17adc
            <MI 17a82  MOVEQ.L #0x02,D7>                                        {}
            <MI 17a84  BRA     0x17b0c>                                         {}
        <POP 17a88-17a8e Naked>                              Σ0         ↓ →0x17ade ←0x17a4c
            <MI 17a88  CMPI.B  #0x2d,D3>                                        {}
            <MI 17a8c  BNE     0x17ade>                                         {}
        <POP 17a8e-17a96 Naked>                              Σ0         ↓
            <MI 17a8e  CLR.W   (A6-0x18)>                                       {}
            <MI 17a90  CLR.L   D0>                                              {}
            <MI 17a92  MOVE.W  (A6-0x1c),D0>                                    {}
            <MI 17a94  MOVE.L  D0,D5>                                           {}
        <POP 17a96-17ab4 Naked>                              Σ0         ↓ →0x17ab6 ←0x17ad8
            <MI 17a96  MOVEQ.L #0x00,D0>                                        {}
            <MI 17a98  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 17a9c  MOVE.L  D5,D1>                                           {}
            <MI 17a9e  SUBQ.L  #0x1,D1>                                         {}
            <POP 0x17aa0 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {}
            <MI 17aaa  MOVE.B  (A0+D1.L+#0x2),D1>                               {}
            <MI 17aae  CMPI.B  #0x2e,D1>                                        {}
            <MI 17ab2  BNE     0x17ab6>                                         {}
        <POP 17ab4-17ab6 Naked>                              Σ0         ↓
            <MI 17ab4  ADDQ.B  #0x1,D0>                                         {}
        <POP 17ab6-17abe Naked>                              Σ0         ↓ →0x17acc ←0x17a96
            <MI 17ab6  MOVE.B  D0,(A6-0x2)>                                     {}
            <MI 17aba  TST.B   D0>                                              {}
            <MI 17abc  BNE     0x17acc>                                         {}
        <POP 17abe-17acc Naked>                              Σ0         ↓
            <MI 17abe  CLR.L   D1>                                              {}
            <MI 17ac0  MOVE.W  (A6-0x18),D1>                                    {}
            <MI 17ac2  ADDQ.L  #0x1,D1>                                         {}
            <POP 0x17ac4 LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {}
            <MI 17aca  MOVE.W  D1,(A6-0x18)>                                    {}
        <POP 17acc-17ad8 Naked>                              Σ0         ↓ →0x17adc ←0x17ab6
            <MI 17acc  ADDQ.L  #0x1,D5>                                         {}
            <MI 17ace  CLR.L   D1>                                              {}
            <MI 17ad0  MOVE.W  (A6-0xa),D1>                                     {}
            <MI 17ad4  CMP.L   D1,D5>                                           {}
            <MI 17ad6  BHI     0x17adc>                                         {}
        <POP 17ad8-17adc Naked>                              Σ0         ↓ →0x17a96
            <MI 17ad8  TST.B   D0>                                              {}
            <MI 17ada  BEQ     0x17a96>                                         {}
        <POP 17adc-17ade Naked>                              Σ0         →0x17a82 ←0x17acc
            <MI 17adc  BRA     0x17a82>                                         {}
        <POP 17ade-17ae4 Naked>                              Σ0         ↓ →0x17aec ←0x17a88
            <MI 17ade  CMPI.B  #0x26,D3>                                        {}
            <MI 17ae2  BNE     0x17aec>                                         {}
        <POP 17ae4-17ae8 Naked>                              Σ0         ↓ →0x17aea
            <MI 17ae4  TST.L   D1>                                              {}
            <MI 17ae6  BLE     0x17aea>                                         {}
        <POP 17ae8-17aea Naked>                              Σ0         ↓
            <MI 17ae8  MOVEQ.L #0x00,D7>                                        {}
        <POP 17aea-17aec Naked>                              Σ0         →0x17b0c ←0x17ae4
            <MI 17aea  BRA     0x17b0c>                                         {}
        <POP 17aec-17af0 Naked>                              Σ0         ↓ →0x17b0c ←0x17ade
            <MI 17aec  TST.L   D1>                                              {}
            <MI 17aee  BLE     0x17b0c>                                         {}
        <POP 17af0-17b0a Naked>                              Σ0         ↓ →0x17b0c
            <MI 17af0  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 17af4  CLR.L   D0>                                              {}
            <MI 17af6  MOVE.W  (A6-0x1c),D0>                                    {}
            <MI 17af8  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x17afa LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {}
            <MI 17b04  CMP.B   (A0+D0.L+#0x2),D3>                               {}
            <MI 17b08  BNE     0x17b0c>                                         {}
        <POP 17b0a-17b0c Naked>                              Σ0         ↓
            <MI 17b0a  MOVEQ.L #0x00,D7>                                        {}
        <POP 17b0c-17b12 Naked>                              Σ0         ↓ →0x17b3c ←0x17a48 ←0x17a82 ←0x17aea ←0x17aec ←0x17af0
            <MI 17b0c  CMPI.B  #0x02,D7>                                        {}
            <MI 17b10  BNE     0x17b3c>                                         {}
        <POP 17b12-17b3c Naked>                              Σ0         ↓
            <MI 17b12  CLR.L   D0>                                              {}
            <MI 17b14  MOVE.W  D6,D0>                                           {}
            <MI 17b16  ADDQ.L  #0x1,D0>                                         {}
            <POP 0x17b18 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 17b1e  MOVE.W  D0,D6>                                           {}
            <POP 0x17b20 LimitCheck 0x0 ≤ D6 ≤ 0x14>                            {}
            <MI 17b24  MOVEQ.L #0x06,D0>                                        {}
            <MI 17b26  MULU.W  D6,D0>                                           {}
            <MI 17b28  LEA.L   (A6-0x9c),A0>                                    {}
            <MI 17b2c  LEA.L   (A0+D0.L),A0>                                    {}
            <MI 17b30  LEA.L   (A6-0x1c),A1>                                    {}
            <BlockMove 6,A1,A0>                                                 {}
            <MI 17b3a  MOVEQ.L #0x00,D7>                                        {}
        <POP 17b3c-17b42 Naked>                              Σ0         ↓ →0x17b8e ←0x17b0c ←0x17b8c
            <MI 17b3c  CMPI.B  #0x01,D7>                                        {}
            <MI 17b40  BNE     0x17b8e>                                         {}
        <POP 17b42-17b60 Naked>                              Σ0         ↓ →0x17b64
            <POP 0x17b42 LimitCheck 0x0 ≤ D6 ≤ 0x14>                            {}
            <MI 17b46  MOVEQ.L #0x06,D0>                                        {}
            <MI 17b48  MULU.W  D6,D0>                                           {}
            <MI 17b4a  LEA.L   (A6-0x9c),A0>                                    {}
            <MI 17b4e  LEA.L   (A6-0x1c),A1>                                    {}
            <MI 17b50  LEA.L   (A0+D0.L),A2>                                    {}
            <BlockMove 6,A2,A1>                                                 {}
            <MI 17b5c  TST.W   D6>                                              {}
            <MI 17b5e  BNE     0x17b64>                                         {}
        <POP 17b60-17b64 Naked>                              Σ0         →0x17b8c
            <MI 17b60  MOVEQ.L #0x03,D7>                                        {}
            <MI 17b62  BRA     0x17b8c>                                         {}
        <POP 17b64-17b68 Naked>                              Σ0         ↓ →0x17b78 ←0x17b42
            <MI 17b64  TST.W   (A6-0x18)>                                       {}
            <MI 17b66  BNE     0x17b78>                                         {}
        <POP 17b68-17b78 Naked>                              Σ0         →0x17b8a
            <MI 17b68  CLR.L   D0>                                              {}
            <MI 17b6a  MOVE.W  D6,D0>                                           {}
            <MI 17b6c  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x17b6e LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 17b74  MOVE.W  D0,D6>                                           {}
            <MI 17b76  BRA     0x17b8a>                                         {}
        <POP 17b78-17b8a Naked>                              Σ0         ↓ ←0x17b64
            <MI 17b78  CLR.L   D1>                                              {}
            <MI 17b7a  MOVE.W  (A6-0x18),D1>                                    {}
            <MI 17b7c  SUBQ.L  #0x1,D1>                                         {}
            <POP 0x17b7e LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {}
            <MI 17b84  MOVE.W  D1,(A6-0x18)>                                    {}
            <MI 17b86  MOVE.W  D1,(A0+D0.L+#0x4)>                               {}
        <POP 17b8a-17b8c Naked>                              Σ0         ↓ ←0x17b68
            <MI 17b8a  MOVEQ.L #0x00,D7>                                        {}
        <POP 17b8c-17b8e Naked>                              Σ0         →0x17b3c ←0x17b60
            <MI 17b8c  BRA     0x17b3c>                                         {}
        <POP 17b8e-17b92 Naked>                              Σ0         ↓ →0x17bb6 ←0x17b3c
            <MI 17b8e  TST.B   D7>                                              {}
            <MI 17b90  BNE     0x17bb6>                                         {}
        <POP 17b92-17bb6 Naked>                              Σ0         ↓
            <MI 17b92  CLR.L   D0>                                              {}
            <MI 17b94  MOVE.W  (A6-0x1c),D0>                                    {}
            <MI 17b96  CLR.L   D1>                                              {}
            <MI 17b98  MOVE.W  (A6-0x18),D1>                                    {}
            <MI 17b9a  ADD.L   D0,D1>                                           {}
            <POP 0x17b9c LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {}
            <MI 17ba2  MOVE.W  D1,(A6-0x1c)>                                    {}
            <MI 17ba4  CLR.L   D0>                                              {}
            <MI 17ba6  MOVE.W  (A6-0x1a),D0>                                    {}
            <MI 17baa  ADDQ.L  #0x1,D0>                                         {}
            <POP 0x17bac LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 17bb2  MOVE.W  D0,(A6-0x1a)>                                    {}
        <POP 17bb6-17bba Naked>                              Σ0         →0x17a0a ←0x17b8e
            <MI 17bb6  BRA     0x17a0a>                                         {}
        <POP 17bba-17bc4 Naked>                              Σ0         ↓ →0x17bc8 ←0x17a0a
            <MI 17bba  CLR.B   (A6+0x10)>                                       {}
            <MI 17bbe  CMPI.B  #0x04,D7>                                        {}
            <MI 17bc2  BNE     0x17bc8>                                         {}
        <POP 17bc4-17bc8 Naked>                              Σ0         ↓
            <MI 17bc4  ADDQ.B  #0x1,(A6+0x10)>                                  {}
        <POP 17bc8-17bd0 Epilogue>                           Σ0         ←0x17bba

0x17bd0


@ 17bd0
        <LVAR  0x00c 1(rw)>
        <LVAR  0x008 4(r)>
    <POP 17bd0-17c3c Body>                                   Δ-8        
        <POP 17bd0-17be6 Prologue>                           Σ0         ↓
        <POP 17be6-17bfa Naked>                              Σ0 Δ-8     ↓
            <MI 17be6  MOVE.B  #0x01,(A6+0xc)>                                  {}
            <MI 17bec  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 17bf0  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 17bf2  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 17bf4  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 17bf6  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 17bf8  MOVEQ.L #0x01,D7>                                        {[4, 'A0']|[4, 'D0']}
        <POP 17bfa-17bfe Naked>                              Σ-8        ↓ →0x17c2e ←0x17c2a
            <MI 17bfa  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 17bfc  BGT     0x17c2e>                                         {[-8-]}
        <POP 17bfe-17c1a Naked>                              Σ-8        ↓ →0x17c26
            <MI 17bfe  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 17c00  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x17c02 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 17c0c  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 17c10  MOVE.B  (A0+D0.L+#0x2),D1>                               {[-8-]}
            <MI 17c14  CMPI.B  #0x2a,D1>                                        {[-8-]}
            <MI 17c18  BEQ     0x17c26>                                         {[-8-]}
        <POP 17c1a-17c20 Naked>                              Σ-8        ↓ →0x17c26
            <MI 17c1a  CMPI.B  #0x26,D1>                                        {[-8-]}
            <MI 17c1e  BEQ     0x17c26>                                         {[-8-]}
        <POP 17c20-17c26 Naked>                              Σ-8        ↓ →0x17c2a
            <MI 17c20  CMPI.B  #0x2d,D1>                                        {[-8-]}
            <MI 17c24  BNE     0x17c2a>                                         {[-8-]}
        <POP 17c26-17c2a Naked>                              Σ-8 Δ+8    →0x17c34 ←0x17bfe ←0x17c1a
            <POP 17c26-17c28 StackAdj>                       Δ+8                {}
            <MI 17c28  BRA     0x17c34>                                         {}
        <POP 17c2a-17c2e Naked>                              Σ-8        ↓ →0x17bfa ←0x17c20
            <MI 17c2a  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 17c2c  BVC     0x17bfa>                                         {[-8-]}
        <POP 17c2e-17c34 Naked>                              Σ-8 Δ+8    ↓ ←0x17bfa
            <POP 17c2e-17c30 StackAdj>                       Δ+8                {}
            <MI 17c30  CLR.B   (A6+0xc)>                                        {}
        <POP 17c34-17c3c Epilogue>                           Σ0         ←0x17c26

0x17c3c


@ 17c3c
        <LVAR -0x004 @ 1(r)>
    <POP 17c3c-17d0c Body>                                              
        <POP 17c3c-17c52 Prologue>                           Σ0         ↓
        <POP 17c52-17c54 RegCacheLoad>                       Σ0         ↓
        <POP 17c54-17ccc Naked>                              Σ0         ↓ →0x17cfe
            <MI 17c54  MOVE.L  0x200fc,D4>                                      {}
            <MI 17c5a  MOVE.L  #0x100,D3>                                       {}
            <Call 0x17c60 0x1080a>                                              {}
                _?divs_d3_d4
            <POP 0x17c66 LimitCheck 0x0 ≤ D4 ≤ 0x7>                             {}
            <MI 17c70  ASL.L   #0x1,D4>                                         {}
            <MI 17c72  LEA.L   0x0,A0>                                          {}
            <MI 17c76  ADDA.L  #0x1000e,A0>                                     {}
            <MI 17c7c  CLR.L   D0>                                              {}
            <MI 17c7e  MOVE.W  (A0+D4.L+#0x4),D0>                               {}
            <MI 17c82  ADD.L   D0,D3>                                           {}
            <POP 0x17c84 LimitCheck 0x0 ≤ D3 ≤ 0xffff>                          {}
            <MI 17c8e  MOVE.W  D3,D7>                                           {}
            <Const 0x17c90 0x2.2>                            Δ-2                {[#2]}
            <MI 17c94  MOVE.W  D7,-(A7)>                     Δ-2                {[#2]|[2, 'D7']}
            <Const 0x17c96 0x1.4>                            Δ-4                {[#2]|[2, 'D7']|[##1]}
            <MI 17c9a  MOVEA.L 0x200f6,A0>                                      {[#2]|[2, 'D7']|[##1]}
            <MI 17ca0  MOVE.W  0x20104,D0>                                      {[#2]|[2, 'D7']|[##1]}
            <POP 0x17ca6 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {[#2]|[2, 'D7']|[##1]}
            <MI 17caa  CLR.L   D1>                                              {[#2]|[2, 'D7']|[##1]}
            <MI 17cac  MOVE.W  D0,D1>                                           {[#2]|[2, 'D7']|[##1]}
            <MI 17cae  ASL.L   #0x8,D1>                                         {[#2]|[2, 'D7']|[##1]}
            <MI 17cb0  ASL.L   #0x2,D1>                                         {[#2]|[2, 'D7']|[##1]}
            <MI 17cb2  LEA.L   (A0+D1.L),A0>                                    {[#2]|[2, 'D7']|[##1]}
            <MI 17cb6  MOVE.L  A0,-(A7)>                     Δ-4                {[#2]|[2, 'D7']|[##1]|[4, 'A0']}
            <Pointer.fp 0x17cb8 <LVAR -0x004 @ 1(r)>>        Δ-4                {[#2]|[2, 'D7']|[##1]|[4, 'A0']|[@@-4]}
            <Call 0x17cbc 0x127b6>                                              {[#2]|[2, 'D7']|[##1]|[4, 'A0']|[@@-4]}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 17cc2-17cc6 StackAdj>                       Δ+16               {}
            <MI 17cc6  TST.B   (A6-0x4)>                                        {}
            <MI 17cca  BNE     0x17cfe>                                         {}
        <POP 17ccc-17cfe Naked>                              Σ0         ↓
            <Blob 0x17ccc [22] @>                            Δ-22               {[«22""»]}
            <Const 0x17cde 0x1.2>                            Δ-2                {[«22""»]|[#1]}
            <POP 17ce0-17ce2 StackAdj>                       Δ-4                {[«22""»]|[#1]|[-4-]}
            <Lit 0x17ce2 21>                                                    {[«22""»]|[#1]|[$$Directory read error!]}
            <Call 0x17cf4 0x14e0a>                                              {[«22""»]|[#1]|[$$Directory read error!]}
                _PopProgram(status : Byte; msg : String)
            <POP 17cfa-17cfe StackAdj>                       Δ+28               {}
        <POP 17cfe-17d04 Naked>                              Σ0         ↓ ←0x17c54
            <MI 17cfe  SUBQ.L  #0x1,0x20100>                                    {}
        <POP 17d04-17d0c Epilogue>                           Σ0         

0x17d0c


@ 17d0c
        <LVAR -0x004 @ 1(r)>
    <POP 17d0c-17e88 Body>                                              
        <POP 17d0c-17d22 Prologue>                           Σ0         ↓
        <POP 17d22-17d2a RegCacheLoad>                       Σ0         ↓
        <POP 17d2a-17d3c Naked>                              Σ0         ↓ →0x17e34 ←0x17e72
            <MI 17d2a  ADDQ.L  #0x1,0x20100>                                    {}
            <MI 17d30  MOVE.L  0x20100,D0>                                      {}
            <MI 17d36  CMP.L   #0x0f,D0>                                        {}
            <MI 17d38  BLE     0x17e34>                                         {}
        <POP 17d3c-17d6c Naked>                              Σ0         ↓ →0x17d70
            <MI 17d3c  ADDQ.L  #0x1,0x200fc>                                    {}
            <MI 17d42  CLR.L   D0>                                              {}
            <MI 17d44  MOVE.W  0x20104,D0>                                      {}
            <MI 17d4a  ADDQ.L  #0x1,D0>                                         {}
            <POP 0x17d4c LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 17d56  MOVE.W  D0,0x20104>                                      {}
            <MI 17d5c  CLR.L   0x20100>                                         {}
            <MI 17d62  MOVE.L  0x200fc,D0>                                      {}
            <MI 17d68  CMP.L   #0x800,D0>                                       {}
            <MI 17d6a  BLT     0x17d70>                                         {}
        <POP 17d6c-17d70 Naked>                              Σ0         →0x17e76
            <MI 17d6c  BRA     0x17e76>                                         {}
        <POP 17d70-17d80 Naked>                              Σ0         ↓ →0x17e34 ←0x17d3c
            <MI 17d70  MOVE.W  0x20104,D0>                                      {}
            <MI 17d76  CMP.W   0x20106,D0>                                      {}
            <MI 17d7c  BCS     0x17e34>                                         {}
        <POP 17d80-17d94 Naked>                              Σ0         ↓ →0x17d9e
            <MI 17d80  CLR.L   D0>                                              {}
            <MI 17d82  MOVE.W  0x20106,D0>                                      {}
            <MI 17d88  MOVE.L  0x200fc,D1>                                      {}
            <MI 17d8e  ADD.L   D0,D1>                                           {}
            <MI 17d90  CMP.L   #0x800,D1>                                       {}
            <MI 17d92  BLE     0x17d9e>                                         {}
        <POP 17d94-17d9e Naked>                              Σ0         →0x17da0
            <MI 17d94  MOVE.L  #0x800,D7>                                       {}
            <MI 17d96  SUB.L   0x200fc,D7>                                      {}
            <MI 17d9c  BRA     0x17da0>                                         {}
        <POP 17d9e-17da0 Naked>                              Σ0         ↓ ←0x17d80
            <MI 17d9e  MOVE.L  D0,D7>                                           {}
        <POP 17da0-17dfe Naked>                              Σ0         ↓ →0x17e2e ←0x17d94
            <MI 17da0  MOVE.L  0x200fc,D4>                                      {}
            <MI 17da6  MOVE.L  #0x100,D3>                                       {}
            <Call 0x17dac 0x1080a>                                              {}
                _?divs_d3_d4
            <POP 0x17db2 LimitCheck 0x0 ≤ D4 ≤ 0x7>                             {}
            <MI 17dbc  ASL.L   #0x1,D4>                                         {}
            <MI 17dbe  LEA.L   0x0,A0>                                          {}
            <MI 17dc2  ADDA.L  #0x1000e,A0>                                     {}
            <MI 17dc8  CLR.L   D0>                                              {}
            <MI 17dca  MOVE.W  (A0+D4.L+#0x4),D0>                               {}
            <MI 17dce  ADD.L   D0,D3>                                           {}
            <POP 0x17dd0 LimitCheck 0x0 ≤ D3 ≤ 0xffff>                          {}
            <MI 17dda  MOVE.W  D3,D6>                                           {}
            <Const 0x17ddc 0x2.2>                            Δ-2                {[#2]}
            <MI 17de0  MOVE.W  D6,-(A7)>                     Δ-2                {[#2]|[2, 'D6']}
            <MI 17de2  MOVE.L  D7,-(A7)>                     Δ-4                {[#2]|[2, 'D6']|[4, 'D7']}
            <Blob 0x17de4 [4] 0x200f6>                       Δ-4                {[#2]|[2, 'D6']|[4, 'D7']|[«4»]}
            <Pointer.fp 0x17dea <LVAR -0x004 @ 1(r)>>        Δ-4                {[#2]|[2, 'D6']|[4, 'D7']|[«4»]|[@@-4]}
            <Call 0x17dee 0x127b6>                                              {[#2]|[2, 'D6']|[4, 'D7']|[«4»]|[@@-4]}
                _RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
            <POP 17df4-17df8 StackAdj>                       Δ+16               {}
            <MI 17df8  TST.B   (A6-0x4)>                                        {}
            <MI 17dfc  BNE     0x17e2e>                                         {}
        <POP 17dfe-17e2e Naked>                              Σ0         ↓
            <Blob 0x17dfe [20] @>                            Δ-20               {[«20""»]}
            <Const 0x17e0a 0x1.2>                            Δ-2                {[«20""»]|[#1]}
            <POP 17e0e-17e10 StackAdj>                       Δ-4                {[«20""»]|[#1]|[-4-]}
            <Lit 0x17e10 20>                                                    {[«20""»]|[#1]|[$$Directory read error]}
            <Call 0x17e24 0x14e0a>                                              {[«20""»]|[#1]|[$$Directory read error]}
                _PopProgram(status : Byte; msg : String)
            <POP 17e2a-17e2e StackAdj>                       Δ+26               {}
        <POP 17e2e-17e34 Naked>                              Σ0         ↓ ←0x17da0
            <MI 17e2e  CLR.W   0x20104>                                         {}
        <POP 17e34-17e68 Naked>                              Σ0         ↓ →0x17e70 ←0x17d2a ←0x17d70
            <MI 17e34  MOVEA.L 0x200f6,A0>                                      {}
            <MI 17e3a  MOVE.W  0x20104,D0>                                      {}
            <POP 0x17e40 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 17e44  CLR.L   D1>                                              {}
            <MI 17e46  MOVE.W  D0,D1>                                           {}
            <MI 17e48  ASL.L   #0x8,D1>                                         {}
            <MI 17e4a  ASL.L   #0x2,D1>                                         {}
            <MI 17e4c  MOVE.L  0x20100,D0>                                      {}
            <POP 0x17e52 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {}
            <MI 17e58  ASL.L   #0x6,D0>                                         {}
            <MI 17e5a  LEA.L   (A0+D1.L),A0>                                    {}
            <MI 17e5e  MOVE.B  (A0+D0.L+#0x3f),D1>                              {}
            <MI 17e62  LSL.B   #0x4,D1>                                         {}
            <MI 17e64  LSR.B   #0x7,D1>                                         {}
            <MI 17e66  BEQ     0x17e70>                                         {}
        <POP 17e68-17e70 Naked>                              Σ0         →0x17e72
            <MI 17e68  MOVE.L  #0x0f,0x20100>                                   {}
            <MI 17e6e  BRA     0x17e72>                                         {}
        <POP 17e70-17e72 Naked>                              Σ0         →0x17e80 ←0x17e34
            <MI 17e70  BRA     0x17e80>                                         {}
        <POP 17e72-17e76 Naked>                              Σ0         →0x17d2a ←0x17e68
            <MI 17e72  BRA     0x17d2a>                                         {}
        <POP 17e76-17e80 Naked>                              Σ0         ↓ ←0x17d6c
            <MI 17e76  MOVE.L  #0xffffffff,0x20100>                             {}
        <POP 17e80-17e88 Epilogue>                           Σ0         ←0x17e70

0x17e88


@ 17e88
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(rw)>
    <POP 17e88-18010 Body>                                   Δ-8        
        <POP 17e88-17e9e Prologue>                           Σ0         ↓
        <POP 17e9e-17ea2 RegCacheLoad>                       Σ0         ↓
        <POP 17ea2-17eb4 Naked>                              Σ0         ↓ →0x17eb8 ←0x17ff6
            <Call 0x17ea2 0x17d0c>                                              {}
            <MI 17ea6  MOVE.L  0x20100,D0>                                      {}
            <MI 17eac  CMPI.L  #0xffffffff,D0>                                  {}
            <MI 17eb2  BNE     0x17eb8>                                         {}
        <POP 17eb4-17eb8 Naked>                              Σ0         →0x17ffc
            <MI 17eb4  BRA     0x17ffc>                                         {}
        <POP 17eb8-17ef2 Naked>                              Σ0 Δ-8     ↓ →0x17ef6 ←0x17ea2
            <MI 17eb8  MOVEA.L 0x200f6,A0>                                      {}
            <MI 17ebe  MOVE.W  0x20104,D0>                                      {}
            <POP 0x17ec4 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 17ec8  CLR.L   D1>                                              {}
            <MI 17eca  MOVE.W  D0,D1>                                           {}
            <MI 17ecc  ASL.L   #0x8,D1>                                         {}
            <MI 17ece  ASL.L   #0x2,D1>                                         {}
            <MI 17ed0  MOVE.L  0x20100,D0>                                      {}
            <POP 0x17ed6 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {}
            <MI 17ee0  ASL.L   #0x6,D0>                                         {}
            <MI 17ee2  LEA.L   (A0+D1.L),A0>                                    {}
            <MI 17ee6  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 17ee8  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'D0']|[4, 'A0']}
            <MI 17eea  TST.B   0x200fb>                                         {[4, 'D0']|[4, 'A0']}
            <MI 17ef0  BEQ     0x17ef6>                                         {[4, 'D0']|[4, 'A0']}
        <POP 17ef2-17ef6 Naked>                              Σ-8        →0x17f44
            <MI 17ef2  MOVEQ.L #0x01,D7>                                        {[-8-]}
            <MI 17ef4  BRA     0x17f44>                                         {[-8-]}
        <POP 17ef6-17f44 Naked>                              Σ-8        ↓ ←0x17eb8
            <Blob 0x17ef6 [30] (A0+D0.L)>                    Δ-30               {[-8-]|[«30»]}
            <POP 17f06-17f08 StackAdj>                       Δ-4                {[-8-]|[«30»]|[-4-]}
            <Lit 0x17f08>                                                       {[-8-]|[«30»]|[$$…]}
                <Pointer.sp 0x17f08 4>                       Δ-4        
                <Const 0x17f0c 0x1.2>                        Δ-2        
                <Const 0x17f0e 0x1e.2>                       Δ-2        
                <Call 0x17f10 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 17f16-17f18 StackAdj>                   Δ+8        
            <MI 17f18  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[-8-]|[«30»]}
            <POP 17f1c-17f20 StackAdj>                       Δ+24               {[-8-]|[-6-]}
            <MI 17f20  MOVE.L  (A6-0x6),(A7)>                                   {[-8-]|[-2-]|[4, '(A6-0x6)']}
            <Blob 0x17f24 [4] 0x200f2>                       Δ-4                {[-8-]|[-2-]|[4, '(A6-0x6)']|[«4»]}
            <Call 0x17f2a 0x179b4>                                              {[-8-]|[-2-]|[4, '(A6-0x6)']|[«4»]}
                _Glob(input : String; pattern : String): Bool
            <POP 17f2e-17f30 StackAdj>                       Δ+8                {[-8-]|[-2-]}
            <MI 17f30  MOVE.B  (A7)+,D0>                     Δ+2                {[-8-]}
            <MI 17f32  EXTB.W  D0>                                              {[-8-]}
            <POP 0x17f34 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[-8-]}
            <MI 17f36  MOVE.B  D0,D7>                                           {[-8-]}
            <Pointer.fp 0x17f38 <LVAR -0x006 @ 4(rw)>>       Δ-4                {[-8-]|[@@-6]}
            <Call 0x17f3c 0x10d76>                                              {[-8-]|[@@-6]}
                _FreeString(VAR a : String)
            <POP 17f42-17f44 StackAdj>                       Δ+4                {[-8-]}
        <POP 17f44-17f4a Naked>                              Σ-8        ↓ →0x17ff6 ←0x17ef2
            <MI 17f44  TST.B   D7>                                              {[-8-]}
            <MI 17f46  BEQ     0x17ff6>                                         {[-8-]}
        <POP 17f4a-17ff6 Naked>                              Σ-8 Δ+8    →0x18008
            <MI 17f4a  MOVEA.L (A6+0x8),A0>                                     {[-8-]}
            <MI 17f4e  MOVEA.L (A0),A1>                                         {[-8-]}
            <MI 17f50  MOVEA.L (A7),A2>                                         {[-8-]}
            <MI 17f52  MOVE.L  (A7+0x4),D0>                                     {[-8-]}
            <MI 17f56  MOVEA.L A1,A3>                                           {[-8-]}
            <MI 17f58  LEA.L   (A2+D0.L),A4>                                    {[-8-]}
            <BlockMove 30,A4,A3>                                                {[-8-]}
            <MI 17f64  MOVE.W  (A2+D0.L+#0x1e),(A1+0x1e)>                       {[-8-]}
            <MI 17f6a  LEA.L   (A1+0x20),A3>                                    {[-8-]}
            <MI 17f6e  LEA.L   (A2+D0.L+#0x20),A2>                              {[-8-]}
            <BlockMove 32,A2,A3>                                                {[-8-]}
            <MI 17f7a  CLR.B   (A1+0x4c)>                                       {[-8-]}
            <MI 17f7e  MOVE.L  0x20100,D0>                                      {[-8-]}
            <POP 0x17f84 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff>                      {[-8-]}
            <MI 17f9a  MOVE.W  D0,(A1+0x42)>                                    {[-8-]}
            <MI 17f9e  MOVE.L  0x200fc,D4>                                      {[-8-]}
            <MI 17fa4  MOVE.L  #0x100,D3>                                       {[-8-]}
            <Call 0x17faa 0x1080a>                                              {[-8-]}
                _?divs_d3_d4
            <POP 0x17fb0 LimitCheck 0x0 ≤ D4 ≤ 0x7>                             {[-8-]}
            <MI 17fba  ASL.L   #0x1,D4>                                         {[-8-]}
            <MI 17fbc  LEA.L   0x0,A2>                                          {[-8-]}
            <MI 17fc0  LEA.L   (A2+D4.L),A3>                                    {[-8-]}
            <MI 17fc4  ADDA.L  #0x10012,A3>                                     {[-8-]}
            <MI 17fca  CLR.L   D0>                                              {[-8-]}
            <MI 17fcc  MOVE.W  (A3),D0>                                         {[-8-]}
            <MI 17fce  ADD.L   D0,D3>                                           {[-8-]}
            <POP 0x17fd0 LimitCheck 0x0 ≤ D3 ≤ 0xffff>                          {[-8-]}
            <MI 17fda  MOVE.W  D3,(A1+0x40)>                                    {[-8-]}
            <MI 17fde  CLR.W   (A1+0x48)>                                       {[-8-]}
            <MI 17fe2  CLR.W   (A1+0x4a)>                                       {[-8-]}
            <MI 17fe6  ADDA.L  #0x20020,A2>                                     {[-8-]}
            <MI 17fec  MOVE.L  (A2),(A1+0x44)>                                  {[-8-]}
            <MI 17ff0  MOVE.L  (A0),(A2)>                                       {[-8-]}
            <POP 17ff2-17ff4 StackAdj>                       Δ+8                {}
            <MI 17ff4  BRA     0x18008>                                         {}
        <POP 17ff6-17ffc Naked>                              Σ-8 Δ+8    →0x17ea2 ←0x17f44
            <POP 17ff6-17ff8 StackAdj>                       Δ+8                {}
            <MI 17ff8  BRA     0x17ea2>                                         {}
        <POP 17ffc-18008 Naked>                              Σ0         ↓ ←0x17eb4
            <MI 17ffc  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 18000  MOVEA.L (A0),A0>                                         {}
            <MI 18002  ORI.B   #0x08,(A0+0x3f)>                                 {}
        <POP 18008-18010 Epilogue>                           Σ0         ←0x17f4a

0x18010


@ 18010
_DirFirst(MOD c : Bool; a : String; VAR b : File)
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @>
    <POP 18010-1810c Body>                                              
        <POP 18010-18026 Prologue>                           Σ0         ↓
        <POP 18026-1802c RegCacheLoad>                       Σ0         ↓
        <POP 1802c-18050 Naked>                              Σ0         ↓ →0x18072
            <POP 1802c-1802e StackAdj>                       Δ-2                {[-2-]}
            <MI 1802e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0xc)']}
            <Call 0x18030 0x17bd0>                                              {[-2-]|[4, '(A6+0xc)']}
            <POP 18034-18036 StackAdj>                       Δ+4                {[-2-]}
            <MI 18036  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 18038  EXTB.W  D0>                                              {}
            <POP 0x1803a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {}
            <MI 1803c  MOVE.B  D0,0x200fa>                                      {}
            <MI 18042  MOVE.L  (A6+0xc),0x200f2>                                {}
            <MI 18048  TST.B   0x200fa>                                         {}
            <MI 1804e  BNE     0x18072>                                         {}
        <POP 18050-18072 Naked>                              Σ0         →0x18104
            <MI 18050  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 18052  CLR.B   -(A7)>                        Δ-2                {[4, '(A6+0xc)']|[#0]}
            <Const 0x18054 0x1.2>                            Δ-2                {[4, '(A6+0xc)']|[#0]|[#1]}
            <Const 0x18056 0x0.4>                            Δ-4                {[4, '(A6+0xc)']|[#0]|[#1]|[##0]}
            <Pointer.fp 0x1805a <LVAR -0x002 @>>             Δ-4                {[4, '(A6+0xc)']|[#0]|[#1]|[##0]|[@@-2]}
            <MI 1805e  MOVEA.L (A6+0x8),A0>                                     {[4, '(A6+0xc)']|[#0]|[#1]|[##0]|[@@-2]}
            <MI 18062  PEA.L   (A0)>                         Δ-4                {[4, '(A6+0xc)']|[#0]|[#1]|[##0]|[@@-2]|[4, '^(A0)']}
            <Call 0x18064 0x138a6>                                              {[4, '(A6+0xc)']|[#0]|[#1]|[##0]|[@@-2]|[4, '^(A0)']}
                _OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 1806a-1806e StackAdj>                       Δ+20               {}
            <MI 1806e  BRA     0x18104>                                         {}
        <POP 18072-18080 Naked>                              Σ0         ↓ →0x18090 ←0x1802c
            <MI 18072  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 18074  CLR.B   0x200fb>                                         {}
            <MI 1807a  MOVE.W  (A0),D0>                                         {}
            <MI 1807c  CMP.W   #0x01,D0>                                        {}
            <MI 1807e  BNE     0x18090>                                         {}
        <POP 18080-1808a Naked>                              Σ0         ↓ →0x18090
            <MI 18080  MOVE.B  (A0+0x2),D0>                                     {}
            <MI 18084  CMPI.B  #0x2a,D0>                                        {}
            <MI 18088  BNE     0x18090>                                         {}
        <POP 1808a-18090 Naked>                              Σ0         ↓
            <MI 1808a  ADDQ.B  #0x1,0x200fb>                                    {}
        <POP 18090-18098 Naked>                              Σ0         ↓ →0x180a2 ←0x18072 ←0x18080
            <MI 18090  MOVE.B  (A6+0x10),D0>                                    {}
            <MI 18094  CMP.B   #0x01,D0>                                        {}
            <MI 18096  BNE     0x180a2>                                         {}
        <POP 18098-180a2 Naked>                              Σ0         →0x180a8
            <MI 18098  MOVE.W  #0x4,0x20106>                                    {}
            <MI 180a0  BRA     0x180a8>                                         {}
        <POP 180a2-180a8 Naked>                              Σ0         ↓ ←0x18090
            <MI 180a2  MOVE.W  #0x01,0x20106>                                   {}
        <POP 180a8-18104 Naked>                              Σ0         ↓ ←0x18098
            <MI 180a8  MOVE.L  #0xffffffff,0x200fc>                             {}
            <MI 180b2  MOVE.L  #0xf,0x20100>                                    {}
            <MI 180bc  CLR.L   D0>                                              {}
            <MI 180be  MOVE.W  0x20106,D0>                                      {}
            <MI 180c4  SUBQ.L  #0x1,D0>                                         {}
            <POP 0x180c6 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 180d0  MOVE.W  D0,0x20104>                                      {}
            <MI 180d6  MOVE.W  0x20106,D0>                                      {}
            <MI 180dc  MULU.W  #0x400,D0>                                       {}
            <POP 180e0-180e2 StackAdj>                       Δ-4                {[-4-]}
            <MI 180e2  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <Call 0x180e4 0x1083a>                                              {[-4-]|[4, 'D0']}
                _Malloc2(VAR dst : Pointer; length : Word)
            <POP 180ea-180ec StackAdj>                       Δ+4                {[-4-]}
            <MI 180ec  MOVE.L  (A7)+,0x200f6>                Δ+4                {}
            <MI 180f2  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 180f6  MOVE.L  #0x01,(A0)>                                      {}
            <MI 180f8  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 180fa  PEA.L   (A0)>                         Δ-4                {[#0]|[4, '^(A0)']}
            <Call 0x180fc 0x1810c>                                              {[#0]|[4, '^(A0)']}
                _DirNext(MOD a : Bool; VAR b : File)
            <POP 18102-18104 StackAdj>                       Δ+6                {}
        <POP 18104-1810c Epilogue>                           Σ0         ←0x18050

0x1810c


@ 1810c
_DirNext(MOD a : Bool; VAR b : File)
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @>
    <POP 1810c-181ca Body>                                              
        <POP 1810c-18122 Prologue>                           Σ0         ↓
        <POP 18122-18128 RegCacheLoad>                       Σ0         ↓
        <POP 18128-18130 Naked>                              Σ0         ↓ →0x1814a
            <MI 18128  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1812a  MOVEA.L (A0),A1>                                         {}
            <MI 1812c  CMPA.W  #0x01,A1>                                        {}
            <MI 1812e  BEQ     0x1814a>                                         {}
        <POP 18130-1814a Naked>                              Σ0         ↓
            <MI 18130  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x18132 0x2.2>                            Δ-2                {[#0]|[#2]}
            <Const 0x18136 0x1.4>                            Δ-4                {[#0]|[#2]|[##1]}
            <Pointer.fp 0x1813a <LVAR -0x002 @>>             Δ-4                {[#0]|[#2]|[##1]|[@@-2]}
            <MI 1813e  PEA.L   (A0)>                         Δ-4                {[#0]|[#2]|[##1]|[@@-2]|[4, '^(A0)']}
            <Call 0x18140 0x13c7c>                                              {[#0]|[#2]|[##1]|[@@-2]|[4, '^(A0)']}
                _CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 18146-1814a StackAdj>                       Δ+16               {}
        <POP 1814a-18152 Naked>                              Σ0         ↓ →0x18154 ←0x18128
            <MI 1814a  TST.B   0x200fa>                                         {}
            <MI 18150  BNE     0x18154>                                         {}
        <POP 18152-18154 Naked>                              Σ0         →0x181ac
            <MI 18152  BRA     0x181ac>                                         {}
        <POP 18154-1815a Naked>                              Σ0         ↓ →0x1815e ←0x1814a
            <MI 18154  TST.B   (A6+0xc)>                                        {}
            <MI 18158  BEQ     0x1815e>                                         {}
        <POP 1815a-1815e Naked>                              Σ0         ↓
            <Call 0x1815a 0x17c3c>                                              {}
        <POP 1815e-18182 Naked>                              Σ0         ↓ →0x181ac ←0x18154
            <MI 1815e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 18160  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x18162 0x4d.4>                           Δ-4                {[4, '^(A0)']|[##77]}
            <Call 0x18166 0x10856>                                              {[4, '^(A0)']|[##77]}
                _Malloc1(length : Long) : Pointer
            <POP 1816c-1816e StackAdj>                       Δ+8                {}
            <MI 1816e  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x18170 0x17e88>                                              {[4, '^(A0)']}
            <POP 18174-18176 StackAdj>                       Δ+4                {}
            <MI 18176  MOVEA.L (A0),A1>                                         {}
            <MI 18178  MOVE.B  (A1+0x3f),D0>                                    {}
            <MI 1817c  LSL.B   #0x4,D0>                                         {}
            <MI 1817e  LSR.B   #0x7,D0>                                         {}
            <MI 18180  BEQ     0x181ac>                                         {}
        <POP 18182-181ac Naked>                              Σ0         ↓
            <MI 18182  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x18184 0x4d.4>                           Δ-4                {[4, '^(A0)']|[##77]}
            <Call 0x18188 0x108fa>                                              {[4, '^(A0)']|[##77]}
                _Free2(a : Pointer; b : Long)
            <POP 1818e-18190 StackAdj>                       Δ+8                {}
            <MI 18190  MOVE.W  0x20106,D0>                                      {}
            <MI 18196  MULU.W  #0x400,D0>                                       {}
            <Blob 0x1819a [4] 0x200f6>                       Δ-4                {[«4»]}
            <MI 181a0  MOVE.L  D0,-(A7)>                     Δ-4                {[«4»]|[4, 'D0']}
            <Call 0x181a2 0x108de>                                              {[«4»]|[4, 'D0']}
                _Free1(a : Pointer; b : Long)
            <POP 181a8-181aa StackAdj>                       Δ+8                {}
            <MI 181aa  MOVE.L  #0x01,(A0)>                                      {}
        <POP 181ac-181b4 Naked>                              Σ0         ↓ →0x181c2 ←0x18152 ←0x1815e
            <MI 181ac  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 181ae  MOVEA.L (A0),A0>                                         {}
            <MI 181b0  CMPA.W  #0x01,A0>                                        {}
            <MI 181b2  BNE     0x181c2>                                         {}
        <POP 181b4-181c2 Naked>                              Σ0         ↓
            <Const 0x181b4 0x200f2.4>                        Δ-4                {[##131314]}
            <Call 0x181ba 0x10d76>                                              {[##131314]}
                _FreeString(VAR a : String)
            <POP 181c0-181c2 StackAdj>                       Δ+4                {}
        <POP 181c2-181ca Epilogue>                           Σ0         ←0x181ac

0x18570


@ 18570
        <LVAR  0x00a 4(w)>
        <LVAR  0x008 1(r)>
    <POP 18570-185fa Body>                                              
        <POP 18570-18586 Prologue>                           Σ0         ↓
        <POP 18586-18588 RegCacheLoad>                       Σ0         ↓
        <POP 18588-18590 Naked>                              Σ0         ↓ →0x185a2
            <MI 18588  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 1858c  CMP.B   #0x30,D0>                                        {}
            <MI 1858e  BCS     0x185a2>                                         {}
        <POP 18590-18596 Naked>                              Σ0         ↓ →0x185a2
            <MI 18590  CMPI.B  #0x39,D0>                                        {}
            <MI 18594  BHI     0x185a2>                                         {}
        <POP 18596-1859c Naked>                              Σ0         ↓
            <MI 18596  CLR.L   D1>                                              {}
            <MI 18598  MOVE.B  D0,D1>                                           {}
            <MI 1859a  SUB.W   #0x30,D1>                                        {}
        <POP 1859c-185a2 Naked>                              Σ0         →0x185ee ←0x185ae
            <MI 1859c  EXTW.L  D1>                                              {}
            <MI 1859e  MOVE.L  D1,D7>                                           {}
            <MI 185a0  BRA     0x185ee>                                         {}
        <POP 185a2-185a8 Naked>                              Σ0         ↓ →0x185b8 ←0x18588 ←0x18590
            <MI 185a2  CMPI.B  #0x41,D0>                                        {}
            <MI 185a6  BCS     0x185b8>                                         {}
        <POP 185a8-185ae Naked>                              Σ0         ↓ →0x185b8
            <MI 185a8  CMPI.B  #0x46,D0>                                        {}
            <MI 185ac  BHI     0x185b8>                                         {}
        <POP 185ae-185b8 Naked>                              Σ0         →0x1859c
            <MI 185ae  CLR.L   D1>                                              {}
            <MI 185b0  MOVE.B  D0,D1>                                           {}
            <MI 185b2  SUBI.W  #0x0037,D1>                                      {}
            <MI 185b6  BRA     0x1859c>                                         {}
        <POP 185b8-185ee Naked>                              Σ0         ↓ ←0x185a2 ←0x185a8
            <Blob 0x185b8 [18] @>                            Δ-18               {[«18""»]}
            <Const 0x185ca 0xe.2>                            Δ-2                {[«18""»]|[#14]}
            <POP 185ce-185d0 StackAdj>                       Δ-4                {[«18""»]|[#14]|[-4-]}
            <Lit 0x185d0 17>                                                    {[«18""»]|[#14]|[$$Illegal Hex data!]}
            <Call 0x185e4 0x14e0a>                                              {[«18""»]|[#14]|[$$Illegal Hex data!]}
                _PopProgram(status : Byte; msg : String)
            <POP 185ea-185ee StackAdj>                       Δ+24               {}
        <POP 185ee-185f2 Naked>                              Σ0         ↓ ←0x1859c
            <MI 185ee  MOVE.L  D7,(A6+0xa)>                                     {}
        <POP 185f2-185fa Epilogue>                           Σ0         

0x185fa


@ 185fa
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 185fa-1865e Body>                                              
        <POP 185fa-18610 Prologue>                           Σ0         ↓
        <POP 18610-18612 RegCacheLoad>                       Σ0         ↓
        <POP 18612-18656 Naked>                              Σ0         ↓
            <MI 18612  MOVEA.L (A6+0xc),A0>                                     {}
            <Blob 0x18616 [30] (A0+0xfc)>                    Δ-30               {[«30»]}
            <Const 0x18626 0x2.2>                            Δ-2                {[«30»]|[#2]}
            <POP 1862a-1862c StackAdj>                       Δ-4                {[«30»]|[#2]|[-4-]}
            <MI 1862c  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[«30»]|[#2]|[-4-]|[4, '(A6+0x8)']}
            <POP 18630-18632 StackAdj>                       Δ-4                {[«30»]|[#2]|[-4-]|[4, '(A6+0x8)']|[-4-]}
            <Lit 0x18632>                                                       {[«30»]|[#2]|[-4-]|[4, '(A6+0x8)']|[$$…]}
                <Pointer.sp 0x18632 14>                      Δ-4        
                <Const 0x18636 0x1.2>                        Δ-2        
                <Const 0x1863a 0x1e.2>                       Δ-2        
                <Call 0x1863c 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 18642-18644 StackAdj>                   Δ+8        
            <Call 0x18644 0x10f34>                                              {[«30»]|[#2]|[-4-]|[4, '(A6+0x8)']|[$$…]}
                _StringCat2(a, b : String) : String
            <POP 1864a-1864c StackAdj>                       Δ+8                {[«30»]|[#2]|[-4-]}
            <Call 0x1864c 0x14e0a>                                              {[«30»]|[#2]|[-4-]}
                _PopProgram(status : Byte; msg : String)
            <POP 18652-18656 StackAdj>                       Δ+36               {}
        <POP 18656-1865e Epilogue>                           Σ0         

0x1865e


@ 1865e
_ExpLoad(a : String; b: Pointer)
        <LVAR  0x00c @ 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 2(r)>
        <LVAR -0x004 2(r)>
        <LVAR -0x006 @ 2(r)>
        <LVAR -0x008 1(rw)>
        <LVAR -0x010 @ 4(w)>
        <LVAR -0x014 @ 4(rw)>
        <LVAR -0x016 @ 1(r)>
        <LVAR -0x01a 4(w)>
        <LVAR -0x026 @ 4(r)>
        <LVAR -0x028 @>
        <LVAR -0x02c @ 4(r)>
    <POP 1865e-18b1a Body>                                   Δ-16       
        <POP 1865e-18674 Prologue>                           Σ0         ↓
        <POP 18674-1867c RegCacheLoad>                       Σ0         ↓
        <POP 1867c-18684 Naked>                              Σ0         ↓ →0x186a6
            <MI 1867c  TST.B   0x20024>                                         {}
            <MI 18682  BEQ     0x186a6>                                         {}
        <POP 18684-186a6 Naked>                              Σ0         ↓
            <POP 18684-18686 StackAdj>                       Δ-6                {[-6-]}
            <Call 0x18686 0x15b1c>                                              {[-6-]}
                _GetConsoleConfig() : Long
            <MI 1868c  MOVE.L  (A7)+,D0>                     Δ+4                {[-2-]}
            <POP 0x1868e LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-2-]}
            <MI 18698  MOVE.W  D0,(A7)>                                         {[2, 'D0']}
            <MI 1869a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[2, 'D0']|[4, '(A6+0xc)']}
            <Call 0x1869e 0x1020a>                                              {[2, 'D0']|[4, '(A6+0xc)']}
                KC05_Write_Console_String(port : Word ; str : String)
            <POP 186a4-186a6 StackAdj>                       Δ+6                {}
        <POP 186a6-186ae Naked>                              Σ0         ↓ →0x186dc ←0x1867c
            <MI 186a6  TST.B   0x20025>                                         {}
            <MI 186ac  BNE     0x186dc>                                         {}
        <POP 186ae-186dc Naked>                              Σ0         ↓
            <Blob 0x186ae [30] @>                            Δ-30               {[«30""»]}
            <Const 0x186ba 0x2.2>                            Δ-2                {[«30""»]|[#2]}
            <POP 186be-186c0 StackAdj>                       Δ-4                {[«30""»]|[#2]|[-4-]}
            <Lit 0x186c0 30>                                                    {[«30""»]|[#2]|[$$Experiment io not initialized.]}
            <Call 0x186d2 0x14e0a>                                              {[«30""»]|[#2]|[$$Experiment io not initialized.]}
                _PopProgram(status : Byte; msg : String)
            <POP 186d8-186dc StackAdj>                       Δ+36               {}
        <POP 186dc-186e2 Naked>                              Σ0         ↓ ←0x186a6
            <MI 186dc  CLR.B   (A6-0x8)>                                        {}
            <MI 186e0  MOVEQ.L #-0x01,D6>                                       {}
        <POP 186e2-18702 Naked>                              Σ0 Δ-4     ↓ →0x18708 ←0x1877e
            <MI 186e2  ADDQ.L  #0x1,D6>                                         {}
            <MI 186e4  MOVE.L  D6,D4>                                           {}
            <MI 186e6  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x186e8 0x107ea>                                              {}
                _?muls_d3_d4
            <MI 186ea  LEA.L   0x0,A0>                                          {}
            <MI 186ee  LEA.L   (A0+D4.L),A0>                                    {}
            <MI 186f2  ADDA.L  #0x2002c,A0>                                     {}
            <MI 186f8  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 186fa  MOVEA.L (A0+0x2),A1>                                     {[4, 'A0']}
            <MI 186fe  CMPA.W  #0x01,A1>                                        {[4, 'A0']}
            <MI 18700  BNE     0x18708>                                         {[4, 'A0']}
        <POP 18702-18708 Naked>                              Σ-4 Δ+4    →0x1878c
            <POP 18702-18704 StackAdj>                       Δ+4                {}
            <MI 18704  BRA     0x1878c>                                         {}
        <POP 18708-18716 Naked>                              Σ-4 Δ-8    ↓ ←0x186e2
            <MI 18708  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 1870c  MOVE.L  A0,-(A7)>                     Δ-4                {[-4-]|[4, 'A0']}
            <MI 1870e  MOVE.W  (A0),D0>                                         {[-4-]|[4, 'A0']}
            <MI 18710  EXTW.L  D0>                                              {[-4-]|[4, 'A0']}
            <MI 18712  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'A0']|[4, 'D0']}
            <MI 18714  MOVEQ.L #0x01,D7>                                        {[-4-]|[4, 'A0']|[4, 'D0']}
        <POP 18716-1871a Naked>                              Σ-12       ↓ →0x1873e ←0x1873a
            <MI 18716  CMP.L   (A7),D7>                                         {[-12-]}
            <MI 18718  BGT     0x1873e>                                         {[-12-]}
        <POP 1871a-18734 Naked>                              Σ-12       ↓ →0x1873a
            <MI 1871a  MOVEA.L (A7+0x8),A0>                                     {[-12-]}
            <MI 1871e  MOVEA.L (A0+0x2),A0>                                     {[-12-]}
            <MI 18722  LEA.L   (A0+D7.L),A0>                                    {[-12-]}
            <MI 18726  MOVEA.L (A7+0x4),A1>                                     {[-12-]}
            <MI 1872a  MOVE.B  (A0+0xfb),D0>                                    {[-12-]}
            <MI 1872e  CMP.B   (A1+D7.L+#0x1),D0>                               {[-12-]}
            <MI 18732  BEQ     0x1873a>                                         {[-12-]}
        <POP 18734-1873a Naked>                              Σ-12 Δ+12  →0x1877e
            <POP 18734-18738 StackAdj>                       Δ+12               {}
            <MI 18738  BRA     0x1877e>                                         {}
        <POP 1873a-1873e Naked>                              Σ-12       ↓ →0x18716 ←0x1871a
            <MI 1873a  ADDQ.L  #0x1,D7>                                         {[-12-]}
            <MI 1873c  BVC     0x18716>                                         {[-12-]}
        <POP 1873e-18748 Naked>                              Σ-12 Δ+4   ↓ →0x18774 ←0x18716
            <POP 1873e-18740 StackAdj>                       Δ+4                {[-8-]}
            <MI 18740  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 18744  TST.B   (A0)>                                            {[-8-]}
            <MI 18746  BEQ     0x18774>                                         {[-8-]}
        <POP 18748-18774 Naked>                              Σ-8        ↓
            <Blob 0x18748 [22] @>                            Δ-22               {[-8-]|[«22""»]}
            <MI 18754  MOVE.L  (A0+0x2),-(A7)>               Δ-4                {[-8-]|[«22""»]|[4, '(A0+0x2)']}
            <POP 18758-1875a StackAdj>                       Δ-4                {[-8-]|[«22""»]|[4, '(A0+0x2)']|[-4-]}
            <Lit 0x1875a 22>                                                    {[-8-]|[«22""»]|[4, '(A0+0x2)']|[$$Attempt to re-load ->_]}
            <Call 0x1876c 0x185fa>                                              {[-8-]|[«22""»]|[4, '(A0+0x2)']|[$$Attempt to re-load ->_]}
            <POP 18770-18774 StackAdj>                       Δ+30               {[-8-]}
        <POP 18774-1877c Naked>                              Σ-8 Δ+8    →0x1878c ←0x1873e
            <MI 18774  MOVE.B  #0x01,(A6-0x8)>                                  {[-8-]}
            <POP 18778-1877a StackAdj>                       Δ+8                {}
            <MI 1877a  BRA     0x1878c>                                         {}
        <POP 1877e-1878c Naked>                              Σ0         ↓ →0x186e2 ←0x18734
            <MI 1877e  CLR.L   D0>                                              {}
            <MI 18780  MOVE.W  0x20026,D0>                                      {}
            <MI 18786  CMP.L   D0,D6>                                           {}
            <MI 18788  BNE     0x186e2>                                         {}
        <POP 1878c-18794 Naked>                              Σ0         ↓ →0x1881c ←0x18702 ←0x18774
            <MI 1878c  TST.B   (A6-0x8)>                                        {}
            <MI 18790  BEQ     0x1881c>                                         {}
        <POP 18794-18798 Naked>                              Σ0         ↓ →0x1880e
            <MI 18794  TST.L   D6>                                              {}
            <MI 18796  BEQ     0x1880e>                                         {}
        <POP 18798-187be Naked>                              Σ0         ↓
            <MI 18798  MOVE.L  D6,D4>                                           {}
            <MI 1879a  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x1879c 0x107ea>                                              {}
                _?muls_d3_d4
            <MI 1879e  LEA.L   0x0,A0>                                          {}
            <MI 187a2  LEA.L   (A0+D4.L),A0>                                    {}
            <MI 187a6  ADDA.L  #0x2002c,A0>                                     {}
            <MI 187ac  LEA.L   (A6-0x6),A1>                                     {}
            <BlockMove 6,A0,A1>                                                 {}
            <MI 187b8  MOVE.L  D6,D0>                                           {}
            <MI 187ba  SUBQ.L  #0x1,D0>                                         {}
            <MI 187bc  MOVE.L  D0,D7>                                           {}
        <POP 187be-187c2 Naked>                              Σ0         ↓ →0x187f6 ←0x187c2
            <MI 187be  TST.L   D7>                                              {}
            <MI 187c0  BLT     0x187f6>                                         {}
        <POP 187c2-187f6 Naked>                              Σ0         ↓ →0x187be
            <MI 187c2  MOVE.L  D7,D0>                                           {}
            <MI 187c4  ADDQ.L  #0x1,D0>                                         {}
            <MI 187c6  MOVE.L  D0,D4>                                           {}
            <MI 187c8  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x187ca 0x107ea>                                              {}
                _?muls_d3_d4
            <MI 187cc  LEA.L   0x0,A0>                                          {}
            <MI 187d0  LEA.L   (A0+D4.L),A1>                                    {}
            <MI 187d4  ADDA.L  #0x2002c,A1>                                     {}
            <MI 187da  MOVE.L  D7,D4>                                           {}
            <MI 187dc  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x187de 0x107ea>                                              {}
                _?muls_d3_d4
            <MI 187e0  LEA.L   (A0+D4.L),A0>                                    {}
            <MI 187e4  ADDA.L  #0x2002c,A0>                                     {}
            <BlockMove 6,A0,A1>                                                 {}
            <MI 187f2  SUBQ.L  #0x1,D7>                                         {}
            <MI 187f4  BVC     0x187be>                                         {}
        <POP 187f6-1880e Naked>                              Σ0         ↓ ←0x187be
            <MI 187f6  MOVE.W  (A6-0x6),0x2002c>                                {}
            <MI 187fe  MOVE.W  (A6-0x4),0x2002e>                                {}
            <MI 18806  MOVE.W  (A6-0x2),0x20030>                                {}
        <POP 1880e-1881c Naked>                              Σ0         →0x18af4 ←0x18794
            <MI 1880e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 18812  MOVE.L  0x2002e,(A0)>                                    {}
            <MI 18818  BRA     0x18af4>                                         {}
        <POP 1881c-18836 Naked>                              Σ0         ↓ →0x18870 ←0x1878c ←0x1886e
            <MI 1881c  MOVE.L  D6,D4>                                           {}
            <MI 1881e  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x18820 0x107ea>                                              {}
                _?muls_d3_d4
            <MI 18822  LEA.L   0x0,A0>                                          {}
            <MI 18826  LEA.L   (A0+D4.L),A0>                                    {}
            <MI 1882a  MOVEA.L A0,A1>                                           {}
            <MI 1882c  ADDA.L  #0x2002c,A1>                                     {}
            <MI 18832  TST.B   (A1)>                                            {}
            <MI 18834  BEQ     0x18870>                                         {}
        <POP 18836-1883a Naked>                              Σ0         ↓ →0x1886e
            <MI 18836  SUBQ.L  #0x1,D6>                                         {}
            <MI 18838  BGE     0x1886e>                                         {}
        <POP 1883a-1886e Naked>                              Σ0         ↓
            <Blob 0x1883a [30] @>                            Δ-30               {[«30""»]}
            <MI 1884c  MOVEA.L (A6+0x8),A1>                                     {[«30""»]}
            <MI 18850  MOVE.L  (A1),-(A7)>                   Δ-4                {[«30""»]|[4, '(A1)']}
            <POP 18852-18854 StackAdj>                       Δ-4                {[«30""»]|[4, '(A1)']|[-4-]}
            <Lit 0x18854 29>                                                    {[«30""»]|[4, '(A1)']|[$$Experiment cache overflow ->_]}
            <Call 0x18866 0x185fa>                                              {[«30""»]|[4, '(A1)']|[$$Experiment cache overflow ->_]}
            <POP 1886a-1886e StackAdj>                       Δ+38               {}
        <POP 1886e-18870 Naked>                              Σ0         →0x1881c ←0x18836
            <MI 1886e  BRA     0x1881c>                                         {}
        <POP 18870-1887c Naked>                              Σ0         ↓ →0x188c8 ←0x1881c
            <MI 18870  ADDA.L  #0x2002e,A0>                                     {}
            <MI 18876  MOVEA.L (A0),A1>                                         {}
            <MI 18878  CMPA.W  #0x01,A1>                                        {}
            <MI 1887a  BEQ     0x188c8>                                         {}
        <POP 1887c-18882 Naked>                              Σ0         ↓
            <MI 1887c  MOVE.L  (A1+0xf8),(A6-0x14)>                             {}
        <POP 18882-1888a Naked>                              Σ0         ↓ →0x188a6 ←0x1888a
            <MI 18882  MOVEA.L (A6-0x14),A0>                                    {}
            <MI 18886  CMPA.W  #0x01,A0>                                        {}
            <MI 18888  BEQ     0x188a6>                                         {}
        <POP 1888a-188a6 Naked>                              Σ0         →0x18882
            <MI 1888a  MOVE.L  A0,(A6-0x10)>                                    {}
            <MI 1888e  MOVE.L  (A0+0x2),(A6-0x14)>                              {}
            <Pointer.fp 0x18894 <LVAR -0x010 @ 4(w)>>        Δ-4                {[@@-16]}
            <Const 0x18898 0x6.4>                            Δ-4                {[@@-16]|[##6]}
            <Call 0x1889c 0x108fa>                                              {[@@-16]|[##6]}
                _Free2(a : Pointer; b : Long)
            <POP 188a2-188a4 StackAdj>                       Δ+8                {}
            <MI 188a4  BRA     0x18882>                                         {}
        <POP 188a6-188c8 Naked>                              Σ0         ↓ ←0x18882
            <MI 188a6  MOVE.L  D6,D4>                                           {}
            <MI 188a8  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x188aa 0x107ea>                                              {}
                _?muls_d3_d4
            <MI 188ac  LEA.L   0x0,A0>                                          {}
            <MI 188b0  LEA.L   (A0+D4.L),A0>                                    {}
            <MI 188b4  ADDA.L  #0x2002e,A0>                                     {}
            <MI 188ba  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x188bc 0x11d.4>                          Δ-4                {[4, '^(A0)']|[##285]}
            <Call 0x188c0 0x108fa>                                              {[4, '^(A0)']|[##285]}
                _Free2(a : Pointer; b : Long)
            <POP 188c6-188c8 StackAdj>                       Δ+8                {}
        <POP 188c8-188ce Naked>                              Σ0         ↓ ←0x18870
            <MI 188c8  MOVE.L  D6,D0>                                           {}
            <MI 188ca  SUBQ.L  #0x1,D0>                                         {}
            <MI 188cc  MOVE.L  D0,D7>                                           {}
        <POP 188ce-188d2 Naked>                              Σ0         ↓ →0x18906 ←0x188d2
            <MI 188ce  TST.L   D7>                                              {}
            <MI 188d0  BLT     0x18906>                                         {}
        <POP 188d2-18906 Naked>                              Σ0         ↓ →0x188ce
            <MI 188d2  MOVE.L  D7,D0>                                           {}
            <MI 188d4  ADDQ.L  #0x1,D0>                                         {}
            <MI 188d6  MOVE.L  D0,D4>                                           {}
            <MI 188d8  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x188da 0x107ea>                                              {}
                _?muls_d3_d4
            <MI 188dc  LEA.L   0x0,A0>                                          {}
            <MI 188e0  LEA.L   (A0+D4.L),A1>                                    {}
            <MI 188e4  ADDA.L  #0x2002c,A1>                                     {}
            <MI 188ea  MOVE.L  D7,D4>                                           {}
            <MI 188ec  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x188ee 0x107ea>                                              {}
                _?muls_d3_d4
            <MI 188f0  LEA.L   (A0+D4.L),A0>                                    {}
            <MI 188f4  ADDA.L  #0x2002c,A0>                                     {}
            <BlockMove 6,A0,A1>                                                 {}
            <MI 18902  SUBQ.L  #0x1,D7>                                         {}
            <MI 18904  BVC     0x188ce>                                         {}
        <POP 18906-18980 Naked>                              Σ0 Δ-8     ↓ ←0x188ce
            <MI 18906  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 1890a  CLR.B   -(A7)>                        Δ-2                {[4, '(A6+0xc)']|[#0]}
            <Const 0x1890c 0x2.2>                            Δ-2                {[4, '(A6+0xc)']|[#0]|[#2]}
            <Const 0x18910 0x0.4>                            Δ-4                {[4, '(A6+0xc)']|[#0]|[#2]|[##0]}
            <Pointer.fp 0x18914 <LVAR -0x028 @>>             Δ-4                {[4, '(A6+0xc)']|[#0]|[#2]|[##0]|[@@-40]}
            <Pointer.fp 0x18918 <LVAR -0x02c @ 4(r)>>        Δ-4                {[4, '(A6+0xc)']|[#0]|[#2]|[##0]|[@@-40]|[@@-44]}
            <Call 0x1891c 0x138a6>                                              {[4, '(A6+0xc)']|[#0]|[#2]|[##0]|[@@-40]|[@@-44]}
                _OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 18922-18926 StackAdj>                       Δ+20               {}
            <MI 18926  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1892a  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x1892c 0x11d.4>                          Δ-4                {[4, '^(A0)']|[##285]}
            <Call 0x18930 0x10856>                                              {[4, '^(A0)']|[##285]}
                _Malloc1(length : Long) : Pointer
            <POP 18936-18938 StackAdj>                       Δ+8                {}
            <MI 18938  MOVE.L  (A0),0x2002e>                                    {}
            <MI 1893e  MOVEA.L (A0),A0>                                         {}
            <MI 18940  MOVEA.L (A6-0x2c),A1>                                    {}
            <MI 18944  LEA.L   (A0+0xfc),A2>                                    {}
            <BlockMove 30,A1,A2>                                                {}
            <MI 18950  MOVE.L  #0x01,(A0+0xf8)>                                 {}
            <MI 18954  MOVE.B  #0xff,(A0+0x11a)>                                {}
            <MI 1895a  CLR.B   (A0+0x11b)>                                      {}
            <MI 1895e  ANDI.B  #0x7f,(A0+0x11c)>                                {}
            <Pointer.fp 0x18964 <LVAR -0x026 @ 4(r)>>        Δ-4                {[@@-38]}
            <Call 0x18968 0x10d42>                                              {[@@-38]}
                _NewString(VAR a : String)
            <POP 1896e-18970 StackAdj>                       Δ+4                {}
            <MI 18970  MOVEQ.L #0x10,D5>                                        {}
            <MI 18972  MOVEA.L (A6-0x26),A0>                                    {}
            <MI 18976  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 18978  MOVEA.L (A6+0x8),A1>                                     {[4, 'A0']}
            <MI 1897c  MOVEA.L (A1),A1>                                         {[4, 'A0']}
            <MI 1897e  MOVE.L  A1,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A1']}
        <POP 18980-189a0 Naked>                              Σ-8        ↓ →0x18aa6 ←0x18aa6
            <MI 18980  MOVE.L  (A6-0x2c),-(A7)>              Δ-4                {[-8-]|[4, '(A6-0x2c)']}
            <Pointer.fp 0x18984 <LVAR -0x026 @ 4(r)>>        Δ-4                {[-8-]|[4, '(A6-0x2c)']|[@@-38]}
            <Pointer.fp 0x18988 <LVAR -0x016 @ 1(r)>>        Δ-4                {[-8-]|[4, '(A6-0x2c)']|[@@-38]|[@@-22]}
            <Call 0x1898c 0x170b6>                                              {[-8-]|[4, '(A6-0x2c)']|[@@-38]|[@@-22]}
                _FileReadLine(file : File; VAR a : String; VAR b : Byte)
            <POP 18992-18996 StackAdj>                       Δ+12               {[-8-]}
            <MI 18996  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 1899a  TST.W   (A0)>                                            {[-8-]}
            <MI 1899c  BEQ     0x18aa6>                                         {[-8-]}
        <POP 189a0-189ac Naked>                              Σ-8        ↓ →0x18a7e
            <MI 189a0  MOVE.B  (A0+0x2),D0>                                     {[-8-]}
            <MI 189a4  CMPI.B  #0x50,D0>                                        {[-8-]}
            <MI 189a8  BNE     0x18a7e>                                         {[-8-]}
        <POP 189ac-189ce Naked>                              Σ-8        ↓ →0x189d6
            <Pointer.fp 0x189ac <LVAR -0x014 @ 4(rw)>>       Δ-4                {[-8-]|[@@-20]}
            <Const 0x189b0 0x6.4>                            Δ-4                {[-8-]|[@@-20]|[##6]}
            <Call 0x189b4 0x10856>                                              {[-8-]|[@@-20]|[##6]}
                _Malloc1(length : Long) : Pointer
            <POP 189ba-189bc StackAdj>                       Δ+8                {[-8-]}
            <MI 189bc  MOVEA.L (A6-0x14),A1>                                    {[-8-]}
            <MI 189c0  MOVE.L  #0x01,(A1+0x2)>                                  {[-8-]}
            <MI 189c4  MOVEA.L (A7),A2>                                         {[-8-]}
            <MI 189c6  MOVEA.L (A2+0xf8),A3>                                    {[-8-]}
            <MI 189ca  CMPA.W  #0x01,A3>                                        {[-8-]}
            <MI 189cc  BNE     0x189d6>                                         {[-8-]}
        <POP 189ce-189d6 Naked>                              Σ-8        →0x189e0
            <MI 189ce  MOVE.L  (A6-0x14),(A2+0xf8)>                             {[-8-]}
            <MI 189d4  BRA     0x189e0>                                         {[-8-]}
        <POP 189d6-189e0 Naked>                              Σ-8        ↓ ←0x189ac
            <MI 189d6  MOVEA.L (A2+0xf4),A3>                                    {[-8-]}
            <MI 189da  MOVE.L  (A6-0x14),(A3+0x2)>                              {[-8-]}
        <POP 189e0-18a2a Naked>                              Σ-8        ↓ →0x18a2e ←0x189ce
            <MI 189e0  MOVE.L  (A6-0x14),(A2+0xf4)>                             {[-8-]}
            <POP 189e6-189e8 StackAdj>                       Δ-4                {[-12-]}
            <MI 189e8  MOVE.B  (A0+0x3),-(A7)>               Δ-2                {[-12-]|[2, '(A0+0x3)']}
            <Call 0x189ec 0x18570>                                              {[-12-]|[2, '(A0+0x3)']}
            <POP 189f0-189f2 StackAdj>                       Δ+2                {[-12-]}
            <MI 189f2  MOVE.L  (A7)+,D0>                     Δ+4                {[-8-]}
            <MI 189f4  ASL.L   #0x4,D0>                                         {[-8-]}
            <POP 189f6-189f8 StackAdj>                       Δ-4                {[-12-]}
            <MI 189f8  MOVE.B  (A0+0x4),-(A7)>               Δ-2                {[-12-]|[2, '(A0+0x4)']}
            <Call 0x189fc 0x18570>                                              {[-12-]|[2, '(A0+0x4)']}
            <POP 18a00-18a02 StackAdj>                       Δ+2                {[-12-]}
            <MI 18a02  ADD.L   (A7)+,D0>                     Δ+4                {[-8-]}
            <MI 18a04  MOVE.B  D0,(A1+0x1)>                                     {[-8-]}
            <POP 18a08-18a0a StackAdj>                       Δ-4                {[-12-]}
            <MI 18a0a  MOVE.B  (A0+0x7),-(A7)>               Δ-2                {[-12-]|[2, '(A0+0x7)']}
            <Call 0x18a0e 0x18570>                                              {[-12-]|[2, '(A0+0x7)']}
            <POP 18a12-18a14 StackAdj>                       Δ+2                {[-12-]}
            <MI 18a14  MOVE.L  (A7)+,D0>                     Δ+4                {[-8-]}
            <MI 18a16  ANDI.B  #0xc0,(A1)>                                      {[-8-]}
            <MI 18a1a  OR.B    D0,(A1)>                                         {[-8-]}
            <MI 18a1c  ANDI.B  #0xbf,(A1)>                                      {[-8-]}
            <MI 18a20  MOVE.B  (A0+0x6),D0>                                     {[-8-]}
            <MI 18a24  CMPI.B  #0x46,D0>                                        {[-8-]}
            <MI 18a28  BNE     0x18a2e>                                         {[-8-]}
        <POP 18a2a-18a2e Naked>                              Σ-8        ↓
            <MI 18a2a  ORI.B   #0x40,(A1)>                                      {[-8-]}
        <POP 18a2e-18a38 Naked>                              Σ-8        ↓ →0x18a3e ←0x189e0
            <MI 18a2e  MOVE.B  (A0+0x5),D0>                                     {[-8-]}
            <MI 18a32  CMPI.B  #0x49,D0>                                        {[-8-]}
            <MI 18a36  BNE     0x18a3e>                                         {[-8-]}
        <POP 18a38-18a3e Naked>                              Σ-8        →0x18a7c
            <MI 18a38  ORI.B   #0x80,(A1)>                                      {[-8-]}
            <MI 18a3c  BRA     0x18a7c>                                         {[-8-]}
        <POP 18a3e-18a50 Naked>                              Σ-8        ↓ →0x18a7c ←0x18a2e
            <MI 18a3e  ORI.B   #0x80,(A2+0x11c)>                                {[-8-]}
            <MI 18a44  ANDI.B  #0x7f,(A1)>                                      {[-8-]}
            <MI 18a48  MOVE.B  (A1),D0>                                         {[-8-]}
            <MI 18a4a  LSL.B   #0x1,D0>                                         {[-8-]}
            <MI 18a4c  LSR.B   #0x7,D0>                                         {[-8-]}
            <MI 18a4e  BNE     0x18a7c>                                         {[-8-]}
        <POP 18a50-18a5a Naked>                              Σ-8        ↓ →0x18a5e
            <MI 18a50  MOVE.B  (A1+0x1),D0>                                     {[-8-]}
            <MI 18a54  CMP.B   (A2+0x11a),D0>                                   {[-8-]}
            <MI 18a58  BCC     0x18a5e>                                         {[-8-]}
        <POP 18a5a-18a5e Naked>                              Σ-8        ↓
            <MI 18a5a  MOVE.B  D0,(A2+0x11a)>                                   {[-8-]}
        <POP 18a5e-18a78 Naked>                              Σ-8        ↓ →0x18a7c ←0x18a50
            <MI 18a5e  CLR.L   D1>                                              {[-8-]}
            <MI 18a60  MOVE.B  D0,D1>                                           {[-8-]}
            <MI 18a62  CLR.L   D0>                                              {[-8-]}
            <MI 18a64  MOVE.B  (A1),D0>                                         {[-8-]}
            <MI 18a66  LSL.B   #0x2,D0>                                         {[-8-]}
            <MI 18a68  LSR.B   #0x2,D0>                                         {[-8-]}
            <MI 18a6a  ADD.W   D1,D0>                                           {[-8-]}
            <MI 18a6c  SUBQ.W  #0x1,D0>                                         {[-8-]}
            <MI 18a6e  CLR.L   D1>                                              {[-8-]}
            <MI 18a70  MOVE.B  (A2+0x11b),D1>                                   {[-8-]}
            <MI 18a74  CMP.W   D1,D0>                                           {[-8-]}
            <MI 18a76  BLS     0x18a7c>                                         {[-8-]}
        <POP 18a78-18a7c Naked>                              Σ-8        ↓
            <MI 18a78  MOVE.B  D0,(A2+0x11b)>                                   {[-8-]}
        <POP 18a7c-18a7e Naked>                              Σ-8        →0x18aa6 ←0x18a38 ←0x18a3e ←0x18a5e
            <MI 18a7c  BRA     0x18aa6>                                         {[-8-]}
        <POP 18a7e-18aa6 Naked>                              Σ-8        ↓ ←0x189a0
            <POP 18a7e-18a80 StackAdj>                       Δ-4                {[-12-]}
            <MI 18a80  MOVE.B  D0,-(A7)>                     Δ-2                {[-12-]|[2, 'D0']}
            <Call 0x18a82 0x18570>                                              {[-12-]|[2, 'D0']}
            <POP 18a86-18a88 StackAdj>                       Δ+2                {[-12-]}
            <MI 18a88  MOVE.L  (A7)+,D0>                     Δ+4                {[-8-]}
            <MI 18a8a  ASL.L   #0x4,D0>                                         {[-8-]}
            <POP 18a8c-18a8e StackAdj>                       Δ-4                {[-12-]}
            <MI 18a8e  MOVE.B  (A0+0x3),-(A7)>               Δ-2                {[-12-]|[2, '(A0+0x3)']}
            <Call 0x18a92 0x18570>                                              {[-12-]|[2, '(A0+0x3)']}
            <POP 18a96-18a98 StackAdj>                       Δ+2                {[-12-]}
            <MI 18a98  ADD.L   (A7)+,D0>                     Δ+4                {[-8-]}
            <MI 18a9a  MOVE.L  D0,(A6-0x1a)>                                    {[-8-]}
            <MI 18a9e  MOVEA.L (A7),A0>                                         {[-8-]}
            <MI 18aa0  MOVE.B  D0,(A0+D5.L-#0xc)>                               {[-8-]}
            <MI 18aa4  ADDQ.L  #0x1,D5>                                         {[-8-]}
        <POP 18aa6-18aae Naked>                              Σ-8        ↓ →0x18980 ←0x18980 ←0x18a7c
            <MI 18aa6  TST.B   (A6-0x16)>                                       {[-8-]}
            <MI 18aaa  BEQ     0x18980>                                         {[-8-]}
        <POP 18aae-18af4 Naked>                              Σ-8 Δ+8    ↓
            <POP 18aae-18ab0 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x18ab0 <LVAR -0x026 @ 4(r)>>        Δ-4                {[@@-38]}
            <Call 0x18ab4 0x10d76>                                              {[@@-38]}
                _FreeString(VAR a : String)
            <POP 18aba-18abc StackAdj>                       Δ+2                {[-2-]}
            <MI 18abc  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x18abe 0x2.2>                            Δ-2                {[-2-]|[#2]}
            <Const 0x18ac2 0x1.4>                            Δ-4                {[-2-]|[#2]|[##1]}
            <Pointer.fp 0x18ac6 <LVAR -0x028 @>>             Δ-4                {[-2-]|[#2]|[##1]|[@@-40]}
            <Pointer.fp 0x18aca <LVAR -0x02c @ 4(r)>>        Δ-4                {[-2-]|[#2]|[##1]|[@@-40]|[@@-44]}
            <Call 0x18ace 0x13c7c>                                              {[-2-]|[#2]|[##1]|[@@-40]|[@@-44]}
                _CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 18ad4-18ad8 StackAdj>                       Δ+16               {}
            <MI 18ad8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 18adc  MOVEA.L (A0),A0>                                         {}
            <MI 18ade  MOVE.L  D5,D0>                                           {}
            <MI 18ae0  SUBI.L  #0x0000000f,D0>                                  {}
            <POP 0x18ae6 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 18af0  MOVE.B  D0,(A0+0x2)>                                     {}
        <POP 18af4-18b12 Naked>                              Σ0         ↓ ←0x1880e
            <MI 18af4  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 18af8  MOVEA.L (A0),A0>                                         {}
            <MI 18afa  MOVE.L  (A0+0xf8),(A0+0xf4)>                             {}
            <MI 18b00  MOVE.B  #0x01,0x2002c>                                   {}
            <Pointer.fp 0x18b06 <LVAR  0x00c @ 4(r)>>        Δ-4                {[@@12]}
            <Call 0x18b0a 0x10d76>                                              {[@@12]}
                _FreeString(VAR a : String)
            <POP 18b10-18b12 StackAdj>                       Δ+4                {}
        <POP 18b12-18b1a Epilogue>                           Σ0         

0x18b1a


@ 18b1a
_ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 18b1a-18b78 Body>                                              
        <POP 18b1a-18b30 Prologue>                           Σ0         ↓
        <POP 18b30-18b4e Naked>                              Σ0 Δ-8     ↓
            <MI 18b30  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 18b34  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 18b36  MOVEA.L (A0+0xf4),A1>                                    {[4, 'A0']}
            <MI 18b3a  CLR.L   D0>                                              {[4, 'A0']}
            <MI 18b3c  MOVE.B  (A1+0x1),D0>                                     {[4, 'A0']}
            <MI 18b40  MOVE.L  D0,D6>                                           {[4, 'A0']}
            <MI 18b42  MOVE.L  (A1+0x2),(A0+0xf4)>                              {[4, 'A0']}
            <MI 18b48  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, 'A0']|[4, '(A6+0x8)']}
            <MI 18b4c  MOVEQ.L #0x00,D7>                                        {[4, 'A0']|[4, '(A6+0x8)']}
        <POP 18b4e-18b52 Naked>                              Σ-8        ↓ →0x18b6e ←0x18b52
            <MI 18b4e  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 18b50  BGT     0x18b6e>                                         {[-8-]}
        <POP 18b52-18b6e Naked>                              Σ-8        ↓ →0x18b4e
            <MI 18b52  MOVE.L  D6,D0>                                           {[-8-]}
            <MI 18b54  ADD.L   D7,D0>                                           {[-8-]}
            <MI 18b56  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 18b5a  MOVEA.L (A6+0x10),A1>                                    {[-8-]}
            <MI 18b5e  MOVE.L  D7,D1>                                           {[-8-]}
            <MI 18b60  SUB.L   (A6+0xc),D1>                                     {[-8-]}
            <MI 18b64  MOVE.B  (A1+D1.L),(A0+D0.L-#0xc)>                        {[-8-]}
            <MI 18b6a  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 18b6c  BVC     0x18b4e>                                         {[-8-]}
        <POP 18b6e-18b70 Naked>                              Σ-8 Δ+8    ↓ ←0x18b4e
            <POP 18b6e-18b70 StackAdj>                       Δ+8                {}
        <POP 18b70-18b78 Epilogue>                           Σ0         

0x18b78


@ 18b78
_ExpInputFlag(exp : Pointer; val : Word)
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 18b78-18be6 Body>                                              
        <POP 18b78-18b8e Prologue>                           Σ0         ↓
        <POP 18b8e-18bac Naked>                              Σ0         ↓ →0x18bc4
            <MI 18b8e  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 18b92  MOVEA.L (A0+0xf4),A1>                                    {}
            <MI 18b96  CLR.L   D0>                                              {}
            <MI 18b98  MOVE.B  (A1),D0>                                         {}
            <MI 18b9a  LSL.B   #0x2,D0>                                         {}
            <MI 18b9c  LSR.B   #0x2,D0>                                         {}
            <MI 18b9e  MOVE.L  D0,D7>                                           {}
            <MI 18ba0  MOVE.L  (A1+0x2),(A0+0xf4)>                              {}
            <MI 18ba6  TST.B   (A6+0x8)>                                        {}
            <MI 18baa  BEQ     0x18bc4>                                         {}
        <POP 18bac-18bc4 Naked>                              Σ0         →0x18bde
            <MI 18bac  MOVE.L  D7,D0>                                           {}
            <MI 18bae  ASL.L   #0x1,D0>                                         {}
            <MI 18bb0  LEA.L   0x1845a,A1>                                      {}
            <MI 18bb4  CLR.L   D1>                                              {}
            <MI 18bb6  MOVE.B  (A0+0x5),D1>                                     {}
            <MI 18bba  OR.W    (A1+D0.L),D1>                                    {}
            <MI 18bbe  MOVE.B  D1,(A0+0x5)>                                     {}
            <MI 18bc2  BRA     0x18bde>                                         {}
        <POP 18bc4-18bde Naked>                              Σ0         ↓ ←0x18b8e
            <MI 18bc4  MOVE.L  D7,D0>                                           {}
            <MI 18bc6  ASL.L   #0x1,D0>                                         {}
            <MI 18bc8  LEA.L   0x1845e,A1>                                      {}
            <MI 18bcc  MOVE.W  (A1+D0.L),D0>                                    {}
            <MI 18bd0  NOT.W   D0>                                              {}
            <MI 18bd2  CLR.L   D1>                                              {}
            <MI 18bd4  MOVE.B  (A0+0x5),D1>                                     {}
            <MI 18bd8  AND.W   D1,D0>                                           {}
            <MI 18bda  MOVE.B  D0,(A0+0x5)>                                     {}
        <POP 18bde-18be6 Epilogue>                           Σ0         ←0x18bac

0x18be6


@ 18be6
_ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 18be6-18c84 Body>                                              
        <POP 18be6-18bfc Prologue>                           Σ0         ↓
        <POP 18bfc-18c0a Naked>                              Σ0         ↓ →0x18c3e
            <MI 18bfc  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 18c00  MOVEA.L (A0+0xf4),A1>                                    {}
            <MI 18c04  MOVE.B  (A1),D0>                                         {}
            <MI 18c06  LSR.B   #0x7,D0>                                         {}
            <MI 18c08  BEQ     0x18c3e>                                         {}
        <POP 18c0a-18c3e Naked>                              Σ0         ↓
            <Blob 0x18c0a [26] @>                            Δ-26               {[«26""»]}
            <MI 18c1c  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[«26""»]|[4, '(A6+0x14)']}
            <POP 18c20-18c22 StackAdj>                       Δ-4                {[«26""»]|[4, '(A6+0x14)']|[-4-]}
            <Lit 0x18c22 25>                                                    {[«26""»]|[4, '(A6+0x14)']|[$$Parameter direction error]}
            <Call 0x18c36 0x185fa>                                              {[«26""»]|[4, '(A6+0x14)']|[$$Parameter direction error]}
            <POP 18c3a-18c3e StackAdj>                       Δ+34               {}
        <POP 18c3e-18c5a Naked>                              Σ0 Δ-8     ↓ ←0x18bfc
            <MI 18c3e  CLR.L   D0>                                              {}
            <MI 18c40  MOVE.B  (A1+0x1),D0>                                     {}
            <MI 18c44  MOVE.L  D0,D6>                                           {}
            <MI 18c46  MOVE.L  (A1+0x2),(A0+0xf4)>                              {}
            <MI 18c4c  MOVEA.L 0x20028,A0>                                      {}
            <MI 18c52  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 18c54  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, 'A0']|[4, '(A6+0x8)']}
            <MI 18c58  MOVEQ.L #0x00,D7>                                        {[4, 'A0']|[4, '(A6+0x8)']}
        <POP 18c5a-18c5e Naked>                              Σ-8        ↓ →0x18c7a ←0x18c5e
            <MI 18c5a  CMP.L   (A7),D7>                                         {[-8-]}
            <MI 18c5c  BGT     0x18c7a>                                         {[-8-]}
        <POP 18c5e-18c7a Naked>                              Σ-8        ↓ →0x18c5a
            <MI 18c5e  MOVEA.L (A6+0x10),A0>                                    {[-8-]}
            <MI 18c62  MOVE.L  D7,D0>                                           {[-8-]}
            <MI 18c64  SUB.L   (A6+0xc),D0>                                     {[-8-]}
            <MI 18c68  MOVE.L  D6,D1>                                           {[-8-]}
            <MI 18c6a  ADD.L   D7,D1>                                           {[-8-]}
            <MI 18c6c  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 18c70  MOVE.B  (A1+D1.L-#0xc),(A0+D0.L)>                        {[-8-]}
            <MI 18c76  ADDQ.L  #0x1,D7>                                         {[-8-]}
            <MI 18c78  BVC     0x18c5a>                                         {[-8-]}
        <POP 18c7a-18c7c Naked>                              Σ-8 Δ+8    ↓ ←0x18c5a
            <POP 18c7a-18c7c StackAdj>                       Δ+8                {}
        <POP 18c7c-18c84 Epilogue>                           Σ0         

0x18c84


@ 18c84
_ExpOutputFlag(exp : Pointer; VAR status : Bool)
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 18c84-18d16 Body>                                              
        <POP 18c84-18c9a Prologue>                           Σ0         ↓
        <POP 18c9a-18ca8 Naked>                              Σ0         ↓ →0x18cdc
            <MI 18c9a  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 18c9e  MOVEA.L (A0+0xf4),A1>                                    {}
            <MI 18ca2  MOVE.B  (A1),D0>                                         {}
            <MI 18ca4  LSR.B   #0x7,D0>                                         {}
            <MI 18ca6  BEQ     0x18cdc>                                         {}
        <POP 18ca8-18cdc Naked>                              Σ0         ↓
            <Blob 0x18ca8 [26] @>                            Δ-26               {[«26""»]}
            <MI 18cba  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[«26""»]|[4, '(A6+0xc)']}
            <POP 18cbe-18cc0 StackAdj>                       Δ-4                {[«26""»]|[4, '(A6+0xc)']|[-4-]}
            <Lit 0x18cc0 25>                                                    {[«26""»]|[4, '(A6+0xc)']|[$$Parameter direction error]}
            <Call 0x18cd4 0x185fa>                                              {[«26""»]|[4, '(A6+0xc)']|[$$Parameter direction error]}
            <POP 18cd8-18cdc StackAdj>                       Δ+34               {}
        <POP 18cdc-18d0c Naked>                              Σ0         ↓ →0x18d0e ←0x18c9a
            <MI 18cdc  CLR.L   D0>                                              {}
            <MI 18cde  MOVE.B  (A1),D0>                                         {}
            <MI 18ce0  LSL.B   #0x2,D0>                                         {}
            <MI 18ce2  LSR.B   #0x2,D0>                                         {}
            <MI 18ce4  MOVE.L  D0,D7>                                           {}
            <MI 18ce6  MOVE.L  (A1+0x2),(A0+0xf4)>                              {}
            <MI 18cec  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 18cf0  CLR.B   (A0)>                                            {}
            <MI 18cf2  MOVEA.L 0x20028,A1>                                      {}
            <MI 18cf8  MOVE.L  D7,D0>                                           {}
            <MI 18cfa  ASL.L   #0x1,D0>                                         {}
            <MI 18cfc  LEA.L   0x18462,A2>                                      {}
            <MI 18d00  CLR.L   D1>                                              {}
            <MI 18d02  MOVE.B  (A1+0x2),D1>                                     {}
            <MI 18d06  AND.W   (A2+D0.L),D1>                                    {}
            <MI 18d0a  BEQ     0x18d0e>                                         {}
        <POP 18d0c-18d0e Naked>                              Σ0         ↓
            <MI 18d0c  ADDQ.B  #0x1,(A0)>                                       {}
        <POP 18d0e-18d16 Epilogue>                           Σ0         ←0x18cdc

0x18d16


@ 18d16
_ExpXmit(adr : Byte; b : Pointer)
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @>
    <POP 18d16-18d54 Body>                                              
        <POP 18d16-18d2c Prologue>                           Σ0         ↓
        <POP 18d2c-18d4c Naked>                              Σ0         ↓
            <MI 18d2c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 18d30  MOVE.B  (A6+0xc),(A0+0x1)>                               {}
            <MI 18d36  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Const 0x18d3a 0x5.2>                            Δ-2                {[4, '(A6+0x8)']|[#5]}
            <Pointer.fp 0x18d3e <LVAR -0x002 @>>             Δ-4                {[4, '(A6+0x8)']|[#5]|[@@-2]}
            <Call 0x18d42 0x1022a>                                              {[4, '(A6+0x8)']|[#5]|[@@-2]}
                KC15_DiagBus(a : Word; b : Long) : Byte
            <POP 18d48-18d4c StackAdj>                       Δ+10               {}
        <POP 18d4c-18d54 Epilogue>                           Σ0         

0x18d54


@ 18d54
_DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
        <LVAR  0x014 1(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 2(r)>
        <LVAR -0x005 1(w)>
        <LVAR -0x006 @>
    <POP 18d54-18dea Body>                                              
        <POP 18d54-18d6a Prologue>                           Σ0         ↓
        <POP 18d6a-18d6e RegCacheLoad>                       Σ0         ↓
        <POP 18d6e-18d7e Naked>                              Σ0         ↓ →0x18d94
            <MI 18d6e  MOVE.B  (A6+0x14),D0>                                    {}
            <MI 18d72  EXTB.W  D0>                                              {}
            <MI 18d74  LEA.L   0x1844a,A0>                                      {}
            <MI 18d78  TST.B   (A0+D0.W)>                                       {}
            <MI 18d7c  BNE     0x18d94>                                         {}
        <POP 18d7e-18d94 Naked>                              Σ0         →0x18de2
            <MI 18d7e  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 18d82  CLR.B   (A0)>                                            {}
            <MI 18d84  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 18d88  MOVE.B  #0x01,(A0)>                                      {}
            <MI 18d8c  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 18d90  CLR.B   (A0)>                                            {}
            <MI 18d92  BRA     0x18de2>                                         {}
        <POP 18d94-18dd0 Naked>                              Σ0         ↓ →0x18dd2 ←0x18d6e
            <MI 18d94  MOVE.B  D0,(A6-0x5)>                                     {}
            <MI 18d98  LEA.L   (A6-0x6),A0>                                     {}
            <MI 18d9c  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 18d9e  CLR.W   -(A7)>                        Δ-2                {[4, 'A0']|[#0]}
            <Pointer.fp 0x18da0 <LVAR -0x004 @ 2(r)>>        Δ-4                {[4, 'A0']|[#0]|[@@-4]}
            <Call 0x18da2 0x1022a>                                              {[4, 'A0']|[#0]|[@@-4]}
                KC15_DiagBus(a : Word; b : Long) : Byte
            <POP 18da8-18dac StackAdj>                       Δ+10               {}
            <MI 18dac  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 18db0  MOVE.W  (A6-0x4),D0>                                     {}
            <MI 18db2  ANDI.W  #0x000f,D0>                                      {}
            <MI 18db6  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 18db8  CLR.L   D0>                                              {[2, 'D0']}
            <MI 18dba  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <POP 0x18dbc LimitCheck 0x0 ≤ D0 ≤ 0x9>                             {}
            <MI 18dc0  MOVE.B  D0,(A0)>                                         {}
            <MI 18dc2  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 18dc6  CLR.B   (A0)>                                            {}
            <MI 18dc8  MOVE.W  (A6-0x4),D0>                                     {}
            <MI 18dca  ANDI.W  #0x0040,D0>                                      {}
            <MI 18dce  BNE     0x18dd2>                                         {}
        <POP 18dd0-18dd2 Naked>                              Σ0         ↓
            <MI 18dd0  ADDQ.B  #0x1,(A0)>                                       {}
        <POP 18dd2-18de0 Naked>                              Σ0         ↓ →0x18de2 ←0x18d94
            <MI 18dd2  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 18dd6  CLR.B   (A0)>                                            {}
            <MI 18dd8  MOVE.W  (A6-0x4),D0>                                     {}
            <MI 18dda  ANDI.W  #0x0080,D0>                                      {}
            <MI 18dde  BEQ     0x18de2>                                         {}
        <POP 18de0-18de2 Naked>                              Σ0         ↓
            <MI 18de0  ADDQ.B  #0x1,(A0)>                                       {}
        <POP 18de2-18dea Epilogue>                           Σ0         ←0x18d7e ←0x18dd2

0x18dea


@ 18dea
_DiProcCmd(board : Byte; cmd : Byte)
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x002 @>
        <LVAR -0x003 1(w)>
        <LVAR -0x004 @>
    <POP 18dea-18e34 Body>                                              
        <POP 18dea-18e00 Prologue>                           Σ0         ↓
        <POP 18e00-18e2c Naked>                              Σ0         ↓
            <MI 18e00  MOVE.B  (A6+0xa),(A6-0x3)>                               {}
            <MI 18e06  LEA.L   (A6-0x4),A0>                                     {}
            <MI 18e0a  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 18e0c  MOVE.B  (A6+0x8),D0>                                     {[4, 'A0']}
            <MI 18e10  EXTB.W  D0>                                              {[4, 'A0']}
            <MI 18e12  LEA.L   0x18466,A0>                                      {[4, 'A0']}
            <MI 18e16  MOVE.B  (A0+D0.W),D1>                                    {[4, 'A0']}
            <MI 18e1a  EXTB.W  D1>                                              {[4, 'A0']}
            <MI 18e1c  MOVE.W  D1,-(A7)>                     Δ-2                {[4, 'A0']|[2, 'D1']}
            <Pointer.fp 0x18e1e <LVAR -0x002 @>>             Δ-4                {[4, 'A0']|[2, 'D1']|[@@-2]}
            <Call 0x18e22 0x1022a>                                              {[4, 'A0']|[2, 'D1']|[@@-2]}
                KC15_DiagBus(a : Word; b : Long) : Byte
            <POP 18e28-18e2c StackAdj>                       Δ+10               {}
        <POP 18e2c-18e34 Epilogue>                           Σ0         

0x18e34


@ 18e34
_ExpUpload(adr: Byte; ptr: Pointer; VAR status : Byte)
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @ 2(r)>
    <POP 18e34-18ede Body>                                              
        <POP 18e34-18e4a Prologue>                           Σ0         ↓
        <POP 18e4a-18e5a Naked>                              Σ0         ↓ →0x18e62
            <MI 18e4a  MOVE.B  (A6+0x10),D0>                                    {}
            <MI 18e4e  EXTB.W  D0>                                              {}
            <MI 18e50  LEA.L   0x1844a,A0>                                      {}
            <MI 18e54  TST.B   (A0+D0.W)>                                       {}
            <MI 18e58  BNE     0x18e62>                                         {}
        <POP 18e5a-18e62 Naked>                              Σ0         →0x18ed6
            <MI 18e5a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 18e5e  CLR.B   (A0)>                                            {}
            <MI 18e60  BRA     0x18ed6>                                         {}
        <POP 18e62-18e6e Naked>                              Σ0         ↓ →0x18ed6 ←0x18e4a
            <MI 18e62  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 18e66  MOVE.B  (A0+0x11c),D1>                                   {}
            <MI 18e6a  LSR.B   #0x7,D1>                                         {}
            <MI 18e6c  BEQ     0x18ed6>                                         {}
        <POP 18e6e-18e88 Naked>                              Σ0         ↓ →0x18e8e
            <MI 18e6e  MOVEA.L 0x20028,A1>                                      {}
            <MI 18e74  MOVE.B  D0,(A1+0x1)>                                     {}
            <MI 18e78  MOVE.B  (A0+0x11a),(A1+0x3)>                             {}
            <MI 18e7e  MOVE.B  (A0+0x11a),D0>                                   {}
            <MI 18e82  CMP.B   (A0+0x11b),D0>                                   {}
            <MI 18e86  BLS     0x18e8e>                                         {}
        <POP 18e88-18e8e Naked>                              Σ0         →0x18ea6
            <MI 18e88  CLR.B   (A1+0x2)>                                        {}
            <MI 18e8c  BRA     0x18ea6>                                         {}
        <POP 18e8e-18ea6 Naked>                              Σ0         ↓ ←0x18e6e
            <MI 18e8e  CLR.L   D1>                                              {}
            <MI 18e90  MOVE.B  (A0+0x11b),D1>                                   {}
            <MI 18e94  CLR.L   D2>                                              {}
            <MI 18e96  MOVE.B  D0,D2>                                           {}
            <MI 18e98  NEG.W   D2>                                              {}
            <MI 18e9a  ADD.W   D1,D2>                                           {}
            <MI 18e9c  ADDQ.W  #0x1,D2>                                         {}
            <POP 0x18e9e LimitCheck 0x0 ≤ D2 ≤ 0xff>                            {}
            <MI 18ea2  MOVE.B  D2,(A1+0x2)>                                     {}
        <POP 18ea6-18ed6 Naked>                              Σ0         ↓ ←0x18e88
            <Blob 0x18ea6 [4] 0x20028>                       Δ-4                {[«4»]}
            <Const 0x18eac 0x1.2>                            Δ-2                {[«4»]|[#1]}
            <Pointer.fp 0x18eb0 <LVAR -0x002 @ 2(r)>>        Δ-4                {[«4»]|[#1]|[@@-2]}
            <Call 0x18eb4 0x1022a>                                              {[«4»]|[#1]|[@@-2]}
                KC15_DiagBus(a : Word; b : Long) : Byte
            <POP 18eba-18ebe StackAdj>                       Δ+10               {}
            <MI 18ebe  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 18ec2  MOVE.W  (A6-0x2),D0>                                     {}
            <MI 18ec6  ANDI.W  #0x000f,D0>                                      {}
            <MI 18eca  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <MI 18ecc  CLR.L   D0>                                              {[2, 'D0']}
            <MI 18ece  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <POP 0x18ed0 LimitCheck 0x0 ≤ D0 ≤ 0x9>                             {}
            <MI 18ed4  MOVE.B  D0,(A0)>                                         {}
        <POP 18ed6-18ede Epilogue>                           Σ0         ←0x18e5a ←0x18e62

0x18ede


@ 18ede
_ExpClose(exp : Pointer)
        <LVAR  0x008 4(r)>
        <LVAR -0x008 @ 4(rw)>
    <POP 18ede-18fe4 Body>                                   Δ-4        
        <POP 18ede-18ef4 Prologue>                           Σ0         ↓
        <POP 18ef4-18efa RegCacheLoad>                       Σ0         ↓
        <POP 18efa-18f06 Naked>                              Σ0 Δ-4     ↓
            <MI 18efa  CLR.L   D0>                                              {}
            <MI 18efc  MOVE.W  0x20026,D0>                                      {}
            <MI 18f02  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 18f04  MOVEQ.L #0x00,D7>                                        {[4, 'D0']}
        <POP 18f06-18f0a Naked>                              Σ-4        ↓ →0x18f3e ←0x18f3a
            <MI 18f06  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 18f08  BGT     0x18f3e>                                         {[-4-]}
        <POP 18f0a-18f2e Naked>                              Σ-4        ↓ →0x18f3a
            <MI 18f0a  MOVE.L  D7,D4>                                           {[-4-]}
            <MI 18f0c  MOVEQ.L #0x06,D3>                                        {[-4-]}
            <Call 0x18f0e 0x107ea>                                              {[-4-]}
                _?muls_d3_d4
            <MI 18f14  LEA.L   0x0,A0>                                          {[-4-]}
            <MI 18f18  LEA.L   (A0+D4.L),A0>                                    {[-4-]}
            <MI 18f1c  MOVEA.L A0,A1>                                           {[-4-]}
            <MI 18f1e  ADDA.L  #0x2002e,A1>                                     {[-4-]}
            <MI 18f24  MOVEA.L (A6+0x8),A2>                                     {[-4-]}
            <MI 18f28  MOVEA.L (A1),A1>                                         {[-4-]}
            <MI 18f2a  CMPA.L  (A2),A1>                                         {[-4-]}
            <MI 18f2c  BNE     0x18f3a>                                         {[-4-]}
        <POP 18f2e-18f3a Naked>                              Σ-4 Δ+4    →0x18f6e
            <MI 18f2e  ADDA.L  #0x2002c,A0>                                     {[-4-]}
            <MI 18f34  CLR.B   (A0)>                                            {[-4-]}
            <POP 18f36-18f38 StackAdj>                       Δ+4                {}
            <MI 18f38  BRA     0x18f6e>                                         {}
        <POP 18f3a-18f3e Naked>                              Σ-4        ↓ →0x18f06 ←0x18f0a
            <MI 18f3a  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 18f3c  BVC     0x18f06>                                         {[-4-]}
        <POP 18f3e-18f6e Naked>                              Σ-4 Δ+4    ↓ ←0x18f06
            <POP 18f3e-18f40 StackAdj>                       Δ+4                {}
            <Blob 0x18f40 [38] @>                            Δ-38               {[«38""»]}
            <Const 0x18f4c 0x2.2>                            Δ-2                {[«38""»]|[#2]}
            <POP 18f50-18f52 StackAdj>                       Δ-4                {[«38""»]|[#2]|[-4-]}
            <Lit 0x18f52 38>                                                    {[«38""»]|[#2]|[$$Experiment CLOSE with invalid pointer.]}
            <Call 0x18f64 0x14e0a>                                              {[«38""»]|[#2]|[$$Experiment CLOSE with invalid pointer.]}
                _PopProgram(status : Byte; msg : String)
            <POP 18f6a-18f6e StackAdj>                       Δ+44               {}
        <POP 18f6e-18f7c Naked>                              Σ0         ↓ →0x18fdc ←0x18f2e
            <MI 18f6e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 18f72  MOVE.L  #0x01,(A0)>                                      {}
            <MI 18f74  TST.B   0x20024>                                         {}
            <MI 18f7a  BEQ     0x18fdc>                                         {}
        <POP 18f7c-18fdc Naked>                              Σ0         ↓
            <Blob 0x18f7c [6] @>                             Δ-6                {[«6""»]}
            <POP 18f8c-18f8e StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <Lit 0x18f8e 5>                                                     {[«6""»]|[$$  [2K]}
            <MI 18fa0  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«6""»]}
            <POP 18fa2-18fa4 StackAdj>                       Δ+6                {}
            <MI 18fa4  MOVEA.L (A6-0x8),A0>                                     {}
            <MI 18fa6  MOVE.B  #0x0d,(A0+0x2)>                                  {}
            <MI 18fac  MOVE.B  #0x1b,(A0+0x3)>                                  {}
            <POP 18fb2-18fb4 StackAdj>                       Δ-6                {[-6-]}
            <Call 0x18fb4 0x15b1c>                                              {[-6-]}
                _GetConsoleConfig() : Long
            <MI 18fba  MOVE.L  (A7)+,D0>                     Δ+4                {[-2-]}
            <POP 0x18fbc LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {[-2-]}
            <MI 18fc6  MOVE.W  D0,(A7)>                                         {[2, 'D0']}
            <MI 18fc8  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[2, 'D0']|[4, '(A6-0x8)']}
            <Call 0x18fca 0x1020a>                                              {[2, 'D0']|[4, '(A6-0x8)']}
                KC05_Write_Console_String(port : Word ; str : String)
            <POP 18fd0-18fd2 StackAdj>                       Δ+6                {}
            <Pointer.fp 0x18fd2 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x18fd4 0x10d76>                                              {[@@-8]}
                _FreeString(VAR a : String)
            <POP 18fda-18fdc StackAdj>                       Δ+4                {}
        <POP 18fdc-18fe4 Epilogue>                           Σ0         ←0x18f6e

0x18fe4


@ 18fe4
_BoardName(address : B) : String
        <LVAR  0x00a 4(w)>
        <LVAR  0x008 1(r)>
    <POP 18fe4-19096 Body>                                              
        <POP 18fe4-18ffa Prologue>                           Σ0         ↓
        <POP 18ffa-19008 RegCacheLoad>                       Σ0         ↓
        <POP 19008-19012 Naked>                              Σ0         ↓ →0x1903a
            <MI 19008  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 1900c  CMPI.B  #0x04,D0>                                        {}
            <MI 19010  BNE     0x1903a>                                         {}
        <POP 19012-1903a Naked>                              Σ0         →0x1908e
            <POP 19012-19014 StackAdj>                       Δ-4                {[-4-]}
            <POP 19014-19015 StackAdj>                       Δ+2                {[-2-]}
            <Blob 0x19015 [2] @>                             Δ-2                {[-2-]|[«2""»]}
            <MI 19018  MOVE.B  0x18315,(A7+0x1)>                                {[-2-]|[«2""»]}
            <MI 1901e  MOVE.B  0x18316,(A7+0x2)>                                {[-2-]|[«2""»]}
            <POP 19024-19026 StackAdj>                       Δ-4                {[-2-]|[«2""»]|[-4-]}
            <Lit 0x19026>                                                       {[-2-]|[«2""»]|[$$…]}
                <Pointer.sp 0x19026 4>                       Δ-4        
                <Const 0x1902a 0x1.2>                        Δ-2        
                <Const 0x1902c 0x3.2>                        Δ-2        
                <Call 0x19030 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 19032-19034 StackAdj>                   Δ+8        
            <MI 19034  MOVE.L  (A7)+,(A6+0xa)>               Δ+4                {[-2-]|[«2""»]}
            <POP 19036-19038 StackAdj>                       Δ+4                {}
            <MI 19038  BRA     0x1908e>                                         {}
        <POP 1903a-1903e Naked>                              Σ0         ↓ →0x19064 ←0x19008
            <MI 1903a  CMP.B   #0x0a,D0>                                        {}
            <MI 1903c  BNE     0x19064>                                         {}
        <POP 1903e-19064 Naked>                              Σ0         →0x1908e
            <Blob 0x1903e [8] @>                             Δ-8                {[«8""»]}
            <POP 1904e-19050 StackAdj>                       Δ-4                {[«8""»]|[-4-]}
            <Lit 0x19050 7>                                                     {[«8""»]|[$$T V I Q]}
            <MI 1905e  MOVE.L  (A7)+,(A6+0xa)>               Δ+4                {[«8""»]}
            <POP 19060-19062 StackAdj>                       Δ+8                {}
            <MI 19062  BRA     0x1908e>                                         {}
        <POP 19064-1908e Naked>                              Σ0         ↓ ←0x1903a
            <MI 19064  EXTB.W  D0>                                              {}
            <MI 19066  MULS.W  #0x0a,D0>                                        {}
            <MI 19068  LEA.L   0x1846b,A0>                                      {}
            <Blob 0x1906c [10] (A0+D0.W)>                    Δ-10               {[«10»]}
            <POP 1907c-1907e StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x1907e>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x1907e 4>                       Δ-4        
                <Const 0x19082 0x1.2>                        Δ-2        
                <Const 0x19084 0xa.2>                        Δ-2        
                <Call 0x19086 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 19088-1908a StackAdj>                   Δ+8        
            <MI 1908a  MOVE.L  (A7)+,(A6+0xa)>               Δ+4                {[«10»]}
            <POP 1908c-1908e StackAdj>                       Δ+10               {}
        <POP 1908e-19096 Epilogue>                           Σ0         ←0x19012 ←0x1903e

0x19096


@ 19096
_ExpStatus2Text(status.B, &String)
        <LVAR  0x00a 4(w)>
        <LVAR  0x008 1(r)>
    <POP 19096-190ec Body>                                              
        <POP 19096-190ac Prologue>                           Σ0         ↓
        <POP 190ac-190ae RegCacheLoad>                       Σ0         ↓
        <POP 190ae-190e4 Naked>                              Σ0         ↓
            <MI 190ae  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 190b2  EXTB.W  D0>                                              {}
            <MI 190b4  MULS.W  #0x0a,D0>                                        {}
            <MI 190b6  LEA.L   0x1850b,A0>                                      {}
            <Blob 0x190ba [10] (A0+D0.W)>                    Δ-10               {[«10»]}
            <POP 190ca-190cc StackAdj>                       Δ-4                {[«10»]|[-4-]}
            <Lit 0x190cc>                                                       {[«10»]|[$$…]}
                <Pointer.sp 0x190cc 4>                       Δ-4        
                <Const 0x190d0 0x1.2>                        Δ-2        
                <Const 0x190d4 0xa.2>                        Δ-2        
                <Call 0x190d6 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 190dc-190de StackAdj>                   Δ+8        
            <MI 190de  MOVE.L  (A7)+,(A6+0xa)>               Δ+4                {[«10»]}
            <POP 190e2-190e4 StackAdj>                       Δ+10               {}
        <POP 190e4-190ec Epilogue>                           Σ0         

0x190ec


@ 190ec
_?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
        <LVAR  0x020 1(rw)>
        <LVAR  0x01c 4(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 190ec-1915c Body>                                   Δ-4        
        <POP 190ec-19102 Prologue>                           Σ0         ↓
        <POP 19102-1910c Naked>                              Σ0         ↓ →0x19154
            <MI 19102  CLR.B   (A6+0x20)>                                       {}
            <MI 19106  TST.L   (A6+0x18)>                                       {}
            <MI 1910a  BNE     0x19154>                                         {}
        <POP 1910c-19112 Naked>                              Σ0         ↓ →0x19154
            <MI 1910c  TST.L   (A6+0xc)>                                        {}
            <MI 19110  BNE     0x19154>                                         {}
        <POP 19112-1911c Naked>                              Σ0         ↓ →0x19154
            <MI 19112  MOVE.L  (A6+0x14),D0>                                    {}
            <MI 19116  CMP.L   (A6+0x8),D0>                                     {}
            <MI 1911a  BNE     0x19154>                                         {}
        <POP 1911c-19122 Naked>                              Σ0 Δ-4     ↓
            <MI 1911c  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[4, '(A6+0x14)']}
            <MI 19120  MOVEQ.L #0x00,D7>                                        {[4, '(A6+0x14)']}
        <POP 19122-19126 Naked>                              Σ-4        ↓ →0x1914c ←0x19148
            <MI 19122  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 19124  BGT     0x1914c>                                         {[-4-]}
        <POP 19126-19144 Naked>                              Σ-4        ↓ →0x19148
            <MI 19126  MOVEA.L (A6+0x1c),A0>                                    {[-4-]}
            <MI 1912a  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 1912c  SUB.L   (A6+0x18),D0>                                    {[-4-]}
            <MI 19130  MOVEA.L (A6+0x10),A1>                                    {[-4-]}
            <MI 19134  MOVE.L  D7,D1>                                           {[-4-]}
            <MI 19136  SUB.L   (A6+0xc),D1>                                     {[-4-]}
            <MI 1913a  MOVE.B  (A0+D0.L),D0>                                    {[-4-]}
            <MI 1913e  CMP.B   (A1+D1.L),D0>                                    {[-4-]}
            <MI 19142  BEQ     0x19148>                                         {[-4-]}
        <POP 19144-19148 Naked>                              Σ-4 Δ+4    →0x19154
            <POP 19144-19146 StackAdj>                       Δ+4                {}
            <MI 19146  BRA     0x19154>                                         {}
        <POP 19148-1914c Naked>                              Σ-4        ↓ →0x19122 ←0x19126
            <MI 19148  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 1914a  BVC     0x19122>                                         {[-4-]}
        <POP 1914c-19154 Naked>                              Σ-4 Δ+4    ↓ ←0x19122
            <POP 1914c-1914e StackAdj>                       Δ+4                {}
            <MI 1914e  MOVE.B  #0x01,(A6+0x20)>                                 {}
        <POP 19154-1915c Epilogue>                           Σ0         ←0x19102 ←0x1910c ←0x19112 ←0x19144

0x1915c


@ 1915c
_FSCALL_104ae
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 1915c-191c8 Body>                                              
        <POP 1915c-19172 Prologue>                           Σ0         ↓
        <POP 19172-19174 Naked>                              Σ0         ↓
            <MI 19172  MOVEQ.L #0x00,D7>                                        {}
        <POP 19174-19198 Naked>                              Σ0         ↓ →0x19174 ←0x19174
            <MI 19174  MOVE.L  D7,D0>                                           {}
            <MI 19176  ASL.L   #0x1,D0>                                         {}
            <MI 19178  MOVE.W  (A6+D0.L+#0x14),D1>                              {}
            <MI 1917c  LSR.W   #0x8,D1>                                         {}
            <MI 1917e  MOVE.B  D1,(A6+D0.L-#0xc)>                               {}
            <MI 19182  MOVE.W  (A6+D0.L+#0x14),D1>                              {}
            <MI 19186  ANDI.W  #0x00ff,D1>                                      {}
            <MI 1918a  MOVE.B  D1,(A6+D0.L-#0xb)>                               {}
            <MI 1918e  ADDQ.L  #0x1,D7>                                         {}
            <MI 19190  CMPI.L  #0x00000003,D7>                                  {}
            <MI 19196  BLE     0x19174>                                         {}
        <POP 19198-1919e Naked>                              Σ0 Δ-4     ↓
            <MI 19198  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 1919c  MOVEQ.L #0x00,D7>                                        {[4, '(A6+0x8)']}
        <POP 1919e-191a2 Naked>                              Σ-4        ↓ →0x191be ←0x191a2
            <MI 1919e  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 191a0  BGT     0x191be>                                         {[-4-]}
        <POP 191a2-191be Naked>                              Σ-4        ↓ →0x1919e
            <MI 191a2  MOVEA.L (A6+0x10),A0>                                    {[-4-]}
            <MI 191a6  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 191a8  SUB.L   (A6+0xc),D0>                                     {[-4-]}
            <MI 191ac  MOVEQ.L #0x07,D1>                                        {[-4-]}
            <MI 191ae  SUB.L   (A6+0x8),D1>                                     {[-4-]}
            <MI 191b2  ADD.L   D7,D1>                                           {[-4-]}
            <MI 191b4  MOVE.B  (A6+D1.L-#0xc),(A0+D0.L)>                        {[-4-]}
            <MI 191ba  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 191bc  BVC     0x1919e>                                         {[-4-]}
        <POP 191be-191c0 Naked>                              Σ-4 Δ+4    ↓ ←0x1919e
            <POP 191be-191c0 StackAdj>                       Δ+4                {}
        <POP 191c0-191c8 Epilogue>                           Σ0         

0x191c8


@ 191c8
_?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x005 1(r)>
        <LVAR -0x006 1(r)>
        <LVAR -0x007 1(r)>
        <LVAR -0x008 1(r)>
        <LVAR -0x009 1(r)>
        <LVAR -0x00a 1(r)>
        <LVAR -0x00b 1(r)>
        <LVAR -0x00c 1(r)>
    <POP 191c8-19270 Body>                                              
        <POP 191c8-191de Prologue>                           Σ0         ↓
        <POP 191de-191e0 Naked>                              Σ0         ↓
            <MI 191de  MOVEQ.L #0x00,D7>                                        {}
        <POP 191e0-191ee Naked>                              Σ0         ↓ →0x191e0 ←0x191e0
            <MI 191e0  CLR.B   (A6+D7.L-#0xc)>                                  {}
            <MI 191e4  ADDQ.L  #0x1,D7>                                         {}
            <MI 191e6  CMPI.L  #0x00000007,D7>                                  {}
            <MI 191ec  BLE     0x191e0>                                         {}
        <POP 191ee-191f4 Naked>                              Σ0 Δ-4     ↓
            <MI 191ee  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 191f2  MOVEQ.L #0x00,D7>                                        {[4, '(A6+0xc)']}
        <POP 191f4-191f8 Naked>                              Σ-4        ↓ →0x19214 ←0x191f8
            <MI 191f4  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 191f6  BGT     0x19214>                                         {[-4-]}
        <POP 191f8-19214 Naked>                              Σ-4        ↓ →0x191f4
            <MI 191f8  MOVEQ.L #0x07,D0>                                        {[-4-]}
            <MI 191fa  SUB.L   (A6+0xc),D0>                                     {[-4-]}
            <MI 191fe  ADD.L   D7,D0>                                           {[-4-]}
            <MI 19200  MOVEA.L (A6+0x14),A0>                                    {[-4-]}
            <MI 19204  MOVE.L  D7,D1>                                           {[-4-]}
            <MI 19206  SUB.L   (A6+0x10),D1>                                    {[-4-]}
            <MI 1920a  MOVE.B  (A0+D1.L),(A6+D0.L-#0xc)>                        {[-4-]}
            <MI 19210  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 19212  BVC     0x191f4>                                         {[-4-]}
        <POP 19214-19268 Naked>                              Σ-4 Δ+4    ↓ ←0x191f4
            <POP 19214-19216 StackAdj>                       Δ+4                {}
            <MI 19216  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1921a  CLR.L   D0>                                              {}
            <MI 1921c  MOVE.B  (A6-0xc),D0>                                     {}
            <MI 19220  ASL.W   #0x8,D0>                                         {}
            <MI 19222  CLR.L   D1>                                              {}
            <MI 19224  MOVE.B  (A6-0xb),D1>                                     {}
            <MI 19228  ADD.W   D0,D1>                                           {}
            <MI 1922a  MOVE.W  D1,(A0)>                                         {}
            <MI 1922c  CLR.L   D0>                                              {}
            <MI 1922e  MOVE.B  (A6-0xa),D0>                                     {}
            <MI 19232  ASL.W   #0x8,D0>                                         {}
            <MI 19234  CLR.L   D1>                                              {}
            <MI 19236  MOVE.B  (A6-0x9),D1>                                     {}
            <MI 1923a  ADD.W   D0,D1>                                           {}
            <MI 1923c  MOVE.W  D1,(A0+0x2)>                                     {}
            <MI 19240  CLR.L   D0>                                              {}
            <MI 19242  MOVE.B  (A6-0x8),D0>                                     {}
            <MI 19246  ASL.W   #0x8,D0>                                         {}
            <MI 19248  CLR.L   D1>                                              {}
            <MI 1924a  MOVE.B  (A6-0x7),D1>                                     {}
            <MI 1924e  ADD.W   D0,D1>                                           {}
            <MI 19250  MOVE.W  D1,(A0+0x4)>                                     {}
            <MI 19254  CLR.L   D0>                                              {}
            <MI 19256  MOVE.B  (A6-0x6),D0>                                     {}
            <MI 1925a  ASL.W   #0x8,D0>                                         {}
            <MI 1925c  CLR.L   D1>                                              {}
            <MI 1925e  MOVE.B  (A6-0x5),D1>                                     {}
            <MI 19262  ADD.W   D0,D1>                                           {}
            <MI 19264  MOVE.W  D1,(A0+0x6)>                                     {}
        <POP 19268-19270 Epilogue>                           Σ0         

0x19270


@ 19270
_ExpRun(a: Bool; adr: Byte; b: Pointer)
        <LVAR  0x00e 1(r)>
        <LVAR  0x00c 1(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x003 @ 1(r)>
        <LVAR -0x004 @>
    <POP 19270-194e8 Body>                                   Δ+24       
        <POP 19270-19286 Prologue>                           Σ0         ↓
        <POP 19286-1929e RegCacheLoad>                       Σ0         ↓
        <POP 1929e-192ae Naked>                              Σ0         ↓ →0x192b6
            <MI 1929e  MOVE.B  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <MI 192a0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[2, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Call 0x192a2 0x18d16>                                              {[2, '(A6+0xc)']|[4, '(A6+0x8)']}
                _ExpXmit(adr : Byte; b : Pointer)
            <POP 192a6-192a8 StackAdj>                       Δ+6                {}
            <MI 192a8  TST.B   (A6+0xe)>                                        {}
            <MI 192ac  BNE     0x192b6>                                         {}
        <POP 192ae-192b6 Naked>                              Σ0         →0x192bc
            <MI 192ae  MOVE.L  #0x11170,D7>                                     {}
            <MI 192b4  BRA     0x192bc>                                         {}
        <POP 192b6-192bc Naked>                              Σ0         ↓ ←0x1929e
            <MI 192b6  MOVE.L  #0x493e0,D7>                                     {}
        <POP 192bc-192d8 Naked>                              Σ0         ↓ →0x193a6 ←0x192ae
            <MI 192bc  MOVE.B  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <Pointer.fp 0x192be <LVAR -0x002 @ 1(r)>>        Δ-4                {[2, '(A6+0xc)']|[@@-2]}
            <Pointer.fp 0x192c2 <LVAR -0x004 @>>             Δ-4                {[2, '(A6+0xc)']|[@@-2]|[@@-4]}
            <Pointer.fp 0x192c6 <LVAR -0x003 @ 1(r)>>        Δ-4                {[2, '(A6+0xc)']|[@@-2]|[@@-4]|[@@-3]}
            <Call 0x192ca 0x18d54>                                              {[2, '(A6+0xc)']|[@@-2]|[@@-4]|[@@-3]}
                _DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 192ce-192d0 StackAdj>                       Δ+14               {}
            <MI 192d0  TST.B   (A6-0x3)>                                        {}
            <MI 192d4  BNE     0x193a6>                                         {}
        <POP 192d8-19386 Naked>                              Σ0 Δ-24    ↓
            <Call 0x192d8 0x153fc>                                              {}
                _WriteConsoleCrLf(void)
            <Blob 0x192de [44] @>                            Δ-44               {[«44""»]}
            <POP 192f0-192f2 StackAdj>                       Δ-4                {[«44""»]|[-4-]}
            <Lit 0x192f2 43>                                                    {[«44""»]|[$$Experiment error: got a NAK from a Download]}
            <Call 0x19300 0x154a2>                                              {[«44""»]|[$$Experiment error: got a NAK from a Download]}
                _WriteConsoleStringCrLf(str : String)
            <POP 19306-1930a StackAdj>                       Δ+44               {[-4-]}
            <POP 1930a-1930b StackAdj>                       Δ+4                {}
            <Blob 0x1930b [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x1930e [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x19312 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x19316 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 1931a  MOVEA.L (A6+0x8),A0>                                     {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x1931c [30] (A0+0xfc)>                    Δ-30               {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«30»]}
            <Blob 0x1932c [10] @>                            Δ-10               {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«30»]|[«10""»]}
            <POP 19338-1933a StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«30»]|[«10""»]|[-8-]}
            <Lit 0x1933a 16>                                                    {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$  of experiment_]}
            <POP 19344-19346 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$  of experiment_]|[-4-]}
            <Lit 0x19346>                                                       {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$  of experiment_]|[$$…]}
                <Pointer.sp 0x19346 22>                      Δ-4        
                <Const 0x1934a 0x1.2>                        Δ-2        
                <Const 0x1934c 0x1e.2>                       Δ-2        
                <Call 0x1934e 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 19350-19352 StackAdj>                   Δ+8        
            <POP 19350-19352 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$  of experiment_]|[$$…]|[-4-]}
            <Lit 0x19352 10>                                                    {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$  of experiment_]|[$$…]|[$$ to board_]}
            <POP 1935c-1935e StackAdj>                       Δ-6                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$  of experiment_]|[$$…]|[$$ to board_]|[-6-]}
            <MI 1935e  MOVE.B  (A6+0xc),(A7)>                                   {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$  of experiment_]|[$$…]|[$$ to board_]|[-6-]}
            <Call 0x19360 0x18fe4>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$  of experiment_]|[$$…]|[$$ to board_]|[-6-]}
                _BoardName(address : B) : String
            <POP 19364-19366 StackAdj>                       Δ+2                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$  of experiment_]|[$$…]|[$$ to board_]|[-4-]}
            <Call 0x19366 0x10ff0>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$  of experiment_]|[$$…]|[$$ to board_]|[-4-]}
                _StringCat4(a, b, c, d : String) : String
            <POP 1936c-1936e StackAdj>                       Δ+16               {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]}
            <Call 0x1936e 0x154a2>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]}
                _WriteConsoleStringCrLf(str : String)
            <POP 19374-19375 StackAdj>                       Δ+60       ↓       {}
            <Blob 0x19375 [24] @>                            Δ-24               {[«24""»]}
        <POP 19386-193a6 Naked>                              Σ-24 Δ+24  →0x194e0 ←0x1944e
            <Const 0x19386 0x2.2>                            Δ-2                {[-24-]|[#2]}
            <POP 1938a-1938c StackAdj>                       Δ-4                {[-24-]|[#2]|[-4-]}
            <Lit 0x1938c>                                                       {[-24-]|[#2]|[$$…]}
                <Pointer.sp 0x1938c 6>                       Δ-4        
                <Const 0x19390 0x1.2>                        Δ-2        
                <Const 0x19392 0x17.2>                       Δ-2        
                <Call 0x19396 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 19398-1939a StackAdj>                   Δ+8        
            <Call 0x1939a 0x14e0a>                                              {[-24-]|[#2]|[$$…]}
                _PopProgram(status : Byte; msg : String)
            <POP 193a0-193a2 StackAdj>                       Δ+30               {}
            <MI 193a2  BRA     0x194e0>                                         {}
        <POP 193a6-193b0 Naked>                              Σ0         ↓ →0x193d8 ←0x192bc ←0x193b4
            <MI 193a6  MOVE.B  (A6-0x2),D0>                                     {}
            <MI 193aa  CMPI.B  #0x06,D0>                                        {}
            <MI 193ae  BNE     0x193d8>                                         {}
        <POP 193b0-193b4 Naked>                              Σ0         ↓ →0x193d8
            <MI 193b0  TST.L   D7>                                              {}
            <MI 193b2  BEQ     0x193d8>                                         {}
        <POP 193b4-193d8 Naked>                              Σ0         →0x193a6
            <MI 193b4  SUBQ.L  #0x1,D7>                                         {}
            <Const 0x193b6 0x4e.4>                           Δ-4                {[##78]}
            <Call 0x193ba 0x10224>                                              {[##78]}
                KC12_Sleep(dur: Long)
            <POP 193c0-193c2 StackAdj>                       Δ+2                {[-2-]}
            <MI 193c2  MOVE.B  (A6+0xc),(A7)>                                   {[-2-]}
            <Pointer.fp 0x193c4 <LVAR -0x002 @ 1(r)>>        Δ-4                {[-2-]|[@@-2]}
            <Pointer.fp 0x193c8 <LVAR -0x004 @>>             Δ-4                {[-2-]|[@@-2]|[@@-4]}
            <Pointer.fp 0x193cc <LVAR -0x003 @ 1(r)>>        Δ-4                {[-2-]|[@@-2]|[@@-4]|[@@-3]}
            <Call 0x193d0 0x18d54>                                              {[-2-]|[@@-2]|[@@-4]|[@@-3]}
                _DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 193d4-193d6 StackAdj>                       Δ+14               {}
            <MI 193d6  BRA     0x193a6>                                         {}
        <POP 193d8-193de Naked>                              Σ0         ↓ →0x194c8 ←0x193a6 ←0x193b0
            <MI 193d8  CMP.B   #0x01,D0>                                        {}
            <MI 193da  BEQ     0x194c8>                                         {}
        <POP 193de-193ea Naked>                              Σ0         ↓ →0x19412
            <Call 0x193de 0x153fc>                                              {}
                _WriteConsoleCrLf(void)
            <MI 193e4  CMPI.B  #0x06,D0>                                        {}
            <MI 193e8  BNE     0x19412>                                         {}
        <POP 193ea-19412 Naked>                              Σ0         →0x1944e
            <Blob 0x193ea [34] @>                            Δ-34               {[«34""»]}
            <POP 193f6-193f8 StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x193f8 34>                                                    {[«34""»]|[$$ERROR: experiment running too long]}
            <Call 0x19406 0x154a2>                                              {[«34""»]|[$$ERROR: experiment running too long]}
                _WriteConsoleStringCrLf(str : String)
            <POP 1940c-19410 StackAdj>                       Δ+38               {}
            <MI 19410  BRA     0x1944e>                                         {}
        <POP 19412-1944e Naked>                              Σ0         ↓ ←0x193de
            <Blob 0x19412 [28] @>                            Δ-28               {[«28""»]}
            <POP 19424-19426 StackAdj>                       Δ-8                {[«28""»]|[-8-]}
            <Lit 0x19426 27>                                                    {[«28""»]|[-4-]|[$$Experiment error: status =_]}
            <POP 19432-19434 StackAdj>                       Δ-6                {[«28""»]|[-4-]|[$$Experiment error: status =_]|[-6-]}
            <MI 19434  MOVE.B  D0,(A7)>                                         {[«28""»]|[-4-]|[$$Experiment error: status =_]|[-6-]}
            <Call 0x19436 0x19096>                                              {[«28""»]|[-4-]|[$$Experiment error: status =_]|[-6-]}
                _ExpStatus2Text(status.B, &String)
            <POP 1943a-1943c StackAdj>                       Δ+2                {[«28""»]|[-4-]|[$$Experiment error: status =_]|[-4-]}
            <Call 0x1943c 0x10f34>                                              {[«28""»]|[-4-]|[$$Experiment error: status =_]|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 19442-19444 StackAdj>                       Δ+8                {[«28""»]|[-4-]}
            <Call 0x19444 0x154a2>                                              {[«28""»]|[-4-]}
                _WriteConsoleStringCrLf(str : String)
            <POP 1944a-1944e StackAdj>                       Δ+32               {}
        <POP 1944e-194c8 Naked>                              Σ0 Δ-24    →0x19386 ←0x193ea
            <Blob 0x1944e [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x19452 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <MI 19456  MOVEA.L (A6+0x8),A0>                                     {[«4""»]|[«4""»]}
            <Blob 0x19458 [30] (A0+0xfc)>                    Δ-30               {[«4""»]|[«4""»]|[«30»]}
            <Blob 0x19468 [10] @>                            Δ-10               {[«4""»]|[«4""»]|[«30»]|[«10""»]}
            <POP 19474-19476 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«30»]|[«10""»]|[-8-]}
            <Lit 0x19476 8>                                                     {[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$   from_]}
            <POP 19482-19484 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$   from_]|[-4-]}
            <Lit 0x19484>                                                       {[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$   from_]|[$$…]}
                <Pointer.sp 0x19484 22>                      Δ-4        
                <Const 0x19488 0x1.2>                        Δ-2        
                <Const 0x1948a 0x1e.2>                       Δ-2        
                <Call 0x1948c 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 1948e-19490 StackAdj>                   Δ+8        
            <POP 1948e-19490 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$   from_]|[$$…]|[-4-]}
            <Lit 0x19490 10>                                                    {[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$   from_]|[$$…]|[$$ on board_]}
            <POP 1949a-1949c StackAdj>                       Δ-6                {[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$   from_]|[$$…]|[$$ on board_]|[-6-]}
            <MI 1949c  MOVE.B  (A6+0xc),(A7)>                                   {[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$   from_]|[$$…]|[$$ on board_]|[-6-]}
            <Call 0x1949e 0x18fe4>                                              {[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$   from_]|[$$…]|[$$ on board_]|[-6-]}
                _BoardName(address : B) : String
            <POP 194a2-194a4 StackAdj>                       Δ+2                {[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$   from_]|[$$…]|[$$ on board_]|[-4-]}
            <Call 0x194a4 0x10ff0>                                              {[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]|[$$   from_]|[$$…]|[$$ on board_]|[-4-]}
                _StringCat4(a, b, c, d : String) : String
            <POP 194aa-194ac StackAdj>                       Δ+16               {[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]}
            <Call 0x194ac 0x154a2>                                              {[«4""»]|[«4""»]|[«30»]|[«10""»]|[-4-]}
                _WriteConsoleStringCrLf(str : String)
            <POP 194b2-194b3 StackAdj>                       Δ+52       ↓       {}
            <Blob 0x194b3 [24] @>                            Δ-24               {[«24""»]}
            <MI 194c4  BRA     0x19386>                                         {[«24""»]}
        <POP 194c8-194d2 Naked>                              Σ0         ↓ →0x194e0 ←0x193d8
            <MI 194c8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 194ca  MOVE.B  (A0+0x11c),D0>                                   {}
            <MI 194ce  LSR.B   #0x7,D0>                                         {}
            <MI 194d0  BEQ     0x194e0>                                         {}
        <POP 194d2-194e0 Naked>                              Σ0         ↓
            <MI 194d2  MOVE.B  (A6+0xc),-(A7)>               Δ-2                {[2, '(A6+0xc)']}
            <MI 194d4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[2, '(A6+0xc)']|[4, '(A6+0x8)']}
            <Pointer.fp 0x194d6 <LVAR -0x002 @ 1(r)>>        Δ-4                {[2, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-2]}
            <Call 0x194da 0x18e34>                                              {[2, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-2]}
                _ExpUpload(adr: Byte; ptr: Pointer; VAR status : Byte)
            <POP 194de-194e0 StackAdj>                       Δ+10               {}
        <POP 194e0-194e8 Epilogue>                           Σ0         ←0x19386 ←0x194c8

0x194e8


@ 194e8
_HasBoard(diproc_addr: Byte) : Byte
        <LVAR  0x00a 1(rw)>
        <LVAR  0x008 1(r)>
    <POP 194e8-19574 Body>                                              
        <POP 194e8-194fe Prologue>                           Σ0         ↓
        <POP 194fe-1950e Naked>                              Σ0         ↓ →0x19514
            <MI 194fe  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 19502  EXTB.W  D0>                                              {}
            <MI 19504  LEA.L   0x1844a,A0>                                      {}
            <MI 19508  TST.B   (A0+D0.W)>                                       {}
            <MI 1950c  BNE     0x19514>                                         {}
        <POP 1950e-19514 Naked>                              Σ0         →0x1956c
            <MI 1950e  CLR.B   (A6+0xa)>                                        {}
            <MI 19512  BRA     0x1956c>                                         {}
        <POP 19514-1951e Naked>                              Σ0         ↓ →0x1955a ←0x194fe
            <MI 19514  SUBI.W  #0x000c,D0>                                      {}
            <MI 19518  CMPI.W  #0x0003,D0>                                      {}
            <MI 1951c  BHI     0x1955a>                                         {}
        <POP 1951e-19528 Naked>                              Σ0         →0x19530 →0x1953e →0x19548 →0x19552
            <MI 1951e  ADD.W   D0,D0>                                           {}
            <MI 19520  SWITCH  D0.W>                                            {}
        <POP 19530-19538 Naked>                              Σ0         ↓ ←0x1951e
            <MI 19530  MOVE.B  0x1c208,D0>                                      {}
            <MI 19536  LSL.B   #0x3,D0>                                         {}
        <POP 19538-1953e Naked>                              Σ0         →0x1955c ←0x1953e ←0x19548 ←0x19552
            <MI 19538  LSR.B   #0x7,D0>                                         {}
            <MI 1953a  MOVE.B  D0,D7>                                           {}
            <MI 1953c  BRA     0x1955c>                                         {}
        <POP 1953e-19548 Naked>                              Σ0         →0x19538 ←0x1951e
            <MI 1953e  MOVE.B  0x1c208,D0>                                      {}
            <MI 19544  LSL.B   #0x2,D0>                                         {}
            <MI 19546  BRA     0x19538>                                         {}
        <POP 19548-19552 Naked>                              Σ0         →0x19538 ←0x1951e
            <MI 19548  MOVE.B  0x1c208,D0>                                      {}
            <MI 1954e  LSL.B   #0x1,D0>                                         {}
            <MI 19550  BRA     0x19538>                                         {}
        <POP 19552-1955a Naked>                              Σ0         →0x19538 ←0x1951e
            <MI 19552  MOVE.B  0x1c208,D0>                                      {}
            <MI 19558  BRA     0x19538>                                         {}
        <POP 1955a-1955c Naked>                              Σ0         ↓ ←0x19514
            <MI 1955a  MOVEQ.L #0x01,D7>                                        {}
        <POP 1955c-1956c Naked>                              Σ0         ↓ ←0x19538
            <MI 1955c  MOVE.B  0x1c209,D0>                                      {}
            <MI 19562  LSL.B   #0x4,D0>                                         {}
            <MI 19564  LSR.B   #0x7,D0>                                         {}
            <MI 19566  AND.B   D7,D0>                                           {}
            <MI 19568  MOVE.B  D0,(A6+0xa)>                                     {}
        <POP 1956c-19574 Epilogue>                           Σ0         ←0x1950e

0x19574


@ 19574
_EQ_1c218(a : Byte) : Bool
        <LVAR  0x00a 1(rw)>
        <LVAR  0x008 1(r)>
    <POP 19574-195a6 Body>                                              
        <POP 19574-1958a Prologue>                           Σ0         ↓
        <POP 1958a-1959a Naked>                              Σ0         ↓ →0x1959e
            <MI 1958a  CLR.B   (A6+0xa)>                                        {}
            <MI 1958e  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 19592  CMP.B   0x1c20a,D0>                                      {}
            <MI 19598  BNE     0x1959e>                                         {}
        <POP 1959a-1959e Naked>                              Σ0         ↓
            <MI 1959a  ADDQ.B  #0x1,(A6+0xa)>                                   {}
        <POP 1959e-195a6 Epilogue>                           Σ0         ←0x1958a

0x195a6


@ 195a6
_MemOnly2MB() : Bool
        <LVAR  0x008 1(w)>
    <POP 195a6-195d2 Body>                                              
        <POP 195a6-195bc Prologue>                           Σ0         ↓
        <POP 195bc-195ca Naked>                              Σ0         ↓
            <MI 195bc  MOVE.B  0x1c208,D0>                                      {}
            <MI 195c2  LSL.B   #0x4,D0>                                         {}
            <MI 195c4  LSR.B   #0x7,D0>                                         {}
            <MI 195c6  MOVE.B  D0,(A6+0x8)>                                     {}
        <POP 195ca-195d2 Epilogue>                           Σ0         

0x195d2


@ 195d2
_SetExpInitDone(a : Byte)
        <LVAR  0x008 1(r)>
    <POP 195d2-195f0 Body>                                              
        <POP 195d2-195e4 Prologue>                           Σ0         ↓
        <POP 195e4-195ec Naked>                              Σ0         ↓
            <MI 195e4  MOVE.B  (A6+0x8),0x20024>                                {}
        <POP 195ec-195f0 Epilogue>                           Σ0         

0x195f0


@ 195f0
_ExpInit(a : Long)
    <POP 195f0-19698 Body>                                              
        <POP 195f0-19606 Prologue>                           Σ0         ↓
        <POP 19606-19610 RegCacheLoad>                       Σ0         ↓
        <POP 19610-19624 Naked>                              Σ0         ↓
            <MI 19610  MOVE.B  #0x01,0x20024>                                   {}
            <MI 19616  MOVE.B  #0x01,0x20025>                                   {}
            <MI 1961c  MOVE.W  #0x1f,0x20026>                                   {}
            <MI 19622  MOVEQ.L #0x00,D7>                                        {}
        <POP 19624-19648 Naked>                              Σ0         ↓ →0x19624 ←0x19624
            <MI 19624  MOVE.L  D7,D4>                                           {}
            <MI 19626  MOVEQ.L #0x06,D3>                                        {}
            <Call 0x19628 0x107ea>                                              {}
                _?muls_d3_d4
            <MI 1962e  LEA.L   0x0,A0>                                          {}
            <MI 19632  LEA.L   (A0+D4.L),A0>                                    {}
            <MI 19636  ADDA.L  #0x2002c,A0>                                     {}
            <MI 1963c  MOVE.L  #0x01,(A0+0x2)>                                  {}
            <MI 19640  CLR.B   (A0)>                                            {}
            <MI 19642  ADDQ.L  #0x1,D7>                                         {}
            <MI 19644  CMP.L   #0x1f,D7>                                        {}
            <MI 19646  BLE     0x19624>                                         {}
        <POP 19648-19676 Naked>                              Σ0         ↓ →0x19690
            <Const 0x19648 0x20028.4>                        Δ-4                {[##131112]}
            <Const 0x1964e 0x11d.4>                          Δ-4                {[##131112]|[##285]}
            <Call 0x19652 0x10856>                                              {[##131112]|[##285]}
                _Malloc1(length : Long) : Pointer
            <POP 19658-1965a StackAdj>                       Δ+8                {}
            <Const 0x1965a 0x1c208.4>                        Δ-4                {[##115208]}
            <Call 0x19660 0x1aa8a>                                              {[##115208]}
                _Read_fc0c() : Word
            <POP 19666-19668 StackAdj>                       Δ+4                {}
            <MI 19668  MOVE.B  #0x01,0x1c20a>                                   {}
            <MI 1966a  MOVE.B  0x1c209,D0>                                      {}
            <MI 19670  LSL.B   #0x4,D0>                                         {}
            <MI 19672  LSR.B   #0x7,D0>                                         {}
            <MI 19674  BEQ     0x19690>                                         {}
        <POP 19676-19678 Naked>                              Σ0         ↓
            <MI 19676  MOVEQ.L #0x0f,D6>                                        {}
        <POP 19678-19686 Naked>                              Σ0         ↓ →0x19688 ←0x19688
            <POP 19678-1967a StackAdj>                       Δ-2                {[-2-]}
            <MI 1967a  MOVE.B  D6,-(A7)>                     Δ-2                {[-2-]|[2, 'D6']}
            <Call 0x1967c 0x194e8>                                              {[-2-]|[2, 'D6']}
                _HasBoard(diproc_addr: Byte) : Byte
            <POP 19680-19682 StackAdj>                       Δ+2                {[-2-]}
            <MI 19682  TST.B   (A7)+>                        Δ+2                {}
            <MI 19684  BEQ     0x19688>                                         {}
        <POP 19686-19688 Naked>                              Σ0         ↓
            <MI 19686  MOVE.B  D6,0x1c20a>                                      {}
        <POP 19688-19690 Naked>                              Σ0         ↓ →0x19678 ←0x19678
            <MI 19688  SUBQ.B  #0x1,D6>                                         {}
            <MI 1968a  CMPI.B  #0x0c,D6>                                        {}
            <MI 1968e  BGE     0x19678>                                         {}
        <POP 19690-19698 Epilogue>                           Σ0         ←0x19648

0x19698


@ 19698
_Get20028(void) : L
        <LVAR  0x008 4(w)>
    <POP 19698-196b6 Body>                                              
        <POP 19698-196aa Prologue>                           Σ0         ↓
        <POP 196aa-196b2 Naked>                              Σ0         ↓
            <MI 196aa  MOVE.L  0x20028,(A6+0x8)>                                {}
        <POP 196b2-196b6 Epilogue>                           Σ0         

0x19796


@ 19796
_IPC_PutVar(src : Pointer; length : Long ; type : Long)
        <LVAR  0x010 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x00c @ 4(w)>
    <POP 19796-19812 Body>                                              
        <POP 19796-197ac Prologue>                           Σ0         ↓
        <POP 197ac-197bc RegCacheLoad>                       Σ0         ↓
        <POP 197bc-197c4 Naked>                              Σ0 Δ-4     ↓
            <MI 197bc  MOVE.L  (A6+0x8),(A6-0xc)>                               {}
            <MI 197be  ADDQ.L  #0x1,(A6-0xc)>                                   {}
            <MI 197c0  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 197c2  MOVEQ.L #0x00,D7>                                        {[4, '(A6+0x8)']}
        <POP 197c4-197c8 Naked>                              Σ-4        ↓ →0x197f4 ←0x197e2
            <MI 197c4  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 197c6  BGT     0x197f4>                                         {[-4-]}
        <POP 197c8-197e2 Naked>                              Σ-4        ↓
            <MI 197c8  MOVEQ.L #0x07,D0>                                        {[-4-]}
            <MI 197ca  SUB.L   (A6+0x8),D0>                                     {[-4-]}
            <MI 197cc  ADD.L   D7,D0>                                           {[-4-]}
            <POP 0x197ce LimitCheck 0x0 ≤ D0 ≤ 0x7>                             {[-4-]}
            <MI 197d8  MOVEA.L (A6+0x10),A0>                                    {[-4-]}
            <MI 197dc  MOVE.L  D7,D1>                                           {[-4-]}
            <MI 197de  CMP.L   (A6+0x8),D1>                                     {[-4-]}
            <MI 197e0  BGT     0x197e8>                                         {[-4-]}
        <POP 197e2-197f4 Naked>                              Σ-4        ↓ →0x197c4
            <POP 0x197e2 LimitCheck>                                            {[-4-]}
                <MI 197e2  SUB.L   (A6+0xc),D1>                         
                <MI 197e6  BGE     0x197ea>                             
                <MI 197e8  TRAP    #15>                                 
            <MI 197ea  MOVE.B  (A0+D1.L),(A6+D0.L-#0x8)>                        {[-4-]}
            <MI 197f0  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 197f2  BVC     0x197c4>                                         {[-4-]}
        <POP 197f4-1980a Naked>                              Σ-4 Δ+4    ↓ ←0x197c4
            <POP 197f4-197f6 StackAdj>                       Δ+4                {}
            <MI 197f6  LEA.L   (A6-0xc),A0>                                     {}
            <MI 197f8  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x197fa [4] 0x1c214>                       Δ-4                {[4, 'A0']|[«4»]}
            <Const 0x197fc 0xc.2>                            Δ-2                {[4, 'A0']|[«4»]|[#12]}
            <Call 0x197fe 0x19744>                                              {[4, 'A0']|[«4»]|[#12]}
                _CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
            <POP 19804-19808 StackAdj>                       Δ+10               {}
            <MI 19808  ADD.L   #0x0c,0x1c214>                                   {}
        <POP 1980a-19812 Epilogue>                           Σ0         

0x19812


@ 19812
_IPC_PutBool(a : Bool)
        <LVAR  0x008 1(r)>
        <LVAR -0x006 4(rw)>
        <LVAR -0x00a @ 4(r)>
    <POP 19812-19866 Body>                                              
        <POP 19812-19828 Prologue>                           Σ0         ↓
        <POP 19828-1982e RegCacheLoad>                       Σ0         ↓
        <POP 1982e-19838 Naked>                              Σ0         ↓ →0x19842
            <MI 1982e  CLR.L   (A6-0xa)>                                        {}
            <MI 19832  TST.B   (A6+0x8)>                                        {}
            <MI 19836  BEQ     0x19842>                                         {}
        <POP 19838-19842 Naked>                              Σ0         →0x19846
            <MI 19838  MOVE.L  #0x1,(A6-0x6)>                                   {}
            <MI 19840  BRA     0x19846>                                         {}
        <POP 19842-19846 Naked>                              Σ0         ↓ ←0x1982e
            <MI 19842  CLR.L   (A6-0x6)>                                        {}
        <POP 19846-1985e Naked>                              Σ0         ↓ ←0x19838
            <MI 19846  LEA.L   (A6-0xa),A0>                                     {}
            <MI 1984a  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x1984c [4] 0x1c214>                       Δ-4                {[4, 'A0']|[«4»]}
            <Const 0x1984e 0x8.2>                            Δ-2                {[4, 'A0']|[«4»]|[#8]}
            <Call 0x19852 0x19744>                                              {[4, 'A0']|[«4»]|[#8]}
                _CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
            <POP 19858-1985c StackAdj>                       Δ+10               {}
            <MI 1985c  ADDQ.L  #0x8,0x1c214>                                    {}
        <POP 1985e-19866 Epilogue>                           Σ0         

0x19866


@ 19866
_IPC_PutString(a : String)
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x080 @>
        <LVAR -0x084 @ 4(w)>
    <POP 19866-198ca Body>                                              
        <POP 19866-1987c Prologue>                           Σ0         ↓
        <POP 1987c-19882 RegCacheLoad>                       Σ0         ↓
        <POP 19882-198c2 Naked>                              Σ0         ↓
            <MI 19882  MOVE.L  #0x9,(A6-0x84)>                                  {}
            <MI 1988a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1988e  LEA.L   (A6-0x80),A1>                                    {}
            <BlockMove 128,A0,A1>                                               {}
            <Pointer.fp 0x1989a <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x1989e 0x10d76>                                              {[@@8]}
                _FreeString(VAR a : String)
            <POP 198a4-198a6 StackAdj>                       Δ+4                {}
            <MI 198a6  LEA.L   (A6-0x84),A0>                                    {}
            <MI 198aa  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x198ac [4] 0x1c214>                       Δ-4                {[4, 'A0']|[«4»]}
            <Const 0x198ae 0x84.2>                           Δ-2                {[4, 'A0']|[«4»]|[#132]}
            <Call 0x198b2 0x19744>                                              {[4, 'A0']|[«4»]|[#132]}
                _CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
            <POP 198b8-198bc StackAdj>                       Δ+10               {}
            <MI 198bc  ADDI.L  #0x00000084,0x1c214>                             {}
        <POP 198c2-198ca Epilogue>                           Σ0         

0x198ca


@ 198ca
_IPC_PutLong(a : L)
        <LVAR  0x008 4(r)>
        <LVAR -0x004 4(w)>
        <LVAR -0x008 @ 4(w)>
    <POP 198ca-19910 Body>                                              
        <POP 198ca-198e0 Prologue>                           Σ0         ↓
        <POP 198e0-198e8 RegCacheLoad>                       Σ0         ↓
        <POP 198e8-19908 Naked>                              Σ0         ↓
            <MI 198e8  MOVE.L  #0x0a,(A6-0x8)>                                  {}
            <MI 198ec  MOVE.L  (A6+0x8),(A6-0x4)>                               {}
            <MI 198f2  LEA.L   (A6-0x8),A0>                                     {}
            <MI 198f6  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x198f8 [4] 0x1c214>                       Δ-4                {[4, 'A0']|[«4»]}
            <Const 0x198fa 0x8.2>                            Δ-2                {[4, 'A0']|[«4»]|[#8]}
            <Call 0x198fe 0x19744>                                              {[4, 'A0']|[«4»]|[#8]}
                _CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
            <POP 19904-19906 StackAdj>                       Δ+10               {}
            <MI 19906  ADDQ.L  #0x8,0x1c214>                                    {}
        <POP 19908-19910 Epilogue>                           Σ0         

0x19910


@ 19910
_IPC_PutEnd(void)
        <LVAR -0x004 @ 4(w)>
    <POP 19910-19954 Body>                                              
        <POP 19910-19926 Prologue>                           Σ0         ↓
        <POP 19926-1992c RegCacheLoad>                       Σ0         ↓
        <POP 1992c-1994c Naked>                              Σ0         ↓
            <MI 1992c  MOVE.L  #0xffffffff,(A6-0x4)>                            {}
            <MI 19934  LEA.L   (A6-0x4),A0>                                     {}
            <MI 19938  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Blob 0x1993a [4] 0x1c214>                       Δ-4                {[4, 'A0']|[«4»]}
            <Const 0x1993c 0x4.2>                            Δ-2                {[4, 'A0']|[«4»]|[#4]}
            <Call 0x19940 0x19744>                                              {[4, 'A0']|[«4»]|[#4]}
                _CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
            <POP 19946-1994a StackAdj>                       Δ+10               {}
            <MI 1994a  ADDQ.L  #0x4,0x1c214>                                    {}
        <POP 1994c-19954 Epilogue>                           Σ0         

0x19954


@ 19954
_IPC_GetEnd(void)
        <LVAR -0x004 @ 4(r)>
    <POP 19954-199cc Body>                                              
        <POP 19954-1996a Prologue>                           Σ0         ↓
        <POP 1996a-19990 Naked>                              Σ0         ↓ →0x199c4
            <Blob 0x1996a [4] 0x1c214>                       Δ-4                {[«4»]}
            <MI 19970  LEA.L   (A6-0x4),A0>                                     {[«4»]}
            <MI 19974  MOVE.L  A0,-(A7)>                     Δ-4                {[«4»]|[4, 'A0']}
            <Const 0x19976 0x4.2>                            Δ-2                {[«4»]|[4, 'A0']|[#4]}
            <Call 0x1997a 0x19744>                                              {[«4»]|[4, 'A0']|[#4]}
                _CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
            <POP 19980-19984 StackAdj>                       Δ+10               {}
            <MI 19984  MOVE.L  (A6-0x4),D0>                                     {}
            <MI 19988  CMPI.L  #0xffffffff,D0>                                  {}
            <MI 1998e  BEQ     0x199c4>                                         {}
        <POP 19990-199c4 Naked>                              Σ0         ↓
            <Blob 0x19990 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x19994 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x19998 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x1999c [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <Const 0x199a0 0x5.2>                            Δ-2                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#5]}
            <POP 199a4-199a6 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#5]|[-4-]}
            <Lit 0x199a6 16>                                                    {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#5]|[$$Not enough gets.]}
            <Call 0x199ba 0x14e0a>                                              {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#5]|[$$Not enough gets.]}
                _PopProgram(status : Byte; msg : String)
            <POP 199c0-199c4 StackAdj>                       Δ+22               {}
        <POP 199c4-199cc Epilogue>                           Σ0         ←0x1996a

0x199cc


@ 199cc
_IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
        <LVAR  0x010 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x010 @ 4(r)>
    <POP 199cc-19a7c Body>                                              
        <POP 199cc-199e2 Prologue>                           Σ0         ↓
        <POP 199e2-199ee RegCacheLoad>                       Σ0         ↓
        <POP 199ee-19a0e Naked>                              Σ0         ↓ →0x19a3e
            <Blob 0x199ee [4] 0x1c214>                       Δ-4                {[«4»]}
            <MI 199f0  LEA.L   (A6-0x10),A0>                                    {[«4»]}
            <MI 199f4  MOVE.L  A0,-(A7)>                     Δ-4                {[«4»]|[4, 'A0']}
            <Const 0x199f6 0xc.2>                            Δ-2                {[«4»]|[4, 'A0']|[#12]}
            <Call 0x199f8 0x19744>                                              {[«4»]|[4, 'A0']|[#12]}
                _CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
            <POP 199fe-19a02 StackAdj>                       Δ+10               {}
            <MI 19a02  ADD.L   #0x0c,0x1c214>                                   {}
            <MI 19a04  MOVE.L  (A6+0x8),D0>                                     {}
            <MI 19a06  ADDQ.L  #0x1,D0>                                         {}
            <MI 19a08  CMP.L   (A6-0x10),D0>                                    {}
            <MI 19a0c  BEQ     0x19a3e>                                         {}
        <POP 19a0e-19a3e Naked>                              Σ0         ↓
            <Blob 0x19a0e [24] @>                            Δ-24               {[«24""»]}
            <Const 0x19a1a 0x5.2>                            Δ-2                {[«24""»]|[#5]}
            <POP 19a1e-19a20 StackAdj>                       Δ-4                {[«24""»]|[#5]|[-4-]}
            <Lit 0x19a20 24>                                                    {[«24""»]|[#5]|[$$Incorrect parameter type]}
            <Call 0x19a34 0x14e0a>                                              {[«24""»]|[#5]|[$$Incorrect parameter type]}
                _PopProgram(status : Byte; msg : String)
            <POP 19a3a-19a3e StackAdj>                       Δ+30               {}
        <POP 19a3e-19a42 Naked>                              Σ0 Δ-4     ↓ ←0x199ee
            <MI 19a3e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 19a40  MOVEQ.L #0x00,D7>                                        {[4, '(A6+0x8)']}
        <POP 19a42-19a46 Naked>                              Σ-4        ↓ →0x19a72 ←0x19a50
            <MI 19a42  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 19a44  BGT     0x19a72>                                         {[-4-]}
        <POP 19a46-19a50 Naked>                              Σ-4        ↓
            <MI 19a46  MOVEA.L (A6+0x10),A0>                                    {[-4-]}
            <MI 19a4a  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 19a4c  CMP.L   (A6+0x8),D0>                                     {[-4-]}
            <MI 19a4e  BGT     0x19a56>                                         {[-4-]}
        <POP 19a50-19a72 Naked>                              Σ-4        ↓ →0x19a42
            <POP 0x19a50 LimitCheck>                                            {[-4-]}
                <MI 19a50  SUB.L   (A6+0xc),D0>                         
                <MI 19a54  BGE     0x19a58>                             
                <MI 19a56  TRAP    #15>                                 
            <MI 19a58  MOVEQ.L #0x07,D1>                                        {[-4-]}
            <MI 19a5a  SUB.L   (A6+0x8),D1>                                     {[-4-]}
            <MI 19a5c  ADD.L   D7,D1>                                           {[-4-]}
            <POP 0x19a5e LimitCheck 0x0 ≤ D1 ≤ 0x7>                             {[-4-]}
            <MI 19a68  MOVE.B  (A6+D1.L-#0xc),(A0+D0.L)>                        {[-4-]}
            <MI 19a6e  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 19a70  BVC     0x19a42>                                         {[-4-]}
        <POP 19a72-19a74 Naked>                              Σ-4 Δ+4    ↓ ←0x19a42
            <POP 19a72-19a74 StackAdj>                       Δ+4                {}
        <POP 19a74-19a7c Epilogue>                           Σ0         

0x19a7c


@ 19a7c
_IPC_GetBool() : Bool
        <LVAR  0x008 4(r)>
        <LVAR -0x004 4(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 19a7c-19afe Body>                                              
        <POP 19a7c-19a92 Prologue>                           Σ0         ↓
        <POP 19a92-19a9a RegCacheLoad>                       Σ0         ↓
        <POP 19a9a-19ab8 Naked>                              Σ0         ↓ →0x19ae6
            <Blob 0x19a9a [4] 0x1c214>                       Δ-4                {[«4»]}
            <MI 19a9c  LEA.L   (A6-0x8),A0>                                     {[«4»]}
            <MI 19aa0  MOVE.L  A0,-(A7)>                     Δ-4                {[«4»]|[4, 'A0']}
            <Const 0x19aa2 0x8.2>                            Δ-2                {[«4»]|[4, 'A0']|[#8]}
            <Call 0x19aa6 0x19744>                                              {[«4»]|[4, 'A0']|[#8]}
                _CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
            <POP 19aac-19ab0 StackAdj>                       Δ+10               {}
            <MI 19ab0  ADDQ.L  #0x8,0x1c214>                                    {}
            <MI 19ab2  TST.L   (A6-0x8)>                                        {}
            <MI 19ab6  BEQ     0x19ae6>                                         {}
        <POP 19ab8-19ae6 Naked>                              Σ0         ↓
            <Blob 0x19ab8 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x19ac4 0x5.2>                            Δ-2                {[«24""»]|[#5]}
            <POP 19ac8-19aca StackAdj>                       Δ-4                {[«24""»]|[#5]|[-4-]}
            <Lit 0x19aca 24>                                                    {[«24""»]|[#5]|[$$Incorrect parameter type]}
            <Call 0x19adc 0x14e0a>                                              {[«24""»]|[#5]|[$$Incorrect parameter type]}
                _PopProgram(status : Byte; msg : String)
            <POP 19ae2-19ae6 StackAdj>                       Δ+30               {}
        <POP 19ae6-19af4 Naked>                              Σ0         ↓ →0x19af6 ←0x19a9a
            <MI 19ae6  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 19aea  CLR.B   (A0)>                                            {}
            <MI 19aec  MOVE.L  (A6-0x4),D0>                                     {}
            <MI 19af0  CMP.L   #0x01,D0>                                        {}
            <MI 19af2  BNE     0x19af6>                                         {}
        <POP 19af4-19af6 Naked>                              Σ0         ↓
            <MI 19af4  ADDQ.B  #0x1,(A0)>                                       {}
        <POP 19af6-19afe Epilogue>                           Σ0         ←0x19ae6

0x19afe


@ 19afe
_IPC_GetString(VAR retval : String)
        <LVAR  0x008 4(r)>
        <LVAR -0x080 @>
        <LVAR -0x084 @ 4(r)>
    <POP 19afe-19b96 Body>                                              
        <POP 19afe-19b14 Prologue>                           Σ0         ↓
        <POP 19b14-19b1a RegCacheLoad>                       Σ0         ↓
        <POP 19b1a-19b42 Naked>                              Σ0         ↓ →0x19b72
            <Blob 0x19b1a [4] 0x1c214>                       Δ-4                {[«4»]}
            <MI 19b1c  LEA.L   (A6-0x84),A0>                                    {[«4»]}
            <MI 19b20  MOVE.L  A0,-(A7)>                     Δ-4                {[«4»]|[4, 'A0']}
            <Const 0x19b22 0x84.2>                           Δ-2                {[«4»]|[4, 'A0']|[#132]}
            <Call 0x19b26 0x19744>                                              {[«4»]|[4, 'A0']|[#132]}
                _CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
            <POP 19b2c-19b30 StackAdj>                       Δ+10               {}
            <MI 19b30  ADDI.L  #0x00000084,0x1c214>                             {}
            <MI 19b36  MOVE.L  (A6-0x84),D0>                                    {}
            <MI 19b3a  CMPI.L  #0x00000009,D0>                                  {}
            <MI 19b40  BEQ     0x19b72>                                         {}
        <POP 19b42-19b72 Naked>                              Σ0         ↓
            <Blob 0x19b42 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x19b4e 0x5.2>                            Δ-2                {[«24""»]|[#5]}
            <POP 19b52-19b54 StackAdj>                       Δ-4                {[«24""»]|[#5]|[-4-]}
            <Lit 0x19b54 24>                                                    {[«24""»]|[#5]|[$$Incorrect parameter type]}
            <Call 0x19b68 0x14e0a>                                              {[«24""»]|[#5]|[$$Incorrect parameter type]}
                _PopProgram(status : Byte; msg : String)
            <POP 19b6e-19b72 StackAdj>                       Δ+30               {}
        <POP 19b72-19b8e Naked>                              Σ0         ↓ ←0x19b1a
            <MI 19b72  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 19b76  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x19b78 0x10d42>                                              {[4, '^(A0)']}
                _NewString(VAR a : String)
            <POP 19b7e-19b80 StackAdj>                       Δ+4                {}
            <MI 19b80  MOVEA.L (A0),A0>                                         {}
            <MI 19b82  LEA.L   (A6-0x80),A1>                                    {}
            <BlockMove 128,A1,A0>                                               {}
        <POP 19b8e-19b96 Epilogue>                           Σ0         

0x19b96


@ 19b96
_IPC_GetLong() : Long
        <LVAR  0x008 4(r)>
        <LVAR -0x004 4(r)>
        <LVAR -0x008 @ 4(r)>
    <POP 19b96-19c12 Body>                                              
        <POP 19b96-19bac Prologue>                           Σ0         ↓
        <POP 19bac-19bb4 RegCacheLoad>                       Σ0         ↓
        <POP 19bb4-19bd2 Naked>                              Σ0         ↓ →0x19c02
            <Blob 0x19bb4 [4] 0x1c214>                       Δ-4                {[«4»]}
            <MI 19bb6  LEA.L   (A6-0x8),A0>                                     {[«4»]}
            <MI 19bba  MOVE.L  A0,-(A7)>                     Δ-4                {[«4»]|[4, 'A0']}
            <Const 0x19bbc 0x8.2>                            Δ-2                {[«4»]|[4, 'A0']|[#8]}
            <Call 0x19bc0 0x19744>                                              {[«4»]|[4, 'A0']|[#8]}
                _CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
            <POP 19bc6-19bc8 StackAdj>                       Δ+10               {}
            <MI 19bc8  ADDQ.L  #0x8,0x1c214>                                    {}
            <MI 19bca  MOVE.L  (A6-0x8),D0>                                     {}
            <MI 19bce  CMP.L   #0x0a,D0>                                        {}
            <MI 19bd0  BEQ     0x19c02>                                         {}
        <POP 19bd2-19c02 Naked>                              Σ0         ↓
            <Blob 0x19bd2 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x19bde 0x5.2>                            Δ-2                {[«24""»]|[#5]}
            <POP 19be2-19be4 StackAdj>                       Δ-4                {[«24""»]|[#5]|[-4-]}
            <Lit 0x19be4 24>                                                    {[«24""»]|[#5]|[$$Incorrect parameter type]}
            <Call 0x19bf8 0x14e0a>                                              {[«24""»]|[#5]|[$$Incorrect parameter type]}
                _PopProgram(status : Byte; msg : String)
            <POP 19bfe-19c02 StackAdj>                       Δ+30               {}
        <POP 19c02-19c0a Naked>                              Σ0         ↓ ←0x19bb4
            <MI 19c02  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 19c06  MOVE.L  (A6-0x4),(A0)>                                   {}
        <POP 19c0a-19c12 Epilogue>                           Σ0         

0x19c12


@ 19c12
_IPC_Init(void)
    <POP 19c12-19c32 Body>                                              
        <POP 19c12-19c24 Prologue>                           Σ0         ↓
        <POP 19c24-19c2e Naked>                              Σ0         ↓
            <MI 19c24  MOVE.L  #0x1fc00,0x1c214>                                {}
        <POP 19c2e-19c32 Epilogue>                           Σ0         

0x19c3e


@ 19c3e
_FSCALL_1053e
        <LVAR  0x020 4(r)>
        <LVAR  0x01e 1(r)>
        <LVAR  0x01c 1(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @>
    <POP 19c3e-19d34 Body>                                              
        <POP 19c3e-19c54 Prologue>                           Σ0         ↓
        <POP 19c54-19c5a RegCacheLoad>                       Σ0         ↓
        <POP 19c5a-19d2c Naked>                              Σ0         ↓
            <Call 0x19c5a 0x19c12>                                              {}
                _IPC_Init(void)
            <MI 19c60  MOVE.B  (A6+0x1e),-(A7)>              Δ-2                {[2, '(A6+0x1e)']}
            <Call 0x19c64 0x19812>                                              {[2, '(A6+0x1e)']}
                _IPC_PutBool(a : Bool)
            <MI 19c6a  MOVE.B  (A6+0x1c),(A7)>                                  {[-2-]}
            <Call 0x19c6e 0x19812>                                              {[-2-]}
                _IPC_PutBool(a : Bool)
            <POP 19c74-19c76 StackAdj>                       Δ+2                {}
            <Call 0x19c76 0x19910>                                              {}
                _IPC_PutEnd(void)
            <Blob 0x19c7c [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x19c80 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x19c84 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 19c88-19c8a StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-8-]}
            <Lit 0x19c8a 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
            <MI 19c9a  MOVE.L  (A6+0x20),(A7)>                                  {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x20)']}
            <POP 19c94-19c9a StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x20)']|[-8-]}
            <Call 0x19c9e 0x10ef2>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x20)']|[-8-]}
                _StringDup(a : String) : String
            <POP 19ca4-19ca6 StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x20)']|[-4-]}
            <Call 0x19ca6 0x10f34>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x20)']|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 19cac-19cae StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Call 0x19cae 0x154a2>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]}
                _WriteConsoleStringCrLf(str : String)
            <POP 19cb4-19cb6 StackAdj>                       Δ+12               {[«4""»]}
            <MI 19cb6  MOVE.L  (A6+0x20),(A7)>                                  {[4, '(A6+0x20)']}
            <Const 0x19cba 0x1.4>                            Δ-4                {[4, '(A6+0x20)']|[##1]}
            <Const 0x19cbe 0x2.2>                            Δ-2                {[4, '(A6+0x20)']|[##1]|[#2]}
            <Pointer.fp 0x19cc2 <LVAR -0x004 @>>             Δ-4                {[4, '(A6+0x20)']|[##1]|[#2]|[@@-4]}
            <Call 0x19cc6 0x14750>                                              {[4, '(A6+0x20)']|[##1]|[#2]|[@@-4]}
                _PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 19ccc-19cd0 StackAdj>                       Δ+14               {}
            <Call 0x19cd0 0x19c12>                                              {}
                _IPC_Init(void)
            <MI 19cd6  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 19cda  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x19cdc 0x19a7c>                                              {[4, '^(A0)']}
                _IPC_GetBool() : Bool
            <POP 19ce2-19ce4 StackAdj>                       Δ+4                {}
            <MI 19ce4  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 19ce8  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x19cea 0x19afe>                                              {[4, '^(A0)']}
                _IPC_GetString(VAR retval : String)
            <POP 19cf0-19cf2 StackAdj>                       Δ+4                {}
            <MI 19cf2  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 19cf6  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x19cf8 0x19afe>                                              {[4, '^(A0)']}
                _IPC_GetString(VAR retval : String)
            <POP 19cfe-19d00 StackAdj>                       Δ+4                {}
            <MI 19d00  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 19d04  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x19d06 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x19d08 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##0]}
            <Call 0x19d0a 0x199cc>                                              {[4, '^(A0)']|[##0]|[##0]}
                _IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 19d10-19d12 StackAdj>                       Δ+12               {}
            <MI 19d12  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 19d16  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x19d18 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x19d1a 0x7.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##7]}
            <Call 0x19d1e 0x199cc>                                              {[4, '^(A0)']|[##0]|[##7]}
                _IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 19d24-19d26 StackAdj>                       Δ+12               {}
            <Call 0x19d26 0x19954>                                              {}
                _IPC_GetEnd(void)
        <POP 19d2c-19d34 Epilogue>                           Σ0         

0x19d34


@ 19d34
_IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 19d34-19d7a Body>                                              
        <POP 19d34-19d4a Prologue>                           Σ0         ↓
        <POP 19d4a-19d72 Naked>                              Σ0         ↓
            <Call 0x19d4a 0x19c12>                                              {}
                _IPC_Init(void)
            <MI 19d50  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 19d54  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x19d56 0x19a7c>                                              {[4, '^(A0)']}
                _IPC_GetBool() : Bool
            <POP 19d5c-19d5e StackAdj>                       Δ+4                {}
            <MI 19d5e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 19d62  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x19d64 0x19a7c>                                              {[4, '^(A0)']}
                _IPC_GetBool() : Bool
            <POP 19d6a-19d6c StackAdj>                       Δ+4                {}
            <Call 0x19d6c 0x19954>                                              {}
                _IPC_GetEnd(void)
        <POP 19d72-19d7a Epilogue>                           Σ0         

0x19d7a


@ 19d7a
_?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
        <LVAR  0x01a 1(r)>
        <LVAR  0x016 4(r)>
        <LVAR  0x012 4(r)>
        <LVAR  0x010 1(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 19d7a-19e06 Body>                                              
        <POP 19d7a-19d90 Prologue>                           Σ0         ↓
        <POP 19d90-19d94 RegCacheLoad>                       Σ0         ↓
        <POP 19d94-19dfe Naked>                              Σ0         ↓
            <Call 0x19d94 0x19c12>                                              {}
                _IPC_Init(void)
            <MI 19d9a  MOVE.B  (A6+0x1a),-(A7)>              Δ-2                {[2, '(A6+0x1a)']}
            <Call 0x19d9e 0x19812>                                              {[2, '(A6+0x1a)']}
                _IPC_PutBool(a : Bool)
            <POP 19da4-19da6 StackAdj>                       Δ+2                {}
            <MI 19da6  MOVE.L  (A6+0x16),-(A7)>              Δ-4                {[4, '(A6+0x16)']}
            <Call 0x19daa 0x19866>                                              {[4, '(A6+0x16)']}
                _IPC_PutString(a : String)
            <MI 19db0  MOVE.L  (A6+0x12),(A7)>                                  {[4, '(A6+0x12)']}
            <Call 0x19db4 0x19866>                                              {[4, '(A6+0x12)']}
                _IPC_PutString(a : String)
            <POP 19dba-19dbc StackAdj>                       Δ+2                {[-2-]}
            <MI 19dbc  MOVE.B  (A6+0x10),(A7)>                                  {[-2-]}
            <MI 19dc0  PEA.L   (A7)>                         Δ-4                {[-2-]|[4, '^(A7)']}
            <Const 0x19dc2 0x0.4>                            Δ-4                {[-2-]|[4, '^(A7)']|[##0]}
            <Const 0x19dc4 0x0.4>                            Δ-4                {[-2-]|[4, '^(A7)']|[##0]|[##0]}
            <Call 0x19dc6 0x19796>                                              {[-2-]|[4, '^(A7)']|[##0]|[##0]}
                _IPC_PutVar(src : Pointer; length : Long ; type : Long)
            <POP 19dcc-19dd0 StackAdj>                       Δ+10               {[-2-]|[-2-]}
            <MI 19dd0  MOVE.L  (A6+0xc),(A7)>                                   {[4, '(A6+0xc)']}
            <MI 19dd4  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
            <MI 19dd8  PEA.L   (A7)>                         Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']}
            <Const 0x19dda 0x0.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]}
            <Const 0x19ddc 0x7.4>                            Δ-4                {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]|[##7]}
            <Call 0x19de0 0x19796>                                              {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]|[##7]}
                _IPC_PutVar(src : Pointer; length : Long ; type : Long)
            <POP 19de6-19dea StackAdj>                       Δ+20               {}
            <Call 0x19dea 0x19910>                                              {}
                _IPC_PutEnd(void)
            <MI 19df0  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x19df2 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x19df6 0x14e0a>                                              {[#0]|[##1]}
                _PopProgram(status : Byte; msg : String)
            <POP 19dfc-19dfe StackAdj>                       Δ+6                {}
        <POP 19dfe-19e06 Epilogue>                           Σ0         

0x19e06


@ 19e06
_?ExecFRU(VAR a : L; VAR b : W; VAR c: L; VAR d : L; VAR e: B)
        <LVAR  0x024 1(r)>
        <LVAR  0x020 4(r)>
        <LVAR  0x01e 1(r)>
        <LVAR  0x01c 1(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @>
    <POP 19e06-19f0e Body>                                              
        <POP 19e06-19e1c Prologue>                           Σ0         ↓
        <POP 19e1c-19e22 RegCacheLoad>                       Σ0         ↓
        <POP 19e22-19f06 Naked>                              Σ0         ↓
            <Call 0x19e22 0x19c12>                                              {}
                _IPC_Init(void)
            <MI 19e28  MOVE.B  (A6+0x24),-(A7)>              Δ-2                {[2, '(A6+0x24)']}
            <MI 19e2c  PEA.L   (A7)>                         Δ-4                {[2, '(A6+0x24)']|[4, '^(A7)']}
            <Const 0x19e2e 0x0.4>                            Δ-4                {[2, '(A6+0x24)']|[4, '^(A7)']|[##0]}
            <Const 0x19e30 0x0.4>                            Δ-4                {[2, '(A6+0x24)']|[4, '^(A7)']|[##0]|[##0]}
            <Call 0x19e32 0x19796>                                              {[2, '(A6+0x24)']|[4, '^(A7)']|[##0]|[##0]}
                _IPC_PutVar(src : Pointer; length : Long ; type : Long)
            <POP 19e38-19e3a StackAdj>                       Δ+12               {[2, '(A6+0x24)']}
            <MI 19e3a  MOVE.B  (A6+0x1e),(A7)>                                  {[-2-]}
            <Call 0x19e3e 0x19812>                                              {[-2-]}
                _IPC_PutBool(a : Bool)
            <MI 19e44  MOVE.B  (A6+0x1c),(A7)>                                  {[-2-]}
            <Call 0x19e48 0x19812>                                              {[-2-]}
                _IPC_PutBool(a : Bool)
            <POP 19e4e-19e50 StackAdj>                       Δ+2                {}
            <Call 0x19e50 0x19910>                                              {}
                _IPC_PutEnd(void)
            <Blob 0x19e56 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x19e5a [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x19e5e [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 19e62-19e64 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-8-]}
            <Lit 0x19e64 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
            <MI 19e74  MOVE.L  (A6+0x20),(A7)>                                  {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x20)']}
            <POP 19e6e-19e74 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x20)']|[-8-]}
            <Call 0x19e78 0x10ef2>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x20)']|[-8-]}
                _StringDup(a : String) : String
            <POP 19e7e-19e80 StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x20)']|[-4-]}
            <Call 0x19e80 0x10f34>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x20)']|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 19e86-19e88 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Call 0x19e88 0x154a2>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]}
                _WriteConsoleStringCrLf(str : String)
            <POP 19e8e-19e90 StackAdj>                       Δ+12               {[«4""»]}
            <MI 19e90  MOVE.L  (A6+0x20),(A7)>                                  {[4, '(A6+0x20)']}
            <Const 0x19e94 0x1.4>                            Δ-4                {[4, '(A6+0x20)']|[##1]}
            <Const 0x19e98 0x2.2>                            Δ-2                {[4, '(A6+0x20)']|[##1]|[#2]}
            <Pointer.fp 0x19e9c <LVAR -0x002 @>>             Δ-4                {[4, '(A6+0x20)']|[##1]|[#2]|[@@-2]}
            <Call 0x19ea0 0x14750>                                              {[4, '(A6+0x20)']|[##1]|[#2]|[@@-2]}
                _PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 19ea6-19eaa StackAdj>                       Δ+14               {}
            <Call 0x19eaa 0x19c12>                                              {}
                _IPC_Init(void)
            <MI 19eb0  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 19eb4  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x19eb6 0x19a7c>                                              {[4, '^(A0)']}
                _IPC_GetBool() : Bool
            <POP 19ebc-19ebe StackAdj>                       Δ+4                {}
            <MI 19ebe  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 19ec2  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x19ec4 0x19afe>                                              {[4, '^(A0)']}
                _IPC_GetString(VAR retval : String)
            <POP 19eca-19ecc StackAdj>                       Δ+4                {}
            <MI 19ecc  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 19ed0  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x19ed2 0x19afe>                                              {[4, '^(A0)']}
                _IPC_GetString(VAR retval : String)
            <POP 19ed8-19eda StackAdj>                       Δ+4                {}
            <MI 19eda  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 19ede  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x19ee0 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x19ee2 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##0]}
            <Call 0x19ee4 0x199cc>                                              {[4, '^(A0)']|[##0]|[##0]}
                _IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 19eea-19eec StackAdj>                       Δ+12               {}
            <MI 19eec  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 19ef0  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x19ef2 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x19ef4 0x7.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##7]}
            <Call 0x19ef8 0x199cc>                                              {[4, '^(A0)']|[##0]|[##7]}
                _IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 19efe-19f00 StackAdj>                       Δ+12               {}
            <Call 0x19f00 0x19954>                                              {}
                _IPC_GetEnd(void)
        <POP 19f06-19f0e Epilogue>                           Σ0         

0x19f0e


@ 19f0e
_?IPC_GetStd(MOD a : Pointer; VAR b : Bool ; VAR c : Bool)
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 19f0e-19f6c Body>                                              
        <POP 19f0e-19f24 Prologue>                           Σ0         ↓
        <POP 19f24-19f64 Naked>                              Σ0         ↓
            <Call 0x19f24 0x19c12>                                              {}
                _IPC_Init(void)
            <MI 19f2a  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 19f2e  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x19f30 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x19f34 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##0]}
            <Call 0x19f38 0x199cc>                                              {[4, '^(A0)']|[##0]|[##0]}
                _IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 19f3e-19f42 StackAdj>                       Δ+12               {}
            <MI 19f42  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 19f46  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x19f48 0x19a7c>                                              {[4, '^(A0)']}
                _IPC_GetBool() : Bool
            <POP 19f4e-19f50 StackAdj>                       Δ+4                {}
            <MI 19f50  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 19f54  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x19f56 0x19a7c>                                              {[4, '^(A0)']}
                _IPC_GetBool() : Bool
            <POP 19f5c-19f5e StackAdj>                       Δ+4                {}
            <Call 0x19f5e 0x19954>                                              {}
                _IPC_GetEnd(void)
        <POP 19f64-19f6c Epilogue>                           Σ0         

0x19f6c


@ 19f6c
_FSCALL_1055c
        <LVAR  0x028 1(r)>
        <LVAR  0x024 4(r)>
        <LVAR  0x022 1(r)>
        <LVAR  0x020 1(r)>
        <LVAR  0x01e 1(r)>
        <LVAR  0x01c 1(r)>
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @>
    <POP 19f6c-1a07e Body>                                              
        <POP 19f6c-19f82 Prologue>                           Σ0         ↓
        <POP 19f82-19f8e RegCacheLoad>                       Σ0         ↓
        <POP 19f8e-1a076 Naked>                              Σ0         ↓
            <Call 0x19f8e 0x19c12>                                              {}
                _IPC_Init(void)
            <MI 19f94  MOVE.B  (A6+0x28),-(A7)>              Δ-2                {[2, '(A6+0x28)']}
            <MI 19f98  PEA.L   (A7)>                         Δ-4                {[2, '(A6+0x28)']|[4, '^(A7)']}
            <Const 0x19f9a 0x0.4>                            Δ-4                {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]}
            <Const 0x19f9c 0x0.4>                            Δ-4                {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
            <Call 0x19f9e 0x19796>                                              {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
                _IPC_PutVar(src : Pointer; length : Long ; type : Long)
            <POP 19fa4-19fa6 StackAdj>                       Δ+12               {[2, '(A6+0x28)']}
            <MI 19fa6  MOVE.B  (A6+0x22),(A7)>                                  {[-2-]}
            <Call 0x19faa 0x19812>                                              {[-2-]}
                _IPC_PutBool(a : Bool)
            <MI 19fac  MOVE.B  (A6+0x20),(A7)>                                  {[-2-]}
            <Call 0x19fb0 0x19812>                                              {[-2-]}
                _IPC_PutBool(a : Bool)
            <MI 19fb2  MOVE.B  (A6+0x1e),(A7)>                                  {[-2-]}
            <Call 0x19fb6 0x19812>                                              {[-2-]}
                _IPC_PutBool(a : Bool)
            <MI 19fb8  MOVE.B  (A6+0x1c),(A7)>                                  {[-2-]}
            <Call 0x19fbc 0x19812>                                              {[-2-]}
                _IPC_PutBool(a : Bool)
            <POP 19fbe-19fc0 StackAdj>                       Δ+2                {}
            <Call 0x19fc0 0x19910>                                              {}
                _IPC_PutEnd(void)
            <Blob 0x19fc6 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x19fca [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x19fce [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 19fd2-19fd4 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-8-]}
            <Lit 0x19fd4 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
            <MI 19fe4  MOVE.L  (A6+0x24),(A7)>                                  {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']}
            <POP 19fde-19fe4 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
            <Call 0x19fe8 0x10ef2>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
                _StringDup(a : String) : String
            <POP 19fee-19ff0 StackAdj>                       Δ+4                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
            <Call 0x19ff0 0x10f34>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
                _StringCat2(a, b : String) : String
            <POP 19ff6-19ff8 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Call 0x19ff8 0x154a2>                                              {[«4""»]|[«4""»]|[«4""»]|[-4-]}
                _WriteConsoleStringCrLf(str : String)
            <POP 19ffe-1a000 StackAdj>                       Δ+12               {[«4""»]}
            <MI 1a000  MOVE.L  (A6+0x24),(A7)>                                  {[4, '(A6+0x24)']}
            <Const 0x1a004 0x1.4>                            Δ-4                {[4, '(A6+0x24)']|[##1]}
            <Const 0x1a008 0x2.2>                            Δ-2                {[4, '(A6+0x24)']|[##1]|[#2]}
            <Pointer.fp 0x1a00c <LVAR -0x002 @>>             Δ-4                {[4, '(A6+0x24)']|[##1]|[#2]|[@@-2]}
            <Call 0x1a010 0x14750>                                              {[4, '(A6+0x24)']|[##1]|[#2]|[@@-2]}
                _PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 1a016-1a01a StackAdj>                       Δ+14               {}
            <Call 0x1a01a 0x19c12>                                              {}
                _IPC_Init(void)
            <MI 1a020  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 1a024  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x1a026 0x19a7c>                                              {[4, '^(A0)']}
                _IPC_GetBool() : Bool
            <POP 1a02c-1a02e StackAdj>                       Δ+4                {}
            <MI 1a02e  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 1a032  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x1a034 0x19afe>                                              {[4, '^(A0)']}
                _IPC_GetString(VAR retval : String)
            <POP 1a03a-1a03c StackAdj>                       Δ+4                {}
            <MI 1a03c  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 1a040  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x1a042 0x19afe>                                              {[4, '^(A0)']}
                _IPC_GetString(VAR retval : String)
            <POP 1a048-1a04a StackAdj>                       Δ+4                {}
            <MI 1a04a  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 1a04e  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x1a050 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x1a052 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##0]}
            <Call 0x1a054 0x199cc>                                              {[4, '^(A0)']|[##0]|[##0]}
                _IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 1a05a-1a05c StackAdj>                       Δ+12               {}
            <MI 1a05c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1a060  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x1a062 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x1a064 0x7.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##7]}
            <Call 0x1a068 0x199cc>                                              {[4, '^(A0)']|[##0]|[##7]}
                _IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 1a06e-1a070 StackAdj>                       Δ+12               {}
            <Call 0x1a070 0x19954>                                              {}
                _IPC_GetEnd(void)
        <POP 1a076-1a07e Epilogue>                           Σ0         

0x1a07e


@ 1a07e
_?IPC_GetVar4xBool(VAR a : Pointer; VAR b : Bool ; VAR c : Bool; VAR d: Bool; VAR e: Bool)
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 1a07e-1a0ee Body>                                              
        <POP 1a07e-1a094 Prologue>                           Σ0         ↓
        <POP 1a094-1a09a RegCacheLoad>                       Σ0         ↓
        <POP 1a09a-1a0e6 Naked>                              Σ0         ↓
            <Call 0x1a09a 0x19c12>                                              {}
                _IPC_Init(void)
            <MI 1a0a0  MOVEA.L (A6+0x18),A0>                                    {}
            <MI 1a0a4  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Const 0x1a0a6 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]}
            <Const 0x1a0aa 0x0.4>                            Δ-4                {[4, '^(A0)']|[##0]|[##0]}
            <Call 0x1a0ae 0x199cc>                                              {[4, '^(A0)']|[##0]|[##0]}
                _IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
            <POP 1a0b4-1a0b8 StackAdj>                       Δ+12               {}
            <MI 1a0b8  MOVEA.L (A6+0x14),A0>                                    {}
            <MI 1a0bc  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x1a0be 0x19a7c>                                              {[4, '^(A0)']}
                _IPC_GetBool() : Bool
            <POP 1a0c0-1a0c2 StackAdj>                       Δ+4                {}
            <MI 1a0c2  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 1a0c6  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x1a0c8 0x19a7c>                                              {[4, '^(A0)']}
                _IPC_GetBool() : Bool
            <POP 1a0ca-1a0cc StackAdj>                       Δ+4                {}
            <MI 1a0cc  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 1a0d0  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x1a0d2 0x19a7c>                                              {[4, '^(A0)']}
                _IPC_GetBool() : Bool
            <POP 1a0d4-1a0d6 StackAdj>                       Δ+4                {}
            <MI 1a0d6  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1a0da  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x1a0dc 0x19a7c>                                              {[4, '^(A0)']}
                _IPC_GetBool() : Bool
            <POP 1a0de-1a0e0 StackAdj>                       Δ+4                {}
            <Call 0x1a0e0 0x19954>                                              {}
                _IPC_GetEnd(void)
        <POP 1a0e6-1a0ee Epilogue>                           Σ0         

0x1a42c


@ 1a42c
        <LVAR  0x00c 4(rw)>
        <LVAR  0x008 4(r)>
    <POP 1a42c-1a474 Body>                                              
        <POP 1a42c-1a442 Prologue>                           Σ0         ↓
        <POP 1a442-1a448 Naked>                              Σ0 Δ-4     ↓
            <MI 1a442  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 1a446  MOVEQ.L #0x01,D7>                                        {[4, '(A6+0x8)']}
        <POP 1a448-1a44c Naked>                              Σ-4        ↓ →0x1a46a ←0x1a44c
            <MI 1a448  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 1a44a  BGT     0x1a46a>                                         {[-4-]}
        <POP 1a44c-1a46a Naked>                              Σ-4        ↓ →0x1a448
            <MI 1a44c  MOVEA.L (A6+0xc),A4>                                     {[-4-]}
            <MI 1a450  CLR.L   D0>                                              {[-4-]}
            <MI 1a452  MOVE.B  (A4),D0>                                         {[-4-]}
            <MI 1a454  MOVE.W  D0,D6>                                           {[-4-]}
            <MI 1a456  MOVE.B  (A4+0x1),(A4)>                                   {[-4-]}
            <POP 0x1a45a LimitCheck 0x0 ≤ D6 ≤ 0xff>                            {[-4-]}
            <MI 1a45e  MOVE.B  D6,(A4+0x1)>                                     {[-4-]}
            <MI 1a462  ADDQ.L  #0x2,(A6+0xc)>                                   {[-4-]}
            <MI 1a466  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 1a468  BVC     0x1a448>                                         {[-4-]}
        <POP 1a46a-1a46c Naked>                              Σ-4 Δ+4    ↓ ←0x1a448
            <POP 1a46a-1a46c StackAdj>                       Δ+4                {}
        <POP 1a46c-1a474 Epilogue>                           Σ0         

0x1a474


@ 1a474
        <LVAR  0x008 4(r)>
    <POP 1a474-1a4b0 Body>                                              
        <POP 1a474-1a48a Prologue>                           Σ0         ↓
        <POP 1a48a-1a4a8 Naked>                              Σ0         ↓
            <MI 1a48a  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1a48e  MOVE.W  (A0),D7>                                         {}
            <MI 1a490  MOVE.W  (A0+0x28),D6>                                    {}
            <MI 1a494  MOVEA.L A0,A1>                                           {}
            <MI 1a496  MOVE.L  A1,-(A7)>                     Δ-4                {[4, 'A1']}
            <Const 0x1a498 0xc9.4>                           Δ-4                {[4, 'A1']|[##201]}
            <Call 0x1a49c 0x1a42c>                                              {[4, 'A1']|[##201]}
            <POP 1a4a0-1a4a2 StackAdj>                       Δ+8                {}
            <MI 1a4a2  MOVE.W  D7,(A0)>                                         {}
            <MI 1a4a4  MOVE.W  D6,(A0+0x28)>                                    {}
        <POP 1a4a8-1a4b0 Epilogue>                           Σ0         

0x1a4b0


@ 1a4b0
_Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x012 4(r)>
        <LVAR -0x016 @ 4(r)>
        <LVAR -0x018 @ 1(r)>
    <POP 1a4b0-1a608 Body>                                   Δ-4        
        <POP 1a4b0-1a4c6 Prologue>                           Σ0         ↓
        <POP 1a4c6-1a4da RegCacheLoad>                       Σ0         ↓
        <POP 1a4da-1a4e8 Naked>                              Σ0         ↓ →0x1a516
            <MI 1a4da  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1a4de  CLR.B   (A0)>                                            {}
            <MI 1a4e0  MOVE.L  (A6+0x10),D0>                                    {}
            <MI 1a4e4  CMP.L   #0x03,D0>                                        {}
            <MI 1a4e6  BEQ     0x1a516>                                         {}
        <POP 1a4e8-1a516 Naked>                              Σ0         →0x1a600
            <Blob 0x1a4e8 [46] @>                            Δ-46               {[«46""»]}
            <POP 1a4f4-1a4f6 StackAdj>                       Δ-4                {[«46""»]|[-4-]}
            <Lit 0x1a4f6 46>                                                    {[«46""»]|[$$Program expects obsolete configuration version]}
            <Call 0x1a508 0x154a2>                                              {[«46""»]|[$$Program expects obsolete configuration version]}
                _WriteConsoleStringCrLf(str : String)
            <POP 1a50e-1a512 StackAdj>                       Δ+50               {}
            <MI 1a512  BRA     0x1a600>                                         {}
        <POP 1a516-1a53e Naked>                              Σ0         ↓ →0x1a600 ←0x1a4da
            <MI 1a516  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 1a518  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1a51a  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 1a51c  CLR.L   (A6-0x12)>                                       {}
            <MI 1a51e  MOVE.L  (A6+0x14),-(A7)>              Δ-4                {[4, '(A6+0x14)']}
            <MI 1a522  CLR.B   -(A7)>                        Δ-2                {[4, '(A6+0x14)']|[#0]}
            <Const 0x1a524 0x1.2>                            Δ-2                {[4, '(A6+0x14)']|[#0]|[#1]}
            <Const 0x1a526 0x0.4>                            Δ-4                {[4, '(A6+0x14)']|[#0]|[#1]|[##0]}
            <Pointer.fp 0x1a52a <LVAR -0x018 @ 1(r)>>        Δ-4                {[4, '(A6+0x14)']|[#0]|[#1]|[##0]|[@@-24]}
            <Pointer.fp 0x1a52c <LVAR -0x016 @ 4(r)>>        Δ-4                {[4, '(A6+0x14)']|[#0]|[#1]|[##0]|[@@-24]|[@@-22]}
            <Call 0x1a530 0x138a6>                                              {[4, '(A6+0x14)']|[#0]|[#1]|[##0]|[@@-24]|[@@-22]}
                _OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 1a536-1a538 StackAdj>                       Δ+20               {}
            <MI 1a538  TST.B   (A6-0x18)>                                       {}
            <MI 1a53a  BNE     0x1a600>                                         {}
        <POP 1a53e-1a542 Naked>                              Σ0 Δ-4     ↓
            <MI 1a53e  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6-0x12)']}
            <MI 1a540  MOVEQ.L #0x00,D5>                                        {[4, '(A6-0x12)']}
        <POP 1a542-1a548 Naked>                              Σ-4        ↓ →0x1a5d6 ←0x1a5d0
            <MI 1a542  CMP.L   (A7),D5>                                         {[-4-]}
            <MI 1a544  BGT     0x1a5d6>                                         {[-4-]}
        <POP 1a548-1a54c Naked>                              Σ-4        ↓ →0x1a554
            <MI 1a548  CMP.L   (A6-0x12),D5>                                    {[-4-]}
            <MI 1a54a  BNE     0x1a554>                                         {[-4-]}
        <POP 1a54c-1a554 Naked>                              Σ-4        →0x1a55a
            <MI 1a54c  MOVE.L  #0xc9,D7>                                        {[-4-]}
            <MI 1a552  BRA     0x1a55a>                                         {[-4-]}
        <POP 1a554-1a55a Naked>                              Σ-4        ↓ ←0x1a548
            <MI 1a554  MOVE.L  #0x200,D7>                                       {[-4-]}
        <POP 1a55a-1a594 Naked>                              Σ-4        ↓ →0x1a5d0 ←0x1a54c
            <MI 1a55a  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x16)']}
            <POP 0x1a55e LimitCheck 0x0 ≤ D5 ≤ 0x4000>                          {[-4-]|[4, '(A6-0x16)']}
            <MI 1a568  MOVE.W  D5,-(A7)>                     Δ-2                {[-4-]|[4, '(A6-0x16)']|[2, 'D5']}
            <MI 1a56a  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, '(A6-0x16)']|[2, 'D5']|[#0]}
            <POP 0x1a56c LimitCheck 0x1 ≤ D7 ≤ 0x200>                           {[-4-]|[4, '(A6-0x16)']|[2, 'D5']|[#0]}
            <MI 1a57a  MOVE.W  D7,-(A7)>                     Δ-2                {[-4-]|[4, '(A6-0x16)']|[2, 'D5']|[#0]|[2, 'D7']}
            <Const 0x1a57c 0x2.2>                            Δ-2                {[-4-]|[4, '(A6-0x16)']|[2, 'D5']|[#0]|[2, 'D7']|[#2]}
            <MI 1a57e  MOVE.L  D6,-(A7)>                     Δ-4                {[-4-]|[4, '(A6-0x16)']|[2, 'D5']|[#0]|[2, 'D7']|[#2]|[4, 'D6']}
            <Pointer.fp 0x1a580 <LVAR -0x018 @ 1(r)>>        Δ-4                {[-4-]|[4, '(A6-0x16)']|[2, 'D5']|[#0]|[2, 'D7']|[#2]|[4, 'D6']|[@@-24]}
            <Call 0x1a582 0x13ad8>                                              {[-4-]|[4, '(A6-0x16)']|[2, 'D5']|[#0]|[2, 'D7']|[#2]|[4, 'D6']|[@@-24]}
                _ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 1a588-1a58a StackAdj>                       Δ+20               {[-4-]}
            <MI 1a58a  ADDI.L  #0x00000400,D6>                                  {[-4-]}
            <MI 1a590  TST.L   D5>                                              {[-4-]}
            <MI 1a592  BNE     0x1a5d0>                                         {[-4-]}
        <POP 1a594-1a59c Naked>                              Σ-4        ↓ →0x1a5d0
            <MI 1a594  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 1a596  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 1a598  CMP.W   #0x03,D0>                                        {[-4-]}
            <MI 1a59a  BEQ     0x1a5d0>                                         {[-4-]}
        <POP 1a59c-1a5d0 Naked>                              Σ-4 Δ+4    →0x1a5e8
            <Blob 0x1a59c [32] @>                            Δ-32               {[-4-]|[«32""»]}
            <POP 1a5ae-1a5b0 StackAdj>                       Δ-4                {[-4-]|[«32""»]|[-4-]}
            <Lit 0x1a5b0 31>                                                    {[-4-]|[«32""»]|[$$Incorrect configuration version]}
            <Call 0x1a5c2 0x154a2>                                              {[-4-]|[«32""»]|[$$Incorrect configuration version]}
                _WriteConsoleStringCrLf(str : String)
            <POP 1a5c8-1a5cc StackAdj>                       Δ+36               {[-4-]}
            <POP 1a5cc-1a5ce StackAdj>                       Δ+4                {}
            <MI 1a5ce  BRA     0x1a5e8>                                         {}
        <POP 1a5d0-1a5d6 Naked>                              Σ-4        ↓ →0x1a542 ←0x1a55a ←0x1a594
            <MI 1a5d0  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 1a5d2  BVC     0x1a542>                                         {[-4-]}
        <POP 1a5d6-1a5e8 Naked>                              Σ-4 Δ+4    ↓ ←0x1a542
            <POP 1a5d6-1a5d8 StackAdj>                       Δ+4                {}
            <MI 1a5d8  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 1a5da  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x1a5dc 0x1a474>                                              {[4, '^(A0)']}
            <POP 1a5e0-1a5e2 StackAdj>                       Δ+4                {}
            <MI 1a5e2  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1a5e6  MOVE.B  #0x01,(A0)>                                      {}
        <POP 1a5e8-1a600 Naked>                              Σ0         ↓ ←0x1a59c
            <MI 1a5e8  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x1a5ea 0x2.2>                            Δ-2                {[#0]|[#2]}
            <Const 0x1a5ec 0x1.4>                            Δ-4                {[#0]|[#2]|[##1]}
            <Pointer.fp 0x1a5f0 <LVAR -0x018 @ 1(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-24]}
            <Pointer.fp 0x1a5f2 <LVAR -0x016 @ 4(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-24]|[@@-22]}
            <Call 0x1a5f6 0x13c7c>                                              {[#0]|[#2]|[##1]|[@@-24]|[@@-22]}
                _CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 1a5fc-1a600 StackAdj>                       Δ+16               {}
        <POP 1a600-1a608 Epilogue>                           Σ0         ←0x1a4e8 ←0x1a516

0x1a608


@ 1a608
_Write_ConfigFile(name: String; dst: Pointer)
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x012 4(r)>
        <LVAR -0x016 @ 4(r)>
        <LVAR -0x018 @>
    <POP 1a608-1a6da Body>                                              
        <POP 1a608-1a61e Prologue>                           Σ0         ↓
        <POP 1a61e-1a62e RegCacheLoad>                       Σ0         ↓
        <POP 1a62e-1a660 Naked>                              Σ0 Δ-4     ↓
            <MI 1a62e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1a632  MOVE.W  #0x3,(A0)>                                       {}
            <MI 1a636  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x1a638 0x1a474>                                              {[4, '^(A0)']}
            <MI 1a63c  MOVE.L  A0,(A7)>                                         {[4, 'A0']}
            <MI 1a63e  MOVE.L  (A7)+,D6>                     Δ+4                {}
            <MI 1a640  CLR.L   (A6-0x12)>                                       {}
            <MI 1a642  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Const 0x1a646 0x1.2>                            Δ-2                {[4, '(A6+0xc)']|[#1]}
            <Const 0x1a64a 0x2.2>                            Δ-2                {[4, '(A6+0xc)']|[#1]|[#2]}
            <MI 1a64c  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6+0xc)']|[#1]|[#2]|[4, '(A6-0x12)']}
            <MI 1a64e  ADDQ.L  #0x1,(A7)>                                       {[4, '(A6+0xc)']|[#1]|[#2]|[-4-]}
            <Pointer.fp 0x1a650 <LVAR -0x018 @>>             Δ-4                {[4, '(A6+0xc)']|[#1]|[#2]|[-4-]|[@@-24]}
            <Pointer.fp 0x1a652 <LVAR -0x016 @ 4(r)>>        Δ-4                {[4, '(A6+0xc)']|[#1]|[#2]|[-4-]|[@@-24]|[@@-22]}
            <Call 0x1a654 0x138a6>                                              {[4, '(A6+0xc)']|[#1]|[#2]|[-4-]|[@@-24]|[@@-22]}
                _OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 1a65a-1a65c StackAdj>                       Δ+16               {[4, '(A6+0xc)']}
            <MI 1a65c  MOVE.L  (A6-0x12),(A7)>                                  {[4, '(A6-0x12)']}
            <MI 1a65e  MOVEQ.L #0x00,D5>                                        {[4, '(A6-0x12)']}
        <POP 1a660-1a664 Naked>                              Σ-4        ↓ →0x1a6b0 ←0x1a676
            <MI 1a660  CMP.L   (A7),D5>                                         {[-4-]}
            <MI 1a662  BGT     0x1a6b0>                                         {[-4-]}
        <POP 1a664-1a668 Naked>                              Σ-4        ↓ →0x1a670
            <MI 1a664  CMP.L   (A6-0x12),D5>                                    {[-4-]}
            <MI 1a666  BNE     0x1a670>                                         {[-4-]}
        <POP 1a668-1a670 Naked>                              Σ-4        →0x1a676
            <MI 1a668  MOVE.L  #0xc9,D7>                                        {[-4-]}
            <MI 1a66e  BRA     0x1a676>                                         {[-4-]}
        <POP 1a670-1a676 Naked>                              Σ-4        ↓ ←0x1a664
            <MI 1a670  MOVE.L  #0x200,D7>                                       {[-4-]}
        <POP 1a676-1a6b0 Naked>                              Σ-4        ↓ →0x1a660 ←0x1a668
            <MI 1a676  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x16)']}
            <POP 0x1a678 LimitCheck 0x0 ≤ D5 ≤ 0x4000>                          {[-4-]|[4, '(A6-0x16)']}
            <MI 1a682  MOVE.W  D5,-(A7)>                     Δ-2                {[-4-]|[4, '(A6-0x16)']|[2, 'D5']}
            <MI 1a684  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, '(A6-0x16)']|[2, 'D5']|[#0]}
            <POP 0x1a686 LimitCheck 0x1 ≤ D7 ≤ 0x200>                           {[-4-]|[4, '(A6-0x16)']|[2, 'D5']|[#0]}
            <MI 1a694  MOVE.W  D7,-(A7)>                     Δ-2                {[-4-]|[4, '(A6-0x16)']|[2, 'D5']|[#0]|[2, 'D7']}
            <Const 0x1a696 0x2.2>                            Δ-2                {[-4-]|[4, '(A6-0x16)']|[2, 'D5']|[#0]|[2, 'D7']|[#2]}
            <MI 1a698  MOVE.L  D6,-(A7)>                     Δ-4                {[-4-]|[4, '(A6-0x16)']|[2, 'D5']|[#0]|[2, 'D7']|[#2]|[4, 'D6']}
            <Pointer.fp 0x1a69a <LVAR -0x018 @>>             Δ-4                {[-4-]|[4, '(A6-0x16)']|[2, 'D5']|[#0]|[2, 'D7']|[#2]|[4, 'D6']|[@@-24]}
            <Call 0x1a69c 0x13baa>                                              {[-4-]|[4, '(A6-0x16)']|[2, 'D5']|[#0]|[2, 'D7']|[#2]|[4, 'D6']|[@@-24]}
                _WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 1a6a2-1a6a6 StackAdj>                       Δ+20               {[-4-]}
            <MI 1a6a6  ADDI.L  #0x00000400,D6>                                  {[-4-]}
            <MI 1a6ac  ADDQ.L  #0x1,D5>                                         {[-4-]}
            <MI 1a6ae  BVC     0x1a660>                                         {[-4-]}
        <POP 1a6b0-1a6d2 Naked>                              Σ-4 Δ+4    ↓ ←0x1a660
            <POP 1a6b0-1a6b2 StackAdj>                       Δ+2                {[-2-]}
            <MI 1a6b2  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x1a6b4 0x2.2>                            Δ-2                {[-2-]|[#2]}
            <Const 0x1a6b6 0x1.4>                            Δ-4                {[-2-]|[#2]|[##1]}
            <Pointer.fp 0x1a6ba <LVAR -0x018 @>>             Δ-4                {[-2-]|[#2]|[##1]|[@@-24]}
            <Pointer.fp 0x1a6bc <LVAR -0x016 @ 4(r)>>        Δ-4                {[-2-]|[#2]|[##1]|[@@-24]|[@@-22]}
            <Call 0x1a6be 0x13c7c>                                              {[-2-]|[#2]|[##1]|[@@-24]|[@@-22]}
                _CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 1a6c4-1a6c6 StackAdj>                       Δ+16               {}
            <MI 1a6c6  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1a6ca  PEA.L   (A0)>                         Δ-4                {[4, '^(A0)']}
            <Call 0x1a6cc 0x1a474>                                              {[4, '^(A0)']}
            <POP 1a6d0-1a6d2 StackAdj>                       Δ+4                {}
        <POP 1a6d2-1a6da Epilogue>                           Σ0         

0x1a6da


@ 1a6da
_Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool)
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(rw)>
        <LVAR -0x012 @ 4(r)>
        <LVAR -0x014 @ 1(r)>
    <POP 1a6da-1a7a8 Body>                                              
        <POP 1a6da-1a6f0 Prologue>                           Σ0         ↓
        <POP 1a6f0-1a702 RegCacheLoad>                       Σ0         ↓
        <POP 1a702-1a74e Naked>                              Σ0         ↓ →0x1a796
            <Blob 0x1a702 [20] @>                            Δ-20               {[«20""»]}
            <POP 1a70e-1a710 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x1a710 20>                                                    {[«20""»]|[$$HARDWARE.M200_CONFIG]}
            <MI 1a720  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«20""»]}
            <POP 1a722-1a724 StackAdj>                       Δ+20               {}
            <MI 1a724  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1a728  CLR.B   (A0)>                                            {}
            <MI 1a72a  MOVEA.L (A6+0xc),A1>                                     {}
            <MI 1a72e  MOVE.L  A1,-(A7)>                     Δ-4                {[4, 'A1']}
            <MI 1a730  MOVE.L  (A7)+,D7>                     Δ+4                {}
            <MI 1a732  MOVEQ.L #0x03,D6>                                        {}
            <MI 1a734  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <MI 1a736  CLR.B   -(A7)>                        Δ-2                {[4, '(A6-0x6)']|[#0]}
            <Const 0x1a738 0x1.2>                            Δ-2                {[4, '(A6-0x6)']|[#0]|[#1]}
            <Const 0x1a73a 0x0.4>                            Δ-4                {[4, '(A6-0x6)']|[#0]|[#1]|[##0]}
            <Pointer.fp 0x1a73e <LVAR -0x014 @ 1(r)>>        Δ-4                {[4, '(A6-0x6)']|[#0]|[#1]|[##0]|[@@-20]}
            <Pointer.fp 0x1a740 <LVAR -0x012 @ 4(r)>>        Δ-4                {[4, '(A6-0x6)']|[#0]|[#1]|[##0]|[@@-20]|[@@-18]}
            <Call 0x1a742 0x138a6>                                              {[4, '(A6-0x6)']|[#0]|[#1]|[##0]|[@@-20]|[@@-18]}
                _OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 1a748-1a74a StackAdj>                       Δ+20               {}
            <MI 1a74a  TST.B   (A6-0x14)>                                       {}
            <MI 1a74c  BNE     0x1a796>                                         {}
        <POP 1a74e-1a796 Naked>                              Σ0         ↓
            <MI 1a74e  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[4, '(A6-0x12)']}
            <MI 1a750  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x12)']|[#0]}
            <MI 1a752  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x12)']|[#0]|[#0]}
            <POP 0x1a754 LimitCheck 0x1 ≤ D6 ≤ 0x200>                           {[4, '(A6-0x12)']|[#0]|[#0]}
            <MI 1a762  MOVE.W  D6,-(A7)>                     Δ-2                {[4, '(A6-0x12)']|[#0]|[#0]|[2, 'D6']}
            <Const 0x1a764 0x2.2>                            Δ-2                {[4, '(A6-0x12)']|[#0]|[#0]|[2, 'D6']|[#2]}
            <MI 1a766  MOVE.L  D7,-(A7)>                     Δ-4                {[4, '(A6-0x12)']|[#0]|[#0]|[2, 'D6']|[#2]|[4, 'D7']}
            <Pointer.fp 0x1a768 <LVAR -0x014 @ 1(r)>>        Δ-4                {[4, '(A6-0x12)']|[#0]|[#0]|[2, 'D6']|[#2]|[4, 'D7']|[@@-20]}
            <Call 0x1a76a 0x13ad8>                                              {[4, '(A6-0x12)']|[#0]|[#0]|[2, 'D6']|[#2]|[4, 'D7']|[@@-20]}
                _ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 1a770-1a774 StackAdj>                       Δ+18               {[-2-]}
            <MI 1a774  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x1a776 0x2.2>                            Δ-2                {[-2-]|[#2]}
            <Const 0x1a778 0x1.4>                            Δ-4                {[-2-]|[#2]|[##1]}
            <Pointer.fp 0x1a77c <LVAR -0x014 @ 1(r)>>        Δ-4                {[-2-]|[#2]|[##1]|[@@-20]}
            <Pointer.fp 0x1a77e <LVAR -0x012 @ 4(r)>>        Δ-4                {[-2-]|[#2]|[##1]|[@@-20]|[@@-18]}
            <Call 0x1a780 0x13c7c>                                              {[-2-]|[#2]|[##1]|[@@-20]|[@@-18]}
                _CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 1a786-1a78a StackAdj>                       Δ+12               {[-2-]|[#2]}
            <MI 1a78a  MOVE.L  D7,(A7)>                                         {[4, 'D7']}
            <MI 1a78c  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D7']|[4, 'D6']}
            <Call 0x1a78e 0x1a42c>                                              {[4, 'D7']|[4, 'D6']}
            <POP 1a792-1a794 StackAdj>                       Δ+8                {}
            <MI 1a794  MOVE.B  #0x01,(A0)>                                      {}
        <POP 1a796-1a7a0 Naked>                              Σ0         ↓ ←0x1a702
            <Pointer.fp 0x1a796 <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x1a798 0x10d76>                                              {[@@-6]}
                _FreeString(VAR a : String)
            <POP 1a79e-1a7a0 StackAdj>                       Δ+4                {}
        <POP 1a7a0-1a7a8 Epilogue>                           Σ0         

0x1a7a8


@ 1a7a8
_Write_HARDWARE.M200_CONFIG(a : Pointer)
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(rw)>
        <LVAR -0x012 @ 4(r)>
        <LVAR -0x014 @>
    <POP 1a7a8-1a876 Body>                                              
        <POP 1a7a8-1a7be Prologue>                           Σ0         ↓
        <POP 1a7be-1a7d0 RegCacheLoad>                       Σ0         ↓
        <POP 1a7d0-1a86e Naked>                              Σ0         ↓
            <Blob 0x1a7d0 [20] @>                            Δ-20               {[«20""»]}
            <POP 1a7dc-1a7de StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x1a7de 20>                                                    {[«20""»]|[$$HARDWARE.M200_CONFIG]}
            <MI 1a7ee  MOVE.L  (A7)+,(A6-0x6)>               Δ+4                {[«20""»]}
            <POP 1a7f0-1a7f2 StackAdj>                       Δ+20               {}
            <MI 1a7f2  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1a7f6  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1a7f8  MOVE.L  (A7)+,D7>                     Δ+4                {}
            <MI 1a7fa  MOVEQ.L #0x03,D6>                                        {}
            <MI 1a7fc  MOVE.L  D7,-(A7)>                     Δ-4                {[4, 'D7']}
            <MI 1a7fe  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D7']|[4, 'D6']}
            <Call 0x1a800 0x1a42c>                                              {[4, 'D7']|[4, 'D6']}
            <POP 1a804-1a806 StackAdj>                       Δ+4                {[4, 'D7']}
            <MI 1a806  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <Const 0x1a808 0x1.2>                            Δ-2                {[4, '(A6-0x6)']|[#1]}
            <Const 0x1a80a 0x2.2>                            Δ-2                {[4, '(A6-0x6)']|[#1]|[#2]}
            <Const 0x1a80c 0x1.4>                            Δ-4                {[4, '(A6-0x6)']|[#1]|[#2]|[##1]}
            <Pointer.fp 0x1a810 <LVAR -0x014 @>>             Δ-4                {[4, '(A6-0x6)']|[#1]|[#2]|[##1]|[@@-20]}
            <Pointer.fp 0x1a812 <LVAR -0x012 @ 4(r)>>        Δ-4                {[4, '(A6-0x6)']|[#1]|[#2]|[##1]|[@@-20]|[@@-18]}
            <Call 0x1a814 0x138a6>                                              {[4, '(A6-0x6)']|[#1]|[#2]|[##1]|[@@-20]|[@@-18]}
                _OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 1a81a-1a81e StackAdj>                       Δ+16               {[4, '(A6-0x6)']}
            <MI 1a81e  MOVE.L  (A6-0x12),(A7)>                                  {[4, '(A6-0x12)']}
            <MI 1a820  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x12)']|[#0]}
            <MI 1a822  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x12)']|[#0]|[#0]}
            <POP 0x1a824 LimitCheck 0x1 ≤ D6 ≤ 0x200>                           {[4, '(A6-0x12)']|[#0]|[#0]}
            <MI 1a832  MOVE.W  D6,-(A7)>                     Δ-2                {[4, '(A6-0x12)']|[#0]|[#0]|[2, 'D6']}
            <Const 0x1a834 0x2.2>                            Δ-2                {[4, '(A6-0x12)']|[#0]|[#0]|[2, 'D6']|[#2]}
            <MI 1a836  MOVE.L  D7,-(A7)>                     Δ-4                {[4, '(A6-0x12)']|[#0]|[#0]|[2, 'D6']|[#2]|[4, 'D7']}
            <Pointer.fp 0x1a838 <LVAR -0x014 @>>             Δ-4                {[4, '(A6-0x12)']|[#0]|[#0]|[2, 'D6']|[#2]|[4, 'D7']|[@@-20]}
            <Call 0x1a83a 0x13baa>                                              {[4, '(A6-0x12)']|[#0]|[#0]|[2, 'D6']|[#2]|[4, 'D7']|[@@-20]}
                _WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 1a840-1a844 StackAdj>                       Δ+18               {[-2-]}
            <MI 1a844  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x1a846 0x2.2>                            Δ-2                {[-2-]|[#2]}
            <Const 0x1a848 0x1.4>                            Δ-4                {[-2-]|[#2]|[##1]}
            <Pointer.fp 0x1a84c <LVAR -0x014 @>>             Δ-4                {[-2-]|[#2]|[##1]|[@@-20]}
            <Pointer.fp 0x1a84e <LVAR -0x012 @ 4(r)>>        Δ-4                {[-2-]|[#2]|[##1]|[@@-20]|[@@-18]}
            <Call 0x1a850 0x13c7c>                                              {[-2-]|[#2]|[##1]|[@@-20]|[@@-18]}
                _CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 1a856-1a85a StackAdj>                       Δ+12               {[-2-]|[#2]}
            <MI 1a85a  MOVE.L  D7,(A7)>                                         {[4, 'D7']}
            <MI 1a85c  MOVE.L  D6,-(A7)>                     Δ-4                {[4, 'D7']|[4, 'D6']}
            <Call 0x1a85e 0x1a42c>                                              {[4, 'D7']|[4, 'D6']}
            <POP 1a862-1a864 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x1a864 <LVAR -0x006 @ 4(rw)>>       Δ-4                {[@@-6]}
            <Call 0x1a866 0x10d76>                                              {[@@-6]}
                _FreeString(VAR a : String)
            <POP 1a86c-1a86e StackAdj>                       Δ+4                {}
        <POP 1a86e-1a876 Epilogue>                           Σ0         

0x1a876


@ 1a876
_Config_Entry_Name(a : Byte) : String
        <LVAR  0x00a 4(w)>
        <LVAR  0x008 1(r)>
    <POP 1a876-1a8c8 Body>                                              
        <POP 1a876-1a88c Prologue>                           Σ0         ↓
        <POP 1a88c-1a88e RegCacheLoad>                       Σ0         ↓
        <POP 1a88e-1a8c0 Naked>                              Σ0         ↓
            <MI 1a88e  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 1a892  EXTB.W  D0>                                              {}
            <MI 1a894  MULS.W  #0x14,D0>                                        {}
            <MI 1a896  LEA.L   0x1a364,A0>                                      {}
            <Blob 0x1a89a [20] (A0+D0.W+#0x14)>              Δ-20               {[«20»]}
            <POP 1a8a6-1a8a8 StackAdj>                       Δ-4                {[«20»]|[-4-]}
            <Lit 0x1a8a8>                                                       {[«20»]|[$$…]}
                <Pointer.sp 0x1a8a8 4>                       Δ-4        
                <Const 0x1a8ac 0x1.2>                        Δ-2        
                <Const 0x1a8b0 0x14.2>                       Δ-2        
                <Call 0x1a8b2 0x10ddc>
                    _StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 1a8b8-1a8ba StackAdj>                   Δ+8        
            <MI 1a8ba  MOVE.L  (A7)+,(A6+0xa)>               Δ+4                {[«20»]}
            <POP 1a8be-1a8c0 StackAdj>                       Δ+20               {}
        <POP 1a8c0-1a8c8 Epilogue>                           Σ0         

0x1a8c8


@ 1a8c8
_FSCALL_1058c
        <LVAR  0x010 @ 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 1a8c8-1a95c Body>                                              
        <POP 1a8c8-1a8de Prologue>                           Σ0         ↓
        <POP 1a8de-1a8e2 RegCacheLoad>                       Σ0         ↓
        <POP 1a8e2-1a8ee Naked>                              Σ0 Δ-4     ↓ →0x1a8f6
            <MI 1a8e2  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 1a8e6  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1a8e8  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 1a8ea  CMP.W   #0x1e,D0>                                        {[4, 'A0']}
            <MI 1a8ec  BLE     0x1a8f6>                                         {[4, 'A0']}
        <POP 1a8ee-1a8f6 Naked>                              Σ-4        →0x1a946
            <MI 1a8ee  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 1a8f2  CLR.B   (A0)>                                            {[-4-]}
            <MI 1a8f4  BRA     0x1a946>                                         {[-4-]}
        <POP 1a8f6-1a8f8 Naked>                              Σ-4        ↓ ←0x1a8e2
            <MI 1a8f6  MOVEQ.L #0x01,D7>                                        {[-4-]}
        <POP 1a8f8-1a902 Naked>                              Σ-4        ↓ →0x1a916 ←0x1a938
            <MI 1a8f8  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 1a8fa  MOVE.W  (A0),D0>                                         {[-4-]}
            <MI 1a8fc  EXTW.L  D0>                                              {[-4-]}
            <MI 1a8fe  CMP.L   D0,D7>                                           {[-4-]}
            <MI 1a900  BLE     0x1a916>                                         {[-4-]}
        <POP 1a902-1a916 Naked>                              Σ-4        →0x1a938
            <MI 1a902  MOVEA.L (A6+0xc),A0>                                     {[-4-]}
            <MI 1a906  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 1a908  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x1a90a LimitCheck 0x0 ≤ D0 ≤ 0x1d>                            {[-4-]}
            <MI 1a910  CLR.B   (A0+D0.L)>                                       {[-4-]}
            <MI 1a914  BRA     0x1a938>                                         {[-4-]}
        <POP 1a916-1a938 Naked>                              Σ-4        ↓ ←0x1a8f8
            <MI 1a916  MOVEA.L (A6+0xc),A1>                                     {[-4-]}
            <MI 1a91a  MOVE.L  D7,D0>                                           {[-4-]}
            <MI 1a91c  SUBQ.L  #0x1,D0>                                         {[-4-]}
            <POP 0x1a91e LimitCheck 0x0 ≤ D0 ≤ 0x1d>                            {[-4-]}
            <MI 1a924  MOVE.L  D7,D1>                                           {[-4-]}
            <MI 1a926  SUBQ.L  #0x1,D1>                                         {[-4-]}
            <POP 0x1a928 LimitCheck 0x0 ≤ D1 ≤ 0x7d>                            {[-4-]}
            <MI 1a932  MOVE.B  (A0+D1.L+#0x2),(A1+D0.L)>                        {[-4-]}
        <POP 1a938-1a93e Naked>                              Σ-4        ↓ →0x1a8f8 ←0x1a902
            <MI 1a938  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 1a93a  CMP.L   #0x1e,D7>                                        {[-4-]}
            <MI 1a93c  BLE     0x1a8f8>                                         {[-4-]}
        <POP 1a93e-1a946 Naked>                              Σ-4        ↓
            <MI 1a93e  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 1a942  MOVE.B  #0x01,(A0)>                                      {[-4-]}
        <POP 1a946-1a954 Naked>                              Σ-4 Δ+4    ↓ ←0x1a8ee
            <POP 1a946-1a948 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x1a948 <LVAR  0x010 @ 4(r)>>        Δ-4                {[@@16]}
            <Call 0x1a94c 0x10d76>                                              {[@@16]}
                _FreeString(VAR a : String)
            <POP 1a952-1a954 StackAdj>                       Δ+4                {}
        <POP 1a954-1a95c Epilogue>                           Σ0         

0x1a95c


@ 1a95c
_ReadConfig(where : Long) : Word
        <LVAR  0x00c 2(w)>
        <LVAR  0x008 4(rw)>
        <LVAR -0x004 @ 2(r)>
    <POP 1a95c-1a9ae Body>                                              
        <POP 1a95c-1a972 Prologue>                           Σ0         ↓
        <POP 1a972-1a976 RegCacheLoad>                       Σ0         ↓
        <POP 1a976-1a9a6 Naked>                              Σ0         ↓
            <MI 1a976  ANDI.L  #0x000001ff,(A6+0x8)>                            {}
            <MI 1a97c  ADDI.L  #0x80007e00,(A6+0x8)>                            {}
            <MI 1a982  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <MI 1a984  LEA.L   (A6-0x4),A0>                                     {[4, '(A6+0x8)']}
            <MI 1a988  MOVE.L  A0,-(A7)>                     Δ-4                {[4, '(A6+0x8)']|[4, 'A0']}
            <MI 1a98a  ADDQ.L  #0x1,(A7)>                                       {[4, '(A6+0x8)']|[-4-]}
            <Const 0x1a98c 0x1.2>                            Δ-2                {[4, '(A6+0x8)']|[-4-]|[#1]}
            <Call 0x1a990 0x10238>                                              {[4, '(A6+0x8)']|[-4-]|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 1a996-1a99a StackAdj>                       Δ+10               {}
            <MI 1a99a  MOVE.W  (A6-0x4),(A6+0xc)>                               {}
            <MI 1a9a0  ANDI.W  #0x00ff,(A6+0xc)>                                {}
        <POP 1a9a6-1a9ae Epilogue>                           Σ0         

0x1a9ae


@ 1a9ae
_WriteConfig(what: Word; where : Long)
        <LVAR  0x00a 4(rw)>
        <LVAR  0x008 2(r)>
        <LVAR -0x002 @ 2(w)>
    <POP 1a9ae-1aa06 Body>                                              
        <POP 1a9ae-1a9c4 Prologue>                           Σ0         ↓
        <POP 1a9c4-1a9c8 RegCacheLoad>                       Σ0         ↓
        <POP 1a9c8-1a9fe Naked>                              Σ0         ↓
            <MI 1a9c8  MOVE.W  (A6+0x8),(A6-0x2)>                               {}
            <MI 1a9ce  ANDI.L  #0x000001ff,(A6+0xa)>                            {}
            <MI 1a9d4  ADDI.L  #0x80007e00,(A6+0xa)>                            {}
            <MI 1a9da  LEA.L   (A6-0x2),A0>                                     {}
            <MI 1a9de  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1a9e0  ADDQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 1a9e2  MOVE.L  (A6+0xa),-(A7)>               Δ-4                {[-4-]|[4, '(A6+0xa)']}
            <Const 0x1a9e4 0x1.2>                            Δ-2                {[-4-]|[4, '(A6+0xa)']|[#1]}
            <Call 0x1a9e8 0x10238>                                              {[-4-]|[4, '(A6+0xa)']|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 1a9ee-1a9f2 StackAdj>                       Δ+10               {}
            <Const 0x1a9f2 0x3d0.4>                          Δ-4                {[##976]}
            <Call 0x1a9f6 0x10224>                                              {[##976]}
                KC12_Sleep(dur: Long)
            <POP 1a9fc-1a9fe StackAdj>                       Δ+4                {}
        <POP 1a9fe-1aa06 Epilogue>                           Σ0         

0x1aa06


@ 1aa06
_ReadClusterNo(VAR a : Long)
        <LVAR  0x008 4(r)>
    <POP 1aa06-1aa50 Body>                                              
        <POP 1aa06-1aa1c Prologue>                           Σ0         ↓
        <POP 1aa1c-1aa1e RegCacheLoad>                       Σ0         ↓
        <POP 1aa1e-1aa20 Naked>                              Σ0         ↓
            <MI 1aa1e  MOVEQ.L #0x00,D7>                                        {}
        <POP 1aa20-1aa48 Naked>                              Σ0         ↓ →0x1aa20 ←0x1aa20
            <MI 1aa20  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 0x1aa24 LimitCheck 0x0 ≤ D7 ≤ 0x3>                             {}
            <POP 1aa2a-1aa2c StackAdj>                       Δ-2                {[-2-]}
            <Const 0x1aa2c 0x84.4>                           Δ-4                {[-2-]|[##132]}
            <MI 1aa30  ADD.L   D7,(A7)>                                         {[-6-]}
            <Call 0x1aa32 0x1a95c>                                              {[-6-]}
                _ReadConfig(where : Long) : Word
            <POP 1aa36-1aa38 StackAdj>                       Δ+4                {[-2-]}
            <MI 1aa38  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x1aa3a LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 1aa3e  MOVE.B  D0,(A0+D7.L)>                                    {}
            <MI 1aa42  ADDQ.L  #0x1,D7>                                         {}
            <MI 1aa44  CMP.L   #0x03,D7>                                        {}
            <MI 1aa46  BLE     0x1aa20>                                         {}
        <POP 1aa48-1aa50 Epilogue>                           Σ0         

0x1aa50


@ 1aa50
        <LVAR  0x008 4(r)>
    <POP 1aa50-1aa8a Body>                                              
        <POP 1aa50-1aa66 Prologue>                           Σ0         ↓
        <POP 1aa66-1aa82 Naked>                              Σ0         ↓
            <MI 1aa66  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 1aa6a  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1aa6c  LEA.L   0xfc0c,A0>                                       {[4, 'A0']}
            <MI 1aa72  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x1aa74 0x2.2>                            Δ-2                {[4, 'A0']|[4, 'A0']|[#2]}
            <Call 0x1aa78 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#2]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 1aa7e-1aa82 StackAdj>                       Δ+10               {}
        <POP 1aa82-1aa8a Epilogue>                           Σ0         

0x1aa8a


@ 1aa8a
_Read_fc0c() : Word
        <LVAR  0x008 4(r)>
    <POP 1aa8a-1aac4 Body>                                              
        <POP 1aa8a-1aaa0 Prologue>                           Σ0         ↓
        <POP 1aaa0-1aabc Naked>                              Σ0         ↓
            <MI 1aaa0  LEA.L   0xfc0c,A0>                                       {}
            <MI 1aaa6  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1aaa8  MOVEA.L (A6+0x8),A0>                                     {[4, 'A0']}
            <MI 1aaac  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x1aaae 0x2.2>                            Δ-2                {[4, 'A0']|[4, 'A0']|[#2]}
            <Call 0x1aab2 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#2]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 1aab8-1aabc StackAdj>                       Δ+10               {}
        <POP 1aabc-1aac4 Epilogue>                           Σ0         

0x1aac4


@ 1aac4
_Read_fc00() : Byte
        <LVAR  0x008 4(r)>
    <POP 1aac4-1aafe Body>                                              
        <POP 1aac4-1aada Prologue>                           Σ0         ↓
        <POP 1aada-1aaf6 Naked>                              Σ0         ↓
            <MI 1aada  LEA.L   0xfc00,A0>                                       {}
            <MI 1aae0  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1aae2  MOVEA.L (A6+0x8),A0>                                     {[4, 'A0']}
            <MI 1aae6  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x1aae8 0x1.2>                            Δ-2                {[4, 'A0']|[4, 'A0']|[#1]}
            <Call 0x1aaec 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 1aaf2-1aaf6 StackAdj>                       Δ+10               {}
        <POP 1aaf6-1aafe Epilogue>                           Σ0         

0x1aafe


@ 1aafe
_FifoInit(void)
        <LVAR -0x004 @ 4(r)>
    <POP 1aafe-1ab40 Body>                                              
        <POP 1aafe-1ab14 Prologue>                           Σ0         ↓
        <POP 1ab14-1ab38 Naked>                              Σ0         ↓
            <MI 1ab14  CLR.L   (A6-0x4)>                                        {}
            <MI 1ab18  LEA.L   (A6-0x4),A0>                                     {}
            <MI 1ab1c  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Const 0x1ab1e 0x1.2>                            Δ-2                {[4, 'A0']|[#1]}
            <Const 0x1ab22 0xfffff500.4>                     Δ-4                {[4, 'A0']|[#1]|[##4294964480]}
            <Const 0x1ab26 0x5.2>                            Δ-2                {[4, 'A0']|[#1]|[##4294964480]|[#5]}
            <Const 0x1ab2a 0x4.2>                            Δ-2                {[4, 'A0']|[#1]|[##4294964480]|[#5]|[#4]}
            <Call 0x1ab2e 0x1023a>                                              {[4, 'A0']|[#1]|[##4294964480]|[#5]|[#4]}
                KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
            <POP 1ab34-1ab38 StackAdj>                       Δ+14               {}
        <POP 1ab38-1ab40 Epilogue>                           Σ0         

0x1ab40


@ 1ab40
_R1000_Reset_L(void)
        <LVAR -0x006 @ 4(rw)>
        <LVAR -0x007 1(w)>
        <LVAR -0x008 @>
    <POP 1ab40-1abbc Body>                                              
        <POP 1ab40-1ab56 Prologue>                           Σ0         ↓
        <POP 1ab56-1ab62 RegCacheLoad>                       Σ0         ↓
        <POP 1ab62-1abb4 Naked>                              Σ0         ↓
            <Const 0x1ab62 0xfffff800.4>                     Δ-4                {[##4294965248]}
            <Const 0x1ab66 0x5.2>                            Δ-2                {[##4294965248]|[#5]}
            <MI 1ab68  LEA.L   (A6-0x6),A0>                                     {[##4294965248]|[#5]}
            <MI 1ab6a  MOVE.L  A0,-(A7)>                     Δ-4                {[##4294965248]|[#5]|[4, 'A0']}
            <Const 0x1ab6c 0x1.2>                            Δ-2                {[##4294965248]|[#5]|[4, 'A0']|[#1]}
            <Const 0x1ab6e 0x4.2>                            Δ-2                {[##4294965248]|[#5]|[4, 'A0']|[#1]|[#4]}
            <Call 0x1ab70 0x1023a>                                              {[##4294965248]|[#5]|[4, 'A0']|[#1]|[#4]}
                KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
            <POP 1ab76-1ab78 StackAdj>                       Δ+14               {}
            <MI 1ab78  MOVE.L  (A6-0x6),D0>                                     {}
            <MI 1ab7a  LSR.L   #0x8,D0>                                         {}
            <MI 1ab7c  ANDI.L  #0x000000fe,D0>                                  {}
            <MI 1ab82  MOVE.L  D0,(A6-0x6)>                                     {}
            <MI 1ab84  LEA.L   (A6-0x6),A0>                                     {}
            <MI 1ab86  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Const 0x1ab88 0x1.2>                            Δ-2                {[4, 'A0']|[#1]}
            <Const 0x1ab8a 0xfffffe00.4>                     Δ-4                {[4, 'A0']|[#1]|[##4294966784]}
            <Const 0x1ab8e 0x5.2>                            Δ-2                {[4, 'A0']|[#1]|[##4294966784]|[#5]}
            <Const 0x1ab90 0x4.2>                            Δ-2                {[4, 'A0']|[#1]|[##4294966784]|[#5]|[#4]}
            <Call 0x1ab92 0x1023a>                                              {[4, 'A0']|[#1]|[##4294966784]|[#5]|[#4]}
                KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
            <POP 1ab98-1ab9a StackAdj>                       Δ+14               {}
            <Pointer.fp 0x1ab9a <LVAR -0x008 @>>             Δ-4                {[@@-8]}
            <Call 0x1ab9e 0x1aa8a>                                              {[@@-8]}
                _Read_fc0c() : Word
            <POP 1aba2-1aba4 StackAdj>                       Δ+4                {}
            <MI 1aba4  ANDI.B  #0xf7,(A6-0x7)>                                  {}
            <Pointer.fp 0x1abaa <LVAR -0x008 @>>             Δ-4                {[@@-8]}
            <Call 0x1abae 0x1aa50>                                              {[@@-8]}
            <POP 1abb2-1abb4 StackAdj>                       Δ+4                {}
        <POP 1abb4-1abbc Epilogue>                           Σ0         

0x1abbc


@ 1abbc
_R1000_Reset_H(void)
        <LVAR -0x006 @ 4(rw)>
        <LVAR -0x007 1(w)>
        <LVAR -0x008 @>
    <POP 1abbc-1ac38 Body>                                              
        <POP 1abbc-1abd2 Prologue>                           Σ0         ↓
        <POP 1abd2-1abde RegCacheLoad>                       Σ0         ↓
        <POP 1abde-1ac30 Naked>                              Σ0         ↓
            <Const 0x1abde 0xfffff800.4>                     Δ-4                {[##4294965248]}
            <Const 0x1abe2 0x5.2>                            Δ-2                {[##4294965248]|[#5]}
            <MI 1abe4  LEA.L   (A6-0x6),A0>                                     {[##4294965248]|[#5]}
            <MI 1abe6  MOVE.L  A0,-(A7)>                     Δ-4                {[##4294965248]|[#5]|[4, 'A0']}
            <Const 0x1abe8 0x1.2>                            Δ-2                {[##4294965248]|[#5]|[4, 'A0']|[#1]}
            <Const 0x1abea 0x4.2>                            Δ-2                {[##4294965248]|[#5]|[4, 'A0']|[#1]|[#4]}
            <Call 0x1abec 0x1023a>                                              {[##4294965248]|[#5]|[4, 'A0']|[#1]|[#4]}
                KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
            <POP 1abf2-1abf4 StackAdj>                       Δ+14               {}
            <MI 1abf4  MOVE.L  (A6-0x6),D0>                                     {}
            <MI 1abf6  LSR.L   #0x8,D0>                                         {}
            <MI 1abf8  OR.L    #0x01,D0>                                        {}
            <MI 1abfa  MOVE.L  D0,(A6-0x6)>                                     {}
            <MI 1abfc  LEA.L   (A6-0x6),A0>                                     {}
            <MI 1abfe  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <Const 0x1ac00 0x1.2>                            Δ-2                {[4, 'A0']|[#1]}
            <Const 0x1ac02 0xfffffe00.4>                     Δ-4                {[4, 'A0']|[#1]|[##4294966784]}
            <Const 0x1ac06 0x5.2>                            Δ-2                {[4, 'A0']|[#1]|[##4294966784]|[#5]}
            <Const 0x1ac08 0x4.2>                            Δ-2                {[4, 'A0']|[#1]|[##4294966784]|[#5]|[#4]}
            <Call 0x1ac0a 0x1023a>                                              {[4, 'A0']|[#1]|[##4294966784]|[#5]|[#4]}
                KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
            <POP 1ac10-1ac12 StackAdj>                       Δ+14               {}
            <Pointer.fp 0x1ac12 <LVAR -0x008 @>>             Δ-4                {[@@-8]}
            <Call 0x1ac16 0x1aa8a>                                              {[@@-8]}
                _Read_fc0c() : Word
            <POP 1ac1a-1ac1c StackAdj>                       Δ+4                {}
            <MI 1ac1c  OR.B    #0x04,(A6-0x7)>                                  {}
            <MI 1ac20  ORI.B   #0x08,(A6-0x7)>                                  {}
            <Pointer.fp 0x1ac26 <LVAR -0x008 @>>             Δ-4                {[@@-8]}
            <Call 0x1ac2a 0x1aa50>                                              {[@@-8]}
            <POP 1ac2e-1ac30 StackAdj>                       Δ+4                {}
        <POP 1ac30-1ac38 Epilogue>                           Σ0         

0x1ac38


@ 1ac38
_Or_fc0c_80(void)
        <LVAR -0x003 1(w)>
        <LVAR -0x004 @>
    <POP 1ac38-1ac68 Body>                                              
        <POP 1ac38-1ac4a Prologue>                           Σ0         ↓
        <POP 1ac4a-1ac64 Naked>                              Σ0         ↓
            <Pointer.fp 0x1ac4a <LVAR -0x004 @>>             Δ-4                {[@@-4]}
            <Call 0x1ac4e 0x1aa8a>                                              {[@@-4]}
                _Read_fc0c() : Word
            <POP 1ac52-1ac54 StackAdj>                       Δ+4                {}
            <MI 1ac54  ORI.B   #0x80,(A6-0x3)>                                  {}
            <Pointer.fp 0x1ac5a <LVAR -0x004 @>>             Δ-4                {[@@-4]}
            <Call 0x1ac5e 0x1aa50>                                              {[@@-4]}
            <POP 1ac62-1ac64 StackAdj>                       Δ+4                {}
        <POP 1ac64-1ac68 Epilogue>                           Σ0         

0x1ac68


@ 1ac68
_And_fc0c_7f(void)
        <LVAR -0x003 1(w)>
        <LVAR -0x004 @>
    <POP 1ac68-1ac98 Body>                                              
        <POP 1ac68-1ac7a Prologue>                           Σ0         ↓
        <POP 1ac7a-1ac94 Naked>                              Σ0         ↓
            <Pointer.fp 0x1ac7a <LVAR -0x004 @>>             Δ-4                {[@@-4]}
            <Call 0x1ac7e 0x1aa8a>                                              {[@@-4]}
                _Read_fc0c() : Word
            <POP 1ac82-1ac84 StackAdj>                       Δ+4                {}
            <MI 1ac84  ANDI.B  #0x7f,(A6-0x3)>                                  {}
            <Pointer.fp 0x1ac8a <LVAR -0x004 @>>             Δ-4                {[@@-4]}
            <Call 0x1ac8e 0x1aa50>                                              {[@@-4]}
            <POP 1ac92-1ac94 StackAdj>                       Δ+4                {}
        <POP 1ac94-1ac98 Epilogue>                           Σ0         

0x1ac98


@ 1ac98
_ReadKeySwitch() : Bool
        <LVAR  0x008 1(rw)>
        <LVAR -0x004 @ 4(r)>
    <POP 1ac98-1acea Body>                                              
        <POP 1ac98-1acae Prologue>                           Σ0         ↓
        <POP 1acae-1acde Naked>                              Σ0         ↓ →0x1ace2
            <Const 0x1acae 0xfffff800.4>                     Δ-4                {[##4294965248]}
            <Const 0x1acb2 0x5.2>                            Δ-2                {[##4294965248]|[#5]}
            <MI 1acb6  LEA.L   (A6-0x4),A0>                                     {[##4294965248]|[#5]}
            <MI 1acba  MOVE.L  A0,-(A7)>                     Δ-4                {[##4294965248]|[#5]|[4, 'A0']}
            <Const 0x1acbc 0x1.2>                            Δ-2                {[##4294965248]|[#5]|[4, 'A0']|[#1]}
            <Const 0x1acc0 0x4.2>                            Δ-2                {[##4294965248]|[#5]|[4, 'A0']|[#1]|[#4]}
            <Call 0x1acc4 0x1023a>                                              {[##4294965248]|[#5]|[4, 'A0']|[#1]|[#4]}
                KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
            <POP 1acca-1acce StackAdj>                       Δ+14               {}
            <MI 1acce  CLR.B   (A6+0x8)>                                        {}
            <MI 1acd2  MOVE.L  (A6-0x4),D0>                                     {}
            <MI 1acd6  ANDI.L  #0x00000008,D0>                                  {}
            <MI 1acdc  BEQ     0x1ace2>                                         {}
        <POP 1acde-1ace2 Naked>                              Σ0         ↓
            <MI 1acde  ADDQ.B  #0x1,(A6+0x8)>                                   {}
        <POP 1ace2-1acea Epilogue>                           Σ0         ←0x1acae

0x1acea


@ 1acea
_Update_fc0c(new : Byte)
        <LVAR  0x008 1(r)>
        <LVAR -0x002 @ 1(w)>
    <POP 1acea-1ad5c Body>                                              
        <POP 1acea-1ad00 Prologue>                           Σ0         ↓
        <POP 1ad00-1ad08 RegCacheLoad>                       Σ0         ↓
        <POP 1ad08-1ad54 Naked>                              Σ0         ↓
            <Pointer.fp 0x1ad08 <LVAR -0x002 @ 1(w)>>        Δ-4                {[@@-2]}
            <Call 0x1ad0a 0x1aa8a>                                              {[@@-2]}
                _Read_fc0c() : Word
            <POP 1ad0e-1ad10 StackAdj>                       Δ+4                {}
            <MI 1ad10  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 1ad12  ANDI.B  #0xf7,(A6-0x2)>                                  {}
            <MI 1ad16  ANDI.B  #0x08,D0>                                        {}
            <MI 1ad1a  OR.B    D0,(A6-0x2)>                                     {}
            <MI 1ad1c  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 1ad1e  ANDI.B  #0xef,(A6-0x2)>                                  {}
            <MI 1ad22  ANDI.B  #0x10,D0>                                        {}
            <MI 1ad26  OR.B    D0,(A6-0x2)>                                     {}
            <MI 1ad28  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 1ad2a  ANDI.B  #0xdf,(A6-0x2)>                                  {}
            <MI 1ad2e  ANDI.B  #0x20,D0>                                        {}
            <MI 1ad32  OR.B    D0,(A6-0x2)>                                     {}
            <MI 1ad34  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 1ad36  ANDI.B  #0xbf,(A6-0x2)>                                  {}
            <MI 1ad3a  ANDI.B  #0x40,D0>                                        {}
            <MI 1ad3e  OR.B    D0,(A6-0x2)>                                     {}
            <MI 1ad40  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 1ad42  ANDI.B  #0x7f,(A6-0x2)>                                  {}
            <MI 1ad46  ANDI.B  #0x80,D0>                                        {}
            <MI 1ad4a  OR.B    D0,(A6-0x2)>                                     {}
            <Pointer.fp 0x1ad4c <LVAR -0x002 @ 1(w)>>        Δ-4                {[@@-2]}
            <Call 0x1ad4e 0x1aa50>                                              {[@@-2]}
            <POP 1ad52-1ad54 StackAdj>                       Δ+4                {}
        <POP 1ad54-1ad5c Epilogue>                           Σ0         

0x1ad5c


@ 1ad5c
_Set_fc01(a : Byte)
        <LVAR  0x008 @>
    <POP 1ad5c-1ad9c Body>                                              
        <POP 1ad5c-1ad72 Prologue>                           Σ0         ↓
        <POP 1ad72-1ad94 Naked>                              Σ0         ↓
            <MI 1ad72  LEA.L   (A6+0x8),A0>                                     {}
            <MI 1ad76  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1ad78  LEA.L   0xfc01,A0>                                       {[4, 'A0']}
            <MI 1ad7e  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x1ad80 0x1.2>                            Δ-2                {[4, 'A0']|[4, 'A0']|[#1]}
            <Call 0x1ad84 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 1ad8a-1ad8e StackAdj>                       Δ+10               {}
            <Call 0x1ad8e 0x10240>                                              {}
                KC20_Estop(void)
        <POP 1ad94-1ad9c Epilogue>                           Σ0         

0x1ad9c


@ 1ad9c
_Get_fc01() : Byte
        <LVAR  0x008 4(r)>
    <POP 1ad9c-1add6 Body>                                              
        <POP 1ad9c-1adb2 Prologue>                           Σ0         ↓
        <POP 1adb2-1adce Naked>                              Σ0         ↓
            <MI 1adb2  LEA.L   0xfc01,A0>                                       {}
            <MI 1adb8  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1adba  MOVEA.L (A6+0x8),A0>                                     {[4, 'A0']}
            <MI 1adbe  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x1adc0 0x1.2>                            Δ-2                {[4, 'A0']|[4, 'A0']|[#1]}
            <Call 0x1adc4 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 1adca-1adce StackAdj>                       Δ+10               {}
        <POP 1adce-1add6 Epilogue>                           Σ0         

0x1add6


@ 1add6
_Set_fc04_to_01(void)
        <LVAR -0x004 @ 1(w)>
    <POP 1add6-1ae14 Body>                                              
        <POP 1add6-1adec Prologue>                           Σ0         ↓
        <POP 1adec-1adee RegCacheLoad>                       Σ0         ↓
        <POP 1adee-1ae0c Naked>                              Σ0         ↓
            <MI 1adee  MOVE.B  #0x01,(A6-0x4)>                                  {}
            <MI 1adf2  LEA.L   (A6-0x4),A0>                                     {}
            <MI 1adf6  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1adf8  LEA.L   0xfc04,A0>                                       {[4, 'A0']}
            <MI 1adfe  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x1ae00 0x1.2>                            Δ-2                {[4, 'A0']|[4, 'A0']|[#1]}
            <Call 0x1ae02 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 1ae08-1ae0c StackAdj>                       Δ+10               {}
        <POP 1ae0c-1ae14 Epilogue>                           Σ0         

0x1ae14


@ 1ae14
_Get_fc05() : Byte
        <LVAR  0x008 1(w)>
        <LVAR -0x004 @ 1(r)>
    <POP 1ae14-1ae54 Body>                                              
        <POP 1ae14-1ae2a Prologue>                           Σ0         ↓
        <POP 1ae2a-1ae4c Naked>                              Σ0         ↓
            <MI 1ae2a  LEA.L   0xfc05,A0>                                       {}
            <MI 1ae30  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1ae32  LEA.L   (A6-0x4),A0>                                     {[4, 'A0']}
            <MI 1ae36  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x1ae38 0x1.2>                            Δ-2                {[4, 'A0']|[4, 'A0']|[#1]}
            <Call 0x1ae3c 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 1ae42-1ae46 StackAdj>                       Δ+10               {}
            <MI 1ae46  MOVE.B  (A6-0x4),(A6+0x8)>                               {}
        <POP 1ae4c-1ae54 Epilogue>                           Σ0         

0x1ae54


@ 1ae54
_Get_fc02() : Word
        <LVAR  0x008 2(w)>
        <LVAR -0x004 @ 2(r)>
    <POP 1ae54-1ae94 Body>                                              
        <POP 1ae54-1ae6a Prologue>                           Σ0         ↓
        <POP 1ae6a-1ae8c Naked>                              Σ0         ↓
            <MI 1ae6a  LEA.L   0xfc02,A0>                                       {}
            <MI 1ae70  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1ae72  LEA.L   (A6-0x4),A0>                                     {[4, 'A0']}
            <MI 1ae76  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x1ae78 0x2.2>                            Δ-2                {[4, 'A0']|[4, 'A0']|[#2]}
            <Call 0x1ae7c 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#2]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 1ae82-1ae86 StackAdj>                       Δ+10               {}
            <MI 1ae86  MOVE.W  (A6-0x4),(A6+0x8)>                               {}
        <POP 1ae8c-1ae94 Epilogue>                           Σ0         

0x1ae94


@ 1ae94
_Is_fc07_one() : Bool
        <LVAR  0x008 1(rw)>
        <LVAR -0x004 @ 1(r)>
    <POP 1ae94-1aede Body>                                              
        <POP 1ae94-1aeaa Prologue>                           Σ0         ↓
        <POP 1aeaa-1aeac RegCacheLoad>                       Σ0         ↓
        <POP 1aeac-1aed2 Naked>                              Σ0         ↓ →0x1aed6
            <MI 1aeac  LEA.L   0xfc07,A0>                                       {}
            <MI 1aeb2  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1aeb4  LEA.L   (A6-0x4),A0>                                     {[4, 'A0']}
            <MI 1aeb8  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x1aeba 0x1.2>                            Δ-2                {[4, 'A0']|[4, 'A0']|[#1]}
            <Call 0x1aebc 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 1aec2-1aec6 StackAdj>                       Δ+10               {}
            <MI 1aec6  CLR.B   (A6+0x8)>                                        {}
            <MI 1aeca  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 1aece  CMP.B   #0x01,D0>                                        {}
            <MI 1aed0  BNE     0x1aed6>                                         {}
        <POP 1aed2-1aed6 Naked>                              Σ0         ↓
            <MI 1aed2  ADDQ.B  #0x1,(A6+0x8)>                                   {}
        <POP 1aed6-1aede Epilogue>                           Σ0         ←0x1aeac

0x1aede


@ 1aede
_Is_fc07_two() : Bool
        <LVAR  0x008 1(rw)>
        <LVAR -0x004 @ 1(r)>
    <POP 1aede-1af2a Body>                                              
        <POP 1aede-1aef4 Prologue>                           Σ0         ↓
        <POP 1aef4-1af1e Naked>                              Σ0         ↓ →0x1af22
            <MI 1aef4  LEA.L   0xfc07,A0>                                       {}
            <MI 1aefa  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1aefc  LEA.L   (A6-0x4),A0>                                     {[4, 'A0']}
            <MI 1af00  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x1af02 0x1.2>                            Δ-2                {[4, 'A0']|[4, 'A0']|[#1]}
            <Call 0x1af06 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 1af0c-1af10 StackAdj>                       Δ+10               {}
            <MI 1af10  CLR.B   (A6+0x8)>                                        {}
            <MI 1af14  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 1af18  CMPI.B  #0x02,D0>                                        {}
            <MI 1af1c  BNE     0x1af22>                                         {}
        <POP 1af1e-1af22 Naked>                              Σ0         ↓
            <MI 1af1e  ADDQ.B  #0x1,(A6+0x8)>                                   {}
        <POP 1af22-1af2a Epilogue>                           Σ0         ←0x1aef4

0x1af2a


@ 1af2a
_Is_fc07_three() : Bool
        <LVAR  0x008 1(rw)>
        <LVAR -0x004 @ 1(r)>
    <POP 1af2a-1af76 Body>                                              
        <POP 1af2a-1af40 Prologue>                           Σ0         ↓
        <POP 1af40-1af6a Naked>                              Σ0         ↓ →0x1af6e
            <MI 1af40  LEA.L   0xfc07,A0>                                       {}
            <MI 1af46  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1af48  LEA.L   (A6-0x4),A0>                                     {[4, 'A0']}
            <MI 1af4c  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x1af4e 0x1.2>                            Δ-2                {[4, 'A0']|[4, 'A0']|[#1]}
            <Call 0x1af52 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 1af58-1af5c StackAdj>                       Δ+10               {}
            <MI 1af5c  CLR.B   (A6+0x8)>                                        {}
            <MI 1af60  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 1af64  CMPI.B  #0x03,D0>                                        {}
            <MI 1af68  BNE     0x1af6e>                                         {}
        <POP 1af6a-1af6e Naked>                              Σ0         ↓
            <MI 1af6a  ADDQ.B  #0x1,(A6+0x8)>                                   {}
        <POP 1af6e-1af76 Epilogue>                           Σ0         ←0x1af40

0x1af76


@ 1af76
_Is_fc07_four() : Bool
        <LVAR  0x008 1(rw)>
        <LVAR -0x004 @ 1(r)>
    <POP 1af76-1afc2 Body>                                              
        <POP 1af76-1af8c Prologue>                           Σ0         ↓
        <POP 1af8c-1afb6 Naked>                              Σ0         ↓ →0x1afba
            <MI 1af8c  LEA.L   0xfc07,A0>                                       {}
            <MI 1af92  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1af94  LEA.L   (A6-0x4),A0>                                     {[4, 'A0']}
            <MI 1af98  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x1af9a 0x1.2>                            Δ-2                {[4, 'A0']|[4, 'A0']|[#1]}
            <Call 0x1af9e 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 1afa4-1afa8 StackAdj>                       Δ+10               {}
            <MI 1afa8  CLR.B   (A6+0x8)>                                        {}
            <MI 1afac  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 1afb0  CMPI.B  #0x04,D0>                                        {}
            <MI 1afb4  BNE     0x1afba>                                         {}
        <POP 1afb6-1afba Naked>                              Σ0         ↓
            <MI 1afb6  ADDQ.B  #0x1,(A6+0x8)>                                   {}
        <POP 1afba-1afc2 Epilogue>                           Σ0         ←0x1af8c

0x1afc2


@ 1afc2
_Is_fc07_one_or_three() : Bool
        <LVAR  0x008 1(rw)>
        <LVAR -0x004 @ 1(r)>
    <POP 1afc2-1b012 Body>                                              
        <POP 1afc2-1afd8 Prologue>                           Σ0         ↓
        <POP 1afd8-1afda RegCacheLoad>                       Σ0         ↓
        <POP 1afda-1b000 Naked>                              Σ0         ↓ →0x1b006
            <MI 1afda  LEA.L   0xfc07,A0>                                       {}
            <MI 1afe0  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1afe2  LEA.L   (A6-0x4),A0>                                     {[4, 'A0']}
            <MI 1afe6  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x1afe8 0x1.2>                            Δ-2                {[4, 'A0']|[4, 'A0']|[#1]}
            <Call 0x1afea 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 1aff0-1aff4 StackAdj>                       Δ+10               {}
            <MI 1aff4  CLR.B   (A6+0x8)>                                        {}
            <MI 1aff8  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 1affc  CMP.B   #0x01,D0>                                        {}
            <MI 1affe  BEQ     0x1b006>                                         {}
        <POP 1b000-1b006 Naked>                              Σ0         ↓ →0x1b00a
            <MI 1b000  CMPI.B  #0x03,D0>                                        {}
            <MI 1b004  BNE     0x1b00a>                                         {}
        <POP 1b006-1b00a Naked>                              Σ0         ↓ ←0x1afda
            <MI 1b006  ADDQ.B  #0x1,(A6+0x8)>                                   {}
        <POP 1b00a-1b012 Epilogue>                           Σ0         ←0x1b000

0x1b012


@ 1b012
_Is_fc07_two_or_four() : Bool
        <LVAR  0x008 1(rw)>
        <LVAR -0x004 @ 1(r)>
    <POP 1b012-1b064 Body>                                              
        <POP 1b012-1b028 Prologue>                           Σ0         ↓
        <POP 1b028-1b052 Naked>                              Σ0         ↓ →0x1b058
            <MI 1b028  LEA.L   0xfc07,A0>                                       {}
            <MI 1b02e  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 1b030  LEA.L   (A6-0x4),A0>                                     {[4, 'A0']}
            <MI 1b034  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x1b036 0x1.2>                            Δ-2                {[4, 'A0']|[4, 'A0']|[#1]}
            <Call 0x1b03a 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#1]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 1b040-1b044 StackAdj>                       Δ+10               {}
            <MI 1b044  CLR.B   (A6+0x8)>                                        {}
            <MI 1b048  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 1b04c  CMPI.B  #0x02,D0>                                        {}
            <MI 1b050  BEQ     0x1b058>                                         {}
        <POP 1b052-1b058 Naked>                              Σ0         ↓ →0x1b05c
            <MI 1b052  CMPI.B  #0x04,D0>                                        {}
            <MI 1b056  BNE     0x1b05c>                                         {}
        <POP 1b058-1b05c Naked>                              Σ0         ↓ ←0x1b028
            <MI 1b058  ADDQ.B  #0x1,(A6+0x8)>                                   {}
        <POP 1b05c-1b064 Epilogue>                           Σ0         ←0x1b052

Raw from R1000.Disassembly/DFS

00010000 ; --------------------------------------------------------------------------------------
00010000 ; R1000.Disassembly modules:
00010000 ;   import all
00010000 ;   import kind.fs
00010000 ;   no ident.844dae40b6294534
00010000 ; --------------------------------------------------------------------------------------
00010000 00 02 00 00              |        |		.XXX[0x4]
00010004 00 01 06 1c              |        |		.CODE	START
00010008					mounted_drive:
00010008 00 00                    |        |		.CONST	0x0,0x0
0001000a					sec_per_track:
0001000a 00 00                    |        |		.XXX[0x2]
0001000c					sec_per_cyl:
0001000c 00 00                    |        |		.XXX[0x2]
0001000e					superblock_sector:
0001000e 00 00                    |        |		.XXX[0x2]
00010010					superblock_sector.freelist_lba:
00010010 00 00                    |        |		.CONST	0x0,0x0
00010012 00 00 00 00 00 00        |        |		.XXX[0x6]
00010018 00 00 00 00 00 00 00 00  |        |		.XXX[0x8]
00010020 00 00                    |        |		.XXX[0x2]
00010022					freelist_sector:
00010022 00 00 00 00 00 00        |        |		.XXX[0x6]
00010028 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0x1d8]
00010200 ; --------------------------------------------------------------------------------------
00010200 ; KC00_GetBootDev(VAR a : Byte; VAR b : Word)
00010200 ; Stack:
00010200 ;     A6+0xc  VAR a : Byte
00010200 ;     A6+0x8  VAR b : Word
00010200 ; --------------------------------------------------------------------------------------
00010200					KC00_GetBootDev(VAR a : Byte; VAR b : Word):
00010200 a0 00                    |        |		KERNCALL	#0x0
00010202 ; --------------------------------------------------------------------------------------
00010202 ; KC01_DumpOn
00010202 ; --------------------------------------------------------------------------------------
00010202					KC01_DumpOn:
00010202 a0 01                    |        |		KERNCALL	#0x1
00010204 ; --------------------------------------------------------------------------------------
00010204 ; KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00010204 ; Stack:
00010204 ;     A6+0xe      desc : Pointer
00010204 ;     A6+0xa      dst : Pointer
00010204 ;     A6+0x8      c : W
00010204 ; ==========================================================
00010204 ; D1 = 2 -> READ
00010204 ; D1 = 3 -> WRITE
00010204 ; (Other registers may be significant too)
00010204 ; 
00010204 ; STACK+a: LWORD desc pointer
00010204 ; STACK+6: LWORD src/dst pointer
00010204 ; STACK+4: WORD (zero)
00010204 ; 
00010204 ; Desc+00:        0x0100
00010204 ; Desc+02:        0x0000
00010204 ; Desc+04:        0x0002
00010204 ; Desc+06:        0x0000
00010204 ; Desc+08:        0x0080
00010204 ; Desc+0a:        0x0002
00010204 ; Desc+0c:        0x____ cylinder
00010204 ; Desc+0e:        0x__ head
00010204 ; Desc+0f:        0x__ sector
00010204 ; 
00010204 ; CHS is 512 byte sectors
00010204 ; --------------------------------------------------------------------------------------
00010204					KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W):
00010204 a0 02                    |        |		KERNCALL	#0x2
00010206 ; --------------------------------------------------------------------------------------
00010206 ; KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00010206 ; Stack:
00010206 ;     A6+0xc      a : W
00010206 ;     A6+0x8  VAR status : Byte
00010206 ; --------------------------------------------------------------------------------------
00010206					KC03_Wait_Disk_IO(a : W; VAR status : Byte):
00010206 a0 03                    |        |		KERNCALL	#0x3
00010208 ; --------------------------------------------------------------------------------------
00010208 ; KERNCALL_04
00010208 ; --------------------------------------------------------------------------------------
00010208					KERNCALL_04:
00010208 a0 04                    |        |		KERNCALL	#0x4
0001020a ; --------------------------------------------------------------------------------------
0001020a ; KC05_Write_Console_String(port : Word ; str : String)
0001020a ; Stack:
0001020a ;     A6+0xc      port : Word
0001020a ;     A6+0x8      str : String
0001020a ; --------------------------------------------------------------------------------------
0001020a					KC05_Write_Console_String(port : Word ; str : String):
0001020a a0 05                    |        |		KERNCALL	#0x5
0001020c ; --------------------------------------------------------------------------------------
0001020c ; KC06_PortPutChar(port : Word ; b : char)
0001020c ; Stack:
0001020c ;     A6+0xa      port : Word
0001020c ;     A6+0x8      b : char
0001020c ; --------------------------------------------------------------------------------------
0001020c					KC06_PortPutChar(port : Word ; b : char):
0001020c a0 06                    |        |		KERNCALL	#0x6
0001020e ; --------------------------------------------------------------------------------------
0001020e ; KC07_PortGetChar(port : Word ; VAR ret : Word)
0001020e ; Stack:
0001020e ;     A6+0xc      port : Word
0001020e ;     A6+0x8  VAR ret : Word
0001020e ; --------------------------------------------------------------------------------------
0001020e					KC07_PortGetChar(port : Word ; VAR ret : Word):
0001020e a0 07                    |        |		KERNCALL	#0x7
00010210 ; --------------------------------------------------------------------------------------
00010210 ; KC08_PortSomething(port: Word; b: Byte)
00010210 ; Stack:
00010210 ;     A6+0xa      port : Word
00010210 ;     A6+0x8      b : Byte
00010210 ; --------------------------------------------------------------------------------------
00010210					KC08_PortSomething(port: Word; b: Byte):
00010210 a0 08                    |        |		KERNCALL	#0x8
00010212 ; --------------------------------------------------------------------------------------
00010212 ; KC09_PortStatus(Port : Word; VAR b: Byte)
00010212 ; Stack:
00010212 ;     A6+0xc      Port : Word
00010212 ;     A6+0x8  VAR b : Byte
00010212 ; --------------------------------------------------------------------------------------
00010212					KC09_PortStatus(Port : Word; VAR b: Byte):
00010212 a0 09                    |        |		KERNCALL	#0x9
00010214 ; --------------------------------------------------------------------------------------
00010214 ; KC0a(a: Word; b: String)
00010214 ; Stack:
00010214 ;     A6+0xc      a : Word
00010214 ;     A6+0x8      b : String
00010214 ; --------------------------------------------------------------------------------------
00010214					KC0a(a: Word; b: String):
00010214 a0 0a                    |        |		KERNCALL	#0xa
00010216 ; --------------------------------------------------------------------------------------
00010216 ; KC0b
00010216 ; --------------------------------------------------------------------------------------
00010216					KC0b:
00010216 a0 0b                    |        |		KERNCALL	#0xb
00010218 ; --------------------------------------------------------------------------------------
00010218 ; KC0c_Write_Modem_Char(a, b: Word ; c : char)
00010218 ; Stack:
00010218 ;     A6+0xc      a : Word
00010218 ;     A6+0xa      b : Word
00010218 ;     A6+0x8      c : char
00010218 ; --------------------------------------------------------------------------------------
00010218					KC0c_Write_Modem_Char(a, b: Word ; c : char):
00010218 a0 0c                    |        |		KERNCALL	#0xc
0001021a ; --------------------------------------------------------------------------------------
0001021a ; KC0d_Write_Modem_String(Word, Word, Char)
0001021a ; --------------------------------------------------------------------------------------
0001021a					KC0d_Write_Modem_String(Word, Word, Char):
0001021a a0 0d                    |        |		KERNCALL	#0xd
0001021c ; --------------------------------------------------------------------------------------
0001021c ; KERNCALL_0e
0001021c ; --------------------------------------------------------------------------------------
0001021c					KERNCALL_0e:
0001021c a0 0e                    |        |		KERNCALL	#0xe
0001021e ; --------------------------------------------------------------------------------------
0001021e ; KC0f_ReInit
0001021e ; --------------------------------------------------------------------------------------
0001021e					KC0f_ReInit:
0001021e a0 0f                    |        |		KERNCALL	#0xf
00010220 ; --------------------------------------------------------------------------------------
00010220 ; KC10_Panic(code : Long)
00010220 ; Stack:
00010220 ;     A6+0x8      code : Long
00010220 ; --------------------------------------------------------------------------------------
00010220					KC10_Panic(code : Long):
00010220 a0 10                    |        |		KERNCALL	#0x10
00010222 ; --------------------------------------------------------------------------------------
00010222 ; KC11_Live(void)
00010222 ; Stack:
00010222 ; --------------------------------------------------------------------------------------
00010222					KC11_Live(void):
00010222 a0 11                    |        |		KERNCALL	#0x11
00010224 ; --------------------------------------------------------------------------------------
00010224 ; KC12_Sleep(dur: Long)
00010224 ; Stack:
00010224 ;     A6+0x8      dur : Long
00010224 ; --------------------------------------------------------------------------------------
00010224					KC12_Sleep(dur: Long):
00010224 a0 12                    |        |		KERNCALL	#0x12
00010226 ; --------------------------------------------------------------------------------------
00010226 ; KC13_ReadRtc
00010226 ; --------------------------------------------------------------------------------------
00010226					KC13_ReadRtc:
00010226 a0 13                    |        |		KERNCALL	#0x13
00010228 ; --------------------------------------------------------------------------------------
00010228 ; KC14_WriteRtc
00010228 ; --------------------------------------------------------------------------------------
00010228					KC14_WriteRtc:
00010228 a0 14                    |        |		KERNCALL	#0x14
0001022a ; --------------------------------------------------------------------------------------
0001022a ; KC15_DiagBus(a : Word; b : Long) : Byte
0001022a ; Stack:
0001022a ;     A6+0xe  VAR RETURN : Byte
0001022a ;     A6+0xc      a : Word
0001022a ;     A6+0x8      b : Long
0001022a ; --------------------------------------------------------------------------------------
0001022a					KC15_DiagBus(a : Word; b : Long) : Byte:
0001022a a0 15                    |        |		KERNCALL	#0x15
0001022c ; --------------------------------------------------------------------------------------
0001022c ; KC16_Clock_Margin
0001022c ; --------------------------------------------------------------------------------------
0001022c					KC16_Clock_Margin:
0001022c a0 16                    |        |		KERNCALL	#0x16
0001022e ; --------------------------------------------------------------------------------------
0001022e ; KC17_Power_Margin
0001022e ; --------------------------------------------------------------------------------------
0001022e					KC17_Power_Margin:
0001022e a0 17                    |        |		KERNCALL	#0x17
00010230 ; --------------------------------------------------------------------------------------
00010230 ; KERNCALL_18
00010230 ; --------------------------------------------------------------------------------------
00010230					KERNCALL_18:
00010230 a0 18                    |        |		KERNCALL	#0x18
00010232 ; --------------------------------------------------------------------------------------
00010232 ; KERNCALL_19
00010232 ; --------------------------------------------------------------------------------------
00010232					KERNCALL_19:
00010232 a0 19                    |        |		KERNCALL	#0x19
00010234 ; --------------------------------------------------------------------------------------
00010234 ; KERNCALL_1a
00010234 ; --------------------------------------------------------------------------------------
00010234					KERNCALL_1a:
00010234 a0 1a                    |        |		KERNCALL	#0x1a
00010236 ; --------------------------------------------------------------------------------------
00010236 ; KERNCALL_1b
00010236 ; --------------------------------------------------------------------------------------
00010236					KERNCALL_1b:
00010236 a0 1b                    |        |		KERNCALL	#0x1b
00010238 ; --------------------------------------------------------------------------------------
00010238 ; KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00010238 ; Stack:
00010238 ;     A6+0xe      src : Pointer
00010238 ;     A6+0xa      dst : Pointer
00010238 ;     A6+0x8      len : Word
00010238 ; --------------------------------------------------------------------------------------
00010238					KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word):
00010238 a0 1c                    |        |		KERNCALL	#0x1c
0001023a ; --------------------------------------------------------------------------------------
0001023a ; KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
0001023a ; Stack:
0001023a ;     A6+0x12     src : Pointer
0001023a ;     A6+0x10     sfc : Word
0001023a ;     A6+0xc      dst : Pointer
0001023a ;     A6+0xa      dfc : Word
0001023a ;     A6+0x8      len : Word
0001023a ; --------------------------------------------------------------------------------------
0001023a					KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word:
0001023a a0 1d                    |        |		KERNCALL	#0x1d
0001023c ; --------------------------------------------------------------------------------------
0001023c ; KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
0001023c ; Stack:
0001023c ;     A6+0xa      ptr : Pointer
0001023c ;     A6+0x8      chan : Word
0001023c ; --------------------------------------------------------------------------------------
0001023c					KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word):
0001023c a0 1e                    |        |		KERNCALL	#0x1e
0001023e ; --------------------------------------------------------------------------------------
0001023e ; KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool)
0001023e ; Stack:
0001023e ;     A6+0xe      ptr : Pointer
0001023e ;     A6+0xc      chan : Word
0001023e ;     A6+0x8  VAR flag : Bool
0001023e ; --------------------------------------------------------------------------------------
0001023e					KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool):
0001023e a0 1f                    |        |		KERNCALL	#0x1f
00010240 ; --------------------------------------------------------------------------------------
00010240 ; KC20_Estop(void)
00010240 ; Stack:
00010240 ; --------------------------------------------------------------------------------------
00010240					KC20_Estop(void):
00010240 a0 20                    |        |		KERNCALL	#0x20
00010242 ; --------------------------------------------------------------------------------------
00010242 ; KERNCALL_21
00010242 ; --------------------------------------------------------------------------------------
00010242					KERNCALL_21:
00010242 a0 21                    | !      |		KERNCALL	#0x21
00010244 ; --------------------------------------------------------------------------------------
00010244 ; KERNCALL_22
00010244 ; --------------------------------------------------------------------------------------
00010244					KERNCALL_22:
00010244 a0 22                    | "      |		KERNCALL	#0x22
00010246 ; --------------------------------------------------------------------------------------
00010246 ; KERNCALL_23
00010246 ; --------------------------------------------------------------------------------------
00010246					KERNCALL_23:
00010246 a0 23                    | #      |		KERNCALL	#0x23
00010248 ; --------------------------------------------------------------------------------------
00010248 ; KERNCALL_24
00010248 ; --------------------------------------------------------------------------------------
00010248					KERNCALL_24:
00010248 a0 24                    | $      |		KERNCALL	#0x24
0001024a ; --------------------------------------------------------------------------------------
0001024a ; KERNCALL_25
0001024a ; --------------------------------------------------------------------------------------
0001024a					KERNCALL_25:
0001024a a0 25                    | %      |		KERNCALL	#0x25
0001024c ; --------------------------------------------------------------------------------------
0001024c ; KERNCALL_26
0001024c ; --------------------------------------------------------------------------------------
0001024c					KERNCALL_26:
0001024c a0 26                    | &      |		KERNCALL	#0x26
0001024e ; --------------------------------------------------------------------------------------
0001024e ; KERNCALL_27
0001024e ; --------------------------------------------------------------------------------------
0001024e					KERNCALL_27:
0001024e a0 27                    | '      |		KERNCALL	#0x27
00010250 ; --------------------------------------------------------------------------------------
00010250 ; KERNCALL_28
00010250 ; --------------------------------------------------------------------------------------
00010250					KERNCALL_28:
00010250 a0 28                    | (      |		KERNCALL	#0x28
00010252 ; --------------------------------------------------------------------------------------
00010252 ; KERNCALL_29
00010252 ; --------------------------------------------------------------------------------------
00010252					KERNCALL_29:
00010252 a0 29                    | )      |		KERNCALL	#0x29
00010254 ; --------------------------------------------------------------------------------------
00010254 ; KERNCALL_2a
00010254 ; --------------------------------------------------------------------------------------
00010254					KERNCALL_2a:
00010254 a0 2a                    | *      |		KERNCALL	#0x2a
00010256 ; --------------------------------------------------------------------------------------
00010256 ; KERNCALL_2b
00010256 ; --------------------------------------------------------------------------------------
00010256					KERNCALL_2b:
00010256 a0 2b                    | +      |		KERNCALL	#0x2b
00010258 ; --------------------------------------------------------------------------------------
00010258 ; KERNCALL_2c
00010258 ; --------------------------------------------------------------------------------------
00010258					KERNCALL_2c:
00010258 a0 2c                    | ,      |		KERNCALL	#0x2c
0001025a ; --------------------------------------------------------------------------------------
0001025a ; KERNCALL_2d
0001025a ; --------------------------------------------------------------------------------------
0001025a					KERNCALL_2d:
0001025a a0 2d                    | -      |		KERNCALL	#0x2d
0001025c ; --------------------------------------------------------------------------------------
0001025c ; KERNCALL_2e
0001025c ; --------------------------------------------------------------------------------------
0001025c					KERNCALL_2e:
0001025c a0 2e                    | .      |		KERNCALL	#0x2e
0001025e ; --------------------------------------------------------------------------------------
0001025e ; KERNCALL_2f
0001025e ; --------------------------------------------------------------------------------------
0001025e					KERNCALL_2f:
0001025e a0 2f                    | /      |		KERNCALL	#0x2f
00010260 ; --------------------------------------------------------------------------------------
00010260 ; KERNCALL_30
00010260 ; --------------------------------------------------------------------------------------
00010260					KERNCALL_30:
00010260 a0 30                    | 0      |		KERNCALL	#0x30
00010262 ; --------------------------------------------------------------------------------------
00010262 ; KERNCALL_31
00010262 ; --------------------------------------------------------------------------------------
00010262					KERNCALL_31:
00010262 a0 31                    | 1      |		KERNCALL	#0x31
00010264 ; --------------------------------------------------------------------------------------
00010264 ; KERNCALL_32
00010264 ; --------------------------------------------------------------------------------------
00010264					KERNCALL_32:
00010264 a0 32                    | 2      |		KERNCALL	#0x32
00010266 ; --------------------------------------------------------------------------------------
00010266 ; KERNCALL_33
00010266 ; --------------------------------------------------------------------------------------
00010266					KERNCALL_33:
00010266 a0 33                    | 3      |		KERNCALL	#0x33
00010268 ; --------------------------------------------------------------------------------------
00010268 ; KERNCALL_34
00010268 ; --------------------------------------------------------------------------------------
00010268					KERNCALL_34:
00010268 a0 34                    | 4      |		KERNCALL	#0x34
0001026a ; --------------------------------------------------------------------------------------
0001026a ; KERNCALL_35
0001026a ; --------------------------------------------------------------------------------------
0001026a					KERNCALL_35:
0001026a a0 35                    | 5      |		KERNCALL	#0x35
0001026c ; --------------------------------------------------------------------------------------
0001026c ; KERNCALL_36
0001026c ; --------------------------------------------------------------------------------------
0001026c					KERNCALL_36:
0001026c a0 36                    | 6      |		KERNCALL	#0x36
0001026e ; --------------------------------------------------------------------------------------
0001026e ; KERNCALL_37
0001026e ; --------------------------------------------------------------------------------------
0001026e					KERNCALL_37:
0001026e a0 37                    | 7      |		KERNCALL	#0x37
00010270 ; --------------------------------------------------------------------------------------
00010270 ; KERNCALL_38
00010270 ; --------------------------------------------------------------------------------------
00010270					KERNCALL_38:
00010270 a0 38                    | 8      |		KERNCALL	#0x38
00010272 ; --------------------------------------------------------------------------------------
00010272 ; KERNCALL_39
00010272 ; --------------------------------------------------------------------------------------
00010272					KERNCALL_39:
00010272 a0 39                    | 9      |		KERNCALL	#0x39
00010274 ; --------------------------------------------------------------------------------------
00010274 ; KERNCALL_3a
00010274 ; --------------------------------------------------------------------------------------
00010274					KERNCALL_3a:
00010274 a0 3a                    | :      |		KERNCALL	#0x3a
00010276 ; --------------------------------------------------------------------------------------
00010276 ; KERNCALL_3b
00010276 ; --------------------------------------------------------------------------------------
00010276					KERNCALL_3b:
00010276 a0 3b                    | ;      |		KERNCALL	#0x3b
00010278 ; --------------------------------------------------------------------------------------
00010278 ; KERNCALL_3c
00010278 ; --------------------------------------------------------------------------------------
00010278					KERNCALL_3c:
00010278 a0 3c                    | <      |		KERNCALL	#0x3c
0001027a ; --------------------------------------------------------------------------------------
0001027a ; KERNCALL_3d
0001027a ; --------------------------------------------------------------------------------------
0001027a					KERNCALL_3d:
0001027a a0 3d                    | =      |		KERNCALL	#0x3d
0001027c ; --------------------------------------------------------------------------------------
0001027c ; KERNCALL_3e
0001027c ; --------------------------------------------------------------------------------------
0001027c					KERNCALL_3e:
0001027c a0 3e                    | >      |		KERNCALL	#0x3e
0001027e ; --------------------------------------------------------------------------------------
0001027e ; KERNCALL_3f
0001027e ; --------------------------------------------------------------------------------------
0001027e					KERNCALL_3f:
0001027e a0 3f                    | ?      |		KERNCALL	#0x3f
00010280 ; --------------------------------------------------------------------------------------
00010280 ; ?start_program
00010280 ; --------------------------------------------------------------------------------------
00010280					?start_program:
00010280 60 00 03 d4              |`       |		BRA	_?start_program
00010284 ; --------------------------------------------------------------------------------------
00010284 ; ?exit
00010284 ; --------------------------------------------------------------------------------------
00010284					?exit:
00010284 60 00 05 02              |`       |		BRA	_?exit
00010288 ; --------------------------------------------------------------------------------------
00010288 ; FSCALL_10288
00010288 ; --------------------------------------------------------------------------------------
00010288					FSCALL_10288:
00010288 60 00 04 d4              |`       |		BRA	_FSCALL_10288
0001028c ; --------------------------------------------------------------------------------------
0001028c ; ?muls_d3_d4
0001028c ; --------------------------------------------------------------------------------------
0001028c					?muls_d3_d4:
0001028c 60 00 05 5c              |`  \    |		BRA	_?muls_d3_d4
00010290 ; --------------------------------------------------------------------------------------
00010290 ; ?mulu_d3_d4
00010290 ; --------------------------------------------------------------------------------------
00010290					?mulu_d3_d4:
00010290 60 00 05 62              |`  b    |		BRA	_?mulu_d3_d4
00010294 ; --------------------------------------------------------------------------------------
00010294 ; ?divs_d3_d4
00010294 ; --------------------------------------------------------------------------------------
00010294					?divs_d3_d4:
00010294 60 00 05 74              |`  t    |		BRA	_?divs_d3_d4
00010298 ; --------------------------------------------------------------------------------------
00010298 ; ?divu_d3_d4
00010298 ; --------------------------------------------------------------------------------------
00010298					?divu_d3_d4:
00010298 60 00 05 7c              |`  |    |		BRA	_?divu_d3_d4
0001029c ; --------------------------------------------------------------------------------------
0001029c ; Malloc1(length : Long) : Pointer
0001029c ; Stack:
0001029c ;     A6+0xc  VAR RETURN : Pointer
0001029c ;     A6+0x8      length : Long
0001029c ; --------------------------------------------------------------------------------------
0001029c					Malloc1(length : Long) : Pointer:
0001029c 60 00 05 b8              |`       |		BRA	_Malloc1(length : Long) : Pointer
000102a0 ; --------------------------------------------------------------------------------------
000102a0 ; Malloc2(VAR dst : Pointer; length : Word)
000102a0 ; Stack:
000102a0 ;     A6+0xa  VAR dst : Pointer
000102a0 ;     A6+0x8      length : Word
000102a0 ; --------------------------------------------------------------------------------------
000102a0					Malloc2(VAR dst : Pointer; length : Word):
000102a0 60 00 05 98              |`       |		BRA	_Malloc2(VAR dst : Pointer; length : Word)
000102a4 ; --------------------------------------------------------------------------------------
000102a4 ; Free1(a : Pointer; b : Long)
000102a4 ; Stack:
000102a4 ;     A6+0xc      a : Pointer
000102a4 ;     A6+0x8      b : Long
000102a4 ; --------------------------------------------------------------------------------------
000102a4					Free1(a : Pointer; b : Long):
000102a4 60 00 06 38              |`  8    |		BRA	_Free1(a : Pointer; b : Long)
000102a8 ; --------------------------------------------------------------------------------------
000102a8 ; Free2(a : Pointer; b : Long)
000102a8 ; Stack:
000102a8 ;     A6+0xc      a : Pointer
000102a8 ;     A6+0x8      b : Long
000102a8 ; --------------------------------------------------------------------------------------
000102a8					Free2(a : Pointer; b : Long):
000102a8 60 00 06 50              |`  P    |		BRA	_Free2(a : Pointer; b : Long)
000102ac ; --------------------------------------------------------------------------------------
000102ac ; FSCALL_102ac
000102ac ; --------------------------------------------------------------------------------------
000102ac					FSCALL_102ac:
000102ac 60 00 09 fe              |`       |		BRA	_FSCALL_102ac
000102b0 ; --------------------------------------------------------------------------------------
000102b0 ; FSCALL_102b0
000102b0 ; --------------------------------------------------------------------------------------
000102b0					FSCALL_102b0:
000102b0 60 00 0a 22              |`  "    |		BRA	_FSCALL_102b0
000102b4 ; --------------------------------------------------------------------------------------
000102b4 ; FSCALL_102b4
000102b4 ; --------------------------------------------------------------------------------------
000102b4					FSCALL_102b4:
000102b4 60 00 07 90              |`       |		BRA	_FSCALL_102b4
000102b8 ; --------------------------------------------------------------------------------------
000102b8 ; NewString(VAR a : String)
000102b8 ; Stack:
000102b8 ;     A6+0x8  VAR a : String
000102b8 ; --------------------------------------------------------------------------------------
000102b8					NewString(VAR a : String):
000102b8 60 00 0a 88              |`       |		BRA	_NewString(VAR a : String)
000102bc ; --------------------------------------------------------------------------------------
000102bc ; FreeString(VAR a : String)
000102bc ; Stack:
000102bc ;     A6+0x8  VAR a : String
000102bc ; --------------------------------------------------------------------------------------
000102bc					FreeString(VAR a : String):
000102bc 60 00 0a b8              |`       |		BRA	_FreeString(VAR a : String)
000102c0 ; --------------------------------------------------------------------------------------
000102c0 ; AppendChar(MOD b : String; a : char)
000102c0 ; Stack:
000102c0 ;     A6+0xa      b : String
000102c0 ;     A6+0x8      a : char
000102c0 ; --------------------------------------------------------------------------------------
000102c0					AppendChar(MOD b : String; a : char):
000102c0 60 00 0a e4              |`       |		BRA	_AppendChar(MOD b : String; a : char)
000102c4 ; --------------------------------------------------------------------------------------
000102c4 ; StringLit(Src : Pointer; Offset: W; Len : W) : String
000102c4 ; Stack:
000102c4 ;     A6+0x10 VAR RETURN : String
000102c4 ;     A6+0xc      Src : Pointer
000102c4 ;     A6+0xa      Offset : W
000102c4 ;     A6+0x8      Len : W
000102c4 ; --------------------------------------------------------------------------------------
000102c4					StringLit(Src : Pointer; Offset: W; Len : W) : String:
000102c4 60 00 0b 16              |`       |		BRA	_StringLit(Src : Pointer; Offset: W; Len : W) : String
000102c8 ; --------------------------------------------------------------------------------------
000102c8 ; StringEqual(a, b : String) : Byte
000102c8 ; Stack:
000102c8 ;     A6+0x10 VAR RETURN : Byte
000102c8 ;     A6+0xc      a : String
000102c8 ;     A6+0x8      b : String
000102c8 ; --------------------------------------------------------------------------------------
000102c8					StringEqual(a, b : String) : Byte:
000102c8 60 00 0b c8              |`       |		BRA	_StringEqual(a, b : String) : Byte
000102cc ; --------------------------------------------------------------------------------------
000102cc ; StringDup(a : String) : String
000102cc ; Stack:
000102cc ;     A6+0xc  VAR RETURN : String
000102cc ;     A6+0x8      a : String
000102cc ; --------------------------------------------------------------------------------------
000102cc					StringDup(a : String) : String:
000102cc 60 00 0c 24              |`  $    |		BRA	_StringDup(a : String) : String
000102d0 ; --------------------------------------------------------------------------------------
000102d0 ; StringCat2(a, b : String) : String
000102d0 ; Stack:
000102d0 ;     A6+0x10 VAR RETURN : String
000102d0 ;     A6+0xc      a : String
000102d0 ;     A6+0x8      b : String
000102d0 ; --------------------------------------------------------------------------------------
000102d0					StringCat2(a, b : String) : String:
000102d0 60 00 0c 62              |`  b    |		BRA	_StringCat2(a, b : String) : String
000102d4 ; --------------------------------------------------------------------------------------
000102d4 ; StringCat3(a, b, c : String) : String
000102d4 ; Stack:
000102d4 ;     A6+0x14 VAR RETURN : String
000102d4 ;     A6+0x10     a : String
000102d4 ;     A6+0xc      b : String
000102d4 ;     A6+0x8      c : String
000102d4 ; --------------------------------------------------------------------------------------
000102d4					StringCat3(a, b, c : String) : String:
000102d4 60 00 0c e4              |`       |		BRA	_StringCat3(a, b, c : String) : String
000102d8 ; --------------------------------------------------------------------------------------
000102d8 ; StringCat4(a, b, c, d : String) : String
000102d8 ; Stack:
000102d8 ;     A6+0x18 VAR RETURN : String
000102d8 ;     A6+0x14     a : String
000102d8 ;     A6+0x10     b : String
000102d8 ;     A6+0xc      c : String
000102d8 ;     A6+0x8      d : String
000102d8 ; --------------------------------------------------------------------------------------
000102d8					StringCat4(a, b, c, d : String) : String:
000102d8 60 00 0d 16              |`       |		BRA	_StringCat4(a, b, c, d : String) : String
000102dc ; --------------------------------------------------------------------------------------
000102dc ; StringCat5(a, b, c, d, e : String) : String
000102dc ; Stack:
000102dc ;     A6+0x1c VAR RETURN : String
000102dc ;     A6+0x18     a : String
000102dc ;     A6+0x14     b : String
000102dc ;     A6+0x10     c : String
000102dc ;     A6+0xc      d : String
000102dc ;     A6+0x8      e : String
000102dc ; --------------------------------------------------------------------------------------
000102dc					StringCat5(a, b, c, d, e : String) : String:
000102dc 60 00 0d 4e              |`  N    |		BRA	_StringCat5(a, b, c, d, e : String) : String
000102e0 ; --------------------------------------------------------------------------------------
000102e0 ; StringCat6(a, b, c, d, e, f : String) : String
000102e0 ; Stack:
000102e0 ;     A6+0x20 VAR RETURN : String
000102e0 ;     A6+0x1c     a : String
000102e0 ;     A6+0x18     b : String
000102e0 ;     A6+0x14     c : String
000102e0 ;     A6+0x10     d : String
000102e0 ;     A6+0xc      e : String
000102e0 ;     A6+0x8      f : String
000102e0 ; --------------------------------------------------------------------------------------
000102e0					StringCat6(a, b, c, d, e, f : String) : String:
000102e0 60 00 0d 8a              |`       |		BRA	_StringCat6(a, b, c, d, e, f : String) : String
000102e4 ; --------------------------------------------------------------------------------------
000102e4 ; Long2String(a : Long) : String
000102e4 ; Stack:
000102e4 ;     A6+0xc  VAR RETURN : String
000102e4 ;     A6+0x8      a : Long
000102e4 ; --------------------------------------------------------------------------------------
000102e4					Long2String(a : Long) : String:
000102e4 60 00 0d ca              |`       |		BRA	_Long2String(a : Long) : String
000102e8 ; --------------------------------------------------------------------------------------
000102e8 ; Long2HexString(val : Long; ndig : Long) : String
000102e8 ; Stack:
000102e8 ;     A6+0x10 VAR RETURN : String
000102e8 ;     A6+0xc      val : Long
000102e8 ;     A6+0x8      ndig : Long
000102e8 ; --------------------------------------------------------------------------------------
000102e8					Long2HexString(val : Long; ndig : Long) : String:
000102e8 60 00 0e ca              |`       |		BRA	_Long2HexString(val : Long; ndig : Long) : String
000102ec ; --------------------------------------------------------------------------------------
000102ec ; String2Long(src : String; VAR status : Bool; VAR retval : Long)
000102ec ; Stack:
000102ec ;     A6+0x10     src : String
000102ec ;     A6+0xc  VAR status : Bool
000102ec ;     A6+0x8  VAR retval : Long
000102ec ; --------------------------------------------------------------------------------------
000102ec					String2Long(src : String; VAR status : Bool; VAR retval : Long):
000102ec 60 00 0f 9a              |`       |		BRA	_String2Long(src : String; VAR status : Bool; VAR retval : Long)
000102f0 ; --------------------------------------------------------------------------------------
000102f0 ; ToUpper(a : String) : String
000102f0 ; Stack:
000102f0 ;     A6+0xc  VAR RETURN : String
000102f0 ;     A6+0x8      a : String
000102f0 ; --------------------------------------------------------------------------------------
000102f0					ToUpper(a : String) : String:
000102f0 60 00 10 c2              |`       |		BRA	_ToUpper(a : String) : String
000102f4 ; --------------------------------------------------------------------------------------
000102f4 ; RightPad(a : String; b : Long) : String
000102f4 ; Stack:
000102f4 ;     A6+0x10 VAR RETURN : String
000102f4 ;     A6+0xc      a : String
000102f4 ;     A6+0x8      b : Long
000102f4 ; --------------------------------------------------------------------------------------
000102f4					RightPad(a : String; b : Long) : String:
000102f4 60 00 11 2c              |`  ,    |		BRA	_RightPad(a : String; b : Long) : String
000102f8 ; --------------------------------------------------------------------------------------
000102f8 ; LeftPad(a : String; b : Long) : String
000102f8 ; Stack:
000102f8 ;     A6+0x10 VAR RETURN : String
000102f8 ;     A6+0xc      a : String
000102f8 ;     A6+0x8      b : Long
000102f8 ; --------------------------------------------------------------------------------------
000102f8					LeftPad(a : String; b : Long) : String:
000102f8 60 00 11 86              |`       |		BRA	_LeftPad(a : String; b : Long) : String
000102fc ; --------------------------------------------------------------------------------------
000102fc ; FirstField(MOD input : String; MOD output : String; VAR c : Bool
000102fc ; Stack:
000102fc ;     A6+0x10     input : String
000102fc ;     A6+0xc      output : String
000102fc ;     A6+0x8  VAR c : Bool
000102fc ; --------------------------------------------------------------------------------------
000102fc					FirstField(MOD input : String; MOD output : String; VAR c : Bool:
000102fc 60 00 11 d8              |`       |		BRA	_FirstField(MOD input : String; MOD output : String; VAR c : Bool
00010300 ; --------------------------------------------------------------------------------------
00010300 ; FSCALL_10300
00010300 ; --------------------------------------------------------------------------------------
00010300					FSCALL_10300:
00010300 60 00 12 fc              |`       |		BRA	_FSCALL_10300
00010304 ; --------------------------------------------------------------------------------------
00010304 ; GetRtc() : TimeStamp
00010304 ; Stack:
00010304 ;     A6+0x8  VAR RETURN : TimeStamp
00010304 ; --------------------------------------------------------------------------------------
00010304					GetRtc() : TimeStamp:
00010304 60 00 13 da              |`       |		BRA	_GetRtc() : TimeStamp
00010308 ; --------------------------------------------------------------------------------------
00010308 ; TimeToText()
00010308 ; --------------------------------------------------------------------------------------
00010308					TimeToText():
00010308 60 00 15 e2              |`       |		BRA	_TimeToText()
0001030c ; --------------------------------------------------------------------------------------
0001030c ; SetRtc(a: TimeStamp)
0001030c ; Stack:
0001030c ;     A6+0x8      a : TimeStamp
0001030c ; --------------------------------------------------------------------------------------
0001030c					SetRtc(a: TimeStamp):
0001030c 60 00 14 b8              |`       |		BRA	_SetRtc(a: TimeStamp)
00010310 ; --------------------------------------------------------------------------------------
00010310 ; ConvertTimestamp(MOD input : String; b : L; VAR status : Bool)
00010310 ; Stack:
00010310 ;     A6+0x10     input : String
00010310 ;     A6+0xc      b : L
00010310 ;     A6+0x8  VAR status : Bool
00010310 ; --------------------------------------------------------------------------------------
00010310					ConvertTimestamp(MOD input : String; b : L; VAR status : Bool):
00010310 60 00 18 64              |`  d    |		BRA	_ConvertTimestamp(MOD input : String; b : L; VAR status : Bool)
00010314 ; --------------------------------------------------------------------------------------
00010314 ; Add(a, b : Quad) : Quad
00010314 ; Stack:
00010314 ;     A6+0x18 VAR RETURN : Quad
00010314 ;     A6+0x10     a : Quad
00010314 ;     A6+0x8      b : Quad
00010314 ; --------------------------------------------------------------------------------------
00010314					Add(a, b : Quad) : Quad:
00010314 60 00 19 e0              |`       |		BRA	_Add(a, b : Quad) : Quad
00010318 ; --------------------------------------------------------------------------------------
00010318 ; Subtract(a, b : Quad) : Quad
00010318 ; Stack:
00010318 ;     A6+0x18 VAR RETURN : Quad
00010318 ;     A6+0x10     a : Quad
00010318 ;     A6+0x8      b : Quad
00010318 ; --------------------------------------------------------------------------------------
00010318					Subtract(a, b : Quad) : Quad:
00010318 60 00 1a 16              |`       |		BRA	_Subtract(a, b : Quad) : Quad
0001031c ; --------------------------------------------------------------------------------------
0001031c ; Multiply(a, b : Quad) : Quad
0001031c ; Stack:
0001031c ;     A6+0x18 VAR RETURN : Quad
0001031c ;     A6+0x10     a : Quad
0001031c ;     A6+0x8      b : Quad
0001031c ; --------------------------------------------------------------------------------------
0001031c					Multiply(a, b : Quad) : Quad:
0001031c 60 00 1a 4c              |`  L    |		BRA	_Multiply(a, b : Quad) : Quad
00010320 ; --------------------------------------------------------------------------------------
00010320 ; Divide(a, b : Quad) : Quad
00010320 ; Stack:
00010320 ;     A6+0x18 VAR RETURN : Quad
00010320 ;     A6+0x10     a : Quad
00010320 ;     A6+0x8      b : Quad
00010320 ; --------------------------------------------------------------------------------------
00010320					Divide(a, b : Quad) : Quad:
00010320 60 00 1a bc              |`       |		BRA	_Divide(a, b : Quad) : Quad
00010324 ; --------------------------------------------------------------------------------------
00010324 ; IsGreater(a, b : Quad) : Bool
00010324 ; Stack:
00010324 ;     A6+0x18 VAR RETURN : Bool
00010324 ;     A6+0x10     a : Quad
00010324 ;     A6+0x8      b : Quad
00010324 ; --------------------------------------------------------------------------------------
00010324					IsGreater(a, b : Quad) : Bool:
00010324 60 00 1b 66              |`  f    |		BRA	_IsGreater(a, b : Quad) : Bool
00010328 ; --------------------------------------------------------------------------------------
00010328 ; IsSmaller(a, b : Quad) : Bool
00010328 ; Stack:
00010328 ;     A6+0x18 VAR RETURN : Bool
00010328 ;     A6+0x10     a : Quad
00010328 ;     A6+0x8      b : Quad
00010328 ; --------------------------------------------------------------------------------------
00010328					IsSmaller(a, b : Quad) : Bool:
00010328 60 00 1b 96              |`       |		BRA	_IsSmaller(a, b : Quad) : Bool
0001032c ; --------------------------------------------------------------------------------------
0001032c ; IsEqual(a, b : Quad) : Bool
0001032c ; Stack:
0001032c ;     A6+0x18 VAR RETURN : Bool
0001032c ;     A6+0x10     a : Quad
0001032c ;     A6+0x8      b : Quad
0001032c ; --------------------------------------------------------------------------------------
0001032c					IsEqual(a, b : Quad) : Bool:
0001032c 60 00 1b c6              |`       |		BRA	_IsEqual(a, b : Quad) : Bool
00010330 ; --------------------------------------------------------------------------------------
00010330 ; BitAnd(a, b : Quad) : Quad
00010330 ; Stack:
00010330 ;     A6+0x18 VAR RETURN : Quad
00010330 ;     A6+0x10     a : Quad
00010330 ;     A6+0x8      b : Quad
00010330 ; --------------------------------------------------------------------------------------
00010330					BitAnd(a, b : Quad) : Quad:
00010330 60 00 1b f4              |`       |		BRA	_BitAnd(a, b : Quad) : Quad
00010334 ; --------------------------------------------------------------------------------------
00010334 ; BitOr(a, b : Quad) : Quad
00010334 ; Stack:
00010334 ;     A6+0x18 VAR RETURN : Quad
00010334 ;     A6+0x10     a : Quad
00010334 ;     A6+0x8      b : Quad
00010334 ; --------------------------------------------------------------------------------------
00010334					BitOr(a, b : Quad) : Quad:
00010334 60 00 1c 1c              |`       |		BRA	_BitOr(a, b : Quad) : Quad
00010338 ; --------------------------------------------------------------------------------------
00010338 ; BitNot(a : Quad) : Quad
00010338 ; Stack:
00010338 ;     A6+0x10 VAR RETURN : Quad
00010338 ;     A6+0x8      a : Quad
00010338 ; --------------------------------------------------------------------------------------
00010338					BitNot(a : Quad) : Quad:
00010338 60 00 1c 44              |`  D    |		BRA	_BitNot(a : Quad) : Quad
0001033c ; --------------------------------------------------------------------------------------
0001033c ; Negate(a : Quad) : Quad
0001033c ; Stack:
0001033c ;     A6+0x10 VAR RETURN : Quad
0001033c ;     A6+0x8      a : Quad
0001033c ; --------------------------------------------------------------------------------------
0001033c					Negate(a : Quad) : Quad:
0001033c 60 00 1c 68              |`  h    |		BRA	_Negate(a : Quad) : Quad
00010340 ; --------------------------------------------------------------------------------------
00010340 ; BitXor(a, b : Quad) : Quad
00010340 ; Stack:
00010340 ;     A6+0x18 VAR RETURN : Quad
00010340 ;     A6+0x10     a : Quad
00010340 ;     A6+0x8      b : Quad
00010340 ; --------------------------------------------------------------------------------------
00010340					BitXor(a, b : Quad) : Quad:
00010340 60 00 1c 98              |`       |		BRA	_BitXor(a, b : Quad) : Quad
00010344 ; --------------------------------------------------------------------------------------
00010344 ; BitShift(a : Quad ; howmuch : integer) : Quad
00010344 ; Stack:
00010344 ;     A6+0x14 VAR RETURN : Quad
00010344 ;     A6+0xc      a : Quad
00010344 ;     A6+0x8      howmuch : integer
00010344 ; --------------------------------------------------------------------------------------
00010344					BitShift(a : Quad ; howmuch : integer) : Quad:
00010344 60 00 1c c4              |`       |		BRA	_BitShift(a : Quad ; howmuch : integer) : Quad
00010348 ; --------------------------------------------------------------------------------------
00010348 ; ?BitField_something_()
00010348 ; --------------------------------------------------------------------------------------
00010348					?BitField_something_():
00010348 60 00 1d 02              |`       |		BRA	_?BitField_something_()
0001034c ; --------------------------------------------------------------------------------------
0001034c ; FSCALL_1034c
0001034c ; --------------------------------------------------------------------------------------
0001034c					FSCALL_1034c:
0001034c 60 00 1d 84              |`       |		BRA	_FSCALL_1034c
00010350 ; --------------------------------------------------------------------------------------
00010350 ; Quad2Long(a : Quad) : Long
00010350 ; Stack:
00010350 ;     A6+0x10 VAR RETURN : Long
00010350 ;     A6+0x8      a : Quad
00010350 ; --------------------------------------------------------------------------------------
00010350					Quad2Long(a : Quad) : Long:
00010350 60 00 1d f8              |`       |		BRA	_Quad2Long(a : Quad) : Long
00010354 ; --------------------------------------------------------------------------------------
00010354 ; Long2Quad(a : Long) : Quad
00010354 ; Stack:
00010354 ;     A6+0xc  VAR RETURN : Quad
00010354 ;     A6+0x8      a : Long
00010354 ; --------------------------------------------------------------------------------------
00010354					Long2Quad(a : Long) : Quad:
00010354 60 00 1e 06              |`       |		BRA	_Long2Quad(a : Long) : Quad
00010358 ; --------------------------------------------------------------------------------------
00010358 ; Modulus(a, b : Quad) : Quad
00010358 ; Stack:
00010358 ;     A6+0x18 VAR RETURN : Quad
00010358 ;     A6+0x10     a : Quad
00010358 ;     A6+0x8      b : Quad
00010358 ; --------------------------------------------------------------------------------------
00010358					Modulus(a, b : Quad) : Quad:
00010358 60 00 1e 72              |`  r    |		BRA	_Modulus(a, b : Quad) : Quad
0001035c ; --------------------------------------------------------------------------------------
0001035c ; Quad2String(a : Quad; radix : Long ) : String
0001035c ; Stack:
0001035c ;     A6+0x14 VAR RETURN : String
0001035c ;     A6+0xc      a : Quad
0001035c ;     A6+0x8      radix : Long
0001035c ; --------------------------------------------------------------------------------------
0001035c					Quad2String(a : Quad; radix : Long ) : String:
0001035c 60 00 20 6c              |`  l    |		BRA	_Quad2String(a : Quad; radix : Long ) : String
00010360 ; --------------------------------------------------------------------------------------
00010360 ; ?StringToInt64()
00010360 ; --------------------------------------------------------------------------------------
00010360					?StringToInt64():
00010360 60 00 1e d0              |`       |		BRA	_?StringToInt64()
00010364 ; --------------------------------------------------------------------------------------
00010364 ; MovStringTail(Base, Len, Ptr, Delta)
00010364 ; --------------------------------------------------------------------------------------
00010364					MovStringTail(Base, Len, Ptr, Delta):
00010364 60 00 22 4a              |` "J    |		BRA	_MovStringTail(Base, Len, Ptr, Delta)
00010368 ; --------------------------------------------------------------------------------------
00010368 ; Lba2Chs(lba : W; VAR cyl : W ; VAR hd_sec : W)
00010368 ; Stack:
00010368 ;     A6+0x10     lba : W
00010368 ;     A6+0xc  VAR cyl : W
00010368 ;     A6+0x8  VAR hd_sec : W
00010368 ; --------------------------------------------------------------------------------------
00010368					Lba2Chs(lba : W; VAR cyl : W ; VAR hd_sec : W):
00010368 60 00 22 98              |` "     |		BRA	_Lba2Chs(lba : W; VAR cyl : W ; VAR hd_sec : W)
0001036c ; --------------------------------------------------------------------------------------
0001036c ; RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
0001036c ; Stack:
0001036c ;     A6+0x16     oper : B
0001036c ;     A6+0x14     lba : Word
0001036c ;     A6+0x10     cnt : L
0001036c ;     A6+0xc      ptr : Pointer
0001036c ;     A6+0x8  VAR status : B
0001036c ; --------------------------------------------------------------------------------------
0001036c					RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B):
0001036c 60 00 24 48              |` $H    |		BRA	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00010370 ; --------------------------------------------------------------------------------------
00010370 ; ReadWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B)
00010370 ; Stack:
00010370 ;     A6+0x14     lba : W
00010370 ;     A6+0x12     offset : W
00010370 ;     A6+0xe      ptr : L
00010370 ;     A6+0xc      nwords : W
00010370 ;     A6+0x8  VAR status : B
00010370 ; --------------------------------------------------------------------------------------
00010370					ReadWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B):
00010370 60 00 26 14              |` &     |		BRA	_ReadWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B)
00010374 ; --------------------------------------------------------------------------------------
00010374 ; WriteWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B)
00010374 ; Stack:
00010374 ;     A6+0x14     lba : W
00010374 ;     A6+0x12     offset : W
00010374 ;     A6+0xe      ptr : L
00010374 ;     A6+0xc      nwords : W
00010374 ;     A6+0x8  VAR status : B
00010374 ; --------------------------------------------------------------------------------------
00010374					WriteWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B):
00010374 60 00 26 d6              |` &     |		BRA	_WriteWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B)
00010378 ; --------------------------------------------------------------------------------------
00010378 ; FS10378(MOD a : File; b: Byte; VAR c: Bool)
00010378 ; Stack:
00010378 ;     A6+0xe      a : File
00010378 ;     A6+0xc      b : Byte
00010378 ;     A6+0x8  VAR c : Bool
00010378 ; --------------------------------------------------------------------------------------
00010378					FS10378(MOD a : File; b: Byte; VAR c: Bool):
00010378 60 00 29 7e              |` )~    |		BRA	_FS10378(MOD a : File; b: Byte; VAR c: Bool)
0001037c ; --------------------------------------------------------------------------------------
0001037c ; FS1037c(MOD a : File)
0001037c ; Stack:
0001037c ;     A6+0x8      a : File
0001037c ; --------------------------------------------------------------------------------------
0001037c					FS1037c(MOD a : File):
0001037c 60 00 2a a2              |` *     |		BRA	_FS1037c(MOD a : File)
00010380 ; --------------------------------------------------------------------------------------
00010380 ; OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00010380 ; Stack:
00010380 ;     A6+0x18     name : String
00010380 ;     A6+0x16     a : W
00010380 ;     A6+0x14     b : B
00010380 ;     A6+0x10     c : L
00010380 ;     A6+0xc  VAR status : B
00010380 ;     A6+0x8  VAR file : File
00010380 ; --------------------------------------------------------------------------------------
00010380					OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File):
00010380 60 00 35 24              |` 5$    |		BRA	_OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00010384 ; --------------------------------------------------------------------------------------
00010384 ; ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00010384 ; Stack:
00010384 ;     A6+0x18     file : File
00010384 ;     A6+0x16     w : W
00010384 ;     A6+0x14     x : W
00010384 ;     A6+0x12     a : W
00010384 ;     A6+0x10     b : B
00010384 ;     A6+0xc      c : L
00010384 ;     A6+0x8      d : L
00010384 ; --------------------------------------------------------------------------------------
00010384					ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L):
00010384 60 00 37 52              |` 7R    |		BRA	_ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00010388 ; --------------------------------------------------------------------------------------
00010388 ; WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00010388 ; Stack:
00010388 ;     A6+0x18     file : File
00010388 ;     A6+0x16     y : W
00010388 ;     A6+0x14     x : W
00010388 ;     A6+0x12     a : W
00010388 ;     A6+0x10     b : B
00010388 ;     A6+0xc      c : L
00010388 ;     A6+0x8      d : L
00010388 ; --------------------------------------------------------------------------------------
00010388					WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L):
00010388 60 00 38 20              |` 8     |		BRA	_WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
0001038c ; --------------------------------------------------------------------------------------
0001038c ; CloseFile(a : L; VAR status : B; VAR file : File)
0001038c ; Stack:
0001038c ;     A6+0x10     a : L
0001038c ;     A6+0xc  VAR status : B
0001038c ;     A6+0x8  VAR file : File
0001038c ; --------------------------------------------------------------------------------------
0001038c					CloseFile(a : L; VAR status : B; VAR file : File):
0001038c 60 00 38 ee              |` 8     |		BRA	_CloseFile(a : L; VAR status : B; VAR file : File)
00010390 ; --------------------------------------------------------------------------------------
00010390 ; WriteFreeList(void)
00010390 ; Stack:
00010390 ; --------------------------------------------------------------------------------------
00010390					WriteFreeList(void):
00010390 60 00 3a bc              |` :     |		BRA	_WriteFreeList(void)
00010394 ; --------------------------------------------------------------------------------------
00010394 ; MountDisk(drive : Word ; VAR status : Byte)
00010394 ; Stack:
00010394 ;     A6+0xc      drive : Word
00010394 ;     A6+0x8  VAR status : Byte
00010394 ; --------------------------------------------------------------------------------------
00010394					MountDisk(drive : Word ; VAR status : Byte):
00010394 60 00 3b 40              |` ;@    |		BRA	_MountDisk(drive : Word ; VAR status : Byte)
00010398 ; --------------------------------------------------------------------------------------
00010398 ; FSCALL_10398
00010398 ; --------------------------------------------------------------------------------------
00010398					FSCALL_10398:
00010398 60 00 3c 9c              |` <     |		BRA	_FSCALL_10398
0001039c ; --------------------------------------------------------------------------------------
0001039c ; InitProg(void)
0001039c ; Stack:
0001039c ; --------------------------------------------------------------------------------------
0001039c					InitProg(void):
0001039c 60 00 3d e6              |` =     |		BRA	_InitProg(void)
000103a0 ; --------------------------------------------------------------------------------------
000103a0 ; FsErrMsgStr(err: Byte) : String
000103a0 ; Stack:
000103a0 ;     A6+0xa  VAR RETURN : String
000103a0 ;     A6+0x8      err : Byte
000103a0 ; --------------------------------------------------------------------------------------
000103a0					FsErrMsgStr(err: Byte) : String:
000103a0 60 00 3f 5c              |` ?\    |		BRA	_FsErrMsgStr(err: Byte) : String
000103a4 ; --------------------------------------------------------------------------------------
000103a4 ; Open_ERROR_LOG(void)
000103a4 ; Stack:
000103a4 ; --------------------------------------------------------------------------------------
000103a4					Open_ERROR_LOG(void):
000103a4 60 00 40 a4              |` @     |		BRA	_Open_ERROR_LOG(void)
000103a8 ; --------------------------------------------------------------------------------------
000103a8 ; Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
000103a8 ; Stack:
000103a8 ;     A6+0xc  VAR a : Bool
000103a8 ;     A6+0x8      b : Pointer
000103a8 ; --------------------------------------------------------------------------------------
000103a8					Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer):
000103a8 60 00 41 2e              |` A.    |		BRA	_Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
000103ac ; --------------------------------------------------------------------------------------
000103ac ; Set_is_open_ERROR_LOG(a : Bool)
000103ac ; Stack:
000103ac ;     A6+0x8      a : Bool
000103ac ; --------------------------------------------------------------------------------------
000103ac					Set_is_open_ERROR_LOG(a : Bool):
000103ac 60 00 43 84              |` C     |		BRA	_Set_is_open_ERROR_LOG(a : Bool)
000103b0 ; --------------------------------------------------------------------------------------
000103b0 ; PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
000103b0 ; Stack:
000103b0 ;     A6+0x12     a : String
000103b0 ;     A6+0xe      b : String
000103b0 ;     A6+0xc      c : B
000103b0 ;     A6+0x8  VAR d : Bool
000103b0 ; --------------------------------------------------------------------------------------
000103b0					PushProgram(a : String; b : String; MOD c : B; VAR d : Bool):
000103b0 60 00 43 9e              |` C     |		BRA	_PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
000103b4 ; --------------------------------------------------------------------------------------
000103b4 ; WriteProgToSwapFile(prog: String; args: String)
000103b4 ; Stack:
000103b4 ;     A6+0xc      prog : String
000103b4 ;     A6+0x8      args : String
000103b4 ; --------------------------------------------------------------------------------------
000103b4					WriteProgToSwapFile(prog: String; args: String):
000103b4 60 00 48 48              |` HH    |		BRA	_WriteProgToSwapFile(prog: String; args: String)
000103b8 ; --------------------------------------------------------------------------------------
000103b8 ; PopProgram(status : Byte; msg : String)
000103b8 ; Stack:
000103b8 ;     A6+0xc      status : Byte
000103b8 ;     A6+0x8      msg : String
000103b8 ; --------------------------------------------------------------------------------------
000103b8					PopProgram(status : Byte; msg : String):
000103b8 60 00 4a 50              |` JP    |		BRA	_PopProgram(status : Byte; msg : String)
000103bc ; --------------------------------------------------------------------------------------
000103bc ; ?FS103bc(MOD a: String; VAR b: Bool) : Bool
000103bc ; Stack:
000103bc ;     A6+0x10 VAR RETURN : Bool
000103bc ;     A6+0xc      a : String
000103bc ;     A6+0x8  VAR b : Bool
000103bc ; --------------------------------------------------------------------------------------
000103bc					?FS103bc(MOD a: String; VAR b: Bool) : Bool:
000103bc 60 00 4b 9c              |` K     |		BRA	_?FS103bc(MOD a: String; VAR b: Bool) : Bool
000103c0 ; --------------------------------------------------------------------------------------
000103c0 ; ExpErrMsg(a: Byte) : String
000103c0 ; Stack:
000103c0 ;     A6+0xa  VAR RETURN : String
000103c0 ;     A6+0x8      a : Byte
000103c0 ; --------------------------------------------------------------------------------------
000103c0					ExpErrMsg(a: Byte) : String:
000103c0 60 00 4c 46              |` LF    |		BRA	_ExpErrMsg(a: Byte) : String
000103c4 ; --------------------------------------------------------------------------------------
000103c4 ; GetArgv() : String
000103c4 ; Stack:
000103c4 ;     A6+0x8  VAR RETURN : String
000103c4 ; --------------------------------------------------------------------------------------
000103c4					GetArgv() : String:
000103c4 60 00 4c 94              |` L     |		BRA	_GetArgv() : String
000103c8 ; --------------------------------------------------------------------------------------
000103c8 ; FSCALL_103c8
000103c8 ; --------------------------------------------------------------------------------------
000103c8					FSCALL_103c8:
000103c8 60 00 4c d0              |` L     |		BRA	_FSCALL_103c8
000103cc ; --------------------------------------------------------------------------------------
000103cc ; GetPushLevel() : Long
000103cc ; Stack:
000103cc ;     A6+0x8  VAR RETURN : Long
000103cc ; --------------------------------------------------------------------------------------
000103cc					GetPushLevel() : Long:
000103cc 60 00 4d 0c              |` M     |		BRA	_GetPushLevel() : Long
000103d0 ; --------------------------------------------------------------------------------------
000103d0 ; WriteConsoleChar(chr : char)
000103d0 ; Stack:
000103d0 ;     A6+0x8      chr : char
000103d0 ; --------------------------------------------------------------------------------------
000103d0					WriteConsoleChar(chr : char):
000103d0 60 00 4e 30              |` N0    |		BRA	_WriteConsoleChar(chr : char)
000103d4 ; --------------------------------------------------------------------------------------
000103d4 ; ReadChar() : Byte
000103d4 ; Stack:
000103d4 ;     A6+0x8  VAR RETURN : Byte
000103d4 ; --------------------------------------------------------------------------------------
000103d4					ReadChar() : Byte:
000103d4 60 00 4e a2              |` N     |		BRA	_ReadChar() : Byte
000103d8 ; --------------------------------------------------------------------------------------
000103d8 ; WriteConsoleString(str : String)
000103d8 ; Stack:
000103d8 ;     A6+0x8      str : String
000103d8 ; --------------------------------------------------------------------------------------
000103d8					WriteConsoleString(str : String):
000103d8 60 00 4f aa              |` O     |		BRA	_WriteConsoleString(str : String)
000103dc ; --------------------------------------------------------------------------------------
000103dc ; WriteConsoleCrLf(void)
000103dc ; Stack:
000103dc ; --------------------------------------------------------------------------------------
000103dc					WriteConsoleCrLf(void):
000103dc 60 00 50 1e              |` P     |		BRA	_WriteConsoleCrLf(void)
000103e0 ; --------------------------------------------------------------------------------------
000103e0 ; WriteConsoleStringCrLf(str : String)
000103e0 ; Stack:
000103e0 ;     A6+0x8      str : String
000103e0 ; --------------------------------------------------------------------------------------
000103e0					WriteConsoleStringCrLf(str : String):
000103e0 60 00 50 c0              |` P     |		BRA	_WriteConsoleStringCrLf(str : String)
000103e4 ; --------------------------------------------------------------------------------------
000103e4 ; AskConsoleString(prompt : String) : String
000103e4 ; Stack:
000103e4 ;     A6+0xc  VAR RETURN : String
000103e4 ;     A6+0x8      prompt : String
000103e4 ; --------------------------------------------------------------------------------------
000103e4					AskConsoleString(prompt : String) : String:
000103e4 60 00 52 a0              |` R     |		BRA	_AskConsoleString(prompt : String) : String
000103e8 ; --------------------------------------------------------------------------------------
000103e8 ; AskOnConsoleInt(prompt: String) : Long
000103e8 ; Stack:
000103e8 ;     A6+0xc  VAR RETURN : Long
000103e8 ;     A6+0x8      prompt : String
000103e8 ; --------------------------------------------------------------------------------------
000103e8					AskOnConsoleInt(prompt: String) : Long:
000103e8 60 00 54 c8              |` T     |		BRA	_AskOnConsoleInt(prompt: String) : Long
000103ec ; --------------------------------------------------------------------------------------
000103ec ; AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
000103ec ; Stack:
000103ec ;     A6+0x14 VAR RETURN : Long
000103ec ;     A6+0x10     prompt : String
000103ec ;     A6+0xc      low : Long
000103ec ;     A6+0x8      High : Long
000103ec ; --------------------------------------------------------------------------------------
000103ec					AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long:
000103ec 60 00 55 54              |` UT    |		BRA	_AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
000103f0 ; --------------------------------------------------------------------------------------
000103f0 ; AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
000103f0 ; Stack:
000103f0 ;     A6+0xe  VAR RETURN : Bool
000103f0 ;     A6+0xa      prompt : String
000103f0 ;     A6+0x8      default : Bool
000103f0 ; --------------------------------------------------------------------------------------
000103f0					AskOnConsoleYesNo(prompt : String; default : Bool) : Bool:
000103f0 60 00 56 16              |` V     |		BRA	_AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
000103f4 ; --------------------------------------------------------------------------------------
000103f4 ; SetConsoleConfig(a : Long)
000103f4 ; Stack:
000103f4 ;     A6+0x8      a : Long
000103f4 ; --------------------------------------------------------------------------------------
000103f4					SetConsoleConfig(a : Long):
000103f4 60 00 57 08              |` W     |		BRA	_SetConsoleConfig(a : Long)
000103f8 ; --------------------------------------------------------------------------------------
000103f8 ; GetConsoleConfig() : Long
000103f8 ; Stack:
000103f8 ;     A6+0x8  VAR RETURN : Long
000103f8 ; --------------------------------------------------------------------------------------
000103f8					GetConsoleConfig() : Long:
000103f8 60 00 57 22              |` W"    |		BRA	_GetConsoleConfig() : Long
000103fc ; --------------------------------------------------------------------------------------
000103fc ; SetConsolePrinter(a: Byte; b: Word; c: Word)
000103fc ; Stack:
000103fc ;     A6+0xc      a : Byte
000103fc ;     A6+0xa      b : Word
000103fc ;     A6+0x8      c : Word
000103fc ; --------------------------------------------------------------------------------------
000103fc					SetConsolePrinter(a: Byte; b: Word; c: Word):
000103fc 60 00 57 3c              |` W<    |		BRA	_SetConsolePrinter(a: Byte; b: Word; c: Word)
00010400 ; --------------------------------------------------------------------------------------
00010400 ; FSCALL_10400
00010400 ; --------------------------------------------------------------------------------------
00010400					FSCALL_10400:
00010400 60 00 57 74              |` Wt    |		BRA	_FSCALL_10400
00010404 ; --------------------------------------------------------------------------------------
00010404 ; SetSomeKindOfFlag(a : Byte)
00010404 ; Stack:
00010404 ;     A6+0x8      a : Byte
00010404 ; --------------------------------------------------------------------------------------
00010404					SetSomeKindOfFlag(a : Byte):
00010404 60 00 58 6a              |` Xj    |		BRA	_SetSomeKindOfFlag(a : Byte)
00010408 ; --------------------------------------------------------------------------------------
00010408 ; FSCALL_10408
00010408 ; --------------------------------------------------------------------------------------
00010408					FSCALL_10408:
00010408 60 00 5f f4              |` _     |		BRA	_FSCALL_10408
0001040c ; --------------------------------------------------------------------------------------
0001040c ; FSCALL_1040c
0001040c ; --------------------------------------------------------------------------------------
0001040c					FSCALL_1040c:
0001040c 60 00 61 54              |` aT    |		BRA	_FSCALL_1040c
00010410 ; --------------------------------------------------------------------------------------
00010410 ; FSCALL_10410
00010410 ; --------------------------------------------------------------------------------------
00010410					FSCALL_10410:
00010410 60 00 62 06              |` b     |		BRA	_FSCALL_10410
00010414 ; --------------------------------------------------------------------------------------
00010414 ; FSCALL_10414
00010414 ; --------------------------------------------------------------------------------------
00010414					FSCALL_10414:
00010414 60 00 62 1e              |` b     |		BRA	_FSCALL_10414
00010418 ; --------------------------------------------------------------------------------------
00010418 ; FSCALL_10418
00010418 ; --------------------------------------------------------------------------------------
00010418					FSCALL_10418:
00010418 60 00 62 68              |` bh    |		BRA	_FSCALL_10418
0001041c ; --------------------------------------------------------------------------------------
0001041c ; FSCALL_1041c
0001041c ; --------------------------------------------------------------------------------------
0001041c					FSCALL_1041c:
0001041c 60 00 62 b2              |` b     |		BRA	_FSCALL_1041c
00010420 ; --------------------------------------------------------------------------------------
00010420 ; FSCALL_10420
00010420 ; --------------------------------------------------------------------------------------
00010420					FSCALL_10420:
00010420 60 00 62 fc              |` b     |		BRA	_FSCALL_10420
00010424 ; --------------------------------------------------------------------------------------
00010424 ; TapeErrorMsg(a : Byte) : String
00010424 ; Stack:
00010424 ;     A6+0xa  VAR RETURN : String
00010424 ;     A6+0x8      a : Byte
00010424 ; --------------------------------------------------------------------------------------
00010424					TapeErrorMsg(a : Byte) : String:
00010424 60 00 63 40              |` c@    |		BRA	_TapeErrorMsg(a : Byte) : String
00010428 ; --------------------------------------------------------------------------------------
00010428 ; FSCALL_10428
00010428 ; --------------------------------------------------------------------------------------
00010428					FSCALL_10428:
00010428 60 00 63 8e              |` c     |		BRA	_FSCALL_10428
0001042c ; --------------------------------------------------------------------------------------
0001042c ; FSCALL_1042c
0001042c ; --------------------------------------------------------------------------------------
0001042c					FSCALL_1042c:
0001042c 60 00 64 48              |` dH    |		BRA	_FSCALL_1042c
00010430 ; --------------------------------------------------------------------------------------
00010430 ; FSCALL_10430
00010430 ; --------------------------------------------------------------------------------------
00010430					FSCALL_10430:
00010430 60 00 65 04              |` e     |		BRA	_FSCALL_10430
00010434 ; --------------------------------------------------------------------------------------
00010434 ; FSCALL_10434
00010434 ; --------------------------------------------------------------------------------------
00010434					FSCALL_10434:
00010434 60 00 66 16              |` f     |		BRA	_FSCALL_10434
00010438 ; --------------------------------------------------------------------------------------
00010438 ; FSCALL_10438
00010438 ; --------------------------------------------------------------------------------------
00010438					FSCALL_10438:
00010438 60 00 67 f4              |` g     |		BRA	_FSCALL_10438
0001043c ; --------------------------------------------------------------------------------------
0001043c ; FileReadLine(file : File; VAR a : String; VAR b : Byte)
0001043c ; Stack:
0001043c ;     A6+0x10     file : File
0001043c ;     A6+0xc  VAR a : String
0001043c ;     A6+0x8  VAR b : Byte
0001043c ; --------------------------------------------------------------------------------------
0001043c					FileReadLine(file : File; VAR a : String; VAR b : Byte):
0001043c 60 00 6c 78              |` lx    |		BRA	_FileReadLine(file : File; VAR a : String; VAR b : Byte)
00010440 ; --------------------------------------------------------------------------------------
00010440 ; FSCALL_10440
00010440 ; --------------------------------------------------------------------------------------
00010440					FSCALL_10440:
00010440 60 00 6d d8              |` m     |		BRA	_FSCALL_10440
00010444 ; --------------------------------------------------------------------------------------
00010444 ; FSCALL_10444
00010444 ; --------------------------------------------------------------------------------------
00010444					FSCALL_10444:
00010444 60 00 6f 32              |` o2    |		BRA	_FSCALL_10444
00010448 ; --------------------------------------------------------------------------------------
00010448 ; FSCALL_10448
00010448 ; --------------------------------------------------------------------------------------
00010448					FSCALL_10448:
00010448 60 00 6f 76              |` ov    |		BRA	_FSCALL_10448
0001044c ; --------------------------------------------------------------------------------------
0001044c ; WriteErrorMessage(file : String; txt : String; number : Long) : Bool
0001044c ; Stack:
0001044c ;     A6+0x14 VAR RETURN : Bool
0001044c ;     A6+0x10     file : String
0001044c ;     A6+0xc      txt : String
0001044c ;     A6+0x8      number : Long
0001044c ; --------------------------------------------------------------------------------------
0001044c					WriteErrorMessage(file : String; txt : String; number : Long) : Bool:
0001044c 60 00 72 74              |` rt    |		BRA	_WriteErrorMessage(file : String; txt : String; number : Long) : Bool
00010450 ; --------------------------------------------------------------------------------------
00010450 ; FS_10450(&, &)
00010450 ; --------------------------------------------------------------------------------------
00010450					FS_10450(&, &):
00010450 60 00 75 08              |` u     |		BRA	_FS_10450(&, &)
00010454 ; --------------------------------------------------------------------------------------
00010454 ; Glob(input : String; pattern : String): Bool
00010454 ; Stack:
00010454 ;     A6+0x10 VAR RETURN : Bool
00010454 ;     A6+0xc      input : String
00010454 ;     A6+0x8      pattern : String
00010454 ; --------------------------------------------------------------------------------------
00010454					Glob(input : String; pattern : String): Bool:
00010454 60 00 75 5e              |` u^    |		BRA	_Glob(input : String; pattern : String): Bool
00010458 ; --------------------------------------------------------------------------------------
00010458 ; DirFirst(MOD c : Bool; a : String; VAR b : File)
00010458 ; Stack:
00010458 ;     A6+0x10     c : Bool
00010458 ;     A6+0xc      a : String
00010458 ;     A6+0x8  VAR b : File
00010458 ; --------------------------------------------------------------------------------------
00010458					DirFirst(MOD c : Bool; a : String; VAR b : File):
00010458 60 00 7b b6              |` {     |		BRA	_DirFirst(MOD c : Bool; a : String; VAR b : File)
0001045c ; --------------------------------------------------------------------------------------
0001045c ; DirNext(MOD a : Bool; VAR b : File)
0001045c ; Stack:
0001045c ;     A6+0xc      a : Bool
0001045c ;     A6+0x8  VAR b : File
0001045c ; --------------------------------------------------------------------------------------
0001045c					DirNext(MOD a : Bool; VAR b : File):
0001045c 60 00 7c ae              |` |     |		BRA	_DirNext(MOD a : Bool; VAR b : File)
00010460 ; --------------------------------------------------------------------------------------
00010460 ; ExpLoad(a : String; b: Pointer)
00010460 ; Stack:
00010460 ;     A6+0xc      a : String
00010460 ;     A6+0x8      b : Pointer
00010460 ; --------------------------------------------------------------------------------------
00010460					ExpLoad(a : String; b: Pointer):
00010460 4e f9 00 01 86 5e        |N    ^  |		JMP	_ExpLoad(a : String; b: Pointer)
00010466 ; --------------------------------------------------------------------------------------
00010466 ; ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00010466 ; Stack:
00010466 ;     A6+0x10     exp : Pointer
00010466 ;     A6+0xc      ptr : Pointer
00010466 ;     A6+0x8      len : L
00010466 ; --------------------------------------------------------------------------------------
00010466					ExpInputParam(exp : Pointer; ptr : Pointer; len : L):
00010466 4e f9 00 01 8b 1a        |N       |		JMP	_ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
0001046c ; --------------------------------------------------------------------------------------
0001046c ; ExpInputFlag(exp : Pointer; val : Word)
0001046c ; Stack:
0001046c ;     A6+0xa      exp : Pointer
0001046c ;     A6+0x8      val : Word
0001046c ; --------------------------------------------------------------------------------------
0001046c					ExpInputFlag(exp : Pointer; val : Word):
0001046c 4e f9 00 01 8b 78        |N    x  |		JMP	_ExpInputFlag(exp : Pointer; val : Word)
00010472 ; --------------------------------------------------------------------------------------
00010472 ; ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
00010472 ; Stack:
00010472 ;     A6+0x14     exp : Pointer
00010472 ;     A6+0x10     b : Pointer
00010472 ;     A6+0xc      c : L
00010472 ;     A6+0x8      d : L
00010472 ; --------------------------------------------------------------------------------------
00010472					ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L):
00010472 4e f9 00 01 8b e6        |N       |		JMP	_ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
00010478 ; --------------------------------------------------------------------------------------
00010478 ; ExpOutputFlag(exp : Pointer; VAR status : Bool)
00010478 ; Stack:
00010478 ;     A6+0xc      exp : Pointer
00010478 ;     A6+0x8  VAR status : Bool
00010478 ; --------------------------------------------------------------------------------------
00010478					ExpOutputFlag(exp : Pointer; VAR status : Bool):
00010478 4e f9 00 01 8c 84        |N       |		JMP	_ExpOutputFlag(exp : Pointer; VAR status : Bool)
0001047e ; --------------------------------------------------------------------------------------
0001047e ; ExpXmit(adr : Byte; b : Pointer)
0001047e ; Stack:
0001047e ;     A6+0xc      adr : Byte
0001047e ;     A6+0x8      b : Pointer
0001047e ; --------------------------------------------------------------------------------------
0001047e					ExpXmit(adr : Byte; b : Pointer):
0001047e 4e f9 00 01 8d 16        |N       |		JMP	_ExpXmit(adr : Byte; b : Pointer)
00010484 ; --------------------------------------------------------------------------------------
00010484 ; DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
00010484 ; Stack:
00010484 ;     A6+0x14     adr : Byte
00010484 ;     A6+0x10 VAR status : Byte
00010484 ;     A6+0xc  VAR b80 : Bool
00010484 ;     A6+0x8  VAR b40 : Bool
00010484 ; --------------------------------------------------------------------------------------
00010484					DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool):
00010484 4e f9 00 01 8d 54        |N    T  |		JMP	_DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
0001048a ; --------------------------------------------------------------------------------------
0001048a ; DiProcCmd(board : Byte; cmd : Byte)
0001048a ; Stack:
0001048a ;     A6+0xa      board : Byte
0001048a ;     A6+0x8      cmd : Byte
0001048a ; --------------------------------------------------------------------------------------
0001048a					DiProcCmd(board : Byte; cmd : Byte):
0001048a 4e f9 00 01 8d ea        |N       |		JMP	_DiProcCmd(board : Byte; cmd : Byte)
00010490 ; --------------------------------------------------------------------------------------
00010490 ; ExpUpload(adr: Byte; ptr: Pointer; VAR status : Byte)
00010490 ; Stack:
00010490 ;     A6+0x10     adr : Byte
00010490 ;     A6+0xc      ptr : Pointer
00010490 ;     A6+0x8  VAR status : Byte
00010490 ; --------------------------------------------------------------------------------------
00010490					ExpUpload(adr: Byte; ptr: Pointer; VAR status : Byte):
00010490 4e f9 00 01 8e 34        |N    4  |		JMP	_ExpUpload(adr: Byte; ptr: Pointer; VAR status : Byte)
00010496 ; --------------------------------------------------------------------------------------
00010496 ; ExpClose(exp : Pointer)
00010496 ; Stack:
00010496 ;     A6+0x8      exp : Pointer
00010496 ; --------------------------------------------------------------------------------------
00010496					ExpClose(exp : Pointer):
00010496 4e f9 00 01 8e de        |N       |		JMP	_ExpClose(exp : Pointer)
0001049c ; --------------------------------------------------------------------------------------
0001049c ; BoardName(address : B) : String
0001049c ; Stack:
0001049c ;     A6+0xa  VAR RETURN : String
0001049c ;     A6+0x8      address : B
0001049c ; --------------------------------------------------------------------------------------
0001049c					BoardName(address : B) : String:
0001049c 4e f9 00 01 8f e4        |N       |		JMP	_BoardName(address : B) : String
000104a2 ; --------------------------------------------------------------------------------------
000104a2 ; ExpStatus2Text(status.B, &String)
000104a2 ; --------------------------------------------------------------------------------------
000104a2					ExpStatus2Text(status.B, &String):
000104a2 4e f9 00 01 90 96        |N       |		JMP	_ExpStatus2Text(status.B, &String)
000104a8 ; --------------------------------------------------------------------------------------
000104a8 ; ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
000104a8 ; Stack:
000104a8 ;     A6+0x20 VAR RETURN : Bool
000104a8 ;     A6+0x1c     VAR : Pointer
000104a8 ;     A6+0x18     b : L
000104a8 ;     A6+0x14     c : L
000104a8 ;     A6+0x10     VAR : Pointer
000104a8 ;     A6+0xc      e : L
000104a8 ;     A6+0x8      f : L
000104a8 ; --------------------------------------------------------------------------------------
000104a8					?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool:
000104a8 4e f9 00 01 90 ec        |N       |		JMP	_?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
000104ae ; --------------------------------------------------------------------------------------
000104ae ; FSCALL_104ae
000104ae ; --------------------------------------------------------------------------------------
000104ae					FSCALL_104ae:
000104ae 4e f9 00 01 91 5c        |N    \  |		JMP	_FSCALL_104ae
000104b4 ; --------------------------------------------------------------------------------------
000104b4 ; ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
000104b4 ; Stack:
000104b4 ;     A6+0x14 VAR a : Long
000104b4 ;     A6+0x10     b : L
000104b4 ;     A6+0xc      c : L
000104b4 ;     A6+0x8  VAR d : Q
000104b4 ; --------------------------------------------------------------------------------------
000104b4					?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q):
000104b4 4e f9 00 01 91 c8        |N       |		JMP	_?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
000104ba ; --------------------------------------------------------------------------------------
000104ba ; ExpRun(a: Bool; adr: Byte; b: Pointer)
000104ba ; Stack:
000104ba ;     A6+0xe      a : Bool
000104ba ;     A6+0xc      adr : Byte
000104ba ;     A6+0x8      b : Pointer
000104ba ; --------------------------------------------------------------------------------------
000104ba					ExpRun(a: Bool; adr: Byte; b: Pointer):
000104ba 4e f9 00 01 92 70        |N    p  |		JMP	_ExpRun(a: Bool; adr: Byte; b: Pointer)
000104c0 ; --------------------------------------------------------------------------------------
000104c0 ; HasBoard(diproc_addr: Byte) : Byte
000104c0 ; Stack:
000104c0 ;     A6+0xa  VAR RETURN : Byte
000104c0 ;     A6+0x8      diproc_addr : Byte
000104c0 ; --------------------------------------------------------------------------------------
000104c0					HasBoard(diproc_addr: Byte) : Byte:
000104c0 4e f9 00 01 94 e8        |N       |		JMP	_HasBoard(diproc_addr: Byte) : Byte
000104c6 ; --------------------------------------------------------------------------------------
000104c6 ; EQ_1c218(a : Byte) : Bool
000104c6 ; Stack:
000104c6 ;     A6+0xa  VAR RETURN : Bool
000104c6 ;     A6+0x8      a : Byte
000104c6 ; --------------------------------------------------------------------------------------
000104c6					EQ_1c218(a : Byte) : Bool:
000104c6 4e f9 00 01 95 74        |N    t  |		JMP	_EQ_1c218(a : Byte) : Bool
000104cc ; --------------------------------------------------------------------------------------
000104cc ; MemOnly2MB() : Bool
000104cc ; Stack:
000104cc ;     A6+0x8  VAR RETURN : Bool
000104cc ; --------------------------------------------------------------------------------------
000104cc					MemOnly2MB() : Bool:
000104cc 4e f9 00 01 95 a6        |N       |		JMP	_MemOnly2MB() : Bool
000104d2 ; --------------------------------------------------------------------------------------
000104d2 ; SetExpInitDone(a : Byte)
000104d2 ; Stack:
000104d2 ;     A6+0x8      a : Byte
000104d2 ; --------------------------------------------------------------------------------------
000104d2					SetExpInitDone(a : Byte):
000104d2 4e f9 00 01 95 d2        |N       |		JMP	_SetExpInitDone(a : Byte)
000104d8 ; --------------------------------------------------------------------------------------
000104d8 ; ExpInit(a : Long)
000104d8 ; Stack:
000104d8 ;     A6+0x8      a : Long
000104d8 ; --------------------------------------------------------------------------------------
000104d8					ExpInit(a : Long):
000104d8 4e f9 00 01 95 f0        |N       |		JMP	_ExpInit(a : Long)
000104de ; --------------------------------------------------------------------------------------
000104de ; Get20028(void) : L
000104de ; Stack:
000104de ;     A6+0x8  VAR RETURN : L
000104de ; --------------------------------------------------------------------------------------
000104de					Get20028(void) : L:
000104de 4e f9 00 01 96 98        |N       |		JMP	_Get20028(void) : L
000104e4 ; --------------------------------------------------------------------------------------
000104e4 ; FindWord(src : Pointer; x : Word; length : Word) : Bool
000104e4 ; Stack:
000104e4 ;     A6+0x10 VAR RETURN : Bool
000104e4 ;     A6+0xc      src : Pointer
000104e4 ;     A6+0xa      x : Word
000104e4 ;     A6+0x8      length : Word
000104e4 ; --------------------------------------------------------------------------------------
000104e4					FindWord(src : Pointer; x : Word; length : Word) : Bool:
000104e4 4e f9 00 01 96 b6        |N       |		JMP	_FindWord(src : Pointer; x : Word; length : Word) : Bool
000104ea ; --------------------------------------------------------------------------------------
000104ea ; FillWords(dst : Pointer; x : Word; length : Word)
000104ea ; Stack:
000104ea ;     A6+0xc      dst : Pointer
000104ea ;     A6+0xa      x : Word
000104ea ;     A6+0x8      length : Word
000104ea ; --------------------------------------------------------------------------------------
000104ea					FillWords(dst : Pointer; x : Word; length : Word):
000104ea 4e f9 00 01 96 ec        |N       |		JMP	_FillWords(dst : Pointer; x : Word; length : Word)
000104f0 ; --------------------------------------------------------------------------------------
000104f0 ; SwapBytes(src : Pointer; dst : Pointer; words : Word)
000104f0 ; Stack:
000104f0 ;     A6+0xe      src : Pointer
000104f0 ;     A6+0xa      dst : Pointer
000104f0 ;     A6+0x8      words : Word
000104f0 ; --------------------------------------------------------------------------------------
000104f0					SwapBytes(src : Pointer; dst : Pointer; words : Word):
000104f0 4e f9 00 01 97 16        |N       |		JMP	_SwapBytes(src : Pointer; dst : Pointer; words : Word)
000104f6 ; --------------------------------------------------------------------------------------
000104f6 ; CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
000104f6 ; Stack:
000104f6 ;     A6+0xe      src : Pointer
000104f6 ;     A6+0xa      dst : Pointer
000104f6 ;     A6+0x8      bytes : Word
000104f6 ; --------------------------------------------------------------------------------------
000104f6					CopyBytes(src : Pointer; dst : Pointer; bytes : Word):
000104f6 4e f9 00 01 97 44        |N    D  |		JMP	_CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
000104fc ; --------------------------------------------------------------------------------------
000104fc ; IPC_PutVar(src : Pointer; length : Long ; type : Long)
000104fc ; Stack:
000104fc ;     A6+0x10     src : Pointer
000104fc ;     A6+0xc      length : Long
000104fc ;     A6+0x8      type : Long
000104fc ; --------------------------------------------------------------------------------------
000104fc					IPC_PutVar(src : Pointer; length : Long ; type : Long):
000104fc 4e f9 00 01 97 96        |N       |		JMP	_IPC_PutVar(src : Pointer; length : Long ; type : Long)
00010502 ; --------------------------------------------------------------------------------------
00010502 ; IPC_PutBool(a : Bool)
00010502 ; Stack:
00010502 ;     A6+0x8      a : Bool
00010502 ; --------------------------------------------------------------------------------------
00010502					IPC_PutBool(a : Bool):
00010502 4e f9 00 01 98 12        |N       |		JMP	_IPC_PutBool(a : Bool)
00010508 ; --------------------------------------------------------------------------------------
00010508 ; IPC_PutString(a : String)
00010508 ; Stack:
00010508 ;     A6+0x8      a : String
00010508 ; --------------------------------------------------------------------------------------
00010508					IPC_PutString(a : String):
00010508 4e f9 00 01 98 66        |N    f  |		JMP	_IPC_PutString(a : String)
0001050e ; --------------------------------------------------------------------------------------
0001050e ; IPC_PutLong(a : L)
0001050e ; Stack:
0001050e ;     A6+0x8      a : L
0001050e ; --------------------------------------------------------------------------------------
0001050e					IPC_PutLong(a : L):
0001050e 4e f9 00 01 98 ca        |N       |		JMP	_IPC_PutLong(a : L)
00010514 ; --------------------------------------------------------------------------------------
00010514 ; IPC_PutEnd(void)
00010514 ; Stack:
00010514 ; --------------------------------------------------------------------------------------
00010514					IPC_PutEnd(void):
00010514 4e f9 00 01 99 10        |N       |		JMP	_IPC_PutEnd(void)
0001051a ; --------------------------------------------------------------------------------------
0001051a ; IPC_GetEnd(void)
0001051a ; Stack:
0001051a ; --------------------------------------------------------------------------------------
0001051a					IPC_GetEnd(void):
0001051a 4e f9 00 01 99 54        |N    T  |		JMP	_IPC_GetEnd(void)
00010520 ; --------------------------------------------------------------------------------------
00010520 ; IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00010520 ; Stack:
00010520 ;     A6+0x10     dst : Pointer
00010520 ;     A6+0xc      length : Long
00010520 ;     A6+0x8      type : Long
00010520 ; --------------------------------------------------------------------------------------
00010520					IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long):
00010520 4e f9 00 01 99 cc        |N       |		JMP	_IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00010526 ; --------------------------------------------------------------------------------------
00010526 ; IPC_GetBool() : Bool
00010526 ; Stack:
00010526 ;     A6+0x8  VAR RETURN : Bool
00010526 ; --------------------------------------------------------------------------------------
00010526					IPC_GetBool() : Bool:
00010526 4e f9 00 01 9a 7c        |N    |  |		JMP	_IPC_GetBool() : Bool
0001052c ; --------------------------------------------------------------------------------------
0001052c ; IPC_GetString(VAR retval : String)
0001052c ; Stack:
0001052c ;     A6+0x8  VAR retval : String
0001052c ; --------------------------------------------------------------------------------------
0001052c					IPC_GetString(VAR retval : String):
0001052c 4e f9 00 01 9a fe        |N       |		JMP	_IPC_GetString(VAR retval : String)
00010532 ; --------------------------------------------------------------------------------------
00010532 ; IPC_GetLong() : Long
00010532 ; Stack:
00010532 ;     A6+0x8  VAR RETURN : Long
00010532 ; --------------------------------------------------------------------------------------
00010532					IPC_GetLong() : Long:
00010532 4e f9 00 01 9b 96        |N       |		JMP	_IPC_GetLong() : Long
00010538 ; --------------------------------------------------------------------------------------
00010538 ; IPC_Init(void)
00010538 ; Stack:
00010538 ; --------------------------------------------------------------------------------------
00010538					IPC_Init(void):
00010538 4e f9 00 01 9c 12        |N       |		JMP	_IPC_Init(void)
0001053e ; --------------------------------------------------------------------------------------
0001053e ; FSCALL_1053e
0001053e ; --------------------------------------------------------------------------------------
0001053e					FSCALL_1053e:
0001053e 4e f9 00 01 9c 3e        |N    >  |		JMP	_FSCALL_1053e
00010544 ; --------------------------------------------------------------------------------------
00010544 ; IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
00010544 ; Stack:
00010544 ;     A6+0xc  VAR a : Bool
00010544 ;     A6+0x8  VAR b : Bool
00010544 ; --------------------------------------------------------------------------------------
00010544					IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool):
00010544 4e f9 00 01 9d 34        |N    4  |		JMP	_IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
0001054a ; --------------------------------------------------------------------------------------
0001054a ; ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
0001054a ; Stack:
0001054a ;     A6+0x1a     a : Bool
0001054a ;     A6+0x16     b : String
0001054a ;     A6+0x12     c : String
0001054a ;     A6+0x10     d : Bool
0001054a ;     A6+0xc      e : Long
0001054a ;     A6+0x8      f : Long
0001054a ; --------------------------------------------------------------------------------------
0001054a					?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long):
0001054a 4e f9 00 01 9d 7a        |N    z  |		JMP	_?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
00010550 ; --------------------------------------------------------------------------------------
00010550 ; ?ExecFRU(VAR a : L; VAR b : W; VAR c: L; VAR d : L; VAR e: B)
00010550 ; Stack:
00010550 ;     A6+0x18 VAR a : L
00010550 ;     A6+0x14 VAR b : W
00010550 ;     A6+0x10 VAR c : L
00010550 ;     A6+0xc  VAR d : L
00010550 ;     A6+0x8  VAR e : B
00010550 ; --------------------------------------------------------------------------------------
00010550					?ExecFRU(VAR a : L; VAR b : W; VAR c: L; VAR d : L; VAR e: B):
00010550 4e f9 00 01 9e 06        |N       |		JMP	_?ExecFRU(VAR a : L; VAR b : W; VAR c: L; VAR d : L; VAR e: B)
00010556 ; --------------------------------------------------------------------------------------
00010556 ; ?IPC_GetStd(MOD a : Pointer; VAR b : Bool ; VAR c : Bool)
00010556 ; Stack:
00010556 ;     A6+0x10     a : Pointer
00010556 ;     A6+0xc  VAR b : Bool
00010556 ;     A6+0x8  VAR c : Bool
00010556 ; --------------------------------------------------------------------------------------
00010556					?IPC_GetStd(MOD a : Pointer; VAR b : Bool ; VAR c : Bool):
00010556 4e f9 00 01 9f 0e        |N       |		JMP	_?IPC_GetStd(MOD a : Pointer; VAR b : Bool ; VAR c : Bool)
0001055c ; --------------------------------------------------------------------------------------
0001055c ; FSCALL_1055c
0001055c ; --------------------------------------------------------------------------------------
0001055c					FSCALL_1055c:
0001055c 4e f9 00 01 9f 6c        |N    l  |		JMP	_FSCALL_1055c
00010562 ; --------------------------------------------------------------------------------------
00010562 ; ?IPC_GetVar4xBool(VAR a : Pointer; VAR b : Bool ; VAR c : Bool; VAR d: Bool; VAR e: Bool)
00010562 ; Stack:
00010562 ;     A6+0x18 VAR a : Pointer
00010562 ;     A6+0x14 VAR b : Bool
00010562 ;     A6+0x10 VAR c : Bool
00010562 ;     A6+0xc  VAR d : Bool
00010562 ;     A6+0x8  VAR e : Bool
00010562 ; --------------------------------------------------------------------------------------
00010562					?IPC_GetVar4xBool(VAR a : Pointer; VAR b : Bool ; VAR c : Bool; VAR d: Bool; VAR e: Bool):
00010562 4e f9 00 01 a0 7e        |N    ~  |		JMP	_?IPC_GetVar4xBool(VAR a : Pointer; VAR b : Bool ; VAR c : Bool; VAR d: Bool; VAR e: Bool)
00010568 ; --------------------------------------------------------------------------------------
00010568 ; Run_Experiment()
00010568 ; --------------------------------------------------------------------------------------
00010568					Run_Experiment():
00010568 4e f9 00 01 a1 0a        |N       |		JMP	_Run_Experiment()
0001056e ; --------------------------------------------------------------------------------------
0001056e ; Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
0001056e ; Stack:
0001056e ;     A6+0x14     name : String
0001056e ;     A6+0x10     version : Long
0001056e ;     A6+0xc      dst : Pointer
0001056e ;     A6+0x8  VAR status : Bool
0001056e ; --------------------------------------------------------------------------------------
0001056e					Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool):
0001056e 4e f9 00 01 a4 b0        |N       |		JMP	_Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
00010574 ; --------------------------------------------------------------------------------------
00010574 ; Write_ConfigFile(name: String; dst: Pointer)
00010574 ; Stack:
00010574 ;     A6+0xc      name : String
00010574 ;     A6+0x8      dst : Pointer
00010574 ; --------------------------------------------------------------------------------------
00010574					Write_ConfigFile(name: String; dst: Pointer):
00010574 4e f9 00 01 a6 08        |N       |		JMP	_Write_ConfigFile(name: String; dst: Pointer)
0001057a ; --------------------------------------------------------------------------------------
0001057a ; Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool)
0001057a ; Stack:
0001057a ;     A6+0xc      a : Pointer
0001057a ;     A6+0x8  VAR status : Bool
0001057a ; --------------------------------------------------------------------------------------
0001057a					Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool):
0001057a 4e f9 00 01 a6 da        |N       |		JMP	_Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool)
00010580 ; --------------------------------------------------------------------------------------
00010580 ; Write_HARDWARE.M200_CONFIG(a : Pointer)
00010580 ; Stack:
00010580 ;     A6+0x8      a : Pointer
00010580 ; --------------------------------------------------------------------------------------
00010580					Write_HARDWARE.M200_CONFIG(a : Pointer):
00010580 4e f9 00 01 a7 a8        |N       |		JMP	_Write_HARDWARE.M200_CONFIG(a : Pointer)
00010586 ; --------------------------------------------------------------------------------------
00010586 ; Config_Entry_Name(a : Byte) : String
00010586 ; Stack:
00010586 ;     A6+0xa  VAR RETURN : String
00010586 ;     A6+0x8      a : Byte
00010586 ; --------------------------------------------------------------------------------------
00010586					Config_Entry_Name(a : Byte) : String:
00010586 4e f9 00 01 a8 76        |N    v  |		JMP	_Config_Entry_Name(a : Byte) : String
0001058c ; --------------------------------------------------------------------------------------
0001058c ; FSCALL_1058c
0001058c ; --------------------------------------------------------------------------------------
0001058c					FSCALL_1058c:
0001058c 4e f9 00 01 a8 c8        |N       |		JMP	_FSCALL_1058c
00010592 ; --------------------------------------------------------------------------------------
00010592 ; ReadConfig(where : Long) : Word
00010592 ; Stack:
00010592 ;     A6+0xc  VAR RETURN : Word
00010592 ;     A6+0x8      where : Long
00010592 ; --------------------------------------------------------------------------------------
00010592					ReadConfig(where : Long) : Word:
00010592 4e f9 00 01 a9 5c        |N    \  |		JMP	_ReadConfig(where : Long) : Word
00010598 ; --------------------------------------------------------------------------------------
00010598 ; WriteConfig(what: Word; where : Long)
00010598 ; Stack:
00010598 ;     A6+0xc      what : Word
00010598 ;     A6+0x8      where : Long
00010598 ; --------------------------------------------------------------------------------------
00010598					WriteConfig(what: Word; where : Long):
00010598 4e f9 00 01 a9 ae        |N       |		JMP	_WriteConfig(what: Word; where : Long)
0001059e ; --------------------------------------------------------------------------------------
0001059e ; ReadClusterNo(VAR a : Long)
0001059e ; Stack:
0001059e ;     A6+0x8  VAR a : Long
0001059e ; --------------------------------------------------------------------------------------
0001059e					ReadClusterNo(VAR a : Long):
0001059e 4e f9 00 01 aa 06        |N       |		JMP	_ReadClusterNo(VAR a : Long)
000105a4 ; --------------------------------------------------------------------------------------
000105a4 ; Read_fc0c() : Word
000105a4 ; Stack:
000105a4 ;     A6+0x8  VAR RETURN : Word
000105a4 ; --------------------------------------------------------------------------------------
000105a4					Read_fc0c() : Word:
000105a4 4e f9 00 01 aa 8a        |N       |		JMP	_Read_fc0c() : Word
000105aa ; --------------------------------------------------------------------------------------
000105aa ; Read_fc00() : Byte
000105aa ; Stack:
000105aa ;     A6+0x8  VAR RETURN : Byte
000105aa ; --------------------------------------------------------------------------------------
000105aa					Read_fc00() : Byte:
000105aa 4e f9 00 01 aa c4        |N       |		JMP	_Read_fc00() : Byte
000105b0 ; --------------------------------------------------------------------------------------
000105b0 ; FifoInit(void)
000105b0 ; Stack:
000105b0 ; --------------------------------------------------------------------------------------
000105b0					FifoInit(void):
000105b0 4e f9 00 01 aa fe        |N       |		JMP	_FifoInit(void)
000105b6 ; --------------------------------------------------------------------------------------
000105b6 ; R1000_Reset_L(void)
000105b6 ; Stack:
000105b6 ; --------------------------------------------------------------------------------------
000105b6					R1000_Reset_L(void):
000105b6 4e f9 00 01 ab 40        |N    @  |		JMP	_R1000_Reset_L(void)
000105bc ; --------------------------------------------------------------------------------------
000105bc ; R1000_Reset_H(void)
000105bc ; Stack:
000105bc ; --------------------------------------------------------------------------------------
000105bc					R1000_Reset_H(void):
000105bc 4e f9 00 01 ab bc        |N       |		JMP	_R1000_Reset_H(void)
000105c2 ; --------------------------------------------------------------------------------------
000105c2 ; Or_fc0c_80(void)
000105c2 ; Stack:
000105c2 ; --------------------------------------------------------------------------------------
000105c2					Or_fc0c_80(void):
000105c2 4e f9 00 01 ac 38        |N    8  |		JMP	_Or_fc0c_80(void)
000105c8 ; --------------------------------------------------------------------------------------
000105c8 ; And_fc0c_7f(void)
000105c8 ; Stack:
000105c8 ; --------------------------------------------------------------------------------------
000105c8					And_fc0c_7f(void):
000105c8 4e f9 00 01 ac 68        |N    h  |		JMP	_And_fc0c_7f(void)
000105ce ; --------------------------------------------------------------------------------------
000105ce ; ReadKeySwitch() : Bool
000105ce ; Stack:
000105ce ;     A6+0x8  VAR RETURN : Bool
000105ce ; --------------------------------------------------------------------------------------
000105ce					ReadKeySwitch() : Bool:
000105ce 4e f9 00 01 ac 98        |N       |		JMP	_ReadKeySwitch() : Bool
000105d4 ; --------------------------------------------------------------------------------------
000105d4 ; Update_fc0c(new : Byte)
000105d4 ; Stack:
000105d4 ;     A6+0x8      new : Byte
000105d4 ; --------------------------------------------------------------------------------------
000105d4					Update_fc0c(new : Byte):
000105d4 4e f9 00 01 ac ea        |N       |		JMP	_Update_fc0c(new : Byte)
000105da ; --------------------------------------------------------------------------------------
000105da ; Set_fc01(a : Byte)
000105da ; Stack:
000105da ;     A6+0x8      a : Byte
000105da ; --------------------------------------------------------------------------------------
000105da					Set_fc01(a : Byte):
000105da 4e f9 00 01 ad 5c        |N    \  |		JMP	_Set_fc01(a : Byte)
000105e0 ; --------------------------------------------------------------------------------------
000105e0 ; Get_fc01() : Byte
000105e0 ; Stack:
000105e0 ;     A6+0x8  VAR RETURN : Byte
000105e0 ; --------------------------------------------------------------------------------------
000105e0					Get_fc01() : Byte:
000105e0 4e f9 00 01 ad 9c        |N       |		JMP	_Get_fc01() : Byte
000105e6 ; --------------------------------------------------------------------------------------
000105e6 ; Set_fc04_to_01(void)
000105e6 ; Stack:
000105e6 ; --------------------------------------------------------------------------------------
000105e6					Set_fc04_to_01(void):
000105e6 4e f9 00 01 ad d6        |N       |		JMP	_Set_fc04_to_01(void)
000105ec ; --------------------------------------------------------------------------------------
000105ec ; Get_fc05() : Byte
000105ec ; Stack:
000105ec ;     A6+0x8  VAR RETURN : Byte
000105ec ; --------------------------------------------------------------------------------------
000105ec					Get_fc05() : Byte:
000105ec 4e f9 00 01 ae 14        |N       |		JMP	_Get_fc05() : Byte
000105f2 ; --------------------------------------------------------------------------------------
000105f2 ; Get_fc02() : Word
000105f2 ; Stack:
000105f2 ;     A6+0x8  VAR RETURN : Word
000105f2 ; --------------------------------------------------------------------------------------
000105f2					Get_fc02() : Word:
000105f2 4e f9 00 01 ae 54        |N    T  |		JMP	_Get_fc02() : Word
000105f8 ; --------------------------------------------------------------------------------------
000105f8 ; Is_fc07_one() : Bool
000105f8 ; Stack:
000105f8 ;     A6+0x8  VAR RETURN : Bool
000105f8 ; --------------------------------------------------------------------------------------
000105f8					Is_fc07_one() : Bool:
000105f8 4e f9 00 01 ae 94        |N       |		JMP	_Is_fc07_one() : Bool
000105fe ; --------------------------------------------------------------------------------------
000105fe ; Is_fc07_two() : Bool
000105fe ; Stack:
000105fe ;     A6+0x8  VAR RETURN : Bool
000105fe ; --------------------------------------------------------------------------------------
000105fe					Is_fc07_two() : Bool:
000105fe 4e f9 00 01 ae de        |N       |		JMP	_Is_fc07_two() : Bool
00010604 ; --------------------------------------------------------------------------------------
00010604 ; Is_fc07_three() : Bool
00010604 ; Stack:
00010604 ;     A6+0x8  VAR RETURN : Bool
00010604 ; --------------------------------------------------------------------------------------
00010604					Is_fc07_three() : Bool:
00010604 4e f9 00 01 af 2a        |N    *  |		JMP	_Is_fc07_three() : Bool
0001060a ; --------------------------------------------------------------------------------------
0001060a ; Is_fc07_four() : Bool
0001060a ; Stack:
0001060a ;     A6+0x8  VAR RETURN : Bool
0001060a ; --------------------------------------------------------------------------------------
0001060a					Is_fc07_four() : Bool:
0001060a 4e f9 00 01 af 76        |N    v  |		JMP	_Is_fc07_four() : Bool
00010610 ; --------------------------------------------------------------------------------------
00010610 ; Is_fc07_one_or_three() : Bool
00010610 ; Stack:
00010610 ;     A6+0x8  VAR RETURN : Bool
00010610 ; --------------------------------------------------------------------------------------
00010610					Is_fc07_one_or_three() : Bool:
00010610 4e f9 00 01 af c2        |N       |		JMP	_Is_fc07_one_or_three() : Bool
00010616 ; --------------------------------------------------------------------------------------
00010616 ; Is_fc07_two_or_four() : Bool
00010616 ; Stack:
00010616 ;     A6+0x8  VAR RETURN : Bool
00010616 ; --------------------------------------------------------------------------------------
00010616					Is_fc07_two_or_four() : Bool:
00010616 4e f9 00 01 b0 12        |N       |		JMP	_Is_fc07_two_or_four() : Bool
0001061c ; --------------------------------------------------------------------------------------
0001061c ; START
0001061c ; --------------------------------------------------------------------------------------
0001061c					START:
0001061c 20 7c 00 01 b0 64        | |   d  |		MOVEA.L	#0x1b064,A0
00010622 20 3c 00 02 00 00        | <      |		MOVE.L	#stack.top,D0
00010628 90 88                    |        |		SUB.L	A0,D0
0001062a 22 00                    |"       |		MOVE.L	D0,D1
0001062c 42 90                    |B       |		CLR.L	(A0)
0001062e 02 41 00 03              | A      |		ANDI.W	#0x0003,D1
00010632 d1 c1                    |        |		ADDA.L	D1,A0
00010634 e4 88                    |        |		LSR.L	#0x2,D0
00010636 53 80                    |S       |		SUBQ.L	#0x1,D0
00010638 42 98                    |B       |		CLR.L	(A0)+
0001063a 51 c8 ff fc              |Q       |		DBF	D0,0x10638
0001063e 23 fc 00 01 06 48 00 01  |#    H  |		MOVE.L	#0x10648,0x10004
00010646 00 04                    |        |
00010648 2e 79 00 02 00 00        |.y      |		MOVEA.L	stack.top,A7
0001064e 4e f0 01 f1 00 02 00 04  |N       |		JMP	((#0x20004))		;  LEW=01f1
00010656 ; --------------------------------------------------------------------------------------
00010656 ; ?start_program
00010656 ; --------------------------------------------------------------------------------------
00010656					_?start_program:
00010656 20 39 00 02 00 0c        | 9      |		MOVE.L	heap.top,D0
0001065c 56 80                    |V       |		ADDQ.L	#0x3,D0
0001065e 02 40 ff fc              | @      |		ANDI.W	#0xfffc,D0
00010662 23 c0 00 02 00 0c        |#       |		MOVE.L	D0,heap.top
00010668 20 40                    | @      |		MOVEA.L	D0,A0
0001066a 2a 79 00 02 00 00        |*y      |		MOVEA.L	stack.top,A5
00010670 2b 0f                    |+       |		MOVE.L	A7,-(A5)
00010672 2e 4d                    |.M      |		MOVEA.L	A5,A7
00010674 49 e8 00 00              |I       |		LEA.L	(A0+0x0),A4
00010678 4b e8 00 1e              |K       |		LEA.L	(A0+0x1e),A5
0001067c 20 79 00 02 00 10        | y      |		MOVEA.L	code.end,A0
00010682 20 08                    |        |		MOVE.L	A0,D0
00010684 08 00 00 01              |        |		BTST.L	#0x1,D0
00010688 67 02                    |g       |		BEQ	0x1068c
0001068a 42 58                    |BX      |		CLR.W	(A0)+
0001068c 42 98                    |B       |		CLR.L	(A0)+
0001068e bf c8                    |        |		CMPA.L	A0,A7
00010690 62 fa                    |b       |		BHI	0x1068c
00010692 42 a7                    |B       |		CLR.L	-(A7)
00010694 2c 4f                    |,O      |		MOVEA.L	A7,A6
00010696 29 79 00 02 00 14 00 10  |)y      |		MOVE.L	0x20014,(A4+0x10)
0001069e 2b 4c 00 0c              |+L      |		MOVE.L	A4,(A5+0xc)
000106a2 42 ac 00 00              |B       |		CLR.L	(A4+0x0)
000106a6 42 ac 00 04              |B       |		CLR.L	(A4+0x4)
000106aa 70 01                    |p       |		MOVEQ.L	#0x01,D0
000106ac 2b 40 00 14              |+@      |		MOVE.L	D0,(A5+0x14)
000106b0 2b 40 00 10              |+@      |		MOVE.L	D0,(A5+0x10)
000106b4 29 4d 00 14              |)M      |		MOVE.L	A5,(A4+0x14)
000106b8 20 0d                    |        |		MOVE.L	A5,D0
000106ba d0 ac 00 10              |        |		ADD.L	(A4+0x10),D0
000106be 06 80 00 00 00 1b        |        |		ADDI.L	#0x0000001b,D0
000106c4 02 40 ff fc              | @      |		ANDI.W	#0xfffc,D0
000106c8 29 40 00 08              |)@      |		MOVE.L	D0,(A4+0x8)
000106cc 3b 7c 00 01 ff fe        |;|      |		MOVE.W	#0x1,(A5-0x2)
000106d2 29 6c 00 08 00 18        |)l      |		MOVE.L	(A4+0x8),(A4+0x18)
000106d8 06 ac 00 00 03 00 00 08  |        |		ADDI.L	#0x00000300,(A4+0x8)
000106e0 20 2c 00 08              | ,      |		MOVE.L	(A4+0x8),D0
000106e4 29 40 00 0c              |)@      |		MOVE.L	D0,(A4+0xc)
000106e8 06 80 00 00 00 54        |     T  |		ADDI.L	#0x00000054,D0
000106ee 2b 40 00 00              |+@      |		MOVE.L	D0,(A5+0x0)
000106f2 2b 4f 00 08              |+O      |		MOVE.L	A7,(A5+0x8)
000106f6 4e 5e                    |N^      |		UNLK	A6
000106f8 53 6d ff fe              |Sm      |		SUBQ.W	#0x1,(A5-0x2)
000106fc 42 79 00 01 07 e8        |By      |		CLR.W	0x107e8
00010702 4e 75                    |Nu      |		RTS
00010704 4e f0 01 f1 00 02 00 18  |N       |		JMP	((#programfailurehandler));  LEW=01f1
0001070c 4e f0 01 f1              |N       |		.XXX[0x4]
00010710 00 02 00 1c 00 10 02 00  |        |		.XXX[0x38]
00010718 00 02 00 03 00 04 01 11  |        |
00010720 01 12 00 13 00 08 00 07  |        |
00010728 00 14 00 15 00 16 16 16  |        |
00010730 0a 0c 0e 10 08 12 14 18  |        |
00010738 0e 0e 16 16 16 16 16 16  |        |
00010740 16 16 16 16 16 16 16 16  |        |
00010748 16 16 16 16 16 16        |        |		.XXX[0x6]
0001074e 00 00                    |        |		.XXX[0x2]
00010750 00 00 00 00 00 00 00 00  |        |		.XXX[0x8]
00010758 00 00 02 04 06 08        |        |		.XXX[0x6]
0001075e ; --------------------------------------------------------------------------------------
0001075e ; FSCALL_10288
0001075e ; --------------------------------------------------------------------------------------
0001075e					_FSCALL_10288:
0001075e 4a 79 00 01 07 e8        |Jy      |		TST.W	0x107e8
00010764 67 02                    |g       |		BEQ	0x10768
00010766 4e 40                    |N@      |		TRAP	#0
00010768 42 a7                    |B       |		CLR.L	-(A7)
0001076a 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001076c 2f 00                    |/       |		MOVE.L	D0,-(A7)
0001076e 30 2f 00 12              |0/      |		MOVE.W	(A7+0x12),D0
00010772 02 80 00 00 0f ff        |        |		ANDI.L	#0x00000fff,D0
00010778 e4 88                    |        |		LSR.L	#0x2,D0
0001077a 1f 7b 08 b2 00 0b        | {      |		MOVE.B	(#0x10730+D0.L),(A7+0xb)
00010780 20 1f                    |        |		MOVE.L	(A7)+,D0
00010782 4e f9 00 01 07 8a        |N       |		JMP	0x1078a
00010788 ; --------------------------------------------------------------------------------------
00010788 ; ?exit
00010788 ; --------------------------------------------------------------------------------------
00010788					_?exit:
00010788 4e 40                    |N@      |		TRAP	#0
0001078a 20 79 00 02 00 0c        | y      |		MOVEA.L	heap.top,A0
00010790 20 68 00 18              | h      |		MOVEA.L	(A0+0x18),A0
00010794 d0 fc 03 00              |        |		ADDA.W	#0x300,A0
00010798 21 1f                    |!       |		MOVE.L	(A7)+,-(A0)
0001079a 48 e0 ff 7e              |H  ~    |		MOVEM.L	A6+A5+A4+A3+A2+A1+D7+D6+D5+D4+D3+D2+D1+D0,-(A0)
0001079e 28 79 00 02 00 0c        |(y      |		MOVEA.L	heap.top,A4
000107a4 2a 6c 00 14              |*l      |		MOVEA.L	(A4+0x14),A5
000107a8 2c 6c 00 18              |,l      |		MOVEA.L	(A4+0x18),A6
000107ac 20 5f                    | _      |		MOVEA.L	(A7)+,A0
000107ae d1 fc 00 01 07 14        |        |		ADDA.L	#0x10714,A0
000107b4 42 80                    |B       |		CLR.L	D0
000107b6 30 10                    |0       |		MOVE.W	(A0),D0
000107b8 3d 40 00 04              |=@      |		MOVE.W	D0,(A6+0x4)
000107bc 47 ee 03 00              |G       |		LEA.L	(A6+0x300),A3
000107c0 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000107c2 2f 23                    |/#      |		MOVE.L	-(A3),-(A7)
000107c4 51 c8 ff fc              |Q       |		DBF	D0,0x107c2
000107c8 2d 4f 00 00              |-O      |		MOVE.L	A7,(A6+0x0)
000107cc 20 2c 00 0c              | ,      |		MOVE.L	(A4+0xc),D0
000107d0 2b 40 00 00              |+@      |		MOVE.L	D0,(A5+0x0)
000107d4 2f 0e                    |/       |		MOVE.L	A6,-(A7)
000107d6 33 fc 12 34 00 01 07 e8  |3  4    |		MOVE.W	#0x1234,0x107e8
000107de 4e b9 00 01 0a 46        |N    F  |		JSR	_FSCALL_102b4
000107e4 4e fa ff a2              |N       |		JMP	_?exit
000107e8 00 00                    |        |		.XXX[0x2]
000107ea ; --------------------------------------------------------------------------------------
000107ea ; ?muls_d3_d4
000107ea ; --------------------------------------------------------------------------------------
000107ea					_?muls_d3_d4:
000107ea 4c 03 48 00              |L H     |		MULS.L	D3,D4
000107ee 69 0e                    |i       |		BVS	0x107fe
000107f0 26 04                    |&       |		MOVE.L	D4,D3
000107f2 4e 75                    |Nu      |		RTS
000107f4 ; --------------------------------------------------------------------------------------
000107f4 ; ?mulu_d3_d4
000107f4 ; --------------------------------------------------------------------------------------
000107f4					_?mulu_d3_d4:
000107f4 4c 03 40 00              |L @     |		mULU.L	D3,D4
000107f8 69 04                    |i       |		BVS	0x107fe
000107fa 26 04                    |&       |		MOVE.L	D4,D3
000107fc 4e 75                    |Nu      |		RTS
000107fe 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00010802 52 6d ff fe              |Rm      |		ADDQ.W	#0x1,(A5-0x2)
00010806 4e 4c                    |NL      |		TRAP	#12
00010808 20 01                    |        |		.XXX[0x2]
0001080a ; --------------------------------------------------------------------------------------
0001080a ; ?divs_d3_d4
0001080a ; --------------------------------------------------------------------------------------
0001080a					_?divs_d3_d4:
0001080a 4a 83                    |J       |		TST.L	D3
0001080c 67 20                    |g       |		BEQ	0x1082e
0001080e 4c 43 48 03              |LCH     |		DIVS.L	D3,D3,D4
00010812 69 0e                    |i       |		BVS	0x10822
00010814 4e 75                    |Nu      |		RTS
00010816 ; --------------------------------------------------------------------------------------
00010816 ; ?divu_d3_d4
00010816 ; --------------------------------------------------------------------------------------
00010816					_?divu_d3_d4:
00010816 4a 83                    |J       |		TST.L	D3
00010818 67 14                    |g       |		BEQ	0x1082e
0001081a 4c 43 40 03              |LC@     |		DIVU.L	D3,D3,D4
0001081e 69 02                    |i       |		BVS	0x10822
00010820 4e 75                    |Nu      |		RTS
00010822 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00010826 52 6d ff fe              |Rm      |		ADDQ.W	#0x1,(A5-0x2)
0001082a 4e 4c                    |NL      |		TRAP	#12
0001082c 20 01                    |        |		.XXX[0x2]
0001082e 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00010832 52 6d ff fe              |Rm      |		ADDQ.W	#0x1,(A5-0x2)
00010836 4e 4c                    |NL      |		TRAP	#12
00010838 20 01                    |        |		.XXX[0x2]
0001083a ; --------------------------------------------------------------------------------------
0001083a ; Malloc2(VAR dst : Pointer; length : Word)
0001083a ; Stack:
0001083a ;     A6+0xa  VAR dst : Pointer
0001083a ;     A6+0x8      length : Word
0001083a ; --------------------------------------------------------------------------------------
0001083a					_Malloc2(VAR dst : Pointer; length : Word):
0001083a 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
0001083e 52 6d ff fe              |Rm      |		ADDQ.W	#0x1,(A5-0x2)
00010842 48 6e 00 0c              |Hn      |		PEA.L	(A6+0xc)
00010846 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0001084a 61 0a                    |a       |		BSR	_Malloc1(length : Long) : Pointer
0001084c 50 8f                    |P       |		ADDQ.L	#0x8,A7
0001084e 4e 5e                    |N^      |		UNLK	A6
00010850 53 6d ff fe              |Sm      |		SUBQ.W	#0x1,(A5-0x2)
00010854 4e 75                    |Nu      |		RTS
00010856 ; --------------------------------------------------------------------------------------
00010856 ; Malloc1(length : Long) : Pointer
00010856 ; Stack:
00010856 ;     A6+0xc  VAR RETURN : Pointer
00010856 ;     A6+0x8      length : Long
00010856 ; --------------------------------------------------------------------------------------
00010856					_Malloc1(length : Long) : Pointer:
00010856 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
0001085a 48 e7 e0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
0001085e 52 6d ff fe              |Rm      |		ADDQ.W	#0x1,(A5-0x2)
00010862 28 6d 00 0c              |(m      |		MOVEA.L	(A5+0xc),A4
00010866 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
0001086a 06 80 00 00 00 0b        |        |		ADDI.L	#0x0000000b,D0
00010870 02 00 00 f8              |        |		ANDI.B	#0xf8,D0
00010874 43 ec 00 00              |C       |		LEA.L	(A4+0x0),A1
00010878 20 49                    | I      |		MOVEA.L	A1,A0
0001087a 22 10                    |"       |		MOVE.L	(A0),D1
0001087c 67 3c                    |g<      |		BEQ	0x108ba
0001087e 22 41                    |"A      |		MOVEA.L	D1,A1
00010880 b0 a9 00 04              |        |		CMP.L	(A1+0x4),D0
00010884 62 f2                    |b       |		BHI	0x10878
00010886 67 14                    |g       |		BEQ	0x1089c
00010888 22 29 00 04              |")      |		MOVE.L	(A1+0x4),D1
0001088c 92 80                    |        |		SUB.L	D0,D1
0001088e 24 49                    |$I      |		MOVEA.L	A1,A2
00010890 d5 c0                    |        |		ADDA.L	D0,A2
00010892 24 91                    |$       |		MOVE.L	(A1),(A2)
00010894 25 41 00 04              |%A      |		MOVE.L	D1,(A2+0x4)
00010898 20 8a                    |        |		MOVE.L	A2,(A0)
0001089a 60 02                    |`       |		BRA	0x1089e
0001089c 20 91                    |        |		MOVE.L	(A1),(A0)
0001089e d3 fc 00 00 00 04        |        |		ADDA.L	#0x4,A1
000108a4 23 49 ff fc              |#I      |		MOVE.L	A1,(A1-0x4)
000108a8 24 6e 00 0c              |$n      |		MOVEA.L	(A6+0xc),A2
000108ac 24 89                    |$       |		MOVE.L	A1,(A2)
000108ae 4c df 1f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3+A4
000108b2 4e 5e                    |N^      |		UNLK	A6
000108b4 53 6d ff fe              |Sm      |		SUBQ.W	#0x1,(A5-0x2)
000108b8 4e 75                    |Nu      |		RTS
000108ba 22 6c 00 08              |"l      |		MOVEA.L	(A4+0x8),A1
000108be 22 09                    |"       |		MOVE.L	A1,D1
000108c0 d2 80                    |        |		ADD.L	D0,D1
000108c2 29 41 00 08              |)A      |		MOVE.L	D1,(A4+0x8)
000108c6 b2 ac 00 0c              |        |		CMP.L	(A4+0xc),D1
000108ca 65 04                    |e       |		BCS	0x108d0
000108cc 29 41 00 0c              |)A      |		MOVE.L	D1,(A4+0xc)
000108d0 d1 ad 00 00              |        |		ADD.L	D0,(A5+0x0)
000108d4 bf ed 00 00              |        |		CMPA.L	(A5+0x0),A7
000108d8 68 c4                    |h       |		BVC	0x1089e
000108da 4e 4c                    |NL      |		TRAP	#12
000108dc 00 36                    | 6      |		.XXX[0x2]
000108de ; --------------------------------------------------------------------------------------
000108de ; Free1(a : Pointer; b : Long)
000108de ; Stack:
000108de ;     A6+0xc      a : Pointer
000108de ;     A6+0x8      b : Long
000108de ; --------------------------------------------------------------------------------------
000108de					_Free1(a : Pointer; b : Long):
000108de 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
000108e2 52 6d ff fe              |Rm      |		ADDQ.W	#0x1,(A5-0x2)
000108e6 48 6e 00 0c              |Hn      |		PEA.L	(A6+0xc)
000108ea 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000108ee 61 0a                    |a       |		BSR	_Free2(a : Pointer; b : Long)
000108f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000108f2 4e 5e                    |N^      |		UNLK	A6
000108f4 53 6d ff fe              |Sm      |		SUBQ.W	#0x1,(A5-0x2)
000108f8 4e 75                    |Nu      |		RTS
000108fa ; --------------------------------------------------------------------------------------
000108fa ; Free2(a : Pointer; b : Long)
000108fa ; Stack:
000108fa ;     A6+0xc      a : Pointer
000108fa ;     A6+0x8      b : Long
000108fa ; --------------------------------------------------------------------------------------
000108fa					_Free2(a : Pointer; b : Long):
000108fa 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
000108fe 48 e7 e0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
00010902 52 6d ff fe              |Rm      |		ADDQ.W	#0x1,(A5-0x2)
00010906 28 6d 00 0c              |(m      |		MOVEA.L	(A5+0xc),A4
0001090a 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0001090e 20 10                    |        |		MOVE.L	(A0),D0
00010910 20 40                    | @      |		MOVEA.L	D0,A0
00010912 08 00 00 00              |        |		BTST.L	#0x0,D0
00010916 67 10                    |g       |		BEQ	0x10928
00010918 0c 80 00 00 00 01        |        |		CMPI.L	#0x00000001,D0
0001091e 66 04                    |f       |		BNE	0x10924
00010920 4e 4c                    |NL      |		TRAP	#12
00010922 00 33                    | 3      |		.XXX[0x2]
00010924 4e 4c                    |NL      |		TRAP	#12
00010926 00 34                    | 4      |		.XXX[0x2]
00010928 b0 ac 00 14              |        |		CMP.L	(A4+0x14),D0
0001092c 65 f6                    |e       |		BCS	0x10924
0001092e b0 ac 00 0c              |        |		CMP.L	(A4+0xc),D0
00010932 64 f0                    |d       |		BCC	0x10924
00010934 b0 ac 00 08              |        |		CMP.L	(A4+0x8),D0
00010938 65 00 00 06              |e       |		BCS	0x10940
0001093c 4e 4c                    |NL      |		TRAP	#12
0001093e 00 35                    | 5      |		.XXX[0x2]
00010940 b1 e8 ff fc              |        |		CMPA.L	(A0-0x4),A0
00010944 67 14                    |g       |		BEQ	0x1095a
00010946 59 80                    |Y       |		SUBQ.L	#0x4,D0
00010948 22 6c 00 00              |"l      |		MOVEA.L	(A4+0x0),A1
0001094c b2 fc 00 00              |        |		CMPA.W	#0x0,A1
00010950 67 d2                    |g       |		BEQ	0x10924
00010952 b3 c0                    |        |		CMPA.L	D0,A1
00010954 67 e6                    |g       |		BEQ	0x1093c
00010956 22 51                    |"Q      |		MOVEA.L	(A1),A1
00010958 60 f2                    |`       |		BRA	0x1094c
0001095a 59 80                    |Y       |		SUBQ.L	#0x4,D0
0001095c 20 40                    | @      |		MOVEA.L	D0,A0
0001095e 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
00010962 06 80 00 00 00 0b        |        |		ADDI.L	#0x0000000b,D0
00010968 02 00 00 f8              |        |		ANDI.B	#0xf8,D0
0001096c 43 ec 00 00              |C       |		LEA.L	(A4+0x0),A1
00010970 24 49                    |$I      |		MOVEA.L	A1,A2
00010972 26 4a                    |&J      |		MOVEA.L	A2,A3
00010974 24 49                    |$I      |		MOVEA.L	A1,A2
00010976 22 51                    |"Q      |		MOVEA.L	(A1),A1
00010978 b2 fc 00 00              |        |		CMPA.W	#0x0,A1
0001097c 67 06                    |g       |		BEQ	0x10984
0001097e b3 c8                    |        |		CMPA.L	A0,A1
00010980 65 f0                    |e       |		BCS	0x10972
00010982 67 b8                    |g       |		BEQ	0x1093c
00010984 28 4a                    |(J      |		MOVEA.L	A2,A4
00010986 d9 ea 00 04              |        |		ADDA.L	(A2+0x4),A4
0001098a b9 c8                    |        |		CMPA.L	A0,A4
0001098c 67 04                    |g       |		BEQ	0x10992
0001098e 64 ac                    |d       |		BCC	0x1093c
00010990 60 0c                    |`       |		BRA	0x1099e
00010992 d0 88                    |        |		ADD.L	A0,D0
00010994 90 8a                    |        |		SUB.L	A2,D0
00010996 20 4a                    | J      |		MOVEA.L	A2,A0
00010998 21 40 00 04              |!@      |		MOVE.L	D0,(A0+0x4)
0001099c 60 0a                    |`       |		BRA	0x109a8
0001099e 20 89                    |        |		MOVE.L	A1,(A0)
000109a0 21 40 00 04              |!@      |		MOVE.L	D0,(A0+0x4)
000109a4 24 88                    |$       |		MOVE.L	A0,(A2)
000109a6 26 4a                    |&J      |		MOVEA.L	A2,A3
000109a8 24 48                    |$H      |		MOVEA.L	A0,A2
000109aa d5 c0                    |        |		ADDA.L	D0,A2
000109ac b2 fc 00 00              |        |		CMPA.W	#0x0,A1
000109b0 67 40                    |g@      |		BEQ	0x109f2
000109b2 b5 c9                    |        |		CMPA.L	A1,A2
000109b4 67 06                    |g       |		BEQ	0x109bc
000109b6 62 00 ff 6c              |b  l    |		BHI	0x10924
000109ba 60 36                    |`6      |		BRA	0x109f2
000109bc 20 91                    |        |		MOVE.L	(A1),(A0)
000109be 20 29 00 04              | )      |		MOVE.L	(A1+0x4),D0
000109c2 d0 89                    |        |		ADD.L	A1,D0
000109c4 90 88                    |        |		SUB.L	A0,D0
000109c6 21 40 00 04              |!@      |		MOVE.L	D0,(A0+0x4)
000109ca 4a 90                    |J       |		TST.L	(A0)
000109cc 66 24                    |f$      |		BNE	0x109f2
000109ce 28 6d 00 0c              |(m      |		MOVEA.L	(A5+0xc),A4
000109d2 22 48                    |"H      |		MOVEA.L	A0,A1
000109d4 d3 c0                    |        |		ADDA.L	D0,A1
000109d6 24 6c 00 08              |$l      |		MOVEA.L	(A4+0x8),A2
000109da b5 c9                    |        |		CMPA.L	A1,A2
000109dc 67 06                    |g       |		BEQ	0x109e4
000109de 65 00 ff 44              |e  D    |		BCS	0x10924
000109e2 60 0e                    |`       |		BRA	0x109f2
000109e4 42 93                    |B       |		CLR.L	(A3)
000109e6 29 48 00 08              |)H      |		MOVE.L	A0,(A4+0x8)
000109ea d0 fc 00 50              |   P    |		ADDA.W	#0x50,A0
000109ee 2b 48 00 00              |+H      |		MOVE.L	A0,(A5+0x0)
000109f2 4c df 1f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3+A4
000109f6 4e 5e                    |N^      |		UNLK	A6
000109f8 53 6d ff fe              |Sm      |		SUBQ.W	#0x1,(A5-0x2)
000109fc 4e 75                    |Nu      |		RTS
000109fe 50 41 53 43 41 4c 20 65  |PASCAL e|		.TXT	'PASCAL error #'
00010a0c 2c 20 61 74 5f 20        |, at_   |		.TXT	', at_ '
00010a12 6c 6f 63 61 74 69 6f 6e  |location|		.TXT	'location_ '
00010a1c 20 28                    | (      |		.TXT	' ('
00010a1e 20 74 69 6d 65 73 29 20  | times) |		.TXT	' times) '
00010a26 4c 61 73 74 20 63 61 6c  |Last cal|		.TXT	'Last called from_ '
00010a38 50 41 53 43 41 4c 20 65  |PASCAL e|		.TXT	'PASCAL error #'
00010a46 ; --------------------------------------------------------------------------------------
00010a46 ; FSCALL_102b4
00010a46 ; OMSI PASCAL Function
00010a46 ;    <LVAR  0x008 4(r)>
00010a46 ;    <LVAR -0x004 4(rw)>
00010a46 ;    <LVAR -0x00c 4(rw)>
00010a46 ;    <LVAR -0x010 4(rw)>
00010a46 ;    <LVAR -0x012 1(rw)>
00010a46 ;    <LVAR -0x028 2(rw)>
00010a46 ; --------------------------------------------------------------------------------------
00010a46					_FSCALL_102b4:
00010a46 4e 56 ff 76              |NV v    |		LINK.W	A6,#0xff76
00010a4a bf d5                    |        |		CMPA.L	(A5),A7
00010a4c 62 06                    |b       |		BHI	0x10a54
00010a4e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00010a52 4e 76                    |Nv      |		TRAPV
00010a54 de fc 00 62              |   b    |		ADDA.W	#0x62,A7
00010a58 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00010a5c 72 01                    |r       |		MOVEQ.L	#0x01,D1
00010a5e 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00010a60 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
00010a62 78 10                    |x       |		MOVEQ.L	#0x10,D4
00010a64 48 78 00 00              |Hx      |		PEA.L	0x0
00010a68 2d 5f ff fc              |-_      |		MOVE.L	(A7)+,(A6-0x4)
00010a6c 42 2e ff ee              |B.      |		CLR.B	(A6-0x12)
00010a70 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00010a74 2f 08                    |/       |		MOVE.L	A0,-(A7)
00010a76 22 50                    |"P      |		MOVEA.L	(A0),A1
00010a78 2d 69 00 30 ff f0        |-i 0    |		MOVE.L	(A1+0x30),(A6-0x10)
00010a7e 55 ae ff f0              |U       |		SUBQ.L	#0x2,(A6-0x10)
00010a82 2d 6e ff f0 ff f4        |-n      |		MOVE.L	(A6-0x10),(A6-0xc)
00010a88 24 6e ff f4              |$n      |		MOVEA.L	(A6-0xc),A2
00010a8c 3d 52 ff d8              |=R      |		MOVE.W	(A2),(A6-0x28)
00010a90 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00010a92 1e a9 00 34              |   4    |		MOVE.B	(A1+0x34),(A7)
00010a96 1f 69 00 35 00 01        | i 5    |		MOVE.B	(A1+0x35),(A7+0x1)
00010a9c 1f 69 00 36 00 02        | i 6    |		MOVE.B	(A1+0x36),(A7+0x2)
00010aa2 1f 69 00 37 00 03        | i 7    |		MOVE.B	(A1+0x37),(A7+0x3)
00010aa8 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00010aaa 2c 29 00 3e              |,) >    |		MOVE.L	(A1+0x3e),D6
00010aae 30 28 00 04              |0(      |		MOVE.W	(A0+0x4),D0
00010ab2 b0 44                    | D      |		CMP.W	D4,D0
00010ab4 65 06                    |e       |		BCS	0x10abc
00010ab6 0c 40 00 14              | @      |		CMPI.W	#0x0014,D0
00010aba 63 1a                    |c       |		BLS	0x10ad6
00010abc 4a 6e ff d8              |Jn      |		TST.W	(A6-0x28)
00010ac0 67 14                    |g       |		BEQ	0x10ad6
00010ac2 2c 2c 00 04              |,,      |		MOVE.L	(A4+0x4),D6
00010ac6 28 54                    |(T      |		MOVEA.L	(A4),A4
00010ac8 42 80                    |B       |		CLR.L	D0
00010aca 30 2e ff d8              |0.      |		MOVE.W	(A6-0x28),D0
00010ace 53 80                    |S       |		SUBQ.L	#0x1,D0
00010ad0 3d 40 ff d8              |=@      |		MOVE.W	D0,(A6-0x28)
00010ad4 60 e6                    |`       |		BRA	0x10abc
00010ad6 20 57                    | W      |		MOVEA.L	(A7),A0
00010ad8 02 68 00 ff 00 04        | h      |		ANDI.W	#0x00ff,(A0+0x4)
00010ade 4e b9 00 01 53 fc        |N   S   |		JSR	_WriteConsoleCrLf(void)
00010ae4 43 fa ff 26              |C  &    |		LEA.L	0x10a0c,A1
00010ae8 70 06                    |p       |		MOVEQ.L	#0x06,D0
00010aea 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00010aec 51 c8 ff fc              |Q       |		DBF	D0,0x10aea
00010af0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00010af2 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00010af6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00010af8 3f 02                    |?       |		MOVE.W	D2,-(A7)
00010afa 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00010b00 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00010b02 42 80                    |B       |		CLR.L	D0
00010b04 30 28 00 04              |0(      |		MOVE.W	(A0+0x4),D0
00010b08 2f 00                    |/       |		MOVE.L	D0,-(A7)
00010b0a 4e b9 00 01 10 b0        |N       |		JSR	_Long2String(a : Long) : String
00010b10 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00010b12 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00010b18 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00010b1a 26 5f                    |&_      |		MOVEA.L	(A7)+,A3
00010b1c de c3                    |        |		ADDA.W	D3,A7
00010b1e 2e 8b                    |.       |		MOVE.L	A3,(A7)
00010b20 4e b9 00 01 53 84        |N   S   |		JSR	_WriteConsoleString(str : String)
00010b26 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00010b28 20 4f                    | O      |		MOVEA.L	A7,A0
00010b2a 43 fa fe e0              |C       |		LEA.L	0x10a0c,A1
00010b2e 70 04                    |p       |		MOVEQ.L	#0x04,D0
00010b30 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00010b32 51 c8 ff fc              |Q       |		DBF	D0,0x10b30
00010b36 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00010b38 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00010b3c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00010b3e 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00010b42 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00010b48 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00010b4a 4e b9 00 01 53 84        |N   S   |		JSR	_WriteConsoleString(str : String)
00010b50 de c3                    |        |		ADDA.W	D3,A7
00010b52 9e c3                    |        |		SUBA.W	D3,A7
00010b54 20 4f                    | O      |		MOVEA.L	A7,A0
00010b56 43 fa fe ba              |C       |		LEA.L	0x10a12,A1
00010b5a 70 08                    |p       |		MOVEQ.L	#0x08,D0
00010b5c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00010b5e 51 c8 ff fc              |Q       |		DBF	D0,0x10b5c
00010b62 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00010b64 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00010b68 3f 01                    |?       |		MOVE.W	D1,-(A7)
00010b6a 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00010b6e 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00010b74 2e 86                    |.       |		MOVE.L	D6,(A7)
00010b76 48 78 00 08              |Hx      |		PEA.L	0x8
00010b7a 4e b9 00 01 11 b4        |N       |		JSR	_Long2HexString(val : Long; ndig : Long) : String
00010b80 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00010b82 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00010b88 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00010b8a 4e b9 00 01 53 84        |N   S   |		JSR	_WriteConsoleString(str : String)
00010b90 de c2                    |        |		ADDA.W	D2,A7
00010b92 b9 ee ff fc              |        |		CMPA.L	(A6-0x4),A4
00010b96 66 08                    |f       |		BNE	0x10ba0
00010b98 1d 41 ff ee              | A      |		MOVE.B	D1,(A6-0x12)
00010b9c 60 00 00 9e              |`       |		BRA	0x10c3c
00010ba0 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00010ba2 2a 2c 00 04              |*,      |		MOVE.L	(A4+0x4),D5
00010ba6 28 54                    |(T      |		MOVEA.L	(A4),A4
00010ba8 52 87                    |R       |		ADDQ.L	#0x1,D7
00010baa ba 86                    |        |		CMP.L	D6,D5
00010bac 67 f4                    |g       |		BEQ	0x10ba2
00010bae 2c 05                    |,       |		MOVE.L	D5,D6
00010bb0 be 81                    |        |		CMP.L	D1,D7
00010bb2 6f 52                    |oR      |		BLE	0x10c06
00010bb4 3f 3a fe 66              |?: f    |		MOVE.W	0x10a1c,-(A7)
00010bb8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00010bba 20 4f                    | O      |		MOVEA.L	A7,A0
00010bbc 43 fa fe 60              |C  `    |		LEA.L	0x10a1e,A1
00010bc0 70 06                    |p       |		MOVEQ.L	#0x06,D0
00010bc2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00010bc4 51 c8 ff fc              |Q       |		DBF	D0,0x10bc2
00010bc8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00010bca 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00010bce 3f 01                    |?       |		MOVE.W	D1,-(A7)
00010bd0 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00010bd4 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00010bda 2e 87                    |.       |		MOVE.L	D7,(A7)
00010bdc 4e b9 00 01 10 b0        |N       |		JSR	_Long2String(a : Long) : String
00010be2 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00010be6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00010be8 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00010bec 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00010bf2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00010bf4 4e b9 00 01 0f ba        |N       |		JSR	_StringCat3(a, b, c : String) : String
00010bfa de fc 00 0c              |        |		ADDA.W	#0xc,A7
00010bfe 4e b9 00 01 53 84        |N   S   |		JSR	_WriteConsoleString(str : String)
00010c04 de c2                    |        |		ADDA.W	D2,A7
00010c06 4e b9 00 01 53 fc        |N   S   |		JSR	_WriteConsoleCrLf(void)
00010c0c 9e fc 00 12              |        |		SUBA.W	#0x12,A7
00010c10 20 4f                    | O      |		MOVEA.L	A7,A0
00010c12 43 fa fe 12              |C       |		LEA.L	0x10a26,A1
00010c16 70 10                    |p       |		MOVEQ.L	#0x10,D0
00010c18 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00010c1a 51 c8 ff fc              |Q       |		DBF	D0,0x10c18
00010c1e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00010c20 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00010c24 3f 01                    |?       |		MOVE.W	D1,-(A7)
00010c26 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
00010c2a 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00010c30 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00010c32 4e b9 00 01 53 84        |N   S   |		JSR	_WriteConsoleString(str : String)
00010c38 de fc 00 16              |        |		ADDA.W	#0x16,A7
00010c3c 4a 2e ff ee              |J.      |		TST.B	(A6-0x12)
00010c40 67 00 ff 10              |g       |		BEQ	0x10b52
00010c44 4e b9 00 01 53 fc        |N   S   |		JSR	_WriteConsoleCrLf(void)
00010c4a 2f 3c 00 00 98 96        |/<      |		MOVE.L	#0x9896,-(A7)
00010c50 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
00010c56 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00010c58 41 fa fd ec              |A       |		LEA.L	_FSCALL_102b4,A0
00010c5c 70 06                    |p       |		MOVEQ.L	#0x06,D0
00010c5e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00010c60 51 c8 ff fc              |Q       |		DBF	D0,0x10c5e
00010c64 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00010c66 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00010c6a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00010c6c 3f 02                    |?       |		MOVE.W	D2,-(A7)
00010c6e 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00010c74 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00010c76 20 6f 00 1a              | o      |		MOVEA.L	(A7+0x1a),A0
00010c7a 42 80                    |B       |		CLR.L	D0
00010c7c 30 28 00 04              |0(      |		MOVE.W	(A0+0x4),D0
00010c80 2f 00                    |/       |		MOVE.L	D0,-(A7)
00010c82 4e b9 00 01 10 b0        |N       |		JSR	_Long2String(a : Long) : String
00010c88 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00010c8a 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00010c90 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00010c92 26 5f                    |&_      |		MOVEA.L	(A7)+,A3
00010c94 de c4                    |        |		ADDA.W	D4,A7
00010c96 1e bc 00 07              |        |		MOVE.B	#0x07,(A7)
00010c9a 2f 0b                    |/       |		MOVE.L	A3,-(A7)
00010c9c 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
00010ca2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00010ca4 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00010ca8 4e 5e                    |N^      |		UNLK	A6
00010caa 4e 75                    |Nu      |		RTS
00010cac ; --------------------------------------------------------------------------------------
00010cac ; FSCALL_102ac
00010cac ; --------------------------------------------------------------------------------------
00010cac					_FSCALL_102ac:
00010cac 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00010cb0 48 e7 80 08              |H       |		MOVEM.L	A4+D0,-(A7)
00010cb4 bf d5                    |        |		CMPA.L	(A5),A7
00010cb6 4e 76                    |Nv      |		TRAPV
00010cb8 28 6d 00 0c              |(m      |		MOVEA.L	(A5+0xc),A4
00010cbc 20 0f                    |        |		MOVE.L	A7,D0
00010cbe 90 ac 00 08              |        |		SUB.L	(A4+0x8),D0
00010cc2 04 80 00 00 00 54        |     T  |		SUBI.L	#0x00000054,D0
00010cc8 2d 40 00 08              |-@      |		MOVE.L	D0,(A6+0x8)
00010ccc 4c df 10 01              |L       |		MOVEM.L	(A7)+,D0+A4
00010cd0 4e 5e                    |N^      |		UNLK	A6
00010cd2 4e 75                    |Nu      |		RTS
00010cd4 ; --------------------------------------------------------------------------------------
00010cd4 ; FSCALL_102b0
00010cd4 ; --------------------------------------------------------------------------------------
00010cd4					_FSCALL_102b0:
00010cd4 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00010cd8 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00010cdc bf d5                    |        |		CMPA.L	(A5),A7
00010cde 4e 76                    |Nv      |		TRAPV
00010ce0 42 80                    |B       |		CLR.L	D0
00010ce2 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00010ce6 06 80 00 00 00 0b        |        |		ADDI.L	#0x0000000b,D0
00010cec 02 00 00 f8              |        |		ANDI.B	#0xf8,D0
00010cf0 42 2e 00 0a              |B.      |		CLR.B	(A6+0xa)
00010cf4 20 6d 00 0c              | m      |		MOVEA.L	(A5+0xc),A0
00010cf8 41 e8 00 00              |A       |		LEA.L	(A0+0x0),A0
00010cfc 4a 90                    |J       |		TST.L	(A0)
00010cfe 67 0c                    |g       |		BEQ	0x10d0c
00010d00 20 50                    | P      |		MOVEA.L	(A0),A0
00010d02 b0 a8 00 04              |        |		CMP.L	(A0+0x4),D0
00010d06 62 f4                    |b       |		BHI	0x10cfc
00010d08 52 2e 00 0a              |R.      |		ADDQ.B	#0x1,(A6+0xa)
00010d0c 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00010d10 4e 5e                    |N^      |		UNLK	A6
00010d12 4e 75                    |Nu      |		RTS
00010d14 30 20                    |0       |		.TXT	'0 '
00010d16 2d 32 31 34 37 34 38 33  |-2147483|		.TXT	'-2147483648 '
00010d22 00 26 00 00 01 10        | &      |		.XXX[0x6]
00010d28 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0x18]
00010d40 00 00                    |        |		.BLANK	00[0x2]
00010d42 ; --------------------------------------------------------------------------------------
00010d42 ; NewString(VAR a : String)
00010d42 ; Stack:
00010d42 ;     A6+0x8  VAR a : String
00010d42 ; OMSI PASCAL Function
00010d42 ;    <LVAR  0x008 4(r)>
00010d42 ; --------------------------------------------------------------------------------------
00010d42					_NewString(VAR a : String):
00010d42 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00010d46 bf d5                    |        |		CMPA.L	(A5),A7
00010d48 62 06                    |b       |		BHI	0x10d50
00010d4a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00010d4e 4e 76                    |Nv      |		TRAPV
00010d50 de fc 00 14              |        |		ADDA.W	#0x14,A7
00010d54 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00010d58 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00010d5c 48 50                    |HP      |		PEA.L	(A0)
00010d5e 48 78 00 80              |Hx      |		PEA.L	0x80
00010d62 4e b9 00 01 08 56        |N    V  |		JSR	_Malloc1(length : Long) : Pointer
00010d68 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00010d6a 20 50                    | P      |		MOVEA.L	(A0),A0
00010d6c 42 50                    |BP      |		CLR.W	(A0)
00010d6e 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00010d72 4e 5e                    |N^      |		UNLK	A6
00010d74 4e 75                    |Nu      |		RTS
00010d76 ; --------------------------------------------------------------------------------------
00010d76 ; FreeString(VAR a : String)
00010d76 ; Stack:
00010d76 ;     A6+0x8  VAR a : String
00010d76 ; OMSI PASCAL Function
00010d76 ;    <LVAR  0x008 4(r)>
00010d76 ; --------------------------------------------------------------------------------------
00010d76					_FreeString(VAR a : String):
00010d76 4e 56 ff f0              |NV      |		LINK.W	A6,#0xfff0
00010d7a bf d5                    |        |		CMPA.L	(A5),A7
00010d7c 62 06                    |b       |		BHI	0x10d84
00010d7e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00010d82 4e 76                    |Nv      |		TRAPV
00010d84 de fc 00 10              |        |		ADDA.W	#0x10,A7
00010d88 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00010d8c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00010d90 48 50                    |HP      |		PEA.L	(A0)
00010d92 48 78 00 80              |Hx      |		PEA.L	0x80
00010d96 4e b9 00 01 08 fa        |N       |		JSR	_Free2(a : Pointer; b : Long)
00010d9c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00010d9e 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00010da2 4e 5e                    |N^      |		UNLK	A6
00010da4 4e 75                    |Nu      |		RTS
00010da6 ; --------------------------------------------------------------------------------------
00010da6 ; AppendChar(MOD b : String; a : char)
00010da6 ; Stack:
00010da6 ;     A6+0xa      b : String
00010da6 ;     A6+0x8      a : char
00010da6 ; OMSI PASCAL Function
00010da6 ;    <LVAR  0x00a 4(r)>
00010da6 ;    <LVAR  0x008 1(r)>
00010da6 ; --------------------------------------------------------------------------------------
00010da6					_AppendChar(MOD b : String; a : char):
00010da6 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00010daa bf d5                    |        |		CMPA.L	(A5),A7
00010dac 62 06                    |b       |		BHI	0x10db4
00010dae 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00010db2 4e 76                    |Nv      |		TRAPV
00010db4 de fc 00 16              |        |		ADDA.W	#0x16,A7
00010db8 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00010dbc 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00010dc0 30 10                    |0       |		MOVE.W	(A0),D0
00010dc2 0c 40 00 7e              | @ ~    |		CMPI.W	#0x007e,D0
00010dc6 6c 0c                    |l       |		BGE	0x10dd4
00010dc8 48 c0                    |H       |		EXTW.L	D0
00010dca 52 80                    |R       |		ADDQ.L	#0x1,D0
00010dcc 30 80                    |0       |		MOVE.W	D0,(A0)
00010dce 11 ae 00 08 00 01        |        |		MOVE.B	(A6+0x8),(A0+D0.W+#0x1)
00010dd4 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00010dd8 4e 5e                    |N^      |		UNLK	A6
00010dda 4e 75                    |Nu      |		RTS
00010ddc ; --------------------------------------------------------------------------------------
00010ddc ; StringLit(Src : Pointer; Offset: W; Len : W) : String
00010ddc ; Stack:
00010ddc ;     A6+0x10 VAR RETURN : String
00010ddc ;     A6+0xc      Src : Pointer
00010ddc ;     A6+0xa      Offset : W
00010ddc ;     A6+0x8      Len : W
00010ddc ; OMSI PASCAL Function
00010ddc ;    <LVAR  0x010 4(w)>
00010ddc ;    <LVAR  0x00c 4(r)>
00010ddc ;    <LVAR  0x00a 2(r)>
00010ddc ;    <LVAR  0x008 2(r)>
00010ddc ;    <LVAR -0x004 @ 4(r)>
00010ddc ; --------------------------------------------------------------------------------------
00010ddc					_StringLit(Src : Pointer; Offset: W; Len : W) : String:
00010ddc 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00010de0 bf d5                    |        |		CMPA.L	(A5),A7
00010de2 62 06                    |b       |		BHI	0x10dea
00010de4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00010de8 4e 76                    |Nv      |		TRAPV
00010dea de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00010dee 48 e7 e1 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D2+D1+D0,-(A7)
00010df2 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00010df6 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
00010dfa 72 01                    |r       |		MOVEQ.L	#0x01,D1
00010dfc 74 20                    |t       |		MOVEQ.L	#0x20,D2
00010dfe 48 52                    |HR      |		PEA.L	(A2)
00010e00 4e ba ff 40              |N  @    |		JSR	_NewString(VAR a : String)
00010e04 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00010e06 20 52                    | R      |		MOVEA.L	(A2),A0
00010e08 2f 08                    |/       |		MOVE.L	A0,-(A7)
00010e0a 30 13                    |0       |		MOVE.W	(A3),D0
00010e0c 48 c0                    |H       |		EXTW.L	D0
00010e0e 2f 00                    |/       |		MOVE.L	D0,-(A7)
00010e10 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00010e12 be 97                    |        |		CMP.L	(A7),D7
00010e14 6e 1c                    |n       |		BGT	0x10e32
00010e16 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00010e1a 22 6e 00 0c              |"n      |		MOVEA.L	(A6+0xc),A1
00010e1e 30 2e 00 0a              |0.      |		MOVE.W	(A6+0xa),D0
00010e22 48 c0                    |H       |		EXTW.L	D0
00010e24 44 80                    |D       |		NEG.L	D0
00010e26 d0 87                    |        |		ADD.L	D7,D0
00010e28 11 b1 08 00 78 01        |    x   |		MOVE.B	(A1+D0.L),(A0+D7.L+#0x1)
00010e2e 52 87                    |R       |		ADDQ.L	#0x1,D7
00010e30 68 e0                    |h       |		BVC	0x10e12
00010e32 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00010e34 20 57                    | W      |		MOVEA.L	(A7),A0
00010e36 30 93                    |0       |		MOVE.W	(A3),(A0)
00010e38 30 13                    |0       |		MOVE.W	(A3),D0
00010e3a 48 c0                    |H       |		EXTW.L	D0
00010e3c 2e 00                    |.       |		MOVE.L	D0,D7
00010e3e be 81                    |        |		CMP.L	D1,D7
00010e40 6d 1e                    |m       |		BLT	0x10e60
00010e42 20 57                    | W      |		MOVEA.L	(A7),A0
00010e44 10 30 78 01              | 0x     |		MOVE.B	(A0+D7.L+#0x1),D0
00010e48 b0 02                    |        |		CMP.B	D2,D0
00010e4a 67 04                    |g       |		BEQ	0x10e50
00010e4c 4a 00                    |J       |		TST.B	D0
00010e4e 66 0a                    |f       |		BNE	0x10e5a
00010e50 30 10                    |0       |		MOVE.W	(A0),D0
00010e52 48 c0                    |H       |		EXTW.L	D0
00010e54 53 80                    |S       |		SUBQ.L	#0x1,D0
00010e56 30 80                    |0       |		MOVE.W	D0,(A0)
00010e58 60 02                    |`       |		BRA	0x10e5c
00010e5a 60 04                    |`       |		BRA	0x10e60
00010e5c 53 87                    |S       |		SUBQ.L	#0x1,D7
00010e5e 68 de                    |h       |		BVC	0x10e3e
00010e60 20 57                    | W      |		MOVEA.L	(A7),A0
00010e62 30 10                    |0       |		MOVE.W	(A0),D0
00010e64 48 c0                    |H       |		EXTW.L	D0
00010e66 2e 00                    |.       |		MOVE.L	D0,D7
00010e68 be 81                    |        |		CMP.L	D1,D7
00010e6a 6d 18                    |m       |		BLT	0x10e84
00010e6c 20 57                    | W      |		MOVEA.L	(A7),A0
00010e6e 10 30 78 01              | 0x     |		MOVE.B	(A0+D7.L+#0x1),D0
00010e72 0c 00 00 5f              |   _    |		CMPI.B	#0x5f,D0
00010e76 66 06                    |f       |		BNE	0x10e7e
00010e78 11 82 78 01              |  x     |		MOVE.B	D2,(A0+D7.L+#0x1)
00010e7c 60 02                    |`       |		BRA	0x10e80
00010e7e 60 04                    |`       |		BRA	0x10e84
00010e80 53 87                    |S       |		SUBQ.L	#0x1,D7
00010e82 68 e4                    |h       |		BVC	0x10e68
00010e84 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00010e86 2d 52 00 10              |-R      |		MOVE.L	(A2),(A6+0x10)
00010e8a 4c df 0f 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1+A2+A3
00010e8e 4e 5e                    |N^      |		UNLK	A6
00010e90 4e 75                    |Nu      |		RTS
00010e92 ; --------------------------------------------------------------------------------------
00010e92 ; StringEqual(a, b : String) : Byte
00010e92 ; Stack:
00010e92 ;     A6+0x10 VAR RETURN : Byte
00010e92 ;     A6+0xc      a : String
00010e92 ;     A6+0x8      b : String
00010e92 ; OMSI PASCAL Function
00010e92 ;    <LVAR  0x010 1(rw)>
00010e92 ;    <LVAR  0x00c 4(r)>
00010e92 ;    <LVAR  0x008 4(r)>
00010e92 ; --------------------------------------------------------------------------------------
00010e92					_StringEqual(a, b : String) : Byte:
00010e92 4e 56 ff da              |NV      |		LINK.W	A6,#0xffda
00010e96 bf d5                    |        |		CMPA.L	(A5),A7
00010e98 62 06                    |b       |		BHI	0x10ea0
00010e9a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00010e9e 4e 76                    |Nv      |		TRAPV
00010ea0 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00010ea4 48 e7 81 c0              |H       |		MOVEM.L	A1+A0+D7+D0,-(A7)
00010ea8 42 2e 00 10              |B.      |		CLR.B	(A6+0x10)
00010eac 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00010eb0 2f 08                    |/       |		MOVE.L	A0,-(A7)
00010eb2 22 6e 00 08              |"n      |		MOVEA.L	(A6+0x8),A1
00010eb6 30 10                    |0       |		MOVE.W	(A0),D0
00010eb8 b0 51                    | Q      |		CMP.W	(A1),D0
00010eba 66 2c                    |f,      |		BNE	0x10ee8
00010ebc 48 c0                    |H       |		EXTW.L	D0
00010ebe 2f 00                    |/       |		MOVE.L	D0,-(A7)
00010ec0 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00010ec2 be 97                    |        |		CMP.L	(A7),D7
00010ec4 6e 1a                    |n       |		BGT	0x10ee0
00010ec6 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00010eca 22 6e 00 08              |"n      |		MOVEA.L	(A6+0x8),A1
00010ece 10 30 78 01              | 0x     |		MOVE.B	(A0+D7.L+#0x1),D0
00010ed2 b0 31 78 01              | 1x     |		CMP.B	(A1+D7.L+#0x1),D0
00010ed6 67 04                    |g       |		BEQ	0x10edc
00010ed8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00010eda 60 0e                    |`       |		BRA	0x10eea
00010edc 52 87                    |R       |		ADDQ.L	#0x1,D7
00010ede 68 e2                    |h       |		BVC	0x10ec2
00010ee0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00010ee2 1d 7c 00 01 00 10        | |      |		MOVE.B	#0x01,(A6+0x10)
00010ee8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00010eea 4c df 03 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1
00010eee 4e 5e                    |N^      |		UNLK	A6
00010ef0 4e 75                    |Nu      |		RTS
00010ef2 ; --------------------------------------------------------------------------------------
00010ef2 ; StringDup(a : String) : String
00010ef2 ; Stack:
00010ef2 ;     A6+0xc  VAR RETURN : String
00010ef2 ;     A6+0x8      a : String
00010ef2 ; OMSI PASCAL Function
00010ef2 ;    <LVAR  0x00c 4(w)>
00010ef2 ;    <LVAR  0x008 4(r)>
00010ef2 ;    <LVAR -0x004 @ 4(r)>
00010ef2 ; --------------------------------------------------------------------------------------
00010ef2					_StringDup(a : String) : String:
00010ef2 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00010ef6 bf d5                    |        |		CMPA.L	(A5),A7
00010ef8 62 06                    |b       |		BHI	0x10f00
00010efa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00010efe 4e 76                    |Nv      |		TRAPV
00010f00 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00010f04 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
00010f08 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00010f0c 48 52                    |HR      |		PEA.L	(A2)
00010f0e 48 78 00 80              |Hx      |		PEA.L	0x80
00010f12 4e b9 00 01 08 56        |N    V  |		JSR	_Malloc1(length : Long) : Pointer
00010f18 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00010f1a 20 52                    | R      |		MOVEA.L	(A2),A0
00010f1c 22 6e 00 08              |"n      |		MOVEA.L	(A6+0x8),A1
00010f20 70 7f                    |p       |		MOVEQ.L	#0x7f,D0
00010f22 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00010f24 51 c8 ff fc              |Q       |		DBF	D0,0x10f22
00010f28 2d 52 00 0c              |-R      |		MOVE.L	(A2),(A6+0xc)
00010f2c 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
00010f30 4e 5e                    |N^      |		UNLK	A6
00010f32 4e 75                    |Nu      |		RTS
00010f34 ; --------------------------------------------------------------------------------------
00010f34 ; StringCat2(a, b : String) : String
00010f34 ; Stack:
00010f34 ;     A6+0x10 VAR RETURN : String
00010f34 ;     A6+0xc      a : String
00010f34 ;     A6+0x8      b : String
00010f34 ; OMSI PASCAL Function
00010f34 ;    <LVAR  0x010 4(w)>
00010f34 ;    <LVAR  0x00c 4(r)>
00010f34 ;    <LVAR  0x008 @ 4(r)>
00010f34 ; --------------------------------------------------------------------------------------
00010f34					_StringCat2(a, b : String) : String:
00010f34 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00010f38 bf d5                    |        |		CMPA.L	(A5),A7
00010f3a 62 06                    |b       |		BHI	0x10f42
00010f3c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00010f40 4e 76                    |Nv      |		TRAPV
00010f42 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00010f46 48 e7 f3 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7)
00010f4a 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00010f4e 76 7e                    |v~      |		MOVEQ.L	#0x7e,D3
00010f50 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00010f54 2f 08                    |/       |		MOVE.L	A0,-(A7)
00010f56 22 52                    |"R      |		MOVEA.L	(A2),A1
00010f58 30 10                    |0       |		MOVE.W	(A0),D0
00010f5a 48 c0                    |H       |		EXTW.L	D0
00010f5c 32 11                    |2       |		MOVE.W	(A1),D1
00010f5e 48 c1                    |H       |		EXTW.L	D1
00010f60 24 00                    |$       |		MOVE.L	D0,D2
00010f62 d4 81                    |        |		ADD.L	D1,D2
00010f64 b4 83                    |        |		CMP.L	D3,D2
00010f66 6f 08                    |o       |		BLE	0x10f70
00010f68 44 80                    |D       |		NEG.L	D0
00010f6a d0 83                    |        |		ADD.L	D3,D0
00010f6c 2c 00                    |,       |		MOVE.L	D0,D6
00010f6e 60 02                    |`       |		BRA	0x10f72
00010f70 2c 01                    |,       |		MOVE.L	D1,D6
00010f72 2f 06                    |/       |		MOVE.L	D6,-(A7)
00010f74 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00010f76 be 97                    |        |		CMP.L	(A7),D7
00010f78 6e 16                    |n       |		BGT	0x10f90
00010f7a 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00010f7e 30 10                    |0       |		MOVE.W	(A0),D0
00010f80 48 c0                    |H       |		EXTW.L	D0
00010f82 d0 87                    |        |		ADD.L	D7,D0
00010f84 22 52                    |"R      |		MOVEA.L	(A2),A1
00010f86 11 b1 78 01 08 01        |  x     |		MOVE.B	(A1+D7.L+#0x1),(A0+D0.L+#0x1)
00010f8c 52 87                    |R       |		ADDQ.L	#0x1,D7
00010f8e 68 e6                    |h       |		BVC	0x10f76
00010f90 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00010f92 20 57                    | W      |		MOVEA.L	(A7),A0
00010f94 30 10                    |0       |		MOVE.W	(A0),D0
00010f96 48 c0                    |H       |		EXTW.L	D0
00010f98 d0 86                    |        |		ADD.L	D6,D0
00010f9a 30 80                    |0       |		MOVE.W	D0,(A0)
00010f9c 48 52                    |HR      |		PEA.L	(A2)
00010f9e 48 78 00 80              |Hx      |		PEA.L	0x80
00010fa2 4e b9 00 01 08 fa        |N       |		JSR	_Free2(a : Pointer; b : Long)
00010fa8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00010faa 2d 6e 00 0c 00 10        |-n      |		MOVE.L	(A6+0xc),(A6+0x10)
00010fb0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00010fb2 4c df 07 cf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2
00010fb6 4e 5e                    |N^      |		UNLK	A6
00010fb8 4e 75                    |Nu      |		RTS
00010fba ; --------------------------------------------------------------------------------------
00010fba ; StringCat3(a, b, c : String) : String
00010fba ; Stack:
00010fba ;     A6+0x14 VAR RETURN : String
00010fba ;     A6+0x10     a : String
00010fba ;     A6+0xc      b : String
00010fba ;     A6+0x8      c : String
00010fba ; OMSI PASCAL Function
00010fba ;    <LVAR  0x014 4(w)>
00010fba ;    <LVAR  0x010 4(r)>
00010fba ;    <LVAR  0x00c 4(r)>
00010fba ;    <LVAR  0x008 4(r)>
00010fba ; --------------------------------------------------------------------------------------
00010fba					_StringCat3(a, b, c : String) : String:
00010fba 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00010fbe bf d5                    |        |		CMPA.L	(A5),A7
00010fc0 62 06                    |b       |		BHI	0x10fc8
00010fc2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00010fc6 4e 76                    |Nv      |		TRAPV
00010fc8 de fc 00 18              |        |		ADDA.W	#0x18,A7
00010fcc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00010fce 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00010fd2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00010fd4 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00010fd8 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00010fdc 4e ba ff 56              |N  V    |		JSR	_StringCat2(a, b : String) : String
00010fe0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00010fe2 4e ba ff 50              |N  P    |		JSR	_StringCat2(a, b : String) : String
00010fe6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00010fe8 2d 5f 00 14              |-_      |		MOVE.L	(A7)+,(A6+0x14)
00010fec 4e 5e                    |N^      |		UNLK	A6
00010fee 4e 75                    |Nu      |		RTS
00010ff0 ; --------------------------------------------------------------------------------------
00010ff0 ; StringCat4(a, b, c, d : String) : String
00010ff0 ; Stack:
00010ff0 ;     A6+0x18 VAR RETURN : String
00010ff0 ;     A6+0x14     a : String
00010ff0 ;     A6+0x10     b : String
00010ff0 ;     A6+0xc      c : String
00010ff0 ;     A6+0x8      d : String
00010ff0 ; OMSI PASCAL Function
00010ff0 ;    <LVAR  0x018 4(w)>
00010ff0 ;    <LVAR  0x014 4(r)>
00010ff0 ;    <LVAR  0x010 4(r)>
00010ff0 ;    <LVAR  0x00c 4(r)>
00010ff0 ;    <LVAR  0x008 4(r)>
00010ff0 ; --------------------------------------------------------------------------------------
00010ff0					_StringCat4(a, b, c, d : String) : String:
00010ff0 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
00010ff4 bf d5                    |        |		CMPA.L	(A5),A7
00010ff6 62 06                    |b       |		BHI	0x10ffe
00010ff8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00010ffc 4e 76                    |Nv      |		TRAPV
00010ffe de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00011002 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00011004 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
00011008 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0001100a 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
0001100e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00011012 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00011016 4e ba ff a2              |N       |		JSR	_StringCat3(a, b, c : String) : String
0001101a de fc 00 0c              |        |		ADDA.W	#0xc,A7
0001101e 4e ba ff 14              |N       |		JSR	_StringCat2(a, b : String) : String
00011022 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00011024 2d 5f 00 18              |-_      |		MOVE.L	(A7)+,(A6+0x18)
00011028 4e 5e                    |N^      |		UNLK	A6
0001102a 4e 75                    |Nu      |		RTS
0001102c ; --------------------------------------------------------------------------------------
0001102c ; StringCat5(a, b, c, d, e : String) : String
0001102c ; Stack:
0001102c ;     A6+0x1c VAR RETURN : String
0001102c ;     A6+0x18     a : String
0001102c ;     A6+0x14     b : String
0001102c ;     A6+0x10     c : String
0001102c ;     A6+0xc      d : String
0001102c ;     A6+0x8      e : String
0001102c ; OMSI PASCAL Function
0001102c ;    <LVAR  0x01c 4(w)>
0001102c ;    <LVAR  0x018 4(r)>
0001102c ;    <LVAR  0x014 4(r)>
0001102c ;    <LVAR  0x010 4(r)>
0001102c ;    <LVAR  0x00c 4(r)>
0001102c ;    <LVAR  0x008 4(r)>
0001102c ; --------------------------------------------------------------------------------------
0001102c					_StringCat5(a, b, c, d, e : String) : String:
0001102c 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00011030 bf d5                    |        |		CMPA.L	(A5),A7
00011032 62 06                    |b       |		BHI	0x1103a
00011034 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00011038 4e 76                    |Nv      |		TRAPV
0001103a de fc 00 20              |        |		ADDA.W	#0x20,A7
0001103e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00011040 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
00011044 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00011046 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
0001104a 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
0001104e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00011052 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00011056 4e ba ff 98              |N       |		JSR	_StringCat4(a, b, c, d : String) : String
0001105a de fc 00 10              |        |		ADDA.W	#0x10,A7
0001105e 4e ba fe d4              |N       |		JSR	_StringCat2(a, b : String) : String
00011062 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00011064 2d 5f 00 1c              |-_      |		MOVE.L	(A7)+,(A6+0x1c)
00011068 4e 5e                    |N^      |		UNLK	A6
0001106a 4e 75                    |Nu      |		RTS
0001106c ; --------------------------------------------------------------------------------------
0001106c ; StringCat6(a, b, c, d, e, f : String) : String
0001106c ; Stack:
0001106c ;     A6+0x20 VAR RETURN : String
0001106c ;     A6+0x1c     a : String
0001106c ;     A6+0x18     b : String
0001106c ;     A6+0x14     c : String
0001106c ;     A6+0x10     d : String
0001106c ;     A6+0xc      e : String
0001106c ;     A6+0x8      f : String
0001106c ; OMSI PASCAL Function
0001106c ;    <LVAR  0x020 4(w)>
0001106c ;    <LVAR  0x01c 4(r)>
0001106c ;    <LVAR  0x018 4(r)>
0001106c ;    <LVAR  0x014 4(r)>
0001106c ;    <LVAR  0x010 4(r)>
0001106c ;    <LVAR  0x00c 4(r)>
0001106c ;    <LVAR  0x008 4(r)>
0001106c ; --------------------------------------------------------------------------------------
0001106c					_StringCat6(a, b, c, d, e, f : String) : String:
0001106c 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
00011070 bf d5                    |        |		CMPA.L	(A5),A7
00011072 62 06                    |b       |		BHI	0x1107a
00011074 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00011078 4e 76                    |Nv      |		TRAPV
0001107a de fc 00 24              |   $    |		ADDA.W	#0x24,A7
0001107e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00011080 2f 2e 00 1c              |/.      |		MOVE.L	(A6+0x1c),-(A7)
00011084 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00011086 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
0001108a 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
0001108e 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00011092 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00011096 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0001109a 4e ba ff 90              |N       |		JSR	_StringCat5(a, b, c, d, e : String) : String
0001109e de fc 00 14              |        |		ADDA.W	#0x14,A7
000110a2 4e ba fe 90              |N       |		JSR	_StringCat2(a, b : String) : String
000110a6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000110a8 2d 5f 00 20              |-_      |		MOVE.L	(A7)+,(A6+0x20)
000110ac 4e 5e                    |N^      |		UNLK	A6
000110ae 4e 75                    |Nu      |		RTS
000110b0 ; --------------------------------------------------------------------------------------
000110b0 ; Long2String(a : Long) : String
000110b0 ; Stack:
000110b0 ;     A6+0xc  VAR RETURN : String
000110b0 ;     A6+0x8      a : Long
000110b0 ; OMSI PASCAL Function
000110b0 ;    <LVAR  0x00c 4(w)>
000110b0 ;    <LVAR  0x008 4(rw)>
000110b0 ;    <LVAR -0x008 @ 4(rw)>
000110b0 ;    <LVAR -0x00c @ 4(r)>
000110b0 ; --------------------------------------------------------------------------------------
000110b0					_Long2String(a : Long) : String:
000110b0 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
000110b4 bf d5                    |        |		CMPA.L	(A5),A7
000110b6 62 06                    |b       |		BHI	0x110be
000110b8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000110bc 4e 76                    |Nv      |		TRAPV
000110be de fc 00 4c              |   L    |		ADDA.W	#0x4c,A7
000110c2 48 e7 f9 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
000110c6 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
000110ca 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
000110ce 49 ee ff f4              |I       |		LEA.L	(A6-0xc),A4
000110d2 72 01                    |r       |		MOVEQ.L	#0x01,D1
000110d4 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
000110d6 4a 93                    |J       |		TST.L	(A3)
000110d8 66 1e                    |f       |		BNE	0x110f8
000110da 3f 3a fc 38              |?: 8    |		MOVE.W	0x10d14,-(A7)
000110de 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000110e0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000110e4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000110e6 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
000110ea 4e ba fc f0              |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
000110ee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000110f0 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000110f2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000110f4 60 00 00 b2              |`       |		BRA	0x111a8
000110f8 20 13                    |        |		MOVE.L	(A3),D0
000110fa 0c 80 80 00 00 00        |        |		CMPI.L	#0x80000000,D0
00011100 66 28                    |f(      |		BNE	0x1112a
00011102 9e c2                    |        |		SUBA.W	D2,A7
00011104 20 4f                    | O      |		MOVEA.L	A7,A0
00011106 43 fa fc 0e              |C       |		LEA.L	0x10d16,A1
0001110a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0001110c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0001110e 51 c8 ff fc              |Q       |		DBF	D0,0x1110c
00011112 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00011114 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00011118 3f 01                    |?       |		MOVE.W	D1,-(A7)
0001111a 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
0001111e 4e ba fc bc              |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00011122 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00011124 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00011126 de c2                    |        |		ADDA.W	D2,A7
00011128 60 7e                    |`~      |		BRA	0x111a8
0001112a 48 52                    |HR      |		PEA.L	(A2)
0001112c 4e ba fc 14              |N       |		JSR	_NewString(VAR a : String)
00011130 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011132 48 54                    |HT      |		PEA.L	(A4)
00011134 4e ba fc 0c              |N       |		JSR	_NewString(VAR a : String)
00011138 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001113a 4a 80                    |J       |		TST.L	D0
0001113c 6c 10                    |l       |		BGE	0x1114e
0001113e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00011140 1f 3c 00 2d              | < -    |		MOVE.B	#0x2d,-(A7)
00011144 4e ba fc 60              |N  `    |		JSR	_AppendChar(MOD b : String; a : char)
00011148 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001114a 44 80                    |D       |		NEG.L	D0
0001114c 26 80                    |&       |		MOVE.L	D0,(A3)
0001114e 28 13                    |(       |		MOVE.L	(A3),D4
00011150 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
00011152 4e b9 00 01 08 0a        |N       |		JSR	_?divs_d3_d4
00011158 2e 03                    |.       |		MOVE.L	D3,D7
0001115a 26 84                    |&       |		MOVE.L	D4,(A3)
0001115c 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0001115e 70 30                    |p0      |		MOVEQ.L	#0x30,D0
00011160 d0 87                    |        |		ADD.L	D7,D0
00011162 1f 00                    |        |		MOVE.B	D0,-(A7)
00011164 4e ba fc 40              |N  @    |		JSR	_AppendChar(MOD b : String; a : char)
00011168 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001116a 4a 84                    |J       |		TST.L	D4
0001116c 66 e0                    |f       |		BNE	0x1114e
0001116e 20 54                    | T      |		MOVEA.L	(A4),A0
00011170 2f 08                    |/       |		MOVE.L	A0,-(A7)
00011172 30 10                    |0       |		MOVE.W	(A0),D0
00011174 48 c0                    |H       |		EXTW.L	D0
00011176 53 80                    |S       |		SUBQ.L	#0x1,D0
00011178 2f 00                    |/       |		MOVE.L	D0,-(A7)
0001117a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0001117c be 97                    |        |		CMP.L	(A7),D7
0001117e 6e 1e                    |n       |		BGT	0x1119e
00011180 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00011182 20 6f 00 08              | o      |		MOVEA.L	(A7+0x8),A0
00011186 30 10                    |0       |		MOVE.W	(A0),D0
00011188 48 c0                    |H       |		EXTW.L	D0
0001118a 90 87                    |        |		SUB.L	D7,D0
0001118c 20 6f 00 08              | o      |		MOVEA.L	(A7+0x8),A0
00011190 1f 30 08 01              | 0      |		MOVE.B	(A0+D0.L+#0x1),-(A7)
00011194 4e ba fc 10              |N       |		JSR	_AppendChar(MOD b : String; a : char)
00011198 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001119a 52 87                    |R       |		ADDQ.L	#0x1,D7
0001119c 68 de                    |h       |		BVC	0x1117c
0001119e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000111a0 48 54                    |HT      |		PEA.L	(A4)
000111a2 4e ba fb d2              |N       |		JSR	_FreeString(VAR a : String)
000111a6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000111a8 2d 52 00 0c              |-R      |		MOVE.L	(A2),(A6+0xc)
000111ac 4c df 1f 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4
000111b0 4e 5e                    |N^      |		UNLK	A6
000111b2 4e 75                    |Nu      |		RTS
000111b4 ; --------------------------------------------------------------------------------------
000111b4 ; Long2HexString(val : Long; ndig : Long) : String
000111b4 ; Stack:
000111b4 ;     A6+0x10 VAR RETURN : String
000111b4 ;     A6+0xc      val : Long
000111b4 ;     A6+0x8      ndig : Long
000111b4 ; OMSI PASCAL Function
000111b4 ;    <LVAR  0x010 4(w)>
000111b4 ;    <LVAR  0x00c 4(rw)>
000111b4 ;    <LVAR  0x008 4(rw)>
000111b4 ;    <LVAR -0x00c @ 4(r)>
000111b4 ; --------------------------------------------------------------------------------------
000111b4					_Long2HexString(val : Long; ndig : Long) : String:
000111b4 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
000111b8 bf d5                    |        |		CMPA.L	(A5),A7
000111ba 62 06                    |b       |		BHI	0x111c2
000111bc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000111c0 4e 76                    |Nv      |		TRAPV
000111c2 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
000111c6 48 e7 e7 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
000111ca 43 ee 00 0c              |C       |		LEA.L	(A6+0xc),A1
000111ce 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
000111d2 47 ee ff f4              |G       |		LEA.L	(A6-0xc),A3
000111d6 74 01                    |t       |		MOVEQ.L	#0x01,D2
000111d8 48 53                    |HS      |		PEA.L	(A3)
000111da 4e ba fb 66              |N  f    |		JSR	_NewString(VAR a : String)
000111de 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000111e0 20 53                    | S      |		MOVEA.L	(A3),A0
000111e2 2f 08                    |/       |		MOVE.L	A0,-(A7)
000111e4 7a 08                    |z       |		MOVEQ.L	#0x08,D5
000111e6 20 12                    |        |		MOVE.L	(A2),D0
000111e8 b0 82                    |        |		CMP.L	D2,D0
000111ea 6d 04                    |m       |		BLT	0x111f0
000111ec b0 85                    |        |		CMP.L	D5,D0
000111ee 6f 02                    |o       |		BLE	0x111f2
000111f0 24 85                    |$       |		MOVE.L	D5,(A2)
000111f2 20 12                    |        |		MOVE.L	(A2),D0
000111f4 04 80 ff ff 80 00        |        |		SUBI.L	#0xffff8000,D0
000111fa 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00011200 63 02                    |c       |		BLS	0x11204
00011202 4e 4f                    |NO      |		TRAP	#15
00011204 06 80 ff ff 80 00        |        |		ADDI.L	#0xffff8000,D0
0001120a 30 80                    |0       |		MOVE.W	D0,(A0)
0001120c 2e 11                    |.       |		MOVE.L	(A1),D7
0001120e 2c 12                    |,       |		MOVE.L	(A2),D6
00011210 bc 82                    |        |		CMP.L	D2,D6
00011212 6d 42                    |mB      |		BLT	0x11256
00011214 22 87                    |"       |		MOVE.L	D7,(A1)
00011216 02 91 00 00 00 0f        |        |		ANDI.L	#0x0000000f,(A1)
0001121c e8 8f                    |        |		LSR.L	#0x4,D7
0001121e 20 11                    |        |		MOVE.L	(A1),D0
00011220 0c 80 00 00 00 09        |        |		CMPI.L	#0x00000009,D0
00011226 63 04                    |c       |		BLS	0x1122c
00011228 5e 80                    |^       |		ADDQ.L	#0x7,D0
0001122a 22 80                    |"       |		MOVE.L	D0,(A1)
0001122c 20 06                    |        |		MOVE.L	D6,D0
0001122e 53 80                    |S       |		SUBQ.L	#0x1,D0
00011230 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
00011236 63 02                    |c       |		BLS	0x1123a
00011238 4e 4f                    |NO      |		TRAP	#15
0001123a 20 57                    | W      |		MOVEA.L	(A7),A0
0001123c 22 11                    |"       |		MOVE.L	(A1),D1
0001123e 06 81 00 00 00 30        |     0  |		ADDI.L	#0x00000030,D1
00011244 0c 81 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D1
0001124a 63 02                    |c       |		BLS	0x1124e
0001124c 4e 4f                    |NO      |		TRAP	#15
0001124e 11 81 08 02              |        |		MOVE.B	D1,(A0+D0.L+#0x2)
00011252 53 86                    |S       |		SUBQ.L	#0x1,D6
00011254 68 ba                    |h       |		BVC	0x11210
00011256 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011258 2d 53 00 10              |-S      |		MOVE.L	(A3),(A6+0x10)
0001125c 4c df 0f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3
00011260 4e 5e                    |N^      |		UNLK	A6
00011262 4e 75                    |Nu      |		RTS
00011264 ; --------------------------------------------------------------------------------------
00011264 ; OMSI PASCAL Function
00011264 ;    <LVAR  0x00c 1(rw)>
00011264 ;    <LVAR  0x008 4(r)>
00011264 ; --------------------------------------------------------------------------------------
00011264 4e 56 ff fc              |NV      |		LINK.W	A6,#0xfffc
00011268 bf d5                    |        |		CMPA.L	(A5),A7
0001126a 62 06                    |b       |		BHI	0x11272
0001126c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00011270 4e 76                    |Nv      |		TRAPV
00011272 de fc 00 04              |        |		ADDA.W	#0x4,A7
00011276 42 2e 00 0c              |B.      |		CLR.B	(A6+0xc)
0001127a 4a ae 00 08              |J       |		TST.L	(A6+0x8)
0001127e 6d 04                    |m       |		BLT	0x11284
00011280 52 2e 00 0c              |R.      |		ADDQ.B	#0x1,(A6+0xc)
00011284 4e 5e                    |N^      |		UNLK	A6
00011286 4e 75                    |Nu      |		RTS
00011288 ; --------------------------------------------------------------------------------------
00011288 ; String2Long(src : String; VAR status : Bool; VAR retval : Long)
00011288 ; Stack:
00011288 ;     A6+0x10     src : String
00011288 ;     A6+0xc  VAR status : Bool
00011288 ;     A6+0x8  VAR retval : Long
00011288 ; OMSI PASCAL Function
00011288 ;    <LVAR  0x010 @ 4(r)>
00011288 ;    <LVAR  0x00c 4(r)>
00011288 ;    <LVAR  0x008 4(r)>
00011288 ;    <LVAR -0x004 4(rw)>
00011288 ;    <LVAR -0x008 4(rw)>
00011288 ;    <LVAR -0x00e 2(rw)>
00011288 ; --------------------------------------------------------------------------------------
00011288					_String2Long(src : String; VAR status : Bool; VAR retval : Long):
00011288 4e 56 ff a4              |NV      |		LINK.W	A6,#0xffa4
0001128c bf d5                    |        |		CMPA.L	(A5),A7
0001128e 62 06                    |b       |		BHI	0x11296
00011290 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00011294 4e 76                    |Nv      |		TRAPV
00011296 de fc 00 48              |   H    |		ADDA.W	#0x48,A7
0001129a 48 e7 ff f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0001129e 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
000112a2 47 ee ff f2              |G       |		LEA.L	(A6-0xe),A3
000112a6 72 2d                    |r-      |		MOVEQ.L	#0x2d,D1
000112a8 74 01                    |t       |		MOVEQ.L	#0x01,D2
000112aa 2d 7c 0c cc cc cc ff f8  |-|      |		MOVE.L	#0xccccccc,(A6-0x8)
000112b2 2d 7c f3 33 33 34 ff fc  |-| 334  |		MOVE.L	#0xf3333334,(A6-0x4)
000112ba 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000112be 2f 08                    |/       |		MOVE.L	A0,-(A7)
000112c0 22 6e 00 0c              |"n      |		MOVEA.L	(A6+0xc),A1
000112c4 42 11                    |B       |		CLR.B	(A1)
000112c6 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000112c8 4a 50                    |JP      |		TST.W	(A0)
000112ca 66 06                    |f       |		BNE	0x112d2
000112cc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000112ce 60 00 00 cc              |`       |		BRA	0x1139c
000112d2 20 57                    | W      |		MOVEA.L	(A7),A0
000112d4 10 28 00 02              | (      |		MOVE.B	(A0+0x2),D0
000112d8 b0 01                    |        |		CMP.B	D1,D0
000112da 66 06                    |f       |		BNE	0x112e2
000112dc 36 bc ff ff              |6       |		MOVE.W	#0xffff,(A3)
000112e0 60 02                    |`       |		BRA	0x112e4
000112e2 36 82                    |6       |		MOVE.W	D2,(A3)
000112e4 10 28 00 02              | (      |		MOVE.B	(A0+0x2),D0
000112e8 0c 00 00 2b              |   +    |		CMPI.B	#0x2b,D0
000112ec 67 04                    |g       |		BEQ	0x112f2
000112ee b0 01                    |        |		CMP.B	D1,D0
000112f0 66 10                    |f       |		BNE	0x11302
000112f2 52 87                    |R       |		ADDQ.L	#0x1,D7
000112f4 30 10                    |0       |		MOVE.W	(A0),D0
000112f6 48 c0                    |H       |		EXTW.L	D0
000112f8 be 80                    |        |		CMP.L	D0,D7
000112fa 6f 06                    |o       |		BLE	0x11302
000112fc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000112fe 60 00 00 9c              |`       |		BRA	0x1139c
00011302 20 52                    | R      |		MOVEA.L	(A2),A0
00011304 42 90                    |B       |		CLR.L	(A0)
00011306 20 07                    |        |		MOVE.L	D7,D0
00011308 53 80                    |S       |		SUBQ.L	#0x1,D0
0001130a 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
00011310 63 02                    |c       |		BLS	0x11314
00011312 4e 4f                    |NO      |		TRAP	#15
00011314 20 57                    | W      |		MOVEA.L	(A7),A0
00011316 1c 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),D6
0001131a 0c 06 00 30              |   0    |		CMPI.B	#0x30,D6
0001131e 65 06                    |e       |		BCS	0x11326
00011320 0c 06 00 39              |   9    |		CMPI.B	#0x39,D6
00011324 63 04                    |c       |		BLS	0x1132a
00011326 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011328 60 72                    |`r      |		BRA	0x1139c
0001132a 42 80                    |B       |		CLR.L	D0
0001132c 10 06                    |        |		MOVE.B	D6,D0
0001132e 04 40 00 30              | @ 0    |		SUBI.W	#0x0030,D0
00011332 c1 d3                    |        |		MULS.W	(A3),D0
00011334 2a 00                    |*       |		MOVE.L	D0,D5
00011336 20 52                    | R      |		MOVEA.L	(A2),A0
00011338 20 10                    |        |		MOVE.L	(A0),D0
0001133a b0 ae ff fc              |        |		CMP.L	(A6-0x4),D0
0001133e 6d 06                    |m       |		BLT	0x11346
00011340 b0 ae ff f8              |        |		CMP.L	(A6-0x8),D0
00011344 6f 04                    |o       |		BLE	0x1134a
00011346 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011348 60 52                    |`R      |		BRA	0x1139c
0001134a 20 52                    | R      |		MOVEA.L	(A2),A0
0001134c 28 10                    |(       |		MOVE.L	(A0),D4
0001134e 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
00011350 4e b9 00 01 07 ea        |N       |		JSR	_?muls_d3_d4
00011356 20 84                    |        |		MOVE.L	D4,(A0)
00011358 4a 84                    |J       |		TST.L	D4
0001135a 66 04                    |f       |		BNE	0x11360
0001135c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0001135e 60 20                    |`       |		BRA	0x11380
00011360 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00011362 2f 04                    |/       |		MOVE.L	D4,-(A7)
00011364 4e ba fe fe              |N       |		JSR	0x11264
00011368 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0001136a 2f 04                    |/       |		MOVE.L	D4,-(A7)
0001136c db 97                    |        |		ADD.L	D5,(A7)
0001136e 4e ba fe f4              |N       |		JSR	0x11264
00011372 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011374 10 2f 00 02              | /      |		MOVE.B	(A7+0x2),D0
00011378 b0 1f                    |        |		CMP.B	(A7)+,D0
0001137a 67 04                    |g       |		BEQ	0x11380
0001137c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001137e 60 1c                    |`       |		BRA	0x1139c
00011380 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00011382 20 52                    | R      |		MOVEA.L	(A2),A0
00011384 db 90                    |        |		ADD.L	D5,(A0)
00011386 52 87                    |R       |		ADDQ.L	#0x1,D7
00011388 20 57                    | W      |		MOVEA.L	(A7),A0
0001138a 30 10                    |0       |		MOVE.W	(A0),D0
0001138c 48 c0                    |H       |		EXTW.L	D0
0001138e be 80                    |        |		CMP.L	D0,D7
00011390 6f 00 ff 74              |o  t    |		BLE	0x11306
00011394 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00011398 10 82                    |        |		MOVE.B	D2,(A0)
0001139a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001139c 48 6e 00 10              |Hn      |		PEA.L	(A6+0x10)
000113a0 48 78 00 80              |Hx      |		PEA.L	0x80
000113a4 4e b9 00 01 08 fa        |N       |		JSR	_Free2(a : Pointer; b : Long)
000113aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000113ac 4c df 0f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
000113b0 4e 5e                    |N^      |		UNLK	A6
000113b2 4e 75                    |Nu      |		RTS
000113b4 ; --------------------------------------------------------------------------------------
000113b4 ; ToUpper(a : String) : String
000113b4 ; Stack:
000113b4 ;     A6+0xc  VAR RETURN : String
000113b4 ;     A6+0x8      a : String
000113b4 ; OMSI PASCAL Function
000113b4 ;    <LVAR  0x00c 4(w)>
000113b4 ;    <LVAR  0x008 4(r)>
000113b4 ; --------------------------------------------------------------------------------------
000113b4					_ToUpper(a : String) : String:
000113b4 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
000113b8 bf d5                    |        |		CMPA.L	(A5),A7
000113ba 62 06                    |b       |		BHI	0x113c2
000113bc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000113c0 4e 76                    |Nv      |		TRAPV
000113c2 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
000113c6 48 e7 c3 80              |H       |		MOVEM.L	A0+D7+D6+D1+D0,-(A7)
000113ca 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000113ce 2f 08                    |/       |		MOVE.L	A0,-(A7)
000113d0 30 10                    |0       |		MOVE.W	(A0),D0
000113d2 48 c0                    |H       |		EXTW.L	D0
000113d4 2f 00                    |/       |		MOVE.L	D0,-(A7)
000113d6 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000113d8 be 97                    |        |		CMP.L	(A7),D7
000113da 6e 36                    |n6      |		BGT	0x11412
000113dc 20 07                    |        |		MOVE.L	D7,D0
000113de 53 80                    |S       |		SUBQ.L	#0x1,D0
000113e0 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
000113e6 63 02                    |c       |		BLS	0x113ea
000113e8 4e 4f                    |NO      |		TRAP	#15
000113ea 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
000113ee 1c 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),D6
000113f2 0c 06 00 61              |   a    |		CMPI.B	#0x61,D6
000113f6 65 16                    |e       |		BCS	0x1140e
000113f8 0c 06 00 7a              |   z    |		CMPI.B	#0x7a,D6
000113fc 62 10                    |b       |		BHI	0x1140e
000113fe 42 81                    |B       |		CLR.L	D1
00011400 12 06                    |        |		MOVE.B	D6,D1
00011402 04 41 00 20              | A      |		SUBI.W	#0x0020,D1
00011406 43 bc 00 ff              |C       |		CHK.W	#0xff,D1
0001140a 11 81 08 02              |        |		MOVE.B	D1,(A0+D0.L+#0x2)
0001140e 52 87                    |R       |		ADDQ.L	#0x1,D7
00011410 68 c6                    |h       |		BVC	0x113d8
00011412 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00011414 2d 6e 00 08 00 0c        |-n      |		MOVE.L	(A6+0x8),(A6+0xc)
0001141a 4c df 01 c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0
0001141e 4e 5e                    |N^      |		UNLK	A6
00011420 4e 75                    |Nu      |		RTS
00011422 ; --------------------------------------------------------------------------------------
00011422 ; RightPad(a : String; b : Long) : String
00011422 ; Stack:
00011422 ;     A6+0x10 VAR RETURN : String
00011422 ;     A6+0xc      a : String
00011422 ;     A6+0x8      b : Long
00011422 ; OMSI PASCAL Function
00011422 ;    <LVAR  0x010 4(w)>
00011422 ;    <LVAR  0x00c 4(r)>
00011422 ;    <LVAR  0x008 4(r)>
00011422 ;    <LVAR -0x008 @ 4(r)>
00011422 ; --------------------------------------------------------------------------------------
00011422					_RightPad(a : String; b : Long) : String:
00011422 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00011426 bf d5                    |        |		CMPA.L	(A5),A7
00011428 62 06                    |b       |		BHI	0x11430
0001142a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001142e 4e 76                    |Nv      |		TRAPV
00011430 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00011434 48 e7 81 c0              |H       |		MOVEM.L	A1+A0+D7+D0,-(A7)
00011438 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
0001143c 48 51                    |HQ      |		PEA.L	(A1)
0001143e 4e ba f9 02              |N       |		JSR	_NewString(VAR a : String)
00011442 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011444 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00011448 30 10                    |0       |		MOVE.W	(A0),D0
0001144a 48 c0                    |H       |		EXTW.L	D0
0001144c 52 80                    |R       |		ADDQ.L	#0x1,D0
0001144e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00011452 2e 00                    |.       |		MOVE.L	D0,D7
00011454 be 97                    |        |		CMP.L	(A7),D7
00011456 6e 10                    |n       |		BGT	0x11468
00011458 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0001145a 1f 3c 00 20              | <      |		MOVE.B	#0x20,-(A7)
0001145e 4e ba f9 46              |N  F    |		JSR	_AppendChar(MOD b : String; a : char)
00011462 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00011464 52 87                    |R       |		ADDQ.L	#0x1,D7
00011466 68 ec                    |h       |		BVC	0x11454
00011468 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0001146a 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0001146e 4e ba fa c4              |N       |		JSR	_StringCat2(a, b : String) : String
00011472 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00011474 2d 5f 00 10              |-_      |		MOVE.L	(A7)+,(A6+0x10)
00011478 4c df 03 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1
0001147c 4e 5e                    |N^      |		UNLK	A6
0001147e 4e 75                    |Nu      |		RTS
00011480 ; --------------------------------------------------------------------------------------
00011480 ; LeftPad(a : String; b : Long) : String
00011480 ; Stack:
00011480 ;     A6+0x10 VAR RETURN : String
00011480 ;     A6+0xc      a : String
00011480 ;     A6+0x8      b : Long
00011480 ; OMSI PASCAL Function
00011480 ;    <LVAR  0x010 4(w)>
00011480 ;    <LVAR  0x00c 4(r)>
00011480 ;    <LVAR  0x008 4(rw)>
00011480 ; --------------------------------------------------------------------------------------
00011480					_LeftPad(a : String; b : Long) : String:
00011480 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
00011484 bf d5                    |        |		CMPA.L	(A5),A7
00011486 62 06                    |b       |		BHI	0x1148e
00011488 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001148c 4e 76                    |Nv      |		TRAPV
0001148e de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00011492 48 e7 c1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D1+D0,-(A7)
00011496 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
0001149a 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
0001149e 72 7e                    |r~      |		MOVEQ.L	#0x7e,D1
000114a0 20 11                    |        |		MOVE.L	(A1),D0
000114a2 b0 81                    |        |		CMP.L	D1,D0
000114a4 6f 02                    |o       |		BLE	0x114a8
000114a6 22 81                    |"       |		MOVE.L	D1,(A1)
000114a8 20 52                    | R      |		MOVEA.L	(A2),A0
000114aa 30 10                    |0       |		MOVE.W	(A0),D0
000114ac 48 c0                    |H       |		EXTW.L	D0
000114ae 52 80                    |R       |		ADDQ.L	#0x1,D0
000114b0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000114b2 2e 00                    |.       |		MOVE.L	D0,D7
000114b4 be 97                    |        |		CMP.L	(A7),D7
000114b6 6e 10                    |n       |		BGT	0x114c8
000114b8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000114ba 1f 3c 00 20              | <      |		MOVE.B	#0x20,-(A7)
000114be 4e ba f8 e6              |N       |		JSR	_AppendChar(MOD b : String; a : char)
000114c2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000114c4 52 87                    |R       |		ADDQ.L	#0x1,D7
000114c6 68 ec                    |h       |		BVC	0x114b4
000114c8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000114ca 2d 52 00 10              |-R      |		MOVE.L	(A2),(A6+0x10)
000114ce 4c df 07 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2
000114d2 4e 5e                    |N^      |		UNLK	A6
000114d4 4e 75                    |Nu      |		RTS
000114d6 ; --------------------------------------------------------------------------------------
000114d6 ; FirstField(MOD input : String; MOD output : String; VAR c : Bool
000114d6 ; Stack:
000114d6 ;     A6+0x10     input : String
000114d6 ;     A6+0xc      output : String
000114d6 ;     A6+0x8  VAR c : Bool
000114d6 ; OMSI PASCAL Function
000114d6 ;    <LVAR  0x010 4(r)>
000114d6 ;    <LVAR  0x00c 4(r)>
000114d6 ;    <LVAR  0x008 4(r)>
000114d6 ; --------------------------------------------------------------------------------------
000114d6					_FirstField(MOD input : String; MOD output : String; VAR c : Bool:
000114d6 4e 56 ff b4              |NV      |		LINK.W	A6,#0xffb4
000114da bf d5                    |        |		CMPA.L	(A5),A7
000114dc 62 06                    |b       |		BHI	0x114e4
000114de 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000114e2 4e 76                    |Nv      |		TRAPV
000114e4 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
000114e8 48 e7 e7 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
000114ec 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
000114f0 74 7d                    |t}      |		MOVEQ.L	#0x7d,D2
000114f2 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000114f4 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000114f8 2f 08                    |/       |		MOVE.L	A0,-(A7)
000114fa 30 10                    |0       |		MOVE.W	(A0),D0
000114fc 48 c0                    |H       |		EXTW.L	D0
000114fe 2f 00                    |/       |		MOVE.L	D0,-(A7)
00011500 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00011502 be 97                    |        |		CMP.L	(A7),D7
00011504 6e 2e                    |n.      |		BGT	0x11534
00011506 20 07                    |        |		MOVE.L	D7,D0
00011508 53 80                    |S       |		SUBQ.L	#0x1,D0
0001150a b0 82                    |        |		CMP.L	D2,D0
0001150c 63 02                    |c       |		BLS	0x11510
0001150e 4e 4f                    |NO      |		TRAP	#15
00011510 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00011514 42 81                    |B       |		CLR.L	D1
00011516 12 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),D1
0001151a 41 fa f8 06              |A       |		LEA.L	0x10d22,A0
0001151e 30 01                    |0       |		MOVE.W	D1,D0
00011520 e6 48                    | H      |		LSR.W	#0x3,D0
00011522 03 30 00 00              | 0      |		BTST.B	D1,(A0+D0.W)
00011526 67 04                    |g       |		BEQ	0x1152c
00011528 52 86                    |R       |		ADDQ.L	#0x1,D6
0001152a 60 04                    |`       |		BRA	0x11530
0001152c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001152e 60 06                    |`       |		BRA	0x11536
00011530 52 87                    |R       |		ADDQ.L	#0x1,D7
00011532 68 ce                    |h       |		BVC	0x11502
00011534 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011536 20 52                    | R      |		MOVEA.L	(A2),A0
00011538 42 50                    |BP      |		CLR.W	(A0)
0001153a 20 06                    |        |		MOVE.L	D6,D0
0001153c 52 80                    |R       |		ADDQ.L	#0x1,D0
0001153e 20 57                    | W      |		MOVEA.L	(A7),A0
00011540 32 10                    |2       |		MOVE.W	(A0),D1
00011542 48 c1                    |H       |		EXTW.L	D1
00011544 2f 01                    |/       |		MOVE.L	D1,-(A7)
00011546 2e 00                    |.       |		MOVE.L	D0,D7
00011548 be 97                    |        |		CMP.L	(A7),D7
0001154a 6e 38                    |n8      |		BGT	0x11584
0001154c 20 07                    |        |		MOVE.L	D7,D0
0001154e 53 80                    |S       |		SUBQ.L	#0x1,D0
00011550 b0 82                    |        |		CMP.L	D2,D0
00011552 63 02                    |c       |		BLS	0x11556
00011554 4e 4f                    |NO      |		TRAP	#15
00011556 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
0001155a 12 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),D1
0001155e 0c 01 00 20              |        |		CMPI.B	#0x20,D1
00011562 67 0c                    |g       |		BEQ	0x11570
00011564 0c 01 00 2c              |   ,    |		CMPI.B	#0x2c,D1
00011568 67 06                    |g       |		BEQ	0x11570
0001156a 0c 01 00 09              |        |		CMPI.B	#0x09,D1
0001156e 66 06                    |f       |		BNE	0x11576
00011570 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011572 60 12                    |`       |		BRA	0x11586
00011574 60 0a                    |`       |		.XXX[0x2]
00011576 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00011578 1f 01                    |        |		MOVE.B	D1,-(A7)
0001157a 4e ba f8 2a              |N  *    |		JSR	_AppendChar(MOD b : String; a : char)
0001157e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00011580 52 87                    |R       |		ADDQ.L	#0x1,D7
00011582 68 c4                    |h       |		BVC	0x11548
00011584 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011586 20 52                    | R      |		MOVEA.L	(A2),A0
00011588 30 10                    |0       |		MOVE.W	(A0),D0
0001158a 48 c0                    |H       |		EXTW.L	D0
0001158c d0 86                    |        |		ADD.L	D6,D0
0001158e 2a 00                    |*       |		MOVE.L	D0,D5
00011590 20 57                    | W      |		MOVEA.L	(A7),A0
00011592 30 10                    |0       |		MOVE.W	(A0),D0
00011594 48 c0                    |H       |		EXTW.L	D0
00011596 90 85                    |        |		SUB.L	D5,D0
00011598 2f 00                    |/       |		MOVE.L	D0,-(A7)
0001159a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0001159c be 97                    |        |		CMP.L	(A7),D7
0001159e 6e 24                    |n$      |		BGT	0x115c4
000115a0 20 07                    |        |		MOVE.L	D7,D0
000115a2 53 80                    |S       |		SUBQ.L	#0x1,D0
000115a4 b0 82                    |        |		CMP.L	D2,D0
000115a6 63 02                    |c       |		BLS	0x115aa
000115a8 4e 4f                    |NO      |		TRAP	#15
000115aa 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
000115ae 22 07                    |"       |		MOVE.L	D7,D1
000115b0 d2 85                    |        |		ADD.L	D5,D1
000115b2 53 81                    |S       |		SUBQ.L	#0x1,D1
000115b4 b2 82                    |        |		CMP.L	D2,D1
000115b6 63 02                    |c       |		BLS	0x115ba
000115b8 4e 4f                    |NO      |		TRAP	#15
000115ba 11 b0 18 02 08 02        |        |		MOVE.B	(A0+D1.L+#0x2),(A0+D0.L+#0x2)
000115c0 52 87                    |R       |		ADDQ.L	#0x1,D7
000115c2 68 d8                    |h       |		BVC	0x1159c
000115c4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000115c6 20 57                    | W      |		MOVEA.L	(A7),A0
000115c8 30 10                    |0       |		MOVE.W	(A0),D0
000115ca 48 c0                    |H       |		EXTW.L	D0
000115cc 90 85                    |        |		SUB.L	D5,D0
000115ce 04 80 ff ff 80 00        |        |		SUBI.L	#0xffff8000,D0
000115d4 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000115da 63 02                    |c       |		BLS	0x115de
000115dc 4e 4f                    |NO      |		TRAP	#15
000115de 06 80 ff ff 80 00        |        |		ADDI.L	#0xffff8000,D0
000115e4 30 80                    |0       |		MOVE.W	D0,(A0)
000115e6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000115e8 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000115ec 42 10                    |B       |		CLR.B	(A0)
000115ee 22 52                    |"R      |		MOVEA.L	(A2),A1
000115f0 4a 51                    |JQ      |		TST.W	(A1)
000115f2 67 02                    |g       |		BEQ	0x115f6
000115f4 52 10                    |R       |		ADDQ.B	#0x1,(A0)
000115f6 4c df 07 e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2
000115fa 4e 5e                    |N^      |		UNLK	A6
000115fc 4e 75                    |Nu      |		RTS
000115fe ; --------------------------------------------------------------------------------------
000115fe ; FSCALL_10300
000115fe ; OMSI PASCAL Function
000115fe ;    <LVAR  0x010 4(rw)>
000115fe ;    <LVAR  0x00c 4(r)>
000115fe ;    <LVAR  0x008 4(r)>
000115fe ; --------------------------------------------------------------------------------------
000115fe					_FSCALL_10300:
000115fe 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00011602 bf d5                    |        |		CMPA.L	(A5),A7
00011604 62 06                    |b       |		BHI	0x1160c
00011606 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001160a 4e 76                    |Nv      |		TRAPV
0001160c de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00011610 48 e7 e7 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00011614 74 7d                    |t}      |		MOVEQ.L	#0x7d,D2
00011616 42 ae 00 10              |B       |		CLR.L	(A6+0x10)
0001161a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001161e 2f 08                    |/       |		MOVE.L	A0,-(A7)
00011620 22 6e 00 0c              |"n      |		MOVEA.L	(A6+0xc),A1
00011624 30 11                    |0       |		MOVE.W	(A1),D0
00011626 48 c0                    |H       |		EXTW.L	D0
00011628 32 10                    |2       |		MOVE.W	(A0),D1
0001162a 48 c1                    |H       |		EXTW.L	D1
0001162c 44 81                    |D       |		NEG.L	D1
0001162e d2 80                    |        |		ADD.L	D0,D1
00011630 52 81                    |R       |		ADDQ.L	#0x1,D1
00011632 2f 01                    |/       |		MOVE.L	D1,-(A7)
00011634 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00011636 ba 97                    |        |		CMP.L	(A7),D5
00011638 6e 56                    |nV      |		BGT	0x11690
0001163a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0001163c 52 87                    |R       |		ADDQ.L	#0x1,D7
0001163e 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00011640 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00011644 20 05                    |        |		MOVE.L	D5,D0
00011646 d0 87                    |        |		ADD.L	D7,D0
00011648 53 80                    |S       |		SUBQ.L	#0x1,D0
0001164a 53 80                    |S       |		SUBQ.L	#0x1,D0
0001164c b0 82                    |        |		CMP.L	D2,D0
0001164e 63 02                    |c       |		BLS	0x11652
00011650 4e 4f                    |NO      |		TRAP	#15
00011652 22 07                    |"       |		MOVE.L	D7,D1
00011654 53 81                    |S       |		SUBQ.L	#0x1,D1
00011656 b2 82                    |        |		CMP.L	D2,D1
00011658 63 02                    |c       |		BLS	0x1165c
0001165a 4e 4f                    |NO      |		TRAP	#15
0001165c 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
00011660 10 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),D0
00011664 b0 31 18 02              | 1      |		CMP.B	(A1+D1.L+#0x2),D0
00011668 66 02                    |f       |		BNE	0x1166c
0001166a 52 06                    |R       |		ADDQ.B	#0x1,D6
0001166c 4a 06                    |J       |		TST.B	D6
0001166e 67 08                    |g       |		BEQ	0x11678
00011670 30 11                    |0       |		MOVE.W	(A1),D0
00011672 48 c0                    |H       |		EXTW.L	D0
00011674 be 80                    |        |		CMP.L	D0,D7
00011676 66 c4                    |f       |		BNE	0x1163c
00011678 30 11                    |0       |		MOVE.W	(A1),D0
0001167a 48 c0                    |H       |		EXTW.L	D0
0001167c be 80                    |        |		CMP.L	D0,D7
0001167e 66 0c                    |f       |		BNE	0x1168c
00011680 4a 06                    |J       |		TST.B	D6
00011682 67 08                    |g       |		BEQ	0x1168c
00011684 2d 45 00 10              |-E      |		MOVE.L	D5,(A6+0x10)
00011688 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001168a 60 06                    |`       |		BRA	0x11692
0001168c 52 85                    |R       |		ADDQ.L	#0x1,D5
0001168e 68 a6                    |h       |		BVC	0x11636
00011690 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00011692 4c df 03 e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1
00011696 4e 5e                    |N^      |		UNLK	A6
00011698 4e 75                    |Nu      |		RTS
0001169a 3f 3f 3a 3f 3f 3a 3f 3f  |??:??:??|		.TXT	'??:??:?? ??-???-??'
000116ac 00 01 01 01              |        |		.XXX[0x4]
000116b0 00 00 00 00 7f 0c 1f 07  |        |		.XXX[0x30]
000116b8 17 3b 3b 63 4a 41 4e 46  | ;;cJANF|
000116c0 45 42 4d 41 52 41 50 52  |EBMARAPR|
000116c8 4d 41 59 4a 55 4e 4a 55  |MAYJUNJU|
000116d0 4c 41 55 47 53 45 50 4f  |LAUGSEPO|
000116d8 43 54 4e 4f 56 44 45 43  |CTNOVDEC|
000116e0 ; --------------------------------------------------------------------------------------
000116e0 ; GetRtc() : TimeStamp
000116e0 ; Stack:
000116e0 ;     A6+0x8  VAR RETURN : TimeStamp
000116e0 ; OMSI PASCAL Function
000116e0 ;    <LVAR  0x008 4(r)>
000116e0 ;    <LVAR -0x006 1(r)>
000116e0 ;    <LVAR -0x007 1(r)>
000116e0 ;    <LVAR -0x008 1(r)>
000116e0 ;    <LVAR -0x00a 1(r)>
000116e0 ;    <LVAR -0x00b 1(r)>
000116e0 ;    <LVAR -0x00c @ 1(r)>
000116e0 ; --------------------------------------------------------------------------------------
000116e0					_GetRtc() : TimeStamp:
000116e0 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
000116e4 bf d5                    |        |		CMPA.L	(A5),A7
000116e6 62 06                    |b       |		BHI	0x116ee
000116e8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000116ec 4e 76                    |Nv      |		TRAPV
000116ee de fc 00 28              |   (    |		ADDA.W	#0x28,A7
000116f2 48 e7 e3 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D2+D1+D0,-(A7)
000116f6 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
000116fa 20 51                    | Q      |		MOVEA.L	(A1),A0
000116fc 42 90                    |B       |		CLR.L	(A0)
000116fe 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00011702 4e b9 00 01 02 26        |N    &  |		JSR	KC13_ReadRtc
00011708 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001170a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0001170c 7c 00                    ||       |		MOVEQ.L	#0x00,D6
0001170e 4a 06                    |J       |		TST.B	D6
00011710 67 1c                    |g       |		BEQ	0x1172e
00011712 10 06                    |        |		MOVE.B	D6,D0
00011714 48 80                    |H       |		EXTB.W	D0
00011716 42 81                    |B       |		CLR.L	D1
00011718 12 36 00 f4              | 6      |		MOVE.B	(A6+D0.W-#0xc),D1
0001171c 34 01                    |4       |		MOVE.W	D1,D2
0001171e e8 42                    | B      |		ASR.W	#0x4,D2
00011720 c5 fc 00 0a              |        |		MULS.W	#0xa,D2
00011724 02 41 00 0f              | A      |		ANDI.W	#0x000f,D1
00011728 d2 42                    | B      |		ADD.W	D2,D1
0001172a 1d 81 00 f4              |        |		MOVE.B	D1,(A6+D0.W-#0xc)
0001172e 0c 06 00 03              |        |		CMPI.B	#0x03,D6
00011732 67 1e                    |g       |		BEQ	0x11752
00011734 10 06                    |        |		MOVE.B	D6,D0
00011736 48 80                    |H       |		EXTB.W	D0
00011738 41 fa ff 7a              |A  z    |		LEA.L	0x116b4,A0
0001173c 12 36 00 f4              | 6      |		MOVE.B	(A6+D0.W-#0xc),D1
00011740 b2 30 00 00              | 0      |		CMP.B	(A0+D0.W),D1
00011744 62 0a                    |b       |		BHI	0x11750
00011746 41 fa ff 64              |A  d    |		LEA.L	0x116ac,A0
0001174a b2 30 00 00              | 0      |		CMP.B	(A0+D0.W),D1
0001174e 64 02                    |d       |		BCC	0x11752
00011750 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00011752 52 06                    |R       |		ADDQ.B	#0x1,D6
00011754 0c 06 00 07              |        |		CMPI.B	#0x07,D6
00011758 6f b4                    |o       |		BLE	0x1170e
0001175a 4a 07                    |J       |		TST.B	D7
0001175c 66 06                    |f       |		BNE	0x11764
0001175e 20 51                    | Q      |		MOVEA.L	(A1),A0
00011760 42 90                    |B       |		CLR.L	(A0)
00011762 60 5a                    |`Z      |		BRA	0x117be
00011764 20 51                    | Q      |		MOVEA.L	(A1),A0
00011766 42 80                    |B       |		CLR.L	D0
00011768 10 2e ff f8              | .      |		MOVE.B	(A6-0x8),D0
0001176c c0 fc 07 08              |        |		MULU.W	#0x708,D0
00011770 42 81                    |B       |		CLR.L	D1
00011772 12 2e ff f9              | .      |		MOVE.B	(A6-0x7),D1
00011776 c2 fc 00 1e              |        |		MULU.W	#0x1e,D1
0001177a 42 82                    |B       |		CLR.L	D2
0001177c 34 01                    |4       |		MOVE.W	D1,D2
0001177e d4 80                    |        |		ADD.L	D0,D2
00011780 42 80                    |B       |		CLR.L	D0
00011782 10 2e ff fa              | .      |		MOVE.B	(A6-0x6),D0
00011786 e2 40                    | @      |		ASR.W	#0x1,D0
00011788 48 c0                    |H       |		EXTW.L	D0
0001178a d0 82                    |        |		ADD.L	D2,D0
0001178c 30 80                    |0       |		MOVE.W	D0,(A0)
0001178e 42 80                    |B       |		CLR.L	D0
00011790 10 2e ff f5              | .      |		MOVE.B	(A6-0xb),D0
00011794 02 68 fe 1f 00 02        | h      |		ANDI.W	#0xfe1f,(A0+0x2)
0001179a eb 48                    | H      |		LSL.W	#0x5,D0
0001179c 81 68 00 02              | h      |		OR.W	D0,(A0+0x2)
000117a0 10 2e ff f6              | .      |		MOVE.B	(A6-0xa),D0
000117a4 02 28 00 e0 00 03        | (      |		ANDI.B	#0xe0,(A0+0x3)
000117aa 81 28 00 03              | (      |		OR.B	D0,(A0+0x3)
000117ae 10 2e ff f4              | .      |		MOVE.B	(A6-0xc),D0
000117b2 02 28 00 01 00 02        | (      |		ANDI.B	#0x01,(A0+0x2)
000117b8 e3 08                    |        |		LSL.B	#0x1,D0
000117ba 81 28 00 02              | (      |		OR.B	D0,(A0+0x2)
000117be 4c df 03 c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0+A1
000117c2 4e 5e                    |N^      |		UNLK	A6
000117c4 4e 75                    |Nu      |		RTS
000117c6 ; --------------------------------------------------------------------------------------
000117c6 ; SetRtc(a: TimeStamp)
000117c6 ; Stack:
000117c6 ;     A6+0x8      a : TimeStamp
000117c6 ; OMSI PASCAL Function
000117c6 ;    <LVAR  0x00b 1(r)>
000117c6 ;    <LVAR  0x00a 1(r) 2(r)>
000117c6 ;    <LVAR  0x008 2(r)>
000117c6 ;    <LVAR -0x005 1(r)>
000117c6 ;    <LVAR -0x006 1(w)>
000117c6 ;    <LVAR -0x007 1(w)>
000117c6 ;    <LVAR -0x008 1(w)>
000117c6 ;    <LVAR -0x009 1(w)>
000117c6 ;    <LVAR -0x00a 1(w)>
000117c6 ;    <LVAR -0x00b 1(w)>
000117c6 ;    <LVAR -0x00c @ 1(w)>
000117c6 ; --------------------------------------------------------------------------------------
000117c6					_SetRtc(a: TimeStamp):
000117c6 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
000117ca bf d5                    |        |		CMPA.L	(A5),A7
000117cc 62 06                    |b       |		BHI	0x117d4
000117ce 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000117d2 4e 76                    |Nv      |		TRAPV
000117d4 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000117d8 48 e7 f3 80              |H       |		MOVEM.L	A0+D7+D6+D3+D2+D1+D0,-(A7)
000117dc 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
000117de 10 2e 00 0a              | .      |		MOVE.B	(A6+0xa),D0
000117e2 e2 08                    |        |		LSR.B	#0x1,D0
000117e4 1d 40 ff f4              | @      |		MOVE.B	D0,(A6-0xc)
000117e8 30 2e 00 0a              |0.      |		MOVE.W	(A6+0xa),D0
000117ec ef 48                    | H      |		LSL.W	#0x7,D0
000117ee e0 48                    | H      |		LSR.W	#0x8,D0
000117f0 e8 48                    | H      |		LSR.W	#0x4,D0
000117f2 1d 40 ff f5              | @      |		MOVE.B	D0,(A6-0xb)
000117f6 10 2e 00 0b              | .      |		MOVE.B	(A6+0xb),D0
000117fa e7 08                    |        |		LSL.B	#0x3,D0
000117fc e6 08                    |        |		LSR.B	#0x3,D0
000117fe 1d 40 ff f6              | @      |		MOVE.B	D0,(A6-0xa)
00011802 1d 7c 00 01 ff f7        | |      |		MOVE.B	#0x01,(A6-0x9)
00011808 42 80                    |B       |		CLR.L	D0
0001180a 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
0001180e 80 fc 07 08              |        |		DIVU.W	#0x708,D0
00011812 1d 40 ff f8              | @      |		MOVE.B	D0,(A6-0x8)
00011816 48 40                    |H@      |		SWAP.W	D0
00011818 42 81                    |B       |		CLR.L	D1
0001181a 32 00                    |2       |		MOVE.W	D0,D1
0001181c 82 c3                    |        |		DIVU.W	D3,D1
0001181e 1d 41 ff f9              | A      |		MOVE.B	D1,(A6-0x7)
00011822 42 80                    |B       |		CLR.L	D0
00011824 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00011828 80 c3                    |        |		DIVU.W	D3,D0
0001182a 48 40                    |H@      |		SWAP.W	D0
0001182c e3 40                    | @      |		ASL.W	#0x1,D0
0001182e 1d 40 ff fa              | @      |		MOVE.B	D0,(A6-0x6)
00011832 42 2e ff fb              |B.      |		CLR.B	(A6-0x5)
00011836 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00011838 7c 01                    ||       |		MOVEQ.L	#0x01,D6
0001183a 10 06                    |        |		MOVE.B	D6,D0
0001183c 48 80                    |H       |		EXTB.W	D0
0001183e 12 06                    |        |		MOVE.B	D6,D1
00011840 48 81                    |H       |		EXTB.W	D1
00011842 41 fa fe 70              |A  p    |		LEA.L	0x116b4,A0
00011846 14 36 00 f4              | 6      |		MOVE.B	(A6+D0.W-#0xc),D2
0001184a b4 30 10 00              | 0      |		CMP.B	(A0+D1.W),D2
0001184e 62 0e                    |b       |		BHI	0x1185e
00011850 12 06                    |        |		MOVE.B	D6,D1
00011852 48 81                    |H       |		EXTB.W	D1
00011854 41 fa fe 56              |A  V    |		LEA.L	0x116ac,A0
00011858 b4 30 10 00              | 0      |		CMP.B	(A0+D1.W),D2
0001185c 64 02                    |d       |		BCC	0x11860
0001185e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00011860 42 81                    |B       |		CLR.L	D1
00011862 12 02                    |        |		MOVE.B	D2,D1
00011864 82 fc 00 0a              |        |		DIVU.W	#0xa,D1
00011868 34 01                    |4       |		MOVE.W	D1,D2
0001186a e9 42                    | B      |		ASL.W	#0x4,D2
0001186c 48 41                    |HA      |		SWAP.W	D1
0001186e d2 42                    | B      |		ADD.W	D2,D1
00011870 1d 81 00 f4              |        |		MOVE.B	D1,(A6+D0.W-#0xc)
00011874 52 06                    |R       |		ADDQ.B	#0x1,D6
00011876 0c 06 00 07              |        |		CMPI.B	#0x07,D6
0001187a 6f be                    |o       |		BLE	0x1183a
0001187c 4a 07                    |J       |		TST.B	D7
0001187e 67 0c                    |g       |		BEQ	0x1188c
00011880 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00011884 4e b9 00 01 02 28        |N    (  |		JSR	KC14_WriteRtc
0001188a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001188c 4c df 01 cf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D6+D7+A0
00011890 4e 5e                    |N^      |		UNLK	A6
00011892 4e 75                    |Nu      |		RTS
00011894 ; --------------------------------------------------------------------------------------
00011894 ; OMSI PASCAL Function
00011894 ;    <LVAR  0x00a 4(r)>
00011894 ;    <LVAR  0x008 1(r)>
00011894 ; --------------------------------------------------------------------------------------
00011894 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00011898 bf d5                    |        |		CMPA.L	(A5),A7
0001189a 62 06                    |b       |		BHI	0x118a2
0001189c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000118a0 4e 76                    |Nv      |		TRAPV
000118a2 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
000118a6 48 e7 d8 80              |H       |		MOVEM.L	A0+D4+D3+D1+D0,-(A7)
000118aa 41 f9 00 01 0d a6        |A       |		LEA.L	_AppendChar(MOD b : String; a : char),A0
000118b0 72 30                    |r0      |		MOVEQ.L	#0x30,D1
000118b2 28 2e 00 0a              |(.      |		MOVE.L	(A6+0xa),D4
000118b6 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
000118b8 4e b9 00 01 08 0a        |N       |		JSR	_?divs_d3_d4
000118be 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000118c0 20 04                    |        |		MOVE.L	D4,D0
000118c2 d0 81                    |        |		ADD.L	D1,D0
000118c4 1f 00                    |        |		MOVE.B	D0,-(A7)
000118c6 4e 90                    |N       |		JSR	(A0)
000118c8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000118ca 2e 94                    |.       |		MOVE.L	(A4),(A7)
000118cc d6 41                    | A      |		ADD.W	D1,D3
000118ce 1f 03                    |        |		MOVE.B	D3,-(A7)
000118d0 4e 90                    |N       |		JSR	(A0)
000118d2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000118d4 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
000118d8 67 0a                    |g       |		BEQ	0x118e4
000118da 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000118dc 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000118e0 4e 90                    |N       |		JSR	(A0)
000118e2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000118e4 4c df 01 1b              |L       |		MOVEM.L	(A7)+,D0+D1+D3+D4+A0
000118e8 4e 5e                    |N^      |		UNLK	A6
000118ea 4e 75                    |Nu      |		RTS
000118ec ; --------------------------------------------------------------------------------------
000118ec ; TimeToText()
000118ec ; OMSI PASCAL Function
000118ec ;    <LVAR  0x00c 4(w)>
000118ec ;    <LVAR  0x00b 1(r)>
000118ec ;    <LVAR  0x00a 1(r) 2(r)>
000118ec ;    <LVAR  0x008 2(r)>
000118ec ;    <LVAR -0x004 2(w)>
000118ec ;    <LVAR -0x014 @ 4(rw)>
000118ec ; --------------------------------------------------------------------------------------
000118ec					_TimeToText():
000118ec 4e 56 ff 96              |NV      |		LINK.W	A6,#0xff96
000118f0 bf d5                    |        |		CMPA.L	(A5),A7
000118f2 62 06                    |b       |		BHI	0x118fa
000118f4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000118f8 4e 76                    |Nv      |		TRAPV
000118fa de fc 00 56              |   V    |		ADDA.W	#0x56,A7
000118fe 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00011902 43 ee ff ec              |C       |		LEA.L	(A6-0x14),A1
00011906 45 fa ff 8c              |E       |		LEA.L	0x11894,A2
0001190a 47 ee 00 0a              |G       |		LEA.L	(A6+0xa),A3
0001190e 74 01                    |t       |		MOVEQ.L	#0x01,D2
00011910 76 12                    |v       |		MOVEQ.L	#0x12,D3
00011912 78 3a                    |x:      |		MOVEQ.L	#0x3a,D4
00011914 30 13                    |0       |		MOVE.W	(A3),D0
00011916 ef 48                    | H      |		LSL.W	#0x7,D0
00011918 e0 48                    | H      |		LSR.W	#0x8,D0
0001191a e8 48                    | H      |		LSR.W	#0x4,D0
0001191c 66 26                    |f&      |		BNE	0x11944
0001191e 41 fa fd 8c              |A       |		LEA.L	0x116ac,A0
00011922 70 08                    |p       |		MOVEQ.L	#0x08,D0
00011924 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00011926 51 c8 ff fc              |Q       |		DBF	D0,0x11924
0001192a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0001192c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00011930 3f 02                    |?       |		MOVE.W	D2,-(A7)
00011932 3f 03                    |?       |		MOVE.W	D3,-(A7)
00011934 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
0001193a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001193c 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
0001193e de c3                    |        |		ADDA.W	D3,A7
00011940 60 00 00 da              |`       |		BRA	0x11a1c
00011944 48 51                    |HQ      |		PEA.L	(A1)
00011946 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
0001194c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001194e 42 80                    |B       |		CLR.L	D0
00011950 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00011954 80 fc 07 08              |        |		DIVU.W	#0x708,D0
00011958 42 81                    |B       |		CLR.L	D1
0001195a 32 00                    |2       |		MOVE.W	D0,D1
0001195c 2e 01                    |.       |		MOVE.L	D1,D7
0001195e 48 40                    |H@      |		SWAP.W	D0
00011960 3d 40 ff fc              |=@      |		MOVE.W	D0,(A6-0x4)
00011964 42 81                    |B       |		CLR.L	D1
00011966 32 00                    |2       |		MOVE.W	D0,D1
00011968 82 fc 00 1e              |        |		DIVU.W	#0x1e,D1
0001196c 42 80                    |B       |		CLR.L	D0
0001196e 30 01                    |0       |		MOVE.W	D1,D0
00011970 2c 00                    |,       |		MOVE.L	D0,D6
00011972 48 41                    |HA      |		SWAP.W	D1
00011974 e3 41                    | A      |		ASL.W	#0x1,D1
00011976 42 80                    |B       |		CLR.L	D0
00011978 30 01                    |0       |		MOVE.W	D1,D0
0001197a 2a 00                    |*       |		MOVE.L	D0,D5
0001197c 2f 07                    |/       |		MOVE.L	D7,-(A7)
0001197e 1f 04                    |        |		MOVE.B	D4,-(A7)
00011980 28 49                    |(I      |		MOVEA.L	A1,A4
00011982 4e 92                    |N       |		JSR	(A2)
00011984 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00011986 2e 86                    |.       |		MOVE.L	D6,(A7)
00011988 1f 04                    |        |		MOVE.B	D4,-(A7)
0001198a 28 49                    |(I      |		MOVEA.L	A1,A4
0001198c 4e 92                    |N       |		JSR	(A2)
0001198e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00011990 2e 85                    |.       |		MOVE.L	D5,(A7)
00011992 1f 3c 00 20              | <      |		MOVE.B	#0x20,-(A7)
00011996 28 49                    |(I      |		MOVEA.L	A1,A4
00011998 4e 92                    |N       |		JSR	(A2)
0001199a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001199c 42 80                    |B       |		CLR.L	D0
0001199e 10 2e 00 0b              | .      |		MOVE.B	(A6+0xb),D0
000119a2 e7 08                    |        |		LSL.B	#0x3,D0
000119a4 e6 08                    |        |		LSR.B	#0x3,D0
000119a6 2f 00                    |/       |		MOVE.L	D0,-(A7)
000119a8 1f 3c 00 2d              | < -    |		MOVE.B	#0x2d,-(A7)
000119ac 28 49                    |(I      |		MOVEA.L	A1,A4
000119ae 4e 92                    |N       |		JSR	(A2)
000119b0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000119b2 30 13                    |0       |		MOVE.W	(A3),D0
000119b4 ef 48                    | H      |		LSL.W	#0x7,D0
000119b6 e0 48                    | H      |		LSR.W	#0x8,D0
000119b8 e8 48                    | H      |		LSR.W	#0x4,D0
000119ba c0 fc 00 03              |        |		MULU.W	#0x3,D0
000119be 42 81                    |B       |		CLR.L	D1
000119c0 32 00                    |2       |		MOVE.W	D0,D1
000119c2 41 fa fc f8              |A       |		LEA.L	0x116bc,A0
000119c6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000119c8 1e b0 18 fd              |        |		MOVE.B	(A0+D1.L-#0x3),(A7)
000119cc 1f 70 18 fe 00 01        | p      |		MOVE.B	(A0+D1.L-#0x2),(A7+0x1)
000119d2 1f 70 18 ff 00 02        | p      |		MOVE.B	(A0+D1.L-#0x1),(A7+0x2)
000119d8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000119da 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000119dc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000119de 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000119e2 3f 02                    |?       |		MOVE.W	D2,-(A7)
000119e4 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
000119e8 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
000119ee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000119f0 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
000119f6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000119f8 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
000119fa 2e 91                    |.       |		MOVE.L	(A1),(A7)
000119fc 1f 3c 00 2d              | < -    |		MOVE.B	#0x2d,-(A7)
00011a00 4e b9 00 01 0d a6        |N       |		JSR	_AppendChar(MOD b : String; a : char)
00011a06 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00011a08 42 80                    |B       |		CLR.L	D0
00011a0a 10 13                    |        |		MOVE.B	(A3),D0
00011a0c e2 08                    |        |		LSR.B	#0x1,D0
00011a0e 52 40                    |R@      |		ADDQ.W	#0x1,D0
00011a10 48 c0                    |H       |		EXTW.L	D0
00011a12 2f 00                    |/       |		MOVE.L	D0,-(A7)
00011a14 42 27                    |B'      |		CLR.B	-(A7)
00011a16 28 49                    |(I      |		MOVEA.L	A1,A4
00011a18 4e 92                    |N       |		JSR	(A2)
00011a1a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00011a1c 2d 51 00 0c              |-Q      |		MOVE.L	(A1),(A6+0xc)
00011a20 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00011a24 4e 5e                    |N^      |		UNLK	A6
00011a26 4e 75                    |Nu      |		RTS
00011a28 ; --------------------------------------------------------------------------------------
00011a28 ; OMSI PASCAL Function
00011a28 ;    <LVAR  0x018 4(r)>
00011a28 ;    <LVAR  0x014 4(r)>
00011a28 ;    <LVAR  0x010 4(r)>
00011a28 ;    <LVAR  0x00c 4(r)>
00011a28 ;    <LVAR  0x008 4(r)>
00011a28 ;    <LVAR -0x004 @ 4(r)>
00011a28 ; --------------------------------------------------------------------------------------
00011a28 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
00011a2c bf d5                    |        |		CMPA.L	(A5),A7
00011a2e 62 06                    |b       |		BHI	0x11a36
00011a30 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00011a34 4e 76                    |Nv      |		TRAPV
00011a36 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00011a3a 48 e7 e0 e0              |H       |		MOVEM.L	A2+A1+A0+D2+D1+D0,-(A7)
00011a3e 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00011a42 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00011a44 48 52                    |HR      |		PEA.L	(A2)
00011a46 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
00011a4c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011a4e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00011a52 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
00011a56 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00011a58 48 50                    |HP      |		PEA.L	(A0)
00011a5a 4e b9 00 01 14 d6        |N       |		JSR	_FirstField(MOD input : String; MOD output : String; VAR c : Bool
00011a60 de c2                    |        |		ADDA.W	D2,A7
00011a62 4a 10                    |J       |		TST.B	(A0)
00011a64 66 0c                    |f       |		BNE	0x11a72
00011a66 48 52                    |HR      |		PEA.L	(A2)
00011a68 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00011a6e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011a70 60 2c                    |`,      |		BRA	0x11a9e
00011a72 22 6e 00 14              |"n      |		MOVEA.L	(A6+0x14),A1
00011a76 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00011a78 48 50                    |HP      |		PEA.L	(A0)
00011a7a 48 51                    |HQ      |		PEA.L	(A1)
00011a7c 4e b9 00 01 12 88        |N       |		JSR	_String2Long(src : String; VAR status : Bool; VAR retval : Long)
00011a82 de c2                    |        |		ADDA.W	D2,A7
00011a84 70 00                    |p       |		MOVEQ.L	#0x00,D0
00011a86 4a 10                    |J       |		TST.B	(A0)
00011a88 67 12                    |g       |		BEQ	0x11a9c
00011a8a 22 11                    |"       |		MOVE.L	(A1),D1
00011a8c b2 ae 00 10              |        |		CMP.L	(A6+0x10),D1
00011a90 6d 0a                    |m       |		BLT	0x11a9c
00011a92 22 11                    |"       |		MOVE.L	(A1),D1
00011a94 b2 ae 00 0c              |        |		CMP.L	(A6+0xc),D1
00011a98 6e 02                    |n       |		BGT	0x11a9c
00011a9a 52 00                    |R       |		ADDQ.B	#0x1,D0
00011a9c 10 80                    |        |		MOVE.B	D0,(A0)
00011a9e 4c df 07 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2
00011aa2 4e 5e                    |N^      |		UNLK	A6
00011aa4 4e 75                    |Nu      |		RTS
00011aa6 ; --------------------------------------------------------------------------------------
00011aa6 ; OMSI PASCAL Function
00011aa6 ;    <LVAR  0x010 4(r)>
00011aa6 ;    <LVAR  0x00c 4(r)>
00011aa6 ;    <LVAR  0x008 4(r)>
00011aa6 ;    <LVAR -0x00c @ 4(rw)>
00011aa6 ;    <LVAR -0x010 @ 4(rw)>
00011aa6 ; --------------------------------------------------------------------------------------
00011aa6 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
00011aaa bf d5                    |        |		CMPA.L	(A5),A7
00011aac 62 06                    |b       |		BHI	0x11ab4
00011aae 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00011ab2 4e 76                    |Nv      |		TRAPV
00011ab4 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00011ab8 48 e7 9b e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D4+D3+D0,-(A7)
00011abc 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
00011ac0 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
00011ac4 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00011ac6 48 51                    |HQ      |		PEA.L	(A1)
00011ac8 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
00011ace 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011ad0 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00011ad4 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00011ad8 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00011ada 48 50                    |HP      |		PEA.L	(A0)
00011adc 4e b9 00 01 14 d6        |N       |		JSR	_FirstField(MOD input : String; MOD output : String; VAR c : Bool
00011ae2 de c0                    |        |		ADDA.W	D0,A7
00011ae4 4a 10                    |J       |		TST.B	(A0)
00011ae6 66 02                    |f       |		BNE	0x11aea
00011ae8 60 7a                    |`z      |		BRA	0x11b64
00011aea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00011aec 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00011aee 4e b9 00 01 13 b4        |N       |		JSR	_ToUpper(a : String) : String
00011af4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011af6 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00011af8 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00011afa 28 06                    |(       |		MOVE.L	D6,D4
00011afc 76 03                    |v       |		MOVEQ.L	#0x03,D3
00011afe 4e b9 00 01 07 ea        |N       |		JSR	_?muls_d3_d4
00011b04 41 fa fb b6              |A       |		LEA.L	0x116bc,A0
00011b08 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00011b0a 1e b0 48 fd              |  H     |		MOVE.B	(A0+D4.L-#0x3),(A7)
00011b0e 1f 70 48 fe 00 01        | pH     |		MOVE.B	(A0+D4.L-#0x2),(A7+0x1)
00011b14 1f 70 48 ff 00 02        | pH     |		MOVE.B	(A0+D4.L-#0x1),(A7+0x2)
00011b1a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00011b1c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00011b20 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00011b24 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00011b28 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00011b2e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00011b30 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00011b32 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00011b34 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00011b36 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00011b38 4e b9 00 01 0e 92        |N       |		JSR	_StringEqual(a, b : String) : Byte
00011b3e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00011b40 1e 1f                    |        |		MOVE.B	(A7)+,D7
00011b42 48 52                    |HR      |		PEA.L	(A2)
00011b44 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00011b4a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011b4c 4a 07                    |J       |		TST.B	D7
00011b4e 67 08                    |g       |		BEQ	0x11b58
00011b50 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00011b54 20 86                    |        |		MOVE.L	D6,(A0)
00011b56 60 0c                    |`       |		BRA	0x11b64
00011b58 52 86                    |R       |		ADDQ.L	#0x1,D6
00011b5a bc 80                    |        |		CMP.L	D0,D6
00011b5c 6f 9c                    |o       |		BLE	0x11afa
00011b5e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00011b62 42 10                    |B       |		CLR.B	(A0)
00011b64 48 51                    |HQ      |		PEA.L	(A1)
00011b66 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00011b6c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011b6e 4c df 07 d9              |L       |		MOVEM.L	(A7)+,D0+D3+D4+D6+D7+A0+A1+A2
00011b72 4e 5e                    |N^      |		UNLK	A6
00011b74 4e 75                    |Nu      |		RTS
00011b76 ; --------------------------------------------------------------------------------------
00011b76 ; ConvertTimestamp(MOD input : String; b : L; VAR status : Bool)
00011b76 ; Stack:
00011b76 ;     A6+0x10     input : String
00011b76 ;     A6+0xc      b : L
00011b76 ;     A6+0x8  VAR status : Bool
00011b76 ; OMSI PASCAL Function
00011b76 ;    <LVAR  0x010 @ 4(r)>
00011b76 ;    <LVAR  0x00c 4(r)>
00011b76 ;    <LVAR  0x008 4(r)>
00011b76 ;    <LVAR -0x008 @ 4(r)>
00011b76 ;    <LVAR -0x00c @ 4(r)>
00011b76 ;    <LVAR -0x010 @ 4(r)>
00011b76 ;    <LVAR -0x014 @ 4(r)>
00011b76 ;    <LVAR -0x018 @ 4(r)>
00011b76 ;    <LVAR -0x01c @ 4(r)>
00011b76 ; --------------------------------------------------------------------------------------
00011b76					_ConvertTimestamp(MOD input : String; b : L; VAR status : Bool):
00011b76 4e 56 ff 9c              |NV      |		LINK.W	A6,#0xff9c
00011b7a bf d5                    |        |		CMPA.L	(A5),A7
00011b7c 62 06                    |b       |		BHI	0x11b84
00011b7e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00011b82 4e 76                    |Nv      |		TRAPV
00011b84 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
00011b88 48 e7 d9 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D4+D3+D1+D0,-(A7)
00011b8c 43 ee 00 10              |C       |		LEA.L	(A6+0x10),A1
00011b90 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00011b94 47 fa fe 92              |G       |		LEA.L	0x11a28,A3
00011b98 49 f8 00 00              |I       |		LEA.L	0x0,A4
00011b9c 72 14                    |r       |		MOVEQ.L	#0x14,D1
00011b9e 20 51                    | Q      |		MOVEA.L	(A1),A0
00011ba0 2f 08                    |/       |		MOVE.L	A0,-(A7)
00011ba2 30 10                    |0       |		MOVE.W	(A0),D0
00011ba4 48 c0                    |H       |		EXTW.L	D0
00011ba6 2f 00                    |/       |		MOVE.L	D0,-(A7)
00011ba8 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00011baa be 97                    |        |		CMP.L	(A7),D7
00011bac 6e 1e                    |n       |		BGT	0x11bcc
00011bae 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00011bb2 10 30 78 01              | 0x     |		MOVE.B	(A0+D7.L+#0x1),D0
00011bb6 0c 00 00 3a              |   :    |		CMPI.B	#0x3a,D0
00011bba 67 06                    |g       |		BEQ	0x11bc2
00011bbc 0c 00 00 2d              |   -    |		CMPI.B	#0x2d,D0
00011bc0 66 06                    |f       |		BNE	0x11bc8
00011bc2 11 bc 00 20 78 01        |    x   |		MOVE.B	#0x20,(A0+D7.L+#0x1)
00011bc8 52 87                    |R       |		ADDQ.L	#0x1,D7
00011bca 68 de                    |h       |		BVC	0x11baa
00011bcc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00011bce 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00011bd2 42 90                    |B       |		CLR.L	(A0)
00011bd4 20 52                    | R      |		MOVEA.L	(A2),A0
00011bd6 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00011bd8 48 6e ff e4              |Hn      |		PEA.L	(A6-0x1c)
00011bdc 48 54                    |HT      |		PEA.L	(A4)
00011bde 48 78 00 17              |Hx      |		PEA.L	0x17
00011be2 48 50                    |HP      |		PEA.L	(A0)
00011be4 4e 93                    |N       |		JSR	(A3)
00011be6 de c1                    |        |		ADDA.W	D1,A7
00011be8 4a 10                    |J       |		TST.B	(A0)
00011bea 66 04                    |f       |		BNE	0x11bf0
00011bec 60 00 00 f6              |`       |		BRA	0x11ce4
00011bf0 20 52                    | R      |		MOVEA.L	(A2),A0
00011bf2 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00011bf4 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00011bf8 48 54                    |HT      |		PEA.L	(A4)
00011bfa 48 78 00 3b              |Hx ;    |		PEA.L	0x3b
00011bfe 48 50                    |HP      |		PEA.L	(A0)
00011c00 4e 93                    |N       |		JSR	(A3)
00011c02 de c1                    |        |		ADDA.W	D1,A7
00011c04 4a 10                    |J       |		TST.B	(A0)
00011c06 66 04                    |f       |		BNE	0x11c0c
00011c08 60 00 00 da              |`       |		BRA	0x11ce4
00011c0c 20 52                    | R      |		MOVEA.L	(A2),A0
00011c0e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00011c10 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
00011c14 48 54                    |HT      |		PEA.L	(A4)
00011c16 48 78 00 3b              |Hx ;    |		PEA.L	0x3b
00011c1a 48 50                    |HP      |		PEA.L	(A0)
00011c1c 4e 93                    |N       |		JSR	(A3)
00011c1e de c1                    |        |		ADDA.W	D1,A7
00011c20 4a 10                    |J       |		TST.B	(A0)
00011c22 66 04                    |f       |		BNE	0x11c28
00011c24 60 00 00 be              |`       |		BRA	0x11ce4
00011c28 20 52                    | R      |		MOVEA.L	(A2),A0
00011c2a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00011c2c 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00011c30 48 78 00 01              |Hx      |		PEA.L	0x1
00011c34 48 78 00 1f              |Hx      |		PEA.L	0x1f
00011c38 48 50                    |HP      |		PEA.L	(A0)
00011c3a 4e 93                    |N       |		JSR	(A3)
00011c3c de c1                    |        |		ADDA.W	D1,A7
00011c3e 4a 10                    |J       |		TST.B	(A0)
00011c40 66 04                    |f       |		BNE	0x11c46
00011c42 60 00 00 a0              |`       |		BRA	0x11ce4
00011c46 20 52                    | R      |		MOVEA.L	(A2),A0
00011c48 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00011c4a 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00011c4e 48 50                    |HP      |		PEA.L	(A0)
00011c50 4e ba fe 54              |N  T    |		JSR	0x11aa6
00011c54 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00011c58 4a 10                    |J       |		TST.B	(A0)
00011c5a 66 04                    |f       |		BNE	0x11c60
00011c5c 60 00 00 86              |`       |		BRA	0x11ce4
00011c60 20 52                    | R      |		MOVEA.L	(A2),A0
00011c62 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00011c64 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00011c68 48 78 00 01              |Hx      |		PEA.L	0x1
00011c6c 48 78 00 63              |Hx c    |		PEA.L	0x63
00011c70 48 50                    |HP      |		PEA.L	(A0)
00011c72 4e 93                    |N       |		JSR	(A3)
00011c74 de c1                    |        |		ADDA.W	D1,A7
00011c76 4a 10                    |J       |		TST.B	(A0)
00011c78 66 02                    |f       |		BNE	0x11c7c
00011c7a 60 68                    |`h      |		BRA	0x11ce4
00011c7c 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00011c80 20 2e ff f8              | .      |		MOVE.L	(A6-0x8),D0
00011c84 53 80                    |S       |		SUBQ.L	#0x1,D0
00011c86 02 28 00 01 00 02        | (      |		ANDI.B	#0x01,(A0+0x2)
00011c8c e3 08                    |        |		LSL.B	#0x1,D0
00011c8e 81 28 00 02              | (      |		OR.B	D0,(A0+0x2)
00011c92 20 2e ff f4              | .      |		MOVE.L	(A6-0xc),D0
00011c96 02 68 fe 1f 00 02        | h      |		ANDI.W	#0xfe1f,(A0+0x2)
00011c9c eb 48                    | H      |		LSL.W	#0x5,D0
00011c9e 81 68 00 02              | h      |		OR.W	D0,(A0+0x2)
00011ca2 20 2e ff f0              | .      |		MOVE.L	(A6-0x10),D0
00011ca6 02 28 00 e0 00 03        | (      |		ANDI.B	#0xe0,(A0+0x3)
00011cac 81 28 00 03              | (      |		OR.B	D0,(A0+0x3)
00011cb0 28 2e ff e4              |(.      |		MOVE.L	(A6-0x1c),D4
00011cb4 26 3c 00 00 07 08        |&<      |		MOVE.L	#0x708,D3
00011cba 4e b9 00 01 07 ea        |N       |		JSR	_?muls_d3_d4
00011cc0 2f 04                    |/       |		MOVE.L	D4,-(A7)
00011cc2 28 2e ff e8              |(.      |		MOVE.L	(A6-0x18),D4
00011cc6 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00011cc8 4e b9 00 01 07 ea        |N       |		JSR	_?muls_d3_d4
00011cce 20 17                    |        |		MOVE.L	(A7),D0
00011cd0 d0 84                    |        |		ADD.L	D4,D0
00011cd2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011cd4 28 2e ff ec              |(.      |		MOVE.L	(A6-0x14),D4
00011cd8 76 02                    |v       |		MOVEQ.L	#0x02,D3
00011cda 4e b9 00 01 08 0a        |N       |		JSR	_?divs_d3_d4
00011ce0 d8 80                    |        |		ADD.L	D0,D4
00011ce2 30 84                    |0       |		MOVE.W	D4,(A0)
00011ce4 48 51                    |HQ      |		PEA.L	(A1)
00011ce6 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00011cec 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00011cee 4c df 1f 9b              |L       |		MOVEM.L	(A7)+,D0+D1+D3+D4+D7+A0+A1+A2+A3+A4
00011cf2 4e 5e                    |N^      |		UNLK	A6
00011cf4 4e 75                    |Nu      |		RTS
00011cf6 ; --------------------------------------------------------------------------------------
00011cf6 ; Add(a, b : Quad) : Quad
00011cf6 ; Stack:
00011cf6 ;     A6+0x18 VAR RETURN : Quad
00011cf6 ;     A6+0x10     a : Quad
00011cf6 ;     A6+0x8      b : Quad
00011cf6 ; --------------------------------------------------------------------------------------
00011cf6					_Add(a, b : Quad) : Quad:
00011cf6 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00011cfa 48 e7 e0 00              |H       |		MOVEM.L	D2+D1+D0,-(A7)
00011cfe bf d5                    |        |		CMPA.L	(A5),A7
00011d00 4e 76                    |Nv      |		TRAPV
00011d02 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
00011d06 22 2e 00 14              |".      |		MOVE.L	(A6+0x14),D1
00011d0a 24 2e 00 08              |$.      |		MOVE.L	(A6+0x8),D2
00011d0e d2 ae 00 0c              |        |		ADD.L	(A6+0xc),D1
00011d12 d1 82                    |        |		ADDX.L	D2,D0
00011d14 68 0a                    |h       |		BVC	0x11d20
00011d16 1f 3c 00 08              | <      |		MOVE.B	#0x08,-(A7)
00011d1a 4e b9 00 01 07 04        |N       |		JSR	0x10704
00011d20 2d 40 00 18              |-@      |		MOVE.L	D0,(A6+0x18)
00011d24 2d 41 00 1c              |-A      |		MOVE.L	D1,(A6+0x1c)
00011d28 4c df 00 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2
00011d2c 4e 5e                    |N^      |		UNLK	A6
00011d2e 4e 75                    |Nu      |		RTS
00011d30 ; --------------------------------------------------------------------------------------
00011d30 ; Subtract(a, b : Quad) : Quad
00011d30 ; Stack:
00011d30 ;     A6+0x18 VAR RETURN : Quad
00011d30 ;     A6+0x10     a : Quad
00011d30 ;     A6+0x8      b : Quad
00011d30 ; --------------------------------------------------------------------------------------
00011d30					_Subtract(a, b : Quad) : Quad:
00011d30 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00011d34 48 e7 e0 00              |H       |		MOVEM.L	D2+D1+D0,-(A7)
00011d38 bf d5                    |        |		CMPA.L	(A5),A7
00011d3a 4e 76                    |Nv      |		TRAPV
00011d3c 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
00011d40 22 2e 00 14              |".      |		MOVE.L	(A6+0x14),D1
00011d44 24 2e 00 08              |$.      |		MOVE.L	(A6+0x8),D2
00011d48 92 ae 00 0c              |        |		SUB.L	(A6+0xc),D1
00011d4c 91 82                    |        |		SUBX.L	D2,D0
00011d4e 68 0a                    |h       |		BVC	0x11d5a
00011d50 1f 3c 00 07              | <      |		MOVE.B	#0x07,-(A7)
00011d54 4e b9 00 01 07 04        |N       |		JSR	0x10704
00011d5a 2d 40 00 18              |-@      |		MOVE.L	D0,(A6+0x18)
00011d5e 2d 41 00 1c              |-A      |		MOVE.L	D1,(A6+0x1c)
00011d62 4c df 00 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2
00011d66 4e 5e                    |N^      |		UNLK	A6
00011d68 4e 75                    |Nu      |		RTS
00011d6a ; --------------------------------------------------------------------------------------
00011d6a ; Multiply(a, b : Quad) : Quad
00011d6a ; Stack:
00011d6a ;     A6+0x18 VAR RETURN : Quad
00011d6a ;     A6+0x10     a : Quad
00011d6a ;     A6+0x8      b : Quad
00011d6a ; --------------------------------------------------------------------------------------
00011d6a					_Multiply(a, b : Quad) : Quad:
00011d6a 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00011d6e 48 e7 f8 00              |H       |		MOVEM.L	D4+D3+D2+D1+D0,-(A7)
00011d72 bf d5                    |        |		CMPA.L	(A5),A7
00011d74 4e 76                    |Nv      |		TRAPV
00011d76 22 2e 00 14              |".      |		MOVE.L	(A6+0x14),D1
00011d7a 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
00011d7e 5b c4                    |[       |		SMI.B	D4
00011d80 6c 04                    |l       |		BGE	0x11d86
00011d82 44 81                    |D       |		NEG.L	D1
00011d84 40 80                    |@       |		NEGX.L	D0
00011d86 26 2e 00 0c              |&.      |		MOVE.L	(A6+0xc),D3
00011d8a 24 2e 00 08              |$.      |		MOVE.L	(A6+0x8),D2
00011d8e 6c 06                    |l       |		BGE	0x11d96
00011d90 46 04                    |F       |		NOT.B	D4
00011d92 44 83                    |D       |		NEG.L	D3
00011d94 40 82                    |@       |		NEGX.L	D2
00011d96 4a 82                    |J       |		TST.L	D2
00011d98 67 08                    |g       |		BEQ	0x11da2
00011d9a c1 42                    | B      |		EXG.L	D0,D2
00011d9c c3 43                    | C      |		EXG.L	D1,D3
00011d9e 4a 82                    |J       |		TST.L	D2
00011da0 66 1c                    |f       |		BNE	0x11dbe
00011da2 4c 03 14 02              |L       |		mULU.L	D3,D2,D1
00011da6 4a 80                    |J       |		TST.L	D0
00011da8 67 0c                    |g       |		BEQ	0x11db6
00011daa 4c 03 04 03              |L       |		mULU.L	D3,D3,D0
00011dae d0 82                    |        |		ADD.L	D2,D0
00011db0 65 0c                    |e       |		BCS	0x11dbe
00011db2 4a 83                    |J       |		TST.L	D3
00011db4 66 08                    |f       |		BNE	0x11dbe
00011db6 4a 04                    |J       |		TST.B	D4
00011db8 6b 0e                    |k       |		BMI	0x11dc8
00011dba 4a 80                    |J       |		TST.L	D0
00011dbc 6a 10                    |j       |		BPL	0x11dce
00011dbe 1f 3c 00 09              | <      |		MOVE.B	#0x09,-(A7)
00011dc2 4e b9 00 01 07 04        |N       |		JSR	0x10704
00011dc8 44 81                    |D       |		NEG.L	D1
00011dca 40 80                    |@       |		NEGX.L	D0
00011dcc 6a f0                    |j       |		BPL	0x11dbe
00011dce 2d 40 00 18              |-@      |		MOVE.L	D0,(A6+0x18)
00011dd2 2d 41 00 1c              |-A      |		MOVE.L	D1,(A6+0x1c)
00011dd6 4c df 00 1f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4
00011dda 4e 5e                    |N^      |		UNLK	A6
00011ddc 4e 75                    |Nu      |		RTS
00011dde ; --------------------------------------------------------------------------------------
00011dde ; Divide(a, b : Quad) : Quad
00011dde ; Stack:
00011dde ;     A6+0x18 VAR RETURN : Quad
00011dde ;     A6+0x10     a : Quad
00011dde ;     A6+0x8      b : Quad
00011dde ; --------------------------------------------------------------------------------------
00011dde					_Divide(a, b : Quad) : Quad:
00011dde 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00011de2 48 e7 fe 00              |H       |		MOVEM.L	D6+D5+D4+D3+D2+D1+D0,-(A7)
00011de6 bf d5                    |        |		CMPA.L	(A5),A7
00011de8 4e 76                    |Nv      |		TRAPV
00011dea 22 2e 00 14              |".      |		MOVE.L	(A6+0x14),D1
00011dee 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
00011df2 5b c4                    |[       |		SMI.B	D4
00011df4 6c 04                    |l       |		BGE	0x11dfa
00011df6 44 81                    |D       |		NEG.L	D1
00011df8 40 80                    |@       |		NEGX.L	D0
00011dfa 26 2e 00 0c              |&.      |		MOVE.L	(A6+0xc),D3
00011dfe 24 2e 00 08              |$.      |		MOVE.L	(A6+0x8),D2
00011e02 6c 06                    |l       |		BGE	0x11e0a
00011e04 46 04                    |F       |		NOT.B	D4
00011e06 44 83                    |D       |		NEG.L	D3
00011e08 40 82                    |@       |		NEGX.L	D2
00011e0a 4a 82                    |J       |		TST.L	D2
00011e0c 66 0e                    |f       |		BNE	0x11e1c
00011e0e 4a 83                    |J       |		TST.L	D3
00011e10 67 5a                    |gZ      |		BEQ	0x11e6c
00011e12 4c 43 00 02              |LC      |		DIVU.L	D3,D2,D0
00011e16 4c 43 14 02              |LC      |		DIVUL.L	D3,D2,D1
00011e1a 60 48                    |`H      |		BRA	0x11e64
00011e1c 42 85                    |B       |		CLR.L	D5
00011e1e 4a 82                    |J       |		TST.L	D2
00011e20 60 0a                    |`       |		BRA	0x11e2c
00011e22 d2 81                    |        |		ADD.L	D1,D1
00011e24 d1 80                    |        |		ADDX.L	D0,D0
00011e26 db 85                    |        |		ADDX.L	D5,D5
00011e28 d6 83                    |        |		ADD.L	D3,D3
00011e2a d5 82                    |        |		ADDX.L	D2,D2
00011e2c 6a f4                    |j       |		BPL	0x11e22
00011e2e 4a 85                    |J       |		TST.L	D5
00011e30 67 20                    |g       |		BEQ	0x11e52
00011e32 2c 03                    |,       |		MOVE.L	D3,D6
00011e34 4c 42 04 05              |LB      |		DIVUL.L	D2,D5,D0
00011e38 4c 00 34 02              |L 4     |		mULU.L	D0,D2,D3
00011e3c 92 83                    |        |		SUB.L	D3,D1
00011e3e 9b 82                    |        |		SUBX.L	D2,D5
00011e40 64 0a                    |d       |		BCC	0x11e4c
00011e42 42 82                    |B       |		CLR.L	D2
00011e44 53 80                    |S       |		SUBQ.L	#0x1,D0
00011e46 d2 86                    |        |		ADD.L	D6,D1
00011e48 db 82                    |        |		ADDX.L	D2,D5
00011e4a 64 f8                    |d       |		BCC	0x11e44
00011e4c 22 00                    |"       |		MOVE.L	D0,D1
00011e4e 42 80                    |B       |		CLR.L	D0
00011e50 60 12                    |`       |		BRA	0x11e64
00011e52 42 85                    |B       |		CLR.L	D5
00011e54 b0 82                    |        |		CMP.L	D2,D0
00011e56 65 08                    |e       |		BCS	0x11e60
00011e58 62 04                    |b       |		BHI	0x11e5e
00011e5a b2 83                    |        |		CMP.L	D3,D1
00011e5c 65 02                    |e       |		BCS	0x11e60
00011e5e 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00011e60 42 80                    |B       |		CLR.L	D0
00011e62 22 05                    |"       |		MOVE.L	D5,D1
00011e64 4a 04                    |J       |		TST.B	D4
00011e66 6b 0e                    |k       |		BMI	0x11e76
00011e68 4a 80                    |J       |		TST.L	D0
00011e6a 6a 10                    |j       |		BPL	0x11e7c
00011e6c 1f 3c 00 0a              | <      |		MOVE.B	#0x0a,-(A7)
00011e70 4e b9 00 01 07 04        |N       |		JSR	0x10704
00011e76 44 81                    |D       |		NEG.L	D1
00011e78 40 80                    |@       |		NEGX.L	D0
00011e7a 6a f0                    |j       |		BPL	0x11e6c
00011e7c 2d 40 00 18              |-@      |		MOVE.L	D0,(A6+0x18)
00011e80 2d 41 00 1c              |-A      |		MOVE.L	D1,(A6+0x1c)
00011e84 4c df 00 7f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6
00011e88 4e 5e                    |N^      |		UNLK	A6
00011e8a 4e 75                    |Nu      |		RTS
00011e8c ; --------------------------------------------------------------------------------------
00011e8c ; IsGreater(a, b : Quad) : Bool
00011e8c ; Stack:
00011e8c ;     A6+0x18 VAR RETURN : Bool
00011e8c ;     A6+0x10     a : Quad
00011e8c ;     A6+0x8      b : Quad
00011e8c ; --------------------------------------------------------------------------------------
00011e8c					_IsGreater(a, b : Quad) : Bool:
00011e8c 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00011e90 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00011e94 bf d5                    |        |		CMPA.L	(A5),A7
00011e96 4e 76                    |Nv      |		TRAPV
00011e98 42 2e 00 18              |B.      |		CLR.B	(A6+0x18)
00011e9c 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
00011ea0 b0 ae 00 08              |        |		CMP.L	(A6+0x8),D0
00011ea4 6d 12                    |m       |		BLT	0x11eb8
00011ea6 6e 0a                    |n       |		BGT	0x11eb2
00011ea8 20 2e 00 14              | .      |		MOVE.L	(A6+0x14),D0
00011eac b0 ae 00 0c              |        |		CMP.L	(A6+0xc),D0
00011eb0 63 06                    |c       |		BLS	0x11eb8
00011eb2 1d 7c 00 01 00 18        | |      |		MOVE.B	#0x01,(A6+0x18)
00011eb8 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00011ebc 4e 5e                    |N^      |		UNLK	A6
00011ebe 4e 75                    |Nu      |		RTS
00011ec0 ; --------------------------------------------------------------------------------------
00011ec0 ; IsSmaller(a, b : Quad) : Bool
00011ec0 ; Stack:
00011ec0 ;     A6+0x18 VAR RETURN : Bool
00011ec0 ;     A6+0x10     a : Quad
00011ec0 ;     A6+0x8      b : Quad
00011ec0 ; --------------------------------------------------------------------------------------
00011ec0					_IsSmaller(a, b : Quad) : Bool:
00011ec0 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00011ec4 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00011ec8 bf d5                    |        |		CMPA.L	(A5),A7
00011eca 4e 76                    |Nv      |		TRAPV
00011ecc 42 2e 00 18              |B.      |		CLR.B	(A6+0x18)
00011ed0 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
00011ed4 b0 ae 00 08              |        |		CMP.L	(A6+0x8),D0
00011ed8 6e 12                    |n       |		BGT	0x11eec
00011eda 6d 0a                    |m       |		BLT	0x11ee6
00011edc 20 2e 00 14              | .      |		MOVE.L	(A6+0x14),D0
00011ee0 b0 ae 00 0c              |        |		CMP.L	(A6+0xc),D0
00011ee4 64 06                    |d       |		BCC	0x11eec
00011ee6 1d 7c 00 01 00 18        | |      |		MOVE.B	#0x01,(A6+0x18)
00011eec 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00011ef0 4e 5e                    |N^      |		UNLK	A6
00011ef2 4e 75                    |Nu      |		RTS
00011ef4 ; --------------------------------------------------------------------------------------
00011ef4 ; IsEqual(a, b : Quad) : Bool
00011ef4 ; Stack:
00011ef4 ;     A6+0x18 VAR RETURN : Bool
00011ef4 ;     A6+0x10     a : Quad
00011ef4 ;     A6+0x8      b : Quad
00011ef4 ; --------------------------------------------------------------------------------------
00011ef4					_IsEqual(a, b : Quad) : Bool:
00011ef4 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00011ef8 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00011efc bf d5                    |        |		CMPA.L	(A5),A7
00011efe 4e 76                    |Nv      |		TRAPV
00011f00 42 2e 00 18              |B.      |		CLR.B	(A6+0x18)
00011f04 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
00011f08 b0 ae 00 08              |        |		CMP.L	(A6+0x8),D0
00011f0c 66 10                    |f       |		BNE	0x11f1e
00011f0e 20 2e 00 14              | .      |		MOVE.L	(A6+0x14),D0
00011f12 b0 ae 00 0c              |        |		CMP.L	(A6+0xc),D0
00011f16 66 06                    |f       |		BNE	0x11f1e
00011f18 1d 7c 00 01 00 18        | |      |		MOVE.B	#0x01,(A6+0x18)
00011f1e 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00011f22 4e 5e                    |N^      |		UNLK	A6
00011f24 4e 75                    |Nu      |		RTS
00011f26 ; --------------------------------------------------------------------------------------
00011f26 ; BitAnd(a, b : Quad) : Quad
00011f26 ; Stack:
00011f26 ;     A6+0x18 VAR RETURN : Quad
00011f26 ;     A6+0x10     a : Quad
00011f26 ;     A6+0x8      b : Quad
00011f26 ; --------------------------------------------------------------------------------------
00011f26					_BitAnd(a, b : Quad) : Quad:
00011f26 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00011f2a 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00011f2e bf d5                    |        |		CMPA.L	(A5),A7
00011f30 4e 76                    |Nv      |		TRAPV
00011f32 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
00011f36 c0 ae 00 08              |        |		AND.L	(A6+0x8),D0
00011f3a 2d 40 00 18              |-@      |		MOVE.L	D0,(A6+0x18)
00011f3e 20 2e 00 14              | .      |		MOVE.L	(A6+0x14),D0
00011f42 c0 ae 00 0c              |        |		AND.L	(A6+0xc),D0
00011f46 2d 40 00 1c              |-@      |		MOVE.L	D0,(A6+0x1c)
00011f4a 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00011f4e 4e 5e                    |N^      |		UNLK	A6
00011f50 4e 75                    |Nu      |		RTS
00011f52 ; --------------------------------------------------------------------------------------
00011f52 ; BitOr(a, b : Quad) : Quad
00011f52 ; Stack:
00011f52 ;     A6+0x18 VAR RETURN : Quad
00011f52 ;     A6+0x10     a : Quad
00011f52 ;     A6+0x8      b : Quad
00011f52 ; --------------------------------------------------------------------------------------
00011f52					_BitOr(a, b : Quad) : Quad:
00011f52 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00011f56 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00011f5a bf d5                    |        |		CMPA.L	(A5),A7
00011f5c 4e 76                    |Nv      |		TRAPV
00011f5e 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
00011f62 80 ae 00 08              |        |		OR.L	(A6+0x8),D0
00011f66 2d 40 00 18              |-@      |		MOVE.L	D0,(A6+0x18)
00011f6a 20 2e 00 14              | .      |		MOVE.L	(A6+0x14),D0
00011f6e 80 ae 00 0c              |        |		OR.L	(A6+0xc),D0
00011f72 2d 40 00 1c              |-@      |		MOVE.L	D0,(A6+0x1c)
00011f76 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00011f7a 4e 5e                    |N^      |		UNLK	A6
00011f7c 4e 75                    |Nu      |		RTS
00011f7e ; --------------------------------------------------------------------------------------
00011f7e ; BitNot(a : Quad) : Quad
00011f7e ; Stack:
00011f7e ;     A6+0x10 VAR RETURN : Quad
00011f7e ;     A6+0x8      a : Quad
00011f7e ; --------------------------------------------------------------------------------------
00011f7e					_BitNot(a : Quad) : Quad:
00011f7e 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00011f82 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00011f86 bf d5                    |        |		CMPA.L	(A5),A7
00011f88 4e 76                    |Nv      |		TRAPV
00011f8a 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
00011f8e 46 80                    |F       |		NOT.L	D0
00011f90 2d 40 00 10              |-@      |		MOVE.L	D0,(A6+0x10)
00011f94 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
00011f98 46 80                    |F       |		NOT.L	D0
00011f9a 2d 40 00 14              |-@      |		MOVE.L	D0,(A6+0x14)
00011f9e 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00011fa2 4e 5e                    |N^      |		UNLK	A6
00011fa4 4e 75                    |Nu      |		RTS
00011fa6 ; --------------------------------------------------------------------------------------
00011fa6 ; Negate(a : Quad) : Quad
00011fa6 ; Stack:
00011fa6 ;     A6+0x10 VAR RETURN : Quad
00011fa6 ;     A6+0x8      a : Quad
00011fa6 ; --------------------------------------------------------------------------------------
00011fa6					_Negate(a : Quad) : Quad:
00011fa6 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00011faa 48 e7 c0 00              |H       |		MOVEM.L	D1+D0,-(A7)
00011fae bf d5                    |        |		CMPA.L	(A5),A7
00011fb0 4e 76                    |Nv      |		TRAPV
00011fb2 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
00011fb6 22 2e 00 0c              |".      |		MOVE.L	(A6+0xc),D1
00011fba 44 81                    |D       |		NEG.L	D1
00011fbc 40 80                    |@       |		NEGX.L	D0
00011fbe 68 0a                    |h       |		BVC	0x11fca
00011fc0 1f 3c 00 06              | <      |		MOVE.B	#0x06,-(A7)
00011fc4 4e b9 00 01 07 04        |N       |		JSR	0x10704
00011fca 2d 40 00 10              |-@      |		MOVE.L	D0,(A6+0x10)
00011fce 2d 41 00 14              |-A      |		MOVE.L	D1,(A6+0x14)
00011fd2 4c df 00 03              |L       |		MOVEM.L	(A7)+,D0+D1
00011fd6 4e 5e                    |N^      |		UNLK	A6
00011fd8 4e 75                    |Nu      |		RTS
00011fda ; --------------------------------------------------------------------------------------
00011fda ; BitXor(a, b : Quad) : Quad
00011fda ; Stack:
00011fda ;     A6+0x18 VAR RETURN : Quad
00011fda ;     A6+0x10     a : Quad
00011fda ;     A6+0x8      b : Quad
00011fda ; --------------------------------------------------------------------------------------
00011fda					_BitXor(a, b : Quad) : Quad:
00011fda 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00011fde 48 e7 c0 00              |H       |		MOVEM.L	D1+D0,-(A7)
00011fe2 bf d5                    |        |		CMPA.L	(A5),A7
00011fe4 4e 76                    |Nv      |		TRAPV
00011fe6 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
00011fea 22 2e 00 08              |".      |		MOVE.L	(A6+0x8),D1
00011fee b3 80                    |        |		EOR.L	D1,D0
00011ff0 2d 40 00 18              |-@      |		MOVE.L	D0,(A6+0x18)
00011ff4 20 2e 00 14              | .      |		MOVE.L	(A6+0x14),D0
00011ff8 22 2e 00 0c              |".      |		MOVE.L	(A6+0xc),D1
00011ffc b3 80                    |        |		EOR.L	D1,D0
00011ffe 2d 40 00 1c              |-@      |		MOVE.L	D0,(A6+0x1c)
00012002 4c df 00 03              |L       |		MOVEM.L	(A7)+,D0+D1
00012006 4e 5e                    |N^      |		UNLK	A6
00012008 4e 75                    |Nu      |		RTS
0001200a ; --------------------------------------------------------------------------------------
0001200a ; BitShift(a : Quad ; howmuch : integer) : Quad
0001200a ; Stack:
0001200a ;     A6+0x14 VAR RETURN : Quad
0001200a ;     A6+0xc      a : Quad
0001200a ;     A6+0x8      howmuch : integer
0001200a ; --------------------------------------------------------------------------------------
0001200a					_BitShift(a : Quad ; howmuch : integer) : Quad:
0001200a 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
0001200e 48 e7 e0 00              |H       |		MOVEM.L	D2+D1+D0,-(A7)
00012012 bf d5                    |        |		CMPA.L	(A5),A7
00012014 4e 76                    |Nv      |		TRAPV
00012016 20 2e 00 0c              | .      |		MOVE.L	(A6+0xc),D0
0001201a 22 2e 00 10              |".      |		MOVE.L	(A6+0x10),D1
0001201e 24 2e 00 08              |$.      |		MOVE.L	(A6+0x8),D2
00012022 67 18                    |g       |		BEQ	0x1203c
00012024 6b 0c                    |k       |		BMI	0x12032
00012026 53 82                    |S       |		SUBQ.L	#0x1,D2
00012028 d2 81                    |        |		ADD.L	D1,D1
0001202a d1 80                    |        |		ADDX.L	D0,D0
0001202c 51 ca ff fa              |Q       |		DBF	D2,0x12028
00012030 60 0a                    |`       |		BRA	0x1203c
00012032 46 82                    |F       |		NOT.L	D2
00012034 e2 88                    |        |		LSR.L	#0x1,D0
00012036 e2 91                    |        |		ROXR.L	#0x1,D1
00012038 51 ca ff fa              |Q       |		DBF	D2,0x12034
0001203c 2d 40 00 14              |-@      |		MOVE.L	D0,(A6+0x14)
00012040 2d 41 00 18              |-A      |		MOVE.L	D1,(A6+0x18)
00012044 4c df 00 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2
00012048 4e 5e                    |N^      |		UNLK	A6
0001204a 4e 75                    |Nu      |		RTS
0001204c ; --------------------------------------------------------------------------------------
0001204c ; ?BitField_something_()
0001204c ; --------------------------------------------------------------------------------------
0001204c					_?BitField_something_():
0001204c 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00012050 48 e7 e0 00              |H       |		MOVEM.L	D2+D1+D0,-(A7)
00012054 bf d5                    |        |		CMPA.L	(A5),A7
00012056 4e 76                    |Nv      |		TRAPV
00012058 70 40                    |p@      |		MOVEQ.L	#0x40,D0
0001205a 24 2e 00 0c              |$.      |		MOVE.L	(A6+0xc),D2
0001205e b4 80                    |        |		CMP.L	D0,D2
00012060 65 0a                    |e       |		BCS	0x1206c
00012062 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
00012066 4e b9 00 01 07 04        |N       |		JSR	0x10704
0001206c 22 2e 00 08              |".      |		MOVE.L	(A6+0x8),D1
00012070 b2 80                    |        |		CMP.L	D0,D1
00012072 63 0a                    |c       |		BLS	0x1207e
00012074 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
00012078 4e b9 00 01 07 04        |N       |		JSR	0x10704
0001207e 90 81                    |        |		SUB.L	D1,D0
00012080 b0 82                    |        |		CMP.L	D2,D0
00012082 6c 0a                    |l       |		BGE	0x1208e
00012084 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00012088 4e b9 00 01 07 04        |N       |		JSR	0x10704
0001208e 2d 6e 00 10 00 20        |-n      |		MOVE.L	(A6+0x10),(A6+0x20)
00012094 2d 6e 00 14 00 24        |-n   $  |		MOVE.L	(A6+0x14),(A6+0x24)
0001209a 0c 41 00 20              | A      |		CMPI.W	#0x0020,D1
0001209e 6e 10                    |n       |		BGT	0x120b0
000120a0 4a 81                    |J       |		TST.L	D1
000120a2 67 26                    |g&      |		BEQ	0x120ca
000120a4 20 2e 00 1c              | .      |		MOVE.L	(A6+0x1c),D0
000120a8 ef ee 08 a1 00 20        |        |		BFINS.L	D0,(A6+0x20),{D2:D1}
000120ae 60 1a                    |`       |		BRA	0x120ca
000120b0 20 2e 00 18              | .      |		MOVE.L	(A6+0x18),D0
000120b4 ef ee 08 a1 00 20        |        |		BFINS.L	D0,(A6+0x20),{D2:D1}
000120ba 20 2e 00 1c              | .      |		MOVE.L	(A6+0x1c),D0
000120be 04 01 00 20              |        |		SUBI.B	#0x20,D1
000120c2 d4 81                    |        |		ADD.L	D1,D2
000120c4 ef ee 08 80 00 20        |        |		BFINS.L	D0,(A6+0x20),{D2:0}
000120ca 4c df 00 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2
000120ce 4e 5e                    |N^      |		UNLK	A6
000120d0 4e 75                    |Nu      |		RTS
000120d2 ; --------------------------------------------------------------------------------------
000120d2 ; FSCALL_1034c
000120d2 ; --------------------------------------------------------------------------------------
000120d2					_FSCALL_1034c:
000120d2 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
000120d6 48 e7 e0 00              |H       |		MOVEM.L	D2+D1+D0,-(A7)
000120da bf d5                    |        |		CMPA.L	(A5),A7
000120dc 4e 76                    |Nv      |		TRAPV
000120de 70 40                    |p@      |		MOVEQ.L	#0x40,D0
000120e0 24 2e 00 0c              |$.      |		MOVE.L	(A6+0xc),D2
000120e4 b4 80                    |        |		CMP.L	D0,D2
000120e6 65 0a                    |e       |		BCS	0x120f2
000120e8 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000120ec 4e b9 00 01 07 04        |N       |		JSR	0x10704
000120f2 22 2e 00 08              |".      |		MOVE.L	(A6+0x8),D1
000120f6 b2 80                    |        |		CMP.L	D0,D1
000120f8 63 0a                    |c       |		BLS	0x12104
000120fa 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
000120fe 4e b9 00 01 07 04        |N       |		JSR	0x10704
00012104 90 81                    |        |		SUB.L	D1,D0
00012106 b0 82                    |        |		CMP.L	D2,D0
00012108 6c 0a                    |l       |		BGE	0x12114
0001210a 1f 3c 00 00              | <      |		MOVE.B	#0x00,-(A7)
0001210e 4e b9 00 01 07 04        |N       |		JSR	0x10704
00012114 0c 41 00 20              | A      |		CMPI.W	#0x0020,D1
00012118 6e 0e                    |n       |		BGT	0x12128
0001211a 42 80                    |B       |		CLR.L	D0
0001211c 4a 81                    |J       |		TST.L	D1
0001211e 67 1a                    |g       |		BEQ	0x1213a
00012120 e9 ee 18 a1 00 10        |        |		BFEXTU.L	(A6+0x10),{D2:D1},D1
00012126 60 12                    |`       |		BRA	0x1213a
00012128 e9 ee 08 a1 00 10        |        |		BFEXTU.L	(A6+0x10),{D2:D1},D0
0001212e 04 01 00 20              |        |		SUBI.B	#0x20,D1
00012132 d4 81                    |        |		ADD.L	D1,D2
00012134 e9 ee 18 80 00 10        |        |		BFEXTU.L	(A6+0x10),{D2:0},D1
0001213a 2d 40 00 18              |-@      |		MOVE.L	D0,(A6+0x18)
0001213e 2d 41 00 1c              |-A      |		MOVE.L	D1,(A6+0x1c)
00012142 4c df 00 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2
00012146 4e 5e                    |N^      |		UNLK	A6
00012148 4e 75                    |Nu      |		RTS
0001214a ; --------------------------------------------------------------------------------------
0001214a ; Quad2Long(a : Quad) : Long
0001214a ; Stack:
0001214a ;     A6+0x10 VAR RETURN : Long
0001214a ;     A6+0x8      a : Quad
0001214a ; --------------------------------------------------------------------------------------
0001214a					_Quad2Long(a : Quad) : Long:
0001214a 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
0001214e bf d5                    |        |		CMPA.L	(A5),A7
00012150 4e 76                    |Nv      |		TRAPV
00012152 2d 6e 00 0c 00 10        |-n      |		MOVE.L	(A6+0xc),(A6+0x10)
00012158 4e 5e                    |N^      |		UNLK	A6
0001215a 4e 75                    |Nu      |		RTS
0001215c ; --------------------------------------------------------------------------------------
0001215c ; Long2Quad(a : Long) : Quad
0001215c ; Stack:
0001215c ;     A6+0xc  VAR RETURN : Quad
0001215c ;     A6+0x8      a : Long
0001215c ; --------------------------------------------------------------------------------------
0001215c					_Long2Quad(a : Long) : Quad:
0001215c 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00012160 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00012164 bf d5                    |        |		CMPA.L	(A5),A7
00012166 4e 76                    |Nv      |		TRAPV
00012168 42 80                    |B       |		CLR.L	D0
0001216a 2d 6e 00 08 00 10        |-n      |		MOVE.L	(A6+0x8),(A6+0x10)
00012170 6a 02                    |j       |		BPL	0x12174
00012172 46 80                    |F       |		NOT.L	D0
00012174 2d 40 00 0c              |-@      |		MOVE.L	D0,(A6+0xc)
00012178 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
0001217c 4e 5e                    |N^      |		UNLK	A6
0001217e 4e 75                    |Nu      |		RTS
00012180 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00012184 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00012188 00 00 00 00 00 00 00 00  |        |		.XXX[0x28]
00012190 00 00 00 01 00 00 00 00  |        |
00012198 00 00 00 02 00 00 00 00  |        |
000121a0 00 00 00 00 00 00 00 00  |        |
000121a8 00 00 00 03 00 00 00 00  |        |
000121b0 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0x18]
000121c8 00 00 00 04              |        |		.XXX[0x4]
000121cc ; --------------------------------------------------------------------------------------
000121cc ; Modulus(a, b : Quad) : Quad
000121cc ; Stack:
000121cc ;     A6+0x18 VAR RETURN : Quad
000121cc ;     A6+0x10     a : Quad
000121cc ;     A6+0x8      b : Quad
000121cc ; OMSI PASCAL Function
000121cc ;    <LVAR  0x01c 4(w)>
000121cc ;    <LVAR  0x018 4(w)>
000121cc ;    <LVAR  0x014 4(r)>
000121cc ;    <LVAR  0x010 4(r)>
000121cc ;    <LVAR  0x00c 4(r)>
000121cc ;    <LVAR  0x008 4(r)>
000121cc ; --------------------------------------------------------------------------------------
000121cc					_Modulus(a, b : Quad) : Quad:
000121cc 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
000121d0 bf d5                    |        |		CMPA.L	(A5),A7
000121d2 62 06                    |b       |		BHI	0x121da
000121d4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000121d8 4e 76                    |Nv      |		TRAPV
000121da de fc 00 38              |   8    |		ADDA.W	#0x38,A7
000121de 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
000121e2 70 10                    |p       |		MOVEQ.L	#0x10,D0
000121e4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000121e6 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
000121ea 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
000121ee 9e c0                    |        |		SUBA.W	D0,A7
000121f0 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
000121f4 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
000121f8 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000121fc 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00012200 4e b9 00 01 1d de        |N       |		JSR	_Divide(a, b : Quad) : Quad
00012206 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0001220a 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
0001220e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00012212 4e b9 00 01 1d 6a        |N    j  |		JSR	_Multiply(a, b : Quad) : Quad
00012218 de c0                    |        |		ADDA.W	D0,A7
0001221a 4e b9 00 01 1d 30        |N    0  |		JSR	_Subtract(a, b : Quad) : Quad
00012220 de c0                    |        |		ADDA.W	D0,A7
00012222 2d 5f 00 18              |-_      |		MOVE.L	(A7)+,(A6+0x18)
00012226 2d 5f 00 1c              |-_      |		MOVE.L	(A7)+,(A6+0x1c)
0001222a 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
0001222e 4e 5e                    |N^      |		UNLK	A6
00012230 4e 75                    |Nu      |		RTS
00012232 ; --------------------------------------------------------------------------------------
00012232 ; ?StringToInt64()
00012232 ; OMSI PASCAL Function
00012232 ;    <LVAR  0x014 4(w)>
00012232 ;    <LVAR  0x010 4(w)>
00012232 ;    <LVAR  0x00c @ 4(r)>
00012232 ;    <LVAR  0x008 4(r)>
00012232 ;    <LVAR -0x003 1(rw)>
00012232 ;    <LVAR -0x00e 2(rw)>
00012232 ;    <LVAR -0x010 4(rw)>
00012232 ;    <LVAR -0x014 4(rw)>
00012232 ;    <LVAR -0x018 4(rw)>
00012232 ;    <LVAR -0x01c 4(rw)>
00012232 ;    <LVAR -0x020 4(rw)>
00012232 ;    <LVAR -0x024 4(rw)>
00012232 ;    <LVAR -0x028 4(rw)>
00012232 ; --------------------------------------------------------------------------------------
00012232					_?StringToInt64():
00012232 4e 56 ff 78              |NV x    |		LINK.W	A6,#0xff78
00012236 bf d5                    |        |		CMPA.L	(A5),A7
00012238 62 06                    |b       |		BHI	0x12240
0001223a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001223e 4e 76                    |Nv      |		TRAPV
00012240 de fc 00 60              |   `    |		ADDA.W	#0x60,A7
00012244 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00012248 43 ee ff dc              |C       |		LEA.L	(A6-0x24),A1
0001224c 45 ee ff e0              |E       |		LEA.L	(A6-0x20),A2
00012250 47 f9 00 01 07 04        |G       |		LEA.L	0x10704,A3
00012256 49 ee ff d8              |I       |		LEA.L	(A6-0x28),A4
0001225a 74 10                    |t       |		MOVEQ.L	#0x10,D2
0001225c 76 30                    |v0      |		MOVEQ.L	#0x30,D3
0001225e 78 0d                    |x       |		MOVEQ.L	#0x0d,D4
00012260 22 ba ff 1e              |"       |		MOVE.L	0x12180,(A1)
00012264 24 ba ff 1e              |$       |		MOVE.L	0x12184,(A2)
00012268 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
0001226c 0c 80 00 00 00 02        |        |		CMPI.L	#0x00000002,D0
00012272 65 04                    |e       |		BCS	0x12278
00012274 b0 82                    |        |		CMP.L	D2,D0
00012276 63 08                    |c       |		BLS	0x12280
00012278 1f 3c 00 0b              | <      |		MOVE.B	#0x0b,-(A7)
0001227c 4e 93                    |N       |		JSR	(A3)
0001227e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00012280 b0 82                    |        |		CMP.L	D2,D0
00012282 63 02                    |c       |		BLS	0x12286
00012284 4e 4f                    |NO      |		TRAP	#15
00012286 22 00                    |"       |		MOVE.L	D0,D1
00012288 e5 81                    |        |		ASL.L	#0x2,D1
0001228a 41 fa fe fc              |A       |		LEA.L	0x12188,A0
0001228e 28 b0 18 00              |(       |		MOVE.L	(A0+D1.L),(A4)
00012292 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00012296 2f 08                    |/       |		MOVE.L	A0,-(A7)
00012298 12 28 00 02              | (      |		MOVE.B	(A0+0x2),D1
0001229c 0c 01 00 2d              |   -    |		CMPI.B	#0x2d,D1
000122a0 66 0a                    |f       |		BNE	0x122ac
000122a2 7a 02                    |z       |		MOVEQ.L	#0x02,D5
000122a4 1d 7c 00 01 ff fd        | |      |		MOVE.B	#0x01,(A6-0x3)
000122aa 60 06                    |`       |		BRA	0x122b2
000122ac 7a 01                    |z       |		MOVEQ.L	#0x01,D5
000122ae 42 2e ff fd              |B.      |		CLR.B	(A6-0x3)
000122b2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000122b4 2f 00                    |/       |		MOVE.L	D0,-(A7)
000122b6 4e b9 00 01 21 5c        |N   !\  |		JSR	_Long2Quad(a : Long) : Quad
000122bc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000122be 2d 5f ff e4              |-_      |		MOVE.L	(A7)+,(A6-0x1c)
000122c2 2d 5f ff e8              |-_      |		MOVE.L	(A7)+,(A6-0x18)
000122c6 2d 7a fe b8 ff ec        |-z      |		MOVE.L	0x12180,(A6-0x14)
000122cc 2d 7a fe b6 ff f0        |-z      |		MOVE.L	0x12184,(A6-0x10)
000122d2 30 10                    |0       |		MOVE.W	(A0),D0
000122d4 48 c0                    |H       |		EXTW.L	D0
000122d6 2f 00                    |/       |		MOVE.L	D0,-(A7)
000122d8 2e 05                    |.       |		MOVE.L	D5,D7
000122da be 97                    |        |		CMP.L	(A7),D7
000122dc 6e 00 00 b6              |n       |		BGT	0x12394
000122e0 4a 94                    |J       |		TST.L	(A4)
000122e2 67 14                    |g       |		BEQ	0x122f8
000122e4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000122e6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000122e8 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000122ea 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000122ec 4e b9 00 01 20 0a        |N       |		JSR	_BitShift(a : Quad ; howmuch : integer) : Quad
000122f2 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000122f6 60 16                    |`       |		BRA	0x1230e
000122f8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000122fa 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000122fc 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000122fe 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00012302 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
00012306 4e b9 00 01 1d 6a        |N    j  |		JSR	_Multiply(a, b : Quad) : Quad
0001230c de c2                    |        |		ADDA.W	D2,A7
0001230e 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00012310 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00012312 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00012316 1c 30 78 01              | 0x     |		MOVE.B	(A0+D7.L+#0x1),D6
0001231a bc 03                    |        |		CMP.B	D3,D6
0001231c 65 12                    |e       |		BCS	0x12330
0001231e 0c 06 00 39              |   9    |		CMPI.B	#0x39,D6
00012322 62 0c                    |b       |		BHI	0x12330
00012324 42 80                    |B       |		CLR.L	D0
00012326 10 06                    |        |		MOVE.B	D6,D0
00012328 90 43                    | C      |		SUB.W	D3,D0
0001232a 3d 40 ff f2              |=@      |		MOVE.W	D0,(A6-0xe)
0001232e 60 32                    |`2      |		BRA	0x12362
00012330 0c 06 00 41              |   A    |		CMPI.B	#0x41,D6
00012334 65 10                    |e       |		BCS	0x12346
00012336 0c 06 00 46              |   F    |		CMPI.B	#0x46,D6
0001233a 62 0a                    |b       |		BHI	0x12346
0001233c 42 80                    |B       |		CLR.L	D0
0001233e 10 06                    |        |		MOVE.B	D6,D0
00012340 04 40 00 37              | @ 7    |		SUBI.W	#0x0037,D0
00012344 60 e4                    |`       |		BRA	0x1232a
00012346 0c 06 00 61              |   a    |		CMPI.B	#0x61,D6
0001234a 65 10                    |e       |		BCS	0x1235c
0001234c 0c 06 00 66              |   f    |		CMPI.B	#0x66,D6
00012350 62 0a                    |b       |		BHI	0x1235c
00012352 42 80                    |B       |		CLR.L	D0
00012354 10 06                    |        |		MOVE.B	D6,D0
00012356 04 40 00 57              | @ W    |		SUBI.W	#0x0057,D0
0001235a 60 ce                    |`       |		BRA	0x1232a
0001235c 1f 04                    |        |		MOVE.B	D4,-(A7)
0001235e 4e 93                    |N       |		JSR	(A3)
00012360 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00012362 42 80                    |B       |		CLR.L	D0
00012364 30 2e ff f2              |0.      |		MOVE.W	(A6-0xe),D0
00012368 b0 ae 00 08              |        |		CMP.L	(A6+0x8),D0
0001236c 65 06                    |e       |		BCS	0x12374
0001236e 1f 04                    |        |		MOVE.B	D4,-(A7)
00012370 4e 93                    |N       |		JSR	(A3)
00012372 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00012374 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00012376 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00012378 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0001237a 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
0001237e 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00012382 4e b9 00 01 1c f6        |N       |		JSR	_Add(a, b : Quad) : Quad
00012388 de c2                    |        |		ADDA.W	D2,A7
0001238a 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
0001238c 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0001238e 52 87                    |R       |		ADDQ.L	#0x1,D7
00012390 68 00 ff 48              |h  H    |		BVC	0x122da
00012394 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00012396 48 6e 00 0c              |Hn      |		PEA.L	(A6+0xc)
0001239a 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
000123a0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000123a2 4a 2e ff fd              |J.      |		TST.B	(A6-0x3)
000123a6 67 12                    |g       |		BEQ	0x123ba
000123a8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000123aa 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000123ac 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000123ae 4e b9 00 01 1f a6        |N       |		JSR	_Negate(a : Quad) : Quad
000123b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000123b6 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
000123b8 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
000123ba 2d 51 00 10              |-Q      |		MOVE.L	(A1),(A6+0x10)
000123be 2d 52 00 14              |-R      |		MOVE.L	(A2),(A6+0x14)
000123c2 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000123c6 4e 5e                    |N^      |		UNLK	A6
000123c8 4e 75                    |Nu      |		RTS
000123ca ; --------------------------------------------------------------------------------------
000123ca ; Quad2String(a : Quad; radix : Long ) : String
000123ca ; Stack:
000123ca ;     A6+0x14 VAR RETURN : String
000123ca ;     A6+0xc      a : Quad
000123ca ;     A6+0x8      radix : Long
000123ca ; OMSI PASCAL Function
000123ca ;    <LVAR  0x014 4(w)>
000123ca ;    <LVAR  0x010 4(rw)>
000123ca ;    <LVAR  0x00c 2(r) 4(rw)>
000123ca ;    <LVAR  0x008 4(r)>
000123ca ;    <LVAR -0x002 2(rw)>
000123ca ;    <LVAR -0x004 4(w)>
000123ca ;    <LVAR -0x008 4(w)>
000123ca ;    <LVAR -0x00c 4(rw)>
000123ca ;    <LVAR -0x010 4(rw)>
000123ca ;    <LVAR -0x014 @ 4(r)>
000123ca ;    <LVAR -0x020 @ 4(r)>
000123ca ; --------------------------------------------------------------------------------------
000123ca					_Quad2String(a : Quad; radix : Long ) : String:
000123ca 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
000123ce bf d5                    |        |		CMPA.L	(A5),A7
000123d0 62 06                    |b       |		BHI	0x123d8
000123d2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000123d6 4e 76                    |Nv      |		TRAPV
000123d8 de fc 00 54              |   T    |		ADDA.W	#0x54,A7
000123dc 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000123e0 43 ee 00 0c              |C       |		LEA.L	(A6+0xc),A1
000123e4 45 ee 00 10              |E       |		LEA.L	(A6+0x10),A2
000123e8 47 ee ff e0              |G       |		LEA.L	(A6-0x20),A3
000123ec 49 f9 00 01 0d a6        |I       |		LEA.L	_AppendChar(MOD b : String; a : char),A4
000123f2 74 10                    |t       |		MOVEQ.L	#0x10,D2
000123f4 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
000123f6 78 09                    |x       |		MOVEQ.L	#0x09,D4
000123f8 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
000123fc 0c 80 00 00 00 02        |        |		CMPI.L	#0x00000002,D0
00012402 65 04                    |e       |		BCS	0x12408
00012404 b0 82                    |        |		CMP.L	D2,D0
00012406 63 0a                    |c       |		BLS	0x12412
00012408 1f 03                    |        |		MOVE.B	D3,-(A7)
0001240a 4e b9 00 01 07 04        |N       |		JSR	0x10704
00012410 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00012412 48 53                    |HS      |		PEA.L	(A3)
00012414 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
0001241a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001241c 7a 01                    |z       |		MOVEQ.L	#0x01,D5
0001241e b0 82                    |        |		CMP.L	D2,D0
00012420 66 74                    |ft      |		BNE	0x12496
00012422 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00012424 3e 11                    |>       |		MOVE.W	(A1),D7
00012426 e0 4f                    | O      |		LSR.W	#0x8,D7
00012428 e8 4f                    | O      |		LSR.W	#0x4,D7
0001242a be 44                    | D      |		CMP.W	D4,D7
0001242c 63 12                    |c       |		BLS	0x12440
0001242e 42 80                    |B       |		CLR.L	D0
00012430 30 07                    |0       |		MOVE.W	D7,D0
00012432 5e 80                    |^       |		ADDQ.L	#0x7,D0
00012434 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
0001243a 63 02                    |c       |		BLS	0x1243e
0001243c 4e 4f                    |NO      |		TRAP	#15
0001243e 3e 00                    |>       |		MOVE.W	D0,D7
00012440 4a 05                    |J       |		TST.B	D5
00012442 67 06                    |g       |		BEQ	0x1244a
00012444 4a 47                    |JG      |		TST.W	D7
00012446 67 02                    |g       |		BEQ	0x1244a
00012448 7a 00                    |z       |		MOVEQ.L	#0x00,D5
0001244a 4a 05                    |J       |		TST.B	D5
0001244c 67 08                    |g       |		BEQ	0x12456
0001244e 0c 86 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D6
00012454 66 1c                    |f       |		BNE	0x12472
00012456 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00012458 42 80                    |B       |		CLR.L	D0
0001245a 30 07                    |0       |		MOVE.W	D7,D0
0001245c 06 80 00 00 00 30        |     0  |		ADDI.L	#0x00000030,D0
00012462 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00012468 63 02                    |c       |		BLS	0x1246c
0001246a 4e 4f                    |NO      |		TRAP	#15
0001246c 1f 00                    |        |		MOVE.B	D0,-(A7)
0001246e 4e 94                    |N       |		JSR	(A4)
00012470 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00012472 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00012474 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00012476 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00012478 48 78 00 04              |Hx      |		PEA.L	0x4
0001247c 4e b9 00 01 20 0a        |N       |		JSR	_BitShift(a : Quad ; howmuch : integer) : Quad
00012482 de c3                    |        |		ADDA.W	D3,A7
00012484 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00012486 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00012488 52 86                    |R       |		ADDQ.L	#0x1,D6
0001248a 0c 86 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D6
00012490 6f 92                    |o       |		BLE	0x12424
00012492 60 00 01 10              |`       |		BRA	0x125a4
00012496 4a 51                    |JQ      |		TST.W	(A1)
00012498 60 1c                    |`       |		BRA	0x124b6
0001249a 51 4f 2f 12 2f 11        |QO/ /   |		.XXX[0x6]
000124a0 4e b9 00 01 1f a6 50 4f  |N     PO|		.XXX[0x10]
000124a8 22 9f 24 9f 2f 13 1f 3c  |" $ /  <|
000124b0 00 2d 4e 94 5c 4f        | -N \O  |		.XXX[0x6]
000124b6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000124b8 2f 00                    |/       |		MOVE.L	D0,-(A7)
000124ba 4e b9 00 01 21 5c        |N   !\  |		JSR	_Long2Quad(a : Long) : Quad
000124c0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000124c2 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
000124c6 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
000124ca 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
000124ce 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
000124d4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000124d6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000124d8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000124da 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000124dc 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
000124e0 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
000124e4 4e ba fc e6              |N       |		JSR	_Modulus(a, b : Quad) : Quad
000124e8 de c2                    |        |		ADDA.W	D2,A7
000124ea 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
000124ee 2d 5f ff fc              |-_      |		MOVE.L	(A7)+,(A6-0x4)
000124f2 30 2e ff fe              |0.      |		MOVE.W	(A6-0x2),D0
000124f6 b0 44                    | D      |		CMP.W	D4,D0
000124f8 63 14                    |c       |		BLS	0x1250e
000124fa 42 81                    |B       |		CLR.L	D1
000124fc 32 00                    |2       |		MOVE.W	D0,D1
000124fe 5e 81                    |^       |		ADDQ.L	#0x7,D1
00012500 0c 81 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D1
00012506 63 02                    |c       |		BLS	0x1250a
00012508 4e 4f                    |NO      |		TRAP	#15
0001250a 3d 41 ff fe              |=A      |		MOVE.W	D1,(A6-0x2)
0001250e 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00012512 42 80                    |B       |		CLR.L	D0
00012514 30 2e ff fe              |0.      |		MOVE.W	(A6-0x2),D0
00012518 06 80 00 00 00 30        |     0  |		ADDI.L	#0x00000030,D0
0001251e 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00012524 63 02                    |c       |		BLS	0x12528
00012526 4e 4f                    |NO      |		TRAP	#15
00012528 1f 00                    |        |		MOVE.B	D0,-(A7)
0001252a 4e 94                    |N       |		JSR	(A4)
0001252c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0001252e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00012530 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00012532 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
00012536 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
0001253a 4e b9 00 01 1d de        |N       |		JSR	_Divide(a, b : Quad) : Quad
00012540 de c2                    |        |		ADDA.W	D2,A7
00012542 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00012544 24 97                    |$       |		MOVE.L	(A7),(A2)
00012546 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00012548 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0001254a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0001254c 2f 3a fc 36              |/: 6    |		MOVE.L	0x12184,-(A7)
00012550 2f 3a fc 2e              |/: .    |		MOVE.L	0x12180,-(A7)
00012554 4e b9 00 01 1e f4        |N       |		JSR	_IsEqual(a, b : Quad) : Bool
0001255a de c2                    |        |		ADDA.W	D2,A7
0001255c 4a 1f                    |J       |		TST.B	(A7)+
0001255e 67 00 ff 76              |g  v    |		BEQ	0x124d6
00012562 20 6e ff ec              | n      |		MOVEA.L	(A6-0x14),A0
00012566 2f 08                    |/       |		MOVE.L	A0,-(A7)
00012568 30 10                    |0       |		MOVE.W	(A0),D0
0001256a 48 c0                    |H       |		EXTW.L	D0
0001256c 2c 00                    |,       |		MOVE.L	D0,D6
0001256e 0c 86 00 00 00 01        |        |		CMPI.L	#0x00000001,D6
00012574 6d 20                    |m       |		BLT	0x12596
00012576 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00012578 20 06                    |        |		MOVE.L	D6,D0
0001257a 53 80                    |S       |		SUBQ.L	#0x1,D0
0001257c 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
00012582 63 02                    |c       |		BLS	0x12586
00012584 4e 4f                    |NO      |		TRAP	#15
00012586 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
0001258a 1f 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),-(A7)
0001258e 4e 94                    |N       |		JSR	(A4)
00012590 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00012592 53 86                    |S       |		SUBQ.L	#0x1,D6
00012594 68 d8                    |h       |		BVC	0x1256e
00012596 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00012598 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
0001259c 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
000125a2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000125a4 2d 53 00 14              |-S      |		MOVE.L	(A3),(A6+0x14)
000125a8 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000125ac 4e 5e                    |N^      |		UNLK	A6
000125ae 4e 75                    |Nu      |		RTS
000125b0 ; --------------------------------------------------------------------------------------
000125b0 ; MovStringTail(Base, Len, Ptr, Delta)
000125b0 ; --------------------------------------------------------------------------------------
000125b0					_MovStringTail(Base, Len, Ptr, Delta):
000125b0 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
000125b4 48 e7 f0 c0              |H       |		MOVEM.L	A1+A0+D3+D2+D1+D0,-(A7)
000125b8 bf d5                    |        |		CMPA.L	(A5),A7
000125ba 4e 76                    |Nv      |		TRAPV
000125bc 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
000125c0 53 88                    |S       |		SUBQ.L	#0x1,A0
000125c2 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
000125c6 22 2e 00 0c              |".      |		MOVE.L	(A6+0xc),D1
000125ca 24 2e 00 08              |$.      |		MOVE.L	(A6+0x8),D2
000125ce 67 2a                    |g*      |		BEQ	0x125fa
000125d0 26 00                    |&       |		MOVE.L	D0,D3
000125d2 96 81                    |        |		SUB.L	D1,D3
000125d4 52 83                    |R       |		ADDQ.L	#0x1,D3
000125d6 6f 22                    |o"      |		BLE	0x125fa
000125d8 53 83                    |S       |		SUBQ.L	#0x1,D3
000125da 44 82                    |D       |		NEG.L	D2
000125dc 6a 0e                    |j       |		BPL	0x125ec
000125de d1 c1                    |        |		ADDA.L	D1,A0
000125e0 43 f0 28 00              |C (     |		LEA.L	(A0+D2.L),A1
000125e4 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000125e6 51 cb ff fc              |Q       |		DBF	D3,0x125e4
000125ea 60 0e                    |`       |		BRA	0x125fa
000125ec 41 f0 08 01              |A       |		LEA.L	(A0+D0.L+#0x1),A0
000125f0 43 f0 28 00              |C (     |		LEA.L	(A0+D2.L),A1
000125f4 13 20                    |        |		MOVE.B	-(A0),-(A1)
000125f6 51 cb ff fc              |Q       |		DBF	D3,0x125f4
000125fa 4c df 03 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1
000125fe 4e 5e                    |N^      |		UNLK	A6
00012600 4e 75                    |Nu      |		RTS
00012602 ; --------------------------------------------------------------------------------------
00012602 ; Lba2Chs(lba : W; VAR cyl : W ; VAR hd_sec : W)
00012602 ; Stack:
00012602 ;     A6+0x10     lba : W
00012602 ;     A6+0xc  VAR cyl : W
00012602 ;     A6+0x8  VAR hd_sec : W
00012602 ; OMSI PASCAL Function
00012602 ;    <LVAR  0x010 2(r)>
00012602 ;    <LVAR  0x00c 4(r)>
00012602 ;    <LVAR  0x008 4(r)>
00012602 ; --------------------------------------------------------------------------------------
00012602					_Lba2Chs(lba : W; VAR cyl : W ; VAR hd_sec : W):
00012602 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6
00012606 bf d5                    |        |		CMPA.L	(A5),A7
00012608 62 06                    |b       |		BHI	0x12610
0001260a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001260e 4e 76                    |Nv      |		TRAPV
00012610 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00012614 48 e7 df 80              |H       |		MOVEM.L	A0+D7+D6+D5+D4+D3+D1+D0,-(A7)
00012618 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0001261c 42 80                    |B       |		CLR.L	D0
0001261e 30 2e 00 10              |0.      |		MOVE.W	(A6+0x10),D0
00012622 80 f9 00 01 00 0c        |        |		DIVU.W	sec_per_cyl,D0
00012628 30 80                    |0       |		MOVE.W	D0,(A0)
0001262a 48 40                    |H@      |		SWAP.W	D0
0001262c 42 81                    |B       |		CLR.L	D1
0001262e 32 00                    |2       |		MOVE.W	D0,D1
00012630 2a 01                    |*       |		MOVE.L	D1,D5
00012632 28 05                    |(       |		MOVE.L	D5,D4
00012634 42 83                    |B       |		CLR.L	D3
00012636 36 39 00 01 00 0a        |69      |		MOVE.W	sec_per_track,D3
0001263c 4e b9 00 01 08 16        |N       |		JSR	_?divu_d3_d4
00012642 2e 04                    |.       |		MOVE.L	D4,D7
00012644 e3 83                    |        |		ASL.L	#0x1,D3
00012646 2c 03                    |,       |		MOVE.L	D3,D6
00012648 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001264c 20 07                    |        |		MOVE.L	D7,D0
0001264e e1 80                    |        |		ASL.L	#0x8,D0
00012650 d0 86                    |        |		ADD.L	D6,D0
00012652 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00012658 63 02                    |c       |		BLS	0x1265c
0001265a 4e 4f                    |NO      |		TRAP	#15
0001265c 30 80                    |0       |		MOVE.W	D0,(A0)
0001265e 4c df 01 fb              |L       |		MOVEM.L	(A7)+,D0+D1+D3+D4+D5+D6+D7+A0
00012662 4e 5e                    |N^      |		UNLK	A6
00012664 4e 75                    |Nu      |		RTS
00012666 ; --------------------------------------------------------------------------------------
00012666 ; OMSI PASCAL Function
00012666 ;    <LVAR  0x008 1(r)>
00012666 ; --------------------------------------------------------------------------------------
00012666 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
0001266a bf d5                    |        |		CMPA.L	(A5),A7
0001266c 62 06                    |b       |		BHI	0x12674
0001266e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00012672 4e 76                    |Nv      |		TRAPV
00012674 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00012678 48 e7 f0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
0001267c 45 ec 00 0c              |E       |		LEA.L	(A4+0xc),A2
00012680 47 ec 00 90              |G       |		LEA.L	(A4+0x90),A3
00012684 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
00012686 76 02                    |v       |		MOVEQ.L	#0x02,D3
00012688 42 80                    |B       |		CLR.L	D0
0001268a 30 2c 00 b8              |0,      |		MOVE.W	(A4+0xb8),D0
0001268e d0 ac 00 96              |        |		ADD.L	(A4+0x96),D0
00012692 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00012698 63 02                    |c       |		BLS	0x1269c
0001269a 4e 4f                    |NO      |		TRAP	#15
0001269c 3f 00                    |?       |		MOVE.W	D0,-(A7)
0001269e 48 6c 00 8c              |Hl      |		PEA.L	(A4+0x8c)
000126a2 48 6c 00 8e              |Hl      |		PEA.L	(A4+0x8e)
000126a6 4e ba ff 5a              |N  Z    |		JSR	_Lba2Chs(lba : W; VAR cyl : W ; VAR hd_sec : W)
000126aa de c2                    |        |		ADDA.W	D2,A7
000126ac 39 7c 01 00 00 02        |9|      |		MOVE.W	#0x100,(A4+0x2)
000126b2 42 6c 00 04              |Bl      |		CLR.W	(A4+0x4)
000126b6 39 43 00 06              |9C      |		MOVE.W	D3,(A4+0x6)
000126ba 42 6c 00 08              |Bl      |		CLR.W	(A4+0x8)
000126be 39 7c 00 80 00 0a        |9|      |		MOVE.W	#0x80,(A4+0xa)
000126c4 30 39 00 01 00 08        |09      |		MOVE.W	mounted_drive,D0
000126ca e1 40                    | @      |		ASL.W	#0x8,D0
000126cc 12 2e 00 08              | .      |		MOVE.B	(A6+0x8),D1
000126d0 48 81                    |H       |		EXTB.W	D1
000126d2 d0 41                    | A      |		ADD.W	D1,D0
000126d4 34 80                    |4       |		MOVE.W	D0,(A2)
000126d6 39 6c 00 8c 00 0e        |9l      |		MOVE.W	(A4+0x8c),(A4+0xe)
000126dc 39 6c 00 8e 00 10        |9l      |		MOVE.W	(A4+0x8e),(A4+0x10)
000126e2 42 93                    |B       |		CLR.L	(A3)
000126e4 19 41 00 94              | A      |		MOVE.B	D1,(A4+0x94)
000126e8 48 6c 00 02              |Hl      |		PEA.L	(A4+0x2)
000126ec 2f 2c 00 9e              |/,      |		MOVE.L	(A4+0x9e),-(A7)
000126f0 42 67                    |Bg      |		CLR.W	-(A7)
000126f2 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
000126f8 de c2                    |        |		ADDA.W	D2,A7
000126fa 20 6c 00 ac              | l      |		MOVEA.L	(A4+0xac),A0
000126fe 42 67                    |Bg      |		CLR.W	-(A7)
00012700 48 50                    |HP      |		PEA.L	(A0)
00012702 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00012708 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001270a 4a 10                    |J       |		TST.B	(A0)
0001270c 66 00 00 8e              |f       |		BNE	0x1279c
00012710 39 7c 00 80 00 0a        |9|      |		MOVE.W	#0x80,(A4+0xa)
00012716 30 12                    |0       |		MOVE.W	(A2),D0
00012718 02 40 ff 00              | @      |		ANDI.W	#0xff00,D0
0001271c 42 81                    |B       |		CLR.L	D1
0001271e 32 00                    |2       |		MOVE.W	D0,D1
00012720 52 81                    |R       |		ADDQ.L	#0x1,D1
00012722 0c 81 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D1
00012728 63 02                    |c       |		BLS	0x1272c
0001272a 4e 4f                    |NO      |		TRAP	#15
0001272c 34 81                    |4       |		MOVE.W	D1,(A2)
0001272e 48 6c 00 02              |Hl      |		PEA.L	(A4+0x2)
00012732 43 ec 00 12              |C       |		LEA.L	(A4+0x12),A1
00012736 2f 09                    |/       |		MOVE.L	A1,-(A7)
00012738 42 67                    |Bg      |		CLR.W	-(A7)
0001273a 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00012740 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00012742 42 57                    |BW      |		CLR.W	(A7)
00012744 48 54                    |HT      |		PEA.L	(A4)
00012746 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
0001274c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001274e 4a 14                    |J       |		TST.B	(A4)
00012750 66 0c                    |f       |		BNE	0x1275e
00012752 48 78 00 01              |Hx      |		PEA.L	0x1
00012756 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
0001275c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001275e 42 27                    |B'      |		CLR.B	-(A7)
00012760 43 ec 00 12              |C       |		LEA.L	(A4+0x12),A1
00012764 2f 09                    |/       |		MOVE.L	A1,-(A7)
00012766 4e b9 00 01 44 d8        |N   D   |		JSR	_Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
0001276c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001276e 20 13                    |        |		MOVE.L	(A3),D0
00012770 b0 82                    |        |		CMP.L	D2,D0
00012772 6d 28                    |m(      |		BLT	0x1279c
00012774 12 2c 00 94              | ,      |		MOVE.B	(A4+0x94),D1
00012778 b2 03                    |        |		CMP.B	D3,D1
0001277a 66 20                    |f       |		BNE	0x1279c
0001277c 0c 80 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D0
00012782 6c 0c                    |l       |		BGE	0x12790
00012784 30 39 00 01 00 08        |09      |		MOVE.W	mounted_drive,D0
0001278a e1 40                    | @      |		ASL.W	#0x8,D0
0001278c 5c 40                    |\@      |		ADDQ.W	#0x6,D0
0001278e 60 0a                    |`       |		BRA	0x1279a
00012790 30 39 00 01 00 08        |09      |		MOVE.W	mounted_drive,D0
00012796 e1 40                    | @      |		ASL.W	#0x8,D0
00012798 5a 40                    |Z@      |		ADDQ.W	#0x5,D0
0001279a 34 80                    |4       |		MOVE.W	D0,(A2)
0001279c 52 93                    |R       |		ADDQ.L	#0x1,(A3)
0001279e 4a 10                    |J       |		TST.B	(A0)
000127a0 66 0c                    |f       |		BNE	0x127ae
000127a2 20 13                    |        |		MOVE.L	(A3),D0
000127a4 0c 80 00 00 00 14        |        |		CMPI.L	#0x00000014,D0
000127aa 66 00 ff 3c              |f  <    |		BNE	0x126e8
000127ae 4c df 0f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3
000127b2 4e 5e                    |N^      |		UNLK	A6
000127b4 4e 75                    |Nu      |		RTS
000127b6 ; --------------------------------------------------------------------------------------
000127b6 ; RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
000127b6 ; Stack:
000127b6 ;     A6+0x16     oper : B
000127b6 ;     A6+0x14     lba : Word
000127b6 ;     A6+0x10     cnt : L
000127b6 ;     A6+0xc      ptr : Pointer
000127b6 ;     A6+0x8  VAR status : B
000127b6 ; OMSI PASCAL Function
000127b6 ;    <LVAR  0x016 1(r)>
000127b6 ;    <LVAR  0x014 2(r)>
000127b6 ;    <LVAR  0x010 4(r)>
000127b6 ;    <LVAR  0x00c 4(r)>
000127b6 ;    <LVAR  0x008 4(r)>
000127b6 ;    <LVAR -0x006 4(w)>
000127b6 ;    <LVAR -0x00e 4(rw)>
000127b6 ;    <LVAR -0x010 1(rw)>
000127b6 ;    <LVAR -0x014 4(rw)>
000127b6 ;    <LVAR -0x016 @ 2(r)>
000127b6 ;    <LVAR -0x018 @ 2(r)>
000127b6 ;    <LVAR -0x092 @>
000127b6 ;    <LVAR -0x094 2(w)>
000127b6 ;    <LVAR -0x096 2(w)>
000127b6 ;    <LVAR -0x098 2(rw)>
000127b6 ;    <LVAR -0x09a 2(w)>
000127b6 ;    <LVAR -0x09c 2(r)>
000127b6 ;    <LVAR -0x09e 2(w)>
000127b6 ;    <LVAR -0x0a0 2(r)>
000127b6 ;    <LVAR -0x0a2 @ 2(rw)>
000127b6 ;    <LVAR -0x0a4 @ 1(r)>
000127b6 ; --------------------------------------------------------------------------------------
000127b6					_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B):
000127b6 4e 56 ff 1e              |NV      |		LINK.W	A6,#0xff1e
000127ba bf d5                    |        |		CMPA.L	(A5),A7
000127bc 62 06                    |b       |		BHI	0x127c4
000127be 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000127c2 4e 76                    |Nv      |		TRAPV
000127c4 de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
000127c8 48 e7 f9 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
000127cc 43 ee 00 16              |C       |		LEA.L	(A6+0x16),A1
000127d0 45 ee ff 5e              |E  ^    |		LEA.L	(A6-0xa2),A2
000127d4 47 ee ff 68              |G  h    |		LEA.L	(A6-0x98),A3
000127d8 74 02                    |t       |		MOVEQ.L	#0x02,D2
000127da 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
000127dc 78 13                    |x       |		MOVEQ.L	#0x13,D4
000127de 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000127e0 4e b9 00 01 af c2        |N       |		JSR	_Is_fc07_one_or_three() : Bool
000127e6 4a 1f                    |J       |		TST.B	(A7)+
000127e8 67 58                    |gX      |		BEQ	0x12842
000127ea 10 11                    |        |		MOVE.B	(A1),D0
000127ec b0 02                    |        |		CMP.B	D2,D0
000127ee 67 06                    |g       |		BEQ	0x127f6
000127f0 0c 00 00 03              |        |		CMPI.B	#0x03,D0
000127f4 66 34                    |f4      |		BNE	0x1282a
000127f6 2d 6e 00 0c ff fa        |-n      |		MOVE.L	(A6+0xc),(A6-0x6)
000127fc 42 ae ff f2              |B       |		CLR.L	(A6-0xe)
00012800 2e 2e 00 10              |..      |		MOVE.L	(A6+0x10),D7
00012804 be ae ff f2              |        |		CMP.L	(A6-0xe),D7
00012808 67 1a                    |g       |		BEQ	0x12824
0001280a 1f 11                    |        |		MOVE.B	(A1),-(A7)
0001280c 49 ee ff 5c              |I  \    |		LEA.L	(A6-0xa4),A4
00012810 4e ba fe 54              |N  T    |		JSR	0x12666
00012814 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00012816 52 ae ff f2              |R       |		ADDQ.L	#0x1,(A6-0xe)
0001281a 06 ae 00 00 04 00 ff fa  |        |		ADDI.L	#0x00000400,(A6-0x6)
00012822 60 e0                    |`       |		BRA	0x12804
00012824 60 00 01 58              |`  X    |		BRA	0x1297e
00012828 60 18                    |`       |		.XXX[0x2]
0001282a 32 12                    |2       |		MOVE.W	(A2),D1
0001282c 02 41 fe 00              | A      |		ANDI.W	#0xfe00,D1
00012830 67 10                    |g       |		BEQ	0x12842
00012832 b0 04                    |        |		CMP.B	D4,D0
00012834 67 0c                    |g       |		BEQ	0x12842
00012836 48 78 00 63              |Hx c    |		PEA.L	0x63
0001283a 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
00012840 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00012842 3f 2e 00 14              |?.      |		MOVE.W	(A6+0x14),-(A7)
00012846 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
0001284a 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
0001284e 4e ba fd b2              |N       |		JSR	_Lba2Chs(lba : W; VAR cyl : W ; VAR hd_sec : W)
00012852 de c3                    |        |		ADDA.W	D3,A7
00012854 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
00012858 e1 80                    |        |		ASL.L	#0x8,D0
0001285a 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00012860 63 02                    |c       |		BLS	0x12864
00012862 4e 4f                    |NO      |		TRAP	#15
00012864 34 80                    |4       |		MOVE.W	D0,(A2)
00012866 42 6e ff 60              |Bn `    |		CLR.W	(A6-0xa0)
0001286a 3d 42 ff 62              |=B b    |		MOVE.W	D2,(A6-0x9e)
0001286e 42 6e ff 64              |Bn d    |		CLR.W	(A6-0x9c)
00012872 3d 7c 00 80 ff 66        |=|   f  |		MOVE.W	#0x80,(A6-0x9a)
00012878 3d 6e ff e8 ff 6a        |=n   j  |		MOVE.W	(A6-0x18),(A6-0x96)
0001287e 3d 6e ff ea ff 6c        |=n   l  |		MOVE.W	(A6-0x16),(A6-0x94)
00012884 10 11                    |        |		MOVE.B	(A1),D0
00012886 b0 04                    |        |		CMP.B	D4,D0
00012888 66 16                    |f       |		BNE	0x128a0
0001288a 30 39 00 01 00 08        |09      |		MOVE.W	mounted_drive,D0
00012890 e1 40                    | @      |		ASL.W	#0x8,D0
00012892 54 40                    |T@      |		ADDQ.W	#0x2,D0
00012894 36 80                    |6       |		MOVE.W	D0,(A3)
00012896 48 52                    |HR      |		PEA.L	(A2)
00012898 4e b9 00 01 02 1e        |N       |		JSR	KC0f_ReInit
0001289e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000128a0 1d 51 ff f0              | Q      |		MOVE.B	(A1),(A6-0x10)
000128a4 42 ae ff ec              |B       |		CLR.L	(A6-0x14)
000128a8 30 39 00 01 00 08        |09      |		MOVE.W	mounted_drive,D0
000128ae e1 40                    | @      |		ASL.W	#0x8,D0
000128b0 12 2e ff f0              | .      |		MOVE.B	(A6-0x10),D1
000128b4 48 81                    |H       |		EXTB.W	D1
000128b6 d2 40                    | @      |		ADD.W	D0,D1
000128b8 36 81                    |6       |		MOVE.W	D1,(A3)
000128ba 48 52                    |HR      |		PEA.L	(A2)
000128bc 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000128c0 42 67                    |Bg      |		CLR.W	-(A7)
000128c2 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
000128c8 de c3                    |        |		ADDA.W	D3,A7
000128ca 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000128ce 42 67                    |Bg      |		CLR.W	-(A7)
000128d0 48 50                    |HP      |		PEA.L	(A0)
000128d2 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
000128d8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000128da 4a 10                    |J       |		TST.B	(A0)
000128dc 66 00 00 86              |f       |		BNE	0x12964
000128e0 3d 7c 00 80 ff 66        |=|   f  |		MOVE.W	#0x80,(A6-0x9a)
000128e6 30 13                    |0       |		MOVE.W	(A3),D0
000128e8 02 40 ff 00              | @      |		ANDI.W	#0xff00,D0
000128ec 42 81                    |B       |		CLR.L	D1
000128ee 32 00                    |2       |		MOVE.W	D0,D1
000128f0 52 81                    |R       |		ADDQ.L	#0x1,D1
000128f2 0c 81 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D1
000128f8 63 02                    |c       |		BLS	0x128fc
000128fa 4e 4f                    |NO      |		TRAP	#15
000128fc 36 81                    |6       |		MOVE.W	D1,(A3)
000128fe 48 52                    |HR      |		PEA.L	(A2)
00012900 41 ee ff 6e              |A  n    |		LEA.L	(A6-0x92),A0
00012904 2f 08                    |/       |		MOVE.L	A0,-(A7)
00012906 42 67                    |Bg      |		CLR.W	-(A7)
00012908 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
0001290e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00012910 42 57                    |BW      |		CLR.W	(A7)
00012912 48 6e ff 5c              |Hn \    |		PEA.L	(A6-0xa4)
00012916 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
0001291c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001291e 4a 2e ff 5c              |J. \    |		TST.B	(A6-0xa4)
00012922 66 0c                    |f       |		BNE	0x12930
00012924 48 78 00 01              |Hx      |		PEA.L	0x1
00012928 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
0001292e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00012930 42 27                    |B'      |		CLR.B	-(A7)
00012932 41 ee ff 6e              |A  n    |		LEA.L	(A6-0x92),A0
00012936 2f 08                    |/       |		MOVE.L	A0,-(A7)
00012938 4e b9 00 01 44 d8        |N   D   |		JSR	_Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
0001293e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00012940 20 2e ff ec              | .      |		MOVE.L	(A6-0x14),D0
00012944 b0 83                    |        |		CMP.L	D3,D0
00012946 6d 1c                    |m       |		BLT	0x12964
00012948 12 11                    |        |		MOVE.B	(A1),D1
0001294a b2 02                    |        |		CMP.B	D2,D1
0001294c 66 16                    |f       |		BNE	0x12964
0001294e 0c 80 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D0
00012954 6c 08                    |l       |		BGE	0x1295e
00012956 1d 7c 00 06 ff f0        | |      |		MOVE.B	#0x06,(A6-0x10)
0001295c 60 06                    |`       |		BRA	0x12964
0001295e 1d 7c 00 05 ff f0        | |      |		MOVE.B	#0x05,(A6-0x10)
00012964 52 ae ff ec              |R       |		ADDQ.L	#0x1,(A6-0x14)
00012968 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001296c 4a 10                    |J       |		TST.B	(A0)
0001296e 66 0e                    |f       |		BNE	0x1297e
00012970 20 2e ff ec              | .      |		MOVE.L	(A6-0x14),D0
00012974 0c 80 00 00 00 14        |        |		CMPI.L	#0x00000014,D0
0001297a 66 00 ff 2c              |f  ,    |		BNE	0x128a8
0001297e 4c df 1f 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4
00012982 4e 5e                    |N^      |		UNLK	A6
00012984 4e 75                    |Nu      |		RTS
00012986 ; --------------------------------------------------------------------------------------
00012986 ; ReadWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B)
00012986 ; Stack:
00012986 ;     A6+0x14     lba : W
00012986 ;     A6+0x12     offset : W
00012986 ;     A6+0xe      ptr : L
00012986 ;     A6+0xc      nwords : W
00012986 ;     A6+0x8  VAR status : B
00012986 ; OMSI PASCAL Function
00012986 ;    <LVAR  0x014 2(r)>
00012986 ;    <LVAR  0x012 2(r)>
00012986 ;    <LVAR  0x00e 4(r)>
00012986 ;    <LVAR  0x00c 2(r)>
00012986 ;    <LVAR  0x008 4(r)>
00012986 ;    <LVAR -0x00e @ 4(rw)>
00012986 ; --------------------------------------------------------------------------------------
00012986					_ReadWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B):
00012986 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
0001298a bf d5                    |        |		CMPA.L	(A5),A7
0001298c 62 06                    |b       |		BHI	0x12994
0001298e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00012992 4e 76                    |Nv      |		TRAPV
00012994 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00012998 48 e7 e1 e8              |H       |		MOVEM.L	A4+A2+A1+A0+D7+D2+D1+D0,-(A7)
0001299c 43 ee ff f2              |C       |		LEA.L	(A6-0xe),A1
000129a0 45 ee 00 12              |E       |		LEA.L	(A6+0x12),A2
000129a4 34 3c 02 00              |4<      |		MOVE.W	#0x200,D2
000129a8 30 2e 00 0c              |0.      |		MOVE.W	(A6+0xc),D0
000129ac b0 42                    | B      |		CMP.W	D2,D0
000129ae 67 10                    |g       |		BEQ	0x129c0
000129b0 48 51                    |HQ      |		PEA.L	(A1)
000129b2 48 78 04 00              |Hx      |		PEA.L	0x400
000129b6 4e b9 00 01 08 56        |N    V  |		JSR	_Malloc1(length : Long) : Pointer
000129bc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000129be 60 04                    |`       |		BRA	0x129c4
000129c0 22 ae 00 0e              |"       |		MOVE.L	(A6+0xe),(A1)
000129c4 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000129c8 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000129cc 3f 2e 00 14              |?.      |		MOVE.W	(A6+0x14),-(A7)
000129d0 48 78 00 01              |Hx      |		PEA.L	0x1
000129d4 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000129d6 48 50                    |HP      |		PEA.L	(A0)
000129d8 4e ba fd dc              |N       |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
000129dc de fc 00 10              |        |		ADDA.W	#0x10,A7
000129e0 4a 10                    |J       |		TST.B	(A0)
000129e2 67 4a                    |gJ      |		BEQ	0x12a2e
000129e4 b0 42                    | B      |		CMP.W	D2,D0
000129e6 67 46                    |gF      |		BEQ	0x12a2e
000129e8 28 6e 00 0e              |(n      |		MOVEA.L	(A6+0xe),A4
000129ec d0 52                    | R      |		ADD.W	(A2),D0
000129ee 53 40                    |S@      |		SUBQ.W	#0x1,D0
000129f0 48 c0                    |H       |		EXTW.L	D0
000129f2 2f 00                    |/       |		MOVE.L	D0,-(A7)
000129f4 30 12                    |0       |		MOVE.W	(A2),D0
000129f6 48 c0                    |H       |		EXTW.L	D0
000129f8 2e 00                    |.       |		MOVE.L	D0,D7
000129fa be 97                    |        |		CMP.L	(A7),D7
000129fc 6e 2e                    |n.      |		BGT	0x12a2c
000129fe 30 12                    |0       |		MOVE.W	(A2),D0
00012a00 48 c0                    |H       |		EXTW.L	D0
00012a02 44 80                    |D       |		NEG.L	D0
00012a04 d0 87                    |        |		ADD.L	D7,D0
00012a06 0c 80 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D0
00012a0c 63 02                    |c       |		BLS	0x12a10
00012a0e 4e 4f                    |NO      |		TRAP	#15
00012a10 e3 80                    |        |		ASL.L	#0x1,D0
00012a12 20 51                    | Q      |		MOVEA.L	(A1),A0
00012a14 0c 87 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D7
00012a1a 63 02                    |c       |		BLS	0x12a1e
00012a1c 4e 4f                    |NO      |		TRAP	#15
00012a1e 22 07                    |"       |		MOVE.L	D7,D1
00012a20 e3 81                    |        |		ASL.L	#0x1,D1
00012a22 39 b0 18 00 08 00        |9       |		MOVE.W	(A0+D1.L),(A4+D0.L)
00012a28 52 87                    |R       |		ADDQ.L	#0x1,D7
00012a2a 68 ce                    |h       |		BVC	0x129fa
00012a2c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00012a2e 30 2e 00 0c              |0.      |		MOVE.W	(A6+0xc),D0
00012a32 b0 42                    | B      |		CMP.W	D2,D0
00012a34 67 0e                    |g       |		BEQ	0x12a44
00012a36 48 51                    |HQ      |		PEA.L	(A1)
00012a38 48 78 04 00              |Hx      |		PEA.L	0x400
00012a3c 4e b9 00 01 08 fa        |N       |		JSR	_Free2(a : Pointer; b : Long)
00012a42 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00012a44 4c df 17 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1+A2+A4
00012a48 4e 5e                    |N^      |		UNLK	A6
00012a4a 4e 75                    |Nu      |		RTS
00012a4c ; --------------------------------------------------------------------------------------
00012a4c ; WriteWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B)
00012a4c ; Stack:
00012a4c ;     A6+0x14     lba : W
00012a4c ;     A6+0x12     offset : W
00012a4c ;     A6+0xe      ptr : L
00012a4c ;     A6+0xc      nwords : W
00012a4c ;     A6+0x8  VAR status : B
00012a4c ; OMSI PASCAL Function
00012a4c ;    <LVAR  0x014 2(r)>
00012a4c ;    <LVAR  0x012 2(r)>
00012a4c ;    <LVAR  0x00e 4(r)>
00012a4c ;    <LVAR  0x00c 2(r)>
00012a4c ;    <LVAR  0x008 4(r)>
00012a4c ;    <LVAR -0x00a @ 4(rw)>
00012a4c ; --------------------------------------------------------------------------------------
00012a4c					_WriteWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B):
00012a4c 4e 56 ff b6              |NV      |		LINK.W	A6,#0xffb6
00012a50 bf d5                    |        |		CMPA.L	(A5),A7
00012a52 62 06                    |b       |		BHI	0x12a5a
00012a54 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00012a58 4e 76                    |Nv      |		TRAPV
00012a5a de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
00012a5e 48 e7 e1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7)
00012a62 43 ee ff f6              |C       |		LEA.L	(A6-0xa),A1
00012a66 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
00012a6a 47 ee 00 12              |G       |		LEA.L	(A6+0x12),A3
00012a6e 74 10                    |t       |		MOVEQ.L	#0x10,D2
00012a70 30 12                    |0       |		MOVE.W	(A2),D0
00012a72 0c 40 02 00              | @      |		CMPI.W	#0x0200,D0
00012a76 66 06                    |f       |		BNE	0x12a7e
00012a78 22 ae 00 0e              |"       |		MOVE.L	(A6+0xe),(A1)
00012a7c 60 76                    |`v      |		BRA	0x12af4
00012a7e 48 51                    |HQ      |		PEA.L	(A1)
00012a80 48 78 04 00              |Hx      |		PEA.L	0x400
00012a84 4e b9 00 01 08 56        |N    V  |		JSR	_Malloc1(length : Long) : Pointer
00012a8a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00012a8c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00012a90 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00012a94 3f 2e 00 14              |?.      |		MOVE.W	(A6+0x14),-(A7)
00012a98 48 78 00 01              |Hx      |		PEA.L	0x1
00012a9c 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00012a9e 48 50                    |HP      |		PEA.L	(A0)
00012aa0 4e ba fd 14              |N       |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00012aa4 de c2                    |        |		ADDA.W	D2,A7
00012aa6 4a 10                    |J       |		TST.B	(A0)
00012aa8 66 02                    |f       |		BNE	0x12aac
00012aaa 60 62                    |`b      |		BRA	0x12b0e
00012aac 28 6e 00 0e              |(n      |		MOVEA.L	(A6+0xe),A4
00012ab0 30 13                    |0       |		MOVE.W	(A3),D0
00012ab2 d0 52                    | R      |		ADD.W	(A2),D0
00012ab4 53 40                    |S@      |		SUBQ.W	#0x1,D0
00012ab6 48 c0                    |H       |		EXTW.L	D0
00012ab8 2f 00                    |/       |		MOVE.L	D0,-(A7)
00012aba 30 13                    |0       |		MOVE.W	(A3),D0
00012abc 48 c0                    |H       |		EXTW.L	D0
00012abe 2e 00                    |.       |		MOVE.L	D0,D7
00012ac0 be 97                    |        |		CMP.L	(A7),D7
00012ac2 6e 2e                    |n.      |		BGT	0x12af2
00012ac4 20 51                    | Q      |		MOVEA.L	(A1),A0
00012ac6 0c 87 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D7
00012acc 63 02                    |c       |		BLS	0x12ad0
00012ace 4e 4f                    |NO      |		TRAP	#15
00012ad0 20 07                    |        |		MOVE.L	D7,D0
00012ad2 e3 80                    |        |		ASL.L	#0x1,D0
00012ad4 32 13                    |2       |		MOVE.W	(A3),D1
00012ad6 48 c1                    |H       |		EXTW.L	D1
00012ad8 44 81                    |D       |		NEG.L	D1
00012ada d2 87                    |        |		ADD.L	D7,D1
00012adc 0c 81 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D1
00012ae2 63 02                    |c       |		BLS	0x12ae6
00012ae4 4e 4f                    |NO      |		TRAP	#15
00012ae6 e3 81                    |        |		ASL.L	#0x1,D1
00012ae8 31 b4 18 00 08 00        |1       |		MOVE.W	(A4+D1.L),(A0+D0.L)
00012aee 52 87                    |R       |		ADDQ.L	#0x1,D7
00012af0 68 ce                    |h       |		BVC	0x12ac0
00012af2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00012af4 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00012af8 3f 2e 00 14              |?.      |		MOVE.W	(A6+0x14),-(A7)
00012afc 48 78 00 01              |Hx      |		PEA.L	0x1
00012b00 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00012b02 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00012b06 48 50                    |HP      |		PEA.L	(A0)
00012b08 4e ba fc ac              |N       |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00012b0c de c2                    |        |		ADDA.W	D2,A7
00012b0e 30 12                    |0       |		MOVE.W	(A2),D0
00012b10 0c 40 02 00              | @      |		CMPI.W	#0x0200,D0
00012b14 67 0e                    |g       |		BEQ	0x12b24
00012b16 48 51                    |HQ      |		PEA.L	(A1)
00012b18 48 78 04 00              |Hx      |		PEA.L	0x400
00012b1c 4e b9 00 01 08 fa        |N       |		JSR	_Free2(a : Pointer; b : Long)
00012b22 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00012b24 4c df 1f 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4
00012b28 4e 5e                    |N^      |		UNLK	A6
00012b2a 4e 75                    |Nu      |		RTS
00012b2c ; --------------------------------------------------------------------------------------
00012b2c ; OMSI PASCAL Function
00012b2c ;    <LVAR  0x010 2(r)>
00012b2c ;    <LVAR  0x00c 4(r)>
00012b2c ;    <LVAR  0x008 4(r)>
00012b2c ;    <LVAR -0x004 2(r) 4(rw)>
00012b2c ;    <LVAR -0x006 2(rw)>
00012b2c ;    <LVAR -0x008 2(rw)>
00012b2c ;    <LVAR -0x00a 2(rw)>
00012b2c ;    <LVAR -0x00c @ 1(r)>
00012b2c ;    <LVAR -0x414 2(rw)>
00012b2c ;    <LVAR -0x416 @ 2(rw) 4(rw)>
00012b2c ; --------------------------------------------------------------------------------------
00012b2c 4e 56 fb 94              |NV      |		LINK.W	A6,#0xfb94
00012b30 bf d5                    |        |		CMPA.L	(A5),A7
00012b32 62 06                    |b       |		BHI	0x12b3a
00012b34 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00012b38 4e 76                    |Nv      |		TRAPV
00012b3a de fc 00 56              |   V    |		ADDA.W	#0x56,A7
00012b3e 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00012b42 43 ee fb ea              |C       |		LEA.L	(A6-0x416),A1
00012b46 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
00012b4a 47 ee fb ec              |G       |		LEA.L	(A6-0x414),A3
00012b4e 78 10                    |x       |		MOVEQ.L	#0x10,D4
00012b50 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00012b54 42 50                    |BP      |		CLR.W	(A0)
00012b56 4a 79 00 01 00 10        |Jy      |		TST.W	superblock_sector.freelist_lba
00012b5c 66 04                    |f       |		BNE	0x12b62
00012b5e 60 00 01 90              |`       |		BRA	0x12cf0
00012b62 20 49                    | I      |		MOVEA.L	A1,A0
00012b64 2f 08                    |/       |		MOVE.L	A0,-(A7)
00012b66 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00012b68 36 b9 00 01 00 10        |6       |		MOVE.W	superblock_sector.freelist_lba,(A3)
00012b6e 42 51                    |BQ      |		CLR.W	(A1)
00012b70 42 6e ff fc              |Bn      |		CLR.W	(A6-0x4)
00012b74 30 11                    |0       |		MOVE.W	(A1),D0
00012b76 b0 6e 00 10              | n      |		CMP.W	(A6+0x10),D0
00012b7a 64 58                    |dX      |		BCC	0x12bd4
00012b7c 4a 53                    |JS      |		TST.W	(A3)
00012b7e 67 54                    |gT      |		BEQ	0x12bd4
00012b80 41 bc 40 00              |A @     |		CHK.W	#0x4000,D0
00012b84 3a 00                    |:       |		MOVE.W	D0,D5
00012b86 3c 07                    |<       |		MOVE.W	D7,D6
00012b88 3e 13                    |>       |		MOVE.W	(A3),D7
00012b8a 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00012b8e 3f 07                    |?       |		MOVE.W	D7,-(A7)
00012b90 48 78 00 01              |Hx      |		PEA.L	0x1
00012b94 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00012b96 48 52                    |HR      |		PEA.L	(A2)
00012b98 4e ba fc 1c              |N       |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00012b9c de c4                    |        |		ADDA.W	D4,A7
00012b9e 4a 12                    |J       |		TST.B	(A2)
00012ba0 66 04                    |f       |		BNE	0x12ba6
00012ba2 60 00 01 4c              |`  L    |		BRA	0x12cf0
00012ba6 4a 51                    |JQ      |		TST.W	(A1)
00012ba8 66 0c                    |f       |		BNE	0x12bb6
00012baa 48 78 00 15              |Hx      |		PEA.L	0x15
00012bae 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
00012bb4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00012bb6 32 11                    |2       |		MOVE.W	(A1),D1
00012bb8 b2 6e ff fc              | n      |		CMP.W	(A6-0x4),D1
00012bbc 63 14                    |c       |		BLS	0x12bd2
00012bbe 3d 47 ff f8              |=G      |		MOVE.W	D7,(A6-0x8)
00012bc2 2d 51 ff fc              |-Q      |		MOVE.L	(A1),(A6-0x4)
00012bc6 3d 46 ff f6              |=F      |		MOVE.W	D6,(A6-0xa)
00012bca 4b bc 40 00              |K @     |		CHK.W	#0x4000,D5
00012bce 3d 45 ff fa              |=E      |		MOVE.W	D5,(A6-0x6)
00012bd2 60 a0                    |`       |		BRA	0x12b74
00012bd4 b0 6e 00 10              | n      |		CMP.W	(A6+0x10),D0
00012bd8 63 60                    |c`      |		BLS	0x12c3a
00012bda 42 81                    |B       |		CLR.L	D1
00012bdc 32 00                    |2       |		MOVE.W	D0,D1
00012bde 30 2e 00 10              |0.      |		MOVE.W	(A6+0x10),D0
00012be2 48 c0                    |H       |		EXTW.L	D0
00012be4 92 80                    |        |		SUB.L	D0,D1
00012be6 0c 81 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D1
00012bec 63 02                    |c       |		BLS	0x12bf0
00012bee 4e 4f                    |NO      |		TRAP	#15
00012bf0 32 81                    |2       |		MOVE.W	D1,(A1)
00012bf2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00012bf6 42 82                    |B       |		CLR.L	D2
00012bf8 34 07                    |4       |		MOVE.W	D7,D2
00012bfa 42 83                    |B       |		CLR.L	D3
00012bfc 36 01                    |6       |		MOVE.W	D1,D3
00012bfe d6 82                    |        |		ADD.L	D2,D3
00012c00 0c 83 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D3
00012c06 63 02                    |c       |		BLS	0x12c0a
00012c08 4e 4f                    |NO      |		TRAP	#15
00012c0a 30 83                    |0       |		MOVE.W	D3,(A0)
00012c0c 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00012c10 3f 02                    |?       |		MOVE.W	D2,-(A7)
00012c12 48 78 00 01              |Hx      |		PEA.L	0x1
00012c16 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00012c18 48 52                    |HR      |		PEA.L	(A2)
00012c1a 4e ba fb 9a              |N       |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00012c1e de c4                    |        |		ADDA.W	D4,A7
00012c20 4a 12                    |J       |		TST.B	(A2)
00012c22 66 0c                    |f       |		BNE	0x12c30
00012c24 48 78 00 02              |Hx      |		PEA.L	0x2
00012c28 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
00012c2e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00012c30 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00012c34 30 80                    |0       |		MOVE.W	D0,(A0)
00012c36 60 00 00 b8              |`       |		BRA	0x12cf0
00012c3a b0 6e ff fc              | n      |		CMP.W	(A6-0x4),D0
00012c3e 64 16                    |d       |		BCC	0x12c56
00012c40 22 ae ff fc              |"       |		MOVE.L	(A6-0x4),(A1)
00012c44 3e 2e ff f8              |>.      |		MOVE.W	(A6-0x8),D7
00012c48 30 2e ff fa              |0.      |		MOVE.W	(A6-0x6),D0
00012c4c 41 bc 40 00              |A @     |		CHK.W	#0x4000,D0
00012c50 3a 00                    |:       |		MOVE.W	D0,D5
00012c52 3c 2e ff f6              |<.      |		MOVE.W	(A6-0xa),D6
00012c56 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00012c5a 30 11                    |0       |		MOVE.W	(A1),D0
00012c5c 41 bc 40 00              |A @     |		CHK.W	#0x4000,D0
00012c60 30 80                    |0       |		MOVE.W	D0,(A0)
00012c62 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00012c66 30 87                    |0       |		MOVE.W	D7,(A0)
00012c68 be 79 00 01 00 10        | y      |		CMP.W	superblock_sector.freelist_lba,D7
00012c6e 66 3e                    |f>      |		BNE	0x12cae
00012c70 33 d3 00 01 00 10        |3       |		MOVE.W	(A3),superblock_sector.freelist_lba
00012c76 4a 53                    |JS      |		TST.W	(A3)
00012c78 66 08                    |f       |		BNE	0x12c82
00012c7a 42 79 00 01 00 22        |By   "  |		CLR.W	freelist_sector
00012c80 60 2a                    |`*      |		BRA	0x12cac
00012c82 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00012c86 3f 13                    |?       |		MOVE.W	(A3),-(A7)
00012c88 48 78 00 01              |Hx      |		PEA.L	0x1
00012c8c 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00012c8e 48 52                    |HR      |		PEA.L	(A2)
00012c90 4e ba fb 24              |N  $    |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00012c94 de c4                    |        |		ADDA.W	D4,A7
00012c96 4a 12                    |J       |		TST.B	(A2)
00012c98 66 0c                    |f       |		BNE	0x12ca6
00012c9a 48 78 00 03              |Hx      |		PEA.L	0x3
00012c9e 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
00012ca4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00012ca6 23 d1 00 01 00 22        |#    "  |		MOVE.L	(A1),freelist_sector
00012cac 60 3c                    |`<      |		BRA	0x12cea
00012cae 0c 45 ff ff              | E      |		CMPI.W	#0xffff,D5
00012cb2 63 02                    |c       |		BLS	0x12cb6
00012cb4 4e 4f                    |NO      |		TRAP	#15
00012cb6 32 85                    |2       |		MOVE.W	D5,(A1)
00012cb8 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00012cbc 3f 06                    |?       |		MOVE.W	D6,-(A7)
00012cbe 48 78 00 01              |Hx      |		PEA.L	0x1
00012cc2 2f 0c                    |/       |		MOVE.L	A4,-(A7)
00012cc4 48 52                    |HR      |		PEA.L	(A2)
00012cc6 4e ba fa ee              |N       |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00012cca de c4                    |        |		ADDA.W	D4,A7
00012ccc 4a 12                    |J       |		TST.B	(A2)
00012cce 66 0c                    |f       |		BNE	0x12cdc
00012cd0 48 78 00 04              |Hx      |		PEA.L	0x4
00012cd4 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
00012cda 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00012cdc bc 79 00 01 00 10        | y      |		CMP.W	superblock_sector.freelist_lba,D6
00012ce2 66 0c                    |f       |		BNE	0x12cf0
00012ce4 33 d3 00 01 00 24        |3    $  |		MOVE.W	(A3),0x10024
00012cea 4e b9 00 01 3e 4e        |N   >N  |		JSR	_WriteFreeList(void)
00012cf0 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00012cf4 4e 5e                    |N^      |		UNLK	A6
00012cf6 4e 75                    |Nu      |		RTS
00012cf8 ; --------------------------------------------------------------------------------------
00012cf8 ; FS10378(MOD a : File; b: Byte; VAR c: Bool)
00012cf8 ; Stack:
00012cf8 ;     A6+0xe      a : File
00012cf8 ;     A6+0xc      b : Byte
00012cf8 ;     A6+0x8  VAR c : Bool
00012cf8 ; OMSI PASCAL Function
00012cf8 ;    <LVAR  0x00e 4(r)>
00012cf8 ;    <LVAR  0x00c 1(r)>
00012cf8 ;    <LVAR  0x008 4(r)>
00012cf8 ;    <LVAR -0x008 @ 2(rw)>
00012cf8 ;    <LVAR -0x00e @ 2(rw)>
00012cf8 ; --------------------------------------------------------------------------------------
00012cf8					_FS10378(MOD a : File; b: Byte; VAR c: Bool):
00012cf8 4e 56 ff aa              |NV      |		LINK.W	A6,#0xffaa
00012cfc bf d5                    |        |		CMPA.L	(A5),A7
00012cfe 62 06                    |b       |		BHI	0x12d06
00012d00 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00012d04 4e 76                    |Nv      |		TRAPV
00012d06 de fc 00 48              |   H    |		ADDA.W	#0x48,A7
00012d0a 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00012d0e 43 ee 00 0e              |C       |		LEA.L	(A6+0xe),A1
00012d12 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00012d16 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
00012d1a 49 ee ff f2              |I       |		LEA.L	(A6-0xe),A4
00012d1e 76 01                    |v       |		MOVEQ.L	#0x01,D3
00012d20 28 3c 00 00 ff ff        |(<      |		MOVE.L	#0xffff,D4
00012d26 20 52                    | R      |		MOVEA.L	(A2),A0
00012d28 42 10                    |B       |		CLR.B	(A0)
00012d2a 20 51                    | Q      |		MOVEA.L	(A1),A0
00012d2c 4a 68 00 20              |Jh      |		TST.W	(A0+0x20)
00012d30 66 04                    |f       |		BNE	0x12d36
00012d32 60 00 00 de              |`       |		BRA	0x12e12
00012d36 4a 79 00 01 00 10        |Jy      |		TST.W	superblock_sector.freelist_lba
00012d3c 66 08                    |f       |		BNE	0x12d46
00012d3e 20 52                    | R      |		MOVEA.L	(A2),A0
00012d40 10 83                    |        |		MOVE.B	D3,(A0)
00012d42 60 00 00 ce              |`       |		BRA	0x12e12
00012d46 20 51                    | Q      |		MOVEA.L	(A1),A0
00012d48 3c 28 00 20              |<(      |		MOVE.W	(A0+0x20),D6
00012d4c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00012d4e 7a 00                    |z       |		MOVEQ.L	#0x00,D5
00012d50 bc 79 00 01 00 22        | y   "  |		CMP.W	freelist_sector,D6
00012d56 65 14                    |e       |		BCS	0x12d6c
00012d58 4d bc 40 00              |M @     |		CHK.W	#0x4000,D6
00012d5c 3f 06                    |?       |		MOVE.W	D6,-(A7)
00012d5e 48 53                    |HS      |		PEA.L	(A3)
00012d60 48 54                    |HT      |		PEA.L	(A4)
00012d62 4e ba fd c8              |N       |		JSR	0x12b2c
00012d66 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00012d6a 60 3e                    |`>      |		BRA	0x12daa
00012d6c 4d bc 40 00              |M @     |		CHK.W	#0x4000,D6
00012d70 36 86                    |6       |		MOVE.W	D6,(A3)
00012d72 42 80                    |B       |		CLR.L	D0
00012d74 30 39 00 01 00 22        |09   "  |		MOVE.W	freelist_sector,D0
00012d7a 42 81                    |B       |		CLR.L	D1
00012d7c 32 06                    |2       |		MOVE.W	D6,D1
00012d7e 44 81                    |D       |		NEG.L	D1
00012d80 d2 80                    |        |		ADD.L	D0,D1
00012d82 b2 84                    |        |		CMP.L	D4,D1
00012d84 63 02                    |c       |		BLS	0x12d88
00012d86 4e 4f                    |NO      |		TRAP	#15
00012d88 33 c1 00 01 00 22        |3    "  |		MOVE.W	D1,freelist_sector
00012d8e 42 80                    |B       |		CLR.L	D0
00012d90 30 39 00 01 00 10        |09      |		MOVE.W	superblock_sector.freelist_lba,D0
00012d96 42 82                    |B       |		CLR.L	D2
00012d98 34 01                    |4       |		MOVE.W	D1,D2
00012d9a d4 80                    |        |		ADD.L	D0,D2
00012d9c b4 84                    |        |		CMP.L	D4,D2
00012d9e 63 02                    |c       |		BLS	0x12da2
00012da0 4e 4f                    |NO      |		TRAP	#15
00012da2 38 82                    |8       |		MOVE.W	D2,(A4)
00012da4 4e b9 00 01 3e 4e        |N   >N  |		JSR	_WriteFreeList(void)
00012daa 42 80                    |B       |		CLR.L	D0
00012dac 30 06                    |0       |		MOVE.W	D6,D0
00012dae 32 13                    |2       |		MOVE.W	(A3),D1
00012db0 48 c1                    |H       |		EXTW.L	D1
00012db2 90 81                    |        |		SUB.L	D1,D0
00012db4 b0 84                    |        |		CMP.L	D4,D0
00012db6 63 02                    |c       |		BLS	0x12dba
00012db8 4e 4f                    |NO      |		TRAP	#15
00012dba 3c 00                    |<       |		MOVE.W	D0,D6
00012dbc 42 80                    |B       |		CLR.L	D0
00012dbe 30 07                    |0       |		MOVE.W	D7,D0
00012dc0 d0 81                    |        |		ADD.L	D1,D0
00012dc2 b0 84                    |        |		CMP.L	D4,D0
00012dc4 63 02                    |c       |		BLS	0x12dc8
00012dc6 4e 4f                    |NO      |		TRAP	#15
00012dc8 3e 00                    |>       |		MOVE.W	D0,D7
00012dca 4a 81                    |J       |		TST.L	D1
00012dcc 67 1c                    |g       |		BEQ	0x12dea
00012dce 20 51                    | Q      |		MOVEA.L	(A1),A0
00012dd0 0c 85 00 00 00 05        |        |		CMPI.L	#0x00000005,D5
00012dd6 63 02                    |c       |		BLS	0x12dda
00012dd8 4e 4f                    |NO      |		TRAP	#15
00012dda 20 05                    |        |		MOVE.L	D5,D0
00012ddc e5 80                    |        |		ASL.L	#0x2,D0
00012dde 31 94 08 24              |1  $    |		MOVE.W	(A4),(A0+D0.L+#0x24)
00012de2 4f bc 40 00              |O @     |		CHK.W	#0x4000,D7
00012de6 31 87 08 22              |1  "    |		MOVE.W	D7,(A0+D0.L+#0x22)
00012dea 4a 46                    |JF      |		TST.W	D6
00012dec 66 02                    |f       |		BNE	0x12df0
00012dee 60 22                    |`"      |		BRA	0x12e12
00012df0 4a 2e 00 0c              |J.      |		TST.B	(A6+0xc)
00012df4 67 02                    |g       |		BEQ	0x12df8
00012df6 60 0c                    |`       |		BRA	0x12e04
00012df8 52 85                    |R       |		ADDQ.L	#0x1,D5
00012dfa 0c 85 00 00 00 05        |        |		CMPI.L	#0x00000005,D5
00012e00 6f 00 ff 4e              |o  N    |		BLE	0x12d50
00012e04 20 52                    | R      |		MOVEA.L	(A2),A0
00012e06 10 83                    |        |		MOVE.B	D3,(A0)
00012e08 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00012e0a 4e b9 00 01 2e 20        |N   .   |		JSR	_FS1037c(MOD a : File)
00012e10 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00012e12 20 51                    | Q      |		MOVEA.L	(A1),A0
00012e14 11 43 00 4c              | C L    |		MOVE.B	D3,(A0+0x4c)
00012e18 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00012e1c 4e 5e                    |N^      |		UNLK	A6
00012e1e 4e 75                    |Nu      |		RTS
00012e20 ; --------------------------------------------------------------------------------------
00012e20 ; FS1037c(MOD a : File)
00012e20 ; Stack:
00012e20 ;     A6+0x8      a : File
00012e20 ; OMSI PASCAL Function
00012e20 ;    <LVAR  0x008 4(r)>
00012e20 ; --------------------------------------------------------------------------------------
00012e20					_FS1037c(MOD a : File):
00012e20 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
00012e24 bf d5                    |        |		CMPA.L	(A5),A7
00012e26 62 06                    |b       |		BHI	0x12e2e
00012e28 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00012e2c 4e 76                    |Nv      |		TRAPV
00012e2e de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00012e32 48 e7 e3 80              |H       |		MOVEM.L	A0+D7+D6+D2+D1+D0,-(A7)
00012e36 74 05                    |t       |		MOVEQ.L	#0x05,D2
00012e38 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00012e3a 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00012e3c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00012e40 bc 82                    |        |		CMP.L	D2,D6
00012e42 63 02                    |c       |		BLS	0x12e46
00012e44 4e 4f                    |NO      |		TRAP	#15
00012e46 20 06                    |        |		MOVE.L	D6,D0
00012e48 e5 80                    |        |		ASL.L	#0x2,D0
00012e4a 4a 70 08 22              |Jp "    |		TST.W	(A0+D0.L+#0x22)
00012e4e 67 3e                    |g>      |		BEQ	0x12e8e
00012e50 32 30 08 22              |20 "    |		MOVE.W	(A0+D0.L+#0x22),D1
00012e54 92 47                    | G      |		SUB.W	D7,D1
00012e56 0c 41 ff ff              | A      |		CMPI.W	#0xffff,D1
00012e5a 63 02                    |c       |		BLS	0x12e5e
00012e5c 4e 4f                    |NO      |		TRAP	#15
00012e5e 33 c1 00 01 00 22        |3    "  |		MOVE.W	D1,freelist_sector
00012e64 33 f9 00 01 00 10 00 01  |3       |		MOVE.W	superblock_sector.freelist_lba,0x10024
00012e6c 00 24                    | $      |
00012e6e 33 f0 08 24 00 01 00 10  |3  $    |		MOVE.W	(A0+D0.L+#0x24),superblock_sector.freelist_lba
00012e76 32 30 08 22              |20 "    |		MOVE.W	(A0+D0.L+#0x22),D1
00012e7a 43 bc 40 00              |C @     |		CHK.W	#0x4000,D1
00012e7e 3e 01                    |>       |		MOVE.W	D1,D7
00012e80 42 70 08 22              |Bp "    |		CLR.W	(A0+D0.L+#0x22)
00012e84 42 70 08 24              |Bp $    |		CLR.W	(A0+D0.L+#0x24)
00012e88 4e b9 00 01 3e 4e        |N   >N  |		JSR	_WriteFreeList(void)
00012e8e 52 86                    |R       |		ADDQ.L	#0x1,D6
00012e90 bc 82                    |        |		CMP.L	D2,D6
00012e92 6f a8                    |o       |		BLE	0x12e3c
00012e94 4c df 01 c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0
00012e98 4e 5e                    |N^      |		UNLK	A6
00012e9a 4e 75                    |Nu      |		RTS
00012e9c 45 6e 74 65 72 20 75 6e  |Enter un|		.TXT	'Enter unit number of disk to initialize :_'
00012ec6 46 61 74 61 6c 20 72 65  |Fatal re|		.TXT	'Fatal restart error :_'
00012edc 46 69 6c 65 20 63 6f 6e  |File con|		.TXT	'File control block obsolete after pop ->'
00012f04 4f 70 65 72              |Oper    |		.XXX[0x4]
00012f08 61 74 69 6f 6e 20 73 75  |ation su|		.XXX[0x28]
00012f10 63 63 65 73 73 66 75 6c  |ccessful|
00012f18 5f 20 20 20 20 20 20 20  |_       |
00012f20 20 20 42 61 64 20 66 69  |  Bad fi|
00012f28 6c 65 6e 61 6d 65 5f 20  |lename_ |
00012f30 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00012f40 46 69 6c 65 20 64 6f 65  |File doe|		.XXX[0x1b0]
00012f48 73 20 6e 6f 74 20 65 78  |s not ex|
00012f50 69 73 74 5f 20 20 20 20  |ist_    |
00012f58 20 20 20 20 20 20 46 69  |      Fi|
00012f60 6c 65 20 69 73 20 6e 6f  |le is no|
00012f68 74 20 6f 70 65 6e 5f 20  |t open_ |
00012f70 20 20 20 20 20 20 20 20  |        |
00012f78 20 20 20 20 4f 75 74 20  |    Out |
00012f80 6f 66 20 64 69 73 6b 20  |of disk |
00012f88 73 70 61 63 65 5f 20 20  |space_  |
00012f90 20 20 20 20 20 20 20 20  |        |
00012f98 20 20 44 69 72 65 63 74  |  Direct|
00012fa0 6f 72 79 20 66 75 6c 6c  |ory full|
00012fa8 5f 20 20 20 20 20 20 20  |_       |
00012fb0 20 20 20 20 20 20 20 20  |        |
00012fb8 46 69 6c 65 20 61 6c 72  |File alr|
00012fc0 65 61 64 79 20 65 78 69  |eady exi|
00012fc8 73 74 73 5f 20 20 20 20  |sts_    |
00012fd0 20 20 20 20 20 20 46 69  |      Fi|
00012fd8 6c 65 20 63 6f 75 6c 64  |le could|
00012fe0 20 6e 6f 74 20 62 65 20  | not be |
00012fe8 72 65 6e 61 6d 65 64 5f  |renamed_|
00012ff0 20 20 20 20 46 69 6c 65  |    File|
00012ff8 20 63 61 6e 6e 6f 74 20  | cannot |
00013000 62 65 20 64 65 6c 65 74  |be delet|
00013008 65 64 5f 20 20 20 20 20  |ed_     |
00013010 20 20 49 6e 74 65 72 6e  |  Intern|
00013018 61 6c 20 50 41 47 45 20  |al PAGE |
00013020 65 72 72 6f 72 5f 20 20  |error_  |
00013028 20 20 20 20 20 20 20 20  |        |
00013030 49 6e 74 65 72 6e 61 6c  |Internal|
00013038 20 53 4c 49 43 45 20 65  | SLICE e|
00013040 72 72 6f 72 5f 20 20 20  |rror_   |
00013048 20 20 20 20 20 20 49 6e  |      In|
00013050 74 65 72 6e 61 6c 20 41  |ternal A|
00013058 44 44 52 45 53 53 20 65  |DDRESS e|
00013060 72 72 6f 72 5f 20 20 20  |rror_   |
00013068 20 20 20 20 48 61 72 64  |    Hard|
00013070 20 64 69 73 6b 20 65 72  | disk er|
00013078 72 6f 72 5f 20 20 20 20  |ror_    |
00013080 20 20 20 20 20 20 20 20  |        |
00013088 20 20 44 69 73 6b 20 68  |  Disk h|
00013090 61 73 20 6e 6f 20 44 46  |as no DF|
00013098 53 20 6c 61 62 65 6c 73  |S labels|
000130a0 5f 20 20 20 20 20 20 20  |_       |
000130a8 44 69 73 6b 20 68 61 73  |Disk has|
000130b0 20 6e 6f 20 44 46 53 5f  | no DFS_|
000130b8 20 20 20 20 20 20 20 20  |        |
000130c0 20 20 20 20 20 20 4e 6f  |      No|
000130c8 20 64 69 73 6b 20 70 72  | disk pr|
000130d0 65 73 65 6e 74 5f 20 20  |esent_  |
000130d8 20 20 20 20 20 20 20 20  |        |
000130e0 20 20 20 20 00 00 00 00  |        |
000130e8 10 40 ff 83 fe ff ff 87  | @      |
000130f0 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0x28]
00013118 00 00 00 00              |        |		.BLANK	00[0x4]
0001311c 4f 70 65 72              |Oper    |		.XXX[0x4]
00013120 61 74 69 6f 6e 20 73 75  |ation su|		.XXX[0x28]
00013128 63 63 65 73 73 66 75 6c  |ccessful|
00013130 5f 20 20 20 20 20 20 20  |_       |
00013138 20 20 42 61 64 20 66 69  |  Bad fi|
00013140 6c 65 6e 61 6d 65 5f 20  |lename_ |
00013148 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00013158 46 69 6c 65 20 64 6f 65  |File doe|		.XXX[0x1a0]
00013160 73 20 6e 6f 74 20 65 78  |s not ex|
00013168 69 73 74 5f 20 20 20 20  |ist_    |
00013170 20 20 20 20 20 20 46 69  |      Fi|
00013178 6c 65 20 69 73 20 6e 6f  |le is no|
00013180 74 20 6f 70 65 6e 5f 20  |t open_ |
00013188 20 20 20 20 20 20 20 20  |        |
00013190 20 20 20 20 4f 75 74 20  |    Out |
00013198 6f 66 20 64 69 73 6b 20  |of disk |
000131a0 73 70 61 63 65 5f 20 20  |space_  |
000131a8 20 20 20 20 20 20 20 20  |        |
000131b0 20 20 44 69 72 65 63 74  |  Direct|
000131b8 6f 72 79 20 66 75 6c 6c  |ory full|
000131c0 5f 20 20 20 20 20 20 20  |_       |
000131c8 20 20 20 20 20 20 20 20  |        |
000131d0 46 69 6c 65 20 61 6c 72  |File alr|
000131d8 65 61 64 79 20 65 78 69  |eady exi|
000131e0 73 74 73 5f 20 20 20 20  |sts_    |
000131e8 20 20 20 20 20 20 46 69  |      Fi|
000131f0 6c 65 20 63 6f 75 6c 64  |le could|
000131f8 20 6e 6f 74 20 62 65 20  | not be |
00013200 72 65 6e 61 6d 65 64 5f  |renamed_|
00013208 20 20 20 20 46 69 6c 65  |    File|
00013210 20 63 61 6e 6e 6f 74 20  | cannot |
00013218 62 65 20 64 65 6c 65 74  |be delet|
00013220 65 64 5f 20 20 20 20 20  |ed_     |
00013228 20 20 49 6e 74 65 72 6e  |  Intern|
00013230 61 6c 20 50 41 47 45 20  |al PAGE |
00013238 65 72 72 6f 72 5f 20 20  |error_  |
00013240 20 20 20 20 20 20 20 20  |        |
00013248 49 6e 74 65 72 6e 61 6c  |Internal|
00013250 20 53 4c 49 43 45 20 65  | SLICE e|
00013258 72 72 6f 72 5f 20 20 20  |rror_   |
00013260 20 20 20 20 20 20 49 6e  |      In|
00013268 74 65 72 6e 61 6c 20 41  |ternal A|
00013270 44 44 52 45 53 53 20 65  |DDRESS e|
00013278 72 72 6f 72 5f 20 20 20  |rror_   |
00013280 20 20 20 20 48 61 72 64  |    Hard|
00013288 20 64 69 73 6b 20 65 72  | disk er|
00013290 72 6f 72 5f 20 20 20 20  |ror_    |
00013298 20 20 20 20 20 20 20 20  |        |
000132a0 20 20 44 69 73 6b 20 68  |  Disk h|
000132a8 61 73 20 6e 6f 20 44 46  |as no DF|
000132b0 53 20 6c 61 62 65 6c 73  |S labels|
000132b8 5f 20 20 20 20 20 20 20  |_       |
000132c0 44 69 73 6b 20 68 61 73  |Disk has|
000132c8 20 6e 6f 20 44 46 53 5f  | no DFS_|
000132d0 20 20 20 20 20 20 20 20  |        |
000132d8 20 20 20 20 20 20 4e 6f  |      No|
000132e0 20 64 69 73 6b 20 70 72  | disk pr|
000132e8 65 73 65 6e 74 5f 20 20  |esent_  |
000132f0 20 20 20 20 20 20 20 20  |        |
000132f8 20 20 20 20              |        |		.XXX[0x4]
000132fc ; --------------------------------------------------------------------------------------
000132fc ; OMSI PASCAL Function
000132fc ;    <LVAR  0x00e 1(r)>
000132fc ;    <LVAR  0x00c 1(r)>
000132fc ;    <LVAR  0x008 @ 4(rw)>
000132fc ; --------------------------------------------------------------------------------------
000132fc 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
00013300 bf d5                    |        |		CMPA.L	(A5),A7
00013302 62 06                    |b       |		BHI	0x1330a
00013304 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00013308 4e 76                    |Nv      |		TRAPV
0001330a de fc 00 20              |        |		ADDA.W	#0x20,A7
0001330e 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
00013312 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
00013316 72 01                    |r       |		MOVEQ.L	#0x01,D1
00013318 20 51                    | Q      |		MOVEA.L	(A1),A0
0001331a b0 c1                    |        |		CMPA.W	D1,A0
0001331c 66 0a                    |f       |		BNE	0x13328
0001331e 48 51                    |HQ      |		PEA.L	(A1)
00013320 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
00013326 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013328 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0001332a 1f 2e 00 0e              | .      |		MOVE.B	(A6+0xe),-(A7)
0001332e 4e b9 00 01 42 fe        |N   B   |		JSR	_FsErrMsgStr(err: Byte) : String
00013334 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00013336 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00013338 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
0001333e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00013340 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00013342 10 2e 00 0c              | .      |		MOVE.B	(A6+0xc),D0
00013346 48 80                    |H       |		EXTB.W	D0
00013348 0c 40 00 02              | @      |		CMPI.W	#0x0002,D0
0001334c 63 02                    |c       |		BLS	0x13350
0001334e 4e 4e                    |NN      |		TRAP	#14
00013350 d0 40                    | @      |		ADD.W	D0,D0
00013352 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
0001335a 00 06                    |        |		.CONST	0x6			; [0x0] -> 0x13360
0001335c 00 12                    |        |		.CONST	0x12			; [0x1] -> 0x1336c
0001335e 00 1c                    |        |		.CONST	0x1c			; [0x2] -> 0x13376
00013360					switch@0x13352[0x0]:
00013360 48 51                    |HQ      |		PEA.L	(A1)
00013362 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00013368 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001336a 60 16                    |`       |		BRA	0x13382
0001336c					switch@0x13352[0x1]:
0001336c 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0001336e 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
00013374 60 f2                    |`       |		BRA	0x13368
00013376					switch@0x13352[0x2]:
00013376 1f 01                    |        |		MOVE.B	D1,-(A7)
00013378 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0001337a 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
00013380 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00013382 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00013386 4e 5e                    |N^      |		UNLK	A6
00013388 4e 75                    |Nu      |		RTS
0001338a ; --------------------------------------------------------------------------------------
0001338a ; OMSI PASCAL Function
0001338a ;    <LVAR  0x008 4(r)>
0001338a ;    <LVAR -0x00c 4(rw)>
0001338a ; --------------------------------------------------------------------------------------
0001338a 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
0001338e bf d5                    |        |		CMPA.L	(A5),A7
00013390 62 06                    |b       |		BHI	0x13398
00013392 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00013396 4e 76                    |Nv      |		TRAPV
00013398 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
0001339c 48 e7 81 e8              |H       |		MOVEM.L	A4+A2+A1+A0+D7+D0,-(A7)
000133a0 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
000133a4 70 01                    |p       |		MOVEQ.L	#0x01,D0
000133a6 24 b9 00 02 00 20        |$       |		MOVE.L	0x20020,(A2)
000133ac 38 40                    |8@      |		MOVEA.W	D0,A4
000133ae 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000133b0 20 52                    | R      |		MOVEA.L	(A2),A0
000133b2 b0 c0                    |        |		CMPA.W	D0,A0
000133b4 67 18                    |g       |		BEQ	0x133ce
000133b6 4a 07                    |J       |		TST.B	D7
000133b8 66 14                    |f       |		BNE	0x133ce
000133ba 22 6e 00 08              |"n      |		MOVEA.L	(A6+0x8),A1
000133be b1 d1                    |        |		CMPA.L	(A1),A0
000133c0 66 04                    |f       |		BNE	0x133c6
000133c2 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000133c4 60 06                    |`       |		BRA	0x133cc
000133c6 28 48                    |(H      |		MOVEA.L	A0,A4
000133c8 24 a8 00 44              |$  D    |		MOVE.L	(A0+0x44),(A2)
000133cc 60 e2                    |`       |		BRA	0x133b0
000133ce 4a 07                    |J       |		TST.B	D7
000133d0 66 0c                    |f       |		BNE	0x133de
000133d2 48 78 00 05              |Hx      |		PEA.L	0x5
000133d6 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
000133dc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000133de b8 c0                    |        |		CMPA.W	D0,A4
000133e0 66 0c                    |f       |		BNE	0x133ee
000133e2 20 52                    | R      |		MOVEA.L	(A2),A0
000133e4 23 e8 00 44 00 02 00 20  |#  D    |		MOVE.L	(A0+0x44),0x20020
000133ec 60 08                    |`       |		BRA	0x133f6
000133ee 20 52                    | R      |		MOVEA.L	(A2),A0
000133f0 29 68 00 44 00 44        |)h D D  |		MOVE.L	(A0+0x44),(A4+0x44)
000133f6 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000133fa 48 50                    |HP      |		PEA.L	(A0)
000133fc 48 78 00 4d              |Hx M    |		PEA.L	0x4d
00013400 4e b9 00 01 08 fa        |N       |		JSR	_Free2(a : Pointer; b : Long)
00013406 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00013408 20 80                    |        |		MOVE.L	D0,(A0)
0001340a 4c df 17 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1+A2+A4
0001340e 4e 5e                    |N^      |		UNLK	A6
00013410 4e 75                    |Nu      |		RTS
00013412 ; --------------------------------------------------------------------------------------
00013412 ; OMSI PASCAL Function
00013412 ;    <LVAR  0x00c 1(w)>
00013412 ;    <LVAR  0x008 4(r)>
00013412 ;    <LVAR -0x008 4(rw)>
00013412 ; --------------------------------------------------------------------------------------
00013412 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
00013416 bf d5                    |        |		CMPA.L	(A5),A7
00013418 62 06                    |b       |		BHI	0x13420
0001341a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001341e 4e 76                    |Nv      |		TRAPV
00013420 de fc 00 14              |        |		ADDA.W	#0x14,A7
00013424 48 e7 01 c0              |H       |		MOVEM.L	A1+A0+D7,-(A7)
00013428 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
0001342c 22 b9 00 02 00 20        |"       |		MOVE.L	0x20020,(A1)
00013432 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00013434 20 51                    | Q      |		MOVEA.L	(A1),A0
00013436 b0 fc 00 01              |        |		CMPA.W	#0x1,A0
0001343a 67 14                    |g       |		BEQ	0x13450
0001343c 4a 07                    |J       |		TST.B	D7
0001343e 67 10                    |g       |		BEQ	0x13450
00013440 b1 ee 00 08              |        |		CMPA.L	(A6+0x8),A0
00013444 66 04                    |f       |		BNE	0x1344a
00013446 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00013448 60 04                    |`       |		BRA	0x1344e
0001344a 22 a8 00 44              |"  D    |		MOVE.L	(A0+0x44),(A1)
0001344e 60 e4                    |`       |		BRA	0x13434
00013450 1d 47 00 0c              | G      |		MOVE.B	D7,(A6+0xc)
00013454 4c df 03 80              |L       |		MOVEM.L	(A7)+,D7+A0+A1
00013458 4e 5e                    |N^      |		UNLK	A6
0001345a 4e 75                    |Nu      |		RTS
0001345c ; --------------------------------------------------------------------------------------
0001345c ; OMSI PASCAL Function
0001345c ;    <LVAR  0x010 4(r)>
0001345c ;    <LVAR  0x00c 4(r)>
0001345c ;    <LVAR  0x008 4(r)>
0001345c ;    <LVAR -0x00c 4(w)>
0001345c ; --------------------------------------------------------------------------------------
0001345c 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
00013460 bf d5                    |        |		CMPA.L	(A5),A7
00013462 62 06                    |b       |		BHI	0x1346a
00013464 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00013468 4e 76                    |Nv      |		TRAPV
0001346a de fc 00 48              |   H    |		ADDA.W	#0x48,A7
0001346e 48 e7 ff f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00013472 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
00013476 47 f9 00 01 07 ea        |G       |		LEA.L	_?muls_d3_d4,A3
0001347c 74 01                    |t       |		MOVEQ.L	#0x01,D2
0001347e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00013482 10 82                    |        |		MOVE.B	D2,(A0)
00013484 20 52                    | R      |		MOVEA.L	(A2),A0
00013486 48 50                    |HP      |		PEA.L	(A0)
00013488 48 78 00 4d              |Hx M    |		PEA.L	0x4d
0001348c 4e b9 00 01 08 56        |N    V  |		JSR	_Malloc1(length : Long) : Pointer
00013492 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00013494 22 50                    |"P      |		MOVEA.L	(A0),A1
00013496 23 79 00 02 00 20 00 44  |#y     D|		MOVE.L	0x20020,(A1+0x44)
0001349e 23 d0 00 02 00 20        |#       |		MOVE.L	(A0),0x20020
000134a4 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000134a8 2f 08                    |/       |		MOVE.L	A0,-(A7)
000134aa 30 10                    |0       |		MOVE.W	(A0),D0
000134ac 0c 40 00 1e              | @      |		CMPI.W	#0x001e,D0
000134b0 6e 04                    |n       |		BGT	0x134b6
000134b2 b0 42                    | B      |		CMP.W	D2,D0
000134b4 6c 06                    |l       |		BGE	0x134bc
000134b6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000134b8 60 00 00 cc              |`       |		BRA	0x13586
000134bc 7a 00                    |z       |		MOVEQ.L	#0x00,D5
000134be 20 57                    | W      |		MOVEA.L	(A7),A0
000134c0 30 10                    |0       |		MOVE.W	(A0),D0
000134c2 48 c0                    |H       |		EXTW.L	D0
000134c4 2f 00                    |/       |		MOVE.L	D0,-(A7)
000134c6 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000134c8 be 97                    |        |		CMP.L	(A7),D7
000134ca 6e 7c                    |n|      |		BGT	0x13548
000134cc 20 07                    |        |		MOVE.L	D7,D0
000134ce 53 80                    |S       |		SUBQ.L	#0x1,D0
000134d0 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
000134d6 63 02                    |c       |		BLS	0x134da
000134d8 4e 4f                    |NO      |		TRAP	#15
000134da 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
000134de 1c 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),D6
000134e2 0c 06 00 61              |   a    |		CMPI.B	#0x61,D6
000134e6 65 12                    |e       |		BCS	0x134fa
000134e8 0c 06 00 7a              |   z    |		CMPI.B	#0x7a,D6
000134ec 62 0c                    |b       |		BHI	0x134fa
000134ee 42 80                    |B       |		CLR.L	D0
000134f0 10 06                    |        |		MOVE.B	D6,D0
000134f2 04 40 00 20              | @      |		SUBI.W	#0x0020,D0
000134f6 1c 00                    |        |		MOVE.B	D0,D6
000134f8 60 16                    |`       |		BRA	0x13510
000134fa 42 80                    |B       |		CLR.L	D0
000134fc 10 06                    |        |		MOVE.B	D6,D0
000134fe 41 fa fb e4              |A       |		LEA.L	0x130e4,A0
00013502 32 00                    |2       |		MOVE.W	D0,D1
00013504 e6 49                    | I      |		LSR.W	#0x3,D1
00013506 01 30 10 00              | 0      |		BTST.B	D0,(A0+D1.W)
0001350a 66 04                    |f       |		BNE	0x13510
0001350c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001350e 60 76                    |`v      |		BRA	0x13586
00013510 20 52                    | R      |		MOVEA.L	(A2),A0
00013512 20 50                    | P      |		MOVEA.L	(A0),A0
00013514 20 07                    |        |		MOVE.L	D7,D0
00013516 53 80                    |S       |		SUBQ.L	#0x1,D0
00013518 0c 80 00 00 00 1d        |        |		CMPI.L	#0x0000001d,D0
0001351e 63 02                    |c       |		BLS	0x13522
00013520 4e 4f                    |NO      |		TRAP	#15
00013522 11 86 08 00              |        |		MOVE.B	D6,(A0+D0.L)
00013526 42 80                    |B       |		CLR.L	D0
00013528 10 06                    |        |		MOVE.B	D6,D0
0001352a 02 40 00 3f              | @ ?    |		ANDI.W	#0x003f,D0
0001352e 48 c0                    |H       |		EXTW.L	D0
00013530 2d 40 ff f4              |-@      |		MOVE.L	D0,(A6-0xc)
00013534 28 00                    |(       |		MOVE.L	D0,D4
00013536 26 00                    |&       |		MOVE.L	D0,D3
00013538 4e 93                    |N       |		JSR	(A3)
0001353a 26 00                    |&       |		MOVE.L	D0,D3
0001353c 4e 93                    |N       |		JSR	(A3)
0001353e 26 07                    |&       |		MOVE.L	D7,D3
00013540 4e 93                    |N       |		JSR	(A3)
00013542 da 84                    |        |		ADD.L	D4,D5
00013544 52 87                    |R       |		ADDQ.L	#0x1,D7
00013546 68 80                    |h       |		BVC	0x134c8
00013548 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001354a 20 57                    | W      |		MOVEA.L	(A7),A0
0001354c 30 10                    |0       |		MOVE.W	(A0),D0
0001354e 48 c0                    |H       |		EXTW.L	D0
00013550 52 80                    |R       |		ADDQ.L	#0x1,D0
00013552 2e 00                    |.       |		MOVE.L	D0,D7
00013554 0c 87 00 00 00 1e        |        |		CMPI.L	#0x0000001e,D7
0001355a 6e 1a                    |n       |		BGT	0x13576
0001355c 20 52                    | R      |		MOVEA.L	(A2),A0
0001355e 20 50                    | P      |		MOVEA.L	(A0),A0
00013560 20 07                    |        |		MOVE.L	D7,D0
00013562 53 80                    |S       |		SUBQ.L	#0x1,D0
00013564 0c 80 00 00 00 1d        |        |		CMPI.L	#0x0000001d,D0
0001356a 63 02                    |c       |		BLS	0x1356e
0001356c 4e 4f                    |NO      |		TRAP	#15
0001356e 42 30 08 00              |B0      |		CLR.B	(A0+D0.L)
00013572 52 87                    |R       |		ADDQ.L	#0x1,D7
00013574 68 de                    |h       |		BVC	0x13554
00013576 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013578 20 52                    | R      |		MOVEA.L	(A2),A0
0001357a 20 50                    | P      |		MOVEA.L	(A0),A0
0001357c 31 45 00 1e              |1E      |		MOVE.W	D5,(A0+0x1e)
00013580 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00013584 42 10                    |B       |		CLR.B	(A0)
00013586 4c df 0f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
0001358a 4e 5e                    |N^      |		UNLK	A6
0001358c 4e 75                    |Nu      |		RTS
0001358e ; --------------------------------------------------------------------------------------
0001358e ; OMSI PASCAL Function
0001358e ;    <LVAR  0x008 4(r)>
0001358e ;    <LVAR -0x004 @ 1(r)>
0001358e ;    <LVAR -0x024 @>
0001358e ;    <LVAR -0x026 2(w)>
0001358e ;    <LVAR -0x044 @>
0001358e ; --------------------------------------------------------------------------------------
0001358e 4e 56 ff 96              |NV      |		LINK.W	A6,#0xff96
00013592 bf d5                    |        |		CMPA.L	(A5),A7
00013594 62 06                    |b       |		BHI	0x1359c
00013596 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001359a 4e 76                    |Nv      |		TRAPV
0001359c de fc 00 26              |   &    |		ADDA.W	#0x26,A7
000135a0 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
000135a4 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000135a8 10 28 00 3f              | ( ?    |		MOVE.B	(A0+0x3f),D0
000135ac e9 08                    |        |		LSL.B	#0x4,D0
000135ae ee 08                    |        |		LSR.B	#0x7,D0
000135b0 66 06                    |f       |		BNE	0x135b8
000135b2 4a 28 00 4c              |J( L    |		TST.B	(A0+0x4c)
000135b6 67 70                    |gp      |		BEQ	0x13628
000135b8 02 28 00 f7 00 3f        | (   ?  |		ANDI.B	#0xf7,(A0+0x3f)
000135be 43 ee ff bc              |C       |		LEA.L	(A6-0x44),A1
000135c2 24 48                    |$H      |		MOVEA.L	A0,A2
000135c4 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000135c6 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000135c8 51 c8 ff fc              |Q       |		DBF	D0,0x135c6
000135cc 3d 68 00 1e ff da        |=h      |		MOVE.W	(A0+0x1e),(A6-0x26)
000135d2 43 ee ff dc              |C       |		LEA.L	(A6-0x24),A1
000135d6 45 e8 00 20              |E       |		LEA.L	(A0+0x20),A2
000135da 70 1f                    |p       |		MOVEQ.L	#0x1f,D0
000135dc 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000135de 51 c8 ff fc              |Q       |		DBF	D0,0x135dc
000135e2 3f 28 00 40              |?( @    |		MOVE.W	(A0+0x40),-(A7)
000135e6 30 28 00 42              |0( B    |		MOVE.W	(A0+0x42),D0
000135ea 48 c0                    |H       |		EXTW.L	D0
000135ec eb 80                    |        |		ASL.L	#0x5,D0
000135ee 0c 80 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D0
000135f4 63 02                    |c       |		BLS	0x135f8
000135f6 4e 4f                    |NO      |		TRAP	#15
000135f8 3f 00                    |?       |		MOVE.W	D0,-(A7)
000135fa 43 ee ff bc              |C       |		LEA.L	(A6-0x44),A1
000135fe 2f 09                    |/       |		MOVE.L	A1,-(A7)
00013600 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00013604 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00013608 4e b9 00 01 2a 4c        |N   *L  |		JSR	_WriteWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B)
0001360e de fc 00 0e              |        |		ADDA.W	#0xe,A7
00013612 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00013616 66 0c                    |f       |		BNE	0x13624
00013618 48 78 00 08              |Hx      |		PEA.L	0x8
0001361c 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
00013622 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013624 42 28 00 4c              |B( L    |		CLR.B	(A0+0x4c)
00013628 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
0001362c 4e 5e                    |N^      |		UNLK	A6
0001362e 4e 75                    |Nu      |		RTS
00013630 ; --------------------------------------------------------------------------------------
00013630 ; OMSI PASCAL Function
00013630 ;    <LVAR  0x008 4(r)>
00013630 ;    <LVAR -0x002 @ 1(r)>
00013630 ;    <LVAR -0x00d 1(w)>
00013630 ;    <LVAR -0x40c @>
00013630 ; --------------------------------------------------------------------------------------
00013630 4e 56 fb ac              |NV      |		LINK.W	A6,#0xfbac
00013634 bf d5                    |        |		CMPA.L	(A5),A7
00013636 62 06                    |b       |		BHI	0x1363e
00013638 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001363c 4e 76                    |Nv      |		TRAPV
0001363e de fc 00 48              |   H    |		ADDA.W	#0x48,A7
00013642 48 e7 fb f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7)
00013646 45 ee ff fe              |E       |		LEA.L	(A6-0x2),A2
0001364a 47 ee fb f4              |G       |		LEA.L	(A6-0x40c),A3
0001364e 74 0f                    |t       |		MOVEQ.L	#0x0f,D2
00013650 76 10                    |v       |		MOVEQ.L	#0x10,D3
00013652 78 08                    |x       |		MOVEQ.L	#0x08,D4
00013654 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00013658 10 28 00 3f              | ( ?    |		MOVE.B	(A0+0x3f),D0
0001365c e9 08                    |        |		LSL.B	#0x4,D0
0001365e ee 08                    |        |		LSR.B	#0x7,D0
00013660 66 00 00 a0              |f       |		BNE	0x13702
00013664 3c 28 00 40              |<( @    |		MOVE.W	(A0+0x40),D6
00013668 22 4b                    |"K      |		MOVEA.L	A3,A1
0001366a 2f 09                    |/       |		MOVE.L	A1,-(A7)
0001366c 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
0001366e 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00013672 3f 06                    |?       |		MOVE.W	D6,-(A7)
00013674 48 78 00 01              |Hx      |		PEA.L	0x1
00013678 2f 0c                    |/       |		MOVE.L	A4,-(A7)
0001367a 48 52                    |HR      |		PEA.L	(A2)
0001367c 4e b9 00 01 27 b6        |N   '   |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00013682 de c3                    |        |		ADDA.W	D3,A7
00013684 4a 12                    |J       |		TST.B	(A2)
00013686 66 0c                    |f       |		BNE	0x13694
00013688 48 78 00 06              |Hx      |		PEA.L	0x6
0001368c 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
00013692 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013694 30 28 00 42              |0( B    |		MOVE.W	(A0+0x42),D0
00013698 48 c0                    |H       |		EXTW.L	D0
0001369a 52 80                    |R       |		ADDQ.L	#0x1,D0
0001369c 2e 00                    |.       |		MOVE.L	D0,D7
0001369e be 82                    |        |		CMP.L	D2,D7
000136a0 6e 2e                    |n.      |		BGT	0x136d0
000136a2 20 07                    |        |		MOVE.L	D7,D0
000136a4 53 80                    |S       |		SUBQ.L	#0x1,D0
000136a6 b0 82                    |        |		CMP.L	D2,D0
000136a8 63 02                    |c       |		BLS	0x136ac
000136aa 4e 4f                    |NO      |		TRAP	#15
000136ac ed 80                    |        |		ASL.L	#0x6,D0
000136ae 20 4b                    | K      |		MOVEA.L	A3,A0
000136b0 be 82                    |        |		CMP.L	D2,D7
000136b2 63 02                    |c       |		BLS	0x136b6
000136b4 4e 4f                    |NO      |		TRAP	#15
000136b6 22 07                    |"       |		MOVE.L	D7,D1
000136b8 ed 81                    |        |		ASL.L	#0x6,D1
000136ba 22 4b                    |"K      |		MOVEA.L	A3,A1
000136bc 41 f0 08 00              |A       |		LEA.L	(A0+D0.L),A0
000136c0 43 f1 18 00              |C       |		LEA.L	(A1+D1.L),A1
000136c4 70 0f                    |p       |		MOVEQ.L	#0x0f,D0
000136c6 20 d9                    |        |		MOVE.L	(A1)+,(A0)+
000136c8 51 c8 ff fc              |Q       |		DBF	D0,0x136c6
000136cc 52 87                    |R       |		ADDQ.L	#0x1,D7
000136ce 68 ce                    |h       |		BVC	0x1369e
000136d0 89 2e ff f3              | .      |		OR.B	D4,(A6-0xd)
000136d4 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
000136d8 3f 06                    |?       |		MOVE.W	D6,-(A7)
000136da 48 78 00 01              |Hx      |		PEA.L	0x1
000136de 2f 0c                    |/       |		MOVE.L	A4,-(A7)
000136e0 48 52                    |HR      |		PEA.L	(A2)
000136e2 4e b9 00 01 27 b6        |N   '   |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
000136e8 de c3                    |        |		ADDA.W	D3,A7
000136ea 4a 12                    |J       |		TST.B	(A2)
000136ec 66 0c                    |f       |		BNE	0x136fa
000136ee 48 78 00 07              |Hx      |		PEA.L	0x7
000136f2 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
000136f8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000136fa 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000136fe 89 28 00 3f              | ( ?    |		OR.B	D4,(A0+0x3f)
00013702 4c df 1f df              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2+A3+A4
00013706 4e 5e                    |N^      |		UNLK	A6
00013708 4e 75                    |Nu      |		RTS
0001370a ; --------------------------------------------------------------------------------------
0001370a ; OMSI PASCAL Function
0001370a ;    <LVAR  0x00c 4(r)>
0001370a ;    <LVAR  0x008 4(r)>
0001370a ;    <LVAR -0x004 @ 1(r)>
0001370a ;    <LVAR -0x005 1(r)>
0001370a ;    <LVAR -0x006 1(r)>
0001370a ;    <LVAR -0x007 1(r)>
0001370a ;    <LVAR -0x008 @ 1(r)>
0001370a ;    <LVAR -0x40c @>
0001370a ;    <LVAR -0x410 @>
0001370a ; --------------------------------------------------------------------------------------
0001370a 4e 56 fb a8              |NV      |		LINK.W	A6,#0xfba8
0001370e bf d5                    |        |		CMPA.L	(A5),A7
00013710 62 06                    |b       |		BHI	0x13718
00013712 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00013716 4e 76                    |Nv      |		TRAPV
00013718 de fc 00 48              |   H    |		ADDA.W	#0x48,A7
0001371c 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00013720 49 ee 00 0c              |I       |		LEA.L	(A6+0xc),A4
00013724 76 0f                    |v       |		MOVEQ.L	#0x0f,D3
00013726 28 3c 00 00 ff ff        |(<      |		MOVE.L	#0xffff,D4
0001372c 20 54                    | T      |		MOVEA.L	(A4),A0
0001372e 3a 28 00 1e              |:(      |		MOVE.W	(A0+0x1e),D5
00013732 02 45 ff e0              | E      |		ANDI.W	#0xffe0,D5
00013736 ea 4d                    | M      |		LSR.W	#0x5,D5
00013738 30 05                    |0       |		MOVE.W	D5,D0
0001373a 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
0001373e 32 05                    |2       |		MOVE.W	D5,D1
00013740 e0 49                    | I      |		LSR.W	#0x8,D1
00013742 43 bc 00 07              |C       |		CHK.W	#0x7,D1
00013746 e3 41                    | A      |		ASL.W	#0x1,D1
00013748 42 82                    |B       |		CLR.L	D2
0001374a 34 01                    |4       |		MOVE.W	D1,D2
0001374c 41 f8 00 00              |A       |		LEA.L	0x0,A0
00013750 41 f0 28 00              |A (     |		LEA.L	(A0+D2.L),A0
00013754 d1 fc 00 01 00 12        |        |		ADDA.L	#0x10012,A0
0001375a 42 81                    |B       |		CLR.L	D1
0001375c 32 10                    |2       |		MOVE.W	(A0),D1
0001375e 42 82                    |B       |		CLR.L	D2
00013760 34 00                    |4       |		MOVE.W	D0,D2
00013762 d4 81                    |        |		ADD.L	D1,D2
00013764 b4 84                    |        |		CMP.L	D4,D2
00013766 63 02                    |c       |		BLS	0x1376a
00013768 4e 4f                    |NO      |		TRAP	#15
0001376a 3c 02                    |<       |		MOVE.W	D2,D6
0001376c 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00013770 3f 06                    |?       |		MOVE.W	D6,-(A7)
00013772 48 78 00 01              |Hx      |		PEA.L	0x1
00013776 41 ee fb f4              |A       |		LEA.L	(A6-0x40c),A0
0001377a 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001377c 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00013780 4e b9 00 01 27 b6        |N   '   |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00013786 de fc 00 10              |        |		ADDA.W	#0x10,A7
0001378a 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
0001378e 66 0c                    |f       |		BNE	0x1379c
00013790 48 78 00 06              |Hx      |		PEA.L	0x6
00013794 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
0001379a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001379c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0001379e be 83                    |        |		CMP.L	D3,D7
000137a0 63 02                    |c       |		BLS	0x137a4
000137a2 4e 4f                    |NO      |		TRAP	#15
000137a4 20 07                    |        |		MOVE.L	D7,D0
000137a6 ed 80                    |        |		ASL.L	#0x6,D0
000137a8 41 ee fb f0              |A       |		LEA.L	(A6-0x410),A0
000137ac 12 30 08 43              | 0 C    |		MOVE.B	(A0+D0.L+#0x43),D1
000137b0 e9 09                    |        |		LSL.B	#0x4,D1
000137b2 ee 09                    |        |		LSR.B	#0x7,D1
000137b4 67 76                    |gv      |		BEQ	0x1382c
000137b6 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000137ba 4e b9 00 01 16 e0        |N       |		JSR	_GetRtc() : TimeStamp
000137c0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000137c2 20 54                    | T      |		MOVEA.L	(A4),A0
000137c4 43 e8 00 22              |C  "    |		LEA.L	(A0+0x22),A1
000137c8 45 fa f9 3a              |E  :    |		LEA.L	0x13104,A2
000137cc 70 17                    |p       |		MOVEQ.L	#0x17,D0
000137ce 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000137d0 51 c8 ff fc              |Q       |		DBF	D0,0x137ce
000137d4 42 68 00 20              |Bh      |		CLR.W	(A0+0x20)
000137d8 11 6e ff f8 00 3a        | n   :  |		MOVE.B	(A6-0x8),(A0+0x3a)
000137de 11 6e ff f9 00 3b        | n   ;  |		MOVE.B	(A6-0x7),(A0+0x3b)
000137e4 11 6e ff fa 00 3c        | n   <  |		MOVE.B	(A6-0x6),(A0+0x3c)
000137ea 11 6e ff fb 00 3d        | n   =  |		MOVE.B	(A6-0x5),(A0+0x3d)
000137f0 c7 68 00 3e              | h >    |		AND.W	D3,(A0+0x3e)
000137f4 00 28 00 08 00 3f        | (   ?  |		ORI.B	#0x08,(A0+0x3f)
000137fa 02 28 00 fb 00 3f        | (   ?  |		ANDI.B	#0xfb,(A0+0x3f)
00013800 02 28 00 fd 00 3f        | (   ?  |		ANDI.B	#0xfd,(A0+0x3f)
00013806 02 28 00 fe 00 3f        | (   ?  |		ANDI.B	#0xfe,(A0+0x3f)
0001380c 20 54                    | T      |		MOVEA.L	(A4),A0
0001380e 11 7c 00 01 00 4c        | |   L  |		MOVE.B	#0x01,(A0+0x4c)
00013814 04 87 ff ff 80 00        |        |		SUBI.L	#0xffff8000,D7
0001381a be 84                    |        |		CMP.L	D4,D7
0001381c 63 02                    |c       |		BLS	0x13820
0001381e 4e 4f                    |NO      |		TRAP	#15
00013820 06 87 ff ff 80 00        |        |		ADDI.L	#0xffff8000,D7
00013826 31 47 00 42              |1G B    |		MOVE.W	D7,(A0+0x42)
0001382a 60 5e                    |`^      |		BRA	0x1388a
0001382c 20 54                    | T      |		MOVEA.L	(A4),A0
0001382e be 83                    |        |		CMP.L	D3,D7
00013830 63 02                    |c       |		BLS	0x13834
00013832 4e 4f                    |NO      |		TRAP	#15
00013834 20 07                    |        |		MOVE.L	D7,D0
00013836 ed 80                    |        |		ASL.L	#0x6,D0
00013838 43 ee fb f0              |C       |		LEA.L	(A6-0x410),A1
0001383c 32 28 00 1e              |2(      |		MOVE.W	(A0+0x1e),D1
00013840 b2 71 08 22              | q "    |		CMP.W	(A1+D0.L+#0x22),D1
00013844 66 32                    |f2      |		BNE	0x13878
00013846 45 f1 08 04              |E       |		LEA.L	(A1+D0.L+#0x4),A2
0001384a 26 48                    |&H      |		MOVEA.L	A0,A3
0001384c 72 1d                    |r       |		MOVEQ.L	#0x1d,D1
0001384e b7 0a                    |        |		CMPM.B	(A2)+,(A3)+
00013850 56 c9 ff fc              |V       |		DBNE	D1,0x1384e
00013854 66 22                    |f"      |		BNE	0x13878
00013856 45 e8 00 20              |E       |		LEA.L	(A0+0x20),A2
0001385a 43 f1 08 24              |C  $    |		LEA.L	(A1+D0.L+#0x24),A1
0001385e 70 1f                    |p       |		MOVEQ.L	#0x1f,D0
00013860 14 d9                    |        |		MOVE.B	(A1)+,(A2)+
00013862 51 c8 ff fc              |Q       |		DBF	D0,0x13860
00013866 42 28 00 4c              |B( L    |		CLR.B	(A0+0x4c)
0001386a 04 87 ff ff 80 00        |        |		SUBI.L	#0xffff8000,D7
00013870 be 84                    |        |		CMP.L	D4,D7
00013872 63 02                    |c       |		BLS	0x13876
00013874 4e 4f                    |NO      |		TRAP	#15
00013876 60 a8                    |`       |		BRA	0x13820
00013878 52 87                    |R       |		ADDQ.L	#0x1,D7
0001387a be 83                    |        |		CMP.L	D3,D7
0001387c 6f 00 ff 20              |o       |		BLE	0x1379e
00013880 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00013884 10 bc 00 05              |        |		MOVE.B	#0x05,(A0)
00013888 60 14                    |`       |		BRA	0x1389e
0001388a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001388e 42 10                    |B       |		CLR.B	(A0)
00013890 20 54                    | T      |		MOVEA.L	(A4),A0
00013892 31 46 00 40              |1F @    |		MOVE.W	D6,(A0+0x40)
00013896 42 68 00 48              |Bh H    |		CLR.W	(A0+0x48)
0001389a 42 68 00 4a              |Bh J    |		CLR.W	(A0+0x4a)
0001389e 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000138a2 4e 5e                    |N^      |		UNLK	A6
000138a4 4e 75                    |Nu      |		RTS
000138a6 ; --------------------------------------------------------------------------------------
000138a6 ; OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000138a6 ; Stack:
000138a6 ;     A6+0x18     name : String
000138a6 ;     A6+0x16     a : W
000138a6 ;     A6+0x14     b : B
000138a6 ;     A6+0x10     c : L
000138a6 ;     A6+0xc  VAR status : B
000138a6 ;     A6+0x8  VAR file : File
000138a6 ; OMSI PASCAL Function
000138a6 ;    <LVAR  0x018 4(r)>
000138a6 ;    <LVAR  0x016 1(r)>
000138a6 ;    <LVAR  0x014 1(r)>
000138a6 ;    <LVAR  0x010 4(r)>
000138a6 ;    <LVAR  0x00c 4(r)>
000138a6 ;    <LVAR  0x008 4(r)>
000138a6 ;    <LVAR -0x001 @ 1(r)>
000138a6 ;    <LVAR -0x002 1(rw)>
000138a6 ; --------------------------------------------------------------------------------------
000138a6					_OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File):
000138a6 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
000138aa bf d5                    |        |		CMPA.L	(A5),A7
000138ac 62 06                    |b       |		BHI	0x138b4
000138ae 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000138b2 4e 76                    |Nv      |		TRAPV
000138b4 de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
000138b8 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000138bc 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
000138c0 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
000138c4 49 ee 00 10              |I       |		LEA.L	(A6+0x10),A4
000138c8 74 02                    |t       |		MOVEQ.L	#0x02,D2
000138ca 76 01                    |v       |		MOVEQ.L	#0x01,D3
000138cc 78 05                    |x       |		MOVEQ.L	#0x05,D4
000138ce 4a 39 00 01 b0 94        |J9      |		TST.B	0x1b094
000138d4 66 0c                    |f       |		BNE	0x138e2
000138d6 48 78 00 19              |Hx      |		PEA.L	0x19
000138da 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
000138e0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000138e2 4a 94                    |J       |		TST.L	(A4)
000138e4 6d 04                    |m       |		BLT	0x138ea
000138e6 7a 00                    |z       |		MOVEQ.L	#0x00,D5
000138e8 60 04                    |`       |		BRA	0x138ee
000138ea 44 94                    |D       |		NEG.L	(A4)
000138ec 7a 01                    |z       |		MOVEQ.L	#0x01,D5
000138ee 20 52                    | R      |		MOVEA.L	(A2),A0
000138f0 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
000138f4 22 53                    |"S      |		MOVEA.L	(A3),A1
000138f6 48 51                    |HQ      |		PEA.L	(A1)
000138f8 48 50                    |HP      |		PEA.L	(A0)
000138fa 4e ba fb 60              |N  `    |		JSR	0x1345c
000138fe de fc 00 0c              |        |		ADDA.W	#0xc,A7
00013902 4a 10                    |J       |		TST.B	(A0)
00013904 67 04                    |g       |		BEQ	0x1390a
00013906 60 00 01 2c              |`  ,    |		BRA	0x13a34
0001390a 20 52                    | R      |		MOVEA.L	(A2),A0
0001390c 22 53                    |"S      |		MOVEA.L	(A3),A1
0001390e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00013910 48 50                    |HP      |		PEA.L	(A0)
00013912 4e ba fd f6              |N       |		JSR	0x1370a
00013916 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00013918 4a 10                    |J       |		TST.B	(A0)
0001391a 67 04                    |g       |		BEQ	0x13920
0001391c 60 00 01 16              |`       |		BRA	0x13a34
00013920 20 53                    | S      |		MOVEA.L	(A3),A0
00013922 20 50                    | P      |		MOVEA.L	(A0),A0
00013924 2f 08                    |/       |		MOVE.L	A0,-(A7)
00013926 10 28 00 3f              | ( ?    |		MOVE.B	(A0+0x3f),D0
0001392a e9 08                    |        |		LSL.B	#0x4,D0
0001392c ee 08                    |        |		LSR.B	#0x7,D0
0001392e 44 00                    |D       |		NEG.B	D0
00013930 52 00                    |R       |		ADDQ.B	#0x1,D0
00013932 1d 40 ff fe              | @      |		MOVE.B	D0,(A6-0x2)
00013936 4a 2e 00 16              |J.      |		TST.B	(A6+0x16)
0001393a 66 16                    |f       |		BNE	0x13952
0001393c 4a 00                    |J       |		TST.B	D0
0001393e 67 08                    |g       |		BEQ	0x13948
00013940 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013942 60 00 01 16              |`       |		BRA	0x13a5a
00013946 60 0a                    |`       |		.XXX[0x2]
00013948 22 52                    |"R      |		MOVEA.L	(A2),A1
0001394a 12 82                    |        |		MOVE.B	D2,(A1)
0001394c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001394e 60 00 00 e4              |`       |		BRA	0x13a34
00013952 10 2e 00 16              | .      |		MOVE.B	(A6+0x16),D0
00013956 b0 02                    |        |		CMP.B	D2,D0
00013958 66 1e                    |f       |		BNE	0x13978
0001395a 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
0001395e 67 18                    |g       |		BEQ	0x13978
00013960 20 57                    | W      |		MOVEA.L	(A7),A0
00013962 10 28 00 3f              | ( ?    |		MOVE.B	(A0+0x3f),D0
00013966 ef 08                    |        |		LSL.B	#0x7,D0
00013968 ee 08                    |        |		LSR.B	#0x7,D0
0001396a 66 0c                    |f       |		BNE	0x13978
0001396c 20 52                    | R      |		MOVEA.L	(A2),A0
0001396e 10 bc 00 06              |        |		MOVE.B	#0x06,(A0)
00013972 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013974 60 00 00 be              |`       |		BRA	0x13a34
00013978 20 57                    | W      |		MOVEA.L	(A7),A0
0001397a 30 28 00 20              |0(      |		MOVE.W	(A0+0x20),D0
0001397e 48 c0                    |H       |		EXTW.L	D0
00013980 b0 94                    |        |		CMP.L	(A4),D0
00013982 66 06                    |f       |		BNE	0x1398a
00013984 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013986 60 00 00 d2              |`       |		BRA	0x13a5a
0001398a 20 57                    | W      |		MOVEA.L	(A7),A0
0001398c 11 43 00 4c              | C L    |		MOVE.B	D3,(A0+0x4c)
00013990 20 14                    |        |		MOVE.L	(A4),D0
00013992 0c 80 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D0
00013998 63 02                    |c       |		BLS	0x1399c
0001399a 4e 4f                    |NO      |		TRAP	#15
0001399c 31 40 00 20              |1@      |		MOVE.W	D0,(A0+0x20)
000139a0 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000139a2 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000139a4 bc 84                    |        |		CMP.L	D4,D6
000139a6 63 02                    |c       |		BLS	0x139aa
000139a8 4e 4f                    |NO      |		TRAP	#15
000139aa 20 06                    |        |		MOVE.L	D6,D0
000139ac e5 80                    |        |		ASL.L	#0x2,D0
000139ae 20 57                    | W      |		MOVEA.L	(A7),A0
000139b0 32 30 08 22              |20 "    |		MOVE.W	(A0+D0.L+#0x22),D1
000139b4 48 c1                    |H       |		EXTW.L	D1
000139b6 b2 94                    |        |		CMP.L	(A4),D1
000139b8 6d 02                    |m       |		BLT	0x139bc
000139ba 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000139bc 52 86                    |R       |		ADDQ.L	#0x1,D6
000139be bc 84                    |        |		CMP.L	D4,D6
000139c0 6f e2                    |o       |		BLE	0x139a4
000139c2 4a 07                    |J       |		TST.B	D7
000139c4 67 62                    |gb      |		BEQ	0x13a28
000139c6 20 57                    | W      |		MOVEA.L	(A7),A0
000139c8 10 28 00 3f              | ( ?    |		MOVE.B	(A0+0x3f),D0
000139cc ef 08                    |        |		LSL.B	#0x7,D0
000139ce ee 08                    |        |		LSR.B	#0x7,D0
000139d0 67 0a                    |g       |		BEQ	0x139dc
000139d2 20 52                    | R      |		MOVEA.L	(A2),A0
000139d4 10 bc 00 08              |        |		MOVE.B	#0x08,(A0)
000139d8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000139da 60 58                    |`X      |		BRA	0x13a34
000139dc 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
000139e0 67 0c                    |g       |		BEQ	0x139ee
000139e2 20 53                    | S      |		MOVEA.L	(A3),A0
000139e4 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000139e6 4e b9 00 01 2e 20        |N   .   |		JSR	_FS1037c(MOD a : File)
000139ec 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000139ee 20 53                    | S      |		MOVEA.L	(A3),A0
000139f0 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000139f2 10 05                    |        |		MOVE.B	D5,D0
000139f4 48 80                    |H       |		EXTB.W	D0
000139f6 41 83                    |A       |		CHK.W	D3,D0
000139f8 1f 00                    |        |		MOVE.B	D0,-(A7)
000139fa 48 6e ff ff              |Hn      |		PEA.L	(A6-0x1)
000139fe 4e b9 00 01 2c f8        |N   ,   |		JSR	_FS10378(MOD a : File; b: Byte; VAR c: Bool)
00013a04 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00013a08 4a 2e ff ff              |J.      |		TST.B	(A6-0x1)
00013a0c 67 1a                    |g       |		BEQ	0x13a28
00013a0e 22 52                    |"R      |		MOVEA.L	(A2),A1
00013a10 12 bc 00 04              |        |		MOVE.B	#0x04,(A1)
00013a14 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
00013a18 67 0a                    |g       |		BEQ	0x13a24
00013a1a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00013a1c 4e ba fc 12              |N       |		JSR	0x13630
00013a20 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00013a22 60 10                    |`       |		BRA	0x13a34
00013a24 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013a26 60 0c                    |`       |		BRA	0x13a34
00013a28 20 53                    | S      |		MOVEA.L	(A3),A0
00013a2a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00013a2c 4e ba fb 60              |N  `    |		JSR	0x1358e
00013a30 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00013a32 60 26                    |`&      |		BRA	0x13a5a
00013a34 20 53                    | S      |		MOVEA.L	(A3),A0
00013a36 48 50                    |HP      |		PEA.L	(A0)
00013a38 4e ba f9 50              |N  P    |		JSR	0x1338a
00013a3c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013a3e 20 52                    | R      |		MOVEA.L	(A2),A0
00013a40 1f 10                    |        |		MOVE.B	(A0),-(A7)
00013a42 1f 2e 00 14              | .      |		MOVE.B	(A6+0x14),-(A7)
00013a46 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00013a48 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
00013a4c 4e b9 00 01 0e f2        |N       |		JSR	_StringDup(a : String) : String
00013a52 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013a54 4e ba f8 a6              |N       |		JSR	0x132fc
00013a58 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00013a5a 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00013a5e 4e 5e                    |N^      |		UNLK	A6
00013a60 4e 75                    |Nu      |		RTS
00013a62 ; --------------------------------------------------------------------------------------
00013a62 ; OMSI PASCAL Function
00013a62 ;    <LVAR  0x00e 2(w)>
00013a62 ;    <LVAR  0x00a 4(r)>
00013a62 ;    <LVAR  0x008 2(r)>
00013a62 ; --------------------------------------------------------------------------------------
00013a62 4e 56 ff d4              |NV      |		LINK.W	A6,#0xffd4
00013a66 bf d5                    |        |		CMPA.L	(A5),A7
00013a68 62 06                    |b       |		BHI	0x13a70
00013a6a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00013a6e 4e 76                    |Nv      |		TRAPV
00013a70 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00013a74 48 e7 e3 80              |H       |		MOVEM.L	A0+D7+D6+D2+D1+D0,-(A7)
00013a78 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00013a7a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00013a7c 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00013a80 2f 08                    |/       |		MOVE.L	A0,-(A7)
00013a82 0c 86 00 00 00 05        |        |		CMPI.L	#0x00000005,D6
00013a88 63 02                    |c       |		BLS	0x13a8c
00013a8a 4e 4f                    |NO      |		TRAP	#15
00013a8c 20 06                    |        |		MOVE.L	D6,D0
00013a8e e5 80                    |        |		ASL.L	#0x2,D0
00013a90 20 57                    | W      |		MOVEA.L	(A7),A0
00013a92 32 30 08 22              |20 "    |		MOVE.W	(A0+D0.L+#0x22),D1
00013a96 b2 6e 00 08              | n      |		CMP.W	(A6+0x8),D1
00013a9a 6e 0e                    |n       |		BGT	0x13aaa
00013a9c 0c 41 ff ff              | A      |		CMPI.W	#0xffff,D1
00013aa0 63 02                    |c       |		BLS	0x13aa4
00013aa2 4e 4f                    |NO      |		TRAP	#15
00013aa4 3e 01                    |>       |		MOVE.W	D1,D7
00013aa6 52 86                    |R       |		ADDQ.L	#0x1,D6
00013aa8 60 d8                    |`       |		BRA	0x13a82
00013aaa 32 2e 00 08              |2.      |		MOVE.W	(A6+0x8),D1
00013aae 48 c1                    |H       |		EXTW.L	D1
00013ab0 42 82                    |B       |		CLR.L	D2
00013ab2 34 07                    |4       |		MOVE.W	D7,D2
00013ab4 44 82                    |D       |		NEG.L	D2
00013ab6 d4 81                    |        |		ADD.L	D1,D2
00013ab8 42 81                    |B       |		CLR.L	D1
00013aba 32 30 08 24              |20 $    |		MOVE.W	(A0+D0.L+#0x24),D1
00013abe d4 81                    |        |		ADD.L	D1,D2
00013ac0 0c 82 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D2
00013ac6 63 02                    |c       |		BLS	0x13aca
00013ac8 4e 4f                    |NO      |		TRAP	#15
00013aca 3d 42 00 0e              |=B      |		MOVE.W	D2,(A6+0xe)
00013ace 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013ad0 4c df 01 c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0
00013ad4 4e 5e                    |N^      |		UNLK	A6
00013ad6 4e 75                    |Nu      |		RTS
00013ad8 ; --------------------------------------------------------------------------------------
00013ad8 ; ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00013ad8 ; Stack:
00013ad8 ;     A6+0x18     file : File
00013ad8 ;     A6+0x16     w : W
00013ad8 ;     A6+0x14     x : W
00013ad8 ;     A6+0x12     a : W
00013ad8 ;     A6+0x10     b : B
00013ad8 ;     A6+0xc      c : L
00013ad8 ;     A6+0x8      d : L
00013ad8 ; OMSI PASCAL Function
00013ad8 ;    <LVAR  0x018 4(r)>
00013ad8 ;    <LVAR  0x016 2(r)>
00013ad8 ;    <LVAR  0x014 2(r)>
00013ad8 ;    <LVAR  0x012 2(r)>
00013ad8 ;    <LVAR  0x010 1(r)>
00013ad8 ;    <LVAR  0x00c 4(r)>
00013ad8 ;    <LVAR  0x008 4(r)>
00013ad8 ;    <LVAR -0x004 @ 1(r)>
00013ad8 ; --------------------------------------------------------------------------------------
00013ad8					_ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L):
00013ad8 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
00013adc bf d5                    |        |		CMPA.L	(A5),A7
00013ade 62 06                    |b       |		BHI	0x13ae6
00013ae0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00013ae4 4e 76                    |Nv      |		TRAPV
00013ae6 de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
00013aea 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
00013aee 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00013af2 47 ee 00 18              |G       |		LEA.L	(A6+0x18),A3
00013af6 72 1e                    |r       |		MOVEQ.L	#0x1e,D1
00013af8 20 52                    | R      |		MOVEA.L	(A2),A0
00013afa 42 10                    |B       |		CLR.B	(A0)
00013afc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00013afe 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00013b00 4e ba f9 10              |N       |		JSR	0x13412
00013b04 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013b06 4a 1f                    |J       |		TST.B	(A7)+
00013b08 67 06                    |g       |		BEQ	0x13b10
00013b0a 10 bc 00 03              |        |		MOVE.B	#0x03,(A0)
00013b0e 60 60                    |``      |		BRA	0x13b70
00013b10 20 53                    | S      |		MOVEA.L	(A3),A0
00013b12 30 2e 00 16              |0.      |		MOVE.W	(A6+0x16),D0
00013b16 b0 68 00 20              | h      |		CMP.W	(A0+0x20),D0
00013b1a 6d 08                    |m       |		BLT	0x13b24
00013b1c 20 52                    | R      |		MOVEA.L	(A2),A0
00013b1e 10 bc 00 09              |        |		MOVE.B	#0x09,(A0)
00013b22 60 4c                    |`L      |		BRA	0x13b70
00013b24 30 2e 00 14              |0.      |		MOVE.W	(A6+0x14),D0
00013b28 d0 6e 00 12              | n      |		ADD.W	(A6+0x12),D0
00013b2c 0c 40 02 00              | @      |		CMPI.W	#0x0200,D0
00013b30 6f 08                    |o       |		BLE	0x13b3a
00013b32 20 52                    | R      |		MOVEA.L	(A2),A0
00013b34 10 bc 00 0a              |        |		MOVE.B	#0x0a,(A0)
00013b38 60 36                    |`6      |		BRA	0x13b70
00013b3a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00013b3c 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00013b3e 3f 2e 00 16              |?.      |		MOVE.W	(A6+0x16),-(A7)
00013b42 4e ba ff 1e              |N       |		JSR	0x13a62
00013b46 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013b48 3e ae 00 14              |>       |		MOVE.W	(A6+0x14),(A7)
00013b4c 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00013b50 3f 2e 00 12              |?.      |		MOVE.W	(A6+0x12),-(A7)
00013b54 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00013b58 4e b9 00 01 29 86        |N   )   |		JSR	_ReadWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B)
00013b5e de fc 00 0e              |        |		ADDA.W	#0xe,A7
00013b62 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00013b66 67 02                    |g       |		BEQ	0x13b6a
00013b68 60 38                    |`8      |		BRA	0x13ba2
00013b6a 20 52                    | R      |		MOVEA.L	(A2),A0
00013b6c 10 bc 00 0c              |        |		MOVE.B	#0x0c,(A0)
00013b70 20 53                    | S      |		MOVEA.L	(A3),A0
00013b72 9e c1                    |        |		SUBA.W	D1,A7
00013b74 22 4f                    |"O      |		MOVEA.L	A7,A1
00013b76 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00013b78 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00013b7a 51 c8 ff fc              |Q       |		DBF	D0,0x13b78
00013b7e 20 52                    | R      |		MOVEA.L	(A2),A0
00013b80 1f 10                    |        |		MOVE.B	(A0),-(A7)
00013b82 1f 2e 00 10              | .      |		MOVE.B	(A6+0x10),-(A7)
00013b86 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00013b88 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00013b8c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00013b90 3f 01                    |?       |		MOVE.W	D1,-(A7)
00013b92 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00013b98 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00013b9a 4e ba f7 60              |N  `    |		JSR	0x132fc
00013b9e de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00013ba2 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
00013ba6 4e 5e                    |N^      |		UNLK	A6
00013ba8 4e 75                    |Nu      |		RTS
00013baa ; --------------------------------------------------------------------------------------
00013baa ; WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00013baa ; Stack:
00013baa ;     A6+0x18     file : File
00013baa ;     A6+0x16     y : W
00013baa ;     A6+0x14     x : W
00013baa ;     A6+0x12     a : W
00013baa ;     A6+0x10     b : B
00013baa ;     A6+0xc      c : L
00013baa ;     A6+0x8      d : L
00013baa ; OMSI PASCAL Function
00013baa ;    <LVAR  0x018 4(r)>
00013baa ;    <LVAR  0x016 2(r)>
00013baa ;    <LVAR  0x014 2(r)>
00013baa ;    <LVAR  0x012 2(r)>
00013baa ;    <LVAR  0x010 1(r)>
00013baa ;    <LVAR  0x00c 4(r)>
00013baa ;    <LVAR  0x008 4(r)>
00013baa ;    <LVAR -0x004 @ 1(r)>
00013baa ; --------------------------------------------------------------------------------------
00013baa					_WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L):
00013baa 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
00013bae bf d5                    |        |		CMPA.L	(A5),A7
00013bb0 62 06                    |b       |		BHI	0x13bb8
00013bb2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00013bb6 4e 76                    |Nv      |		TRAPV
00013bb8 de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
00013bbc 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
00013bc0 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00013bc4 47 ee 00 18              |G       |		LEA.L	(A6+0x18),A3
00013bc8 72 1e                    |r       |		MOVEQ.L	#0x1e,D1
00013bca 20 52                    | R      |		MOVEA.L	(A2),A0
00013bcc 42 10                    |B       |		CLR.B	(A0)
00013bce 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00013bd0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00013bd2 4e ba f8 3e              |N  >    |		JSR	0x13412
00013bd6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013bd8 4a 1f                    |J       |		TST.B	(A7)+
00013bda 67 06                    |g       |		BEQ	0x13be2
00013bdc 10 bc 00 03              |        |		MOVE.B	#0x03,(A0)
00013be0 60 60                    |``      |		BRA	0x13c42
00013be2 20 53                    | S      |		MOVEA.L	(A3),A0
00013be4 30 2e 00 16              |0.      |		MOVE.W	(A6+0x16),D0
00013be8 b0 68 00 20              | h      |		CMP.W	(A0+0x20),D0
00013bec 6d 08                    |m       |		BLT	0x13bf6
00013bee 20 52                    | R      |		MOVEA.L	(A2),A0
00013bf0 10 bc 00 09              |        |		MOVE.B	#0x09,(A0)
00013bf4 60 4c                    |`L      |		BRA	0x13c42
00013bf6 30 2e 00 14              |0.      |		MOVE.W	(A6+0x14),D0
00013bfa d0 6e 00 12              | n      |		ADD.W	(A6+0x12),D0
00013bfe 0c 40 02 00              | @      |		CMPI.W	#0x0200,D0
00013c02 6f 08                    |o       |		BLE	0x13c0c
00013c04 20 52                    | R      |		MOVEA.L	(A2),A0
00013c06 10 bc 00 0a              |        |		MOVE.B	#0x0a,(A0)
00013c0a 60 36                    |`6      |		BRA	0x13c42
00013c0c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00013c0e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00013c10 3f 2e 00 16              |?.      |		MOVE.W	(A6+0x16),-(A7)
00013c14 4e ba fe 4c              |N  L    |		JSR	0x13a62
00013c18 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013c1a 3e ae 00 14              |>       |		MOVE.W	(A6+0x14),(A7)
00013c1e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00013c22 3f 2e 00 12              |?.      |		MOVE.W	(A6+0x12),-(A7)
00013c26 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00013c2a 4e b9 00 01 2a 4c        |N   *L  |		JSR	_WriteWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B)
00013c30 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00013c34 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00013c38 67 02                    |g       |		BEQ	0x13c3c
00013c3a 60 38                    |`8      |		BRA	0x13c74
00013c3c 20 52                    | R      |		MOVEA.L	(A2),A0
00013c3e 10 bc 00 0c              |        |		MOVE.B	#0x0c,(A0)
00013c42 20 53                    | S      |		MOVEA.L	(A3),A0
00013c44 9e c1                    |        |		SUBA.W	D1,A7
00013c46 22 4f                    |"O      |		MOVEA.L	A7,A1
00013c48 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00013c4a 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00013c4c 51 c8 ff fc              |Q       |		DBF	D0,0x13c4a
00013c50 20 52                    | R      |		MOVEA.L	(A2),A0
00013c52 1f 10                    |        |		MOVE.B	(A0),-(A7)
00013c54 1f 2e 00 10              | .      |		MOVE.B	(A6+0x10),-(A7)
00013c58 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00013c5a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00013c5e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00013c62 3f 01                    |?       |		MOVE.W	D1,-(A7)
00013c64 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00013c6a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00013c6c 4e ba f6 8e              |N       |		JSR	0x132fc
00013c70 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00013c74 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
00013c78 4e 5e                    |N^      |		UNLK	A6
00013c7a 4e 75                    |Nu      |		RTS
00013c7c ; --------------------------------------------------------------------------------------
00013c7c ; CloseFile(a : L; VAR status : B; VAR file : File)
00013c7c ; Stack:
00013c7c ;     A6+0x10     a : L
00013c7c ;     A6+0xc  VAR status : B
00013c7c ;     A6+0x8  VAR file : File
00013c7c ; OMSI PASCAL Function
00013c7c ;    <LVAR  0x016 1(r)>
00013c7c ;    <LVAR  0x014 1(r)>
00013c7c ;    <LVAR  0x010 4(r)>
00013c7c ;    <LVAR  0x00c 4(r)>
00013c7c ;    <LVAR  0x008 4(r)>
00013c7c ;    <LVAR -0x004 @ 4(r)>
00013c7c ; --------------------------------------------------------------------------------------
00013c7c					_CloseFile(a : L; VAR status : B; VAR file : File):
00013c7c 4e 56 ff aa              |NV      |		LINK.W	A6,#0xffaa
00013c80 bf d5                    |        |		CMPA.L	(A5),A7
00013c82 62 06                    |b       |		BHI	0x13c8a
00013c84 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00013c88 4e 76                    |Nv      |		TRAPV
00013c8a de fc 00 52              |   R    |		ADDA.W	#0x52,A7
00013c8e 48 e7 e0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
00013c92 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
00013c96 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
00013c9a 72 01                    |r       |		MOVEQ.L	#0x01,D1
00013c9c 74 1e                    |t       |		MOVEQ.L	#0x1e,D2
00013c9e 4a 39 00 01 b0 94        |J9      |		TST.B	0x1b094
00013ca4 66 0c                    |f       |		BNE	0x13cb2
00013ca6 48 78 00 18              |Hx      |		PEA.L	0x18
00013caa 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
00013cb0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013cb2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00013cb4 20 54                    | T      |		MOVEA.L	(A4),A0
00013cb6 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00013cb8 4e ba f7 58              |N  X    |		JSR	0x13412
00013cbc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013cbe 4a 1f                    |J       |		TST.B	(A7)+
00013cc0 67 1a                    |g       |		BEQ	0x13cdc
00013cc2 20 53                    | S      |		MOVEA.L	(A3),A0
00013cc4 10 bc 00 03              |        |		MOVE.B	#0x03,(A0)
00013cc8 1f 10                    |        |		MOVE.B	(A0),-(A7)
00013cca 1f 2e 00 14              | .      |		MOVE.B	(A6+0x14),-(A7)
00013cce 48 78 00 01              |Hx      |		PEA.L	0x1
00013cd2 4e ba f6 28              |N  (    |		JSR	0x132fc
00013cd6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00013cd8 60 00 01 6c              |`  l    |		BRA	0x13e46
00013cdc 20 53                    | S      |		MOVEA.L	(A3),A0
00013cde 42 10                    |B       |		CLR.B	(A0)
00013ce0 20 54                    | T      |		MOVEA.L	(A4),A0
00013ce2 20 50                    | P      |		MOVEA.L	(A0),A0
00013ce4 b1 f9 00 01 00 26        |     &  |		CMPA.L	0x10026,A0
00013cea 66 06                    |f       |		BNE	0x13cf2
00013cec 23 c1 00 01 00 26        |#    &  |		MOVE.L	D1,0x10026
00013cf2 4a 2e 00 16              |J.      |		TST.B	(A6+0x16)
00013cf6 66 04                    |f       |		BNE	0x13cfc
00013cf8 60 00 01 38              |`  8    |		BRA	0x13e32
00013cfc 20 54                    | T      |		MOVEA.L	(A4),A0
00013cfe 20 50                    | P      |		MOVEA.L	(A0),A0
00013d00 2f 08                    |/       |		MOVE.L	A0,-(A7)
00013d02 10 28 00 3f              | ( ?    |		MOVE.B	(A0+0x3f),D0
00013d06 ef 08                    |        |		LSL.B	#0x7,D0
00013d08 ee 08                    |        |		LSR.B	#0x7,D0
00013d0a 67 0c                    |g       |		BEQ	0x13d18
00013d0c 20 53                    | S      |		MOVEA.L	(A3),A0
00013d0e 10 bc 00 08              |        |		MOVE.B	#0x08,(A0)
00013d12 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013d14 60 00 00 ea              |`       |		BRA	0x13e00
00013d18 10 2e 00 16              | .      |		MOVE.B	(A6+0x16),D0
00013d1c 0c 00 00 02              |        |		CMPI.B	#0x02,D0
00013d20 66 16                    |f       |		BNE	0x13d38
00013d22 20 54                    | T      |		MOVEA.L	(A4),A0
00013d24 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00013d26 4e ba f9 08              |N       |		JSR	0x13630
00013d2a 2e 90                    |.       |		MOVE.L	(A0),(A7)
00013d2c 4e b9 00 01 2e 20        |N   .   |		JSR	_FS1037c(MOD a : File)
00013d32 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00013d34 60 00 01 06              |`       |		BRA	0x13e3c
00013d38 10 2e 00 16              | .      |		MOVE.B	(A6+0x16),D0
00013d3c b0 01                    |        |		CMP.B	D1,D0
00013d3e 66 00 00 96              |f       |		BNE	0x13dd6
00013d42 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00013d46 b0 c1                    |        |		CMPA.W	D1,A0
00013d48 66 0a                    |f       |		BNE	0x13d54
00013d4a 20 53                    | S      |		MOVEA.L	(A3),A0
00013d4c 10 81                    |        |		MOVE.B	D1,(A0)
00013d4e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013d50 60 00 00 ae              |`       |		BRA	0x13e00
00013d54 20 53                    | S      |		MOVEA.L	(A3),A0
00013d56 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00013d5a 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00013d5e 48 50                    |HP      |		PEA.L	(A0)
00013d60 4e ba f6 fa              |N       |		JSR	0x1345c
00013d64 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00013d68 4a 10                    |J       |		TST.B	(A0)
00013d6a 67 04                    |g       |		BEQ	0x13d70
00013d6c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013d6e 60 68                    |`h      |		BRA	0x13dd8
00013d70 20 53                    | S      |		MOVEA.L	(A3),A0
00013d72 2f 2e ff fc              |/.      |		MOVE.L	(A6-0x4),-(A7)
00013d76 48 50                    |HP      |		PEA.L	(A0)
00013d78 4e ba f9 90              |N       |		JSR	0x1370a
00013d7c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00013d7e 4a 10                    |J       |		TST.B	(A0)
00013d80 67 04                    |g       |		BEQ	0x13d86
00013d82 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013d84 60 52                    |`R      |		BRA	0x13dd8
00013d86 20 6e ff fc              | n      |		MOVEA.L	(A6-0x4),A0
00013d8a 10 28 00 3f              | ( ?    |		MOVE.B	(A0+0x3f),D0
00013d8e e9 08                    |        |		LSL.B	#0x4,D0
00013d90 ee 08                    |        |		LSR.B	#0x7,D0
00013d92 66 0a                    |f       |		BNE	0x13d9e
00013d94 20 53                    | S      |		MOVEA.L	(A3),A0
00013d96 10 bc 00 06              |        |		MOVE.B	#0x06,(A0)
00013d9a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013d9c 60 3a                    |`:      |		BRA	0x13dd8
00013d9e 20 6e ff fc              | n      |		MOVEA.L	(A6-0x4),A0
00013da2 22 57                    |"W      |		MOVEA.L	(A7),A1
00013da4 45 e8 00 20              |E       |		LEA.L	(A0+0x20),A2
00013da8 43 e9 00 20              |C       |		LEA.L	(A1+0x20),A1
00013dac 70 1f                    |p       |		MOVEQ.L	#0x1f,D0
00013dae 14 d9                    |        |		MOVE.B	(A1)+,(A2)+
00013db0 51 c8 ff fc              |Q       |		DBF	D0,0x13dae
00013db4 11 41 00 4c              | A L    |		MOVE.B	D1,(A0+0x4c)
00013db8 20 54                    | T      |		MOVEA.L	(A4),A0
00013dba 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00013dbc 4e ba f8 72              |N  r    |		JSR	0x13630
00013dc0 2e ae ff fc              |.       |		MOVE.L	(A6-0x4),(A7)
00013dc4 4e ba f7 c8              |N       |		JSR	0x1358e
00013dc8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013dca 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00013dce 4e ba f5 ba              |N       |		JSR	0x1338a
00013dd2 60 00 ff 5e              |`  ^    |		BRA	0x13d32
00013dd6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013dd8 20 53                    | S      |		MOVEA.L	(A3),A0
00013dda 1f 10                    |        |		MOVE.B	(A0),-(A7)
00013ddc 1f 2e 00 14              | .      |		MOVE.B	(A6+0x14),-(A7)
00013de0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00013de2 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00013de6 4e b9 00 01 0e f2        |N       |		JSR	_StringDup(a : String) : String
00013dec 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013dee 4e ba f5 0c              |N       |		JSR	0x132fc
00013df2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00013df4 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00013df8 4e ba f5 90              |N       |		JSR	0x1338a
00013dfc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013dfe 60 32                    |`2      |		BRA	0x13e32
00013e00 20 54                    | T      |		MOVEA.L	(A4),A0
00013e02 20 50                    | P      |		MOVEA.L	(A0),A0
00013e04 9e c2                    |        |		SUBA.W	D2,A7
00013e06 22 4f                    |"O      |		MOVEA.L	A7,A1
00013e08 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00013e0a 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00013e0c 51 c8 ff fc              |Q       |		DBF	D0,0x13e0a
00013e10 20 53                    | S      |		MOVEA.L	(A3),A0
00013e12 1f 10                    |        |		MOVE.B	(A0),-(A7)
00013e14 1f 2e 00 14              | .      |		MOVE.B	(A6+0x14),-(A7)
00013e18 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00013e1a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00013e1e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00013e20 3f 02                    |?       |		MOVE.W	D2,-(A7)
00013e22 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00013e28 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00013e2a 4e ba f4 d0              |N       |		JSR	0x132fc
00013e2e de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00013e32 20 54                    | T      |		MOVEA.L	(A4),A0
00013e34 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00013e36 4e ba f7 56              |N  V    |		JSR	0x1358e
00013e3a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013e3c 20 54                    | T      |		MOVEA.L	(A4),A0
00013e3e 48 50                    |HP      |		PEA.L	(A0)
00013e40 4e ba f5 48              |N  H    |		JSR	0x1338a
00013e44 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013e46 4c df 1f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3+A4
00013e4a 4e 5e                    |N^      |		UNLK	A6
00013e4c 4e 75                    |Nu      |		RTS
00013e4e ; --------------------------------------------------------------------------------------
00013e4e ; WriteFreeList(void)
00013e4e ; Stack:
00013e4e ; OMSI PASCAL Function
00013e4e ;    <LVAR -0x004 @ 1(r)>
00013e4e ; --------------------------------------------------------------------------------------
00013e4e					_WriteFreeList(void):
00013e4e 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00013e52 bf d5                    |        |		CMPA.L	(A5),A7
00013e54 62 06                    |b       |		BHI	0x13e5c
00013e56 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00013e5a 4e 76                    |Nv      |		TRAPV
00013e5c de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00013e60 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
00013e64 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00013e68 70 03                    |p       |		MOVEQ.L	#0x03,D0
00013e6a 72 10                    |r       |		MOVEQ.L	#0x10,D1
00013e6c 4a 79 00 01 00 10        |Jy      |		TST.W	superblock_sector.freelist_lba
00013e72 67 2e                    |g.      |		BEQ	0x13ea2
00013e74 1f 00                    |        |		MOVE.B	D0,-(A7)
00013e76 3f 39 00 01 00 10        |?9      |		MOVE.W	superblock_sector.freelist_lba,-(A7)
00013e7c 48 78 00 01              |Hx      |		PEA.L	0x1
00013e80 41 f9 00 01 00 22        |A    "  |		LEA.L	freelist_sector,A0
00013e86 2f 08                    |/       |		MOVE.L	A0,-(A7)
00013e88 48 51                    |HQ      |		PEA.L	(A1)
00013e8a 4e b9 00 01 27 b6        |N   '   |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00013e90 de c1                    |        |		ADDA.W	D1,A7
00013e92 4a 11                    |J       |		TST.B	(A1)
00013e94 66 0c                    |f       |		BNE	0x13ea2
00013e96 48 78 00 0a              |Hx      |		PEA.L	0xa
00013e9a 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
00013ea0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013ea2 1f 00                    |        |		MOVE.B	D0,-(A7)
00013ea4 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00013ea8 48 78 00 01              |Hx      |		PEA.L	0x1
00013eac 41 f9 00 01 00 0e        |A       |		LEA.L	superblock_sector,A0
00013eb2 2f 08                    |/       |		MOVE.L	A0,-(A7)
00013eb4 48 51                    |HQ      |		PEA.L	(A1)
00013eb6 4e b9 00 01 27 b6        |N   '   |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00013ebc de c1                    |        |		ADDA.W	D1,A7
00013ebe 4a 11                    |J       |		TST.B	(A1)
00013ec0 66 0c                    |f       |		BNE	0x13ece
00013ec2 48 78 00 09              |Hx      |		PEA.L	0x9
00013ec6 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
00013ecc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00013ece 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00013ed2 4e 5e                    |N^      |		UNLK	A6
00013ed4 4e 75                    |Nu      |		RTS
00013ed6 ; --------------------------------------------------------------------------------------
00013ed6 ; MountDisk(drive : Word ; VAR status : Byte)
00013ed6 ; Stack:
00013ed6 ;     A6+0xc      drive : Word
00013ed6 ;     A6+0x8  VAR status : Byte
00013ed6 ; OMSI PASCAL Function
00013ed6 ;    <LVAR  0x00c 2(r)>
00013ed6 ;    <LVAR  0x008 4(r)>
00013ed6 ;    <LVAR -0x00a @ 1(r)>
00013ed6 ;    <LVAR -0x408 2(r)>
00013ed6 ;    <LVAR -0x40a @ 2(r)>
00013ed6 ; --------------------------------------------------------------------------------------
00013ed6					_MountDisk(drive : Word ; VAR status : Byte):
00013ed6 4e 56 fb ba              |NV      |		LINK.W	A6,#0xfbba
00013eda bf d5                    |        |		CMPA.L	(A5),A7
00013edc 62 06                    |b       |		BHI	0x13ee4
00013ede 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00013ee2 4e 76                    |Nv      |		TRAPV
00013ee4 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
00013ee8 48 e7 f8 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7)
00013eec 45 ee fb f6              |E       |		LEA.L	(A6-0x40a),A2
00013ef0 74 02                    |t       |		MOVEQ.L	#0x02,D2
00013ef2 76 01                    |v       |		MOVEQ.L	#0x01,D3
00013ef4 78 10                    |x       |		MOVEQ.L	#0x10,D4
00013ef6 42 27                    |B'      |		CLR.B	-(A7)
00013ef8 4e b9 00 01 47 32        |N   G2  |		JSR	_Set_is_open_ERROR_LOG(a : Bool)
00013efe 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00013f00 42 39 00 01 b0 94        |B9      |		CLR.B	0x1b094
00013f06 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00013f0a 10 bc 00 0c              |        |		MOVE.B	#0x0c,(A0)
00013f0e 33 ee 00 0c 00 01 00 08  |3       |		MOVE.W	(A6+0xc),mounted_drive
00013f16 23 c3 00 01 00 26        |#    &  |		MOVE.L	D3,0x10026
00013f1c 33 fc 7f ff 00 01 00 0a  |3       |		MOVE.W	#0x7fff,sec_per_track
00013f24 33 fc 7f ff 00 01 00 0c  |3       |		MOVE.W	#0x7fff,sec_per_cyl
00013f2c 23 c3 00 02 00 20        |#       |		MOVE.L	D3,0x20020
00013f32 1f 02                    |        |		MOVE.B	D2,-(A7)
00013f34 3f 02                    |?       |		MOVE.W	D2,-(A7)
00013f36 48 78 00 01              |Hx      |		PEA.L	0x1
00013f3a 20 4a                    | J      |		MOVEA.L	A2,A0
00013f3c 2f 08                    |/       |		MOVE.L	A0,-(A7)
00013f3e 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00013f42 4e b9 00 01 27 b6        |N   '   |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00013f48 de c4                    |        |		ADDA.W	D4,A7
00013f4a 4a 2e ff f6              |J.      |		TST.B	(A6-0xa)
00013f4e 66 04                    |f       |		BNE	0x13f54
00013f50 60 00 00 dc              |`       |		BRA	0x1402e
00013f54 20 4a                    | J      |		MOVEA.L	A2,A0
00013f56 2f 08                    |/       |		MOVE.L	A0,-(A7)
00013f58 26 5f                    |&_      |		MOVEA.L	(A7)+,A3
00013f5a 30 2b 00 02              |0+      |		MOVE.W	(A3+0x2),D0
00013f5e 0c 40 7f ed              | @      |		CMPI.W	#0x7fed,D0
00013f62 67 0c                    |g       |		BEQ	0x13f70
00013f64 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00013f68 10 bc 00 0d              |        |		MOVE.B	#0x0d,(A0)
00013f6c 60 00 00 c0              |`       |		BRA	0x1402e
00013f70 4a 2b 00 34              |J+ 4    |		TST.B	(A3+0x34)
00013f74 66 0c                    |f       |		BNE	0x13f82
00013f76 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00013f7a 10 bc 00 0e              |        |		MOVE.B	#0x0e,(A0)
00013f7e 60 00 00 ae              |`       |		BRA	0x1402e
00013f82 42 80                    |B       |		CLR.L	D0
00013f84 10 2b 00 0b              | +      |		MOVE.B	(A3+0xb),D0
00013f88 e2 40                    | @      |		ASR.W	#0x1,D0
00013f8a 33 c0 00 01 00 0a        |3       |		MOVE.W	D0,sec_per_track
00013f90 42 81                    |B       |		CLR.L	D1
00013f92 12 2b 00 0a              | +      |		MOVE.B	(A3+0xa),D1
00013f96 c0 c1                    |        |		MULU.W	D1,D0
00013f98 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00013f9e 63 02                    |c       |		BLS	0x13fa2
00013fa0 4e 4f                    |NO      |		TRAP	#15
00013fa2 33 c0 00 01 00 0c        |3       |		MOVE.W	D0,sec_per_cyl
00013fa8 1f 02                    |        |		MOVE.B	D2,-(A7)
00013faa 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00013fae 48 78 00 01              |Hx      |		PEA.L	0x1
00013fb2 20 4a                    | J      |		MOVEA.L	A2,A0
00013fb4 2f 08                    |/       |		MOVE.L	A0,-(A7)
00013fb6 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00013fba 4e b9 00 01 27 b6        |N   '   |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00013fc0 de c4                    |        |		ADDA.W	D4,A7
00013fc2 4a 2e ff f6              |J.      |		TST.B	(A6-0xa)
00013fc6 66 02                    |f       |		BNE	0x13fca
00013fc8 60 64                    |`d      |		BRA	0x1402e
00013fca 20 4a                    | J      |		MOVEA.L	A2,A0
00013fcc 2f 08                    |/       |		MOVE.L	A0,-(A7)
00013fce 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00013fd0 41 f9 00 01 00 0e        |A       |		LEA.L	superblock_sector,A0
00013fd6 22 4c                    |"L      |		MOVEA.L	A4,A1
00013fd8 70 13                    |p       |		MOVEQ.L	#0x13,D0
00013fda 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00013fdc 51 c8 ff fc              |Q       |		DBF	D0,0x13fda
00013fe0 4a 79 00 01 00 10        |Jy      |		TST.W	superblock_sector.freelist_lba
00013fe6 66 08                    |f       |		BNE	0x13ff0
00013fe8 42 79 00 01 00 22        |By   "  |		CLR.W	freelist_sector
00013fee 60 32                    |`2      |		BRA	0x14022
00013ff0 1f 02                    |        |		MOVE.B	D2,-(A7)
00013ff2 3f 39 00 01 00 10        |?9      |		MOVE.W	superblock_sector.freelist_lba,-(A7)
00013ff8 48 78 00 01              |Hx      |		PEA.L	0x1
00013ffc 20 4a                    | J      |		MOVEA.L	A2,A0
00013ffe 2f 08                    |/       |		MOVE.L	A0,-(A7)
00014000 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00014004 4e b9 00 01 27 b6        |N   '   |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
0001400a de c4                    |        |		ADDA.W	D4,A7
0001400c 4a 2e ff f6              |J.      |		TST.B	(A6-0xa)
00014010 66 02                    |f       |		BNE	0x14014
00014012 60 1a                    |`       |		BRA	0x1402e
00014014 33 d2 00 01 00 22        |3    "  |		MOVE.W	(A2),freelist_sector
0001401a 33 ee fb f8 00 01 00 24  |3      $|		MOVE.W	(A6-0x408),0x10024
00014022 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00014026 42 10                    |B       |		CLR.B	(A0)
00014028 13 c3 00 01 b0 94        |        |		MOVE.B	D3,0x1b094
0001402e 4c df 1f 1f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3+A4
00014032 4e 5e                    |N^      |		UNLK	A6
00014034 4e 75                    |Nu      |		RTS
00014036 ; --------------------------------------------------------------------------------------
00014036 ; FSCALL_10398
00014036 ; OMSI PASCAL Function
00014036 ;    <LVAR -0x004 @ 1(r)>
00014036 ;    <LVAR -0x006 @ 2(rw)>
00014036 ;    <LVAR -0x008 @ 1(r)>
00014036 ; --------------------------------------------------------------------------------------
00014036					_FSCALL_10398:
00014036 4e 56 ff a2              |NV      |		LINK.W	A6,#0xffa2
0001403a bf d5                    |        |		CMPA.L	(A5),A7
0001403c 62 06                    |b       |		BHI	0x14044
0001403e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00014042 4e 76                    |Nv      |		TRAPV
00014044 de fc 00 56              |   V    |		ADDA.W	#0x56,A7
00014048 48 e7 e0 e0              |H       |		MOVEM.L	A2+A1+A0+D2+D1+D0,-(A7)
0001404c 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
00014050 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00014054 72 01                    |r       |		MOVEQ.L	#0x01,D1
00014056 74 2a                    |t*      |		MOVEQ.L	#0x2a,D2
00014058 4e b9 00 01 5b 76        |N   [v  |		JSR	_FSCALL_10400
0001405e 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00014062 48 51                    |HQ      |		PEA.L	(A1)
00014064 4e b9 00 01 02 00        |N       |		JSR	KC00_GetBootDev(VAR a : Byte; VAR b : Word)
0001406a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001406c 10 2e ff f8              | .      |		MOVE.B	(A6-0x8),D0
00014070 0c 00 00 02              |        |		CMPI.B	#0x02,D0
00014074 67 54                    |gT      |		BEQ	0x140ca
00014076 42 27                    |B'      |		CLR.B	-(A7)
00014078 4e b9 00 01 5c 70        |N   \p  |		JSR	_SetSomeKindOfFlag(a : Byte)
0001407e 3e 81                    |>       |		MOVE.W	D1,(A7)
00014080 1f 01                    |        |		MOVE.B	D1,-(A7)
00014082 4e b9 00 01 02 10        |N       |		JSR	KC08_PortSomething(port: Word; b: Byte)
00014088 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001408a 41 fa ee 3a              |A  :    |		LEA.L	0x12ec6,A0
0001408e 70 14                    |p       |		MOVEQ.L	#0x14,D0
00014090 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00014092 51 c8 ff fc              |Q       |		DBF	D0,0x14090
00014096 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00014098 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0001409c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0001409e 3f 02                    |?       |		MOVE.W	D2,-(A7)
000140a0 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
000140a6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000140a8 48 78 00 00              |Hx      |		PEA.L	0x0
000140ac 48 78 00 0f              |Hx      |		PEA.L	0xf
000140b0 4e b9 00 01 59 42        |N   YB  |		JSR	_AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
000140b6 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000140ba 20 1f                    |        |		MOVE.L	(A7)+,D0
000140bc 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000140c2 63 02                    |c       |		BLS	0x140c6
000140c4 4e 4f                    |NO      |		TRAP	#15
000140c6 de c2                    |        |		ADDA.W	D2,A7
000140c8 32 80                    |2       |		MOVE.W	D0,(A1)
000140ca 30 11                    |0       |		MOVE.W	(A1),D0
000140cc 41 bc 00 0f              |A       |		CHK.W	#0xf,D0
000140d0 3f 00                    |?       |		MOVE.W	D0,-(A7)
000140d2 48 52                    |HR      |		PEA.L	(A2)
000140d4 4e ba fe 00              |N       |		JSR	_MountDisk(drive : Word ; VAR status : Byte)
000140d8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000140da 4a 12                    |J       |		TST.B	(A2)
000140dc 67 20                    |g       |		BEQ	0x140fe
000140de 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000140e0 1f 12                    |        |		MOVE.B	(A2),-(A7)
000140e2 4e b9 00 01 42 fe        |N   B   |		JSR	_FsErrMsgStr(err: Byte) : String
000140e8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000140ea 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
000140f0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000140f2 48 78 00 0f              |Hx      |		PEA.L	0xf
000140f6 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
000140fc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000140fe 4e b9 00 01 44 4a        |N   DJ  |		JSR	_Open_ERROR_LOG(void)
00014104 4c df 07 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2
00014108 4e 5e                    |N^      |		UNLK	A6
0001410a 4e 75                    |Nu      |		RTS
0001410c ; --------------------------------------------------------------------------------------
0001410c ; OMSI PASCAL Function
0001410c ;    <LVAR  0x010 1(rw)>
0001410c ;    <LVAR  0x00c 4(r)>
0001410c ;    <LVAR  0x008 4(r)>
0001410c ; --------------------------------------------------------------------------------------
0001410c 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
00014110 bf d5                    |        |		CMPA.L	(A5),A7
00014112 62 06                    |b       |		BHI	0x1411a
00014114 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00014118 4e 76                    |Nv      |		TRAPV
0001411a de fc 00 38              |   8    |		ADDA.W	#0x38,A7
0001411e 48 e7 e1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D2+D1+D0,-(A7)
00014122 45 ee 00 10              |E       |		LEA.L	(A6+0x10),A2
00014126 74 05                    |t       |		MOVEQ.L	#0x05,D2
00014128 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0001412c 22 6e 00 08              |"n      |		MOVEA.L	(A6+0x8),A1
00014130 30 28 00 42              |0( B    |		MOVE.W	(A0+0x42),D0
00014134 b0 69 00 42              | i B    |		CMP.W	(A1+0x42),D0
00014138 66 0a                    |f       |		BNE	0x14144
0001413a 30 28 00 20              |0(      |		MOVE.W	(A0+0x20),D0
0001413e b0 69 00 20              | i      |		CMP.W	(A1+0x20),D0
00014142 67 04                    |g       |		BEQ	0x14148
00014144 42 12                    |B       |		CLR.B	(A2)
00014146 60 34                    |`4      |		BRA	0x1417c
00014148 14 bc 00 01              |        |		MOVE.B	#0x01,(A2)
0001414c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0001414e 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00014152 be 82                    |        |		CMP.L	D2,D7
00014154 63 02                    |c       |		BLS	0x14158
00014156 4e 4f                    |NO      |		TRAP	#15
00014158 20 07                    |        |		MOVE.L	D7,D0
0001415a e5 80                    |        |		ASL.L	#0x2,D0
0001415c 22 6e 00 08              |"n      |		MOVEA.L	(A6+0x8),A1
00014160 32 30 08 22              |20 "    |		MOVE.W	(A0+D0.L+#0x22),D1
00014164 b2 71 08 22              | q "    |		CMP.W	(A1+D0.L+#0x22),D1
00014168 66 0a                    |f       |		BNE	0x14174
0001416a 32 30 08 24              |20 $    |		MOVE.W	(A0+D0.L+#0x24),D1
0001416e b2 71 08 24              | q $    |		CMP.W	(A1+D0.L+#0x24),D1
00014172 67 02                    |g       |		BEQ	0x14176
00014174 42 12                    |B       |		CLR.B	(A2)
00014176 52 87                    |R       |		ADDQ.L	#0x1,D7
00014178 be 82                    |        |		CMP.L	D2,D7
0001417a 6f d2                    |o       |		BLE	0x1414e
0001417c 4c df 07 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1+A2
00014180 4e 5e                    |N^      |		UNLK	A6
00014182 4e 75                    |Nu      |		RTS
00014184 ; --------------------------------------------------------------------------------------
00014184 ; InitProg(void)
00014184 ; Stack:
00014184 ; OMSI PASCAL Function
00014184 ;    <LVAR -0x006 @ 4(r)>
00014184 ;    <LVAR -0x010 @ 1(r)>
00014184 ;    <LVAR -0x018 @ 4(rw)>
00014184 ; --------------------------------------------------------------------------------------
00014184					_InitProg(void):
00014184 4e 56 ff 86              |NV      |		LINK.W	A6,#0xff86
00014188 bf d5                    |        |		CMPA.L	(A5),A7
0001418a 62 06                    |b       |		BHI	0x14192
0001418c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00014190 4e 76                    |Nv      |		TRAPV
00014192 de fc 00 62              |   b    |		ADDA.W	#0x62,A7
00014196 48 e7 f0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
0001419a 45 ee ff f0              |E       |		LEA.L	(A6-0x10),A2
0001419e 72 01                    |r       |		MOVEQ.L	#0x01,D1
000141a0 74 1a                    |t       |		MOVEQ.L	#0x1a,D2
000141a2 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
000141a4 4e b9 00 01 5b 76        |N   [v  |		JSR	_FSCALL_10400
000141aa 26 79 00 02 00 20        |&y      |		MOVEA.L	0x20020,A3
000141b0 3f 39 00 01 00 08        |?9      |		MOVE.W	mounted_drive,-(A7)
000141b6 48 52                    |HR      |		PEA.L	(A2)
000141b8 4e ba fd 1c              |N       |		JSR	_MountDisk(drive : Word ; VAR status : Byte)
000141bc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000141be 4a 12                    |J       |		TST.B	(A2)
000141c0 67 46                    |gF      |		BEQ	0x14208
000141c2 41 fa ed 18              |A       |		LEA.L	0x12edc,A0
000141c6 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000141c8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000141ca 51 c8 ff fc              |Q       |		DBF	D0,0x141c8
000141ce 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000141d0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000141d4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000141d6 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
000141da 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
000141e0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000141e2 1e 92                    |        |		MOVE.B	(A2),(A7)
000141e4 4e b9 00 01 42 fe        |N   B   |		JSR	_FsErrMsgStr(err: Byte) : String
000141ea 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000141ec 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
000141f2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000141f4 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
000141fa de c2                    |        |		ADDA.W	D2,A7
000141fc 48 78 00 0b              |Hx      |		PEA.L	0xb
00014200 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
00014206 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00014208 28 4b                    |(K      |		MOVEA.L	A3,A4
0001420a b8 c1                    |        |		CMPA.W	D1,A4
0001420c 67 00 00 88              |g       |		BEQ	0x14296
00014210 9e c3                    |        |		SUBA.W	D3,A7
00014212 20 4f                    | O      |		MOVEA.L	A7,A0
00014214 22 4c                    |"L      |		MOVEA.L	A4,A1
00014216 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00014218 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0001421a 51 c8 ff fc              |Q       |		DBF	D0,0x14218
0001421e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00014220 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00014224 3f 01                    |?       |		MOVE.W	D1,-(A7)
00014226 3f 03                    |?       |		MOVE.W	D3,-(A7)
00014228 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
0001422e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014230 2d 5f ff e8              |-_      |		MOVE.L	(A7)+,(A6-0x18)
00014234 de c2                    |        |		ADDA.W	D2,A7
00014236 2e ae ff e8              |.       |		MOVE.L	(A6-0x18),(A7)
0001423a 42 27                    |B'      |		CLR.B	-(A7)
0001423c 1f 01                    |        |		MOVE.B	D1,-(A7)
0001423e 48 78 00 00              |Hx      |		PEA.L	0x0
00014242 48 52                    |HR      |		PEA.L	(A2)
00014244 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00014248 4e ba f6 5c              |N  \    |		JSR	_OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0001424c de fc 00 14              |        |		ADDA.W	#0x14,A7
00014250 4a 12                    |J       |		TST.B	(A2)
00014252 67 02                    |g       |		BEQ	0x14256
00014254 60 58                    |`X      |		BRA	0x142ae
00014256 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00014258 2f 0c                    |/       |		MOVE.L	A4,-(A7)
0001425a 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
0001425e 4e ba fe ac              |N       |		JSR	0x1410c
00014262 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014264 4a 1f                    |J       |		TST.B	(A7)+
00014266 66 02                    |f       |		BNE	0x1426a
00014268 60 44                    |`D      |		BRA	0x142ae
0001426a 42 27                    |B'      |		CLR.B	-(A7)
0001426c 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00014270 48 78 00 01              |Hx      |		PEA.L	0x1
00014274 48 52                    |HR      |		PEA.L	(A2)
00014276 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
0001427a 4e ba fa 00              |N       |		JSR	_CloseFile(a : L; VAR status : B; VAR file : File)
0001427e de fc 00 10              |        |		ADDA.W	#0x10,A7
00014282 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00014286 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
0001428c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001428e 28 6c 00 44              |(l D    |		MOVEA.L	(A4+0x44),A4
00014292 60 00 ff 76              |`  v    |		BRA	0x1420a
00014296 20 79 00 02 00 20        | y      |		MOVEA.L	0x20020,A0
0001429c b0 c1                    |        |		CMPA.W	D1,A0
0001429e 67 0c                    |g       |		BEQ	0x142ac
000142a0 48 78 00 1b              |Hx      |		PEA.L	0x1b
000142a4 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
000142aa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000142ac 60 38                    |`8      |		BRA	0x142e6
000142ae 41 fa ec 54              |A  T    |		LEA.L	0x12f04,A0
000142b2 70 09                    |p       |		MOVEQ.L	#0x09,D0
000142b4 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000142b6 51 c8 ff fc              |Q       |		DBF	D0,0x142b4
000142ba 1f 01                    |        |		MOVE.B	D1,-(A7)
000142bc 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000142be 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
000142c2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000142c4 3f 3c 00 28              |?< (    |		MOVE.W	#0x28,-(A7)
000142c8 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
000142ce 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000142d0 2e ae ff e8              |.       |		MOVE.L	(A6-0x18),(A7)
000142d4 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
000142da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000142dc 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
000142e2 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
000142e6 23 cb 00 02 00 20        |#       |		MOVE.L	A3,0x20020
000142ec 1f 01                    |        |		MOVE.B	D1,-(A7)
000142ee 4e b9 00 01 47 32        |N   G2  |		JSR	_Set_is_open_ERROR_LOG(a : Bool)
000142f4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000142f6 4c df 1f 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
000142fa 4e 5e                    |N^      |		UNLK	A6
000142fc 4e 75                    |Nu      |		RTS
000142fe ; --------------------------------------------------------------------------------------
000142fe ; FsErrMsgStr(err: Byte) : String
000142fe ; Stack:
000142fe ;     A6+0xa  VAR RETURN : String
000142fe ;     A6+0x8      err : Byte
000142fe ; OMSI PASCAL Function
000142fe ;    <LVAR  0x00a 4(w)>
000142fe ;    <LVAR  0x008 1(r)>
000142fe ; --------------------------------------------------------------------------------------
000142fe					_FsErrMsgStr(err: Byte) : String:
000142fe 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
00014302 bf d5                    |        |		CMPA.L	(A5),A7
00014304 62 06                    |b       |		BHI	0x1430c
00014306 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001430a 4e 76                    |Nv      |		TRAPV
0001430c de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00014310 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00014314 72 1e                    |r       |		MOVEQ.L	#0x1e,D1
00014316 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0001431a 48 80                    |H       |		EXTB.W	D0
0001431c c1 c1                    |        |		MULS.W	D1,D0
0001431e 41 fa ed fc              |A       |		LEA.L	0x1311c,A0
00014322 41 f0 00 1e              |A       |		LEA.L	(A0+D0.W+#0x1e),A0
00014326 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00014328 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0001432a 51 c8 ff fc              |Q       |		DBF	D0,0x14328
0001432e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00014330 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00014334 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00014338 3f 01                    |?       |		MOVE.W	D1,-(A7)
0001433a 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00014340 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014342 2d 5f 00 0a              |-_      |		MOVE.L	(A7)+,(A6+0xa)
00014346 de c1                    |        |		ADDA.W	D1,A7
00014348 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
0001434c 4e 5e                    |N^      |		UNLK	A6
0001434e 4e 75                    |Nu      |		RTS
00014350 45 52 52 4f 52 5f 4c 4f  |ERROR_LO|		.TXT	'ERROR_LOG '
0001435a 43 53 31 3d 20 20        |CS1=    |		.XXX[0x6]
00014360 20 43 53 32 3d 20 20 44  | CS2=  D|		.XXX[0x60]
00014368 53 3d 20 20 20 45 52 31  |S=   ER1|
00014370 3d 20 20 45 52 32 3d 20  |=  ER2= |
00014378 20 45 43 31 3d 20 20 45  | EC1=  E|
00014380 43 32 3d 20 20 44 43 3d  |C2=  DC=|
00014388 20 20 20 44 41 3d 20 20  |   DA=  |
00014390 53 52 3d 20 20 20 20 48  |SR=    H|
00014398 44 3d 20 20 20 50 4c 3d  |D=   PL=|
000143a0 20 20 20 52 43 3d 20 20  |   RC=  |
000143a8 20 58 30 3d 20 20 20 58  | X0=   X|
000143b0 31 3d 20 20 20 58 32 3d  |1=   X2=|
000143b8 20 20 20 58 33 3d 20 20  |   X3=  |
000143c0 44 69 73 6b 20 65 72 72  |Disk err|		.TXT	'Disk errors while writing error log.'
000143e4 43 53 31 3d              |CS1=    |		.XXX[0x4]
000143e8 20 20 20 43 53 32 3d 20  |   CS2= |		.XXX[0x60]
000143f0 20 44 53 3d 20 20 20 45  | DS=   E|
000143f8 52 31 3d 20 20 45 52 32  |R1=  ER2|
00014400 3d 20 20 45 43 31 3d 20  |=  EC1= |
00014408 20 45 43 32 3d 20 20 44  | EC2=  D|
00014410 43 3d 20 20 20 44 41 3d  |C=   DA=|
00014418 20 20 53 52 3d 20 20 20  |  SR=   |
00014420 20 48 44 3d 20 20 20 50  | HD=   P|
00014428 4c 3d 20 20 20 52 43 3d  |L=   RC=|
00014430 20 20 20 58 30 3d 20 20  |   X0=  |
00014438 20 58 31 3d 20 20 20 58  | X1=   X|
00014440 32 3d 20 20 20 58 33 3d  |2=   X3=|
00014448 20 20                    |        |		.XXX[0x2]
0001444a ; --------------------------------------------------------------------------------------
0001444a ; Open_ERROR_LOG(void)
0001444a ; Stack:
0001444a ; OMSI PASCAL Function
0001444a ;    <LVAR -0x004 @ 1(r)>
0001444a ;    <LVAR -0x008 @ 4(rw)>
0001444a ; --------------------------------------------------------------------------------------
0001444a					_Open_ERROR_LOG(void):
0001444a 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
0001444e bf d5                    |        |		CMPA.L	(A5),A7
00014450 62 06                    |b       |		BHI	0x14458
00014452 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00014456 4e 76                    |Nv      |		TRAPV
00014458 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
0001445c 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00014460 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
00014464 72 01                    |r       |		MOVEQ.L	#0x01,D1
00014466 42 39 00 02 00 f1        |B9      |		CLR.B	write_error_ERROR_LOG
0001446c 42 39 00 02 00 f0        |B9      |		CLR.B	is_open_ERROR_LOG
00014472 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00014476 20 4f                    | O      |		MOVEA.L	A7,A0
00014478 43 fa fe d6              |C       |		LEA.L	0x14350,A1
0001447c 70 08                    |p       |		MOVEQ.L	#0x08,D0
0001447e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00014480 51 c8 ff fc              |Q       |		DBF	D0,0x1447e
00014484 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00014486 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0001448a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0001448c 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00014490 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00014496 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014498 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0001449a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001449c 2e 92                    |.       |		MOVE.L	(A2),(A7)
0001449e 42 27                    |B'      |		CLR.B	-(A7)
000144a0 1f 01                    |        |		MOVE.B	D1,-(A7)
000144a2 48 78 00 00              |Hx      |		PEA.L	0x0
000144a6 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000144aa 48 79 00 02 00 ec        |Hy      |		PEA.L	0x200ec
000144b0 4e b9 00 01 38 a6        |N   8   |		JSR	_OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000144b6 de fc 00 14              |        |		ADDA.W	#0x14,A7
000144ba 48 52                    |HR      |		PEA.L	(A2)
000144bc 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
000144c2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000144c4 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
000144c8 66 06                    |f       |		BNE	0x144d0
000144ca 13 c1 00 02 00 f0        |        |		MOVE.B	D1,is_open_ERROR_LOG
000144d0 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000144d4 4e 5e                    |N^      |		UNLK	A6
000144d6 4e 75                    |Nu      |		RTS
000144d8 ; --------------------------------------------------------------------------------------
000144d8 ; Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
000144d8 ; Stack:
000144d8 ;     A6+0xc  VAR a : Bool
000144d8 ;     A6+0x8      b : Pointer
000144d8 ; OMSI PASCAL Function
000144d8 ;    <LVAR  0x00c 1(r)>
000144d8 ;    <LVAR  0x008 4(r)>
000144d8 ;    <LVAR -0x400 2(rw)>
000144d8 ;    <LVAR -0x405 1(r)>
000144d8 ;    <LVAR -0x406 2(rw)>
000144d8 ;    <LVAR -0x408 @ 2(rw)>
000144d8 ;    <LVAR -0x482 @>
000144d8 ;    <LVAR -0x486 @>
000144d8 ;    <LVAR -0x488 @ 1(w)>
000144d8 ;    <LVAR -0x48a @>
000144d8 ; --------------------------------------------------------------------------------------
000144d8					_Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer):
000144d8 4e 56 fb 08              |NV      |		LINK.W	A6,#0xfb08
000144dc bf d5                    |        |		CMPA.L	(A5),A7
000144de 62 06                    |b       |		BHI	0x144e6
000144e0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000144e4 4e 76                    |Nv      |		TRAPV
000144e6 de fc 00 6a              |   j    |		ADDA.W	#0x6a,A7
000144ea 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000144ee 45 ee fb f8              |E       |		LEA.L	(A6-0x408),A2
000144f2 47 ee fb fa              |G       |		LEA.L	(A6-0x406),A3
000144f6 49 f9 00 01 0d dc        |I       |		LEA.L	_StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
000144fc 74 01                    |t       |		MOVEQ.L	#0x01,D2
000144fe 4a 39 00 02 00 f1        |J9      |		TST.B	write_error_ERROR_LOG
00014504 67 28                    |g(      |		BEQ	0x1452e
00014506 41 fa fe dc              |A       |		LEA.L	0x143e4,A0
0001450a 70 08                    |p       |		MOVEQ.L	#0x08,D0
0001450c 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0001450e 51 c8 ff fc              |Q       |		DBF	D0,0x1450c
00014512 1f 02                    |        |		MOVE.B	D2,-(A7)
00014514 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00014516 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0001451a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001451c 3f 3c 00 24              |?< $    |		MOVE.W	#0x24,-(A7)
00014520 4e 94                    |N       |		JSR	(A4)
00014522 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014524 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
0001452a de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
0001452e 10 2e 00 0c              | .      |		MOVE.B	(A6+0xc),D0
00014532 48 80                    |H       |		EXTB.W	D0
00014534 b0 42                    | B      |		CMP.W	D2,D0
00014536 62 00 00 e8              |b       |		BHI	0x14620
0001453a d0 40                    | @      |		ADD.W	D0,D0
0001453c 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00014544 00 04                    |        |		.CONST	0x4			; [0x0] -> 0x14548
00014546 00 6e                    | n      |		.CONST	0x6e			; [0x1] -> 0x145b2
00014548					switch@0x1453c[0x0]:
00014548 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0001454a 28 07                    |(       |		MOVE.L	D7,D4
0001454c 76 06                    |v       |		MOVEQ.L	#0x06,D3
0001454e 4e b9 00 01 07 ea        |N       |		JSR	_?muls_d3_d4
00014554 41 fa fe 8e              |A       |		LEA.L	0x143e4,A0
00014558 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0001455a 22 4f                    |"O      |		MOVEA.L	A7,A1
0001455c 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
00014560 70 05                    |p       |		MOVEQ.L	#0x05,D0
00014562 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00014564 51 c8 ff fc              |Q       |		DBF	D0,0x14562
00014568 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0001456a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0001456e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00014570 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00014574 4e 94                    |N       |		JSR	(A4)
00014576 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00014578 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001457c 20 07                    |        |		MOVE.L	D7,D0
0001457e e3 80                    |        |		ASL.L	#0x1,D0
00014580 42 81                    |B       |		CLR.L	D1
00014582 32 30 08 00              |20      |		MOVE.W	(A0+D0.L),D1
00014586 2f 01                    |/       |		MOVE.L	D1,-(A7)
00014588 48 78 00 04              |Hx      |		PEA.L	0x4
0001458c 4e b9 00 01 11 b4        |N       |		JSR	_Long2HexString(val : Long; ndig : Long) : String
00014592 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014594 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
0001459a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001459c 4e b9 00 01 53 84        |N   S   |		JSR	_WriteConsoleString(str : String)
000145a2 de fc 00 0a              |        |		ADDA.W	#0xa,A7
000145a6 52 87                    |R       |		ADDQ.L	#0x1,D7
000145a8 0c 87 00 00 00 08        |        |		CMPI.L	#0x00000008,D7
000145ae 6f 9a                    |o       |		BLE	0x1454a
000145b0 60 68                    |`h      |		BRA	0x1461a
000145b2					switch@0x1453c[0x1]:
000145b2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000145b4 28 07                    |(       |		MOVE.L	D7,D4
000145b6 76 06                    |v       |		MOVEQ.L	#0x06,D3
000145b8 4e b9 00 01 07 ea        |N       |		JSR	_?muls_d3_d4
000145be 41 fa fe 5a              |A  Z    |		LEA.L	0x1441a,A0
000145c2 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000145c4 22 4f                    |"O      |		MOVEA.L	A7,A1
000145c6 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
000145ca 70 05                    |p       |		MOVEQ.L	#0x05,D0
000145cc 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000145ce 51 c8 ff fc              |Q       |		DBF	D0,0x145cc
000145d2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000145d4 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000145d8 3f 02                    |?       |		MOVE.W	D2,-(A7)
000145da 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
000145de 4e 94                    |N       |		JSR	(A4)
000145e0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000145e2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000145e6 20 07                    |        |		MOVE.L	D7,D0
000145e8 e3 80                    |        |		ASL.L	#0x1,D0
000145ea 42 81                    |B       |		CLR.L	D1
000145ec 32 30 08 00              |20      |		MOVE.W	(A0+D0.L),D1
000145f0 2f 01                    |/       |		MOVE.L	D1,-(A7)
000145f2 48 78 00 04              |Hx      |		PEA.L	0x4
000145f6 4e b9 00 01 11 b4        |N       |		JSR	_Long2HexString(val : Long; ndig : Long) : String
000145fc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000145fe 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00014604 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014606 4e b9 00 01 53 84        |N   S   |		JSR	_WriteConsoleString(str : String)
0001460c de fc 00 0a              |        |		ADDA.W	#0xa,A7
00014610 52 87                    |R       |		ADDQ.L	#0x1,D7
00014612 0c 87 00 00 00 07        |        |		CMPI.L	#0x00000007,D7
00014618 6f 9a                    |o       |		BLE	0x145b4
0001461a 4e b9 00 01 53 fc        |N   S   |		JSR	_WriteConsoleCrLf(void)
00014620 4a 39 00 02 00 f0        |J9      |		TST.B	is_open_ERROR_LOG
00014626 67 00 01 02              |g       |		BEQ	0x1472a
0001462a 1d 6e 00 0c fb 78        | n   x  |		MOVE.B	(A6+0xc),(A6-0x488)
00014630 48 6e fb 7a              |Hn z    |		PEA.L	(A6-0x486)
00014634 4e b9 00 01 16 e0        |N       |		JSR	_GetRtc() : TimeStamp
0001463a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001463c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00014640 b0 c2                    |        |		CMPA.W	D2,A0
00014642 67 0c                    |g       |		BEQ	0x14650
00014644 43 ee fb 7e              |C  ~    |		LEA.L	(A6-0x482),A1
00014648 70 79                    |py      |		MOVEQ.L	#0x79,D0
0001464a 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
0001464c 51 c8 ff fc              |Q       |		DBF	D0,0x1464a
00014650 13 c2 00 02 00 f1        |        |		MOVE.B	D2,write_error_ERROR_LOG
00014656 2f 39 00 02 00 ec        |/9      |		MOVE.L	0x200ec,-(A7)
0001465c 42 67                    |Bg      |		CLR.W	-(A7)
0001465e 42 67                    |Bg      |		CLR.W	-(A7)
00014660 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00014664 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00014668 20 4a                    | J      |		MOVEA.L	A2,A0
0001466a 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001466c 48 6e fb 76              |Hn v    |		PEA.L	(A6-0x48a)
00014670 4e b9 00 01 3a d8        |N   :   |		JSR	_ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00014676 de fc 00 14              |        |		ADDA.W	#0x14,A7
0001467a 42 80                    |B       |		CLR.L	D0
0001467c 30 13                    |0       |		MOVE.W	(A3),D0
0001467e 52 80                    |R       |		ADDQ.L	#0x1,D0
00014680 02 80 00 00 07 ff        |        |		ANDI.L	#0x000007ff,D0
00014686 36 80                    |6       |		MOVE.W	D0,(A3)
00014688 b0 52                    | R      |		CMP.W	(A2),D0
0001468a 66 0e                    |f       |		BNE	0x1469a
0001468c 42 80                    |B       |		CLR.L	D0
0001468e 30 12                    |0       |		MOVE.W	(A2),D0
00014690 52 80                    |R       |		ADDQ.L	#0x1,D0
00014692 02 80 00 00 07 ff        |        |		ANDI.L	#0x000007ff,D0
00014698 34 80                    |4       |		MOVE.W	D0,(A2)
0001469a 30 13                    |0       |		MOVE.W	(A3),D0
0001469c b0 6e fc 00              | n      |		CMP.W	(A6-0x400),D0
000146a0 66 12                    |f       |		BNE	0x146b4
000146a2 42 80                    |B       |		CLR.L	D0
000146a4 30 2e fc 00              |0.      |		MOVE.W	(A6-0x400),D0
000146a8 52 80                    |R       |		ADDQ.L	#0x1,D0
000146aa 02 80 00 00 07 ff        |        |		ANDI.L	#0x000007ff,D0
000146b0 3d 40 fc 00              |=@      |		MOVE.W	D0,(A6-0x400)
000146b4 30 13                    |0       |		MOVE.W	(A3),D0
000146b6 e6 48                    | H      |		LSR.W	#0x3,D0
000146b8 52 40                    |R@      |		ADDQ.W	#0x1,D0
000146ba 3c 00                    |<       |		MOVE.W	D0,D6
000146bc 42 80                    |B       |		CLR.L	D0
000146be 10 2e fb fb              | .      |		MOVE.B	(A6-0x405),D0
000146c2 eb 08                    |        |		LSL.B	#0x5,D0
000146c4 ea 08                    |        |		LSR.B	#0x5,D0
000146c6 ed 40                    | @      |		ASL.W	#0x6,D0
000146c8 48 c0                    |H       |		EXTW.L	D0
000146ca 2a 00                    |*       |		MOVE.L	D0,D5
000146cc 2f 39 00 02 00 ec        |/9      |		MOVE.L	0x200ec,-(A7)
000146d2 4d bc 40 00              |M @     |		CHK.W	#0x4000,D6
000146d6 3f 06                    |?       |		MOVE.W	D6,-(A7)
000146d8 0c 85 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D5
000146de 63 02                    |c       |		BLS	0x146e2
000146e0 4e 4f                    |NO      |		TRAP	#15
000146e2 3f 05                    |?       |		MOVE.W	D5,-(A7)
000146e4 3f 3c 00 40              |?< @    |		MOVE.W	#0x40,-(A7)
000146e8 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000146ec 41 ee fb 78              |A  x    |		LEA.L	(A6-0x488),A0
000146f0 2f 08                    |/       |		MOVE.L	A0,-(A7)
000146f2 48 6e fb 76              |Hn v    |		PEA.L	(A6-0x48a)
000146f6 4e b9 00 01 3b aa        |N   ;   |		JSR	_WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
000146fc de fc 00 10              |        |		ADDA.W	#0x10,A7
00014700 2e b9 00 02 00 ec        |.       |		MOVE.L	0x200ec,(A7)
00014706 42 67                    |Bg      |		CLR.W	-(A7)
00014708 42 67                    |Bg      |		CLR.W	-(A7)
0001470a 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
0001470e 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00014712 20 4a                    | J      |		MOVEA.L	A2,A0
00014714 2f 08                    |/       |		MOVE.L	A0,-(A7)
00014716 48 6e fb 76              |Hn v    |		PEA.L	(A6-0x48a)
0001471a 4e b9 00 01 3b aa        |N   ;   |		JSR	_WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00014720 de fc 00 14              |        |		ADDA.W	#0x14,A7
00014724 42 39 00 02 00 f1        |B9      |		CLR.B	write_error_ERROR_LOG
0001472a 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0001472e 4e 5e                    |N^      |		UNLK	A6
00014730 4e 75                    |Nu      |		RTS
00014732 ; --------------------------------------------------------------------------------------
00014732 ; Set_is_open_ERROR_LOG(a : Bool)
00014732 ; Stack:
00014732 ;     A6+0x8      a : Bool
00014732 ; OMSI PASCAL Function
00014732 ;    <LVAR  0x008 1(r)>
00014732 ; --------------------------------------------------------------------------------------
00014732					_Set_is_open_ERROR_LOG(a : Bool):
00014732 4e 56 ff fa              |NV      |		LINK.W	A6,#0xfffa
00014736 bf d5                    |        |		CMPA.L	(A5),A7
00014738 62 06                    |b       |		BHI	0x14740
0001473a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001473e 4e 76                    |Nv      |		TRAPV
00014740 de fc 00 04              |        |		ADDA.W	#0x4,A7
00014744 13 ee 00 08 00 02 00 f0  |        |		MOVE.B	(A6+0x8),is_open_ERROR_LOG
0001474c 4e 5e                    |N^      |		UNLK	A6
0001474e 4e 75                    |Nu      |		RTS
00014750 ; --------------------------------------------------------------------------------------
00014750 ; PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00014750 ; Stack:
00014750 ;     A6+0x12     a : String
00014750 ;     A6+0xe      b : String
00014750 ;     A6+0xc      c : B
00014750 ;     A6+0x8  VAR d : Bool
00014750 ; --------------------------------------------------------------------------------------
00014750					_PushProgram(a : String; b : String; MOD c : B; VAR d : Bool):
00014750 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00014754 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00014758 bf d5                    |        |		CMPA.L	(A5),A7
0001475a 4e 76                    |Nv      |		TRAPV
0001475c 48 e7 00 06              |H       |		MOVEM.L	A6+A5,-(A7)
00014760 23 cf 00 02 00 00        |#       |		MOVE.L	A7,stack.top
00014766 41 fa 00 16              |A       |		LEA.L	0x1477e,A0
0001476a 23 c8 00 02 00 04        |#       |		MOVE.L	A0,0x20004
00014770 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
00014774 2f 2e 00 0e              |/.      |		MOVE.L	(A6+0xe),-(A7)
00014778 4e b9 00 01 4b fe        |N   K   |		JSR	_WriteProgToSwapFile(prog: String; args: String)
0001477e 4c df 60 00              |L `     |		MOVEM.L	(A7)+,A5+A6
00014782 4e b9 00 01 41 84        |N   A   |		JSR	_InitProg(void)
00014788 1f 2e 00 0c              | .      |		MOVE.B	(A6+0xc),-(A7)
0001478c 2f 2e 00 12              |/.      |		MOVE.L	(A6+0x12),-(A7)
00014790 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00014794 4e b9 00 01 4f 5a        |N   OZ  |		JSR	_?FS103bc(MOD a: String; VAR b: Bool) : Bool
0001479a de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001479e 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000147a2 4e 5e                    |N^      |		UNLK	A6
000147a4 4e 75                    |Nu      |		RTS
000147a6 53 57 41 50 2e 4d 32 30  |SWAP.M20|		.TXT	'SWAP.M200.'
000147b0 50 55 53 48 20 64 69 73  |PUSH dis|		.TXT	'PUSH disk error '
000147c0 2e 4d 32 30 30 20        |.M200   |		.TXT	'.M200 '
000147c6 41 62 6f 72              |Abor    |		.TXT	'Abor'
000147ca 74 20 3a 5f              |t :_    |		.TXT	't :_'
000147ce 41 74 74 65 6d 70 74 20  |Attempt |		.TXT	'Attempt to pop with no disk '
000147ea 41 74 74 65 6d 70 74 20  |Attempt |		.TXT	'Attempt to pop from level 0 '
00014806 53 57 41 50 2e 4d 32 30  |SWAP.M20|		.TXT	'SWAP.M200.'
00014810 46 72 6f 6d 5f 20 4f 70  |From_ Op|		.XXX[0x110]
00014818 65 72 61 74 69 6f 6e 20  |eration |
00014820 73 75 63 63 65 73 73 66  |successf|
00014828 75 6c 5f 20 20 20 20 20  |ul_     |
00014830 20 20 20 20 46 69 6c 65  |    File|
00014838 20 73 79 73 74 65 6d 20  | system |
00014840 65 72 72 6f 72 5f 20 20  |error_  |
00014848 20 20 20 20 20 20 20 20  |        |
00014850 20 20 45 78 70 65 72 69  |  Experi|
00014858 6d 65 6e 74 20 65 72 72  |ment err|
00014860 6f 72 5f 20 20 20 20 20  |or_     |
00014868 20 20 20 20 20 20 20 20  |        |
00014870 36 34 20 62 69 74 20 61  |64 bit a|
00014878 72 69 74 68 6d 65 74 69  |rithmeti|
00014880 63 20 65 72 72 6f 72 5f  |c error_|
00014888 20 20 20 20 20 20 54 61  |      Ta|
00014890 70 65 20 73 79 73 74 65  |pe syste|
00014898 6d 20 65 72 72 6f 72 5f  |m error_|
000148a0 20 20 20 20 20 20 20 20  |        |
000148a8 20 20 20 20 50 61 72 61  |    Para|
000148b0 6d 65 74 65 72 20 65 72  |meter er|
000148b8 72 6f 72 5f 20 20 20 20  |ror_    |
000148c0 20 20 20 20 20 20 20 20  |        |
000148c8 20 20 50 72 6f 70 61 67  |  Propag|
000148d0 61 74 65 20 65 72 72 6f  |ate erro|
000148d8 72 5f 20 20 20 20 20 20  |r_      |
000148e0 20 20 20 20 20 20 20 20  |        |
000148e8 52 75 6e 20 74 69 6d 65  |Run time|
000148f0 20 65 72 72 6f 72 5f 20  | error_ |
000148f8 20 20 20 20 20 20 20 20  |        |
00014900 20 20 20 20 20 20 53 70  |      Sp|
00014908 61 72 65 35 20 65 72 72  |are5 err|
00014910 6f 72 5f 20 20 20 20 20  |or_     |
00014918 20 20 20 20 20 20 20 20  |        |
00014920 20 20 20 20              |        |		.XXX[0x4]
00014924 53 70 61 72              |Spar    |		.XXX[0x4]
00014928 65 36 20 65 72 72 6f 72  |e6 error|		.XXX[0x18]
00014930 5f 20 20 20 20 20 20 20  |_       |
00014938 20 20 20 20 20 20 20 20  |        |
00014940 20 20                    |        |		.XXX[0x2]
00014942 53 70 61 72 65 37        |Spare7  |		.XXX[0x6]
00014948 20 65 72 72 6f 72 5f 20  | error_ |		.XXX[0x8]
00014950 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00014960 53 70 61 72 65 38 20 65  |Spare8 e|		.XXX[0x18]
00014968 72 72 6f 72 5f 20 20 20  |rror_   |
00014970 20 20 20 20 20 20 20 20  |        |
00014978 20 20 20 20 20 20        |        |		.XXX[0x6]
0001497e 53 70                    |Sp      |		.XXX[0x2]
00014980 61 72 65 39 20 65 72 72  |are9 err|		.XXX[0x18]
00014988 6f 72 5f 20 20 20 20 20  |or_     |
00014990 20 20 20 20 20 20 20 20  |        |
00014998 20 20 20 20              |        |		.XXX[0x4]
0001499c 53 70 61 72              |Spar    |		.XXX[0x4]
000149a0 65 31 30 20 65 72 72 6f  |e10 erro|		.XXX[0x18]
000149a8 72 5f 20 20 20 20 20 20  |r_      |
000149b0 20 20 20 20 20 20 20 20  |        |
000149b8 20 20                    |        |		.XXX[0x2]
000149ba 4f 74 68 65 72 20        |Other   |		.XXX[0x6]
000149c0 65 72 72 6f 72 5f 20 20  |error_  |		.XXX[0x8]
000149c8 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
000149d8 4f 70 65 72 61 74 69 6f  |Operatio|		.XXX[0x108]
000149e0 6e 20 73 75 63 63 65 73  |n succes|
000149e8 73 66 75 6c 5f 20 20 20  |sful_   |
000149f0 20 20 20 20 20 20 46 69  |      Fi|
000149f8 6c 65 20 73 79 73 74 65  |le syste|
00014a00 6d 20 65 72 72 6f 72 5f  |m error_|
00014a08 20 20 20 20 20 20 20 20  |        |
00014a10 20 20 20 20 45 78 70 65  |    Expe|
00014a18 72 69 6d 65 6e 74 20 65  |riment e|
00014a20 72 72 6f 72 5f 20 20 20  |rror_   |
00014a28 20 20 20 20 20 20 20 20  |        |
00014a30 20 20 36 34 20 62 69 74  |  64 bit|
00014a38 20 61 72 69 74 68 6d 65  | arithme|
00014a40 74 69 63 20 65 72 72 6f  |tic erro|
00014a48 72 5f 20 20 20 20 20 20  |r_      |
00014a50 54 61 70 65 20 73 79 73  |Tape sys|
00014a58 74 65 6d 20 65 72 72 6f  |tem erro|
00014a60 72 5f 20 20 20 20 20 20  |r_      |
00014a68 20 20 20 20 20 20 50 61  |      Pa|
00014a70 72 61 6d 65 74 65 72 20  |rameter |
00014a78 65 72 72 6f 72 5f 20 20  |error_  |
00014a80 20 20 20 20 20 20 20 20  |        |
00014a88 20 20 20 20 50 72 6f 70  |    Prop|
00014a90 61 67 61 74 65 20 65 72  |agate er|
00014a98 72 6f 72 5f 20 20 20 20  |ror_    |
00014aa0 20 20 20 20 20 20 20 20  |        |
00014aa8 20 20 52 75 6e 20 74 69  |  Run ti|
00014ab0 6d 65 20 65 72 72 6f 72  |me error|
00014ab8 5f 20 20 20 20 20 20 20  |_       |
00014ac0 20 20 20 20 20 20 20 20  |        |
00014ac8 53 70 61 72 65 35 20 65  |Spare5 e|
00014ad0 72 72 6f 72 5f 20 20 20  |rror_   |
00014ad8 20 20 20 20 20 20 20 20  |        |
00014ae0 20 20 20 20 20 20        |        |		.XXX[0x6]
00014ae6 53 70                    |Sp      |		.XXX[0x2]
00014ae8 61 72 65 36 20 65 72 72  |are6 err|		.XXX[0x18]
00014af0 6f 72 5f 20 20 20 20 20  |or_     |
00014af8 20 20 20 20 20 20 20 20  |        |
00014b00 20 20 20 20              |        |		.XXX[0x4]
00014b04 53 70 61 72              |Spar    |		.XXX[0x4]
00014b08 65 37 20 65 72 72 6f 72  |e7 error|		.XXX[0x18]
00014b10 5f 20 20 20 20 20 20 20  |_       |
00014b18 20 20 20 20 20 20 20 20  |        |
00014b20 20 20                    |        |		.XXX[0x2]
00014b22 53 70 61 72 65 38        |Spare8  |		.XXX[0x6]
00014b28 20 65 72 72 6f 72 5f 20  | error_ |		.XXX[0x8]
00014b30 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00014b40 53 70 61 72 65 39 20 65  |Spare9 e|		.XXX[0x18]
00014b48 72 72 6f 72 5f 20 20 20  |rror_   |
00014b50 20 20 20 20 20 20 20 20  |        |
00014b58 20 20 20 20 20 20        |        |		.XXX[0x6]
00014b5e 53 70                    |Sp      |		.XXX[0x2]
00014b60 61 72 65 31 30 20 65 72  |are10 er|		.XXX[0x18]
00014b68 72 6f 72 5f 20 20 20 20  |ror_    |
00014b70 20 20 20 20 20 20 20 20  |        |
00014b78 20 20 20 20              |        |		.XXX[0x4]
00014b7c 4f 74 68 65              |Othe    |		.XXX[0x4]
00014b80 72 20 65 72 72 6f 72 5f  |r error_|		.XXX[0x8]
00014b88 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00014b98 20 20                    |        |		.BLANK	20[0x2]
00014b9a ; --------------------------------------------------------------------------------------
00014b9a ; OMSI PASCAL Function
00014b9a ;    <LVAR  0x008 4(r)>
00014b9a ;    <LVAR -0x003 @>
00014b9a ;    <LVAR -0x004 @>
00014b9a ;    <LVAR -0x008 @ 4(r)>
00014b9a ; --------------------------------------------------------------------------------------
00014b9a 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00014b9e bf d5                    |        |		CMPA.L	(A5),A7
00014ba0 62 06                    |b       |		BHI	0x14ba8
00014ba2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00014ba6 4e 76                    |Nv      |		TRAPV
00014ba8 de fc 00 20              |        |		ADDA.W	#0x20,A7
00014bac 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00014bb0 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00014bb4 42 27                    |B'      |		CLR.B	-(A7)
00014bb6 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00014bba 48 78 00 00              |Hx      |		PEA.L	0x0
00014bbe 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00014bc2 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00014bc6 4e b9 00 01 38 a6        |N   8   |		JSR	_OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00014bcc de fc 00 14              |        |		ADDA.W	#0x14,A7
00014bd0 20 6e ff f8              | n      |		MOVEA.L	(A6-0x8),A0
00014bd4 1f 3c 00 13              | <      |		MOVE.B	#0x13,-(A7)
00014bd8 3f 28 00 24              |?( $    |		MOVE.W	(A0+0x24),-(A7)
00014bdc 30 28 00 20              |0(      |		MOVE.W	(A0+0x20),D0
00014be0 48 c0                    |H       |		EXTW.L	D0
00014be2 2f 00                    |/       |		MOVE.L	D0,-(A7)
00014be4 48 78 00 01              |Hx      |		PEA.L	0x1
00014be8 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00014bec 4e b9 00 01 27 b6        |N   '   |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00014bf2 de fc 00 10              |        |		ADDA.W	#0x10,A7
00014bf6 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00014bfa 4e 5e                    |N^      |		UNLK	A6
00014bfc 4e 75                    |Nu      |		RTS
00014bfe ; --------------------------------------------------------------------------------------
00014bfe ; WriteProgToSwapFile(prog: String; args: String)
00014bfe ; Stack:
00014bfe ;     A6+0xc      prog : String
00014bfe ;     A6+0x8      args : String
00014bfe ; OMSI PASCAL Function
00014bfe ;    <LVAR  0x00c 4(rw)>
00014bfe ;    <LVAR  0x008 @ 4(r)>
00014bfe ;    <LVAR -0x006 @ 1(r)>
00014bfe ;    <LVAR -0x00a @ 4(r)>
00014bfe ;    <LVAR -0x00c @>
00014bfe ;    <LVAR -0x010 @ 4(rw)>
00014bfe ; --------------------------------------------------------------------------------------
00014bfe					_WriteProgToSwapFile(prog: String; args: String):
00014bfe 4e 56 ff 9e              |NV      |		LINK.W	A6,#0xff9e
00014c02 bf d5                    |        |		CMPA.L	(A5),A7
00014c04 62 06                    |b       |		BHI	0x14c0c
00014c06 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00014c0a 4e 76                    |Nv      |		TRAPV
00014c0c de fc 00 4e              |   N    |		ADDA.W	#0x4e,A7
00014c10 48 e7 f9 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00014c14 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00014c18 47 f9 00 01 0d dc        |G       |		LEA.L	_StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00014c1e 49 f9 00 01 b0 aa        |I       |		LEA.L	0x1b0aa,A4
00014c24 72 01                    |r       |		MOVEQ.L	#0x01,D1
00014c26 74 10                    |t       |		MOVEQ.L	#0x10,D2
00014c28 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
00014c2a 78 02                    |x       |		MOVEQ.L	#0x02,D4
00014c2c 20 52                    | R      |		MOVEA.L	(A2),A0
00014c2e b0 c1                    |        |		CMPA.W	D1,A0
00014c30 66 0a                    |f       |		BNE	0x14c3c
00014c32 48 52                    |HR      |		PEA.L	(A2)
00014c34 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
00014c3a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00014c3c 20 52                    | R      |		MOVEA.L	(A2),A0
00014c3e 43 f9 00 01 b0 b0        |C       |		LEA.L	0x1b0b0,A1
00014c44 70 7f                    |p       |		MOVEQ.L	#0x7f,D0
00014c46 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00014c48 51 c8 ff fc              |Q       |		DBF	D0,0x14c46
00014c4c 48 52                    |HR      |		PEA.L	(A2)
00014c4e 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00014c54 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00014c56 41 fa fb 58              |A  X    |		LEA.L	0x147b0,A0
00014c5a 70 04                    |p       |		MOVEQ.L	#0x04,D0
00014c5c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00014c5e 51 c8 ff fc              |Q       |		DBF	D0,0x14c5c
00014c62 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00014c64 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00014c68 3f 01                    |?       |		MOVE.W	D1,-(A7)
00014c6a 3f 03                    |?       |		MOVE.W	D3,-(A7)
00014c6c 4e 93                    |N       |		JSR	(A3)
00014c6e 2e 94                    |.       |		MOVE.L	(A4),(A7)
00014c70 4e b9 00 01 10 b0        |N       |		JSR	_Long2String(a : Long) : String
00014c76 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00014c78 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00014c7e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014c80 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00014c84 de c3                    |        |		ADDA.W	D3,A7
00014c86 52 94                    |R       |		ADDQ.L	#0x1,(A4)
00014c88 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00014c8c 1f 01                    |        |		MOVE.B	D1,-(A7)
00014c8e 1f 04                    |        |		MOVE.B	D4,-(A7)
00014c90 48 78 ff 80              |Hx      |		PEA.L	0xffffff80
00014c94 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00014c98 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00014c9c 4e b9 00 01 38 a6        |N   8   |		JSR	_OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00014ca2 de fc 00 14              |        |		ADDA.W	#0x14,A7
00014ca6 20 6e ff f6              | n      |		MOVEA.L	(A6-0xa),A0
00014caa 3e 28 00 24              |>( $    |		MOVE.W	(A0+0x24),D7
00014cae 42 27                    |B'      |		CLR.B	-(A7)
00014cb0 1f 04                    |        |		MOVE.B	D4,-(A7)
00014cb2 48 78 00 01              |Hx      |		PEA.L	0x1
00014cb6 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00014cba 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00014cbe 4e b9 00 01 3c 7c        |N   <|  |		JSR	_CloseFile(a : L; VAR status : B; VAR file : File)
00014cc4 de c2                    |        |		ADDA.W	D2,A7
00014cc6 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00014cca 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00014cd0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00014cd2 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
00014cd6 3f 07                    |?       |		MOVE.W	D7,-(A7)
00014cd8 48 78 00 80              |Hx      |		PEA.L	0x80
00014cdc 2f 3c 00 02 00 00        |/<      |		MOVE.L	#stack.top,-(A7)
00014ce2 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00014ce6 4e b9 00 01 27 b6        |N   '   |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00014cec de c2                    |        |		ADDA.W	D2,A7
00014cee 4a 2e ff fa              |J.      |		TST.B	(A6-0x6)
00014cf2 66 2c                    |f,      |		BNE	0x14d20
00014cf4 9e c2                    |        |		SUBA.W	D2,A7
00014cf6 20 4f                    | O      |		MOVEA.L	A7,A0
00014cf8 43 fa fa b6              |C       |		LEA.L	0x147b0,A1
00014cfc 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00014cfe 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00014d00 51 c8 ff fc              |Q       |		DBF	D0,0x14cfe
00014d04 1f 01                    |        |		MOVE.B	D1,-(A7)
00014d06 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00014d08 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00014d0c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00014d0e 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00014d12 4e 93                    |N       |		JSR	(A3)
00014d14 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014d16 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
00014d1c de fc 00 16              |        |		ADDA.W	#0x16,A7
00014d20 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00014d22 20 4f                    | O      |		MOVEA.L	A7,A0
00014d24 43 fa fa 9a              |C       |		LEA.L	0x147c0,A1
00014d28 70 04                    |p       |		MOVEQ.L	#0x04,D0
00014d2a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00014d2c 51 c8 ff fc              |Q       |		DBF	D0,0x14d2a
00014d30 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00014d32 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00014d36 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00014d38 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00014d3c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00014d3e 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00014d42 4e 93                    |N       |		JSR	(A3)
00014d44 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014d46 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00014d4c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014d4e 2d 5f 00 0c              |-_      |		MOVE.L	(A7)+,(A6+0xc)
00014d52 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00014d54 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
00014d58 4e ba fe 40              |N  @    |		JSR	0x14b9a
00014d5c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00014d5e 4c df 1f 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4
00014d62 4e 5e                    |N^      |		UNLK	A6
00014d64 4e 75                    |Nu      |		RTS
00014d66 ; --------------------------------------------------------------------------------------
00014d66 ; OMSI PASCAL Function
00014d66 ;    <LVAR  0x00c 1(r)>
00014d66 ;    <LVAR  0x008 4(r)>
00014d66 ; --------------------------------------------------------------------------------------
00014d66 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00014d6a bf d5                    |        |		CMPA.L	(A5),A7
00014d6c 62 06                    |b       |		BHI	0x14d74
00014d6e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00014d72 4e 76                    |Nv      |		TRAPV
00014d74 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00014d78 4e b9 00 01 53 fc        |N   S   |		JSR	_WriteConsoleCrLf(void)
00014d7e 2f 3a fa 4a              |/: J    |		MOVE.L	0x147ca,-(A7)
00014d82 2f 3a fa 42              |/: B    |		MOVE.L	0x147c6,-(A7)
00014d86 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00014d88 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00014d8c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00014d90 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00014d94 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00014d9a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00014d9c 1e ae 00 0c              |        |		MOVE.B	(A6+0xc),(A7)
00014da0 4e b9 00 01 50 08        |N   P   |		JSR	_ExpErrMsg(a: Byte) : String
00014da6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00014da8 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00014dae 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014db0 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
00014db6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014db8 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00014dbc 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
00014dc2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00014dc4 4e 5e                    |N^      |		UNLK	A6
00014dc6 4e 75                    |Nu      |		RTS
00014dc8 ; --------------------------------------------------------------------------------------
00014dc8 ; OMSI PASCAL Function
00014dc8 ;    <LVAR  0x010 1(r)>
00014dc8 ;    <LVAR  0x00c 4(r)>
00014dc8 ;    <LVAR  0x008 4(r)>
00014dc8 ; --------------------------------------------------------------------------------------
00014dc8 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
00014dcc bf d5                    |        |		CMPA.L	(A5),A7
00014dce 62 06                    |b       |		BHI	0x14dd6
00014dd0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00014dd4 4e 76                    |Nv      |		TRAPV
00014dd6 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00014dda 1f 2e 00 10              | .      |		MOVE.B	(A6+0x10),-(A7)
00014dde 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00014de2 4e ba ff 82              |N       |		JSR	0x14d66
00014de6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00014de8 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00014dec 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
00014df2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00014df4 4e b9 00 01 53 fc        |N   S   |		JSR	_WriteConsoleCrLf(void)
00014dfa 48 78 00 1d              |Hx      |		PEA.L	0x1d
00014dfe 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
00014e04 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00014e06 4e 5e                    |N^      |		UNLK	A6
00014e08 4e 75                    |Nu      |		RTS
00014e0a ; --------------------------------------------------------------------------------------
00014e0a ; PopProgram(status : Byte; msg : String)
00014e0a ; Stack:
00014e0a ;     A6+0xc      status : Byte
00014e0a ;     A6+0x8      msg : String
00014e0a ; OMSI PASCAL Function
00014e0a ;    <LVAR  0x00c 1(r)>
00014e0a ;    <LVAR  0x008 @ 4(r)>
00014e0a ;    <LVAR -0x002 @>
00014e0a ;    <LVAR -0x004 @ 1(r)>
00014e0a ;    <LVAR -0x008 @ 4(w)>
00014e0a ;    <LVAR -0x00a @>
00014e0a ; --------------------------------------------------------------------------------------
00014e0a					_PopProgram(status : Byte; msg : String):
00014e0a 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
00014e0e bf d5                    |        |		CMPA.L	(A5),A7
00014e10 62 06                    |b       |		BHI	0x14e18
00014e12 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00014e16 4e 76                    |Nv      |		TRAPV
00014e18 de fc 00 52              |   R    |		ADDA.W	#0x52,A7
00014e1c 48 e7 e0 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
00014e20 45 f9 00 01 b0 aa        |E       |		LEA.L	0x1b0aa,A2
00014e26 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
00014e2a 72 01                    |r       |		MOVEQ.L	#0x01,D1
00014e2c 74 1c                    |t       |		MOVEQ.L	#0x1c,D2
00014e2e 4a 39 00 01 b0 a8        |J9      |		TST.B	0x1b0a8
00014e34 67 0e                    |g       |		BEQ	0x14e44
00014e36 48 78 00 16              |Hx      |		PEA.L	0x16
00014e3a 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
00014e40 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00014e42 60 06                    |`       |		BRA	0x14e4a
00014e44 13 c1 00 01 b0 a8        |        |		MOVE.B	D1,0x1b0a8
00014e4a 20 53                    | S      |		MOVEA.L	(A3),A0
00014e4c b0 c1                    |        |		CMPA.W	D1,A0
00014e4e 66 0a                    |f       |		BNE	0x14e5a
00014e50 48 53                    |HS      |		PEA.L	(A3)
00014e52 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
00014e58 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00014e5a 42 27                    |B'      |		CLR.B	-(A7)
00014e5c 4e b9 00 01 47 32        |N   G2  |		JSR	_Set_is_open_ERROR_LOG(a : Bool)
00014e62 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00014e64 20 79 00 02 00 20        | y      |		MOVEA.L	0x20020,A0
00014e6a b0 c1                    |        |		CMPA.W	D1,A0
00014e6c 67 24                    |g$      |		BEQ	0x14e92
00014e6e 2d 79 00 02 00 20 ff f8  |-y      |		MOVE.L	0x20020,(A6-0x8)
00014e76 42 27                    |B'      |		CLR.B	-(A7)
00014e78 1f 01                    |        |		MOVE.B	D1,-(A7)
00014e7a 48 78 00 01              |Hx      |		PEA.L	0x1
00014e7e 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00014e82 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00014e86 4e b9 00 01 3c 7c        |N   <|  |		JSR	_CloseFile(a : L; VAR status : B; VAR file : File)
00014e8c de fc 00 10              |        |		ADDA.W	#0x10,A7
00014e90 60 d2                    |`       |		BRA	0x14e64
00014e92 4a 92                    |J       |		TST.L	(A2)
00014e94 66 5e                    |f^      |		BNE	0x14ef4
00014e96 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00014e9a 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00014e9e 4e b9 00 01 02 00        |N       |		JSR	KC00_GetBootDev(VAR a : Byte; VAR b : Word)
00014ea4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014ea6 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
00014eaa 0c 00 00 02              |        |		CMPI.B	#0x02,D0
00014eae 67 12                    |g       |		BEQ	0x14ec2
00014eb0 9e c2                    |        |		SUBA.W	D2,A7
00014eb2 20 4f                    | O      |		MOVEA.L	A7,A0
00014eb4 43 fa f9 18              |C       |		LEA.L	0x147ce,A1
00014eb8 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
00014eba 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00014ebc 51 c8 ff fc              |Q       |		DBF	D0,0x14eba
00014ec0 60 10                    |`       |		BRA	0x14ed2
00014ec2 9e c2                    |        |		SUBA.W	D2,A7
00014ec4 20 4f                    | O      |		MOVEA.L	A7,A0
00014ec6 43 fa f9 22              |C  "    |		LEA.L	0x147ea,A1
00014eca 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
00014ecc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00014ece 51 c8 ff fc              |Q       |		DBF	D0,0x14ecc
00014ed2 1f 2e 00 0c              | .      |		MOVE.B	(A6+0xc),-(A7)
00014ed6 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00014ed8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00014eda 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00014ede 3f 01                    |?       |		MOVE.W	D1,-(A7)
00014ee0 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
00014ee4 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00014eea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014eec 4e ba fe da              |N       |		JSR	0x14dc8
00014ef0 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00014ef4 53 92                    |S       |		SUBQ.L	#0x1,(A2)
00014ef6 10 2e 00 0c              | .      |		MOVE.B	(A6+0xc),D0
00014efa 0c 00 00 06              |        |		CMPI.B	#0x06,D0
00014efe 67 16                    |g       |		BEQ	0x14f16
00014f00 13 c0 00 01 b0 ae        |        |		MOVE.B	D0,0x1b0ae
00014f06 20 53                    | S      |		MOVEA.L	(A3),A0
00014f08 43 f9 00 01 b1 30        |C    0  |		LEA.L	0x1b130,A1
00014f0e 70 7f                    |p       |		MOVEQ.L	#0x7f,D0
00014f10 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00014f12 51 c8 ff fc              |Q       |		DBF	D0,0x14f10
00014f16 41 fa f8 f8              |A       |		LEA.L	0x14810,A0
00014f1a 70 04                    |p       |		MOVEQ.L	#0x04,D0
00014f1c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00014f1e 51 c8 ff fc              |Q       |		DBF	D0,0x14f1c
00014f22 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00014f24 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00014f28 3f 01                    |?       |		MOVE.W	D1,-(A7)
00014f2a 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00014f2e 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00014f34 2e 92                    |.       |		MOVE.L	(A2),(A7)
00014f36 4e b9 00 01 10 b0        |N       |		JSR	_Long2String(a : Long) : String
00014f3c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00014f3e 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00014f44 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014f46 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00014f48 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00014f4a 2e 8c                    |.       |		MOVE.L	A4,(A7)
00014f4c 4e ba fc 4c              |N  L    |		JSR	0x14b9a
00014f50 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00014f52 4c df 1f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3+A4
00014f56 4e 5e                    |N^      |		UNLK	A6
00014f58 4e 75                    |Nu      |		RTS
00014f5a ; --------------------------------------------------------------------------------------
00014f5a ; ?FS103bc(MOD a: String; VAR b: Bool) : Bool
00014f5a ; Stack:
00014f5a ;     A6+0x10 VAR RETURN : Bool
00014f5a ;     A6+0xc      a : String
00014f5a ;     A6+0x8  VAR b : Bool
00014f5a ; OMSI PASCAL Function
00014f5a ;    <LVAR  0x010 1(r)>
00014f5a ;    <LVAR  0x00c @ 4(r)>
00014f5a ;    <LVAR  0x008 4(r)>
00014f5a ; --------------------------------------------------------------------------------------
00014f5a					_?FS103bc(MOD a: String; VAR b: Bool) : Bool:
00014f5a 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00014f5e bf d5                    |        |		CMPA.L	(A5),A7
00014f60 62 06                    |b       |		BHI	0x14f68
00014f62 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00014f66 4e 76                    |Nv      |		TRAPV
00014f68 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00014f6c 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00014f70 42 39 00 01 b0 a8        |B9      |		CLR.B	0x1b0a8
00014f76 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00014f7a 10 39 00 01 b0 ae        | 9      |		MOVE.B	0x1b0ae,D0
00014f80 48 80                    |H       |		EXTB.W	D0
00014f82 41 bc 00 0e              |A       |		CHK.W	#0xe,D0
00014f86 10 80                    |        |		MOVE.B	D0,(A0)
00014f88 4a 00                    |J       |		TST.B	D0
00014f8a 67 06                    |g       |		BEQ	0x14f92
00014f8c 4a 2e 00 10              |J.      |		TST.B	(A6+0x10)
00014f90 66 0e                    |f       |		BNE	0x14fa0
00014f92 48 6e 00 0c              |Hn      |		PEA.L	(A6+0xc)
00014f96 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00014f9c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00014f9e 60 60                    |``      |		BRA	0x15000
00014fa0 1f 00                    |        |		MOVE.B	D0,-(A7)
00014fa2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00014fa4 4e b9 00 01 50 9a        |N   P   |		JSR	_FSCALL_103c8
00014faa 4e ba fd ba              |N       |		JSR	0x14d66
00014fae 20 4f                    | O      |		MOVEA.L	A7,A0
00014fb0 43 fa f8 5e              |C  ^    |		LEA.L	0x14810,A1
00014fb4 70 04                    |p       |		MOVEQ.L	#0x04,D0
00014fb6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00014fb8 51 c8 ff fc              |Q       |		DBF	D0,0x14fb6
00014fbc 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00014fbe 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00014fc2 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00014fc6 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00014fca 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00014fd0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00014fd2 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
00014fd6 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00014fdc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00014fde 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
00014fe4 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00014fe8 10 2e 00 10              | .      |		MOVE.B	(A6+0x10),D0
00014fec 0c 00 00 02              |        |		CMPI.B	#0x02,D0
00014ff0 66 0e                    |f       |		BNE	0x15000
00014ff2 1f 3c 00 06              | <      |		MOVE.B	#0x06,-(A7)
00014ff6 48 78 00 01              |Hx      |		PEA.L	0x1
00014ffa 4e ba fe 0e              |N       |		JSR	_PopProgram(status : Byte; msg : String)
00014ffe 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00015000 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00015004 4e 5e                    |N^      |		UNLK	A6
00015006 4e 75                    |Nu      |		RTS
00015008 ; --------------------------------------------------------------------------------------
00015008 ; ExpErrMsg(a: Byte) : String
00015008 ; Stack:
00015008 ;     A6+0xa  VAR RETURN : String
00015008 ;     A6+0x8      a : Byte
00015008 ; OMSI PASCAL Function
00015008 ;    <LVAR  0x00a 4(w)>
00015008 ;    <LVAR  0x008 1(r)>
00015008 ; --------------------------------------------------------------------------------------
00015008					_ExpErrMsg(a: Byte) : String:
00015008 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
0001500c bf d5                    |        |		CMPA.L	(A5),A7
0001500e 62 06                    |b       |		BHI	0x15016
00015010 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00015014 4e 76                    |Nv      |		TRAPV
00015016 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
0001501a 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
0001501e 72 1e                    |r       |		MOVEQ.L	#0x1e,D1
00015020 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00015024 48 80                    |H       |		EXTB.W	D0
00015026 c1 c1                    |        |		MULS.W	D1,D0
00015028 41 fa f9 ae              |A       |		LEA.L	0x149d8,A0
0001502c 41 f0 00 1e              |A       |		LEA.L	(A0+D0.W+#0x1e),A0
00015030 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00015032 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00015034 51 c8 ff fc              |Q       |		DBF	D0,0x15032
00015038 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0001503a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0001503e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00015042 3f 01                    |?       |		MOVE.W	D1,-(A7)
00015044 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
0001504a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001504c 2d 5f 00 0a              |-_      |		MOVE.L	(A7)+,(A6+0xa)
00015050 de c1                    |        |		ADDA.W	D1,A7
00015052 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00015056 4e 5e                    |N^      |		UNLK	A6
00015058 4e 75                    |Nu      |		RTS
0001505a ; --------------------------------------------------------------------------------------
0001505a ; GetArgv() : String
0001505a ; Stack:
0001505a ;     A6+0x8  VAR RETURN : String
0001505a ; OMSI PASCAL Function
0001505a ;    <LVAR  0x008 4(w)>
0001505a ;    <LVAR -0x004 @ 4(r)>
0001505a ; --------------------------------------------------------------------------------------
0001505a					_GetArgv() : String:
0001505a 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
0001505e bf d5                    |        |		CMPA.L	(A5),A7
00015060 62 06                    |b       |		BHI	0x15068
00015062 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00015066 4e 76                    |Nv      |		TRAPV
00015068 de fc 00 18              |        |		ADDA.W	#0x18,A7
0001506c 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
00015070 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00015074 48 52                    |HR      |		PEA.L	(A2)
00015076 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
0001507c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001507e 20 52                    | R      |		MOVEA.L	(A2),A0
00015080 43 f9 00 01 b0 b0        |C       |		LEA.L	0x1b0b0,A1
00015086 70 7f                    |p       |		MOVEQ.L	#0x7f,D0
00015088 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0001508a 51 c8 ff fc              |Q       |		DBF	D0,0x15088
0001508e 2d 52 00 08              |-R      |		MOVE.L	(A2),(A6+0x8)
00015092 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
00015096 4e 5e                    |N^      |		UNLK	A6
00015098 4e 75                    |Nu      |		RTS
0001509a ; --------------------------------------------------------------------------------------
0001509a ; FSCALL_103c8
0001509a ; OMSI PASCAL Function
0001509a ;    <LVAR  0x008 4(w)>
0001509a ;    <LVAR -0x004 @ 4(r)>
0001509a ; --------------------------------------------------------------------------------------
0001509a					_FSCALL_103c8:
0001509a 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
0001509e bf d5                    |        |		CMPA.L	(A5),A7
000150a0 62 06                    |b       |		BHI	0x150a8
000150a2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000150a6 4e 76                    |Nv      |		TRAPV
000150a8 de fc 00 18              |        |		ADDA.W	#0x18,A7
000150ac 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
000150b0 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
000150b4 48 52                    |HR      |		PEA.L	(A2)
000150b6 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
000150bc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000150be 20 52                    | R      |		MOVEA.L	(A2),A0
000150c0 43 f9 00 01 b1 30        |C    0  |		LEA.L	0x1b130,A1
000150c6 70 7f                    |p       |		MOVEQ.L	#0x7f,D0
000150c8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000150ca 51 c8 ff fc              |Q       |		DBF	D0,0x150c8
000150ce 2d 52 00 08              |-R      |		MOVE.L	(A2),(A6+0x8)
000150d2 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
000150d6 4e 5e                    |N^      |		UNLK	A6
000150d8 4e 75                    |Nu      |		RTS
000150da ; --------------------------------------------------------------------------------------
000150da ; GetPushLevel() : Long
000150da ; Stack:
000150da ;     A6+0x8  VAR RETURN : Long
000150da ; OMSI PASCAL Function
000150da ;    <LVAR  0x008 4(w)>
000150da ; --------------------------------------------------------------------------------------
000150da					_GetPushLevel() : Long:
000150da 4e 56 ff fc              |NV      |		LINK.W	A6,#0xfffc
000150de bf d5                    |        |		CMPA.L	(A5),A7
000150e0 62 06                    |b       |		BHI	0x150e8
000150e2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000150e6 4e 76                    |Nv      |		TRAPV
000150e8 de fc 00 04              |        |		ADDA.W	#0x4,A7
000150ec 2d 79 00 01 b0 aa 00 08  |-y      |		MOVE.L	0x1b0aa,(A6+0x8)
000150f4 4e 5e                    |N^      |		UNLK	A6
000150f6 4e 75                    |Nu      |		RTS
000150f8 46 49                    |FI      |		.TXT	'FI'
000150fa 58 50                    |XP      |		.TXT	'XP'
000150fc 41 44                    |AD      |		.TXT	'AD'
000150fe 46 49 58 4d              |FIXM    |		.TXT	'FIXM'
00015102 4f 44 45 4d              |ODEM    |		.TXT	'ODEM'
00015106 43 6f 6e 73 6f 6c 65 20  |Console |		.TXT	'Console interrupt '
00015118 49 6e 70 75 74 20 73 74  |Input st|		.TXT	'Input string too long!'
0001512e 49 6e 74 65 67 65 72 20  |Integer |		.TXT	'Integer input expected, bad syntax, or too big. '
0001515e 49 6e 74 65 67 65 72 20  |Integer |		.TXT	'Integer input expected, in range ['
00015180 2e 2e                    |..      |		.TXT	'..'
00015182 5d 20                    |]       |		.TXT	'] '
00015184 45 78 70 65 63 74 65 64  |Expected|		.TXT	'Expected 'Y' or 'N'!'
00015198 20 5b 4e 5d 20 3f 5f 20  | [N] ?_ |		.XXX[0x10]
000151a0 20 20 20 5b 59 5d 20 3f  |   [Y] ?|
000151a8 5f 20 20 20              |_       |		.XXX[0x4]
000151ac 45 6e 61 62 6c 65 20 6c  |Enable l|		.TXT	'Enable line printer for console output'
000151d2 45 6e 74 65 72 20 70 72  |Enter pr|		.TXT	'Enter printer line number :_'
000151ee 20 5b                    | [      |		.XXX[0x2]
000151f0 4e 5d 20 3f 5f 20 20 20  |N] ?_   |		.XXX[0x10]
000151f8 20 5b 59 5d 20 3f 5f 20  | [Y] ?_ |
00015200 20 20                    |        |		.XXX[0x2]
00015202 ; --------------------------------------------------------------------------------------
00015202 ; WriteConsoleChar(chr : char)
00015202 ; Stack:
00015202 ;     A6+0x8      chr : char
00015202 ; OMSI PASCAL Function
00015202 ;    <LVAR  0x008 1(r)>
00015202 ; --------------------------------------------------------------------------------------
00015202					_WriteConsoleChar(chr : char):
00015202 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00015206 bf d5                    |        |		CMPA.L	(A5),A7
00015208 62 06                    |b       |		BHI	0x15210
0001520a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001520e 4e 76                    |Nv      |		TRAPV
00015210 de fc 00 12              |        |		ADDA.W	#0x12,A7
00015214 48 e7 c0 00              |H       |		MOVEM.L	D1+D0,-(A7)
00015218 22 3c 00 00 ff ff        |"<      |		MOVE.L	#0xffff,D1
0001521e 20 39 00 01 b1 b8        | 9      |		MOVE.L	0x1b1b8,D0
00015224 b0 81                    |        |		CMP.L	D1,D0
00015226 63 02                    |c       |		BLS	0x1522a
00015228 4e 4f                    |NO      |		TRAP	#15
0001522a 3f 00                    |?       |		MOVE.W	D0,-(A7)
0001522c 42 80                    |B       |		CLR.L	D0
0001522e 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00015232 3f 00                    |?       |		MOVE.W	D0,-(A7)
00015234 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
0001523a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001523c 4a 39 00 01 b1 bc        |J9      |		TST.B	0x1b1bc
00015242 67 2c                    |g,      |		BEQ	0x15270
00015244 30 39 00 01 b1 be        |09      |		MOVE.W	0x1b1be,D0
0001524a b0 41                    | A      |		CMP.W	D1,D0
0001524c 63 02                    |c       |		BLS	0x15250
0001524e 4e 4f                    |NO      |		TRAP	#15
00015250 3f 00                    |?       |		MOVE.W	D0,-(A7)
00015252 30 39 00 01 b1 c0        |09      |		MOVE.W	0x1b1c0,D0
00015258 b0 41                    | A      |		CMP.W	D1,D0
0001525a 63 02                    |c       |		BLS	0x1525e
0001525c 4e 4f                    |NO      |		TRAP	#15
0001525e 3f 00                    |?       |		MOVE.W	D0,-(A7)
00015260 42 80                    |B       |		CLR.L	D0
00015262 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00015266 3f 00                    |?       |		MOVE.W	D0,-(A7)
00015268 4e b9 00 01 02 18        |N       |		JSR	KC0c_Write_Modem_Char(a, b: Word ; c : char)
0001526e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00015270 4c df 00 03              |L       |		MOVEM.L	(A7)+,D0+D1
00015274 4e 5e                    |N^      |		UNLK	A6
00015276 4e 75                    |Nu      |		RTS
00015278 ; --------------------------------------------------------------------------------------
00015278 ; ReadChar() : Byte
00015278 ; Stack:
00015278 ;     A6+0x8  VAR RETURN : Byte
00015278 ; OMSI PASCAL Function
00015278 ;    <LVAR  0x008 1(w)>
00015278 ;    <LVAR -0x001 @>
00015278 ;    <LVAR -0x002 @ 1(r)>
00015278 ;    <LVAR -0x004 @ 2(r)>
00015278 ; --------------------------------------------------------------------------------------
00015278					_ReadChar() : Byte:
00015278 4e 56 ff c2              |NV      |		LINK.W	A6,#0xffc2
0001527c bf d5                    |        |		CMPA.L	(A5),A7
0001527e 62 06                    |b       |		BHI	0x15286
00015280 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00015284 4e 76                    |Nv      |		TRAPV
00015286 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
0001528a 48 e7 f0 c0              |H       |		MOVEM.L	A1+A0+D3+D2+D1+D0,-(A7)
0001528e 41 f9 00 01 b1 b8        |A       |		LEA.L	0x1b1b8,A0
00015294 43 ee ff fe              |C       |		LEA.L	(A6-0x2),A1
00015298 74 01                    |t       |		MOVEQ.L	#0x01,D2
0001529a 26 3c 00 00 ff ff        |&<      |		MOVE.L	#0xffff,D3
000152a0 20 10                    |        |		MOVE.L	(A0),D0
000152a2 0c 80 00 00 00 03        |        |		CMPI.L	#0x00000003,D0
000152a8 67 0a                    |g       |		BEQ	0x152b4
000152aa b0 83                    |        |		CMP.L	D3,D0
000152ac 63 02                    |c       |		BLS	0x152b0
000152ae 4e 4f                    |NO      |		TRAP	#15
000152b0 60 00 00 b0              |`       |		BRA	0x15362
000152b4 20 10                    |        |		MOVE.L	(A0),D0
000152b6 b0 83                    |        |		CMP.L	D3,D0
000152b8 63 02                    |c       |		BLS	0x152bc
000152ba 4e 4f                    |NO      |		TRAP	#15
000152bc 3f 00                    |?       |		MOVE.W	D0,-(A7)
000152be 48 51                    |HQ      |		PEA.L	(A1)
000152c0 4e b9 00 01 02 12        |N       |		JSR	KC09_PortStatus(Port : Word; VAR b: Byte)
000152c6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000152c8 4a 11                    |J       |		TST.B	(A1)
000152ca 67 e8                    |g       |		BEQ	0x152b4
000152cc 10 11                    |        |		MOVE.B	(A1),D0
000152ce b0 02                    |        |		CMP.B	D2,D0
000152d0 67 00 00 82              |g       |		BEQ	0x15354
000152d4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000152d6 48 78 01 80              |Hx      |		PEA.L	0x180
000152da 4e b9 00 01 a9 5c        |N    \  |		JSR	_ReadConfig(where : Long) : Word
000152e0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000152e2 12 2f 00 01              | /      |		MOVE.B	(A7+0x1),D1
000152e6 0c 01 00 58              |   X    |		CMPI.B	#0x58,D1
000152ea 66 36                    |f6      |		BNE	0x15322
000152ec 3f 3a fe 0e              |?:      |		MOVE.W	0x150fc,-(A7)
000152f0 3f 3a fe 08              |?:      |		MOVE.W	0x150fa,-(A7)
000152f4 3f 3a fe 02              |?:      |		MOVE.W	0x150f8,-(A7)
000152f8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000152fa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000152fe 3f 02                    |?       |		MOVE.W	D2,-(A7)
00015300 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00015304 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
0001530a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001530c 48 78 00 01              |Hx      |		PEA.L	0x1
00015310 42 27                    |B'      |		CLR.B	-(A7)
00015312 48 6e ff ff              |Hn      |		PEA.L	(A6-0x1)
00015316 4e b9 00 01 47 50        |N   GP  |		JSR	_PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
0001531c de fc 00 14              |        |		ADDA.W	#0x14,A7
00015320 60 30                    |`0      |		BRA	0x15352
00015322 2f 3a fd de              |/:      |		MOVE.L	0x15102,-(A7)
00015326 2f 3a fd d6              |/:      |		MOVE.L	0x150fe,-(A7)
0001532a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0001532c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00015330 3f 02                    |?       |		MOVE.W	D2,-(A7)
00015332 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00015336 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
0001533c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001533e 48 78 00 01              |Hx      |		PEA.L	0x1
00015342 42 27                    |B'      |		CLR.B	-(A7)
00015344 48 6e ff ff              |Hn      |		PEA.L	(A6-0x1)
00015348 4e b9 00 01 47 50        |N   GP  |		JSR	_PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
0001534e de fc 00 16              |        |		ADDA.W	#0x16,A7
00015352 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00015354 b0 02                    |        |		CMP.B	D2,D0
00015356 66 00 ff 5c              |f  \    |		BNE	0x152b4
0001535a 20 10                    |        |		MOVE.L	(A0),D0
0001535c b0 83                    |        |		CMP.L	D3,D0
0001535e 63 02                    |c       |		BLS	0x15362
00015360 4e 4f                    |NO      |		TRAP	#15
00015362 3f 00                    |?       |		MOVE.W	D0,-(A7)
00015364 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00015368 4e b9 00 01 02 0e        |N       |		JSR	KC07_PortGetChar(port : Word ; VAR ret : Word)
0001536e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00015370 30 2e ff fc              |0.      |		MOVE.W	(A6-0x4),D0
00015374 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
00015378 1d 40 00 08              | @      |		MOVE.B	D0,(A6+0x8)
0001537c 4c df 03 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1
00015380 4e 5e                    |N^      |		UNLK	A6
00015382 4e 75                    |Nu      |		RTS
00015384 ; --------------------------------------------------------------------------------------
00015384 ; WriteConsoleString(str : String)
00015384 ; Stack:
00015384 ;     A6+0x8      str : String
00015384 ; OMSI PASCAL Function
00015384 ;    <LVAR  0x008 @ 4(r)>
00015384 ; --------------------------------------------------------------------------------------
00015384					_WriteConsoleString(str : String):
00015384 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00015388 bf d5                    |        |		CMPA.L	(A5),A7
0001538a 62 06                    |b       |		BHI	0x15392
0001538c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00015390 4e 76                    |Nv      |		TRAPV
00015392 de fc 00 18              |        |		ADDA.W	#0x18,A7
00015396 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
0001539a 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
0001539e 22 3c 00 00 ff ff        |"<      |		MOVE.L	#0xffff,D1
000153a4 20 39 00 01 b1 b8        | 9      |		MOVE.L	0x1b1b8,D0
000153aa b0 81                    |        |		CMP.L	D1,D0
000153ac 63 02                    |c       |		BLS	0x153b0
000153ae 4e 4f                    |NO      |		TRAP	#15
000153b0 3f 00                    |?       |		MOVE.W	D0,-(A7)
000153b2 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000153b4 4e b9 00 01 02 0a        |N       |		JSR	KC05_Write_Console_String(port : Word ; str : String)
000153ba 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000153bc 4a 39 00 01 b1 bc        |J9      |		TST.B	0x1b1bc
000153c2 67 26                    |g&      |		BEQ	0x153ea
000153c4 30 39 00 01 b1 be        |09      |		MOVE.W	0x1b1be,D0
000153ca b0 41                    | A      |		CMP.W	D1,D0
000153cc 63 02                    |c       |		BLS	0x153d0
000153ce 4e 4f                    |NO      |		TRAP	#15
000153d0 3f 00                    |?       |		MOVE.W	D0,-(A7)
000153d2 30 39 00 01 b1 c0        |09      |		MOVE.W	0x1b1c0,D0
000153d8 b0 41                    | A      |		CMP.W	D1,D0
000153da 63 02                    |c       |		BLS	0x153de
000153dc 4e 4f                    |NO      |		TRAP	#15
000153de 3f 00                    |?       |		MOVE.W	D0,-(A7)
000153e0 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000153e2 4e b9 00 01 02 1a        |N       |		JSR	KC0d_Write_Modem_String(Word, Word, Char)
000153e8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000153ea 48 50                    |HP      |		PEA.L	(A0)
000153ec 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
000153f2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000153f4 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
000153f8 4e 5e                    |N^      |		UNLK	A6
000153fa 4e 75                    |Nu      |		RTS
000153fc ; --------------------------------------------------------------------------------------
000153fc ; WriteConsoleCrLf(void)
000153fc ; Stack:
000153fc ; OMSI PASCAL Function
000153fc ; --------------------------------------------------------------------------------------
000153fc					_WriteConsoleCrLf(void):
000153fc 4e 56 ff da              |NV      |		LINK.W	A6,#0xffda
00015400 bf d5                    |        |		CMPA.L	(A5),A7
00015402 62 06                    |b       |		BHI	0x1540a
00015404 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00015408 4e 76                    |Nv      |		TRAPV
0001540a de fc 00 26              |   &    |		ADDA.W	#0x26,A7
0001540e 48 e7 f0 e0              |H       |		MOVEM.L	A2+A1+A0+D3+D2+D1+D0,-(A7)
00015412 41 f9 00 01 b1 b8        |A       |		LEA.L	0x1b1b8,A0
00015418 43 f9 00 01 b1 be        |C       |		LEA.L	0x1b1be,A1
0001541e 45 f9 00 01 b1 c0        |E       |		LEA.L	0x1b1c0,A2
00015424 22 3c 00 00 ff ff        |"<      |		MOVE.L	#0xffff,D1
0001542a 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
0001542c 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
0001542e 20 10                    |        |		MOVE.L	(A0),D0
00015430 b0 81                    |        |		CMP.L	D1,D0
00015432 63 02                    |c       |		BLS	0x15436
00015434 4e 4f                    |NO      |		TRAP	#15
00015436 3f 00                    |?       |		MOVE.W	D0,-(A7)
00015438 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001543a 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00015440 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015442 20 10                    |        |		MOVE.L	(A0),D0
00015444 b0 81                    |        |		CMP.L	D1,D0
00015446 63 02                    |c       |		BLS	0x1544a
00015448 4e 4f                    |NO      |		TRAP	#15
0001544a 3f 00                    |?       |		MOVE.W	D0,-(A7)
0001544c 3f 03                    |?       |		MOVE.W	D3,-(A7)
0001544e 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00015454 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015456 4a 39 00 01 b1 bc        |J9      |		TST.B	0x1b1bc
0001545c 67 3c                    |g<      |		BEQ	0x1549a
0001545e 30 11                    |0       |		MOVE.W	(A1),D0
00015460 b0 41                    | A      |		CMP.W	D1,D0
00015462 63 02                    |c       |		BLS	0x15466
00015464 4e 4f                    |NO      |		TRAP	#15
00015466 3f 00                    |?       |		MOVE.W	D0,-(A7)
00015468 30 12                    |0       |		MOVE.W	(A2),D0
0001546a b0 41                    | A      |		CMP.W	D1,D0
0001546c 63 02                    |c       |		BLS	0x15470
0001546e 4e 4f                    |NO      |		TRAP	#15
00015470 3f 00                    |?       |		MOVE.W	D0,-(A7)
00015472 3f 02                    |?       |		MOVE.W	D2,-(A7)
00015474 4e b9 00 01 02 18        |N       |		JSR	KC0c_Write_Modem_Char(a, b: Word ; c : char)
0001547a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001547c 30 11                    |0       |		MOVE.W	(A1),D0
0001547e b0 41                    | A      |		CMP.W	D1,D0
00015480 63 02                    |c       |		BLS	0x15484
00015482 4e 4f                    |NO      |		TRAP	#15
00015484 3f 00                    |?       |		MOVE.W	D0,-(A7)
00015486 30 12                    |0       |		MOVE.W	(A2),D0
00015488 b0 41                    | A      |		CMP.W	D1,D0
0001548a 63 02                    |c       |		BLS	0x1548e
0001548c 4e 4f                    |NO      |		TRAP	#15
0001548e 3f 00                    |?       |		MOVE.W	D0,-(A7)
00015490 3f 03                    |?       |		MOVE.W	D3,-(A7)
00015492 4e b9 00 01 02 18        |N       |		JSR	KC0c_Write_Modem_Char(a, b: Word ; c : char)
00015498 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001549a 4c df 07 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2
0001549e 4e 5e                    |N^      |		UNLK	A6
000154a0 4e 75                    |Nu      |		RTS
000154a2 ; --------------------------------------------------------------------------------------
000154a2 ; WriteConsoleStringCrLf(str : String)
000154a2 ; Stack:
000154a2 ;     A6+0x8      str : String
000154a2 ; OMSI PASCAL Function
000154a2 ;    <LVAR  0x008 4(r)>
000154a2 ; --------------------------------------------------------------------------------------
000154a2					_WriteConsoleStringCrLf(str : String):
000154a2 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2
000154a6 bf d5                    |        |		CMPA.L	(A5),A7
000154a8 62 06                    |b       |		BHI	0x154b0
000154aa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000154ae 4e 76                    |Nv      |		TRAPV
000154b0 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000154b4 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
000154b8 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
000154bc 2f 10                    |/       |		MOVE.L	(A0),-(A7)
000154be 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
000154c2 4e b9 00 01 0d a6        |N       |		JSR	_AppendChar(MOD b : String; a : char)
000154c8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000154ca 2e 90                    |.       |		MOVE.L	(A0),(A7)
000154cc 1f 3c 00 0a              | <      |		MOVE.B	#0x0a,-(A7)
000154d0 4e b9 00 01 0d a6        |N       |		JSR	_AppendChar(MOD b : String; a : char)
000154d6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000154d8 2e 90                    |.       |		MOVE.L	(A0),(A7)
000154da 4e ba fe a8              |N       |		JSR	_WriteConsoleString(str : String)
000154de 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000154e0 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
000154e4 4e 5e                    |N^      |		UNLK	A6
000154e6 4e 75                    |Nu      |		RTS
000154e8 ; --------------------------------------------------------------------------------------
000154e8 ; OMSI PASCAL Function
000154e8 ;    <LVAR  0x008 4(r)>
000154e8 ; --------------------------------------------------------------------------------------
000154e8 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
000154ec bf d5                    |        |		CMPA.L	(A5),A7
000154ee 62 06                    |b       |		BHI	0x154f6
000154f0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000154f4 4e 76                    |Nv      |		TRAPV
000154f6 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
000154fa 48 e7 f3 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7)
000154fe 43 f9 00 01 b1 b8        |C       |		LEA.L	0x1b1b8,A1
00015504 45 f9 00 01 02 0c        |E       |		LEA.L	KC06_PortPutChar(port : Word ; b : char),A2
0001550a 22 3c 00 00 ff ff        |"<      |		MOVE.L	#0xffff,D1
00015510 74 20                    |t       |		MOVEQ.L	#0x20,D2
00015512 76 08                    |v       |		MOVEQ.L	#0x08,D3
00015514 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00015518 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001551a 4a 50                    |JP      |		TST.W	(A0)
0001551c 66 14                    |f       |		BNE	0x15532
0001551e 20 11                    |        |		MOVE.L	(A1),D0
00015520 b0 81                    |        |		CMP.L	D1,D0
00015522 63 02                    |c       |		BLS	0x15526
00015524 4e 4f                    |NO      |		TRAP	#15
00015526 3f 00                    |?       |		MOVE.W	D0,-(A7)
00015528 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
0001552c 4e 92                    |N       |		JSR	(A2)
0001552e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015530 60 76                    |`v      |		BRA	0x155a8
00015532 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00015534 30 10                    |0       |		MOVE.W	(A0),D0
00015536 48 c0                    |H       |		EXTW.L	D0
00015538 53 80                    |S       |		SUBQ.L	#0x1,D0
0001553a 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
00015540 63 02                    |c       |		BLS	0x15544
00015542 4e 4f                    |NO      |		TRAP	#15
00015544 10 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),D0
00015548 b0 02                    |        |		CMP.B	D2,D0
0001554a 64 02                    |d       |		BCC	0x1554e
0001554c 7c 01                    ||       |		MOVEQ.L	#0x01,D6
0001554e 2f 06                    |/       |		MOVE.L	D6,-(A7)
00015550 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00015552 be 97                    |        |		CMP.L	(A7),D7
00015554 6e 34                    |n4      |		BGT	0x1558a
00015556 20 11                    |        |		MOVE.L	(A1),D0
00015558 b0 81                    |        |		CMP.L	D1,D0
0001555a 63 02                    |c       |		BLS	0x1555e
0001555c 4e 4f                    |NO      |		TRAP	#15
0001555e 3f 00                    |?       |		MOVE.W	D0,-(A7)
00015560 3f 03                    |?       |		MOVE.W	D3,-(A7)
00015562 4e 92                    |N       |		JSR	(A2)
00015564 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015566 20 11                    |        |		MOVE.L	(A1),D0
00015568 b0 81                    |        |		CMP.L	D1,D0
0001556a 63 02                    |c       |		BLS	0x1556e
0001556c 4e 4f                    |NO      |		TRAP	#15
0001556e 3f 00                    |?       |		MOVE.W	D0,-(A7)
00015570 3f 02                    |?       |		MOVE.W	D2,-(A7)
00015572 4e 92                    |N       |		JSR	(A2)
00015574 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015576 20 11                    |        |		MOVE.L	(A1),D0
00015578 b0 81                    |        |		CMP.L	D1,D0
0001557a 63 02                    |c       |		BLS	0x1557e
0001557c 4e 4f                    |NO      |		TRAP	#15
0001557e 3f 00                    |?       |		MOVE.W	D0,-(A7)
00015580 3f 03                    |?       |		MOVE.W	D3,-(A7)
00015582 4e 92                    |N       |		JSR	(A2)
00015584 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015586 52 87                    |R       |		ADDQ.L	#0x1,D7
00015588 68 c8                    |h       |		BVC	0x15552
0001558a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001558c 20 57                    | W      |		MOVEA.L	(A7),A0
0001558e 30 10                    |0       |		MOVE.W	(A0),D0
00015590 48 c0                    |H       |		EXTW.L	D0
00015592 53 80                    |S       |		SUBQ.L	#0x1,D0
00015594 04 80 ff ff 80 00        |        |		SUBI.L	#0xffff8000,D0
0001559a b0 81                    |        |		CMP.L	D1,D0
0001559c 63 02                    |c       |		BLS	0x155a0
0001559e 4e 4f                    |NO      |		TRAP	#15
000155a0 06 80 ff ff 80 00        |        |		ADDI.L	#0xffff8000,D0
000155a6 30 80                    |0       |		MOVE.W	D0,(A0)
000155a8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000155aa 4c df 07 cf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2
000155ae 4e 5e                    |N^      |		UNLK	A6
000155b0 4e 75                    |Nu      |		RTS
000155b2 ; --------------------------------------------------------------------------------------
000155b2 ; OMSI PASCAL Function
000155b2 ; --------------------------------------------------------------------------------------
000155b2 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
000155b6 bf d5                    |        |		CMPA.L	(A5),A7
000155b8 62 06                    |b       |		BHI	0x155c0
000155ba 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000155be 4e 76                    |Nv      |		TRAPV
000155c0 de fc 00 18              |        |		ADDA.W	#0x18,A7
000155c4 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
000155c8 41 f9 00 01 b1 b8        |A       |		LEA.L	0x1b1b8,A0
000155ce 43 f9 00 01 02 0c        |C       |		LEA.L	KC06_PortPutChar(port : Word ; b : char),A1
000155d4 22 3c 00 00 ff ff        |"<      |		MOVE.L	#0xffff,D1
000155da 20 10                    |        |		MOVE.L	(A0),D0
000155dc b0 81                    |        |		CMP.L	D1,D0
000155de 63 02                    |c       |		BLS	0x155e2
000155e0 4e 4f                    |NO      |		TRAP	#15
000155e2 3f 00                    |?       |		MOVE.W	D0,-(A7)
000155e4 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
000155e8 4e 91                    |N       |		JSR	(A1)
000155ea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000155ec 20 10                    |        |		MOVE.L	(A0),D0
000155ee b0 81                    |        |		CMP.L	D1,D0
000155f0 63 02                    |c       |		BLS	0x155f4
000155f2 4e 4f                    |NO      |		TRAP	#15
000155f4 3f 00                    |?       |		MOVE.W	D0,-(A7)
000155f6 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
000155fa 4e 91                    |N       |		JSR	(A1)
000155fc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000155fe 20 10                    |        |		MOVE.L	(A0),D0
00015600 b0 81                    |        |		CMP.L	D1,D0
00015602 63 02                    |c       |		BLS	0x15606
00015604 4e 4f                    |NO      |		TRAP	#15
00015606 3f 00                    |?       |		MOVE.W	D0,-(A7)
00015608 3f 3c 00 5b              |?< [    |		MOVE.W	#0x5b,-(A7)
0001560c 4e 91                    |N       |		JSR	(A1)
0001560e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015610 20 10                    |        |		MOVE.L	(A0),D0
00015612 b0 81                    |        |		CMP.L	D1,D0
00015614 63 02                    |c       |		BLS	0x15618
00015616 4e 4f                    |NO      |		TRAP	#15
00015618 3f 00                    |?       |		MOVE.W	D0,-(A7)
0001561a 3f 3c 00 30              |?< 0    |		MOVE.W	#0x30,-(A7)
0001561e 4e 91                    |N       |		JSR	(A1)
00015620 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015622 20 10                    |        |		MOVE.L	(A0),D0
00015624 b0 81                    |        |		CMP.L	D1,D0
00015626 63 02                    |c       |		BLS	0x1562a
00015628 4e 4f                    |NO      |		TRAP	#15
0001562a 3f 00                    |?       |		MOVE.W	D0,-(A7)
0001562c 3f 3c 00 4b              |?< K    |		MOVE.W	#0x4b,-(A7)
00015630 4e 91                    |N       |		JSR	(A1)
00015632 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015634 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00015638 4e 5e                    |N^      |		UNLK	A6
0001563a 4e 75                    |Nu      |		RTS
0001563c ; --------------------------------------------------------------------------------------
0001563c ; OMSI PASCAL Function
0001563c ;    <LVAR  0x008 1(rw)>
0001563c ; --------------------------------------------------------------------------------------
0001563c 4e 56 ff ea              |NV      |		LINK.W	A6,#0xffea
00015640 bf d5                    |        |		CMPA.L	(A5),A7
00015642 62 06                    |b       |		BHI	0x1564a
00015644 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00015648 4e 76                    |Nv      |		TRAPV
0001564a de fc 00 14              |        |		ADDA.W	#0x14,A7
0001564e 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00015652 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
00015656 10 10                    |        |		MOVE.B	(A0),D0
00015658 0c 00 00 20              |        |		CMPI.B	#0x20,D0
0001565c 64 18                    |d       |		BCC	0x15676
0001565e 1f 3c 00 5e              | < ^    |		MOVE.B	#0x5e,-(A7)
00015662 4e ba fb 9e              |N       |		JSR	_WriteConsoleChar(chr : char)
00015666 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00015668 42 81                    |B       |		CLR.L	D1
0001566a 12 00                    |        |		MOVE.B	D0,D1
0001566c 06 41 00 40              | A @    |		ADDI.W	#0x0040,D1
00015670 43 bc 00 ff              |C       |		CHK.W	#0xff,D1
00015674 10 81                    |        |		MOVE.B	D1,(A0)
00015676 1f 10                    |        |		MOVE.B	(A0),-(A7)
00015678 4e ba fb 88              |N       |		JSR	_WriteConsoleChar(chr : char)
0001567c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0001567e 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00015682 4e 5e                    |N^      |		UNLK	A6
00015684 4e 75                    |Nu      |		RTS
00015686 ; --------------------------------------------------------------------------------------
00015686 ; AskConsoleString(prompt : String) : String
00015686 ; Stack:
00015686 ;     A6+0xc  VAR RETURN : String
00015686 ;     A6+0x8      prompt : String
00015686 ; OMSI PASCAL Function
00015686 ;    <LVAR  0x00c 4(w)>
00015686 ;    <LVAR  0x008 @ 4(r)>
00015686 ;    <LVAR -0x004 1(rw)>
00015686 ;    <LVAR -0x005 1(rw)>
00015686 ;    <LVAR -0x010 @ 4(r)>
00015686 ; --------------------------------------------------------------------------------------
00015686					_AskConsoleString(prompt : String) : String:
00015686 4e 56 ff 90              |NV      |		LINK.W	A6,#0xff90
0001568a bf d5                    |        |		CMPA.L	(A5),A7
0001568c 62 06                    |b       |		BHI	0x15694
0001568e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00015692 4e 76                    |Nv      |		TRAPV
00015694 de fc 00 60              |   `    |		ADDA.W	#0x60,A7
00015698 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0001569c 45 f9 00 01 b5 c2        |E       |		LEA.L	0x1b5c2,A2
000156a2 47 ee ff f0              |G       |		LEA.L	(A6-0x10),A3
000156a6 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
000156aa 74 01                    |t       |		MOVEQ.L	#0x01,D2
000156ac 76 07                    |v       |		MOVEQ.L	#0x07,D3
000156ae 78 12                    |x       |		MOVEQ.L	#0x12,D4
000156b0 3c 12                    |<       |		MOVE.W	(A2),D6
000156b2 48 53                    |HS      |		PEA.L	(A3)
000156b4 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
000156ba 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000156bc 20 53                    | S      |		MOVEA.L	(A3),A0
000156be 2f 08                    |/       |		MOVE.L	A0,-(A7)
000156c0 42 2e ff fb              |B.      |		CLR.B	(A6-0x5)
000156c4 20 54                    | T      |		MOVEA.L	(A4),A0
000156c6 b0 c2                    |        |		CMPA.W	D2,A0
000156c8 67 12                    |g       |		BEQ	0x156dc
000156ca 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000156cc 2f 08                    |/       |		MOVE.L	A0,-(A7)
000156ce 4e b9 00 01 0e f2        |N       |		JSR	_StringDup(a : String) : String
000156d4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000156d6 4e ba fc ac              |N       |		JSR	_WriteConsoleString(str : String)
000156da 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000156dc 20 53                    | S      |		MOVEA.L	(A3),A0
000156de 42 50                    |BP      |		CLR.W	(A0)
000156e0 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000156e2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000156e4 4e ba fb 92              |N       |		JSR	_ReadChar() : Byte
000156e8 10 1f                    |        |		MOVE.B	(A7)+,D0
000156ea 1d 40 ff fc              | @      |		MOVE.B	D0,(A6-0x4)
000156ee 0c 00 00 08              |        |		CMPI.B	#0x08,D0
000156f2 67 06                    |g       |		BEQ	0x156fa
000156f4 0c 00 00 7f              |        |		CMPI.B	#0x7f,D0
000156f8 66 0c                    |f       |		BNE	0x15706
000156fa 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000156fc 4e ba fd ea              |N       |		JSR	0x154e8
00015700 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015702 60 00 01 00              |`       |		BRA	0x15804
00015706 0c 00 00 15              |        |		CMPI.B	#0x15,D0
0001570a 66 0a                    |f       |		BNE	0x15716
0001570c 4e ba fe a4              |N       |		JSR	0x155b2
00015710 60 ae                    |`       |		BRA	0x156c0
00015712 60 00 00 f0              |`       |		.XXX[0x4]
00015716 b0 04                    |        |		CMP.B	D4,D0
00015718 66 06                    |f       |		BNE	0x15720
0001571a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0001571c 60 00 00 e6              |`       |		BRA	0x15804
00015720 0c 00 00 03              |        |		CMPI.B	#0x03,D0
00015724 66 3e                    |f>      |		BNE	0x15764
00015726 4a 39 00 02 01 08        |J9      |		TST.B	somekindoffsflag
0001572c 66 36                    |f6      |		BNE	0x15764
0001572e 9e c4                    |        |		SUBA.W	D4,A7
00015730 20 4f                    | O      |		MOVEA.L	A7,A0
00015732 43 fa f9 d2              |C       |		LEA.L	0x15106,A1
00015736 70 10                    |p       |		MOVEQ.L	#0x10,D0
00015738 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0001573a 51 c8 ff fc              |Q       |		DBF	D0,0x15738
0001573e 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00015742 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00015744 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00015748 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001574a 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
0001574e 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00015754 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00015756 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
0001575c de fc 00 18              |        |		ADDA.W	#0x18,A7
00015760 60 00 00 a2              |`       |		BRA	0x15804
00015764 0c 00 00 0d              |        |		CMPI.B	#0x0d,D0
00015768 66 08                    |f       |		BNE	0x15772
0001576a 1d 42 ff fb              | B      |		MOVE.B	D2,(A6-0x5)
0001576e 60 00 00 94              |`       |		BRA	0x15804
00015772 0c 00 00 10              |        |		CMPI.B	#0x10,D0
00015776 66 3a                    |f:      |		BNE	0x157b2
00015778 20 53                    | S      |		MOVEA.L	(A3),A0
0001577a 4d 83                    |M       |		CHK.W	D3,D6
0001577c 42 80                    |B       |		CLR.L	D0
0001577e 30 06                    |0       |		MOVE.W	D6,D0
00015780 ef 80                    |        |		ASL.L	#0x7,D0
00015782 43 f9 00 01 b1 b0        |C       |		LEA.L	0x1b1b0,A1
00015788 43 f1 08 12              |C       |		LEA.L	(A1+D0.L+#0x12),A1
0001578c 70 7f                    |p       |		MOVEQ.L	#0x7f,D0
0001578e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00015790 51 c8 ff fc              |Q       |		DBF	D0,0x1578e
00015794 4a 46                    |JF      |		TST.W	D6
00015796 66 04                    |f       |		BNE	0x1579c
00015798 7c 07                    ||       |		MOVEQ.L	#0x07,D6
0001579a 60 12                    |`       |		BRA	0x157ae
0001579c 42 80                    |B       |		CLR.L	D0
0001579e 30 06                    |0       |		MOVE.W	D6,D0
000157a0 53 80                    |S       |		SUBQ.L	#0x1,D0
000157a2 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000157a8 63 02                    |c       |		BLS	0x157ac
000157aa 4e 4f                    |NO      |		TRAP	#15
000157ac 3c 00                    |<       |		MOVE.W	D0,D6
000157ae 60 00 ff 6a              |`  j    |		BRA	0x1571a
000157b2 20 57                    | W      |		MOVEA.L	(A7),A0
000157b4 30 10                    |0       |		MOVE.W	(A0),D0
000157b6 0c 40 00 7e              | @ ~    |		CMPI.W	#0x007e,D0
000157ba 66 30                    |f0      |		BNE	0x157ec
000157bc 4e ba fc 3e              |N  >    |		JSR	_WriteConsoleCrLf(void)
000157c0 41 fa f9 6c              |A  l    |		LEA.L	0x1512e,A0
000157c4 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000157c6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000157c8 51 c8 ff fc              |Q       |		DBF	D0,0x157c6
000157cc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000157ce 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000157d2 3f 02                    |?       |		MOVE.W	D2,-(A7)
000157d4 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
000157d8 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
000157de 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000157e0 4e ba fc c0              |N       |		JSR	_WriteConsoleStringCrLf(str : String)
000157e4 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000157e8 60 00 fe d6              |`       |		BRA	0x156c0
000157ec 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000157ee 1f 2e ff fc              | .      |		MOVE.B	(A6-0x4),-(A7)
000157f2 4e b9 00 01 0d a6        |N       |		JSR	_AppendChar(MOD b : String; a : char)
000157f8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000157fa 1e ae ff fc              |        |		MOVE.B	(A6-0x4),(A7)
000157fe 4e ba fe 3c              |N  <    |		JSR	0x1563c
00015802 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00015804 4a 07                    |J       |		TST.B	D7
00015806 67 46                    |gF      |		BEQ	0x1584e
00015808 4e ba fd a8              |N       |		JSR	0x155b2
0001580c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0001580e 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00015810 4e b9 00 01 0e f2        |N       |		JSR	_StringDup(a : String) : String
00015816 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015818 4e ba fb 6a              |N  j    |		JSR	_WriteConsoleString(str : String)
0001581c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001581e 20 57                    | W      |		MOVEA.L	(A7),A0
00015820 30 10                    |0       |		MOVE.W	(A0),D0
00015822 48 c0                    |H       |		EXTW.L	D0
00015824 2f 00                    |/       |		MOVE.L	D0,-(A7)
00015826 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00015828 ba 97                    |        |		CMP.L	(A7),D5
0001582a 6e 20                    |n       |		BGT	0x1584c
0001582c 20 05                    |        |		MOVE.L	D5,D0
0001582e 53 80                    |S       |		SUBQ.L	#0x1,D0
00015830 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
00015836 63 02                    |c       |		BLS	0x1583a
00015838 4e 4f                    |NO      |		TRAP	#15
0001583a 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
0001583e 1f 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),-(A7)
00015842 4e ba fd f8              |N       |		JSR	0x1563c
00015846 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00015848 52 85                    |R       |		ADDQ.L	#0x1,D5
0001584a 68 dc                    |h       |		BVC	0x15828
0001584c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001584e 4a 2e ff fb              |J.      |		TST.B	(A6-0x5)
00015852 67 00 fe 8c              |g       |		BEQ	0x156e0
00015856 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015858 30 12                    |0       |		MOVE.W	(A2),D0
0001585a b0 43                    | C      |		CMP.W	D3,D0
0001585c 66 04                    |f       |		BNE	0x15862
0001585e 42 52                    |BR      |		CLR.W	(A2)
00015860 60 12                    |`       |		BRA	0x15874
00015862 42 81                    |B       |		CLR.L	D1
00015864 32 00                    |2       |		MOVE.W	D0,D1
00015866 52 81                    |R       |		ADDQ.L	#0x1,D1
00015868 0c 81 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D1
0001586e 63 02                    |c       |		BLS	0x15872
00015870 4e 4f                    |NO      |		TRAP	#15
00015872 34 81                    |4       |		MOVE.W	D1,(A2)
00015874 30 12                    |0       |		MOVE.W	(A2),D0
00015876 41 83                    |A       |		CHK.W	D3,D0
00015878 42 81                    |B       |		CLR.L	D1
0001587a 32 00                    |2       |		MOVE.W	D0,D1
0001587c ef 81                    |        |		ASL.L	#0x7,D1
0001587e 41 f9 00 01 b1 b0        |A       |		LEA.L	0x1b1b0,A0
00015884 22 53                    |"S      |		MOVEA.L	(A3),A1
00015886 41 f0 18 12              |A       |		LEA.L	(A0+D1.L+#0x12),A0
0001588a 70 7f                    |p       |		MOVEQ.L	#0x7f,D0
0001588c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0001588e 51 c8 ff fc              |Q       |		DBF	D0,0x1588c
00015892 20 54                    | T      |		MOVEA.L	(A4),A0
00015894 b0 c2                    |        |		CMPA.W	D2,A0
00015896 67 0a                    |g       |		BEQ	0x158a2
00015898 48 54                    |HT      |		PEA.L	(A4)
0001589a 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
000158a0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000158a2 4e ba fb 58              |N  X    |		JSR	_WriteConsoleCrLf(void)
000158a6 2d 53 00 0c              |-S      |		MOVE.L	(A3),(A6+0xc)
000158aa 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000158ae 4e 5e                    |N^      |		UNLK	A6
000158b0 4e 75                    |Nu      |		RTS
000158b2 ; --------------------------------------------------------------------------------------
000158b2 ; AskOnConsoleInt(prompt: String) : Long
000158b2 ; Stack:
000158b2 ;     A6+0xc  VAR RETURN : Long
000158b2 ;     A6+0x8      prompt : String
000158b2 ; OMSI PASCAL Function
000158b2 ;    <LVAR  0x00c 4(w)>
000158b2 ;    <LVAR  0x008 @ 4(r)>
000158b2 ;    <LVAR -0x004 @ 1(r)>
000158b2 ;    <LVAR -0x008 @ 4(r)>
000158b2 ; --------------------------------------------------------------------------------------
000158b2					_AskOnConsoleInt(prompt: String) : Long:
000158b2 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
000158b6 bf d5                    |        |		CMPA.L	(A5),A7
000158b8 62 06                    |b       |		BHI	0x158c0
000158ba 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000158be 4e 76                    |Nv      |		TRAPV
000158c0 de fc 00 50              |   P    |		ADDA.W	#0x50,A7
000158c4 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
000158c8 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
000158cc 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000158ce 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000158d2 4e b9 00 01 0e f2        |N       |		JSR	_StringDup(a : String) : String
000158d8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000158da 4e ba fd aa              |N       |		JSR	_AskConsoleString(prompt : String) : String
000158de 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000158e0 48 52                    |HR      |		PEA.L	(A2)
000158e2 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000158e6 4e b9 00 01 12 88        |N       |		JSR	_String2Long(src : String; VAR status : Bool; VAR retval : Long)
000158ec de fc 00 0c              |        |		ADDA.W	#0xc,A7
000158f0 4a 12                    |J       |		TST.B	(A2)
000158f2 66 30                    |f0      |		BNE	0x15924
000158f4 9e fc 00 30              |   0    |		SUBA.W	#0x30,A7
000158f8 20 4f                    | O      |		MOVEA.L	A7,A0
000158fa 43 fa f8 32              |C  2    |		LEA.L	0x1512e,A1
000158fe 70 2e                    |p.      |		MOVEQ.L	#0x2e,D0
00015900 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00015902 51 c8 ff fc              |Q       |		DBF	D0,0x15900
00015906 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00015908 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0001590c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00015910 3f 3c 00 2f              |?< /    |		MOVE.W	#0x2f,-(A7)
00015914 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
0001591a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001591c 4e ba fb 84              |N       |		JSR	_WriteConsoleStringCrLf(str : String)
00015920 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00015924 4a 12                    |J       |		TST.B	(A2)
00015926 67 a4                    |g       |		BEQ	0x158cc
00015928 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
0001592c 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00015932 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015934 2d 6e ff f8 00 0c        |-n      |		MOVE.L	(A6-0x8),(A6+0xc)
0001593a 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
0001593e 4e 5e                    |N^      |		UNLK	A6
00015940 4e 75                    |Nu      |		RTS
00015942 ; --------------------------------------------------------------------------------------
00015942 ; AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00015942 ; Stack:
00015942 ;     A6+0x14 VAR RETURN : Long
00015942 ;     A6+0x10     prompt : String
00015942 ;     A6+0xc      low : Long
00015942 ;     A6+0x8      High : Long
00015942 ; OMSI PASCAL Function
00015942 ;    <LVAR  0x014 4(w)>
00015942 ;    <LVAR  0x010 @ 4(r)>
00015942 ;    <LVAR  0x00c 4(r)>
00015942 ;    <LVAR  0x008 4(r)>
00015942 ; --------------------------------------------------------------------------------------
00015942					_AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long:
00015942 4e 56 ff 92              |NV      |		LINK.W	A6,#0xff92
00015946 bf d5                    |        |		CMPA.L	(A5),A7
00015948 62 06                    |b       |		BHI	0x15950
0001594a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001594e 4e 76                    |Nv      |		TRAPV
00015950 de fc 00 66              |   f    |		ADDA.W	#0x66,A7
00015954 48 e7 e3 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D2+D1+D0,-(A7)
00015958 43 f9 00 01 0d dc        |C       |		LEA.L	_StringLit(Src : Pointer; Offset: W; Len : W) : String,A1
0001595e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00015960 74 02                    |t       |		MOVEQ.L	#0x02,D2
00015962 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00015964 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00015968 4e b9 00 01 0e f2        |N       |		JSR	_StringDup(a : String) : String
0001596e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015970 4e ba ff 40              |N  @    |		JSR	_AskOnConsoleInt(prompt: String) : Long
00015974 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015976 2e 1f                    |.       |		MOVE.L	(A7)+,D7
00015978 7c 00                    ||       |		MOVEQ.L	#0x00,D6
0001597a be ae 00 0c              |        |		CMP.L	(A6+0xc),D7
0001597e 6d 08                    |m       |		BLT	0x15988
00015980 be ae 00 08              |        |		CMP.L	(A6+0x8),D7
00015984 6e 02                    |n       |		BGT	0x15988
00015986 52 06                    |R       |		ADDQ.B	#0x1,D6
00015988 4a 06                    |J       |		TST.B	D6
0001598a 66 5e                    |f^      |		BNE	0x159ea
0001598c 41 fa f7 f2              |A       |		LEA.L	0x15180,A0
00015990 70 10                    |p       |		MOVEQ.L	#0x10,D0
00015992 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00015994 51 c8 ff fc              |Q       |		DBF	D0,0x15992
00015998 3f 3a f7 e6              |?:      |		MOVE.W	0x15180,-(A7)
0001599c 3f 3a f7 e4              |?:      |		MOVE.W	0x15182,-(A7)
000159a0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000159a2 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000159a6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000159a8 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
000159ac 4e 91                    |N       |		JSR	(A1)
000159ae 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
000159b2 4e b9 00 01 10 b0        |N       |		JSR	_Long2String(a : Long) : String
000159b8 48 6f 00 12              |Ho      |		PEA.L	(A7+0x12)
000159bc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000159be 3f 02                    |?       |		MOVE.W	D2,-(A7)
000159c0 4e 91                    |N       |		JSR	(A1)
000159c2 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
000159c6 4e b9 00 01 10 b0        |N       |		JSR	_Long2String(a : Long) : String
000159cc 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
000159d0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000159d2 3f 02                    |?       |		MOVE.W	D2,-(A7)
000159d4 4e 91                    |N       |		JSR	(A1)
000159d6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000159d8 4e b9 00 01 10 2c        |N    ,  |		JSR	_StringCat5(a, b, c, d, e : String) : String
000159de de fc 00 14              |        |		ADDA.W	#0x14,A7
000159e2 4e ba fa be              |N       |		JSR	_WriteConsoleStringCrLf(str : String)
000159e6 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
000159ea 4a 06                    |J       |		TST.B	D6
000159ec 67 00 ff 74              |g  t    |		BEQ	0x15962
000159f0 48 6e 00 10              |Hn      |		PEA.L	(A6+0x10)
000159f4 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
000159fa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000159fc 2d 47 00 14              |-G      |		MOVE.L	D7,(A6+0x14)
00015a00 4c df 03 c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0+A1
00015a04 4e 5e                    |N^      |		UNLK	A6
00015a06 4e 75                    |Nu      |		RTS
00015a08 ; --------------------------------------------------------------------------------------
00015a08 ; AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00015a08 ; Stack:
00015a08 ;     A6+0xe  VAR RETURN : Bool
00015a08 ;     A6+0xa      prompt : String
00015a08 ;     A6+0x8      default : Bool
00015a08 ; OMSI PASCAL Function
00015a08 ;    <LVAR  0x00e 1(rw)>
00015a08 ;    <LVAR  0x00a @ 4(r)>
00015a08 ;    <LVAR  0x008 1(r)>
00015a08 ;    <LVAR -0x008 @ 4(rw)>
00015a08 ; --------------------------------------------------------------------------------------
00015a08					_AskOnConsoleYesNo(prompt : String; default : Bool) : Bool:
00015a08 4e 56 ff a2              |NV      |		LINK.W	A6,#0xffa2
00015a0c bf d5                    |        |		CMPA.L	(A5),A7
00015a0e 62 06                    |b       |		BHI	0x15a16
00015a10 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00015a14 4e 76                    |Nv      |		TRAPV
00015a16 de fc 00 54              |   T    |		ADDA.W	#0x54,A7
00015a1a 48 e7 f3 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7)
00015a1e 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
00015a22 47 ee 00 0e              |G       |		LEA.L	(A6+0xe),A3
00015a26 74 01                    |t       |		MOVEQ.L	#0x01,D2
00015a28 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
00015a2a 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00015a2e 48 80                    |H       |		EXTB.W	D0
00015a30 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
00015a32 c3 c0                    |        |		MULS.W	D0,D1
00015a34 41 fa f7 b8              |A       |		LEA.L	0x151ee,A0
00015a38 9e c3                    |        |		SUBA.W	D3,A7
00015a3a 22 4f                    |"O      |		MOVEA.L	A7,A1
00015a3c 41 f0 10 00              |A       |		LEA.L	(A0+D1.W),A0
00015a40 72 09                    |r       |		MOVEQ.L	#0x09,D1
00015a42 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00015a44 51 c9 ff fc              |Q       |		DBF	D1,0x15a42
00015a48 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00015a4c 2f 2e 00 0a              |/.      |		MOVE.L	(A6+0xa),-(A7)
00015a50 4e b9 00 01 0e f2        |N       |		JSR	_StringDup(a : String) : String
00015a56 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00015a5a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00015a5c 3f 03                    |?       |		MOVE.W	D3,-(A7)
00015a5e 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00015a64 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00015a66 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00015a6c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00015a6e 4e ba fc 16              |N       |		JSR	_AskConsoleString(prompt : String) : String
00015a72 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015a74 4e b9 00 01 13 b4        |N       |		JSR	_ToUpper(a : String) : String
00015a7a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015a7c 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00015a7e de c3                    |        |		ADDA.W	D3,A7
00015a80 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00015a82 20 52                    | R      |		MOVEA.L	(A2),A0
00015a84 4a 50                    |JP      |		TST.W	(A0)
00015a86 66 04                    |f       |		BNE	0x15a8c
00015a88 16 80                    |        |		MOVE.B	D0,(A3)
00015a8a 60 22                    |`"      |		BRA	0x15aae
00015a8c 30 10                    |0       |		MOVE.W	(A0),D0
00015a8e b0 42                    | B      |		CMP.W	D2,D0
00015a90 67 02                    |g       |		BEQ	0x15a94
00015a92 60 18                    |`       |		BRA	0x15aac
00015a94 1c 28 00 02              | (      |		MOVE.B	(A0+0x2),D6
00015a98 0c 06 00 59              |   Y    |		CMPI.B	#0x59,D6
00015a9c 66 04                    |f       |		BNE	0x15aa2
00015a9e 16 82                    |        |		MOVE.B	D2,(A3)
00015aa0 60 0c                    |`       |		BRA	0x15aae
00015aa2 0c 06 00 4e              |   N    |		CMPI.B	#0x4e,D6
00015aa6 66 04                    |f       |		BNE	0x15aac
00015aa8 42 13                    |B       |		CLR.B	(A3)
00015aaa 60 02                    |`       |		BRA	0x15aae
00015aac 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00015aae 48 52                    |HR      |		PEA.L	(A2)
00015ab0 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00015ab6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015ab8 4a 07                    |J       |		TST.B	D7
00015aba 66 28                    |f(      |		BNE	0x15ae4
00015abc 41 fa f6 da              |A       |		LEA.L	0x15198,A0
00015ac0 70 04                    |p       |		MOVEQ.L	#0x04,D0
00015ac2 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00015ac4 51 c8 ff fc              |Q       |		DBF	D0,0x15ac2
00015ac8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00015aca 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00015ace 3f 02                    |?       |		MOVE.W	D2,-(A7)
00015ad0 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00015ad4 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00015ada 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00015adc 4e ba f9 c4              |N       |		JSR	_WriteConsoleStringCrLf(str : String)
00015ae0 de fc 00 18              |        |		ADDA.W	#0x18,A7
00015ae4 4a 07                    |J       |		TST.B	D7
00015ae6 67 00 ff 42              |g  B    |		BEQ	0x15a2a
00015aea 48 6e 00 0a              |Hn      |		PEA.L	(A6+0xa)
00015aee 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00015af4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015af6 4c df 0f cf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2+A3
00015afa 4e 5e                    |N^      |		UNLK	A6
00015afc 4e 75                    |Nu      |		RTS
00015afe ; --------------------------------------------------------------------------------------
00015afe ; SetConsoleConfig(a : Long)
00015afe ; Stack:
00015afe ;     A6+0x8      a : Long
00015afe ; OMSI PASCAL Function
00015afe ;    <LVAR  0x008 4(r)>
00015afe ; --------------------------------------------------------------------------------------
00015afe					_SetConsoleConfig(a : Long):
00015afe 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00015b02 bf d5                    |        |		CMPA.L	(A5),A7
00015b04 62 06                    |b       |		BHI	0x15b0c
00015b06 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00015b0a 4e 76                    |Nv      |		TRAPV
00015b0c de fc 00 04              |        |		ADDA.W	#0x4,A7
00015b10 23 ee 00 08 00 01 b1 b8  |#       |		MOVE.L	(A6+0x8),0x1b1b8
00015b18 4e 5e                    |N^      |		UNLK	A6
00015b1a 4e 75                    |Nu      |		RTS
00015b1c ; --------------------------------------------------------------------------------------
00015b1c ; GetConsoleConfig() : Long
00015b1c ; Stack:
00015b1c ;     A6+0x8  VAR RETURN : Long
00015b1c ; OMSI PASCAL Function
00015b1c ;    <LVAR  0x008 4(w)>
00015b1c ; --------------------------------------------------------------------------------------
00015b1c					_GetConsoleConfig() : Long:
00015b1c 4e 56 ff fc              |NV      |		LINK.W	A6,#0xfffc
00015b20 bf d5                    |        |		CMPA.L	(A5),A7
00015b22 62 06                    |b       |		BHI	0x15b2a
00015b24 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00015b28 4e 76                    |Nv      |		TRAPV
00015b2a de fc 00 04              |        |		ADDA.W	#0x4,A7
00015b2e 2d 79 00 01 b1 b8 00 08  |-y      |		MOVE.L	0x1b1b8,(A6+0x8)
00015b36 4e 5e                    |N^      |		UNLK	A6
00015b38 4e 75                    |Nu      |		RTS
00015b3a ; --------------------------------------------------------------------------------------
00015b3a ; SetConsolePrinter(a: Byte; b: Word; c: Word)
00015b3a ; Stack:
00015b3a ;     A6+0xc      a : Byte
00015b3a ;     A6+0xa      b : Word
00015b3a ;     A6+0x8      c : Word
00015b3a ; OMSI PASCAL Function
00015b3a ;    <LVAR  0x00c 1(r)>
00015b3a ;    <LVAR  0x00a 2(r)>
00015b3a ;    <LVAR  0x008 2(r)>
00015b3a ; --------------------------------------------------------------------------------------
00015b3a					_SetConsolePrinter(a: Byte; b: Word; c: Word):
00015b3a 4e 56 ff e6              |NV      |		LINK.W	A6,#0xffe6
00015b3e bf d5                    |        |		CMPA.L	(A5),A7
00015b40 62 06                    |b       |		BHI	0x15b48
00015b42 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00015b46 4e 76                    |Nv      |		TRAPV
00015b48 de fc 00 08              |        |		ADDA.W	#0x8,A7
00015b4c 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00015b50 13 ee 00 0c 00 01 b1 bc  |        |		MOVE.B	(A6+0xc),0x1b1bc
00015b58 30 2e 00 0a              |0.      |		MOVE.W	(A6+0xa),D0
00015b5c 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00015b60 33 c0 00 01 b1 be        |3       |		MOVE.W	D0,0x1b1be
00015b66 33 ee 00 08 00 01 b1 c0  |3       |		MOVE.W	(A6+0x8),0x1b1c0
00015b6e 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00015b72 4e 5e                    |N^      |		UNLK	A6
00015b74 4e 75                    |Nu      |		RTS
00015b76 ; --------------------------------------------------------------------------------------
00015b76 ; FSCALL_10400
00015b76 ; OMSI PASCAL Function
00015b76 ;    <LVAR -0x00a @>
00015b76 ;    <LVAR -0x00c @ 1(r)>
00015b76 ; --------------------------------------------------------------------------------------
00015b76					_FSCALL_10400:
00015b76 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00015b7a bf d5                    |        |		CMPA.L	(A5),A7
00015b7c 62 06                    |b       |		BHI	0x15b84
00015b7e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00015b82 4e 76                    |Nv      |		TRAPV
00015b84 de fc 00 58              |   X    |		ADDA.W	#0x58,A7
00015b88 48 e7 f1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
00015b8c 43 f9 00 01 b1 b8        |C       |		LEA.L	0x1b1b8,A1
00015b92 45 f9 00 01 b1 c0        |E       |		LEA.L	0x1b1c0,A2
00015b98 72 01                    |r       |		MOVEQ.L	#0x01,D1
00015b9a 74 26                    |t&      |		MOVEQ.L	#0x26,D2
00015b9c 76 1c                    |v       |		MOVEQ.L	#0x1c,D3
00015b9e 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00015ba2 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00015ba6 4e b9 00 01 02 00        |N       |		JSR	KC00_GetBootDev(VAR a : Byte; VAR b : Word)
00015bac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00015bae 10 2e ff f4              | .      |		MOVE.B	(A6-0xc),D0
00015bb2 0c 00 00 02              |        |		CMPI.B	#0x02,D0
00015bb6 66 10                    |f       |		BNE	0x15bc8
00015bb8 20 11                    |        |		MOVE.L	(A1),D0
00015bba 0c 80 00 00 00 03        |        |		CMPI.L	#0x00000003,D0
00015bc0 67 02                    |g       |		BEQ	0x15bc4
00015bc2 22 81                    |"       |		MOVE.L	D1,(A1)
00015bc4 60 00 00 a2              |`       |		BRA	0x15c68
00015bc8 22 81                    |"       |		MOVE.L	D1,(A1)
00015bca 41 fa f6 06              |A       |		LEA.L	0x151d2,A0
00015bce 70 12                    |p       |		MOVEQ.L	#0x12,D0
00015bd0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00015bd2 51 c8 ff fc              |Q       |		DBF	D0,0x15bd0
00015bd6 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00015bd8 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00015bdc 3f 01                    |?       |		MOVE.W	D1,-(A7)
00015bde 3f 02                    |?       |		MOVE.W	D2,-(A7)
00015be0 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00015be6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00015be8 42 17                    |B       |		CLR.B	(A7)
00015bea 4e ba fe 1c              |N       |		JSR	_AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00015bee 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00015bf0 10 1f                    |        |		MOVE.B	(A7)+,D0
00015bf2 48 80                    |H       |		EXTB.W	D0
00015bf4 41 81                    |A       |		CHK.W	D1,D0
00015bf6 de c2                    |        |		ADDA.W	D2,A7
00015bf8 13 c0 00 01 b1 bc        |        |		MOVE.B	D0,0x1b1bc
00015bfe 4a 00                    |J       |		TST.B	D0
00015c00 67 54                    |gT      |		BEQ	0x15c56
00015c02 41 fa f5 ea              |A       |		LEA.L	0x151ee,A0
00015c06 70 06                    |p       |		MOVEQ.L	#0x06,D0
00015c08 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00015c0a 51 c8 ff fc              |Q       |		DBF	D0,0x15c08
00015c0e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00015c10 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00015c14 3f 01                    |?       |		MOVE.W	D1,-(A7)
00015c16 3f 03                    |?       |		MOVE.W	D3,-(A7)
00015c18 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00015c1e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00015c20 48 78 00 10              |Hx      |		PEA.L	0x10
00015c24 48 78 00 ff              |Hx      |		PEA.L	0xff
00015c28 4e ba fd 18              |N       |		JSR	_AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00015c2c de fc 00 0c              |        |		ADDA.W	#0xc,A7
00015c30 20 1f                    |        |		MOVE.L	(A7)+,D0
00015c32 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00015c38 63 02                    |c       |		BLS	0x15c3c
00015c3a 4e 4f                    |NO      |		TRAP	#15
00015c3c de c3                    |        |		ADDA.W	D3,A7
00015c3e 3e 00                    |>       |		MOVE.W	D0,D7
00015c40 30 07                    |0       |		MOVE.W	D7,D0
00015c42 e8 48                    | H      |		LSR.W	#0x4,D0
00015c44 53 40                    |S@      |		SUBQ.W	#0x1,D0
00015c46 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00015c4a 33 c0 00 01 b1 be        |3       |		MOVE.W	D0,0x1b1be
00015c50 34 87                    |4       |		MOVE.W	D7,(A2)
00015c52 02 52 00 0f              | R      |		ANDI.W	#0x000f,(A2)
00015c56 13 c1 00 02 01 08        |        |		MOVE.B	D1,somekindoffsflag
00015c5c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00015c5e 1f 01                    |        |		MOVE.B	D1,-(A7)
00015c60 4e b9 00 01 02 10        |N       |		JSR	KC08_PortSomething(port: Word; b: Byte)
00015c66 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00015c68 4c df 07 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1+A2
00015c6c 4e 5e                    |N^      |		UNLK	A6
00015c6e 4e 75                    |Nu      |		RTS
00015c70 ; --------------------------------------------------------------------------------------
00015c70 ; SetSomeKindOfFlag(a : Byte)
00015c70 ; Stack:
00015c70 ;     A6+0x8      a : Byte
00015c70 ; OMSI PASCAL Function
00015c70 ;    <LVAR  0x008 1(r)>
00015c70 ; --------------------------------------------------------------------------------------
00015c70					_SetSomeKindOfFlag(a : Byte):
00015c70 4e 56 ff fa              |NV      |		LINK.W	A6,#0xfffa
00015c74 bf d5                    |        |		CMPA.L	(A5),A7
00015c76 62 06                    |b       |		BHI	0x15c7e
00015c78 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00015c7c 4e 76                    |Nv      |		TRAPV
00015c7e de fc 00 04              |        |		ADDA.W	#0x4,A7
00015c82 13 ee 00 08 00 02 01 08  |        |		MOVE.B	(A6+0x8),somekindoffsflag
00015c8a 44 39 00 02 01 08        |D9      |		NEG.B	somekindoffsflag
00015c90 52 39 00 02 01 08        |R9      |		ADDQ.B	#0x1,somekindoffsflag
00015c96 4e 5e                    |N^      |		UNLK	A6
00015c98 4e 75                    |Nu      |		RTS
00015c9a 54 61 70 65 20 6f        |Tape o  |		.XXX[0x6]
00015ca0 70 65 72 61 74 69 6f 6e  |peration|		.XXX[0x30]
00015ca8 20 73 75 63 63 65 73 73  | success|
00015cb0 66 75 6c 20 20 20 20 20  |ful     |
00015cb8 4e 6f 20 73 75 63 68 20  |No such |
00015cc0 75 6e 69 74 20 20 20 20  |unit    |
00015cc8 20 20 20 20 20 20 20 20  |        |
00015cd0 20 20 20 20 20 20        |        |		.XXX[0x6]
00015cd6 55 6e                    |Un      |		.XXX[0x2]
00015cd8 69 74 20 64 6f 65 73 20  |it does |		.XXX[0x90]
00015ce0 6e 6f 74 20 72 65 73 70  |not resp|
00015ce8 6f 6e 64 20 20 20 20 20  |ond     |
00015cf0 20 20 20 20 55 6e 69 74  |    Unit|
00015cf8 20 69 73 20 61 6c 72 65  | is alre|
00015d00 61 64 79 20 6f 70 65 6e  |ady open|
00015d08 20 20 20 20 20 20 20 20  |        |
00015d10 20 20 55 6e 69 74 20 69  |  Unit i|
00015d18 73 20 77 72 69 74 65 20  |s write |
00015d20 6c 6f 63 6b 65 64 20 20  |locked  |
00015d28 20 20 20 20 20 20 20 20  |        |
00015d30 55 6e 69 74 20 69 73 20  |Unit is |
00015d38 6e 6f 74 20 6f 6e 2d 6c  |not on-l|
00015d40 69 6e 65 20 20 20 20 20  |ine     |
00015d48 20 20 20 20 20 20 52 65  |      Re|
00015d50 61 64 20 74 61 70 65 20  |ad tape |
00015d58 6d 61 72 6b 20 20 20 20  |mark    |
00015d60 20 20 20 20 20 20 20 20  |        |
00015d68 20 20 20 20              |        |		.XXX[0x4]
00015d6c 52 65 63 6f              |Reco    |		.XXX[0x4]
00015d70 72 64 20 74 6f 6f 20 73  |rd too s|		.XXX[0x70]
00015d78 68 6f 72 74 20 20 20 20  |hort    |
00015d80 20 20 20 20 20 20 20 20  |        |
00015d88 20 20 52 65 63 6f 72 64  |  Record|
00015d90 20 74 6f 6f 20 6c 6f 6e  | too lon|
00015d98 67 20 20 20 20 20 20 20  |g       |
00015da0 20 20 20 20 20 20 20 20  |        |
00015da8 54 6f 6f 20 6d 61 6e 79  |Too many|
00015db0 20 72 65 74 72 69 65 73  | retries|
00015db8 20 20 20 20 20 20 20 20  |        |
00015dc0 20 20 20 20 20 20 57 72  |      Wr|
00015dc8 6f 6e 67 20 64 65 6e 73  |ong dens|
00015dd0 69 74 79 20 20 20 20 20  |ity     |
00015dd8 20 20 20 20 20 20 20 20  |        |
00015de0 20 20 20 20              |        |		.XXX[0x4]
00015de4 54 61 70 65              |Tape    |		.XXX[0x4]
00015de8 20 65 72 72 6f 72 20 20  | error  |		.XXX[0x8]
00015df0 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00015e00 20 20 48 61 72 64 20 64  |  Hard d|		.XXX[0x38]
00015e08 65 76 69 63 65 20 65 72  |evice er|
00015e10 72 6f 72 20 20 20 20 20  |ror     |
00015e18 20 20 20 20 20 20 20 20  |        |
00015e20 55 6e 69 74 20 6e 6f 74  |Unit not|
00015e28 20 6f 70 65 6e 65 64 20  | opened |
00015e30 20 20 20 20 20 20 20 20  |        |
00015e38 20 20 20 20 20 20        |        |		.XXX[0x6]
00015e3e 2c 20 75 6e 69 74 5f 20  |, unit_ |		.TXT	', unit_ '
00015e46 52 65 61 63 68 65 64 20  |Reached |		.TXT	'Reached EOT, mount next tape and enter unit number ?_ '
00015e7c 00 00 01 01              |        |		.XXX[0x4]
00015e80 01 01 00 00 00 00 00 01  |        |		.XXX[0x50]
00015e88 01 00 00 00 00 00 00 00  |        |
00015e90 00 00 00 00 00 00 00 00  |        |
00015e98 0a 0f 06 08 07 09 12 13  |        |
00015ea0 14 15 16 17 54 61 70 65  |    Tape|
00015ea8 20 6f 70 65 72 61 74 69  | operati|
00015eb0 6f 6e 20 73 75 63 63 65  |on succe|
00015eb8 73 73 66 75 6c 20 20 20  |ssful   |
00015ec0 20 20 4e 6f 20 73 75 63  |  No suc|
00015ec8 68 20 75 6e 69 74 20 20  |h unit  |
00015ed0 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00015ee0 55 6e 69 74 20 64 6f 65  |Unit doe|		.XXX[0x90]
00015ee8 73 20 6e 6f 74 20 72 65  |s not re|
00015ef0 73 70 6f 6e 64 20 20 20  |spond   |
00015ef8 20 20 20 20 20 20 55 6e  |      Un|
00015f00 69 74 20 69 73 20 61 6c  |it is al|
00015f08 72 65 61 64 79 20 6f 70  |ready op|
00015f10 65 6e 20 20 20 20 20 20  |en      |
00015f18 20 20 20 20 55 6e 69 74  |    Unit|
00015f20 20 69 73 20 77 72 69 74  | is writ|
00015f28 65 20 6c 6f 63 6b 65 64  |e locked|
00015f30 20 20 20 20 20 20 20 20  |        |
00015f38 20 20 55 6e 69 74 20 69  |  Unit i|
00015f40 73 20 6e 6f 74 20 6f 6e  |s not on|
00015f48 2d 6c 69 6e 65 20 20 20  |-line   |
00015f50 20 20 20 20 20 20 20 20  |        |
00015f58 52 65 61 64 20 74 61 70  |Read tap|
00015f60 65 20 6d 61 72 6b 20 20  |e mark  |
00015f68 20 20 20 20 20 20 20 20  |        |
00015f70 20 20 20 20 20 20        |        |		.XXX[0x6]
00015f76 52 65                    |Re      |		.XXX[0x2]
00015f78 63 6f 72 64 20 74 6f 6f  |cord too|		.XXX[0x70]
00015f80 20 73 68 6f 72 74 20 20  | short  |
00015f88 20 20 20 20 20 20 20 20  |        |
00015f90 20 20 20 20 52 65 63 6f  |    Reco|
00015f98 72 64 20 74 6f 6f 20 6c  |rd too l|
00015fa0 6f 6e 67 20 20 20 20 20  |ong     |
00015fa8 20 20 20 20 20 20 20 20  |        |
00015fb0 20 20 54 6f 6f 20 6d 61  |  Too ma|
00015fb8 6e 79 20 72 65 74 72 69  |ny retri|
00015fc0 65 73 20 20 20 20 20 20  |es      |
00015fc8 20 20 20 20 20 20 20 20  |        |
00015fd0 57 72 6f 6e 67 20 64 65  |Wrong de|
00015fd8 6e 73 69 74 79 20 20 20  |nsity   |
00015fe0 20 20 20 20 20 20 20 20  |        |
00015fe8 20 20 20 20 20 20        |        |		.XXX[0x6]
00015fee 54 61                    |Ta      |		.XXX[0x2]
00015ff0 70 65 20 65 72 72 6f 72  |pe error|		.XXX[0x8]
00015ff8 20 20 20 20 20 20 20 20  |        |		.BLANK	20[0x10]
00016008 20 20 20 20              |        |		.BLANK	20[0x4]
0001600c 48 61 72 64              |Hard    |		.XXX[0x4]
00016010 20 64 65 76 69 63 65 20  | device |		.XXX[0x38]
00016018 65 72 72 6f 72 20 20 20  |error   |
00016020 20 20 20 20 20 20 20 20  |        |
00016028 20 20 55 6e 69 74 20 6e  |  Unit n|
00016030 6f 74 20 6f 70 65 6e 65  |ot opene|
00016038 64 20 20 20 20 20 20 20  |d       |
00016040 20 20 20 20 20 20 20 20  |        |
00016048 ; --------------------------------------------------------------------------------------
00016048 ; OMSI PASCAL Function
00016048 ;    <LVAR  0x014 1(r)>
00016048 ;    <LVAR  0x010 4(r)>
00016048 ;    <LVAR  0x00e 2(r)>
00016048 ;    <LVAR  0x00c 1(r)>
00016048 ;    <LVAR  0x008 4(r)>
00016048 ;    <LVAR -0x006 2(w)>
00016048 ;    <LVAR -0x008 2(w)>
00016048 ;    <LVAR -0x00e 2(w)>
00016048 ;    <LVAR -0x012 @>
00016048 ; --------------------------------------------------------------------------------------
00016048 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
0001604c bf d5                    |        |		CMPA.L	(A5),A7
0001604e 62 06                    |b       |		BHI	0x16056
00016050 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00016054 4e 76                    |Nv      |		TRAPV
00016056 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
0001605a 48 e7 e0 80              |H       |		MOVEM.L	A0+D2+D1+D0,-(A7)
0001605e 74 01                    |t       |		MOVEQ.L	#0x01,D2
00016060 3d 7c 00 03 ff f2        |=|      |		MOVE.W	#0x3,(A6-0xe)
00016066 30 39 00 01 b5 de        |09      |		MOVE.W	0x1b5de,D0
0001606c e1 40                    | @      |		ASL.W	#0x8,D0
0001606e 12 2e 00 14              | .      |		MOVE.B	(A6+0x14),D1
00016072 48 81                    |H       |		EXTB.W	D1
00016074 d2 40                    | @      |		ADD.W	D0,D1
00016076 0c 41 ff ff              | A      |		CMPI.W	#0xffff,D1
0001607a 63 02                    |c       |		BLS	0x1607e
0001607c 4e 4f                    |NO      |		TRAP	#15
0001607e 3d 41 ff f8              |=A      |		MOVE.W	D1,(A6-0x8)
00016082 3d 6e 00 0e ff fa        |=n      |		MOVE.W	(A6+0xe),(A6-0x6)
00016088 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
0001608c 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00016090 3f 02                    |?       |		MOVE.W	D2,-(A7)
00016092 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00016098 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001609c 4a 2e 00 0c              |J.      |		TST.B	(A6+0xc)
000160a0 67 10                    |g       |		BEQ	0x160b2
000160a2 3f 02                    |?       |		MOVE.W	D2,-(A7)
000160a4 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000160a8 48 50                    |HP      |		PEA.L	(A0)
000160aa 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
000160b0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000160b2 4c df 01 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0
000160b6 4e 5e                    |N^      |		UNLK	A6
000160b8 4e 75                    |Nu      |		RTS
000160ba ; --------------------------------------------------------------------------------------
000160ba ; OMSI PASCAL Function
000160ba ;    <LVAR  0x008 1(rw)>
000160ba ;    <LVAR -0x004 @ 1(r)>
000160ba ;    <LVAR -0x00c 2(r)>
000160ba ;    <LVAR -0x018 @>
000160ba ; --------------------------------------------------------------------------------------
000160ba 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
000160be bf d5                    |        |		CMPA.L	(A5),A7
000160c0 62 06                    |b       |		BHI	0x160c8
000160c2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000160c6 4e 76                    |Nv      |		TRAPV
000160c8 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000160cc 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
000160d0 42 27                    |B'      |		CLR.B	-(A7)
000160d2 41 ee ff e8              |A       |		LEA.L	(A6-0x18),A0
000160d6 2f 08                    |/       |		MOVE.L	A0,-(A7)
000160d8 42 67                    |Bg      |		CLR.W	-(A7)
000160da 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
000160de 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000160e2 4e ba ff 64              |N  d    |		JSR	0x16048
000160e6 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000160ea 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
000160ee 66 0c                    |f       |		BNE	0x160fc
000160f0 48 78 00 0c              |Hx      |		PEA.L	0xc
000160f4 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
000160fa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000160fc 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
00016100 30 2e ff f4              |0.      |		MOVE.W	(A6-0xc),D0
00016104 02 40 00 04              | @      |		ANDI.W	#0x0004,D0
00016108 67 04                    |g       |		BEQ	0x1610e
0001610a 52 2e 00 08              |R.      |		ADDQ.B	#0x1,(A6+0x8)
0001610e 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00016112 4e 5e                    |N^      |		UNLK	A6
00016114 4e 75                    |Nu      |		RTS
00016116 ; --------------------------------------------------------------------------------------
00016116 ; OMSI PASCAL Function
00016116 ;    <LVAR  0x00c 4(r)>
00016116 ;    <LVAR  0x008 4(r)>
00016116 ; --------------------------------------------------------------------------------------
00016116 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
0001611a bf d5                    |        |		CMPA.L	(A5),A7
0001611c 62 06                    |b       |		BHI	0x16124
0001611e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00016122 4e 76                    |Nv      |		TRAPV
00016124 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00016128 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0001612c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00016130 42 10                    |B       |		CLR.B	(A0)
00016132 22 6e 00 0c              |"n      |		MOVEA.L	(A6+0xc),A1
00016136 30 29 00 0e              |0)      |		MOVE.W	(A1+0xe),D0
0001613a 02 40 00 08              | @      |		ANDI.W	#0x0008,D0
0001613e 67 04                    |g       |		BEQ	0x16144
00016140 10 bc 00 0a              |        |		MOVE.B	#0x0a,(A0)
00016144 30 11                    |0       |		MOVE.W	(A1),D0
00016146 02 40 00 40              | @ @    |		ANDI.W	#0x0040,D0
0001614a 67 04                    |g       |		BEQ	0x16150
0001614c 10 bc 00 05              |        |		MOVE.B	#0x05,(A0)
00016150 30 29 00 0a              |0)      |		MOVE.W	(A1+0xa),D0
00016154 02 40 00 20              | @      |		ANDI.W	#0x0020,D0
00016158 67 14                    |g       |		BEQ	0x1616e
0001615a 10 bc 00 0b              |        |		MOVE.B	#0x0b,(A0)
0001615e 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
00016162 20 49                    | I      |		MOVEA.L	A1,A0
00016164 2f 08                    |/       |		MOVE.L	A0,-(A7)
00016166 4e b9 00 01 44 d8        |N   D   |		JSR	_Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
0001616c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001616e 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00016172 4e 5e                    |N^      |		UNLK	A6
00016174 4e 75                    |Nu      |		RTS
00016176 ; --------------------------------------------------------------------------------------
00016176 ; OMSI PASCAL Function
00016176 ;    <LVAR  0x008 4(r)>
00016176 ; --------------------------------------------------------------------------------------
00016176 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2
0001617a bf d5                    |        |		CMPA.L	(A5),A7
0001617c 62 06                    |b       |		BHI	0x16184
0001617e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00016182 4e 76                    |Nv      |		TRAPV
00016184 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00016188 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
0001618c 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
00016190 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00016194 2f 08                    |/       |		MOVE.L	A0,-(A7)
00016196 4e b9 00 01 44 d8        |N   D   |		JSR	_Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
0001619c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001619e 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
000161a2 4e 5e                    |N^      |		UNLK	A6
000161a4 4e 75                    |Nu      |		RTS
000161a6 ; --------------------------------------------------------------------------------------
000161a6 ; OMSI PASCAL Function
000161a6 ;    <LVAR  0x00c 4(r)>
000161a6 ;    <LVAR  0x008 4(r)>
000161a6 ; --------------------------------------------------------------------------------------
000161a6 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
000161aa bf d5                    |        |		CMPA.L	(A5),A7
000161ac 62 06                    |b       |		BHI	0x161b4
000161ae 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000161b2 4e 76                    |Nv      |		TRAPV
000161b4 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
000161b8 48 e7 fc f0              |H       |		MOVEM.L	A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000161bc 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
000161c0 47 f9 00 01 b5 dc        |G       |		LEA.L	0x1b5dc,A3
000161c6 74 01                    |t       |		MOVEQ.L	#0x01,D2
000161c8 36 3c 20 03              |6<      |		MOVE.W	#0x2003,D3
000161cc 78 07                    |x       |		MOVEQ.L	#0x07,D4
000161ce 7a 02                    |z       |		MOVEQ.L	#0x02,D5
000161d0 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000161d4 30 28 00 0e              |0(      |		MOVE.W	(A0+0xe),D0
000161d8 c0 42                    | B      |		AND.W	D2,D0
000161da 32 28 00 08              |2(      |		MOVE.W	(A0+0x8),D1
000161de c2 43                    | C      |		AND.W	D3,D1
000161e0 66 04                    |f       |		BNE	0x161e6
000161e2 4a 40                    |J@      |		TST.W	D0
000161e4 67 04                    |g       |		BEQ	0x161ea
000161e6 22 52                    |"R      |		MOVEA.L	(A2),A1
000161e8 42 11                    |B       |		CLR.B	(A1)
000161ea 32 28 00 08              |2(      |		MOVE.W	(A0+0x8),D1
000161ee 02 41 10 00              | A      |		ANDI.W	#0x1000,D1
000161f2 67 06                    |g       |		BEQ	0x161fa
000161f4 22 52                    |"R      |		MOVEA.L	(A2),A1
000161f6 12 bc 00 08              |        |		MOVE.B	#0x08,(A1)
000161fa 32 28 00 08              |2(      |		MOVE.W	(A0+0x8),D1
000161fe 02 41 40 00              | A@     |		ANDI.W	#0x4000,D1
00016202 67 1e                    |g       |		BEQ	0x16222
00016204 12 13                    |        |		MOVE.B	(A3),D1
00016206 b2 04                    |        |		CMP.B	D4,D1
00016208 67 06                    |g       |		BEQ	0x16210
0001620a 0c 01 00 09              |        |		CMPI.B	#0x09,D1
0001620e 66 06                    |f       |		BNE	0x16216
00016210 22 52                    |"R      |		MOVEA.L	(A2),A1
00016212 42 11                    |B       |		CLR.B	(A1)
00016214 60 0c                    |`       |		BRA	0x16222
00016216 b2 05                    |        |		CMP.B	D5,D1
00016218 67 04                    |g       |		BEQ	0x1621e
0001621a b2 03                    |        |		CMP.B	D3,D1
0001621c 66 04                    |f       |		BNE	0x16222
0001621e 22 52                    |"R      |		MOVEA.L	(A2),A1
00016220 12 84                    |        |		MOVE.B	D4,(A1)
00016222 32 28 00 08              |2(      |		MOVE.W	(A0+0x8),D1
00016226 02 41 80 00              | A      |		ANDI.W	#0x8000,D1
0001622a 67 12                    |g       |		BEQ	0x1623e
0001622c 12 13                    |        |		MOVE.B	(A3),D1
0001622e b2 05                    |        |		CMP.B	D5,D1
00016230 67 06                    |g       |		BEQ	0x16238
00016232 12 13                    |        |		MOVE.B	(A3),D1
00016234 b2 03                    |        |		CMP.B	D3,D1
00016236 66 06                    |f       |		BNE	0x1623e
00016238 22 52                    |"R      |		MOVEA.L	(A2),A1
0001623a 12 bc 00 06              |        |		MOVE.B	#0x06,(A1)
0001623e 32 28 00 08              |2(      |		MOVE.W	(A0+0x8),D1
00016242 02 41 f0 03              | A      |		ANDI.W	#0xf003,D1
00016246 66 10                    |f       |		BNE	0x16258
00016248 4a 40                    |J@      |		TST.W	D0
0001624a 66 0c                    |f       |		BNE	0x16258
0001624c 1f 02                    |        |		MOVE.B	D2,-(A7)
0001624e 2f 08                    |/       |		MOVE.L	A0,-(A7)
00016250 4e b9 00 01 44 d8        |N   D   |		JSR	_Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
00016256 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016258 4c df 0f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3
0001625c 4e 5e                    |N^      |		UNLK	A6
0001625e 4e 75                    |Nu      |		RTS
00016260 ; --------------------------------------------------------------------------------------
00016260 ; OMSI PASCAL Function
00016260 ;    <LVAR  0x00c 4(r)>
00016260 ;    <LVAR  0x008 4(r)>
00016260 ; --------------------------------------------------------------------------------------
00016260 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00016264 bf d5                    |        |		CMPA.L	(A5),A7
00016266 62 06                    |b       |		BHI	0x1626e
00016268 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001626c 4e 76                    |Nv      |		TRAPV
0001626e de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00016272 48 e7 e0 e0              |H       |		MOVEM.L	A2+A1+A0+D2+D1+D0,-(A7)
00016276 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
0001627a 74 40                    |t@      |		MOVEQ.L	#0x40,D2
0001627c 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00016280 30 28 00 08              |0(      |		MOVE.W	(A0+0x8),D0
00016284 02 40 00 02              | @      |		ANDI.W	#0x0002,D0
00016288 67 04                    |g       |		BEQ	0x1628e
0001628a 22 52                    |"R      |		MOVEA.L	(A2),A1
0001628c 42 11                    |B       |		CLR.B	(A1)
0001628e 30 10                    |0       |		MOVE.W	(A0),D0
00016290 c0 42                    | B      |		AND.W	D2,D0
00016292 66 0a                    |f       |		BNE	0x1629e
00016294 32 28 00 08              |2(      |		MOVE.W	(A0+0x8),D1
00016298 02 41 00 10              | A      |		ANDI.W	#0x0010,D1
0001629c 67 06                    |g       |		BEQ	0x162a4
0001629e 22 52                    |"R      |		MOVEA.L	(A2),A1
000162a0 12 bc 00 05              |        |		MOVE.B	#0x05,(A1)
000162a4 32 28 00 08              |2(      |		MOVE.W	(A0+0x8),D1
000162a8 02 41 08 00              | A      |		ANDI.W	#0x0800,D1
000162ac 67 06                    |g       |		BEQ	0x162b4
000162ae 22 52                    |"R      |		MOVEA.L	(A2),A1
000162b0 12 bc 00 04              |        |		MOVE.B	#0x04,(A1)
000162b4 4a 40                    |J@      |		TST.W	D0
000162b6 66 20                    |f       |		BNE	0x162d8
000162b8 30 28 00 08              |0(      |		MOVE.W	(A0+0x8),D0
000162bc c0 42                    | B      |		AND.W	D2,D0
000162be 67 18                    |g       |		BEQ	0x162d8
000162c0 30 28 00 08              |0(      |		MOVE.W	(A0+0x8),D0
000162c4 02 40 0c 12              | @      |		ANDI.W	#0x0c12,D0
000162c8 66 0e                    |f       |		BNE	0x162d8
000162ca 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
000162ce 2f 08                    |/       |		MOVE.L	A0,-(A7)
000162d0 4e b9 00 01 44 d8        |N   D   |		JSR	_Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
000162d6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000162d8 4c df 07 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2
000162dc 4e 5e                    |N^      |		UNLK	A6
000162de 4e 75                    |Nu      |		RTS
000162e0 ; --------------------------------------------------------------------------------------
000162e0 ; OMSI PASCAL Function
000162e0 ;    <LVAR  0x014 4(r)>
000162e0 ;    <LVAR  0x010 4(r)>
000162e0 ;    <LVAR  0x00c 4(r)>
000162e0 ;    <LVAR  0x008 4(r)>
000162e0 ; --------------------------------------------------------------------------------------
000162e0 4e 56 ff e6              |NV      |		LINK.W	A6,#0xffe6
000162e4 bf d5                    |        |		CMPA.L	(A5),A7
000162e6 62 06                    |b       |		BHI	0x162ee
000162e8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000162ec 4e 76                    |Nv      |		TRAPV
000162ee de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000162f2 48 e7 e0 c0              |H       |		MOVEM.L	A1+A0+D2+D1+D0,-(A7)
000162f6 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
000162fa 74 1b                    |t       |		MOVEQ.L	#0x1b,D2
000162fc 10 39 00 01 b5 dc        | 9      |		MOVE.B	0x1b5dc,D0
00016302 48 80                    |H       |		EXTB.W	D0
00016304 41 82                    |A       |		CHK.W	D2,D0
00016306 41 fa fb 74              |A  t    |		LEA.L	0x15e7c,A0
0001630a 4a 30 00 00              |J0      |		TST.B	(A0+D0.W)
0001630e 66 08                    |f       |		BNE	0x16318
00016310 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00016314 42 10                    |B       |		CLR.B	(A0)
00016316 60 64                    |`d      |		BRA	0x1637c
00016318 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
0001631c 10 bc 00 09              |        |		MOVE.B	#0x09,(A0)
00016320 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00016324 10 bc 00 01              |        |		MOVE.B	#0x01,(A0)
00016328 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
0001632c 32 10                    |2       |		MOVE.W	(A0),D1
0001632e 02 41 00 02              | A      |		ANDI.W	#0x0002,D1
00016332 67 08                    |g       |		BEQ	0x1633c
00016334 20 51                    | Q      |		MOVEA.L	(A1),A0
00016336 41 82                    |A       |		CHK.W	D2,D0
00016338 10 80                    |        |		MOVE.B	D0,(A0)
0001633a 60 40                    |`@      |		BRA	0x1637c
0001633c 55 40                    |U@      |		SUBQ.W	#0x2,D0
0001633e 0c 40 00 0a              | @      |		CMPI.W	#0x000a,D0
00016342 63 02                    |c       |		BLS	0x16346
00016344					switch@0x16348[0x4]:
00016344					switch@0x16348[0x5]:
00016344					switch@0x16348[0x6]:
00016344					switch@0x16348[0x7]:
00016344					switch@0x16348[0x8]:
00016344 4e 4e                    |NN      |		TRAP	#14
00016346 d0 40                    | @      |		ADD.W	D0,D0
00016348 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00016350 00 16                    |        |		.CONST	0x16			; [0x0] -> 0x16366
00016352 00 16                    |        |		.CONST	0x16			; [0x1] -> 0x16366
00016354 00 1e                    |        |		.CONST	0x1e			; [0x2] -> 0x1636e
00016356 00 1e                    |        |		.CONST	0x1e			; [0x3] -> 0x1636e
00016358 ff f4                    |        |		.CONST	0xfff4			; [0x4] -> 0x16344
0001635a ff f4                    |        |		.CONST	0xfff4			; [0x5] -> 0x16344
0001635c ff f4                    |        |		.CONST	0xfff4			; [0x6] -> 0x16344
0001635e ff f4                    |        |		.CONST	0xfff4			; [0x7] -> 0x16344
00016360 ff f4                    |        |		.CONST	0xfff4			; [0x8] -> 0x16344
00016362 00 26                    | &      |		.CONST	0x26			; [0x9] -> 0x16376
00016364 00 26                    | &      |		.CONST	0x26			; [0xa] -> 0x16376
00016366					switch@0x16348[0x0]:
00016366					switch@0x16348[0x1]:
00016366 20 51                    | Q      |		MOVEA.L	(A1),A0
00016368 10 bc 00 03              |        |		MOVE.B	#0x03,(A0)
0001636c 60 0e                    |`       |		BRA	0x1637c
0001636e					switch@0x16348[0x2]:
0001636e					switch@0x16348[0x3]:
0001636e 20 51                    | Q      |		MOVEA.L	(A1),A0
00016370 10 bc 00 05              |        |		MOVE.B	#0x05,(A0)
00016374 60 06                    |`       |		BRA	0x1637c
00016376					switch@0x16348[0x9]:
00016376					switch@0x16348[0xa]:
00016376 20 51                    | Q      |		MOVEA.L	(A1),A0
00016378 10 bc 00 0c              |        |		MOVE.B	#0x0c,(A0)
0001637c 4c df 03 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1
00016380 4e 5e                    |N^      |		UNLK	A6
00016382 4e 75                    |Nu      |		RTS
00016384 ; --------------------------------------------------------------------------------------
00016384 ; OMSI PASCAL Function
00016384 ;    <LVAR  0x00c 4(r)>
00016384 ;    <LVAR  0x008 4(r)>
00016384 ; --------------------------------------------------------------------------------------
00016384 4e 56 ff e6              |NV      |		LINK.W	A6,#0xffe6
00016388 bf d5                    |        |		CMPA.L	(A5),A7
0001638a 62 06                    |b       |		BHI	0x16392
0001638c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00016390 4e 76                    |Nv      |		TRAPV
00016392 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00016396 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0001639a 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0001639e 30 28 00 0e              |0(      |		MOVE.W	(A0+0xe),D0
000163a2 02 40 00 08              | @      |		ANDI.W	#0x0008,D0
000163a6 67 08                    |g       |		BEQ	0x163b0
000163a8 22 6e 00 08              |"n      |		MOVEA.L	(A6+0x8),A1
000163ac 12 bc 00 0a              |        |		MOVE.B	#0x0a,(A1)
000163b0 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
000163b4 2f 08                    |/       |		MOVE.L	A0,-(A7)
000163b6 4e b9 00 01 44 d8        |N   D   |		JSR	_Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
000163bc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000163be 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
000163c2 4e 5e                    |N^      |		UNLK	A6
000163c4 4e 75                    |Nu      |		RTS
000163c6 ; --------------------------------------------------------------------------------------
000163c6 ; OMSI PASCAL Function
000163c6 ;    <LVAR  0x00c 4(r)>
000163c6 ;    <LVAR  0x008 4(r)>
000163c6 ; --------------------------------------------------------------------------------------
000163c6 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2
000163ca bf d5                    |        |		CMPA.L	(A5),A7
000163cc 62 06                    |b       |		BHI	0x163d4
000163ce 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000163d2 4e 76                    |Nv      |		TRAPV
000163d4 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000163d8 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
000163dc 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000163e0 10 bc 00 0c              |        |		MOVE.B	#0x0c,(A0)
000163e4 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
000163e8 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000163ec 2f 08                    |/       |		MOVE.L	A0,-(A7)
000163ee 4e b9 00 01 44 d8        |N   D   |		JSR	_Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
000163f4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000163f6 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
000163fa 4e 5e                    |N^      |		UNLK	A6
000163fc 4e 75                    |Nu      |		RTS
000163fe ; --------------------------------------------------------------------------------------
000163fe ; FSCALL_10408
000163fe ; OMSI PASCAL Function
000163fe ;    <LVAR  0x008 4(r)>
000163fe ;    <LVAR -0x00c 2(r)>
000163fe ;    <LVAR -0x00e 2(r)>
000163fe ;    <LVAR -0x014 @ 2(r)>
000163fe ;    <LVAR -0x015 @ 1(r)>
000163fe ;    <LVAR -0x016 @ 1(r)>
000163fe ;    <LVAR -0x017 @ 1(r)>
000163fe ;    <LVAR -0x018 @ 1(r)>
000163fe ; --------------------------------------------------------------------------------------
000163fe					_FSCALL_10408:
000163fe 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
00016402 bf d5                    |        |		CMPA.L	(A5),A7
00016404 62 06                    |b       |		BHI	0x1640c
00016406 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001640a 4e 76                    |Nv      |		TRAPV
0001640c de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00016410 48 e7 f1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
00016414 45 ee ff ec              |E       |		LEA.L	(A6-0x14),A2
00016418 47 ee ff e8              |G       |		LEA.L	(A6-0x18),A3
0001641c 49 ee ff ea              |I       |		LEA.L	(A6-0x16),A4
00016420 72 01                    |r       |		MOVEQ.L	#0x01,D1
00016422 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00016424 76 1b                    |v       |		MOVEQ.L	#0x1b,D3
00016426 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00016428 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001642c 42 10                    |B       |		CLR.B	(A0)
0001642e 42 28 00 01              |B(      |		CLR.B	(A0+0x1)
00016432 3f 01                    |?       |		MOVE.W	D1,-(A7)
00016434 48 54                    |HT      |		PEA.L	(A4)
00016436 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
0001643c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001643e 4a 14                    |J       |		TST.B	(A4)
00016440 66 00 01 0e              |f       |		BNE	0x16550
00016444 52 87                    |R       |		ADDQ.L	#0x1,D7
00016446 42 13                    |B       |		CLR.B	(A3)
00016448 1f 01                    |        |		MOVE.B	D1,-(A7)
0001644a 22 4a                    |"J      |		MOVEA.L	A2,A1
0001644c 2f 09                    |/       |		MOVE.L	A1,-(A7)
0001644e 42 67                    |Bg      |		CLR.W	-(A7)
00016450 1f 01                    |        |		MOVE.B	D1,-(A7)
00016452 48 6e ff eb              |Hn      |		PEA.L	(A6-0x15)
00016456 4e ba fb f0              |N       |		JSR	0x16048
0001645a de c2                    |        |		ADDA.W	D2,A7
0001645c 4a 2e ff eb              |J.      |		TST.B	(A6-0x15)
00016460 66 0c                    |f       |		BNE	0x1646e
00016462 48 78 00 0d              |Hx      |		PEA.L	0xd
00016466 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
0001646c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001646e 42 80                    |B       |		CLR.L	D0
00016470 30 2e ff f2              |0.      |		MOVE.W	(A6-0xe),D0
00016474 23 c0 00 01 b5 ce        |#       |		MOVE.L	D0,0x1b5ce
0001647a 42 28 00 01              |B(      |		CLR.B	(A0+0x1)
0001647e 30 2e ff f4              |0.      |		MOVE.W	(A6-0xc),D0
00016482 c0 41                    | A      |		AND.W	D1,D0
00016484 67 04                    |g       |		BEQ	0x1648a
00016486 52 28 00 01              |R(      |		ADDQ.B	#0x1,(A0+0x1)
0001648a 10 bc 00 0b              |        |		MOVE.B	#0x0b,(A0)
0001648e 30 12                    |0       |		MOVE.W	(A2),D0
00016490 c0 42                    | B      |		AND.W	D2,D0
00016492 e2 48                    | H      |		LSR.W	#0x1,D0
00016494 0c 40 00 07              | @      |		CMPI.W	#0x0007,D0
00016498 63 02                    |c       |		BLS	0x1649c
0001649a 4e 4e                    |NN      |		TRAP	#14
0001649c d0 40                    | @      |		ADD.W	D0,D0
0001649e 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000164a6 00 10                    |        |		.CONST	0x10			; [0x0] -> 0x164b6
000164a8 00 1a                    |        |		.CONST	0x1a			; [0x1] -> 0x164c0
000164aa 00 24                    | $      |		.CONST	0x24			; [0x2] -> 0x164ca
000164ac 00 2e                    | .      |		.CONST	0x2e			; [0x3] -> 0x164d4
000164ae 00 38                    | 8      |		.CONST	0x38			; [0x4] -> 0x164de
000164b0 00 38                    | 8      |		.CONST	0x38			; [0x5] -> 0x164de
000164b2 00 4c                    | L      |		.CONST	0x4c			; [0x6] -> 0x164f2
000164b4 00 56                    | V      |		.CONST	0x56			; [0x7] -> 0x164fc
000164b6					switch@0x1649e[0x0]:
000164b6 48 52                    |HR      |		PEA.L	(A2)
000164b8 48 50                    |HP      |		PEA.L	(A0)
000164ba 4e ba fc 5a              |N  Z    |		JSR	0x16116
000164be 60 44                    |`D      |		BRA	0x16504
000164c0					switch@0x1649e[0x1]:
000164c0 48 52                    |HR      |		PEA.L	(A2)
000164c2 4e ba fc b2              |N       |		JSR	0x16176
000164c6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000164c8 60 3c                    |`<      |		BRA	0x16506
000164ca					switch@0x1649e[0x2]:
000164ca 48 52                    |HR      |		PEA.L	(A2)
000164cc 48 50                    |HP      |		PEA.L	(A0)
000164ce 4e ba fc d6              |N       |		JSR	0x161a6
000164d2 60 30                    |`0      |		BRA	0x16504
000164d4					switch@0x1649e[0x3]:
000164d4 48 52                    |HR      |		PEA.L	(A2)
000164d6 48 50                    |HP      |		PEA.L	(A0)
000164d8 4e ba fd 86              |N       |		JSR	0x16260
000164dc 60 26                    |`&      |		BRA	0x16504
000164de					switch@0x1649e[0x4]:
000164de					switch@0x1649e[0x5]:
000164de 48 52                    |HR      |		PEA.L	(A2)
000164e0 48 50                    |HP      |		PEA.L	(A0)
000164e2 48 53                    |HS      |		PEA.L	(A3)
000164e4 48 6e ff e9              |Hn      |		PEA.L	(A6-0x17)
000164e8 4e ba fd f6              |N       |		JSR	0x162e0
000164ec de fc 00 10              |        |		ADDA.W	#0x10,A7
000164f0 60 14                    |`       |		BRA	0x16506
000164f2					switch@0x1649e[0x6]:
000164f2 48 52                    |HR      |		PEA.L	(A2)
000164f4 48 50                    |HP      |		PEA.L	(A0)
000164f6 4e ba fe 8c              |N       |		JSR	0x16384
000164fa 60 08                    |`       |		BRA	0x16504
000164fc					switch@0x1649e[0x7]:
000164fc 48 52                    |HR      |		PEA.L	(A2)
000164fe 48 50                    |HP      |		PEA.L	(A0)
00016500 4e ba fe c4              |N       |		JSR	0x163c6
00016504 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00016506 4a 13                    |J       |		TST.B	(A3)
00016508 67 46                    |gF      |		BEQ	0x16550
0001650a 10 2e ff e9              | .      |		MOVE.B	(A6-0x17),D0
0001650e 48 80                    |H       |		EXTB.W	D0
00016510 41 83                    |A       |		CHK.W	D3,D0
00016512 13 c0 00 01 b5 dc        |        |		MOVE.B	D0,0x1b5dc
00016518 0c 87 00 00 00 14        |        |		CMPI.L	#0x00000014,D7
0001651e 6e 20                    |n       |		BGT	0x16540
00016520 48 80                    |H       |		EXTB.W	D0
00016522 41 83                    |A       |		CHK.W	D3,D0
00016524 1f 00                    |        |		MOVE.B	D0,-(A7)
00016526 2f 39 00 01 b5 d8        |/9      |		MOVE.L	0x1b5d8,-(A7)
0001652c 3f 39 00 01 b5 d6        |?9      |		MOVE.W	0x1b5d6,-(A7)
00016532 42 27                    |B'      |		CLR.B	-(A7)
00016534 48 6e ff eb              |Hn      |		PEA.L	(A6-0x15)
00016538 4e ba fb 0e              |N       |		JSR	0x16048
0001653c de c2                    |        |		ADDA.W	D2,A7
0001653e 60 10                    |`       |		BRA	0x16550
00016540 42 13                    |B       |		CLR.B	(A3)
00016542 1f 01                    |        |		MOVE.B	D1,-(A7)
00016544 20 4a                    | J      |		MOVEA.L	A2,A0
00016546 2f 08                    |/       |		MOVE.L	A0,-(A7)
00016548 4e b9 00 01 44 d8        |N   D   |		JSR	_Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
0001654e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016550 4a 14                    |J       |		TST.B	(A4)
00016552 66 06                    |f       |		BNE	0x1655a
00016554 4a 13                    |J       |		TST.B	(A3)
00016556 66 00 fe d0              |f       |		BNE	0x16428
0001655a 4c df 1f 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3+A4
0001655e 4e 5e                    |N^      |		UNLK	A6
00016560 4e 75                    |Nu      |		RTS
00016562 ; --------------------------------------------------------------------------------------
00016562 ; FSCALL_1040c
00016562 ; OMSI PASCAL Function
00016562 ;    <LVAR  0x010 2(r)>
00016562 ;    <LVAR  0x00e 1(r)>
00016562 ;    <LVAR  0x00c 1(r)>
00016562 ;    <LVAR  0x008 4(r)>
00016562 ;    <LVAR -0x002 @ 1(r)>
00016562 ;    <LVAR -0x012 2(r)>
00016562 ;    <LVAR -0x016 @ 2(r)>
00016562 ; --------------------------------------------------------------------------------------
00016562					_FSCALL_1040c:
00016562 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
00016566 bf d5                    |        |		CMPA.L	(A5),A7
00016568 62 06                    |b       |		BHI	0x16570
0001656a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001656e 4e 76                    |Nv      |		TRAPV
00016570 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00016574 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00016578 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
0001657c 45 f9 00 01 b5 cc        |E       |		LEA.L	0x1b5cc,A2
00016582 72 01                    |r       |		MOVEQ.L	#0x01,D1
00016584 33 ee 00 10 00 01 b5 de  |3       |		MOVE.W	(A6+0x10),0x1b5de
0001658c 42 27                    |B'      |		CLR.B	-(A7)
0001658e 41 ee ff ea              |A       |		LEA.L	(A6-0x16),A0
00016592 2f 08                    |/       |		MOVE.L	A0,-(A7)
00016594 42 67                    |Bg      |		CLR.W	-(A7)
00016596 1f 01                    |        |		MOVE.B	D1,-(A7)
00016598 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
0001659c 4e ba fa aa              |N       |		JSR	0x16048
000165a0 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000165a4 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
000165a8 66 0c                    |f       |		BNE	0x165b6
000165aa 48 78 00 0c              |Hx      |		PEA.L	0xc
000165ae 4e b9 00 01 02 20        |N       |		JSR	KC10_Panic(code : Long)
000165b4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000165b6 4a 6e ff ea              |Jn      |		TST.W	(A6-0x16)
000165ba 66 06                    |f       |		BNE	0x165c2
000165bc 20 51                    | Q      |		MOVEA.L	(A1),A0
000165be 10 81                    |        |		MOVE.B	D1,(A0)
000165c0 60 44                    |`D      |		BRA	0x16606
000165c2 30 2e ff ee              |0.      |		MOVE.W	(A6-0x12),D0
000165c6 02 40 00 40              | @ @    |		ANDI.W	#0x0040,D0
000165ca 67 08                    |g       |		BEQ	0x165d4
000165cc 20 51                    | Q      |		MOVEA.L	(A1),A0
000165ce 10 bc 00 05              |        |		MOVE.B	#0x05,(A0)
000165d2 60 32                    |`2      |		BRA	0x16606
000165d4 4a 2e 00 0e              |J.      |		TST.B	(A6+0xe)
000165d8 67 12                    |g       |		BEQ	0x165ec
000165da 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000165dc 4e ba fa dc              |N       |		JSR	0x160ba
000165e0 4a 1f                    |J       |		TST.B	(A7)+
000165e2 67 08                    |g       |		BEQ	0x165ec
000165e4 20 51                    | Q      |		MOVEA.L	(A1),A0
000165e6 10 bc 00 04              |        |		MOVE.B	#0x04,(A0)
000165ea 60 1a                    |`       |		BRA	0x16606
000165ec 4a 2e 00 0c              |J.      |		TST.B	(A6+0xc)
000165f0 67 10                    |g       |		BEQ	0x16602
000165f2 42 27                    |B'      |		CLR.B	-(A7)
000165f4 20 51                    | Q      |		MOVEA.L	(A1),A0
000165f6 48 50                    |HP      |		PEA.L	(A0)
000165f8 4e b9 00 01 66 34        |N   f4  |		JSR	_FSCALL_10414
000165fe 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016600 60 04                    |`       |		BRA	0x16606
00016602 20 51                    | Q      |		MOVEA.L	(A1),A0
00016604 42 10                    |B       |		CLR.B	(A0)
00016606 42 12                    |B       |		CLR.B	(A2)
00016608 20 51                    | Q      |		MOVEA.L	(A1),A0
0001660a 4a 10                    |J       |		TST.B	(A0)
0001660c 66 02                    |f       |		BNE	0x16610
0001660e 52 12                    |R       |		ADDQ.B	#0x1,(A2)
00016610 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00016614 4e 5e                    |N^      |		UNLK	A6
00016616 4e 75                    |Nu      |		RTS
00016618 ; --------------------------------------------------------------------------------------
00016618 ; FSCALL_10410
00016618 ; OMSI PASCAL Function
00016618 ; --------------------------------------------------------------------------------------
00016618					_FSCALL_10410:
00016618 4e 56 ff fc              |NV      |		LINK.W	A6,#0xfffc
0001661c bf d5                    |        |		CMPA.L	(A5),A7
0001661e 62 06                    |b       |		BHI	0x16626
00016620 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00016624 4e 76                    |Nv      |		TRAPV
00016626 de fc 00 04              |        |		ADDA.W	#0x4,A7
0001662a 42 39 00 01 b5 cc        |B9      |		CLR.B	0x1b5cc
00016630 4e 5e                    |N^      |		UNLK	A6
00016632 4e 75                    |Nu      |		RTS
00016634 ; --------------------------------------------------------------------------------------
00016634 ; FSCALL_10414
00016634 ; OMSI PASCAL Function
00016634 ;    <LVAR  0x00c 1(r)>
00016634 ;    <LVAR  0x008 4(r)>
00016634 ;    <LVAR -0x002 @>
00016634 ; --------------------------------------------------------------------------------------
00016634					_FSCALL_10414:
00016634 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
00016638 bf d5                    |        |		CMPA.L	(A5),A7
0001663a 62 06                    |b       |		BHI	0x16642
0001663c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00016640 4e 76                    |Nv      |		TRAPV
00016642 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00016646 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0001664a 10 2e 00 0c              | .      |		MOVE.B	(A6+0xc),D0
0001664e 48 80                    |H       |		EXTB.W	D0
00016650 41 fa f8 46              |A  F    |		LEA.L	0x15e98,A0
00016654 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
00016658 48 78 00 00              |Hx      |		PEA.L	0x0
0001665c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00016660 42 27                    |B'      |		CLR.B	-(A7)
00016662 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00016666 4e ba f9 e0              |N       |		JSR	0x16048
0001666a de fc 00 0e              |        |		ADDA.W	#0xe,A7
0001666e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00016672 48 50                    |HP      |		PEA.L	(A0)
00016674 4e ba fd 88              |N       |		JSR	_FSCALL_10408
00016678 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001667a 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0001667e 4e 5e                    |N^      |		UNLK	A6
00016680 4e 75                    |Nu      |		RTS
00016682 ; --------------------------------------------------------------------------------------
00016682 ; FSCALL_10418
00016682 ; OMSI PASCAL Function
00016682 ;    <LVAR  0x00a 4(r)>
00016682 ;    <LVAR  0x008 2(r)>
00016682 ;    <LVAR -0x002 @>
00016682 ; --------------------------------------------------------------------------------------
00016682					_FSCALL_10418:
00016682 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00016686 bf d5                    |        |		CMPA.L	(A5),A7
00016688 62 06                    |b       |		BHI	0x16690
0001668a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001668e 4e 76                    |Nv      |		TRAPV
00016690 de fc 00 16              |        |		ADDA.W	#0x16,A7
00016694 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00016698 70 02                    |p       |		MOVEQ.L	#0x02,D0
0001669a 13 c0 00 01 b5 dc        |        |		MOVE.B	D0,0x1b5dc
000166a0 33 ee 00 08 00 01 b5 d6  |3       |		MOVE.W	(A6+0x8),0x1b5d6
000166a8 23 ee 00 0a 00 01 b5 d8  |#       |		MOVE.L	(A6+0xa),0x1b5d8
000166b0 1f 00                    |        |		MOVE.B	D0,-(A7)
000166b2 2f 2e 00 0a              |/.      |		MOVE.L	(A6+0xa),-(A7)
000166b6 3f 2e 00 08              |?.      |		MOVE.W	(A6+0x8),-(A7)
000166ba 42 27                    |B'      |		CLR.B	-(A7)
000166bc 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
000166c0 4e ba f9 86              |N       |		JSR	0x16048
000166c4 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000166c8 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
000166cc 4e 5e                    |N^      |		UNLK	A6
000166ce 4e 75                    |Nu      |		RTS
000166d0 ; --------------------------------------------------------------------------------------
000166d0 ; FSCALL_1041c
000166d0 ; OMSI PASCAL Function
000166d0 ;    <LVAR  0x00a 4(r)>
000166d0 ;    <LVAR  0x008 2(r)>
000166d0 ;    <LVAR -0x002 @>
000166d0 ; --------------------------------------------------------------------------------------
000166d0					_FSCALL_1041c:
000166d0 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
000166d4 bf d5                    |        |		CMPA.L	(A5),A7
000166d6 62 06                    |b       |		BHI	0x166de
000166d8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000166dc 4e 76                    |Nv      |		TRAPV
000166de de fc 00 16              |        |		ADDA.W	#0x16,A7
000166e2 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
000166e6 70 04                    |p       |		MOVEQ.L	#0x04,D0
000166e8 13 c0 00 01 b5 dc        |        |		MOVE.B	D0,0x1b5dc
000166ee 33 ee 00 08 00 01 b5 d6  |3       |		MOVE.W	(A6+0x8),0x1b5d6
000166f6 23 ee 00 0a 00 01 b5 d8  |#       |		MOVE.L	(A6+0xa),0x1b5d8
000166fe 1f 00                    |        |		MOVE.B	D0,-(A7)
00016700 2f 2e 00 0a              |/.      |		MOVE.L	(A6+0xa),-(A7)
00016704 3f 2e 00 08              |?.      |		MOVE.W	(A6+0x8),-(A7)
00016708 42 27                    |B'      |		CLR.B	-(A7)
0001670a 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
0001670e 4e ba f9 38              |N  8    |		JSR	0x16048
00016712 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00016716 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
0001671a 4e 5e                    |N^      |		UNLK	A6
0001671c 4e 75                    |Nu      |		RTS
0001671e ; --------------------------------------------------------------------------------------
0001671e ; FSCALL_10420
0001671e ; OMSI PASCAL Function
0001671e ;    <LVAR -0x004 @>
0001671e ; --------------------------------------------------------------------------------------
0001671e					_FSCALL_10420:
0001671e 4e 56 ff e6              |NV      |		LINK.W	A6,#0xffe6
00016722 bf d5                    |        |		CMPA.L	(A5),A7
00016724 62 06                    |b       |		BHI	0x1672c
00016726 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001672a 4e 76                    |Nv      |		TRAPV
0001672c de fc 00 16              |        |		ADDA.W	#0x16,A7
00016730 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00016734 70 0b                    |p       |		MOVEQ.L	#0x0b,D0
00016736 13 c0 00 01 b5 dc        |        |		MOVE.B	D0,0x1b5dc
0001673c 42 79 00 01 b5 d6        |By      |		CLR.W	0x1b5d6
00016742 42 b9 00 01 b5 d8        |B       |		CLR.L	0x1b5d8
00016748 1f 00                    |        |		MOVE.B	D0,-(A7)
0001674a 48 78 00 00              |Hx      |		PEA.L	0x0
0001674e 42 67                    |Bg      |		CLR.W	-(A7)
00016750 42 27                    |B'      |		CLR.B	-(A7)
00016752 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00016756 4e ba f8 f0              |N       |		JSR	0x16048
0001675a de fc 00 0e              |        |		ADDA.W	#0xe,A7
0001675e 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
00016762 4e 5e                    |N^      |		UNLK	A6
00016764 4e 75                    |Nu      |		RTS
00016766 ; --------------------------------------------------------------------------------------
00016766 ; TapeErrorMsg(a : Byte) : String
00016766 ; Stack:
00016766 ;     A6+0xa  VAR RETURN : String
00016766 ;     A6+0x8      a : Byte
00016766 ; OMSI PASCAL Function
00016766 ;    <LVAR  0x00a 4(w)>
00016766 ;    <LVAR  0x008 1(r)>
00016766 ; --------------------------------------------------------------------------------------
00016766					_TapeErrorMsg(a : Byte) : String:
00016766 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
0001676a bf d5                    |        |		CMPA.L	(A5),A7
0001676c 62 06                    |b       |		BHI	0x16774
0001676e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00016772 4e 76                    |Nv      |		TRAPV
00016774 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00016778 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
0001677c 72 1e                    |r       |		MOVEQ.L	#0x1e,D1
0001677e 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00016782 48 80                    |H       |		EXTB.W	D0
00016784 c1 c1                    |        |		MULS.W	D1,D0
00016786 41 fa f7 1c              |A       |		LEA.L	0x15ea4,A0
0001678a 41 f0 00 1e              |A       |		LEA.L	(A0+D0.W+#0x1e),A0
0001678e 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00016790 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00016792 51 c8 ff fc              |Q       |		DBF	D0,0x16790
00016796 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00016798 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0001679c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000167a0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000167a2 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
000167a8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000167aa 2d 5f 00 0a              |-_      |		MOVE.L	(A7)+,(A6+0xa)
000167ae de c1                    |        |		ADDA.W	D1,A7
000167b0 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
000167b4 4e 5e                    |N^      |		UNLK	A6
000167b6 4e 75                    |Nu      |		RTS
000167b8 ; --------------------------------------------------------------------------------------
000167b8 ; FSCALL_10428
000167b8 ; OMSI PASCAL Function
000167b8 ;    <LVAR  0x00c 1(r)>
000167b8 ;    <LVAR  0x008 4(r)>
000167b8 ;    <LVAR -0x006 @ 4(rw)>
000167b8 ; --------------------------------------------------------------------------------------
000167b8					_FSCALL_10428:
000167b8 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
000167bc bf d5                    |        |		CMPA.L	(A5),A7
000167be 62 06                    |b       |		BHI	0x167c6
000167c0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000167c4 4e 76                    |Nv      |		TRAPV
000167c6 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000167ca 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
000167ce 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000167d2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000167d4 20 4f                    | O      |		MOVEA.L	A7,A0
000167d6 43 fa f6 66              |C  f    |		LEA.L	0x15e3e,A1
000167da 70 06                    |p       |		MOVEQ.L	#0x06,D0
000167dc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000167de 51 c8 ff fc              |Q       |		DBF	D0,0x167dc
000167e2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000167e4 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000167e8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000167ea 1e 90                    |        |		MOVE.B	(A0),(A7)
000167ec 1f 68 00 01 00 01        | h      |		MOVE.B	(A0+0x1),(A7+0x1)
000167f2 4e ba ff 72              |N  r    |		JSR	_TapeErrorMsg(a : Byte) : String
000167f6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000167f8 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000167fc 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00016800 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00016804 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
0001680a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001680c 30 39 00 01 b5 de        |09      |		MOVE.W	0x1b5de,D0
00016812 48 c0                    |H       |		EXTW.L	D0
00016814 2f 00                    |/       |		MOVE.L	D0,-(A7)
00016816 4e b9 00 01 10 b0        |N       |		JSR	_Long2String(a : Long) : String
0001681c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001681e 4e b9 00 01 0f ba        |N       |		JSR	_StringCat3(a, b, c : String) : String
00016824 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00016828 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
0001682a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001682c 10 2e 00 0c              | .      |		MOVE.B	(A6+0xc),D0
00016830 48 80                    |H       |		EXTB.W	D0
00016832 0c 40 00 02              | @      |		CMPI.W	#0x0002,D0
00016836 63 02                    |c       |		BLS	0x1683a
00016838 4e 4e                    |NN      |		TRAP	#14
0001683a d0 40                    | @      |		ADD.W	D0,D0
0001683c 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00016844 00 06                    |        |		.CONST	0x6			; [0x0] -> 0x1684a
00016846 00 12                    |        |		.CONST	0x12			; [0x1] -> 0x16856
00016848 00 1c                    |        |		.CONST	0x1c			; [0x2] -> 0x16860
0001684a					switch@0x1683c[0x0]:
0001684a 48 52                    |HR      |		PEA.L	(A2)
0001684c 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00016852 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00016854 60 18                    |`       |		BRA	0x1686e
00016856					switch@0x1683c[0x1]:
00016856 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00016858 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
0001685e 60 f2                    |`       |		BRA	0x16852
00016860					switch@0x1683c[0x2]:
00016860 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
00016864 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00016866 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
0001686c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001686e 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
00016872 4e 5e                    |N^      |		UNLK	A6
00016874 4e 75                    |Nu      |		RTS
00016876 ; --------------------------------------------------------------------------------------
00016876 ; FSCALL_1042c
00016876 ; OMSI PASCAL Function
00016876 ;    <LVAR -0x006 @ 1(r)>
00016876 ; --------------------------------------------------------------------------------------
00016876					_FSCALL_1042c:
00016876 4e 56 ff 86              |NV      |		LINK.W	A6,#0xff86
0001687a bf d5                    |        |		CMPA.L	(A5),A7
0001687c 62 06                    |b       |		BHI	0x16884
0001687e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00016882 4e 76                    |Nv      |		TRAPV
00016884 de fc 00 72              |   r    |		ADDA.W	#0x72,A7
00016888 48 e7 f7 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D3+D2+D1+D0,-(A7)
0001688c 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00016890 72 01                    |r       |		MOVEQ.L	#0x01,D1
00016892 74 36                    |t6      |		MOVEQ.L	#0x36,D2
00016894 76 03                    |v       |		MOVEQ.L	#0x03,D3
00016896 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00016898 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0001689a 4e ba f8 1e              |N       |		JSR	0x160ba
0001689e 10 1f                    |        |		MOVE.B	(A7)+,D0
000168a0 48 80                    |H       |		EXTB.W	D0
000168a2 41 81                    |A       |		CHK.W	D1,D0
000168a4 1a 00                    |        |		MOVE.B	D0,D5
000168a6 1f 01                    |        |		MOVE.B	D1,-(A7)
000168a8 48 52                    |HR      |		PEA.L	(A2)
000168aa 4e ba fd 88              |N       |		JSR	_FSCALL_10414
000168ae 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000168b0 4e ba fd 66              |N  f    |		JSR	_FSCALL_10410
000168b4 9e c2                    |        |		SUBA.W	D2,A7
000168b6 20 4f                    | O      |		MOVEA.L	A7,A0
000168b8 43 fa f5 8c              |C       |		LEA.L	0x15e46,A1
000168bc 70 34                    |p4      |		MOVEQ.L	#0x34,D0
000168be 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000168c0 51 c8 ff fc              |Q       |		DBF	D0,0x168be
000168c4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000168c6 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000168ca 3f 01                    |?       |		MOVE.W	D1,-(A7)
000168cc 3f 3c 00 35              |?< 5    |		MOVE.W	#0x35,-(A7)
000168d0 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
000168d6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000168d8 48 78 00 00              |Hx      |		PEA.L	0x0
000168dc 48 78 00 03              |Hx      |		PEA.L	0x3
000168e0 4e b9 00 01 59 42        |N   YB  |		JSR	_AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
000168e6 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000168ea 20 1f                    |        |		MOVE.L	(A7)+,D0
000168ec b0 83                    |        |		CMP.L	D3,D0
000168ee 63 02                    |c       |		BLS	0x168f2
000168f0 4e 4f                    |NO      |		TRAP	#15
000168f2 de c2                    |        |		ADDA.W	D2,A7
000168f4 3c 00                    |<       |		MOVE.W	D0,D6
000168f6 4d 83                    |M       |		CHK.W	D3,D6
000168f8 3f 06                    |?       |		MOVE.W	D6,-(A7)
000168fa 1f 05                    |        |		MOVE.B	D5,-(A7)
000168fc 44 17                    |D       |		NEG.B	(A7)
000168fe 52 17                    |R       |		ADDQ.B	#0x1,(A7)
00016900 1f 01                    |        |		MOVE.B	D1,-(A7)
00016902 48 52                    |HR      |		PEA.L	(A2)
00016904 4e ba fc 5c              |N  \    |		JSR	_FSCALL_1040c
00016908 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001690c 4a 12                    |J       |		TST.B	(A2)
0001690e 66 04                    |f       |		BNE	0x16914
00016910 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00016912 60 16                    |`       |		BRA	0x1692a
00016914 1f 01                    |        |		MOVE.B	D1,-(A7)
00016916 48 52                    |HR      |		PEA.L	(A2)
00016918 4e ba fe 9e              |N       |		JSR	_FSCALL_10428
0001691c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001691e 4a 39 00 01 b5 cc        |J9      |		TST.B	0x1b5cc
00016924 67 04                    |g       |		BEQ	0x1692a
00016926 4e ba fc f0              |N       |		JSR	_FSCALL_10410
0001692a 4a 07                    |J       |		TST.B	D7
0001692c 67 86                    |g       |		BEQ	0x168b4
0001692e 4c df 07 ef              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D5+D6+D7+A0+A1+A2
00016932 4e 5e                    |N^      |		UNLK	A6
00016934 4e 75                    |Nu      |		RTS
00016936 ; --------------------------------------------------------------------------------------
00016936 ; FSCALL_10430
00016936 ; OMSI PASCAL Function
00016936 ;    <LVAR  0x008 4(w)>
00016936 ; --------------------------------------------------------------------------------------
00016936					_FSCALL_10430:
00016936 4e 56 ff fc              |NV      |		LINK.W	A6,#0xfffc
0001693a bf d5                    |        |		CMPA.L	(A5),A7
0001693c 62 06                    |b       |		BHI	0x16944
0001693e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00016942 4e 76                    |Nv      |		TRAPV
00016944 de fc 00 04              |        |		ADDA.W	#0x4,A7
00016948 2d 79 00 01 b5 ce 00 08  |-y      |		MOVE.L	0x1b5ce,(A6+0x8)
00016950 4e 5e                    |N^      |		UNLK	A6
00016952 4e 75                    |Nu      |		RTS
00016954 57 72 69 74 69 6e 67 20  |Writing |		.TXT	'Writing ->_ '
00016960 4f 62 73 6f 6c 65 74 65  |Obsolete|		.TXT	'Obsolete tape header version. '
0001697e 52 65 61 64 69 6e 67 20  |Reading |		.TXT	'Reading ->_ '
0001698a 46 69 6c 65              |File    |		.TXT	'File'
0001698e 20 6f 70 65              | ope    |		.TXT	' ope'
00016992 6e 20 65 72              |n er    |		.TXT	'n er'
00016996 72 6f 72 2e              |ror.    |		.TXT	'ror.'
0001699a 55 6e 72 65 63 6f 76 65  |Unrecove|		.TXT	'Unrecoverable file error. '
000169b4 46 69 6c 65 20 63 6c 6f  |File clo|		.TXT	'File close error. '
000169c6 ; --------------------------------------------------------------------------------------
000169c6 ; OMSI PASCAL Function
000169c6 ;    <LVAR  0x008 4(r)>
000169c6 ;    <LVAR -0x008 4(rw)>
000169c6 ; --------------------------------------------------------------------------------------
000169c6 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
000169ca bf d5                    |        |		CMPA.L	(A5),A7
000169cc 62 06                    |b       |		BHI	0x169d4
000169ce 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000169d2 4e 76                    |Nv      |		TRAPV
000169d4 de fc 00 20              |        |		ADDA.W	#0x20,A7
000169d8 48 e7 80 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D0,-(A7)
000169dc 41 f9 00 01 b5 e8        |A       |		LEA.L	0x1b5e8,A0
000169e2 2f 08                    |/       |		MOVE.L	A0,-(A7)
000169e4 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
000169e8 20 6e ff f8              | n      |		MOVEA.L	(A6-0x8),A0
000169ec 22 6e 00 08              |"n      |		MOVEA.L	(A6+0x8),A1
000169f0 24 48                    |$H      |		MOVEA.L	A0,A2
000169f2 26 49                    |&I      |		MOVEA.L	A1,A3
000169f4 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000169f6 14 db                    |        |		MOVE.B	(A3)+,(A2)+
000169f8 51 c8 ff fc              |Q       |		DBF	D0,0x169f6
000169fc 30 29 00 20              |0)      |		MOVE.W	(A1+0x20),D0
00016a00 41 bc 40 00              |A @     |		CHK.W	#0x4000,D0
00016a04 31 40 00 1e              |1@      |		MOVE.W	D0,(A0+0x1e)
00016a08 11 69 00 3a 00 24        | i : $  |		MOVE.B	(A1+0x3a),(A0+0x24)
00016a0e 11 69 00 3b 00 25        | i ; %  |		MOVE.B	(A1+0x3b),(A0+0x25)
00016a14 11 69 00 3c 00 26        | i < &  |		MOVE.B	(A1+0x3c),(A0+0x26)
00016a1a 11 69 00 3d 00 27        | i = '  |		MOVE.B	(A1+0x3d),(A0+0x27)
00016a20 31 7c 04 00 00 20        |1|      |		MOVE.W	#0x400,(A0+0x20)
00016a26 31 7c 00 01 00 28        |1|   (  |		MOVE.W	#0x1,(A0+0x28)
00016a2c 10 29 00 3f              | ) ?    |		MOVE.B	(A1+0x3f),D0
00016a30 ed 08                    |        |		LSL.B	#0x6,D0
00016a32 ee 08                    |        |		LSR.B	#0x7,D0
00016a34 11 40 00 23              | @ #    |		MOVE.B	D0,(A0+0x23)
00016a38 10 29 00 3f              | ) ?    |		MOVE.B	(A1+0x3f),D0
00016a3c eb 08                    |        |		LSL.B	#0x5,D0
00016a3e ee 08                    |        |		LSR.B	#0x7,D0
00016a40 11 40 00 22              | @ "    |		MOVE.B	D0,(A0+0x22)
00016a44 4c df 0f 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2+A3
00016a48 4e 5e                    |N^      |		UNLK	A6
00016a4a 4e 75                    |Nu      |		RTS
00016a4c ; --------------------------------------------------------------------------------------
00016a4c ; FSCALL_10434
00016a4c ; OMSI PASCAL Function
00016a4c ;    <LVAR  0x010 1(r)>
00016a4c ;    <LVAR  0x00c 4(r)>
00016a4c ;    <LVAR  0x008 4(r)>
00016a4c ;    <LVAR -0x004 1(rw)>
00016a4c ;    <LVAR -0x008 4(w)>
00016a4c ;    <LVAR -0x00c 4(w)>
00016a4c ;    <LVAR -0x012 @ 1(r)>
00016a4c ;    <LVAR -0x013 1(r)>
00016a4c ;    <LVAR -0x014 @ 1(r)>
00016a4c ; --------------------------------------------------------------------------------------
00016a4c					_FSCALL_10434:
00016a4c 4e 56 ff 70              |NV p    |		LINK.W	A6,#0xff70
00016a50 bf d5                    |        |		CMPA.L	(A5),A7
00016a52 62 06                    |b       |		BHI	0x16a5a
00016a54 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00016a58 4e 76                    |Nv      |		TRAPV
00016a5a de fc 00 76              |   v    |		ADDA.W	#0x76,A7
00016a5e 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00016a62 45 ee ff ec              |E       |		LEA.L	(A6-0x14),A2
00016a66 47 ee 00 08              |G       |		LEA.L	(A6+0x8),A3
00016a6a 49 f9 00 01 67 b8        |I   g   |		LEA.L	_FSCALL_10428,A4
00016a70 74 01                    |t       |		MOVEQ.L	#0x01,D2
00016a72 76 02                    |v       |		MOVEQ.L	#0x02,D3
00016a74 78 1e                    |x       |		MOVEQ.L	#0x1e,D4
00016a76 41 f9 00 01 b5 e8        |A       |		LEA.L	0x1b5e8,A0
00016a7c 2f 08                    |/       |		MOVE.L	A0,-(A7)
00016a7e 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
00016a82 41 f9 00 01 b9 e8        |A       |		LEA.L	0x1b9e8,A0
00016a88 2f 08                    |/       |		MOVE.L	A0,-(A7)
00016a8a 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
00016a8e 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00016a90 4e ba ff 34              |N  4    |		JSR	0x169c6
00016a94 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00016a96 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00016a98 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00016a9a 7a 40                    |z@      |		MOVEQ.L	#0x40,D5
00016a9c 4a 2e 00 10              |J.      |		TST.B	(A6+0x10)
00016aa0 67 56                    |gV      |		BEQ	0x16af8
00016aa2 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00016aa6 20 4f                    | O      |		MOVEA.L	A7,A0
00016aa8 43 fa fe aa              |C       |		LEA.L	0x16954,A1
00016aac 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00016aae 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00016ab0 51 c8 ff fc              |Q       |		DBF	D0,0x16aae
00016ab4 20 53                    | S      |		MOVEA.L	(A3),A0
00016ab6 9e c4                    |        |		SUBA.W	D4,A7
00016ab8 22 4f                    |"O      |		MOVEA.L	A7,A1
00016aba 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00016abc 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00016abe 51 c8 ff fc              |Q       |		DBF	D0,0x16abc
00016ac2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00016ac4 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00016ac8 3f 02                    |?       |		MOVE.W	D2,-(A7)
00016aca 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00016ace 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00016ad4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00016ad6 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00016ada 3f 02                    |?       |		MOVE.W	D2,-(A7)
00016adc 3f 04                    |?       |		MOVE.W	D4,-(A7)
00016ade 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00016ae4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00016ae6 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00016aec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00016aee 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
00016af4 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00016af8 20 53                    | S      |		MOVEA.L	(A3),A0
00016afa 30 28 00 20              |0(      |		MOVE.W	(A0+0x20),D0
00016afe 48 c0                    |H       |		EXTW.L	D0
00016b00 b0 ae 00 0c              |        |		CMP.L	(A6+0xc),D0
00016b04 6d 08                    |m       |		BLT	0x16b0e
00016b06 1d 7c 00 06 ff fc        | |      |		MOVE.B	#0x06,(A6-0x4)
00016b0c 60 06                    |`       |		BRA	0x16b14
00016b0e 1d 7c 00 07 ff fc        | |      |		MOVE.B	#0x07,(A6-0x4)
00016b14 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
00016b18 48 80                    |H       |		EXTB.W	D0
00016b1a 41 bc 00 0b              |A       |		CHK.W	#0xb,D0
00016b1e 1f 00                    |        |		MOVE.B	D0,-(A7)
00016b20 48 52                    |HR      |		PEA.L	(A2)
00016b22 4e b9 00 01 66 34        |N   f4  |		JSR	_FSCALL_10414
00016b28 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016b2a 4a 12                    |J       |		TST.B	(A2)
00016b2c 67 08                    |g       |		BEQ	0x16b36
00016b2e 1f 03                    |        |		MOVE.B	D3,-(A7)
00016b30 48 52                    |HR      |		PEA.L	(A2)
00016b32 4e 94                    |N       |		JSR	(A4)
00016b34 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016b36 30 28 00 20              |0(      |		MOVE.W	(A0+0x20),D0
00016b3a 53 40                    |S@      |		SUBQ.W	#0x1,D0
00016b3c 48 c0                    |H       |		EXTW.L	D0
00016b3e 2f 00                    |/       |		MOVE.L	D0,-(A7)
00016b40 70 00                    |p       |		MOVEQ.L	#0x00,D0
00016b42 b0 97                    |        |		CMP.L	(A7),D0
00016b44 6e 00 00 b2              |n       |		BGT	0x16bf8
00016b48 4f 82                    |O       |		CHK.W	D2,D7
00016b4a 42 81                    |B       |		CLR.L	D1
00016b4c 32 07                    |2       |		MOVE.W	D7,D1
00016b4e e5 81                    |        |		ASL.L	#0x2,D1
00016b50 2f 36 18 f4              |/6      |		MOVE.L	(A6+D1.L-#0xc),-(A7)
00016b54 3f 05                    |?       |		MOVE.W	D5,-(A7)
00016b56 4e b9 00 01 66 d0        |N   f   |		JSR	_FSCALL_1041c
00016b5c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00016b5e 2e 93                    |.       |		MOVE.L	(A3),(A7)
00016b60 0c 80 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D0
00016b66 63 02                    |c       |		BLS	0x16b6a
00016b68 4e 4f                    |NO      |		TRAP	#15
00016b6a 3f 00                    |?       |		MOVE.W	D0,-(A7)
00016b6c 42 67                    |Bg      |		CLR.W	-(A7)
00016b6e 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00016b72 1f 02                    |        |		MOVE.B	D2,-(A7)
00016b74 4d 82                    |M       |		CHK.W	D2,D6
00016b76 42 81                    |B       |		CLR.L	D1
00016b78 32 06                    |2       |		MOVE.W	D6,D1
00016b7a e5 81                    |        |		ASL.L	#0x2,D1
00016b7c 2f 36 18 f4              |/6      |		MOVE.L	(A6+D1.L-#0xc),-(A7)
00016b80 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00016b84 4e b9 00 01 3a d8        |N   :   |		JSR	_ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00016b8a de fc 00 14              |        |		ADDA.W	#0x14,A7
00016b8e 48 52                    |HR      |		PEA.L	(A2)
00016b90 4e b9 00 01 63 fe        |N   c   |		JSR	_FSCALL_10408
00016b96 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00016b98 4a 12                    |J       |		TST.B	(A2)
00016b9a 67 08                    |g       |		BEQ	0x16ba4
00016b9c 1f 03                    |        |		MOVE.B	D3,-(A7)
00016b9e 48 52                    |HR      |		PEA.L	(A2)
00016ba0 4e 94                    |N       |		JSR	(A4)
00016ba2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016ba4 4a 2e ff ee              |J.      |		TST.B	(A6-0x12)
00016ba8 67 0e                    |g       |		BEQ	0x16bb8
00016baa 1f 02                    |        |		MOVE.B	D2,-(A7)
00016bac 48 78 00 01              |Hx      |		PEA.L	0x1
00016bb0 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
00016bb6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016bb8 4a 2e ff ed              |J.      |		TST.B	(A6-0x13)
00016bbc 67 22                    |g"      |		BEQ	0x16be0
00016bbe 4e b9 00 01 67 1e        |N   g   |		JSR	_FSCALL_10420
00016bc4 48 52                    |HR      |		PEA.L	(A2)
00016bc6 4e b9 00 01 63 fe        |N   c   |		JSR	_FSCALL_10408
00016bcc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00016bce 4a 12                    |J       |		TST.B	(A2)
00016bd0 67 08                    |g       |		BEQ	0x16bda
00016bd2 1f 03                    |        |		MOVE.B	D3,-(A7)
00016bd4 48 52                    |HR      |		PEA.L	(A2)
00016bd6 4e 94                    |N       |		JSR	(A4)
00016bd8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016bda 4e b9 00 01 68 76        |N   hv  |		JSR	_FSCALL_1042c
00016be0 4a 47                    |JG      |		TST.W	D7
00016be2 66 06                    |f       |		BNE	0x16bea
00016be4 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00016be6 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00016be8 60 04                    |`       |		BRA	0x16bee
00016bea 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00016bec 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00016bee 3a 3c 04 00              |:<      |		MOVE.W	#0x400,D5
00016bf2 52 80                    |R       |		ADDQ.L	#0x1,D0
00016bf4 68 00 ff 4c              |h  L    |		BVC	0x16b42
00016bf8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00016bfa 4f 82                    |O       |		CHK.W	D2,D7
00016bfc 42 80                    |B       |		CLR.L	D0
00016bfe 30 07                    |0       |		MOVE.W	D7,D0
00016c00 e5 80                    |        |		ASL.L	#0x2,D0
00016c02 2f 36 08 f4              |/6      |		MOVE.L	(A6+D0.L-#0xc),-(A7)
00016c06 3f 05                    |?       |		MOVE.W	D5,-(A7)
00016c08 4e b9 00 01 66 d0        |N   f   |		JSR	_FSCALL_1041c
00016c0e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016c10 48 52                    |HR      |		PEA.L	(A2)
00016c12 4e b9 00 01 63 fe        |N   c   |		JSR	_FSCALL_10408
00016c18 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00016c1a 4a 12                    |J       |		TST.B	(A2)
00016c1c 67 08                    |g       |		BEQ	0x16c26
00016c1e 1f 03                    |        |		MOVE.B	D3,-(A7)
00016c20 48 52                    |HR      |		PEA.L	(A2)
00016c22 4e 94                    |N       |		JSR	(A4)
00016c24 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016c26 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00016c2a 4e 5e                    |N^      |		UNLK	A6
00016c2c 4e 75                    |Nu      |		RTS
00016c2e ; --------------------------------------------------------------------------------------
00016c2e ; FSCALL_10438
00016c2e ; OMSI PASCAL Function
00016c2e ;    <LVAR  0x012 1(r)>
00016c2e ;    <LVAR  0x010 1(r)>
00016c2e ;    <LVAR  0x00c 4(r)>
00016c2e ;    <LVAR  0x008 4(r)>
00016c2e ;    <LVAR -0x004 1(rw)>
00016c2e ;    <LVAR -0x008 4(rw)>
00016c2e ;    <LVAR -0x00c 4(w)>
00016c2e ;    <LVAR -0x010 4(w)>
00016c2e ;    <LVAR -0x018 @ 4(r)>
00016c2e ;    <LVAR -0x01c @ 4(rw)>
00016c2e ;    <LVAR -0x034 2(r)>
00016c2e ;    <LVAR -0x035 1(r)>
00016c2e ;    <LVAR -0x036 1(r)>
00016c2e ;    <LVAR -0x037 1(r)>
00016c2e ;    <LVAR -0x038 1(r)>
00016c2e ;    <LVAR -0x039 1(r)>
00016c2e ;    <LVAR -0x03a 1(r)>
00016c2e ;    <LVAR -0x03e 2(r)>
00016c2e ;    <LVAR -0x05c @>
00016c2e ;    <LVAR -0x05d @ 1(r)>
00016c2e ;    <LVAR -0x05e 1(r)>
00016c2e ;    <LVAR -0x05f @ 1(r)>
00016c2e ; --------------------------------------------------------------------------------------
00016c2e					_FSCALL_10438:
00016c2e 4e 56 ff 26              |NV &    |		LINK.W	A6,#0xff26
00016c32 bf d5                    |        |		CMPA.L	(A5),A7
00016c34 62 06                    |b       |		BHI	0x16c3c
00016c36 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00016c3a 4e 76                    |Nv      |		TRAPV
00016c3c de fc 00 76              |   v    |		ADDA.W	#0x76,A7
00016c40 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00016c44 45 ee ff a1              |E       |		LEA.L	(A6-0x5f),A2
00016c48 47 f9 00 01 0d dc        |G       |		LEA.L	_StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00016c4e 49 ee ff c2              |I       |		LEA.L	(A6-0x3e),A4
00016c52 74 01                    |t       |		MOVEQ.L	#0x01,D2
00016c54 76 02                    |v       |		MOVEQ.L	#0x02,D3
00016c56 78 06                    |x       |		MOVEQ.L	#0x06,D4
00016c58 41 f9 00 01 b5 e8        |A       |		LEA.L	0x1b5e8,A0
00016c5e 2f 08                    |/       |		MOVE.L	A0,-(A7)
00016c60 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00016c64 41 f9 00 01 b9 e8        |A       |		LEA.L	0x1b9e8,A0
00016c6a 2f 08                    |/       |		MOVE.L	A0,-(A7)
00016c6c 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
00016c70 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00016c72 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00016c74 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00016c78 2f 08                    |/       |		MOVE.L	A0,-(A7)
00016c7a 10 82                    |        |		MOVE.B	D2,(A0)
00016c7c 43 ee ff a4              |C       |		LEA.L	(A6-0x5c),A1
00016c80 2f 09                    |/       |		MOVE.L	A1,-(A7)
00016c82 3f 3c 00 40              |?< @    |		MOVE.W	#0x40,-(A7)
00016c86 4e b9 00 01 66 82        |N   f   |		JSR	_FSCALL_10418
00016c8c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016c8e 48 52                    |HR      |		PEA.L	(A2)
00016c90 4e b9 00 01 63 fe        |N   c   |		JSR	_FSCALL_10408
00016c96 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00016c98 10 12                    |        |		MOVE.B	(A2),D0
00016c9a b0 04                    |        |		CMP.B	D4,D0
00016c9c 66 1c                    |f       |		BNE	0x16cba
00016c9e 41 ee ff a4              |A       |		LEA.L	(A6-0x5c),A0
00016ca2 2f 08                    |/       |		MOVE.L	A0,-(A7)
00016ca4 3f 3c 00 40              |?< @    |		MOVE.W	#0x40,-(A7)
00016ca8 4e b9 00 01 66 82        |N   f   |		JSR	_FSCALL_10418
00016cae 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016cb0 48 52                    |HR      |		PEA.L	(A2)
00016cb2 4e b9 00 01 63 fe        |N   c   |		JSR	_FSCALL_10408
00016cb8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00016cba 10 12                    |        |		MOVE.B	(A2),D0
00016cbc b0 04                    |        |		CMP.B	D4,D0
00016cbe 66 26                    |f&      |		BNE	0x16ce6
00016cc0 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
00016cc4 48 52                    |HR      |		PEA.L	(A2)
00016cc6 4e b9 00 01 66 34        |N   f4  |		JSR	_FSCALL_10414
00016ccc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016cce 4a 12                    |J       |		TST.B	(A2)
00016cd0 67 0c                    |g       |		BEQ	0x16cde
00016cd2 1f 03                    |        |		MOVE.B	D3,-(A7)
00016cd4 48 52                    |HR      |		PEA.L	(A2)
00016cd6 4e b9 00 01 67 b8        |N   g   |		JSR	_FSCALL_10428
00016cdc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016cde 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00016ce0 60 00 03 cc              |`       |		BRA	0x170ae
00016ce4 60 56                    |`V      |		.XXX[0x2]
00016ce6 4a 2e ff a2              |J.      |		TST.B	(A6-0x5e)
00016cea 67 02                    |g       |		BEQ	0x16cee
00016cec 60 f0                    |`       |		BRA	0x16cde
00016cee 4a 00                    |J       |		TST.B	D0
00016cf0 67 0e                    |g       |		BEQ	0x16d00
00016cf2 1f 03                    |        |		MOVE.B	D3,-(A7)
00016cf4 48 52                    |HR      |		PEA.L	(A2)
00016cf6 4e b9 00 01 67 b8        |N   g   |		JSR	_FSCALL_10428
00016cfc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016cfe 60 3c                    |`<      |		BRA	0x16d3c
00016d00 20 57                    | W      |		MOVEA.L	(A7),A0
00016d02 42 10                    |B       |		CLR.B	(A0)
00016d04 30 2e ff cc              |0.      |		MOVE.W	(A6-0x34),D0
00016d08 b0 42                    | B      |		CMP.W	D2,D0
00016d0a 67 30                    |g0      |		BEQ	0x16d3c
00016d0c 9e fc 00 1e              |        |		SUBA.W	#0x1e,A7
00016d10 20 4f                    | O      |		MOVEA.L	A7,A0
00016d12 43 fa fc 4c              |C  L    |		LEA.L	0x16960,A1
00016d16 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00016d18 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00016d1a 51 c8 ff fc              |Q       |		DBF	D0,0x16d18
00016d1e 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
00016d22 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00016d24 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00016d28 3f 02                    |?       |		MOVE.W	D2,-(A7)
00016d2a 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
00016d2e 4e 93                    |N       |		JSR	(A3)
00016d30 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00016d32 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
00016d38 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00016d3c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00016d3e 4a 2e 00 12              |J.      |		TST.B	(A6+0x12)
00016d42 67 4c                    |gL      |		BEQ	0x16d90
00016d44 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00016d48 20 4f                    | O      |		MOVEA.L	A7,A0
00016d4a 43 fa fc 32              |C  2    |		LEA.L	0x1697e,A1
00016d4e 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00016d50 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00016d52 51 c8 ff fc              |Q       |		DBF	D0,0x16d50
00016d56 20 4c                    | L      |		MOVEA.L	A4,A0
00016d58 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00016d5a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00016d5c 51 c8 ff fc              |Q       |		DBF	D0,0x16d5a
00016d60 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00016d62 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00016d66 3f 02                    |?       |		MOVE.W	D2,-(A7)
00016d68 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00016d6c 4e 93                    |N       |		JSR	(A3)
00016d6e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00016d70 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00016d74 3f 02                    |?       |		MOVE.W	D2,-(A7)
00016d76 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
00016d7a 4e 93                    |N       |		JSR	(A3)
00016d7c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00016d7e 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00016d84 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00016d86 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
00016d8c de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00016d90 4a 2e 00 10              |J.      |		TST.B	(A6+0x10)
00016d94 67 12                    |g       |		BEQ	0x16da8
00016d96 30 14                    |0       |		MOVE.W	(A4),D0
00016d98 48 c0                    |H       |		EXTW.L	D0
00016d9a b0 ae 00 0c              |        |		CMP.L	(A6+0xc),D0
00016d9e 6c 08                    |l       |		BGE	0x16da8
00016da0 1d 7c 00 07 ff fc        | |      |		MOVE.B	#0x07,(A6-0x4)
00016da6 60 04                    |`       |		BRA	0x16dac
00016da8 1d 44 ff fc              | D      |		MOVE.B	D4,(A6-0x4)
00016dac 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
00016db0 48 80                    |H       |		EXTB.W	D0
00016db2 41 bc 00 0b              |A       |		CHK.W	#0xb,D0
00016db6 1f 00                    |        |		MOVE.B	D0,-(A7)
00016db8 48 52                    |HR      |		PEA.L	(A2)
00016dba 4e b9 00 01 66 34        |N   f4  |		JSR	_FSCALL_10414
00016dc0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016dc2 4a 12                    |J       |		TST.B	(A2)
00016dc4 67 0c                    |g       |		BEQ	0x16dd2
00016dc6 1f 03                    |        |		MOVE.B	D3,-(A7)
00016dc8 48 52                    |HR      |		PEA.L	(A2)
00016dca 4e b9 00 01 67 b8        |N   g   |		JSR	_FSCALL_10428
00016dd0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016dd2 4a 2e 00 10              |J.      |		TST.B	(A6+0x10)
00016dd6 66 10                    |f       |		BNE	0x16de8
00016dd8 1f 03                    |        |		MOVE.B	D3,-(A7)
00016dda 48 52                    |HR      |		PEA.L	(A2)
00016ddc 4e b9 00 01 66 34        |N   f4  |		JSR	_FSCALL_10414
00016de2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016de4 60 00 00 ea              |`       |		BRA	0x16ed0
00016de8 4f 82                    |O       |		CHK.W	D2,D7
00016dea 42 80                    |B       |		CLR.L	D0
00016dec 30 07                    |0       |		MOVE.W	D7,D0
00016dee e5 80                    |        |		ASL.L	#0x2,D0
00016df0 2f 36 08 f0              |/6      |		MOVE.L	(A6+D0.L-#0x10),-(A7)
00016df4 3f 3c 04 00              |?<      |		MOVE.W	#0x400,-(A7)
00016df8 4e b9 00 01 66 82        |N   f   |		JSR	_FSCALL_10418
00016dfe 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016e00 20 4c                    | L      |		MOVEA.L	A4,A0
00016e02 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00016e04 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00016e06 51 c8 ff fc              |Q       |		DBF	D0,0x16e04
00016e0a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00016e0c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00016e10 3f 02                    |?       |		MOVE.W	D2,-(A7)
00016e12 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
00016e16 4e 93                    |N       |		JSR	(A3)
00016e18 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00016e1a 2d 5f ff e4              |-_      |		MOVE.L	(A7)+,(A6-0x1c)
00016e1e de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00016e22 4a 2e ff c7              |J.      |		TST.B	(A6-0x39)
00016e26 67 06                    |g       |		BEQ	0x16e2e
00016e28 30 14                    |0       |		MOVE.W	(A4),D0
00016e2a 44 40                    |D@      |		NEG.W	D0
00016e2c 60 02                    |`       |		BRA	0x16e30
00016e2e 30 14                    |0       |		MOVE.W	(A4),D0
00016e30 48 c0                    |H       |		EXTW.L	D0
00016e32 2d 40 ff f8              |-@      |		MOVE.L	D0,(A6-0x8)
00016e36 2f 2e ff e4              |/.      |		MOVE.L	(A6-0x1c),-(A7)
00016e3a 1f 02                    |        |		MOVE.B	D2,-(A7)
00016e3c 1f 02                    |        |		MOVE.B	D2,-(A7)
00016e3e 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
00016e42 48 6e ff a3              |Hn      |		PEA.L	(A6-0x5d)
00016e46 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00016e4a 4e b9 00 01 38 a6        |N   8   |		JSR	_OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00016e50 de fc 00 14              |        |		ADDA.W	#0x14,A7
00016e54 4a 2e ff a3              |J.      |		TST.B	(A6-0x5d)
00016e58 67 36                    |g6      |		BEQ	0x16e90
00016e5a 48 52                    |HR      |		PEA.L	(A2)
00016e5c 4e b9 00 01 63 fe        |N   c   |		JSR	_FSCALL_10408
00016e62 2e ba fb 32              |.  2    |		MOVE.L	0x16996,(A7)
00016e66 2f 3a fb 2a              |/: *    |		MOVE.L	0x16992,-(A7)
00016e6a 2f 3a fb 22              |/: "    |		MOVE.L	0x1698e,-(A7)
00016e6e 2f 3a fb 1a              |/:      |		MOVE.L	0x1698a,-(A7)
00016e72 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00016e76 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00016e78 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00016e7c 3f 02                    |?       |		MOVE.W	D2,-(A7)
00016e7e 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
00016e82 4e 93                    |N       |		JSR	(A3)
00016e84 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00016e86 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
00016e8c de fc 00 16              |        |		ADDA.W	#0x16,A7
00016e90 20 6e ff e8              | n      |		MOVEA.L	(A6-0x18),A0
00016e94 10 2e ff c7              | .      |		MOVE.B	(A6-0x39),D0
00016e98 02 28 00 fd 00 3f        | (   ?  |		ANDI.B	#0xfd,(A0+0x3f)
00016e9e e3 08                    |        |		LSL.B	#0x1,D0
00016ea0 81 28 00 3f              | ( ?    |		OR.B	D0,(A0+0x3f)
00016ea4 10 2e ff c6              | .      |		MOVE.B	(A6-0x3a),D0
00016ea8 02 28 00 fb 00 3f        | (   ?  |		ANDI.B	#0xfb,(A0+0x3f)
00016eae e5 08                    |        |		LSL.B	#0x2,D0
00016eb0 81 28 00 3f              | ( ?    |		OR.B	D0,(A0+0x3f)
00016eb4 11 6e ff c8 00 3a        | n   :  |		MOVE.B	(A6-0x38),(A0+0x3a)
00016eba 11 6e ff c9 00 3b        | n   ;  |		MOVE.B	(A6-0x37),(A0+0x3b)
00016ec0 11 6e ff ca 00 3c        | n   <  |		MOVE.B	(A6-0x36),(A0+0x3c)
00016ec6 11 6e ff cb 00 3d        | n   =  |		MOVE.B	(A6-0x35),(A0+0x3d)
00016ecc 11 42 00 4c              | B L    |		MOVE.B	D2,(A0+0x4c)
00016ed0 30 14                    |0       |		MOVE.W	(A4),D0
00016ed2 53 40                    |S@      |		SUBQ.W	#0x1,D0
00016ed4 48 c0                    |H       |		EXTW.L	D0
00016ed6 2f 00                    |/       |		MOVE.L	D0,-(A7)
00016ed8 70 00                    |p       |		MOVEQ.L	#0x00,D0
00016eda b0 97                    |        |		CMP.L	(A7),D0
00016edc 6f 06                    |o       |		BLE	0x16ee4
00016ede 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00016ee0 60 00 01 3c              |`  <    |		BRA	0x1701e
00016ee4 2f 00                    |/       |		MOVE.L	D0,-(A7)
00016ee6 7a 00                    |z       |		MOVEQ.L	#0x00,D5
00016ee8 30 14                    |0       |		MOVE.W	(A4),D0
00016eea 53 40                    |S@      |		SUBQ.W	#0x1,D0
00016eec 22 17                    |"       |		MOVE.L	(A7),D1
00016eee 48 c0                    |H       |		EXTW.L	D0
00016ef0 b2 80                    |        |		CMP.L	D0,D1
00016ef2 66 02                    |f       |		BNE	0x16ef6
00016ef4 52 05                    |R       |		ADDQ.B	#0x1,D5
00016ef6 4a 2e 00 10              |J.      |		TST.B	(A6+0x10)
00016efa 67 0a                    |g       |		BEQ	0x16f06
00016efc 48 52                    |HR      |		PEA.L	(A2)
00016efe 4e b9 00 01 63 fe        |N   c   |		JSR	_FSCALL_10408
00016f04 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00016f06 10 12                    |        |		MOVE.B	(A2),D0
00016f08 b0 04                    |        |		CMP.B	D4,D0
00016f0a 66 38                    |f8      |		BNE	0x16f44
00016f0c 4e b9 00 01 68 76        |N   hv  |		JSR	_FSCALL_1042c
00016f12 4a 2e 00 10              |J.      |		TST.B	(A6+0x10)
00016f16 66 0c                    |f       |		BNE	0x16f24
00016f18 1f 03                    |        |		MOVE.B	D3,-(A7)
00016f1a 48 52                    |HR      |		PEA.L	(A2)
00016f1c 4e b9 00 01 66 34        |N   f4  |		JSR	_FSCALL_10414
00016f22 60 1a                    |`       |		BRA	0x16f3e
00016f24 4a 05                    |J       |		TST.B	D5
00016f26 66 18                    |f       |		BNE	0x16f40
00016f28 4f 82                    |O       |		CHK.W	D2,D7
00016f2a 42 80                    |B       |		CLR.L	D0
00016f2c 30 07                    |0       |		MOVE.W	D7,D0
00016f2e e5 80                    |        |		ASL.L	#0x2,D0
00016f30 2f 36 08 f0              |/6      |		MOVE.L	(A6+D0.L-#0x10),-(A7)
00016f34 3f 3c 04 00              |?<      |		MOVE.W	#0x400,-(A7)
00016f38 4e b9 00 01 66 82        |N   f   |		JSR	_FSCALL_10418
00016f3e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016f40 60 a4                    |`       |		BRA	0x16ee6
00016f42 60 10                    |`       |		.XXX[0x2]
00016f44 4a 00                    |J       |		TST.B	D0
00016f46 67 0c                    |g       |		BEQ	0x16f54
00016f48 1f 03                    |        |		MOVE.B	D3,-(A7)
00016f4a 48 52                    |HR      |		PEA.L	(A2)
00016f4c 4e b9 00 01 67 b8        |N   g   |		JSR	_FSCALL_10428
00016f52 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016f54 4a 47                    |JG      |		TST.W	D7
00016f56 66 06                    |f       |		BNE	0x16f5e
00016f58 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00016f5a 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00016f5c 60 04                    |`       |		BRA	0x16f62
00016f5e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00016f60 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00016f62 4a 2e 00 10              |J.      |		TST.B	(A6+0x10)
00016f66 67 00 00 9a              |g       |		BEQ	0x17002
00016f6a 4a 05                    |J       |		TST.B	D5
00016f6c 66 18                    |f       |		BNE	0x16f86
00016f6e 4f 82                    |O       |		CHK.W	D2,D7
00016f70 42 80                    |B       |		CLR.L	D0
00016f72 30 07                    |0       |		MOVE.W	D7,D0
00016f74 e5 80                    |        |		ASL.L	#0x2,D0
00016f76 2f 36 08 f0              |/6      |		MOVE.L	(A6+D0.L-#0x10),-(A7)
00016f7a 3f 3c 04 00              |?<      |		MOVE.W	#0x400,-(A7)
00016f7e 4e b9 00 01 66 82        |N   f   |		JSR	_FSCALL_10418
00016f84 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00016f86 2f 2e ff e8              |/.      |		MOVE.L	(A6-0x18),-(A7)
00016f8a 20 2f 00 04              | /      |		MOVE.L	(A7+0x4),D0
00016f8e 0c 80 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D0
00016f94 63 02                    |c       |		BLS	0x16f98
00016f96 4e 4f                    |NO      |		TRAP	#15
00016f98 3f 00                    |?       |		MOVE.W	D0,-(A7)
00016f9a 42 67                    |Bg      |		CLR.W	-(A7)
00016f9c 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00016fa0 1f 02                    |        |		MOVE.B	D2,-(A7)
00016fa2 4d 82                    |M       |		CHK.W	D2,D6
00016fa4 42 80                    |B       |		CLR.L	D0
00016fa6 30 06                    |0       |		MOVE.W	D6,D0
00016fa8 e5 80                    |        |		ASL.L	#0x2,D0
00016faa 2f 36 08 f0              |/6      |		MOVE.L	(A6+D0.L-#0x10),-(A7)
00016fae 48 6e ff a3              |Hn      |		PEA.L	(A6-0x5d)
00016fb2 4e b9 00 01 3b aa        |N   ;   |		JSR	_WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00016fb8 de fc 00 14              |        |		ADDA.W	#0x14,A7
00016fbc 4a 2e ff a3              |J.      |		TST.B	(A6-0x5d)
00016fc0 67 3e                    |g>      |		BEQ	0x17000
00016fc2 4a 05                    |J       |		TST.B	D5
00016fc4 66 0a                    |f       |		BNE	0x16fd0
00016fc6 48 52                    |HR      |		PEA.L	(A2)
00016fc8 4e b9 00 01 63 fe        |N   c   |		JSR	_FSCALL_10408
00016fce 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00016fd0 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
00016fd4 20 4f                    | O      |		MOVEA.L	A7,A0
00016fd6 43 fa f9 c2              |C       |		LEA.L	0x1699a,A1
00016fda 70 18                    |p       |		MOVEQ.L	#0x18,D0
00016fdc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00016fde 51 c8 ff fc              |Q       |		DBF	D0,0x16fdc
00016fe2 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00016fe6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00016fe8 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00016fec 3f 02                    |?       |		MOVE.W	D2,-(A7)
00016fee 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
00016ff2 4e 93                    |N       |		JSR	(A3)
00016ff4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00016ff6 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
00016ffc de fc 00 20              |        |		ADDA.W	#0x20,A7
00017000 60 10                    |`       |		BRA	0x17012
00017002 4a 05                    |J       |		TST.B	D5
00017004 66 0c                    |f       |		BNE	0x17012
00017006 1f 03                    |        |		MOVE.B	D3,-(A7)
00017008 48 52                    |HR      |		PEA.L	(A2)
0001700a 4e b9 00 01 66 34        |N   f4  |		JSR	_FSCALL_10414
00017010 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00017012 20 17                    |        |		MOVE.L	(A7),D0
00017014 52 80                    |R       |		ADDQ.L	#0x1,D0
00017016 69 06                    |i       |		BVS	0x1701e
00017018 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001701a 60 00 fe be              |`       |		BRA	0x16eda
0001701e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017020 4a 2e 00 10              |J.      |		TST.B	(A6+0x10)
00017024 67 6a                    |gj      |		BEQ	0x17090
00017026 48 6e ff e4              |Hn      |		PEA.L	(A6-0x1c)
0001702a 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00017030 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00017032 42 17                    |B       |		CLR.B	(A7)
00017034 1f 02                    |        |		MOVE.B	D2,-(A7)
00017036 48 78 00 01              |Hx      |		PEA.L	0x1
0001703a 48 6e ff a3              |Hn      |		PEA.L	(A6-0x5d)
0001703e 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00017042 4e b9 00 01 3c 7c        |N   <|  |		JSR	_CloseFile(a : L; VAR status : B; VAR file : File)
00017048 de fc 00 10              |        |		ADDA.W	#0x10,A7
0001704c 4a 05                    |J       |		TST.B	D5
0001704e 66 0a                    |f       |		BNE	0x1705a
00017050 48 52                    |HR      |		PEA.L	(A2)
00017052 4e b9 00 01 63 fe        |N   c   |		JSR	_FSCALL_10408
00017058 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001705a 4a 2e ff a3              |J.      |		TST.B	(A6-0x5d)
0001705e 67 30                    |g0      |		BEQ	0x17090
00017060 9e fc 00 12              |        |		SUBA.W	#0x12,A7
00017064 20 4f                    | O      |		MOVEA.L	A7,A0
00017066 43 fa f9 4c              |C  L    |		LEA.L	0x169b4,A1
0001706a 70 10                    |p       |		MOVEQ.L	#0x10,D0
0001706c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0001706e 51 c8 ff fc              |Q       |		DBF	D0,0x1706c
00017072 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00017076 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00017078 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0001707c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001707e 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
00017082 4e 93                    |N       |		JSR	(A3)
00017084 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017086 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
0001708c de fc 00 18              |        |		ADDA.W	#0x18,A7
00017090 1f 3c 00 07              | <      |		MOVE.B	#0x07,-(A7)
00017094 48 52                    |HR      |		PEA.L	(A2)
00017096 4e b9 00 01 66 34        |N   f4  |		JSR	_FSCALL_10414
0001709c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001709e 4a 12                    |J       |		TST.B	(A2)
000170a0 67 0c                    |g       |		BEQ	0x170ae
000170a2 1f 03                    |        |		MOVE.B	D3,-(A7)
000170a4 48 52                    |HR      |		PEA.L	(A2)
000170a6 4e b9 00 01 67 b8        |N   g   |		JSR	_FSCALL_10428
000170ac 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000170ae 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000170b2 4e 5e                    |N^      |		UNLK	A6
000170b4 4e 75                    |Nu      |		RTS
000170b6 ; --------------------------------------------------------------------------------------
000170b6 ; FileReadLine(file : File; VAR a : String; VAR b : Byte)
000170b6 ; Stack:
000170b6 ;     A6+0x10     file : File
000170b6 ;     A6+0xc  VAR a : String
000170b6 ;     A6+0x8  VAR b : Byte
000170b6 ; OMSI PASCAL Function
000170b6 ;    <LVAR  0x010 4(r)>
000170b6 ;    <LVAR  0x00c 4(r)>
000170b6 ;    <LVAR  0x008 4(r)>
000170b6 ;    <LVAR -0x002 @>
000170b6 ; --------------------------------------------------------------------------------------
000170b6					_FileReadLine(file : File; VAR a : String; VAR b : Byte):
000170b6 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
000170ba bf d5                    |        |		CMPA.L	(A5),A7
000170bc 62 06                    |b       |		BHI	0x170c4
000170be 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000170c2 4e 76                    |Nv      |		TRAPV
000170c4 de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
000170c8 48 e7 e7 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
000170cc 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
000170d0 47 ee 00 10              |G       |		LEA.L	(A6+0x10),A3
000170d4 22 3c ff ff 80 00        |"<      |		MOVE.L	#0xffff8000,D1
000170da 74 01                    |t       |		MOVEQ.L	#0x01,D2
000170dc 41 f9 00 01 bd f0        |A       |		LEA.L	0x1bdf0,A0
000170e2 2f 08                    |/       |		MOVE.L	A0,-(A7)
000170e4 2a 1f                    |*       |		MOVE.L	(A7)+,D5
000170e6 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000170ea 20 50                    | P      |		MOVEA.L	(A0),A0
000170ec 2f 08                    |/       |		MOVE.L	A0,-(A7)
000170ee 42 50                    |BP      |		CLR.W	(A0)
000170f0 22 53                    |"S      |		MOVEA.L	(A3),A1
000170f2 2f 09                    |/       |		MOVE.L	A1,-(A7)
000170f4 20 57                    | W      |		MOVEA.L	(A7),A0
000170f6 22 79 00 01 00 26        |"y   &  |		MOVEA.L	0x10026,A1
000170fc b3 d3                    |        |		CMPA.L	(A3),A1
000170fe 66 0c                    |f       |		BNE	0x1710c
00017100 30 39 00 01 00 2a        |09   *  |		MOVE.W	0x1002a,D0
00017106 b0 68 00 48              | h H    |		CMP.W	(A0+0x48),D0
0001710a 67 48                    |gH      |		BEQ	0x17154
0001710c 30 28 00 48              |0( H    |		MOVE.W	(A0+0x48),D0
00017110 b0 68 00 20              | h      |		CMP.W	(A0+0x20),D0
00017114 6d 0a                    |m       |		BLT	0x17120
00017116 22 52                    |"R      |		MOVEA.L	(A2),A1
00017118 12 82                    |        |		MOVE.B	D2,(A1)
0001711a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001711c 60 00 00 e0              |`       |		BRA	0x171fe
00017120 22 57                    |"W      |		MOVEA.L	(A7),A1
00017122 30 29 00 48              |0) H    |		MOVE.W	(A1+0x48),D0
00017126 41 bc 40 00              |A @     |		CHK.W	#0x4000,D0
0001712a 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0001712c 3f 00                    |?       |		MOVE.W	D0,-(A7)
0001712e 42 67                    |Bg      |		CLR.W	-(A7)
00017130 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00017134 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00017138 2f 05                    |/       |		MOVE.L	D5,-(A7)
0001713a 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
0001713e 4e b9 00 01 3a d8        |N   :   |		JSR	_ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00017144 de fc 00 14              |        |		ADDA.W	#0x14,A7
00017148 23 d3 00 01 00 26        |#    &  |		MOVE.L	(A3),0x10026
0001714e 33 c0 00 01 00 2a        |3    *  |		MOVE.W	D0,0x1002a
00017154 20 57                    | W      |		MOVEA.L	(A7),A0
00017156 30 28 00 4a              |0( J    |		MOVE.W	(A0+0x4a),D0
0001715a 41 bc 03 ff              |A       |		CHK.W	#0x3ff,D0
0001715e 43 f9 00 01 bd e8        |C       |		LEA.L	0x1bde8,A1
00017164 1c 31 00 08              | 1      |		MOVE.B	(A1+D0.W+#0x8),D6
00017168 66 06                    |f       |		BNE	0x17170
0001716a 20 52                    | R      |		MOVEA.L	(A2),A0
0001716c 10 82                    |        |		MOVE.B	D2,(A0)
0001716e 60 36                    |`6      |		BRA	0x171a6
00017170 30 28 00 4a              |0( J    |		MOVE.W	(A0+0x4a),D0
00017174 48 c0                    |H       |		EXTW.L	D0
00017176 52 80                    |R       |		ADDQ.L	#0x1,D0
00017178 90 81                    |        |		SUB.L	D1,D0
0001717a 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00017180 63 02                    |c       |		BLS	0x17184
00017182 4e 4f                    |NO      |		TRAP	#15
00017184 d0 81                    |        |		ADD.L	D1,D0
00017186 31 40 00 4a              |1@ J    |		MOVE.W	D0,(A0+0x4a)
0001718a 0c 40 04 00              | @      |		CMPI.W	#0x0400,D0
0001718e 66 12                    |f       |		BNE	0x171a2
00017190 30 28 00 48              |0( H    |		MOVE.W	(A0+0x48),D0
00017194 52 40                    |R@      |		ADDQ.W	#0x1,D0
00017196 41 bc 40 00              |A @     |		CHK.W	#0x4000,D0
0001719a 31 40 00 48              |1@ H    |		MOVE.W	D0,(A0+0x48)
0001719e 42 68 00 4a              |Bh J    |		CLR.W	(A0+0x4a)
000171a2 20 52                    | R      |		MOVEA.L	(A2),A0
000171a4 42 10                    |B       |		CLR.B	(A0)
000171a6 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000171a8 20 52                    | R      |		MOVEA.L	(A2),A0
000171aa 4a 10                    |J       |		TST.B	(A0)
000171ac 66 06                    |f       |		BNE	0x171b4
000171ae 0c 06 00 0a              |        |		CMPI.B	#0x0a,D6
000171b2 66 02                    |f       |		BNE	0x171b6
000171b4 52 07                    |R       |		ADDQ.B	#0x1,D7
000171b6 4a 07                    |J       |		TST.B	D7
000171b8 66 3c                    |f<      |		BNE	0x171f6
000171ba 0c 06 00 0d              |        |		CMPI.B	#0x0d,D6
000171be 67 36                    |g6      |		BEQ	0x171f6
000171c0 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
000171c4 30 10                    |0       |		MOVE.W	(A0),D0
000171c6 48 c0                    |H       |		EXTW.L	D0
000171c8 52 80                    |R       |		ADDQ.L	#0x1,D0
000171ca 90 81                    |        |		SUB.L	D1,D0
000171cc 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000171d2 63 02                    |c       |		BLS	0x171d6
000171d4 4e 4f                    |NO      |		TRAP	#15
000171d6 d0 81                    |        |		ADD.L	D1,D0
000171d8 30 80                    |0       |		MOVE.W	D0,(A0)
000171da 48 c0                    |H       |		EXTW.L	D0
000171dc 53 80                    |S       |		SUBQ.L	#0x1,D0
000171de 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
000171e4 63 02                    |c       |		BLS	0x171e8
000171e6 4e 4f                    |NO      |		TRAP	#15
000171e8 11 86 08 02              |        |		MOVE.B	D6,(A0+D0.L+#0x2)
000171ec 30 10                    |0       |		MOVE.W	(A0),D0
000171ee 0c 40 00 7e              | @ ~    |		CMPI.W	#0x007e,D0
000171f2 66 02                    |f       |		BNE	0x171f6
000171f4 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000171f6 4a 07                    |J       |		TST.B	D7
000171f8 67 00 fe fa              |g       |		BEQ	0x170f4
000171fc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000171fe 20 52                    | R      |		MOVEA.L	(A2),A0
00017200 70 00                    |p       |		MOVEQ.L	#0x00,D0
00017202 4a 10                    |J       |		TST.B	(A0)
00017204 67 08                    |g       |		BEQ	0x1720e
00017206 22 57                    |"W      |		MOVEA.L	(A7),A1
00017208 4a 51                    |JQ      |		TST.W	(A1)
0001720a 66 02                    |f       |		BNE	0x1720e
0001720c 52 00                    |R       |		ADDQ.B	#0x1,D0
0001720e 10 80                    |        |		MOVE.B	D0,(A0)
00017210 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00017212 4c df 0f e7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3
00017216 4e 5e                    |N^      |		UNLK	A6
00017218 4e 75                    |Nu      |		RTS
0001721a ; --------------------------------------------------------------------------------------
0001721a ; FSCALL_10440
0001721a ; OMSI PASCAL Function
0001721a ;    <LVAR  0x010 4(r)>
0001721a ;    <LVAR  0x00c 4(r)>
0001721a ;    <LVAR  0x008 4(r)>
0001721a ;    <LVAR -0x006 4(rw)>
0001721a ;    <LVAR -0x012 4(rw)>
0001721a ;    <LVAR -0x017 @>
0001721a ; --------------------------------------------------------------------------------------
0001721a					_FSCALL_10440:
0001721a 4e 56 ff 94              |NV      |		LINK.W	A6,#0xff94
0001721e bf d5                    |        |		CMPA.L	(A5),A7
00017220 62 06                    |b       |		BHI	0x17228
00017222 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00017226 4e 76                    |Nv      |		TRAPV
00017228 de fc 00 50              |   P    |		ADDA.W	#0x50,A7
0001722c 48 e7 f7 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D3+D2+D1+D0,-(A7)
00017230 47 ee ff ee              |G       |		LEA.L	(A6-0x12),A3
00017234 49 ee 00 0c              |I       |		LEA.L	(A6+0xc),A4
00017238 72 01                    |r       |		MOVEQ.L	#0x01,D1
0001723a 74 02                    |t       |		MOVEQ.L	#0x02,D2
0001723c 26 3c ff ff 80 00        |&<      |		MOVE.L	#0xffff8000,D3
00017242 20 54                    | T      |		MOVEA.L	(A4),A0
00017244 30 10                    |0       |		MOVE.W	(A0),D0
00017246 48 c0                    |H       |		EXTW.L	D0
00017248 2d 40 ff fa              |-@      |		MOVE.L	D0,(A6-0x6)
0001724c c0 41                    | A      |		AND.W	D1,D0
0001724e 66 0e                    |f       |		BNE	0x1725e
00017250 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00017252 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
00017256 4e b9 00 01 0d a6        |N       |		JSR	_AppendChar(MOD b : String; a : char)
0001725c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001725e 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00017260 1f 3c 00 0a              | <      |		MOVE.B	#0x0a,-(A7)
00017264 4e b9 00 01 0d a6        |N       |		JSR	_AppendChar(MOD b : String; a : char)
0001726a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0001726c 43 e8 00 02              |C       |		LEA.L	(A0+0x2),A1
00017270 2f 09                    |/       |		MOVE.L	A1,-(A7)
00017272 2a 1f                    |*       |		MOVE.L	(A7)+,D5
00017274 30 10                    |0       |		MOVE.W	(A0),D0
00017276 48 c0                    |H       |		EXTW.L	D0
00017278 81 c2                    |        |		DIVS.W	D2,D0
0001727a 48 c0                    |H       |		EXTW.L	D0
0001727c 26 80                    |&       |		MOVE.L	D0,(A3)
0001727e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00017282 42 10                    |B       |		CLR.B	(A0)
00017284 22 6e 00 10              |"n      |		MOVEA.L	(A6+0x10),A1
00017288 2f 09                    |/       |		MOVE.L	A1,-(A7)
0001728a 24 79 00 01 00 26        |$y   &  |		MOVEA.L	0x10026,A2
00017290 b5 ee 00 10              |        |		CMPA.L	(A6+0x10),A2
00017294 66 06                    |f       |		BNE	0x1729c
00017296 23 c1 00 01 00 26        |#    &  |		MOVE.L	D1,0x10026
0001729c 30 29 00 48              |0) H    |		MOVE.W	(A1+0x48),D0
000172a0 b0 69 00 20              | i      |		CMP.W	(A1+0x20),D0
000172a4 6d 06                    |m       |		BLT	0x172ac
000172a6 10 81                    |        |		MOVE.B	D1,(A0)
000172a8 60 00 00 ae              |`       |		BRA	0x17358
000172ac 20 57                    | W      |		MOVEA.L	(A7),A0
000172ae 30 28 00 4a              |0( J    |		MOVE.W	(A0+0x4a),D0
000172b2 48 c0                    |H       |		EXTW.L	D0
000172b4 81 c2                    |        |		DIVS.W	D2,D0
000172b6 48 c0                    |H       |		EXTW.L	D0
000172b8 2e 00                    |.       |		MOVE.L	D0,D7
000172ba 2c 3c 00 00 02 00        |,<      |		MOVE.L	#0x200,D6
000172c0 9c 87                    |        |		SUB.L	D7,D6
000172c2 bc 93                    |        |		CMP.L	(A3),D6
000172c4 6f 02                    |o       |		BLE	0x172c8
000172c6 2c 13                    |,       |		MOVE.L	(A3),D6
000172c8 20 57                    | W      |		MOVEA.L	(A7),A0
000172ca 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
000172ce 30 28 00 48              |0( H    |		MOVE.W	(A0+0x48),D0
000172d2 41 bc 40 00              |A @     |		CHK.W	#0x4000,D0
000172d6 3f 00                    |?       |		MOVE.W	D0,-(A7)
000172d8 0c 87 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D7
000172de 63 02                    |c       |		BLS	0x172e2
000172e0 4e 4f                    |NO      |		TRAP	#15
000172e2 3f 07                    |?       |		MOVE.W	D7,-(A7)
000172e4 53 86                    |S       |		SUBQ.L	#0x1,D6
000172e6 0c 86 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D6
000172ec 63 02                    |c       |		BLS	0x172f0
000172ee 4e 4f                    |NO      |		TRAP	#15
000172f0 52 86                    |R       |		ADDQ.L	#0x1,D6
000172f2 3f 06                    |?       |		MOVE.W	D6,-(A7)
000172f4 1f 02                    |        |		MOVE.B	D2,-(A7)
000172f6 2f 05                    |/       |		MOVE.L	D5,-(A7)
000172f8 48 6e ff e9              |Hn      |		PEA.L	(A6-0x17)
000172fc 4e b9 00 01 3b aa        |N   ;   |		JSR	_WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00017302 de fc 00 14              |        |		ADDA.W	#0x14,A7
00017306 20 06                    |        |		MOVE.L	D6,D0
00017308 e3 80                    |        |		ASL.L	#0x1,D0
0001730a da 80                    |        |		ADD.L	D0,D5
0001730c de 86                    |        |		ADD.L	D6,D7
0001730e 0c 87 00 00 02 00        |        |		CMPI.L	#0x00000200,D7
00017314 66 1c                    |f       |		BNE	0x17332
00017316 30 28 00 48              |0( H    |		MOVE.W	(A0+0x48),D0
0001731a 52 40                    |R@      |		ADDQ.W	#0x1,D0
0001731c 41 bc 40 00              |A @     |		CHK.W	#0x4000,D0
00017320 31 40 00 48              |1@ H    |		MOVE.W	D0,(A0+0x48)
00017324 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00017326 b0 68 00 20              | h      |		CMP.W	(A0+0x20),D0
0001732a 6d 06                    |m       |		BLT	0x17332
0001732c 22 6e 00 08              |"n      |		MOVEA.L	(A6+0x8),A1
00017330 12 81                    |        |		MOVE.B	D1,(A1)
00017332 9d 93                    |        |		SUB.L	D6,(A3)
00017334 22 6e 00 08              |"n      |		MOVEA.L	(A6+0x8),A1
00017338 4a 11                    |J       |		TST.B	(A1)
0001733a 66 06                    |f       |		BNE	0x17342
0001733c 4a 93                    |J       |		TST.L	(A3)
0001733e 66 00 ff 7a              |f  z    |		BNE	0x172ba
00017342 20 07                    |        |		MOVE.L	D7,D0
00017344 e3 80                    |        |		ASL.L	#0x1,D0
00017346 90 83                    |        |		SUB.L	D3,D0
00017348 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
0001734e 63 02                    |c       |		BLS	0x17352
00017350 4e 4f                    |NO      |		TRAP	#15
00017352 d0 83                    |        |		ADD.L	D3,D0
00017354 31 40 00 4a              |1@ J    |		MOVE.W	D0,(A0+0x4a)
00017358 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001735a 20 54                    | T      |		MOVEA.L	(A4),A0
0001735c 20 2e ff fa              | .      |		MOVE.L	(A6-0x6),D0
00017360 90 83                    |        |		SUB.L	D3,D0
00017362 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00017368 63 02                    |c       |		BLS	0x1736c
0001736a 4e 4f                    |NO      |		TRAP	#15
0001736c d0 83                    |        |		ADD.L	D3,D0
0001736e 30 80                    |0       |		MOVE.W	D0,(A0)
00017370 4c df 1f ef              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D5+D6+D7+A0+A1+A2+A3+A4
00017374 4e 5e                    |N^      |		UNLK	A6
00017376 4e 75                    |Nu      |		RTS
00017378 ; --------------------------------------------------------------------------------------
00017378 ; FSCALL_10444
00017378 ; OMSI PASCAL Function
00017378 ;    <LVAR  0x008 4(r)>
00017378 ; --------------------------------------------------------------------------------------
00017378					_FSCALL_10444:
00017378 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
0001737c bf d5                    |        |		CMPA.L	(A5),A7
0001737e 62 06                    |b       |		BHI	0x17386
00017380 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00017384 4e 76                    |Nv      |		TRAPV
00017386 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0001738a 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
0001738e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00017392 42 68 00 48              |Bh H    |		CLR.W	(A0+0x48)
00017396 42 68 00 4a              |Bh J    |		CLR.W	(A0+0x4a)
0001739a 20 79 00 01 00 26        | y   &  |		MOVEA.L	0x10026,A0
000173a0 b1 ee 00 08              |        |		CMPA.L	(A6+0x8),A0
000173a4 66 12                    |f       |		BNE	0x173b8
000173a6 4a 79 00 01 00 2a        |Jy   *  |		TST.W	0x1002a
000173ac 67 0a                    |g       |		BEQ	0x173b8
000173ae 23 fc 00 00 00 01 00 01  |#       |		MOVE.L	#0x1,0x10026
000173b6 00 26                    | &      |
000173b8 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
000173bc 4e 5e                    |N^      |		UNLK	A6
000173be 4e 75                    |Nu      |		RTS
000173c0 ; --------------------------------------------------------------------------------------
000173c0 ; FSCALL_10448
000173c0 ; OMSI PASCAL Function
000173c0 ;    <LVAR  0x008 4(r)>
000173c0 ;    <LVAR -0x004 @>
000173c0 ;    <LVAR -0x008 @ 4(r)>
000173c0 ; --------------------------------------------------------------------------------------
000173c0					_FSCALL_10448:
000173c0 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
000173c4 bf d5                    |        |		CMPA.L	(A5),A7
000173c6 62 06                    |b       |		BHI	0x173ce
000173c8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000173cc 4e 76                    |Nv      |		TRAPV
000173ce de fc 00 28              |   (    |		ADDA.W	#0x28,A7
000173d2 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
000173d6 72 02                    |r       |		MOVEQ.L	#0x02,D1
000173d8 42 ae ff f8              |B       |		CLR.L	(A6-0x8)
000173dc 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000173e0 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
000173e4 30 28 00 48              |0( H    |		MOVE.W	(A0+0x48),D0
000173e8 41 bc 40 00              |A @     |		CHK.W	#0x4000,D0
000173ec 3f 00                    |?       |		MOVE.W	D0,-(A7)
000173ee 30 28 00 4a              |0( J    |		MOVE.W	(A0+0x4a),D0
000173f2 48 c0                    |H       |		EXTW.L	D0
000173f4 81 c1                    |        |		DIVS.W	D1,D0
000173f6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000173f8 41 bc 01 ff              |A       |		CHK.W	#0x1ff,D0
000173fc 3e 80                    |>       |		MOVE.W	D0,(A7)
000173fe 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00017402 1f 01                    |        |		MOVE.B	D1,-(A7)
00017404 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
00017408 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001740a 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0001740e 4e b9 00 01 3b aa        |N   ;   |		JSR	_WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00017414 de fc 00 14              |        |		ADDA.W	#0x14,A7
00017418 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
0001741c 4e 5e                    |N^      |		UNLK	A6
0001741e 4e 75                    |Nu      |		RTS
00017420 5c 20                    |\       |		.TXT	'\ '
00017422 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal marker'
00017430 42 61 64 20 65 72 72 6f  |Bad erro|		.TXT	'Bad error message file format.'
0001744e 55 6e 6b 6e              |Unkn    |		.TXT	'Unkn'
00017452 6f 77 6e 20              |own     |		.TXT	'own '
00017456 65 72 72 6f              |erro    |		.TXT	'erro'
0001745a 72 20 3a 5f              |r :_    |		.TXT	'r :_'
0001745e 2c 20 65 72 72 6f 72 20  |, error |		.TXT	', error message file :_ '
00017476 ; --------------------------------------------------------------------------------------
00017476 ; OMSI PASCAL Function
00017476 ;    <LVAR  0x00c 4(r)>
00017476 ;    <LVAR  0x008 4(r)>
00017476 ;    <LVAR -0x004 @ 4(rw)>
00017476 ; --------------------------------------------------------------------------------------
00017476 4e 56 ff b6              |NV      |		LINK.W	A6,#0xffb6
0001747a bf d5                    |        |		CMPA.L	(A5),A7
0001747c 62 06                    |b       |		BHI	0x17484
0001747e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00017482 4e 76                    |Nv      |		TRAPV
00017484 de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00017488 48 e7 fb e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7)
0001748c 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00017490 45 ee 00 0c              |E       |		LEA.L	(A6+0xc),A2
00017494 24 3c ff ff 80 00        |$<      |		MOVE.L	#0xffff8000,D2
0001749a 76 01                    |v       |		MOVEQ.L	#0x01,D3
0001749c 78 7d                    |x}      |		MOVEQ.L	#0x7d,D4
0001749e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000174a2 20 83                    |        |		MOVE.L	D3,(A0)
000174a4 3f 3a ff 7a              |?: z    |		MOVE.W	0x17420,-(A7)
000174a8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000174aa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000174ae 3f 03                    |?       |		MOVE.W	D3,-(A7)
000174b0 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
000174b4 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
000174ba 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000174bc 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
000174be 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000174c0 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000174c2 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000174c4 4e b9 00 01 15 fe        |N       |		JSR	_FSCALL_10300
000174ca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000174cc 2c 1f                    |,       |		MOVE.L	(A7)+,D6
000174ce 48 51                    |HQ      |		PEA.L	(A1)
000174d0 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
000174d6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000174d8 4a 86                    |J       |		TST.L	D6
000174da 67 78                    |gx      |		BEQ	0x17554
000174dc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000174de 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000174e0 4e b9 00 01 0e f2        |N       |		JSR	_StringDup(a : String) : String
000174e6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000174e8 20 9f                    |        |		MOVE.L	(A7)+,(A0)
000174ea 20 50                    | P      |		MOVEA.L	(A0),A0
000174ec 20 06                    |        |		MOVE.L	D6,D0
000174ee 53 80                    |S       |		SUBQ.L	#0x1,D0
000174f0 90 82                    |        |		SUB.L	D2,D0
000174f2 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000174f8 63 02                    |c       |		BLS	0x174fc
000174fa 4e 4f                    |NO      |		TRAP	#15
000174fc d0 82                    |        |		ADD.L	D2,D0
000174fe 30 80                    |0       |		MOVE.W	D0,(A0)
00017500 20 52                    | R      |		MOVEA.L	(A2),A0
00017502 2f 08                    |/       |		MOVE.L	A0,-(A7)
00017504 20 06                    |        |		MOVE.L	D6,D0
00017506 52 80                    |R       |		ADDQ.L	#0x1,D0
00017508 32 10                    |2       |		MOVE.W	(A0),D1
0001750a 48 c1                    |H       |		EXTW.L	D1
0001750c 2f 01                    |/       |		MOVE.L	D1,-(A7)
0001750e 2e 00                    |.       |		MOVE.L	D0,D7
00017510 be 97                    |        |		CMP.L	(A7),D7
00017512 6e 24                    |n$      |		BGT	0x17538
00017514 20 07                    |        |		MOVE.L	D7,D0
00017516 90 86                    |        |		SUB.L	D6,D0
00017518 53 80                    |S       |		SUBQ.L	#0x1,D0
0001751a b0 84                    |        |		CMP.L	D4,D0
0001751c 63 02                    |c       |		BLS	0x17520
0001751e 4e 4f                    |NO      |		TRAP	#15
00017520 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00017524 22 07                    |"       |		MOVE.L	D7,D1
00017526 53 81                    |S       |		SUBQ.L	#0x1,D1
00017528 b2 84                    |        |		CMP.L	D4,D1
0001752a 63 02                    |c       |		BLS	0x1752e
0001752c 4e 4f                    |NO      |		TRAP	#15
0001752e 11 b0 18 02 08 02        |        |		MOVE.B	(A0+D1.L+#0x2),(A0+D0.L+#0x2)
00017534 52 87                    |R       |		ADDQ.L	#0x1,D7
00017536 68 d8                    |h       |		BVC	0x17510
00017538 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001753a 20 57                    | W      |		MOVEA.L	(A7),A0
0001753c 30 10                    |0       |		MOVE.W	(A0),D0
0001753e 48 c0                    |H       |		EXTW.L	D0
00017540 90 86                    |        |		SUB.L	D6,D0
00017542 90 82                    |        |		SUB.L	D2,D0
00017544 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
0001754a 63 02                    |c       |		BLS	0x1754e
0001754c 4e 4f                    |NO      |		TRAP	#15
0001754e d0 82                    |        |		ADD.L	D2,D0
00017550 30 80                    |0       |		MOVE.W	D0,(A0)
00017552 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00017554 4c df 07 df              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2
00017558 4e 5e                    |N^      |		UNLK	A6
0001755a 4e 75                    |Nu      |		RTS
0001755c ; --------------------------------------------------------------------------------------
0001755c ; OMSI PASCAL Function
0001755c ;    <LVAR  0x00c 4(r)>
0001755c ;    <LVAR  0x008 4(r)>
0001755c ;    <LVAR -0x004 @ 4(rw)>
0001755c ;    <LVAR -0x00a @ 1(r)>
0001755c ;    <LVAR -0x012 @ 4(r)>
0001755c ;    <LVAR -0x01a @ 4(r)>
0001755c ; --------------------------------------------------------------------------------------
0001755c 4e 56 ff 7e              |NV ~    |		LINK.W	A6,#0xff7e
00017560 bf d5                    |        |		CMPA.L	(A5),A7
00017562 62 06                    |b       |		BHI	0x1756a
00017564 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00017568 4e 76                    |Nv      |		TRAPV
0001756a de fc 00 66              |   f    |		ADDA.W	#0x66,A7
0001756e 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00017572 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00017576 45 ee ff e6              |E       |		LEA.L	(A6-0x1a),A2
0001757a 47 ee ff ee              |G       |		LEA.L	(A6-0x12),A3
0001757e 74 01                    |t       |		MOVEQ.L	#0x01,D2
00017580 76 0e                    |v       |		MOVEQ.L	#0x0e,D3
00017582 78 12                    |x       |		MOVEQ.L	#0x12,D4
00017584 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00017586 48 51                    |HQ      |		PEA.L	(A1)
00017588 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
0001758e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00017590 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00017594 2f 08                    |/       |		MOVE.L	A0,-(A7)
00017596 30 10                    |0       |		MOVE.W	(A0),D0
00017598 48 c0                    |H       |		EXTW.L	D0
0001759a 2f 00                    |/       |		MOVE.L	D0,-(A7)
0001759c 70 02                    |p       |		MOVEQ.L	#0x02,D0
0001759e b0 97                    |        |		CMP.L	(A7),D0
000175a0 6f 06                    |o       |		BLE	0x175a8
000175a2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000175a4 60 00 00 de              |`       |		BRA	0x17684
000175a8 2f 00                    |/       |		MOVE.L	D0,-(A7)
000175aa 22 00                    |"       |		MOVE.L	D0,D1
000175ac 53 81                    |S       |		SUBQ.L	#0x1,D1
000175ae 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
000175b4 63 02                    |c       |		BLS	0x175b8
000175b6 4e 4f                    |NO      |		TRAP	#15
000175b8 20 6f 00 08              | o      |		MOVEA.L	(A7+0x8),A0
000175bc 1a 30 18 02              | 0      |		MOVE.B	(A0+D1.L+#0x2),D5
000175c0 0c 05 00 25              |   %    |		CMPI.B	#0x25,D5
000175c4 67 18                    |g       |		BEQ	0x175de
000175c6 4a 06                    |J       |		TST.B	D6
000175c8 67 04                    |g       |		BEQ	0x175ce
000175ca 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000175cc 60 02                    |`       |		BRA	0x175d0
000175ce 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000175d0 1f 05                    |        |		MOVE.B	D5,-(A7)
000175d2 4e b9 00 01 0d a6        |N       |		JSR	_AppendChar(MOD b : String; a : char)
000175d8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000175da 60 00 00 9c              |`       |		BRA	0x17678
000175de 4a 06                    |J       |		TST.B	D6
000175e0 66 0e                    |f       |		BNE	0x175f0
000175e2 48 52                    |HR      |		PEA.L	(A2)
000175e4 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
000175ea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000175ec 60 00 00 86              |`       |		BRA	0x17674
000175f0 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000175f4 b0 c2                    |        |		CMPA.W	D2,A0
000175f6 66 0a                    |f       |		BNE	0x17602
000175f8 48 52                    |HR      |		PEA.L	(A2)
000175fa 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00017600 60 e8                    |`       |		BRA	0x175ea
00017602 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00017604 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00017608 48 53                    |HS      |		PEA.L	(A3)
0001760a 4e b9 00 01 12 88        |N       |		JSR	_String2Long(src : String; VAR status : Bool; VAR retval : Long)
00017610 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00017614 4a 2e ff f6              |J.      |		TST.B	(A6-0xa)
00017618 66 28                    |f(      |		BNE	0x17642
0001761a 41 fa fe 14              |A       |		LEA.L	0x17430,A0
0001761e 72 06                    |r       |		MOVEQ.L	#0x06,D1
00017620 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00017622 51 c9 ff fc              |Q       |		DBF	D1,0x17620
00017626 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00017628 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0001762c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001762e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00017630 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00017636 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017638 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
0001763e de c4                    |        |		ADDA.W	D4,A7
00017640 60 32                    |`2      |		BRA	0x17674
00017642 28 48                    |(H      |		MOVEA.L	A0,A4
00017644 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00017646 52 87                    |R       |		ADDQ.L	#0x1,D7
00017648 be 93                    |        |		CMP.L	(A3),D7
0001764a 66 1c                    |f       |		BNE	0x17668
0001764c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0001764e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00017650 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00017652 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00017654 4e b9 00 01 0e f2        |N       |		JSR	_StringDup(a : String) : String
0001765a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001765c 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00017662 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017664 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
00017666 60 04                    |`       |		BRA	0x1766c
00017668 28 6c 00 04              |(l      |		MOVEA.L	(A4+0x4),A4
0001766c b8 c2                    |        |		CMPA.W	D2,A4
0001766e 67 04                    |g       |		BEQ	0x17674
00017670 be 93                    |        |		CMP.L	(A3),D7
00017672 66 d2                    |f       |		BNE	0x17646
00017674 44 06                    |D       |		NEG.B	D6
00017676 52 06                    |R       |		ADDQ.B	#0x1,D6
00017678 20 17                    |        |		MOVE.L	(A7),D0
0001767a 52 80                    |R       |		ADDQ.L	#0x1,D0
0001767c 69 06                    |i       |		BVS	0x17684
0001767e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00017680 60 00 ff 1c              |`       |		BRA	0x1759e
00017684 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017686 2e 91                    |.       |		MOVE.L	(A1),(A7)
00017688 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
0001768e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00017690 4a 06                    |J       |		TST.B	D6
00017692 67 26                    |g&      |		BEQ	0x176ba
00017694 41 fa fd 9a              |A       |		LEA.L	0x17430,A0
00017698 70 06                    |p       |		MOVEQ.L	#0x06,D0
0001769a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0001769c 51 c8 ff fc              |Q       |		DBF	D0,0x1769a
000176a0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000176a2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000176a6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000176a8 3f 03                    |?       |		MOVE.W	D3,-(A7)
000176aa 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
000176b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000176b2 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
000176b8 de c4                    |        |		ADDA.W	D4,A7
000176ba 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000176be 4e 5e                    |N^      |		UNLK	A6
000176c0 4e 75                    |Nu      |		RTS
000176c2 ; --------------------------------------------------------------------------------------
000176c2 ; WriteErrorMessage(file : String; txt : String; number : Long) : Bool
000176c2 ; Stack:
000176c2 ;     A6+0x14 VAR RETURN : Bool
000176c2 ;     A6+0x10     file : String
000176c2 ;     A6+0xc      txt : String
000176c2 ;     A6+0x8      number : Long
000176c2 ; OMSI PASCAL Function
000176c2 ;    <LVAR  0x010 @ 4(r)>
000176c2 ;    <LVAR  0x00c 4(r)>
000176c2 ;    <LVAR  0x008 4(r)>
000176c2 ;    <LVAR -0x006 @ 4(rw)>
000176c2 ;    <LVAR -0x00a @ 4(rw)>
000176c2 ;    <LVAR -0x00e 4(rw)>
000176c2 ;    <LVAR -0x012 @ 4(r)>
000176c2 ;    <LVAR -0x016 @ 4(r)>
000176c2 ;    <LVAR -0x01a @ 4(r)>
000176c2 ;    <LVAR -0x01b @ 1(r)>
000176c2 ;    <LVAR -0x01d @ 1(r)>
000176c2 ;    <LVAR -0x022 @ 4(r)>
000176c2 ;    <LVAR -0x024 @ 1(r)>
000176c2 ;    <LVAR -0x028 @ 4(r)>
000176c2 ;    <LVAR -0x02c @ 4(r)>
000176c2 ; --------------------------------------------------------------------------------------
000176c2					_WriteErrorMessage(file : String; txt : String; number : Long) : Bool:
000176c2 4e 56 ff 60              |NV `    |		LINK.W	A6,#0xff60
000176c6 bf d5                    |        |		CMPA.L	(A5),A7
000176c8 62 06                    |b       |		BHI	0x176d0
000176ca 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000176ce 4e 76                    |Nv      |		TRAPV
000176d0 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
000176d4 48 e7 fb f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7)
000176d8 45 ee ff f2              |E       |		LEA.L	(A6-0xe),A2
000176dc 47 ee ff ee              |G       |		LEA.L	(A6-0x12),A3
000176e0 49 f9 00 01 0d dc        |I       |		LEA.L	_StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
000176e6 72 01                    |r       |		MOVEQ.L	#0x01,D1
000176e8 74 10                    |t       |		MOVEQ.L	#0x10,D2
000176ea 76 14                    |v       |		MOVEQ.L	#0x14,D3
000176ec 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
000176ee 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
000176f2 42 27                    |B'      |		CLR.B	-(A7)
000176f4 1f 01                    |        |		MOVE.B	D1,-(A7)
000176f6 48 78 00 00              |Hx      |		PEA.L	0x0
000176fa 48 6e ff dc              |Hn      |		PEA.L	(A6-0x24)
000176fe 48 6e ff de              |Hn      |		PEA.L	(A6-0x22)
00017702 4e b9 00 01 38 a6        |N   8   |		JSR	_OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00017708 de c3                    |        |		ADDA.W	D3,A7
0001770a 4a 2e ff dc              |J.      |		TST.B	(A6-0x24)
0001770e 67 3c                    |g<      |		BEQ	0x1774c
00017710 2f 3a fd 48              |/: H    |		MOVE.L	0x1745a,-(A7)
00017714 2f 3a fd 40              |/: @    |		MOVE.L	0x17456,-(A7)
00017718 2f 3a fd 38              |/: 8    |		MOVE.L	0x17452,-(A7)
0001771c 2f 3a fd 30              |/: 0    |		MOVE.L	0x1744e,-(A7)
00017720 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00017722 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00017726 3f 01                    |?       |		MOVE.W	D1,-(A7)
00017728 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001772a 4e 94                    |N       |		JSR	(A4)
0001772c 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00017730 4e b9 00 01 10 b0        |N       |		JSR	_Long2String(a : Long) : String
00017736 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00017738 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
0001773e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017740 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
00017746 de c3                    |        |		ADDA.W	D3,A7
00017748 60 00 01 fc              |`       |		BRA	0x17946
0001774c 24 81                    |$       |		MOVE.L	D1,(A2)
0001774e 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00017752 b0 c1                    |        |		CMPA.W	D1,A0
00017754 67 62                    |gb      |		BEQ	0x177b8
00017756 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00017758 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001775a 4e b9 00 01 0e f2        |N       |		JSR	_StringDup(a : String) : String
00017760 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00017762 2d 5f ff fa              |-_      |		MOVE.L	(A7)+,(A6-0x6)
00017766 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
0001776a 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
0001776e 4e ba fd 06              |N       |		JSR	0x17476
00017772 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017774 20 6e ff ea              | n      |		MOVEA.L	(A6-0x16),A0
00017778 b0 c1                    |        |		CMPA.W	D1,A0
0001777a 67 2c                    |g,      |		BEQ	0x177a8
0001777c 48 53                    |HS      |		PEA.L	(A3)
0001777e 48 78 00 08              |Hx      |		PEA.L	0x8
00017782 4e b9 00 01 08 56        |N    V  |		JSR	_Malloc1(length : Long) : Pointer
00017788 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001778a 22 53                    |"S      |		MOVEA.L	(A3),A1
0001778c 22 88                    |"       |		MOVE.L	A0,(A1)
0001778e 23 41 00 04              |#A      |		MOVE.L	D1,(A1+0x4)
00017792 22 52                    |"R      |		MOVEA.L	(A2),A1
00017794 b2 c1                    |        |		CMPA.W	D1,A1
00017796 66 04                    |f       |		BNE	0x1779c
00017798 24 93                    |$       |		MOVE.L	(A3),(A2)
0001779a 60 08                    |`       |		BRA	0x177a4
0001779c 22 6e ff f6              |"n      |		MOVEA.L	(A6-0xa),A1
000177a0 23 53 00 04              |#S      |		MOVE.L	(A3),(A1+0x4)
000177a4 2d 53 ff f6              |-S      |		MOVE.L	(A3),(A6-0xa)
000177a8 b0 c1                    |        |		CMPA.W	D1,A0
000177aa 66 ba                    |f       |		BNE	0x17766
000177ac 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000177b0 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
000177b6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000177b8 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000177ba 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000177bc 48 6e ff d4              |Hn      |		PEA.L	(A6-0x2c)
000177c0 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
000177c6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000177c8 2f 2e ff de              |/.      |		MOVE.L	(A6-0x22),-(A7)
000177cc 48 6e ff d4              |Hn      |		PEA.L	(A6-0x2c)
000177d0 48 6e ff e3              |Hn      |		PEA.L	(A6-0x1d)
000177d4 4e b9 00 01 70 b6        |N   p   |		JSR	_FileReadLine(file : File; VAR a : String; VAR b : Byte)
000177da de c4                    |        |		ADDA.W	D4,A7
000177dc 4a 2e ff e3              |J.      |		TST.B	(A6-0x1d)
000177e0 67 06                    |g       |		BEQ	0x177e8
000177e2 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000177e4 60 00 00 a4              |`       |		BRA	0x1788a
000177e8 20 6e ff d4              | n      |		MOVEA.L	(A6-0x2c),A0
000177ec 10 28 00 02              | (      |		MOVE.B	(A0+0x2),D0
000177f0 0c 00 00 09              |        |		CMPI.B	#0x09,D0
000177f4 66 14                    |f       |		BNE	0x1780a
000177f6 4a 06                    |J       |		TST.B	D6
000177f8 67 0c                    |g       |		BEQ	0x17806
000177fa 2f 2e ff d4              |/.      |		MOVE.L	(A6-0x2c),-(A7)
000177fe 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00017800 4e ba fd 5a              |N  Z    |		JSR	0x1755c
00017804 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017806 60 00 00 82              |`       |		BRA	0x1788a
0001780a 4a 06                    |J       |		TST.B	D6
0001780c 67 02                    |g       |		BEQ	0x17810
0001780e 60 d2                    |`       |		BRA	0x177e2
00017810 48 6e ff d8              |Hn      |		PEA.L	(A6-0x28)
00017814 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
0001781a 2e ae ff d4              |.       |		MOVE.L	(A6-0x2c),(A7)
0001781e 2f 2e ff d8              |/.      |		MOVE.L	(A6-0x28),-(A7)
00017822 48 6e ff e5              |Hn      |		PEA.L	(A6-0x1b)
00017826 4e b9 00 01 14 d6        |N       |		JSR	_FirstField(MOD input : String; MOD output : String; VAR c : Bool
0001782c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001782e 2e ae ff d8              |.       |		MOVE.L	(A6-0x28),(A7)
00017832 48 6e ff e5              |Hn      |		PEA.L	(A6-0x1b)
00017836 48 6e ff e6              |Hn      |		PEA.L	(A6-0x1a)
0001783a 4e b9 00 01 12 88        |N       |		JSR	_String2Long(src : String; VAR status : Bool; VAR retval : Long)
00017840 de c4                    |        |		ADDA.W	D4,A7
00017842 4a 2e ff e5              |J.      |		TST.B	(A6-0x1b)
00017846 66 2a                    |f*      |		BNE	0x17872
00017848 41 fa fc 04              |A       |		LEA.L	0x1744e,A0
0001784c 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
0001784e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00017850 51 c8 ff fc              |Q       |		DBF	D0,0x1784e
00017854 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00017858 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0001785a 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0001785e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00017860 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
00017864 4e 94                    |N       |		JSR	(A4)
00017866 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017868 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
0001786e de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00017872 20 2e ff e6              | .      |		MOVE.L	(A6-0x1a),D0
00017876 b0 ae 00 08              |        |		CMP.L	(A6+0x8),D0
0001787a 66 0e                    |f       |		BNE	0x1788a
0001787c 7c 01                    ||       |		MOVEQ.L	#0x01,D6
0001787e 2f 2e ff d4              |/.      |		MOVE.L	(A6-0x2c),-(A7)
00017882 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00017884 4e ba fc d6              |N       |		JSR	0x1755c
00017888 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001788a 4a 07                    |J       |		TST.B	D7
0001788c 67 00 ff 3a              |g  :    |		BEQ	0x177c8
00017890 4a 06                    |J       |		TST.B	D6
00017892 66 62                    |fb      |		BNE	0x178f6
00017894 2f 3a fb c4              |/:      |		MOVE.L	0x1745a,-(A7)
00017898 2f 3a fb bc              |/:      |		MOVE.L	0x17456,-(A7)
0001789c 2f 3a fb b4              |/:      |		MOVE.L	0x17452,-(A7)
000178a0 2f 3a fb ac              |/:      |		MOVE.L	0x1744e,-(A7)
000178a4 9e fc 00 18              |        |		SUBA.W	#0x18,A7
000178a8 20 4f                    | O      |		MOVEA.L	A7,A0
000178aa 43 fa fb b2              |C       |		LEA.L	0x1745e,A1
000178ae 70 16                    |p       |		MOVEQ.L	#0x16,D0
000178b0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000178b2 51 c8 ff fc              |Q       |		DBF	D0,0x178b0
000178b6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000178b8 48 6f 00 20              |Ho      |		PEA.L	(A7+0x20)
000178bc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000178be 3f 02                    |?       |		MOVE.W	D2,-(A7)
000178c0 4e 94                    |N       |		JSR	(A4)
000178c2 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
000178c6 4e b9 00 01 10 b0        |N       |		JSR	_Long2String(a : Long) : String
000178cc 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
000178d0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000178d2 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
000178d6 4e 94                    |N       |		JSR	(A4)
000178d8 2e ae 00 10              |.       |		MOVE.L	(A6+0x10),(A7)
000178dc 4e b9 00 01 0e f2        |N       |		JSR	_StringDup(a : String) : String
000178e2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000178e4 4e b9 00 01 0f f0        |N       |		JSR	_StringCat4(a, b, c, d : String) : String
000178ea de c2                    |        |		ADDA.W	D2,A7
000178ec 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
000178f2 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000178f6 42 27                    |B'      |		CLR.B	-(A7)
000178f8 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000178fc 48 78 00 01              |Hx      |		PEA.L	0x1
00017900 48 6e ff dc              |Hn      |		PEA.L	(A6-0x24)
00017904 48 6e ff de              |Hn      |		PEA.L	(A6-0x22)
00017908 4e b9 00 01 3c 7c        |N   <|  |		JSR	_CloseFile(a : L; VAR status : B; VAR file : File)
0001790e de c2                    |        |		ADDA.W	D2,A7
00017910 48 6e ff d4              |Hn      |		PEA.L	(A6-0x2c)
00017914 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
0001791a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001791c 20 52                    | R      |		MOVEA.L	(A2),A0
0001791e b0 c1                    |        |		CMPA.W	D1,A0
00017920 67 24                    |g$      |		BEQ	0x17946
00017922 48 50                    |HP      |		PEA.L	(A0)
00017924 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
0001792a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001792c 2d 48 ff f6              |-H      |		MOVE.L	A0,(A6-0xa)
00017930 24 a8 00 04              |$       |		MOVE.L	(A0+0x4),(A2)
00017934 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00017938 48 78 00 08              |Hx      |		PEA.L	0x8
0001793c 4e b9 00 01 08 fa        |N       |		JSR	_Free2(a : Pointer; b : Long)
00017942 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017944 60 d6                    |`       |		BRA	0x1791c
00017946 48 6e 00 10              |Hn      |		PEA.L	(A6+0x10)
0001794a 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00017950 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00017952 4c df 1f df              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2+A3+A4
00017956 4e 5e                    |N^      |		UNLK	A6
00017958 4e 75                    |Nu      |		RTS
0001795a ; --------------------------------------------------------------------------------------
0001795a ; FS_10450(&, &)
0001795a ; OMSI PASCAL Function
0001795a ;    <LVAR  0x00c 4(r)>
0001795a ;    <LVAR  0x008 4(r)>
0001795a ; --------------------------------------------------------------------------------------
0001795a					_FS_10450(&, &):
0001795a 4e 56 ff f0              |NV      |		LINK.W	A6,#0xfff0
0001795e bf d5                    |        |		CMPA.L	(A5),A7
00017960 62 06                    |b       |		BHI	0x17968
00017962 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00017966 4e 76                    |Nv      |		TRAPV
00017968 de fc 00 10              |        |		ADDA.W	#0x10,A7
0001796c 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00017970 48 78 00 01              |Hx      |		PEA.L	0x1
00017974 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00017978 4e ba fd 48              |N  H    |		JSR	_WriteErrorMessage(file : String; txt : String; number : Long) : Bool
0001797c de fc 00 0c              |        |		ADDA.W	#0xc,A7
00017980 4e 5e                    |N^      |		UNLK	A6
00017982 4e 75                    |Nu      |		RTS
00017984 44 69 72 65 63 74 6f 72  |Director|		.TXT	'Directory read error! '
0001799a 44 69 72 65 63 74 6f 72  |Director|		.TXT	'Directory read error'
000179ae 00 01                    |        |		.XXX[0x2]
000179b0 00 01 00 01              |        |		.XXX[0x4]
000179b4 ; --------------------------------------------------------------------------------------
000179b4 ; Glob(input : String; pattern : String): Bool
000179b4 ; Stack:
000179b4 ;     A6+0x10 VAR RETURN : Bool
000179b4 ;     A6+0xc      input : String
000179b4 ;     A6+0x8      pattern : String
000179b4 ; OMSI PASCAL Function
000179b4 ;    <LVAR  0x010 1(rw)>
000179b4 ;    <LVAR  0x00c 4(r)>
000179b4 ;    <LVAR  0x008 4(r)>
000179b4 ;    <LVAR -0x002 1(w)>
000179b4 ;    <LVAR -0x008 2(rw)>
000179b4 ;    <LVAR -0x00a 2(rw)>
000179b4 ;    <LVAR -0x010 4(w)>
000179b4 ;    <LVAR -0x014 4(w)>
000179b4 ;    <LVAR -0x018 2(rw)>
000179b4 ;    <LVAR -0x01a 2(rw)>
000179b4 ;    <LVAR -0x01c @ 2(rw)>
000179b4 ;    <LVAR -0x09c @>
000179b4 ; --------------------------------------------------------------------------------------
000179b4					_Glob(input : String; pattern : String): Bool:
000179b4 4e 56 ff 14              |NV      |		LINK.W	A6,#0xff14
000179b8 bf d5                    |        |		CMPA.L	(A5),A7
000179ba 62 06                    |b       |		BHI	0x179c2
000179bc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000179c0 4e 76                    |Nv      |		TRAPV
000179c2 de fc 00 50              |   P    |		ADDA.W	#0x50,A7
000179c6 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000179ca 47 ee ff e8              |G       |		LEA.L	(A6-0x18),A3
000179ce 49 ee ff e4              |I       |		LEA.L	(A6-0x1c),A4
000179d2 28 3c 00 00 ff ff        |(<      |		MOVE.L	#0xffff,D4
000179d8 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000179da 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000179dc 38 ba ff d0              |8       |		MOVE.W	0x179ae,(A4)
000179e0 3d 7a ff ce ff e6        |=z      |		MOVE.W	0x179b0,(A6-0x1a)
000179e6 36 ba ff ca              |6       |		MOVE.W	0x179b2,(A3)
000179ea 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000179ee 30 10                    |0       |		MOVE.W	(A0),D0
000179f0 b0 44                    | D      |		CMP.W	D4,D0
000179f2 63 02                    |c       |		BLS	0x179f6
000179f4 4e 4f                    |NO      |		TRAP	#15
000179f6 3d 40 ff f6              |=@      |		MOVE.W	D0,(A6-0xa)
000179fa 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000179fe 30 10                    |0       |		MOVE.W	(A0),D0
00017a00 b0 44                    | D      |		CMP.W	D4,D0
00017a02 63 02                    |c       |		BLS	0x17a06
00017a04 4e 4f                    |NO      |		TRAP	#15
00017a06 3d 40 ff f8              |=@      |		MOVE.W	D0,(A6-0x8)
00017a0a 4a 07                    |J       |		TST.B	D7
00017a0c 66 00 01 ac              |f       |		BNE	0x17bba
00017a10 42 80                    |B       |		CLR.L	D0
00017a12 30 2e ff f6              |0.      |		MOVE.W	(A6-0xa),D0
00017a16 52 80                    |R       |		ADDQ.L	#0x1,D0
00017a18 42 81                    |B       |		CLR.L	D1
00017a1a 32 14                    |2       |		MOVE.W	(A4),D1
00017a1c 44 81                    |D       |		NEG.L	D1
00017a1e d2 80                    |        |		ADD.L	D0,D1
00017a20 2d 41 ff ec              |-A      |		MOVE.L	D1,(A6-0x14)
00017a24 42 82                    |B       |		CLR.L	D2
00017a26 34 2e ff f8              |4.      |		MOVE.W	(A6-0x8),D2
00017a2a 52 82                    |R       |		ADDQ.L	#0x1,D2
00017a2c 42 83                    |B       |		CLR.L	D3
00017a2e 36 2e ff e6              |6.      |		MOVE.W	(A6-0x1a),D3
00017a32 44 83                    |D       |		NEG.L	D3
00017a34 d6 82                    |        |		ADD.L	D2,D3
00017a36 2d 43 ff f0              |-C      |		MOVE.L	D3,(A6-0x10)
00017a3a 4a 83                    |J       |		TST.L	D3
00017a3c 66 0e                    |f       |		BNE	0x17a4c
00017a3e 4a 81                    |J       |		TST.L	D1
00017a40 66 04                    |f       |		BNE	0x17a46
00017a42 7e 04                    |~       |		MOVEQ.L	#0x04,D7
00017a44 60 02                    |`       |		BRA	0x17a48
00017a46 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00017a48 60 00 00 c2              |`       |		BRA	0x17b0c
00017a4c 36 bc 00 01              |6       |		MOVE.W	#0x1,(A3)
00017a50 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00017a52 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00017a56 42 82                    |B       |		CLR.L	D2
00017a58 34 2e ff e6              |4.      |		MOVE.W	(A6-0x1a),D2
00017a5c 53 82                    |S       |		SUBQ.L	#0x1,D2
00017a5e 0c 82 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D2
00017a64 63 02                    |c       |		BLS	0x17a68
00017a66 4e 4f                    |NO      |		TRAP	#15
00017a68 16 30 28 02              | 0(     |		MOVE.B	(A0+D2.L+#0x2),D3
00017a6c 0c 03 00 2a              |   *    |		CMPI.B	#0x2a,D3
00017a70 66 16                    |f       |		BNE	0x17a88
00017a72 42 81                    |B       |		CLR.L	D1
00017a74 32 14                    |2       |		MOVE.W	(A4),D1
00017a76 44 81                    |D       |		NEG.L	D1
00017a78 d2 80                    |        |		ADD.L	D0,D1
00017a7a b2 84                    |        |		CMP.L	D4,D1
00017a7c 63 02                    |c       |		BLS	0x17a80
00017a7e 4e 4f                    |NO      |		TRAP	#15
00017a80 36 81                    |6       |		MOVE.W	D1,(A3)
00017a82 7e 02                    |~       |		MOVEQ.L	#0x02,D7
00017a84 60 00 00 86              |`       |		BRA	0x17b0c
00017a88 0c 03 00 2d              |   -    |		CMPI.B	#0x2d,D3
00017a8c 66 50                    |fP      |		BNE	0x17ade
00017a8e 42 53                    |BS      |		CLR.W	(A3)
00017a90 42 80                    |B       |		CLR.L	D0
00017a92 30 14                    |0       |		MOVE.W	(A4),D0
00017a94 2a 00                    |*       |		MOVE.L	D0,D5
00017a96 70 00                    |p       |		MOVEQ.L	#0x00,D0
00017a98 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00017a9c 22 05                    |"       |		MOVE.L	D5,D1
00017a9e 53 81                    |S       |		SUBQ.L	#0x1,D1
00017aa0 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
00017aa6 63 02                    |c       |		BLS	0x17aaa
00017aa8 4e 4f                    |NO      |		TRAP	#15
00017aaa 12 30 18 02              | 0      |		MOVE.B	(A0+D1.L+#0x2),D1
00017aae 0c 01 00 2e              |   .    |		CMPI.B	#0x2e,D1
00017ab2 66 02                    |f       |		BNE	0x17ab6
00017ab4 52 00                    |R       |		ADDQ.B	#0x1,D0
00017ab6 1d 40 ff fe              | @      |		MOVE.B	D0,(A6-0x2)
00017aba 4a 00                    |J       |		TST.B	D0
00017abc 66 0e                    |f       |		BNE	0x17acc
00017abe 42 81                    |B       |		CLR.L	D1
00017ac0 32 13                    |2       |		MOVE.W	(A3),D1
00017ac2 52 81                    |R       |		ADDQ.L	#0x1,D1
00017ac4 b2 84                    |        |		CMP.L	D4,D1
00017ac6 63 02                    |c       |		BLS	0x17aca
00017ac8 4e 4f                    |NO      |		TRAP	#15
00017aca 36 81                    |6       |		MOVE.W	D1,(A3)
00017acc 52 85                    |R       |		ADDQ.L	#0x1,D5
00017ace 42 81                    |B       |		CLR.L	D1
00017ad0 32 2e ff f6              |2.      |		MOVE.W	(A6-0xa),D1
00017ad4 ba 81                    |        |		CMP.L	D1,D5
00017ad6 62 04                    |b       |		BHI	0x17adc
00017ad8 4a 00                    |J       |		TST.B	D0
00017ada 67 ba                    |g       |		BEQ	0x17a96
00017adc 60 a4                    |`       |		BRA	0x17a82
00017ade 0c 03 00 26              |   &    |		CMPI.B	#0x26,D3
00017ae2 66 08                    |f       |		BNE	0x17aec
00017ae4 4a 81                    |J       |		TST.L	D1
00017ae6 6f 02                    |o       |		BLE	0x17aea
00017ae8 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00017aea 60 20                    |`       |		BRA	0x17b0c
00017aec 4a 81                    |J       |		TST.L	D1
00017aee 6f 1c                    |o       |		BLE	0x17b0c
00017af0 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00017af4 42 80                    |B       |		CLR.L	D0
00017af6 30 14                    |0       |		MOVE.W	(A4),D0
00017af8 53 80                    |S       |		SUBQ.L	#0x1,D0
00017afa 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
00017b00 63 02                    |c       |		BLS	0x17b04
00017b02 4e 4f                    |NO      |		TRAP	#15
00017b04 b6 30 08 02              | 0      |		CMP.B	(A0+D0.L+#0x2),D3
00017b08 66 02                    |f       |		BNE	0x17b0c
00017b0a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00017b0c 0c 07 00 02              |        |		CMPI.B	#0x02,D7
00017b10 66 2a                    |f*      |		BNE	0x17b3c
00017b12 42 80                    |B       |		CLR.L	D0
00017b14 30 06                    |0       |		MOVE.W	D6,D0
00017b16 52 80                    |R       |		ADDQ.L	#0x1,D0
00017b18 b0 84                    |        |		CMP.L	D4,D0
00017b1a 63 02                    |c       |		BLS	0x17b1e
00017b1c 4e 4f                    |NO      |		TRAP	#15
00017b1e 3c 00                    |<       |		MOVE.W	D0,D6
00017b20 4d bc 00 14              |M       |		CHK.W	#0x14,D6
00017b24 70 06                    |p       |		MOVEQ.L	#0x06,D0
00017b26 c0 c6                    |        |		MULU.W	D6,D0
00017b28 41 ee ff 64              |A  d    |		LEA.L	(A6-0x9c),A0
00017b2c 41 f0 08 00              |A       |		LEA.L	(A0+D0.L),A0
00017b30 22 4c                    |"L      |		MOVEA.L	A4,A1
00017b32 70 05                    |p       |		MOVEQ.L	#0x05,D0
00017b34 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00017b36 51 c8 ff fc              |Q       |		DBF	D0,0x17b34
00017b3a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00017b3c 0c 07 00 01              |        |		CMPI.B	#0x01,D7
00017b40 66 4c                    |fL      |		BNE	0x17b8e
00017b42 4d bc 00 14              |M       |		CHK.W	#0x14,D6
00017b46 70 06                    |p       |		MOVEQ.L	#0x06,D0
00017b48 c0 c6                    |        |		MULU.W	D6,D0
00017b4a 41 ee ff 64              |A  d    |		LEA.L	(A6-0x9c),A0
00017b4e 22 4c                    |"L      |		MOVEA.L	A4,A1
00017b50 45 f0 08 00              |E       |		LEA.L	(A0+D0.L),A2
00017b54 72 05                    |r       |		MOVEQ.L	#0x05,D1
00017b56 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00017b58 51 c9 ff fc              |Q       |		DBF	D1,0x17b56
00017b5c 4a 46                    |JF      |		TST.W	D6
00017b5e 66 04                    |f       |		BNE	0x17b64
00017b60 7e 03                    |~       |		MOVEQ.L	#0x03,D7
00017b62 60 28                    |`(      |		BRA	0x17b8c
00017b64 4a 53                    |JS      |		TST.W	(A3)
00017b66 66 10                    |f       |		BNE	0x17b78
00017b68 42 80                    |B       |		CLR.L	D0
00017b6a 30 06                    |0       |		MOVE.W	D6,D0
00017b6c 53 80                    |S       |		SUBQ.L	#0x1,D0
00017b6e b0 84                    |        |		CMP.L	D4,D0
00017b70 63 02                    |c       |		BLS	0x17b74
00017b72 4e 4f                    |NO      |		TRAP	#15
00017b74 3c 00                    |<       |		MOVE.W	D0,D6
00017b76 60 12                    |`       |		BRA	0x17b8a
00017b78 42 81                    |B       |		CLR.L	D1
00017b7a 32 13                    |2       |		MOVE.W	(A3),D1
00017b7c 53 81                    |S       |		SUBQ.L	#0x1,D1
00017b7e b2 84                    |        |		CMP.L	D4,D1
00017b80 63 02                    |c       |		BLS	0x17b84
00017b82 4e 4f                    |NO      |		TRAP	#15
00017b84 36 81                    |6       |		MOVE.W	D1,(A3)
00017b86 31 81 08 04              |1       |		MOVE.W	D1,(A0+D0.L+#0x4)
00017b8a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00017b8c 60 ae                    |`       |		BRA	0x17b3c
00017b8e 4a 07                    |J       |		TST.B	D7
00017b90 66 24                    |f$      |		BNE	0x17bb6
00017b92 42 80                    |B       |		CLR.L	D0
00017b94 30 14                    |0       |		MOVE.W	(A4),D0
00017b96 42 81                    |B       |		CLR.L	D1
00017b98 32 13                    |2       |		MOVE.W	(A3),D1
00017b9a d2 80                    |        |		ADD.L	D0,D1
00017b9c b2 84                    |        |		CMP.L	D4,D1
00017b9e 63 02                    |c       |		BLS	0x17ba2
00017ba0 4e 4f                    |NO      |		TRAP	#15
00017ba2 38 81                    |8       |		MOVE.W	D1,(A4)
00017ba4 42 80                    |B       |		CLR.L	D0
00017ba6 30 2e ff e6              |0.      |		MOVE.W	(A6-0x1a),D0
00017baa 52 80                    |R       |		ADDQ.L	#0x1,D0
00017bac b0 84                    |        |		CMP.L	D4,D0
00017bae 63 02                    |c       |		BLS	0x17bb2
00017bb0 4e 4f                    |NO      |		TRAP	#15
00017bb2 3d 40 ff e6              |=@      |		MOVE.W	D0,(A6-0x1a)
00017bb6 60 00 fe 52              |`  R    |		BRA	0x17a0a
00017bba 42 2e 00 10              |B.      |		CLR.B	(A6+0x10)
00017bbe 0c 07 00 04              |        |		CMPI.B	#0x04,D7
00017bc2 66 04                    |f       |		BNE	0x17bc8
00017bc4 52 2e 00 10              |R.      |		ADDQ.B	#0x1,(A6+0x10)
00017bc8 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00017bcc 4e 5e                    |N^      |		UNLK	A6
00017bce 4e 75                    |Nu      |		RTS
00017bd0 ; --------------------------------------------------------------------------------------
00017bd0 ; OMSI PASCAL Function
00017bd0 ;    <LVAR  0x00c 1(rw)>
00017bd0 ;    <LVAR  0x008 4(r)>
00017bd0 ; --------------------------------------------------------------------------------------
00017bd0 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6
00017bd4 bf d5                    |        |		CMPA.L	(A5),A7
00017bd6 62 06                    |b       |		BHI	0x17bde
00017bd8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00017bdc 4e 76                    |Nv      |		TRAPV
00017bde de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00017be2 48 e7 c1 80              |H       |		MOVEM.L	A0+D7+D1+D0,-(A7)
00017be6 1d 7c 00 01 00 0c        | |      |		MOVE.B	#0x01,(A6+0xc)
00017bec 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00017bf0 2f 08                    |/       |		MOVE.L	A0,-(A7)
00017bf2 30 10                    |0       |		MOVE.W	(A0),D0
00017bf4 48 c0                    |H       |		EXTW.L	D0
00017bf6 2f 00                    |/       |		MOVE.L	D0,-(A7)
00017bf8 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00017bfa be 97                    |        |		CMP.L	(A7),D7
00017bfc 6e 30                    |n0      |		BGT	0x17c2e
00017bfe 20 07                    |        |		MOVE.L	D7,D0
00017c00 53 80                    |S       |		SUBQ.L	#0x1,D0
00017c02 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
00017c08 63 02                    |c       |		BLS	0x17c0c
00017c0a 4e 4f                    |NO      |		TRAP	#15
00017c0c 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00017c10 12 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),D1
00017c14 0c 01 00 2a              |   *    |		CMPI.B	#0x2a,D1
00017c18 67 0c                    |g       |		BEQ	0x17c26
00017c1a 0c 01 00 26              |   &    |		CMPI.B	#0x26,D1
00017c1e 67 06                    |g       |		BEQ	0x17c26
00017c20 0c 01 00 2d              |   -    |		CMPI.B	#0x2d,D1
00017c24 66 04                    |f       |		BNE	0x17c2a
00017c26 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017c28 60 0a                    |`       |		BRA	0x17c34
00017c2a 52 87                    |R       |		ADDQ.L	#0x1,D7
00017c2c 68 cc                    |h       |		BVC	0x17bfa
00017c2e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017c30 42 2e 00 0c              |B.      |		CLR.B	(A6+0xc)
00017c34 4c df 01 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0
00017c38 4e 5e                    |N^      |		UNLK	A6
00017c3a 4e 75                    |Nu      |		RTS
00017c3c ; --------------------------------------------------------------------------------------
00017c3c ; OMSI PASCAL Function
00017c3c ;    <LVAR -0x004 @ 1(r)>
00017c3c ; --------------------------------------------------------------------------------------
00017c3c 4e 56 ff b4              |NV      |		LINK.W	A6,#0xffb4
00017c40 bf d5                    |        |		CMPA.L	(A5),A7
00017c42 62 06                    |b       |		BHI	0x17c4a
00017c44 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00017c48 4e 76                    |Nv      |		TRAPV
00017c4a de fc 00 48              |   H    |		ADDA.W	#0x48,A7
00017c4e 48 e7 f9 c0              |H       |		MOVEM.L	A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00017c52 74 01                    |t       |		MOVEQ.L	#0x01,D2
00017c54 28 39 00 02 00 fc        |(9      |		MOVE.L	file_ERROR_LOG,D4
00017c5a 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
00017c60 4e b9 00 01 08 0a        |N       |		JSR	_?divs_d3_d4
00017c66 0c 84 00 00 00 07        |        |		CMPI.L	#0x00000007,D4
00017c6c 63 02                    |c       |		BLS	0x17c70
00017c6e 4e 4f                    |NO      |		TRAP	#15
00017c70 e3 84                    |        |		ASL.L	#0x1,D4
00017c72 41 f8 00 00              |A       |		LEA.L	0x0,A0
00017c76 d1 fc 00 01 00 0e        |        |		ADDA.L	#superblock_sector,A0
00017c7c 42 80                    |B       |		CLR.L	D0
00017c7e 30 30 48 04              |00H     |		MOVE.W	(A0+D4.L+#0x4),D0
00017c82 d6 80                    |        |		ADD.L	D0,D3
00017c84 0c 83 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D3
00017c8a 63 02                    |c       |		BLS	0x17c8e
00017c8c 4e 4f                    |NO      |		TRAP	#15
00017c8e 3e 03                    |>       |		MOVE.W	D3,D7
00017c90 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00017c94 3f 07                    |?       |		MOVE.W	D7,-(A7)
00017c96 48 78 00 01              |Hx      |		PEA.L	0x1
00017c9a 20 79 00 02 00 f6        | y      |		MOVEA.L	0x200f6,A0
00017ca0 30 39 00 02 01 04        |09      |		MOVE.W	0x20104,D0
00017ca6 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00017caa 42 81                    |B       |		CLR.L	D1
00017cac 32 00                    |2       |		MOVE.W	D0,D1
00017cae e1 81                    |        |		ASL.L	#0x8,D1
00017cb0 e5 81                    |        |		ASL.L	#0x2,D1
00017cb2 41 f0 18 00              |A       |		LEA.L	(A0+D1.L),A0
00017cb6 2f 08                    |/       |		MOVE.L	A0,-(A7)
00017cb8 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00017cbc 4e b9 00 01 27 b6        |N   '   |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00017cc2 de fc 00 10              |        |		ADDA.W	#0x10,A7
00017cc6 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00017cca 66 32                    |f2      |		BNE	0x17cfe
00017ccc 9e fc 00 16              |        |		SUBA.W	#0x16,A7
00017cd0 20 4f                    | O      |		MOVEA.L	A7,A0
00017cd2 43 fa fc b0              |C       |		LEA.L	0x17984,A1
00017cd6 70 14                    |p       |		MOVEQ.L	#0x14,D0
00017cd8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00017cda 51 c8 ff fc              |Q       |		DBF	D0,0x17cd8
00017cde 1f 02                    |        |		MOVE.B	D2,-(A7)
00017ce0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00017ce2 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00017ce6 3f 02                    |?       |		MOVE.W	D2,-(A7)
00017ce8 3f 3c 00 15              |?<      |		MOVE.W	#0x15,-(A7)
00017cec 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00017cf2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017cf4 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
00017cfa de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00017cfe 53 b9 00 02 01 00        |S       |		SUBQ.L	#0x1,0x20100
00017d04 4c df 03 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1
00017d08 4e 5e                    |N^      |		UNLK	A6
00017d0a 4e 75                    |Nu      |		RTS
00017d0c ; --------------------------------------------------------------------------------------
00017d0c ; OMSI PASCAL Function
00017d0c ;    <LVAR -0x004 @ 1(r)>
00017d0c ; --------------------------------------------------------------------------------------
00017d0c 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
00017d10 bf d5                    |        |		CMPA.L	(A5),A7
00017d12 62 06                    |b       |		BHI	0x17d1a
00017d14 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00017d18 4e 76                    |Nv      |		TRAPV
00017d1a de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
00017d1e 48 e7 ff 80              |H       |		MOVEM.L	A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00017d22 74 0f                    |t       |		MOVEQ.L	#0x0f,D2
00017d24 2a 3c 00 00 08 00        |*<      |		MOVE.L	#0x800,D5
00017d2a 52 b9 00 02 01 00        |R       |		ADDQ.L	#0x1,0x20100
00017d30 20 39 00 02 01 00        | 9      |		MOVE.L	0x20100,D0
00017d36 b0 82                    |        |		CMP.L	D2,D0
00017d38 6f 00 00 fa              |o       |		BLE	0x17e34
00017d3c 52 b9 00 02 00 fc        |R       |		ADDQ.L	#0x1,file_ERROR_LOG
00017d42 42 80                    |B       |		CLR.L	D0
00017d44 30 39 00 02 01 04        |09      |		MOVE.W	0x20104,D0
00017d4a 52 80                    |R       |		ADDQ.L	#0x1,D0
00017d4c 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00017d52 63 02                    |c       |		BLS	0x17d56
00017d54 4e 4f                    |NO      |		TRAP	#15
00017d56 33 c0 00 02 01 04        |3       |		MOVE.W	D0,0x20104
00017d5c 42 b9 00 02 01 00        |B       |		CLR.L	0x20100
00017d62 20 39 00 02 00 fc        | 9      |		MOVE.L	file_ERROR_LOG,D0
00017d68 b0 85                    |        |		CMP.L	D5,D0
00017d6a 6d 04                    |m       |		BLT	0x17d70
00017d6c 60 00 01 08              |`       |		BRA	0x17e76
00017d70 30 39 00 02 01 04        |09      |		MOVE.W	0x20104,D0
00017d76 b0 79 00 02 01 06        | y      |		CMP.W	0x20106,D0
00017d7c 65 00 00 b6              |e       |		BCS	0x17e34
00017d80 42 80                    |B       |		CLR.L	D0
00017d82 30 39 00 02 01 06        |09      |		MOVE.W	0x20106,D0
00017d88 22 39 00 02 00 fc        |"9      |		MOVE.L	file_ERROR_LOG,D1
00017d8e d2 80                    |        |		ADD.L	D0,D1
00017d90 b2 85                    |        |		CMP.L	D5,D1
00017d92 6f 0a                    |o       |		BLE	0x17d9e
00017d94 2e 05                    |.       |		MOVE.L	D5,D7
00017d96 9e b9 00 02 00 fc        |        |		SUB.L	file_ERROR_LOG,D7
00017d9c 60 02                    |`       |		BRA	0x17da0
00017d9e 2e 00                    |.       |		MOVE.L	D0,D7
00017da0 28 39 00 02 00 fc        |(9      |		MOVE.L	file_ERROR_LOG,D4
00017da6 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
00017dac 4e b9 00 01 08 0a        |N       |		JSR	_?divs_d3_d4
00017db2 0c 84 00 00 00 07        |        |		CMPI.L	#0x00000007,D4
00017db8 63 02                    |c       |		BLS	0x17dbc
00017dba 4e 4f                    |NO      |		TRAP	#15
00017dbc e3 84                    |        |		ASL.L	#0x1,D4
00017dbe 41 f8 00 00              |A       |		LEA.L	0x0,A0
00017dc2 d1 fc 00 01 00 0e        |        |		ADDA.L	#superblock_sector,A0
00017dc8 42 80                    |B       |		CLR.L	D0
00017dca 30 30 48 04              |00H     |		MOVE.W	(A0+D4.L+#0x4),D0
00017dce d6 80                    |        |		ADD.L	D0,D3
00017dd0 0c 83 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D3
00017dd6 63 02                    |c       |		BLS	0x17dda
00017dd8 4e 4f                    |NO      |		TRAP	#15
00017dda 3c 03                    |<       |		MOVE.W	D3,D6
00017ddc 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00017de0 3f 06                    |?       |		MOVE.W	D6,-(A7)
00017de2 2f 07                    |/       |		MOVE.L	D7,-(A7)
00017de4 2f 39 00 02 00 f6        |/9      |		MOVE.L	0x200f6,-(A7)
00017dea 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00017dee 4e b9 00 01 27 b6        |N   '   |		JSR	_RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00017df4 de fc 00 10              |        |		ADDA.W	#0x10,A7
00017df8 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00017dfc 66 30                    |f0      |		BNE	0x17e2e
00017dfe 41 fa fb ae              |A       |		LEA.L	0x179ae,A0
00017e02 70 04                    |p       |		MOVEQ.L	#0x04,D0
00017e04 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00017e06 51 c8 ff fc              |Q       |		DBF	D0,0x17e04
00017e0a 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
00017e0e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00017e10 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00017e14 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00017e18 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00017e1c 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00017e22 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017e24 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
00017e2a de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00017e2e 42 79 00 02 01 04        |By      |		CLR.W	0x20104
00017e34 20 79 00 02 00 f6        | y      |		MOVEA.L	0x200f6,A0
00017e3a 30 39 00 02 01 04        |09      |		MOVE.W	0x20104,D0
00017e40 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00017e44 42 81                    |B       |		CLR.L	D1
00017e46 32 00                    |2       |		MOVE.W	D0,D1
00017e48 e1 81                    |        |		ASL.L	#0x8,D1
00017e4a e5 81                    |        |		ASL.L	#0x2,D1
00017e4c 20 39 00 02 01 00        | 9      |		MOVE.L	0x20100,D0
00017e52 b0 82                    |        |		CMP.L	D2,D0
00017e54 63 02                    |c       |		BLS	0x17e58
00017e56 4e 4f                    |NO      |		TRAP	#15
00017e58 ed 80                    |        |		ASL.L	#0x6,D0
00017e5a 41 f0 18 00              |A       |		LEA.L	(A0+D1.L),A0
00017e5e 12 30 08 3f              | 0 ?    |		MOVE.B	(A0+D0.L+#0x3f),D1
00017e62 e9 09                    |        |		LSL.B	#0x4,D1
00017e64 ee 09                    |        |		LSR.B	#0x7,D1
00017e66 67 08                    |g       |		BEQ	0x17e70
00017e68 23 c2 00 02 01 00        |#       |		MOVE.L	D2,0x20100
00017e6e 60 02                    |`       |		BRA	0x17e72
00017e70 60 0e                    |`       |		BRA	0x17e80
00017e72 60 00 fe b6              |`       |		BRA	0x17d2a
00017e76 23 fc ff ff ff ff 00 02  |#       |		MOVE.L	#0xffffffff,0x20100
00017e7e 01 00                    |        |
00017e80 4c df 01 ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0
00017e84 4e 5e                    |N^      |		UNLK	A6
00017e86 4e 75                    |Nu      |		RTS
00017e88 ; --------------------------------------------------------------------------------------
00017e88 ; OMSI PASCAL Function
00017e88 ;    <LVAR  0x008 4(r)>
00017e88 ;    <LVAR -0x006 @ 4(rw)>
00017e88 ; --------------------------------------------------------------------------------------
00017e88 4e 56 ff 92              |NV      |		LINK.W	A6,#0xff92
00017e8c bf d5                    |        |		CMPA.L	(A5),A7
00017e8e 62 06                    |b       |		BHI	0x17e96
00017e90 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00017e94 4e 76                    |Nv      |		TRAPV
00017e96 de fc 00 66              |   f    |		ADDA.W	#0x66,A7
00017e9a 48 e7 fd f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7)
00017e9e 74 1e                    |t       |		MOVEQ.L	#0x1e,D2
00017ea0 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00017ea2 4e ba fe 68              |N  h    |		JSR	0x17d0c
00017ea6 20 39 00 02 01 00        | 9      |		MOVE.L	0x20100,D0
00017eac 0c 80 ff ff ff ff        |        |		CMPI.L	#0xffffffff,D0
00017eb2 66 04                    |f       |		BNE	0x17eb8
00017eb4 60 00 01 46              |`  F    |		BRA	0x17ffc
00017eb8 20 79 00 02 00 f6        | y      |		MOVEA.L	0x200f6,A0
00017ebe 30 39 00 02 01 04        |09      |		MOVE.W	0x20104,D0
00017ec4 41 bc 00 03              |A       |		CHK.W	#0x3,D0
00017ec8 42 81                    |B       |		CLR.L	D1
00017eca 32 00                    |2       |		MOVE.W	D0,D1
00017ecc e1 81                    |        |		ASL.L	#0x8,D1
00017ece e5 81                    |        |		ASL.L	#0x2,D1
00017ed0 20 39 00 02 01 00        | 9      |		MOVE.L	0x20100,D0
00017ed6 0c 80 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D0
00017edc 63 02                    |c       |		BLS	0x17ee0
00017ede 4e 4f                    |NO      |		TRAP	#15
00017ee0 ed 80                    |        |		ASL.L	#0x6,D0
00017ee2 41 f0 18 00              |A       |		LEA.L	(A0+D1.L),A0
00017ee6 2f 00                    |/       |		MOVE.L	D0,-(A7)
00017ee8 2f 08                    |/       |		MOVE.L	A0,-(A7)
00017eea 4a 39 00 02 00 fb        |J9      |		TST.B	0x200fb
00017ef0 67 04                    |g       |		BEQ	0x17ef6
00017ef2 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00017ef4 60 4e                    |`N      |		BRA	0x17f44
00017ef6 9e c2                    |        |		SUBA.W	D2,A7
00017ef8 22 4f                    |"O      |		MOVEA.L	A7,A1
00017efa 41 f0 08 00              |A       |		LEA.L	(A0+D0.L),A0
00017efe 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00017f00 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00017f02 51 c8 ff fc              |Q       |		DBF	D0,0x17f00
00017f06 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00017f08 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00017f0c 3f 05                    |?       |		MOVE.W	D5,-(A7)
00017f0e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00017f10 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00017f16 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017f18 2d 5f ff fa              |-_      |		MOVE.L	(A7)+,(A6-0x6)
00017f1c de fc 00 18              |        |		ADDA.W	#0x18,A7
00017f20 2e ae ff fa              |.       |		MOVE.L	(A6-0x6),(A7)
00017f24 2f 39 00 02 00 f2        |/9      |		MOVE.L	0x200f2,-(A7)
00017f2a 4e ba fa 88              |N       |		JSR	_Glob(input : String; pattern : String): Bool
00017f2e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017f30 10 1f                    |        |		MOVE.B	(A7)+,D0
00017f32 48 80                    |H       |		EXTB.W	D0
00017f34 41 85                    |A       |		CHK.W	D5,D0
00017f36 1e 00                    |        |		MOVE.B	D0,D7
00017f38 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00017f3c 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00017f42 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00017f44 4a 07                    |J       |		TST.B	D7
00017f46 67 00 00 ae              |g       |		BEQ	0x17ff6
00017f4a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00017f4e 22 50                    |"P      |		MOVEA.L	(A0),A1
00017f50 24 57                    |$W      |		MOVEA.L	(A7),A2
00017f52 20 2f 00 04              | /      |		MOVE.L	(A7+0x4),D0
00017f56 26 49                    |&I      |		MOVEA.L	A1,A3
00017f58 49 f2 08 00              |I       |		LEA.L	(A2+D0.L),A4
00017f5c 72 1d                    |r       |		MOVEQ.L	#0x1d,D1
00017f5e 16 dc                    |        |		MOVE.B	(A4)+,(A3)+
00017f60 51 c9 ff fc              |Q       |		DBF	D1,0x17f5e
00017f64 33 72 08 1e 00 1e        |3r      |		MOVE.W	(A2+D0.L+#0x1e),(A1+0x1e)
00017f6a 47 e9 00 20              |G       |		LEA.L	(A1+0x20),A3
00017f6e 45 f2 08 20              |E       |		LEA.L	(A2+D0.L+#0x20),A2
00017f72 70 1f                    |p       |		MOVEQ.L	#0x1f,D0
00017f74 16 da                    |        |		MOVE.B	(A2)+,(A3)+
00017f76 51 c8 ff fc              |Q       |		DBF	D0,0x17f74
00017f7a 42 29 00 4c              |B) L    |		CLR.B	(A1+0x4c)
00017f7e 20 39 00 02 01 00        | 9      |		MOVE.L	0x20100,D0
00017f84 04 80 ff ff 80 00        |        |		SUBI.L	#0xffff8000,D0
00017f8a 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00017f90 63 02                    |c       |		BLS	0x17f94
00017f92 4e 4f                    |NO      |		TRAP	#15
00017f94 06 80 ff ff 80 00        |        |		ADDI.L	#0xffff8000,D0
00017f9a 33 40 00 42              |3@ B    |		MOVE.W	D0,(A1+0x42)
00017f9e 28 39 00 02 00 fc        |(9      |		MOVE.L	file_ERROR_LOG,D4
00017fa4 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
00017faa 4e b9 00 01 08 0a        |N       |		JSR	_?divs_d3_d4
00017fb0 0c 84 00 00 00 07        |        |		CMPI.L	#0x00000007,D4
00017fb6 63 02                    |c       |		BLS	0x17fba
00017fb8 4e 4f                    |NO      |		TRAP	#15
00017fba e3 84                    |        |		ASL.L	#0x1,D4
00017fbc 45 f8 00 00              |E       |		LEA.L	0x0,A2
00017fc0 47 f2 48 00              |G H     |		LEA.L	(A2+D4.L),A3
00017fc4 d7 fc 00 01 00 12        |        |		ADDA.L	#0x10012,A3
00017fca 42 80                    |B       |		CLR.L	D0
00017fcc 30 13                    |0       |		MOVE.W	(A3),D0
00017fce d6 80                    |        |		ADD.L	D0,D3
00017fd0 0c 83 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D3
00017fd6 63 02                    |c       |		BLS	0x17fda
00017fd8 4e 4f                    |NO      |		TRAP	#15
00017fda 33 43 00 40              |3C @    |		MOVE.W	D3,(A1+0x40)
00017fde 42 69 00 48              |Bi H    |		CLR.W	(A1+0x48)
00017fe2 42 69 00 4a              |Bi J    |		CLR.W	(A1+0x4a)
00017fe6 d5 fc 00 02 00 20        |        |		ADDA.L	#0x20020,A2
00017fec 23 52 00 44              |#R D    |		MOVE.L	(A2),(A1+0x44)
00017ff0 24 90                    |$       |		MOVE.L	(A0),(A2)
00017ff2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017ff4 60 12                    |`       |		BRA	0x18008
00017ff6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00017ff8 60 00 fe a8              |`       |		BRA	0x17ea2
00017ffc 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00018000 20 50                    | P      |		MOVEA.L	(A0),A0
00018002 00 28 00 08 00 3f        | (   ?  |		ORI.B	#0x08,(A0+0x3f)
00018008 4c df 1f bf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3+A4
0001800c 4e 5e                    |N^      |		UNLK	A6
0001800e 4e 75                    |Nu      |		RTS
00018010 ; --------------------------------------------------------------------------------------
00018010 ; DirFirst(MOD c : Bool; a : String; VAR b : File)
00018010 ; Stack:
00018010 ;     A6+0x10     c : Bool
00018010 ;     A6+0xc      a : String
00018010 ;     A6+0x8  VAR b : File
00018010 ; OMSI PASCAL Function
00018010 ;    <LVAR  0x010 1(r)>
00018010 ;    <LVAR  0x00c 4(r)>
00018010 ;    <LVAR  0x008 4(r)>
00018010 ;    <LVAR -0x002 @>
00018010 ; --------------------------------------------------------------------------------------
00018010					_DirFirst(MOD c : Bool; a : String; VAR b : File):
00018010 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6
00018014 bf d5                    |        |		CMPA.L	(A5),A7
00018016 62 06                    |b       |		BHI	0x1801e
00018018 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001801c 4e 76                    |Nv      |		TRAPV
0001801e de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00018022 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
00018026 43 ee 00 0c              |C       |		LEA.L	(A6+0xc),A1
0001802a 72 01                    |r       |		MOVEQ.L	#0x01,D1
0001802c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0001802e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00018030 4e ba fb 9e              |N       |		JSR	0x17bd0
00018034 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00018036 10 1f                    |        |		MOVE.B	(A7)+,D0
00018038 48 80                    |H       |		EXTB.W	D0
0001803a 41 81                    |A       |		CHK.W	D1,D0
0001803c 13 c0 00 02 00 fa        |        |		MOVE.B	D0,0x200fa
00018042 23 d1 00 02 00 f2        |#       |		MOVE.L	(A1),0x200f2
00018048 4a 39 00 02 00 fa        |J9      |		TST.B	0x200fa
0001804e 66 22                    |f"      |		BNE	0x18072
00018050 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00018052 42 27                    |B'      |		CLR.B	-(A7)
00018054 1f 01                    |        |		MOVE.B	D1,-(A7)
00018056 48 78 00 00              |Hx      |		PEA.L	0x0
0001805a 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
0001805e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00018062 48 50                    |HP      |		PEA.L	(A0)
00018064 4e b9 00 01 38 a6        |N   8   |		JSR	_OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0001806a de fc 00 14              |        |		ADDA.W	#0x14,A7
0001806e 60 00 00 94              |`       |		BRA	0x18104
00018072 20 51                    | Q      |		MOVEA.L	(A1),A0
00018074 42 39 00 02 00 fb        |B9      |		CLR.B	0x200fb
0001807a 30 10                    |0       |		MOVE.W	(A0),D0
0001807c b0 41                    | A      |		CMP.W	D1,D0
0001807e 66 10                    |f       |		BNE	0x18090
00018080 10 28 00 02              | (      |		MOVE.B	(A0+0x2),D0
00018084 0c 00 00 2a              |   *    |		CMPI.B	#0x2a,D0
00018088 66 06                    |f       |		BNE	0x18090
0001808a 52 39 00 02 00 fb        |R9      |		ADDQ.B	#0x1,0x200fb
00018090 10 2e 00 10              | .      |		MOVE.B	(A6+0x10),D0
00018094 b0 01                    |        |		CMP.B	D1,D0
00018096 66 0a                    |f       |		BNE	0x180a2
00018098 33 fc 00 04 00 02 01 06  |3       |		MOVE.W	#0x4,0x20106
000180a0 60 06                    |`       |		BRA	0x180a8
000180a2 33 c1 00 02 01 06        |3       |		MOVE.W	D1,0x20106
000180a8 23 fc ff ff ff ff 00 02  |#       |		MOVE.L	#0xffffffff,file_ERROR_LOG
000180b0 00 fc                    |        |
000180b2 23 fc 00 00 00 0f 00 02  |#       |		MOVE.L	#0xf,0x20100
000180ba 01 00                    |        |
000180bc 42 80                    |B       |		CLR.L	D0
000180be 30 39 00 02 01 06        |09      |		MOVE.W	0x20106,D0
000180c4 53 80                    |S       |		SUBQ.L	#0x1,D0
000180c6 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000180cc 63 02                    |c       |		BLS	0x180d0
000180ce 4e 4f                    |NO      |		TRAP	#15
000180d0 33 c0 00 02 01 04        |3       |		MOVE.W	D0,0x20104
000180d6 30 39 00 02 01 06        |09      |		MOVE.W	0x20106,D0
000180dc c0 fc 04 00              |        |		MULU.W	#0x400,D0
000180e0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000180e2 2f 00                    |/       |		MOVE.L	D0,-(A7)
000180e4 4e b9 00 01 08 3a        |N    :  |		JSR	_Malloc2(VAR dst : Pointer; length : Word)
000180ea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000180ec 23 df 00 02 00 f6        |#       |		MOVE.L	(A7)+,0x200f6
000180f2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000180f6 20 81                    |        |		MOVE.L	D1,(A0)
000180f8 42 27                    |B'      |		CLR.B	-(A7)
000180fa 48 50                    |HP      |		PEA.L	(A0)
000180fc 4e b9 00 01 81 0c        |N       |		JSR	_DirNext(MOD a : Bool; VAR b : File)
00018102 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00018104 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00018108 4e 5e                    |N^      |		UNLK	A6
0001810a 4e 75                    |Nu      |		RTS
0001810c ; --------------------------------------------------------------------------------------
0001810c ; DirNext(MOD a : Bool; VAR b : File)
0001810c ; Stack:
0001810c ;     A6+0xc      a : Bool
0001810c ;     A6+0x8  VAR b : File
0001810c ; OMSI PASCAL Function
0001810c ;    <LVAR  0x00c 1(r)>
0001810c ;    <LVAR  0x008 4(r)>
0001810c ;    <LVAR -0x002 @>
0001810c ; --------------------------------------------------------------------------------------
0001810c					_DirNext(MOD a : Bool; VAR b : File):
0001810c 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00018110 bf d5                    |        |		CMPA.L	(A5),A7
00018112 62 06                    |b       |		BHI	0x1811a
00018114 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00018118 4e 76                    |Nv      |		TRAPV
0001811a de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
0001811e 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00018122 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00018126 72 01                    |r       |		MOVEQ.L	#0x01,D1
00018128 20 52                    | R      |		MOVEA.L	(A2),A0
0001812a 22 50                    |"P      |		MOVEA.L	(A0),A1
0001812c b2 c1                    |        |		CMPA.W	D1,A1
0001812e 67 1a                    |g       |		BEQ	0x1814a
00018130 42 27                    |B'      |		CLR.B	-(A7)
00018132 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00018136 48 78 00 01              |Hx      |		PEA.L	0x1
0001813a 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
0001813e 48 50                    |HP      |		PEA.L	(A0)
00018140 4e b9 00 01 3c 7c        |N   <|  |		JSR	_CloseFile(a : L; VAR status : B; VAR file : File)
00018146 de fc 00 10              |        |		ADDA.W	#0x10,A7
0001814a 4a 39 00 02 00 fa        |J9      |		TST.B	0x200fa
00018150 66 02                    |f       |		BNE	0x18154
00018152 60 58                    |`X      |		BRA	0x181ac
00018154 4a 2e 00 0c              |J.      |		TST.B	(A6+0xc)
00018158 67 04                    |g       |		BEQ	0x1815e
0001815a 4e ba fa e0              |N       |		JSR	0x17c3c
0001815e 20 52                    | R      |		MOVEA.L	(A2),A0
00018160 48 50                    |HP      |		PEA.L	(A0)
00018162 48 78 00 4d              |Hx M    |		PEA.L	0x4d
00018166 4e b9 00 01 08 56        |N    V  |		JSR	_Malloc1(length : Long) : Pointer
0001816c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001816e 48 50                    |HP      |		PEA.L	(A0)
00018170 4e ba fd 16              |N       |		JSR	0x17e88
00018174 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00018176 22 50                    |"P      |		MOVEA.L	(A0),A1
00018178 10 29 00 3f              | ) ?    |		MOVE.B	(A1+0x3f),D0
0001817c e9 08                    |        |		LSL.B	#0x4,D0
0001817e ee 08                    |        |		LSR.B	#0x7,D0
00018180 67 2a                    |g*      |		BEQ	0x181ac
00018182 48 50                    |HP      |		PEA.L	(A0)
00018184 48 78 00 4d              |Hx M    |		PEA.L	0x4d
00018188 4e b9 00 01 08 fa        |N       |		JSR	_Free2(a : Pointer; b : Long)
0001818e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00018190 30 39 00 02 01 06        |09      |		MOVE.W	0x20106,D0
00018196 c0 fc 04 00              |        |		MULU.W	#0x400,D0
0001819a 2f 39 00 02 00 f6        |/9      |		MOVE.L	0x200f6,-(A7)
000181a0 2f 00                    |/       |		MOVE.L	D0,-(A7)
000181a2 4e b9 00 01 08 de        |N       |		JSR	_Free1(a : Pointer; b : Long)
000181a8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000181aa 20 81                    |        |		MOVE.L	D1,(A0)
000181ac 20 52                    | R      |		MOVEA.L	(A2),A0
000181ae 20 50                    | P      |		MOVEA.L	(A0),A0
000181b0 b0 c1                    |        |		CMPA.W	D1,A0
000181b2 66 0e                    |f       |		BNE	0x181c2
000181b4 48 79 00 02 00 f2        |Hy      |		PEA.L	0x200f2
000181ba 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
000181c0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000181c2 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000181c6 4e 5e                    |N^      |		UNLK	A6
000181c8 4e 75                    |Nu      |		RTS
000181ca 50 61 72 61 6d 65 74 65  |Paramete|		.TXT	'Parameter direction error '
000181e4 49 6c 6c 65 67 61 6c 20  |Illegal |		.TXT	'Illegal Hex data! '
000181f6 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment io not initialized.'
00018214 41 74 74 65 6d 70 74 20  |Attempt |		.TXT	'Attempt to re-load ->_'
0001822a 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment cache overflow ->_ '
00018248 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment CLOSE with invalid pointer.'
0001826e 20 20 5b 32 4b 20        |  [2K   |		.TXT	'  [2K '
00018274 49 4f 41 20              |IOA     |		.XXX[0x4]
00018278 20 20 20 20 20 20 57 69  |      Wi|		.XXX[0x98]
00018280 64 67 65 74 20 20 20 20  |dget    |
00018288 53 65 71 75 65 6e 63 65  |Sequence|
00018290 72 20 46 49 55 20 20 20  |r FIU   |
00018298 20 20 20 20 53 79 73 62  |    Sysb|
000182a0 75 73 20 20 20 20 41 6c  |us    Al|
000182a8 6c 20 20 20 20 20 20 20  |l       |
000182b0 54 79 70 65 20 20 20 20  |Type    |
000182b8 20 20 56 61 6c 75 65 20  |  Value |
000182c0 20 20 20 20 41 6c 6c 20  |    All |
000182c8 6d 65 6d 6f 72 79 46 49  |memoryFI|
000182d0 55 20 2f 20 4d 45 4d 20  |U / MEM |
000182d8 54 20 56 20 53 20 51 20  |T V S Q |
000182e0 20 20 41 6c 6c 20 6e 6f  |  All no|
000182e8 20 6d 65 6d 4d 65 6d 6f  | memMemo|
000182f0 72 79 20 30 20 20 4d 65  |ry 0  Me|
000182f8 6d 6f 72 79 20 31 20 20  |mory 1  |
00018300 4d 65 6d 6f 72 79 20 32  |Memory 2|
00018308 20 20 4d 65 6d 6f 72 79  |  Memory|
00018310 20 33 20 20              | 3      |		.XXX[0x4]
00018314 49 4f                    |IO      |		.TXT	'IO'
00018316 43 20                    |C       |		.XXX[0x2]
00018318 54 20 56 20 49 20 51 20  |T V I Q |		.TXT	'T V I Q '
00018320 4e 6f 74 20 75 6e 69 71  |Not uniq|		.XXX[0x60]
00018328 75 65 44 6f 6e 65 20 20  |ueDone  |
00018330 20 20 20 20 4c 6f 6f 70  |    Loop|
00018338 69 6e 67 20 20 20 50 61  |ing   Pa|
00018340 75 73 65 64 20 20 20 20  |used    |
00018348 45 72 72 6f 72 20 20 20  |Error   |
00018350 20 20 52 65 73 65 74 20  |  Reset |
00018358 20 20 20 20 52 75 6e 6e  |    Runn|
00018360 69 6e 67 20 20 20 52 65  |ing   Re|
00018368 73 65 72 76 65 64 20 31  |served 1|
00018370 52 65 73 65 72 76 65 64  |Reserved|
00018378 20 32 54 69 6d 65 6f 75  | 2Timeou|
00018380 74 20 20 20              |t       |		.XXX[0x4]
00018384 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error: got a NAK from a Download '
000183b0 20 20 6f 66              |  of    |		.TXT	'  of'
000183b4 20 65 78 70              | exp    |		.TXT	' exp'
000183b8 65 72 69 6d              |erim    |		.TXT	'erim'
000183bc 65 6e 74 5f              |ent_    |		.TXT	'ent_'
000183c0 20 74 6f 20 62 6f 61 72  | to boar|		.TXT	' to board_'
000183ca 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
000183e2 45 52 52 4f 52 3a 20 65  |ERROR: e|		.TXT	'ERROR: experiment running too long'
00018404 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error: status =_ '
00018420 20 20 20 66              |   f    |		.TXT	'   f'
00018424 72 6f 6d 5f              |rom_    |		.TXT	'rom_'
00018428 20 6f 6e 20 62 6f 61 72  | on boar|		.TXT	' on board_'
00018432 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
0001844a 01 01 01 01 01 00        |        |		.XXX[0x6]
00018450 01 01 00 00 00 00 01 01  |        |		.XXX[0x120]
00018458 01 01 00 02 00 01 00 02  |        |
00018460 00 01 00 02 00 01 06 07  |        |
00018468 04 02 03 49 4f 41 20 20  |   IOA  |
00018470 20 20 20 20 20 57 69 64  |     Wid|
00018478 67 65 74 20 20 20 20 53  |get    S|
00018480 65 71 75 65 6e 63 65 72  |equencer|
00018488 20 46 49 55 20 20 20 20  | FIU    |
00018490 20 20 20 53 79 73 62 75  |   Sysbu|
00018498 73 20 20 20 20 41 6c 6c  |s    All|
000184a0 20 20 20 20 20 20 20 54  |       T|
000184a8 79 70 65 20 20 20 20 20  |ype     |
000184b0 20 56 61 6c 75 65 20 20  | Value  |
000184b8 20 20 20 41 6c 6c 20 6d  |   All m|
000184c0 65 6d 6f 72 79 46 49 55  |emoryFIU|
000184c8 20 2f 20 4d 45 4d 20 54  | / MEM T|
000184d0 20 56 20 53 20 51 20 20  | V S Q  |
000184d8 20 41 6c 6c 20 6e 6f 20  | All no |
000184e0 6d 65 6d 4d 65 6d 6f 72  |memMemor|
000184e8 79 20 30 20 20 4d 65 6d  |y 0  Mem|
000184f0 6f 72 79 20 31 20 20 4d  |ory 1  M|
000184f8 65 6d 6f 72 79 20 32 20  |emory 2 |
00018500 20 4d 65 6d 6f 72 79 20  | Memory |
00018508 33 20 20 4e 6f 74 20 75  |3  Not u|
00018510 6e 69 71 75 65 44 6f 6e  |niqueDon|
00018518 65 20 20 20 20 20 20 4c  |e      L|
00018520 6f 6f 70 69 6e 67 20 20  |ooping  |
00018528 20 50 61 75 73 65 64 20  | Paused |
00018530 20 20 20 45 72 72 6f 72  |   Error|
00018538 20 20 20 20 20 52 65 73  |     Res|
00018540 65 74 20 20 20 20 20 52  |et     R|
00018548 75 6e 6e 69 6e 67 20 20  |unning  |
00018550 20 52 65 73 65 72 76 65  | Reserve|
00018558 64 20 31 52 65 73 65 72  |d 1Reser|
00018560 76 65 64 20 32 54 69 6d  |ved 2Tim|
00018568 65 6f 75 74 20 20 20 00  |eout    |
00018570 ; --------------------------------------------------------------------------------------
00018570 ; OMSI PASCAL Function
00018570 ;    <LVAR  0x00a 4(w)>
00018570 ;    <LVAR  0x008 1(r)>
00018570 ; --------------------------------------------------------------------------------------
00018570 4e 56 ff bc              |NV      |		LINK.W	A6,#0xffbc
00018574 bf d5                    |        |		CMPA.L	(A5),A7
00018576 62 06                    |b       |		BHI	0x1857e
00018578 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001857c 4e 76                    |Nv      |		TRAPV
0001857e de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00018582 48 e7 e1 c0              |H       |		MOVEM.L	A1+A0+D7+D2+D1+D0,-(A7)
00018586 74 30                    |t0      |		MOVEQ.L	#0x30,D2
00018588 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0001858c b0 02                    |        |		CMP.B	D2,D0
0001858e 65 12                    |e       |		BCS	0x185a2
00018590 0c 00 00 39              |   9    |		CMPI.B	#0x39,D0
00018594 62 0c                    |b       |		BHI	0x185a2
00018596 42 81                    |B       |		CLR.L	D1
00018598 12 00                    |        |		MOVE.B	D0,D1
0001859a 92 42                    | B      |		SUB.W	D2,D1
0001859c 48 c1                    |H       |		EXTW.L	D1
0001859e 2e 01                    |.       |		MOVE.L	D1,D7
000185a0 60 4c                    |`L      |		BRA	0x185ee
000185a2 0c 00 00 41              |   A    |		CMPI.B	#0x41,D0
000185a6 65 10                    |e       |		BCS	0x185b8
000185a8 0c 00 00 46              |   F    |		CMPI.B	#0x46,D0
000185ac 62 0a                    |b       |		BHI	0x185b8
000185ae 42 81                    |B       |		CLR.L	D1
000185b0 12 00                    |        |		MOVE.B	D0,D1
000185b2 04 41 00 37              | A 7    |		SUBI.W	#0x0037,D1
000185b6 60 e4                    |`       |		BRA	0x1859c
000185b8 9e fc 00 12              |        |		SUBA.W	#0x12,A7
000185bc 20 4f                    | O      |		MOVEA.L	A7,A0
000185be 43 fa fc 24              |C  $    |		LEA.L	0x181e4,A1
000185c2 70 10                    |p       |		MOVEQ.L	#0x10,D0
000185c4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000185c6 51 c8 ff fc              |Q       |		DBF	D0,0x185c4
000185ca 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
000185ce 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000185d0 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000185d4 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000185d8 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
000185dc 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
000185e2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000185e4 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
000185ea de fc 00 18              |        |		ADDA.W	#0x18,A7
000185ee 2d 47 00 0a              |-G      |		MOVE.L	D7,(A6+0xa)
000185f2 4c df 03 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1
000185f6 4e 5e                    |N^      |		UNLK	A6
000185f8 4e 75                    |Nu      |		RTS
000185fa ; --------------------------------------------------------------------------------------
000185fa ; OMSI PASCAL Function
000185fa ;    <LVAR  0x00c 4(r)>
000185fa ;    <LVAR  0x008 4(r)>
000185fa ; --------------------------------------------------------------------------------------
000185fa 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
000185fe bf d5                    |        |		CMPA.L	(A5),A7
00018600 62 06                    |b       |		BHI	0x18608
00018602 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00018606 4e 76                    |Nv      |		TRAPV
00018608 de fc 00 48              |   H    |		ADDA.W	#0x48,A7
0001860c 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
00018610 72 1e                    |r       |		MOVEQ.L	#0x1e,D1
00018612 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00018616 9e c1                    |        |		SUBA.W	D1,A7
00018618 22 4f                    |"O      |		MOVEA.L	A7,A1
0001861a 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
0001861e 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00018620 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00018622 51 c8 ff fc              |Q       |		DBF	D0,0x18620
00018626 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0001862a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0001862c 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00018630 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00018632 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00018636 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0001863a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0001863c 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00018642 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00018644 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
0001864a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001864c 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
00018652 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00018656 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
0001865a 4e 5e                    |N^      |		UNLK	A6
0001865c 4e 75                    |Nu      |		RTS
0001865e ; --------------------------------------------------------------------------------------
0001865e ; ExpLoad(a : String; b: Pointer)
0001865e ; Stack:
0001865e ;     A6+0xc      a : String
0001865e ;     A6+0x8      b : Pointer
0001865e ; OMSI PASCAL Function
0001865e ;    <LVAR  0x00c @ 4(r)>
0001865e ;    <LVAR  0x008 4(r)>
0001865e ;    <LVAR -0x002 2(r)>
0001865e ;    <LVAR -0x004 2(r)>
0001865e ;    <LVAR -0x006 @ 2(r)>
0001865e ;    <LVAR -0x008 1(rw)>
0001865e ;    <LVAR -0x010 @ 4(w)>
0001865e ;    <LVAR -0x014 @ 4(rw)>
0001865e ;    <LVAR -0x016 @ 1(r)>
0001865e ;    <LVAR -0x01a 4(w)>
0001865e ;    <LVAR -0x026 @ 4(r)>
0001865e ;    <LVAR -0x028 @>
0001865e ;    <LVAR -0x02c @ 4(r)>
0001865e ; --------------------------------------------------------------------------------------
0001865e					_ExpLoad(a : String; b: Pointer):
0001865e 4e 56 ff 62              |NV b    |		LINK.W	A6,#0xff62
00018662 bf d5                    |        |		CMPA.L	(A5),A7
00018664 62 06                    |b       |		BHI	0x1866c
00018666 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001866a 4e 76                    |Nv      |		TRAPV
0001866c de fc 00 72              |   r    |		ADDA.W	#0x72,A7
00018670 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00018674 49 f9 00 01 07 ea        |I       |		LEA.L	_?muls_d3_d4,A4
0001867a 74 01                    |t       |		MOVEQ.L	#0x01,D2
0001867c 4a 39 00 02 00 24        |J9   $  |		TST.B	exp_init_done
00018682 67 22                    |g"      |		BEQ	0x186a6
00018684 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00018686 4e b9 00 01 5b 1c        |N   [   |		JSR	_GetConsoleConfig() : Long
0001868c 20 1f                    |        |		MOVE.L	(A7)+,D0
0001868e 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00018694 63 02                    |c       |		BLS	0x18698
00018696 4e 4f                    |NO      |		TRAP	#15
00018698 3e 80                    |>       |		MOVE.W	D0,(A7)
0001869a 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0001869e 4e b9 00 01 02 0a        |N       |		JSR	KC05_Write_Console_String(port : Word ; str : String)
000186a4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000186a6 4a 39 00 02 00 25        |J9   %  |		TST.B	0x20025
000186ac 66 2e                    |f.      |		BNE	0x186dc
000186ae 41 fa fb 64              |A  d    |		LEA.L	0x18214,A0
000186b2 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
000186b4 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000186b6 51 c8 ff fc              |Q       |		DBF	D0,0x186b4
000186ba 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000186be 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000186c0 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000186c4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000186c6 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
000186ca 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
000186d0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000186d2 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
000186d8 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
000186dc 42 2e ff f8              |B.      |		CLR.B	(A6-0x8)
000186e0 7c ff                    ||       |		MOVEQ.L	#-0x01,D6
000186e2 52 86                    |R       |		ADDQ.L	#0x1,D6
000186e4 28 06                    |(       |		MOVE.L	D6,D4
000186e6 76 06                    |v       |		MOVEQ.L	#0x06,D3
000186e8 4e 94                    |N       |		JSR	(A4)
000186ea 41 f8 00 00              |A       |		LEA.L	0x0,A0
000186ee 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
000186f2 d1 fc 00 02 00 2c        |     ,  |		ADDA.L	#0x2002c,A0
000186f8 2f 08                    |/       |		MOVE.L	A0,-(A7)
000186fa 22 68 00 02              |"h      |		MOVEA.L	(A0+0x2),A1
000186fe b2 c2                    |        |		CMPA.W	D2,A1
00018700 66 06                    |f       |		BNE	0x18708
00018702 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00018704 60 00 00 86              |`       |		BRA	0x1878c
00018708 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0001870c 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001870e 30 10                    |0       |		MOVE.W	(A0),D0
00018710 48 c0                    |H       |		EXTW.L	D0
00018712 2f 00                    |/       |		MOVE.L	D0,-(A7)
00018714 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00018716 be 97                    |        |		CMP.L	(A7),D7
00018718 6e 24                    |n$      |		BGT	0x1873e
0001871a 20 6f 00 08              | o      |		MOVEA.L	(A7+0x8),A0
0001871e 20 68 00 02              | h      |		MOVEA.L	(A0+0x2),A0
00018722 41 f0 78 00              |A x     |		LEA.L	(A0+D7.L),A0
00018726 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
0001872a 10 28 00 fb              | (      |		MOVE.B	(A0+0xfb),D0
0001872e b0 31 78 01              | 1x     |		CMP.B	(A1+D7.L+#0x1),D0
00018732 67 06                    |g       |		BEQ	0x1873a
00018734 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00018738 60 44                    |`D      |		BRA	0x1877e
0001873a 52 87                    |R       |		ADDQ.L	#0x1,D7
0001873c 68 d8                    |h       |		BVC	0x18716
0001873e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00018740 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00018744 4a 10                    |J       |		TST.B	(A0)
00018746 67 2c                    |g,      |		BEQ	0x18774
00018748 43 fa fa e0              |C       |		LEA.L	0x1822a,A1
0001874c 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0001874e 3f 21                    |?!      |		MOVE.W	-(A1),-(A7)
00018750 51 c8 ff fc              |Q       |		DBF	D0,0x1874e
00018754 2f 28 00 02              |/(      |		MOVE.L	(A0+0x2),-(A7)
00018758 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0001875a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0001875e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00018760 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
00018764 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
0001876a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001876c 4e ba fe 8c              |N       |		JSR	0x185fa
00018770 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00018774 1d 42 ff f8              | B      |		MOVE.B	D2,(A6-0x8)
00018778 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001877a 60 10                    |`       |		BRA	0x1878c
0001877c 50 4f                    |PO      |		.XXX[0x2]
0001877e 42 80                    |B       |		CLR.L	D0
00018780 30 39 00 02 00 26        |09   &  |		MOVE.W	0x20026,D0
00018786 bc 80                    |        |		CMP.L	D0,D6
00018788 66 00 ff 58              |f  X    |		BNE	0x186e2
0001878c 4a 2e ff f8              |J.      |		TST.B	(A6-0x8)
00018790 67 00 00 8a              |g       |		BEQ	0x1881c
00018794 4a 86                    |J       |		TST.L	D6
00018796 67 76                    |gv      |		BEQ	0x1880e
00018798 28 06                    |(       |		MOVE.L	D6,D4
0001879a 76 06                    |v       |		MOVEQ.L	#0x06,D3
0001879c 4e 94                    |N       |		JSR	(A4)
0001879e 41 f8 00 00              |A       |		LEA.L	0x0,A0
000187a2 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
000187a6 d1 fc 00 02 00 2c        |     ,  |		ADDA.L	#0x2002c,A0
000187ac 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
000187b0 70 05                    |p       |		MOVEQ.L	#0x05,D0
000187b2 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000187b4 51 c8 ff fc              |Q       |		DBF	D0,0x187b2
000187b8 20 06                    |        |		MOVE.L	D6,D0
000187ba 53 80                    |S       |		SUBQ.L	#0x1,D0
000187bc 2e 00                    |.       |		MOVE.L	D0,D7
000187be 4a 87                    |J       |		TST.L	D7
000187c0 6d 34                    |m4      |		BLT	0x187f6
000187c2 20 07                    |        |		MOVE.L	D7,D0
000187c4 52 80                    |R       |		ADDQ.L	#0x1,D0
000187c6 28 00                    |(       |		MOVE.L	D0,D4
000187c8 76 06                    |v       |		MOVEQ.L	#0x06,D3
000187ca 4e 94                    |N       |		JSR	(A4)
000187cc 41 f8 00 00              |A       |		LEA.L	0x0,A0
000187d0 43 f0 48 00              |C H     |		LEA.L	(A0+D4.L),A1
000187d4 d3 fc 00 02 00 2c        |     ,  |		ADDA.L	#0x2002c,A1
000187da 28 07                    |(       |		MOVE.L	D7,D4
000187dc 76 06                    |v       |		MOVEQ.L	#0x06,D3
000187de 4e 94                    |N       |		JSR	(A4)
000187e0 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
000187e4 d1 fc 00 02 00 2c        |     ,  |		ADDA.L	#0x2002c,A0
000187ea 70 05                    |p       |		MOVEQ.L	#0x05,D0
000187ec 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000187ee 51 c8 ff fc              |Q       |		DBF	D0,0x187ec
000187f2 53 87                    |S       |		SUBQ.L	#0x1,D7
000187f4 68 c8                    |h       |		BVC	0x187be
000187f6 33 ee ff fa 00 02 00 2c  |3      ,|		MOVE.W	(A6-0x6),0x2002c
000187fe 33 ee ff fc 00 02 00 2e  |3      .|		MOVE.W	(A6-0x4),0x2002e
00018806 33 ee ff fe 00 02 00 30  |3      0|		MOVE.W	(A6-0x2),0x20030
0001880e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00018812 20 b9 00 02 00 2e        |     .  |		MOVE.L	0x2002e,(A0)
00018818 60 00 02 da              |`       |		BRA	0x18af4
0001881c 28 06                    |(       |		MOVE.L	D6,D4
0001881e 76 06                    |v       |		MOVEQ.L	#0x06,D3
00018820 4e 94                    |N       |		JSR	(A4)
00018822 41 f8 00 00              |A       |		LEA.L	0x0,A0
00018826 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
0001882a 22 48                    |"H      |		MOVEA.L	A0,A1
0001882c d3 fc 00 02 00 2c        |     ,  |		ADDA.L	#0x2002c,A1
00018832 4a 11                    |J       |		TST.B	(A1)
00018834 67 3a                    |g:      |		BEQ	0x18870
00018836 53 86                    |S       |		SUBQ.L	#0x1,D6
00018838 6c 34                    |l4      |		BGE	0x1886e
0001883a 9e fc 00 1e              |        |		SUBA.W	#0x1e,A7
0001883e 22 4f                    |"O      |		MOVEA.L	A7,A1
00018840 45 fa f9 e8              |E       |		LEA.L	0x1822a,A2
00018844 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00018846 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00018848 51 c8 ff fc              |Q       |		DBF	D0,0x18846
0001884c 22 6e 00 08              |"n      |		MOVEA.L	(A6+0x8),A1
00018850 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00018852 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00018854 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00018858 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001885a 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
0001885e 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00018864 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00018866 4e ba fd 92              |N       |		JSR	0x185fa
0001886a de fc 00 26              |   &    |		ADDA.W	#0x26,A7
0001886e 60 ac                    |`       |		BRA	0x1881c
00018870 d1 fc 00 02 00 2e        |     .  |		ADDA.L	#0x2002e,A0
00018876 22 50                    |"P      |		MOVEA.L	(A0),A1
00018878 b2 c2                    |        |		CMPA.W	D2,A1
0001887a 67 4c                    |gL      |		BEQ	0x188c8
0001887c 2d 69 00 f8 ff ec        |-i      |		MOVE.L	(A1+0xf8),(A6-0x14)
00018882 20 6e ff ec              | n      |		MOVEA.L	(A6-0x14),A0
00018886 b0 c2                    |        |		CMPA.W	D2,A0
00018888 67 1c                    |g       |		BEQ	0x188a6
0001888a 2d 48 ff f0              |-H      |		MOVE.L	A0,(A6-0x10)
0001888e 2d 68 00 02 ff ec        |-h      |		MOVE.L	(A0+0x2),(A6-0x14)
00018894 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00018898 48 78 00 06              |Hx      |		PEA.L	0x6
0001889c 4e b9 00 01 08 fa        |N       |		JSR	_Free2(a : Pointer; b : Long)
000188a2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000188a4 60 dc                    |`       |		BRA	0x18882
000188a6 28 06                    |(       |		MOVE.L	D6,D4
000188a8 76 06                    |v       |		MOVEQ.L	#0x06,D3
000188aa 4e 94                    |N       |		JSR	(A4)
000188ac 41 f8 00 00              |A       |		LEA.L	0x0,A0
000188b0 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
000188b4 d1 fc 00 02 00 2e        |     .  |		ADDA.L	#0x2002e,A0
000188ba 48 50                    |HP      |		PEA.L	(A0)
000188bc 48 78 01 1d              |Hx      |		PEA.L	0x11d
000188c0 4e b9 00 01 08 fa        |N       |		JSR	_Free2(a : Pointer; b : Long)
000188c6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000188c8 20 06                    |        |		MOVE.L	D6,D0
000188ca 53 80                    |S       |		SUBQ.L	#0x1,D0
000188cc 2e 00                    |.       |		MOVE.L	D0,D7
000188ce 4a 87                    |J       |		TST.L	D7
000188d0 6d 34                    |m4      |		BLT	0x18906
000188d2 20 07                    |        |		MOVE.L	D7,D0
000188d4 52 80                    |R       |		ADDQ.L	#0x1,D0
000188d6 28 00                    |(       |		MOVE.L	D0,D4
000188d8 76 06                    |v       |		MOVEQ.L	#0x06,D3
000188da 4e 94                    |N       |		JSR	(A4)
000188dc 41 f8 00 00              |A       |		LEA.L	0x0,A0
000188e0 43 f0 48 00              |C H     |		LEA.L	(A0+D4.L),A1
000188e4 d3 fc 00 02 00 2c        |     ,  |		ADDA.L	#0x2002c,A1
000188ea 28 07                    |(       |		MOVE.L	D7,D4
000188ec 76 06                    |v       |		MOVEQ.L	#0x06,D3
000188ee 4e 94                    |N       |		JSR	(A4)
000188f0 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
000188f4 d1 fc 00 02 00 2c        |     ,  |		ADDA.L	#0x2002c,A0
000188fa 70 05                    |p       |		MOVEQ.L	#0x05,D0
000188fc 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000188fe 51 c8 ff fc              |Q       |		DBF	D0,0x188fc
00018902 53 87                    |S       |		SUBQ.L	#0x1,D7
00018904 68 c8                    |h       |		BVC	0x188ce
00018906 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0001890a 42 27                    |B'      |		CLR.B	-(A7)
0001890c 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00018910 48 78 00 00              |Hx      |		PEA.L	0x0
00018914 48 6e ff d8              |Hn      |		PEA.L	(A6-0x28)
00018918 48 6e ff d4              |Hn      |		PEA.L	(A6-0x2c)
0001891c 4e b9 00 01 38 a6        |N   8   |		JSR	_OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00018922 de fc 00 14              |        |		ADDA.W	#0x14,A7
00018926 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001892a 48 50                    |HP      |		PEA.L	(A0)
0001892c 48 78 01 1d              |Hx      |		PEA.L	0x11d
00018930 4e b9 00 01 08 56        |N    V  |		JSR	_Malloc1(length : Long) : Pointer
00018936 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00018938 23 d0 00 02 00 2e        |#    .  |		MOVE.L	(A0),0x2002e
0001893e 20 50                    | P      |		MOVEA.L	(A0),A0
00018940 22 6e ff d4              |"n      |		MOVEA.L	(A6-0x2c),A1
00018944 45 e8 00 fc              |E       |		LEA.L	(A0+0xfc),A2
00018948 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
0001894a 14 d9                    |        |		MOVE.B	(A1)+,(A2)+
0001894c 51 c8 ff fc              |Q       |		DBF	D0,0x1894a
00018950 21 42 00 f8              |!B      |		MOVE.L	D2,(A0+0xf8)
00018954 11 7c 00 ff 01 1a        | |      |		MOVE.B	#0xff,(A0+0x11a)
0001895a 42 28 01 1b              |B(      |		CLR.B	(A0+0x11b)
0001895e 02 28 00 7f 01 1c        | (      |		ANDI.B	#0x7f,(A0+0x11c)
00018964 48 6e ff da              |Hn      |		PEA.L	(A6-0x26)
00018968 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
0001896e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00018970 7a 10                    |z       |		MOVEQ.L	#0x10,D5
00018972 20 6e ff da              | n      |		MOVEA.L	(A6-0x26),A0
00018976 2f 08                    |/       |		MOVE.L	A0,-(A7)
00018978 22 6e 00 08              |"n      |		MOVEA.L	(A6+0x8),A1
0001897c 22 51                    |"Q      |		MOVEA.L	(A1),A1
0001897e 2f 09                    |/       |		MOVE.L	A1,-(A7)
00018980 2f 2e ff d4              |/.      |		MOVE.L	(A6-0x2c),-(A7)
00018984 48 6e ff da              |Hn      |		PEA.L	(A6-0x26)
00018988 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
0001898c 4e b9 00 01 70 b6        |N   p   |		JSR	_FileReadLine(file : File; VAR a : String; VAR b : Byte)
00018992 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00018996 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
0001899a 4a 50                    |JP      |		TST.W	(A0)
0001899c 67 00 01 08              |g       |		BEQ	0x18aa6
000189a0 10 28 00 02              | (      |		MOVE.B	(A0+0x2),D0
000189a4 0c 00 00 50              |   P    |		CMPI.B	#0x50,D0
000189a8 66 00 00 d4              |f       |		BNE	0x18a7e
000189ac 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
000189b0 48 78 00 06              |Hx      |		PEA.L	0x6
000189b4 4e b9 00 01 08 56        |N    V  |		JSR	_Malloc1(length : Long) : Pointer
000189ba 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000189bc 22 6e ff ec              |"n      |		MOVEA.L	(A6-0x14),A1
000189c0 23 42 00 02              |#B      |		MOVE.L	D2,(A1+0x2)
000189c4 24 57                    |$W      |		MOVEA.L	(A7),A2
000189c6 26 6a 00 f8              |&j      |		MOVEA.L	(A2+0xf8),A3
000189ca b6 c2                    |        |		CMPA.W	D2,A3
000189cc 66 08                    |f       |		BNE	0x189d6
000189ce 25 6e ff ec 00 f8        |%n      |		MOVE.L	(A6-0x14),(A2+0xf8)
000189d4 60 0a                    |`       |		BRA	0x189e0
000189d6 26 6a 00 f4              |&j      |		MOVEA.L	(A2+0xf4),A3
000189da 27 6e ff ec 00 02        |'n      |		MOVE.L	(A6-0x14),(A3+0x2)
000189e0 25 6e ff ec 00 f4        |%n      |		MOVE.L	(A6-0x14),(A2+0xf4)
000189e6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000189e8 1f 28 00 03              | (      |		MOVE.B	(A0+0x3),-(A7)
000189ec 4e ba fb 82              |N       |		JSR	0x18570
000189f0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000189f2 20 1f                    |        |		MOVE.L	(A7)+,D0
000189f4 e9 80                    |        |		ASL.L	#0x4,D0
000189f6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000189f8 1f 28 00 04              | (      |		MOVE.B	(A0+0x4),-(A7)
000189fc 4e ba fb 72              |N  r    |		JSR	0x18570
00018a00 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00018a02 d0 9f                    |        |		ADD.L	(A7)+,D0
00018a04 13 40 00 01              | @      |		MOVE.B	D0,(A1+0x1)
00018a08 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00018a0a 1f 28 00 07              | (      |		MOVE.B	(A0+0x7),-(A7)
00018a0e 4e ba fb 60              |N  `    |		JSR	0x18570
00018a12 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00018a14 20 1f                    |        |		MOVE.L	(A7)+,D0
00018a16 02 11 00 c0              |        |		ANDI.B	#0xc0,(A1)
00018a1a 81 11                    |        |		OR.B	D0,(A1)
00018a1c 02 11 00 bf              |        |		ANDI.B	#0xbf,(A1)
00018a20 10 28 00 06              | (      |		MOVE.B	(A0+0x6),D0
00018a24 0c 00 00 46              |   F    |		CMPI.B	#0x46,D0
00018a28 66 04                    |f       |		BNE	0x18a2e
00018a2a 00 11 00 40              |   @    |		ORI.B	#0x40,(A1)
00018a2e 10 28 00 05              | (      |		MOVE.B	(A0+0x5),D0
00018a32 0c 00 00 49              |   I    |		CMPI.B	#0x49,D0
00018a36 66 06                    |f       |		BNE	0x18a3e
00018a38 00 11 00 80              |        |		ORI.B	#0x80,(A1)
00018a3c 60 3e                    |`>      |		BRA	0x18a7c
00018a3e 00 2a 00 80 01 1c        | *      |		ORI.B	#0x80,(A2+0x11c)
00018a44 02 11 00 7f              |        |		ANDI.B	#0x7f,(A1)
00018a48 10 11                    |        |		MOVE.B	(A1),D0
00018a4a e3 08                    |        |		LSL.B	#0x1,D0
00018a4c ee 08                    |        |		LSR.B	#0x7,D0
00018a4e 66 2c                    |f,      |		BNE	0x18a7c
00018a50 10 29 00 01              | )      |		MOVE.B	(A1+0x1),D0
00018a54 b0 2a 01 1a              | *      |		CMP.B	(A2+0x11a),D0
00018a58 64 04                    |d       |		BCC	0x18a5e
00018a5a 15 40 01 1a              | @      |		MOVE.B	D0,(A2+0x11a)
00018a5e 42 81                    |B       |		CLR.L	D1
00018a60 12 00                    |        |		MOVE.B	D0,D1
00018a62 42 80                    |B       |		CLR.L	D0
00018a64 10 11                    |        |		MOVE.B	(A1),D0
00018a66 e5 08                    |        |		LSL.B	#0x2,D0
00018a68 e4 08                    |        |		LSR.B	#0x2,D0
00018a6a d0 41                    | A      |		ADD.W	D1,D0
00018a6c 53 40                    |S@      |		SUBQ.W	#0x1,D0
00018a6e 42 81                    |B       |		CLR.L	D1
00018a70 12 2a 01 1b              | *      |		MOVE.B	(A2+0x11b),D1
00018a74 b0 41                    | A      |		CMP.W	D1,D0
00018a76 63 04                    |c       |		BLS	0x18a7c
00018a78 15 40 01 1b              | @      |		MOVE.B	D0,(A2+0x11b)
00018a7c 60 28                    |`(      |		BRA	0x18aa6
00018a7e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00018a80 1f 00                    |        |		MOVE.B	D0,-(A7)
00018a82 4e ba fa ec              |N       |		JSR	0x18570
00018a86 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00018a88 20 1f                    |        |		MOVE.L	(A7)+,D0
00018a8a e9 80                    |        |		ASL.L	#0x4,D0
00018a8c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00018a8e 1f 28 00 03              | (      |		MOVE.B	(A0+0x3),-(A7)
00018a92 4e ba fa dc              |N       |		JSR	0x18570
00018a96 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00018a98 d0 9f                    |        |		ADD.L	(A7)+,D0
00018a9a 2d 40 ff e6              |-@      |		MOVE.L	D0,(A6-0x1a)
00018a9e 20 57                    | W      |		MOVEA.L	(A7),A0
00018aa0 11 80 58 f4              |  X     |		MOVE.B	D0,(A0+D5.L-#0xc)
00018aa4 52 85                    |R       |		ADDQ.L	#0x1,D5
00018aa6 4a 2e ff ea              |J.      |		TST.B	(A6-0x16)
00018aaa 67 00 fe d4              |g       |		BEQ	0x18980
00018aae 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00018ab0 48 6e ff da              |Hn      |		PEA.L	(A6-0x26)
00018ab4 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00018aba 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00018abc 42 17                    |B       |		CLR.B	(A7)
00018abe 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00018ac2 48 78 00 01              |Hx      |		PEA.L	0x1
00018ac6 48 6e ff d8              |Hn      |		PEA.L	(A6-0x28)
00018aca 48 6e ff d4              |Hn      |		PEA.L	(A6-0x2c)
00018ace 4e b9 00 01 3c 7c        |N   <|  |		JSR	_CloseFile(a : L; VAR status : B; VAR file : File)
00018ad4 de fc 00 10              |        |		ADDA.W	#0x10,A7
00018ad8 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00018adc 20 50                    | P      |		MOVEA.L	(A0),A0
00018ade 20 05                    |        |		MOVE.L	D5,D0
00018ae0 04 80 00 00 00 0f        |        |		SUBI.L	#0x0000000f,D0
00018ae6 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00018aec 63 02                    |c       |		BLS	0x18af0
00018aee 4e 4f                    |NO      |		TRAP	#15
00018af0 11 40 00 02              | @      |		MOVE.B	D0,(A0+0x2)
00018af4 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00018af8 20 50                    | P      |		MOVEA.L	(A0),A0
00018afa 21 68 00 f8 00 f4        |!h      |		MOVE.L	(A0+0xf8),(A0+0xf4)
00018b00 13 c2 00 02 00 2c        |     ,  |		MOVE.B	D2,0x2002c
00018b06 48 6e 00 0c              |Hn      |		PEA.L	(A6+0xc)
00018b0a 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00018b10 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00018b12 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00018b16 4e 5e                    |N^      |		UNLK	A6
00018b18 4e 75                    |Nu      |		RTS
00018b1a ; --------------------------------------------------------------------------------------
00018b1a ; ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00018b1a ; Stack:
00018b1a ;     A6+0x10     exp : Pointer
00018b1a ;     A6+0xc      ptr : Pointer
00018b1a ;     A6+0x8      len : L
00018b1a ; OMSI PASCAL Function
00018b1a ;    <LVAR  0x014 4(r)>
00018b1a ;    <LVAR  0x010 4(r)>
00018b1a ;    <LVAR  0x00c 4(r)>
00018b1a ;    <LVAR  0x008 4(r)>
00018b1a ; --------------------------------------------------------------------------------------
00018b1a					_ExpInputParam(exp : Pointer; ptr : Pointer; len : L):
00018b1a 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
00018b1e bf d5                    |        |		CMPA.L	(A5),A7
00018b20 62 06                    |b       |		BHI	0x18b28
00018b22 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00018b26 4e 76                    |Nv      |		TRAPV
00018b28 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00018b2c 48 e7 c3 c0              |H       |		MOVEM.L	A1+A0+D7+D6+D1+D0,-(A7)
00018b30 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00018b34 2f 08                    |/       |		MOVE.L	A0,-(A7)
00018b36 22 68 00 f4              |"h      |		MOVEA.L	(A0+0xf4),A1
00018b3a 42 80                    |B       |		CLR.L	D0
00018b3c 10 29 00 01              | )      |		MOVE.B	(A1+0x1),D0
00018b40 2c 00                    |,       |		MOVE.L	D0,D6
00018b42 21 69 00 02 00 f4        |!i      |		MOVE.L	(A1+0x2),(A0+0xf4)
00018b48 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00018b4c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00018b4e be 97                    |        |		CMP.L	(A7),D7
00018b50 6e 1c                    |n       |		BGT	0x18b6e
00018b52 20 06                    |        |		MOVE.L	D6,D0
00018b54 d0 87                    |        |		ADD.L	D7,D0
00018b56 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00018b5a 22 6e 00 10              |"n      |		MOVEA.L	(A6+0x10),A1
00018b5e 22 07                    |"       |		MOVE.L	D7,D1
00018b60 92 ae 00 0c              |        |		SUB.L	(A6+0xc),D1
00018b64 11 b1 18 00 08 f4        |        |		MOVE.B	(A1+D1.L),(A0+D0.L-#0xc)
00018b6a 52 87                    |R       |		ADDQ.L	#0x1,D7
00018b6c 68 e0                    |h       |		BVC	0x18b4e
00018b6e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00018b70 4c df 03 c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1
00018b74 4e 5e                    |N^      |		UNLK	A6
00018b76 4e 75                    |Nu      |		RTS
00018b78 ; --------------------------------------------------------------------------------------
00018b78 ; ExpInputFlag(exp : Pointer; val : Word)
00018b78 ; Stack:
00018b78 ;     A6+0xa      exp : Pointer
00018b78 ;     A6+0x8      val : Word
00018b78 ; OMSI PASCAL Function
00018b78 ;    <LVAR  0x00a 4(r)>
00018b78 ;    <LVAR  0x008 1(r)>
00018b78 ; --------------------------------------------------------------------------------------
00018b78					_ExpInputFlag(exp : Pointer; val : Word):
00018b78 4e 56 ff da              |NV      |		LINK.W	A6,#0xffda
00018b7c bf d5                    |        |		CMPA.L	(A5),A7
00018b7e 62 06                    |b       |		BHI	0x18b86
00018b80 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00018b84 4e 76                    |Nv      |		TRAPV
00018b86 de fc 00 20              |        |		ADDA.W	#0x20,A7
00018b8a 48 e7 c1 c0              |H       |		MOVEM.L	A1+A0+D7+D1+D0,-(A7)
00018b8e 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00018b92 22 68 00 f4              |"h      |		MOVEA.L	(A0+0xf4),A1
00018b96 42 80                    |B       |		CLR.L	D0
00018b98 10 11                    |        |		MOVE.B	(A1),D0
00018b9a e5 08                    |        |		LSL.B	#0x2,D0
00018b9c e4 08                    |        |		LSR.B	#0x2,D0
00018b9e 2e 00                    |.       |		MOVE.L	D0,D7
00018ba0 21 69 00 02 00 f4        |!i      |		MOVE.L	(A1+0x2),(A0+0xf4)
00018ba6 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00018baa 67 18                    |g       |		BEQ	0x18bc4
00018bac 20 07                    |        |		MOVE.L	D7,D0
00018bae e3 80                    |        |		ASL.L	#0x1,D0
00018bb0 43 fa f8 a8              |C       |		LEA.L	0x1845a,A1
00018bb4 42 81                    |B       |		CLR.L	D1
00018bb6 12 28 00 05              | (      |		MOVE.B	(A0+0x5),D1
00018bba 82 71 08 00              | q      |		OR.W	(A1+D0.L),D1
00018bbe 11 41 00 05              | A      |		MOVE.B	D1,(A0+0x5)
00018bc2 60 1a                    |`       |		BRA	0x18bde
00018bc4 20 07                    |        |		MOVE.L	D7,D0
00018bc6 e3 80                    |        |		ASL.L	#0x1,D0
00018bc8 43 fa f8 94              |C       |		LEA.L	0x1845e,A1
00018bcc 30 31 08 00              |01      |		MOVE.W	(A1+D0.L),D0
00018bd0 46 40                    |F@      |		NOT.W	D0
00018bd2 42 81                    |B       |		CLR.L	D1
00018bd4 12 28 00 05              | (      |		MOVE.B	(A0+0x5),D1
00018bd8 c0 41                    | A      |		AND.W	D1,D0
00018bda 11 40 00 05              | @      |		MOVE.B	D0,(A0+0x5)
00018bde 4c df 03 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1
00018be2 4e 5e                    |N^      |		UNLK	A6
00018be4 4e 75                    |Nu      |		RTS
00018be6 ; --------------------------------------------------------------------------------------
00018be6 ; ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
00018be6 ; Stack:
00018be6 ;     A6+0x14     exp : Pointer
00018be6 ;     A6+0x10     b : Pointer
00018be6 ;     A6+0xc      c : L
00018be6 ;     A6+0x8      d : L
00018be6 ; OMSI PASCAL Function
00018be6 ;    <LVAR  0x014 4(r)>
00018be6 ;    <LVAR  0x010 4(r)>
00018be6 ;    <LVAR  0x00c 4(r)>
00018be6 ;    <LVAR  0x008 4(r)>
00018be6 ; --------------------------------------------------------------------------------------
00018be6					_ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L):
00018be6 4e 56 ff a2              |NV      |		LINK.W	A6,#0xffa2
00018bea bf d5                    |        |		CMPA.L	(A5),A7
00018bec 62 06                    |b       |		BHI	0x18bf4
00018bee 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00018bf2 4e 76                    |Nv      |		TRAPV
00018bf4 de fc 00 56              |   V    |		ADDA.W	#0x56,A7
00018bf8 48 e7 c3 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D1+D0,-(A7)
00018bfc 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00018c00 22 68 00 f4              |"h      |		MOVEA.L	(A0+0xf4),A1
00018c04 10 11                    |        |		MOVE.B	(A1),D0
00018c06 ee 08                    |        |		LSR.B	#0x7,D0
00018c08 67 34                    |g4      |		BEQ	0x18c3e
00018c0a 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
00018c0e 24 4f                    |$O      |		MOVEA.L	A7,A2
00018c10 47 fa f5 b8              |G       |		LEA.L	0x181ca,A3
00018c14 70 18                    |p       |		MOVEQ.L	#0x18,D0
00018c16 14 db                    |        |		MOVE.B	(A3)+,(A2)+
00018c18 51 c8 ff fc              |Q       |		DBF	D0,0x18c16
00018c1c 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
00018c20 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00018c22 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00018c26 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00018c2a 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
00018c2e 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00018c34 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00018c36 4e ba f9 c2              |N       |		JSR	0x185fa
00018c3a de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00018c3e 42 80                    |B       |		CLR.L	D0
00018c40 10 29 00 01              | )      |		MOVE.B	(A1+0x1),D0
00018c44 2c 00                    |,       |		MOVE.L	D0,D6
00018c46 21 69 00 02 00 f4        |!i      |		MOVE.L	(A1+0x2),(A0+0xf4)
00018c4c 20 79 00 02 00 28        | y   (  |		MOVEA.L	0x20028,A0
00018c52 2f 08                    |/       |		MOVE.L	A0,-(A7)
00018c54 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00018c58 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00018c5a be 97                    |        |		CMP.L	(A7),D7
00018c5c 6e 1c                    |n       |		BGT	0x18c7a
00018c5e 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00018c62 20 07                    |        |		MOVE.L	D7,D0
00018c64 90 ae 00 0c              |        |		SUB.L	(A6+0xc),D0
00018c68 22 06                    |"       |		MOVE.L	D6,D1
00018c6a d2 87                    |        |		ADD.L	D7,D1
00018c6c 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
00018c70 11 b1 18 f4 08 00        |        |		MOVE.B	(A1+D1.L-#0xc),(A0+D0.L)
00018c76 52 87                    |R       |		ADDQ.L	#0x1,D7
00018c78 68 e0                    |h       |		BVC	0x18c5a
00018c7a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00018c7c 4c df 0f c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1+A2+A3
00018c80 4e 5e                    |N^      |		UNLK	A6
00018c82 4e 75                    |Nu      |		RTS
00018c84 ; --------------------------------------------------------------------------------------
00018c84 ; ExpOutputFlag(exp : Pointer; VAR status : Bool)
00018c84 ; Stack:
00018c84 ;     A6+0xc      exp : Pointer
00018c84 ;     A6+0x8  VAR status : Bool
00018c84 ; OMSI PASCAL Function
00018c84 ;    <LVAR  0x00c 4(r)>
00018c84 ;    <LVAR  0x008 4(r)>
00018c84 ; --------------------------------------------------------------------------------------
00018c84					_ExpOutputFlag(exp : Pointer; VAR status : Bool):
00018c84 4e 56 ff aa              |NV      |		LINK.W	A6,#0xffaa
00018c88 bf d5                    |        |		CMPA.L	(A5),A7
00018c8a 62 06                    |b       |		BHI	0x18c92
00018c8c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00018c90 4e 76                    |Nv      |		TRAPV
00018c92 de fc 00 52              |   R    |		ADDA.W	#0x52,A7
00018c96 48 e7 c1 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D1+D0,-(A7)
00018c9a 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00018c9e 22 68 00 f4              |"h      |		MOVEA.L	(A0+0xf4),A1
00018ca2 10 11                    |        |		MOVE.B	(A1),D0
00018ca4 ee 08                    |        |		LSR.B	#0x7,D0
00018ca6 67 34                    |g4      |		BEQ	0x18cdc
00018ca8 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
00018cac 24 4f                    |$O      |		MOVEA.L	A7,A2
00018cae 47 fa f5 1a              |G       |		LEA.L	0x181ca,A3
00018cb2 70 18                    |p       |		MOVEQ.L	#0x18,D0
00018cb4 14 db                    |        |		MOVE.B	(A3)+,(A2)+
00018cb6 51 c8 ff fc              |Q       |		DBF	D0,0x18cb4
00018cba 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00018cbe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00018cc0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00018cc4 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00018cc8 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
00018ccc 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00018cd2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00018cd4 4e ba f9 24              |N  $    |		JSR	0x185fa
00018cd8 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00018cdc 42 80                    |B       |		CLR.L	D0
00018cde 10 11                    |        |		MOVE.B	(A1),D0
00018ce0 e5 08                    |        |		LSL.B	#0x2,D0
00018ce2 e4 08                    |        |		LSR.B	#0x2,D0
00018ce4 2e 00                    |.       |		MOVE.L	D0,D7
00018ce6 21 69 00 02 00 f4        |!i      |		MOVE.L	(A1+0x2),(A0+0xf4)
00018cec 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00018cf0 42 10                    |B       |		CLR.B	(A0)
00018cf2 22 79 00 02 00 28        |"y   (  |		MOVEA.L	0x20028,A1
00018cf8 20 07                    |        |		MOVE.L	D7,D0
00018cfa e3 80                    |        |		ASL.L	#0x1,D0
00018cfc 45 fa f7 64              |E  d    |		LEA.L	0x18462,A2
00018d00 42 81                    |B       |		CLR.L	D1
00018d02 12 29 00 02              | )      |		MOVE.B	(A1+0x2),D1
00018d06 c2 72 08 00              | r      |		AND.W	(A2+D0.L),D1
00018d0a 67 02                    |g       |		BEQ	0x18d0e
00018d0c 52 10                    |R       |		ADDQ.B	#0x1,(A0)
00018d0e 4c df 0f 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2+A3
00018d12 4e 5e                    |N^      |		UNLK	A6
00018d14 4e 75                    |Nu      |		RTS
00018d16 ; --------------------------------------------------------------------------------------
00018d16 ; ExpXmit(adr : Byte; b : Pointer)
00018d16 ; Stack:
00018d16 ;     A6+0xc      adr : Byte
00018d16 ;     A6+0x8      b : Pointer
00018d16 ; OMSI PASCAL Function
00018d16 ;    <LVAR  0x00c 1(r)>
00018d16 ;    <LVAR  0x008 4(r)>
00018d16 ;    <LVAR -0x002 @>
00018d16 ; --------------------------------------------------------------------------------------
00018d16					_ExpXmit(adr : Byte; b : Pointer):
00018d16 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00018d1a bf d5                    |        |		CMPA.L	(A5),A7
00018d1c 62 06                    |b       |		BHI	0x18d24
00018d1e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00018d22 4e 76                    |Nv      |		TRAPV
00018d24 de fc 00 16              |        |		ADDA.W	#0x16,A7
00018d28 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00018d2c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00018d30 11 6e 00 0c 00 01        | n      |		MOVE.B	(A6+0xc),(A0+0x1)
00018d36 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00018d3a 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00018d3e 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00018d42 4e b9 00 01 02 2a        |N    *  |		JSR	KC15_DiagBus(a : Word; b : Long) : Byte
00018d48 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00018d4c 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00018d50 4e 5e                    |N^      |		UNLK	A6
00018d52 4e 75                    |Nu      |		RTS
00018d54 ; --------------------------------------------------------------------------------------
00018d54 ; DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
00018d54 ; Stack:
00018d54 ;     A6+0x14     adr : Byte
00018d54 ;     A6+0x10 VAR status : Byte
00018d54 ;     A6+0xc  VAR b80 : Bool
00018d54 ;     A6+0x8  VAR b40 : Bool
00018d54 ; OMSI PASCAL Function
00018d54 ;    <LVAR  0x014 1(r)>
00018d54 ;    <LVAR  0x010 4(r)>
00018d54 ;    <LVAR  0x00c 4(r)>
00018d54 ;    <LVAR  0x008 4(r)>
00018d54 ;    <LVAR -0x004 @ 2(r)>
00018d54 ;    <LVAR -0x005 1(w)>
00018d54 ;    <LVAR -0x006 @>
00018d54 ; --------------------------------------------------------------------------------------
00018d54					_DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool):
00018d54 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
00018d58 bf d5                    |        |		CMPA.L	(A5),A7
00018d5a 62 06                    |b       |		BHI	0x18d62
00018d5c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00018d60 4e 76                    |Nv      |		TRAPV
00018d62 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00018d66 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00018d6a 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00018d6e 10 2e 00 14              | .      |		MOVE.B	(A6+0x14),D0
00018d72 48 80                    |H       |		EXTB.W	D0
00018d74 41 fa f6 d4              |A       |		LEA.L	0x1844a,A0
00018d78 4a 30 00 00              |J0      |		TST.B	(A0+D0.W)
00018d7c 66 16                    |f       |		BNE	0x18d94
00018d7e 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00018d82 42 10                    |B       |		CLR.B	(A0)
00018d84 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00018d88 10 bc 00 01              |        |		MOVE.B	#0x01,(A0)
00018d8c 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00018d90 42 10                    |B       |		CLR.B	(A0)
00018d92 60 4e                    |`N      |		BRA	0x18de2
00018d94 1d 40 ff fb              | @      |		MOVE.B	D0,(A6-0x5)
00018d98 41 ee ff fa              |A       |		LEA.L	(A6-0x6),A0
00018d9c 2f 08                    |/       |		MOVE.L	A0,-(A7)
00018d9e 42 67                    |Bg      |		CLR.W	-(A7)
00018da0 48 51                    |HQ      |		PEA.L	(A1)
00018da2 4e b9 00 01 02 2a        |N    *  |		JSR	KC15_DiagBus(a : Word; b : Long) : Byte
00018da8 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00018dac 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00018db0 30 11                    |0       |		MOVE.W	(A1),D0
00018db2 02 40 00 0f              | @      |		ANDI.W	#0x000f,D0
00018db6 1f 00                    |        |		MOVE.B	D0,-(A7)
00018db8 42 80                    |B       |		CLR.L	D0
00018dba 10 1f                    |        |		MOVE.B	(A7)+,D0
00018dbc 41 bc 00 09              |A       |		CHK.W	#0x9,D0
00018dc0 10 80                    |        |		MOVE.B	D0,(A0)
00018dc2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00018dc6 42 10                    |B       |		CLR.B	(A0)
00018dc8 30 11                    |0       |		MOVE.W	(A1),D0
00018dca 02 40 00 40              | @ @    |		ANDI.W	#0x0040,D0
00018dce 66 02                    |f       |		BNE	0x18dd2
00018dd0 52 10                    |R       |		ADDQ.B	#0x1,(A0)
00018dd2 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00018dd6 42 10                    |B       |		CLR.B	(A0)
00018dd8 30 11                    |0       |		MOVE.W	(A1),D0
00018dda 02 40 00 80              | @      |		ANDI.W	#0x0080,D0
00018dde 67 02                    |g       |		BEQ	0x18de2
00018de0 52 10                    |R       |		ADDQ.B	#0x1,(A0)
00018de2 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00018de6 4e 5e                    |N^      |		UNLK	A6
00018de8 4e 75                    |Nu      |		RTS
00018dea ; --------------------------------------------------------------------------------------
00018dea ; DiProcCmd(board : Byte; cmd : Byte)
00018dea ; Stack:
00018dea ;     A6+0xa      board : Byte
00018dea ;     A6+0x8      cmd : Byte
00018dea ; OMSI PASCAL Function
00018dea ;    <LVAR  0x00a 1(r)>
00018dea ;    <LVAR  0x008 1(r)>
00018dea ;    <LVAR -0x002 @>
00018dea ;    <LVAR -0x003 1(w)>
00018dea ;    <LVAR -0x004 @>
00018dea ; --------------------------------------------------------------------------------------
00018dea					_DiProcCmd(board : Byte; cmd : Byte):
00018dea 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00018dee bf d5                    |        |		CMPA.L	(A5),A7
00018df0 62 06                    |b       |		BHI	0x18df8
00018df2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00018df6 4e 76                    |Nv      |		TRAPV
00018df8 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00018dfc 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00018e00 1d 6e 00 0a ff fd        | n      |		MOVE.B	(A6+0xa),(A6-0x3)
00018e06 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
00018e0a 2f 08                    |/       |		MOVE.L	A0,-(A7)
00018e0c 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00018e10 48 80                    |H       |		EXTB.W	D0
00018e12 41 fa f6 52              |A  R    |		LEA.L	0x18466,A0
00018e16 12 30 00 00              | 0      |		MOVE.B	(A0+D0.W),D1
00018e1a 48 81                    |H       |		EXTB.W	D1
00018e1c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00018e1e 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00018e22 4e b9 00 01 02 2a        |N    *  |		JSR	KC15_DiagBus(a : Word; b : Long) : Byte
00018e28 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00018e2c 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00018e30 4e 5e                    |N^      |		UNLK	A6
00018e32 4e 75                    |Nu      |		RTS
00018e34 ; --------------------------------------------------------------------------------------
00018e34 ; ExpUpload(adr: Byte; ptr: Pointer; VAR status : Byte)
00018e34 ; Stack:
00018e34 ;     A6+0x10     adr : Byte
00018e34 ;     A6+0xc      ptr : Pointer
00018e34 ;     A6+0x8  VAR status : Byte
00018e34 ; OMSI PASCAL Function
00018e34 ;    <LVAR  0x010 1(r)>
00018e34 ;    <LVAR  0x00c 4(r)>
00018e34 ;    <LVAR  0x008 4(r)>
00018e34 ;    <LVAR -0x002 @ 2(r)>
00018e34 ; --------------------------------------------------------------------------------------
00018e34					_ExpUpload(adr: Byte; ptr: Pointer; VAR status : Byte):
00018e34 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6
00018e38 bf d5                    |        |		CMPA.L	(A5),A7
00018e3a 62 06                    |b       |		BHI	0x18e42
00018e3c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00018e40 4e 76                    |Nv      |		TRAPV
00018e42 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00018e46 48 e7 e0 c0              |H       |		MOVEM.L	A1+A0+D2+D1+D0,-(A7)
00018e4a 10 2e 00 10              | .      |		MOVE.B	(A6+0x10),D0
00018e4e 48 80                    |H       |		EXTB.W	D0
00018e50 41 fa f5 f8              |A       |		LEA.L	0x1844a,A0
00018e54 4a 30 00 00              |J0      |		TST.B	(A0+D0.W)
00018e58 66 08                    |f       |		BNE	0x18e62
00018e5a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00018e5e 42 10                    |B       |		CLR.B	(A0)
00018e60 60 74                    |`t      |		BRA	0x18ed6
00018e62 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00018e66 12 28 01 1c              | (      |		MOVE.B	(A0+0x11c),D1
00018e6a ee 09                    |        |		LSR.B	#0x7,D1
00018e6c 67 68                    |gh      |		BEQ	0x18ed6
00018e6e 22 79 00 02 00 28        |"y   (  |		MOVEA.L	0x20028,A1
00018e74 13 40 00 01              | @      |		MOVE.B	D0,(A1+0x1)
00018e78 13 68 01 1a 00 03        | h      |		MOVE.B	(A0+0x11a),(A1+0x3)
00018e7e 10 28 01 1a              | (      |		MOVE.B	(A0+0x11a),D0
00018e82 b0 28 01 1b              | (      |		CMP.B	(A0+0x11b),D0
00018e86 63 06                    |c       |		BLS	0x18e8e
00018e88 42 29 00 02              |B)      |		CLR.B	(A1+0x2)
00018e8c 60 18                    |`       |		BRA	0x18ea6
00018e8e 42 81                    |B       |		CLR.L	D1
00018e90 12 28 01 1b              | (      |		MOVE.B	(A0+0x11b),D1
00018e94 42 82                    |B       |		CLR.L	D2
00018e96 14 00                    |        |		MOVE.B	D0,D2
00018e98 44 42                    |DB      |		NEG.W	D2
00018e9a d4 41                    | A      |		ADD.W	D1,D2
00018e9c 52 42                    |RB      |		ADDQ.W	#0x1,D2
00018e9e 45 bc 00 ff              |E       |		CHK.W	#0xff,D2
00018ea2 13 42 00 02              | B      |		MOVE.B	D2,(A1+0x2)
00018ea6 2f 39 00 02 00 28        |/9   (  |		MOVE.L	0x20028,-(A7)
00018eac 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00018eb0 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00018eb4 4e b9 00 01 02 2a        |N    *  |		JSR	KC15_DiagBus(a : Word; b : Long) : Byte
00018eba de fc 00 0a              |        |		ADDA.W	#0xa,A7
00018ebe 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00018ec2 30 2e ff fe              |0.      |		MOVE.W	(A6-0x2),D0
00018ec6 02 40 00 0f              | @      |		ANDI.W	#0x000f,D0
00018eca 1f 00                    |        |		MOVE.B	D0,-(A7)
00018ecc 42 80                    |B       |		CLR.L	D0
00018ece 10 1f                    |        |		MOVE.B	(A7)+,D0
00018ed0 41 bc 00 09              |A       |		CHK.W	#0x9,D0
00018ed4 10 80                    |        |		MOVE.B	D0,(A0)
00018ed6 4c df 03 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1
00018eda 4e 5e                    |N^      |		UNLK	A6
00018edc 4e 75                    |Nu      |		RTS
00018ede ; --------------------------------------------------------------------------------------
00018ede ; ExpClose(exp : Pointer)
00018ede ; Stack:
00018ede ;     A6+0x8      exp : Pointer
00018ede ; OMSI PASCAL Function
00018ede ;    <LVAR  0x008 4(r)>
00018ede ;    <LVAR -0x008 @ 4(rw)>
00018ede ; --------------------------------------------------------------------------------------
00018ede					_ExpClose(exp : Pointer):
00018ede 4e 56 ff 9c              |NV      |		LINK.W	A6,#0xff9c
00018ee2 bf d5                    |        |		CMPA.L	(A5),A7
00018ee4 62 06                    |b       |		BHI	0x18eec
00018ee6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00018eea 4e 76                    |Nv      |		TRAPV
00018eec de fc 00 5c              |   \    |		ADDA.W	#0x5c,A7
00018ef0 48 e7 d9 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D4+D3+D1+D0,-(A7)
00018ef4 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
00018ef8 72 01                    |r       |		MOVEQ.L	#0x01,D1
00018efa 42 80                    |B       |		CLR.L	D0
00018efc 30 39 00 02 00 26        |09   &  |		MOVE.W	0x20026,D0
00018f02 2f 00                    |/       |		MOVE.L	D0,-(A7)
00018f04 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00018f06 be 97                    |        |		CMP.L	(A7),D7
00018f08 6e 34                    |n4      |		BGT	0x18f3e
00018f0a 28 07                    |(       |		MOVE.L	D7,D4
00018f0c 76 06                    |v       |		MOVEQ.L	#0x06,D3
00018f0e 4e b9 00 01 07 ea        |N       |		JSR	_?muls_d3_d4
00018f14 41 f8 00 00              |A       |		LEA.L	0x0,A0
00018f18 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
00018f1c 22 48                    |"H      |		MOVEA.L	A0,A1
00018f1e d3 fc 00 02 00 2e        |     .  |		ADDA.L	#0x2002e,A1
00018f24 24 6e 00 08              |$n      |		MOVEA.L	(A6+0x8),A2
00018f28 22 51                    |"Q      |		MOVEA.L	(A1),A1
00018f2a b3 d2                    |        |		CMPA.L	(A2),A1
00018f2c 66 0c                    |f       |		BNE	0x18f3a
00018f2e d1 fc 00 02 00 2c        |     ,  |		ADDA.L	#0x2002c,A0
00018f34 42 10                    |B       |		CLR.B	(A0)
00018f36 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00018f38 60 34                    |`4      |		BRA	0x18f6e
00018f3a 52 87                    |R       |		ADDQ.L	#0x1,D7
00018f3c 68 c8                    |h       |		BVC	0x18f06
00018f3e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00018f40 41 fa f3 2c              |A  ,    |		LEA.L	0x1826e,A0
00018f44 70 12                    |p       |		MOVEQ.L	#0x12,D0
00018f46 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00018f48 51 c8 ff fc              |Q       |		DBF	D0,0x18f46
00018f4c 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00018f50 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00018f52 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00018f56 3f 01                    |?       |		MOVE.W	D1,-(A7)
00018f58 3f 3c 00 26              |?< &    |		MOVE.W	#0x26,-(A7)
00018f5c 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00018f62 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00018f64 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
00018f6a de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00018f6e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00018f72 20 81                    |        |		MOVE.L	D1,(A0)
00018f74 4a 39 00 02 00 24        |J9   $  |		TST.B	exp_init_done
00018f7a 67 60                    |g`      |		BEQ	0x18fdc
00018f7c 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00018f7e 20 4f                    | O      |		MOVEA.L	A7,A0
00018f80 43 fa f2 ec              |C       |		LEA.L	0x1826e,A1
00018f84 70 04                    |p       |		MOVEQ.L	#0x04,D0
00018f86 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00018f88 51 c8 ff fc              |Q       |		DBF	D0,0x18f86
00018f8c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00018f8e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00018f92 3f 01                    |?       |		MOVE.W	D1,-(A7)
00018f94 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00018f98 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00018f9e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00018fa0 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00018fa2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00018fa4 20 53                    | S      |		MOVEA.L	(A3),A0
00018fa6 11 7c 00 0d 00 02        | |      |		MOVE.B	#0x0d,(A0+0x2)
00018fac 11 7c 00 1b 00 03        | |      |		MOVE.B	#0x1b,(A0+0x3)
00018fb2 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00018fb4 4e b9 00 01 5b 1c        |N   [   |		JSR	_GetConsoleConfig() : Long
00018fba 20 1f                    |        |		MOVE.L	(A7)+,D0
00018fbc 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00018fc2 63 02                    |c       |		BLS	0x18fc6
00018fc4 4e 4f                    |NO      |		TRAP	#15
00018fc6 3e 80                    |>       |		MOVE.W	D0,(A7)
00018fc8 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00018fca 4e b9 00 01 02 0a        |N       |		JSR	KC05_Write_Console_String(port : Word ; str : String)
00018fd0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00018fd2 48 53                    |HS      |		PEA.L	(A3)
00018fd4 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
00018fda 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00018fdc 4c df 0f 9b              |L       |		MOVEM.L	(A7)+,D0+D1+D3+D4+D7+A0+A1+A2+A3
00018fe0 4e 5e                    |N^      |		UNLK	A6
00018fe2 4e 75                    |Nu      |		RTS
00018fe4 ; --------------------------------------------------------------------------------------
00018fe4 ; BoardName(address : B) : String
00018fe4 ; Stack:
00018fe4 ;     A6+0xa  VAR RETURN : String
00018fe4 ;     A6+0x8      address : B
00018fe4 ; OMSI PASCAL Function
00018fe4 ;    <LVAR  0x00a 4(w)>
00018fe4 ;    <LVAR  0x008 1(r)>
00018fe4 ; --------------------------------------------------------------------------------------
00018fe4					_BoardName(address : B) : String:
00018fe4 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6
00018fe8 bf d5                    |        |		CMPA.L	(A5),A7
00018fea 62 06                    |b       |		BHI	0x18ff2
00018fec 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00018ff0 4e 76                    |Nv      |		TRAPV
00018ff2 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00018ff6 48 e7 e0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D2+D1+D0,-(A7)
00018ffa 45 f9 00 01 0d dc        |E       |		LEA.L	_StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00019000 47 ee 00 0a              |G       |		LEA.L	(A6+0xa),A3
00019004 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
00019006 74 01                    |t       |		MOVEQ.L	#0x01,D2
00019008 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0001900c 0c 00 00 04              |        |		CMPI.B	#0x04,D0
00019010 66 28                    |f(      |		BNE	0x1903a
00019012 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00019014 1e ba f2 fe              |        |		MOVE.B	0x18314,(A7)
00019018 1f 7a f2 fb 00 01        | z      |		MOVE.B	0x18315,(A7+0x1)
0001901e 1f 7a f2 f6 00 02        | z      |		MOVE.B	0x18316,(A7+0x2)
00019024 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00019026 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0001902a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001902c 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00019030 4e 92                    |N       |		JSR	(A2)
00019032 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00019034 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00019036 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019038 60 54                    |`T      |		BRA	0x1908e
0001903a b0 01                    |        |		CMP.B	D1,D0
0001903c 66 26                    |f&      |		BNE	0x19064
0001903e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00019040 20 4f                    | O      |		MOVEA.L	A7,A0
00019042 43 fa f2 d4              |C       |		LEA.L	0x18318,A1
00019046 70 06                    |p       |		MOVEQ.L	#0x06,D0
00019048 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0001904a 51 c8 ff fc              |Q       |		DBF	D0,0x19048
0001904e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00019050 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00019054 3f 02                    |?       |		MOVE.W	D2,-(A7)
00019056 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
0001905a 4e 92                    |N       |		JSR	(A2)
0001905c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001905e 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00019060 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00019062 60 2a                    |`*      |		BRA	0x1908e
00019064 48 80                    |H       |		EXTB.W	D0
00019066 c1 c1                    |        |		MULS.W	D1,D0
00019068 41 fa f4 01              |A       |		LEA.L	0x1846b,A0
0001906c 9e c1                    |        |		SUBA.W	D1,A7
0001906e 22 4f                    |"O      |		MOVEA.L	A7,A1
00019070 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
00019074 70 09                    |p       |		MOVEQ.L	#0x09,D0
00019076 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00019078 51 c8 ff fc              |Q       |		DBF	D0,0x19076
0001907c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0001907e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00019082 3f 02                    |?       |		MOVE.W	D2,-(A7)
00019084 3f 01                    |?       |		MOVE.W	D1,-(A7)
00019086 4e 92                    |N       |		JSR	(A2)
00019088 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001908a 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
0001908c de c1                    |        |		ADDA.W	D1,A7
0001908e 4c df 0f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3
00019092 4e 5e                    |N^      |		UNLK	A6
00019094 4e 75                    |Nu      |		RTS
00019096 ; --------------------------------------------------------------------------------------
00019096 ; ExpStatus2Text(status.B, &String)
00019096 ; OMSI PASCAL Function
00019096 ;    <LVAR  0x00a 4(w)>
00019096 ;    <LVAR  0x008 1(r)>
00019096 ; --------------------------------------------------------------------------------------
00019096					_ExpStatus2Text(status.B, &String):
00019096 4e 56 ff d4              |NV      |		LINK.W	A6,#0xffd4
0001909a bf d5                    |        |		CMPA.L	(A5),A7
0001909c 62 06                    |b       |		BHI	0x190a4
0001909e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000190a2 4e 76                    |Nv      |		TRAPV
000190a4 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
000190a8 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
000190ac 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
000190ae 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000190b2 48 80                    |H       |		EXTB.W	D0
000190b4 c1 c1                    |        |		MULS.W	D1,D0
000190b6 41 fa f4 53              |A  S    |		LEA.L	0x1850b,A0
000190ba 9e c1                    |        |		SUBA.W	D1,A7
000190bc 22 4f                    |"O      |		MOVEA.L	A7,A1
000190be 41 f0 00 00              |A       |		LEA.L	(A0+D0.W),A0
000190c2 70 09                    |p       |		MOVEQ.L	#0x09,D0
000190c4 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000190c6 51 c8 ff fc              |Q       |		DBF	D0,0x190c4
000190ca 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000190cc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000190d0 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000190d4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000190d6 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
000190dc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000190de 2d 5f 00 0a              |-_      |		MOVE.L	(A7)+,(A6+0xa)
000190e2 de c1                    |        |		ADDA.W	D1,A7
000190e4 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
000190e8 4e 5e                    |N^      |		UNLK	A6
000190ea 4e 75                    |Nu      |		RTS
000190ec ; --------------------------------------------------------------------------------------
000190ec ; ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
000190ec ; Stack:
000190ec ;     A6+0x20 VAR RETURN : Bool
000190ec ;     A6+0x1c     VAR : Pointer
000190ec ;     A6+0x18     b : L
000190ec ;     A6+0x14     c : L
000190ec ;     A6+0x10     VAR : Pointer
000190ec ;     A6+0xc      e : L
000190ec ;     A6+0x8      f : L
000190ec ; OMSI PASCAL Function
000190ec ;    <LVAR  0x020 1(rw)>
000190ec ;    <LVAR  0x01c 4(r)>
000190ec ;    <LVAR  0x018 4(r)>
000190ec ;    <LVAR  0x014 4(r)>
000190ec ;    <LVAR  0x010 4(r)>
000190ec ;    <LVAR  0x00c 4(r)>
000190ec ;    <LVAR  0x008 4(r)>
000190ec ; --------------------------------------------------------------------------------------
000190ec					_?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool:
000190ec 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
000190f0 bf d5                    |        |		CMPA.L	(A5),A7
000190f2 62 06                    |b       |		BHI	0x190fa
000190f4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000190f8 4e 76                    |Nv      |		TRAPV
000190fa de fc 00 20              |        |		ADDA.W	#0x20,A7
000190fe 48 e7 c1 c0              |H       |		MOVEM.L	A1+A0+D7+D1+D0,-(A7)
00019102 42 2e 00 20              |B.      |		CLR.B	(A6+0x20)
00019106 4a ae 00 18              |J       |		TST.L	(A6+0x18)
0001910a 66 48                    |fH      |		BNE	0x19154
0001910c 4a ae 00 0c              |J       |		TST.L	(A6+0xc)
00019110 66 42                    |fB      |		BNE	0x19154
00019112 20 2e 00 14              | .      |		MOVE.L	(A6+0x14),D0
00019116 b0 ae 00 08              |        |		CMP.L	(A6+0x8),D0
0001911a 66 38                    |f8      |		BNE	0x19154
0001911c 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
00019120 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00019122 be 97                    |        |		CMP.L	(A7),D7
00019124 6e 26                    |n&      |		BGT	0x1914c
00019126 20 6e 00 1c              | n      |		MOVEA.L	(A6+0x1c),A0
0001912a 20 07                    |        |		MOVE.L	D7,D0
0001912c 90 ae 00 18              |        |		SUB.L	(A6+0x18),D0
00019130 22 6e 00 10              |"n      |		MOVEA.L	(A6+0x10),A1
00019134 22 07                    |"       |		MOVE.L	D7,D1
00019136 92 ae 00 0c              |        |		SUB.L	(A6+0xc),D1
0001913a 10 30 08 00              | 0      |		MOVE.B	(A0+D0.L),D0
0001913e b0 31 18 00              | 1      |		CMP.B	(A1+D1.L),D0
00019142 67 04                    |g       |		BEQ	0x19148
00019144 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019146 60 0c                    |`       |		BRA	0x19154
00019148 52 87                    |R       |		ADDQ.L	#0x1,D7
0001914a 68 d6                    |h       |		BVC	0x19122
0001914c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001914e 1d 7c 00 01 00 20        | |      |		MOVE.B	#0x01,(A6+0x20)
00019154 4c df 03 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1
00019158 4e 5e                    |N^      |		UNLK	A6
0001915a 4e 75                    |Nu      |		RTS
0001915c ; --------------------------------------------------------------------------------------
0001915c ; FSCALL_104ae
0001915c ; OMSI PASCAL Function
0001915c ;    <LVAR  0x010 4(r)>
0001915c ;    <LVAR  0x00c 4(r)>
0001915c ;    <LVAR  0x008 4(r)>
0001915c ; --------------------------------------------------------------------------------------
0001915c					_FSCALL_104ae:
0001915c 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
00019160 bf d5                    |        |		CMPA.L	(A5),A7
00019162 62 06                    |b       |		BHI	0x1916a
00019164 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00019168 4e 76                    |Nv      |		TRAPV
0001916a de fc 00 1c              |        |		ADDA.W	#0x1c,A7
0001916e 48 e7 c1 80              |H       |		MOVEM.L	A0+D7+D1+D0,-(A7)
00019172 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00019174 20 07                    |        |		MOVE.L	D7,D0
00019176 e3 80                    |        |		ASL.L	#0x1,D0
00019178 32 36 08 14              |26      |		MOVE.W	(A6+D0.L+#0x14),D1
0001917c e0 49                    | I      |		LSR.W	#0x8,D1
0001917e 1d 81 08 f4              |        |		MOVE.B	D1,(A6+D0.L-#0xc)
00019182 32 36 08 14              |26      |		MOVE.W	(A6+D0.L+#0x14),D1
00019186 02 41 00 ff              | A      |		ANDI.W	#0x00ff,D1
0001918a 1d 81 08 f5              |        |		MOVE.B	D1,(A6+D0.L-#0xb)
0001918e 52 87                    |R       |		ADDQ.L	#0x1,D7
00019190 0c 87 00 00 00 03        |        |		CMPI.L	#0x00000003,D7
00019196 6f dc                    |o       |		BLE	0x19174
00019198 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0001919c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0001919e be 97                    |        |		CMP.L	(A7),D7
000191a0 6e 1c                    |n       |		BGT	0x191be
000191a2 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000191a6 20 07                    |        |		MOVE.L	D7,D0
000191a8 90 ae 00 0c              |        |		SUB.L	(A6+0xc),D0
000191ac 72 07                    |r       |		MOVEQ.L	#0x07,D1
000191ae 92 ae 00 08              |        |		SUB.L	(A6+0x8),D1
000191b2 d2 87                    |        |		ADD.L	D7,D1
000191b4 11 b6 18 f4 08 00        |        |		MOVE.B	(A6+D1.L-#0xc),(A0+D0.L)
000191ba 52 87                    |R       |		ADDQ.L	#0x1,D7
000191bc 68 e0                    |h       |		BVC	0x1919e
000191be 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000191c0 4c df 01 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0
000191c4 4e 5e                    |N^      |		UNLK	A6
000191c6 4e 75                    |Nu      |		RTS
000191c8 ; --------------------------------------------------------------------------------------
000191c8 ; ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
000191c8 ; Stack:
000191c8 ;     A6+0x14 VAR a : Long
000191c8 ;     A6+0x10     b : L
000191c8 ;     A6+0xc      c : L
000191c8 ;     A6+0x8  VAR d : Q
000191c8 ; OMSI PASCAL Function
000191c8 ;    <LVAR  0x014 4(r)>
000191c8 ;    <LVAR  0x010 4(r)>
000191c8 ;    <LVAR  0x00c 4(r)>
000191c8 ;    <LVAR  0x008 4(r)>
000191c8 ;    <LVAR -0x005 1(r)>
000191c8 ;    <LVAR -0x006 1(r)>
000191c8 ;    <LVAR -0x007 1(r)>
000191c8 ;    <LVAR -0x008 1(r)>
000191c8 ;    <LVAR -0x009 1(r)>
000191c8 ;    <LVAR -0x00a 1(r)>
000191c8 ;    <LVAR -0x00b 1(r)>
000191c8 ;    <LVAR -0x00c 1(r)>
000191c8 ; --------------------------------------------------------------------------------------
000191c8					_?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q):
000191c8 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
000191cc bf d5                    |        |		CMPA.L	(A5),A7
000191ce 62 06                    |b       |		BHI	0x191d6
000191d0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000191d4 4e 76                    |Nv      |		TRAPV
000191d6 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000191da 48 e7 c1 80              |H       |		MOVEM.L	A0+D7+D1+D0,-(A7)
000191de 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000191e0 42 36 78 f4              |B6x     |		CLR.B	(A6+D7.L-#0xc)
000191e4 52 87                    |R       |		ADDQ.L	#0x1,D7
000191e6 0c 87 00 00 00 07        |        |		CMPI.L	#0x00000007,D7
000191ec 6f f2                    |o       |		BLE	0x191e0
000191ee 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000191f2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000191f4 be 97                    |        |		CMP.L	(A7),D7
000191f6 6e 1c                    |n       |		BGT	0x19214
000191f8 70 07                    |p       |		MOVEQ.L	#0x07,D0
000191fa 90 ae 00 0c              |        |		SUB.L	(A6+0xc),D0
000191fe d0 87                    |        |		ADD.L	D7,D0
00019200 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00019204 22 07                    |"       |		MOVE.L	D7,D1
00019206 92 ae 00 10              |        |		SUB.L	(A6+0x10),D1
0001920a 1d b0 18 00 08 f4        |        |		MOVE.B	(A0+D1.L),(A6+D0.L-#0xc)
00019210 52 87                    |R       |		ADDQ.L	#0x1,D7
00019212 68 e0                    |h       |		BVC	0x191f4
00019214 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019216 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001921a 42 80                    |B       |		CLR.L	D0
0001921c 10 2e ff f4              | .      |		MOVE.B	(A6-0xc),D0
00019220 e1 40                    | @      |		ASL.W	#0x8,D0
00019222 42 81                    |B       |		CLR.L	D1
00019224 12 2e ff f5              | .      |		MOVE.B	(A6-0xb),D1
00019228 d2 40                    | @      |		ADD.W	D0,D1
0001922a 30 81                    |0       |		MOVE.W	D1,(A0)
0001922c 42 80                    |B       |		CLR.L	D0
0001922e 10 2e ff f6              | .      |		MOVE.B	(A6-0xa),D0
00019232 e1 40                    | @      |		ASL.W	#0x8,D0
00019234 42 81                    |B       |		CLR.L	D1
00019236 12 2e ff f7              | .      |		MOVE.B	(A6-0x9),D1
0001923a d2 40                    | @      |		ADD.W	D0,D1
0001923c 31 41 00 02              |1A      |		MOVE.W	D1,(A0+0x2)
00019240 42 80                    |B       |		CLR.L	D0
00019242 10 2e ff f8              | .      |		MOVE.B	(A6-0x8),D0
00019246 e1 40                    | @      |		ASL.W	#0x8,D0
00019248 42 81                    |B       |		CLR.L	D1
0001924a 12 2e ff f9              | .      |		MOVE.B	(A6-0x7),D1
0001924e d2 40                    | @      |		ADD.W	D0,D1
00019250 31 41 00 04              |1A      |		MOVE.W	D1,(A0+0x4)
00019254 42 80                    |B       |		CLR.L	D0
00019256 10 2e ff fa              | .      |		MOVE.B	(A6-0x6),D0
0001925a e1 40                    | @      |		ASL.W	#0x8,D0
0001925c 42 81                    |B       |		CLR.L	D1
0001925e 12 2e ff fb              | .      |		MOVE.B	(A6-0x5),D1
00019262 d2 40                    | @      |		ADD.W	D0,D1
00019264 31 41 00 06              |1A      |		MOVE.W	D1,(A0+0x6)
00019268 4c df 01 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0
0001926c 4e 5e                    |N^      |		UNLK	A6
0001926e 4e 75                    |Nu      |		RTS
00019270 ; --------------------------------------------------------------------------------------
00019270 ; ExpRun(a: Bool; adr: Byte; b: Pointer)
00019270 ; Stack:
00019270 ;     A6+0xe      a : Bool
00019270 ;     A6+0xc      adr : Byte
00019270 ;     A6+0x8      b : Pointer
00019270 ; OMSI PASCAL Function
00019270 ;    <LVAR  0x00e 1(r)>
00019270 ;    <LVAR  0x00c 1(r)>
00019270 ;    <LVAR  0x008 4(r)>
00019270 ;    <LVAR -0x002 @ 1(r)>
00019270 ;    <LVAR -0x003 @ 1(r)>
00019270 ;    <LVAR -0x004 @>
00019270 ; --------------------------------------------------------------------------------------
00019270					_ExpRun(a: Bool; adr: Byte; b: Pointer):
00019270 4e 56 ff 70              |NV p    |		LINK.W	A6,#0xff70
00019274 bf d5                    |        |		CMPA.L	(A5),A7
00019276 62 06                    |b       |		BHI	0x1927e
00019278 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001927c 4e 76                    |Nv      |		TRAPV
0001927e de fc 00 88              |        |		ADDA.W	#0x88,A7
00019282 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00019286 45 f9 00 01 0d dc        |E       |		LEA.L	_StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
0001928c 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
00019290 49 ee 00 08              |I       |		LEA.L	(A6+0x8),A4
00019294 74 01                    |t       |		MOVEQ.L	#0x01,D2
00019296 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00019298 78 10                    |x       |		MOVEQ.L	#0x10,D4
0001929a 7a 0a                    |z       |		MOVEQ.L	#0x0a,D5
0001929c 7c 0e                    ||       |		MOVEQ.L	#0x0e,D6
0001929e 1f 13                    |        |		MOVE.B	(A3),-(A7)
000192a0 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000192a2 4e ba fa 72              |N  r    |		JSR	_ExpXmit(adr : Byte; b : Pointer)
000192a6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000192a8 4a 2e 00 0e              |J.      |		TST.B	(A6+0xe)
000192ac 66 08                    |f       |		BNE	0x192b6
000192ae 2e 3c 00 01 11 70        |.<   p  |		MOVE.L	#0x11170,D7
000192b4 60 06                    |`       |		BRA	0x192bc
000192b6 2e 3c 00 04 93 e0        |.<      |		MOVE.L	#0x493e0,D7
000192bc 1f 13                    |        |		MOVE.B	(A3),-(A7)
000192be 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
000192c2 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000192c6 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
000192ca 4e ba fa 88              |N       |		JSR	_DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
000192ce de c6                    |        |		ADDA.W	D6,A7
000192d0 4a 2e ff fd              |J.      |		TST.B	(A6-0x3)
000192d4 66 00 00 d0              |f       |		BNE	0x193a6
000192d8 4e b9 00 01 53 fc        |N   S   |		JSR	_WriteConsoleCrLf(void)
000192de 9e fc 00 2c              |   ,    |		SUBA.W	#0x2c,A7
000192e2 20 4f                    | O      |		MOVEA.L	A7,A0
000192e4 43 fa f0 9e              |C       |		LEA.L	0x18384,A1
000192e8 70 2a                    |p*      |		MOVEQ.L	#0x2a,D0
000192ea 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000192ec 51 c8 ff fc              |Q       |		DBF	D0,0x192ea
000192f0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000192f2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000192f6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000192f8 3f 3c 00 2b              |?< +    |		MOVE.W	#0x2b,-(A7)
000192fc 4e 92                    |N       |		JSR	(A2)
000192fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00019300 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
00019306 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
0001930a 2e ba f0 b0              |.       |		MOVE.L	0x183bc,(A7)
0001930e 2f 3a f0 a8              |/:      |		MOVE.L	0x183b8,-(A7)
00019312 2f 3a f0 a0              |/:      |		MOVE.L	0x183b4,-(A7)
00019316 2f 3a f0 98              |/:      |		MOVE.L	0x183b0,-(A7)
0001931a 20 54                    | T      |		MOVEA.L	(A4),A0
0001931c 9e c3                    |        |		SUBA.W	D3,A7
0001931e 22 4f                    |"O      |		MOVEA.L	A7,A1
00019320 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00019324 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00019326 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00019328 51 c8 ff fc              |Q       |		DBF	D0,0x19326
0001932c 41 fa f0 9c              |A       |		LEA.L	0x183ca,A0
00019330 70 04                    |p       |		MOVEQ.L	#0x04,D0
00019332 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00019334 51 c8 ff fc              |Q       |		DBF	D0,0x19332
00019338 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0001933a 48 6f 00 30              |Ho 0    |		PEA.L	(A7+0x30)
0001933e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00019340 3f 04                    |?       |		MOVE.W	D4,-(A7)
00019342 4e 92                    |N       |		JSR	(A2)
00019344 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019346 48 6f 00 16              |Ho      |		PEA.L	(A7+0x16)
0001934a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001934c 3f 03                    |?       |		MOVE.W	D3,-(A7)
0001934e 4e 92                    |N       |		JSR	(A2)
00019350 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019352 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00019356 3f 02                    |?       |		MOVE.W	D2,-(A7)
00019358 3f 05                    |?       |		MOVE.W	D5,-(A7)
0001935a 4e 92                    |N       |		JSR	(A2)
0001935c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0001935e 1e 93                    |        |		MOVE.B	(A3),(A7)
00019360 4e ba fc 82              |N       |		JSR	_BoardName(address : B) : String
00019364 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00019366 4e b9 00 01 0f f0        |N       |		JSR	_StringCat4(a, b, c, d : String) : String
0001936c de c4                    |        |		ADDA.W	D4,A7
0001936e 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
00019374 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00019378 20 4f                    | O      |		MOVEA.L	A7,A0
0001937a 43 fa f0 4e              |C  N    |		LEA.L	0x183ca,A1
0001937e 70 16                    |p       |		MOVEQ.L	#0x16,D0
00019380 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00019382 51 c8 ff fc              |Q       |		DBF	D0,0x19380
00019386 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0001938a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0001938c 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00019390 3f 02                    |?       |		MOVE.W	D2,-(A7)
00019392 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00019396 4e 92                    |N       |		JSR	(A2)
00019398 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001939a 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
000193a0 de c3                    |        |		ADDA.W	D3,A7
000193a2 60 00 01 3c              |`  <    |		BRA	0x194e0
000193a6 10 2e ff fe              | .      |		MOVE.B	(A6-0x2),D0
000193aa 0c 00 00 06              |        |		CMPI.B	#0x06,D0
000193ae 66 28                    |f(      |		BNE	0x193d8
000193b0 4a 87                    |J       |		TST.L	D7
000193b2 67 24                    |g$      |		BEQ	0x193d8
000193b4 53 87                    |S       |		SUBQ.L	#0x1,D7
000193b6 48 78 00 4e              |Hx N    |		PEA.L	0x4e
000193ba 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
000193c0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000193c2 1e 93                    |        |		MOVE.B	(A3),(A7)
000193c4 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
000193c8 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000193cc 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
000193d0 4e ba f9 82              |N       |		JSR	_DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
000193d4 de c6                    |        |		ADDA.W	D6,A7
000193d6 60 ce                    |`       |		BRA	0x193a6
000193d8 b0 02                    |        |		CMP.B	D2,D0
000193da 67 00 00 ec              |g       |		BEQ	0x194c8
000193de 4e b9 00 01 53 fc        |N   S   |		JSR	_WriteConsoleCrLf(void)
000193e4 0c 00 00 06              |        |		CMPI.B	#0x06,D0
000193e8 66 28                    |f(      |		BNE	0x19412
000193ea 41 fa f0 18              |A       |		LEA.L	0x18404,A0
000193ee 70 10                    |p       |		MOVEQ.L	#0x10,D0
000193f0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000193f2 51 c8 ff fc              |Q       |		DBF	D0,0x193f0
000193f6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000193f8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000193fc 3f 02                    |?       |		MOVE.W	D2,-(A7)
000193fe 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
00019402 4e 92                    |N       |		JSR	(A2)
00019404 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00019406 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
0001940c de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00019410 60 3c                    |`<      |		BRA	0x1944e
00019412 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
00019416 20 4f                    | O      |		MOVEA.L	A7,A0
00019418 43 fa ef ea              |C       |		LEA.L	0x18404,A1
0001941c 72 1a                    |r       |		MOVEQ.L	#0x1a,D1
0001941e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00019420 51 c9 ff fc              |Q       |		DBF	D1,0x1941e
00019424 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00019426 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0001942a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001942c 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
00019430 4e 92                    |N       |		JSR	(A2)
00019432 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00019434 1e 80                    |        |		MOVE.B	D0,(A7)
00019436 4e ba fc 5e              |N  ^    |		JSR	_ExpStatus2Text(status.B, &String)
0001943a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0001943c 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00019442 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00019444 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
0001944a de fc 00 20              |        |		ADDA.W	#0x20,A7
0001944e 2f 3a ef d4              |/:      |		MOVE.L	0x18424,-(A7)
00019452 2f 3a ef cc              |/:      |		MOVE.L	0x18420,-(A7)
00019456 20 54                    | T      |		MOVEA.L	(A4),A0
00019458 9e c3                    |        |		SUBA.W	D3,A7
0001945a 22 4f                    |"O      |		MOVEA.L	A7,A1
0001945c 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00019460 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00019462 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00019464 51 c8 ff fc              |Q       |		DBF	D0,0x19462
00019468 41 fa ef c8              |A       |		LEA.L	0x18432,A0
0001946c 70 04                    |p       |		MOVEQ.L	#0x04,D0
0001946e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00019470 51 c8 ff fc              |Q       |		DBF	D0,0x1946e
00019474 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00019476 48 6f 00 30              |Ho 0    |		PEA.L	(A7+0x30)
0001947a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001947c 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00019480 4e 92                    |N       |		JSR	(A2)
00019482 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019484 48 6f 00 16              |Ho      |		PEA.L	(A7+0x16)
00019488 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001948a 3f 03                    |?       |		MOVE.W	D3,-(A7)
0001948c 4e 92                    |N       |		JSR	(A2)
0001948e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019490 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00019494 3f 02                    |?       |		MOVE.W	D2,-(A7)
00019496 3f 05                    |?       |		MOVE.W	D5,-(A7)
00019498 4e 92                    |N       |		JSR	(A2)
0001949a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0001949c 1e 93                    |        |		MOVE.B	(A3),(A7)
0001949e 4e ba fb 44              |N  D    |		JSR	_BoardName(address : B) : String
000194a2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000194a4 4e b9 00 01 0f f0        |N       |		JSR	_StringCat4(a, b, c, d : String) : String
000194aa de c4                    |        |		ADDA.W	D4,A7
000194ac 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
000194b2 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000194b6 20 4f                    | O      |		MOVEA.L	A7,A0
000194b8 43 fa ef 78              |C  x    |		LEA.L	0x18432,A1
000194bc 70 16                    |p       |		MOVEQ.L	#0x16,D0
000194be 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000194c0 51 c8 ff fc              |Q       |		DBF	D0,0x194be
000194c4 60 00 fe c0              |`       |		BRA	0x19386
000194c8 20 54                    | T      |		MOVEA.L	(A4),A0
000194ca 10 28 01 1c              | (      |		MOVE.B	(A0+0x11c),D0
000194ce ee 08                    |        |		LSR.B	#0x7,D0
000194d0 67 0e                    |g       |		BEQ	0x194e0
000194d2 1f 13                    |        |		MOVE.B	(A3),-(A7)
000194d4 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000194d6 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
000194da 4e ba f9 58              |N  X    |		JSR	_ExpUpload(adr: Byte; ptr: Pointer; VAR status : Byte)
000194de de c5                    |        |		ADDA.W	D5,A7
000194e0 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000194e4 4e 5e                    |N^      |		UNLK	A6
000194e6 4e 75                    |Nu      |		RTS
000194e8 ; --------------------------------------------------------------------------------------
000194e8 ; HasBoard(diproc_addr: Byte) : Byte
000194e8 ; Stack:
000194e8 ;     A6+0xa  VAR RETURN : Byte
000194e8 ;     A6+0x8      diproc_addr : Byte
000194e8 ; OMSI PASCAL Function
000194e8 ;    <LVAR  0x00a 1(rw)>
000194e8 ;    <LVAR  0x008 1(r)>
000194e8 ; --------------------------------------------------------------------------------------
000194e8					_HasBoard(diproc_addr: Byte) : Byte:
000194e8 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
000194ec bf d5                    |        |		CMPA.L	(A5),A7
000194ee 62 06                    |b       |		BHI	0x194f6
000194f0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000194f4 4e 76                    |Nv      |		TRAPV
000194f6 de fc 00 12              |        |		ADDA.W	#0x12,A7
000194fa 48 e7 81 80              |H       |		MOVEM.L	A0+D7+D0,-(A7)
000194fe 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00019502 48 80                    |H       |		EXTB.W	D0
00019504 41 fa ef 44              |A  D    |		LEA.L	0x1844a,A0
00019508 4a 30 00 00              |J0      |		TST.B	(A0+D0.W)
0001950c 66 06                    |f       |		BNE	0x19514
0001950e 42 2e 00 0a              |B.      |		CLR.B	(A6+0xa)
00019512 60 58                    |`X      |		BRA	0x1956c
00019514 04 40 00 0c              | @      |		SUBI.W	#0x000c,D0
00019518 0c 40 00 03              | @      |		CMPI.W	#0x0003,D0
0001951c 62 3c                    |b<      |		BHI	0x1955a
0001951e d0 40                    | @      |		ADD.W	D0,D0
00019520 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00019528 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x19530
0001952a 00 16                    |        |		.CONST	0x16			; [0x1] -> 0x1953e
0001952c 00 20                    |        |		.CONST	0x20			; [0x2] -> 0x19548
0001952e 00 2a                    | *      |		.CONST	0x2a			; [0x3] -> 0x19552
00019530					switch@0x19520[0x0]:
00019530 10 39 00 01 c2 08        | 9      |		MOVE.B	0x1c208,D0
00019536 e7 08                    |        |		LSL.B	#0x3,D0
00019538 ee 08                    |        |		LSR.B	#0x7,D0
0001953a 1e 00                    |        |		MOVE.B	D0,D7
0001953c 60 1e                    |`       |		BRA	0x1955c
0001953e					switch@0x19520[0x1]:
0001953e 10 39 00 01 c2 08        | 9      |		MOVE.B	0x1c208,D0
00019544 e5 08                    |        |		LSL.B	#0x2,D0
00019546 60 f0                    |`       |		BRA	0x19538
00019548					switch@0x19520[0x2]:
00019548 10 39 00 01 c2 08        | 9      |		MOVE.B	0x1c208,D0
0001954e e3 08                    |        |		LSL.B	#0x1,D0
00019550 60 e6                    |`       |		BRA	0x19538
00019552					switch@0x19520[0x3]:
00019552 10 39 00 01 c2 08        | 9      |		MOVE.B	0x1c208,D0
00019558 60 de                    |`       |		BRA	0x19538
0001955a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0001955c 10 39 00 01 c2 09        | 9      |		MOVE.B	0x1c209,D0
00019562 e9 08                    |        |		LSL.B	#0x4,D0
00019564 ee 08                    |        |		LSR.B	#0x7,D0
00019566 c0 07                    |        |		AND.B	D7,D0
00019568 1d 40 00 0a              | @      |		MOVE.B	D0,(A6+0xa)
0001956c 4c df 01 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0
00019570 4e 5e                    |N^      |		UNLK	A6
00019572 4e 75                    |Nu      |		RTS
00019574 ; --------------------------------------------------------------------------------------
00019574 ; EQ_1c218(a : Byte) : Bool
00019574 ; Stack:
00019574 ;     A6+0xa  VAR RETURN : Bool
00019574 ;     A6+0x8      a : Byte
00019574 ; OMSI PASCAL Function
00019574 ;    <LVAR  0x00a 1(rw)>
00019574 ;    <LVAR  0x008 1(r)>
00019574 ; --------------------------------------------------------------------------------------
00019574					_EQ_1c218(a : Byte) : Bool:
00019574 4e 56 ff f6              |NV      |		LINK.W	A6,#0xfff6
00019578 bf d5                    |        |		CMPA.L	(A5),A7
0001957a 62 06                    |b       |		BHI	0x19582
0001957c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00019580 4e 76                    |Nv      |		TRAPV
00019582 de fc 00 08              |        |		ADDA.W	#0x8,A7
00019586 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
0001958a 42 2e 00 0a              |B.      |		CLR.B	(A6+0xa)
0001958e 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00019592 b0 39 00 01 c2 0a        | 9      |		CMP.B	0x1c20a,D0
00019598 66 04                    |f       |		BNE	0x1959e
0001959a 52 2e 00 0a              |R.      |		ADDQ.B	#0x1,(A6+0xa)
0001959e 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
000195a2 4e 5e                    |N^      |		UNLK	A6
000195a4 4e 75                    |Nu      |		RTS
000195a6 ; --------------------------------------------------------------------------------------
000195a6 ; MemOnly2MB() : Bool
000195a6 ; Stack:
000195a6 ;     A6+0x8  VAR RETURN : Bool
000195a6 ; OMSI PASCAL Function
000195a6 ;    <LVAR  0x008 1(w)>
000195a6 ; --------------------------------------------------------------------------------------
000195a6					_MemOnly2MB() : Bool:
000195a6 4e 56 ff f8              |NV      |		LINK.W	A6,#0xfff8
000195aa bf d5                    |        |		CMPA.L	(A5),A7
000195ac 62 06                    |b       |		BHI	0x195b4
000195ae 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000195b2 4e 76                    |Nv      |		TRAPV
000195b4 de fc 00 08              |        |		ADDA.W	#0x8,A7
000195b8 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
000195bc 10 39 00 01 c2 08        | 9      |		MOVE.B	0x1c208,D0
000195c2 e9 08                    |        |		LSL.B	#0x4,D0
000195c4 ee 08                    |        |		LSR.B	#0x7,D0
000195c6 1d 40 00 08              | @      |		MOVE.B	D0,(A6+0x8)
000195ca 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
000195ce 4e 5e                    |N^      |		UNLK	A6
000195d0 4e 75                    |Nu      |		RTS
000195d2 ; --------------------------------------------------------------------------------------
000195d2 ; SetExpInitDone(a : Byte)
000195d2 ; Stack:
000195d2 ;     A6+0x8      a : Byte
000195d2 ; OMSI PASCAL Function
000195d2 ;    <LVAR  0x008 1(r)>
000195d2 ; --------------------------------------------------------------------------------------
000195d2					_SetExpInitDone(a : Byte):
000195d2 4e 56 ff fa              |NV      |		LINK.W	A6,#0xfffa
000195d6 bf d5                    |        |		CMPA.L	(A5),A7
000195d8 62 06                    |b       |		BHI	0x195e0
000195da 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000195de 4e 76                    |Nv      |		TRAPV
000195e0 de fc 00 04              |        |		ADDA.W	#0x4,A7
000195e4 13 ee 00 08 00 02 00 24  |       $|		MOVE.B	(A6+0x8),exp_init_done
000195ec 4e 5e                    |N^      |		UNLK	A6
000195ee 4e 75                    |Nu      |		RTS
000195f0 ; --------------------------------------------------------------------------------------
000195f0 ; ExpInit(a : Long)
000195f0 ; Stack:
000195f0 ;     A6+0x8      a : Long
000195f0 ; OMSI PASCAL Function
000195f0 ; --------------------------------------------------------------------------------------
000195f0					_ExpInit(a : Long):
000195f0 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
000195f4 bf d5                    |        |		CMPA.L	(A5),A7
000195f6 62 06                    |b       |		BHI	0x195fe
000195f8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000195fc 4e 76                    |Nv      |		TRAPV
000195fe de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00019602 48 e7 fb c0              |H       |		MOVEM.L	A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7)
00019606 43 f9 00 01 c2 0a        |C       |		LEA.L	0x1c20a,A1
0001960c 72 01                    |r       |		MOVEQ.L	#0x01,D1
0001960e 74 1f                    |t       |		MOVEQ.L	#0x1f,D2
00019610 13 c1 00 02 00 24        |     $  |		MOVE.B	D1,exp_init_done
00019616 13 c1 00 02 00 25        |     %  |		MOVE.B	D1,0x20025
0001961c 33 c2 00 02 00 26        |3    &  |		MOVE.W	D2,0x20026
00019622 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00019624 28 07                    |(       |		MOVE.L	D7,D4
00019626 76 06                    |v       |		MOVEQ.L	#0x06,D3
00019628 4e b9 00 01 07 ea        |N       |		JSR	_?muls_d3_d4
0001962e 41 f8 00 00              |A       |		LEA.L	0x0,A0
00019632 41 f0 48 00              |A H     |		LEA.L	(A0+D4.L),A0
00019636 d1 fc 00 02 00 2c        |     ,  |		ADDA.L	#0x2002c,A0
0001963c 21 41 00 02              |!A      |		MOVE.L	D1,(A0+0x2)
00019640 42 10                    |B       |		CLR.B	(A0)
00019642 52 87                    |R       |		ADDQ.L	#0x1,D7
00019644 be 82                    |        |		CMP.L	D2,D7
00019646 6f dc                    |o       |		BLE	0x19624
00019648 48 79 00 02 00 28        |Hy   (  |		PEA.L	0x20028
0001964e 48 78 01 1d              |Hx      |		PEA.L	0x11d
00019652 4e b9 00 01 08 56        |N    V  |		JSR	_Malloc1(length : Long) : Pointer
00019658 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001965a 48 79 00 01 c2 08        |Hy      |		PEA.L	0x1c208
00019660 4e b9 00 01 aa 8a        |N       |		JSR	_Read_fc0c() : Word
00019666 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019668 12 81                    |        |		MOVE.B	D1,(A1)
0001966a 10 39 00 01 c2 09        | 9      |		MOVE.B	0x1c209,D0
00019670 e9 08                    |        |		LSL.B	#0x4,D0
00019672 ee 08                    |        |		LSR.B	#0x7,D0
00019674 67 1a                    |g       |		BEQ	0x19690
00019676 7c 0f                    ||       |		MOVEQ.L	#0x0f,D6
00019678 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0001967a 1f 06                    |        |		MOVE.B	D6,-(A7)
0001967c 4e ba fe 6a              |N  j    |		JSR	_HasBoard(diproc_addr: Byte) : Byte
00019680 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00019682 4a 1f                    |J       |		TST.B	(A7)+
00019684 67 02                    |g       |		BEQ	0x19688
00019686 12 86                    |        |		MOVE.B	D6,(A1)
00019688 53 06                    |S       |		SUBQ.B	#0x1,D6
0001968a 0c 06 00 0c              |        |		CMPI.B	#0x0c,D6
0001968e 6c e8                    |l       |		BGE	0x19678
00019690 4c df 03 df              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1
00019694 4e 5e                    |N^      |		UNLK	A6
00019696 4e 75                    |Nu      |		RTS
00019698 ; --------------------------------------------------------------------------------------
00019698 ; Get20028(void) : L
00019698 ; Stack:
00019698 ;     A6+0x8  VAR RETURN : L
00019698 ; OMSI PASCAL Function
00019698 ;    <LVAR  0x008 4(w)>
00019698 ; --------------------------------------------------------------------------------------
00019698					_Get20028(void) : L:
00019698 4e 56 ff fc              |NV      |		LINK.W	A6,#0xfffc
0001969c bf d5                    |        |		CMPA.L	(A5),A7
0001969e 62 06                    |b       |		BHI	0x196a6
000196a0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000196a4 4e 76                    |Nv      |		TRAPV
000196a6 de fc 00 04              |        |		ADDA.W	#0x4,A7
000196aa 2d 79 00 02 00 28 00 08  |-y   (  |		MOVE.L	0x20028,(A6+0x8)
000196b2 4e 5e                    |N^      |		UNLK	A6
000196b4 4e 75                    |Nu      |		RTS
000196b6 ; --------------------------------------------------------------------------------------
000196b6 ; FindWord(src : Pointer; x : Word; length : Word) : Bool
000196b6 ; Stack:
000196b6 ;     A6+0x10 VAR RETURN : Bool
000196b6 ;     A6+0xc      src : Pointer
000196b6 ;     A6+0xa      x : Word
000196b6 ;     A6+0x8      length : Word
000196b6 ; --------------------------------------------------------------------------------------
000196b6					_FindWord(src : Pointer; x : Word; length : Word) : Bool:
000196b6 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
000196ba 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
000196be bf d5                    |        |		CMPA.L	(A5),A7
000196c0 4e 76                    |Nv      |		TRAPV
000196c2 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000196c6 32 2e 00 0a              |2.      |		MOVE.W	(A6+0xa),D1
000196ca 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
000196ce 67 0e                    |g       |		BEQ	0x196de
000196d0 42 2e 00 10              |B.      |		CLR.B	(A6+0x10)
000196d4 53 40                    |S@      |		SUBQ.W	#0x1,D0
000196d6 b2 58                    | X      |		CMP.W	(A0)+,D1
000196d8 56 c8 ff fc              |V       |		DBNE	D0,0x196d6
000196dc 66 06                    |f       |		BNE	0x196e4
000196de 1d 7c 00 01 00 10        | |      |		MOVE.B	#0x01,(A6+0x10)
000196e4 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
000196e8 4e 5e                    |N^      |		UNLK	A6
000196ea 4e 75                    |Nu      |		RTS
000196ec ; --------------------------------------------------------------------------------------
000196ec ; FillWords(dst : Pointer; x : Word; length : Word)
000196ec ; Stack:
000196ec ;     A6+0xc      dst : Pointer
000196ec ;     A6+0xa      x : Word
000196ec ;     A6+0x8      length : Word
000196ec ; --------------------------------------------------------------------------------------
000196ec					_FillWords(dst : Pointer; x : Word; length : Word):
000196ec 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
000196f0 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
000196f4 bf d5                    |        |		CMPA.L	(A5),A7
000196f6 4e 76                    |Nv      |		TRAPV
000196f8 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000196fc 32 2e 00 0a              |2.      |		MOVE.W	(A6+0xa),D1
00019700 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00019704 67 08                    |g       |		BEQ	0x1970e
00019706 53 40                    |S@      |		SUBQ.W	#0x1,D0
00019708 30 c1                    |0       |		MOVE.W	D1,(A0)+
0001970a 51 c8 ff fc              |Q       |		DBF	D0,0x19708
0001970e 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00019712 4e 5e                    |N^      |		UNLK	A6
00019714 4e 75                    |Nu      |		RTS
00019716 ; --------------------------------------------------------------------------------------
00019716 ; SwapBytes(src : Pointer; dst : Pointer; words : Word)
00019716 ; Stack:
00019716 ;     A6+0xe      src : Pointer
00019716 ;     A6+0xa      dst : Pointer
00019716 ;     A6+0x8      words : Word
00019716 ; --------------------------------------------------------------------------------------
00019716					_SwapBytes(src : Pointer; dst : Pointer; words : Word):
00019716 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
0001971a 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
0001971e bf d5                    |        |		CMPA.L	(A5),A7
00019720 4e 76                    |Nv      |		TRAPV
00019722 20 6e 00 0e              | n      |		MOVEA.L	(A6+0xe),A0
00019726 22 6e 00 0a              |"n      |		MOVEA.L	(A6+0xa),A1
0001972a 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
0001972e 67 0c                    |g       |		BEQ	0x1973c
00019730 53 40                    |S@      |		SUBQ.W	#0x1,D0
00019732 32 18                    |2       |		MOVE.W	(A0)+,D1
00019734 e0 59                    | Y      |		ROR.W	#0x8,D1
00019736 32 c1                    |2       |		MOVE.W	D1,(A1)+
00019738 51 c8 ff f8              |Q       |		DBF	D0,0x19732
0001973c 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00019740 4e 5e                    |N^      |		UNLK	A6
00019742 4e 75                    |Nu      |		RTS
00019744 ; --------------------------------------------------------------------------------------
00019744 ; CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
00019744 ; Stack:
00019744 ;     A6+0xe      src : Pointer
00019744 ;     A6+0xa      dst : Pointer
00019744 ;     A6+0x8      bytes : Word
00019744 ; --------------------------------------------------------------------------------------
00019744					_CopyBytes(src : Pointer; dst : Pointer; bytes : Word):
00019744 4e 56 00 00              |NV      |		LINK.W	A6,#0x0000
00019748 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0001974c bf d5                    |        |		CMPA.L	(A5),A7
0001974e 4e 76                    |Nv      |		TRAPV
00019750 20 6e 00 0e              | n      |		MOVEA.L	(A6+0xe),A0
00019754 22 6e 00 0a              |"n      |		MOVEA.L	(A6+0xa),A1
00019758 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
0001975c 67 08                    |g       |		BEQ	0x19766
0001975e 53 40                    |S@      |		SUBQ.W	#0x1,D0
00019760 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00019762 51 c8 ff fc              |Q       |		DBF	D0,0x19760
00019766 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
0001976a 4e 5e                    |N^      |		UNLK	A6
0001976c 4e 75                    |Nu      |		RTS
0001976e 49 6e 63 6f 72 72 65 63  |Incorrec|		.TXT	'Incorrect parameter type'
00019786 4e 6f 74 20              |Not     |		.TXT	'Not '
0001978a 65 6e 6f 75              |enou    |		.TXT	'enou'
0001978e 67 68 20 67              |gh g    |		.TXT	'gh g'
00019792 65 74 73 2e              |ets.    |		.TXT	'ets.'
00019796 ; --------------------------------------------------------------------------------------
00019796 ; IPC_PutVar(src : Pointer; length : Long ; type : Long)
00019796 ; Stack:
00019796 ;     A6+0x10     src : Pointer
00019796 ;     A6+0xc      length : Long
00019796 ;     A6+0x8      type : Long
00019796 ; OMSI PASCAL Function
00019796 ;    <LVAR  0x010 4(r)>
00019796 ;    <LVAR  0x008 4(r)>
00019796 ;    <LVAR -0x00c @ 4(w)>
00019796 ; --------------------------------------------------------------------------------------
00019796					_IPC_PutVar(src : Pointer; length : Long ; type : Long):
00019796 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
0001979a bf d5                    |        |		CMPA.L	(A5),A7
0001979c 62 06                    |b       |		BHI	0x197a4
0001979e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000197a2 4e 76                    |Nv      |		TRAPV
000197a4 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
000197a8 48 e7 e1 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D2+D1+D0,-(A7)
000197ac 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
000197b0 45 ee ff f4              |E       |		LEA.L	(A6-0xc),A2
000197b4 47 f9 00 01 c2 14        |G       |		LEA.L	0x1c214,A3
000197ba 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
000197bc 24 91                    |$       |		MOVE.L	(A1),(A2)
000197be 52 92                    |R       |		ADDQ.L	#0x1,(A2)
000197c0 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000197c2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000197c4 be 97                    |        |		CMP.L	(A7),D7
000197c6 6e 2c                    |n,      |		BGT	0x197f4
000197c8 70 07                    |p       |		MOVEQ.L	#0x07,D0
000197ca 90 91                    |        |		SUB.L	(A1),D0
000197cc d0 87                    |        |		ADD.L	D7,D0
000197ce 0c 80 00 00 00 07        |        |		CMPI.L	#0x00000007,D0
000197d4 63 02                    |c       |		BLS	0x197d8
000197d6 4e 4f                    |NO      |		TRAP	#15
000197d8 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
000197dc 22 07                    |"       |		MOVE.L	D7,D1
000197de b2 91                    |        |		CMP.L	(A1),D1
000197e0 6e 06                    |n       |		BGT	0x197e8
000197e2 92 ae 00 0c              |        |		SUB.L	(A6+0xc),D1
000197e6 6c 02                    |l       |		BGE	0x197ea
000197e8 4e 4f                    |NO      |		TRAP	#15
000197ea 1d b0 18 00 08 f8        |        |		MOVE.B	(A0+D1.L),(A6+D0.L-#0x8)
000197f0 52 87                    |R       |		ADDQ.L	#0x1,D7
000197f2 68 d0                    |h       |		BVC	0x197c4
000197f4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000197f6 20 4a                    | J      |		MOVEA.L	A2,A0
000197f8 2f 08                    |/       |		MOVE.L	A0,-(A7)
000197fa 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000197fc 3f 02                    |?       |		MOVE.W	D2,-(A7)
000197fe 4e b9 00 01 97 44        |N    D  |		JSR	_CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
00019804 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00019808 d5 93                    |        |		ADD.L	D2,(A3)
0001980a 4c df 0f 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1+A2+A3
0001980e 4e 5e                    |N^      |		UNLK	A6
00019810 4e 75                    |Nu      |		RTS
00019812 ; --------------------------------------------------------------------------------------
00019812 ; IPC_PutBool(a : Bool)
00019812 ; Stack:
00019812 ;     A6+0x8      a : Bool
00019812 ; OMSI PASCAL Function
00019812 ;    <LVAR  0x008 1(r)>
00019812 ;    <LVAR -0x006 4(rw)>
00019812 ;    <LVAR -0x00a @ 4(r)>
00019812 ; --------------------------------------------------------------------------------------
00019812					_IPC_PutBool(a : Bool):
00019812 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00019816 bf d5                    |        |		CMPA.L	(A5),A7
00019818 62 06                    |b       |		BHI	0x19820
0001981a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001981e 4e 76                    |Nv      |		TRAPV
00019820 de fc 00 16              |        |		ADDA.W	#0x16,A7
00019824 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
00019828 43 f9 00 01 c2 14        |C       |		LEA.L	0x1c214,A1
0001982e 42 ae ff f6              |B       |		CLR.L	(A6-0xa)
00019832 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00019836 67 0a                    |g       |		BEQ	0x19842
00019838 2d 7c 00 00 00 01 ff fa  |-|      |		MOVE.L	#0x1,(A6-0x6)
00019840 60 04                    |`       |		BRA	0x19846
00019842 42 ae ff fa              |B       |		CLR.L	(A6-0x6)
00019846 41 ee ff f6              |A       |		LEA.L	(A6-0xa),A0
0001984a 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001984c 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0001984e 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00019852 4e b9 00 01 97 44        |N    D  |		JSR	_CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
00019858 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001985c 50 91                    |P       |		ADDQ.L	#0x8,(A1)
0001985e 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
00019862 4e 5e                    |N^      |		UNLK	A6
00019864 4e 75                    |Nu      |		RTS
00019866 ; --------------------------------------------------------------------------------------
00019866 ; IPC_PutString(a : String)
00019866 ; Stack:
00019866 ;     A6+0x8      a : String
00019866 ; OMSI PASCAL Function
00019866 ;    <LVAR  0x008 @ 4(r)>
00019866 ;    <LVAR -0x080 @>
00019866 ;    <LVAR -0x084 @ 4(w)>
00019866 ; --------------------------------------------------------------------------------------
00019866					_IPC_PutString(a : String):
00019866 4e 56 ff 5e              |NV ^    |		LINK.W	A6,#0xff5e
0001986a bf d5                    |        |		CMPA.L	(A5),A7
0001986c 62 06                    |b       |		BHI	0x19874
0001986e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00019872 4e 76                    |Nv      |		TRAPV
00019874 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00019878 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
0001987c 45 f9 00 01 c2 14        |E       |		LEA.L	0x1c214,A2
00019882 2d 7c 00 00 00 09 ff 7c  |-|     ||		MOVE.L	#0x9,(A6-0x84)
0001988a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001988e 43 ee ff 80              |C       |		LEA.L	(A6-0x80),A1
00019892 70 7f                    |p       |		MOVEQ.L	#0x7f,D0
00019894 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00019896 51 c8 ff fc              |Q       |		DBF	D0,0x19894
0001989a 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
0001989e 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
000198a4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000198a6 41 ee ff 7c              |A  |    |		LEA.L	(A6-0x84),A0
000198aa 2f 08                    |/       |		MOVE.L	A0,-(A7)
000198ac 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000198ae 3f 3c 00 84              |?<      |		MOVE.W	#0x84,-(A7)
000198b2 4e b9 00 01 97 44        |N    D  |		JSR	_CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
000198b8 de fc 00 0a              |        |		ADDA.W	#0xa,A7
000198bc 06 92 00 00 00 84        |        |		ADDI.L	#0x00000084,(A2)
000198c2 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
000198c6 4e 5e                    |N^      |		UNLK	A6
000198c8 4e 75                    |Nu      |		RTS
000198ca ; --------------------------------------------------------------------------------------
000198ca ; IPC_PutLong(a : L)
000198ca ; Stack:
000198ca ;     A6+0x8      a : L
000198ca ; OMSI PASCAL Function
000198ca ;    <LVAR  0x008 4(r)>
000198ca ;    <LVAR -0x004 4(w)>
000198ca ;    <LVAR -0x008 @ 4(w)>
000198ca ; --------------------------------------------------------------------------------------
000198ca					_IPC_PutLong(a : L):
000198ca 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
000198ce bf d5                    |        |		CMPA.L	(A5),A7
000198d0 62 06                    |b       |		BHI	0x198d8
000198d2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000198d6 4e 76                    |Nv      |		TRAPV
000198d8 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000198dc 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
000198e0 43 f9 00 01 c2 14        |C       |		LEA.L	0x1c214,A1
000198e6 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000198e8 2d 40 ff f8              |-@      |		MOVE.L	D0,(A6-0x8)
000198ec 2d 6e 00 08 ff fc        |-n      |		MOVE.L	(A6+0x8),(A6-0x4)
000198f2 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
000198f6 2f 08                    |/       |		MOVE.L	A0,-(A7)
000198f8 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000198fa 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
000198fe 4e b9 00 01 97 44        |N    D  |		JSR	_CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
00019904 de c0                    |        |		ADDA.W	D0,A7
00019906 50 91                    |P       |		ADDQ.L	#0x8,(A1)
00019908 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
0001990c 4e 5e                    |N^      |		UNLK	A6
0001990e 4e 75                    |Nu      |		RTS
00019910 ; --------------------------------------------------------------------------------------
00019910 ; IPC_PutEnd(void)
00019910 ; Stack:
00019910 ; OMSI PASCAL Function
00019910 ;    <LVAR -0x004 @ 4(w)>
00019910 ; --------------------------------------------------------------------------------------
00019910					_IPC_PutEnd(void):
00019910 4e 56 ff e6              |NV      |		LINK.W	A6,#0xffe6
00019914 bf d5                    |        |		CMPA.L	(A5),A7
00019916 62 06                    |b       |		BHI	0x1991e
00019918 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001991c 4e 76                    |Nv      |		TRAPV
0001991e de fc 00 16              |        |		ADDA.W	#0x16,A7
00019922 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
00019926 43 f9 00 01 c2 14        |C       |		LEA.L	0x1c214,A1
0001992c 2d 7c ff ff ff ff ff fc  |-|      |		MOVE.L	#0xffffffff,(A6-0x4)
00019934 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
00019938 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001993a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0001993c 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00019940 4e b9 00 01 97 44        |N    D  |		JSR	_CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
00019946 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001994a 58 91                    |X       |		ADDQ.L	#0x4,(A1)
0001994c 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
00019950 4e 5e                    |N^      |		UNLK	A6
00019952 4e 75                    |Nu      |		RTS
00019954 ; --------------------------------------------------------------------------------------
00019954 ; IPC_GetEnd(void)
00019954 ; Stack:
00019954 ; OMSI PASCAL Function
00019954 ;    <LVAR -0x004 @ 4(r)>
00019954 ; --------------------------------------------------------------------------------------
00019954					_IPC_GetEnd(void):
00019954 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00019958 bf d5                    |        |		CMPA.L	(A5),A7
0001995a 62 06                    |b       |		BHI	0x19962
0001995c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00019960 4e 76                    |Nv      |		TRAPV
00019962 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00019966 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0001996a 2f 39 00 01 c2 14        |/9      |		MOVE.L	0x1c214,-(A7)
00019970 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
00019974 2f 08                    |/       |		MOVE.L	A0,-(A7)
00019976 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
0001997a 4e b9 00 01 97 44        |N    D  |		JSR	_CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
00019980 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00019984 20 2e ff fc              | .      |		MOVE.L	(A6-0x4),D0
00019988 0c 80 ff ff ff ff        |        |		CMPI.L	#0xffffffff,D0
0001998e 67 34                    |g4      |		BEQ	0x199c4
00019990 2f 3a fe 00              |/:      |		MOVE.L	0x19792,-(A7)
00019994 2f 3a fd f8              |/:      |		MOVE.L	0x1978e,-(A7)
00019998 2f 3a fd f0              |/:      |		MOVE.L	0x1978a,-(A7)
0001999c 2f 3a fd e8              |/:      |		MOVE.L	0x19786,-(A7)
000199a0 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
000199a4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000199a6 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000199aa 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000199ae 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
000199b2 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
000199b8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000199ba 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
000199c0 de fc 00 16              |        |		ADDA.W	#0x16,A7
000199c4 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
000199c8 4e 5e                    |N^      |		UNLK	A6
000199ca 4e 75                    |Nu      |		RTS
000199cc ; --------------------------------------------------------------------------------------
000199cc ; IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
000199cc ; Stack:
000199cc ;     A6+0x10     dst : Pointer
000199cc ;     A6+0xc      length : Long
000199cc ;     A6+0x8      type : Long
000199cc ; OMSI PASCAL Function
000199cc ;    <LVAR  0x010 4(r)>
000199cc ;    <LVAR  0x008 4(r)>
000199cc ;    <LVAR -0x010 @ 4(r)>
000199cc ; --------------------------------------------------------------------------------------
000199cc					_IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long):
000199cc 4e 56 ff aa              |NV      |		LINK.W	A6,#0xffaa
000199d0 bf d5                    |        |		CMPA.L	(A5),A7
000199d2 62 06                    |b       |		BHI	0x199da
000199d4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000199d8 4e 76                    |Nv      |		TRAPV
000199da de fc 00 46              |   F    |		ADDA.W	#0x46,A7
000199de 48 e7 e1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D2+D1+D0,-(A7)
000199e2 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
000199e6 45 f9 00 01 c2 14        |E       |		LEA.L	0x1c214,A2
000199ec 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
000199ee 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000199f0 41 ee ff f0              |A       |		LEA.L	(A6-0x10),A0
000199f4 2f 08                    |/       |		MOVE.L	A0,-(A7)
000199f6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000199f8 4e b9 00 01 97 44        |N    D  |		JSR	_CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
000199fe de fc 00 0a              |        |		ADDA.W	#0xa,A7
00019a02 d5 92                    |        |		ADD.L	D2,(A2)
00019a04 20 11                    |        |		MOVE.L	(A1),D0
00019a06 52 80                    |R       |		ADDQ.L	#0x1,D0
00019a08 b0 ae ff f0              |        |		CMP.L	(A6-0x10),D0
00019a0c 67 30                    |g0      |		BEQ	0x19a3e
00019a0e 41 fa fd 76              |A  v    |		LEA.L	0x19786,A0
00019a12 70 05                    |p       |		MOVEQ.L	#0x05,D0
00019a14 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00019a16 51 c8 ff fc              |Q       |		DBF	D0,0x19a14
00019a1a 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
00019a1e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00019a20 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00019a24 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00019a28 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
00019a2c 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00019a32 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00019a34 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
00019a3a de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00019a3e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00019a40 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00019a42 be 97                    |        |		CMP.L	(A7),D7
00019a44 6e 2c                    |n,      |		BGT	0x19a72
00019a46 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00019a4a 20 07                    |        |		MOVE.L	D7,D0
00019a4c b0 91                    |        |		CMP.L	(A1),D0
00019a4e 6e 06                    |n       |		BGT	0x19a56
00019a50 90 ae 00 0c              |        |		SUB.L	(A6+0xc),D0
00019a54 6c 02                    |l       |		BGE	0x19a58
00019a56 4e 4f                    |NO      |		TRAP	#15
00019a58 72 07                    |r       |		MOVEQ.L	#0x07,D1
00019a5a 92 91                    |        |		SUB.L	(A1),D1
00019a5c d2 87                    |        |		ADD.L	D7,D1
00019a5e 0c 81 00 00 00 07        |        |		CMPI.L	#0x00000007,D1
00019a64 63 02                    |c       |		BLS	0x19a68
00019a66 4e 4f                    |NO      |		TRAP	#15
00019a68 11 b6 18 f4 08 00        |        |		MOVE.B	(A6+D1.L-#0xc),(A0+D0.L)
00019a6e 52 87                    |R       |		ADDQ.L	#0x1,D7
00019a70 68 d0                    |h       |		BVC	0x19a42
00019a72 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019a74 4c df 07 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1+A2
00019a78 4e 5e                    |N^      |		UNLK	A6
00019a7a 4e 75                    |Nu      |		RTS
00019a7c ; --------------------------------------------------------------------------------------
00019a7c ; IPC_GetBool() : Bool
00019a7c ; Stack:
00019a7c ;     A6+0x8  VAR RETURN : Bool
00019a7c ; OMSI PASCAL Function
00019a7c ;    <LVAR  0x008 4(r)>
00019a7c ;    <LVAR -0x004 4(r)>
00019a7c ;    <LVAR -0x008 @ 4(r)>
00019a7c ; --------------------------------------------------------------------------------------
00019a7c					_IPC_GetBool() : Bool:
00019a7c 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
00019a80 bf d5                    |        |		CMPA.L	(A5),A7
00019a82 62 06                    |b       |		BHI	0x19a8a
00019a84 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00019a88 4e 76                    |Nv      |		TRAPV
00019a8a de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00019a8e 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
00019a92 43 f9 00 01 c2 14        |C       |		LEA.L	0x1c214,A1
00019a98 72 01                    |r       |		MOVEQ.L	#0x01,D1
00019a9a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00019a9c 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
00019aa0 2f 08                    |/       |		MOVE.L	A0,-(A7)
00019aa2 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00019aa6 4e b9 00 01 97 44        |N    D  |		JSR	_CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
00019aac de fc 00 0a              |        |		ADDA.W	#0xa,A7
00019ab0 50 91                    |P       |		ADDQ.L	#0x8,(A1)
00019ab2 4a ae ff f8              |J       |		TST.L	(A6-0x8)
00019ab6 67 2e                    |g.      |		BEQ	0x19ae6
00019ab8 41 fa fc cc              |A       |		LEA.L	0x19786,A0
00019abc 70 05                    |p       |		MOVEQ.L	#0x05,D0
00019abe 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00019ac0 51 c8 ff fc              |Q       |		DBF	D0,0x19abe
00019ac4 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
00019ac8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00019aca 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00019ace 3f 01                    |?       |		MOVE.W	D1,-(A7)
00019ad0 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
00019ad4 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00019ada 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00019adc 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
00019ae2 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00019ae6 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00019aea 42 10                    |B       |		CLR.B	(A0)
00019aec 20 2e ff fc              | .      |		MOVE.L	(A6-0x4),D0
00019af0 b0 81                    |        |		CMP.L	D1,D0
00019af2 66 02                    |f       |		BNE	0x19af6
00019af4 52 10                    |R       |		ADDQ.B	#0x1,(A0)
00019af6 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00019afa 4e 5e                    |N^      |		UNLK	A6
00019afc 4e 75                    |Nu      |		RTS
00019afe ; --------------------------------------------------------------------------------------
00019afe ; IPC_GetString(VAR retval : String)
00019afe ; Stack:
00019afe ;     A6+0x8  VAR retval : String
00019afe ; OMSI PASCAL Function
00019afe ;    <LVAR  0x008 4(r)>
00019afe ;    <LVAR -0x080 @>
00019afe ;    <LVAR -0x084 @ 4(r)>
00019afe ; --------------------------------------------------------------------------------------
00019afe					_IPC_GetString(VAR retval : String):
00019afe 4e 56 ff 42              |NV B    |		LINK.W	A6,#0xff42
00019b02 bf d5                    |        |		CMPA.L	(A5),A7
00019b04 62 06                    |b       |		BHI	0x19b0c
00019b06 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00019b0a 4e 76                    |Nv      |		TRAPV
00019b0c de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00019b10 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
00019b14 45 f9 00 01 c2 14        |E       |		LEA.L	0x1c214,A2
00019b1a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00019b1c 41 ee ff 7c              |A  |    |		LEA.L	(A6-0x84),A0
00019b20 2f 08                    |/       |		MOVE.L	A0,-(A7)
00019b22 3f 3c 00 84              |?<      |		MOVE.W	#0x84,-(A7)
00019b26 4e b9 00 01 97 44        |N    D  |		JSR	_CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
00019b2c de fc 00 0a              |        |		ADDA.W	#0xa,A7
00019b30 06 92 00 00 00 84        |        |		ADDI.L	#0x00000084,(A2)
00019b36 20 2e ff 7c              | . |    |		MOVE.L	(A6-0x84),D0
00019b3a 0c 80 00 00 00 09        |        |		CMPI.L	#0x00000009,D0
00019b40 67 30                    |g0      |		BEQ	0x19b72
00019b42 41 fa fc 42              |A  B    |		LEA.L	0x19786,A0
00019b46 70 05                    |p       |		MOVEQ.L	#0x05,D0
00019b48 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00019b4a 51 c8 ff fc              |Q       |		DBF	D0,0x19b48
00019b4e 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
00019b52 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00019b54 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00019b58 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00019b5c 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
00019b60 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00019b66 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00019b68 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
00019b6e de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00019b72 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00019b76 48 50                    |HP      |		PEA.L	(A0)
00019b78 4e b9 00 01 0d 42        |N    B  |		JSR	_NewString(VAR a : String)
00019b7e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019b80 20 50                    | P      |		MOVEA.L	(A0),A0
00019b82 43 ee ff 80              |C       |		LEA.L	(A6-0x80),A1
00019b86 70 7f                    |p       |		MOVEQ.L	#0x7f,D0
00019b88 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00019b8a 51 c8 ff fc              |Q       |		DBF	D0,0x19b88
00019b8e 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
00019b92 4e 5e                    |N^      |		UNLK	A6
00019b94 4e 75                    |Nu      |		RTS
00019b96 ; --------------------------------------------------------------------------------------
00019b96 ; IPC_GetLong() : Long
00019b96 ; Stack:
00019b96 ;     A6+0x8  VAR RETURN : Long
00019b96 ; OMSI PASCAL Function
00019b96 ;    <LVAR  0x008 4(r)>
00019b96 ;    <LVAR -0x004 4(r)>
00019b96 ;    <LVAR -0x008 @ 4(r)>
00019b96 ; --------------------------------------------------------------------------------------
00019b96					_IPC_GetLong() : Long:
00019b96 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
00019b9a bf d5                    |        |		CMPA.L	(A5),A7
00019b9c 62 06                    |b       |		BHI	0x19ba4
00019b9e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00019ba2 4e 76                    |Nv      |		TRAPV
00019ba4 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00019ba8 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
00019bac 43 f9 00 01 c2 14        |C       |		LEA.L	0x1c214,A1
00019bb2 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
00019bb4 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00019bb6 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
00019bba 2f 08                    |/       |		MOVE.L	A0,-(A7)
00019bbc 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00019bc0 4e b9 00 01 97 44        |N    D  |		JSR	_CopyBytes(src : Pointer; dst : Pointer; bytes : Word)
00019bc6 de c1                    |        |		ADDA.W	D1,A7
00019bc8 50 91                    |P       |		ADDQ.L	#0x8,(A1)
00019bca 20 2e ff f8              | .      |		MOVE.L	(A6-0x8),D0
00019bce b0 81                    |        |		CMP.L	D1,D0
00019bd0 67 30                    |g0      |		BEQ	0x19c02
00019bd2 41 fa fb b2              |A       |		LEA.L	0x19786,A0
00019bd6 70 05                    |p       |		MOVEQ.L	#0x05,D0
00019bd8 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00019bda 51 c8 ff fc              |Q       |		DBF	D0,0x19bd8
00019bde 1f 3c 00 05              | <      |		MOVE.B	#0x05,-(A7)
00019be2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00019be4 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00019be8 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00019bec 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
00019bf0 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00019bf6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00019bf8 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
00019bfe de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00019c02 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00019c06 20 ae ff fc              |        |		MOVE.L	(A6-0x4),(A0)
00019c0a 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00019c0e 4e 5e                    |N^      |		UNLK	A6
00019c10 4e 75                    |Nu      |		RTS
00019c12 ; --------------------------------------------------------------------------------------
00019c12 ; IPC_Init(void)
00019c12 ; Stack:
00019c12 ; OMSI PASCAL Function
00019c12 ; --------------------------------------------------------------------------------------
00019c12					_IPC_Init(void):
00019c12 4e 56 ff fc              |NV      |		LINK.W	A6,#0xfffc
00019c16 bf d5                    |        |		CMPA.L	(A5),A7
00019c18 62 06                    |b       |		BHI	0x19c20
00019c1a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00019c1e 4e 76                    |Nv      |		TRAPV
00019c20 de fc 00 04              |        |		ADDA.W	#0x4,A7
00019c24 23 fc 00 01 fc 00 00 01  |#       |		MOVE.L	#0x1fc00,0x1c214
00019c2c c2 14                    |        |
00019c2e 4e 5e                    |N^      |		UNLK	A6
00019c30 4e 75                    |Nu      |		RTS
00019c32 52 75 6e 6e              |Runn    |		.TXT	'Runn'
00019c36 69 6e 67 20              |ing     |		.TXT	'ing '
00019c3a 46 52 55 5f              |FRU_    |		.TXT	'FRU_'
00019c3e ; --------------------------------------------------------------------------------------
00019c3e ; FSCALL_1053e
00019c3e ; OMSI PASCAL Function
00019c3e ;    <LVAR  0x020 4(r)>
00019c3e ;    <LVAR  0x01e 1(r)>
00019c3e ;    <LVAR  0x01c 1(r)>
00019c3e ;    <LVAR  0x018 4(r)>
00019c3e ;    <LVAR  0x014 4(r)>
00019c3e ;    <LVAR  0x010 4(r)>
00019c3e ;    <LVAR  0x00c 4(r)>
00019c3e ;    <LVAR  0x008 4(r)>
00019c3e ;    <LVAR -0x004 @>
00019c3e ; --------------------------------------------------------------------------------------
00019c3e					_FSCALL_1053e:
00019c3e 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
00019c42 bf d5                    |        |		CMPA.L	(A5),A7
00019c44 62 06                    |b       |		BHI	0x19c4c
00019c46 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00019c4a 4e 76                    |Nv      |		TRAPV
00019c4c de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00019c50 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00019c54 43 f8 00 00              |C       |		LEA.L	0x0,A1
00019c58 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00019c5a 4e b9 00 01 9c 12        |N       |		JSR	_IPC_Init(void)
00019c60 1f 2e 00 1e              | .      |		MOVE.B	(A6+0x1e),-(A7)
00019c64 4e b9 00 01 98 12        |N       |		JSR	_IPC_PutBool(a : Bool)
00019c6a 1e ae 00 1c              |        |		MOVE.B	(A6+0x1c),(A7)
00019c6e 4e b9 00 01 98 12        |N       |		JSR	_IPC_PutBool(a : Bool)
00019c74 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00019c76 4e b9 00 01 99 10        |N       |		JSR	_IPC_PutEnd(void)
00019c7c 2f 3a ff bc              |/:      |		MOVE.L	0x19c3a,-(A7)
00019c80 2f 3a ff b4              |/:      |		MOVE.L	0x19c36,-(A7)
00019c84 2f 3a ff ac              |/:      |		MOVE.L	0x19c32,-(A7)
00019c88 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00019c8a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00019c8e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00019c92 3f 00                    |?       |		MOVE.W	D0,-(A7)
00019c94 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00019c9a 2e ae 00 20              |.       |		MOVE.L	(A6+0x20),(A7)
00019c9e 4e b9 00 01 0e f2        |N       |		JSR	_StringDup(a : String) : String
00019ca4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019ca6 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00019cac 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00019cae 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
00019cb4 de c0                    |        |		ADDA.W	D0,A7
00019cb6 2e ae 00 20              |.       |		MOVE.L	(A6+0x20),(A7)
00019cba 48 78 00 01              |Hx      |		PEA.L	0x1
00019cbe 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00019cc2 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00019cc6 4e b9 00 01 47 50        |N   GP  |		JSR	_PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00019ccc de fc 00 0e              |        |		ADDA.W	#0xe,A7
00019cd0 4e b9 00 01 9c 12        |N       |		JSR	_IPC_Init(void)
00019cd6 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
00019cda 48 50                    |HP      |		PEA.L	(A0)
00019cdc 4e b9 00 01 9a 7c        |N    |  |		JSR	_IPC_GetBool() : Bool
00019ce2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019ce4 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00019ce8 48 50                    |HP      |		PEA.L	(A0)
00019cea 4e b9 00 01 9a fe        |N       |		JSR	_IPC_GetString(VAR retval : String)
00019cf0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019cf2 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00019cf6 48 50                    |HP      |		PEA.L	(A0)
00019cf8 4e b9 00 01 9a fe        |N       |		JSR	_IPC_GetString(VAR retval : String)
00019cfe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019d00 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00019d04 48 50                    |HP      |		PEA.L	(A0)
00019d06 48 51                    |HQ      |		PEA.L	(A1)
00019d08 48 51                    |HQ      |		PEA.L	(A1)
00019d0a 4e b9 00 01 99 cc        |N       |		JSR	_IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00019d10 de c0                    |        |		ADDA.W	D0,A7
00019d12 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00019d16 48 50                    |HP      |		PEA.L	(A0)
00019d18 48 51                    |HQ      |		PEA.L	(A1)
00019d1a 48 78 00 07              |Hx      |		PEA.L	0x7
00019d1e 4e b9 00 01 99 cc        |N       |		JSR	_IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00019d24 de c0                    |        |		ADDA.W	D0,A7
00019d26 4e b9 00 01 99 54        |N    T  |		JSR	_IPC_GetEnd(void)
00019d2c 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00019d30 4e 5e                    |N^      |		UNLK	A6
00019d32 4e 75                    |Nu      |		RTS
00019d34 ; --------------------------------------------------------------------------------------
00019d34 ; IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
00019d34 ; Stack:
00019d34 ;     A6+0xc  VAR a : Bool
00019d34 ;     A6+0x8  VAR b : Bool
00019d34 ; OMSI PASCAL Function
00019d34 ;    <LVAR  0x00c 4(r)>
00019d34 ;    <LVAR  0x008 4(r)>
00019d34 ; --------------------------------------------------------------------------------------
00019d34					_IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool):
00019d34 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
00019d38 bf d5                    |        |		CMPA.L	(A5),A7
00019d3a 62 06                    |b       |		BHI	0x19d42
00019d3c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00019d40 4e 76                    |Nv      |		TRAPV
00019d42 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00019d46 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00019d4a 4e b9 00 01 9c 12        |N       |		JSR	_IPC_Init(void)
00019d50 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00019d54 48 50                    |HP      |		PEA.L	(A0)
00019d56 4e b9 00 01 9a 7c        |N    |  |		JSR	_IPC_GetBool() : Bool
00019d5c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019d5e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00019d62 48 50                    |HP      |		PEA.L	(A0)
00019d64 4e b9 00 01 9a 7c        |N    |  |		JSR	_IPC_GetBool() : Bool
00019d6a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019d6c 4e b9 00 01 99 54        |N    T  |		JSR	_IPC_GetEnd(void)
00019d72 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00019d76 4e 5e                    |N^      |		UNLK	A6
00019d78 4e 75                    |Nu      |		RTS
00019d7a ; --------------------------------------------------------------------------------------
00019d7a ; ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
00019d7a ; Stack:
00019d7a ;     A6+0x1a     a : Bool
00019d7a ;     A6+0x16     b : String
00019d7a ;     A6+0x12     c : String
00019d7a ;     A6+0x10     d : Bool
00019d7a ;     A6+0xc      e : Long
00019d7a ;     A6+0x8      f : Long
00019d7a ; OMSI PASCAL Function
00019d7a ;    <LVAR  0x01a 1(r)>
00019d7a ;    <LVAR  0x016 4(r)>
00019d7a ;    <LVAR  0x012 4(r)>
00019d7a ;    <LVAR  0x010 1(r)>
00019d7a ;    <LVAR  0x00c 4(r)>
00019d7a ;    <LVAR  0x008 4(r)>
00019d7a ; --------------------------------------------------------------------------------------
00019d7a					_?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long):
00019d7a 4e 56 ff e4              |NV      |		LINK.W	A6,#0xffe4
00019d7e bf d5                    |        |		CMPA.L	(A5),A7
00019d80 62 06                    |b       |		BHI	0x19d88
00019d82 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00019d86 4e 76                    |Nv      |		TRAPV
00019d88 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00019d8c 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00019d90 41 f8 00 00              |A       |		LEA.L	0x0,A0
00019d94 4e b9 00 01 9c 12        |N       |		JSR	_IPC_Init(void)
00019d9a 1f 2e 00 1a              | .      |		MOVE.B	(A6+0x1a),-(A7)
00019d9e 4e b9 00 01 98 12        |N       |		JSR	_IPC_PutBool(a : Bool)
00019da4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00019da6 2f 2e 00 16              |/.      |		MOVE.L	(A6+0x16),-(A7)
00019daa 4e b9 00 01 98 66        |N    f  |		JSR	_IPC_PutString(a : String)
00019db0 2e ae 00 12              |.       |		MOVE.L	(A6+0x12),(A7)
00019db4 4e b9 00 01 98 66        |N    f  |		JSR	_IPC_PutString(a : String)
00019dba 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00019dbc 1e ae 00 10              |        |		MOVE.B	(A6+0x10),(A7)
00019dc0 48 57                    |HW      |		PEA.L	(A7)
00019dc2 48 50                    |HP      |		PEA.L	(A0)
00019dc4 48 50                    |HP      |		PEA.L	(A0)
00019dc6 4e b9 00 01 97 96        |N       |		JSR	_IPC_PutVar(src : Pointer; length : Long ; type : Long)
00019dcc de fc 00 0a              |        |		ADDA.W	#0xa,A7
00019dd0 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
00019dd4 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00019dd8 48 57                    |HW      |		PEA.L	(A7)
00019dda 48 50                    |HP      |		PEA.L	(A0)
00019ddc 48 78 00 07              |Hx      |		PEA.L	0x7
00019de0 4e b9 00 01 97 96        |N       |		JSR	_IPC_PutVar(src : Pointer; length : Long ; type : Long)
00019de6 de fc 00 14              |        |		ADDA.W	#0x14,A7
00019dea 4e b9 00 01 99 10        |N       |		JSR	_IPC_PutEnd(void)
00019df0 42 27                    |B'      |		CLR.B	-(A7)
00019df2 48 78 00 01              |Hx      |		PEA.L	0x1
00019df6 4e b9 00 01 4e 0a        |N   N   |		JSR	_PopProgram(status : Byte; msg : String)
00019dfc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00019dfe 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00019e02 4e 5e                    |N^      |		UNLK	A6
00019e04 4e 75                    |Nu      |		RTS
00019e06 ; --------------------------------------------------------------------------------------
00019e06 ; ?ExecFRU(VAR a : L; VAR b : W; VAR c: L; VAR d : L; VAR e: B)
00019e06 ; Stack:
00019e06 ;     A6+0x18 VAR a : L
00019e06 ;     A6+0x14 VAR b : W
00019e06 ;     A6+0x10 VAR c : L
00019e06 ;     A6+0xc  VAR d : L
00019e06 ;     A6+0x8  VAR e : B
00019e06 ; OMSI PASCAL Function
00019e06 ;    <LVAR  0x024 1(r)>
00019e06 ;    <LVAR  0x020 4(r)>
00019e06 ;    <LVAR  0x01e 1(r)>
00019e06 ;    <LVAR  0x01c 1(r)>
00019e06 ;    <LVAR  0x018 4(r)>
00019e06 ;    <LVAR  0x014 4(r)>
00019e06 ;    <LVAR  0x010 4(r)>
00019e06 ;    <LVAR  0x00c 4(r)>
00019e06 ;    <LVAR  0x008 4(r)>
00019e06 ;    <LVAR -0x002 @>
00019e06 ; --------------------------------------------------------------------------------------
00019e06					_?ExecFRU(VAR a : L; VAR b : W; VAR c: L; VAR d : L; VAR e: B):
00019e06 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00019e0a bf d5                    |        |		CMPA.L	(A5),A7
00019e0c 62 06                    |b       |		BHI	0x19e14
00019e0e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00019e12 4e 76                    |Nv      |		TRAPV
00019e14 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00019e18 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00019e1c 43 f8 00 00              |C       |		LEA.L	0x0,A1
00019e20 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00019e22 4e b9 00 01 9c 12        |N       |		JSR	_IPC_Init(void)
00019e28 1f 2e 00 24              | . $    |		MOVE.B	(A6+0x24),-(A7)
00019e2c 48 57                    |HW      |		PEA.L	(A7)
00019e2e 48 51                    |HQ      |		PEA.L	(A1)
00019e30 48 51                    |HQ      |		PEA.L	(A1)
00019e32 4e b9 00 01 97 96        |N       |		JSR	_IPC_PutVar(src : Pointer; length : Long ; type : Long)
00019e38 de c0                    |        |		ADDA.W	D0,A7
00019e3a 1e ae 00 1e              |        |		MOVE.B	(A6+0x1e),(A7)
00019e3e 4e b9 00 01 98 12        |N       |		JSR	_IPC_PutBool(a : Bool)
00019e44 1e ae 00 1c              |        |		MOVE.B	(A6+0x1c),(A7)
00019e48 4e b9 00 01 98 12        |N       |		JSR	_IPC_PutBool(a : Bool)
00019e4e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00019e50 4e b9 00 01 99 10        |N       |		JSR	_IPC_PutEnd(void)
00019e56 2f 3a fd e2              |/:      |		MOVE.L	0x19c3a,-(A7)
00019e5a 2f 3a fd da              |/:      |		MOVE.L	0x19c36,-(A7)
00019e5e 2f 3a fd d2              |/:      |		MOVE.L	0x19c32,-(A7)
00019e62 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00019e64 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00019e68 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00019e6c 3f 00                    |?       |		MOVE.W	D0,-(A7)
00019e6e 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00019e74 2e ae 00 20              |.       |		MOVE.L	(A6+0x20),(A7)
00019e78 4e b9 00 01 0e f2        |N       |		JSR	_StringDup(a : String) : String
00019e7e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019e80 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00019e86 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00019e88 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
00019e8e de c0                    |        |		ADDA.W	D0,A7
00019e90 2e ae 00 20              |.       |		MOVE.L	(A6+0x20),(A7)
00019e94 48 78 00 01              |Hx      |		PEA.L	0x1
00019e98 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00019e9c 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00019ea0 4e b9 00 01 47 50        |N   GP  |		JSR	_PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00019ea6 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00019eaa 4e b9 00 01 9c 12        |N       |		JSR	_IPC_Init(void)
00019eb0 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
00019eb4 48 50                    |HP      |		PEA.L	(A0)
00019eb6 4e b9 00 01 9a 7c        |N    |  |		JSR	_IPC_GetBool() : Bool
00019ebc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019ebe 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00019ec2 48 50                    |HP      |		PEA.L	(A0)
00019ec4 4e b9 00 01 9a fe        |N       |		JSR	_IPC_GetString(VAR retval : String)
00019eca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019ecc 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00019ed0 48 50                    |HP      |		PEA.L	(A0)
00019ed2 4e b9 00 01 9a fe        |N       |		JSR	_IPC_GetString(VAR retval : String)
00019ed8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019eda 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00019ede 48 50                    |HP      |		PEA.L	(A0)
00019ee0 48 51                    |HQ      |		PEA.L	(A1)
00019ee2 48 51                    |HQ      |		PEA.L	(A1)
00019ee4 4e b9 00 01 99 cc        |N       |		JSR	_IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00019eea de c0                    |        |		ADDA.W	D0,A7
00019eec 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00019ef0 48 50                    |HP      |		PEA.L	(A0)
00019ef2 48 51                    |HQ      |		PEA.L	(A1)
00019ef4 48 78 00 07              |Hx      |		PEA.L	0x7
00019ef8 4e b9 00 01 99 cc        |N       |		JSR	_IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00019efe de c0                    |        |		ADDA.W	D0,A7
00019f00 4e b9 00 01 99 54        |N    T  |		JSR	_IPC_GetEnd(void)
00019f06 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00019f0a 4e 5e                    |N^      |		UNLK	A6
00019f0c 4e 75                    |Nu      |		RTS
00019f0e ; --------------------------------------------------------------------------------------
00019f0e ; ?IPC_GetStd(MOD a : Pointer; VAR b : Bool ; VAR c : Bool)
00019f0e ; Stack:
00019f0e ;     A6+0x10     a : Pointer
00019f0e ;     A6+0xc  VAR b : Bool
00019f0e ;     A6+0x8  VAR c : Bool
00019f0e ; OMSI PASCAL Function
00019f0e ;    <LVAR  0x010 4(r)>
00019f0e ;    <LVAR  0x00c 4(r)>
00019f0e ;    <LVAR  0x008 4(r)>
00019f0e ; --------------------------------------------------------------------------------------
00019f0e					_?IPC_GetStd(MOD a : Pointer; VAR b : Bool ; VAR c : Bool):
00019f0e 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
00019f12 bf d5                    |        |		CMPA.L	(A5),A7
00019f14 62 06                    |b       |		BHI	0x19f1c
00019f16 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00019f1a 4e 76                    |Nv      |		TRAPV
00019f1c de fc 00 14              |        |		ADDA.W	#0x14,A7
00019f20 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00019f24 4e b9 00 01 9c 12        |N       |		JSR	_IPC_Init(void)
00019f2a 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00019f2e 48 50                    |HP      |		PEA.L	(A0)
00019f30 48 78 00 00              |Hx      |		PEA.L	0x0
00019f34 48 78 00 00              |Hx      |		PEA.L	0x0
00019f38 4e b9 00 01 99 cc        |N       |		JSR	_IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
00019f3e de fc 00 0c              |        |		ADDA.W	#0xc,A7
00019f42 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00019f46 48 50                    |HP      |		PEA.L	(A0)
00019f48 4e b9 00 01 9a 7c        |N    |  |		JSR	_IPC_GetBool() : Bool
00019f4e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019f50 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00019f54 48 50                    |HP      |		PEA.L	(A0)
00019f56 4e b9 00 01 9a 7c        |N    |  |		JSR	_IPC_GetBool() : Bool
00019f5c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019f5e 4e b9 00 01 99 54        |N    T  |		JSR	_IPC_GetEnd(void)
00019f64 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00019f68 4e 5e                    |N^      |		UNLK	A6
00019f6a 4e 75                    |Nu      |		RTS
00019f6c ; --------------------------------------------------------------------------------------
00019f6c ; FSCALL_1055c
00019f6c ; OMSI PASCAL Function
00019f6c ;    <LVAR  0x028 1(r)>
00019f6c ;    <LVAR  0x024 4(r)>
00019f6c ;    <LVAR  0x022 1(r)>
00019f6c ;    <LVAR  0x020 1(r)>
00019f6c ;    <LVAR  0x01e 1(r)>
00019f6c ;    <LVAR  0x01c 1(r)>
00019f6c ;    <LVAR  0x018 4(r)>
00019f6c ;    <LVAR  0x014 4(r)>
00019f6c ;    <LVAR  0x010 4(r)>
00019f6c ;    <LVAR  0x00c 4(r)>
00019f6c ;    <LVAR  0x008 4(r)>
00019f6c ;    <LVAR -0x002 @>
00019f6c ; --------------------------------------------------------------------------------------
00019f6c					_FSCALL_1055c:
00019f6c 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
00019f70 bf d5                    |        |		CMPA.L	(A5),A7
00019f72 62 06                    |b       |		BHI	0x19f7a
00019f74 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00019f78 4e 76                    |Nv      |		TRAPV
00019f7a de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00019f7e 48 e7 80 e0              |H       |		MOVEM.L	A2+A1+A0+D0,-(A7)
00019f82 43 f8 00 00              |C       |		LEA.L	0x0,A1
00019f86 45 f9 00 01 98 12        |E       |		LEA.L	_IPC_PutBool(a : Bool),A2
00019f8c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00019f8e 4e b9 00 01 9c 12        |N       |		JSR	_IPC_Init(void)
00019f94 1f 2e 00 28              | . (    |		MOVE.B	(A6+0x28),-(A7)
00019f98 48 57                    |HW      |		PEA.L	(A7)
00019f9a 48 51                    |HQ      |		PEA.L	(A1)
00019f9c 48 51                    |HQ      |		PEA.L	(A1)
00019f9e 4e b9 00 01 97 96        |N       |		JSR	_IPC_PutVar(src : Pointer; length : Long ; type : Long)
00019fa4 de c0                    |        |		ADDA.W	D0,A7
00019fa6 1e ae 00 22              |   "    |		MOVE.B	(A6+0x22),(A7)
00019faa 4e 92                    |N       |		JSR	(A2)
00019fac 1e ae 00 20              |        |		MOVE.B	(A6+0x20),(A7)
00019fb0 4e 92                    |N       |		JSR	(A2)
00019fb2 1e ae 00 1e              |        |		MOVE.B	(A6+0x1e),(A7)
00019fb6 4e 92                    |N       |		JSR	(A2)
00019fb8 1e ae 00 1c              |        |		MOVE.B	(A6+0x1c),(A7)
00019fbc 4e 92                    |N       |		JSR	(A2)
00019fbe 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00019fc0 4e b9 00 01 99 10        |N       |		JSR	_IPC_PutEnd(void)
00019fc6 2f 3a fc 72              |/: r    |		MOVE.L	0x19c3a,-(A7)
00019fca 2f 3a fc 6a              |/: j    |		MOVE.L	0x19c36,-(A7)
00019fce 2f 3a fc 62              |/: b    |		MOVE.L	0x19c32,-(A7)
00019fd2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00019fd4 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00019fd8 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00019fdc 3f 00                    |?       |		MOVE.W	D0,-(A7)
00019fde 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
00019fe4 2e ae 00 24              |.  $    |		MOVE.L	(A6+0x24),(A7)
00019fe8 4e b9 00 01 0e f2        |N       |		JSR	_StringDup(a : String) : String
00019fee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00019ff0 4e b9 00 01 0f 34        |N    4  |		JSR	_StringCat2(a, b : String) : String
00019ff6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00019ff8 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
00019ffe de c0                    |        |		ADDA.W	D0,A7
0001a000 2e ae 00 24              |.  $    |		MOVE.L	(A6+0x24),(A7)
0001a004 48 78 00 01              |Hx      |		PEA.L	0x1
0001a008 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0001a00c 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
0001a010 4e b9 00 01 47 50        |N   GP  |		JSR	_PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
0001a016 de fc 00 0e              |        |		ADDA.W	#0xe,A7
0001a01a 4e b9 00 01 9c 12        |N       |		JSR	_IPC_Init(void)
0001a020 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
0001a024 48 50                    |HP      |		PEA.L	(A0)
0001a026 4e b9 00 01 9a 7c        |N    |  |		JSR	_IPC_GetBool() : Bool
0001a02c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a02e 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
0001a032 48 50                    |HP      |		PEA.L	(A0)
0001a034 4e b9 00 01 9a fe        |N       |		JSR	_IPC_GetString(VAR retval : String)
0001a03a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a03c 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
0001a040 48 50                    |HP      |		PEA.L	(A0)
0001a042 4e b9 00 01 9a fe        |N       |		JSR	_IPC_GetString(VAR retval : String)
0001a048 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a04a 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0001a04e 48 50                    |HP      |		PEA.L	(A0)
0001a050 48 51                    |HQ      |		PEA.L	(A1)
0001a052 48 51                    |HQ      |		PEA.L	(A1)
0001a054 4e b9 00 01 99 cc        |N       |		JSR	_IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
0001a05a de c0                    |        |		ADDA.W	D0,A7
0001a05c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001a060 48 50                    |HP      |		PEA.L	(A0)
0001a062 48 51                    |HQ      |		PEA.L	(A1)
0001a064 48 78 00 07              |Hx      |		PEA.L	0x7
0001a068 4e b9 00 01 99 cc        |N       |		JSR	_IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
0001a06e de c0                    |        |		ADDA.W	D0,A7
0001a070 4e b9 00 01 99 54        |N    T  |		JSR	_IPC_GetEnd(void)
0001a076 4c df 07 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1+A2
0001a07a 4e 5e                    |N^      |		UNLK	A6
0001a07c 4e 75                    |Nu      |		RTS
0001a07e ; --------------------------------------------------------------------------------------
0001a07e ; ?IPC_GetVar4xBool(VAR a : Pointer; VAR b : Bool ; VAR c : Bool; VAR d: Bool; VAR e: Bool)
0001a07e ; Stack:
0001a07e ;     A6+0x18 VAR a : Pointer
0001a07e ;     A6+0x14 VAR b : Bool
0001a07e ;     A6+0x10 VAR c : Bool
0001a07e ;     A6+0xc  VAR d : Bool
0001a07e ;     A6+0x8  VAR e : Bool
0001a07e ; OMSI PASCAL Function
0001a07e ;    <LVAR  0x018 4(r)>
0001a07e ;    <LVAR  0x014 4(r)>
0001a07e ;    <LVAR  0x010 4(r)>
0001a07e ;    <LVAR  0x00c 4(r)>
0001a07e ;    <LVAR  0x008 4(r)>
0001a07e ; --------------------------------------------------------------------------------------
0001a07e					_?IPC_GetVar4xBool(VAR a : Pointer; VAR b : Bool ; VAR c : Bool; VAR d: Bool; VAR e: Bool):
0001a07e 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
0001a082 bf d5                    |        |		CMPA.L	(A5),A7
0001a084 62 06                    |b       |		BHI	0x1a08c
0001a086 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001a08a 4e 76                    |Nv      |		TRAPV
0001a08c de fc 00 18              |        |		ADDA.W	#0x18,A7
0001a090 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
0001a094 43 f9 00 01 9a 7c        |C    |  |		LEA.L	_IPC_GetBool() : Bool,A1
0001a09a 4e b9 00 01 9c 12        |N       |		JSR	_IPC_Init(void)
0001a0a0 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
0001a0a4 48 50                    |HP      |		PEA.L	(A0)
0001a0a6 48 78 00 00              |Hx      |		PEA.L	0x0
0001a0aa 48 78 00 00              |Hx      |		PEA.L	0x0
0001a0ae 4e b9 00 01 99 cc        |N       |		JSR	_IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
0001a0b4 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0001a0b8 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
0001a0bc 48 50                    |HP      |		PEA.L	(A0)
0001a0be 4e 91                    |N       |		JSR	(A1)
0001a0c0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a0c2 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
0001a0c6 48 50                    |HP      |		PEA.L	(A0)
0001a0c8 4e 91                    |N       |		JSR	(A1)
0001a0ca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a0cc 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0001a0d0 48 50                    |HP      |		PEA.L	(A0)
0001a0d2 4e 91                    |N       |		JSR	(A1)
0001a0d4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a0d6 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001a0da 48 50                    |HP      |		PEA.L	(A0)
0001a0dc 4e 91                    |N       |		JSR	(A1)
0001a0de 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a0e0 4e b9 00 01 99 54        |N    T  |		JSR	_IPC_GetEnd(void)
0001a0e6 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
0001a0ea 4e 5e                    |N^      |		UNLK	A6
0001a0ec 4e 75                    |Nu      |		RTS
0001a0ee 88 00                    |        |		.XXX[0x2]
0001a0f0 00 10 14 40 00 0a 14 31  |   @   1|		.XXX[0x18]
0001a0f8 00 0a 88 12 00 14 81 00  |        |
0001a100 00 0a 22 11 30 0a 21 11  |  " 0 ! |
0001a108 00 06                    |        |		.XXX[0x2]
0001a10a ; --------------------------------------------------------------------------------------
0001a10a ; Run_Experiment()
0001a10a ; --------------------------------------------------------------------------------------
0001a10a					_Run_Experiment():
0001a10a 48 e7 f0 e0              |H       |		MOVEM.L	A2+A1+A0+D3+D2+D1+D0,-(A7)
0001a10e 41 ef 00 1c              |A       |		LEA.L	(A7+0x1c),A0
0001a112 22 50                    |"P      |		MOVEA.L	(A0),A1
0001a114 d0 d9                    |        |		ADDA.W	(A1)+,A0
0001a116 59 8f                    |Y       |		SUBQ.L	#0x4,A7
0001a118 24 4f                    |$O      |		MOVEA.L	A7,A2
0001a11a 42 80                    |B       |		CLR.L	D0
0001a11c 10 19                    |        |		MOVE.B	(A1)+,D0
0001a11e 59 8f                    |Y       |		SUBQ.L	#0x4,A7
0001a120 2f 09                    |/       |		MOVE.L	A1,-(A7)
0001a122 d3 c0                    |        |		ADDA.L	D0,A1
0001a124 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0001a128 3f 00                    |?       |		MOVE.W	D0,-(A7)
0001a12a 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
0001a130 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001a132 2f 0a                    |/       |		MOVE.L	A2,-(A7)
0001a134 4e b9 00 01 86 5e        |N    ^  |		JSR	_ExpLoad(a : String; b: Pointer)
0001a13a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001a13c 1f 19                    |        |		MOVE.B	(A1)+,-(A7)
0001a13e 1f 19                    |        |		MOVE.B	(A1)+,-(A7)
0001a140 6a 04                    |j       |		BPL	0x1a146
0001a142 55 88                    |U       |		SUBQ.L	#0x2,A0
0001a144 1e 90                    |        |		MOVE.B	(A0),(A7)
0001a146 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0001a148 42 82                    |B       |		CLR.L	D2
0001a14a 42 81                    |B       |		CLR.L	D1
0001a14c 12 19                    |        |		MOVE.B	(A1)+,D1
0001a14e 10 19                    |        |		MOVE.B	(A1)+,D0
0001a150 67 60                    |g`      |		BEQ	0x1a1b2
0001a152 14 19                    |        |		MOVE.B	(A1)+,D2
0001a154 0c 02 00 08              |        |		CMPI.B	#0x08,D2
0001a158 6d 3a                    |m:      |		BLT	0x1a194
0001a15a 67 2c                    |g,      |		BEQ	0x1a188
0001a15c 26 3b 25 20 ff 6c        |&;%  l  |		MOVE.L	(D2.W*4+#0x1a0ca),D3	;  LEW=2520
0001a162 14 03                    |        |		MOVE.B	D3,D2
0001a164 91 c2                    |        |		SUBA.L	D2,A0
0001a166 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001a168 42 a7                    |B       |		CLR.L	-(A7)
0001a16a 42 03                    |B       |		CLR.B	D3
0001a16c e9 9b                    |        |		ROL.L	#0x4,D3
0001a16e 14 03                    |        |		MOVE.B	D3,D2
0001a170 67 12                    |g       |		BEQ	0x1a184
0001a172 2f 02                    |/       |		MOVE.L	D2,-(A7)
0001a174 53 97                    |S       |		SUBQ.L	#0x1,(A7)
0001a176 4e b9 00 01 8b 1a        |N       |		JSR	_ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
0001a17c 58 8f                    |X       |		ADDQ.L	#0x4,A7
0001a17e d5 af 00 04              |        |		ADD.L	D2,(A7+0x4)
0001a182 60 e6                    |`       |		BRA	0x1a16a
0001a184 50 8f                    |P       |		ADDQ.L	#0x8,A7
0001a186 60 26                    |`&      |		BRA	0x1a1ae
0001a188 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0001a18a 4e b9 00 01 8b 78        |N    x  |		JSR	_ExpInputFlag(exp : Pointer; val : Word)
0001a190 54 8f                    |T       |		ADDQ.L	#0x2,A7
0001a192 60 1a                    |`       |		BRA	0x1a1ae
0001a194 26 02                    |&       |		MOVE.L	D2,D3
0001a196 54 82                    |T       |		ADDQ.L	#0x2,D2
0001a198 02 42 ff fe              | B      |		ANDI.W	#0xfffe,D2
0001a19c 91 c2                    |        |		SUBA.L	D2,A0
0001a19e 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001a1a0 42 a7                    |B       |		CLR.L	-(A7)
0001a1a2 2f 03                    |/       |		MOVE.L	D3,-(A7)
0001a1a4 4e b9 00 01 8b 1a        |N       |		JSR	_ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
0001a1aa de fc 00 0c              |        |		ADDA.W	#0xc,A7
0001a1ae 53 80                    |S       |		SUBQ.L	#0x1,D0
0001a1b0 6e 9e                    |n       |		BGT	0x1a150
0001a1b2 4e b9 00 01 92 70        |N    p  |		JSR	_ExpRun(a: Bool; adr: Byte; b: Pointer)
0001a1b8 4a 81                    |J       |		TST.L	D1
0001a1ba 67 56                    |gV      |		BEQ	0x1a212
0001a1bc 14 19                    |        |		MOVE.B	(A1)+,D2
0001a1be 0c 02 00 08              |        |		CMPI.B	#0x08,D2
0001a1c2 6d 3a                    |m:      |		BLT	0x1a1fe
0001a1c4 67 2c                    |g,      |		BEQ	0x1a1f2
0001a1c6 26 3b 25 20 ff 02        |&;%     |		MOVE.L	(D2.W*4+#0x1a0ca),D3	;  LEW=2520
0001a1cc 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0001a1ce 42 a7                    |B       |		CLR.L	-(A7)
0001a1d0 42 03                    |B       |		CLR.B	D3
0001a1d2 e9 9b                    |        |		ROL.L	#0x4,D3
0001a1d4 14 03                    |        |		MOVE.B	D3,D2
0001a1d6 67 16                    |g       |		BEQ	0x1a1ee
0001a1d8 20 02                    |        |		MOVE.L	D2,D0
0001a1da 53 82                    |S       |		SUBQ.L	#0x1,D2
0001a1dc 2f 02                    |/       |		MOVE.L	D2,-(A7)
0001a1de 4e b9 00 01 8b e6        |N       |		JSR	_ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
0001a1e4 de fc 00 04              |        |		ADDA.W	#0x4,A7
0001a1e8 d1 af 00 04              |        |		ADD.L	D0,(A7+0x4)
0001a1ec 60 e2                    |`       |		BRA	0x1a1d0
0001a1ee 50 8f                    |P       |		ADDQ.L	#0x8,A7
0001a1f0 60 1c                    |`       |		BRA	0x1a20e
0001a1f2 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0001a1f4 4e b9 00 01 8c 84        |N       |		JSR	_ExpOutputFlag(exp : Pointer; VAR status : Bool)
0001a1fa 58 8f                    |X       |		ADDQ.L	#0x4,A7
0001a1fc 60 10                    |`       |		BRA	0x1a20e
0001a1fe 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0001a200 42 a7                    |B       |		CLR.L	-(A7)
0001a202 2f 02                    |/       |		MOVE.L	D2,-(A7)
0001a204 4e b9 00 01 8b e6        |N       |		JSR	_ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
0001a20a de fc 00 0c              |        |		ADDA.W	#0xc,A7
0001a20e 53 81                    |S       |		SUBQ.L	#0x1,D1
0001a210 6e a8                    |n       |		BGT	0x1a1ba
0001a212 50 8f                    |P       |		ADDQ.L	#0x8,A7
0001a214 2f 0a                    |/       |		MOVE.L	A2,-(A7)
0001a216 4e b9 00 01 8e de        |N       |		JSR	_ExpClose(exp : Pointer)
0001a21c 50 8f                    |P       |		ADDQ.L	#0x8,A7
0001a21e 4c df 07 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2
0001a222 58 8f                    |X       |		ADDQ.L	#0x4,A7
0001a224 4e 75                    |Nu      |		RTS
0001a226 49 6e 63 6f 72 72 65 63  |Incorrec|		.TXT	'Incorrect configuration version '
0001a246 50 72 6f 67 72 61 6d 20  |Program |		.TXT	'Program expects obsolete configuration version'
0001a274 48 41 52 44 57 41 52 45  |HARDWARE|		.TXT	'HARDWARE.M200_CONFIG'
0001a288 48 41 52 44 57 41 52 45  |HARDWARE|		.TXT	'HARDWARE.M200_CONFIG'
0001a29c 41 44 41 5f              |ADA_    |		.XXX[0x4]
0001a2a0 42 41 53 45 20 20 20 20  |BASE    |		.XXX[0x188]
0001a2a8 20 20 20 20 20 20 20 20  |        |
0001a2b0 4d 41 43 48 49 4e 45 5f  |MACHINE_|
0001a2b8 49 4e 54 45 52 46 41 43  |INTERFAC|
0001a2c0 45 20 20 20 4b 45 52 4e  |E   KERN|
0001a2c8 45 4c 5f 44 45 42 55 47  |EL_DEBUG|
0001a2d0 47 45 52 5f 49 4f 20 20  |GER_IO  |
0001a2d8 4b 45 52 4e 45 4c 5f 44  |KERNEL_D|
0001a2e0 45 42 55 47 47 45 52 20  |EBUGGER |
0001a2e8 20 20 20 20 4b 45 52 4e  |    KERN|
0001a2f0 45 4c 20 20 20 20 20 20  |EL      |
0001a2f8 20 20 20 20 20 20 20 20  |        |
0001a300 45 4e 56 49 52 4f 4e 4d  |ENVIRONM|
0001a308 45 4e 54 5f 44 45 42 55  |ENT_DEBU|
0001a310 47 47 45 52 41 42 53 54  |GGERABST|
0001a318 52 41 43 54 5f 54 59 50  |RACT_TYP|
0001a320 45 53 20 20 20 20 20 20  |ES      |
0001a328 4d 49 53 43 45 4c 4c 41  |MISCELLA|
0001a330 4e 45 4f 55 53 20 20 20  |NEOUS   |
0001a338 20 20 20 20 4f 53 5f 55  |    OS_U|
0001a340 54 49 4c 49 54 49 45 53  |TILITIES|
0001a348 20 20 20 20 20 20 20 20  |        |
0001a350 45 4c 41 42 4f 52 41 54  |ELABORAT|
0001a358 4f 52 5f 44 41 54 41 42  |OR_DATAB|
0001a360 41 53 45 20 41 44 41 5f  |ASE ADA_|
0001a368 42 41 53 45 20 20 20 20  |BASE    |
0001a370 20 20 20 20 20 20 20 20  |        |
0001a378 4d 41 43 48 49 4e 45 5f  |MACHINE_|
0001a380 49 4e 54 45 52 46 41 43  |INTERFAC|
0001a388 45 20 20 20 4b 45 52 4e  |E   KERN|
0001a390 45 4c 5f 44 45 42 55 47  |EL_DEBUG|
0001a398 47 45 52 5f 49 4f 20 20  |GER_IO  |
0001a3a0 4b 45 52 4e 45 4c 5f 44  |KERNEL_D|
0001a3a8 45 42 55 47 47 45 52 20  |EBUGGER |
0001a3b0 20 20 20 20 4b 45 52 4e  |    KERN|
0001a3b8 45 4c 20 20 20 20 20 20  |EL      |
0001a3c0 20 20 20 20 20 20 20 20  |        |
0001a3c8 45 4e 56 49 52 4f 4e 4d  |ENVIRONM|
0001a3d0 45 4e 54 5f 44 45 42 55  |ENT_DEBU|
0001a3d8 47 47 45 52 41 42 53 54  |GGERABST|
0001a3e0 52 41 43 54 5f 54 59 50  |RACT_TYP|
0001a3e8 45 53 20 20 20 20 20 20  |ES      |
0001a3f0 4d 49 53 43 45 4c 4c 41  |MISCELLA|
0001a3f8 4e 45 4f 55 53 20 20 20  |NEOUS   |
0001a400 20 20 20 20 4f 53 5f 55  |    OS_U|
0001a408 54 49 4c 49 54 49 45 53  |TILITIES|
0001a410 20 20 20 20 20 20 20 20  |        |
0001a418 45 4c 41 42 4f 52 41 54  |ELABORAT|
0001a420 4f 52 5f 44 41 54 41 42  |OR_DATAB|
0001a428 41 53 45 20              |ASE     |		.XXX[0x4]
0001a42c ; --------------------------------------------------------------------------------------
0001a42c ; OMSI PASCAL Function
0001a42c ;    <LVAR  0x00c 4(rw)>
0001a42c ;    <LVAR  0x008 4(r)>
0001a42c ; --------------------------------------------------------------------------------------
0001a42c 4e 56 ff d8              |NV      |		LINK.W	A6,#0xffd8
0001a430 bf d5                    |        |		CMPA.L	(A5),A7
0001a432 62 06                    |b       |		BHI	0x1a43a
0001a434 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001a438 4e 76                    |Nv      |		TRAPV
0001a43a de fc 00 1c              |        |		ADDA.W	#0x1c,A7
0001a43e 48 e7 83 08              |H       |		MOVEM.L	A4+D7+D6+D0,-(A7)
0001a442 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
0001a446 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0001a448 be 97                    |        |		CMP.L	(A7),D7
0001a44a 6e 1e                    |n       |		BGT	0x1a46a
0001a44c 28 6e 00 0c              |(n      |		MOVEA.L	(A6+0xc),A4
0001a450 42 80                    |B       |		CLR.L	D0
0001a452 10 14                    |        |		MOVE.B	(A4),D0
0001a454 3c 00                    |<       |		MOVE.W	D0,D6
0001a456 18 ac 00 01              |        |		MOVE.B	(A4+0x1),(A4)
0001a45a 4d bc 00 ff              |M       |		CHK.W	#0xff,D6
0001a45e 19 46 00 01              | F      |		MOVE.B	D6,(A4+0x1)
0001a462 54 ae 00 0c              |T       |		ADDQ.L	#0x2,(A6+0xc)
0001a466 52 87                    |R       |		ADDQ.L	#0x1,D7
0001a468 68 de                    |h       |		BVC	0x1a448
0001a46a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a46c 4c df 10 c1              |L       |		MOVEM.L	(A7)+,D0+D6+D7+A4
0001a470 4e 5e                    |N^      |		UNLK	A6
0001a472 4e 75                    |Nu      |		RTS
0001a474 ; --------------------------------------------------------------------------------------
0001a474 ; OMSI PASCAL Function
0001a474 ;    <LVAR  0x008 4(r)>
0001a474 ; --------------------------------------------------------------------------------------
0001a474 4e 56 ff dc              |NV      |		LINK.W	A6,#0xffdc
0001a478 bf d5                    |        |		CMPA.L	(A5),A7
0001a47a 62 06                    |b       |		BHI	0x1a482
0001a47c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001a480 4e 76                    |Nv      |		TRAPV
0001a482 de fc 00 20              |        |		ADDA.W	#0x20,A7
0001a486 48 e7 03 c0              |H       |		MOVEM.L	A1+A0+D7+D6,-(A7)
0001a48a 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001a48e 3e 10                    |>       |		MOVE.W	(A0),D7
0001a490 3c 28 00 28              |<( (    |		MOVE.W	(A0+0x28),D6
0001a494 22 48                    |"H      |		MOVEA.L	A0,A1
0001a496 2f 09                    |/       |		MOVE.L	A1,-(A7)
0001a498 48 78 00 c9              |Hx      |		PEA.L	0xc9
0001a49c 4e ba ff 8e              |N       |		JSR	0x1a42c
0001a4a0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001a4a2 30 87                    |0       |		MOVE.W	D7,(A0)
0001a4a4 31 46 00 28              |1F (    |		MOVE.W	D6,(A0+0x28)
0001a4a8 4c df 03 c0              |L       |		MOVEM.L	(A7)+,D6+D7+A0+A1
0001a4ac 4e 5e                    |N^      |		UNLK	A6
0001a4ae 4e 75                    |Nu      |		RTS
0001a4b0 ; --------------------------------------------------------------------------------------
0001a4b0 ; Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
0001a4b0 ; Stack:
0001a4b0 ;     A6+0x14     name : String
0001a4b0 ;     A6+0x10     version : Long
0001a4b0 ;     A6+0xc      dst : Pointer
0001a4b0 ;     A6+0x8  VAR status : Bool
0001a4b0 ; OMSI PASCAL Function
0001a4b0 ;    <LVAR  0x014 4(r)>
0001a4b0 ;    <LVAR  0x010 4(r)>
0001a4b0 ;    <LVAR  0x00c 4(r)>
0001a4b0 ;    <LVAR  0x008 4(r)>
0001a4b0 ;    <LVAR -0x012 4(r)>
0001a4b0 ;    <LVAR -0x016 @ 4(r)>
0001a4b0 ;    <LVAR -0x018 @ 1(r)>
0001a4b0 ; --------------------------------------------------------------------------------------
0001a4b0					_Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool):
0001a4b0 4e 56 ff 76              |NV v    |		LINK.W	A6,#0xff76
0001a4b4 bf d5                    |        |		CMPA.L	(A5),A7
0001a4b6 62 06                    |b       |		BHI	0x1a4be
0001a4b8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001a4bc 4e 76                    |Nv      |		TRAPV
0001a4be de fc 00 72              |   r    |		ADDA.W	#0x72,A7
0001a4c2 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0001a4c6 45 ee ff e8              |E       |		LEA.L	(A6-0x18),A2
0001a4ca 47 ee 00 0c              |G       |		LEA.L	(A6+0xc),A3
0001a4ce 49 ee ff ee              |I       |		LEA.L	(A6-0x12),A4
0001a4d2 72 01                    |r       |		MOVEQ.L	#0x01,D1
0001a4d4 74 03                    |t       |		MOVEQ.L	#0x03,D2
0001a4d6 76 14                    |v       |		MOVEQ.L	#0x14,D3
0001a4d8 78 02                    |x       |		MOVEQ.L	#0x02,D4
0001a4da 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001a4de 42 10                    |B       |		CLR.B	(A0)
0001a4e0 20 2e 00 10              | .      |		MOVE.L	(A6+0x10),D0
0001a4e4 b0 82                    |        |		CMP.L	D2,D0
0001a4e6 67 2e                    |g.      |		BEQ	0x1a516
0001a4e8 41 fa fd 8a              |A       |		LEA.L	0x1a274,A0
0001a4ec 70 16                    |p       |		MOVEQ.L	#0x16,D0
0001a4ee 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0001a4f0 51 c8 ff fc              |Q       |		DBF	D0,0x1a4ee
0001a4f4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0001a4f6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0001a4fa 3f 01                    |?       |		MOVE.W	D1,-(A7)
0001a4fc 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
0001a500 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
0001a506 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001a508 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
0001a50e de fc 00 32              |   2    |		ADDA.W	#0x32,A7
0001a512 60 00 00 ec              |`       |		BRA	0x1a600
0001a516 20 53                    | S      |		MOVEA.L	(A3),A0
0001a518 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001a51a 2c 1f                    |,       |		MOVE.L	(A7)+,D6
0001a51c 42 94                    |B       |		CLR.L	(A4)
0001a51e 2f 2e 00 14              |/.      |		MOVE.L	(A6+0x14),-(A7)
0001a522 42 27                    |B'      |		CLR.B	-(A7)
0001a524 1f 01                    |        |		MOVE.B	D1,-(A7)
0001a526 48 78 00 00              |Hx      |		PEA.L	0x0
0001a52a 48 52                    |HR      |		PEA.L	(A2)
0001a52c 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
0001a530 4e b9 00 01 38 a6        |N   8   |		JSR	_OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0001a536 de c3                    |        |		ADDA.W	D3,A7
0001a538 4a 12                    |J       |		TST.B	(A2)
0001a53a 66 00 00 c4              |f       |		BNE	0x1a600
0001a53e 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0001a540 7a 00                    |z       |		MOVEQ.L	#0x00,D5
0001a542 ba 97                    |        |		CMP.L	(A7),D5
0001a544 6e 00 00 90              |n       |		BGT	0x1a5d6
0001a548 ba 94                    |        |		CMP.L	(A4),D5
0001a54a 66 08                    |f       |		BNE	0x1a554
0001a54c 2e 3c 00 00 00 c9        |.<      |		MOVE.L	#0xc9,D7
0001a552 60 06                    |`       |		BRA	0x1a55a
0001a554 2e 3c 00 00 02 00        |.<      |		MOVE.L	#0x200,D7
0001a55a 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
0001a55e 0c 85 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D5
0001a564 63 02                    |c       |		BLS	0x1a568
0001a566 4e 4f                    |NO      |		TRAP	#15
0001a568 3f 05                    |?       |		MOVE.W	D5,-(A7)
0001a56a 42 67                    |Bg      |		CLR.W	-(A7)
0001a56c 53 87                    |S       |		SUBQ.L	#0x1,D7
0001a56e 0c 87 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D7
0001a574 63 02                    |c       |		BLS	0x1a578
0001a576 4e 4f                    |NO      |		TRAP	#15
0001a578 52 87                    |R       |		ADDQ.L	#0x1,D7
0001a57a 3f 07                    |?       |		MOVE.W	D7,-(A7)
0001a57c 1f 04                    |        |		MOVE.B	D4,-(A7)
0001a57e 2f 06                    |/       |		MOVE.L	D6,-(A7)
0001a580 48 52                    |HR      |		PEA.L	(A2)
0001a582 4e b9 00 01 3a d8        |N   :   |		JSR	_ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
0001a588 de c3                    |        |		ADDA.W	D3,A7
0001a58a 06 86 00 00 04 00        |        |		ADDI.L	#0x00000400,D6
0001a590 4a 85                    |J       |		TST.L	D5
0001a592 66 3c                    |f<      |		BNE	0x1a5d0
0001a594 20 53                    | S      |		MOVEA.L	(A3),A0
0001a596 30 10                    |0       |		MOVE.W	(A0),D0
0001a598 b0 42                    | B      |		CMP.W	D2,D0
0001a59a 67 34                    |g4      |		BEQ	0x1a5d0
0001a59c 9e fc 00 20              |        |		SUBA.W	#0x20,A7
0001a5a0 20 4f                    | O      |		MOVEA.L	A7,A0
0001a5a2 43 fa fc 82              |C       |		LEA.L	0x1a226,A1
0001a5a6 70 1e                    |p       |		MOVEQ.L	#0x1e,D0
0001a5a8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0001a5aa 51 c8 ff fc              |Q       |		DBF	D0,0x1a5a8
0001a5ae 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0001a5b0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0001a5b4 3f 01                    |?       |		MOVE.W	D1,-(A7)
0001a5b6 3f 3c 00 1f              |?<      |		MOVE.W	#0x1f,-(A7)
0001a5ba 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
0001a5c0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001a5c2 4e b9 00 01 54 a2        |N   T   |		JSR	_WriteConsoleStringCrLf(str : String)
0001a5c8 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
0001a5cc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a5ce 60 18                    |`       |		BRA	0x1a5e8
0001a5d0 52 85                    |R       |		ADDQ.L	#0x1,D5
0001a5d2 68 00 ff 6e              |h  n    |		BVC	0x1a542
0001a5d6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a5d8 20 53                    | S      |		MOVEA.L	(A3),A0
0001a5da 48 50                    |HP      |		PEA.L	(A0)
0001a5dc 4e ba fe 96              |N       |		JSR	0x1a474
0001a5e0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a5e2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001a5e6 10 81                    |        |		MOVE.B	D1,(A0)
0001a5e8 42 27                    |B'      |		CLR.B	-(A7)
0001a5ea 1f 04                    |        |		MOVE.B	D4,-(A7)
0001a5ec 48 78 00 01              |Hx      |		PEA.L	0x1
0001a5f0 48 52                    |HR      |		PEA.L	(A2)
0001a5f2 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
0001a5f6 4e b9 00 01 3c 7c        |N   <|  |		JSR	_CloseFile(a : L; VAR status : B; VAR file : File)
0001a5fc de fc 00 10              |        |		ADDA.W	#0x10,A7
0001a600 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0001a604 4e 5e                    |N^      |		UNLK	A6
0001a606 4e 75                    |Nu      |		RTS
0001a608 ; --------------------------------------------------------------------------------------
0001a608 ; Write_ConfigFile(name: String; dst: Pointer)
0001a608 ; Stack:
0001a608 ;     A6+0xc      name : String
0001a608 ;     A6+0x8      dst : Pointer
0001a608 ; OMSI PASCAL Function
0001a608 ;    <LVAR  0x00c 4(r)>
0001a608 ;    <LVAR  0x008 4(r)>
0001a608 ;    <LVAR -0x012 4(r)>
0001a608 ;    <LVAR -0x016 @ 4(r)>
0001a608 ;    <LVAR -0x018 @>
0001a608 ; --------------------------------------------------------------------------------------
0001a608					_Write_ConfigFile(name: String; dst: Pointer):
0001a608 4e 56 ff a4              |NV      |		LINK.W	A6,#0xffa4
0001a60c bf d5                    |        |		CMPA.L	(A5),A7
0001a60e 62 06                    |b       |		BHI	0x1a616
0001a610 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001a614 4e 76                    |Nv      |		TRAPV
0001a616 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
0001a61a 48 e7 c7 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
0001a61e 43 ee ff ee              |C       |		LEA.L	(A6-0x12),A1
0001a622 45 ee ff e8              |E       |		LEA.L	(A6-0x18),A2
0001a626 47 ee ff ea              |G       |		LEA.L	(A6-0x16),A3
0001a62a 70 02                    |p       |		MOVEQ.L	#0x02,D0
0001a62c 72 10                    |r       |		MOVEQ.L	#0x10,D1
0001a62e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001a632 30 bc 00 03              |0       |		MOVE.W	#0x3,(A0)
0001a636 48 50                    |HP      |		PEA.L	(A0)
0001a638 4e ba fe 3a              |N  :    |		JSR	0x1a474
0001a63c 2e 88                    |.       |		MOVE.L	A0,(A7)
0001a63e 2c 1f                    |,       |		MOVE.L	(A7)+,D6
0001a640 42 91                    |B       |		CLR.L	(A1)
0001a642 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0001a646 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
0001a64a 1f 00                    |        |		MOVE.B	D0,-(A7)
0001a64c 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0001a64e 52 97                    |R       |		ADDQ.L	#0x1,(A7)
0001a650 48 52                    |HR      |		PEA.L	(A2)
0001a652 48 53                    |HS      |		PEA.L	(A3)
0001a654 4e b9 00 01 38 a6        |N   8   |		JSR	_OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0001a65a de c1                    |        |		ADDA.W	D1,A7
0001a65c 2e 91                    |.       |		MOVE.L	(A1),(A7)
0001a65e 7a 00                    |z       |		MOVEQ.L	#0x00,D5
0001a660 ba 97                    |        |		CMP.L	(A7),D5
0001a662 6e 4c                    |nL      |		BGT	0x1a6b0
0001a664 ba 91                    |        |		CMP.L	(A1),D5
0001a666 66 08                    |f       |		BNE	0x1a670
0001a668 2e 3c 00 00 00 c9        |.<      |		MOVE.L	#0xc9,D7
0001a66e 60 06                    |`       |		BRA	0x1a676
0001a670 2e 3c 00 00 02 00        |.<      |		MOVE.L	#0x200,D7
0001a676 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0001a678 0c 85 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D5
0001a67e 63 02                    |c       |		BLS	0x1a682
0001a680 4e 4f                    |NO      |		TRAP	#15
0001a682 3f 05                    |?       |		MOVE.W	D5,-(A7)
0001a684 42 67                    |Bg      |		CLR.W	-(A7)
0001a686 53 87                    |S       |		SUBQ.L	#0x1,D7
0001a688 0c 87 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D7
0001a68e 63 02                    |c       |		BLS	0x1a692
0001a690 4e 4f                    |NO      |		TRAP	#15
0001a692 52 87                    |R       |		ADDQ.L	#0x1,D7
0001a694 3f 07                    |?       |		MOVE.W	D7,-(A7)
0001a696 1f 00                    |        |		MOVE.B	D0,-(A7)
0001a698 2f 06                    |/       |		MOVE.L	D6,-(A7)
0001a69a 48 52                    |HR      |		PEA.L	(A2)
0001a69c 4e b9 00 01 3b aa        |N   ;   |		JSR	_WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
0001a6a2 de fc 00 14              |        |		ADDA.W	#0x14,A7
0001a6a6 06 86 00 00 04 00        |        |		ADDI.L	#0x00000400,D6
0001a6ac 52 85                    |R       |		ADDQ.L	#0x1,D5
0001a6ae 68 b0                    |h       |		BVC	0x1a660
0001a6b0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0001a6b2 42 17                    |B       |		CLR.B	(A7)
0001a6b4 1f 00                    |        |		MOVE.B	D0,-(A7)
0001a6b6 48 78 00 01              |Hx      |		PEA.L	0x1
0001a6ba 48 52                    |HR      |		PEA.L	(A2)
0001a6bc 48 53                    |HS      |		PEA.L	(A3)
0001a6be 4e b9 00 01 3c 7c        |N   <|  |		JSR	_CloseFile(a : L; VAR status : B; VAR file : File)
0001a6c4 de c1                    |        |		ADDA.W	D1,A7
0001a6c6 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001a6ca 48 50                    |HP      |		PEA.L	(A0)
0001a6cc 4e ba fd a6              |N       |		JSR	0x1a474
0001a6d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a6d2 4c df 0f e3              |L       |		MOVEM.L	(A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3
0001a6d6 4e 5e                    |N^      |		UNLK	A6
0001a6d8 4e 75                    |Nu      |		RTS
0001a6da ; --------------------------------------------------------------------------------------
0001a6da ; Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool)
0001a6da ; Stack:
0001a6da ;     A6+0xc      a : Pointer
0001a6da ;     A6+0x8  VAR status : Bool
0001a6da ; OMSI PASCAL Function
0001a6da ;    <LVAR  0x00c 4(r)>
0001a6da ;    <LVAR  0x008 4(r)>
0001a6da ;    <LVAR -0x006 @ 4(rw)>
0001a6da ;    <LVAR -0x012 @ 4(r)>
0001a6da ;    <LVAR -0x014 @ 1(r)>
0001a6da ; --------------------------------------------------------------------------------------
0001a6da					_Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool):
0001a6da 4e 56 ff 9c              |NV      |		LINK.W	A6,#0xff9c
0001a6de bf d5                    |        |		CMPA.L	(A5),A7
0001a6e0 62 06                    |b       |		BHI	0x1a6e8
0001a6e2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001a6e6 4e 76                    |Nv      |		TRAPV
0001a6e8 de fc 00 50              |   P    |		ADDA.W	#0x50,A7
0001a6ec 48 e7 f3 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7)
0001a6f0 45 ee ff ec              |E       |		LEA.L	(A6-0x14),A2
0001a6f4 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
0001a6f8 49 ee ff ee              |I       |		LEA.L	(A6-0x12),A4
0001a6fc 72 01                    |r       |		MOVEQ.L	#0x01,D1
0001a6fe 74 14                    |t       |		MOVEQ.L	#0x14,D2
0001a700 76 02                    |v       |		MOVEQ.L	#0x02,D3
0001a702 41 fa fb 84              |A       |		LEA.L	0x1a288,A0
0001a706 70 04                    |p       |		MOVEQ.L	#0x04,D0
0001a708 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0001a70a 51 c8 ff fc              |Q       |		DBF	D0,0x1a708
0001a70e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0001a710 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0001a714 3f 01                    |?       |		MOVE.W	D1,-(A7)
0001a716 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001a718 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
0001a71e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001a720 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
0001a722 de c2                    |        |		ADDA.W	D2,A7
0001a724 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001a728 42 10                    |B       |		CLR.B	(A0)
0001a72a 22 6e 00 0c              |"n      |		MOVEA.L	(A6+0xc),A1
0001a72e 2f 09                    |/       |		MOVE.L	A1,-(A7)
0001a730 2e 1f                    |.       |		MOVE.L	(A7)+,D7
0001a732 7c 03                    ||       |		MOVEQ.L	#0x03,D6
0001a734 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0001a736 42 27                    |B'      |		CLR.B	-(A7)
0001a738 1f 01                    |        |		MOVE.B	D1,-(A7)
0001a73a 48 78 00 00              |Hx      |		PEA.L	0x0
0001a73e 48 52                    |HR      |		PEA.L	(A2)
0001a740 48 54                    |HT      |		PEA.L	(A4)
0001a742 4e b9 00 01 38 a6        |N   8   |		JSR	_OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0001a748 de c2                    |        |		ADDA.W	D2,A7
0001a74a 4a 12                    |J       |		TST.B	(A2)
0001a74c 66 48                    |fH      |		BNE	0x1a796
0001a74e 2f 14                    |/       |		MOVE.L	(A4),-(A7)
0001a750 42 67                    |Bg      |		CLR.W	-(A7)
0001a752 42 67                    |Bg      |		CLR.W	-(A7)
0001a754 53 86                    |S       |		SUBQ.L	#0x1,D6
0001a756 0c 86 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D6
0001a75c 63 02                    |c       |		BLS	0x1a760
0001a75e 4e 4f                    |NO      |		TRAP	#15
0001a760 52 86                    |R       |		ADDQ.L	#0x1,D6
0001a762 3f 06                    |?       |		MOVE.W	D6,-(A7)
0001a764 1f 03                    |        |		MOVE.B	D3,-(A7)
0001a766 2f 07                    |/       |		MOVE.L	D7,-(A7)
0001a768 48 52                    |HR      |		PEA.L	(A2)
0001a76a 4e b9 00 01 3a d8        |N   :   |		JSR	_ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
0001a770 de fc 00 12              |        |		ADDA.W	#0x12,A7
0001a774 42 17                    |B       |		CLR.B	(A7)
0001a776 1f 03                    |        |		MOVE.B	D3,-(A7)
0001a778 48 78 00 01              |Hx      |		PEA.L	0x1
0001a77c 48 52                    |HR      |		PEA.L	(A2)
0001a77e 48 54                    |HT      |		PEA.L	(A4)
0001a780 4e b9 00 01 3c 7c        |N   <|  |		JSR	_CloseFile(a : L; VAR status : B; VAR file : File)
0001a786 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0001a78a 2e 87                    |.       |		MOVE.L	D7,(A7)
0001a78c 2f 06                    |/       |		MOVE.L	D6,-(A7)
0001a78e 4e ba fc 9c              |N       |		JSR	0x1a42c
0001a792 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001a794 10 81                    |        |		MOVE.B	D1,(A0)
0001a796 48 53                    |HS      |		PEA.L	(A3)
0001a798 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
0001a79e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a7a0 4c df 1f cf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2+A3+A4
0001a7a4 4e 5e                    |N^      |		UNLK	A6
0001a7a6 4e 75                    |Nu      |		RTS
0001a7a8 ; --------------------------------------------------------------------------------------
0001a7a8 ; Write_HARDWARE.M200_CONFIG(a : Pointer)
0001a7a8 ; Stack:
0001a7a8 ;     A6+0x8      a : Pointer
0001a7a8 ; OMSI PASCAL Function
0001a7a8 ;    <LVAR  0x008 4(r)>
0001a7a8 ;    <LVAR -0x006 @ 4(rw)>
0001a7a8 ;    <LVAR -0x012 @ 4(r)>
0001a7a8 ;    <LVAR -0x014 @>
0001a7a8 ; --------------------------------------------------------------------------------------
0001a7a8					_Write_HARDWARE.M200_CONFIG(a : Pointer):
0001a7a8 4e 56 ff a0              |NV      |		LINK.W	A6,#0xffa0
0001a7ac bf d5                    |        |		CMPA.L	(A5),A7
0001a7ae 62 06                    |b       |		BHI	0x1a7b6
0001a7b0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001a7b4 4e 76                    |Nv      |		TRAPV
0001a7b6 de fc 00 4c              |   L    |		ADDA.W	#0x4c,A7
0001a7ba 48 e7 f3 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7)
0001a7be 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
0001a7c2 45 ee ff ec              |E       |		LEA.L	(A6-0x14),A2
0001a7c6 47 ee ff ee              |G       |		LEA.L	(A6-0x12),A3
0001a7ca 72 02                    |r       |		MOVEQ.L	#0x02,D1
0001a7cc 74 01                    |t       |		MOVEQ.L	#0x01,D2
0001a7ce 76 14                    |v       |		MOVEQ.L	#0x14,D3
0001a7d0 41 fa fa ca              |A       |		LEA.L	0x1a29c,A0
0001a7d4 70 04                    |p       |		MOVEQ.L	#0x04,D0
0001a7d6 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0001a7d8 51 c8 ff fc              |Q       |		DBF	D0,0x1a7d6
0001a7dc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0001a7de 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0001a7e2 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001a7e4 3f 03                    |?       |		MOVE.W	D3,-(A7)
0001a7e6 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
0001a7ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001a7ee 22 9f                    |"       |		MOVE.L	(A7)+,(A1)
0001a7f0 de c3                    |        |		ADDA.W	D3,A7
0001a7f2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001a7f6 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001a7f8 2e 1f                    |.       |		MOVE.L	(A7)+,D7
0001a7fa 7c 03                    ||       |		MOVEQ.L	#0x03,D6
0001a7fc 2f 07                    |/       |		MOVE.L	D7,-(A7)
0001a7fe 2f 06                    |/       |		MOVE.L	D6,-(A7)
0001a800 4e ba fc 2a              |N  *    |		JSR	0x1a42c
0001a804 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a806 2e 91                    |.       |		MOVE.L	(A1),(A7)
0001a808 1f 02                    |        |		MOVE.B	D2,-(A7)
0001a80a 1f 01                    |        |		MOVE.B	D1,-(A7)
0001a80c 48 78 00 01              |Hx      |		PEA.L	0x1
0001a810 48 52                    |HR      |		PEA.L	(A2)
0001a812 48 53                    |HS      |		PEA.L	(A3)
0001a814 4e b9 00 01 38 a6        |N   8   |		JSR	_OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0001a81a de fc 00 10              |        |		ADDA.W	#0x10,A7
0001a81e 2e 93                    |.       |		MOVE.L	(A3),(A7)
0001a820 42 67                    |Bg      |		CLR.W	-(A7)
0001a822 42 67                    |Bg      |		CLR.W	-(A7)
0001a824 53 86                    |S       |		SUBQ.L	#0x1,D6
0001a826 0c 86 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D6
0001a82c 63 02                    |c       |		BLS	0x1a830
0001a82e 4e 4f                    |NO      |		TRAP	#15
0001a830 52 86                    |R       |		ADDQ.L	#0x1,D6
0001a832 3f 06                    |?       |		MOVE.W	D6,-(A7)
0001a834 1f 01                    |        |		MOVE.B	D1,-(A7)
0001a836 2f 07                    |/       |		MOVE.L	D7,-(A7)
0001a838 48 52                    |HR      |		PEA.L	(A2)
0001a83a 4e b9 00 01 3b aa        |N   ;   |		JSR	_WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
0001a840 de fc 00 12              |        |		ADDA.W	#0x12,A7
0001a844 42 17                    |B       |		CLR.B	(A7)
0001a846 1f 01                    |        |		MOVE.B	D1,-(A7)
0001a848 48 78 00 01              |Hx      |		PEA.L	0x1
0001a84c 48 52                    |HR      |		PEA.L	(A2)
0001a84e 48 53                    |HS      |		PEA.L	(A3)
0001a850 4e b9 00 01 3c 7c        |N   <|  |		JSR	_CloseFile(a : L; VAR status : B; VAR file : File)
0001a856 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0001a85a 2e 87                    |.       |		MOVE.L	D7,(A7)
0001a85c 2f 06                    |/       |		MOVE.L	D6,-(A7)
0001a85e 4e ba fb cc              |N       |		JSR	0x1a42c
0001a862 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001a864 48 51                    |HQ      |		PEA.L	(A1)
0001a866 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
0001a86c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a86e 4c df 0f cf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2+A3
0001a872 4e 5e                    |N^      |		UNLK	A6
0001a874 4e 75                    |Nu      |		RTS
0001a876 ; --------------------------------------------------------------------------------------
0001a876 ; Config_Entry_Name(a : Byte) : String
0001a876 ; Stack:
0001a876 ;     A6+0xa  VAR RETURN : String
0001a876 ;     A6+0x8      a : Byte
0001a876 ; OMSI PASCAL Function
0001a876 ;    <LVAR  0x00a 4(w)>
0001a876 ;    <LVAR  0x008 1(r)>
0001a876 ; --------------------------------------------------------------------------------------
0001a876					_Config_Entry_Name(a : Byte) : String:
0001a876 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
0001a87a bf d5                    |        |		CMPA.L	(A5),A7
0001a87c 62 06                    |b       |		BHI	0x1a884
0001a87e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001a882 4e 76                    |Nv      |		TRAPV
0001a884 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
0001a888 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
0001a88c 72 14                    |r       |		MOVEQ.L	#0x14,D1
0001a88e 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0001a892 48 80                    |H       |		EXTB.W	D0
0001a894 c1 c1                    |        |		MULS.W	D1,D0
0001a896 41 fa fa cc              |A       |		LEA.L	0x1a364,A0
0001a89a 41 f0 00 14              |A       |		LEA.L	(A0+D0.W+#0x14),A0
0001a89e 70 04                    |p       |		MOVEQ.L	#0x04,D0
0001a8a0 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0001a8a2 51 c8 ff fc              |Q       |		DBF	D0,0x1a8a0
0001a8a6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0001a8a8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0001a8ac 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0001a8b0 3f 01                    |?       |		MOVE.W	D1,-(A7)
0001a8b2 4e b9 00 01 0d dc        |N       |		JSR	_StringLit(Src : Pointer; Offset: W; Len : W) : String
0001a8b8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0001a8ba 2d 5f 00 0a              |-_      |		MOVE.L	(A7)+,(A6+0xa)
0001a8be de c1                    |        |		ADDA.W	D1,A7
0001a8c0 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
0001a8c4 4e 5e                    |N^      |		UNLK	A6
0001a8c6 4e 75                    |Nu      |		RTS
0001a8c8 ; --------------------------------------------------------------------------------------
0001a8c8 ; FSCALL_1058c
0001a8c8 ; OMSI PASCAL Function
0001a8c8 ;    <LVAR  0x010 @ 4(r)>
0001a8c8 ;    <LVAR  0x00c 4(r)>
0001a8c8 ;    <LVAR  0x008 4(r)>
0001a8c8 ; --------------------------------------------------------------------------------------
0001a8c8					_FSCALL_1058c:
0001a8c8 4e 56 ff d4              |NV      |		LINK.W	A6,#0xffd4
0001a8cc bf d5                    |        |		CMPA.L	(A5),A7
0001a8ce 62 06                    |b       |		BHI	0x1a8d6
0001a8d0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001a8d4 4e 76                    |Nv      |		TRAPV
0001a8d6 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
0001a8da 48 e7 f1 c0              |H       |		MOVEM.L	A1+A0+D7+D3+D2+D1+D0,-(A7)
0001a8de 74 1e                    |t       |		MOVEQ.L	#0x1e,D2
0001a8e0 76 1d                    |v       |		MOVEQ.L	#0x1d,D3
0001a8e2 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
0001a8e6 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001a8e8 30 10                    |0       |		MOVE.W	(A0),D0
0001a8ea b0 42                    | B      |		CMP.W	D2,D0
0001a8ec 6f 08                    |o       |		BLE	0x1a8f6
0001a8ee 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001a8f2 42 10                    |B       |		CLR.B	(A0)
0001a8f4 60 50                    |`P      |		BRA	0x1a946
0001a8f6 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0001a8f8 20 57                    | W      |		MOVEA.L	(A7),A0
0001a8fa 30 10                    |0       |		MOVE.W	(A0),D0
0001a8fc 48 c0                    |H       |		EXTW.L	D0
0001a8fe be 80                    |        |		CMP.L	D0,D7
0001a900 6f 14                    |o       |		BLE	0x1a916
0001a902 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0001a906 20 07                    |        |		MOVE.L	D7,D0
0001a908 53 80                    |S       |		SUBQ.L	#0x1,D0
0001a90a b0 83                    |        |		CMP.L	D3,D0
0001a90c 63 02                    |c       |		BLS	0x1a910
0001a90e 4e 4f                    |NO      |		TRAP	#15
0001a910 42 30 08 00              |B0      |		CLR.B	(A0+D0.L)
0001a914 60 22                    |`"      |		BRA	0x1a938
0001a916 22 6e 00 0c              |"n      |		MOVEA.L	(A6+0xc),A1
0001a91a 20 07                    |        |		MOVE.L	D7,D0
0001a91c 53 80                    |S       |		SUBQ.L	#0x1,D0
0001a91e b0 83                    |        |		CMP.L	D3,D0
0001a920 63 02                    |c       |		BLS	0x1a924
0001a922 4e 4f                    |NO      |		TRAP	#15
0001a924 22 07                    |"       |		MOVE.L	D7,D1
0001a926 53 81                    |S       |		SUBQ.L	#0x1,D1
0001a928 0c 81 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D1
0001a92e 63 02                    |c       |		BLS	0x1a932
0001a930 4e 4f                    |NO      |		TRAP	#15
0001a932 13 b0 18 02 08 00        |        |		MOVE.B	(A0+D1.L+#0x2),(A1+D0.L)
0001a938 52 87                    |R       |		ADDQ.L	#0x1,D7
0001a93a be 82                    |        |		CMP.L	D2,D7
0001a93c 6f ba                    |o       |		BLE	0x1a8f8
0001a93e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001a942 10 bc 00 01              |        |		MOVE.B	#0x01,(A0)
0001a946 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a948 48 6e 00 10              |Hn      |		PEA.L	(A6+0x10)
0001a94c 4e b9 00 01 0d 76        |N    v  |		JSR	_FreeString(VAR a : String)
0001a952 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a954 4c df 03 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1
0001a958 4e 5e                    |N^      |		UNLK	A6
0001a95a 4e 75                    |Nu      |		RTS
0001a95c ; --------------------------------------------------------------------------------------
0001a95c ; ReadConfig(where : Long) : Word
0001a95c ; Stack:
0001a95c ;     A6+0xc  VAR RETURN : Word
0001a95c ;     A6+0x8      where : Long
0001a95c ; OMSI PASCAL Function
0001a95c ;    <LVAR  0x00c 2(w)>
0001a95c ;    <LVAR  0x008 4(rw)>
0001a95c ;    <LVAR -0x004 @ 2(r)>
0001a95c ; --------------------------------------------------------------------------------------
0001a95c					_ReadConfig(where : Long) : Word:
0001a95c 4e 56 ff e6              |NV      |		LINK.W	A6,#0xffe6
0001a960 bf d5                    |        |		CMPA.L	(A5),A7
0001a962 62 06                    |b       |		BHI	0x1a96a
0001a964 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001a968 4e 76                    |Nv      |		TRAPV
0001a96a de fc 00 16              |        |		ADDA.W	#0x16,A7
0001a96e 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
0001a972 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
0001a976 02 91 00 00 01 ff        |        |		ANDI.L	#0x000001ff,(A1)
0001a97c 06 91 80 00 7e 00        |    ~   |		ADDI.L	#0x80007e00,(A1)
0001a982 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0001a984 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
0001a988 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001a98a 52 97                    |R       |		ADDQ.L	#0x1,(A7)
0001a98c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0001a990 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0001a996 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001a99a 3d 6e ff fc 00 0c        |=n      |		MOVE.W	(A6-0x4),(A6+0xc)
0001a9a0 02 6e 00 ff 00 0c        | n      |		ANDI.W	#0x00ff,(A6+0xc)
0001a9a6 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
0001a9aa 4e 5e                    |N^      |		UNLK	A6
0001a9ac 4e 75                    |Nu      |		RTS
0001a9ae ; --------------------------------------------------------------------------------------
0001a9ae ; WriteConfig(what: Word; where : Long)
0001a9ae ; Stack:
0001a9ae ;     A6+0xc      what : Word
0001a9ae ;     A6+0x8      where : Long
0001a9ae ; OMSI PASCAL Function
0001a9ae ;    <LVAR  0x00a 4(rw)>
0001a9ae ;    <LVAR  0x008 2(r)>
0001a9ae ;    <LVAR -0x002 @ 2(w)>
0001a9ae ; --------------------------------------------------------------------------------------
0001a9ae					_WriteConfig(what: Word; where : Long):
0001a9ae 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
0001a9b2 bf d5                    |        |		CMPA.L	(A5),A7
0001a9b4 62 06                    |b       |		BHI	0x1a9bc
0001a9b6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001a9ba 4e 76                    |Nv      |		TRAPV
0001a9bc de fc 00 16              |        |		ADDA.W	#0x16,A7
0001a9c0 48 e7 00 c0              |H       |		MOVEM.L	A1+A0,-(A7)
0001a9c4 43 ee 00 0a              |C       |		LEA.L	(A6+0xa),A1
0001a9c8 3d 6e 00 08 ff fe        |=n      |		MOVE.W	(A6+0x8),(A6-0x2)
0001a9ce 02 91 00 00 01 ff        |        |		ANDI.L	#0x000001ff,(A1)
0001a9d4 06 91 80 00 7e 00        |    ~   |		ADDI.L	#0x80007e00,(A1)
0001a9da 41 ee ff fe              |A       |		LEA.L	(A6-0x2),A0
0001a9de 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001a9e0 52 97                    |R       |		ADDQ.L	#0x1,(A7)
0001a9e2 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0001a9e4 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0001a9e8 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0001a9ee de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001a9f2 48 78 03 d0              |Hx      |		PEA.L	0x3d0
0001a9f6 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
0001a9fc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001a9fe 4c df 03 00              |L       |		MOVEM.L	(A7)+,A0+A1
0001aa02 4e 5e                    |N^      |		UNLK	A6
0001aa04 4e 75                    |Nu      |		RTS
0001aa06 ; --------------------------------------------------------------------------------------
0001aa06 ; ReadClusterNo(VAR a : Long)
0001aa06 ; Stack:
0001aa06 ;     A6+0x8  VAR a : Long
0001aa06 ; OMSI PASCAL Function
0001aa06 ;    <LVAR  0x008 4(r)>
0001aa06 ; --------------------------------------------------------------------------------------
0001aa06					_ReadClusterNo(VAR a : Long):
0001aa06 4e 56 ff de              |NV      |		LINK.W	A6,#0xffde
0001aa0a bf d5                    |        |		CMPA.L	(A5),A7
0001aa0c 62 06                    |b       |		BHI	0x1aa14
0001aa0e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001aa12 4e 76                    |Nv      |		TRAPV
0001aa14 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
0001aa18 48 e7 c1 80              |H       |		MOVEM.L	A0+D7+D1+D0,-(A7)
0001aa1c 72 03                    |r       |		MOVEQ.L	#0x03,D1
0001aa1e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0001aa20 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001aa24 be 81                    |        |		CMP.L	D1,D7
0001aa26 63 02                    |c       |		BLS	0x1aa2a
0001aa28 4e 4f                    |NO      |		TRAP	#15
0001aa2a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0001aa2c 48 78 00 84              |Hx      |		PEA.L	0x84
0001aa30 df 97                    |        |		ADD.L	D7,(A7)
0001aa32 4e ba ff 28              |N  (    |		JSR	_ReadConfig(where : Long) : Word
0001aa36 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001aa38 30 1f                    |0       |		MOVE.W	(A7)+,D0
0001aa3a 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
0001aa3e 11 80 78 00              |  x     |		MOVE.B	D0,(A0+D7.L)
0001aa42 52 87                    |R       |		ADDQ.L	#0x1,D7
0001aa44 be 81                    |        |		CMP.L	D1,D7
0001aa46 6f d8                    |o       |		BLE	0x1aa20
0001aa48 4c df 01 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0
0001aa4c 4e 5e                    |N^      |		UNLK	A6
0001aa4e 4e 75                    |Nu      |		RTS
0001aa50 ; --------------------------------------------------------------------------------------
0001aa50 ; OMSI PASCAL Function
0001aa50 ;    <LVAR  0x008 4(r)>
0001aa50 ; --------------------------------------------------------------------------------------
0001aa50 4e 56 ff ee              |NV      |		LINK.W	A6,#0xffee
0001aa54 bf d5                    |        |		CMPA.L	(A5),A7
0001aa56 62 06                    |b       |		BHI	0x1aa5e
0001aa58 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001aa5c 4e 76                    |Nv      |		TRAPV
0001aa5e de fc 00 12              |        |		ADDA.W	#0x12,A7
0001aa62 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
0001aa66 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001aa6a 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001aa6c 41 f9 00 00 fc 0c        |A       |		LEA.L	0xfc0c,A0
0001aa72 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001aa74 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
0001aa78 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0001aa7e de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001aa82 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
0001aa86 4e 5e                    |N^      |		UNLK	A6
0001aa88 4e 75                    |Nu      |		RTS
0001aa8a ; --------------------------------------------------------------------------------------
0001aa8a ; Read_fc0c() : Word
0001aa8a ; Stack:
0001aa8a ;     A6+0x8  VAR RETURN : Word
0001aa8a ; OMSI PASCAL Function
0001aa8a ;    <LVAR  0x008 4(r)>
0001aa8a ; --------------------------------------------------------------------------------------
0001aa8a					_Read_fc0c() : Word:
0001aa8a 4e 56 ff ee              |NV      |		LINK.W	A6,#0xffee
0001aa8e bf d5                    |        |		CMPA.L	(A5),A7
0001aa90 62 06                    |b       |		BHI	0x1aa98
0001aa92 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001aa96 4e 76                    |Nv      |		TRAPV
0001aa98 de fc 00 12              |        |		ADDA.W	#0x12,A7
0001aa9c 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
0001aaa0 41 f9 00 00 fc 0c        |A       |		LEA.L	0xfc0c,A0
0001aaa6 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001aaa8 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001aaac 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001aaae 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
0001aab2 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0001aab8 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001aabc 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
0001aac0 4e 5e                    |N^      |		UNLK	A6
0001aac2 4e 75                    |Nu      |		RTS
0001aac4 ; --------------------------------------------------------------------------------------
0001aac4 ; Read_fc00() : Byte
0001aac4 ; Stack:
0001aac4 ;     A6+0x8  VAR RETURN : Byte
0001aac4 ; OMSI PASCAL Function
0001aac4 ;    <LVAR  0x008 4(r)>
0001aac4 ; --------------------------------------------------------------------------------------
0001aac4					_Read_fc00() : Byte:
0001aac4 4e 56 ff ee              |NV      |		LINK.W	A6,#0xffee
0001aac8 bf d5                    |        |		CMPA.L	(A5),A7
0001aaca 62 06                    |b       |		BHI	0x1aad2
0001aacc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001aad0 4e 76                    |Nv      |		TRAPV
0001aad2 de fc 00 12              |        |		ADDA.W	#0x12,A7
0001aad6 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
0001aada 41 f9 00 00 fc 00        |A       |		LEA.L	0xfc00,A0
0001aae0 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001aae2 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001aae6 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001aae8 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0001aaec 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0001aaf2 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001aaf6 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
0001aafa 4e 5e                    |N^      |		UNLK	A6
0001aafc 4e 75                    |Nu      |		RTS
0001aafe ; --------------------------------------------------------------------------------------
0001aafe ; FifoInit(void)
0001aafe ; Stack:
0001aafe ; OMSI PASCAL Function
0001aafe ;    <LVAR -0x004 @ 4(r)>
0001aafe ; --------------------------------------------------------------------------------------
0001aafe					_FifoInit(void):
0001aafe 4e 56 ff e6              |NV      |		LINK.W	A6,#0xffe6
0001ab02 bf d5                    |        |		CMPA.L	(A5),A7
0001ab04 62 06                    |b       |		BHI	0x1ab0c
0001ab06 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001ab0a 4e 76                    |Nv      |		TRAPV
0001ab0c de fc 00 16              |        |		ADDA.W	#0x16,A7
0001ab10 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
0001ab14 42 ae ff fc              |B       |		CLR.L	(A6-0x4)
0001ab18 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
0001ab1c 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001ab1e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0001ab22 48 78 f5 00              |Hx      |		PEA.L	0xfffff500
0001ab26 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
0001ab2a 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
0001ab2e 4e b9 00 01 02 3a        |N    :  |		JSR	KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
0001ab34 de fc 00 0e              |        |		ADDA.W	#0xe,A7
0001ab38 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
0001ab3c 4e 5e                    |N^      |		UNLK	A6
0001ab3e 4e 75                    |Nu      |		RTS
0001ab40 ; --------------------------------------------------------------------------------------
0001ab40 ; R1000_Reset_L(void)
0001ab40 ; Stack:
0001ab40 ; OMSI PASCAL Function
0001ab40 ;    <LVAR -0x006 @ 4(rw)>
0001ab40 ;    <LVAR -0x007 1(w)>
0001ab40 ;    <LVAR -0x008 @>
0001ab40 ; --------------------------------------------------------------------------------------
0001ab40					_R1000_Reset_L(void):
0001ab40 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
0001ab44 bf d5                    |        |		CMPA.L	(A5),A7
0001ab46 62 06                    |b       |		BHI	0x1ab4e
0001ab48 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001ab4c 4e 76                    |Nv      |		TRAPV
0001ab4e de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
0001ab52 48 e7 f8 c0              |H       |		MOVEM.L	A1+A0+D4+D3+D2+D1+D0,-(A7)
0001ab56 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
0001ab5a 72 05                    |r       |		MOVEQ.L	#0x05,D1
0001ab5c 74 01                    |t       |		MOVEQ.L	#0x01,D2
0001ab5e 76 04                    |v       |		MOVEQ.L	#0x04,D3
0001ab60 78 0e                    |x       |		MOVEQ.L	#0x0e,D4
0001ab62 48 78 f8 00              |Hx      |		PEA.L	0xfffff800
0001ab66 3f 01                    |?       |		MOVE.W	D1,-(A7)
0001ab68 20 49                    | I      |		MOVEA.L	A1,A0
0001ab6a 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001ab6c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001ab6e 3f 03                    |?       |		MOVE.W	D3,-(A7)
0001ab70 4e b9 00 01 02 3a        |N    :  |		JSR	KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
0001ab76 de c4                    |        |		ADDA.W	D4,A7
0001ab78 20 11                    |        |		MOVE.L	(A1),D0
0001ab7a e0 88                    |        |		LSR.L	#0x8,D0
0001ab7c 02 80 00 00 00 fe        |        |		ANDI.L	#0x000000fe,D0
0001ab82 22 80                    |"       |		MOVE.L	D0,(A1)
0001ab84 20 49                    | I      |		MOVEA.L	A1,A0
0001ab86 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001ab88 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001ab8a 48 78 fe 00              |Hx      |		PEA.L	0xfffffe00
0001ab8e 3f 01                    |?       |		MOVE.W	D1,-(A7)
0001ab90 3f 03                    |?       |		MOVE.W	D3,-(A7)
0001ab92 4e b9 00 01 02 3a        |N    :  |		JSR	KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
0001ab98 de c4                    |        |		ADDA.W	D4,A7
0001ab9a 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0001ab9e 4e ba fe ea              |N       |		JSR	_Read_fc0c() : Word
0001aba2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001aba4 02 2e 00 f7 ff f9        | .      |		ANDI.B	#0xf7,(A6-0x7)
0001abaa 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0001abae 4e ba fe a0              |N       |		JSR	0x1aa50
0001abb2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001abb4 4c df 03 1f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+A0+A1
0001abb8 4e 5e                    |N^      |		UNLK	A6
0001abba 4e 75                    |Nu      |		RTS
0001abbc ; --------------------------------------------------------------------------------------
0001abbc ; R1000_Reset_H(void)
0001abbc ; Stack:
0001abbc ; OMSI PASCAL Function
0001abbc ;    <LVAR -0x006 @ 4(rw)>
0001abbc ;    <LVAR -0x007 1(w)>
0001abbc ;    <LVAR -0x008 @>
0001abbc ; --------------------------------------------------------------------------------------
0001abbc					_R1000_Reset_H(void):
0001abbc 4e 56 ff ca              |NV      |		LINK.W	A6,#0xffca
0001abc0 bf d5                    |        |		CMPA.L	(A5),A7
0001abc2 62 06                    |b       |		BHI	0x1abca
0001abc4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001abc8 4e 76                    |Nv      |		TRAPV
0001abca de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
0001abce 48 e7 f8 c0              |H       |		MOVEM.L	A1+A0+D4+D3+D2+D1+D0,-(A7)
0001abd2 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
0001abd6 72 01                    |r       |		MOVEQ.L	#0x01,D1
0001abd8 74 04                    |t       |		MOVEQ.L	#0x04,D2
0001abda 76 05                    |v       |		MOVEQ.L	#0x05,D3
0001abdc 78 0e                    |x       |		MOVEQ.L	#0x0e,D4
0001abde 48 78 f8 00              |Hx      |		PEA.L	0xfffff800
0001abe2 3f 03                    |?       |		MOVE.W	D3,-(A7)
0001abe4 20 49                    | I      |		MOVEA.L	A1,A0
0001abe6 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001abe8 3f 01                    |?       |		MOVE.W	D1,-(A7)
0001abea 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001abec 4e b9 00 01 02 3a        |N    :  |		JSR	KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
0001abf2 de c4                    |        |		ADDA.W	D4,A7
0001abf4 20 11                    |        |		MOVE.L	(A1),D0
0001abf6 e0 88                    |        |		LSR.L	#0x8,D0
0001abf8 80 81                    |        |		OR.L	D1,D0
0001abfa 22 80                    |"       |		MOVE.L	D0,(A1)
0001abfc 20 49                    | I      |		MOVEA.L	A1,A0
0001abfe 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001ac00 3f 01                    |?       |		MOVE.W	D1,-(A7)
0001ac02 48 78 fe 00              |Hx      |		PEA.L	0xfffffe00
0001ac06 3f 03                    |?       |		MOVE.W	D3,-(A7)
0001ac08 3f 02                    |?       |		MOVE.W	D2,-(A7)
0001ac0a 4e b9 00 01 02 3a        |N    :  |		JSR	KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
0001ac10 de c4                    |        |		ADDA.W	D4,A7
0001ac12 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0001ac16 4e ba fe 72              |N  r    |		JSR	_Read_fc0c() : Word
0001ac1a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001ac1c 85 2e ff f9              | .      |		OR.B	D2,(A6-0x7)
0001ac20 00 2e 00 08 ff f9        | .      |		ORI.B	#0x08,(A6-0x7)
0001ac26 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0001ac2a 4e ba fe 24              |N  $    |		JSR	0x1aa50
0001ac2e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001ac30 4c df 03 1f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+A0+A1
0001ac34 4e 5e                    |N^      |		UNLK	A6
0001ac36 4e 75                    |Nu      |		RTS
0001ac38 ; --------------------------------------------------------------------------------------
0001ac38 ; Or_fc0c_80(void)
0001ac38 ; Stack:
0001ac38 ; OMSI PASCAL Function
0001ac38 ;    <LVAR -0x003 1(w)>
0001ac38 ;    <LVAR -0x004 @>
0001ac38 ; --------------------------------------------------------------------------------------
0001ac38					_Or_fc0c_80(void):
0001ac38 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
0001ac3c bf d5                    |        |		CMPA.L	(A5),A7
0001ac3e 62 06                    |b       |		BHI	0x1ac46
0001ac40 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001ac44 4e 76                    |Nv      |		TRAPV
0001ac46 de fc 00 08              |        |		ADDA.W	#0x8,A7
0001ac4a 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0001ac4e 4e ba fe 3a              |N  :    |		JSR	_Read_fc0c() : Word
0001ac52 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001ac54 00 2e 00 80 ff fd        | .      |		ORI.B	#0x80,(A6-0x3)
0001ac5a 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0001ac5e 4e ba fd f0              |N       |		JSR	0x1aa50
0001ac62 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001ac64 4e 5e                    |N^      |		UNLK	A6
0001ac66 4e 75                    |Nu      |		RTS
0001ac68 ; --------------------------------------------------------------------------------------
0001ac68 ; And_fc0c_7f(void)
0001ac68 ; Stack:
0001ac68 ; OMSI PASCAL Function
0001ac68 ;    <LVAR -0x003 1(w)>
0001ac68 ;    <LVAR -0x004 @>
0001ac68 ; --------------------------------------------------------------------------------------
0001ac68					_And_fc0c_7f(void):
0001ac68 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
0001ac6c bf d5                    |        |		CMPA.L	(A5),A7
0001ac6e 62 06                    |b       |		BHI	0x1ac76
0001ac70 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001ac74 4e 76                    |Nv      |		TRAPV
0001ac76 de fc 00 08              |        |		ADDA.W	#0x8,A7
0001ac7a 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0001ac7e 4e ba fe 0a              |N       |		JSR	_Read_fc0c() : Word
0001ac82 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001ac84 02 2e 00 7f ff fd        | .      |		ANDI.B	#0x7f,(A6-0x3)
0001ac8a 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0001ac8e 4e ba fd c0              |N       |		JSR	0x1aa50
0001ac92 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001ac94 4e 5e                    |N^      |		UNLK	A6
0001ac96 4e 75                    |Nu      |		RTS
0001ac98 ; --------------------------------------------------------------------------------------
0001ac98 ; ReadKeySwitch() : Bool
0001ac98 ; Stack:
0001ac98 ;     A6+0x8  VAR RETURN : Bool
0001ac98 ; OMSI PASCAL Function
0001ac98 ;    <LVAR  0x008 1(rw)>
0001ac98 ;    <LVAR -0x004 @ 4(r)>
0001ac98 ; --------------------------------------------------------------------------------------
0001ac98					_ReadKeySwitch() : Bool:
0001ac98 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
0001ac9c bf d5                    |        |		CMPA.L	(A5),A7
0001ac9e 62 06                    |b       |		BHI	0x1aca6
0001aca0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001aca4 4e 76                    |Nv      |		TRAPV
0001aca6 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
0001acaa 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0001acae 48 78 f8 00              |Hx      |		PEA.L	0xfffff800
0001acb2 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
0001acb6 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
0001acba 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001acbc 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0001acc0 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
0001acc4 4e b9 00 01 02 3a        |N    :  |		JSR	KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
0001acca de fc 00 0e              |        |		ADDA.W	#0xe,A7
0001acce 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
0001acd2 20 2e ff fc              | .      |		MOVE.L	(A6-0x4),D0
0001acd6 02 80 00 00 00 08        |        |		ANDI.L	#0x00000008,D0
0001acdc 67 04                    |g       |		BEQ	0x1ace2
0001acde 52 2e 00 08              |R.      |		ADDQ.B	#0x1,(A6+0x8)
0001ace2 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0001ace6 4e 5e                    |N^      |		UNLK	A6
0001ace8 4e 75                    |Nu      |		RTS
0001acea ; --------------------------------------------------------------------------------------
0001acea ; Update_fc0c(new : Byte)
0001acea ; Stack:
0001acea ;     A6+0x8      new : Byte
0001acea ; OMSI PASCAL Function
0001acea ;    <LVAR  0x008 1(r)>
0001acea ;    <LVAR -0x002 @ 1(w)>
0001acea ; --------------------------------------------------------------------------------------
0001acea					_Update_fc0c(new : Byte):
0001acea 4e 56 ff ea              |NV      |		LINK.W	A6,#0xffea
0001acee bf d5                    |        |		CMPA.L	(A5),A7
0001acf0 62 06                    |b       |		BHI	0x1acf8
0001acf2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001acf6 4e 76                    |Nv      |		TRAPV
0001acf8 de fc 00 14              |        |		ADDA.W	#0x14,A7
0001acfc 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0001ad00 41 ee ff fe              |A       |		LEA.L	(A6-0x2),A0
0001ad04 43 ee 00 08              |C       |		LEA.L	(A6+0x8),A1
0001ad08 48 50                    |HP      |		PEA.L	(A0)
0001ad0a 4e ba fd 7e              |N  ~    |		JSR	_Read_fc0c() : Word
0001ad0e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001ad10 10 11                    |        |		MOVE.B	(A1),D0
0001ad12 02 10 00 f7              |        |		ANDI.B	#0xf7,(A0)
0001ad16 02 00 00 08              |        |		ANDI.B	#0x08,D0
0001ad1a 81 10                    |        |		OR.B	D0,(A0)
0001ad1c 10 11                    |        |		MOVE.B	(A1),D0
0001ad1e 02 10 00 ef              |        |		ANDI.B	#0xef,(A0)
0001ad22 02 00 00 10              |        |		ANDI.B	#0x10,D0
0001ad26 81 10                    |        |		OR.B	D0,(A0)
0001ad28 10 11                    |        |		MOVE.B	(A1),D0
0001ad2a 02 10 00 df              |        |		ANDI.B	#0xdf,(A0)
0001ad2e 02 00 00 20              |        |		ANDI.B	#0x20,D0
0001ad32 81 10                    |        |		OR.B	D0,(A0)
0001ad34 10 11                    |        |		MOVE.B	(A1),D0
0001ad36 02 10 00 bf              |        |		ANDI.B	#0xbf,(A0)
0001ad3a 02 00 00 40              |   @    |		ANDI.B	#0x40,D0
0001ad3e 81 10                    |        |		OR.B	D0,(A0)
0001ad40 10 11                    |        |		MOVE.B	(A1),D0
0001ad42 02 10 00 7f              |        |		ANDI.B	#0x7f,(A0)
0001ad46 02 00 00 80              |        |		ANDI.B	#0x80,D0
0001ad4a 81 10                    |        |		OR.B	D0,(A0)
0001ad4c 48 50                    |HP      |		PEA.L	(A0)
0001ad4e 4e ba fd 00              |N       |		JSR	0x1aa50
0001ad52 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0001ad54 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
0001ad58 4e 5e                    |N^      |		UNLK	A6
0001ad5a 4e 75                    |Nu      |		RTS
0001ad5c ; --------------------------------------------------------------------------------------
0001ad5c ; Set_fc01(a : Byte)
0001ad5c ; Stack:
0001ad5c ;     A6+0x8      a : Byte
0001ad5c ; OMSI PASCAL Function
0001ad5c ;    <LVAR  0x008 @>
0001ad5c ; --------------------------------------------------------------------------------------
0001ad5c					_Set_fc01(a : Byte):
0001ad5c 4e 56 ff ec              |NV      |		LINK.W	A6,#0xffec
0001ad60 bf d5                    |        |		CMPA.L	(A5),A7
0001ad62 62 06                    |b       |		BHI	0x1ad6a
0001ad64 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001ad68 4e 76                    |Nv      |		TRAPV
0001ad6a de fc 00 12              |        |		ADDA.W	#0x12,A7
0001ad6e 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
0001ad72 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
0001ad76 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001ad78 41 f9 00 00 fc 01        |A       |		LEA.L	0xfc01,A0
0001ad7e 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001ad80 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0001ad84 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0001ad8a de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001ad8e 4e b9 00 01 02 40        |N    @  |		JSR	KC20_Estop(void)
0001ad94 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
0001ad98 4e 5e                    |N^      |		UNLK	A6
0001ad9a 4e 75                    |Nu      |		RTS
0001ad9c ; --------------------------------------------------------------------------------------
0001ad9c ; Get_fc01() : Byte
0001ad9c ; Stack:
0001ad9c ;     A6+0x8  VAR RETURN : Byte
0001ad9c ; OMSI PASCAL Function
0001ad9c ;    <LVAR  0x008 4(r)>
0001ad9c ; --------------------------------------------------------------------------------------
0001ad9c					_Get_fc01() : Byte:
0001ad9c 4e 56 ff ee              |NV      |		LINK.W	A6,#0xffee
0001ada0 bf d5                    |        |		CMPA.L	(A5),A7
0001ada2 62 06                    |b       |		BHI	0x1adaa
0001ada4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001ada8 4e 76                    |Nv      |		TRAPV
0001adaa de fc 00 12              |        |		ADDA.W	#0x12,A7
0001adae 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
0001adb2 41 f9 00 00 fc 01        |A       |		LEA.L	0xfc01,A0
0001adb8 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001adba 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
0001adbe 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001adc0 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0001adc4 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0001adca de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001adce 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
0001add2 4e 5e                    |N^      |		UNLK	A6
0001add4 4e 75                    |Nu      |		RTS
0001add6 ; --------------------------------------------------------------------------------------
0001add6 ; Set_fc04_to_01(void)
0001add6 ; Stack:
0001add6 ; OMSI PASCAL Function
0001add6 ;    <LVAR -0x004 @ 1(w)>
0001add6 ; --------------------------------------------------------------------------------------
0001add6					_Set_fc04_to_01(void):
0001add6 4e 56 ff e6              |NV      |		LINK.W	A6,#0xffe6
0001adda bf d5                    |        |		CMPA.L	(A5),A7
0001addc 62 06                    |b       |		BHI	0x1ade4
0001adde 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001ade2 4e 76                    |Nv      |		TRAPV
0001ade4 de fc 00 16              |        |		ADDA.W	#0x16,A7
0001ade8 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0001adec 70 01                    |p       |		MOVEQ.L	#0x01,D0
0001adee 1d 40 ff fc              | @      |		MOVE.B	D0,(A6-0x4)
0001adf2 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
0001adf6 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001adf8 41 f9 00 00 fc 04        |A       |		LEA.L	0xfc04,A0
0001adfe 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001ae00 3f 00                    |?       |		MOVE.W	D0,-(A7)
0001ae02 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0001ae08 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001ae0c 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0001ae10 4e 5e                    |N^      |		UNLK	A6
0001ae12 4e 75                    |Nu      |		RTS
0001ae14 ; --------------------------------------------------------------------------------------
0001ae14 ; Get_fc05() : Byte
0001ae14 ; Stack:
0001ae14 ;     A6+0x8  VAR RETURN : Byte
0001ae14 ; OMSI PASCAL Function
0001ae14 ;    <LVAR  0x008 1(w)>
0001ae14 ;    <LVAR -0x004 @ 1(r)>
0001ae14 ; --------------------------------------------------------------------------------------
0001ae14					_Get_fc05() : Byte:
0001ae14 4e 56 ff ea              |NV      |		LINK.W	A6,#0xffea
0001ae18 bf d5                    |        |		CMPA.L	(A5),A7
0001ae1a 62 06                    |b       |		BHI	0x1ae22
0001ae1c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001ae20 4e 76                    |Nv      |		TRAPV
0001ae22 de fc 00 12              |        |		ADDA.W	#0x12,A7
0001ae26 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
0001ae2a 41 f9 00 00 fc 05        |A       |		LEA.L	0xfc05,A0
0001ae30 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001ae32 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
0001ae36 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001ae38 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0001ae3c 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0001ae42 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001ae46 1d 6e ff fc 00 08        | n      |		MOVE.B	(A6-0x4),(A6+0x8)
0001ae4c 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
0001ae50 4e 5e                    |N^      |		UNLK	A6
0001ae52 4e 75                    |Nu      |		RTS
0001ae54 ; --------------------------------------------------------------------------------------
0001ae54 ; Get_fc02() : Word
0001ae54 ; Stack:
0001ae54 ;     A6+0x8  VAR RETURN : Word
0001ae54 ; OMSI PASCAL Function
0001ae54 ;    <LVAR  0x008 2(w)>
0001ae54 ;    <LVAR -0x004 @ 2(r)>
0001ae54 ; --------------------------------------------------------------------------------------
0001ae54					_Get_fc02() : Word:
0001ae54 4e 56 ff ea              |NV      |		LINK.W	A6,#0xffea
0001ae58 bf d5                    |        |		CMPA.L	(A5),A7
0001ae5a 62 06                    |b       |		BHI	0x1ae62
0001ae5c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001ae60 4e 76                    |Nv      |		TRAPV
0001ae62 de fc 00 12              |        |		ADDA.W	#0x12,A7
0001ae66 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
0001ae6a 41 f9 00 00 fc 02        |A       |		LEA.L	0xfc02,A0
0001ae70 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001ae72 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
0001ae76 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001ae78 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
0001ae7c 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0001ae82 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001ae86 3d 6e ff fc 00 08        |=n      |		MOVE.W	(A6-0x4),(A6+0x8)
0001ae8c 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
0001ae90 4e 5e                    |N^      |		UNLK	A6
0001ae92 4e 75                    |Nu      |		RTS
0001ae94 ; --------------------------------------------------------------------------------------
0001ae94 ; Is_fc07_one() : Bool
0001ae94 ; Stack:
0001ae94 ;     A6+0x8  VAR RETURN : Bool
0001ae94 ; OMSI PASCAL Function
0001ae94 ;    <LVAR  0x008 1(rw)>
0001ae94 ;    <LVAR -0x004 @ 1(r)>
0001ae94 ; --------------------------------------------------------------------------------------
0001ae94					_Is_fc07_one() : Bool:
0001ae94 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
0001ae98 bf d5                    |        |		CMPA.L	(A5),A7
0001ae9a 62 06                    |b       |		BHI	0x1aea2
0001ae9c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001aea0 4e 76                    |Nv      |		TRAPV
0001aea2 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
0001aea6 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
0001aeaa 72 01                    |r       |		MOVEQ.L	#0x01,D1
0001aeac 41 f9 00 00 fc 07        |A       |		LEA.L	0xfc07,A0
0001aeb2 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001aeb4 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
0001aeb8 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001aeba 3f 01                    |?       |		MOVE.W	D1,-(A7)
0001aebc 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0001aec2 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001aec6 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
0001aeca 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
0001aece b0 01                    |        |		CMP.B	D1,D0
0001aed0 66 04                    |f       |		BNE	0x1aed6
0001aed2 52 2e 00 08              |R.      |		ADDQ.B	#0x1,(A6+0x8)
0001aed6 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
0001aeda 4e 5e                    |N^      |		UNLK	A6
0001aedc 4e 75                    |Nu      |		RTS
0001aede ; --------------------------------------------------------------------------------------
0001aede ; Is_fc07_two() : Bool
0001aede ; Stack:
0001aede ;     A6+0x8  VAR RETURN : Bool
0001aede ; OMSI PASCAL Function
0001aede ;    <LVAR  0x008 1(rw)>
0001aede ;    <LVAR -0x004 @ 1(r)>
0001aede ; --------------------------------------------------------------------------------------
0001aede					_Is_fc07_two() : Bool:
0001aede 4e 56 ff e6              |NV      |		LINK.W	A6,#0xffe6
0001aee2 bf d5                    |        |		CMPA.L	(A5),A7
0001aee4 62 06                    |b       |		BHI	0x1aeec
0001aee6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001aeea 4e 76                    |Nv      |		TRAPV
0001aeec de fc 00 16              |        |		ADDA.W	#0x16,A7
0001aef0 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0001aef4 41 f9 00 00 fc 07        |A       |		LEA.L	0xfc07,A0
0001aefa 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001aefc 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
0001af00 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001af02 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0001af06 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0001af0c de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001af10 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
0001af14 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
0001af18 0c 00 00 02              |        |		CMPI.B	#0x02,D0
0001af1c 66 04                    |f       |		BNE	0x1af22
0001af1e 52 2e 00 08              |R.      |		ADDQ.B	#0x1,(A6+0x8)
0001af22 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0001af26 4e 5e                    |N^      |		UNLK	A6
0001af28 4e 75                    |Nu      |		RTS
0001af2a ; --------------------------------------------------------------------------------------
0001af2a ; Is_fc07_three() : Bool
0001af2a ; Stack:
0001af2a ;     A6+0x8  VAR RETURN : Bool
0001af2a ; OMSI PASCAL Function
0001af2a ;    <LVAR  0x008 1(rw)>
0001af2a ;    <LVAR -0x004 @ 1(r)>
0001af2a ; --------------------------------------------------------------------------------------
0001af2a					_Is_fc07_three() : Bool:
0001af2a 4e 56 ff e6              |NV      |		LINK.W	A6,#0xffe6
0001af2e bf d5                    |        |		CMPA.L	(A5),A7
0001af30 62 06                    |b       |		BHI	0x1af38
0001af32 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001af36 4e 76                    |Nv      |		TRAPV
0001af38 de fc 00 16              |        |		ADDA.W	#0x16,A7
0001af3c 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0001af40 41 f9 00 00 fc 07        |A       |		LEA.L	0xfc07,A0
0001af46 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001af48 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
0001af4c 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001af4e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0001af52 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0001af58 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001af5c 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
0001af60 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
0001af64 0c 00 00 03              |        |		CMPI.B	#0x03,D0
0001af68 66 04                    |f       |		BNE	0x1af6e
0001af6a 52 2e 00 08              |R.      |		ADDQ.B	#0x1,(A6+0x8)
0001af6e 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0001af72 4e 5e                    |N^      |		UNLK	A6
0001af74 4e 75                    |Nu      |		RTS
0001af76 ; --------------------------------------------------------------------------------------
0001af76 ; Is_fc07_four() : Bool
0001af76 ; Stack:
0001af76 ;     A6+0x8  VAR RETURN : Bool
0001af76 ; OMSI PASCAL Function
0001af76 ;    <LVAR  0x008 1(rw)>
0001af76 ;    <LVAR -0x004 @ 1(r)>
0001af76 ; --------------------------------------------------------------------------------------
0001af76					_Is_fc07_four() : Bool:
0001af76 4e 56 ff e6              |NV      |		LINK.W	A6,#0xffe6
0001af7a bf d5                    |        |		CMPA.L	(A5),A7
0001af7c 62 06                    |b       |		BHI	0x1af84
0001af7e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001af82 4e 76                    |Nv      |		TRAPV
0001af84 de fc 00 16              |        |		ADDA.W	#0x16,A7
0001af88 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0001af8c 41 f9 00 00 fc 07        |A       |		LEA.L	0xfc07,A0
0001af92 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001af94 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
0001af98 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001af9a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0001af9e 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0001afa4 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001afa8 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
0001afac 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
0001afb0 0c 00 00 04              |        |		CMPI.B	#0x04,D0
0001afb4 66 04                    |f       |		BNE	0x1afba
0001afb6 52 2e 00 08              |R.      |		ADDQ.B	#0x1,(A6+0x8)
0001afba 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0001afbe 4e 5e                    |N^      |		UNLK	A6
0001afc0 4e 75                    |Nu      |		RTS
0001afc2 ; --------------------------------------------------------------------------------------
0001afc2 ; Is_fc07_one_or_three() : Bool
0001afc2 ; Stack:
0001afc2 ;     A6+0x8  VAR RETURN : Bool
0001afc2 ; OMSI PASCAL Function
0001afc2 ;    <LVAR  0x008 1(rw)>
0001afc2 ;    <LVAR -0x004 @ 1(r)>
0001afc2 ; --------------------------------------------------------------------------------------
0001afc2					_Is_fc07_one_or_three() : Bool:
0001afc2 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
0001afc6 bf d5                    |        |		CMPA.L	(A5),A7
0001afc8 62 06                    |b       |		BHI	0x1afd0
0001afca 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001afce 4e 76                    |Nv      |		TRAPV
0001afd0 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
0001afd4 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
0001afd8 72 01                    |r       |		MOVEQ.L	#0x01,D1
0001afda 41 f9 00 00 fc 07        |A       |		LEA.L	0xfc07,A0
0001afe0 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001afe2 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
0001afe6 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001afe8 3f 01                    |?       |		MOVE.W	D1,-(A7)
0001afea 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0001aff0 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001aff4 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
0001aff8 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
0001affc b0 01                    |        |		CMP.B	D1,D0
0001affe 67 06                    |g       |		BEQ	0x1b006
0001b000 0c 00 00 03              |        |		CMPI.B	#0x03,D0
0001b004 66 04                    |f       |		BNE	0x1b00a
0001b006 52 2e 00 08              |R.      |		ADDQ.B	#0x1,(A6+0x8)
0001b00a 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
0001b00e 4e 5e                    |N^      |		UNLK	A6
0001b010 4e 75                    |Nu      |		RTS
0001b012 ; --------------------------------------------------------------------------------------
0001b012 ; Is_fc07_two_or_four() : Bool
0001b012 ; Stack:
0001b012 ;     A6+0x8  VAR RETURN : Bool
0001b012 ; OMSI PASCAL Function
0001b012 ;    <LVAR  0x008 1(rw)>
0001b012 ;    <LVAR -0x004 @ 1(r)>
0001b012 ; --------------------------------------------------------------------------------------
0001b012					_Is_fc07_two_or_four() : Bool:
0001b012 4e 56 ff e6              |NV      |		LINK.W	A6,#0xffe6
0001b016 bf d5                    |        |		CMPA.L	(A5),A7
0001b018 62 06                    |b       |		BHI	0x1b020
0001b01a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0001b01e 4e 76                    |Nv      |		TRAPV
0001b020 de fc 00 16              |        |		ADDA.W	#0x16,A7
0001b024 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0001b028 41 f9 00 00 fc 07        |A       |		LEA.L	0xfc07,A0
0001b02e 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001b030 41 ee ff fc              |A       |		LEA.L	(A6-0x4),A0
0001b034 2f 08                    |/       |		MOVE.L	A0,-(A7)
0001b036 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0001b03a 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0001b040 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0001b044 42 2e 00 08              |B.      |		CLR.B	(A6+0x8)
0001b048 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
0001b04c 0c 00 00 02              |        |		CMPI.B	#0x02,D0
0001b050 67 06                    |g       |		BEQ	0x1b058
0001b052 0c 00 00 04              |        |		CMPI.B	#0x04,D0
0001b056 66 04                    |f       |		BNE	0x1b05c
0001b058 52 2e 00 08              |R.      |		ADDQ.B	#0x1,(A6+0x8)
0001b05c 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0001b060 4e 5e                    |N^      |		UNLK	A6
0001b062 4e 75                    |Nu      |		RTS