|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 45568 (0xb200)
Types: M200
Notes: M200_FS
Names: »FS_0.M200«, »FS_1.M200«, »FS_2.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »FS_0.M200«
└─ ⟦this⟧ »FS_0.M200«
└─ ⟦this⟧ »FS_1.M200«
└─ ⟦this⟧ »FS_2.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »FS_1.M200«
└─ ⟦this⟧ »FS_2.M200«
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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_machine_type_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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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_PortWriteString(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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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_PortWriteString(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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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_PortWriteString(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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 1ad5c
_EmergencyStop(boot_reason_code : 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
@ 1ad9c
_Get_BootReasonCode() : 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
@ 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
@ 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
@ 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
@ 1ae94
_Is_machine_type_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
@ 1aede
_Is_machine_type_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
@ 1af2a
_Is_machine_type_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
@ 1af76
_Is_machine_type_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
@ 1afc2
_Is_machine_type_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
@ 1b012
_Is_machine_type_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
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_PortWriteString(port : Word ; str : String)
0001020a ; Stack:
0001020a ; A6+0xc port : Word
0001020a ; A6+0x8 str : String
0001020a ; --------------------------------------------------------------------------------------
0001020a KC05_PortWriteString(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 ; EmergencyStop(boot_reason_code : Byte)
000105da ; Stack:
000105da ; A6+0x8 boot_reason_code : Byte
000105da ; --------------------------------------------------------------------------------------
000105da EmergencyStop(boot_reason_code : Byte):
000105da 4e f9 00 01 ad 5c |N \ | JMP _EmergencyStop(boot_reason_code : Byte)
000105e0 ; --------------------------------------------------------------------------------------
000105e0 ; Get_BootReasonCode() : Byte
000105e0 ; Stack:
000105e0 ; A6+0x8 VAR RETURN : Byte
000105e0 ; --------------------------------------------------------------------------------------
000105e0 Get_BootReasonCode() : Byte:
000105e0 4e f9 00 01 ad 9c |N | JMP _Get_BootReasonCode() : 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_machine_type_one() : Bool
000105f8 ; Stack:
000105f8 ; A6+0x8 VAR RETURN : Bool
000105f8 ; --------------------------------------------------------------------------------------
000105f8 Is_machine_type_one() : Bool:
000105f8 4e f9 00 01 ae 94 |N | JMP _Is_machine_type_one() : Bool
000105fe ; --------------------------------------------------------------------------------------
000105fe ; Is_machine_type_two() : Bool
000105fe ; Stack:
000105fe ; A6+0x8 VAR RETURN : Bool
000105fe ; --------------------------------------------------------------------------------------
000105fe Is_machine_type_two() : Bool:
000105fe 4e f9 00 01 ae de |N | JMP _Is_machine_type_two() : Bool
00010604 ; --------------------------------------------------------------------------------------
00010604 ; Is_machine_type_three() : Bool
00010604 ; Stack:
00010604 ; A6+0x8 VAR RETURN : Bool
00010604 ; --------------------------------------------------------------------------------------
00010604 Is_machine_type_three() : Bool:
00010604 4e f9 00 01 af 2a |N * | JMP _Is_machine_type_three() : Bool
0001060a ; --------------------------------------------------------------------------------------
0001060a ; Is_machine_type_four() : Bool
0001060a ; Stack:
0001060a ; A6+0x8 VAR RETURN : Bool
0001060a ; --------------------------------------------------------------------------------------
0001060a Is_machine_type_four() : Bool:
0001060a 4e f9 00 01 af 76 |N v | JMP _Is_machine_type_four() : Bool
00010610 ; --------------------------------------------------------------------------------------
00010610 ; Is_machine_type_one_or_three() : Bool
00010610 ; Stack:
00010610 ; A6+0x8 VAR RETURN : Bool
00010610 ; --------------------------------------------------------------------------------------
00010610 Is_machine_type_one_or_three() : Bool:
00010610 4e f9 00 01 af c2 |N | JMP _Is_machine_type_one_or_three() : Bool
00010616 ; --------------------------------------------------------------------------------------
00010616 ; Is_machine_type_two_or_four() : Bool
00010616 ; Stack:
00010616 ; A6+0x8 VAR RETURN : Bool
00010616 ; --------------------------------------------------------------------------------------
00010616 Is_machine_type_two_or_four() : Bool:
00010616 4e f9 00 01 b0 12 |N | JMP _Is_machine_type_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_machine_type_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_PortWriteString(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_PortWriteString(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_PortWriteString(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 ; EmergencyStop(boot_reason_code : Byte)
0001ad5c ; Stack:
0001ad5c ; A6+0x8 boot_reason_code : Byte
0001ad5c ; OMSI PASCAL Function
0001ad5c ; <LVAR 0x008 @>
0001ad5c ; --------------------------------------------------------------------------------------
0001ad5c _EmergencyStop(boot_reason_code : 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_BootReasonCode() : Byte
0001ad9c ; Stack:
0001ad9c ; A6+0x8 VAR RETURN : Byte
0001ad9c ; OMSI PASCAL Function
0001ad9c ; <LVAR 0x008 4(r)>
0001ad9c ; --------------------------------------------------------------------------------------
0001ad9c _Get_BootReasonCode() : 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_machine_type_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_machine_type_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_machine_type_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_machine_type_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_machine_type_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_machine_type_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_machine_type_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_machine_type_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_machine_type_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_machine_type_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_machine_type_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_machine_type_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