|
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: 33280 (0x8200)
Types: M200
Notes: @(#)DISK_MISC,1.00,92/03/26,11:46:00, M200_PROGRAM
Names: »DISK_MISC.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »DISK_MISC.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »DISK_MISC.M200«
@ 20c8c
<LVAR 0x008 4(r)>
<POP 20c8c-20cee Body>
<POP 20c8c-20c9e Prologue> Σ0 ↓
<POP 20c9e-20cea Naked> Σ0 ↓
<Const 0x20c9e 0x1312c.4> Δ-4 {[##78124]}
<Call 0x20ca4 0x10224> {[##78124]}
KC12_Sleep(dur: Long)
<POP 20caa-20cac StackAdj> Δ+4 {}
<Call 0x20cac 0x10398> {}
FSCALL_10398
<Blob 0x20cb2 [4] @> Δ-4 {[«4""»]}
<Blob 0x20cb6 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Const 0x20cba 0x2.2> Δ-2 {[«4""»]|[«4""»]|[#2]}
<POP 20cbe-20cc0 StackAdj> Δ-8 {[«4""»]|[«4""»]|[#2]|[-8-]}
<Lit 0x20cc0 8> {[«4""»]|[«4""»]|[#2]|[-4-]|[$$ _]}
<POP 20cd2-20cd4 StackAdj> Δ-4 {[«4""»]|[«4""»]|[#2]|[-4-]|[$$ _]|[-4-]}
<MI 20cd4 MOVE.L (A6+0x8),(A7)> {[«4""»]|[«4""»]|[#2]|[-4-]|[$$ _]|[4, '(A6+0x8)']}
<Call 0x20cd8 0x102d0> {[«4""»]|[«4""»]|[#2]|[-4-]|[$$ _]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 20cde-20ce0 StackAdj> Δ+8 {[«4""»]|[«4""»]|[#2]|[-4-]}
<Call 0x20ce0 0x103b8> {[«4""»]|[«4""»]|[#2]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20ce6-20cea StackAdj> Δ+14 {}
<POP 20cea-20cee Epilogue> Σ0
@ 20cee
<LVAR 0x016 4(r)>
<LVAR 0x012 @ 4(r)>
<LVAR 0x010 1(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20cee-20d4e Body>
<POP 20cee-20d04 Prologue> Σ0 ↓
<POP 20d04-20d36 Naked> Σ0 ↓ →0x20d46
<MI 20d04 MOVEA.L (A6+0x8),A0> {}
<MI 20d08 MOVEA.L (A6+0xc),A1> {}
<MI 20d0c MOVE.L (A6+0x16),-(A7)> Δ-4 {[4, '(A6+0x16)']}
<Const 0x20d10 0x0.4> Δ-4 {[4, '(A6+0x16)']|[##0]}
<MI 20d14 MOVE.L (A6+0x12),-(A7)> Δ-4 {[4, '(A6+0x16)']|[##0]|[4, '(A6+0x12)']}
<MI 20d18 PEA.L (A0)> Δ-4 {[4, '(A6+0x16)']|[##0]|[4, '(A6+0x12)']|[4, '^(A0)']}
<MI 20d1a PEA.L (A1)> Δ-4 {[4, '(A6+0x16)']|[##0]|[4, '(A6+0x12)']|[4, '^(A0)']|[4, '^(A1)']}
<Call 0x20d1c 0x278fc> {[4, '(A6+0x16)']|[##0]|[4, '(A6+0x12)']|[4, '^(A0)']|[4, '^(A1)']}
<POP 20d22-20d26 StackAdj> Δ+20 {}
<Pointer.fp 0x20d26 <LVAR 0x012 @ 4(r)>> Δ-4 {[@@18]}
<Call 0x20d2a 0x102bc> {[@@18]}
FreeString(VAR a : String)
<POP 20d30-20d32 StackAdj> Δ+4 {}
<MI 20d32 TST.B (A1)> {}
<MI 20d34 BEQ 0x20d46> {}
<POP 20d36-20d3c Naked> Σ0 ↓ →0x20d46
<MI 20d36 TST.B (A6+0x10)> {}
<MI 20d3a BNE 0x20d46> {}
<POP 20d3c-20d46 Naked> Σ0 ↓
<MI 20d3c PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x20d3e 0x102bc> {[4, '^(A0)']}
FreeString(VAR a : String)
<POP 20d44-20d46 StackAdj> Δ+4 {}
<POP 20d46-20d4e Epilogue> Σ0 ←0x20d04 ←0x20d36
@ 20d4e
<LVAR 0x008 4(r)>
<POP 20d4e-20dde Body>
<POP 20d4e-20d64 Prologue> Σ0 ↓
<POP 20d64-20d6c RegCacheLoad> Σ0 ↓
<POP 20d6c-20d72 Naked> Σ0 ↓ →0x20d84
<MI 20d6c MOVEA.L (A4+0x4),A0> {}
<MI 20d6e TST.W (A0)> {}
<MI 20d70 BNE 0x20d84> {}
<POP 20d72-20d84 Naked> Σ0 →0x20dd6
<POP 20d72-20d74 StackAdj> Δ-4 {[-4-]}
<MI 20d74 MOVE.L (A4+0x4),-(A7)> Δ-4 {[-4-]|[4, '(A4+0x4)']}
<MI 20d76 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A4+0x4)']|[4, '(A6+0x8)']}
<Call 0x20d78 0x102d0> {[-4-]|[4, '(A4+0x4)']|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 20d7e-20d80 StackAdj> Δ+8 {[-4-]}
<MI 20d80 MOVE.L (A7)+,(A4+0x4)> Δ+4 {}
<MI 20d82 BRA 0x20dd6> {}
<POP 20d84-20d9a Naked> Σ0 ↓ →0x20dca ←0x20d6c
<MI 20d84 MOVE.W (A0),D0> {}
<MI 20d86 EXTW.L D0> {}
<MI 20d88 ADDQ.L #0x2,D0> {}
<MI 20d8a MOVEA.L (A6+0x8),A0> {}
<MI 20d8c MOVE.W (A0),D1> {}
<MI 20d8e EXTW.L D1> {}
<MI 20d90 ADD.L D0,D1> {}
<MI 20d92 CMPI.L #0x00000050,D1> {}
<MI 20d98 BGT 0x20dca> {}
<POP 20d9a-20dca Naked> Σ0 →0x20dd6
<Blob 0x20d9a [2] @> Δ-2 {[«2""»]}
<POP 20d9e-20da0 StackAdj> Δ-4 {[«2""»]|[-4-]}
<MI 20da0 MOVE.L (A4+0x4),-(A7)> Δ-4 {[«2""»]|[-4-]|[4, '(A4+0x4)']}
<POP 20da2-20da4 StackAdj> Δ-4 {[«2""»]|[-4-]|[4, '(A4+0x4)']|[-4-]}
<Lit 0x20da4 2> {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]}
<POP 20db6-20db8 StackAdj> Δ-4 {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]|[-4-]}
<MI 20db8 MOVE.L (A6+0x8),(A7)> {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]|[4, '(A6+0x8)']}
<Call 0x20dba 0x102d4> {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]|[4, '(A6+0x8)']}
StringCat3(a, b, c : String) : String
<POP 20dc0-20dc4 StackAdj> Δ+12 {[«2""»]|[-4-]}
<MI 20dc4 MOVE.L (A7)+,(A4+0x4)> Δ+4 {[«2""»]}
<POP 20dc6-20dc8 StackAdj> Δ+2 {}
<MI 20dc8 BRA 0x20dd6> {}
<POP 20dca-20dd6 Naked> Σ0 ↓ ←0x20d84
<MI 20dca MOVE.L (A4+0x4),-(A7)> Δ-4 {[4, '(A4+0x4)']}
<Call 0x20dcc 0x103e0> {[4, '(A4+0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 20dd2-20dd4 StackAdj> Δ+4 {}
<MI 20dd4 MOVE.L (A6+0x8),(A4+0x4)> {}
<POP 20dd6-20dde Epilogue> Σ0 ←0x20d72 ←0x20d9a
@ 20dde
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @>
<POP 20dde-2175c Body>
<POP 20dde-20df4 Prologue> Σ0 ↓
<POP 20df4-20e06 RegCacheLoad> Σ0 ↓
<POP 20e06-20e08 Naked> Σ0 ↓
<MI 20e06 MOVEQ.L #0x00,D7> {}
<POP 20e08-20e8e Naked> Σ0 ↓ →0x20e08 ←0x20e08
<POP 0x20e08 LimitCheck 0x0 ≤ D7 ≤ 0x8> {}
<MI 20e12 MOVE.L D7,D4> {}
<MI 20e14 MOVEQ.L #0x05,D3> {}
<Call 0x20e16 0x1028c> {}
?muls_d3_d4
<MI 20e1c LEA.L 0x20bde,A0> {}
<Blob 0x20e20 [6] (A0+D4.L)> Δ-6 {[«6»]}
<POP 20e30-20e32 StackAdj> Δ-8 {[«6»]|[-8-]}
<Lit 0x20e32> {[«6»]|[-4-]|[$$…]}
<Pointer.sp 0x20e32 8> Δ-4
<Const 0x20e36 0x1.2> Δ-2
<Const 0x20e38 0x5.2> Δ-2
<Call 0x20e3c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20e3e-20e40 StackAdj> Δ+8
<POP 20e3e-20e40 StackAdj> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]}
<POP 0x20e40 LimitCheck 0x0 ≤ D7 ≤ 0xa> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20e4a MOVE.L D7,D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20e4c ASL.L #0x1,D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20e4e LEA.L 0x28196,A0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20e54 LEA.L (A0+D0.L),A0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20e58 ADDA.L #0x13038,A0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20e5e CLR.L D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20e60 MOVE.W (A0),D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20e62 MOVE.L D0,-(A7)> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D0']}
<Const 0x20e64 0x4.4> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D0']|[##4]}
<Call 0x20e68 0x102e8> {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D0']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 20e6e-20e70 StackAdj> Δ+8 {[«6»]|[-4-]|[$$…]|[-4-]}
<Call 0x20e70 0x102d0> {[«6»]|[-4-]|[$$…]|[-4-]}
StringCat2(a, b : String) : String
<POP 20e76-20e78 StackAdj> Δ+8 {[«6»]|[-4-]}
<Call 0x20e78 0x103d8> {[«6»]|[-4-]}
WriteConsoleString(str : String)
<POP 20e7e-20e82 StackAdj> Δ+10 {}
<MI 20e82 ADDQ.L #0x1,D7> {}
<MI 20e84 CMPI.L #0x00000008,D7> {}
<MI 20e8a BLE 0x20e08> {}
<POP 20e8e-20e9c Naked> Σ0 ↓ →0x20ea4
<Call 0x20e8e 0x103dc> {}
WriteConsoleCrLf(void)
<MI 20e94 MOVE.B (A6+0x8),D0> {}
<MI 20e98 CMP.B #0x01,D0> {}
<MI 20e9a BEQ 0x20ea4> {}
<POP 20e9c-20ea4 Naked> Σ0 ↓ →0x21754
<MI 20e9c CMPI.B #0x02,D0> {}
<MI 20ea0 BNE 0x21754> {}
<POP 20ea4-20ebc Naked> Σ0 ↓ →0x20ee6 ←0x20e8e
<Pointer.fp 0x20ea4 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x20ea8 0x102b8> {[@@-6]}
NewString(VAR a : String)
<POP 20eae-20eb0 StackAdj> Δ+4 {}
<MI 20eb0 MOVE.W 0x3b1ce,D0> {}
<MI 20eb6 ANDI.W #0x8000,D0> {}
<MI 20eba BEQ 0x20ee6> {}
<POP 20ebc-20ee6 Naked> Σ0 ↓
<Blob 0x20ebc [18] @> Δ-18 {[«18""»]}
<POP 20ecc-20ece StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20ece 17> {[«18""»]|[$$Special condition]}
<MI 20edc LEA.L (A6-0xa),A4> {[«18""»]|[$$Special condition]}
<Call 0x20ede 0x20d4e> {[«18""»]|[$$Special condition]}
<POP 20ee2-20ee6 StackAdj> Δ+22 {}
<POP 20ee6-20ef2 Naked> Σ0 ↓ →0x20f16 ←0x20ea4
<MI 20ee6 MOVE.W 0x3b1ce,D0> {}
<MI 20eec ANDI.W #0x4000,D0> {}
<MI 20ef0 BEQ 0x20f16> {}
<POP 20ef2-20f16 Naked> Σ0 ↓
<Blob 0x20ef2 [14] @> Δ-14 {[«14""»]}
<POP 20efe-20f00 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20f00 14> {[«14""»]|[$$Transfer error]}
<MI 20f0e LEA.L (A6-0xa),A4> {[«14""»]|[$$Transfer error]}
<Call 0x20f10 0x20d4e> {[«14""»]|[$$Transfer error]}
<POP 20f14-20f16 StackAdj> Δ+18 {}
<POP 20f16-20f22 Naked> Σ0 ↓ →0x20f4e ←0x20ee6
<MI 20f16 MOVE.W 0x3b1d0,D0> {}
<MI 20f1c ANDI.W #0x8000,D0> {}
<MI 20f20 BEQ 0x20f4e> {}
<POP 20f22-20f4e Naked> Σ0 ↓
<Blob 0x20f22 [10] @> Δ-10 {[«10""»]}
<POP 20f34-20f36 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x20f36 9> {[«10""»]|[$$Data late]}
<MI 20f44 LEA.L (A6-0xa),A4> {[«10""»]|[$$Data late]}
<Call 0x20f46 0x20d4e> {[«10""»]|[$$Data late]}
<POP 20f4a-20f4e StackAdj> Δ+14 {}
<POP 20f4e-20f5a Naked> Σ0 ↓ →0x20f84 ←0x20f16
<MI 20f4e MOVE.W 0x3b1d0,D0> {}
<MI 20f54 ANDI.W #0x4000,D0> {}
<MI 20f58 BEQ 0x20f84> {}
<POP 20f5a-20f84 Naked> Σ0 ↓
<Blob 0x20f5a [18] @> Δ-18 {[«18""»]}
<POP 20f6a-20f6c StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20f6c 17> {[«18""»]|[$$Write check error]}
<MI 20f7a LEA.L (A6-0xa),A4> {[«18""»]|[$$Write check error]}
<Call 0x20f7c 0x20d4e> {[«18""»]|[$$Write check error]}
<POP 20f80-20f84 StackAdj> Δ+22 {}
<POP 20f84-20f90 Naked> Σ0 ↓ →0x20fba ←0x20f4e
<MI 20f84 MOVE.W 0x3b1d0,D0> {}
<MI 20f8a ANDI.W #0x2000,D0> {}
<MI 20f8e BEQ 0x20fba> {}
<POP 20f90-20fba Naked> Σ0 ↓
<Blob 0x20f90 [20] @> Δ-20 {[«20""»]}
<POP 20fa0-20fa2 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x20fa2 19> {[«20""»]|[$$UNIBUS parity error]}
<MI 20fb0 LEA.L (A6-0xa),A4> {[«20""»]|[$$UNIBUS parity error]}
<Call 0x20fb2 0x20d4e> {[«20""»]|[$$UNIBUS parity error]}
<POP 20fb6-20fba StackAdj> Δ+24 {}
<POP 20fba-20fc6 Naked> Σ0 ↓ →0x20fea ←0x20f84
<MI 20fba MOVE.W 0x3b1d0,D0> {}
<MI 20fc0 ANDI.W #0x1000,D0> {}
<MI 20fc4 BEQ 0x20fea> {}
<POP 20fc6-20fea Naked> Σ0 ↓
<Blob 0x20fc6 [18] @> Δ-18 {[«18""»]}
<POP 20fd2-20fd4 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20fd4 18> {[«18""»]|[$$Non-existent drive]}
<MI 20fe0 LEA.L (A6-0xa),A4> {[«18""»]|[$$Non-existent drive]}
<Call 0x20fe2 0x20d4e> {[«18""»]|[$$Non-existent drive]}
<POP 20fe6-20fea StackAdj> Δ+22 {}
<POP 20fea-20ff6 Naked> Σ0 ↓ →0x21020 ←0x20fba
<MI 20fea MOVE.W 0x3b1d0,D0> {}
<MI 20ff0 ANDI.W #0x0800,D0> {}
<MI 20ff4 BEQ 0x21020> {}
<POP 20ff6-21020 Naked> Σ0 ↓
<Blob 0x20ff6 [20] @> Δ-20 {[«20""»]}
<POP 21006-21008 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21008 19> {[«20""»]|[$$Non-existent memory]}
<MI 21016 LEA.L (A6-0xa),A4> {[«20""»]|[$$Non-existent memory]}
<Call 0x21018 0x20d4e> {[«20""»]|[$$Non-existent memory]}
<POP 2101c-21020 StackAdj> Δ+24 {}
<POP 21020-2102c Naked> Σ0 ↓ →0x21056 ←0x20fea
<MI 21020 MOVE.W 0x3b1d0,D0> {}
<MI 21026 ANDI.W #0x0400,D0> {}
<MI 2102a BEQ 0x21056> {}
<POP 2102c-21056 Naked> Σ0 ↓
<Blob 0x2102c [14] @> Δ-14 {[«14""»]}
<POP 2103e-21040 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21040 13> {[«14""»]|[$$Program error]}
<MI 2104e LEA.L (A6-0xa),A4> {[«14""»]|[$$Program error]}
<Call 0x21050 0x20d4e> {[«14""»]|[$$Program error]}
<POP 21054-21056 StackAdj> Δ+18 {}
<POP 21056-21062 Naked> Σ0 ↓ →0x21086 ←0x21020
<MI 21056 MOVE.W 0x3b1d0,D0> {}
<MI 2105c ANDI.W #0x0200,D0> {}
<MI 21060 BEQ 0x21086> {}
<POP 21062-21086 Naked> Σ0 ↓
<Blob 0x21062 [14] @> Δ-14 {[«14""»]}
<POP 2106e-21070 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21070 14> {[«14""»]|[$$Mixed transfer]}
<MI 2107e LEA.L (A6-0xa),A4> {[«14""»]|[$$Mixed transfer]}
<Call 0x21080 0x20d4e> {[«14""»]|[$$Mixed transfer]}
<POP 21084-21086 StackAdj> Δ+18 {}
<POP 21086-21092 Naked> Σ0 ↓ →0x210ba ←0x21056
<MI 21086 MOVE.W 0x3b1d0,D0> {}
<MI 2108c ANDI.W #0x0040,D0> {}
<MI 21090 BNE 0x210ba> {}
<POP 21092-210ba Naked> Σ0 ↓
<Blob 0x21092 [16] @> Δ-16 {[«16""»]}
<POP 210a2-210a4 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x210a4 15> {[«16""»]|[$$Input not ready]}
<MI 210b2 LEA.L (A6-0xa),A4> {[«16""»]|[$$Input not ready]}
<Call 0x210b4 0x20d4e> {[«16""»]|[$$Input not ready]}
<POP 210b8-210ba StackAdj> Δ+20 {}
<POP 210ba-210c6 Naked> Σ0 ↓ →0x210f0 ←0x21086
<MI 210ba MOVE.W 0x3b1d0,D0> {}
<MI 210c0 ANDI.W #0x0008,D0> {}
<MI 210c4 BEQ 0x210f0> {}
<POP 210c6-210f0 Naked> Σ0 ↓
<Blob 0x210c6 [20] @> Δ-20 {[«20""»]}
<POP 210d6-210d8 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x210d8 19> {[«20""»]|[$$Bus address inhibit]}
<MI 210e6 LEA.L (A6-0xa),A4> {[«20""»]|[$$Bus address inhibit]}
<Call 0x210e8 0x20d4e> {[«20""»]|[$$Bus address inhibit]}
<POP 210ec-210f0 StackAdj> Δ+24 {}
<POP 210f0-210fc Naked> Σ0 ↓ →0x21122 ←0x210ba
<MI 210f0 MOVE.W 0x3b1d2,D0> {}
<MI 210f6 ANDI.W #0x8000,D0> {}
<MI 210fa BEQ 0x21122> {}
<POP 210fc-21122 Naked> Σ0 ↓
<Blob 0x210fc [4] @> Δ-4 {[«4""»]}
<Blob 0x21100 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21104 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21108 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2110c-2110e StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2110e 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Attention Active]}
<MI 2111a LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Attention Active]}
<Call 0x2111c 0x20d4e> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Attention Active]}
<POP 21120-21122 StackAdj> Δ+20 {}
<POP 21122-2112e Naked> Σ0 ↓ →0x21158 ←0x210f0
<MI 21122 MOVE.W 0x3b1d2,D0> {}
<MI 21128 ANDI.W #0x4000,D0> {}
<MI 2112c BEQ 0x21158> {}
<POP 2112e-21158 Naked> Σ0 ↓
<Blob 0x2112e [6] @> Δ-6 {[«6""»]}
<POP 2113e-21140 StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x21140 5> {[«6""»]|[$$Error]}
<MI 2114e LEA.L (A6-0xa),A4> {[«6""»]|[$$Error]}
<Call 0x21150 0x20d4e> {[«6""»]|[$$Error]}
<POP 21154-21158 StackAdj> Δ+10 {}
<POP 21158-21164 Naked> Σ0 ↓ →0x21190 ←0x21122
<MI 21158 MOVE.W 0x3b1d2,D0> {}
<MI 2115e ANDI.W #0x2000,D0> {}
<MI 21162 BEQ 0x21190> {}
<POP 21164-21190 Naked> Σ0 ↓
<Blob 0x21164 [24] @> Δ-24 {[«24""»]}
<POP 21176-21178 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x21178 23> {[«24""»]|[$$Positioning in progress]}
<MI 21186 LEA.L (A6-0xa),A4> {[«24""»]|[$$Positioning in progress]}
<Call 0x21188 0x20d4e> {[«24""»]|[$$Positioning in progress]}
<POP 2118c-21190 StackAdj> Δ+28 {}
<POP 21190-2119c Naked> Σ0 ↓ →0x211c0 ←0x21158
<MI 21190 MOVE.W 0x3b1d2,D0> {}
<MI 21196 ANDI.W #0x1000,D0> {}
<MI 2119a BEQ 0x211c0> {}
<POP 2119c-211c0 Naked> Σ0 ↓
<Blob 0x2119c [14] @> Δ-14 {[«14""»]}
<POP 211a8-211aa StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x211aa 14> {[«14""»]|[$$Medium on-line]}
<MI 211b8 LEA.L (A6-0xa),A4> {[«14""»]|[$$Medium on-line]}
<Call 0x211ba 0x20d4e> {[«14""»]|[$$Medium on-line]}
<POP 211be-211c0 StackAdj> Δ+18 {}
<POP 211c0-211cc Naked> Σ0 ↓ →0x211f2 ←0x21190
<MI 211c0 MOVE.W 0x3b1d2,D0> {}
<MI 211c6 ANDI.W #0x0800,D0> {}
<MI 211ca BEQ 0x211f2> {}
<POP 211cc-211f2 Naked> Σ0 ↓
<Blob 0x211cc [10] @> Δ-10 {[«10""»]}
<POP 211d8-211da StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x211da 10> {[«10""»]|[$$Write lock]}
<MI 211e8 LEA.L (A6-0xa),A4> {[«10""»]|[$$Write lock]}
<Call 0x211ea 0x20d4e> {[«10""»]|[$$Write lock]}
<POP 211ee-211f2 StackAdj> Δ+14 {}
<POP 211f2-211fe Naked> Σ0 ↓ →0x21224 ←0x211c0
<MI 211f2 MOVE.W 0x3b1d2,D0> {}
<MI 211f8 ANDI.W #0x0400,D0> {}
<MI 211fc BEQ 0x21224> {}
<POP 211fe-21224 Naked> Σ0 ↓
<Blob 0x211fe [22] @> Δ-22 {[«22""»]}
<POP 2120a-2120c StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x2120c 22> {[«22""»]|[$$Last sector transfered]}
<MI 2121a LEA.L (A6-0xa),A4> {[«22""»]|[$$Last sector transfered]}
<Call 0x2121c 0x20d4e> {[«22""»]|[$$Last sector transfered]}
<POP 21220-21224 StackAdj> Δ+26 {}
<POP 21224-21230 Naked> Σ0 ↓ →0x21254 ←0x211f2
<MI 21224 MOVE.W 0x3b1d2,D0> {}
<MI 2122a ANDI.W #0x0200,D0> {}
<MI 2122e BEQ 0x21254> {}
<POP 21230-21254 Naked> Σ0 ↓
<Blob 0x21230 [4] @> Δ-4 {[«4""»]}
<Blob 0x21234 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21238 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2123c-2123e StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2123e 12> {[«4""»]|[«4""»]|[«4""»]|[$$Programmable]}
<MI 2124c LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Programmable]}
<Call 0x2124e 0x20d4e> {[«4""»]|[«4""»]|[«4""»]|[$$Programmable]}
<POP 21252-21254 StackAdj> Δ+16 {}
<POP 21254-21260 Naked> Σ0 ↓ →0x2128a ←0x21224
<MI 21254 MOVE.W 0x3b1d2,D0> {}
<MI 2125a ANDI.W #0x0100,D0> {}
<MI 2125e BNE 0x2128a> {}
<POP 21260-2128a Naked> Σ0 ↓
<Blob 0x21260 [18] @> Δ-18 {[«18""»]}
<POP 21270-21272 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21272 17> {[«18""»]|[$$Drive not present]}
<MI 21280 LEA.L (A6-0xa),A4> {[«18""»]|[$$Drive not present]}
<Call 0x21282 0x20d4e> {[«18""»]|[$$Drive not present]}
<POP 21286-2128a StackAdj> Δ+22 {}
<POP 2128a-21296 Naked> Σ0 ↓ →0x212be ←0x21254
<MI 2128a MOVE.W 0x3b1d2,D0> {}
<MI 21290 ANDI.W #0x0080,D0> {}
<MI 21294 BNE 0x212be> {}
<POP 21296-212be Naked> Σ0 ↓
<Blob 0x21296 [16] @> Δ-16 {[«16""»]}
<POP 212a6-212a8 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x212a8 15> {[«16""»]|[$$Drive not ready]}
<MI 212b6 LEA.L (A6-0xa),A4> {[«16""»]|[$$Drive not ready]}
<Call 0x212b8 0x20d4e> {[«16""»]|[$$Drive not ready]}
<POP 212bc-212be StackAdj> Δ+20 {}
<POP 212be-212ca Naked> Σ0 ↓ →0x212f0 ←0x2128a
<MI 212be MOVE.W 0x3b1d2,D0> {}
<MI 212c4 ANDI.W #0x0040,D0> {}
<MI 212c8 BNE 0x212f0> {}
<POP 212ca-212f0 Naked> Σ0 ↓
<Blob 0x212ca [4] @> Δ-4 {[«4""»]}
<Blob 0x212ce [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x212d2 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x212d6 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 212da-212dc StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x212dc 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<MI 212e8 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<Call 0x212ea 0x20d4e> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<POP 212ee-212f0 StackAdj> Δ+20 {}
<POP 212f0-212fa Naked> Σ0 ↓ →0x21320 ←0x212be
<MI 212f0 MOVE.W 0x3b1d2,D0> {}
<MI 212f6 AND.W #0x01,D0> {}
<MI 212f8 BEQ 0x21320> {}
<POP 212fa-21320 Naked> Σ0 ↓
<Blob 0x212fa [4] @> Δ-4 {[«4""»]}
<Blob 0x212fe [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21302 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21306 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2130a-2130c StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2130c 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Heads are offset]}
<MI 21318 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Heads are offset]}
<Call 0x2131a 0x20d4e> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Heads are offset]}
<POP 2131e-21320 StackAdj> Δ+20 {}
<POP 21320-2132c Naked> Σ0 ↓ →0x21352 ←0x212f0
<MI 21320 MOVE.W 0x3b1d4,D0> {}
<MI 21326 ANDI.W #0x8000,D0> {}
<MI 2132a BEQ 0x21352> {}
<POP 2132c-21352 Naked> Σ0 ↓
<Blob 0x2132c [10] @> Δ-10 {[«10""»]}
<POP 21338-2133a StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x2133a 10> {[«10""»]|[$$Data check]}
<MI 21348 LEA.L (A6-0xa),A4> {[«10""»]|[$$Data check]}
<Call 0x2134a 0x20d4e> {[«10""»]|[$$Data check]}
<POP 2134e-21352 StackAdj> Δ+14 {}
<POP 21352-2135e Naked> Σ0 ↓ →0x21384 ←0x21320
<MI 21352 MOVE.W 0x3b1d4,D0> {}
<MI 21358 ANDI.W #0x4000,D0> {}
<MI 2135c BEQ 0x21384> {}
<POP 2135e-21384 Naked> Σ0 ↓
<Blob 0x2135e [2] @> Δ-2 {[«2""»]}
<Blob 0x21362 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x21366 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 2136a-2136c StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x2136c 6> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<MI 2137a LEA.L (A6-0xa),A4> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<Call 0x2137c 0x20d4e> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<POP 21380-21384 StackAdj> Δ+10 {}
<POP 21384-21390 Naked> Σ0 ↓ →0x213b4 ←0x21352
<MI 21384 MOVE.W 0x3b1d4,D0> {}
<MI 2138a ANDI.W #0x2000,D0> {}
<MI 2138e BEQ 0x213b4> {}
<POP 21390-213b4 Naked> Σ0 ↓
<Blob 0x21390 [20] @> Δ-20 {[«20""»]}
<POP 2139c-2139e StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2139e 20> {[«20""»]|[$$Operation Incomplete]}
<MI 213aa LEA.L (A6-0xa),A4> {[«20""»]|[$$Operation Incomplete]}
<Call 0x213ac 0x20d4e> {[«20""»]|[$$Operation Incomplete]}
<POP 213b0-213b4 StackAdj> Δ+24 {}
<POP 213b4-213c0 Naked> Σ0 ↓ →0x213e4 ←0x21384
<MI 213b4 MOVE.W 0x3b1d4,D0> {}
<MI 213ba ANDI.W #0x1000,D0> {}
<MI 213be BEQ 0x213e4> {}
<POP 213c0-213e4 Naked> Σ0 ↓
<Blob 0x213c0 [18] @> Δ-18 {[«18""»]}
<POP 213cc-213ce StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x213ce 18> {[«18""»]|[$$Drive timing error]}
<MI 213da LEA.L (A6-0xa),A4> {[«18""»]|[$$Drive timing error]}
<Call 0x213dc 0x20d4e> {[«18""»]|[$$Drive timing error]}
<POP 213e0-213e4 StackAdj> Δ+22 {}
<POP 213e4-213f0 Naked> Σ0 ↓ →0x21416 ←0x213b4
<MI 213e4 MOVE.W 0x3b1d4,D0> {}
<MI 213ea ANDI.W #0x0800,D0> {}
<MI 213ee BEQ 0x21416> {}
<POP 213f0-21416 Naked> Σ0 ↓
<Blob 0x213f0 [4] @> Δ-4 {[«4""»]}
<Blob 0x213f4 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x213f8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x213fc [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21400-21402 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21402 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<MI 2140e LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<Call 0x21410 0x20d4e> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<POP 21414-21416 StackAdj> Δ+20 {}
<POP 21416-21422 Naked> Σ0 ↓ →0x2144e ←0x213e4
<MI 21416 MOVE.W 0x3b1d4,D0> {}
<MI 2141c ANDI.W #0x0400,D0> {}
<MI 21420 BEQ 0x2144e> {}
<POP 21422-2144e Naked> Σ0 ↓
<Blob 0x21422 [22] @> Δ-22 {[«22""»]}
<POP 21434-21436 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x21436 21> {[«22""»]|[$$Invalid address error]}
<MI 21444 LEA.L (A6-0xa),A4> {[«22""»]|[$$Invalid address error]}
<Call 0x21446 0x20d4e> {[«22""»]|[$$Invalid address error]}
<POP 2144a-2144e StackAdj> Δ+26 {}
<POP 2144e-2145a Naked> Σ0 ↓ →0x21480 ←0x21416
<MI 2144e MOVE.W 0x3b1d4,D0> {}
<MI 21454 ANDI.W #0x0200,D0> {}
<MI 21458 BEQ 0x21480> {}
<POP 2145a-21480 Naked> Σ0 ↓
<Blob 0x2145a [4] @> Δ-4 {[«4""»]}
<Blob 0x2145e [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21462 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21466 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2146a-2146c StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2146c 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Address overflow]}
<MI 21478 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Address overflow]}
<Call 0x2147a 0x20d4e> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Address overflow]}
<POP 2147e-21480 StackAdj> Δ+20 {}
<POP 21480-2148c Naked> Σ0 ↓ →0x214b2 ←0x2144e
<MI 21480 MOVE.W 0x3b1d4,D0> {}
<MI 21486 ANDI.W #0x0100,D0> {}
<MI 2148a BEQ 0x214b2> {}
<POP 2148c-214b2 Naked> Σ0 ↓
<Blob 0x2148c [4] @> Δ-4 {[«4""»]}
<Blob 0x21490 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21494 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21498 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2149c-2149e StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2149e 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<MI 214aa LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<Call 0x214ac 0x20d4e> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<POP 214b0-214b2 StackAdj> Δ+20 {}
<POP 214b2-214be Naked> Σ0 ↓ →0x214e2 ←0x21480
<MI 214b2 MOVE.W 0x3b1d4,D0> {}
<MI 214b8 ANDI.W #0x0080,D0> {}
<MI 214bc BEQ 0x214e2> {}
<POP 214be-214e2 Naked> Σ0 ↓
<Blob 0x214be [20] @> Δ-20 {[«20""»]}
<POP 214ca-214cc StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x214cc 20> {[«20""»]|[$$Header compare error]}
<MI 214d8 LEA.L (A6-0xa),A4> {[«20""»]|[$$Header compare error]}
<Call 0x214da 0x20d4e> {[«20""»]|[$$Header compare error]}
<POP 214de-214e2 StackAdj> Δ+24 {}
<POP 214e2-214ee Naked> Σ0 ↓ →0x21512 ←0x214b2
<MI 214e2 MOVE.W 0x3b1d4,D0> {}
<MI 214e8 ANDI.W #0x0040,D0> {}
<MI 214ec BEQ 0x21512> {}
<POP 214ee-21512 Naked> Σ0 ↓
<Blob 0x214ee [14] @> Δ-14 {[«14""»]}
<POP 214fa-214fc StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x214fc 14> {[«14""»]|[$$ECC hard error]}
<MI 2150a LEA.L (A6-0xa),A4> {[«14""»]|[$$ECC hard error]}
<Call 0x2150c 0x20d4e> {[«14""»]|[$$ECC hard error]}
<POP 21510-21512 StackAdj> Δ+18 {}
<POP 21512-2151e Naked> Σ0 ↓ →0x21544 ←0x214e2
<MI 21512 MOVE.W 0x3b1d4,D0> {}
<MI 21518 ANDI.W #0x0020,D0> {}
<MI 2151c BEQ 0x21544> {}
<POP 2151e-21544 Naked> Σ0 ↓
<Blob 0x2151e [4] @> Δ-4 {[«4""»]}
<Blob 0x21522 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21526 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2152a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2152e-21530 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21530 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write clock fail]}
<MI 2153c LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write clock fail]}
<Call 0x2153e 0x20d4e> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write clock fail]}
<POP 21542-21544 StackAdj> Δ+20 {}
<POP 21544-2154e Naked> Σ0 ↓ →0x21572 ←0x21512
<MI 21544 MOVE.W 0x3b1d4,D0> {}
<MI 2154a AND.W #0x10,D0> {}
<MI 2154c BEQ 0x21572> {}
<POP 2154e-21572 Naked> Σ0 ↓
<Blob 0x2154e [4] @> Δ-4 {[«4""»]}
<Blob 0x21552 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21556 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2155a-2155c StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2155c 12> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<MI 2156a LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<Call 0x2156c 0x20d4e> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<POP 21570-21572 StackAdj> Δ+16 {}
<POP 21572-2157e Naked> Σ0 ↓ →0x215aa ←0x21544
<MI 21572 MOVE.W 0x3b1d4,D0> {}
<MI 21578 ANDI.W #0x0004,D0> {}
<MI 2157c BEQ 0x215aa> {}
<POP 2157e-215aa Naked> Σ0 ↓
<Blob 0x2157e [30] @> Δ-30 {[«30""»]}
<POP 21590-21592 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x21592 29> {[«30""»]|[$$Register modification refused]}
<MI 215a0 LEA.L (A6-0xa),A4> {[«30""»]|[$$Register modification refused]}
<Call 0x215a2 0x20d4e> {[«30""»]|[$$Register modification refused]}
<POP 215a6-215aa StackAdj> Δ+34 {}
<POP 215aa-215b4 Naked> Σ0 ↓ →0x215da ←0x21572
<MI 215aa MOVE.W 0x3b1d4,D0> {}
<MI 215b0 AND.W #0x01,D0> {}
<MI 215b2 BEQ 0x215da> {}
<POP 215b4-215da Naked> Σ0 ↓
<Blob 0x215b4 [4] @> Δ-4 {[«4""»]}
<Blob 0x215b8 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x215bc [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x215c0 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 215c4-215c6 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x215c6 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<MI 215d2 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<Call 0x215d4 0x20d4e> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<POP 215d8-215da StackAdj> Δ+20 {}
<POP 215da-215e6 Naked> Σ0 ↓ →0x2160c ←0x215aa
<MI 215da MOVE.W 0x3b1d6,D0> {}
<MI 215e0 ANDI.W #0x8000,D0> {}
<MI 215e4 BEQ 0x2160c> {}
<POP 215e6-2160c Naked> Σ0 ↓
<Blob 0x215e6 [10] @> Δ-10 {[«10""»]}
<POP 215f2-215f4 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x215f4 10> {[«10""»]|[$$Bad sector]}
<MI 21602 LEA.L (A6-0xa),A4> {[«10""»]|[$$Bad sector]}
<Call 0x21604 0x20d4e> {[«10""»]|[$$Bad sector]}
<POP 21608-2160c StackAdj> Δ+14 {}
<POP 2160c-21618 Naked> Σ0 ↓ →0x21640 ←0x215da
<MI 2160c MOVE.W 0x3b1d6,D0> {}
<MI 21612 ANDI.W #0x4000,D0> {}
<MI 21616 BEQ 0x21640> {}
<POP 21618-21640 Naked> Σ0 ↓
<Blob 0x21618 [16] @> Δ-16 {[«16""»]}
<POP 21628-2162a StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x2162a 15> {[«16""»]|[$$Seek incomplete]}
<MI 21638 LEA.L (A6-0xa),A4> {[«16""»]|[$$Seek incomplete]}
<Call 0x2163a 0x20d4e> {[«16""»]|[$$Seek incomplete]}
<POP 2163e-21640 StackAdj> Δ+20 {}
<POP 21640-2164c Naked> Σ0 ↓ →0x21674 ←0x2160c
<MI 21640 MOVE.W 0x3b1d6,D0> {}
<MI 21646 ANDI.W #0x1000,D0> {}
<MI 2164a BEQ 0x21674> {}
<POP 2164c-21674 Naked> Σ0 ↓
<Blob 0x2164c [16] @> Δ-16 {[«16""»]}
<POP 2165c-2165e StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x2165e 15> {[«16""»]|[$$Invalid command]}
<MI 2166c LEA.L (A6-0xa),A4> {[«16""»]|[$$Invalid command]}
<Call 0x2166e 0x20d4e> {[«16""»]|[$$Invalid command]}
<POP 21672-21674 StackAdj> Δ+20 {}
<POP 21674-21680 Naked> Σ0 ↓ →0x216a4 ←0x21640
<MI 21674 MOVE.W 0x3b1d6,D0> {}
<MI 2167a ANDI.W #0x0800,D0> {}
<MI 2167e BEQ 0x216a4> {}
<POP 21680-216a4 Naked> Σ0 ↓
<Blob 0x21680 [20] @> Δ-20 {[«20""»]}
<POP 2168c-2168e StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2168e 20> {[«20""»]|[$$Loss of system clock]}
<MI 2169a LEA.L (A6-0xa),A4> {[«20""»]|[$$Loss of system clock]}
<Call 0x2169c 0x20d4e> {[«20""»]|[$$Loss of system clock]}
<POP 216a0-216a4 StackAdj> Δ+24 {}
<POP 216a4-216b0 Naked> Σ0 ↓ →0x216da ←0x21674
<MI 216a4 MOVE.W 0x3b1d6,D0> {}
<MI 216aa ANDI.W #0x0400,D0> {}
<MI 216ae BEQ 0x216da> {}
<POP 216b0-216da Naked> Σ0 ↓
<Blob 0x216b0 [18] @> Δ-18 {[«18""»]}
<POP 216c0-216c2 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x216c2 17> {[«18""»]|[$$Loss of bit clock]}
<MI 216d0 LEA.L (A6-0xa),A4> {[«18""»]|[$$Loss of bit clock]}
<Call 0x216d2 0x20d4e> {[«18""»]|[$$Loss of bit clock]}
<POP 216d6-216da StackAdj> Δ+22 {}
<POP 216da-216e6 Naked> Σ0 ↓ →0x2170a ←0x216a4
<MI 216da MOVE.W 0x3b1d6,D0> {}
<MI 216e0 ANDI.W #0x0080,D0> {}
<MI 216e4 BEQ 0x2170a> {}
<POP 216e6-2170a Naked> Σ0 ↓
<Blob 0x216e6 [4] @> Δ-4 {[«4""»]}
<Blob 0x216ea [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x216ee [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 216f2-216f4 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x216f4 12> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<MI 21702 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<Call 0x21704 0x20d4e> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<POP 21708-2170a StackAdj> Δ+16 {}
<POP 2170a-21716 Naked> Σ0 ↓ →0x21740 ←0x216da
<MI 2170a MOVE.W 0x3b1d6,D0> {}
<MI 21710 ANDI.W #0x0020,D0> {}
<MI 21714 BEQ 0x21740> {}
<POP 21716-21740 Naked> Σ0 ↓
<Blob 0x21716 [18] @> Δ-18 {[«18""»]}
<POP 21726-21728 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21728 17> {[«18""»]|[$$Skip sector error]}
<MI 21736 LEA.L (A6-0xa),A4> {[«18""»]|[$$Skip sector error]}
<Call 0x21738 0x20d4e> {[«18""»]|[$$Skip sector error]}
<POP 2173c-21740 StackAdj> Δ+22 {}
<POP 21740-21748 Naked> Σ0 ↓ →0x21754 ←0x2170a
<MI 21740 MOVEA.L (A6-0x6),A0> {}
<MI 21744 TST.W (A0)> {}
<MI 21746 BEQ 0x21754> {}
<POP 21748-21754 Naked> Σ0 ↓
<MI 21748 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2174c 0x103e0> {[4, '(A6-0x6)']}
WriteConsoleStringCrLf(str : String)
<POP 21752-21754 StackAdj> Δ+4 {}
<POP 21754-2175c Epilogue> Σ0 ←0x20e9c ←0x21740
@ 2175c
<LVAR -0x004 2(r)>
<LVAR -0x006 2(r)>
<LVAR -0x008 2(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00e 2(r)>
<LVAR -0x016 2(r)>
<LVAR -0x01e 2(r)>
<LVAR -0x020 2(r)>
<LVAR -0x022 2(r)>
<LVAR -0x024 2(r)>
<LVAR -0x02a 2(r)>
<POP 2175c-21820 Body>
<POP 2175c-21772 Prologue> Σ0 ↓
<POP 21772-21774 RegCacheLoad> Σ0 ↓
<POP 21774-21786 Naked> Σ0 ↓
<MI 21774 MOVE.L #0x9303,D7> {}
<MI 2177a ASL.L #0x8,D7> {}
<MI 2177c ASL.L #0x8,D7> {}
<MI 2177e ADDI.L #0x0000fdc0,D7> {}
<MI 21784 MOVEQ.L #0x00,D6> {}
<POP 21786-217c0 Naked> Σ0 ↓ →0x21786 ←0x21786
<MI 21786 MOVEQ.L #0x02,D4> {}
<MI 21788 MOVE.L D6,D3> {}
<Call 0x2178a 0x1028c> {}
?muls_d3_d4
<MI 21790 MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 21792 ADD.L D4,(A7)> {[-4-]}
<Const 0x21794 0x5.2> Δ-2 {[-4-]|[#5]}
<POP 0x21798 LimitCheck 0x0 ≤ D6 ≤ 0x13> {[-4-]|[#5]}
<MI 2179e MOVE.L D6,D0> {[-4-]|[#5]}
<MI 217a0 ASL.L #0x1,D0> {[-4-]|[#5]}
<MI 217a2 LEA.L (A6+D0.L-#0x2a),A0> {[-4-]|[#5]}
<MI 217a6 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[#5]|[4, 'A0']}
<Const 0x217a8 0x1.2> Δ-2 {[-4-]|[#5]|[4, 'A0']|[#1]}
<Const 0x217ac 0x2.2> Δ-2 {[-4-]|[#5]|[4, 'A0']|[#1]|[#2]}
<Call 0x217b0 0x1023a> {[-4-]|[#5]|[4, 'A0']|[#1]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 217b6-217ba StackAdj> Δ+14 {}
<MI 217ba ADDQ.L #0x1,D6> {}
<MI 217bc CMP.L #0x13,D6> {}
<MI 217be BLE 0x21786> {}
<POP 217c0-21818 Naked> Σ0 ↓
<MI 217c0 MOVE.W (A6-0x2a),0x3b1ce> {}
<MI 217c8 MOVE.W (A6-0x22),0x3b1d0> {}
<MI 217d0 MOVE.W (A6-0x20),0x3b1d2> {}
<MI 217d8 MOVE.W (A6-0x1e),0x3b1d4> {}
<MI 217e0 MOVE.W (A6-0x8),0x3b1d6> {}
<MI 217e8 MOVE.W (A6-0x6),0x3b1d8> {}
<MI 217f0 MOVE.W (A6-0x4),0x3b1da> {}
<MI 217f8 MOVE.W (A6-0xe),0x3b1dc> {}
<MI 21800 MOVE.W (A6-0x24),0x3b1de> {}
<MI 21808 MOVE.W (A6-0x16),0x3b1e0> {}
<MI 21810 MOVE.W (A6-0xa),0x3b1e2> {}
<POP 21818-21820 Epilogue> Σ0
@ 21820
<LVAR -0x008 2(w)>
<LVAR -0x00e 2(w)>
<LVAR -0x012 @>
<LVAR -0x014 @ 1(r)>
<POP 21820-218ae Body>
<POP 21820-21836 Prologue> Σ0 ↓
<POP 21836-2187c Naked> Σ0 ↓ →0x218a6
<MI 21836 MOVE.W #0x2,(A6-0xe)> {}
<MI 2183c MOVE.W 0x3b1e4,D0> {}
<MI 21842 ASL.W #0x8,D0> {}
<MI 21844 ADDQ.W #0x1,D0> {}
<POP 0x21846 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 2184e MOVE.W D0,(A6-0x8)> {}
<Pointer.fp 0x21852 <LVAR -0x012 @>> Δ-4 {[@@-18]}
<MI 21856 LEA.L 0x3b1ce,A0> {[@@-18]}
<MI 2185c MOVE.L A0,-(A7)> Δ-4 {[@@-18]|[4, 'A0']}
<MI 2185e CLR.W -(A7)> Δ-2 {[@@-18]|[4, 'A0']|[#0]}
<Call 0x21860 0x10204> {[@@-18]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21866-21868 StackAdj> Δ+8 {[-2-]}
<MI 21868 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x2186a <LVAR -0x014 @ 1(r)>> Δ-4 {[-2-]|[@@-20]}
<Call 0x2186e 0x10206> {[-2-]|[@@-20]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21874-21876 StackAdj> Δ+6 {}
<MI 21876 TST.B (A6-0x14)> {}
<MI 2187a BNE 0x218a6> {}
<POP 2187c-218a6 Naked> Σ0 ↓
<Blob 0x2187c [36] @> Δ-36 {[«36""»]}
<POP 21888-2188a StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x2188a 36> {[«36""»]|[$$disk error reading disk error status]}
<Call 0x2189e 0x20c8c> {[«36""»]|[$$disk error reading disk error status]}
<POP 218a2-218a6 StackAdj> Δ+40 {}
<POP 218a6-218ae Epilogue> Σ0 ←0x21836
@ 218ae
<LVAR 0x00c 2(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x006 2(w)>
<LVAR -0x008 2(w)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 2(r)>
<LVAR -0x00e 2(w)>
<LVAR -0x010 2(r)>
<LVAR -0x012 @ 2(r)>
<POP 218ae-21976 Body>
<POP 218ae-218c4 Prologue> Σ0 ↓
<POP 218c4-21926 Naked> Σ0 ↓ →0x2196e
<MI 218c4 CLR.W (A6-0x12)> {}
<MI 218c8 CLR.W (A6-0x10)> {}
<MI 218cc MOVE.W #0x2,(A6-0xe)> {}
<MI 218d2 CLR.W (A6-0xc)> {}
<MI 218d6 CLR.W (A6-0xa)> {}
<MI 218da MOVE.W 0x3b1e4,D0> {}
<MI 218e0 ASL.W #0x8,D0> {}
<MI 218e2 ADDI.W #0x000e,D0> {}
<POP 0x218e6 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 218ee MOVE.W D0,(A6-0x8)> {}
<MI 218f2 MOVE.W (A6+0xc),(A6-0x6)> {}
<MI 218f8 MOVEA.L (A6+0x8),A0> {}
<Pointer.fp 0x218fc <LVAR -0x012 @ 2(r)>> Δ-4 {[@@-18]}
<MI 21900 MOVEA.L A0,A1> {[@@-18]}
<MI 21902 MOVE.L A1,-(A7)> Δ-4 {[@@-18]|[4, 'A1']}
<MI 21904 CLR.W -(A7)> Δ-2 {[@@-18]|[4, 'A1']|[#0]}
<Call 0x21906 0x10204> {[@@-18]|[4, 'A1']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 2190c-2190e StackAdj> Δ+8 {[-2-]}
<MI 2190e CLR.W (A7)> {[-2-]}
<Pointer.fp 0x21910 <LVAR -0x002 @ 1(r)>> Δ-4 {[-2-]|[@@-2]}
<Call 0x21914 0x10206> {[-2-]|[@@-2]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 2191a-2191c StackAdj> Δ+6 {}
<MI 2191c ANDI.W #0x00ff,(A0)> {}
<MI 21920 TST.B (A6-0x2)> {}
<MI 21924 BNE 0x2196e> {}
<POP 21926-2196e Naked> Σ0 ↓
<Blob 0x21926 [50] @> Δ-50 {[«50""»]}
<POP 21938-2193a StackAdj> Δ-8 {[«50""»]|[-8-]}
<Lit 0x2193a 49> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]}
<POP 2194c-2194e StackAdj> Δ-4 {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<MI 2194e CLR.L D0> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<MI 21950 MOVE.W (A6+0xc),D0> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<MI 21954 MOVE.L D0,-(A7)> Δ-4 {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]|[4, 'D0']}
<Call 0x21956 0x102e4> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2195c-2195e StackAdj> Δ+4 {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<Call 0x2195e 0x102d0> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21964-21966 StackAdj> Δ+8 {[«50""»]|[-4-]}
<Call 0x21966 0x20c8c> {[«50""»]|[-4-]}
<POP 2196a-2196e StackAdj> Δ+54 {}
<POP 2196e-21976 Epilogue> Σ0 ←0x218c4
@ 21976
<LVAR 0x008 2(r)>
<LVAR -0x004 2(rw)>
<LVAR -0x006 2(rw)>
<LVAR -0x008 2(rw)>
<LVAR -0x482 @>
<LVAR -0x486 @ 2(r)>
<LVAR -0x8fe @>
<LVAR -0x902 @>
<POP 21976-21a5e Body>
<POP 21976-2198c Prologue> Σ0 ↓
<POP 2198c-21996 RegCacheLoad> Σ0 ↓
<POP 21996-219a0 Naked> Σ0 ↓
<MI 21996 MOVEQ.L #0x00,D7> {}
<MI 21998 MOVE.W (A6+0x8),(A6-0x4)> {}
<MI 2199c ANDI.W #0x0003,(A6-0x4)> {}
<POP 219a0-219de Naked> Σ0 ↓ →0x219a0 ←0x219a0
<POP 0x219a0 LimitCheck 0x0 ≤ D7 ≤ 0xffff> {}
<MI 219aa MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Pointer.fp 0x219ac <LVAR -0x486 @ 2(r)>> Δ-4 {[2, 'D7']|[@@-1158]}
<Call 0x219b0 0x218ae> {[2, 'D7']|[@@-1158]}
<POP 219b4-219b6 StackAdj> Δ+6 {}
<POP 0x219b6 LimitCheck 0x0 ≤ D7 ≤ 0x477> {}
<MI 219c0 LEA.L (A6-0x902),A0> {}
<MI 219c4 LEA.L (A0+D7.L),A0> {}
<MI 219c8 MOVE.W (A6-0x486),D0> {}
<POP 0x219cc LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 219d0 MOVE.B D0,(A0+0x480)> {}
<MI 219d4 ADDQ.L #0x1,D7> {}
<MI 219d6 CMPI.L #0x00000400,D7> {}
<MI 219dc BNE 0x219a0> {}
<POP 219de-21a24 Naked> Σ0 ↓
<MI 219de LEA.L (A6-0x8fe),A0> {}
<MI 219e2 LEA.L (A6-0x482),A1> {}
<BlockMove 1144,A1,A0> {}
<MI 219f0 LEA.L (A6-0x902),A0> {}
<MI 219f4 MOVE.W (A6-0x4),D0> {}
<MI 219f6 LEA.L (A0+D0.W),A0> {}
<MI 219fa CLR.L D0> {}
<MI 219fc MOVE.B (A0+0x254),D0> {}
<MI 21a00 ASL.W #0x8,D0> {}
<MI 21a02 CLR.L D1> {}
<MI 21a04 MOVE.B (A0+0x1d4),D1> {}
<MI 21a08 ADD.W D0,D1> {}
<MI 21a0a MOVE.W D1,D5> {}
<MI 21a0c CLR.L D0> {}
<MI 21a0e MOVE.B (A0+0x354),D0> {}
<MI 21a12 MOVE.W D0,(A6-0x8)> {}
<MI 21a16 CLR.L D0> {}
<MI 21a18 MOVE.B (A0+0x2d4),D0> {}
<MI 21a1c MOVE.W D0,(A6-0x6)> {}
<MI 21a20 CLR.W 0x3b1c4> {}
<MI 21a22 MOVEQ.L #0x05,D6> {}
<POP 21a24-21a38 Naked> Σ0 ↓ →0x21a52 ←0x21a52
<MI 21a24 MOVE.W D6,D0> {}
<MI 21a26 ASL.W #0x2,D0> {}
<MI 21a28 LEA.L 0x28196,A0> {}
<MI 21a2e LEA.L (A0+D0.W),A0> {}
<MI 21a32 CMP.W (A0+0x2012),D5> {}
<MI 21a36 BNE 0x21a52> {}
<POP 21a38-21a44 Naked> Σ0 ↓ →0x21a52
<MI 21a38 CLR.L D0> {}
<MI 21a3a MOVE.B (A0+0x2014),D0> {}
<MI 21a3e CMP.W (A6-0x8),D0> {}
<MI 21a42 BNE 0x21a52> {}
<POP 21a44-21a50 Naked> Σ0 ↓ →0x21a52
<MI 21a44 CLR.L D0> {}
<MI 21a46 MOVE.B (A0+0x2015),D0> {}
<MI 21a4a CMP.W (A6-0x6),D0> {}
<MI 21a4e BNE 0x21a52> {}
<POP 21a50-21a52 Naked> Σ0 ↓
<MI 21a50 MOVE.W D6,0x3b1c4> {}
<POP 21a52-21a56 Naked> Σ0 ↓ →0x21a24 ←0x21a24 ←0x21a38 ←0x21a44
<MI 21a52 SUBQ.W #0x1,D6> {}
<MI 21a54 BGE 0x21a24> {}
<POP 21a56-21a5e Epilogue> Σ0
@ 21a5e
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 21a5e-21ac4 Body>
<POP 21a5e-21a74 Prologue> Σ0 ↓
<POP 21a74-21a80 RegCacheLoad> Σ0 ↓
<POP 21a80-21ab2 Naked> Σ0 ↓ →0x21abc
<MI 21a80 MOVE.L (A6+0xa),D4> {}
<MI 21a84 MOVEQ.L #0x0a,D3> {}
<Call 0x21a86 0x10294> {}
?divs_d3_d4
<MI 21a8c MOVE.L (A4+0xe),-(A7)> Δ-4 {[4, '(A4+0xe)']}
<MI 21a8e MOVE.L D4,D0> {[4, '(A4+0xe)']}
<MI 21a90 ADD.L #0x30,D0> {[4, '(A4+0xe)']}
<POP 0x21a92 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[4, '(A4+0xe)']}
<MI 21a9c MOVE.B D0,-(A7)> Δ-2 {[4, '(A4+0xe)']|[2, 'D0']}
<Call 0x21a9e 0x102c0> {[4, '(A4+0xe)']|[2, 'D0']}
AppendChar(MOD b : String; a : char)
<POP 21aa0-21aa2 StackAdj> Δ+2 {[4, '(A4+0xe)']}
<MI 21aa2 MOVE.L (A4+0xe),(A7)> {[4, '(A4+0xe)']}
<MI 21aa4 ADD.W #0x30,D3> {[4, '(A4+0xe)']}
<MI 21aa6 MOVE.B D3,-(A7)> Δ-2 {[4, '(A4+0xe)']|[2, 'D3']}
<Call 0x21aa8 0x102c0> {[4, '(A4+0xe)']|[2, 'D3']}
AppendChar(MOD b : String; a : char)
<POP 21aaa-21aac StackAdj> Δ+6 {}
<MI 21aac TST.B (A6+0x8)> {}
<MI 21ab0 BEQ 0x21abc> {}
<POP 21ab2-21abc Naked> Σ0 ↓
<MI 21ab2 MOVE.L (A4+0xe),-(A7)> Δ-4 {[4, '(A4+0xe)']}
<MI 21ab4 MOVE.B (A6+0x8),-(A7)> Δ-2 {[4, '(A4+0xe)']|[2, '(A6+0x8)']}
<Call 0x21ab8 0x102c0> {[4, '(A4+0xe)']|[2, '(A6+0x8)']}
AppendChar(MOD b : String; a : char)
<POP 21aba-21abc StackAdj> Δ+6 {}
<POP 21abc-21ac4 Epilogue> Σ0 ←0x21a80
@ 21ac4
<LVAR 0x00c 2(r)>
<LVAR 0x008 2(r)>
<LVAR -0x006 4(rw)>
<LVAR -0x00a 4(rw)>
<LVAR -0x014 @>
<POP 21ac4-21b90 Body>
<POP 21ac4-21ada Prologue> Σ0 ↓
<POP 21ada-21ae4 RegCacheLoad> Σ0 ↓
<POP 21ae4-21b88 Naked> Σ0 ↓
<MI 21ae4 CLR.L D0> {}
<MI 21ae6 MOVE.W (A6+0x8),D0> {}
<MI 21aea CLR.L D1> {}
<MI 21aec MOVE.W (A6+0xc),D1> {}
<MI 21af0 NEG.L D1> {}
<MI 21af2 ADD.L D0,D1> {}
<POP 0x21af4 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 21afe MOVE.W D1,D7> {}
<MI 21b00 CLR.L D0> {}
<MI 21b02 MOVE.W D7,D0> {}
<MI 21b04 DIVU.W #0x708,D0> {}
<MI 21b08 CLR.L D1> {}
<MI 21b0a MOVE.W D0,D1> {}
<MI 21b0c MOVE.L D1,D6> {}
<MI 21b0e SWAP.W D0> {}
<MI 21b10 MOVE.W D0,D7> {}
<MI 21b12 CLR.L D0> {}
<MI 21b14 MOVE.W D7,D0> {}
<MI 21b16 DIVU.W #0x1e,D0> {}
<MI 21b1a CLR.L D1> {}
<MI 21b1c MOVE.W D0,D1> {}
<MI 21b1e MOVE.L D1,D5> {}
<MI 21b20 SWAP.W D0> {}
<MI 21b22 MOVE.W D0,D7> {}
<MI 21b24 CLR.L D0> {}
<MI 21b26 MOVE.W D7,D0> {}
<MI 21b28 ASL.L #0x1,D0> {}
<MI 21b2a MOVE.L D0,(A6-0xa)> {}
<Blob 0x21b2e [4] @> Δ-4 {[«4""»]}
<Blob 0x21b32 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21b36 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21b3a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21b3e-21b40 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21b40 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Elapsed time is_]}
<MI 21b54 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21b58-21b5c StackAdj> Δ+12 {[«4""»]}
<MI 21b5c MOVE.L D6,(A7)> {[4, 'D6']}
<Const 0x21b5e 0x3a.2> Δ-2 {[4, 'D6']|[#58]}
<MI 21b60 LEA.L (A6-0x14),A4> {[4, 'D6']|[#58]}
<Call 0x21b62 0x21a5e> {[4, 'D6']|[#58]}
<POP 21b64-21b66 StackAdj> Δ+2 {[4, 'D6']}
<MI 21b66 MOVE.L D5,(A7)> {[4, 'D5']}
<Const 0x21b68 0x3a.2> Δ-2 {[4, 'D5']|[#58]}
<MI 21b6a LEA.L (A6-0x14),A4> {[4, 'D5']|[#58]}
<Call 0x21b6c 0x21a5e> {[4, 'D5']|[#58]}
<POP 21b6e-21b70 StackAdj> Δ+2 {[4, 'D5']}
<MI 21b70 MOVE.L (A6-0xa),(A7)> {[4, '(A6-0xa)']}
<MI 21b74 CLR.B -(A7)> Δ-2 {[4, '(A6-0xa)']|[#0]}
<MI 21b76 LEA.L (A6-0x14),A4> {[4, '(A6-0xa)']|[#0]}
<Call 0x21b78 0x21a5e> {[4, '(A6-0xa)']|[#0]}
<POP 21b7a-21b7c StackAdj> Δ+2 {[4, '(A6-0xa)']}
<MI 21b7c MOVE.L (A6-0x6),(A7)> {[4, '(A6-0x6)']}
<Call 0x21b80 0x103e0> {[4, '(A6-0x6)']}
WriteConsoleStringCrLf(str : String)
<POP 21b86-21b88 StackAdj> Δ+4 {}
<POP 21b88-21b90 Epilogue> Σ0
@ 21b90
<POP 21b90-21bee Body>
<POP 21b90-21ba6 Prologue> Σ0 ↓
<POP 21ba6-21ba8 RegCacheLoad> Σ0 ↓
<POP 21ba8-21baa Naked> Σ0 ↓
<MI 21ba8 MOVEQ.L #0x01,D7> {}
<POP 21baa-21be6 Naked> Σ0 ↓ →0x21baa ←0x21baa
<MI 21baa MOVE.L D7,D0> {}
<MI 21bac ASL.L #0x1,D0> {}
<MI 21bae MOVE.L D0,D1> {}
<MI 21bb0 SUBQ.L #0x1,D1> {}
<POP 0x21bb2 LimitCheck 0x0 ≤ D1 ≤ 0x1d> {}
<MI 21bb8 LEA.L 0x28196,A0> {}
<MI 21bbe ADDA.L #0x12c2e,A0> {}
<MI 21bc4 MOVE.B (A0+D1.L+#0x36),D6> {}
<MI 21bc8 SUBQ.L #0x1,D0> {}
<MI 21bca SUBQ.L #0x1,D0> {}
<POP 0x21bcc LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 21bd2 MOVE.B (A0+D0.L+#0x36),(A0+D1.L+#0x36)> {}
<MI 21bd8 MOVE.B D6,(A0+D0.L+#0x36)> {}
<MI 21bdc ADDQ.L #0x1,D7> {}
<MI 21bde CMPI.L #0x0000000f,D7> {}
<MI 21be4 BLE 0x21baa> {}
<POP 21be6-21bee Epilogue> Σ0
@ 21bee
<LVAR 0x008 4(r)>
<LVAR -0x00e @>
<LVAR -0x02e @ 1(r)>
<LVAR -0x03a @ 2(r)>
<LVAR -0x03c 2(r)>
<LVAR -0x03e 2(r)>
<LVAR -0x040 2(w)>
<LVAR -0x042 2(r)>
<LVAR -0x044 2(r)>
<LVAR -0x046 2(w)>
<LVAR -0x048 2(r)>
<LVAR -0x04a @ 2(r)>
<POP 21bee-21f8e Body>
<POP 21bee-21c04 Prologue> Σ0 ↓
<POP 21c04-21c18 RegCacheLoad> Σ0 ↓
<POP 21c18-21cde Naked> Σ0 ↓ →0x21d00
<Blob 0x21c18 [2] @> Δ-2 {[«2""»]}
<MI 21c1c MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[4, '(A6+0x8)']}
<POP 21c20-21c22 StackAdj> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x21c22 2> {[«2""»]|[4, '(A6+0x8)']|[$$V ]}
<POP 21c2c-21c2e StackAdj> Δ-2 {[«2""»]|[4, '(A6+0x8)']|[$$V ]|[-2-]}
<MI 21c2e CLR.B (A7)> {[«2""»]|[4, '(A6+0x8)']|[$$V ]|[-2-]}
<Const 0x21c30 0x3b1ea.4> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$V ]|[-2-]|[##242154]}
<Pointer.fp 0x21c36 <LVAR -0x00e @>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$V ]|[-2-]|[##242154]|[@@-14]}
<Call 0x21c3a 0x20cee> {[«2""»]|[4, '(A6+0x8)']|[$$V ]|[-2-]|[##242154]|[@@-14]}
<POP 21c3e-21c42 StackAdj> Δ+18 {[«2""»]}
<MI 21c42 CLR.B (A7)> {[«2""»]}
<Call 0x21c44 0x103ac> {[«2""»]}
Set_is_open_ERROR_LOG(a : Bool)
<POP 21c4a-21c4c StackAdj> Δ+2 {}
<MI 21c4c MOVE.L #0x01,0x20020> {}
<MI 21c52 MOVE.L #0x01,0x10026> {}
<Blob 0x21c58 [36] @> Δ-36 {[«36""»]}
<POP 21c64-21c66 StackAdj> Δ-8 {[«36""»]|[-8-]}
<Lit 0x21c66 36> {[«36""»]|[-4-]|[$$Enter unit number of disk to scan :_]}
<Const 0x21c72 0x0.4> Δ-4 {[«36""»]|[-4-]|[$$Enter unit number of disk to scan :_]|[##0]}
<Const 0x21c76 0xf.4> Δ-4 {[«36""»]|[-4-]|[$$Enter unit number of disk to scan :_]|[##0]|[##15]}
<Call 0x21c7a 0x103ec> {[«36""»]|[-4-]|[$$Enter unit number of disk to scan :_]|[##0]|[##15]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 21c80-21c82 StackAdj> Δ+12 {[«36""»]|[-4-]}
<MI 21c82 MOVE.L (A7)+,D0> Δ+4 {[«36""»]}
<POP 0x21c84 LimitCheck 0x0 ≤ D0 ≤ 0xf> {[«36""»]}
<POP 21c8a-21c8c StackAdj> Δ+36 {}
<MI 21c8c MOVE.W D0,0x3b1e4> {}
<MI 21c92 CLR.W (A6-0x4a)> {}
<MI 21c96 CLR.W (A6-0x48)> {}
<MI 21c9a MOVE.W #0x02,(A6-0x46)> {}
<MI 21c9e CLR.W (A6-0x44)> {}
<MI 21ca2 CLR.W (A6-0x42)> {}
<MI 21ca6 ASL.W #0x8,D0> {}
<MI 21ca8 MOVE.W D0,(A6-0x40)> {}
<MI 21cac CLR.W (A6-0x3e)> {}
<MI 21cb0 CLR.W (A6-0x3c)> {}
<Pointer.fp 0x21cb4 <LVAR -0x04a @ 2(r)>> Δ-4 {[@@-74]}
<MI 21cb8 LEA.L (A6-0x3a),A0> {[@@-74]}
<MI 21cbc MOVE.L A0,-(A7)> Δ-4 {[@@-74]|[4, 'A0']}
<MI 21cbe CLR.W -(A7)> Δ-2 {[@@-74]|[4, 'A0']|[#0]}
<Call 0x21cc0 0x10204> {[@@-74]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21cc6-21cc8 StackAdj> Δ+8 {[-2-]}
<MI 21cc8 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x21cca <LVAR -0x02e @ 1(r)>> Δ-4 {[-2-]|[@@-46]}
<Call 0x21cce 0x10206> {[-2-]|[@@-46]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21cd4-21cd6 StackAdj> Δ+6 {}
<MI 21cd6 MOVE.W (A6-0x3a),D0> {}
<MI 21cda CMP.W #0x01,D0> {}
<MI 21cdc BEQ 0x21d00> {}
<POP 21cde-21d00 Naked> Σ0 ↓
<Blob 0x21cde [30] @> Δ-30 {[«30""»]}
<POP 21cea-21cec StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x21cec 30> {[«30""»]|[$$That disk unit does not exist.]}
<Call 0x21cf8 0x20c8c> {[«30""»]|[$$That disk unit does not exist.]}
<POP 21cfc-21d00 StackAdj> Δ+34 {}
<POP 21d00-21d3a Naked> Σ0 ↓ →0x21d64 ←0x21c18
<MI 21d00 MOVE.W 0x3b1e4,0x10008> {}
<MI 21d0a MOVE.W #0x7fff,0x1000c> {}
<MI 21d12 MOVE.W #0x7fff,0x1000a> {}
<Const 0x21d1a 0x2.2> Δ-2 {[#2]}
<Const 0x21d1c 0x2.2> Δ-2 {[#2]|[#2]}
<Const 0x21d1e 0x1.4> Δ-4 {[#2]|[#2]|[##1]}
<Blob 0x21d22 [4] 0x3b1ca> Δ-4 {[#2]|[#2]|[##1]|[«4»]}
<Pointer.fp 0x21d28 <LVAR -0x02e @ 1(r)>> Δ-4 {[#2]|[#2]|[##1]|[«4»]|[@@-46]}
<Call 0x21d2c 0x1036c> {[#2]|[#2]|[##1]|[«4»]|[@@-46]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 21d32-21d34 StackAdj> Δ+16 {}
<MI 21d34 TST.B (A6-0x2e)> {}
<MI 21d38 BNE 0x21d64> {}
<POP 21d3a-21d64 Naked> Σ0 ↓
<Blob 0x21d3a [42] @> Δ-42 {[«42""»]}
<POP 21d4c-21d4e StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x21d4e 41> {[«42""»]|[$$Can't retrieve labels due to disk errors.]}
<Call 0x21d5c 0x20c8c> {[«42""»]|[$$Can't retrieve labels due to disk errors.]}
<POP 21d60-21d64 StackAdj> Δ+46 {}
<POP 21d64-21d70 Naked> Σ0 ↓ →0x21d9a ←0x21d00
<MI 21d64 MOVE.W 0x3adc6,D0> {}
<MI 21d6a CMPI.W #0x7fed,D0> {}
<MI 21d6e BEQ 0x21d9a> {}
<POP 21d70-21d9a Naked> Σ0 ↓
<Blob 0x21d70 [20] @> Δ-20 {[«20""»]}
<POP 21d82-21d84 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21d84 19> {[«20""»]|[$$Disk has no labels.]}
<Call 0x21d92 0x20c8c> {[«20""»]|[$$Disk has no labels.]}
<POP 21d96-21d9a StackAdj> Δ+24 {}
<POP 21d9a-21da6 Naked> Σ0 ↓ →0x21dce ←0x21d64
<MI 21d9a MOVE.W 0x3adc8,D0> {}
<MI 21da0 CMPI.W #0x0003,D0> {}
<MI 21da4 BEQ 0x21dce> {}
<POP 21da6-21dce Naked> Σ0 ↓
<Blob 0x21da6 [26] @> Δ-26 {[«26""»]}
<POP 21db8-21dba StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x21dba 25> {[«26""»]|[$$Disk has obsolete labels.]}
<Call 0x21dc8 0x20c8c> {[«26""»]|[$$Disk has obsolete labels.]}
<POP 21dcc-21dce StackAdj> Δ+30 {}
<POP 21dce-21e68 Naked> Σ0 ↓ →0x21e80 ←0x21d9a
<MI 21dce MOVE.L 0x3adcc,0x3b1e6> {}
<Call 0x21dd8 0x21b90> {}
<Blob 0x21ddc [30] 0x3ae18> Δ-30 {[«30»]}
<POP 21dea-21dec StackAdj> Δ-8 {[«30»]|[-8-]}
<Lit 0x21dec> {[«30»]|[-4-]|[$$…]}
<Pointer.sp 0x21dec 8> Δ-4
<Const 0x21df0 0x1.2> Δ-2
<Const 0x21df2 0x1e.2> Δ-2
<Call 0x21df4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21df6-21df8 StackAdj> Δ+8
<Call 0x21df8 0x102f0> {[«30»]|[-4-]|[$$…]}
ToUpper(a : String) : String
<POP 21dfe-21e00 StackAdj> Δ+4 {[«30»]|[-4-]}
<MI 21e00 MOVEA.L (A7)+,A3> Δ+4 {[«30»]}
<POP 21e02-21e03 StackAdj> Δ+30 ↓ {}
<Blob 0x21e03 [8] @> Δ-8 {[«8""»]}
<POP 21e14-21e16 StackAdj> Δ-8 {[«8""»]|[-8-]}
<Lit 0x21e16 7> {[«8""»]|[-4-]|[$$HDA =>_]}
<MI 21e22 MOVE.L A3,(A7)> {[«8""»]|[-4-]|[4, 'A3']}
<POP 21e20-21e22 StackAdj> Δ-8 {[«8""»]|[-4-]|[4, 'A3']|[-8-]}
<Call 0x21e24 0x102cc> {[«8""»]|[-4-]|[4, 'A3']|[-8-]}
StringDup(a : String) : String
<POP 21e2a-21e2c StackAdj> Δ+4 {[«8""»]|[-4-]|[4, 'A3']|[-4-]}
<Call 0x21e2c 0x102d0> {[«8""»]|[-4-]|[4, 'A3']|[-4-]}
StringCat2(a, b : String) : String
<POP 21e32-21e34 StackAdj> Δ+8 {[«8""»]|[-4-]}
<Call 0x21e34 0x103e0> {[«8""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21e3a-21e3e StackAdj> Δ+10 {[-2-]}
<POP 21e3e-21e3f StackAdj> Δ+2 {}
<Blob 0x21e3f [2] 0x3b1e4> Δ-2 {[«2»]}
<Call 0x21e44 0x21976> {[«2»]}
<POP 21e48-21e4a StackAdj> Δ+2 {}
<MI 21e4a MOVE.W 0x3b1c4,D0> {}
<MI 21e50 ASL.W #0x2,D0> {}
<MI 21e52 LEA.L 0x28196,A0> {}
<MI 21e58 LEA.L (A0+D0.W),A0> {}
<MI 21e5c MOVE.W (A0+0x2012),D0> {}
<MI 21e60 CMP.W 0x3b1e6,D0> {}
<MI 21e66 BNE 0x21e80> {}
<POP 21e68-21e74 Naked> Σ0 ↓ →0x21e80
<MI 21e68 MOVE.B (A0+0x2014),D0> {}
<MI 21e6c CMP.B 0x3b1e8,D0> {}
<MI 21e72 BNE 0x21e80> {}
<POP 21e74-21e80 Naked> Σ0 ↓ →0x21eaa
<MI 21e74 MOVE.B (A0+0x2015),D0> {}
<MI 21e78 CMP.B 0x3b1e9,D0> {}
<MI 21e7e BEQ 0x21eaa> {}
<POP 21e80-21eaa Naked> Σ0 ↓ ←0x21dce ←0x21e68
<Blob 0x21e80 [50] @> Δ-50 {[«50""»]}
<POP 21e92-21e94 StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x21e94 49> {[«50""»]|[$$Drive label geometry disagrees with slew settings]}
<Call 0x21ea2 0x20c8c> {[«50""»]|[$$Drive label geometry disagrees with slew settings]}
<POP 21ea6-21eaa StackAdj> Δ+54 {}
<POP 21eaa-21ec6 Naked> Σ0 ↓ →0x21f86 ←0x21e74
<MI 21eaa CLR.L D0> {}
<MI 21eac MOVE.B 0x3b1e9,D0> {}
<MI 21eb2 ASR.W #0x1,D0> {}
<MI 21eb4 EXTW.L D0> {}
<MI 21eb6 MOVE.L D0,0x3a9c0> {}
<MI 21ebc TST.B 0x3b1ea> {}
<MI 21ec2 BEQ 0x21f86> {}
<POP 21ec6-21f86 Naked> Σ0 ↓
<Blob 0x21ec6 [16] @> Δ-16 {[«16""»]}
<Blob 0x21ed6 [4] @> Δ-4 {[«16""»]|[«4""»]}
<Blob 0x21eda [4] @> Δ-4 {[«16""»]|[«4""»]|[«4""»]}
<Blob 0x21ede [4] @> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21ee2 [4] @> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21ee6 [4] @> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21eea-21eec StackAdj> Δ-8 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x21eec 15> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]}
<POP 21ef6-21ef8 StackAdj> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]}
<MI 21ef8 CLR.L D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]}
<MI 21efa MOVE.W 0x3b1e6,D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]}
<MI 21f00 MOVE.L D0,-(A7)> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, 'D0']}
<Call 0x21f02 0x102e4> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x21f08 12> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]}
<POP 21f12-21f14 StackAdj> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 21f14 CLR.L D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 21f16 MOVE.B 0x3b1e8,D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 21f1c MOVE.L D0,-(A7)> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[4, 'D0']}
<Call 0x21f1e 0x102e4> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x21f24 8> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]}
<POP 21f30-21f32 StackAdj> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 21f32 CLR.L D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 21f34 MOVE.B 0x3b1e9,D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 21f3a MOVE.L D0,-(A7)> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]|[4, 'D0']}
<Call 0x21f3c 0x102e4> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21f42-21f44 StackAdj> Δ+4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<Call 0x21f44 0x102e0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 21f4a-21f4e StackAdj> Δ+24 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 21f4e MOVEA.L (A7)+,A4> Δ+4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21f50-21f54 StackAdj> Δ+32 {[-4-]}
<POP 21f54-21f55 StackAdj> Δ+4 {}
<Blob 0x21f55 [4] @> Δ-4 {[«4""»]}
<Blob 0x21f58 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 21f5c-21f5e StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<MI 21f5e MOVE.L A4,-(A7)> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
<POP 21f60-21f62 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x21f62 8> {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ sectors]}
<Call 0x21f70 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ sectors]}
StringCat2(a, b : String) : String
<POP 21f76-21f78 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 21f78 MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]}
<POP 21f7a-21f7c StackAdj> Δ+4 {[«4""»]}
<MI 21f7c MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x21f7e 0x103e0> {[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 21f84-21f86 StackAdj> Δ+4 {}
<POP 21f86-21f8e Epilogue> Σ0 ←0x21eaa
@ 21f8e
<LVAR 0x016 4(r)>
<LVAR 0x012 4(r)>
<LVAR 0x00e 4(r)>
<LVAR 0x00c 1(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 2(w)>
<LVAR -0x00a 2(w)>
<LVAR -0x00c 2(w)>
<LVAR -0x00e 2(r)>
<LVAR -0x010 2(r)>
<LVAR -0x012 2(w)>
<LVAR -0x014 2(r)>
<LVAR -0x016 @ 2(w)>
<POP 21f8e-2203e Body>
<POP 21f8e-21fa4 Prologue> Σ0 ↓
<POP 21fa4-21fb0 RegCacheLoad> Σ0 ↓
<POP 21fb0-22036 Naked> Σ0 ↓
<MI 21fb0 MOVE.L 0x3a9c0,D3> {}
<Call 0x21fb6 0x1028c> {}
?muls_d3_d4
<POP 0x21fbc LimitCheck 0x0 ≤ #0x100 ≤ 0xffff> {}
<MI 21fc2 MOVE.W #0x100,(A6-0x16)> {}
<MI 21fc6 CLR.W (A6-0x14)> {}
<MI 21fca MOVE.W #0x2,(A6-0x12)> {}
<MI 21fd0 CLR.W (A6-0x10)> {}
<MI 21fd4 CLR.W (A6-0xe)> {}
<MI 21fd8 MOVE.W 0x3b1e4,D0> {}
<MI 21fde ASL.W #0x8,D0> {}
<MI 21fe0 MOVE.B (A6+0xc),D1> {}
<MI 21fe4 EXTB.W D1> {}
<MI 21fe6 ADD.W D0,D1> {}
<MI 21fe8 MOVE.W D1,(A6-0xc)> {}
<MI 21fec MOVE.L (A6+0x16),D0> {}
<POP 0x21ff0 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 21ff6 MOVE.W D0,(A6-0xa)> {}
<MI 21ffa MOVE.L (A6+0x12),D0> {}
<MI 21ffe ASL.L #0x8,D0> {}
<MI 22000 ADD.L (A6+0xe),D0> {}
<POP 0x22004 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 2200a MOVE.W D0,(A6-0x8)> {}
<MI 2200e LEA.L 0x2a1c0,A0> {}
<MI 22014 MOVEA.L A0,A4> {}
<Pointer.fp 0x22016 <LVAR -0x016 @ 2(w)>> Δ-4 {[@@-22]}
<MI 2201a MOVE.L A4,-(A7)> Δ-4 {[@@-22]|[4, 'A4']}
<MI 2201c CLR.W -(A7)> Δ-2 {[@@-22]|[4, 'A4']|[#0]}
<Call 0x2201e 0x10204> {[@@-22]|[4, 'A4']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 22024-22026 StackAdj> Δ+8 {[-2-]}
<MI 22026 CLR.W (A7)> {[-2-]}
<MI 22028 MOVEA.L (A6+0x8),A0> {[-2-]}
<MI 2202c PEA.L (A0)> Δ-4 {[-2-]|[4, '^(A0)']}
<Call 0x2202e 0x10206> {[-2-]|[4, '^(A0)']}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 22034-22036 StackAdj> Δ+6 {}
<POP 22036-2203e Epilogue> Σ0
@ 2203e
<LVAR 0x008 4(r)>
<POP 2203e-2206c Body>
<POP 2203e-22054 Prologue> Σ0 ↓
<POP 22054-22064 Naked> Σ0 ↓
<MI 22054 CLR.W -(A7)> Δ-2 {[#0]}
<MI 22056 MOVEA.L (A6+0x8),A0> {[#0]}
<MI 2205a PEA.L (A0)> Δ-4 {[#0]|[4, '^(A0)']}
<Call 0x2205c 0x10206> {[#0]|[4, '^(A0)']}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 22062-22064 StackAdj> Δ+6 {}
<POP 22064-2206c Epilogue> Σ0
@ 2206c
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x00a 1(r)>
<LVAR 0x008 1(r)>
<LVAR -0x006 2(w)>
<LVAR -0x008 2(w)>
<LVAR -0x00a 2(w)>
<LVAR -0x00c 2(r)>
<LVAR -0x00e 2(r)>
<LVAR -0x010 2(w)>
<LVAR -0x012 2(r)>
<LVAR -0x014 @ 2(w)>
<POP 2206c-22132 Body>
<POP 2206c-22082 Prologue> Σ0 ↓
<POP 22082-2208e RegCacheLoad> Σ0 ↓
<POP 2208e-22104 Naked> Σ0 →0x22108 →0x22110
<MI 2208e MOVE.L 0x3a9c0,D3> {}
<Call 0x22094 0x1028c> {}
?muls_d3_d4
<POP 0x2209a LimitCheck 0x0 ≤ #0x100 ≤ 0xffff> {}
<MI 220a0 MOVE.W #0x100,(A6-0x14)> {}
<MI 220a4 CLR.W (A6-0x12)> {}
<MI 220a8 MOVE.W #0x2,(A6-0x10)> {}
<MI 220ae CLR.W (A6-0xe)> {}
<MI 220b2 CLR.W (A6-0xc)> {}
<MI 220b6 MOVE.W 0x3b1e4,D0> {}
<MI 220bc ASL.W #0x8,D0> {}
<MI 220be MOVE.B (A6+0x8),D1> {}
<MI 220c2 EXTB.W D1> {}
<MI 220c4 ADD.W D0,D1> {}
<MI 220c6 MOVE.W D1,(A6-0xa)> {}
<MI 220ca MOVE.L (A6+0x14),D0> {}
<POP 0x220ce LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 220d4 MOVE.W D0,(A6-0x8)> {}
<MI 220d8 MOVE.L (A6+0x10),D0> {}
<MI 220dc ASL.L #0x8,D0> {}
<MI 220de ADD.L (A6+0xc),D0> {}
<POP 0x220e2 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 220e8 MOVE.W D0,(A6-0x6)> {}
<MI 220ec MOVE.B (A6+0xa),D0> {}
<MI 220f0 EXTB.W D0> {}
<POP 0x220f2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 220fa ADD.W D0,D0> {}
<MI 220fc SWITCH D0.W> {}
<POP 22108-22110 Naked> Σ0 →0x22116 ←0x2208e
<MI 22108 LEA.L 0x2a1c0,A0> {}
<MI 2210e BRA 0x22116> {}
<POP 22110-22116 Naked> Σ0 ↓ ←0x2208e
<MI 22110 LEA.L 0x325c0,A0> {}
<POP 22116-2212a Naked> Σ0 ↓ ←0x22108
<MI 22116 MOVEA.L A0,A4> {}
<Pointer.fp 0x22118 <LVAR -0x014 @ 2(w)>> Δ-4 {[@@-20]}
<MI 2211c MOVE.L A4,-(A7)> Δ-4 {[@@-20]|[4, 'A4']}
<MI 2211e CLR.W -(A7)> Δ-2 {[@@-20]|[4, 'A4']|[#0]}
<Call 0x22120 0x10204> {[@@-20]|[4, 'A4']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 22126-2212a StackAdj> Δ+10 {}
<POP 2212a-22132 Epilogue> Σ0
@ 22132
<POP 22132-221b8 Body>
<POP 22132-22148 Prologue> Σ0 ↓
<POP 22148-22154 Naked> Σ0 ↓ →0x22160
<POP 22148-2214a StackAdj> Δ-2 {[-2-]}
<Call 0x2214a 0x10610> {[-2-]}
Is_fc07_one_or_three() : Bool
<MI 22150 TST.B (A7)+> Δ+2 {}
<MI 22152 BNE 0x22160> {}
<POP 22154-22160 Naked> Σ0 ↓ →0x2218a
<POP 22154-22156 StackAdj> Δ-2 {[-2-]}
<Call 0x22156 0x1060a> {[-2-]}
Is_fc07_four() : Bool
<MI 2215c TST.B (A7)+> Δ+2 {}
<MI 2215e BEQ 0x2218a> {}
<POP 22160-2218a Naked> Σ0 ↓ ←0x22148
<Blob 0x22160 [46] @> Δ-46 {[«46""»]}
<POP 2216c-2216e StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x2216e 46> {[«46""»]|[$$This doesnt run on coprocessors or model 400's]}
<Call 0x22182 0x20c8c> {[«46""»]|[$$This doesnt run on coprocessors or model 400's]}
<POP 22186-2218a StackAdj> Δ+50 {}
<POP 2218a-221b0 Naked> Σ0 ↓ ←0x22154
<MI 2218a LEA.L 0x3adc4,A0> {}
<MI 22190 MOVE.L A0,0x3b1c6> {}
<MI 22196 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22198 MOVE.L (A7)+,0x3b1ca> Δ+4 {}
<MI 2219e LEA.L 0x2a1a8,A0> {}
<MI 221a4 LEA.L 0x20bc6,A1> {}
<BlockMove 24,A1,A0> {}
<POP 221b0-221b8 Epilogue> Σ0
@ 221b8
<LVAR 0x008 1(rw)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x004 @>
<POP 221b8-22204 Body>
<POP 221b8-221ce Prologue> Σ0 ↓
<POP 221ce-221d0 RegCacheLoad> Σ0 ↓
<POP 221d0-221ea Naked> Σ0 ↓ →0x221fc
<MI 221d0 CLR.B (A6+0x8)> {}
<Const 0x221d4 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x221d6 <LVAR -0x002 @ 1(r)>> Δ-4 {[#1]|[@@-2]}
<Call 0x221da 0x10212> {[#1]|[@@-2]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 221e0-221e2 StackAdj> Δ+6 {}
<MI 221e2 MOVE.B (A6-0x2),D0> {}
<MI 221e6 CMP.B #0x01,D0> {}
<MI 221e8 BNE 0x221fc> {}
<POP 221ea-221fc Naked> Σ0 ↓
<Const 0x221ea 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x221ec <LVAR -0x004 @>> Δ-4 {[#1]|[@@-4]}
<Call 0x221f0 0x1020e> {[#1]|[@@-4]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 221f6-221f8 StackAdj> Δ+6 {}
<MI 221f8 MOVE.B #0x01,(A6+0x8)> {}
<POP 221fc-22204 Epilogue> Σ0 ←0x221d0
@ 22204
<LVAR 0x008 4(r)>
<LVAR -0x004 2(rw)>
<POP 22204-2234a Body>
<POP 22204-2221a Prologue> Σ0 ↓
<POP 2221a-2221e RegCacheLoad> Σ0 ↓
<POP 2221e-2227a Naked> Σ0 ↓ →0x222ac
<MI 2221e CLR.L D0> {}
<MI 22220 MOVE.B 0x3add2,D0> {}
<MI 22226 CLR.L D1> {}
<MI 22228 MOVE.B 0x3b1e9,D1> {}
<MI 2222e MULU.W D1,D0> {}
<MI 22230 CLR.L D2> {}
<MI 22232 MOVE.B 0x3add3,D2> {}
<MI 22238 ADDQ.W #0x1,D2> {}
<MI 2223a ADD.W D0,D2> {}
<MI 2223c LSR.W #0x1,D2> {}
<MI 2223e MOVE.W D2,D5> {}
<MI 22240 CLR.L D0> {}
<MI 22242 MOVE.B 0x3add6,D0> {}
<MI 22248 MULU.W D1,D0> {}
<MI 2224a CLR.L D1> {}
<MI 2224c MOVE.B 0x3add7,D1> {}
<MI 22252 SUBQ.W #0x1,D1> {}
<MI 22254 CLR.L D2> {}
<MI 22256 MOVE.W D0,D2> {}
<MI 22258 EXTW.L D1> {}
<MI 2225a ADD.L D2,D1> {}
<MI 2225c MOVE.L D1,D4> {}
<MI 2225e MOVEQ.L #0x02,D3> {}
<Call 0x22260 0x10294> {}
?divs_d3_d4
<MI 22266 MOVE.W D4,(A6-0x4)> {}
<MI 22268 CLR.L D0> {}
<MI 2226a MOVE.W (A6-0x4),D0> {}
<MI 2226c CLR.L D1> {}
<MI 2226e MOVE.W D5,D1> {}
<MI 22270 SUB.L D1,D0> {}
<MI 22272 CMPI.L #0x0000000f,D0> {}
<MI 22278 BEQ 0x222ac> {}
<POP 2227a-222ac Naked> Σ0 ↓
<Blob 0x2227a [50] @> Δ-50 {[«50""»]}
<POP 2228c-2228e StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x2228e 49> {[«50""»]|[$$--- warning: bad block area is not 16 blocks long]}
<Call 0x222a2 0x103e0> {[«50""»]|[$$--- warning: bad block area is not 16 blocks long]}
WriteConsoleStringCrLf(str : String)
<POP 222a8-222ac StackAdj> Δ+54 {}
<POP 222ac-222b0 Naked> Σ0 ↓ ←0x2221e
<MI 222ac MOVEQ.L #0x00,D6> {}
<MI 222ae MOVE.W D1,D7> {}
<POP 222b0-222ec Naked> Σ0 ↓ →0x22320 ←0x2233c
<POP 0x222b0 LimitCheck 0x0 ≤ D6 ≤ 0x7ff> {}
<MI 222ba MOVE.L D6,D0> {}
<MI 222bc ASL.L #0x2,D0> {}
<MI 222be LEA.L 0x28196,A0> {}
<MI 222c4 LEA.L (A0+D0.L+#0x8),A0> {}
<MI 222c8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 222ca MOVEA.L (A7)+,A4> Δ+4 {}
<MI 222cc MOVEA.L (A6+0x8),A0> {}
<Const 0x222d0 0x2.2> Δ-2 {[#2]}
<MI 222d4 MOVE.W D7,-(A7)> Δ-2 {[#2]|[2, 'D7']}
<Const 0x222d6 0x1.4> Δ-4 {[#2]|[2, 'D7']|[##1]}
<MI 222da MOVE.L A4,-(A7)> Δ-4 {[#2]|[2, 'D7']|[##1]|[4, 'A4']}
<MI 222dc PEA.L (A0)> Δ-4 {[#2]|[2, 'D7']|[##1]|[4, 'A4']|[4, '^(A0)']}
<Call 0x222de 0x1036c> {[#2]|[2, 'D7']|[##1]|[4, 'A4']|[4, '^(A0)']}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 222e4-222e8 StackAdj> Δ+16 {}
<MI 222e8 TST.B (A0)> {}
<MI 222ea BNE 0x22320> {}
<POP 222ec-22320 Naked> Σ0 →0x22338
<Blob 0x222ec [58] @> Δ-58 {[«58""»]}
<POP 222fe-22300 StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x22300 57> {[«58""»]|[$$Can't read bad block list area on disk due to disk errors]}
<Call 0x22314 0x103e0> {[«58""»]|[$$Can't read bad block list area on disk due to disk errors]}
WriteConsoleStringCrLf(str : String)
<POP 2231a-2231e StackAdj> Δ+62 {}
<MI 2231e BRA 0x22338> {}
<POP 22320-22338 Naked> Σ0 ↓ ←0x222b0
<MI 22320 ADDI.L #0x00000100,D6> {}
<MI 22326 CLR.L D0> {}
<MI 22328 MOVE.W D7,D0> {}
<MI 2232a ADDQ.L #0x2,D0> {}
<POP 0x2232c LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22336 MOVE.W D0,D7> {}
<POP 22338-2233c Naked> Σ0 ↓ →0x22342 ←0x222ec
<MI 22338 CMP.W (A6-0x4),D7> {}
<MI 2233a BHI 0x22342> {}
<POP 2233c-22342 Naked> Σ0 ↓ →0x222b0
<MI 2233c TST.B (A0)> {}
<MI 2233e BNE 0x222b0> {}
<POP 22342-2234a Epilogue> Σ0 ←0x22338
@ 2234a
<LVAR 0x00a 1(rw)>
<LVAR 0x008 2(r)>
<LVAR -0x001 1(r)>
<LVAR -0x002 1(r) 2(rw)>
<POP 2234a-223c0 Body>
<POP 2234a-22360 Prologue> Σ0 ↓
<POP 22360-22364 RegCacheLoad> Σ0 ↓
<POP 22364-22374 Naked> Σ0 ↓ →0x223b4
<MI 22364 MOVE.W (A6+0x8),(A6-0x2)> {}
<MI 22368 CLR.L D0> {}
<MI 2236a MOVE.B (A6-0x2),D0> {}
<MI 2236c LSR.B #0x1,D0> {}
<MI 2236e CMPI.W #0x0064,D0> {}
<MI 22372 BCC 0x223b4> {}
<POP 22374-2237a Naked> Σ0 ↓ →0x223b4
<MI 22374 CMPI.W #0x005b,D0> {}
<MI 22378 BLT 0x223b4> {}
<POP 2237a-22384 Naked> Σ0 ↓ →0x223b4
<MI 2237a MOVE.W (A6-0x2),D0> {}
<MI 2237c LSL.W #0x7,D0> {}
<MI 2237e LSR.W #0x8,D0> {}
<MI 22380 LSR.W #0x4,D0> {}
<MI 22382 BEQ 0x223b4> {}
<POP 22384-22392 Naked> Σ0 ↓ →0x223b4
<MI 22384 MOVE.W (A6-0x2),D0> {}
<MI 22386 LSL.W #0x7,D0> {}
<MI 22388 LSR.W #0x8,D0> {}
<MI 2238a LSR.W #0x4,D0> {}
<MI 2238c CMPI.W #0x000d,D0> {}
<MI 22390 BCC 0x223b4> {}
<POP 22392-2239c Naked> Σ0 ↓ →0x223b4
<MI 22392 MOVE.B (A6-0x1),D0> {}
<MI 22396 LSL.B #0x3,D0> {}
<MI 22398 LSR.B #0x3,D0> {}
<MI 2239a BEQ 0x223b4> {}
<POP 2239c-223ac Naked> Σ0 ↓ →0x223b4
<MI 2239c CLR.L D0> {}
<MI 2239e MOVE.B (A6-0x1),D0> {}
<MI 223a2 LSL.B #0x3,D0> {}
<MI 223a4 LSR.B #0x3,D0> {}
<MI 223a6 CMPI.W #0x0020,D0> {}
<MI 223aa BCC 0x223b4> {}
<POP 223ac-223b4 Naked> Σ0 →0x223b8
<MI 223ac MOVE.B #0x01,(A6+0xa)> {}
<MI 223b2 BRA 0x223b8> {}
<POP 223b4-223b8 Naked> Σ0 ↓ ←0x22364 ←0x22374 ←0x2237a ←0x22384 ←0x22392 ←0x2239c
<MI 223b4 CLR.B (A6+0xa)> {}
<POP 223b8-223c0 Epilogue> Σ0 ←0x223ac
@ 223c0
<LVAR 0x012 4(r)>
<LVAR 0x010 1(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x406 @ 2(r)>
<POP 223c0-224b2 Body>
<POP 223c0-223d6 Prologue> Σ0 ↓
<POP 223d6-223e4 RegCacheLoad> Σ0 ↓
<POP 223e4-223fc Naked> Σ0 →0x22400 →0x22426
<MI 223e4 MOVE.B 0x2a1a2,D0> {}
<MI 223ea EXTB.W D0> {}
<POP 0x223ec LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 223f2 ADD.W D0,D0> {}
<MI 223f4 SWITCH D0.W> {}
<POP 22400-22426 Naked> Σ0 →0x2244c ←0x223e4
<MI 22400 MOVE.L (A6+0x12),D0> {}
<POP 0x22404 LimitCheck 0x0 ≤ D0 ≤ 0x20> {}
<MI 2240a ASL.L #0x8,D0> {}
<MI 2240c ASL.L #0x2,D0> {}
<MI 2240e LEA.L 0x28196,A0> {}
<MI 22410 LEA.L (A0+D0.L),A0> {}
<MI 22414 LEA.L (A6-0x406),A1> {}
<MI 22416 LEA.L (A0+0x202a),A0> {}
<BlockMove 1024,A0,A1> {}
<MI 22424 BRA 0x2244c> {}
<POP 22426-2244c Naked> Σ0 ↓ ←0x223e4
<MI 22426 MOVE.L (A6+0x12),D0> {}
<POP 0x2242a LimitCheck 0x0 ≤ D0 ≤ 0x20> {}
<MI 22430 ASL.L #0x8,D0> {}
<MI 22432 ASL.L #0x2,D0> {}
<MI 22434 LEA.L 0x28196,A0> {}
<MI 22436 LEA.L (A0+D0.L),A0> {}
<MI 2243a ADDA.L #0xa42a,A0> {}
<MI 22440 LEA.L (A6-0x406),A1> {}
<BlockMove 1024,A0,A1> {}
<POP 2244c-2245c Naked> Σ0 ↓ →0x2246e ←0x22400
<MI 2244c MOVEA.L (A6+0x8),A0> {}
<MI 22450 MOVE.W (A6-0x406),(A0)> {}
<MI 22452 MOVEQ.L #0x01,D7> {}
<MI 22454 MOVE.B (A6+0x10),D0> {}
<MI 22458 CMP.B #0x01,D0> {}
<MI 2245a BEQ 0x2246e> {}
<POP 2245c-22460 Naked> Σ0 ↓ →0x224a4
<MI 2245c TST.B D0> {}
<MI 2245e BNE 0x224a4> {}
<POP 22460-2246e Naked> Σ0 ↓ →0x224a4
<POP 22460-22462 StackAdj> Δ-2 {[-2-]}
<MI 22462 MOVE.W (A0),-(A7)> Δ-2 {[-2-]|[2, '(A0)']}
<Call 0x22464 0x2234a> {[-2-]|[2, '(A0)']}
<POP 22468-2246a StackAdj> Δ+2 {[-2-]}
<MI 2246a TST.B (A7)+> Δ+2 {}
<MI 2246c BEQ 0x224a4> {}
<POP 2246e-22490 Naked> Σ0 ↓ →0x22492 ←0x2244c ←0x2249a
<MI 2246e MOVEA.L (A6+0xc),A0> {}
<MI 22472 MOVEQ.L #0x00,D0> {}
<MI 22474 MOVEA.L (A6+0x8),A1> {}
<POP 0x22478 LimitCheck 0x0 ≤ D7 ≤ 0x1ff> {}
<MI 22482 MOVE.L D7,D1> {}
<MI 22484 ASL.L #0x1,D1> {}
<MI 22486 LEA.L (A6-0x406),A2> {}
<MI 22488 MOVE.W (A1),D2> {}
<MI 2248a CMP.W (A2+D1.L),D2> {}
<MI 2248e BNE 0x22492> {}
<POP 22490-22492 Naked> Σ0 ↓
<MI 22490 ADDQ.B #0x1,D0> {}
<POP 22492-2249a Naked> Σ0 ↓ →0x224a2 ←0x2246e
<MI 22492 MOVE.B D0,(A0)> {}
<MI 22494 ADDQ.L #0x1,D7> {}
<MI 22496 TST.B (A0)> {}
<MI 22498 BEQ 0x224a2> {}
<POP 2249a-224a2 Naked> Σ0 ↓ →0x2246e
<MI 2249a CMPI.L #0x00000200,D7> {}
<MI 224a0 BNE 0x2246e> {}
<POP 224a2-224a4 Naked> Σ0 →0x224aa ←0x22492
<MI 224a2 BRA 0x224aa> {}
<POP 224a4-224aa Naked> Σ0 ↓ ←0x2245c ←0x22460
<MI 224a4 MOVEA.L (A6+0xc),A0> {}
<MI 224a8 CLR.B (A0)> {}
<POP 224aa-224b2 Epilogue> Σ0 ←0x224a2
@ 224b2
<LVAR 0x012 4(r)>
<LVAR 0x010 1(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x406 @ 2(r)>
<POP 224b2-225a4 Body>
<POP 224b2-224c8 Prologue> Σ0 ↓
<POP 224c8-224d6 RegCacheLoad> Σ0 ↓
<POP 224d6-224ee Naked> Σ0 →0x224f2 →0x22518
<MI 224d6 MOVE.B 0x2a1a2,D0> {}
<MI 224dc EXTB.W D0> {}
<POP 0x224de LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 224e4 ADD.W D0,D0> {}
<MI 224e6 SWITCH D0.W> {}
<POP 224f2-22518 Naked> Σ0 →0x2253e ←0x224d6
<MI 224f2 MOVE.L (A6+0x12),D0> {}
<POP 0x224f6 LimitCheck 0x0 ≤ D0 ≤ 0x20> {}
<MI 224fc ASL.L #0x8,D0> {}
<MI 224fe ASL.L #0x2,D0> {}
<MI 22500 LEA.L 0x28196,A0> {}
<MI 22502 LEA.L (A0+D0.L),A0> {}
<MI 22506 LEA.L (A6-0x406),A1> {}
<MI 22508 LEA.L (A0+0x202a),A0> {}
<BlockMove 1024,A0,A1> {}
<MI 22516 BRA 0x2253e> {}
<POP 22518-2253e Naked> Σ0 ↓ ←0x224d6
<MI 22518 MOVE.L (A6+0x12),D0> {}
<POP 0x2251c LimitCheck 0x0 ≤ D0 ≤ 0x20> {}
<MI 22522 ASL.L #0x8,D0> {}
<MI 22524 ASL.L #0x2,D0> {}
<MI 22526 LEA.L 0x28196,A0> {}
<MI 22528 LEA.L (A0+D0.L),A0> {}
<MI 2252c ADDA.L #0xa42a,A0> {}
<MI 22532 LEA.L (A6-0x406),A1> {}
<BlockMove 1024,A0,A1> {}
<POP 2253e-2254e Naked> Σ0 ↓ →0x22560 ←0x224f2
<MI 2253e MOVEA.L (A6+0x8),A0> {}
<MI 22542 MOVE.W (A6-0x406),(A0)> {}
<MI 22544 MOVEQ.L #0x01,D7> {}
<MI 22546 MOVE.B (A6+0x10),D0> {}
<MI 2254a CMP.B #0x01,D0> {}
<MI 2254c BEQ 0x22560> {}
<POP 2254e-22552 Naked> Σ0 ↓ →0x22596
<MI 2254e TST.B D0> {}
<MI 22550 BNE 0x22596> {}
<POP 22552-22560 Naked> Σ0 ↓ →0x22596
<POP 22552-22554 StackAdj> Δ-2 {[-2-]}
<MI 22554 MOVE.W (A0),-(A7)> Δ-2 {[-2-]|[2, '(A0)']}
<Call 0x22556 0x2234a> {[-2-]|[2, '(A0)']}
<POP 2255a-2255c StackAdj> Δ+2 {[-2-]}
<MI 2255c TST.B (A7)+> Δ+2 {}
<MI 2255e BEQ 0x22596> {}
<POP 22560-22582 Naked> Σ0 ↓ →0x22584 ←0x2253e ←0x2258c
<MI 22560 MOVEA.L (A6+0xc),A0> {}
<MI 22564 MOVEQ.L #0x00,D0> {}
<MI 22566 MOVEA.L (A6+0x8),A1> {}
<POP 0x2256a LimitCheck 0x0 ≤ D7 ≤ 0x1ff> {}
<MI 22574 MOVE.L D7,D1> {}
<MI 22576 ASL.L #0x1,D1> {}
<MI 22578 LEA.L (A6-0x406),A2> {}
<MI 2257a MOVE.W (A1),D2> {}
<MI 2257c CMP.W (A2+D1.L),D2> {}
<MI 22580 BNE 0x22584> {}
<POP 22582-22584 Naked> Σ0 ↓
<MI 22582 ADDQ.B #0x1,D0> {}
<POP 22584-2258c Naked> Σ0 ↓ →0x22594 ←0x22560
<MI 22584 MOVE.B D0,(A0)> {}
<MI 22586 ADDQ.L #0x1,D7> {}
<MI 22588 TST.B (A0)> {}
<MI 2258a BEQ 0x22594> {}
<POP 2258c-22594 Naked> Σ0 ↓ →0x22560
<MI 2258c CMPI.L #0x00000100,D7> {}
<MI 22592 BNE 0x22560> {}
<POP 22594-22596 Naked> Σ0 →0x2259c ←0x22584
<MI 22594 BRA 0x2259c> {}
<POP 22596-2259c Naked> Σ0 ↓ ←0x2254e ←0x22552
<MI 22596 MOVEA.L (A6+0xc),A0> {}
<MI 2259a CLR.B (A0)> {}
<POP 2259c-225a4 Epilogue> Σ0 ←0x22594
@ 225a4
<LVAR 0x013 1(r)>
<LVAR 0x012 1(r)>
<LVAR 0x010 2(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 4(rw)>
<POP 225a4-22730 Body>
<POP 225a4-225ba Prologue> Σ0 ↓
<POP 225ba-225d0 RegCacheLoad> Σ0 ↓
<POP 225d0-225f0 Naked> Σ0 ↓ →0x225f2
<MI 225d0 CLR.L D0> {}
<MI 225d2 MOVE.W (A6+0x10),D0> {}
<MI 225d6 LSL.W #0x2,D0> {}
<MI 225d8 LSR.W #0x2,D0> {}
<MI 225da MOVE.L D0,D5> {}
<MI 225dc CLR.L D0> {}
<MI 225de MOVE.B (A6+0x13),D0> {}
<MI 225e2 MOVE.L D0,D7> {}
<MI 225e4 CLR.L D0> {}
<MI 225e6 MOVE.B 0x3b1e9,D0> {}
<MI 225ec CMP.L D0,D7> {}
<MI 225ee BCS 0x225f2> {}
<POP 225f0-225f2 Naked> Σ0 ↓
<MI 225f0 MOVEQ.L #0x00,D7> {}
<POP 225f2-225f8 Naked> Σ0 ↓ →0x225fc ←0x225d0
<MI 225f2 BTST.L #0x0,D7> {}
<MI 225f6 BEQ 0x225fc> {}
<POP 225f8-225fc Naked> Σ0 →0x225fe
<MI 225f8 SUBQ.L #0x1,D7> {}
<MI 225fa BRA 0x225fe> {}
<POP 225fc-225fe Naked> Σ0 ↓ ←0x225f2
<MI 225fc ADDQ.L #0x1,D7> {}
<POP 225fe-22608 Naked> Σ0 ↓ ←0x225f8
<MI 225fe CLR.L D0> {}
<MI 22600 MOVE.B (A6+0x12),D0> {}
<MI 22604 MOVE.L D0,(A6-0x4)> {}
<MI 22606 MOVEQ.L #0x00,D6> {}
<POP 22608-2262e Naked> Σ0 ↓ →0x22608 ←0x22608
<POP 0x22608 LimitCheck 0x0 ≤ D6 ≤ 0x1ff> {}
<MI 22612 MOVE.L D6,D0> {}
<MI 22614 ASL.L #0x1,D0> {}
<MI 22616 LEA.L 0x28196,A0> {}
<MI 2261c LEA.L (A0+D0.L),A0> {}
<MI 22620 CLR.W (A0+0x202a)> {}
<MI 22624 ADDQ.L #0x1,D6> {}
<MI 22626 CMPI.L #0x000000ff,D6> {}
<MI 2262c BLE 0x22608> {}
<POP 2262e-2264a Naked> Σ0 ↓ →0x2267e
<MI 2262e MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 22630 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, 'D5']|[4, '(A6-0x4)']}
<MI 22632 MOVE.L D7,-(A7)> Δ-4 {[4, 'D5']|[4, '(A6-0x4)']|[4, 'D7']}
<MI 22634 CLR.B -(A7)> Δ-2 {[4, 'D5']|[4, '(A6-0x4)']|[4, 'D7']|[#0]}
<Const 0x22636 0x4.2> Δ-2 {[4, 'D5']|[4, '(A6-0x4)']|[4, 'D7']|[#0]|[#4]}
<Call 0x2263a 0x2206c> {[4, 'D5']|[4, '(A6-0x4)']|[4, 'D7']|[#0]|[#4]}
<POP 2263e-22642 StackAdj> Δ+16 {}
<MI 22642 TST.B 0x3b1ea> {}
<MI 22648 BNE 0x2267e> {}
<POP 2264a-2267e Naked> Σ0 ↓
<Const 0x2264a 0x1b.2> Δ-2 {[#27]}
<Call 0x2264e 0x103d0> {[#27]}
WriteConsoleChar(chr : char)
<POP 22654-22656 StackAdj> Δ-2 {[#27]|[-2-]}
<POP 22656-22657 StackAdj> Δ+2 {[#27]}
<Blob 0x22657 [2] @> Δ-2 {[#27]|[«2""»]}
<MI 2265a MOVE.B 0x20629,(A7+0x1)> {[#27]|[«2""»]}
<MI 22660 MOVE.B 0x2062a,(A7+0x2)> {[#27]|[«2""»]}
<POP 22666-22668 StackAdj> Δ-4 {[#27]|[«2""»]|[-4-]}
<Lit 0x22668> {[#27]|[«2""»]|[$$…]}
<Pointer.sp 0x22668 4> Δ-4
<Const 0x2266c 0x1.2> Δ-2
<Const 0x2266e 0x3.2> Δ-2
<Call 0x22672 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22674-22676 StackAdj> Δ+8
<Call 0x22676 0x103d8> {[#27]|[«2""»]|[$$…]}
WriteConsoleString(str : String)
<POP 2267c-2267e StackAdj> Δ+8 {}
<POP 2267e-22728 Naked> Σ0 ↓ ←0x2262e
<Blob 0x2267e [22] @> Δ-22 {[«22""»]}
<Blob 0x22690 [2] @> Δ-2 {[«22""»]|[«2""»]}
<Blob 0x22694 [2] @> Δ-2 {[«22""»]|[«2""»]|[«2""»]}
<POP 22698-2269a StackAdj> Δ-8 {[«22""»]|[«2""»]|[«2""»]|[-8-]}
<Lit 0x2269a 21> {[«22""»]|[«2""»]|[«2""»]|[-4-]|[$$Cylinder/Head/Sector_]}
<MI 226a6 MOVE.L D5,(A7)> {[«22""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']}
<POP 226a4-226a6 StackAdj> Δ-8 {[«22""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']|[-8-]}
<Call 0x226a8 0x102e4> {[«22""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']|[-8-]}
Long2String(a : Long) : String
<Lit 0x226aa 2> {[«22""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']|[-4-]|[$$/ ]}
<MI 226b4 MOVE.L (A6-0x4),(A7)> {[«22""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']|[-4-]|[4, '(A6-0x4)']}
<POP 226b2-226b4 StackAdj> Δ-8 {[«22""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']|[-4-]|[4, '(A6-0x4)']|[-8-]}
<Call 0x226b6 0x102e4> {[«22""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']|[-4-]|[4, '(A6-0x4)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x226b8 2> {[«22""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$/ ]}
<MI 226c2 MOVE.L D7,(A7)> {[«22""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']|[-4-]|[4, '(A6-0x4)']|[-4-]|[4, 'D7']}
<POP 226c0-226c2 StackAdj> Δ-8 {[«22""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']|[-4-]|[4, '(A6-0x4)']|[-4-]|[4, 'D7']|[-8-]}
<Call 0x226c4 0x102e4> {[«22""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']|[-4-]|[4, '(A6-0x4)']|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<POP 226c6-226c8 StackAdj> Δ+4 {[«22""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']|[-4-]|[4, '(A6-0x4)']|[-4-]|[4, 'D7']|[-4-]}
<Call 0x226c8 0x102e0> {[«22""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D5']|[-4-]|[4, '(A6-0x4)']|[-4-]|[4, 'D7']|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 226ce-226d0 StackAdj> Δ+24 {[«22""»]|[«2""»]|[«2""»]|[-4-]}
<Call 0x226d0 0x103d8> {[«22""»]|[«2""»]|[«2""»]|[-4-]}
WriteConsoleString(str : String)
<POP 226d6-226d7 StackAdj> Δ+30 ↓ {}
<Blob 0x226d7 [6] @> Δ-6 {[«6""»]}
<POP 226e6-226e8 StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x226e8 5> {[«6""»]|[$$ _]}
<Call 0x226f6 0x103e0> {[«6""»]|[$$ _]}
WriteConsoleStringCrLf(str : String)
<POP 226fc-22700 StackAdj> Δ+10 {}
<MI 22700 MOVEA.L (A6+0xc),A0> {}
<MI 22704 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x22706 0x2203e> {[4, '^(A0)']}
<POP 2270a-2270c StackAdj> Δ+4 {}
<MI 2270c CLR.B 0x2a1a2> {}
<Const 0x22712 0x0.4> Δ-4 {[##0]}
<MI 22716 CLR.B -(A7)> Δ-2 {[##0]|[#0]}
<MI 22718 PEA.L (A0)> Δ-4 {[##0]|[#0]|[4, '^(A0)']}
<MI 2271a MOVEA.L (A6+0x8),A0> {[##0]|[#0]|[4, '^(A0)']}
<MI 2271e PEA.L (A0)> Δ-4 {[##0]|[#0]|[4, '^(A0)']|[4, '^(A0)']}
<Call 0x22720 0x224b2> {[##0]|[#0]|[4, '^(A0)']|[4, '^(A0)']}
<POP 22724-22728 StackAdj> Δ+14 {}
<POP 22728-22730 Epilogue> Σ0
@ 22730
<LVAR 0x008 2(r)>
<LVAR -0x001 1(r)>
<LVAR -0x002 1(r) 2(rw)>
<POP 22730-228ca Body> Δ+66
<POP 22730-22746 Prologue> Σ0 ↓
<POP 22746-22750 RegCacheLoad> Σ0 ↓
<POP 22750-22796 Naked> Σ0 →0x227ae →0x227c2 →0x227d6 →0x227ea →0x227fe →0x22810 →0x22822 →0x22834 →0x22846 →0x22858 →0x2286a →0x2287c
<MI 22750 MOVE.W (A6+0x8),(A6-0x2)> {}
<POP 22754-22756 StackAdj> Δ-8 {[-8-]}
<MI 22756 CLR.L D0> {[-8-]}
<MI 22758 MOVE.B (A6-0x1),D0> {[-8-]}
<MI 2275c LSL.B #0x3,D0> {[-8-]}
<MI 2275e LSR.B #0x3,D0> {[-8-]}
<MI 22760 MOVE.L D0,-(A7)> Δ-4 {[-8-]|[4, 'D0']}
<Call 0x22762 0x102e4> {[-8-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 22768-2276a StackAdj> Δ+4 {[-8-]}
<Const 0x2276a 0x2.4> Δ-4 {[-8-]|[##2]}
<Call 0x2276e 0x102f4> {[-8-]|[##2]}
RightPad(a : String; b : Long) : String
<POP 22774-22776 StackAdj> Δ+8 {[-4-]}
<Call 0x22776 0x103d8> {[-4-]}
WriteConsoleString(str : String)
<POP 22778-2277a StackAdj> Δ+4 {}
<MI 2277a MOVE.W (A6-0x2),D0> {}
<MI 2277c LSL.W #0x7,D0> {}
<MI 2277e LSR.W #0x8,D0> {}
<MI 22780 LSR.W #0x4,D0> {}
<MI 22782 SUBQ.W #0x1,D0> {}
<POP 0x22784 LimitCheck 0x0 ≤ D0 ≤ 0xb> {}
<MI 2278c ADD.W D0,D0> {}
<MI 2278e SWITCH D0.W> {}
<POP 227ae-227c2 Naked> Σ0 Δ-6 →0x2288c ←0x22750
<Blob 0x227ae [6] @> Δ-6 {[«6""»]}
<MI 227be BRA 0x2288c> {[«6""»]}
<POP 227c2-227d6 Naked> Σ0 Δ-6 →0x2288c ←0x22750
<Blob 0x227c2 [6] @> Δ-6 {[«6""»]}
<MI 227d2 BRA 0x2288c> {[«6""»]}
<POP 227d6-227ea Naked> Σ0 Δ-6 →0x2288c ←0x22750
<Blob 0x227d6 [6] @> Δ-6 {[«6""»]}
<MI 227e6 BRA 0x2288c> {[«6""»]}
<POP 227ea-227fe Naked> Σ0 Δ-6 →0x2288c ←0x22750
<Blob 0x227ea [6] @> Δ-6 {[«6""»]}
<MI 227fa BRA 0x2288c> {[«6""»]}
<POP 227fe-22810 Naked> Σ0 Δ-6 →0x2288c ←0x22750
<Blob 0x227fe [6] @> Δ-6 {[«6""»]}
<MI 2280e BRA 0x2288c> {[«6""»]}
<POP 22810-22822 Naked> Σ0 Δ-6 →0x2288c ←0x22750
<Blob 0x22810 [6] @> Δ-6 {[«6""»]}
<MI 22820 BRA 0x2288c> {[«6""»]}
<POP 22822-22834 Naked> Σ0 Δ-6 →0x2288c ←0x22750
<Blob 0x22822 [6] @> Δ-6 {[«6""»]}
<MI 22832 BRA 0x2288c> {[«6""»]}
<POP 22834-22846 Naked> Σ0 Δ-6 →0x2288c ←0x22750
<Blob 0x22834 [6] @> Δ-6 {[«6""»]}
<MI 22844 BRA 0x2288c> {[«6""»]}
<POP 22846-22858 Naked> Σ0 Δ-6 →0x2288c ←0x22750
<Blob 0x22846 [6] @> Δ-6 {[«6""»]}
<MI 22856 BRA 0x2288c> {[«6""»]}
<POP 22858-2286a Naked> Σ0 Δ-6 →0x2288c ←0x22750
<Blob 0x22858 [6] @> Δ-6 {[«6""»]}
<MI 22868 BRA 0x2288c> {[«6""»]}
<POP 2286a-2287c Naked> Σ0 Δ-6 →0x2288c ←0x22750
<Blob 0x2286a [6] @> Δ-6 {[«6""»]}
<MI 2287a BRA 0x2288c> {[«6""»]}
<POP 2287c-2288c Naked> Σ0 Δ-6 ↓ ←0x22750
<Blob 0x2287c [6] @> Δ-6 {[«6""»]}
<POP 2288c-228c2 Naked> Σ-6 Δ+6 ↓ ←0x227ae ←0x227c2 ←0x227d6 ←0x227ea ←0x227fe ←0x22810 ←0x22822 ←0x22834 ←0x22846 ←0x22858 ←0x2286a
<POP 2288c-2288e StackAdj> Δ-4 {[-10-]}
<Lit 0x2288e> {[-6-]|[$$…]}
<Pointer.sp 0x2288e 4> Δ-4
<Const 0x22892 0x1.2> Δ-2
<Const 0x22896 0x5.2> Δ-2
<Call 0x2289a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 228a0-228a2 StackAdj> Δ+8
<Call 0x228a2 0x103d8> {[-6-]|[$$…]}
WriteConsoleString(str : String)
<POP 228a4-228a8 StackAdj> Δ+10 {}
<POP 228a8-228aa StackAdj> Δ-4 {[-4-]}
<MI 228aa CLR.L D0> {[-4-]}
<MI 228ac MOVE.B (A6-0x2),D0> {[-4-]}
<MI 228ae LSR.B #0x1,D0> {[-4-]}
<MI 228b0 ADDQ.W #0x1,D0> {[-4-]}
<MI 228b2 EXTW.L D0> {[-4-]}
<MI 228b4 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<Call 0x228b6 0x102e4> {[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 228bc-228be StackAdj> Δ+4 {[-4-]}
<Call 0x228be 0x103d8> {[-4-]}
WriteConsoleString(str : String)
<POP 228c0-228c2 StackAdj> Δ+4 {}
<POP 228c2-228ca Epilogue> Σ0
@ 228ca
<POP 228ca-22924 Body>
<POP 228ca-228e0 Prologue> Σ0 ↓
<POP 228e0-2291c Naked> Σ0 ↓
<Blob 0x228e0 [46] @> Δ-46 {[«46""»]}
<POP 228ec-228ee StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x228ee 46> {[«46""»]|[$$The drive appears to have been initialized on_]}
<Call 0x22902 0x103d8> {[«46""»]|[$$The drive appears to have been initialized on_]}
WriteConsoleString(str : String)
<POP 22908-2290c StackAdj> Δ+48 {[-2-]}
<MI 2290c MOVE.W (A4+0x4),(A7)> {[2, '(A4+0x4)']}
<Call 0x22910 0x22730> {[2, '(A4+0x4)']}
<POP 22914-22916 StackAdj> Δ+2 {}
<Call 0x22916 0x103dc> {}
WriteConsoleCrLf(void)
<POP 2291c-22924 Epilogue> Σ0
@ 22924
<POP 22924-2299a Body>
<POP 22924-2293a Prologue> Σ0 ↓
<POP 2293a-2296e Naked> Σ0 ↓
<Blob 0x2293a [46] @> Δ-46 {[«46""»]}
<POP 22946-22948 StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x22948 46> {[«46""»]|[$$Multiple initialization date footprints found.]}
<Call 0x2295c 0x103d8> {[«46""»]|[$$Multiple initialization date footprints found.]}
WriteConsoleString(str : String)
<POP 22962-22966 StackAdj> Δ+50 {}
<Call 0x22966 0x103dc> {}
WriteConsoleCrLf(void)
<MI 2296c MOVEQ.L #0x01,D7> {}
<POP 2296e-22992 Naked> Σ0 ↓ →0x2296e ←0x2296e
<MI 2296e MOVE.L D7,D0> {}
<MI 22970 SUBQ.L #0x1,D0> {}
<POP 0x22972 LimitCheck 0x0 ≤ D0 ≤ 0x2> {}
<MI 2297c ASL.L #0x1,D0> {}
<MI 2297e MOVE.W (A4+D0.L+#0x6),-(A7)> Δ-2 {[2, '(A4+D0.L+#0x6)']}
<Call 0x22982 0x228ca> {[2, '(A4+D0.L+#0x6)']}
<POP 22986-22988 StackAdj> Δ+2 {}
<MI 22988 ADDQ.L #0x1,D7> {}
<MI 2298a CMPI.L #0x00000003,D7> {}
<MI 22990 BLE 0x2296e> {}
<POP 22992-2299a Epilogue> Σ0
@ 2299a
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 1(r)>
<LVAR -0x014 @ 2(r)>
<LVAR -0x018 @>
<POP 2299a-22ad8 Body>
<POP 2299a-229b0 Prologue> Σ0 ↓
<POP 229b0-229ba RegCacheLoad> Σ0 ↓
<POP 229ba-229d8 Naked> Σ0 ↓ →0x22ad0
<MI 229ba MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x229be 0x21bee> {[4, '(A6+0x8)']}
<POP 229c2-229c4 StackAdj> Δ+4 {}
<Pointer.fp 0x229c4 <LVAR -0x008 @ 1(r)>> Δ-4 {[@@-8]}
<Call 0x229c6 0x22204> {[@@-8]}
<POP 229ca-229cc StackAdj> Δ+4 {}
<Call 0x229cc 0x103dc> {}
WriteConsoleCrLf(void)
<MI 229d2 TST.B (A6-0x8)> {}
<MI 229d4 BEQ 0x22ad0> {}
<POP 229d8-229dc Naked> Σ0 ↓
<MI 229d8 MOVEQ.L #0x00,D5> {}
<MI 229da MOVEQ.L #0x00,D7> {}
<POP 229dc-22a04 Naked> Σ0 ↓ →0x22a1a ←0x22a4a
<POP 0x229dc LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {}
<MI 229e6 MOVE.L D7,D0> {}
<MI 229e8 ASL.L #0x2,D0> {}
<MI 229ea LEA.L 0x28196,A0> {}
<MI 229f0 MOVE.L (A0+D0.L+#0x8),-(A7)> Δ-4 {[4, '(A0+D0.L+#0x8)']}
<Pointer.fp 0x229f4 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A0+D0.L+#0x8)']|[@@-8]}
<Pointer.fp 0x229f6 <LVAR -0x014 @ 2(r)>> Δ-4 {[4, '(A0+D0.L+#0x8)']|[@@-8]|[@@-20]}
<Call 0x229f8 0x225a4> {[4, '(A0+D0.L+#0x8)']|[@@-8]|[@@-20]}
<POP 229fc-22a00 StackAdj> Δ+12 {}
<MI 22a00 TST.B (A6-0x8)> {}
<MI 22a02 BEQ 0x22a1a> {}
<POP 22a04-22a1a Naked> Σ0 ↓
<MI 22a04 ADDQ.L #0x1,D5> {}
<MI 22a06 MOVE.L D5,D0> {}
<MI 22a08 SUBQ.L #0x1,D0> {}
<POP 0x22a0a LimitCheck 0x0 ≤ D0 ≤ 0x2> {}
<MI 22a14 ASL.L #0x1,D0> {}
<MI 22a16 MOVE.W (A6-0x14),(A6+D0.L-#0x12)> {}
<POP 22a1a-22a34 Naked> Σ0 ↓ →0x22a52 ←0x229dc
<MI 22a1a ADDQ.L #0x1,D7> {}
<POP 0x22a1c LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {}
<MI 22a26 MOVE.L D7,D0> {}
<MI 22a28 ASL.L #0x2,D0> {}
<MI 22a2a LEA.L 0x28196,A0> {}
<MI 22a30 CMP.L #0x03,D5> {}
<MI 22a32 BEQ 0x22a52> {}
<POP 22a34-22a3e Naked> Σ0 ↓ →0x22a4a
<MI 22a34 MOVE.W (A0+D0.L+#0x8),D1> {}
<MI 22a38 LSL.W #0x2,D1> {}
<MI 22a3a LSR.W #0x2,D1> {}
<MI 22a3c BNE 0x22a4a> {}
<POP 22a3e-22a44 Naked> Σ0 ↓ →0x22a4a
<MI 22a3e TST.B (A0+D0.L+#0xa)> {}
<MI 22a42 BNE 0x22a4a> {}
<POP 22a44-22a4a Naked> Σ0 ↓ →0x22a52
<MI 22a44 TST.B (A0+D0.L+#0xb)> {}
<MI 22a48 BEQ 0x22a52> {}
<POP 22a4a-22a52 Naked> Σ0 ↓ →0x229dc ←0x22a34 ←0x22a3e
<MI 22a4a CMPI.L #0x000007ff,D7> {}
<MI 22a50 BLE 0x229dc> {}
<POP 22a52-22a56 Naked> Σ0 ↓ →0x22a9e ←0x22a1a ←0x22a44
<MI 22a52 CMP.L #0x03,D5> {}
<MI 22a54 BNE 0x22a9e> {}
<POP 22a56-22a5a Naked> Σ0 ↓
<MI 22a56 MOVEQ.L #0x01,D6> {}
<MI 22a58 MOVEQ.L #0x01,D0> {}
<POP 22a5a-22a60 Naked> Σ0 ↓ →0x22a7a ←0x22a7a
<MI 22a5a MOVEQ.L #0x00,D1> {}
<MI 22a5c TST.B D6> {}
<MI 22a5e BEQ 0x22a7a> {}
<POP 22a60-22a78 Naked> Σ0 ↓ →0x22a7a
<MI 22a60 MOVE.L D0,D2> {}
<MI 22a62 SUBQ.L #0x1,D2> {}
<POP 0x22a64 LimitCheck 0x0 ≤ D2 ≤ 0x2> {}
<MI 22a6e ASL.L #0x1,D2> {}
<MI 22a70 MOVE.W (A6-0x14),D3> {}
<MI 22a72 CMP.W (A6+D2.L-#0x12),D3> {}
<MI 22a76 BNE 0x22a7a> {}
<POP 22a78-22a7a Naked> Σ0 ↓
<MI 22a78 ADDQ.B #0x1,D1> {}
<POP 22a7a-22a82 Naked> Σ0 ↓ →0x22a5a ←0x22a5a ←0x22a60
<MI 22a7a MOVE.B D1,D6> {}
<MI 22a7c ADDQ.L #0x1,D0> {}
<MI 22a7e CMP.L #0x03,D0> {}
<MI 22a80 BLE 0x22a5a> {}
<POP 22a82-22a86 Naked> Σ0 ↓ →0x22a94
<MI 22a82 TST.B D6> {}
<MI 22a84 BEQ 0x22a94> {}
<POP 22a86-22a94 Naked> Σ0 →0x22a9c
<MI 22a86 MOVE.W (A6-0x14),-(A7)> Δ-2 {[2, '(A6-0x14)']}
<MI 22a88 LEA.L (A6-0x18),A4> {[2, '(A6-0x14)']}
<Call 0x22a8c 0x228ca> {[2, '(A6-0x14)']}
<POP 22a90-22a92 StackAdj> Δ+2 {}
<MI 22a92 BRA 0x22a9c> {}
<POP 22a94-22a9c Naked> Σ0 ↓ ←0x22a82
<MI 22a94 LEA.L (A6-0x18),A4> {}
<Call 0x22a98 0x22924> {}
<POP 22a9c-22a9e Naked> Σ0 →0x22ad0 ←0x22a86
<MI 22a9c BRA 0x22ad0> {}
<POP 22a9e-22ad0 Naked> Σ0 ↓ ←0x22a52
<Blob 0x22a9e [42] @> Δ-42 {[«42""»]}
<POP 22ab0-22ab2 StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x22ab2 41> {[«42""»]|[$$Can't find any date footprint on the disk]}
<Call 0x22ac6 0x103e0> {[«42""»]|[$$Can't find any date footprint on the disk]}
WriteConsoleStringCrLf(str : String)
<POP 22acc-22ad0 StackAdj> Δ+46 {}
<POP 22ad0-22ad8 Epilogue> Σ0 ←0x229ba ←0x22a9c
@ 22ad8
<LVAR 0x00c 1(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(rw)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x00e @ 2(r)>
<LVAR -0x014 @ 1(r)>
<LVAR -0x018 @ 4(r)>
<LVAR -0x01a @ 1(r)>
<LVAR -0x022 4(rw)>
<LVAR -0x026 4(rw)>
<POP 22ad8-22e9a Body> Δ+14
<POP 22ad8-22aee Prologue> Σ0 ↓
<POP 22aee-22b06 RegCacheLoad> Σ0 ↓
<POP 22b06-22bda Naked> Σ0 ↓
<MI 22b06 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x22b0a 0x21bee> {[4, '(A6+0x8)']}
<POP 22b0e-22b10 StackAdj> Δ+4 {}
<Blob 0x22b10 [26] @> Δ-26 {[«26""»]}
<POP 22b1c-22b1e StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x22b1e 26> {[«26""»]|[-4-]|[$$Enter starting cylinder :_]}
<Const 0x22b2c 0x0.4> Δ-4 {[«26""»]|[-4-]|[$$Enter starting cylinder :_]|[##0]}
<MI 22b30 CLR.L D0> {[«26""»]|[-4-]|[$$Enter starting cylinder :_]|[##0]}
<MI 22b32 MOVE.W 0x3b1e6,D0> {[«26""»]|[-4-]|[$$Enter starting cylinder :_]|[##0]}
<MI 22b34 MOVE.L D0,-(A7)> Δ-4 {[«26""»]|[-4-]|[$$Enter starting cylinder :_]|[##0]|[4, 'D0']}
<Call 0x22b36 0x103ec> {[«26""»]|[-4-]|[$$Enter starting cylinder :_]|[##0]|[4, 'D0']}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 22b3c-22b40 StackAdj> Δ+12 {[«26""»]|[-4-]}
<MI 22b40 MOVE.L (A7)+,D5> Δ+4 {[«26""»]}
<POP 22b42-22b46 StackAdj> Δ+26 {}
<MI 22b46 MOVEQ.L #0x00,D7> {}
<Pointer.fp 0x22b48 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x22b4c 0x10304> {[@@-12]}
GetRtc() : TimeStamp
<POP 22b52-22b53 StackAdj> Δ+4 ↓ {}
<Blob 0x22b53 [10] @> Δ-10 {[«10""»]}
<POP 22b62-22b64 StackAdj> Δ-8 {[«10""»]|[-8-]}
<Lit 0x22b64 9> {[«10""»]|[-4-]|[$$Cylinder_]}
<MI 22b6e MOVE.L D5,(A7)> {[«10""»]|[-4-]|[4, 'D5']}
<POP 22b6c-22b6e StackAdj> Δ-8 {[«10""»]|[-4-]|[4, 'D5']|[-8-]}
<Call 0x22b70 0x102e4> {[«10""»]|[-4-]|[4, 'D5']|[-8-]}
Long2String(a : Long) : String
<POP 22b76-22b78 StackAdj> Δ+4 {[«10""»]|[-4-]|[4, 'D5']|[-4-]}
<Call 0x22b78 0x102d0> {[«10""»]|[-4-]|[4, 'D5']|[-4-]}
StringCat2(a, b : String) : String
<POP 22b7e-22b80 StackAdj> Δ+8 {[«10""»]|[-4-]}
<MI 22b80 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«10""»]}
<POP 22b82-22b84 StackAdj> Δ+6 {[-4-]}
<MI 22b84 MOVE.L (A6-0x8),(A7)> {[4, '(A6-0x8)']}
<Const 0x22b86 0xd.2> Δ-2 {[4, '(A6-0x8)']|[#13]}
<Call 0x22b8a 0x102c0> {[4, '(A6-0x8)']|[#13]}
AppendChar(MOD b : String; a : char)
<Call 0x22b90 0x103f8> {[4, '(A6-0x8)']|[#13]}
GetConsoleConfig() : Long
<MI 22b96 MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x22b98 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 22ba2 MOVE.W D0,(A7)> {[2, 'D0']}
<MI 22ba4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[2, 'D0']|[4, '(A6-0x8)']}
<Call 0x22ba6 0x1020a> {[2, 'D0']|[4, '(A6-0x8)']}
KC05_Write_Console_String(port : Word ; str : String)
<POP 22bac-22bae StackAdj> Δ+6 {}
<Pointer.fp 0x22bae <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22bb0 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<MI 22bb6 MOVE.L D5,(A7)> {[4, 'D5']}
<MI 22bb8 MOVE.L D7,-(A7)> Δ-4 {[4, 'D5']|[4, 'D7']}
<Const 0x22bba 0x0.4> Δ-4 {[4, 'D5']|[4, 'D7']|[##0]}
<MI 22bbe CLR.B -(A7)> Δ-2 {[4, 'D5']|[4, 'D7']|[##0]|[#0]}
<Const 0x22bc0 0x2.2> Δ-2 {[4, 'D5']|[4, 'D7']|[##0]|[#0]|[#2]}
<Call 0x22bc4 0x2206c> {[4, 'D5']|[4, 'D7']|[##0]|[#0]|[#2]}
<POP 22bc8-22bca StackAdj> Δ+16 {}
<Pointer.fp 0x22bca <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-20]}
<Call 0x22bce 0x2203e> {[@@-20]}
<POP 22bd2-22bd4 StackAdj> Δ+4 {}
<MI 22bd4 CLR.B 0x2a1a2> {}
<POP 22bda-22bf0 Naked> Σ0 ↓ →0x22c66 ←0x22e6e
<MI 22bda MOVE.L D5,(A6-0x26)> {}
<MI 22bde MOVE.L D7,(A6-0x22)> {}
<MI 22be2 ADDQ.L #0x1,D7> {}
<MI 22be4 CLR.L D0> {}
<MI 22be6 MOVE.B 0x3b1e8,D0> {}
<MI 22bec CMP.L D0,D7> {}
<MI 22bee BCS 0x22c66> {}
<POP 22bf0-22c3c Naked> Σ0 ↓ →0x22c5c
<MI 22bf0 MOVEQ.L #0x00,D7> {}
<MI 22bf2 ADDQ.L #0x1,D5> {}
<Blob 0x22bf4 [10] @> Δ-10 {[«10""»]}
<POP 22c04-22c06 StackAdj> Δ-8 {[«10""»]|[-8-]}
<Lit 0x22c06 9> {[«10""»]|[-4-]|[$$Cylinder_]}
<MI 22c10 MOVE.L D5,(A7)> {[«10""»]|[-4-]|[4, 'D5']}
<POP 22c0e-22c10 StackAdj> Δ-8 {[«10""»]|[-4-]|[4, 'D5']|[-8-]}
<Call 0x22c12 0x102e4> {[«10""»]|[-4-]|[4, 'D5']|[-8-]}
Long2String(a : Long) : String
<POP 22c18-22c1a StackAdj> Δ+4 {[«10""»]|[-4-]|[4, 'D5']|[-4-]}
<Call 0x22c1a 0x102d0> {[«10""»]|[-4-]|[4, 'D5']|[-4-]}
StringCat2(a, b : String) : String
<POP 22c20-22c22 StackAdj> Δ+8 {[«10""»]|[-4-]}
<MI 22c22 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«10""»]}
<POP 22c24-22c26 StackAdj> Δ+6 {[-4-]}
<MI 22c26 MOVE.L (A6-0x8),(A7)> {[4, '(A6-0x8)']}
<Const 0x22c28 0xd.2> Δ-2 {[4, '(A6-0x8)']|[#13]}
<Call 0x22c2c 0x102c0> {[4, '(A6-0x8)']|[#13]}
AppendChar(MOD b : String; a : char)
<POP 22c32-22c34 StackAdj> Δ+6 {}
<MI 22c34 CLR.L D0> {}
<MI 22c36 MOVE.W 0x3b1e6,D0> {}
<MI 22c38 CMP.L D0,D5> {}
<MI 22c3a BCC 0x22c5c> {}
<POP 22c3c-22c5c Naked> Σ0 ↓
<POP 22c3c-22c3e StackAdj> Δ-6 {[-6-]}
<Call 0x22c3e 0x103f8> {[-6-]}
GetConsoleConfig() : Long
<MI 22c44 MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x22c46 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 22c50 MOVE.W D0,(A7)> {[2, 'D0']}
<MI 22c52 MOVE.L (A6-0x8),-(A7)> Δ-4 {[2, 'D0']|[4, '(A6-0x8)']}
<Call 0x22c54 0x1020a> {[2, 'D0']|[4, '(A6-0x8)']}
KC05_Write_Console_String(port : Word ; str : String)
<POP 22c5a-22c5c StackAdj> Δ+6 {}
<POP 22c5c-22c66 Naked> Σ0 ↓ ←0x22bf0
<Pointer.fp 0x22c5c <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22c5e 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22c64-22c66 StackAdj> Δ+4 {}
<POP 22c66-22c6e Naked> Σ0 ↓ →0x22caa ←0x22bda
<MI 22c66 CLR.L D0> {}
<MI 22c68 MOVE.W 0x3b1e6,D0> {}
<MI 22c6a CMP.L D0,D5> {}
<MI 22c6c BCC 0x22caa> {}
<POP 22c6e-22c86 Naked> Σ0 →0x22c8a →0x22c96
<MI 22c6e MOVE.B 0x2a1a2,D0> {}
<MI 22c74 EXTB.W D0> {}
<POP 0x22c76 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 22c7c ADD.W D0,D0> {}
<MI 22c7e SWITCH D0.W> {}
<POP 22c8a-22c96 Naked> Σ0 Δ-14 →0x22ca0 ←0x22c6e
<MI 22c8a MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 22c8c MOVE.L D7,-(A7)> Δ-4 {[4, 'D5']|[4, 'D7']}
<Const 0x22c8e 0x0.4> Δ-4 {[4, 'D5']|[4, 'D7']|[##0]}
<Const 0x22c92 0x1.2> Δ-2 {[4, 'D5']|[4, 'D7']|[##0]|[#1]}
<MI 22c94 BRA 0x22ca0> {[4, 'D5']|[4, 'D7']|[##0]|[#1]}
<POP 22c96-22ca0 Naked> Σ0 Δ-14 ↓ ←0x22c6e
<MI 22c96 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 22c98 MOVE.L D7,-(A7)> Δ-4 {[4, 'D5']|[4, 'D7']}
<Const 0x22c9a 0x0.4> Δ-4 {[4, 'D5']|[4, 'D7']|[##0]}
<MI 22c9e CLR.B -(A7)> Δ-2 {[4, 'D5']|[4, 'D7']|[##0]|[#0]}
<POP 22ca0-22caa Naked> Σ-14 Δ+14 ↓ ←0x22c8a
<Const 0x22ca0 0x2.2> Δ-2 {[-14-]|[#2]}
<Call 0x22ca4 0x2206c> {[-14-]|[#2]}
<POP 22ca8-22caa StackAdj> Δ+16 {}
<POP 22caa-22cb2 Naked> Σ0 ↓ →0x22e2a ←0x22c66
<MI 22caa TST.B (A6-0x14)> {}
<MI 22cae BEQ 0x22e2a> {}
<POP 22cb2-22cbc Naked> Σ0 Δ-4 ↓
<Blob 0x22cb2 [4] 0x3a9c0> Δ-4 {[«4»]}
<MI 22cb8 SUBQ.L #0x1,(A7)> {[-4-]}
<MI 22cba MOVEQ.L #0x00,D6> {[-4-]}
<POP 22cbc-22cc2 Naked> Σ-4 ↓ →0x22e28 ←0x22e22
<MI 22cbc CMP.L (A7),D6> {[-4-]}
<MI 22cbe BGT 0x22e28> {[-4-]}
<POP 22cc2-22ce0 Naked> Σ-4 ↓ →0x22e22
<MI 22cc2 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<MI 22cc4 MOVE.B (A6+0xc),-(A7)> Δ-2 {[-4-]|[4, 'D6']|[2, '(A6+0xc)']}
<Pointer.fp 0x22cc8 <LVAR -0x01a @ 1(r)>> Δ-4 {[-4-]|[4, 'D6']|[2, '(A6+0xc)']|[@@-26]}
<Pointer.fp 0x22ccc <LVAR -0x00e @ 2(r)>> Δ-4 {[-4-]|[4, 'D6']|[2, '(A6+0xc)']|[@@-26]|[@@-14]}
<Call 0x22cd0 0x223c0> {[-4-]|[4, 'D6']|[2, '(A6+0xc)']|[@@-26]|[@@-14]}
<POP 22cd4-22cd8 StackAdj> Δ+14 {[-4-]}
<MI 22cd8 TST.B (A6-0x1a)> {[-4-]}
<MI 22cdc BEQ 0x22e22> {[-4-]}
<POP 22ce0-22dee Naked> Σ-4 ↓ →0x22e1c
<Blob 0x22ce0 [10] @> Δ-10 {[-4-]|[«10""»]}
<Blob 0x22cec [10] @> Δ-10 {[-4-]|[«10""»]|[«10""»]}
<Blob 0x22cfc [10] @> Δ-10 {[-4-]|[«10""»]|[«10""»]|[«10""»]}
<POP 22d08-22d0a StackAdj> Δ-8 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-8-]}
<Lit 0x22d0a 10> {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]}
<MI 22d14 MOVE.L (A6-0x26),-(A7)> Δ-4 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']}
<POP 22d12-22d14 StackAdj> Δ-8 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[-8-]}
<Call 0x22d18 0x102e4> {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[-8-]}
Long2String(a : Long) : String
<POP 22d1e-22d20 StackAdj> Δ+4 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[-4-]}
<Const 0x22d20 0x4.4> Δ-4 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[-4-]|[##4]}
<Call 0x22d24 0x102f4> {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[-4-]|[##4]}
RightPad(a : String; b : Long) : String
<POP 22d2a-22d2c StackAdj> Δ+4 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[-4-]}
<Lit 0x22d2c 9> {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]}
<MI 22d36 MOVE.L (A6-0x22),-(A7)> Δ-4 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']}
<POP 22d34-22d36 StackAdj> Δ-8 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[-8-]}
<Call 0x22d3a 0x102e4> {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[-8-]}
Long2String(a : Long) : String
<POP 22d40-22d42 StackAdj> Δ+4 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[-4-]}
<Const 0x22d42 0x2.4> Δ-4 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[-4-]|[##2]}
<Call 0x22d46 0x102f4> {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[-4-]|[##2]}
RightPad(a : String; b : Long) : String
<POP 22d4c-22d4e StackAdj> Δ+4 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[-4-]}
<Lit 0x22d4e 10> {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[$$, sector _]}
<MI 22d58 MOVE.L D6,D0> {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[$$, sector _]}
<POP 22d56-22d58 StackAdj> Δ-8 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[$$, sector _]|[-8-]}
<MI 22d5a ASL.L #0x1,D0> {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[$$, sector _]|[-8-]}
<MI 22d5c MOVE.L D0,-(A7)> Δ-4 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[$$, sector _]|[-8-]|[4, 'D0']}
<Call 0x22d5e 0x102e4> {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[$$, sector _]|[-8-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 22d64-22d66 StackAdj> Δ+4 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[$$, sector _]|[-8-]}
<Const 0x22d66 0x2.4> Δ-4 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[$$, sector _]|[-8-]|[##2]}
<Call 0x22d6a 0x102f4> {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[$$, sector _]|[-8-]|[##2]}
RightPad(a : String; b : Long) : String
<POP 22d70-22d72 StackAdj> Δ+8 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[$$, sector _]|[-4-]}
<Call 0x22d72 0x102e0> {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]|[$$Cylinder _]|[4, '(A6-0x26)']|[$$, track _]|[4, '(A6-0x22)']|[$$, sector _]|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 22d78-22d7c StackAdj> Δ+24 {[-4-]|[«10""»]|[«10""»]|[«10""»]|[-4-]}
<MI 22d7c MOVE.L (A7)+,(A6-0x8)> Δ+4 {[-4-]|[«10""»]|[«10""»]|[«10""»]}
<POP 22d7e-22d7f StackAdj> Δ+30 ↓ {[-4-]}
<Blob 0x22d7f [12] @> Δ-12 {[-4-]|[«12""»]}
<Blob 0x22d90 [8] @> Δ-8 {[-4-]|[«12""»]|[«8""»]}
<POP 22da0-22da2 StackAdj> Δ-4 {[-4-]|[«12""»]|[«8""»]|[-4-]}
<MI 22da2 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[«12""»]|[«8""»]|[-4-]|[4, '(A6-0x8)']}
<POP 22da4-22da6 StackAdj> Δ-4 {[-4-]|[«12""»]|[«8""»]|[-4-]|[4, '(A6-0x8)']|[-4-]}
<Lit 0x22da6 11> {[-4-]|[«12""»]|[«8""»]|[-4-]|[4, '(A6-0x8)']|[$$, pattern _]}
<POP 22db2-22db4 StackAdj> Δ-4 {[-4-]|[«12""»]|[«8""»]|[-4-]|[4, '(A6-0x8)']|[$$, pattern _]|[-4-]}
<MI 22db4 CLR.L D0> {[-4-]|[«12""»]|[«8""»]|[-4-]|[4, '(A6-0x8)']|[$$, pattern _]|[-4-]}
<MI 22db6 MOVE.W (A6-0xe),D0> {[-4-]|[«12""»]|[«8""»]|[-4-]|[4, '(A6-0x8)']|[$$, pattern _]|[-4-]}
<MI 22dba MOVE.L D0,-(A7)> Δ-4 {[-4-]|[«12""»]|[«8""»]|[-4-]|[4, '(A6-0x8)']|[$$, pattern _]|[-4-]|[4, 'D0']}
<Const 0x22dbc 0x4.4> Δ-4 {[-4-]|[«12""»]|[«8""»]|[-4-]|[4, '(A6-0x8)']|[$$, pattern _]|[-4-]|[4, 'D0']|[##4]}
<Call 0x22dc0 0x102e8> {[-4-]|[«12""»]|[«8""»]|[-4-]|[4, '(A6-0x8)']|[$$, pattern _]|[-4-]|[4, 'D0']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 22dc6-22dc8 StackAdj> Δ+4 {[-4-]|[«12""»]|[«8""»]|[-4-]|[4, '(A6-0x8)']|[$$, pattern _]|[-4-]|[4, 'D0']}
<Lit 0x22dc8 7> {[-4-]|[«12""»]|[«8""»]|[-4-]|[4, '(A6-0x8)']|[$$, pattern _]|[-4-]|[$$ <= hit]}
<Call 0x22dd6 0x102d8> {[-4-]|[«12""»]|[«8""»]|[-4-]|[4, '(A6-0x8)']|[$$, pattern _]|[-4-]|[$$ <= hit]}
StringCat4(a, b, c, d : String) : String
<POP 22ddc-22dde StackAdj> Δ+16 {[-4-]|[«12""»]|[«8""»]|[-4-]}
<Call 0x22dde 0x103d8> {[-4-]|[«12""»]|[«8""»]|[-4-]}
WriteConsoleString(str : String)
<POP 22de4-22de8 StackAdj> Δ+24 {[-4-]}
<MI 22de8 TST.B (A6+0xc)> {[-4-]}
<MI 22dec BNE 0x22e1c> {[-4-]}
<POP 22dee-22e1c Naked> Σ-4 ↓
<Blob 0x22dee [10] @> Δ-10 {[-4-]|[«10""»]}
<POP 22dfa-22dfc StackAdj> Δ-4 {[-4-]|[«10""»]|[-4-]}
<Lit 0x22dfc 10> {[-4-]|[«10""»]|[$$, date =>_]}
<Call 0x22e08 0x103d8> {[-4-]|[«10""»]|[$$, date =>_]}
WriteConsoleString(str : String)
<POP 22e0e-22e12 StackAdj> Δ+12 {[-4-]|[-2-]}
<MI 22e12 MOVE.W (A6-0xe),(A7)> {[-4-]|[2, '(A6-0xe)']}
<Call 0x22e16 0x22730> {[-4-]|[2, '(A6-0xe)']}
<POP 22e1a-22e1c StackAdj> Δ+2 {[-4-]}
<POP 22e1c-22e22 Naked> Σ-4 ↓ ←0x22ce0
<Call 0x22e1c 0x103dc> {[-4-]}
WriteConsoleCrLf(void)
<POP 22e22-22e28 Naked> Σ-4 ↓ →0x22cbc ←0x22cc2
<MI 22e22 ADDQ.L #0x1,D6> {[-4-]}
<MI 22e24 BVC 0x22cbc> {[-4-]}
<POP 22e28-22e2a Naked> Σ-4 Δ+4 ↓ ←0x22cbc
<POP 22e28-22e2a StackAdj> Δ+4 {}
<POP 22e2a-22e32 Naked> Σ0 ↓ →0x22e3c ←0x22caa
<MI 22e2a CLR.L D0> {}
<MI 22e2c MOVE.W 0x3b1e6,D0> {}
<MI 22e2e CMP.L D0,D5> {}
<MI 22e30 BCC 0x22e3c> {}
<POP 22e32-22e3c Naked> Σ0 ↓
<Pointer.fp 0x22e32 <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-20]}
<Call 0x22e36 0x2203e> {[@@-20]}
<POP 22e3a-22e3c StackAdj> Δ+4 {}
<POP 22e3c-22e54 Naked> Σ0 →0x22e58 →0x22e60 ←0x22e2a
<MI 22e3c MOVE.B 0x2a1a2,D0> {}
<MI 22e42 EXTB.W D0> {}
<POP 0x22e44 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 22e4a ADD.W D0,D0> {}
<MI 22e4c SWITCH D0.W> {}
<POP 22e58-22e60 Naked> Σ0 →0x22e66 ←0x22e3c
<MI 22e58 MOVE.B #0x01,0x2a1a2> {}
<MI 22e5e BRA 0x22e66> {}
<POP 22e60-22e66 Naked> Σ0 ↓ ←0x22e3c
<MI 22e60 CLR.B 0x2a1a2> {}
<POP 22e66-22e6e Naked> Σ0 ↓ →0x22e7a ←0x22e58
<MI 22e66 CLR.L D0> {}
<MI 22e68 MOVE.W 0x3b1e6,D0> {}
<MI 22e6a CMP.L D0,D5> {}
<MI 22e6c BCC 0x22e7a> {}
<POP 22e6e-22e7a Naked> Σ0 ↓ →0x22bda
<POP 22e6e-22e70 StackAdj> Δ-2 {[-2-]}
<Call 0x22e70 0x221b8> {[-2-]}
<MI 22e74 TST.B (A7)+> Δ+2 {}
<MI 22e76 BEQ 0x22bda> {}
<POP 22e7a-22e92 Naked> Σ0 ↓ ←0x22e66
<Pointer.fp 0x22e7a <LVAR -0x018 @ 4(r)>> Δ-4 {[@@-24]}
<Call 0x22e7e 0x10304> {[@@-24]}
GetRtc() : TimeStamp
<MI 22e84 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<MI 22e88 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0xc)']|[4, '(A6-0x18)']}
<Call 0x22e8c 0x21ac4> {[4, '(A6-0xc)']|[4, '(A6-0x18)']}
<POP 22e90-22e92 StackAdj> Δ+8 {}
<POP 22e92-22e9a Epilogue> Σ0
@ 22e9a
<POP 22e9a-22fe8 Body>
<POP 22e9a-22eb0 Prologue> Σ0 ↓
<POP 22eb0-22ec8 RegCacheLoad> Σ0 ↓
<POP 22ec8-22eee Naked> Σ0 ↓
<MI 22ec8 MOVEQ.L #0x05,D6> {}
<Blob 0x22eca [14] @> Δ-14 {[«14""»]}
<POP 22eda-22edc StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x22edc 13> {[«14""»]|[$$Module =_]}
<Call 0x22ee8 0x103d8> {[«14""»]|[$$Module =_]}
WriteConsoleString(str : String)
<POP 22eea-22eec StackAdj> Δ+18 {}
<MI 22eec MOVEQ.L #0x01,D7> {}
<POP 22eee-22f0a Naked> Σ0 ↓ →0x22f9e ←0x22fc0
<MI 22eee MOVE.L D6,D0> {}
<MI 22ef0 SUBQ.L #0x1,D0> {}
<POP 0x22ef2 LimitCheck 0x0 ≤ D0 ≤ 0x24> {}
<MI 22efc LEA.L 0x2010a,A0> {}
<MI 22efe MOVE.B (A0+D0.L),D1> {}
<MI 22f02 CMPI.B #0x2c,D1> {}
<MI 22f06 BNE 0x22f9e> {}
<POP 22f0a-22f28 Naked> Σ0 →0x22f2e →0x22f54 →0x22f7a
<Call 0x22f0a 0x103dc> {}
WriteConsoleCrLf(void)
<MI 22f10 MOVE.B D7,D0> {}
<MI 22f12 EXTB.W D0> {}
<MI 22f14 SUBQ.W #0x1,D0> {}
<POP 0x22f16 LimitCheck 0x0 ≤ D0 ≤ 0x2> {}
<MI 22f1e ADD.W D0,D0> {}
<MI 22f20 SWITCH D0.W> {}
<POP 22f2e-22f54 Naked> Σ0 →0x22f9c ←0x22f0a
<Blob 0x22f2e [14] @> Δ-14 {[«14""»]}
<POP 22f3e-22f40 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x22f40 13> {[«14""»]|[$$ Version =_]}
<Call 0x22f4c 0x103d8> {[«14""»]|[$$ Version =_]}
WriteConsoleString(str : String)
<POP 22f4e-22f50 StackAdj> Δ+18 {}
<MI 22f50 MOVEQ.L #0x02,D7> {}
<MI 22f52 BRA 0x22f9c> {}
<POP 22f54-22f7a Naked> Σ0 →0x22f9c ←0x22f0a
<Blob 0x22f54 [14] @> Δ-14 {[«14""»]}
<POP 22f64-22f66 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x22f66 13> {[«14""»]|[$$ Date =_]}
<Call 0x22f72 0x103d8> {[«14""»]|[$$ Date =_]}
WriteConsoleString(str : String)
<POP 22f74-22f76 StackAdj> Δ+18 {}
<MI 22f76 MOVEQ.L #0x03,D7> {}
<MI 22f78 BRA 0x22f9c> {}
<POP 22f7a-22f9c Naked> Σ0 ↓ ←0x22f0a
<Blob 0x22f7a [14] @> Δ-14 {[«14""»]}
<POP 22f8a-22f8c StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x22f8c 13> {[«14""»]|[$$ Time =_]}
<Call 0x22f98 0x103d8> {[«14""»]|[$$ Time =_]}
WriteConsoleString(str : String)
<POP 22f9a-22f9c StackAdj> Δ+18 {}
<POP 22f9c-22f9e Naked> Σ0 →0x22fc0 ←0x22f2e ←0x22f54
<MI 22f9c BRA 0x22fc0> {}
<POP 22f9e-22faa Naked> Σ0 ↓ →0x22fb2 ←0x22eee
<MI 22f9e LEA.L 0x2010a,A0> {}
<MI 22fa0 MOVE.B (A0+D0.L),D1> {}
<MI 22fa4 CMPI.B #0x5c,D1> {}
<MI 22fa8 BNE 0x22fb2> {}
<POP 22faa-22fb2 Naked> Σ0 →0x22fc0
<Call 0x22faa 0x103dc> {}
WriteConsoleCrLf(void)
<MI 22fb0 BRA 0x22fc0> {}
<POP 22fb2-22fc0 Naked> Σ0 ↓ ←0x22f9e
<MI 22fb2 LEA.L 0x2010a,A0> {}
<MI 22fb4 MOVE.B (A0+D0.L),-(A7)> Δ-2 {[2, '(A0+D0.L)']}
<Call 0x22fb8 0x103d0> {[2, '(A0+D0.L)']}
WriteConsoleChar(chr : char)
<POP 22fbe-22fc0 StackAdj> Δ+2 {}
<POP 22fc0-22fe0 Naked> Σ0 ↓ →0x22eee ←0x22f9c ←0x22faa
<MI 22fc0 ADDQ.L #0x1,D6> {}
<MI 22fc2 MOVE.L D6,D0> {}
<MI 22fc4 SUBQ.L #0x1,D0> {}
<MI 22fc6 SUBQ.L #0x1,D0> {}
<POP 0x22fc8 LimitCheck 0x0 ≤ D0 ≤ 0x24> {}
<MI 22fd2 LEA.L 0x2010a,A0> {}
<MI 22fd4 MOVE.B (A0+D0.L),D0> {}
<MI 22fd8 CMPI.B #0x5c,D0> {}
<MI 22fdc BNE 0x22eee> {}
<POP 22fe0-22fe8 Epilogue> Σ0
@ 22fe8
<LVAR -0x00a @ 4(rw)>
<LVAR -0x010 @ 1(r)>
<LVAR -0x014 @ 4(r)>
<POP 22fe8-23170 Body>
<POP 22fe8-22ffe Prologue> Σ0 ↓
<POP 22ffe-2300e RegCacheLoad> Σ0 ↓
<POP 2300e-23090 Naked> Σ0 ↓ →0x230a2
<Blob 0x2300e [62] @> Δ-62 {[«62""»]}
<POP 2301e-23020 StackAdj> Δ-8 {[«62""»]|[-8-]}
<Lit 0x23020 61> {[«62""»]|[-4-]|[$$Enter unit number of disk with DFS to write defect info to :_]}
<Const 0x2302e 0x0.4> Δ-4 {[«62""»]|[-4-]|[$$Enter unit number of disk with DFS to write defect info to :_]|[##0]}
<Const 0x23032 0xf.4> Δ-4 {[«62""»]|[-4-]|[$$Enter unit number of disk with DFS to write defect info to :_]|[##0]|[##15]}
<Call 0x23036 0x103ec> {[«62""»]|[-4-]|[$$Enter unit number of disk with DFS to write defect info to :_]|[##0]|[##15]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 2303c-23040 StackAdj> Δ+12 {[«62""»]|[-4-]}
<MI 23040 MOVE.L (A7)+,D0> Δ+4 {[«62""»]}
<POP 0x23042 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[«62""»]}
<POP 2304c-2304e StackAdj> Δ+62 {}
<MI 2304e MOVE.W D0,D6> {}
<Blob 0x23050 [30] 0x3ae18> Δ-30 {[«30»]}
<POP 2305e-23060 StackAdj> Δ-8 {[«30»]|[-8-]}
<Lit 0x23060> {[«30»]|[-4-]|[$$…]}
<Pointer.sp 0x23060 8> Δ-4
<Const 0x23064 0x1.2> Δ-2
<Const 0x23066 0x1e.2> Δ-2
<Call 0x2306a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2306c-2306e StackAdj> Δ+8
<Call 0x2306e 0x102f0> {[«30»]|[-4-]|[$$…]}
ToUpper(a : String) : String
<POP 23074-23076 StackAdj> Δ+4 {[«30»]|[-4-]}
<MI 23076 MOVEA.L (A7)+,A4> Δ+4 {[«30»]}
<POP 23078-2307c StackAdj> Δ+30 {}
<POP 0x2307c LimitCheck 0x0 ≤ D6 ≤ 0xf> {}
<MI 23080 MOVE.W D6,-(A7)> Δ-2 {[2, 'D6']}
<Pointer.fp 0x23082 <LVAR -0x010 @ 1(r)>> Δ-4 {[2, 'D6']|[@@-16]}
<Call 0x23084 0x10394> {[2, 'D6']|[@@-16]}
MountDisk(drive : Word ; VAR status : Byte)
<POP 2308a-2308c StackAdj> Δ+6 {}
<MI 2308c TST.B (A6-0x10)> {}
<MI 2308e BEQ 0x230a2> {}
<POP 23090-230a2 Naked> Σ0 ↓
<POP 23090-23092 StackAdj> Δ-4 {[-4-]}
<MI 23092 MOVE.B (A6-0x10),-(A7)> Δ-2 {[-4-]|[2, '(A6-0x10)']}
<Call 0x23094 0x103a0> {[-4-]|[2, '(A6-0x10)']}
FsErrMsgStr(err: Byte) : String
<POP 2309a-2309c StackAdj> Δ+2 {[-4-]}
<Call 0x2309c 0x20c8c> {[-4-]}
<POP 230a0-230a2 StackAdj> Δ+4 {}
<POP 230a2-230ee Naked> Σ0 ↓ ←0x2300e
<Blob 0x230a2 [4] @> Δ-4 {[«4""»]}
<Blob 0x230a6 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 230aa-230ac StackAdj> Δ-8 {[«4""»]|[«4""»]|[-8-]}
<MI 230ac MOVE.L A4,-(A7)> Δ-4 {[«4""»]|[«4""»]|[-8-]|[4, 'A4']}
<Call 0x230ae 0x102cc> {[«4""»]|[«4""»]|[-8-]|[4, 'A4']}
StringDup(a : String) : String
<Lit 0x230b4 8> {[«4""»]|[«4""»]|[-8-]|[$$.DEFECTS]}
<Call 0x230c2 0x102d0> {[«4""»]|[«4""»]|[-8-]|[$$.DEFECTS]}
StringCat2(a, b : String) : String
<POP 230c8-230ca StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 230ca MOVE.L (A7)+,(A6-0xa)> Δ+4 {[«4""»]|[«4""»]}
<POP 230ce-230d0 StackAdj> Δ+4 {[«4""»]}
<MI 230d0 MOVE.L (A6-0xa),(A7)> {[4, '(A6-0xa)']}
<Const 0x230d4 0x1.2> Δ-2 {[4, '(A6-0xa)']|[#1]}
<Const 0x230d6 0x2.2> Δ-2 {[4, '(A6-0xa)']|[#1]|[#2]}
<Const 0x230d8 0x8.4> Δ-4 {[4, '(A6-0xa)']|[#1]|[#2]|[##8]}
<Pointer.fp 0x230dc <LVAR -0x010 @ 1(r)>> Δ-4 {[4, '(A6-0xa)']|[#1]|[#2]|[##8]|[@@-16]}
<Pointer.fp 0x230de <LVAR -0x014 @ 4(r)>> Δ-4 {[4, '(A6-0xa)']|[#1]|[#2]|[##8]|[@@-16]|[@@-20]}
<Call 0x230e2 0x10380> {[4, '(A6-0xa)']|[#1]|[#2]|[##8]|[@@-16]|[@@-20]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 230e8-230ec StackAdj> Δ+20 {}
<MI 230ec MOVEQ.L #0x00,D7> {}
<POP 230ee-23144 Naked> Σ0 ↓ →0x230ee ←0x230ee
<MI 230ee MOVE.L #0x100,D4> {}
<MI 230f4 MOVE.L D7,D3> {}
<Call 0x230f6 0x1028c> {}
?muls_d3_d4
<MI 230fc MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, '(A6-0x14)']}
<POP 0x23100 LimitCheck 0x0 ≤ D7 ≤ 0x4000> {[4, '(A6-0x14)']}
<MI 2310a MOVE.W D7,-(A7)> Δ-2 {[4, '(A6-0x14)']|[2, 'D7']}
<MI 2310c CLR.W -(A7)> Δ-2 {[4, '(A6-0x14)']|[2, 'D7']|[#0]}
<Const 0x2310e 0x200.2> Δ-2 {[4, '(A6-0x14)']|[2, 'D7']|[#0]|[#512]}
<Const 0x23112 0x2.2> Δ-2 {[4, '(A6-0x14)']|[2, 'D7']|[#0]|[#512]|[#2]}
<POP 0x23114 LimitCheck 0x0 ≤ D4 ≤ 0x7ff> {[4, '(A6-0x14)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 2311e MOVE.L D4,D0> {[4, '(A6-0x14)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 23120 ASL.L #0x2,D0> {[4, '(A6-0x14)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 23122 LEA.L 0x28196,A0> {[4, '(A6-0x14)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 23128 LEA.L (A0+D0.L+#0x8),A0> {[4, '(A6-0x14)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 2312c MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0x14)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x2312e <LVAR -0x010 @ 1(r)>> Δ-4 {[4, '(A6-0x14)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-16]}
<Call 0x23130 0x10388> {[4, '(A6-0x14)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-16]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 23136-2313a StackAdj> Δ+20 {}
<MI 2313a ADDQ.L #0x1,D7> {}
<MI 2313c CMPI.L #0x00000007,D7> {}
<MI 23142 BLE 0x230ee> {}
<POP 23144-23168 Naked> Σ0 ↓
<MI 23144 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x23146 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x23148 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x2314c <LVAR -0x010 @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-16]}
<Pointer.fp 0x2314e <LVAR -0x014 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-16]|[@@-20]}
<Call 0x23152 0x1038c> {[#0]|[#2]|[##1]|[@@-16]|[@@-20]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 23158-2315c StackAdj> Δ+16 {}
<Pointer.fp 0x2315c <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x23160 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 23166-23168 StackAdj> Δ+4 {}
<POP 23168-23170 Epilogue> Σ0
@ 23170
<LVAR -0x010 @ 4(r)>
<LVAR -0x02c 2(w)>
<LVAR -0x030 4(w)>
<LVAR -0x031 1(r)>
<LVAR -0x032 1(r)>
<LVAR -0x034 2(w)>
<LVAR -0x036 2(w)>
<LVAR -0x054 @>
<LVAR -0x056 @ 1(r)>
<POP 23170-23474 Body>
<POP 23170-23186 Prologue> Σ0 ↓
<POP 23186-2318e RegCacheLoad> Σ0 ↓
<POP 2318e-2321a Naked> Σ0 ↓ →0x2324c
<Blob 0x2318e [30] 0x3ae18> Δ-30 {[«30»]}
<POP 2319c-2319e StackAdj> Δ-8 {[«30»]|[-8-]}
<Lit 0x2319e> {[«30»]|[-4-]|[$$…]}
<Pointer.sp 0x2319e 8> Δ-4
<Const 0x231a2 0x1.2> Δ-2
<Const 0x231a4 0x1e.2> Δ-2
<Call 0x231a8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 231ae-231b0 StackAdj> Δ+8
<Call 0x231b0 0x102f0> {[«30»]|[-4-]|[$$…]}
ToUpper(a : String) : String
<POP 231b6-231b8 StackAdj> Δ+4 {[«30»]|[-4-]}
<MI 231b8 MOVEA.L (A7)+,A3> Δ+4 {[«30»]}
<POP 231ba-231bb StackAdj> Δ+30 ↓ {}
<Blob 0x231bb [32] @> Δ-32 {[«32""»]}
<POP 231ca-231cc StackAdj> Δ-8 {[«32""»]|[-8-]}
<Lit 0x231cc 31> {[«32""»]|[-4-]|[$$Enter tape drive unit number :_]}
<Const 0x231de 0x0.4> Δ-4 {[«32""»]|[-4-]|[$$Enter tape drive unit number :_]|[##0]}
<Const 0x231e2 0x3.4> Δ-4 {[«32""»]|[-4-]|[$$Enter tape drive unit number :_]|[##0]|[##3]}
<Call 0x231e6 0x103ec> {[«32""»]|[-4-]|[$$Enter tape drive unit number :_]|[##0]|[##3]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 231ec-231f0 StackAdj> Δ+12 {[«32""»]|[-4-]}
<MI 231f0 MOVE.L (A7)+,D0> Δ+4 {[«32""»]}
<POP 0x231f2 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[«32""»]}
<POP 231fc-23200 StackAdj> Δ+32 {}
<MI 23200 MOVE.W D0,D6> {}
<POP 0x23202 LimitCheck 0x0 ≤ D6 ≤ 0x3> {}
<MI 23206 MOVE.W D6,-(A7)> Δ-2 {[2, 'D6']}
<Const 0x23208 0x1.2> Δ-2 {[2, 'D6']|[#1]}
<Const 0x2320a 0x1.2> Δ-2 {[2, 'D6']|[#1]|[#1]}
<Pointer.fp 0x2320c <LVAR -0x056 @ 1(r)>> Δ-4 {[2, 'D6']|[#1]|[#1]|[@@-86]}
<Call 0x2320e 0x1040c> {[2, 'D6']|[#1]|[#1]|[@@-86]}
FSCALL_1040c
<POP 23214-23216 StackAdj> Δ+10 {}
<MI 23216 TST.B (A6-0x56)> {}
<MI 23218 BEQ 0x2324c> {}
<POP 2321a-2324c Naked> Σ0 ↓
<Const 0x2321a 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2321c <LVAR -0x056 @ 1(r)>> Δ-4 {[#1]|[@@-86]}
<Call 0x2321e 0x10428> {[#1]|[@@-86]}
FSCALL_10428
<POP 23224-23226 StackAdj> Δ+6 {}
<Blob 0x23226 [10] @> Δ-10 {[«10""»]}
<POP 23232-23234 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x23234 10> {[«10""»]|[$$tape_error]}
<Call 0x23244 0x20c8c> {[«10""»]|[$$tape_error]}
<POP 23248-2324c StackAdj> Δ+14 {}
<POP 2324c-2327a Naked> Σ0 ↓ ←0x2318e
<Blob 0x2324c [4] @> Δ-4 {[«4""»]}
<Blob 0x23250 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 23254-23256 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<MI 23256 MOVE.L A3,-(A7)> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, 'A3']}
<POP 23258-2325a StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, 'A3']|[-4-]}
<Lit 0x2325a 8> {[«4""»]|[«4""»]|[-4-]|[4, 'A3']|[$$.DEFECTS]}
<Call 0x2326c 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, 'A3']|[$$.DEFECTS]}
StringCat2(a, b : String) : String
<POP 23272-23274 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 23274 MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]}
<POP 23276-23278 StackAdj> Δ+8 {}
<MI 23278 MOVEQ.L #0x01,D7> {}
<POP 2327a-23282 Naked> Σ0 ↓ →0x23296 ←0x232b8
<MI 2327a MOVE.W (A4),D0> {}
<MI 2327c EXTW.L D0> {}
<MI 2327e CMP.L D0,D7> {}
<MI 23280 BLE 0x23296> {}
<POP 23282-23296 Naked> Σ0 →0x232b8
<MI 23282 MOVE.L D7,D0> {}
<MI 23284 SUBQ.L #0x1,D0> {}
<POP 0x23286 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 23290 CLR.B (A6+D0.L-#0x54)> {}
<MI 23294 BRA 0x232b8> {}
<POP 23296-232b8 Naked> Σ0 ↓ ←0x2327a
<MI 23296 MOVE.L D7,D0> {}
<MI 23298 SUBQ.L #0x1,D0> {}
<POP 0x2329a LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 232a4 MOVE.L D7,D1> {}
<MI 232a6 SUBQ.L #0x1,D1> {}
<POP 0x232a8 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 232b2 MOVE.B (A4+D1.L+#0x2),(A6+D0.L-#0x54)> {}
<POP 232b8-232c2 Naked> Σ0 ↓ →0x2327a ←0x23282
<MI 232b8 ADDQ.L #0x1,D7> {}
<MI 232ba CMPI.L #0x0000001e,D7> {}
<MI 232c0 BLE 0x2327a> {}
<POP 232c2-2330c Naked> Σ0 ↓ →0x23342
<MI 232c2 MOVE.W #0x8,(A6-0x36)> {}
<MI 232c8 MOVE.W #0x400,(A6-0x34)> {}
<MI 232ce CLR.B (A6-0x31)> {}
<MI 232d2 CLR.B (A6-0x32)> {}
<Pointer.fp 0x232d6 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Call 0x232da 0x10304> {[@@-16]}
GetRtc() : TimeStamp
<POP 232e0-232e2 StackAdj> Δ+4 {}
<MI 232e2 MOVE.L (A6-0x10),(A6-0x30)> {}
<MI 232e8 MOVE.W #0x01,(A6-0x2c)> {}
<MI 232ec LEA.L (A6-0x54),A0> {}
<MI 232f0 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x232f2 0x40.2> Δ-2 {[4, 'A0']|[#64]}
<Call 0x232f6 0x1041c> {[4, 'A0']|[#64]}
FSCALL_1041c
<POP 232fc-232fe StackAdj> Δ+6 {}
<Pointer.fp 0x232fe <LVAR -0x056 @ 1(r)>> Δ-4 {[@@-86]}
<Call 0x23300 0x10408> {[@@-86]}
FSCALL_10408
<POP 23306-23308 StackAdj> Δ+4 {}
<MI 23308 TST.B (A6-0x56)> {}
<MI 2330a BEQ 0x23342> {}
<POP 2330c-2331c Naked> Σ0 ↓ →0x23342
<Const 0x2330c 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2330e <LVAR -0x056 @ 1(r)>> Δ-4 {[#1]|[@@-86]}
<Call 0x23310 0x10428> {[#1]|[@@-86]}
FSCALL_10428
<POP 23316-23318 StackAdj> Δ+6 {}
<MI 23318 TST.B (A6-0x56)> {}
<MI 2331a BEQ 0x23342> {}
<POP 2331c-23342 Naked> Σ0 ↓
<Blob 0x2331c [10] @> Δ-10 {[«10""»]}
<POP 23328-2332a StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x2332a 10> {[«10""»]|[$$TAPE ERROR]}
<Call 0x2333a 0x20c8c> {[«10""»]|[$$TAPE ERROR]}
<POP 2333e-23342 StackAdj> Δ+14 {}
<POP 23342-23344 Naked> Σ0 ↓ ←0x232c2 ←0x2330c
<MI 23342 MOVEQ.L #0x00,D7> {}
<POP 23344-23386 Naked> Σ0 ↓ →0x233bc ←0x233bc
<MI 23344 MOVE.L #0x100,D4> {}
<MI 2334a MOVE.L D7,D3> {}
<Call 0x2334c 0x1028c> {}
?muls_d3_d4
<POP 0x23352 LimitCheck 0x0 ≤ D4 ≤ 0x7ff> {}
<MI 2335c MOVE.L D4,D0> {}
<MI 2335e ASL.L #0x2,D0> {}
<MI 23360 LEA.L 0x28196,A0> {}
<MI 23366 LEA.L (A0+D0.L+#0x8),A0> {}
<MI 2336a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x2336c 0x400.2> Δ-2 {[4, 'A0']|[#1024]}
<Call 0x23370 0x1041c> {[4, 'A0']|[#1024]}
FSCALL_1041c
<POP 23376-23378 StackAdj> Δ+6 {}
<Pointer.fp 0x23378 <LVAR -0x056 @ 1(r)>> Δ-4 {[@@-86]}
<Call 0x2337a 0x10408> {[@@-86]}
FSCALL_10408
<POP 23380-23382 StackAdj> Δ+4 {}
<MI 23382 TST.B (A6-0x56)> {}
<MI 23384 BEQ 0x233bc> {}
<POP 23386-23396 Naked> Σ0 ↓ →0x233bc
<Const 0x23386 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x23388 <LVAR -0x056 @ 1(r)>> Δ-4 {[#1]|[@@-86]}
<Call 0x2338a 0x10428> {[#1]|[@@-86]}
FSCALL_10428
<POP 23390-23392 StackAdj> Δ+6 {}
<MI 23392 TST.B (A6-0x56)> {}
<MI 23394 BEQ 0x233bc> {}
<POP 23396-233bc Naked> Σ0 ↓
<Blob 0x23396 [10] @> Δ-10 {[«10""»]}
<POP 233a2-233a4 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x233a4 10> {[«10""»]|[$$tape error]}
<Call 0x233b4 0x20c8c> {[«10""»]|[$$tape error]}
<POP 233b8-233bc StackAdj> Δ+14 {}
<POP 233bc-233c8 Naked> Σ0 ↓ →0x23344 ←0x23344 ←0x23386
<MI 233bc ADDQ.L #0x1,D7> {}
<MI 233be CMPI.L #0x00000007,D7> {}
<MI 233c4 BLE 0x23344> {}
<POP 233c8-233ca Naked> Σ0 ↓
<MI 233c8 MOVEQ.L #0x01,D7> {}
<POP 233ca-233de Naked> Σ0 ↓ →0x23414 ←0x23414
<Call 0x233ca 0x10420> {}
FSCALL_10420
<Pointer.fp 0x233d0 <LVAR -0x056 @ 1(r)>> Δ-4 {[@@-86]}
<Call 0x233d2 0x10408> {[@@-86]}
FSCALL_10408
<POP 233d8-233da StackAdj> Δ+4 {}
<MI 233da TST.B (A6-0x56)> {}
<MI 233dc BEQ 0x23414> {}
<POP 233de-233ee Naked> Σ0 ↓ →0x23414
<Const 0x233de 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x233e0 <LVAR -0x056 @ 1(r)>> Δ-4 {[#1]|[@@-86]}
<Call 0x233e2 0x10428> {[#1]|[@@-86]}
FSCALL_10428
<POP 233e8-233ea StackAdj> Δ+6 {}
<MI 233ea TST.B (A6-0x56)> {}
<MI 233ec BEQ 0x23414> {}
<POP 233ee-23414 Naked> Σ0 ↓
<Blob 0x233ee [10] @> Δ-10 {[«10""»]}
<POP 233fa-233fc StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x233fc 10> {[«10""»]|[$$tape error]}
<Call 0x2340c 0x20c8c> {[«10""»]|[$$tape error]}
<POP 23410-23414 StackAdj> Δ+14 {}
<POP 23414-2341e Naked> Σ0 ↓ →0x233ca ←0x233ca ←0x233de
<MI 23414 ADDQ.L #0x1,D7> {}
<MI 23416 CMPI.L #0x00000002,D7> {}
<MI 2341c BLE 0x233ca> {}
<POP 2341e-2342e Naked> Σ0 ↓ →0x23466
<MI 2341e CLR.B -(A7)> Δ-2 {[#0]}
<Pointer.fp 0x23420 <LVAR -0x056 @ 1(r)>> Δ-4 {[#0]|[@@-86]}
<Call 0x23422 0x10414> {[#0]|[@@-86]}
FSCALL_10414
<POP 23428-2342a StackAdj> Δ+6 {}
<MI 2342a TST.B (A6-0x56)> {}
<MI 2342c BEQ 0x23466> {}
<POP 2342e-2343e Naked> Σ0 ↓ →0x23466
<Const 0x2342e 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x23430 <LVAR -0x056 @ 1(r)>> Δ-4 {[#1]|[@@-86]}
<Call 0x23432 0x10428> {[#1]|[@@-86]}
FSCALL_10428
<POP 23438-2343a StackAdj> Δ+6 {}
<MI 2343a TST.B (A6-0x56)> {}
<MI 2343c BEQ 0x23466> {}
<POP 2343e-23466 Naked> Σ0 ↓
<Blob 0x2343e [20] @> Δ-20 {[«20""»]}
<POP 2344a-2344c StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2344c 20> {[«20""»]|[$$tape error on rewind]}
<Call 0x2345e 0x20c8c> {[«20""»]|[$$tape error on rewind]}
<POP 23462-23466 StackAdj> Δ+24 {}
<POP 23466-2346c Naked> Σ0 ↓ ←0x2341e ←0x2342e
<Call 0x23466 0x10410> {}
FSCALL_10410
<POP 2346c-23474 Epilogue> Σ0
@ 23474
<POP 23474-2354e Body>
<POP 23474-2348a Prologue> Σ0 ↓
<POP 2348a-23498 RegCacheLoad> Σ0 ↓
<POP 23498-2353c Naked> Σ0 ↓ →0x23542
<Blob 0x23498 [48] @> Δ-48 {[«48""»]}
<POP 234aa-234ac StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x234ac 47> {[«48""»]|[$$Do you want to save this defect information on:]}
<Call 0x234ba 0x103e0> {[«48""»]|[$$Do you want to save this defect information on:]}
WriteConsoleStringCrLf(str : String)
<POP 234bc-234bd StackAdj> Δ+52 ↓ {}
<Blob 0x234bd [16] @> Δ-16 {[«16""»]}
<POP 234ce-234d0 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x234d0 15> {[«16""»]|[$$ 0 => A tape]}
<Call 0x234de 0x103e0> {[«16""»]|[$$ 0 => A tape]}
WriteConsoleStringCrLf(str : String)
<MI 234e0 MOVEA.L A7,A0> {[«16""»]|[$$ 0 => A tape]}
<MI 234e2 LEA.L 0x208a6,A1> {[«16""»]|[$$ 0 => A tape]}
<BlockMove 19,A1,A0> {[«16""»]|[$$ 0 => A tape]}
<POP 234ee-234f0 StackAdj> Δ-4 {[«16""»]|[$$ 0 => A tape]|[-4-]}
<Lit 0x234f0> {[«16""»]|[$$ 0 => A tape]|[$$…]}
<Pointer.sp 0x234f0 4> Δ-4
<Const 0x234f4 0x1.2> Δ-2
<Const 0x234f6 0x13.2> Δ-2
<Call 0x234fa 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 234fc-234fe StackAdj> Δ+8
<Call 0x234fe 0x103e0> {[«16""»]|[$$ 0 => A tape]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 23500-23501 StackAdj> Δ+24 ↓ {}
<Blob 0x23501 [22] @> Δ-22 {[«22""»]}
<POP 23510-23512 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x23512 21> {[«22""»]|[-4-]|[$$Please enter 0 or 1:_]}
<Const 0x23520 0x0.4> Δ-4 {[«22""»]|[-4-]|[$$Please enter 0 or 1:_]|[##0]}
<Const 0x23524 0x1.4> Δ-4 {[«22""»]|[-4-]|[$$Please enter 0 or 1:_]|[##0]|[##1]}
<Call 0x23528 0x103ec> {[«22""»]|[-4-]|[$$Please enter 0 or 1:_]|[##0]|[##1]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 2352e-23532 StackAdj> Δ+12 {[«22""»]|[-4-]}
<MI 23532 MOVE.L (A7)+,D7> Δ+4 {[«22""»]}
<POP 23534-23538 StackAdj> Δ+22 {}
<MI 23538 TST.L D7> {}
<MI 2353a BNE 0x23542> {}
<POP 2353c-23542 Naked> Σ0 →0x23546
<Call 0x2353c 0x23170> {}
<MI 23540 BRA 0x23546> {}
<POP 23542-23546 Naked> Σ0 ↓ ←0x23498
<Call 0x23542 0x22fe8> {}
<POP 23546-2354e Epilogue> Σ0 ←0x2353c
@ 2354e
<LVAR -0x001 1(r)>
<LVAR -0x002 1(r)>
<LVAR -0x004 1(w) 2(w) 4(r)>
<POP 2354e-235b2 Body>
<POP 2354e-23564 Prologue> Σ0 ↓
<POP 23564-23568 RegCacheLoad> Σ0 ↓
<POP 23568-2357e Naked> Σ0 ↓
<MI 23568 ORI.B #0x80,(A6-0x4)> {}
<MI 2356c ANDI.B #0xbf,(A6-0x4)> {}
<MI 23570 ANDI.W #0xc000,(A6-0x4)> {}
<MI 23574 CLR.B (A6-0x2)> {}
<MI 23578 CLR.B (A6-0x1)> {}
<MI 2357c MOVEQ.L #0x00,D7> {}
<POP 2357e-2359c Naked> Σ0 ↓ →0x235a0 ←0x235a0
<POP 0x2357e LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {}
<MI 23588 MOVE.L D7,D0> {}
<MI 2358a ASL.L #0x2,D0> {}
<MI 2358c LEA.L 0x28196,A0> {}
<MI 23592 MOVE.B (A0+D0.L+#0x8),D1> {}
<MI 23596 LSL.B #0x1,D1> {}
<MI 23598 LSR.B #0x7,D1> {}
<MI 2359a BEQ 0x235a0> {}
<POP 2359c-235a0 Naked> Σ0 ↓
<MI 2359c MOVE.L (A6-0x4),(A0+D0.L+#0x8)> {}
<POP 235a0-235aa Naked> Σ0 ↓ →0x2357e ←0x2357e
<MI 235a0 ADDQ.L #0x1,D7> {}
<MI 235a2 CMPI.L #0x000007ff,D7> {}
<MI 235a8 BLE 0x2357e> {}
<POP 235aa-235b2 Epilogue> Σ0
@ 235b2
<LVAR 0x008 4(r)>
<LVAR -0x006 @>
<LVAR -0x007 @ 1(r)>
<LVAR -0x008 @ 1(r)>
<POP 235b2-2365c Body>
<POP 235b2-235c8 Prologue> Σ0 ↓
<POP 235c8-235ca RegCacheLoad> Σ0 ↓
<POP 235ca-2361e Naked> Σ0 ↓ →0x23646
<Blob 0x235ca [6] @> Δ-6 {[«6""»]}
<MI 235da MOVE.L (A6+0x8),-(A7)> Δ-4 {[«6""»]|[4, '(A6+0x8)']}
<POP 235de-235e0 StackAdj> Δ-4 {[«6""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x235e0 5> {[«6""»]|[4, '(A6+0x8)']|[$$KEEP ]}
<POP 235f0-235f2 StackAdj> Δ-2 {[«6""»]|[4, '(A6+0x8)']|[$$KEEP ]|[-2-]}
<MI 235f2 CLR.B (A7)> {[«6""»]|[4, '(A6+0x8)']|[$$KEEP ]|[-2-]}
<Pointer.fp 0x235f4 <LVAR -0x008 @ 1(r)>> Δ-4 {[«6""»]|[4, '(A6+0x8)']|[$$KEEP ]|[-2-]|[@@-8]}
<Pointer.fp 0x235f8 <LVAR -0x006 @>> Δ-4 {[«6""»]|[4, '(A6+0x8)']|[$$KEEP ]|[-2-]|[@@-8]|[@@-6]}
<Call 0x235fc 0x20cee> {[«6""»]|[4, '(A6+0x8)']|[$$KEEP ]|[-2-]|[@@-8]|[@@-6]}
<POP 23600-23604 StackAdj> Δ+20 {[-4-]}
<MI 23604 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Call 0x23608 0x21bee> {[4, '(A6+0x8)']}
<POP 2360c-2360e StackAdj> Δ+4 {}
<Pointer.fp 0x2360e <LVAR -0x007 @ 1(r)>> Δ-4 {[@@-7]}
<Call 0x23612 0x22204> {[@@-7]}
<POP 23616-23618 StackAdj> Δ+4 {}
<MI 23618 TST.B (A6-0x7)> {}
<MI 2361c BNE 0x23646> {}
<POP 2361e-23646 Naked> Σ0 ↓
<Blob 0x2361e [44] @> Δ-44 {[«44""»]}
<POP 2362a-2362c StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x2362c 44> {[«44""»]|[$$Fatal error reading bad block area from disk]}
<Call 0x2363e 0x20c8c> {[«44""»]|[$$Fatal error reading bad block area from disk]}
<POP 23642-23646 StackAdj> Δ+48 {}
<POP 23646-2364c Naked> Σ0 ↓ →0x23650 ←0x235ca
<MI 23646 TST.B (A6-0x8)> {}
<MI 2364a BNE 0x23650> {}
<POP 2364c-23650 Naked> Σ0 ↓
<Call 0x2364c 0x2354e> {}
<POP 23650-23654 Naked> Σ0 ↓ ←0x23646
<Call 0x23650 0x23474> {}
<POP 23654-2365c Epilogue> Σ0
@ 2365c
<LVAR -0x004 1(rw)>
<LVAR -0x01c 2(r)>
<LVAR -0x026 2(r)>
<LVAR -0x044 @>
<LVAR -0x04a @ 4(rw)>
<LVAR -0x04e @ 4(rw)>
<LVAR -0x05e 4(rw)>
<LVAR -0x060 @ 1(r)>
<POP 2365c-239c6 Body>
<POP 2365c-23672 Prologue> Σ0 ↓
<POP 23672-23682 RegCacheLoad> Σ0 ↓
<POP 23682-236e4 Naked> Σ0 ↓
<Blob 0x23682 [26] @> Δ-26 {[«26""»]}
<POP 2368e-23690 StackAdj> Δ-12 {[«26""»]|[-12-]}
<Lit 0x23690 26> {[«26""»]|[-8-]|[$$Enter HDA serial number :_]}
<Call 0x2369c 0x103e4> {[«26""»]|[-8-]|[$$Enter HDA serial number :_]}
AskConsoleString(prompt : String) : String
<POP 236a2-236a4 StackAdj> Δ+4 {[«26""»]|[-8-]}
<Call 0x236a4 0x102f0> {[«26""»]|[-8-]}
ToUpper(a : String) : String
<POP 236aa-236ac StackAdj> Δ+4 {[«26""»]|[-4-]}
<MI 236ac MOVE.L (A7)+,(A6-0x4a)> Δ+4 {[«26""»]}
<POP 236b0-236b4 StackAdj> Δ+22 {[-4-]}
<POP 236b4-236b5 StackAdj> Δ+4 {}
<Blob 0x236b5 [4] @> Δ-4 {[«4""»]}
<Blob 0x236b8 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 236bc-236be StackAdj> Δ-8 {[«4""»]|[«4""»]|[-8-]}
<MI 236be MOVE.L (A6-0x4a),-(A7)> Δ-4 {[«4""»]|[«4""»]|[-8-]|[4, '(A6-0x4a)']}
<Call 0x236c2 0x102cc> {[«4""»]|[«4""»]|[-8-]|[4, '(A6-0x4a)']}
StringDup(a : String) : String
<Lit 0x236c8 8> {[«4""»]|[«4""»]|[-8-]|[$$.DEFECTS]}
<Call 0x236d6 0x102d0> {[«4""»]|[«4""»]|[-8-]|[$$.DEFECTS]}
StringCat2(a, b : String) : String
<POP 236dc-236de StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 236de MOVE.L (A7)+,(A6-0x4a)> Δ+4 {[«4""»]|[«4""»]}
<POP 236e2-236e4 StackAdj> Δ+8 {}
<POP 236e4-23742 Naked> Σ0 ↓ →0x2374e ←0x2374e
<Blob 0x236e4 [62] @> Δ-62 {[«62""»]}
<POP 236f6-236f8 StackAdj> Δ-8 {[«62""»]|[-8-]}
<Lit 0x236f8 61> {[«62""»]|[-4-]|[$$enter unit number of tape drive with bad block information :_]}
<Const 0x23706 0x0.4> Δ-4 {[«62""»]|[-4-]|[$$enter unit number of tape drive with bad block information :_]|[##0]}
<Const 0x2370a 0x3.4> Δ-4 {[«62""»]|[-4-]|[$$enter unit number of tape drive with bad block information :_]|[##0]|[##3]}
<Call 0x2370e 0x103ec> {[«62""»]|[-4-]|[$$enter unit number of tape drive with bad block information :_]|[##0]|[##3]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 23714-23716 StackAdj> Δ+12 {[«62""»]|[-4-]}
<MI 23716 MOVE.L (A7)+,D0> Δ+4 {[«62""»]}
<POP 0x23718 LimitCheck 0x0 ≤ D0 ≤ 0x3> {[«62""»]}
<POP 23722-23726 StackAdj> Δ+62 {}
<MI 23726 MOVE.W D0,D5> {}
<POP 0x23728 LimitCheck 0x0 ≤ D5 ≤ 0x3> {}
<MI 2372c MOVE.W D5,-(A7)> Δ-2 {[2, 'D5']}
<MI 2372e CLR.B -(A7)> Δ-2 {[2, 'D5']|[#0]}
<Const 0x23730 0x1.2> Δ-2 {[2, 'D5']|[#0]|[#1]}
<Pointer.fp 0x23732 <LVAR -0x060 @ 1(r)>> Δ-4 {[2, 'D5']|[#0]|[#1]|[@@-96]}
<Call 0x23734 0x1040c> {[2, 'D5']|[#0]|[#1]|[@@-96]}
FSCALL_1040c
<POP 2373a-2373e StackAdj> Δ+10 {}
<MI 2373e TST.B (A6-0x60)> {}
<MI 23740 BEQ 0x2374e> {}
<POP 23742-2374e Naked> Σ0 ↓
<Const 0x23742 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x23744 <LVAR -0x060 @ 1(r)>> Δ-4 {[#1]|[@@-96]}
<Call 0x23746 0x10428> {[#1]|[@@-96]}
FSCALL_10428
<POP 2374c-2374e StackAdj> Δ+6 {}
<POP 2374e-23752 Naked> Σ0 ↓ →0x236e4 ←0x236e4
<MI 2374e TST.B (A6-0x60)> {}
<MI 23750 BNE 0x236e4> {}
<POP 23752-23760 Naked> Σ0 ↓
<MI 23752 LEA.L (A6-0x44),A0> {}
<MI 23756 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23758 MOVE.L (A7)+,(A6-0x5e)> Δ+4 {}
<MI 2375c MOVEA.L (A6-0x5e),A4> {}
<POP 23760-23782 Naked> Σ0 ↓ →0x2379c ←0x23914
<MI 23760 MOVE.L (A6-0x5e),-(A7)> Δ-4 {[4, '(A6-0x5e)']}
<Const 0x23764 0x40.2> Δ-2 {[4, '(A6-0x5e)']|[#64]}
<Call 0x23768 0x10418> {[4, '(A6-0x5e)']|[#64]}
FSCALL_10418
<POP 2376e-23770 StackAdj> Δ+6 {}
<Pointer.fp 0x23770 <LVAR -0x060 @ 1(r)>> Δ-4 {[@@-96]}
<Call 0x23772 0x10408> {[@@-96]}
FSCALL_10408
<POP 23778-2377a StackAdj> Δ+4 {}
<MI 2377a MOVE.B (A6-0x60),D0> {}
<MI 2377c CMPI.B #0x06,D0> {}
<MI 23780 BNE 0x2379c> {}
<POP 23782-2379c Naked> Σ0 ↓
<MI 23782 MOVE.L (A6-0x5e),-(A7)> Δ-4 {[4, '(A6-0x5e)']}
<Const 0x23786 0x40.2> Δ-2 {[4, '(A6-0x5e)']|[#64]}
<Call 0x2378a 0x10418> {[4, '(A6-0x5e)']|[#64]}
FSCALL_10418
<POP 23790-23792 StackAdj> Δ+6 {}
<Pointer.fp 0x23792 <LVAR -0x060 @ 1(r)>> Δ-4 {[@@-96]}
<Call 0x23794 0x10408> {[@@-96]}
FSCALL_10408
<POP 2379a-2379c StackAdj> Δ+4 {}
<POP 2379c-237a4 Naked> Σ0 ↓ →0x237ce ←0x23760
<MI 2379c MOVE.B (A6-0x60),D0> {}
<MI 2379e CMPI.B #0x06,D0> {}
<MI 237a2 BNE 0x237ce> {}
<POP 237a4-237ce Naked> Σ0 ↓
<Call 0x237a4 0x10410> {}
FSCALL_10410
<Blob 0x237aa [20] @> Δ-20 {[«20""»]}
<POP 237b6-237b8 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x237b8 20> {[«20""»]|[$$found eot, aborting!]}
<Call 0x237c6 0x20c8c> {[«20""»]|[$$found eot, aborting!]}
<POP 237ca-237ce StackAdj> Δ+24 {}
<POP 237ce-237d2 Naked> Σ0 ↓ →0x2380e ←0x2379c
<MI 237ce TST.B D0> {}
<MI 237d0 BEQ 0x2380e> {}
<POP 237d2-2380e Naked> Σ0 ↓
<Const 0x237d2 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x237d4 <LVAR -0x060 @ 1(r)>> Δ-4 {[#1]|[@@-96]}
<Call 0x237d6 0x10428> {[#1]|[@@-96]}
FSCALL_10428
<POP 237dc-237de StackAdj> Δ+6 {}
<Call 0x237de 0x10410> {}
FSCALL_10410
<Blob 0x237e4 [44] @> Δ-44 {[«44""»]}
<POP 237f6-237f8 StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x237f8 43> {[«44""»]|[$$can't read tape. bad tape or wrong format.]}
<Call 0x23806 0x20c8c> {[«44""»]|[$$can't read tape. bad tape or wrong format.]}
<POP 2380a-2380e StackAdj> Δ+48 {}
<POP 2380e-23816 Naked> Σ0 ↓ →0x23846 ←0x237ce
<MI 2380e MOVE.W (A6-0x1c),D0> {}
<MI 23812 CMP.W #0x01,D0> {}
<MI 23814 BEQ 0x23846> {}
<POP 23816-23846 Naked> Σ0 ↓
<Call 0x23816 0x10410> {}
FSCALL_10410
<Blob 0x2381c [40] @> Δ-40 {[«40""»]}
<POP 2382e-23830 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x23830 39> {[«40""»]|[$$obsolete tape header version, aborting!]}
<Call 0x2383e 0x20c8c> {[«40""»]|[$$obsolete tape header version, aborting!]}
<POP 23842-23846 StackAdj> Δ+44 {}
<POP 23846-2389c Naked> Σ0 ↓ →0x23914 ←0x2380e
<Blob 0x23846 [30] (A6-0x26)> Δ-30 {[«30»]}
<POP 23852-23854 StackAdj> Δ-8 {[«30»]|[-8-]}
<Lit 0x23854> {[«30»]|[-4-]|[$$…]}
<Pointer.sp 0x23854 8> Δ-4
<Const 0x23858 0x1.2> Δ-2
<Const 0x2385a 0x1e.2> Δ-2
<Call 0x2385e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23860-23862 StackAdj> Δ+8
<Call 0x23862 0x102f0> {[«30»]|[-4-]|[$$…]}
ToUpper(a : String) : String
<POP 23868-2386a StackAdj> Δ+4 {[«30»]|[-4-]}
<MI 2386a MOVE.L (A7)+,(A6-0x4e)> Δ+4 {[«30»]}
<POP 2386e-23872 StackAdj> Δ+24 {[-6-]}
<MI 23872 MOVE.L (A6-0x4e),(A7)> {[-2-]|[4, '(A6-0x4e)']}
<MI 23876 MOVE.L (A6-0x4a),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x4e)']|[4, '(A6-0x4a)']}
<Call 0x2387a 0x102c8> {[-2-]|[4, '(A6-0x4e)']|[4, '(A6-0x4a)']}
StringEqual(a, b : String) : Byte
<POP 23880-23882 StackAdj> Δ+8 {[-2-]}
<MI 23882 MOVE.B (A7)+,D0> Δ+2 {}
<MI 23884 EXTB.W D0> {}
<POP 0x23886 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 23888 MOVE.B D0,(A6-0x4)> {}
<Pointer.fp 0x2388c <LVAR -0x04e @ 4(rw)>> Δ-4 {[@@-78]}
<Call 0x23890 0x102bc> {[@@-78]}
FreeString(VAR a : String)
<POP 23896-23898 StackAdj> Δ+4 {}
<MI 23898 TST.B D0> {}
<MI 2389a BNE 0x23914> {}
<POP 2389c-238a8 Naked> Σ0 Δ-4 ↓
<MI 2389c MOVE.W (A6-0x26),D0> {}
<MI 238a0 SUBQ.W #0x1,D0> {}
<MI 238a2 EXTW.L D0> {}
<MI 238a4 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 238a6 MOVEQ.L #0x00,D6> {[4, 'D0']}
<POP 238a8-238ac Naked> Σ-4 ↓ →0x23912 ←0x2390e
<MI 238a8 CMP.L (A7),D6> {[-4-]}
<MI 238aa BGT 0x23912> {[-4-]}
<POP 238ac-238d2 Naked> Σ-4 ↓ →0x2390e
<MI 238ac LEA.L 0x2819e,A0> {[-4-]}
<MI 238b2 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<MI 238b4 MOVE.L (A7)+,D7> Δ+4 {[-4-]}
<MI 238b6 MOVE.L D7,-(A7)> Δ-4 {[-4-]|[4, 'D7']}
<Const 0x238b8 0x400.2> Δ-2 {[-4-]|[4, 'D7']|[#1024]}
<Call 0x238bc 0x10418> {[-4-]|[4, 'D7']|[#1024]}
FSCALL_10418
<POP 238c2-238c4 StackAdj> Δ+6 {[-4-]}
<Pointer.fp 0x238c4 <LVAR -0x060 @ 1(r)>> Δ-4 {[-4-]|[@@-96]}
<Call 0x238c6 0x10408> {[-4-]|[@@-96]}
FSCALL_10408
<POP 238cc-238ce StackAdj> Δ+4 {[-4-]}
<MI 238ce TST.B (A6-0x60)> {[-4-]}
<MI 238d0 BEQ 0x2390e> {[-4-]}
<POP 238d2-2390e Naked> Σ-4 ↓
<Const 0x238d2 0x1.2> Δ-2 {[-4-]|[#1]}
<Pointer.fp 0x238d4 <LVAR -0x060 @ 1(r)>> Δ-4 {[-4-]|[#1]|[@@-96]}
<Call 0x238d6 0x10428> {[-4-]|[#1]|[@@-96]}
FSCALL_10428
<POP 238dc-238de StackAdj> Δ+6 {[-4-]}
<Call 0x238de 0x10410> {[-4-]}
FSCALL_10410
<Blob 0x238e4 [42] @> Δ-42 {[-4-]|[«42""»]}
<POP 238f6-238f8 StackAdj> Δ-4 {[-4-]|[«42""»]|[-4-]}
<Lit 0x238f8 41> {[-4-]|[«42""»]|[$$record read failed while skipping a file.]}
<Call 0x23906 0x20c8c> {[-4-]|[«42""»]|[$$record read failed while skipping a file.]}
<POP 2390a-2390e StackAdj> Δ+46 {[-4-]}
<POP 2390e-23912 Naked> Σ-4 ↓ →0x238a8 ←0x238ac
<MI 2390e ADDQ.L #0x1,D6> {[-4-]}
<MI 23910 BVC 0x238a8> {[-4-]}
<POP 23912-23914 Naked> Σ-4 Δ+4 ↓ ←0x238a8
<POP 23912-23914 StackAdj> Δ+4 {}
<POP 23914-2391c Naked> Σ0 ↓ →0x23760 ←0x23846
<MI 23914 TST.B (A6-0x4)> {}
<MI 23918 BEQ 0x23760> {}
<POP 2391c-23934 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x2391c <LVAR -0x04a @ 4(rw)>> Δ-4 {[@@-74]}
<Call 0x23920 0x102bc> {[@@-74]}
FreeString(VAR a : String)
<POP 23926-23928 StackAdj> Δ+4 {}
<MI 23928 MOVE.W (A6-0x26),D0> {}
<MI 2392c SUBQ.W #0x1,D0> {}
<MI 2392e EXTW.L D0> {}
<MI 23930 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23932 MOVEQ.L #0x00,D6> {[4, 'D0']}
<POP 23934-23938 Naked> Σ-4 ↓ →0x239aa ←0x239a6
<MI 23934 CMP.L (A7),D6> {[-4-]}
<MI 23936 BGT 0x239aa> {[-4-]}
<POP 23938-23972 Naked> Σ-4 ↓ →0x239a6
<MI 23938 MOVE.L D6,D0> {[-4-]}
<MI 2393a ASL.L #0x8,D0> {[-4-]}
<POP 0x2393c LimitCheck 0x0 ≤ D0 ≤ 0x7ff> {[-4-]}
<MI 23946 ASL.L #0x2,D0> {[-4-]}
<MI 23948 LEA.L 0x28196,A0> {[-4-]}
<MI 2394e LEA.L (A0+D0.L+#0x8),A0> {[-4-]}
<MI 23952 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<MI 23954 MOVE.L (A7)+,D7> Δ+4 {[-4-]}
<MI 23956 MOVE.L D7,-(A7)> Δ-4 {[-4-]|[4, 'D7']}
<Const 0x23958 0x400.2> Δ-2 {[-4-]|[4, 'D7']|[#1024]}
<Call 0x2395c 0x10418> {[-4-]|[4, 'D7']|[#1024]}
FSCALL_10418
<POP 23962-23964 StackAdj> Δ+6 {[-4-]}
<Pointer.fp 0x23964 <LVAR -0x060 @ 1(r)>> Δ-4 {[-4-]|[@@-96]}
<Call 0x23966 0x10408> {[-4-]|[@@-96]}
FSCALL_10408
<POP 2396c-2396e StackAdj> Δ+4 {[-4-]}
<MI 2396e TST.B (A6-0x60)> {[-4-]}
<MI 23970 BEQ 0x239a6> {[-4-]}
<POP 23972-239a6 Naked> Σ-4 ↓
<Const 0x23972 0x1.2> Δ-2 {[-4-]|[#1]}
<Pointer.fp 0x23974 <LVAR -0x060 @ 1(r)>> Δ-4 {[-4-]|[#1]|[@@-96]}
<Call 0x23976 0x10428> {[-4-]|[#1]|[@@-96]}
FSCALL_10428
<POP 2397c-2397e StackAdj> Δ+6 {[-4-]}
<Call 0x2397e 0x10410> {[-4-]}
FSCALL_10410
<Blob 0x23984 [26] @> Δ-26 {[-4-]|[«26""»]}
<POP 23990-23992 StackAdj> Δ-4 {[-4-]|[«26""»]|[-4-]}
<Lit 0x23992 26> {[-4-]|[«26""»]|[$$found data, can't read it.]}
<Call 0x2399e 0x20c8c> {[-4-]|[«26""»]|[$$found data, can't read it.]}
<POP 239a2-239a6 StackAdj> Δ+30 {[-4-]}
<POP 239a6-239aa Naked> Σ-4 ↓ →0x23934 ←0x23938
<MI 239a6 ADDQ.L #0x1,D6> {[-4-]}
<MI 239a8 BVC 0x23934> {[-4-]}
<POP 239aa-239be Naked> Σ-4 Δ+4 ↓ ←0x23934
<POP 239aa-239ac StackAdj> Δ+2 {[-2-]}
<MI 239ac CLR.B (A7)> {[-2-]}
<Pointer.fp 0x239ae <LVAR -0x060 @ 1(r)>> Δ-4 {[-2-]|[@@-96]}
<Call 0x239b0 0x10414> {[-2-]|[@@-96]}
FSCALL_10414
<POP 239b6-239b8 StackAdj> Δ+6 {}
<Call 0x239b8 0x10410> {}
FSCALL_10410
<POP 239be-239c6 Epilogue> Σ0
@ 239c6
<LVAR -0x006 @ 4(rw)>
<LVAR -0x00c @ 1(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x012 @ 2(w)>
<LVAR -0x014 @ 1(r)>
<POP 239c6-23b6c Body>
<POP 239c6-239dc Prologue> Σ0 ↓
<POP 239dc-239f2 RegCacheLoad> Σ0 ↓
<POP 239f2-23a0a Naked> Σ0 ↓ →0x23a12
<Pointer.fp 0x239f2 <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-20]}
<Pointer.fp 0x239f6 <LVAR -0x012 @ 2(w)>> Δ-4 {[@@-20]|[@@-18]}
<Call 0x239fa 0x10200> {[@@-20]|[@@-18]}
KC00_GetBootDev(VAR a : Byte; VAR b : Word)
<POP 23a00-23a02 StackAdj> Δ+8 {}
<MI 23a02 MOVE.B (A6-0x14),D0> {}
<MI 23a06 CMP.B #0x02,D0> {}
<MI 23a08 BNE 0x23a12> {}
<POP 23a0a-23a12 Naked> Σ0 →0x23a80
<Call 0x23a0a 0x10398> {}
FSCALL_10398
<MI 23a10 BRA 0x23a80> {}
<POP 23a12-23a68 Naked> Σ0 ↓ →0x23a80 ←0x239f2
<Blob 0x23a12 [62] @> Δ-62 {[«62""»]}
<POP 23a22-23a24 StackAdj> Δ-8 {[«62""»]|[-8-]}
<Lit 0x23a24 61> {[«62""»]|[-4-]|[$$enter unit number of disk with dfs to write defect info to :_]}
<Const 0x23a32 0x0.4> Δ-4 {[«62""»]|[-4-]|[$$enter unit number of disk with dfs to write defect info to :_]|[##0]}
<Const 0x23a36 0xf.4> Δ-4 {[«62""»]|[-4-]|[$$enter unit number of disk with dfs to write defect info to :_]|[##0]|[##15]}
<Call 0x23a3a 0x103ec> {[«62""»]|[-4-]|[$$enter unit number of disk with dfs to write defect info to :_]|[##0]|[##15]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 23a40-23a44 StackAdj> Δ+12 {[«62""»]|[-4-]}
<MI 23a44 MOVE.L (A7)+,D0> Δ+4 {[«62""»]}
<POP 0x23a46 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[«62""»]}
<POP 23a50-23a52 StackAdj> Δ+62 {}
<MI 23a52 MOVE.W D0,(A6-0x12)> {}
<POP 0x23a56 LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 23a58 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x23a5a <LVAR -0x00c @ 1(r)>> Δ-4 {[2, 'D0']|[@@-12]}
<Call 0x23a5c 0x10394> {[2, 'D0']|[@@-12]}
MountDisk(drive : Word ; VAR status : Byte)
<POP 23a62-23a64 StackAdj> Δ+6 {}
<MI 23a64 TST.B (A6-0xc)> {}
<MI 23a66 BEQ 0x23a80> {}
<POP 23a68-23a80 Naked> Σ0 ↓
<POP 23a68-23a6a StackAdj> Δ-4 {[-4-]}
<MI 23a6a MOVE.B (A6-0xc),D0> {[-4-]}
<MI 23a6c EXTB.W D0> {[-4-]}
<POP 0x23a6e LimitCheck 0x0 ≤ D0 ≤ 0xf> {[-4-]}
<MI 23a70 MOVE.B D0,-(A7)> Δ-2 {[-4-]|[2, 'D0']}
<Call 0x23a72 0x103a0> {[-4-]|[2, 'D0']}
FsErrMsgStr(err: Byte) : String
<POP 23a78-23a7a StackAdj> Δ+2 {[-4-]}
<Call 0x23a7a 0x20c8c> {[-4-]}
<POP 23a7e-23a80 StackAdj> Δ+4 {}
<POP 23a80-23aec Naked> Σ0 ↓ ←0x23a0a ←0x23a12
<Blob 0x23a80 [26] @> Δ-26 {[«26""»]}
<Blob 0x23a8c [4] @> Δ-4 {[«26""»]|[«4""»]}
<Blob 0x23a90 [4] @> Δ-4 {[«26""»]|[«4""»]|[«4""»]}
<POP 23a94-23a98 StackAdj> Δ-16 {[«26""»]|[«4""»]|[«4""»]|[-16-]}
<Lit 0x23a98 26> {[«26""»]|[«4""»]|[«4""»]|[-12-]|[$$Enter HDA serial number :_]}
<Call 0x23aa6 0x103e4> {[«26""»]|[«4""»]|[«4""»]|[-12-]|[$$Enter HDA serial number :_]}
AskConsoleString(prompt : String) : String
<Lit 0x23aac 8> {[«26""»]|[«4""»]|[«4""»]|[-12-]|[$$.DEFECTS]}
<Call 0x23aba 0x102d0> {[«26""»]|[«4""»]|[«4""»]|[-12-]|[$$.DEFECTS]}
StringCat2(a, b : String) : String
<POP 23ac0-23ac2 StackAdj> Δ+8 {[«26""»]|[«4""»]|[«4""»]|[-8-]}
<Call 0x23ac2 0x102f0> {[«26""»]|[«4""»]|[«4""»]|[-8-]}
ToUpper(a : String) : String
<POP 23ac8-23aca StackAdj> Δ+4 {[«26""»]|[«4""»]|[«4""»]|[-4-]}
<MI 23aca MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«26""»]|[«4""»]|[«4""»]}
<POP 23acc-23ad0 StackAdj> Δ+30 {[-4-]}
<MI 23ad0 MOVE.L (A6-0x6),(A7)> {[4, '(A6-0x6)']}
<MI 23ad2 CLR.B -(A7)> Δ-2 {[4, '(A6-0x6)']|[#0]}
<Const 0x23ad4 0x2.2> Δ-2 {[4, '(A6-0x6)']|[#0]|[#2]}
<Const 0x23ad6 0x8.4> Δ-4 {[4, '(A6-0x6)']|[#0]|[#2]|[##8]}
<Pointer.fp 0x23ada <LVAR -0x00c @ 1(r)>> Δ-4 {[4, '(A6-0x6)']|[#0]|[#2]|[##8]|[@@-12]}
<Pointer.fp 0x23adc <LVAR -0x010 @ 4(r)>> Δ-4 {[4, '(A6-0x6)']|[#0]|[#2]|[##8]|[@@-12]|[@@-16]}
<Call 0x23ae0 0x10380> {[4, '(A6-0x6)']|[#0]|[#2]|[##8]|[@@-12]|[@@-16]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 23ae6-23aea StackAdj> Δ+20 {}
<MI 23aea MOVEQ.L #0x00,D7> {}
<POP 23aec-23b42 Naked> Σ0 ↓ →0x23aec ←0x23aec
<MI 23aec MOVE.L #0x100,D4> {}
<MI 23af2 MOVE.L D7,D3> {}
<Call 0x23af4 0x1028c> {}
?muls_d3_d4
<MI 23afa MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 0x23afe LimitCheck 0x0 ≤ D7 ≤ 0x4000> {[4, '(A6-0x10)']}
<MI 23b08 MOVE.W D7,-(A7)> Δ-2 {[4, '(A6-0x10)']|[2, 'D7']}
<MI 23b0a CLR.W -(A7)> Δ-2 {[4, '(A6-0x10)']|[2, 'D7']|[#0]}
<Const 0x23b0c 0x200.2> Δ-2 {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]}
<Const 0x23b10 0x2.2> Δ-2 {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<POP 0x23b12 LimitCheck 0x0 ≤ D4 ≤ 0x7ff> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 23b1c MOVE.L D4,D0> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 23b1e ASL.L #0x2,D0> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 23b20 LEA.L 0x28196,A0> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 23b26 LEA.L (A0+D0.L+#0x8),A0> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 23b2a MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x23b2c <LVAR -0x00c @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-12]}
<Call 0x23b2e 0x10384> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-12]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 23b34-23b38 StackAdj> Δ+20 {}
<MI 23b38 ADDQ.L #0x1,D7> {}
<MI 23b3a CMPI.L #0x00000007,D7> {}
<MI 23b40 BLE 0x23aec> {}
<POP 23b42-23b64 Naked> Σ0 ↓
<MI 23b42 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x23b44 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x23b46 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x23b4a <LVAR -0x00c @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-12]}
<Pointer.fp 0x23b4c <LVAR -0x010 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-12]|[@@-16]}
<Call 0x23b50 0x1038c> {[#0]|[#2]|[##1]|[@@-12]|[@@-16]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 23b56-23b5a StackAdj> Δ+16 {}
<Pointer.fp 0x23b5a <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x23b5c 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 23b62-23b64 StackAdj> Δ+4 {}
<POP 23b64-23b6c Epilogue> Σ0
@ 23b6c
<LVAR 0x008 4(r)>
<POP 23b6c-23b98 Body>
<POP 23b6c-23b7e Prologue> Σ0 ↓
<POP 23b7e-23b94 Naked> Σ0 ↓
<POP 23b7e-23b80 StackAdj> Δ-4 {[-4-]}
<MI 23b80 MOVE.L (A4+0x4),-(A7)> Δ-4 {[-4-]|[4, '(A4+0x4)']}
<MI 23b84 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A4+0x4)']|[4, '(A6+0x8)']}
<Call 0x23b88 0x102d0> {[-4-]|[4, '(A4+0x4)']|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 23b8e-23b90 StackAdj> Δ+8 {[-4-]}
<MI 23b90 MOVE.L (A7)+,(A4+0x4)> Δ+4 {}
<POP 23b94-23b98 Epilogue> Σ0
@ 23b98
<LVAR -0x004 4(rw)>
<LVAR -0x008 @>
<POP 23b98-23d02 Body> Δ+46
<POP 23b98-23bae Prologue> Σ0 ↓
<POP 23bae-23bbc RegCacheLoad> Σ0 ↓
<POP 23bbc-23bbe Naked> Σ0 ↓
<MI 23bbc MOVEQ.L #0x00,D7> {}
<POP 23bbe-23bdc Naked> Σ0 ↓ →0x23bea ←0x23cee
<POP 0x23bbe LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {}
<MI 23bc8 MOVE.L D7,D0> {}
<MI 23bca ASL.L #0x2,D0> {}
<MI 23bcc LEA.L 0x28196,A0> {}
<MI 23bd2 MOVE.W (A0+D0.L+#0x8),D1> {}
<MI 23bd6 LSL.W #0x2,D1> {}
<MI 23bd8 LSR.W #0x2,D1> {}
<MI 23bda BNE 0x23bea> {}
<POP 23bdc-23be2 Naked> Σ0 ↓ →0x23bea
<MI 23bdc TST.B (A0+D0.L+#0xa)> {}
<MI 23be0 BNE 0x23bea> {}
<POP 23be2-23bea Naked> Σ0 ↓ →0x23cee
<MI 23be2 TST.B (A0+D0.L+#0xb)> {}
<MI 23be6 BEQ 0x23cee> {}
<POP 23bea-23bf4 Naked> Σ0 ↓ →0x23c02 ←0x23bbe ←0x23bdc
<MI 23bea MOVE.B (A0+D0.L+#0x8),D1> {}
<MI 23bee LSL.B #0x1,D1> {}
<MI 23bf0 LSR.B #0x7,D1> {}
<MI 23bf2 BEQ 0x23c02> {}
<POP 23bf4-23c02 Naked> Σ0 Δ-38 →0x23c0e
<Blob 0x23bf4 [38] @> Δ-38 {[«38""»]}
<MI 23c00 BRA 0x23c0e> {[«38""»]}
<POP 23c02-23c0e Naked> Σ0 Δ-38 ↓ ←0x23bea
<Blob 0x23c02 [38] @> Δ-38 {[«38""»]}
<POP 23c0e-23c5a Naked> Σ-38 Δ+38 ↓ →0x23c78 ←0x23bf4
<POP 23c0e-23c10 StackAdj> Δ-4 {[-42-]}
<Lit 0x23c10> {[-38-]|[$$…]}
<Pointer.sp 0x23c10 4> Δ-4
<Const 0x23c14 0x1.2> Δ-2
<Const 0x23c16 0x26.2> Δ-2
<Call 0x23c18 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23c1e-23c20 StackAdj> Δ+8
<MI 23c20 MOVE.L (A7)+,(A6-0x4)> Δ+4 {[-38-]}
<POP 23c24-23c26 StackAdj> Δ+38 {}
<POP 23c26-23c28 StackAdj> Δ-8 {[-8-]}
<MI 23c28 CLR.L D1> {[-8-]}
<MI 23c2a MOVE.W (A0+D0.L+#0x8),D1> {[-8-]}
<MI 23c2e LSL.W #0x2,D1> {[-8-]}
<MI 23c30 LSR.W #0x2,D1> {[-8-]}
<MI 23c32 MOVE.L D1,-(A7)> Δ-4 {[-8-]|[4, 'D1']}
<Call 0x23c34 0x102e4> {[-8-]|[4, 'D1']}
Long2String(a : Long) : String
<POP 23c3a-23c3c StackAdj> Δ+4 {[-8-]}
<Const 0x23c3c 0x4.4> Δ-4 {[-8-]|[##4]}
<Call 0x23c40 0x102f4> {[-8-]|[##4]}
RightPad(a : String; b : Long) : String
<POP 23c46-23c48 StackAdj> Δ+8 {[-4-]}
<MI 23c48 LEA.L (A6-0x8),A4> {[-4-]}
<Call 0x23c4a 0x23b6c> {[-4-]}
<POP 23c4c-23c4e StackAdj> Δ+4 {}
<MI 23c4e CLR.L D1> {}
<MI 23c50 MOVE.B (A0+D0.L+#0xa),D1> {}
<MI 23c54 CMPI.W #0x00ff,D1> {}
<MI 23c58 BNE 0x23c78> {}
<POP 23c5a-23c78 Naked> Σ0 Δ-4 →0x23c96
<Blob 0x23c5a [4] @> Δ-4 {[«4""»]}
<POP 23c5e-23c60 StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x23c60 4> {[«4""»]|[$$ all]}
<MI 23c70 LEA.L (A6-0x8),A4> {[«4""»]|[$$ all]}
<Call 0x23c72 0x23b6c> {[«4""»]|[$$ all]}
<POP 23c74-23c76 StackAdj> Δ+4 {[«4""»]}
<MI 23c76 BRA 0x23c96> {[«4""»]}
<POP 23c78-23c96 Naked> Σ0 Δ-4 ↓ ←0x23c0e
<POP 23c78-23c7a StackAdj> Δ-8 {[-8-]}
<MI 23c7a EXTW.L D1> {[-8-]}
<MI 23c7c MOVE.L D1,-(A7)> Δ-4 {[-8-]|[4, 'D1']}
<Call 0x23c7e 0x102e4> {[-8-]|[4, 'D1']}
Long2String(a : Long) : String
<POP 23c84-23c86 StackAdj> Δ+4 {[-8-]}
<Const 0x23c86 0x4.4> Δ-4 {[-8-]|[##4]}
<Call 0x23c8a 0x102f4> {[-8-]|[##4]}
RightPad(a : String; b : Long) : String
<POP 23c90-23c92 StackAdj> Δ+8 {[-4-]}
<MI 23c92 LEA.L (A6-0x8),A4> {[-4-]}
<Call 0x23c94 0x23b6c> {[-4-]}
<POP 23c96-23ca4 Naked> Σ-4 Δ+4 ↓ →0x23cc2 ←0x23c5a
<POP 23c96-23c98 StackAdj> Δ+4 {}
<MI 23c98 CLR.L D1> {}
<MI 23c9a MOVE.B (A0+D0.L+#0xb),D1> {}
<MI 23c9e CMPI.W #0x00ff,D1> {}
<MI 23ca2 BNE 0x23cc2> {}
<POP 23ca4-23cc2 Naked> Σ0 Δ-4 →0x23ce0
<Blob 0x23ca4 [4] @> Δ-4 {[«4""»]}
<POP 23ca8-23caa StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x23caa 4> {[«4""»]|[$$ all]}
<MI 23cba LEA.L (A6-0x8),A4> {[«4""»]|[$$ all]}
<Call 0x23cbc 0x23b6c> {[«4""»]|[$$ all]}
<POP 23cbe-23cc0 StackAdj> Δ+4 {[«4""»]}
<MI 23cc0 BRA 0x23ce0> {[«4""»]}
<POP 23cc2-23ce0 Naked> Σ0 Δ-4 ↓ ←0x23c96
<POP 23cc2-23cc4 StackAdj> Δ-8 {[-8-]}
<MI 23cc4 EXTW.L D1> {[-8-]}
<MI 23cc6 MOVE.L D1,-(A7)> Δ-4 {[-8-]|[4, 'D1']}
<Call 0x23cc8 0x102e4> {[-8-]|[4, 'D1']}
Long2String(a : Long) : String
<POP 23cce-23cd0 StackAdj> Δ+4 {[-8-]}
<Const 0x23cd0 0x4.4> Δ-4 {[-8-]|[##4]}
<Call 0x23cd4 0x102f4> {[-8-]|[##4]}
RightPad(a : String; b : Long) : String
<POP 23cda-23cdc StackAdj> Δ+8 {[-4-]}
<MI 23cdc LEA.L (A6-0x8),A4> {[-4-]}
<Call 0x23cde 0x23b6c> {[-4-]}
<POP 23ce0-23cee Naked> Σ-4 Δ+4 ↓ ←0x23ca4
<POP 23ce0-23ce2 StackAdj> Δ+4 {}
<MI 23ce2 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x23ce6 0x103e0> {[4, '(A6-0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 23cec-23cee StackAdj> Δ+4 {}
<POP 23cee-23cfa Naked> Σ0 ↓ →0x23bbe ←0x23be2
<MI 23cee ADDQ.L #0x1,D7> {}
<MI 23cf0 CMPI.L #0x000007ff,D7> {}
<MI 23cf6 BLE 0x23bbe> {}
<POP 23cfa-23d02 Epilogue> Σ0
@ 23d02
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x007 @ 1(r)>
<LVAR -0x008 @ 1(r)>
<POP 23d02-23e70 Body>
<POP 23d02-23d18 Prologue> Σ0 ↓
<POP 23d18-23d2e RegCacheLoad> Σ0 ↓
<POP 23d2e-23d82 Naked> Σ0 ↓ →0x23e22
<Blob 0x23d2e [2] @> Δ-2 {[«2""»]}
<MI 23d32 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[4, '(A6+0x8)']}
<POP 23d36-23d38 StackAdj> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x23d38 2> {[«2""»]|[4, '(A6+0x8)']|[$$D ]}
<POP 23d42-23d44 StackAdj> Δ-2 {[«2""»]|[4, '(A6+0x8)']|[$$D ]|[-2-]}
<MI 23d44 CLR.B (A7)> {[«2""»]|[4, '(A6+0x8)']|[$$D ]|[-2-]}
<Pointer.fp 0x23d46 <LVAR -0x008 @ 1(r)>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$D ]|[-2-]|[@@-8]}
<Pointer.fp 0x23d4a <LVAR -0x006 @ 4(rw)>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$D ]|[-2-]|[@@-8]|[@@-6]}
<Call 0x23d4c 0x20cee> {[«2""»]|[4, '(A6+0x8)']|[$$D ]|[-2-]|[@@-8]|[@@-6]}
<POP 23d50-23d54 StackAdj> Δ+18 {[«2""»]}
<POP 23d54-23d55 StackAdj> Δ+2 {}
<Blob 0x23d55 [2] @> Δ-2 {[«2""»]}
<MI 23d58 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[4, '(A6+0x8)']}
<POP 23d5c-23d5e StackAdj> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x23d5e 2> {[«2""»]|[4, '(A6+0x8)']|[$$T ]}
<POP 23d68-23d6a StackAdj> Δ-2 {[«2""»]|[4, '(A6+0x8)']|[$$T ]|[-2-]}
<MI 23d6a CLR.B (A7)> {[«2""»]|[4, '(A6+0x8)']|[$$T ]|[-2-]}
<Pointer.fp 0x23d6c <LVAR -0x007 @ 1(r)>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$T ]|[-2-]|[@@-7]}
<Pointer.fp 0x23d70 <LVAR -0x006 @ 4(rw)>> Δ-4 {[«2""»]|[4, '(A6+0x8)']|[$$T ]|[-2-]|[@@-7]|[@@-6]}
<Call 0x23d72 0x20cee> {[«2""»]|[4, '(A6+0x8)']|[$$T ]|[-2-]|[@@-7]|[@@-6]}
<POP 23d76-23d7a StackAdj> Δ+20 {}
<MI 23d7a TST.B (A6-0x8)> {}
<MI 23d7e BNE 0x23e22> {}
<POP 23d82-23d8a Naked> Σ0 ↓ →0x23e22
<MI 23d82 TST.B (A6-0x7)> {}
<MI 23d86 BNE 0x23e22> {}
<POP 23d8a-23e22 Naked> Σ0 ↓
<Blob 0x23d8a [44] @> Δ-44 {[«44""»]}
<POP 23d96-23d98 StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x23d98 44> {[«44""»]|[$$Do you want to load defect information from:]}
<Call 0x23da6 0x103e0> {[«44""»]|[$$Do you want to load defect information from:]}
WriteConsoleStringCrLf(str : String)
<POP 23da8-23da9 StackAdj> Δ+48 ↓ {}
<Blob 0x23da9 [14] @> Δ-14 {[«14""»]}
<POP 23dba-23dbc StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x23dbc 13> {[«14""»]|[$$ T => Tape]}
<Call 0x23dc8 0x103e0> {[«14""»]|[$$ T => Tape]}
WriteConsoleStringCrLf(str : String)
<POP 23dca-23dcb StackAdj> Δ+18 ↓ {}
<Blob 0x23dcb [14] @> Δ-14 {[«14""»]}
<POP 23dda-23ddc StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x23ddc 13> {[«14""»]|[$$ D => Disk]}
<Call 0x23de8 0x103e0> {[«14""»]|[$$ D => Disk]}
WriteConsoleStringCrLf(str : String)
<POP 23dea-23deb StackAdj> Δ+18 ↓ {}
<Blob 0x23deb [22] @> Δ-22 {[«22""»]}
<POP 23dfa-23dfe StackAdj> Δ-12 {[«22""»]|[-12-]}
<Lit 0x23dfe 21> {[«22""»]|[-8-]|[$$Please enter T or D:_]}
<Call 0x23e0c 0x103e4> {[«22""»]|[-8-]|[$$Please enter T or D:_]}
AskConsoleString(prompt : String) : String
<POP 23e12-23e14 StackAdj> Δ+4 {[«22""»]|[-8-]}
<Call 0x23e14 0x102f0> {[«22""»]|[-8-]}
ToUpper(a : String) : String
<POP 23e1a-23e1c StackAdj> Δ+4 {[«22""»]|[-4-]}
<MI 23e1c MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«22""»]}
<POP 23e1e-23e22 StackAdj> Δ+22 {}
<POP 23e22-23e2e Naked> Σ0 ↓ →0x23e34 ←0x23d2e ←0x23d82
<MI 23e22 MOVEA.L (A6-0x6),A0> {}
<MI 23e24 MOVE.B (A0+0x2),D0> {}
<MI 23e28 CMPI.B #0x54,D0> {}
<MI 23e2c BNE 0x23e34> {}
<POP 23e2e-23e34 Naked> Σ0 →0x23e64
<Call 0x23e2e 0x2365c> {}
<MI 23e32 BRA 0x23e64> {}
<POP 23e34-23e3a Naked> Σ0 ↓ →0x23e40 ←0x23e22
<MI 23e34 CMPI.B #0x44,D0> {}
<MI 23e38 BNE 0x23e40> {}
<POP 23e3a-23e40 Naked> Σ0 →0x23e64
<Call 0x23e3a 0x239c6> {}
<MI 23e3e BRA 0x23e64> {}
<POP 23e40-23e64 Naked> Σ0 ↓ ←0x23e34
<Blob 0x23e40 [24] @> Δ-24 {[«24""»]}
<POP 23e4c-23e4e StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x23e4e 24> {[«24""»]|[$$Invalid option specified]}
<Call 0x23e5c 0x20c8c> {[«24""»]|[$$Invalid option specified]}
<POP 23e60-23e64 StackAdj> Δ+28 {}
<POP 23e64-23e68 Naked> Σ0 ↓ ←0x23e2e ←0x23e3a
<Call 0x23e64 0x23b98> {}
<POP 23e68-23e70 Epilogue> Σ0
@ 23e70
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<POP 23e70-23fa6 Body> Δ+10
<POP 23e70-23e86 Prologue> Σ0 ↓
<POP 23e86-23e94 RegCacheLoad> Σ0 ↓
<POP 23e94-23e9c Naked> Σ0 ↓
<MI 23e94 MOVEA.L (A6+0x8),A0> {}
<MI 23e98 CLR.B (A0)> {}
<MI 23e9a MOVEQ.L #0x00,D6> {}
<POP 23e9c-23ef4 Naked> Σ0 ↓ →0x23f90 ←0x23f90
<MI 23e9c MOVE.B D6,D0> {}
<MI 23e9e EXTB.W D0> {}
<MI 23ea0 ASL.W #0x4,D0> {}
<MI 23ea2 LEA.L 0x20c0b,A0> {}
<Blob 0x23ea6 [16] (A0+D0.W)> Δ-16 {[«16»]}
<POP 23eb6-23eb8 StackAdj> Δ-4 {[«16»]|[-4-]}
<Lit 0x23eb8> {[«16»]|[$$…]}
<Pointer.sp 0x23eb8 4> Δ-4
<Const 0x23ebc 0x1.2> Δ-2
<Const 0x23ebe 0x10.2> Δ-2
<Call 0x23ec0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23ec6-23ec8 StackAdj> Δ+8
<MI 23ec8 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«16»]}
<POP 23eca-23ece StackAdj> Δ+10 {[-6-]}
<MI 23ece MOVE.L (A6-0x6),(A7)> {[-2-]|[4, '(A6-0x6)']}
<MI 23ed0 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x6)']|[4, '(A6+0x10)']}
<Call 0x23ed4 0x102c8> {[-2-]|[4, '(A6-0x6)']|[4, '(A6+0x10)']}
StringEqual(a, b : String) : Byte
<POP 23eda-23edc StackAdj> Δ+8 {[-2-]}
<MI 23edc MOVE.B (A7)+,D0> Δ+2 {}
<MI 23ede EXTB.W D0> {}
<POP 0x23ee0 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 23ee2 MOVE.B D0,D5> {}
<Pointer.fp 0x23ee4 <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x23ee6 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 23eec-23eee StackAdj> Δ+4 {}
<MI 23eee TST.B D5> {}
<MI 23ef0 BEQ 0x23f90> {}
<POP 23ef4-23f08 Naked> Σ0 →0x23f18 →0x23f24 →0x23f28 →0x23f32 →0x23f72 →0x23f7a →0x23f82 →0x23f84
<MI 23ef4 MOVE.B D6,D0> {}
<MI 23ef6 EXTB.W D0> {}
<POP 0x23ef8 LimitCheck 0x0 ≤ D0 ≤ 0x7> {}
<MI 23efe ADD.W D0,D0> {}
<MI 23f00 SWITCH D0.W> {}
<POP 23f18-23f1a Naked> Σ0 Δ-2 ↓ ←0x23ef4
<Const 0x23f18 0x1.2> Δ-2 {[#1]}
<POP 23f1a-23f24 Naked> Σ-2 Δ+2 →0x23f88 ←0x23f24
<MI 23f1a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6+0xc)']}
<Call 0x23f1c 0x22ad8> {[-2-]|[4, '(A6+0xc)']}
<POP 23f20-23f22 StackAdj> Δ+6 {}
<MI 23f22 BRA 0x23f88> {}
<POP 23f24-23f28 Naked> Σ0 Δ-2 →0x23f1a ←0x23ef4
<MI 23f24 CLR.B -(A7)> Δ-2 {[#0]}
<MI 23f26 BRA 0x23f1a> {[#0]}
<POP 23f28-23f2e Naked> Σ0 Δ-4 ↓ ←0x23ef4 ←0x23f82
<MI 23f28 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x23f2a 0x2299a> {[4, '(A6+0xc)']}
<POP 23f2e-23f32 Naked> Σ-4 Δ+4 →0x23f88 ←0x23f72 ←0x23f7a
<POP 23f2e-23f30 StackAdj> Δ+4 {}
<MI 23f30 BRA 0x23f88> {}
<POP 23f32-23f34 Naked> Σ0 ↓ ←0x23ef4
<MI 23f32 MOVEQ.L #0x00,D7> {}
<POP 23f34-23f70 Naked> Σ0 ↓ →0x23f34 ←0x23f34
<MI 23f34 MOVE.B D7,D0> {}
<MI 23f36 EXTB.W D0> {}
<MI 23f38 ASL.W #0x4,D0> {}
<MI 23f3a LEA.L 0x20c0b,A0> {}
<Blob 0x23f3e [16] (A0+D0.W)> Δ-16 {[«16»]}
<POP 23f4e-23f50 StackAdj> Δ-4 {[«16»]|[-4-]}
<Lit 0x23f50> {[«16»]|[$$…]}
<Pointer.sp 0x23f50 4> Δ-4
<Const 0x23f54 0x1.2> Δ-2
<Const 0x23f56 0x10.2> Δ-2
<Call 0x23f58 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23f5e-23f60 StackAdj> Δ+8
<Call 0x23f60 0x103e0> {[«16»]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 23f66-23f6a StackAdj> Δ+20 {}
<MI 23f6a ADDQ.B #0x1,D7> {}
<MI 23f6c CMP.B #0x07,D7> {}
<MI 23f6e BLE 0x23f34> {}
<POP 23f70-23f72 Naked> Σ0 →0x23f88
<MI 23f70 BRA 0x23f88> {}
<POP 23f72-23f7a Naked> Σ0 Δ-4 →0x23f2e ←0x23ef4
<MI 23f72 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x23f74 0x235b2> {[4, '(A6+0xc)']}
<MI 23f78 BRA 0x23f2e> {[4, '(A6+0xc)']}
<POP 23f7a-23f82 Naked> Σ0 Δ-4 →0x23f2e ←0x23ef4
<MI 23f7a MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x23f7c 0x23d02> {[4, '(A6+0xc)']}
<MI 23f80 BRA 0x23f2e> {[4, '(A6+0xc)']}
<POP 23f82-23f84 Naked> Σ0 →0x23f28 ←0x23ef4
<MI 23f82 BRA 0x23f28> {}
<POP 23f84-23f88 Naked> Σ0 ↓ ←0x23ef4
<Call 0x23f84 0x22e9a> {}
<POP 23f88-23f90 Naked> Σ0 →0x23f98 ←0x23f1a ←0x23f2e ←0x23f70
<MI 23f88 MOVEA.L (A6+0x8),A0> {}
<MI 23f8c MOVE.B #0x01,(A0)> {}
<MI 23f8e BRA 0x23f98> {}
<POP 23f90-23f98 Naked> Σ0 ↓ →0x23e9c ←0x23e9c
<MI 23f90 ADDQ.B #0x1,D6> {}
<MI 23f92 CMP.B #0x07,D6> {}
<MI 23f94 BLE 0x23e9c> {}
<POP 23f98-23f9e Naked> Σ0 ↓ ←0x23f88
<Call 0x23f98 0x10398> {}
FSCALL_10398
<POP 23f9e-23fa6 Epilogue> Σ0
@ 23fa6
<LVAR 0x008 4(r)>
<POP 23fa6-23fde Body>
<POP 23fa6-23fbc Prologue> Σ0 ↓
<POP 23fbc-23fd6 Naked> Σ0 ↓
<Call 0x23fbc 0x10398> {}
FSCALL_10398
<Call 0x23fc2 0x22132> {}
<MI 23fc6 MOVEA.L (A6+0x8),A0> {}
<MI 23fca LEA.L 0x20bbc,A1> {}
<BlockMove 10,A1,A0> {}
<POP 23fd6-23fde Epilogue> Σ0
@ 2465a
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(w)>
<POP 2465a-2469c Body>
<POP 2465a-24670 Prologue> Σ0 ↓
<POP 24670-24674 Naked> Σ0 ↓
<MI 24670 MOVEA.L (A6+0x8),A4> {}
<POP 24674-2467a Naked> Σ0 ↓ →0x24694 ←0x2467a
<MI 24674 CMPA.W #0x1,A4> {}
<MI 24678 BEQ 0x24694> {}
<POP 2467a-24694 Naked> Σ0 →0x24674
<MI 2467a MOVE.L A4,(A6-0x4)> {}
<MI 2467e MOVEA.L (A4+0x8),A4> {}
<Pointer.fp 0x24682 <LVAR -0x004 @ 4(w)>> Δ-4 {[@@-4]}
<Const 0x24686 0xc.4> Δ-4 {[@@-4]|[##12]}
<Call 0x2468a 0x102a8> {[@@-4]|[##12]}
Free2(a : Pointer; b : Long)
<POP 24690-24692 StackAdj> Δ+8 {}
<MI 24692 BRA 0x24674> {}
<POP 24694-2469c Epilogue> Σ0 ←0x24674
@ 2469c
<LVAR 0x008 4(r)>
<POP 2469c--0001 Body>
<POP 2469c-246b2 Prologue> Σ0 ↓
<POP 246b2-246bc Naked> Σ0 ↓ →0x246c6
<MI 246b2 MOVEA.L (A6+0x8),A0> {}
<MI 246b6 CMPA.W #0x1,A0> {}
<MI 246ba BEQ 0x246c6> {}
<POP 246bc-246c6 Naked> Σ0 ↓
<MI 246bc MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Call 0x246be 0x103e0> {[4, 'A0']}
WriteConsoleStringCrLf(str : String)
<POP 246c4-246c6 StackAdj> Δ+4 {}
<POP 246c6-246d4 Naked> Σ0 ←0x246b2
<POP 246c6-246d4 Bailout> {}
<MI 246c6 MOVEA.L (A5+0x8),A7>
<MI 246ca MOVEA.W #0x0,A6>
<MI 246ce JMP 0x27f78>
@ 246fa
<LVAR 0x008 1(rw)>
<POP 246fa-24738 Body>
<POP 246fa-24710 Prologue> Σ0 ↓
<POP 24710-2471e Naked> Σ0 ↓ →0x24724
<MI 24710 MOVE.L 0x3d1f6,D0> {}
<MI 24716 CMP.L 0x3d1fa,D0> {}
<MI 2471c BLE 0x24724> {}
<POP 2471e-24724 Naked> Σ0 →0x24730
<MI 2471e CLR.B (A6+0x8)> {}
<MI 24722 BRA 0x24730> {}
<POP 24724-24730 Naked> Σ0 ↓ ←0x24710
<MI 24724 LEA.L 0x3b1ee,A0> {}
<MI 2472a MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 24730-24738 Epilogue> Σ0 ←0x2471e
@ 24738
<LVAR 0x008 1(rw)>
<POP 24738-2477c Body>
<POP 24738-2474e Prologue> Σ0 ↓
<POP 2474e-24754 RegCacheLoad> Σ0 ↓
<POP 24754-2475e Naked> Σ0 ↓ →0x24764
<MI 24754 MOVE.L 0x3d1f6,D0> {}
<MI 24756 CMP.L 0x3d1fa,D0> {}
<MI 2475c BLE 0x24764> {}
<POP 2475e-24764 Naked> Σ0 →0x24770
<MI 2475e CLR.B (A6+0x8)> {}
<MI 24762 BRA 0x24770> {}
<POP 24764-24770 Naked> Σ0 ↓ ←0x24754
<MI 24764 LEA.L 0x3b1ee,A0> {}
<MI 2476a MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 24770-24774 Naked> Σ0 ↓ ←0x2475e
<MI 24770 ADDQ.L #0x1,D0> {}
<MI 24772 MOVE.L D0,0x3d1f6> {}
<POP 24774-2477c Epilogue> Σ0
@ 2477c
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2477c-24856 Body>
<POP 2477c-24792 Prologue> Σ0 ↓
<POP 24792-247a4 RegCacheLoad> Σ0 ↓
<POP 247a4-247b0 Naked> Σ0 ↓ →0x247ba ←0x2484a
<POP 247a4-247a6 StackAdj> Δ-2 {[-2-]}
<Call 0x247a6 0x246fa> {[-2-]}
<MI 247aa MOVE.B (A7)+,D0> Δ+2 {}
<MI 247ac CMP.B #0x5b,D0> {}
<MI 247ae BNE 0x247ba> {}
<POP 247b0-247ba Naked> Σ0 →0x2484a
<Call 0x247b0 0x27a82> {}
<MI 247b6 BRA 0x2484a> {}
<POP 247ba-247c6 Naked> Σ0 ↓ →0x247de ←0x247a4
<MI 247ba MOVE.L 0x3d1f6,D6> {}
<POP 247bc-247be StackAdj> Δ-2 {[-2-]}
<Call 0x247be 0x24738> {[-2-]}
<MI 247c2 MOVE.B (A7)+,D5> Δ+2 {}
<MI 247c4 BNE 0x247de> {}
<POP 247c6-247dc Naked> Σ0 →0x2484e
<MI 247c6 MOVEA.L (A6+0xc),A0> {}
<MI 247ca LEA.L 0x245b4,A1> {}
<BlockMove 8,A1,A0> {}
<MI 247d6 MOVEA.L (A6+0x8),A0> {}
<MI 247d8 MOVE.B #0x02,(A0)> {}
<MI 247da BRA 0x2484e> {}
<POP 247de-247e2 Naked> Σ0 ↓ →0x247ea ←0x247ba
<MI 247de CMP.B #0x2c,D5> {}
<MI 247e0 BNE 0x247ea> {}
<POP 247e2-247ea Naked> Σ0 →0x2483a
<MI 247e2 MOVEA.L (A6+0x8),A0> {}
<MI 247e4 MOVE.B #0x03,(A0)> {}
<MI 247e8 BRA 0x2483a> {}
<POP 247ea-247ee Naked> Σ0 ↓ →0x247f6 ←0x247de
<MI 247ea CMP.B #0x3b,D5> {}
<MI 247ec BNE 0x247f6> {}
<POP 247ee-247f6 Naked> Σ0 →0x2483a
<MI 247ee MOVEA.L (A6+0x8),A0> {}
<MI 247f0 MOVE.B #0x01,(A0)> {}
<MI 247f4 BRA 0x2483a> {}
<POP 247f6-247fc Naked> Σ0 ↓ →0x24802 ←0x247ea
<MI 247f6 CMPI.B #0x5d,D5> {}
<MI 247fa BNE 0x24802> {}
<POP 247fc-24802 Naked> Σ0 →0x2483a
<MI 247fc MOVEA.L (A6+0x8),A0> {}
<MI 247fe MOVE.B #0x02,(A0)> {}
<MI 24800 BRA 0x2483a> {}
<POP 24802-24806 Naked> Σ0 ↓ ←0x247f6
<MI 24802 MOVEA.L (A6+0x8),A0> {}
<MI 24804 CLR.B (A0)> {}
<POP 24806-24812 Naked> Σ0 ↓ →0x2481a ←0x24838
<POP 24806-24808 StackAdj> Δ-2 {[-2-]}
<Call 0x24808 0x246fa> {[-2-]}
<MI 2480c MOVE.B (A7)+,D7> Δ+2 {}
<MI 2480e CMP.B #0x5b,D7> {}
<MI 24810 BNE 0x2481a> {}
<POP 24812-2481a Naked> Σ0 →0x24838
<Call 0x24812 0x27a82> {}
<MI 24818 BRA 0x24838> {}
<POP 2481a-2481e Naked> Σ0 ↓ →0x2482c ←0x24806
<MI 2481a CMP.B #0x3b,D7> {}
<MI 2481c BEQ 0x2482c> {}
<POP 2481e-24822 Naked> Σ0 ↓ →0x2482c
<MI 2481e CMP.B #0x2c,D7> {}
<MI 24820 BEQ 0x2482c> {}
<POP 24822-24828 Naked> Σ0 ↓ →0x2482c
<MI 24822 CMPI.B #0x5d,D7> {}
<MI 24826 BEQ 0x2482c> {}
<POP 24828-2482c Naked> Σ0 ↓ →0x24830
<MI 24828 TST.B D7> {}
<MI 2482a BNE 0x24830> {}
<POP 2482c-2482e Naked> Σ0 →0x2483a ←0x2481a ←0x2481e ←0x24822
<MI 2482c BRA 0x2483a> {}
<POP 24830-24838 Naked> Σ0 ↓ ←0x24828
<POP 24830-24832 StackAdj> Δ-2 {[-2-]}
<Call 0x24832 0x24738> {[-2-]}
<MI 24836 MOVE.B (A7)+,D7> Δ+2 {}
<POP 24838-2483a Naked> Σ0 →0x24806 ←0x24812
<MI 24838 BRA 0x24806> {}
<POP 2483a-2484a Naked> Σ0 →0x2484e ←0x247e2 ←0x247ee ←0x247fc ←0x2482c
<MI 2483a MOVEA.L (A6+0xc),A0> {}
<MI 2483e MOVE.L D6,(A0)> {}
<MI 24840 MOVE.L 0x3d1f6,(A0+0x4)> {}
<MI 24844 SUBQ.L #0x1,(A0+0x4)> {}
<MI 24848 BRA 0x2484e> {}
<POP 2484a-2484e Naked> Σ0 →0x247a4 ←0x247b0
<MI 2484a BRA 0x247a4> {}
<POP 2484e-24856 Epilogue> Σ0 ←0x247c6 ←0x2483a
@ 24856
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(rw)>
<LVAR -0x008 4(w)>
<LVAR -0x00c @ 4(w)>
<POP 24856-248f4 Body>
<POP 24856-2486c Prologue> Σ0 ↓
<POP 2486c-24876 RegCacheLoad> Σ0 ↓
<POP 24876-24882 Naked> Σ0 ↓ →0x24888
<MI 24876 MOVEA.L (A6+0x8),A0> {}
<MI 2487a MOVE.B (A0),D0> {}
<MI 2487c CMPI.B #0x01,D0> {}
<MI 24880 BEQ 0x24888> {}
<POP 24882-24888 Naked> Σ0 ↓ →0x24896
<MI 24882 CMPI.B #0x02,D0> {}
<MI 24886 BNE 0x24896> {}
<POP 24888-24896 Naked> Σ0 →0x248d2 ←0x24876
<MI 24888 MOVE.L 0x245b4,(A6-0xc)> {}
<MI 2488c MOVE.L 0x245b8,(A6-0x8)> {}
<MI 24892 MOVE.B D0,(A6-0x4)> {}
<MI 24894 BRA 0x248d2> {}
<POP 24896-248a8 Naked> Σ0 ↓ →0x248c4 ←0x24882 ←0x248cc
<Pointer.fp 0x24896 <LVAR -0x00c @ 4(w)>> Δ-4 {[@@-12]}
<Pointer.fp 0x24898 <LVAR -0x004 @ 1(rw)>> Δ-4 {[@@-12]|[@@-4]}
<Call 0x2489a 0x2477c> {[@@-12]|[@@-4]}
<POP 2489e-248a0 StackAdj> Δ+8 {}
<MI 248a0 MOVEA.L (A6+0x8),A0> {}
<MI 248a4 TST.B (A6-0x4)> {}
<MI 248a6 BEQ 0x248c4> {}
<POP 248a8-248ae Naked> Σ0 ↓ →0x248c4
<MI 248a8 MOVE.B (A0),D0> {}
<MI 248aa CMP.B #0x03,D0> {}
<MI 248ac BNE 0x248c4> {}
<POP 248ae-248c4 Naked> Σ0 →0x248cc
<MI 248ae MOVE.B (A6-0x4),D0> {}
<MI 248b0 EXTB.W D0> {}
<POP 0x248b2 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 248b4 MOVE.B D0,(A0)> {}
<MI 248b6 MOVE.L 0x245b4,(A6-0xc)> {}
<MI 248ba MOVE.L 0x245b8,(A6-0x8)> {}
<MI 248c0 CLR.B (A6-0x4)> {}
<MI 248c2 BRA 0x248cc> {}
<POP 248c4-248cc Naked> Σ0 ↓ ←0x24896 ←0x248a8
<MI 248c4 MOVE.B (A6-0x4),D0> {}
<MI 248c6 EXTB.W D0> {}
<POP 0x248c8 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 248ca MOVE.B D0,(A0)> {}
<POP 248cc-248d2 Naked> Σ0 ↓ →0x24896 ←0x248ae
<MI 248cc MOVE.B (A6-0x4),D0> {}
<MI 248ce CMP.B #0x03,D0> {}
<MI 248d0 BEQ 0x24896> {}
<POP 248d2-248ec Naked> Σ0 ↓ ←0x24888
<MI 248d2 MOVEA.L (A6+0x10),A0> {}
<MI 248d6 LEA.L (A6-0xc),A1> {}
<BlockMove 8,A1,A0> {}
<MI 248e0 MOVEA.L (A6+0xc),A0> {}
<MI 248e4 MOVE.B (A6-0x4),D0> {}
<MI 248e6 EXTB.W D0> {}
<POP 0x248e8 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 248ea MOVE.B D0,(A0)> {}
<POP 248ec-248f4 Epilogue> Σ0
@ 248f4
<LVAR 0x008 4(rw)>
<LVAR -0x004 1(rw)>
<LVAR -0x010 2(rw)>
<POP 248f4-249fc Body>
<POP 248f4-2490a Prologue> Σ0 ↓
<POP 2490a-24918 RegCacheLoad> Σ0 ↓
<POP 24918-24930 Naked> Σ0 Δ-4 ↓
<MI 24918 MOVEQ.L #0x01,D6> {}
<MI 2491a CLR.W (A6-0x10)> {}
<MI 2491c MOVEQ.L #0x01,D5> {}
<POP 2491e-24920 StackAdj> Δ-4 {[-4-]}
<MI 24920 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x24922 0x102f0> {[-4-]|[4, '(A6+0x8)']}
ToUpper(a : String) : String
<POP 24928-2492a StackAdj> Δ+4 {[-4-]}
<MI 2492a MOVE.L (A7)+,(A6+0x8)> Δ+4 {}
<MI 2492c MOVEA.L (A6+0x8),A0> {}
<MI 2492e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<POP 24930-2493c Naked> Σ-4 ↓ →0x249ea ←0x249d0
<MI 24930 MOVEA.L (A7),A0> {[-4-]}
<MI 24932 MOVE.W (A0),D0> {[-4-]}
<MI 24934 EXTW.L D0> {[-4-]}
<MI 24936 CMP.L D0,D6> {[-4-]}
<MI 24938 BGT 0x249ea> {[-4-]}
<POP 2493c-2494e Naked> Σ-4 ↓ →0x24950
<MI 2493c CLR.L D0> {[-4-]}
<MI 2493e MOVE.B (A0+D6.L+#0x1),D0> {[-4-]}
<MI 24942 ANDI.W #0x007f,D0> {[-4-]}
<MI 24946 MOVE.B D0,(A6-0x4)> {[-4-]}
<MI 24948 CMPI.B #0x09,D0> {[-4-]}
<MI 2494c BNE 0x24950> {[-4-]}
<POP 2494e-24950 Naked> Σ-4 ↓
<MI 2494e MOVE.B #0x20,(A6-0x4)> {[-4-]}
<POP 24950-2495c Naked> Σ-4 ↓ →0x2498c ←0x2493c
<MI 24950 CLR.L D0> {[-4-]}
<MI 24952 MOVE.B (A6-0x4),D0> {[-4-]}
<MI 24954 SUB.W #0x20,D0> {[-4-]}
<MI 24956 CMPI.W #0x000c,D0> {[-4-]}
<MI 2495a BHI 0x2498c> {[-4-]}
<POP 2495c-24966 Naked> Σ-4 →0x24984 →0x24980 →0x2498c →0x2498c →0x2498c →0x2498c →0x2498c →0x2498c →0x2498c →0x2498c →0x2498c →0x2498c →0x24988
<MI 2495c ADD.W D0,D0> {[-4-]}
<MI 2495e SWITCH D0.W> {[-4-]}
<POP 24980-24982 Naked> Σ-4 →0x249ea ←0x2495c
<MI 24980 BRA 0x249ea> {[-4-]}
<POP 24984-24988 Naked> Σ-4 →0x2498e ←0x2495c
<MI 24984 MOVEQ.L #0x00,D7> {[-4-]}
<MI 24986 BRA 0x2498e> {[-4-]}
<POP 24988-2498c Naked> Σ-4 →0x2498e ←0x2495c
<MI 24988 MOVEQ.L #0x01,D7> {[-4-]}
<MI 2498a BRA 0x2498e> {[-4-]}
<POP 2498c-2498e Naked> Σ-4 ↓ ←0x24950 ←0x2495c ←0x2495c ←0x2495c ←0x2495c ←0x2495c ←0x2495c ←0x2495c ←0x2495c ←0x2495c ←0x2495c
<MI 2498c MOVEQ.L #0x02,D7> {[-4-]}
<POP 2498e-249b2 Naked> Σ-4 →0x249b8 →0x249ba →0x249c4 ←0x24984 ←0x24988
<MI 2498e MOVEQ.L #0x03,D0> {[-4-]}
<MI 24990 MULS.W (A6-0x10),D0> {[-4-]}
<MI 24992 LEA.L 0x245bc,A0> {[-4-]}
<MI 24996 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 2499a CLR.L D0> {[-4-]}
<MI 2499c MOVE.B (A0+D7.W),D0> {[-4-]}
<POP 0x249a0 LimitCheck 0x0 ≤ D0 ≤ 0x2> {[-4-]}
<MI 249a8 ADD.W D0,D0> {[-4-]}
<MI 249aa SWITCH D0.W> {[-4-]}
<POP 249b8-249ba Naked> Σ-4 →0x249d0 ←0x2498e
<MI 249b8 BRA 0x249d0> {[-4-]}
<POP 249ba-249c4 Naked> Σ-4 →0x249d0 ←0x2498e
<MI 249ba MOVEA.L (A7),A0> {[-4-]}
<MI 249bc MOVE.B (A6-0x4),(A0+D5.L+#0x1)> {[-4-]}
<MI 249c0 ADDQ.L #0x1,D5> {[-4-]}
<MI 249c2 BRA 0x249d0> {[-4-]}
<POP 249c4-249d0 Naked> Σ-4 ↓ ←0x2498e
<MI 249c4 MOVEA.L (A7),A0> {[-4-]}
<MI 249c6 MOVE.B #0x2c,(A0+D5.L+#0x1)> {[-4-]}
<MI 249cc ADDQ.L #0x1,D5> {[-4-]}
<MI 249ce SUBQ.L #0x1,D6> {[-4-]}
<POP 249d0-249ea Naked> Σ-4 →0x24930 ←0x249b8 ←0x249ba
<MI 249d0 MOVEQ.L #0x03,D0> {[-4-]}
<MI 249d2 MULS.W (A6-0x10),D0> {[-4-]}
<MI 249d4 LEA.L 0x245c5,A0> {[-4-]}
<MI 249d8 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 249dc CLR.L D0> {[-4-]}
<MI 249de MOVE.B (A0+D7.W),D0> {[-4-]}
<MI 249e2 MOVE.W D0,(A6-0x10)> {[-4-]}
<MI 249e4 ADDQ.L #0x1,D6> {[-4-]}
<MI 249e6 BRA 0x24930> {[-4-]}
<POP 249ea-249f4 Naked> Σ-4 Δ+4 ↓ ←0x24930 ←0x24980
<MI 249ea MOVEA.L (A7),A0> {[-4-]}
<MI 249ec MOVE.L D5,D0> {[-4-]}
<MI 249ee SUBQ.L #0x1,D0> {[-4-]}
<MI 249f0 MOVE.W D0,(A0)> {[-4-]}
<POP 249f2-249f4 StackAdj> Δ+4 {}
<POP 249f4-249fc Epilogue> Σ0
@ 249fc
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x00a @>
<LVAR -0x00e @ 4(r)>
<LVAR -0x014 @ 1(r)>
<POP 249fc-24aa8 Body>
<POP 249fc-24a12 Prologue> Σ0 ↓
<POP 24a12-24a18 RegCacheLoad> Σ0 ↓
<POP 24a18-24a26 Naked> Σ0 ↓ →0x24a2e
<POP 24a18-24a1a StackAdj> Δ-2 {[-2-]}
<Call 0x24a1a 0x246fa> {[-2-]}
<MI 24a1e MOVE.B (A7)+,D0> Δ+2 {}
<MI 24a20 CMPI.B #0x5b,D0> {}
<MI 24a24 BNE 0x24a2e> {}
<POP 24a26-24a2e Naked> Σ0 ↓
<POP 24a26-24a28 StackAdj> Δ-2 {[-2-]}
<Call 0x24a28 0x24738> {[-2-]}
<MI 24a2c MOVE.B (A7)+,D7> Δ+2 {}
<POP 24a2e-24a38 Naked> Σ0 ↓ ←0x24a18
<MI 24a2e MOVEA.L (A6+0xc),A0> {}
<MI 24a32 MOVE.L #0x01,(A0)> {}
<MI 24a34 CLR.B (A6-0x14)> {}
<POP 24a38-24a52 Naked> Σ0 ↓ →0x24a88 ←0x24a88
<Pointer.fp 0x24a38 <LVAR -0x00a @>> Δ-4 {[@@-10]}
<Pointer.fp 0x24a3c <LVAR -0x002 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]}
<Pointer.fp 0x24a40 <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]|[@@-20]}
<Call 0x24a44 0x24856> {[@@-10]|[@@-2]|[@@-20]}
<POP 24a48-24a4c StackAdj> Δ+12 {}
<MI 24a4c TST.B (A6-0x2)> {}
<MI 24a50 BNE 0x24a88> {}
<POP 24a52-24a7e Naked> Σ0 ↓ →0x24a82
<Pointer.fp 0x24a52 <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<Const 0x24a54 0xc.4> Δ-4 {[@@-14]|[##12]}
<Call 0x24a58 0x1029c> {[@@-14]|[##12]}
Malloc1(length : Long) : Pointer
<POP 24a5e-24a60 StackAdj> Δ+8 {}
<MI 24a60 MOVEA.L (A6-0xe),A0> {}
<MI 24a62 MOVEA.L A0,A1> {}
<MI 24a64 LEA.L (A6-0xa),A2> {}
<BlockMove 8,A2,A1> {}
<MI 24a70 MOVE.L #0x01,(A0+0x8)> {}
<MI 24a74 MOVEA.L (A6+0xc),A0> {}
<MI 24a78 MOVEA.L (A0),A1> {}
<MI 24a7a CMPA.W #0x01,A1> {}
<MI 24a7c BNE 0x24a82> {}
<POP 24a7e-24a82 Naked> Σ0 →0x24a86
<MI 24a7e MOVE.L (A6-0xe),(A0)> {}
<MI 24a80 BRA 0x24a86> {}
<POP 24a82-24a86 Naked> Σ0 ↓ ←0x24a52
<MI 24a82 MOVE.L (A6-0xe),(A4+0x8)> {}
<POP 24a86-24a88 Naked> Σ0 ↓ ←0x24a7e
<MI 24a86 MOVEA.L (A6-0xe),A4> {}
<POP 24a88-24a8e Naked> Σ0 ↓ →0x24a38 ←0x24a38
<MI 24a88 TST.B (A6-0x2)> {}
<MI 24a8c BEQ 0x24a38> {}
<POP 24a8e-24a9e Naked> Σ0 ↓ →0x24aa0
<MI 24a8e MOVEA.L (A6+0x8),A0> {}
<MI 24a92 CLR.B (A0)> {}
<MI 24a94 MOVE.B (A6-0x2),D0> {}
<MI 24a98 CMPI.B #0x02,D0> {}
<MI 24a9c BNE 0x24aa0> {}
<POP 24a9e-24aa0 Naked> Σ0 ↓
<MI 24a9e ADDQ.B #0x1,(A0)> {}
<POP 24aa0-24aa8 Epilogue> Σ0 ←0x24a8e
@ 24aa8
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 24aa8-24ade Body>
<POP 24aa8-24abe Prologue> Σ0 ↓
<POP 24abe-24ac4 Naked> Σ0 ↓
<MI 24abe MOVEQ.L #-0x01,D7> {}
<MI 24ac0 MOVEA.L (A6+0x8),A4> {}
<POP 24ac4-24aca Naked> Σ0 ↓ →0x24ad2 ←0x24aca
<MI 24ac4 CMPA.W #0x1,A4> {}
<MI 24ac8 BEQ 0x24ad2> {}
<POP 24aca-24ad2 Naked> Σ0 →0x24ac4
<MI 24aca ADDQ.L #0x1,D7> {}
<MI 24acc MOVEA.L (A4+0x8),A4> {}
<MI 24ad0 BRA 0x24ac4> {}
<POP 24ad2-24ad6 Naked> Σ0 ↓ ←0x24ac4
<MI 24ad2 MOVE.L D7,(A6+0xc)> {}
<POP 24ad6-24ade Epilogue> Σ0
@ 24ade
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24ade-24b6a Body>
<POP 24ade-24af4 Prologue> Σ0 ↓
<POP 24af4-24af6 RegCacheLoad> Σ0 ↓
<POP 24af6-24b0a Naked> Σ0 ↓ →0x24b62
<POP 24af6-24af8 StackAdj> Δ-4 {[-4-]}
<MI 24af8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x24afc 0x24aa8> {[-4-]|[4, '(A6+0xc)']}
<POP 24b00-24b02 StackAdj> Δ+4 {[-4-]}
<MI 24b02 MOVE.L (A7)+,D0> Δ+4 {}
<MI 24b04 CMP.L (A6+0x8),D0> {}
<MI 24b08 BEQ 0x24b62> {}
<POP 24b0a-24b62 Naked> Σ0 ↓
<MI 24b0a MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24b0e 0x2465a> {[4, '(A6+0xc)']}
<POP 24b12-24b14 StackAdj> Δ+4 {}
<Blob 0x24b14 [32] @> Δ-32 {[«32""»]}
<Blob 0x24b20 [10] (A6+0x1a)> Δ-10 {[«32""»]|[«10»]}
<POP 24b2c-24b2e StackAdj> Δ-8 {[«32""»]|[«10»]|[-8-]}
<Lit 0x24b2e 32> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]}
<POP 24b3e-24b40 StackAdj> Δ-4 {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[-4-]}
<Lit 0x24b40> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
<Pointer.sp 0x24b40 12> Δ-4
<Const 0x24b44 0x1.2> Δ-2
<Const 0x24b46 0xa.2> Δ-2
<Call 0x24b4a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 24b50-24b52 StackAdj> Δ+8
<Call 0x24b52 0x102d0> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 24b58-24b5a StackAdj> Δ+8 {[«32""»]|[«10»]|[-4-]}
<Call 0x24b5a 0x2469c> {[«32""»]|[«10»]|[-4-]}
<POP 24b5e-24b62 StackAdj> Δ+46 {}
<POP 24b62-24b6a Epilogue> Σ0 ←0x24af6
@ 24b6a
<LVAR 0x014 1(rw)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24b6a-24bf0 Body> Δ-4
<POP 24b6a-24b80 Prologue> Σ0 ↓
<POP 24b80-24b94 Naked> Σ0 ↓ →0x24be2
<MI 24b80 CLR.B (A6+0x14)> {}
<MI 24b84 MOVE.L (A6+0x10),D0> {}
<MI 24b88 ADD.L (A6+0x8),D0> {}
<MI 24b8c CMP.L 0x3d1fa,D0> {}
<MI 24b92 BGT 0x24be2> {}
<POP 24b94-24b9a Naked> Σ0 Δ-4 ↓
<MI 24b94 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 24b98 MOVEQ.L #0x01,D7> {[4, '(A6+0x8)']}
<POP 24b9a-24b9e Naked> Σ-4 ↓ →0x24be0 ←0x24bdc
<MI 24b9a CMP.L (A7),D7> {[-4-]}
<MI 24b9c BGT 0x24be0> {[-4-]}
<POP 24b9e-24bd8 Naked> Σ-4 ↓ →0x24bdc
<MI 24b9e MOVE.L (A6+0x10),D0> {[-4-]}
<MI 24ba2 ADD.L D7,D0> {[-4-]}
<MI 24ba4 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x24ba6 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]}
<MI 24bb0 LEA.L 0x3b1ee,A0> {[-4-]}
<MI 24bb6 MOVE.L (A6+0xc),D1> {[-4-]}
<MI 24bba ADD.L D7,D1> {[-4-]}
<MI 24bbc SUBQ.L #0x1,D1> {[-4-]}
<MI 24bbe SUBQ.L #0x1,D1> {[-4-]}
<POP 0x24bc0 LimitCheck 0x0 ≤ D1 ≤ 0x3e> {[-4-]}
<MI 24bca LEA.L 0x241b6,A1> {[-4-]}
<MI 24bce MOVE.B (A0+D0.L+#0x8),D0> {[-4-]}
<MI 24bd2 CMP.B (A1+D1.L),D0> {[-4-]}
<MI 24bd6 BEQ 0x24bdc> {[-4-]}
<POP 24bd8-24bdc Naked> Σ-4 Δ+4 →0x24be8
<POP 24bd8-24bda StackAdj> Δ+4 {}
<MI 24bda BRA 0x24be8> {}
<POP 24bdc-24be0 Naked> Σ-4 ↓ →0x24b9a ←0x24b9e
<MI 24bdc ADDQ.L #0x1,D7> {[-4-]}
<MI 24bde BVC 0x24b9a> {[-4-]}
<POP 24be0-24be2 Naked> Σ-4 Δ+4 ↓ ←0x24b9a
<POP 24be0-24be2 StackAdj> Δ+4 {}
<POP 24be2-24be8 Naked> Σ0 ↓ ←0x24b80
<MI 24be2 MOVE.B #0x01,(A6+0x14)> {}
<POP 24be8-24bf0 Epilogue> Σ0 ←0x24bd8
@ 24bf0
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24bf0-24c7a Body>
<POP 24bf0-24c06 Prologue> Σ0 ↓
<POP 24c06-24c10 RegCacheLoad> Σ0 ↓
<POP 24c10-24c14 Naked> Σ0 ↓ →0x24c52
<MI 24c10 TST.L (A6+0x8)> {}
<MI 24c12 BGE 0x24c52> {}
<POP 24c14-24c22 Naked> Σ0 ↓ →0x24c52
<MI 24c14 MOVE.L (A6+0x8),D0> {}
<MI 24c16 NEG.L D0> {}
<MI 24c18 ADD.L 0x3d1fa,D0> {}
<MI 24c1a CMPI.L #0x00002000,D0> {}
<MI 24c20 BLE 0x24c52> {}
<POP 24c22-24c52 Naked> Σ0 ↓
<Blob 0x24c22 [28] @> Δ-28 {[«28""»]}
<POP 24c34-24c36 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x24c36 27> {[«28""»]|[$$Evaluation buffer overflow.]}
<Call 0x24c4a 0x2469c> {[«28""»]|[$$Evaluation buffer overflow.]}
<POP 24c4e-24c52 StackAdj> Δ+32 {}
<POP 24c52-24c72 Naked> Σ0 ↓ ←0x24c10 ←0x24c14
<MI 24c52 LEA.L 0x3b1f6,A0> {}
<MI 24c58 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x24c5a [4] 0x3d1fa> Δ-4 {[4, 'A0']|[«4»]}
<MI 24c5c MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']}
<MI 24c60 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x24c62 0x10364> {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
MovStringTail(Base, Len, Ptr, Delta)
<POP 24c68-24c6c StackAdj> Δ+16 {}
<MI 24c6c MOVE.L 0x3d1fa,D0> {}
<MI 24c6e SUB.L (A6+0x8),D0> {}
<MI 24c70 MOVE.L D0,0x3d1fa> {}
<POP 24c72-24c7a Epilogue> Σ0
@ 24c7a
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24c7a-24d04 Body>
<POP 24c7a-24c90 Prologue> Σ0 ↓
<POP 24c90-24c94 RegCacheLoad> Σ0 ↓
<POP 24c94-24cb4 Naked> Σ0 Δ-8 ↓
<MI 24c94 MOVEA.L (A6+0x8),A0> {}
<MI 24c98 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 24c9a MOVEA.L (A6+0xc),A1> {[4, 'A0']}
<MI 24c9c MOVE.L (A1),-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']}
<MI 24c9e MOVE.W (A0),D0> {[4, 'A0']|[4, '(A1)']}
<MI 24ca0 EXTW.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 24ca2 NEG.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 24ca4 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<Call 0x24ca6 0x24bf0> {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<POP 24caa-24cac StackAdj> Δ+8 {[4, 'A0']}
<MI 24cac MOVE.W (A0),D0> {[4, 'A0']}
<MI 24cae EXTW.L D0> {[4, 'A0']}
<MI 24cb0 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 24cb2 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 24cb4-24cb8 Naked> Σ-8 ↓ →0x24cee ←0x24cb8
<MI 24cb4 CMP.L (A7),D7> {[-8-]}
<MI 24cb6 BGT 0x24cee> {[-8-]}
<POP 24cb8-24cee Naked> Σ-8 ↓ →0x24cb4
<MI 24cb8 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 24cba MOVE.L D7,D0> {[-8-]}
<MI 24cbc ADD.L (A0),D0> {[-8-]}
<MI 24cbe SUBQ.L #0x1,D0> {[-8-]}
<MI 24cc0 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x24cc2 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 24ccc LEA.L 0x3b1ee,A0> {[-8-]}
<MI 24cd2 MOVE.L D7,D1> {[-8-]}
<MI 24cd4 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x24cd6 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 24ce0 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 24ce4 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 24cea ADDQ.L #0x1,D7> {[-8-]}
<MI 24cec BVC 0x24cb4> {[-8-]}
<POP 24cee-24cfc Naked> Σ-8 Δ+8 ↓ ←0x24cb4
<POP 24cee-24cf0 StackAdj> Δ+4 {[-4-]}
<MI 24cf0 MOVEA.L (A6+0xc),A0> {[-4-]}
<MI 24cf2 MOVEA.L (A7),A1> {[-4-]}
<MI 24cf4 MOVE.W (A1),D0> {[-4-]}
<MI 24cf6 EXTW.L D0> {[-4-]}
<MI 24cf8 ADD.L D0,(A0)> {[-4-]}
<POP 24cfa-24cfc StackAdj> Δ+4 {}
<POP 24cfc-24d04 Epilogue> Σ0
@ 24d04
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24d04-24e84 Body>
<POP 24d04-24d1a Prologue> Σ0 ↓
<POP 24d1a-24d28 RegCacheLoad> Σ0 ↓
<POP 24d28-24d3a Naked> Σ0 ↓
<MI 24d28 MOVEQ.L #0x00,D7> {}
<MI 24d2a MOVEA.L (A6+0xc),A0> {}
<MI 24d2e CLR.L (A0)> {}
<MI 24d30 MOVEA.L (A6+0x8),A0> {}
<MI 24d32 CLR.L (A0)> {}
<MI 24d34 MOVE.L 0x3d1f6,D6> {}
<POP 24d3a-24d5a Naked> Σ0 ↓ →0x24e2c ←0x24e36 ←0x24e3c
<MI 24d3a MOVE.L D6,D0> {}
<MI 24d3c SUBQ.L #0x1,D0> {}
<POP 0x24d3e LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 24d48 LEA.L 0x3b1ee,A0> {}
<MI 24d4e MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 24d52 CMPI.B #0x5b,D0> {}
<MI 24d56 BNE 0x24e2c> {}
<POP 24d5a-24d6e Naked> Σ0 ↓ →0x24dec
<POP 24d5a-24d5c StackAdj> Δ-2 {[-2-]}
<MI 24d5c MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x24d5e 0x1.4> Δ-4 {[-2-]|[4, 'D6']|[##1]}
<Const 0x24d62 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##1]|[##3]}
<Call 0x24d66 0x24b6a> {[-2-]|[4, 'D6']|[##1]|[##3]}
<POP 24d68-24d6a StackAdj> Δ+12 {[-2-]}
<MI 24d6a TST.B (A7)+> Δ+2 {}
<MI 24d6c BNE 0x24dec> {}
<POP 24d6e-24d80 Naked> Σ0 ↓ →0x24dec
<POP 24d6e-24d70 StackAdj> Δ-2 {[-2-]}
<MI 24d70 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x24d72 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##4]}
<Const 0x24d74 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##4]|[##3]}
<Call 0x24d78 0x24b6a> {[-2-]|[4, 'D6']|[##4]|[##3]}
<POP 24d7a-24d7c StackAdj> Δ+12 {[-2-]}
<MI 24d7c TST.B (A7)+> Δ+2 {}
<MI 24d7e BNE 0x24dec> {}
<POP 24d80-24d92 Naked> Σ0 ↓ →0x24dec
<POP 24d80-24d82 StackAdj> Δ-2 {[-2-]}
<MI 24d82 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x24d84 0x7.4> Δ-4 {[-2-]|[4, 'D6']|[##7]}
<Const 0x24d88 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##7]|[##4]}
<Call 0x24d8a 0x24b6a> {[-2-]|[4, 'D6']|[##7]|[##4]}
<POP 24d8c-24d8e StackAdj> Δ+12 {[-2-]}
<MI 24d8e TST.B (A7)+> Δ+2 {}
<MI 24d90 BNE 0x24dec> {}
<POP 24d92-24da4 Naked> Σ0 ↓ →0x24dec
<POP 24d92-24d94 StackAdj> Δ-2 {[-2-]}
<MI 24d94 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x24d96 0xb.4> Δ-4 {[-2-]|[4, 'D6']|[##11]}
<Const 0x24d9a 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##11]|[##4]}
<Call 0x24d9c 0x24b6a> {[-2-]|[4, 'D6']|[##11]|[##4]}
<POP 24d9e-24da0 StackAdj> Δ+12 {[-2-]}
<MI 24da0 TST.B (A7)+> Δ+2 {}
<MI 24da2 BNE 0x24dec> {}
<POP 24da4-24db6 Naked> Σ0 ↓ →0x24dec
<POP 24da4-24da6 StackAdj> Δ-2 {[-2-]}
<MI 24da6 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x24da8 0xf.4> Δ-4 {[-2-]|[4, 'D6']|[##15]}
<Const 0x24dac 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##15]|[##4]}
<Call 0x24dae 0x24b6a> {[-2-]|[4, 'D6']|[##15]|[##4]}
<POP 24db0-24db2 StackAdj> Δ+12 {[-2-]}
<MI 24db2 TST.B (A7)+> Δ+2 {}
<MI 24db4 BNE 0x24dec> {}
<POP 24db6-24dc8 Naked> Σ0 ↓ →0x24dec
<POP 24db6-24db8 StackAdj> Δ-2 {[-2-]}
<MI 24db8 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x24dba 0x13.4> Δ-4 {[-2-]|[4, 'D6']|[##19]}
<Const 0x24dbe 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##19]|[##4]}
<Call 0x24dc0 0x24b6a> {[-2-]|[4, 'D6']|[##19]|[##4]}
<POP 24dc2-24dc4 StackAdj> Δ+12 {[-2-]}
<MI 24dc4 TST.B (A7)+> Δ+2 {}
<MI 24dc6 BNE 0x24dec> {}
<POP 24dc8-24dda Naked> Σ0 ↓ →0x24dec
<POP 24dc8-24dca StackAdj> Δ-2 {[-2-]}
<MI 24dca MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x24dcc 0x17.4> Δ-4 {[-2-]|[4, 'D6']|[##23]}
<Const 0x24dd0 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##23]|[##4]}
<Call 0x24dd2 0x24b6a> {[-2-]|[4, 'D6']|[##23]|[##4]}
<POP 24dd4-24dd6 StackAdj> Δ+12 {[-2-]}
<MI 24dd6 TST.B (A7)+> Δ+2 {}
<MI 24dd8 BNE 0x24dec> {}
<POP 24dda-24dec Naked> Σ0 ↓ →0x24df0
<POP 24dda-24ddc StackAdj> Δ-2 {[-2-]}
<MI 24ddc MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x24dde 0x1b.4> Δ-4 {[-2-]|[4, 'D6']|[##27]}
<Const 0x24de2 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##27]|[##4]}
<Call 0x24de4 0x24b6a> {[-2-]|[4, 'D6']|[##27]|[##4]}
<POP 24de6-24de8 StackAdj> Δ+12 {[-2-]}
<MI 24de8 TST.B (A7)+> Δ+2 {}
<MI 24dea BEQ 0x24df0> {}
<POP 24dec-24df0 Naked> Σ0 →0x24e2c ←0x24d5a ←0x24d6e ←0x24d80 ←0x24d92 ←0x24da4 ←0x24db6 ←0x24dc8
<MI 24dec ADDQ.L #0x1,D7> {}
<MI 24dee BRA 0x24e2c> {}
<POP 24df0-24df4 Naked> Σ0 ↓ →0x24e10 ←0x24dda
<MI 24df0 TST.L D7> {}
<MI 24df2 BNE 0x24e10> {}
<POP 24df4-24e08 Naked> Σ0 ↓ →0x24e10
<POP 24df4-24df6 StackAdj> Δ-2 {[-2-]}
<MI 24df6 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x24df8 0x1f.4> Δ-4 {[-2-]|[4, 'D6']|[##31]}
<Const 0x24dfc 0x5.4> Δ-4 {[-2-]|[4, 'D6']|[##31]|[##5]}
<Call 0x24e00 0x24b6a> {[-2-]|[4, 'D6']|[##31]|[##5]}
<POP 24e02-24e04 StackAdj> Δ+12 {[-2-]}
<MI 24e04 TST.B (A7)+> Δ+2 {}
<MI 24e06 BEQ 0x24e10> {}
<POP 24e08-24e0c Naked> Σ0 ↓
<MI 24e08 MOVEA.L (A6+0xc),A0> {}
<POP 24e0c-24e10 Naked> Σ0 →0x24e2c ←0x24e26
<MI 24e0c MOVE.L D6,(A0)> {}
<MI 24e0e BRA 0x24e2c> {}
<POP 24e10-24e22 Naked> Σ0 ↓ →0x24e2c ←0x24df0 ←0x24df4
<POP 24e10-24e12 StackAdj> Δ-2 {[-2-]}
<MI 24e12 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x24e14 0x24.4> Δ-4 {[-2-]|[4, 'D6']|[##36]}
<Const 0x24e18 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##36]|[##4]}
<Call 0x24e1a 0x24b6a> {[-2-]|[4, 'D6']|[##36]|[##4]}
<POP 24e1c-24e1e StackAdj> Δ+12 {[-2-]}
<MI 24e1e TST.B (A7)+> Δ+2 {}
<MI 24e20 BEQ 0x24e2c> {}
<POP 24e22-24e26 Naked> Σ0 ↓ →0x24e2a
<MI 24e22 TST.L D7> {}
<MI 24e24 BNE 0x24e2a> {}
<POP 24e26-24e2a Naked> Σ0 →0x24e0c
<MI 24e26 MOVEA.L (A6+0x8),A0> {}
<MI 24e28 BRA 0x24e0c> {}
<POP 24e2a-24e2c Naked> Σ0 ↓ ←0x24e22
<MI 24e2a SUBQ.L #0x1,D7> {}
<POP 24e2c-24e36 Naked> Σ0 ↓ →0x24e44 ←0x24d3a ←0x24dec ←0x24e0c ←0x24e10
<MI 24e2c ADDQ.L #0x1,D6> {}
<MI 24e2e CMP.L 0x3d1fa,D6> {}
<MI 24e34 BGT 0x24e44> {}
<POP 24e36-24e3c Naked> Σ0 ↓ →0x24d3a
<MI 24e36 TST.L D7> {}
<MI 24e38 BNE 0x24d3a> {}
<POP 24e3c-24e44 Naked> Σ0 ↓ →0x24d3a
<MI 24e3c MOVEA.L (A6+0x8),A0> {}
<MI 24e3e TST.L (A0)> {}
<MI 24e40 BEQ 0x24d3a> {}
<POP 24e44-24e4c Naked> Σ0 ↓ →0x24e7c ←0x24e2c
<MI 24e44 CMP.L 0x3d1fa,D6> {}
<MI 24e4a BLE 0x24e7c> {}
<POP 24e4c-24e7c Naked> Σ0 ↓
<Blob 0x24e4c [28] @> Δ-28 {[«28""»]}
<POP 24e5e-24e60 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x24e60 27> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<Call 0x24e74 0x2469c> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<POP 24e78-24e7c StackAdj> Δ+32 {}
<POP 24e7c-24e84 Epilogue> Σ0 ←0x24e44
@ 24e84
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(rw)>
<POP 24e84-24eca Body>
<POP 24e84-24e9a Prologue> Σ0 ↓
<POP 24e9a-24ea2 RegCacheLoad> Σ0 ↓
<POP 24ea2-24eb0 Naked> Σ0 ↓ →0x24eb2
<Pointer.fp 0x24ea2 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Pointer.fp 0x24ea4 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x24ea6 0x24d04> {[@@-8]|[@@-4]}
<POP 24eaa-24eac StackAdj> Δ+8 {}
<MI 24eac TST.L (A6-0x8)> {}
<MI 24eae BNE 0x24eb2> {}
<POP 24eb0-24eb2 Naked> Σ0 ↓
<MI 24eb0 MOVE.L (A6-0x4),(A6-0x8)> {}
<POP 24eb2-24ec2 Naked> Σ0 ↓ ←0x24ea2
<MI 24eb2 MOVE.L (A6-0x4),D0> {}
<MI 24eb4 ADDQ.L #0x5,D0> {}
<MI 24eb6 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 24eb8 SUB.L (A6-0x8),D0> {[4, 'D0']}
<MI 24eba MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x24ebc 0x24bf0> {[4, 'D0']|[4, 'D0']}
<POP 24ec0-24ec2 StackAdj> Δ+8 {}
<POP 24ec2-24eca Epilogue> Σ0
@ 24eca
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 24eca-24f26 Body>
<POP 24eca-24ee0 Prologue> Σ0 ↓
<POP 24ee0-24ee8 RegCacheLoad> Σ0 ↓
<POP 24ee8-24ef6 Naked> Σ0 ↓ →0x24efc
<Pointer.fp 0x24ee8 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x24eea <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x24eec 0x24d04> {[@@-8]|[@@-4]}
<POP 24ef0-24ef2 StackAdj> Δ+8 {}
<MI 24ef2 TST.L (A6-0x8)> {}
<MI 24ef4 BNE 0x24efc> {}
<POP 24ef6-24efc Naked> Σ0 →0x24f0e
<MI 24ef6 MOVE.L (A6-0x4),D0> {}
<MI 24ef8 ADDQ.L #0x5,D0> {}
<MI 24efa BRA 0x24f0e> {}
<POP 24efc-24f0e Naked> Σ0 ↓ ←0x24ee8
<MI 24efc MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<MI 24efe ADDQ.L #0x5,(A7)> {[-4-]}
<Const 0x24f00 0x5.4> Δ-4 {[-4-]|[##5]}
<Call 0x24f04 0x24bf0> {[-4-]|[##5]}
<POP 24f08-24f0a StackAdj> Δ+8 {}
<MI 24f0a MOVE.L (A6-0x8),D0> {}
<MI 24f0c ADDQ.L #0x6,D0> {}
<POP 24f0e-24f1e Naked> Σ0 ↓ ←0x24ef6
<MI 24f0e MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 24f10 SUB.L 0x3d1f6,D0> {[4, 'D0']}
<MI 24f16 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x24f18 0x24bf0> {[4, 'D0']|[4, 'D0']}
<POP 24f1c-24f1e StackAdj> Δ+8 {}
<POP 24f1e-24f26 Epilogue> Σ0
@ 24f26
<LVAR 0x008 4(r)>
<LVAR -0x004 @>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<POP 24f26-2503a Body>
<POP 24f26-24f3c Prologue> Σ0 ↓
<POP 24f3c-24f54 RegCacheLoad> Σ0 ↓
<POP 24f54-24f58 Naked> Σ0 ↓ →0x24f62
<MI 24f54 TST.B 0x3d208> {}
<MI 24f56 BEQ 0x24f62> {}
<POP 24f58-24f5c Naked> Σ0 ↓ →0x24f62
<MI 24f58 TST.L 0x3d20e> {}
<MI 24f5a BNE 0x24f62> {}
<POP 24f5c-24f62 Naked> Σ0 ↓
<MI 24f5c MOVE.L (A6+0x8),0x3d20e> {}
<MI 24f60 SUBQ.L #0x1,0x3d20e> {}
<POP 24f62-24f68 Naked> Σ0 ↓ →0x25032 ←0x24f54 ←0x24f58
<MI 24f62 TST.B 0x3d208> {}
<MI 24f64 BNE 0x25032> {}
<POP 24f68-24f9c Naked> Σ0 ↓ →0x24fb6
<MI 24f68 MOVE.L (A6+0x8),0x3d1f6> {}
<MI 24f6c ADDQ.L #0x6,0x3d1f6> {}
<Pointer.fp 0x24f6e <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x24f70 <LVAR -0x004 @>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x24f74 0x249fc> {[@@-8]|[@@-4]}
<POP 24f78-24f7a StackAdj> Δ+8 {}
<Blob 0x24f7a [10] @> Δ-10 {[«10""»]}
<MI 24f86 MOVE.L (A6-0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6-0x8)']}
<Const 0x24f88 0x0.4> Δ-4 {[«10""»]|[4, '(A6-0x8)']|[##0]}
<Call 0x24f8c 0x24ade> {[«10""»]|[4, '(A6-0x8)']|[##0]}
<POP 24f90-24f94 StackAdj> Δ+18 {}
<MI 24f94 TST.B 0x3d212> {}
<MI 24f9a BEQ 0x24fb6> {}
<POP 24f9c-24fb6 Naked> Σ0 →0x24fca
<POP 24f9c-24f9e StackAdj> Δ-8 {[-8-]}
<MI 24f9e MOVE.L (A6-0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x8)']}
<Const 0x24fa0 0x0.4> Δ-4 {[-8-]|[4, '(A6-0x8)']|[##0]}
<Call 0x24fa4 0x253f6> {[-8-]|[4, '(A6-0x8)']|[##0]}
<POP 24faa-24fac StackAdj> Δ+8 {[-8-]}
<MI 24fac MOVE.L (A7)+,(A6-0x14)> Δ+4 {[-4-]}
<MI 24fb0 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 24fb4 BRA 0x24fca> {}
<POP 24fb6-24fca Naked> Σ0 ↓ ←0x24f68
<POP 24fb6-24fb8 StackAdj> Δ-4 {[-4-]}
<MI 24fb8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<Const 0x24fba 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x8)']|[##0]}
<Call 0x24fbe 0x253c4> {[-4-]|[4, '(A6-0x8)']|[##0]}
<POP 24fc4-24fc6 StackAdj> Δ+8 {[-4-]}
<MI 24fc6 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<POP 24fca-24fe0 Naked> Σ0 ↓ →0x2500a ←0x24f9c
<MI 24fca MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x24fcc 0x2465a> {[4, '(A6-0x8)']}
<POP 24fd0-24fd2 StackAdj> Δ+4 {}
<MI 24fd2 MOVE.L 0x3d1f6,0x3d20a> {}
<MI 24fd8 TST.B 0x3d212> {}
<MI 24fde BEQ 0x2500a> {}
<POP 24fe0-2500a Naked> Σ0 →0x25032
<POP 24fe0-24fe2 StackAdj> Δ-2 {[-2-]}
<MI 24fe2 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']}
<MI 24fe6 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Blob 0x24fea [4] 0x3d21c> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]}
<Blob 0x24ff0 [4] 0x3d218> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
<Call 0x24ff6 0x1032c> {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
IsEqual(a, b : Quad) : Bool
<POP 24ffc-25000 StackAdj> Δ+16 {[-2-]}
<MI 25000 MOVE.B (A7)+,D0> Δ+2 {}
<MI 25002 EXTB.W D0> {}
<POP 0x25004 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 25006 MOVE.B D0,0x3d208> {}
<MI 25008 BRA 0x25032> {}
<POP 2500a-25032 Naked> Σ0 ↓ ←0x24fca
<POP 2500a-2500c StackAdj> Δ-2 {[-2-]}
<MI 2500c MOVE.L (A6-0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xc)']}
<Blob 0x25010 [4] 0x3d214> Δ-4 {[-2-]|[4, '(A6-0xc)']|[«4»]}
<Call 0x25016 0x102c8> {[-2-]|[4, '(A6-0xc)']|[«4»]}
StringEqual(a, b : String) : Byte
<POP 2501c-2501e StackAdj> Δ+8 {[-2-]}
<MI 2501e MOVE.B (A7)+,D0> Δ+2 {}
<MI 25020 EXTB.W D0> {}
<POP 0x25022 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 25024 MOVE.B D0,0x3d208> {}
<Pointer.fp 0x25026 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x2502a 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 25030-25032 StackAdj> Δ+4 {}
<POP 25032-2503a Epilogue> Σ0 ←0x24f62 ←0x24fe0
@ 2503a
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2503a-251bc Body>
<POP 2503a-25050 Prologue> Σ0 ↓
<POP 25050-25064 RegCacheLoad> Σ0 ↓
<POP 25064-25078 Naked> Σ0 ↓
<MI 25064 CLR.B 0x3d208> {}
<MI 25066 CLR.L 0x3d20a> {}
<MI 2506c CLR.L 0x3d20e> {}
<MI 2506e MOVEQ.L #0x00,D7> {}
<MI 25070 MOVEQ.L #0x00,D6> {}
<MI 25072 MOVE.L 0x3d1f6,D5> {}
<POP 25078-2507e Naked> Σ0 ↓ →0x2511c ←0x25118
<MI 25078 TST.L D6> {}
<MI 2507a BNE 0x2511c> {}
<POP 2507e-25088 Naked> Σ0 ↓ →0x2511c
<MI 2507e CMP.L 0x3d1fa,D5> {}
<MI 25084 BGT 0x2511c> {}
<POP 25088-250a6 Naked> Σ0 ↓ →0x25112
<MI 25088 MOVE.L D5,D0> {}
<MI 2508a SUBQ.L #0x1,D0> {}
<POP 0x2508c LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 25096 LEA.L 0x3b1ee,A0> {}
<MI 2509c MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 250a0 CMPI.B #0x5b,D0> {}
<MI 250a4 BNE 0x25112> {}
<POP 250a6-250ba Naked> Σ0 ↓ →0x250ce
<POP 250a6-250a8 StackAdj> Δ-2 {[-2-]}
<MI 250a8 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x250aa 0x28.4> Δ-4 {[-2-]|[4, 'D5']|[##40]}
<Const 0x250ae 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##40]|[##5]}
<Call 0x250b2 0x24b6a> {[-2-]|[4, 'D5']|[##40]|[##5]}
<POP 250b4-250b6 StackAdj> Δ+12 {[-2-]}
<MI 250b6 TST.B (A7)+> Δ+2 {}
<MI 250b8 BNE 0x250ce> {}
<POP 250ba-250ce Naked> Σ0 ↓ →0x250d2
<POP 250ba-250bc StackAdj> Δ-2 {[-2-]}
<MI 250bc MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x250be 0x2d.4> Δ-4 {[-2-]|[4, 'D5']|[##45]}
<Const 0x250c2 0x6.4> Δ-4 {[-2-]|[4, 'D5']|[##45]|[##6]}
<Call 0x250c6 0x24b6a> {[-2-]|[4, 'D5']|[##45]|[##6]}
<POP 250c8-250ca StackAdj> Δ+12 {[-2-]}
<MI 250ca TST.B (A7)+> Δ+2 {}
<MI 250cc BEQ 0x250d2> {}
<POP 250ce-250d2 Naked> Σ0 →0x25112 ←0x250a6
<MI 250ce ADDQ.L #0x1,D7> {}
<MI 250d0 BRA 0x25112> {}
<POP 250d2-250d6 Naked> Σ0 ↓ →0x250f4 ←0x250ba
<MI 250d2 TST.L D7> {}
<MI 250d4 BNE 0x250f4> {}
<POP 250d6-250ea Naked> Σ0 ↓ →0x250f4
<POP 250d6-250d8 StackAdj> Δ-2 {[-2-]}
<MI 250d8 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x250da 0x33.4> Δ-4 {[-2-]|[4, 'D5']|[##51]}
<Const 0x250de 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##51]|[##5]}
<Call 0x250e2 0x24b6a> {[-2-]|[4, 'D5']|[##51]|[##5]}
<POP 250e4-250e6 StackAdj> Δ+12 {[-2-]}
<MI 250e6 TST.B (A7)+> Δ+2 {}
<MI 250e8 BEQ 0x250f4> {}
<POP 250ea-250f4 Naked> Σ0 →0x25112
<MI 250ea MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<Call 0x250ec 0x24f26> {[4, 'D5']}
<POP 250f0-250f2 StackAdj> Δ+4 {}
<MI 250f2 BRA 0x25112> {}
<POP 250f4-25108 Naked> Σ0 ↓ →0x25112 ←0x250d2 ←0x250d6
<POP 250f4-250f6 StackAdj> Δ-2 {[-2-]}
<MI 250f6 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x250f8 0x38.4> Δ-4 {[-2-]|[4, 'D5']|[##56]}
<Const 0x250fc 0x8.4> Δ-4 {[-2-]|[4, 'D5']|[##56]|[##8]}
<Call 0x25100 0x24b6a> {[-2-]|[4, 'D5']|[##56]|[##8]}
<POP 25102-25104 StackAdj> Δ+12 {[-2-]}
<MI 25104 TST.B (A7)+> Δ+2 {}
<MI 25106 BEQ 0x25112> {}
<POP 25108-2510c Naked> Σ0 ↓ →0x25110
<MI 25108 TST.L D7> {}
<MI 2510a BNE 0x25110> {}
<POP 2510c-25110 Naked> Σ0 →0x25112
<MI 2510c MOVE.L D5,D6> {}
<MI 2510e BRA 0x25112> {}
<POP 25110-25112 Naked> Σ0 ↓ ←0x25108
<MI 25110 SUBQ.L #0x1,D7> {}
<POP 25112-25116 Naked> Σ0 ↓ →0x25118 ←0x25088 ←0x250ce ←0x250ea ←0x250f4 ←0x2510c
<MI 25112 TST.L D6> {}
<MI 25114 BNE 0x25118> {}
<POP 25116-25118 Naked> Σ0 ↓
<MI 25116 ADDQ.L #0x1,D5> {}
<POP 25118-2511c Naked> Σ0 →0x25078 ←0x25112
<MI 25118 BRA 0x25078> {}
<POP 2511c-25124 Naked> Σ0 ↓ →0x25132 ←0x25078 ←0x2507e
<MI 2511c TST.B 0x3d212> {}
<MI 25122 BNE 0x25132> {}
<POP 25124-25132 Naked> Σ0 ↓
<Const 0x25124 0x3d214.4> Δ-4 {[##250388]}
<Call 0x2512a 0x102bc> {[##250388]}
FreeString(VAR a : String)
<POP 25130-25132 StackAdj> Δ+4 {}
<POP 25132-25136 Naked> Σ0 ↓ →0x2515e ←0x2511c
<MI 25132 TST.B 0x3d208> {}
<MI 25134 BNE 0x2515e> {}
<POP 25136-2515e Naked> Σ0 ↓
<Blob 0x25136 [26] @> Δ-26 {[«26""»]}
<POP 25142-25144 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x25144 26> {[«26""»]|[$$No case alternative found!]}
<Call 0x25156 0x2469c> {[«26""»]|[$$No case alternative found!]}
<POP 2515a-2515e StackAdj> Δ+30 {}
<POP 2515e-25162 Naked> Σ0 ↓ →0x25190 ←0x25132
<MI 2515e TST.L D6> {}
<MI 25160 BNE 0x25190> {}
<POP 25162-25190 Naked> Σ0 ↓
<Blob 0x25162 [20] @> Δ-20 {[«20""»]}
<POP 25174-25176 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x25176 19> {[«20""»]|[$$No [ENDCASE] found!]}
<Call 0x25188 0x2469c> {[«20""»]|[$$No [ENDCASE] found!]}
<POP 2518c-25190 StackAdj> Δ+24 {}
<POP 25190-251a4 Naked> Σ0 ↓ →0x251ae ←0x2515e
<MI 25190 MOVEA.L (A6+0x8),A0> {}
<MI 25194 MOVE.L D6,(A0)> {}
<MI 25196 MOVEA.L (A6+0x10),A0> {}
<MI 2519a MOVE.L 0x3d20a,(A0)> {}
<MI 251a0 TST.L 0x3d20e> {}
<MI 251a2 BNE 0x251ae> {}
<POP 251a4-251ae Naked> Σ0 →0x251b4
<MI 251a4 MOVEA.L (A6+0xc),A0> {}
<MI 251a8 MOVE.L D6,(A0)> {}
<MI 251aa SUBQ.L #0x1,(A0)> {}
<MI 251ac BRA 0x251b4> {}
<POP 251ae-251b4 Naked> Σ0 ↓ ←0x25190
<MI 251ae MOVEA.L (A6+0xc),A0> {}
<MI 251b2 MOVE.L 0x3d20e,(A0)> {}
<POP 251b4-251bc Epilogue> Σ0 ←0x251a4
@ 251bc
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 251bc-25230 Body>
<POP 251bc-251d2 Prologue> Σ0 ↓
<POP 251d2-251dc RegCacheLoad> Σ0 ↓
<POP 251dc-25228 Naked> Σ0 ↓
<MI 251dc MOVE.L 0x3d1f6,D6> {}
<MI 251de CLR.B 0x3d212> {}
<MI 251e4 MOVE.L (A6+0x8),0x3d214> {}
<MI 251ec MOVE.L 0x3d1f6,D7> {}
<Pointer.fp 0x251ee <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x251f0 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x251f4 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x251f8 0x2503a> {[@@-16]|[@@-12]|[@@-8]}
<POP 251fc-25200 StackAdj> Δ+12 {}
<MI 25200 MOVE.L D6,0x3d1f6> {}
<MI 25202 MOVE.L (A6-0x8),D0> {}
<MI 25206 ADDI.L #0x00000009,D0> {}
<MI 2520c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2520e SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 25212 SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 25214 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x25216 0x24bf0> {[4, 'D0']|[4, 'D0']}
<POP 2521a-2521c StackAdj> Δ+4 {[4, 'D0']}
<MI 2521c MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 2521e MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 25220 SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x25222 0x24bf0> {[4, '(A6-0x10)']|[-4-]}
<POP 25226-25228 StackAdj> Δ+8 {}
<POP 25228-25230 Epilogue> Σ0
@ 25230
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 25230-252ae Body>
<POP 25230-25246 Prologue> Σ0 ↓
<POP 25246-25250 RegCacheLoad> Σ0 ↓
<POP 25250-252a6 Naked> Σ0 ↓
<MI 25250 MOVE.L 0x3d1f6,D6> {}
<MI 25252 MOVE.B #0x01,0x3d212> {}
<MI 2525a MOVE.L (A6+0x8),0x3d218> {}
<MI 25262 MOVE.L (A6+0xc),0x3d21c> {}
<MI 2526a MOVE.L 0x3d1f6,D7> {}
<Pointer.fp 0x2526c <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x2526e <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x25272 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x25276 0x2503a> {[@@-16]|[@@-12]|[@@-8]}
<POP 2527a-2527e StackAdj> Δ+12 {}
<MI 2527e MOVE.L D6,0x3d1f6> {}
<MI 25280 MOVE.L (A6-0x8),D0> {}
<MI 25284 ADDI.L #0x00000009,D0> {}
<MI 2528a MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2528c SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 25290 SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 25292 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x25294 0x24bf0> {[4, 'D0']|[4, 'D0']}
<POP 25298-2529a StackAdj> Δ+4 {[4, 'D0']}
<MI 2529a MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 2529c MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 2529e SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x252a0 0x24bf0> {[4, '(A6-0x10)']|[-4-]}
<POP 252a4-252a6 StackAdj> Δ+8 {}
<POP 252a6-252ae Epilogue> Σ0
@ 252ae
<LVAR 0x010 4(rw)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 252ae-252e6 Body>
<POP 252ae-252c4 Prologue> Σ0 ↓
<POP 252c4-252ca Naked> Σ0 ↓ →0x252d0
<MI 252c4 TST.L (A6+0x8)> {}
<MI 252c8 BNE 0x252d0> {}
<POP 252ca-252d0 Naked> Σ0 →0x252de
<MI 252ca CLR.L (A6+0x10)> {}
<MI 252ce BRA 0x252de> {}
<POP 252d0-252de Naked> Σ0 ↓ ←0x252c4
<MI 252d0 MOVE.L (A6+0xc),D0> {}
<MI 252d4 SUB.L (A6+0x8),D0> {}
<MI 252d8 ADDQ.L #0x1,D0> {}
<MI 252da MOVE.L D0,(A6+0x10)> {}
<POP 252de-252e6 Epilogue> Σ0 ←0x252ca
@ 252e6
<LVAR 0x014 4(w)>
<LVAR 0x010 @ 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 252e6-25348 Body> Δ-4
<POP 252e6-252fc Prologue> Σ0 ↓
<POP 252fc-25312 Naked> Σ0 Δ-4 ↓
<MI 252fc MOVEA.L (A6+0xc),A4> {}
<MI 25300 MOVE.L 0x245b4,(A6+0x10)> {}
<MI 25306 MOVE.L 0x245b8,(A6+0x14)> {}
<MI 2530c MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 25310 MOVEQ.L #0x00,D7> {[4, '(A6+0x8)']}
<POP 25312-25316 Naked> Σ-4 ↓ →0x2533e ←0x2533a
<MI 25312 CMP.L (A7),D7> {[-4-]}
<MI 25314 BGT 0x2533e> {[-4-]}
<POP 25316-2531c Naked> Σ-4 ↓ →0x25320
<MI 25316 CMPA.W #0x1,A4> {[-4-]}
<MI 2531a BNE 0x25320> {[-4-]}
<POP 2531c-25320 Naked> Σ-4 Δ+4 →0x25340
<POP 2531c-2531e StackAdj> Δ+4 {}
<MI 2531e BRA 0x25340> {}
<POP 25320-25326 Naked> Σ-4 ↓ →0x25336 ←0x25316
<MI 25320 CMP.L (A6+0x8),D7> {[-4-]}
<MI 25324 BNE 0x25336> {[-4-]}
<POP 25326-25336 Naked> Σ-4 →0x2533a
<MI 25326 LEA.L (A6+0x10),A0> {[-4-]}
<MI 2532a MOVEA.L A4,A1> {[-4-]}
<BlockMove 8,A1,A0> {[-4-]}
<MI 25334 BRA 0x2533a> {[-4-]}
<POP 25336-2533a Naked> Σ-4 ↓ ←0x25320
<MI 25336 MOVEA.L (A4+0x8),A4> {[-4-]}
<POP 2533a-2533e Naked> Σ-4 ↓ →0x25312 ←0x25326
<MI 2533a ADDQ.L #0x1,D7> {[-4-]}
<MI 2533c BVC 0x25312> {[-4-]}
<POP 2533e-25340 Naked> Σ-4 Δ+4 ↓ ←0x25312
<POP 2533e-25340 StackAdj> Δ+4 {}
<POP 25340-25348 Epilogue> Σ0 ←0x2531c
@ 25348
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 25348-253c4 Body> Δ-4
<POP 25348-2535e Prologue> Σ0 ↓
<POP 2535e-25362 RegCacheLoad> Σ0 ↓
<POP 25362-2537a Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x25362 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x25364 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 2536a MOVE.L (A6+0xc),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']}
<MI 2536e MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x25372 0x252ae> {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 25376-25378 StackAdj> Δ+8 {[@@-8]}
<MI 25378 MOVEQ.L #0x01,D7> {[@@-8]}
<POP 2537a-2537e Naked> Σ-4 ↓ →0x253b6 ←0x253a6
<MI 2537a CMP.L (A7),D7> {[-4-]}
<MI 2537c BGT 0x253b6> {[-4-]}
<POP 2537e-253a2 Naked> Σ-4 ↓ →0x253a6
<MI 2537e MOVE.L D7,D0> {[-4-]}
<MI 25380 ADD.L (A6+0x8),D0> {[-4-]}
<MI 25384 SUBQ.L #0x1,D0> {[-4-]}
<MI 25386 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x25388 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]}
<MI 25392 LEA.L 0x3b1ee,A0> {[-4-]}
<MI 25398 MOVE.B (A0+D0.L+#0x8),D6> {[-4-]}
<MI 2539c CMPI.B #0x2f,D6> {[-4-]}
<MI 253a0 BNE 0x253a6> {[-4-]}
<POP 253a2-253a6 Naked> Σ-4 Δ+4 →0x253b8
<POP 253a2-253a4 StackAdj> Δ+4 {}
<MI 253a4 BRA 0x253b8> {}
<POP 253a6-253b6 Naked> Σ-4 ↓ →0x2537a ←0x2537e
<MI 253a6 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 253a8 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
<Call 0x253aa 0x102c0> {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 253b0-253b2 StackAdj> Δ+6 {[-4-]}
<MI 253b2 ADDQ.L #0x1,D7> {[-4-]}
<MI 253b4 BVC 0x2537a> {[-4-]}
<POP 253b6-253b8 Naked> Σ-4 Δ+4 ↓ ←0x2537a
<POP 253b6-253b8 StackAdj> Δ+4 {}
<POP 253b8-253bc Naked> Σ0 ↓ ←0x253a2
<MI 253b8 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 253bc-253c4 Epilogue> Σ0
@ 253c4
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 253c4-253f6 Body>
<POP 253c4-253d6 Prologue> Σ0 ↓
<POP 253d6-253f2 Naked> Σ0 ↓
<POP 253d6-253da StackAdj> Δ-12 {[-12-]}
<MI 253da MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 253de MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x253e2 0x252e6> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 253e6-253e8 StackAdj> Δ+8 {[-12-]}
<Call 0x253e8 0x25348> {[-12-]}
<POP 253ec-253ee StackAdj> Δ+8 {[-4-]}
<MI 253ee MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 253f2-253f6 Epilogue> Σ0
@ 253f6
<LVAR 0x014 4(w)>
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 253f6-25432 Body>
<POP 253f6-25408 Prologue> Σ0 ↓
<POP 25408-2542e Naked> Σ0 ↓
<POP 25408-2540c StackAdj> Δ-12 {[-12-]}
<MI 2540c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 25410 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x25414 0x253c4> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 25418-2541a StackAdj> Δ+8 {[-12-]}
<Const 0x2541a 0x10.4> Δ-4 {[-12-]|[##16]}
<Call 0x2541e 0x10360> {[-12-]|[##16]}
?StringToInt64()
<POP 25424-25426 StackAdj> Δ+8 {[-8-]}
<MI 25426 MOVE.L (A7)+,(A6+0x10)> Δ+4 {[-4-]}
<MI 2542a MOVE.L (A7)+,(A6+0x14)> Δ+4 {}
<POP 2542e-25432 Epilogue> Σ0
@ 25432
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 25432-25466 Body>
<POP 25432-25444 Prologue> Σ0 ↓
<POP 25444-25462 Naked> Σ0 ↓
<POP 25444-25448 StackAdj> Δ-12 {[-12-]}
<MI 25448 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 2544c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x25450 0x253f6> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 25454-25456 StackAdj> Δ+8 {[-12-]}
<Call 0x25456 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 2545c-2545e StackAdj> Δ+8 {[-4-]}
<MI 2545e MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 25462-25466 Epilogue> Σ0
@ 25466
<LVAR 0x008 @ 4(r)>
<POP 25466-254ee Body>
<POP 25466-2547c Prologue> Σ0 ↓
<POP 2547c-25482 RegCacheLoad> Σ0 ↓
<POP 25482-254a0 Naked> Σ0 Δ-8 ↓
<MI 25482 MOVEA.L (A6+0x8),A0> {}
<MI 25486 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x25488 [4] 0x3d1f6> Δ-4 {[4, 'A0']|[«4»]}
<MI 2548a MOVE.W (A0),D0> {[4, 'A0']|[«4»]}
<MI 2548c EXTW.L D0> {[4, 'A0']|[«4»]}
<MI 2548e NEG.L D0> {[4, 'A0']|[«4»]}
<MI 25490 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, 'D0']}
<Call 0x25492 0x24bf0> {[4, 'A0']|[«4»]|[4, 'D0']}
<POP 25496-25498 StackAdj> Δ+8 {[4, 'A0']}
<MI 25498 MOVE.W (A0),D0> {[4, 'A0']}
<MI 2549a EXTW.L D0> {[4, 'A0']}
<MI 2549c MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 2549e MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 254a0-254a4 Naked> Σ-8 ↓ →0x254d8 ←0x254a4
<MI 254a0 CMP.L (A7),D7> {[-8-]}
<MI 254a2 BGT 0x254d8> {[-8-]}
<POP 254a4-254d8 Naked> Σ-8 ↓ →0x254a0
<MI 254a4 MOVE.L D7,D0> {[-8-]}
<MI 254a6 ADD.L 0x3d1f6,D0> {[-8-]}
<MI 254a8 SUBQ.L #0x1,D0> {[-8-]}
<MI 254aa SUBQ.L #0x1,D0> {[-8-]}
<POP 0x254ac LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 254b6 LEA.L 0x3b1ee,A0> {[-8-]}
<MI 254bc MOVE.L D7,D1> {[-8-]}
<MI 254be SUBQ.L #0x1,D1> {[-8-]}
<POP 0x254c0 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 254ca MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 254ce MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 254d4 ADDQ.L #0x1,D7> {[-8-]}
<MI 254d6 BVC 0x254a0> {[-8-]}
<POP 254d8-254e6 Naked> Σ-8 Δ+8 ↓ ←0x254a0
<POP 254d8-254da StackAdj> Δ+8 {}
<Pointer.fp 0x254da <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x254de 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 254e4-254e6 StackAdj> Δ+4 {}
<POP 254e6-254ee Epilogue> Σ0
@ 254ee
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 254ee-25522 Body>
<POP 254ee-25500 Prologue> Σ0 ↓
<POP 25500-2551e Naked> Σ0 ↓
<POP 25500-25502 StackAdj> Δ-4 {[-4-]}
<MI 25502 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 25506 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Const 0x2550a 0x10.4> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
<Call 0x2550e 0x1035c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
Quad2String(a : Quad; radix : Long ) : String
<POP 25514-25518 StackAdj> Δ+12 {[-4-]}
<Call 0x25518 0x25466> {[-4-]}
<POP 2551c-2551e StackAdj> Δ+4 {}
<POP 2551e-25522 Epilogue> Σ0
@ 25522
<LVAR 0x008 4(r)>
<POP 25522-2554c Body>
<POP 25522-25534 Prologue> Σ0 ↓
<POP 25534-25548 Naked> Σ0 ↓
<POP 25534-25536 StackAdj> Δ-4 {[-4-]}
<MI 25536 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2553a 0x102e4> {[-4-]|[4, '(A6+0x8)']}
Long2String(a : Long) : String
<POP 25540-25542 StackAdj> Δ+4 {[-4-]}
<Call 0x25542 0x25466> {[-4-]}
<POP 25546-25548 StackAdj> Δ+4 {}
<POP 25548-2554c Epilogue> Σ0
@ 2554c
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 2554c-2561c Body>
<POP 2554c-25562 Prologue> Σ0 ↓
<POP 25562-2556a RegCacheLoad> Σ0 ↓
<POP 2556a-2557c Naked> Σ0 ↓
<MI 2556a MOVEA.L (A6+0x8),A0> {}
<MI 2556e MOVE.L (A0+0x8),(A6-0x8)> {}
<Pointer.fp 0x25572 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x25574 0x102b8> {[@@-4]}
NewString(VAR a : String)
<POP 2557a-2557c StackAdj> Δ+4 {}
<POP 2557c-25586 Naked> Σ0 ↓ →0x2560a ←0x255f2
<MI 2557c MOVEA.L (A6-0x8),A0> {}
<MI 2557e CMPA.W #0x1,A0> {}
<MI 25582 BEQ 0x2560a> {}
<POP 25586-2558a Naked> Σ0 ↓ →0x255f2
<MI 25586 TST.L (A0)> {}
<MI 25588 BEQ 0x255f2> {}
<POP 2558a-25594 Naked> Σ0 Δ-4 ↓ →0x255a8
<MI 2558a MOVE.L (A0+0x4),-(A7)> Δ-4 {[4, '(A0+0x4)']}
<MI 2558e MOVE.L (A0),D7> {[4, '(A0+0x4)']}
<MI 25590 CMP.L (A7),D7> {[4, '(A0+0x4)']}
<MI 25592 BGT 0x255a8> {[4, '(A0+0x4)']}
<POP 25594-255a8 Naked> Σ-4 ↓
<MI 25594 MOVE.L (A7),D0> {[-4-]}
<POP 0x25596 LimitCheck -0x7fffffff ≤ D7> {[-4-]}
<MI 25596 CMPI.L #0x80000001,D7>
<MI 2559c BLT 0x255a6>
<POP 0x2559e LimitCheck D0 ≤ 0x7fffffff> {[-4-]}
<MI 2559e CMPI.L #0x7fffffff,D0>
<MI 255a4 BLE 0x255a8>
<MI 255a6 TRAP #15>
<POP 255a8-255ac Naked> Σ-4 ↓ →0x255f0 ←0x2558a ←0x255ec
<MI 255a8 CMP.L (A7),D7> {[-4-]}
<MI 255aa BGT 0x255f0> {[-4-]}
<POP 255ac-255d8 Naked> Σ-4 ↓ →0x255ec
<MI 255ac MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<MI 255ae MOVE.L D7,D0> {[-4-]|[4, '(A6-0x4)']}
<MI 255b0 SUBQ.L #0x1,D0> {[-4-]|[4, '(A6-0x4)']}
<POP 0x255b2 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]|[4, '(A6-0x4)']}
<MI 255bc LEA.L 0x3b1ee,A0> {[-4-]|[4, '(A6-0x4)']}
<MI 255c2 MOVE.B (A0+D0.L+#0x8),-(A7)> Δ-2 {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
<Call 0x255c6 0x102c0> {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
AppendChar(MOD b : String; a : char)
<POP 255cc-255ce StackAdj> Δ+6 {[-4-]}
<MI 255ce MOVEA.L (A6-0x4),A0> {[-4-]}
<MI 255d0 MOVE.W (A0),D0> {[-4-]}
<MI 255d2 CMPI.W #0x007a,D0> {[-4-]}
<MI 255d6 BLT 0x255ec> {[-4-]}
<POP 255d8-255ec Naked> Σ-4 ↓
<MI 255d8 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<Call 0x255da 0x103d8> {[-4-]|[4, '(A6-0x4)']}
WriteConsoleString(str : String)
<POP 255e0-255e2 StackAdj> Δ+4 {[-4-]}
<Pointer.fp 0x255e2 <LVAR -0x004 @ 4(r)>> Δ-4 {[-4-]|[@@-4]}
<Call 0x255e4 0x102b8> {[-4-]|[@@-4]}
NewString(VAR a : String)
<POP 255ea-255ec StackAdj> Δ+4 {[-4-]}
<POP 255ec-255f0 Naked> Σ-4 ↓ →0x255a8 ←0x255ac
<MI 255ec ADDQ.L #0x1,D7> {[-4-]}
<MI 255ee BVC 0x255a8> {[-4-]}
<POP 255f0-255f2 Naked> Σ-4 Δ+4 ↓ ←0x255a8
<POP 255f0-255f2 StackAdj> Δ+4 {}
<POP 255f2-2560a Naked> Σ0 →0x2557c ←0x25586
<MI 255f2 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Const 0x255f4 0x20.2> Δ-2 {[4, '(A6-0x4)']|[#32]}
<Call 0x255f8 0x102c0> {[4, '(A6-0x4)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 255fe-25600 StackAdj> Δ+6 {}
<MI 25600 MOVEA.L (A6-0x8),A0> {}
<MI 25602 MOVE.L (A0+0x8),(A6-0x8)> {}
<MI 25606 BRA 0x2557c> {}
<POP 2560a-25614 Naked> Σ0 ↓ ←0x2557c
<MI 2560a MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x2560c 0x103e0> {[4, '(A6-0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 25612-25614 StackAdj> Δ+4 {}
<POP 25614-2561c Epilogue> Σ0
@ 2561c
<LVAR 0x008 @ 4(r)>
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<POP 2561c-25726 Body>
<POP 2561c-25632 Prologue> Σ0 ↓
<POP 25632-25644 RegCacheLoad> Σ0 ↓
<POP 25644-2568a Naked> Σ0 ↓ →0x256c0
<Blob 0x25644 [4] @> Δ-4 {[«4""»]}
<POP 25648-2564a StackAdj> Δ-8 {[«4""»]|[-8-]}
<MI 2564a MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[-8-]|[4, '(A6+0x8)']}
<Call 0x2564c 0x102cc> {[«4""»]|[-8-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<Lit 0x25652 4> {[«4""»]|[-8-]|[$$.HLP]}
<Call 0x25664 0x102d0> {[«4""»]|[-8-]|[$$.HLP]}
StringCat2(a, b : String) : String
<POP 2566a-2566c StackAdj> Δ+8 {[«4""»]|[-4-]}
<MI 2566c MOVE.L (A7)+,(A6-0xc)> Δ+4 {[«4""»]}
<MI 2566e MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<MI 25670 CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]}
<MI 25672 CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]|[#0]}
<Const 0x25674 0x0.4> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x25678 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x2567a <LVAR -0x008 @ 4(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x2567c 0x10380> {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 25682-25686 StackAdj> Δ+20 {}
<MI 25686 TST.B (A6-0x4)> {}
<MI 25688 BEQ 0x256c0> {}
<POP 2568a-256c0 Naked> Σ0 →0x25714
<Blob 0x2568a [22] @> Δ-22 {[«22""»]}
<POP 25696-25698 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x25698 22> {[«22""»]|[-4-]|[$$No help available for_]}
<POP 256a8-256aa StackAdj> Δ-4 {[«22""»]|[-4-]|[$$No help available for_]|[-4-]}
<MI 256aa MOVE.L (A6+0x8),(A7)> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
<Call 0x256ac 0x102d0> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 256b2-256b4 StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x256b4 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 256ba-256be StackAdj> Δ+26 {}
<MI 256be BRA 0x25714> {}
<POP 256c0-256d8 Naked> Σ0 ↓ →0x256ec ←0x25644 ←0x256ec
<MI 256c0 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Pointer.fp 0x256c2 <LVAR 0x008 @ 4(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]}
<Pointer.fp 0x256c4 <LVAR -0x003 @ 1(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]|[@@-3]}
<Call 0x256c8 0x1043c> {[4, '(A6-0x8)']|[@@8]|[@@-3]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 256ce-256d2 StackAdj> Δ+12 {}
<MI 256d2 TST.B (A6-0x3)> {}
<MI 256d6 BNE 0x256ec> {}
<POP 256d8-256ec Naked> Σ0 ↓
<POP 256d8-256da StackAdj> Δ-4 {[-4-]}
<MI 256da MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x256dc 0x102cc> {[-4-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<POP 256e2-256e4 StackAdj> Δ+4 {[-4-]}
<Call 0x256e4 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 256ea-256ec StackAdj> Δ+4 {}
<POP 256ec-256f2 Naked> Σ0 ↓ →0x256c0 ←0x256c0
<MI 256ec TST.B (A6-0x3)> {}
<MI 256f0 BEQ 0x256c0> {}
<POP 256f2-25714 Naked> Σ0 ↓
<MI 256f2 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x256f4 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x256f8 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x256fc <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]}
<Pointer.fp 0x256fe <LVAR -0x008 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
<Call 0x25700 0x1038c> {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 25706-2570a StackAdj> Δ+16 {}
<Pointer.fp 0x2570a <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x2570c 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 25712-25714 StackAdj> Δ+4 {}
<POP 25714-2571e Naked> Σ0 ↓ ←0x2568a
<Pointer.fp 0x25714 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x25716 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 2571c-2571e StackAdj> Δ+4 {}
<POP 2571e-25726 Epilogue> Σ0
@ 25726
<LVAR 0x008 4(r)>
<POP 25726-257a8 Body>
<POP 25726-2573c Prologue> Σ0 ↓
<POP 2573c-2574c Naked> Σ0 ↓ →0x2577a
<POP 2573c-2573e StackAdj> Δ-4 {[-4-]}
<MI 2573e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x25742 0x24aa8> {[-4-]|[4, '(A6+0x8)']}
<POP 25746-25748 StackAdj> Δ+4 {[-4-]}
<MI 25748 MOVE.L (A7)+,D6> Δ+4 {}
<MI 2574a BNE 0x2577a> {}
<POP 2574c-2577a Naked> Σ0 →0x257a0
<Blob 0x2574c [10] 0x3d208> Δ-10 {[«10»]}
<POP 2575a-2575c StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x2575c> {[«10»]|[$$…]}
<Pointer.sp 0x2575c 4> Δ-4
<Const 0x25760 0x1.2> Δ-2
<Const 0x25764 0xa.2> Δ-2
<Call 0x25768 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2576e-25770 StackAdj> Δ+8
<Call 0x25770 0x2561c> {[«10»]|[$$…]}
<POP 25774-25778 StackAdj> Δ+14 {}
<MI 25778 BRA 0x257a0> {}
<POP 2577a-2577e Naked> Σ0 Δ-4 ↓ ←0x2573c
<MI 2577a MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 2577c MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 2577e-25782 Naked> Σ-4 ↓ →0x2579e ←0x25782
<MI 2577e CMP.L (A7),D7> {[-4-]}
<MI 25780 BGT 0x2579e> {[-4-]}
<POP 25782-2579e Naked> Σ-4 ↓ →0x2577e
<POP 25782-25784 StackAdj> Δ-4 {[-8-]}
<MI 25784 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 25788 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x2578a 0x253c4> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 2578e-25790 StackAdj> Δ+8 {[-8-]}
<MI 25790 MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<MI 25792 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Call 0x25794 0x2561c> {[-4-]|[4, 'A4']}
<POP 25798-2579a StackAdj> Δ+4 {[-4-]}
<MI 2579a ADDQ.L #0x1,D7> {[-4-]}
<MI 2579c BVC 0x2577e> {[-4-]}
<POP 2579e-257a0 Naked> Σ-4 Δ+4 ↓ ←0x2577e
<POP 2579e-257a0 StackAdj> Δ+4 {}
<POP 257a0-257a8 Epilogue> Σ0 ←0x2574c
@ 257a8
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x020 @>
<POP 257a8-2582a Body>
<POP 257a8-257be Prologue> Σ0 ↓
<POP 257be-257c0 RegCacheLoad> Σ0 ↓
<POP 257c0-257c2 Naked> Σ0 ↓
<MI 257c0 MOVEQ.L #0x01,D7> {}
<POP 257c2-257ce Naked> Σ0 ↓ →0x257de ←0x257fc
<MI 257c2 MOVEA.L (A6+0x8),A0> {}
<MI 257c6 MOVE.W (A0),D0> {}
<MI 257c8 EXTW.L D0> {}
<MI 257ca CMP.L D0,D7> {}
<MI 257cc BLE 0x257de> {}
<POP 257ce-257de Naked> Σ0 →0x257fc
<MI 257ce MOVE.L D7,D0> {}
<MI 257d0 SUBQ.L #0x1,D0> {}
<POP 0x257d2 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 257d8 CLR.B (A6+D0.L-#0x20)> {}
<MI 257dc BRA 0x257fc> {}
<POP 257de-257fc Naked> Σ0 ↓ ←0x257c2
<MI 257de MOVE.L D7,D0> {}
<MI 257e0 SUBQ.L #0x1,D0> {}
<POP 0x257e2 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 257e8 MOVE.L D7,D1> {}
<MI 257ea SUBQ.L #0x1,D1> {}
<POP 0x257ec LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 257f6 MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20)> {}
<POP 257fc-25806 Naked> Σ0 ↓ →0x257c2 ←0x257ce
<MI 257fc ADDQ.L #0x1,D7> {}
<MI 257fe CMPI.L #0x0000001e,D7> {}
<MI 25804 BLE 0x257c2> {}
<POP 25806-25822 Naked> Σ0 ↓
<Pointer.fp 0x25806 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x2580a 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 25810-25812 StackAdj> Δ+4 {}
<MI 25812 LEA.L (A6+0xc),A0> {}
<MI 25816 LEA.L (A6-0x20),A1> {}
<BlockMove 30,A1,A0> {}
<POP 25822-2582a Epilogue> Σ0
@ 2582a
<LVAR 0x026 4(w)>
<LVAR 0x008 @>
<LVAR -0x006 4(rw)>
<POP 2582a-2587e Body>
<POP 2582a-25840 Prologue> Σ0 ↓
<POP 25840-25844 RegCacheLoad> Σ0 ↓
<POP 25844-2584c Naked> Σ0 ↓
<MI 25844 MOVEQ.L #0x00,D7> {}
<MI 25846 MOVE.L 0x3d220,(A6-0x6)> {}
<POP 2584c-25854 Naked> Σ0 ↓ →0x25872 ←0x25870
<MI 2584c MOVEA.L (A6-0x6),A0> {}
<MI 2584e CMPA.W #0x1,A0> {}
<MI 25852 BEQ 0x25872> {}
<POP 25854-25858 Naked> Σ0 ↓ →0x25872
<MI 25854 TST.B D7> {}
<MI 25856 BNE 0x25872> {}
<POP 25858-25860 Naked> Σ0 ↓
<MI 25858 MOVEA.L A0,A1> {}
<MI 2585a LEA.L (A6+0x8),A2> {}
<MI 2585e MOVEQ.L #0x1d,D0> {}
<POP 25860-25866 Naked> Σ0 ↓ →0x25860 ←0x25860
<MI 25860 CMPM.B (A1)+,(A2)+> {}
<MI 25862 DBNE D0,0x25860> {}
<POP 25866-25868 Naked> Σ0 ↓ →0x2586c
<MI 25866 BNE 0x2586c> {}
<POP 25868-2586c Naked> Σ0 →0x25870
<MI 25868 MOVEQ.L #0x01,D7> {}
<MI 2586a BRA 0x25870> {}
<POP 2586c-25870 Naked> Σ0 ↓ ←0x25866
<MI 2586c MOVE.L (A0+0x26),(A6-0x6)> {}
<POP 25870-25872 Naked> Σ0 →0x2584c ←0x25868
<MI 25870 BRA 0x2584c> {}
<POP 25872-25876 Naked> Σ0 ↓ ←0x2584c ←0x25854
<MI 25872 MOVE.L A0,(A6+0x26)> {}
<POP 25876-2587e Epilogue> Σ0
@ 2587e
<LVAR 0x008 @ 4(r)>
<POP 2587e-25904 Body>
<POP 2587e-25894 Prologue> Σ0 ↓
<POP 25894-258a0 RegCacheLoad> Σ0 ↓
<POP 258a0-258a6 Naked> Σ0 ↓ →0x258fc
<MI 258a0 MOVEA.L (A6+0x8),A0> {}
<MI 258a2 CMPA.W #0x01,A0> {}
<MI 258a4 BEQ 0x258fc> {}
<POP 258a6-258ac Naked> Σ0 ↓ →0x258bc
<MI 258a6 TST.L (A0+0x1e)> {}
<MI 258aa BEQ 0x258bc> {}
<POP 258ac-258bc Naked> Σ0 ↓
<MI 258ac MOVE.L (A0+0x22),-(A7)> Δ-4 {[4, '(A0+0x22)']}
<MI 258b0 MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
<Call 0x258b4 0x102a4> {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
Free1(a : Pointer; b : Long)
<POP 258ba-258bc StackAdj> Δ+8 {}
<POP 258bc-258c2 Naked> Σ0 ↓ ←0x258a6
<MI 258bc MOVEQ.L #0x00,D7> {}
<MI 258be MOVEA.W #0x01,A4> {}
<MI 258c0 MOVEA.L 0x3d220,A3> {}
<POP 258c2-258c6 Naked> Σ0 ↓ →0x258da ←0x258d8
<MI 258c2 CMPA.W #0x01,A3> {}
<MI 258c4 BEQ 0x258da> {}
<POP 258c6-258ca Naked> Σ0 ↓ →0x258da
<MI 258c6 TST.B D7> {}
<MI 258c8 BNE 0x258da> {}
<POP 258ca-258ce Naked> Σ0 ↓ →0x258d2
<MI 258ca CMPA.L (A6+0x8),A3> {}
<MI 258cc BNE 0x258d2> {}
<POP 258ce-258d2 Naked> Σ0 →0x258d8
<MI 258ce MOVEQ.L #0x01,D7> {}
<MI 258d0 BRA 0x258d8> {}
<POP 258d2-258d8 Naked> Σ0 ↓ ←0x258ca
<MI 258d2 MOVEA.L A3,A4> {}
<MI 258d4 MOVEA.L (A3+0x26),A3> {}
<POP 258d8-258da Naked> Σ0 →0x258c2 ←0x258ce
<MI 258d8 BRA 0x258c2> {}
<POP 258da-258de Naked> Σ0 ↓ →0x258fc ←0x258c2 ←0x258c6
<MI 258da TST.B D7> {}
<MI 258dc BEQ 0x258fc> {}
<POP 258de-258e2 Naked> Σ0 ↓ →0x258e8
<MI 258de CMPA.W #0x01,A4> {}
<MI 258e0 BNE 0x258e8> {}
<POP 258e2-258e8 Naked> Σ0 →0x258ee
<MI 258e2 MOVE.L (A3+0x26),0x3d220> {}
<MI 258e6 BRA 0x258ee> {}
<POP 258e8-258ee Naked> Σ0 ↓ ←0x258de
<MI 258e8 MOVE.L (A3+0x26),(A4+0x26)> {}
<POP 258ee-258fc Naked> Σ0 ↓ ←0x258e2
<Pointer.fp 0x258ee <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Const 0x258f0 0x2a.4> Δ-4 {[@@8]|[##42]}
<Call 0x258f4 0x102a8> {[@@8]|[##42]}
Free2(a : Pointer; b : Long)
<POP 258fa-258fc StackAdj> Δ+8 {}
<POP 258fc-25904 Epilogue> Σ0 ←0x258a0 ←0x258da
@ 25904
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x024 @>
<POP 25904-259c2 Body>
<POP 25904-2591a Prologue> Σ0 ↓
<POP 2591a-25924 RegCacheLoad> Σ0 ↓
<POP 25924-25942 Naked> Σ0 ↓ →0x25944
<POP 25924-25926 StackAdj> Δ-30 {[-30-]}
<MI 25926 MOVEA.L (A6+0xc),A0> {[-30-]}
<MI 2592a MOVE.L (A0),-(A7)> Δ-4 {[-30-]|[4, '(A0)']}
<Call 0x2592c 0x257a8> {[-30-]|[4, '(A0)']}
<POP 25930-25932 StackAdj> Δ+4 {[-30-]}
<MI 25932 LEA.L (A6-0x24),A0> {[-30-]}
<POP 25936-2593e StackPop> Δ+30 {[-30-]}
<BlockMove 30,A7,A0> Δ+30
<MI 2593e TST.L (A6+0x8)> {[-30-]}
<MI 25940 BGE 0x25944> {[-30-]}
<POP 25942-25944 Naked> Σ0 ↓
<MI 25942 CLR.L (A6+0x8)> {}
<POP 25944-25960 Naked> Σ0 ↓ →0x25972 ←0x25924
<POP 25944-25946 StackAdj> Δ-4 {[-4-]}
<Blob 0x25946 [30] (A6-0x6)> Δ-30 {[-4-]|[«30»]}
<Call 0x25950 0x2582a> {[-4-]|[«30»]}
<POP 25954-25956 StackAdj> Δ+30 {[-4-]}
<MI 25956 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 25958 MOVEA.L (A6-0x6),A0> {}
<MI 2595a CMPA.W #0x1,A0> {}
<MI 2595e BEQ 0x25972> {}
<POP 25960-25968 Naked> Σ0 ↓ →0x2596a
<MI 25960 MOVE.L (A0+0x1e),D0> {}
<MI 25964 CMP.L (A6+0x8),D0> {}
<MI 25966 BNE 0x2596a> {}
<POP 25968-2596a Naked> Σ0 →0x259b6
<MI 25968 BRA 0x259b6> {}
<POP 2596a-25972 Naked> Σ0 ↓ ←0x25960
<MI 2596a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2596c 0x2587e> {[4, '(A6-0x6)']}
<POP 25970-25972 StackAdj> Δ+4 {}
<POP 25972-259a6 Naked> Σ0 ↓ →0x259b6 ←0x25944
<Pointer.fp 0x25972 <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Const 0x25974 0x2a.4> Δ-4 {[@@-6]|[##42]}
<Call 0x25978 0x1029c> {[@@-6]|[##42]}
Malloc1(length : Long) : Pointer
<POP 2597e-25980 StackAdj> Δ+8 {}
<MI 25980 MOVEA.L (A6-0x6),A0> {}
<MI 25982 MOVE.L 0x3d220,(A0+0x26)> {}
<MI 2598a MOVE.L (A6-0x6),0x3d220> {}
<MI 25990 MOVEA.L A0,A1> {}
<MI 25992 LEA.L (A6-0x24),A2> {}
<BlockMove 30,A2,A1> {}
<MI 2599e MOVE.L (A6+0x8),(A0+0x1e)> {}
<MI 259a2 TST.L (A6+0x8)> {}
<MI 259a4 BEQ 0x259b6> {}
<POP 259a6-259b6 Naked> Σ0 ↓
<POP 259a6-259a8 StackAdj> Δ-4 {[-4-]}
<MI 259a8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x259aa 0x102a0> {[-4-]|[4, '(A6+0x8)']}
Malloc2(VAR dst : Pointer; length : Word)
<POP 259b0-259b2 StackAdj> Δ+4 {[-4-]}
<MI 259b2 MOVE.L (A7)+,(A0+0x22)> Δ+4 {}
<POP 259b6-259ba Naked> Σ0 ↓ ←0x25968 ←0x25972
<MI 259b6 MOVE.L (A6-0x6),(A6+0x10)> {}
<POP 259ba-259c2 Epilogue> Σ0
@ 259c2
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 259c2-25a4c Body>
<POP 259c2-259d8 Prologue> Σ0 ↓
<POP 259d8-259dc RegCacheLoad> Σ0 ↓
<POP 259dc-259fa Naked> Σ0 ↓ →0x25a3a
<MI 259dc MOVEA.L (A6+0x8),A0> {}
<MI 259de MOVE.W (A0),D0> {}
<MI 259e0 EXTW.L D0> {}
<MI 259e2 MOVE.L D0,D6> {}
<POP 259e4-259e6 StackAdj> Δ-4 {[-4-]}
<Pointer.fp 0x259e6 <LVAR 0x00c @>> Δ-4 {[-4-]|[@@12]}
<MI 259ea MOVE.L D6,-(A7)> Δ-4 {[-4-]|[@@12]|[4, 'D6']}
<Call 0x259ec 0x25904> {[-4-]|[@@12]|[4, 'D6']}
<POP 259f0-259f2 StackAdj> Δ+8 {[-4-]}
<MI 259f2 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 259f6 TST.L D6> {}
<MI 259f8 BEQ 0x25a3a> {}
<POP 259fa-25a08 Naked> Σ0 Δ-8 ↓
<MI 259fa MOVEA.L (A6-0x8),A0> {}
<MI 259fe MOVEA.L (A0+0x22),A0> {}
<MI 25a02 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 25a04 MOVE.L D6,-(A7)> Δ-4 {[4, 'A0']|[4, 'D6']}
<MI 25a06 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D6']}
<POP 25a08-25a0c Naked> Σ-8 ↓ →0x25a38 ←0x25a0c
<MI 25a08 CMP.L (A7),D7> {[-8-]}
<MI 25a0a BGT 0x25a38> {[-8-]}
<POP 25a0c-25a38 Naked> Σ-8 ↓ →0x25a08
<MI 25a0c MOVE.L D7,D0> {[-8-]}
<MI 25a0e SUBQ.L #0x1,D0> {[-8-]}
<POP 0x25a10 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 25a1a MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 25a1e MOVEA.L (A6+0x8),A1> {[-8-]}
<MI 25a20 MOVE.L D7,D1> {[-8-]}
<MI 25a22 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x25a24 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 25a2e MOVE.B (A1+D1.L+#0x2),(A0+D0.L)> {[-8-]}
<MI 25a34 ADDQ.L #0x1,D7> {[-8-]}
<MI 25a36 BVC 0x25a08> {[-8-]}
<POP 25a38-25a3a Naked> Σ-8 Δ+8 ↓ ←0x25a08
<POP 25a38-25a3a StackAdj> Δ+8 {}
<POP 25a3a-25a44 Naked> Σ0 ↓ ←0x259dc
<Pointer.fp 0x25a3a <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x25a3c 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 25a42-25a44 StackAdj> Δ+4 {}
<POP 25a44-25a4c Epilogue> Σ0
@ 25a4c
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(w)>
<LVAR -0x008 4(rw)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x01c 4(rw)>
<LVAR -0x020 4(rw)>
<POP 25a4c-25bb8 Body>
<POP 25a4c-25a62 Prologue> Σ0 ↓
<POP 25a62-25a70 RegCacheLoad> Σ0 ↓
<POP 25a70-25a82 Naked> Σ0 ↓ →0x25ab0
<POP 25a70-25a72 StackAdj> Δ-4 {[-4-]}
<MI 25a72 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x25a74 0x24aa8> {[-4-]|[4, '(A6+0x8)']}
<POP 25a78-25a7a StackAdj> Δ+4 {[-4-]}
<MI 25a7a MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 25a7c MOVE.L (A6-0x10),D0> {}
<MI 25a7e CMP.L #0x01,D0> {}
<MI 25a80 BGE 0x25ab0> {}
<POP 25a82-25ab0 Naked> Σ0 ↓
<Blob 0x25a82 [26] @> Δ-26 {[«26""»]}
<POP 25a94-25a96 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x25a96 25> {[«26""»]|[$$Too few arguments for SET]}
<Call 0x25aa8 0x2469c> {[«26""»]|[$$Too few arguments for SET]}
<POP 25aac-25ab0 StackAdj> Δ+30 {}
<POP 25ab0-25ab6 Naked> Σ0 Δ-4 ↓ ←0x25a70
<MI 25ab0 CLR.L (A6-0xc)> {}
<MI 25ab2 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 25ab4 MOVEQ.L #0x02,D6> {[4, 'D0']}
<POP 25ab6-25aba Naked> Σ-4 ↓ →0x25ad8 ←0x25aba
<MI 25ab6 CMP.L (A7),D6> {[-4-]}
<MI 25ab8 BGT 0x25ad8> {[-4-]}
<POP 25aba-25ad8 Naked> Σ-4 ↓ →0x25ab6
<POP 25aba-25abe StackAdj> Δ-12 {[-16-]}
<MI 25abe MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 25ac0 MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x25ac2 0x252e6> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 25ac6-25ac8 StackAdj> Δ+8 {[-16-]}
<Call 0x25ac8 0x252ae> {[-16-]}
<POP 25acc-25ace StackAdj> Δ+8 {[-8-]}
<MI 25ace MOVE.L (A6-0xc),D0> {[-8-]}
<MI 25ad0 ADD.L (A7)+,D0> Δ+4 {[-4-]}
<MI 25ad2 MOVE.L D0,(A6-0xc)> {[-4-]}
<MI 25ad4 ADDQ.L #0x1,D6> {[-4-]}
<MI 25ad6 BVC 0x25ab6> {[-4-]}
<POP 25ad8-25b08 Naked> Σ-4 Δ+4 ↓ →0x25bb0 ←0x25ab6
<POP 25ad8-25ada StackAdj> Δ+4 {}
<MI 25ada MOVE.L (A6-0x10),D0> {}
<MI 25adc SUBQ.L #0x2,D0> {}
<MI 25ade ADD.L D0,(A6-0xc)> {}
<POP 25ae0-25ae2 StackAdj> Δ-4 {[-4-]}
<MI 25ae2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x25ae4 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x25ae8 0x253c4> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 25aec-25aee StackAdj> Δ+8 {[-4-]}
<MI 25aee MOVE.L (A7),(A6-0x4)> {[-4-]}
<Pointer.fp 0x25af2 <LVAR -0x004 @ 4(w)>> Δ-4 {[-4-]|[@@-4]}
<MI 25af6 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<Call 0x25af8 0x25904> {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<POP 25afc-25afe StackAdj> Δ+8 {[-4-]}
<MI 25afe MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 25b02 TST.L (A6-0xc)> {}
<MI 25b04 BLE 0x25bb0> {}
<POP 25b08-25b18 Naked> Σ0 Δ-8 ↓
<MI 25b08 MOVEA.L (A6-0x8),A0> {}
<MI 25b0c MOVEA.L (A0+0x22),A0> {}
<MI 25b10 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 25b12 MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 25b14 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x10)']}
<MI 25b16 MOVEQ.L #0x02,D6> {[4, 'A0']|[4, '(A6-0x10)']}
<POP 25b18-25b1e Naked> Σ-8 ↓ →0x25bae ←0x25ba8
<MI 25b18 CMP.L (A7),D6> {[-8-]}
<MI 25b1a BGT 0x25bae> {[-8-]}
<POP 25b1e-25b3e Naked> Σ-8 Δ-4 ↓ →0x25b52
<POP 25b1e-25b20 StackAdj> Δ-8 {[-16-]}
<MI 25b20 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 25b22 MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x25b24 0x252e6> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 25b28-25b2a StackAdj> Δ+8 {[-16-]}
<MI 25b2a MOVE.L (A7)+,(A6-0x20)> Δ+4 {[-12-]}
<MI 25b2e MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-8-]}
<MI 25b32 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x1c)']}
<MI 25b36 MOVE.L (A6-0x20),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 25b3a CMP.L (A7),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 25b3c BGT 0x25b52> {[-8-]|[4, '(A6-0x1c)']}
<POP 25b3e-25b52 Naked> Σ-12 ↓
<MI 25b3e MOVE.L (A7),D0> {[-12-]}
<POP 0x25b40 LimitCheck -0x7fffffff ≤ D5> {[-12-]}
<MI 25b40 CMPI.L #0x80000001,D5>
<MI 25b46 BLT 0x25b50>
<POP 0x25b48 LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 25b48 CMPI.L #0x7fffffff,D0>
<MI 25b4e BLE 0x25b52>
<MI 25b50 TRAP #15>
<POP 25b52-25b56 Naked> Σ-12 ↓ →0x25b88 ←0x25b1e ←0x25b56
<MI 25b52 CMP.L (A7),D5> {[-12-]}
<MI 25b54 BGT 0x25b88> {[-12-]}
<POP 25b56-25b88 Naked> Σ-12 ↓ →0x25b52
<MI 25b56 MOVE.L D7,D0> {[-12-]}
<MI 25b58 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x25b5a LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-12-]}
<MI 25b64 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 25b68 MOVE.L D5,D1> {[-12-]}
<MI 25b6a SUBQ.L #0x1,D1> {[-12-]}
<POP 0x25b6c LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-12-]}
<MI 25b76 LEA.L 0x3b1ee,A1> {[-12-]}
<MI 25b7c MOVE.B (A1+D1.L+#0x8),(A0+D0.L)> {[-12-]}
<MI 25b82 ADDQ.L #0x1,D7> {[-12-]}
<MI 25b84 ADDQ.L #0x1,D5> {[-12-]}
<MI 25b86 BVC 0x25b52> {[-12-]}
<POP 25b88-25b8e Naked> Σ-12 Δ+4 ↓ →0x25ba8 ←0x25b52
<POP 25b88-25b8a StackAdj> Δ+4 {[-8-]}
<MI 25b8a CMP.L (A6-0x10),D6> {[-8-]}
<MI 25b8c BEQ 0x25ba8> {[-8-]}
<POP 25b8e-25ba8 Naked> Σ-8 ↓
<MI 25b8e MOVE.L D7,D0> {[-8-]}
<MI 25b90 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x25b92 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 25b9c MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 25ba0 MOVE.B #0x2c,(A0+D0.L)> {[-8-]}
<MI 25ba6 ADDQ.L #0x1,D7> {[-8-]}
<POP 25ba8-25bae Naked> Σ-8 ↓ →0x25b18 ←0x25b88
<MI 25ba8 ADDQ.L #0x1,D6> {[-8-]}
<MI 25baa BVC 0x25b18> {[-8-]}
<POP 25bae-25bb0 Naked> Σ-8 Δ+8 ↓ ←0x25b18
<POP 25bae-25bb0 StackAdj> Δ+8 {}
<POP 25bb0-25bb8 Epilogue> Σ0 ←0x25ad8
@ 25bb8
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<POP 25bb8-25ca6 Body>
<POP 25bb8-25bce Prologue> Σ0 ↓
<POP 25bce-25bd6 RegCacheLoad> Σ0 ↓
<POP 25bd6-25c08 Naked> Σ0 ↓ →0x25c4a
<POP 25bd6-25bd8 StackAdj> Δ-4 {[-4-]}
<MI 25bd8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x25bdc 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x25be0 0x253c4> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 25be4-25be6 StackAdj> Δ+8 {[-4-]}
<MI 25be6 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 25be8-25bec StackAdj> Δ-34 {[-34-]}
<MI 25bec MOVE.L A4,-(A7)> Δ-4 {[-34-]|[4, 'A4']}
<Call 0x25bee 0x257a8> {[-34-]|[4, 'A4']}
<POP 25bf2-25bf4 StackAdj> Δ+4 {[-34-]}
<Call 0x25bf4 0x2582a> {[-34-]}
<POP 25bf8-25bfc StackAdj> Δ+30 {[-4-]}
<MI 25bfc MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 25c00 MOVEA.L (A6-0xc),A0> {}
<MI 25c04 CMPA.W #0x01,A0> {}
<MI 25c06 BNE 0x25c4a> {}
<POP 25c08-25c4a Naked> Σ0 ↓
<Blob 0x25c08 [20] @> Δ-20 {[«20""»]}
<POP 25c1a-25c1c StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x25c1c 19> {[«20""»]|[-4-]|[$$Unknown variable :_]}
<MI 25c2c MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 25c26-25c2c StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Const 0x25c30 0x1.4> Δ-4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<Call 0x25c34 0x253c4> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<POP 25c38-25c3a StackAdj> Δ+8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x25c3a 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 25c40-25c42 StackAdj> Δ+8 {[«20""»]|[-4-]}
<Call 0x25c42 0x2469c> {[«20""»]|[-4-]}
<POP 25c46-25c4a StackAdj> Δ+24 {}
<POP 25c4a-25c60 Naked> Σ0 Δ-8 ↓ ←0x25bd6
<MI 25c4a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x25c4c [4] 0x3d1f6> Δ-4 {[4, 'A0']|[«4»]}
<MI 25c4e MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<MI 25c52 NEG.L (A7)> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<Call 0x25c54 0x24bf0> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<POP 25c58-25c5a StackAdj> Δ+4 {[4, 'A0']|[«4»]}
<MI 25c5a MOVE.L (A0+0x1e),(A7)> {[4, 'A0']|[4, '(A0+0x1e)']}
<MI 25c5e MOVEQ.L #0x01,D7> {[4, 'A0']|[4, '(A0+0x1e)']}
<POP 25c60-25c64 Naked> Σ-8 ↓ →0x25c9c ←0x25c64
<MI 25c60 CMP.L (A7),D7> {[-8-]}
<MI 25c62 BGT 0x25c9c> {[-8-]}
<POP 25c64-25c9c Naked> Σ-8 ↓ →0x25c60
<MI 25c64 MOVE.L D7,D0> {[-8-]}
<MI 25c66 ADD.L 0x3d1f6,D0> {[-8-]}
<MI 25c68 SUBQ.L #0x1,D0> {[-8-]}
<MI 25c6a SUBQ.L #0x1,D0> {[-8-]}
<POP 0x25c6c LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 25c76 LEA.L 0x3b1ee,A0> {[-8-]}
<MI 25c7c MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 25c80 MOVEA.L (A1+0x22),A1> {[-8-]}
<MI 25c84 MOVE.L D7,D1> {[-8-]}
<MI 25c86 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x25c88 LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {[-8-]}
<MI 25c92 MOVE.B (A1+D1.L),(A0+D0.L+#0x8)> {[-8-]}
<MI 25c98 ADDQ.L #0x1,D7> {[-8-]}
<MI 25c9a BVC 0x25c60> {[-8-]}
<POP 25c9c-25c9e Naked> Σ-8 Δ+8 ↓ ←0x25c60
<POP 25c9c-25c9e StackAdj> Δ+8 {}
<POP 25c9e-25ca6 Epilogue> Σ0
@ 25ca6
<LVAR -0x004 4(rw)>
<POP 25ca6-25d08 Body>
<POP 25ca6-25cbc Prologue> Σ0 ↓
<POP 25cbc-25cc4 RegCacheLoad> Σ0 ↓
<POP 25cc4-25cca Naked> Σ0 ↓
<MI 25cc4 MOVE.L 0x3d220,(A6-0x4)> {}
<POP 25cca-25cd0 Naked> Σ0 ↓ →0x25d00 ←0x25cd0
<MI 25cca MOVEA.L (A6-0x4),A0> {}
<MI 25ccc CMPA.W #0x01,A0> {}
<MI 25cce BEQ 0x25d00> {}
<POP 25cd0-25d00 Naked> Σ0 →0x25cca
<POP 25cd0-25cd2 StackAdj> Δ-30 {[-30-]}
<MI 25cd2 MOVEA.L A7,A1> {[-30-]}
<MI 25cd4 MOVEA.L A0,A2> {[-30-]}
<BlockMove 30,A2,A1> {[-30-]}
<POP 25cde-25ce0 StackAdj> Δ-4 {[-34-]}
<Lit 0x25ce0> {[-30-]|[$$…]}
<Pointer.sp 0x25ce0 4> Δ-4
<Const 0x25ce4 0x1.2> Δ-2
<Const 0x25ce6 0x1e.2> Δ-2
<Call 0x25ce8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 25cee-25cf0 StackAdj> Δ+8
<Call 0x25cf0 0x103e0> {[-30-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 25cf6-25cfa StackAdj> Δ+34 {}
<MI 25cfa MOVE.L (A0+0x26),(A6-0x4)> {}
<MI 25cfe BRA 0x25cca> {}
<POP 25d00-25d08 Epilogue> Σ0 ←0x25cca
@ 25d08
<LVAR 0x008 4(r)>
<POP 25d08-25d44 Body>
<POP 25d08-25d1a Prologue> Σ0 ↓
<POP 25d1a-25d40 Naked> Σ0 ↓
<POP 25d1a-25d1e StackAdj> Δ-38 {[-38-]}
<MI 25d1e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-38-]|[4, '(A6+0x8)']}
<Const 0x25d22 0x1.4> Δ-4 {[-38-]|[4, '(A6+0x8)']|[##1]}
<Call 0x25d26 0x253c4> {[-38-]|[4, '(A6+0x8)']|[##1]}
<POP 25d2a-25d2c StackAdj> Δ+8 {[-38-]}
<Call 0x25d2c 0x257a8> {[-38-]}
<POP 25d30-25d32 StackAdj> Δ+4 {[-34-]}
<Call 0x25d32 0x2582a> {[-34-]}
<POP 25d36-25d3a StackAdj> Δ+30 {[-4-]}
<Call 0x25d3a 0x2587e> {[-4-]}
<POP 25d3e-25d40 StackAdj> Δ+4 {}
<POP 25d40-25d44 Epilogue> Σ0
@ 25d44
<POP 25d44-25d72 Body>
<POP 25d44-25d56 Prologue> Σ0 ↓
<POP 25d56-25d6e Naked> Σ0 ↓
<POP 25d56-25d58 StackAdj> Δ-8 {[-8-]}
<Call 0x25d58 0x103cc> {[-8-]}
GetPushLevel() : Long
<Call 0x25d5e 0x102e4> {[-8-]}
Long2String(a : Long) : String
<POP 25d64-25d66 StackAdj> Δ+4 {[-4-]}
<Call 0x25d66 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 25d6c-25d6e StackAdj> Δ+4 {}
<POP 25d6e-25d72 Epilogue> Σ0
@ 25d72
<LVAR 0x008 4(r)>
<LVAR -0x004 1(rw)>
<LVAR -0x008 @ 4(rw)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x012 @ 1(r)>
<LVAR -0x013 @ 1(r)>
<LVAR -0x014 @ 1(r)>
<LVAR -0x024 4(rw)>
<LVAR -0x028 4(rw)>
<LVAR -0x02c 4(rw)>
<LVAR -0x030 @ 4(r)>
<LVAR -0x032 1(w)>
<LVAR -0x036 @ 4(r)>
<LVAR -0x038 @ 1(r)>
<LVAR -0x03c @ 4(rw)>
<POP 25d72-2609a Body>
<POP 25d72-25d88 Prologue> Σ0 ↓
<POP 25d88-25da0 RegCacheLoad> Σ0 ↓
<POP 25da0-25db0 Naked> Σ0 ↓ →0x25dd8
<POP 25da0-25da2 StackAdj> Δ-4 {[-4-]}
<MI 25da2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x25da4 0x24aa8> {[-4-]|[4, '(A6+0x8)']}
<POP 25da8-25daa StackAdj> Δ+4 {[-4-]}
<MI 25daa MOVE.L (A7)+,(A6-0x2c)> Δ+4 {}
<MI 25dae BNE 0x25dd8> {}
<POP 25db0-25dd8 Naked> Σ0 →0x25de8
<POP 25db0-25db2 StackAdj> Δ-4 {[-4-]}
<POP 25db2-25db3 StackAdj> Δ+2 {[-2-]}
<Blob 0x25db3 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 25db6 MOVE.B 0x242c1,(A7+0x1)> {[-2-]|[«2""»]}
<MI 25dbc MOVE.B 0x242c2,(A7+0x2)> {[-2-]|[«2""»]}
<POP 25dc2-25dc4 StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x25dc4> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x25dc4 4> Δ-4
<Const 0x25dc8 0x1.2> Δ-2
<Const 0x25dca 0x3.2> Δ-2
<Call 0x25dce 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 25dd0-25dd2 StackAdj> Δ+8
<MI 25dd2 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[-2-]|[«2""»]}
<POP 25dd4-25dd6 StackAdj> Δ+4 {}
<MI 25dd6 BRA 0x25de8> {}
<POP 25dd8-25de8 Naked> Σ0 ↓ ←0x25da0
<POP 25dd8-25dda StackAdj> Δ-4 {[-4-]}
<MI 25dda MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x25ddc 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x25de0 0x253c4> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 25de4-25de6 StackAdj> Δ+8 {[-4-]}
<MI 25de6 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {}
<POP 25de8-25e38 Naked> Σ0 ↓ →0x25e46 ←0x25db0
<Blob 0x25de8 [6] @> Δ-6 {[«6""»]}
<POP 25df8-25dfa StackAdj> Δ-4 {[«6""»]|[-4-]}
<MI 25dfa MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 25dfc-25dfe StackAdj> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x25dfe 5> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
<Call 0x25e0c 0x102d0> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
StringCat2(a, b : String) : String
<POP 25e12-25e14 StackAdj> Δ+8 {[«6""»]|[-4-]}
<MI 25e14 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[«6""»]}
<POP 25e16-25e18 StackAdj> Δ+2 {[-4-]}
<MI 25e18 MOVE.L (A6-0x3c),(A7)> {[4, '(A6-0x3c)']}
<MI 25e1a CLR.B -(A7)> Δ-2 {[4, '(A6-0x3c)']|[#0]}
<Const 0x25e1c 0x1.2> Δ-2 {[4, '(A6-0x3c)']|[#0]|[#1]}
<Const 0x25e1e 0x0.4> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x25e22 <LVAR -0x038 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]}
<Pointer.fp 0x25e26 <LVAR -0x036 @ 4(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
<Call 0x25e2a 0x10380> {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 25e30-25e32 StackAdj> Δ+20 {}
<MI 25e32 TST.B (A6-0x38)> {}
<MI 25e36 BEQ 0x25e46> {}
<POP 25e38-25e46 Naked> Σ0 →0x26092
<Pointer.fp 0x25e38 <LVAR -0x03c @ 4(rw)>> Δ-4 {[@@-60]}
<Call 0x25e3a 0x102bc> {[@@-60]}
FreeString(VAR a : String)
<POP 25e40-25e42 StackAdj> Δ+4 {}
<MI 25e42 BRA 0x26092> {}
<POP 25e46-25e8c Naked> Σ0 ↓ →0x25ec2 ←0x25de8
<MI 25e46 MOVEA.L (A6-0x36),A0> {}
<MI 25e4a MOVE.B (A0+0x3f),D0> {}
<MI 25e4e LSL.B #0x6,D0> {}
<MI 25e50 LSR.B #0x7,D0> {}
<MI 25e52 MOVE.B D0,(A6-0x32)> {}
<MI 25e56 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x25e58 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x25e5a 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x25e5e <LVAR -0x038 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]}
<Pointer.fp 0x25e62 <LVAR -0x036 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
<Call 0x25e66 0x1038c> {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 25e6c-25e70 StackAdj> Δ+16 {}
<MI 25e70 MOVEA.L (A6-0x3c),A0> {}
<MI 25e72 MOVE.W (A0),D1> {}
<MI 25e74 EXTW.L D1> {}
<MI 25e76 SUBQ.L #0x5,D1> {}
<POP 0x25e78 LimitCheck -0x8000 ≤ D1 ≤ 0x7fff> {}
<MI 25e86 MOVE.W D1,(A0)> {}
<MI 25e88 TST.B D0> {}
<MI 25e8a BNE 0x25ec2> {}
<POP 25e8c-25ec2 Naked> Σ0 →0x26092
<Blob 0x25e8c [18] @> Δ-18 {[«18""»]}
<POP 25e98-25e9a StackAdj> Δ-4 {[«18""»]|[-4-]}
<MI 25e9a MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 25e9c-25e9e StackAdj> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x25e9e 18> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
<Call 0x25eac 0x102d0> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
StringCat2(a, b : String) : String
<POP 25eb2-25eb4 StackAdj> Δ+8 {[«18""»]|[-4-]}
<Call 0x25eb4 0x103e0> {[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 25eba-25ebe StackAdj> Δ+22 {}
<MI 25ebe BRA 0x26092> {}
<POP 25ec2-25edc Naked> Σ0 Δ-8 ↓ ←0x25e46
<Pointer.fp 0x25ec2 <LVAR -0x030 @ 4(r)>> Δ-4 {[@@-48]}
<Call 0x25ec6 0x102b8> {[@@-48]}
NewString(VAR a : String)
<POP 25ecc-25ece StackAdj> Δ+4 {}
<MI 25ece MOVEA.L (A6-0x30),A0> {}
<MI 25ed2 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 25ed4 MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 25ed6 MOVE.L (A6-0x2c),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x2c)']}
<MI 25eda MOVEQ.L #0x02,D5> {[4, 'A0']|[4, '(A6-0x2c)']}
<POP 25edc-25ee2 Naked> Σ-8 ↓ →0x25f74 ←0x25f6e
<MI 25edc CMP.L (A7),D5> {[-8-]}
<MI 25ede BGT 0x25f74> {[-8-]}
<POP 25ee2-25f02 Naked> Σ-8 Δ-4 ↓ →0x25f16
<POP 25ee2-25ee4 StackAdj> Δ-8 {[-16-]}
<MI 25ee4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 25ee6 MOVE.L D5,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x25ee8 0x252e6> {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 25eec-25eee StackAdj> Δ+8 {[-16-]}
<MI 25eee MOVE.L (A7)+,(A6-0x28)> Δ+4 {[-12-]}
<MI 25ef2 MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-8-]}
<MI 25ef6 MOVE.L (A6-0x24),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x24)']}
<MI 25efa MOVE.L (A6-0x28),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 25efe CMP.L (A7),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 25f00 BGT 0x25f16> {[-8-]|[4, '(A6-0x24)']}
<POP 25f02-25f16 Naked> Σ-12 ↓
<MI 25f02 MOVE.L (A7),D0> {[-12-]}
<POP 0x25f04 LimitCheck -0x7fffffff ≤ D6> {[-12-]}
<MI 25f04 CMPI.L #0x80000001,D6>
<MI 25f0a BLT 0x25f14>
<POP 0x25f0c LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 25f0c CMPI.L #0x7fffffff,D0>
<MI 25f12 BLE 0x25f16>
<MI 25f14 TRAP #15>
<POP 25f16-25f1a Naked> Σ-12 ↓ →0x25f4c ←0x25ee2 ←0x25f1a
<MI 25f16 CMP.L (A7),D6> {[-12-]}
<MI 25f18 BGT 0x25f4c> {[-12-]}
<POP 25f1a-25f4c Naked> Σ-12 ↓ →0x25f16
<MI 25f1a MOVE.L D7,D0> {[-12-]}
<MI 25f1c SUBQ.L #0x1,D0> {[-12-]}
<POP 0x25f1e LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 25f28 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 25f2c MOVE.L D6,D1> {[-12-]}
<MI 25f2e SUBQ.L #0x1,D1> {[-12-]}
<POP 0x25f30 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-12-]}
<MI 25f3a LEA.L 0x3b1ee,A1> {[-12-]}
<MI 25f40 MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2)> {[-12-]}
<MI 25f46 ADDQ.L #0x1,D7> {[-12-]}
<MI 25f48 ADDQ.L #0x1,D6> {[-12-]}
<MI 25f4a BVC 0x25f16> {[-12-]}
<POP 25f4c-25f54 Naked> Σ-12 Δ+4 ↓ →0x25f6e ←0x25f16
<POP 25f4c-25f4e StackAdj> Δ+4 {[-8-]}
<MI 25f4e CMP.L (A6-0x2c),D5> {[-8-]}
<MI 25f52 BEQ 0x25f6e> {[-8-]}
<POP 25f54-25f6e Naked> Σ-8 ↓
<MI 25f54 MOVE.L D7,D0> {[-8-]}
<MI 25f56 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x25f58 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 25f62 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 25f66 MOVE.B #0x2c,(A0+D0.L+#0x2)> {[-8-]}
<MI 25f6c ADDQ.L #0x1,D7> {[-8-]}
<POP 25f6e-25f74 Naked> Σ-8 ↓ →0x25edc ←0x25f4c
<MI 25f6e ADDQ.L #0x1,D5> {[-8-]}
<MI 25f70 BVC 0x25edc> {[-8-]}
<POP 25f74-26024 Naked> Σ-8 Δ+8 ↓ →0x2602a ←0x25edc
<POP 25f74-25f76 StackAdj> Δ+4 {[-4-]}
<MI 25f76 MOVEA.L (A7),A0> {[-4-]}
<MI 25f78 MOVE.L D7,D0> {[-4-]}
<MI 25f7a SUBQ.L #0x1,D0> {[-4-]}
<POP 0x25f7c LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {[-4-]}
<MI 25f8a MOVE.W D0,(A0)> {[-4-]}
<POP 25f8c-25f8e StackAdj> Δ+2 {[-2-]}
<POP 25f8e-25f8f StackAdj> Δ+2 {}
<Blob 0x25f8f [2] @> Δ-2 {[«2""»]}
<Blob 0x25f92 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x25f96 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 25f9a-25f9c StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x25f9c 6> {[«2""»]|[«2""»]|[«2""»]|[$$STATUS]}
<MI 25faa MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 25fae-25fb0 StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 25fb0 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x25fb2 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 25fb6 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x25fba <LVAR -0x010 @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]}
<Pointer.fp 0x25fbe <LVAR -0x013 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<Call 0x25fc2 0x278fc> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<POP 25fc8-25fca StackAdj> Δ+20 {}
<Pointer.fp 0x25fca <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x25fce 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 25fd4-25fd6 StackAdj> Δ+2 {[-2-]}
<POP 25fd6-25fd7 StackAdj> Δ+2 {}
<Blob 0x25fd7 [2] @> Δ-2 {[«2""»]}
<Blob 0x25fda [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x25fde [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 25fe2-25fe4 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x25fe4 6> {[«2""»]|[«2""»]|[«2""»]|[$$RESULT]}
<MI 25ff2 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 25ff6-25ff8 StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 25ff8 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x25ffa 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 25ffe MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x26002 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]}
<Pointer.fp 0x26006 <LVAR -0x012 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<Call 0x2600a 0x278fc> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<POP 26010-26012 StackAdj> Δ+20 {}
<Pointer.fp 0x26012 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x26016 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 2601c-2601e StackAdj> Δ+4 {}
<MI 2601e TST.B (A6-0x13)> {}
<MI 26022 BNE 0x2602a> {}
<POP 26024-2602a Naked> Σ0 ↓ →0x26030
<MI 26024 TST.B (A6-0x12)> {}
<MI 26028 BEQ 0x26030> {}
<POP 2602a-26030 Naked> Σ0 →0x26034 ←0x25f74
<MI 2602a CLR.B (A6-0x4)> {}
<MI 2602e BRA 0x26034> {}
<POP 26030-26034 Naked> Σ0 ↓ ←0x26024
<MI 26030 MOVE.B #0x01,(A6-0x4)> {}
<POP 26034-2605a Naked> Σ0 ↓ →0x2607a ←0x2602a
<MI 26034 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[4, '(A6-0x3c)']}
<MI 26036 MOVE.L (A6-0x30),-(A7)> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 2603a MOVE.B (A6-0x4),D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 2603e EXTB.W D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<POP 0x26040 LimitCheck 0x0 ≤ D0 ≤ 0x2> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 26044 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']}
<Pointer.fp 0x26046 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
<Call 0x2604a 0x103b0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 26050-26054 StackAdj> Δ+14 {}
<MI 26054 TST.B (A6-0x13)> {}
<MI 26058 BEQ 0x2607a> {}
<POP 2605a-2607a Naked> Σ0 ↓
<MI 2605a MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 2605e-26060 StackAdj> Δ-4 {[4, '(A6-0x10)']|[-4-]}
<MI 26060 MOVE.B (A6-0x14),D0> {[4, '(A6-0x10)']|[-4-]}
<MI 26064 EXTB.W D0> {[4, '(A6-0x10)']|[-4-]}
<POP 0x26066 LimitCheck 0x0 ≤ D0 ≤ 0xe> {[4, '(A6-0x10)']|[-4-]}
<MI 2606a MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
<Call 0x2606c 0x103c0> {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
ExpErrMsg(a: Byte) : String
<POP 26072-26074 StackAdj> Δ+2 {[4, '(A6-0x10)']|[-4-]}
<Call 0x26074 0x259c2> {[4, '(A6-0x10)']|[-4-]}
<POP 26078-2607a StackAdj> Δ+8 {}
<POP 2607a-26080 Naked> Σ0 ↓ →0x26092 ←0x26034
<MI 2607a TST.B (A6-0x12)> {}
<MI 2607e BEQ 0x26092> {}
<POP 26080-26092 Naked> Σ0 ↓
<MI 26080 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<POP 26084-26086 StackAdj> Δ-4 {[4, '(A6-0xc)']|[-4-]}
<Call 0x26086 0x103c8> {[4, '(A6-0xc)']|[-4-]}
FSCALL_103c8
<Call 0x2608c 0x259c2> {[4, '(A6-0xc)']|[-4-]}
<POP 26090-26092 StackAdj> Δ+8 {}
<POP 26092-2609a Epilogue> Σ0 ←0x25e38 ←0x25e8c ←0x2607a
@ 2609a
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 2609a-26112 Body>
<POP 2609a-260b0 Prologue> Σ0 ↓
<POP 260b0-260b8 RegCacheLoad> Σ0 ↓
<POP 260b8-260ec Naked> Σ0 ↓ →0x260f2
<POP 260b8-260ba StackAdj> Δ-4 {[-4-]}
<MI 260ba MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x260be 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x260c2 0x253c4> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 260c6-260c8 StackAdj> Δ+8 {[-4-]}
<MI 260c8 MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 260ca MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x260ce 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x260d2 0x253c4> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 260d6-260d8 StackAdj> Δ+8 {[-4-]}
<MI 260d8 MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 260da-260dc StackAdj> Δ+2 {[-2-]}
<MI 260dc MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 260de MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x260e0 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 260e6-260e8 StackAdj> Δ+8 {[-2-]}
<MI 260e8 TST.B (A7)+> Δ+2 {}
<MI 260ea BEQ 0x260f2> {}
<POP 260ec-260f2 Naked> Σ0 →0x260f6
<Call 0x260ec 0x24e84> {}
<MI 260f0 BRA 0x260f6> {}
<POP 260f2-260f6 Naked> Σ0 ↓ ←0x260b8
<Call 0x260f2 0x24eca> {}
<POP 260f6-2610a Naked> Σ0 ↓ ←0x260ec
<Pointer.fp 0x260f6 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x260f8 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 260fe-26100 StackAdj> Δ+4 {}
<Pointer.fp 0x26100 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x26102 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 26108-2610a StackAdj> Δ+4 {}
<POP 2610a-26112 Epilogue> Σ0
@ 26112
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 26112-2618a Body>
<POP 26112-26128 Prologue> Σ0 ↓
<POP 26128-26130 RegCacheLoad> Σ0 ↓
<POP 26130-26164 Naked> Σ0 ↓ →0x2616a
<POP 26130-26132 StackAdj> Δ-4 {[-4-]}
<MI 26132 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x26136 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2613a 0x253c4> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2613e-26140 StackAdj> Δ+8 {[-4-]}
<MI 26140 MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 26142 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x26146 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x2614a 0x253c4> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 2614e-26150 StackAdj> Δ+8 {[-4-]}
<MI 26150 MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 26152-26154 StackAdj> Δ+2 {[-2-]}
<MI 26154 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 26156 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x26158 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 2615e-26160 StackAdj> Δ+8 {[-2-]}
<MI 26160 TST.B (A7)+> Δ+2 {}
<MI 26162 BNE 0x2616a> {}
<POP 26164-2616a Naked> Σ0 →0x2616e
<Call 0x26164 0x24e84> {}
<MI 26168 BRA 0x2616e> {}
<POP 2616a-2616e Naked> Σ0 ↓ ←0x26130
<Call 0x2616a 0x24eca> {}
<POP 2616e-26182 Naked> Σ0 ↓ ←0x26164
<Pointer.fp 0x2616e <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x26170 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 26176-26178 StackAdj> Δ+4 {}
<Pointer.fp 0x26178 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x2617a 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 26180-26182 StackAdj> Δ+4 {}
<POP 26182-2618a Epilogue> Σ0
@ 2618a
<LVAR 0x008 4(r)>
<POP 2618a-261b6 Body>
<POP 2618a-2619c Prologue> Σ0 ↓
<POP 2619c-261b2 Naked> Σ0 ↓
<POP 2619c-2619e StackAdj> Δ-4 {[-4-]}
<MI 2619e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x261a2 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x261a6 0x253c4> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 261aa-261ac StackAdj> Δ+8 {[-4-]}
<Call 0x261ac 0x251bc> {[-4-]}
<POP 261b0-261b2 StackAdj> Δ+4 {}
<POP 261b2-261b6 Epilogue> Σ0
@ 261b6
<LVAR 0x008 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 261b6-262b6 Body>
<POP 261b6-261cc Prologue> Σ0 ↓
<POP 261cc-261d6 RegCacheLoad> Σ0 ↓
<POP 261d6-26234 Naked> Σ0 ↓ →0x26264
<POP 261d6-261d8 StackAdj> Δ-4 {[-4-]}
<MI 261d8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x261da 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x261de 0x253c4> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 261e2-261e4 StackAdj> Δ+8 {[-4-]}
<MI 261e4 MOVE.L (A7),(A6-0x14)> {[-4-]}
<MI 261e6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x261e8 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x261ec 0x253c4> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 261f0-261f2 StackAdj> Δ+8 {[-4-]}
<MI 261f2 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 261f4-261f8 StackAdj> Δ-12 {[-12-]}
<MI 261f8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x261fa 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x261fe 0x253f6> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 26202-26204 StackAdj> Δ+8 {[-12-]}
<Call 0x26204 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 2620a-2620c StackAdj> Δ+8 {[-4-]}
<MI 2620c MOVE.L (A7),D6> {[-4-]}
<POP 2620e-26210 StackAdj> Δ-8 {[-12-]}
<MI 26210 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x26212 0x4.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##4]}
<Call 0x26216 0x253f6> {[-12-]|[4, '(A6+0x8)']|[##4]}
<POP 2621a-2621c StackAdj> Δ+8 {[-12-]}
<Call 0x2621c 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 26222-26224 StackAdj> Δ+8 {[-4-]}
<MI 26224 MOVE.L (A7)+,D5> Δ+4 {}
<MI 26226 MOVE.L D6,D0> {}
<MI 26228 ADD.L D5,D0> {}
<MI 2622a SUBQ.L #0x1,D0> {}
<MI 2622c MOVE.W (A4),D1> {}
<MI 2622e EXTW.L D1> {}
<MI 26230 CMP.L D1,D0> {}
<MI 26232 BLE 0x26264> {}
<POP 26234-26264 Naked> Σ0 ↓
<Blob 0x26234 [32] @> Δ-32 {[«32""»]}
<POP 26246-26248 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x26248 31> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<Call 0x2625c 0x2469c> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<POP 26260-26264 StackAdj> Δ+36 {}
<POP 26264-26270 Naked> Σ0 Δ-8 ↓ ←0x261d6
<MI 26264 MOVEA.L (A6-0x14),A0> {}
<MI 26266 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 26268 MOVE.W (A0),D0> {[4, 'A0']}
<MI 2626a EXTW.L D0> {[4, 'A0']}
<MI 2626c MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 2626e MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 26270-26274 Naked> Σ-8 ↓ →0x2629a ←0x26274
<MI 26270 CMP.L (A7),D7> {[-8-]}
<MI 26272 BGT 0x2629a> {[-8-]}
<POP 26274-2629a Naked> Σ-8 ↓ →0x26270
<MI 26274 MOVE.L D6,D0> {[-8-]}
<MI 26276 ADD.L D7,D0> {[-8-]}
<MI 26278 SUBQ.L #0x1,D0> {[-8-]}
<MI 2627a SUBQ.L #0x1,D0> {[-8-]}
<POP 0x2627c LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 26282 MOVE.L D7,D1> {[-8-]}
<MI 26284 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x26286 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 2628c MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 26290 MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2)> {[-8-]}
<MI 26296 ADDQ.L #0x1,D7> {[-8-]}
<MI 26298 BVC 0x26270> {[-8-]}
<POP 2629a-262ae Naked> Σ-8 Δ+8 ↓ ←0x26270
<POP 2629a-2629c StackAdj> Δ+4 {[-4-]}
<MI 2629c MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x2629e 0x25466> {[4, 'A4']}
<POP 262a2-262a4 StackAdj> Δ+4 {}
<Pointer.fp 0x262a4 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x262a6 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 262ac-262ae StackAdj> Δ+4 {}
<POP 262ae-262b6 Epilogue> Σ0
@ 262b6
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 262b6-2639c Body>
<POP 262b6-262cc Prologue> Σ0 ↓
<POP 262cc-262da RegCacheLoad> Σ0 ↓
<POP 262da-26332 Naked> Σ0 ↓ →0x26338
<POP 262da-262dc StackAdj> Δ-4 {[-4-]}
<MI 262dc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x262de 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x262e2 0x253c4> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 262e6-262e8 StackAdj> Δ+8 {[-4-]}
<MI 262e8 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<Pointer.fp 0x262ea <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Call 0x262ec 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 262f2-262f4 StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 262f4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x262f6 0x2.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x262fa 0x253f6> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 262fe-26300 StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x26300 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 26306-26308 StackAdj> Δ+8 {[@@-16]}
<MI 26308 MOVE.L (A7),D5> {[@@-16]}
<POP 2630a-2630c StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 2630c MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x2630e 0x3.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<Call 0x26312 0x253f6> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<POP 26316-26318 StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x26318 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 2631e-26320 StackAdj> Δ+8 {[@@-16]}
<MI 26320 MOVE.L (A7)+,D6> Δ+4 {}
<MI 26322 MOVEA.L (A6-0x14),A0> {}
<MI 26324 MOVE.L D5,D0> {}
<MI 26326 ADD.L D6,D0> {}
<MI 26328 SUBQ.L #0x1,D0> {}
<MI 2632a MOVE.W (A0),D1> {}
<MI 2632c EXTW.L D1> {}
<MI 2632e CMP.L D1,D0> {}
<MI 26330 BLE 0x26338> {}
<POP 26332-26338 Naked> Σ0 ↓
<MI 26332 ADDQ.L #0x1,D1> {}
<MI 26334 SUB.L D5,D1> {}
<MI 26336 MOVE.L D1,D6> {}
<POP 26338-2633c Naked> Σ0 Δ-4 ↓ ←0x262da
<MI 26338 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 2633a MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 2633c-26340 Naked> Σ-4 ↓ →0x26366 ←0x26340
<MI 2633c CMP.L (A7),D7> {[-4-]}
<MI 2633e BGT 0x26366> {[-4-]}
<POP 26340-26366 Naked> Σ-4 ↓ →0x2633c
<MI 26340 MOVEA.L (A6-0x10),A0> {[-4-]}
<MI 26342 MOVE.L D7,D0> {[-4-]}
<MI 26344 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x26346 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 2634c MOVEA.L (A6-0x14),A1> {[-4-]}
<MI 2634e MOVE.L D7,D1> {[-4-]}
<MI 26350 ADD.L D5,D1> {[-4-]}
<MI 26352 SUBQ.L #0x1,D1> {[-4-]}
<MI 26354 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x26356 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 2635c MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2)> {[-4-]}
<MI 26362 ADDQ.L #0x1,D7> {[-4-]}
<MI 26364 BVC 0x2633c> {[-4-]}
<POP 26366-26394 Naked> Σ-4 Δ+4 ↓ ←0x2633c
<POP 26366-26368 StackAdj> Δ+4 {}
<MI 26368 MOVEA.L (A6-0x10),A0> {}
<POP 0x2636a LimitCheck -0x8000 ≤ D6 ≤ 0x7fff> {}
<MI 26380 MOVE.W D6,(A0)> {}
<MI 26382 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x26384 0x25466> {[4, '(A6-0x10)']}
<POP 26388-2638a StackAdj> Δ+4 {}
<Pointer.fp 0x2638a <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x2638c 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 26392-26394 StackAdj> Δ+4 {}
<POP 26394-2639c Epilogue> Σ0
@ 2639c
<LVAR 0x008 4(r)>
<POP 2639c-263c8 Body>
<POP 2639c-263ae Prologue> Σ0 ↓
<POP 263ae-263c4 Naked> Σ0 ↓
<POP 263ae-263b0 StackAdj> Δ-8 {[-8-]}
<MI 263b0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x263b4 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x263b8 0x253f6> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 263bc-263be StackAdj> Δ+8 {[-8-]}
<Call 0x263be 0x25230> {[-8-]}
<POP 263c2-263c4 StackAdj> Δ+8 {}
<POP 263c4-263c8 Epilogue> Σ0
@ 263c8
<LVAR 0x008 4(r)>
<POP 263c8-26414 Body>
<POP 263c8-263da Prologue> Σ0 ↓
<POP 263da-26406 Naked> Σ0 ↓ →0x2640c
<POP 263da-263de StackAdj> Δ-10 {[-10-]}
<MI 263de MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x263e2 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x263e6 0x253f6> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 263ea MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x263ee 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x263f2 0x253f6> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 263f6-263f8 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x263f8 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 263fe-26402 StackAdj> Δ+16 {[-2-]}
<MI 26402 TST.B (A7)+> Δ+2 {}
<MI 26404 BEQ 0x2640c> {}
<POP 26406-2640c Naked> Σ0 →0x26410
<Call 0x26406 0x24e84> {}
<MI 2640a BRA 0x26410> {}
<POP 2640c-26410 Naked> Σ0 ↓ ←0x263da
<Call 0x2640c 0x24eca> {}
<POP 26410-26414 Epilogue> Σ0 ←0x26406
@ 26414
<LVAR 0x008 4(r)>
<POP 26414-26460 Body>
<POP 26414-26426 Prologue> Σ0 ↓
<POP 26426-26452 Naked> Σ0 ↓ →0x26458
<POP 26426-2642a StackAdj> Δ-10 {[-10-]}
<MI 2642a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x2642e 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26432 0x253f6> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 26436 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2643a 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x2643e 0x253f6> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 26442-26444 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26444 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 2644a-2644e StackAdj> Δ+16 {[-2-]}
<MI 2644e TST.B (A7)+> Δ+2 {}
<MI 26450 BNE 0x26458> {}
<POP 26452-26458 Naked> Σ0 →0x2645c
<Call 0x26452 0x24e84> {}
<MI 26456 BRA 0x2645c> {}
<POP 26458-2645c Naked> Σ0 ↓ ←0x26426
<Call 0x26458 0x24eca> {}
<POP 2645c-26460 Epilogue> Σ0 ←0x26452
@ 26460
<LVAR 0x008 4(r)>
<POP 26460-264ac Body>
<POP 26460-26472 Prologue> Σ0 ↓
<POP 26472-2649e Naked> Σ0 ↓ →0x264a4
<POP 26472-26476 StackAdj> Δ-10 {[-10-]}
<MI 26476 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x2647a 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2647e 0x253f6> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 26482 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x26486 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x2648a 0x253f6> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 2648e-26490 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26490 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 26496-2649a StackAdj> Δ+16 {[-2-]}
<MI 2649a TST.B (A7)+> Δ+2 {}
<MI 2649c BEQ 0x264a4> {}
<POP 2649e-264a4 Naked> Σ0 →0x264a8
<Call 0x2649e 0x24e84> {}
<MI 264a2 BRA 0x264a8> {}
<POP 264a4-264a8 Naked> Σ0 ↓ ←0x26472
<Call 0x264a4 0x24eca> {}
<POP 264a8-264ac Epilogue> Σ0 ←0x2649e
@ 264ac
<LVAR 0x008 4(r)>
<POP 264ac-264f8 Body>
<POP 264ac-264be Prologue> Σ0 ↓
<POP 264be-264ea Naked> Σ0 ↓ →0x264f0
<POP 264be-264c2 StackAdj> Δ-10 {[-10-]}
<MI 264c2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x264c6 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x264ca 0x253f6> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 264ce MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x264d2 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x264d6 0x253f6> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 264da-264dc StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x264dc 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 264e2-264e6 StackAdj> Δ+16 {[-2-]}
<MI 264e6 TST.B (A7)+> Δ+2 {}
<MI 264e8 BEQ 0x264f0> {}
<POP 264ea-264f0 Naked> Σ0 →0x264f4
<Call 0x264ea 0x24e84> {}
<MI 264ee BRA 0x264f4> {}
<POP 264f0-264f4 Naked> Σ0 ↓ ←0x264be
<Call 0x264f0 0x24eca> {}
<POP 264f4-264f8 Epilogue> Σ0 ←0x264ea
@ 264f8
<LVAR 0x008 4(r)>
<POP 264f8-26544 Body>
<POP 264f8-2650a Prologue> Σ0 ↓
<POP 2650a-26536 Naked> Σ0 ↓ →0x2653c
<POP 2650a-2650e StackAdj> Δ-10 {[-10-]}
<MI 2650e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x26512 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26516 0x253f6> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 2651a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2651e 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x26522 0x253f6> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 26526-26528 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26528 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 2652e-26532 StackAdj> Δ+16 {[-2-]}
<MI 26532 TST.B (A7)+> Δ+2 {}
<MI 26534 BNE 0x2653c> {}
<POP 26536-2653c Naked> Σ0 →0x26540
<Call 0x26536 0x24e84> {}
<MI 2653a BRA 0x26540> {}
<POP 2653c-26540 Naked> Σ0 ↓ ←0x2650a
<Call 0x2653c 0x24eca> {}
<POP 26540-26544 Epilogue> Σ0 ←0x26536
@ 26544
<LVAR 0x008 4(r)>
<POP 26544-26590 Body>
<POP 26544-26556 Prologue> Σ0 ↓
<POP 26556-26582 Naked> Σ0 ↓ →0x26588
<POP 26556-2655a StackAdj> Δ-10 {[-10-]}
<MI 2655a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x2655e 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26562 0x253f6> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 26566 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2656a 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x2656e 0x253f6> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 26572-26574 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26574 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 2657a-2657e StackAdj> Δ+16 {[-2-]}
<MI 2657e TST.B (A7)+> Δ+2 {}
<MI 26580 BNE 0x26588> {}
<POP 26582-26588 Naked> Σ0 →0x2658c
<Call 0x26582 0x24e84> {}
<MI 26586 BRA 0x2658c> {}
<POP 26588-2658c Naked> Σ0 ↓ ←0x26556
<Call 0x26588 0x24eca> {}
<POP 2658c-26590 Epilogue> Σ0 ←0x26582
@ 26590
<LVAR 0x008 4(r)>
<POP 26590-265da Body>
<POP 26590-265a6 Prologue> Σ0 ↓
<POP 265a6-265a8 RegCacheLoad> Σ0 ↓
<POP 265a8-265d2 Naked> Σ0 ↓
<POP 265a8-265aa StackAdj> Δ-16 {[-16-]}
<MI 265aa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x265ae 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x265b2 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 265b6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x265ba 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x265be 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 265c2-265c4 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x265c4 0x10314> {[-16-]|[4, '(A6+0x8)']|[##1]}
Add(a, b : Quad) : Quad
<POP 265ca-265cc StackAdj> Δ+16 {[-8-]}
<Call 0x265cc 0x254ee> {[-8-]}
<POP 265d0-265d2 StackAdj> Δ+8 {}
<POP 265d2-265da Epilogue> Σ0
@ 265da
<LVAR 0x008 4(r)>
<POP 265da-26624 Body>
<POP 265da-265f0 Prologue> Σ0 ↓
<POP 265f0-265f2 RegCacheLoad> Σ0 ↓
<POP 265f2-2661c Naked> Σ0 ↓
<POP 265f2-265f4 StackAdj> Δ-16 {[-16-]}
<MI 265f4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x265f8 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x265fc 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 26600 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x26604 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x26608 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 2660c-2660e StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2660e 0x10318> {[-16-]|[4, '(A6+0x8)']|[##1]}
Subtract(a, b : Quad) : Quad
<POP 26614-26616 StackAdj> Δ+16 {[-8-]}
<Call 0x26616 0x254ee> {[-8-]}
<POP 2661a-2661c StackAdj> Δ+8 {}
<POP 2661c-26624 Epilogue> Σ0
@ 26624
<LVAR 0x008 4(r)>
<POP 26624-2666e Body>
<POP 26624-2663a Prologue> Σ0 ↓
<POP 2663a-2663c RegCacheLoad> Σ0 ↓
<POP 2663c-26666 Naked> Σ0 ↓
<POP 2663c-2663e StackAdj> Δ-16 {[-16-]}
<MI 2663e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x26642 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26646 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 2664a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2664e 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x26652 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 26656-26658 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26658 0x1031c> {[-16-]|[4, '(A6+0x8)']|[##1]}
Multiply(a, b : Quad) : Quad
<POP 2665e-26660 StackAdj> Δ+16 {[-8-]}
<Call 0x26660 0x254ee> {[-8-]}
<POP 26664-26666 StackAdj> Δ+8 {}
<POP 26666-2666e Epilogue> Σ0
@ 2666e
<LVAR 0x008 4(r)>
<POP 2666e-266b8 Body>
<POP 2666e-26684 Prologue> Σ0 ↓
<POP 26684-26686 RegCacheLoad> Σ0 ↓
<POP 26686-266b0 Naked> Σ0 ↓
<POP 26686-26688 StackAdj> Δ-16 {[-16-]}
<MI 26688 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x2668c 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26690 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 26694 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x26698 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x2669c 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 266a0-266a2 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x266a2 0x10320> {[-16-]|[4, '(A6+0x8)']|[##1]}
Divide(a, b : Quad) : Quad
<POP 266a8-266aa StackAdj> Δ+16 {[-8-]}
<Call 0x266aa 0x254ee> {[-8-]}
<POP 266ae-266b0 StackAdj> Δ+8 {}
<POP 266b0-266b8 Epilogue> Σ0
@ 266b8
<LVAR 0x008 4(r)>
<POP 266b8-26702 Body>
<POP 266b8-266ce Prologue> Σ0 ↓
<POP 266ce-266d0 RegCacheLoad> Σ0 ↓
<POP 266d0-266fa Naked> Σ0 ↓
<POP 266d0-266d2 StackAdj> Δ-16 {[-16-]}
<MI 266d2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x266d6 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x266da 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 266de MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x266e2 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x266e6 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 266ea-266ec StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x266ec 0x10358> {[-16-]|[4, '(A6+0x8)']|[##1]}
Modulus(a, b : Quad) : Quad
<POP 266f2-266f4 StackAdj> Δ+16 {[-8-]}
<Call 0x266f4 0x254ee> {[-8-]}
<POP 266f8-266fa StackAdj> Δ+8 {}
<POP 266fa-26702 Epilogue> Σ0
@ 26702
<LVAR 0x008 4(r)>
<POP 26702-2674c Body>
<POP 26702-26718 Prologue> Σ0 ↓
<POP 26718-2671a RegCacheLoad> Σ0 ↓
<POP 2671a-26744 Naked> Σ0 ↓
<POP 2671a-2671c StackAdj> Δ-16 {[-16-]}
<MI 2671c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x26720 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26724 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 26728 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2672c 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x26730 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 26734-26736 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26736 0x10334> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitOr(a, b : Quad) : Quad
<POP 2673c-2673e StackAdj> Δ+16 {[-8-]}
<Call 0x2673e 0x254ee> {[-8-]}
<POP 26742-26744 StackAdj> Δ+8 {}
<POP 26744-2674c Epilogue> Σ0
@ 2674c
<LVAR 0x008 4(r)>
<POP 2674c-26796 Body>
<POP 2674c-26762 Prologue> Σ0 ↓
<POP 26762-26764 RegCacheLoad> Σ0 ↓
<POP 26764-2678e Naked> Σ0 ↓
<POP 26764-26766 StackAdj> Δ-16 {[-16-]}
<MI 26766 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x2676a 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2676e 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 26772 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x26776 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x2677a 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 2677e-26780 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26780 0x10330> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitAnd(a, b : Quad) : Quad
<POP 26786-26788 StackAdj> Δ+16 {[-8-]}
<Call 0x26788 0x254ee> {[-8-]}
<POP 2678c-2678e StackAdj> Δ+8 {}
<POP 2678e-26796 Epilogue> Σ0
@ 26796
<LVAR 0x008 4(r)>
<POP 26796-267e0 Body>
<POP 26796-267ac Prologue> Σ0 ↓
<POP 267ac-267ae RegCacheLoad> Σ0 ↓
<POP 267ae-267d8 Naked> Σ0 ↓
<POP 267ae-267b0 StackAdj> Δ-16 {[-16-]}
<MI 267b0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x267b4 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x267b8 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 267bc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x267c0 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x267c4 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 267c8-267ca StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x267ca 0x10340> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitXor(a, b : Quad) : Quad
<POP 267d0-267d2 StackAdj> Δ+16 {[-8-]}
<Call 0x267d2 0x254ee> {[-8-]}
<POP 267d6-267d8 StackAdj> Δ+8 {}
<POP 267d8-267e0 Epilogue> Σ0
@ 267e0
<LVAR 0x008 4(r)>
<POP 267e0-26824 Body>
<POP 267e0-267f2 Prologue> Σ0 ↓
<POP 267f2-26820 Naked> Σ0 ↓
<POP 267f2-267f6 StackAdj> Δ-16 {[-16-]}
<MI 267f6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x267fa 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x267fe 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 26802 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x26806 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x2680a 0x25432> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 2680e-26810 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<Call 0x26810 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 26816-2681a StackAdj> Δ+12 {[-8-]}
<Call 0x2681a 0x254ee> {[-8-]}
<POP 2681e-26820 StackAdj> Δ+8 {}
<POP 26820-26824 Epilogue> Σ0
@ 26824
<LVAR 0x008 4(r)>
<POP 26824-2686a Body>
<POP 26824-26836 Prologue> Σ0 ↓
<POP 26836-26866 Naked> Σ0 ↓
<POP 26836-2683a StackAdj> Δ-16 {[-16-]}
<MI 2683a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x2683e 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26842 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 26846 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x2684a 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x2684e 0x25432> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 26852-26854 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<MI 26854 NEG.L (A7)> {[-16-]|[4, '(A6+0x8)']}
<Call 0x26856 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 2685c-26860 StackAdj> Δ+12 {[-8-]}
<Call 0x26860 0x254ee> {[-8-]}
<POP 26864-26866 StackAdj> Δ+8 {}
<POP 26866-2686a Epilogue> Σ0
@ 2686a
<LVAR 0x008 4(r)>
<POP 2686a-268a0 Body>
<POP 2686a-2687c Prologue> Σ0 ↓
<POP 2687c-2689c Naked> Σ0 ↓
<POP 2687c-26880 StackAdj> Δ-16 {[-16-]}
<MI 26880 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x26884 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26888 0x253f6> {[-16-]|[4, '(A6+0x8)']|[##1]}
<POP 2688c-2688e StackAdj> Δ+8 {[-16-]}
<Call 0x2688e 0x10338> {[-16-]}
BitNot(a : Quad) : Quad
<POP 26894-26896 StackAdj> Δ+8 {[-8-]}
<Call 0x26896 0x254ee> {[-8-]}
<POP 2689a-2689c StackAdj> Δ+8 {}
<POP 2689c-268a0 Epilogue> Σ0
@ 268a0
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(rw)>
<POP 268a0-26930 Body>
<POP 268a0-268b6 Prologue> Σ0 ↓
<POP 268b6-268ba RegCacheLoad> Σ0 ↓
<POP 268ba-26928 Naked> Σ0 ↓
<POP 268ba-268bc StackAdj> Δ-8 {[-8-]}
<MI 268bc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x268be 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x268c2 0x253f6> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 268c6-268c8 StackAdj> Δ+8 {[-8-]}
<MI 268c8 MOVE.L (A7)+,(A6-0x18)> Δ+4 {[-4-]}
<MI 268cc MOVE.L (A7),(A6-0x14)> {[-4-]}
<POP 268d0-268d2 StackAdj> Δ-4 {[-8-]}
<MI 268d2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x268d4 0x2.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x268d8 0x253f6> {[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 268dc-268de StackAdj> Δ+8 {[-8-]}
<MI 268de MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 268e2 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 268e6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x268e8 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x268ec 0x25432> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 268f0-268f2 StackAdj> Δ+8 {[-4-]}
<MI 268f2 MOVE.L (A7),D7> {[-4-]}
<MI 268f4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x268f6 0x4.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##4]}
<Call 0x268fa 0x25432> {[-4-]|[4, '(A6+0x8)']|[##4]}
<POP 268fe-26900 StackAdj> Δ+8 {[-4-]}
<MI 26900 MOVE.L (A7),D6> {[-4-]}
<POP 26902-26904 StackAdj> Δ-4 {[-8-]}
<MI 26904 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']}
<MI 26908 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
<MI 2690c MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']}
<MI 26910 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 26914 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 26916 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x26918 0x10348> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
?BitField_something_()
<POP 2691e-26922 StackAdj> Δ+24 {[-8-]}
<Call 0x26922 0x254ee> {[-8-]}
<POP 26926-26928 StackAdj> Δ+8 {}
<POP 26928-26930 Epilogue> Σ0
@ 26930
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 26930-269a2 Body>
<POP 26930-26946 Prologue> Σ0 ↓
<POP 26946-2694a RegCacheLoad> Σ0 ↓
<POP 2694a-2699a Naked> Σ0 ↓
<POP 2694a-2694c StackAdj> Δ-8 {[-8-]}
<MI 2694c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x2694e 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26952 0x253f6> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 26956-26958 StackAdj> Δ+8 {[-8-]}
<MI 26958 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 2695c MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 26960 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x26962 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x26966 0x25432> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 2696a-2696c StackAdj> Δ+8 {[-4-]}
<MI 2696c MOVE.L (A7),D7> {[-4-]}
<MI 2696e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x26970 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x26974 0x25432> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 26978-2697a StackAdj> Δ+8 {[-4-]}
<MI 2697a MOVE.L (A7),D6> {[-4-]}
<POP 2697c-2697e StackAdj> Δ-4 {[-8-]}
<MI 2697e MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 26982 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 26986 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 26988 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x2698a 0x1034c> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
FSCALL_1034c
<POP 26990-26994 StackAdj> Δ+16 {[-8-]}
<Call 0x26994 0x254ee> {[-8-]}
<POP 26998-2699a StackAdj> Δ+8 {}
<POP 2699a-269a2 Epilogue> Σ0
@ 269a2
<LVAR 0x008 4(r)>
<POP 269a2-26a14 Body>
<POP 269a2-269b8 Prologue> Σ0 ↓
<POP 269b8-269c6 Naked> Σ0 Δ-4 ↓
<POP 269b8-269ba StackAdj> Δ-4 {[-4-]}
<MI 269ba MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x269be 0x24aa8> {[-4-]|[4, '(A6+0x8)']}
<POP 269c2-269c4 StackAdj> Δ+4 {[-4-]}
<MI 269c4 MOVEQ.L #0x01,D7> {[-4-]}
<POP 269c6-269ca Naked> Σ-4 ↓ →0x269f0 ←0x269ca
<MI 269c6 CMP.L (A7),D7> {[-4-]}
<MI 269c8 BGT 0x269f0> {[-4-]}
<POP 269ca-269f0 Naked> Σ-4 ↓ →0x269c6
<POP 269ca-269cc StackAdj> Δ-4 {[-8-]}
<MI 269cc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 269d0 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x269d2 0x253c4> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 269d6-269d8 StackAdj> Δ+8 {[-8-]}
<Call 0x269d8 0x103d8> {[-8-]}
WriteConsoleString(str : String)
<POP 269de-269e0 StackAdj> Δ+2 {[-6-]}
<POP 269e0-269e1 StackAdj> Δ+2 {[-4-]}
<Const 0x269e1 0x20.2> Δ-2 {[-4-]|[#32]}
<Call 0x269e4 0x103d0> {[-4-]|[#32]}
WriteConsoleChar(chr : char)
<POP 269ea-269ec StackAdj> Δ+2 {[-4-]}
<MI 269ec ADDQ.L #0x1,D7> {[-4-]}
<MI 269ee BVC 0x269c6> {[-4-]}
<POP 269f0-26a0c Naked> Σ-4 Δ+4 ↓ ←0x269c6
<Const 0x269f0 0x1.4> Δ-4 {[-4-]|[##1]}
<Call 0x269f4 0x103e4> {[-4-]|[##1]}
AskConsoleString(prompt : String) : String
<POP 269fa-269fc StackAdj> Δ+4 {[-4-]}
<MI 269fc MOVEA.L (A7)+,A4> Δ+4 {}
<MI 269fe MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x26a00 0x248f4> {[4, 'A4']}
<MI 26a04 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x26a06 0x25466> {[4, 'A4']}
<POP 26a0a-26a0c StackAdj> Δ+4 {}
<POP 26a0c-26a14 Epilogue> Σ0
@ 26a14
<LVAR 0x008 4(r)>
<POP 26a14-26a96 Body>
<POP 26a14-26a2a Prologue> Σ0 ↓
<POP 26a2a-26a30 RegCacheLoad> Σ0 ↓
<POP 26a30-26a8e Naked> Σ0 ↓
<POP 26a30-26a32 StackAdj> Δ-4 {[-4-]}
<MI 26a32 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x26a34 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26a38 0x253c4> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 26a3c-26a3e StackAdj> Δ+8 {[-4-]}
<MI 26a3e MOVEA.L (A7)+,A4> Δ+4 {}
<POP 26a40-26a42 StackAdj> Δ-12 {[-12-]}
<MI 26a42 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x26a44 0x2.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##2]}
<Call 0x26a48 0x253f6> {[-12-]|[4, '(A6+0x8)']|[##2]}
<POP 26a4c-26a4e StackAdj> Δ+8 {[-12-]}
<Call 0x26a4e 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 26a54-26a56 StackAdj> Δ+8 {[-4-]}
<MI 26a56 MOVE.L (A7),D7> {[-4-]}
<POP 26a58-26a5a StackAdj> Δ-8 {[-12-]}
<MI 26a5a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x26a5c 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x26a60 0x253f6> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 26a64-26a66 StackAdj> Δ+8 {[-12-]}
<Call 0x26a66 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 26a6c-26a6e StackAdj> Δ+8 {[-4-]}
<MI 26a6e MOVE.L (A7),D6> {[-4-]}
<POP 26a70-26a72 StackAdj> Δ-8 {[-12-]}
<MI 26a72 MOVE.L A4,-(A7)> Δ-4 {[-12-]|[4, 'A4']}
<MI 26a74 MOVE.L D7,-(A7)> Δ-4 {[-12-]|[4, 'A4']|[4, 'D7']}
<Call 0x26a76 0x10360> {[-12-]|[4, 'A4']|[4, 'D7']}
?StringToInt64()
<POP 26a7c-26a7e StackAdj> Δ+4 {[-12-]|[4, 'A4']}
<MI 26a7e MOVE.L D6,(A7)> {[-12-]|[4, 'D6']}
<Call 0x26a80 0x1035c> {[-12-]|[4, 'D6']}
Quad2String(a : Quad; radix : Long ) : String
<POP 26a86-26a88 StackAdj> Δ+12 {[-4-]}
<Call 0x26a88 0x25466> {[-4-]}
<POP 26a8c-26a8e StackAdj> Δ+4 {}
<POP 26a8e-26a96 Epilogue> Σ0
@ 26a96
<LVAR 0x008 4(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 26a96-26b16 Body>
<POP 26a96-26aac Prologue> Σ0 ↓
<POP 26aac-26ab4 RegCacheLoad> Σ0 ↓
<POP 26ab4-26acc Naked> Σ0 ↓
<POP 26ab4-26ab6 StackAdj> Δ-8 {[-8-]}
<MI 26ab6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x26aba 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26abe 0x253f6> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 26ac2-26ac4 StackAdj> Δ+8 {[-8-]}
<MI 26ac4 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 26ac6 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 26ac8 MOVEQ.L #0x00,D7> {}
<MI 26aca MOVEQ.L #0x00,D6> {}
<POP 26acc-26afc Naked> Σ0 ↓ →0x26acc ←0x26acc
<MI 26acc MOVE.W (A6-0xa),D0> {}
<MI 26ad0 ANDI.W #0x0001,D0> {}
<MI 26ad4 CLR.L D1> {}
<MI 26ad6 MOVE.W D0,D1> {}
<MI 26ad8 ADD.L D1,D7> {}
<POP 26ada-26adc StackAdj> Δ-8 {[-8-]}
<MI 26adc MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 26ade MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Const 0x26ae0 0xffffffff.4> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
<Call 0x26ae4 0x10344> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 26aea-26aee StackAdj> Δ+12 {[-8-]}
<MI 26aee MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 26af0 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 26af2 ADDQ.L #0x1,D6> {}
<MI 26af4 CMPI.L #0x0000003f,D6> {}
<MI 26afa BLE 0x26acc> {}
<POP 26afc-26b0e Naked> Σ0 ↓
<POP 26afc-26afe StackAdj> Δ-8 {[-8-]}
<MI 26afe MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, 'D7']}
<Call 0x26b00 0x10354> {[-8-]|[4, 'D7']}
Long2Quad(a : Long) : Quad
<POP 26b06-26b08 StackAdj> Δ+4 {[-8-]}
<Call 0x26b08 0x254ee> {[-8-]}
<POP 26b0c-26b0e StackAdj> Δ+8 {}
<POP 26b0e-26b16 Epilogue> Σ0
@ 26b16
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 26b16-26bda Body>
<POP 26b16-26b2c Prologue> Σ0 ↓
<POP 26b2c-26b36 RegCacheLoad> Σ0 ↓
<POP 26b36-26b3a Naked> Σ0 ↓ →0x26b6c
<MI 26b36 TST.B 0x3d228> {}
<MI 26b38 BNE 0x26b6c> {}
<POP 26b3a-26b6c Naked> Σ0 ↓
<Blob 0x26b3a [28] @> Δ-28 {[«28""»]}
<POP 26b4c-26b4e StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x26b4e 27> {[«28""»]|[$$REPEATing, type ^G to exit.]}
<Call 0x26b60 0x103e0> {[«28""»]|[$$REPEATing, type ^G to exit.]}
WriteConsoleStringCrLf(str : String)
<POP 26b66-26b6a StackAdj> Δ+32 {}
<MI 26b6a MOVE.B #0x01,0x3d228> {}
<POP 26b6c-26b96 Naked> Σ0 ↓ →0x26bac ←0x26b36
<POP 26b6c-26b6e StackAdj> Δ-6 {[-6-]}
<Call 0x26b6e 0x103f8> {[-6-]}
GetConsoleConfig() : Long
<MI 26b74 MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x26b76 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 26b80 MOVE.W D0,(A7)> {[2, 'D0']}
<Pointer.fp 0x26b82 <LVAR -0x004 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-4]}
<Call 0x26b86 0x10212> {[2, 'D0']|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 26b8c-26b8e StackAdj> Δ+6 {}
<MI 26b8e MOVE.B (A6-0x4),D0> {}
<MI 26b92 CMP.B #0x01,D0> {}
<MI 26b94 BEQ 0x26bac> {}
<POP 26b96-26bac Naked> Σ0
<MI 26b96 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x26b9a 0x2465a> {[4, '(A6+0x8)']}
<POP 26b9e-26ba0 StackAdj> Δ+4 {}
<POP 26ba0-26bac Bailout> {}
<MI 26ba0 MOVEA.L (A5+0x8),A7>
<MI 26ba4 MOVEA.W #0x00,A6>
<MI 26ba6 JMP 0x27f3e>
<POP 26bac-26bbc Naked> Σ0 ↓ →0x26bd2 ←0x26b6c
<POP 26bac-26bae StackAdj> Δ-2 {[-2-]}
<Call 0x26bae 0x103d4> {[-2-]}
ReadChar() : Byte
<MI 26bb4 MOVE.B (A7)+,D0> Δ+2 {}
<MI 26bb6 CMPI.B #0x07,D0> {}
<MI 26bba BEQ 0x26bd2> {}
<POP 26bbc-26bd2 Naked> Σ0
<MI 26bbc MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x26bc0 0x2465a> {[4, '(A6+0x8)']}
<POP 26bc4-26bc6 StackAdj> Δ+4 {}
<POP 26bc6-26bd2 Bailout> {}
<MI 26bc6 MOVEA.L (A5+0x8),A7>
<MI 26bca MOVEA.W #0x00,A6>
<MI 26bcc JMP 0x27f3e>
<POP 26bd2-26bda Epilogue> Σ0 ←0x26bac
@ 26bda
<POP 26bda-26bfa Body>
<POP 26bda-26bec Prologue> Σ0 ↓
<POP 26bec-26bf6 Naked> Σ0 ↓
<Const 0x26bec 0xc8.4> Δ-4 {[##200]}
<Call 0x26bf0 0x25522> {[##200]}
<POP 26bf4-26bf6 StackAdj> Δ+4 {}
<POP 26bf6-26bfa Epilogue> Σ0
@ 26bfa
<LVAR 0x008 4(r)>
<LVAR -0x00c @ 4(r)>
<POP 26bfa-26ca6 Body>
<POP 26bfa-26c10 Prologue> Σ0 ↓
<POP 26c10-26c14 RegCacheLoad> Σ0 ↓
<POP 26c14-26c28 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x26c14 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x26c16 0x102b8> {[@@-12]}
NewString(VAR a : String)
<MI 26c1c MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-12]|[4, '(A6+0x8)']}
<Call 0x26c20 0x24aa8> {[@@-12]|[4, '(A6+0x8)']}
<POP 26c24-26c26 StackAdj> Δ+4 {[@@-12]}
<MI 26c26 MOVEQ.L #0x01,D7> {[@@-12]}
<POP 26c28-26c2c Naked> Σ-4 ↓ →0x26c96 ←0x26c92
<MI 26c28 CMP.L (A7),D7> {[-4-]}
<MI 26c2a BGT 0x26c96> {[-4-]}
<POP 26c2c-26c3e Naked> Σ-4 ↓ →0x26c5e
<POP 26c2c-26c2e StackAdj> Δ-4 {[-8-]}
<MI 26c2e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 26c32 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x26c34 0x25432> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 26c38-26c3a StackAdj> Δ+8 {[-8-]}
<MI 26c3a MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 26c3c BLT 0x26c5e> {[-4-]}
<POP 26c3e-26c46 Naked> Σ-4 ↓ →0x26c5e
<MI 26c3e CMPI.L #0x000000ff,D6> {[-4-]}
<MI 26c44 BGT 0x26c5e> {[-4-]}
<POP 26c46-26c5e Naked> Σ-4 →0x26c92
<MI 26c46 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xc)']}
<POP 0x26c48 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-4-]|[4, '(A6-0xc)']}
<MI 26c52 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
<Call 0x26c54 0x102c0> {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 26c5a-26c5c StackAdj> Δ+6 {[-4-]}
<MI 26c5c BRA 0x26c92> {[-4-]}
<POP 26c5e-26c92 Naked> Σ-4 ↓ ←0x26c2c ←0x26c3e
<Pointer.fp 0x26c5e <LVAR -0x00c @ 4(r)>> Δ-4 {[-4-]|[@@-12]}
<Call 0x26c60 0x102bc> {[-4-]|[@@-12]}
FreeString(VAR a : String)
<POP 26c66-26c68 StackAdj> Δ+4 {[-4-]}
<Blob 0x26c68 [28] @> Δ-28 {[-4-]|[«28""»]}
<POP 26c74-26c76 StackAdj> Δ-4 {[-4-]|[«28""»]|[-4-]}
<Lit 0x26c76 28> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<Call 0x26c8a 0x2469c> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<POP 26c8e-26c92 StackAdj> Δ+32 {[-4-]}
<POP 26c92-26c96 Naked> Σ-4 ↓ →0x26c28 ←0x26c46
<MI 26c92 ADDQ.L #0x1,D7> {[-4-]}
<MI 26c94 BVC 0x26c28> {[-4-]}
<POP 26c96-26c9e Naked> Σ-4 Δ+4 ↓ ←0x26c28
<MI 26c96 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<Call 0x26c98 0x25466> {[4, '(A6-0xc)']}
<POP 26c9c-26c9e StackAdj> Δ+4 {}
<POP 26c9e-26ca6 Epilogue> Σ0
@ 26ca6
<LVAR 0x00c 1(rw)>
<LVAR 0x008 4(r)>
<POP 26ca6-26d5e Body> Δ-8
<POP 26ca6-26cbc Prologue> Σ0 ↓
<POP 26cbc-26ccc Naked> Σ0 Δ-4 ↓
<MI 26cbc CLR.B (A6+0xc)> {}
<MI 26cc0 MOVEA.L (A6+0x8),A0> {}
<MI 26cc4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 26cc6 MOVEQ.L #0x00,D0> {[4, 'A0']}
<MI 26cc8 ADDQ.W #0x1,D0> {[4, 'A0']}
<MI 26cca MOVE.B D0,D6> {[4, 'A0']}
<POP 26ccc-26cd4 Naked> Σ-4 ↓ →0x26d54 ←0x26d4e
<MI 26ccc CMPI.B #0x2b,D6> {[-4-]}
<MI 26cd0 BGT 0x26d54> {[-4-]}
<POP 26cd4-26cfa Naked> Σ-4 ↓ →0x26d4e
<MI 26cd4 LEA.L 0x24588,A0> {[-4-]}
<MI 26cd8 MOVE.B D6,D0> {[-4-]}
<MI 26cda EXTB.W D0> {[-4-]}
<MI 26cdc EXTW.L D0> {[-4-]}
<MI 26cde ROR.L #0x1,D0> {[-4-]}
<MI 26ce0 ADDA.W D0,A0> {[-4-]}
<MI 26ce2 SWAP.W D0> {[-4-]}
<MI 26ce4 ROL.W #0x3,D0> {[-4-]}
<MI 26ce6 CLR.L D1> {[-4-]}
<MI 26ce8 MOVE.B (A0),D1> {[-4-]}
<MI 26cea LSL.B D0,D1> {[-4-]}
<MI 26cec LSR.B #0x4,D1> {[-4-]}
<MI 26cee MOVE.L D1,D5> {[-4-]}
<MI 26cf0 MOVEA.L (A7),A0> {[-4-]}
<MI 26cf2 MOVE.W (A0),D0> {[-4-]}
<MI 26cf4 EXTW.L D0> {[-4-]}
<MI 26cf6 CMP.L D0,D5> {[-4-]}
<MI 26cf8 BNE 0x26d4e> {[-4-]}
<POP 26cfa-26cfe Naked> Σ-4 Δ-4 ↓
<MI 26cfa MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 26cfc MOVEQ.L #0x01,D7> {[-4-]|[4, 'D5']}
<POP 26cfe-26d02 Naked> Σ-8 ↓ →0x26d44 ←0x26d40
<MI 26cfe CMP.L (A7),D7> {[-8-]}
<MI 26d00 BGT 0x26d44> {[-8-]}
<POP 26d02-26d3c Naked> Σ-8 ↓ →0x26d40
<MI 26d02 MOVE.B D6,D0> {[-8-]}
<MI 26d04 EXTB.W D0> {[-8-]}
<MI 26d06 MULS.W #0xa,D0> {[-8-]}
<MI 26d0a MOVE.L D7,D1> {[-8-]}
<MI 26d0c SUBQ.L #0x1,D1> {[-8-]}
<POP 0x26d0e LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 26d18 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 26d1c LEA.L 0x243d0,A1> {[-8-]}
<MI 26d20 MOVE.L D7,D2> {[-8-]}
<MI 26d22 SUBQ.L #0x1,D2> {[-8-]}
<POP 0x26d24 LimitCheck 0x0 ≤ D2 ≤ 0x9> {[-8-]}
<MI 26d2e LEA.L (A1+D0.W),A1> {[-8-]}
<MI 26d32 MOVE.B (A0+D1.L+#0x2),D0> {[-8-]}
<MI 26d36 CMP.B (A1+D2.L),D0> {[-8-]}
<MI 26d3a BEQ 0x26d40> {[-8-]}
<POP 26d3c-26d40 Naked> Σ-8 Δ+4 →0x26d4e
<POP 26d3c-26d3e StackAdj> Δ+4 {[-4-]}
<MI 26d3e BRA 0x26d4e> {[-4-]}
<POP 26d40-26d44 Naked> Σ-8 ↓ →0x26cfe ←0x26d02
<MI 26d40 ADDQ.L #0x1,D7> {[-8-]}
<MI 26d42 BVC 0x26cfe> {[-8-]}
<POP 26d44-26d4e Naked> Σ-8 Δ+8 →0x26d56 ←0x26cfe
<POP 26d44-26d46 StackAdj> Δ+4 {[-4-]}
<MI 26d46 MOVE.B D6,(A6+0xc)> {[-4-]}
<POP 26d4a-26d4c StackAdj> Δ+4 {}
<MI 26d4c BRA 0x26d56> {}
<POP 26d4e-26d54 Naked> Σ-4 ↓ →0x26ccc ←0x26cd4 ←0x26d3c
<MI 26d4e ADDQ.B #0x1,D6> {[-4-]}
<MI 26d50 BVC 0x26ccc> {[-4-]}
<POP 26d54-26d56 Naked> Σ-4 Δ+4 ↓ ←0x26ccc
<POP 26d54-26d56 StackAdj> Δ+4 {}
<POP 26d56-26d5e Epilogue> Σ0 ←0x26d44
@ 26d5e
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x006 @ 4(w)>
<LVAR -0x008 @ 1(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(rw)>
<POP 26d5e-26e9a Body>
<POP 26d5e-26d74 Prologue> Σ0 ↓
<POP 26d74-26d82 RegCacheLoad> Σ0 ↓
<POP 26d82-26dee Naked> Σ0 ↓ →0x26e38
<POP 26d82-26d84 StackAdj> Δ-4 {[-4-]}
<MI 26d84 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x26d88 0x102cc> {[-4-]|[4, '(A6+0xc)']}
StringDup(a : String) : String
<POP 26d8e-26d90 StackAdj> Δ+4 {[-4-]}
<MI 26d90 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 26d92 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Const 0x26d94 0x2e.2> Δ-2 {[4, '(A6-0x10)']|[#46]}
<Call 0x26d98 0x102c0> {[4, '(A6-0x10)']|[#46]}
AppendChar(MOD b : String; a : char)
<POP 26d9e-26da0 StackAdj> Δ+6 {}
<Blob 0x26da0 [10] 0x3d208> Δ-10 {[«10»]}
<POP 26dae-26db0 StackAdj> Δ-4 {[«10»]|[-4-]}
<MI 26db0 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']}
<POP 26db2-26db4 StackAdj> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x26db4> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
<Pointer.sp 0x26db4 12> Δ-4
<Const 0x26db8 0x1.2> Δ-2
<Const 0x26dba 0xa.2> Δ-2
<Call 0x26dbe 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 26dc4-26dc6 StackAdj> Δ+8
<Call 0x26dc6 0x102d0> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
StringCat2(a, b : String) : String
<POP 26dcc-26dce StackAdj> Δ+8 {[«10»]|[-4-]}
<MI 26dce MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«10»]}
<POP 26dd0-26dd2 StackAdj> Δ+6 {[-4-]}
<MI 26dd2 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 26dd4 CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]}
<Const 0x26dd6 0x1.2> Δ-2 {[4, '(A6-0x10)']|[#0]|[#1]}
<Const 0x26dd8 0x0.4> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x26ddc <LVAR -0x002 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]}
<Pointer.fp 0x26dde <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
<Call 0x26de0 0x10380> {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 26de6-26dea StackAdj> Δ+20 {}
<MI 26dea TST.B (A6-0x2)> {}
<MI 26dec BEQ 0x26e38> {}
<POP 26dee-26e38 Naked> Σ0 ↓
<Pointer.fp 0x26dee <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x26df0 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<MI 26df6 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Call 0x26dfa 0x2465a> {[4, '(A6+0x8)']}
<POP 26dfe-26dff StackAdj> Δ+4 ↓ {}
<Blob 0x26dff [26] @> Δ-26 {[«26""»]}
<POP 26e10-26e12 StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x26e12 25> {[«26""»]|[-4-]|[$$Not a command or macro :_]}
<POP 26e22-26e24 StackAdj> Δ-4 {[«26""»]|[-4-]|[$$Not a command or macro :_]|[-4-]}
<MI 26e24 MOVE.L (A6+0xc),(A7)> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
<Call 0x26e28 0x102d0> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
StringCat2(a, b : String) : String
<POP 26e2e-26e30 StackAdj> Δ+8 {[«26""»]|[-4-]}
<Call 0x26e30 0x2469c> {[«26""»]|[-4-]}
<POP 26e34-26e38 StackAdj> Δ+30 {}
<POP 26e38-26e40 Naked> Σ0 ↓ ←0x26d82
<MI 26e38 MOVE.L 0x3d1f6,(A6-0x6)> {}
<POP 26e40-26e58 Naked> Σ0 ↓ →0x26e6c ←0x26e6c
<MI 26e40 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Pointer.fp 0x26e42 <LVAR -0x010 @ 4(rw)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]}
<Pointer.fp 0x26e44 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
<Call 0x26e48 0x1043c> {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 26e4e-26e52 StackAdj> Δ+12 {}
<MI 26e52 MOVEA.L (A6-0x10),A0> {}
<MI 26e54 TST.W (A0)> {}
<MI 26e56 BEQ 0x26e6c> {}
<POP 26e58-26e6c Naked> Σ0 ↓
<MI 26e58 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x26e5a 0x248f4> {[4, '(A6-0x10)']}
<POP 26e5e-26e60 StackAdj> Δ+4 {}
<Pointer.fp 0x26e60 <LVAR -0x006 @ 4(w)>> Δ-4 {[@@-6]}
<MI 26e64 MOVE.L (A6-0x10),-(A7)> Δ-4 {[@@-6]|[4, '(A6-0x10)']}
<Call 0x26e66 0x24c7a> {[@@-6]|[4, '(A6-0x10)']}
<POP 26e6a-26e6c StackAdj> Δ+8 {}
<POP 26e6c-26e72 Naked> Σ0 ↓ →0x26e40 ←0x26e40
<MI 26e6c TST.B (A6-0x8)> {}
<MI 26e70 BEQ 0x26e40> {}
<POP 26e72-26e92 Naked> Σ0 ↓
<MI 26e72 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x26e74 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x26e76 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x26e7a <LVAR -0x002 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]}
<Pointer.fp 0x26e7c <LVAR -0x00c @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
<Call 0x26e7e 0x1038c> {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 26e84-26e88 StackAdj> Δ+16 {}
<Pointer.fp 0x26e88 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x26e8a 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 26e90-26e92 StackAdj> Δ+4 {}
<POP 26e92-26e9a Epilogue> Σ0
@ 26e9a
<LVAR 0x014 1(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 26e9a-26eda Body>
<POP 26e9a-26eb0 Prologue> Σ0 ↓
<POP 26eb0-26ed2 Naked> Σ0 ↓
<MI 26eb0 MOVE.L (A6+0xc),D0> {}
<MI 26eb4 ADD.L (A6+0x8),D0> {}
<MI 26eb8 SUBQ.L #0x1,D0> {}
<MI 26eba SUBQ.L #0x1,D0> {}
<POP 0x26ebc LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 26ec6 LEA.L 0x3b1ee,A0> {}
<MI 26ecc MOVE.B (A0+D0.L+#0x8),(A6+0x14)> {}
<POP 26ed2-26eda Epilogue> Σ0
@ 26eda
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<POP 26eda-26f56 Body>
<POP 26eda-26ef0 Prologue> Σ0 ↓
<POP 26ef0-26f18 Naked> Σ0 ↓ →0x26f48
<POP 26ef0-26ef2 StackAdj> Δ-4 {[-4-]}
<MI 26ef2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 26ef6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x26efa 0x25348> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 26efe-26f00 StackAdj> Δ+8 {[-4-]}
<Pointer.fp 0x26f00 <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[@@-4]}
<Pointer.fp 0x26f04 <LVAR -0x008 @ 4(r)>> Δ-4 {[-4-]|[@@-4]|[@@-8]}
<Call 0x26f08 0x102ec> {[-4-]|[@@-4]|[@@-8]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 26f0e-26f12 StackAdj> Δ+12 {}
<MI 26f12 TST.B (A6-0x4)> {}
<MI 26f16 BNE 0x26f48> {}
<POP 26f18-26f48 Naked> Σ0 ↓
<Blob 0x26f18 [24] @> Δ-24 {[«24""»]}
<POP 26f2a-26f2c StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x26f2c 23> {[«24""»]|[$$Illegal marker argument]}
<Call 0x26f40 0x2469c> {[«24""»]|[$$Illegal marker argument]}
<POP 26f44-26f48 StackAdj> Δ+28 {}
<POP 26f48-26f4e Naked> Σ0 ↓ ←0x26ef0
<MI 26f48 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 26f4e-26f56 Epilogue> Σ0
@ 26f56
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(w)>
<LVAR -0x020 4(rw)>
<POP 26f56-2707e Body>
<POP 26f56-26f6c Prologue> Σ0 ↓
<POP 26f6c-26f7c RegCacheLoad> Σ0 ↓
<POP 26f7c-26f96 Naked> Σ0 Δ-4 ↓
<MI 26f7c MOVEQ.L #0x00,D7> {}
<MI 26f7e MOVE.L (A6+0x14),(A6-0x20)> {}
<MI 26f82 MOVE.L 0x3d1f6,D0> {}
<MI 26f88 SUB.L (A6+0x14),D0> {}
<MI 26f8c MOVE.L D0,(A6-0x14)> {}
<MI 26f8e MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 26f92 MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 26f96-26f9a Naked> Σ-4 ↓ →0x26fc6 ←0x26fc2
<MI 26f96 CMP.L (A7),D5> {[-4-]}
<MI 26f98 BGT 0x26fc6> {[-4-]}
<POP 26f9a-26fc0 Naked> Σ-4 ↓ →0x26fc2
<POP 26f9a-26f9c StackAdj> Δ-8 {[-12-]}
<MI 26f9c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 26fa0 MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x26fa2 0x252e6> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 26fa6-26fa8 StackAdj> Δ+8 {[-12-]}
<MI 26fa8 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 26faa MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 26fac MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 26fae MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x26fb0 0x252ae> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 26fb4-26fb6 StackAdj> Δ+8 {[-8-]}
<MI 26fb6 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 26fb8 ADD.L D6,D7> {[-4-]}
<MI 26fba CMP.L (A6+0xc),D5> {[-4-]}
<MI 26fbe BGE 0x26fc2> {[-4-]}
<POP 26fc0-26fc2 Naked> Σ-4 ↓
<MI 26fc0 ADDQ.L #0x1,D7> {[-4-]}
<POP 26fc2-26fc6 Naked> Σ-4 ↓ →0x26f96 ←0x26f9a
<MI 26fc2 ADDQ.L #0x1,D5> {[-4-]}
<MI 26fc4 BVC 0x26f96> {[-4-]}
<POP 26fc6-26fd4 Naked> Σ-4 Δ+4 ↓ →0x26fe0 ←0x26f96
<POP 26fc6-26fc8 StackAdj> Δ+4 {}
<MI 26fc8 MOVE.L (A6-0x20),D0> {}
<MI 26fca ADD.L (A6-0x14),D0> {}
<MI 26fcc MOVE.L D0,(A6-0x18)> {}
<MI 26fd0 CMP.L (A6-0x14),D7> {}
<MI 26fd2 BEQ 0x26fe0> {}
<POP 26fd4-26fe0 Naked> Σ0 ↓
<MI 26fd4 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 26fd6 MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, 'D0']|[4, '(A6-0x14)']}
<MI 26fd8 SUB.L D7,(A7)> {[4, 'D0']|[-4-]}
<Call 0x26fda 0x24bf0> {[4, 'D0']|[-4-]}
<POP 26fde-26fe0 StackAdj> Δ+8 {}
<POP 26fe0-26fe8 Naked> Σ0 Δ-4 ↓ ←0x26fc6
<MI 26fe0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 26fe4 MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 26fe8-26fee Naked> Σ-4 ↓ →0x27074 ←0x2706e
<MI 26fe8 CMP.L (A7),D5> {[-4-]}
<MI 26fea BGT 0x27074> {[-4-]}
<POP 26fee-27010 Naked> Σ-4 Δ-4 ↓
<POP 26fee-26ff0 StackAdj> Δ-8 {[-12-]}
<MI 26ff0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 26ff4 MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x26ff6 0x252e6> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 26ffa-26ffc StackAdj> Δ+8 {[-12-]}
<MI 26ffc MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 26ffe MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 27000 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 27002 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x27004 0x252ae> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 27008-2700a StackAdj> Δ+8 {[-8-]}
<MI 2700a MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 2700c MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<MI 2700e MOVEQ.L #0x01,D0> {[-4-]|[4, 'D6']}
<POP 27010-27014 Naked> Σ-8 ↓ →0x27044 ←0x27014
<MI 27010 CMP.L (A7),D0> {[-8-]}
<MI 27012 BGT 0x27044> {[-8-]}
<POP 27014-27044 Naked> Σ-8 ↓ →0x27010
<MI 27014 MOVE.L (A6-0x20),D1> {[-8-]}
<MI 27016 ADD.L D0,D1> {[-8-]}
<MI 27018 SUBQ.L #0x1,D1> {[-8-]}
<MI 2701a SUBQ.L #0x1,D1> {[-8-]}
<POP 0x2701c LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-8-]}
<MI 27026 LEA.L 0x3b1ee,A0> {[-8-]}
<POP 2702c-2702e StackAdj> Δ-2 {[-10-]}
<MI 2702e MOVE.L (A6-0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']}
<MI 27030 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 27032 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<Call 0x27034 0x26e9a> {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<POP 27038-2703c StackAdj> Δ+12 {[-10-]}
<MI 2703c MOVE.B (A7)+,(A0+D1.L+#0x8)> Δ+2 {[-8-]}
<MI 27040 ADDQ.L #0x1,D0> {[-8-]}
<MI 27042 BVC 0x27010> {[-8-]}
<POP 27044-2704c Naked> Σ-8 Δ+4 ↓ →0x2706e ←0x27010
<POP 27044-27046 StackAdj> Δ+4 {[-4-]}
<MI 27046 CMP.L (A6+0xc),D5> {[-4-]}
<MI 2704a BGE 0x2706e> {[-4-]}
<POP 2704c-2706e Naked> Σ-4 ↓
<MI 2704c MOVE.L (A6-0x20),D0> {[-4-]}
<MI 2704e ADD.L D6,D0> {[-4-]}
<MI 27050 MOVE.L D0,D1> {[-4-]}
<MI 27052 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x27054 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-4-]}
<MI 2705e LEA.L 0x3b1ee,A0> {[-4-]}
<MI 27064 MOVE.B #0x2c,(A0+D1.L+#0x8)> {[-4-]}
<MI 2706a ADDQ.L #0x1,D0> {[-4-]}
<MI 2706c MOVE.L D0,(A6-0x20)> {[-4-]}
<POP 2706e-27074 Naked> Σ-4 ↓ →0x26fe8 ←0x27044
<MI 2706e ADDQ.L #0x1,D5> {[-4-]}
<MI 27070 BVC 0x26fe8> {[-4-]}
<POP 27074-27076 Naked> Σ-4 Δ+4 ↓ ←0x26fe8
<POP 27074-27076 StackAdj> Δ+4 {}
<POP 27076-2707e Epilogue> Σ0
@ 2707e
<LVAR 0x018 4(rw)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 4(rw)>
<LVAR -0x00c 4(rw)>
<LVAR -0x018 4(w)>
<POP 2707e-27174 Body> Δ-12
<POP 2707e-27094 Prologue> Σ0 ↓
<POP 27094-270aa RegCacheLoad> Σ0 ↓
<POP 270aa-270d4 Naked> Σ0 Δ-4 ↓
<POP 270aa-270ac StackAdj> Δ-4 {[-4-]}
<MI 270ac MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 270ae MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x270b0 0x252ae> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 270b4-270b6 StackAdj> Δ+8 {[-4-]}
<MI 270b6 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 270b8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 270bc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x270c0 0x252ae> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 270c4-270c6 StackAdj> Δ+8 {[-4-]}
<MI 270c6 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 270c8 ADDQ.L #0x1,(A6-0x8)> {}
<MI 270ca MOVE.L (A6-0xc),D0> {}
<MI 270cc SUB.L (A6-0x8),D0> {}
<MI 270ce ADDQ.L #0x1,D0> {}
<MI 270d0 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 270d2 MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 270d4-270da Naked> Σ-4 ↓ →0x27166 ←0x2715e
<MI 270d4 CMP.L (A7),D0> {[-4-]}
<MI 270d6 BGT 0x27166> {[-4-]}
<POP 270da-270e6 Naked> Σ-4 Δ-8 ↓
<MI 270da MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 270de MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 270e0 MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 270e2 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 270e4 MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 270e6-270ea Naked> Σ-12 ↓ →0x2712c ←0x27126
<MI 270e6 CMP.L (A7),D5> {[-12-]}
<MI 270e8 BGT 0x2712c> {[-12-]}
<POP 270ea-270f2 Naked> Σ-12 ↓ →0x270f6
<MI 270ea CMPI.L #0x00000001,D5> {[-12-]}
<MI 270f0 BNE 0x270f6> {[-12-]}
<POP 270f2-270f6 Naked> Σ-12 →0x2710a
<MI 270f2 MOVEQ.L #0x2f,D7> {[-12-]}
<MI 270f4 BRA 0x2710a> {[-12-]}
<POP 270f6-2710a Naked> Σ-12 ↓ ←0x270ea
<POP 270f6-270f8 StackAdj> Δ-2 {[-14-]}
<MI 270f8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']}
<MI 270fc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 27100 MOVE.L D5,-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D5']}
<MI 27102 SUBQ.L #0x1,(A7)> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<Call 0x27104 0x26e9a> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<POP 27106-27108 StackAdj> Δ+12 {[-14-]}
<MI 27108 MOVE.B (A7)+,D7> Δ+2 {[-12-]}
<POP 2710a-27122 Naked> Σ-12 ↓ →0x27126 ←0x270f2
<POP 2710a-2710c StackAdj> Δ-2 {[-14-]}
<MI 2710c MOVE.L (A6+0x14),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']}
<MI 2710e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 27110 MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 27114 ADD.L D5,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 27116 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 27118 MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x2711a 0x26e9a> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 2711c-2711e StackAdj> Δ+12 {[-14-]}
<MI 2711e CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 27120 BEQ 0x27126> {[-12-]}
<POP 27122-27126 Naked> Σ-12 Δ+4 →0x2712e
<POP 27122-27124 StackAdj> Δ+4 {[-8-]}
<MI 27124 BRA 0x2712e> {[-8-]}
<POP 27126-2712c Naked> Σ-12 ↓ →0x270e6 ←0x2710a
<MI 27126 MOVE.L D5,D6> {[-12-]}
<MI 27128 ADDQ.L #0x1,D5> {[-12-]}
<MI 2712a BVC 0x270e6> {[-12-]}
<POP 2712c-2712e Naked> Σ-12 Δ+4 ↓ ←0x270e6
<POP 2712c-2712e StackAdj> Δ+4 {[-8-]}
<POP 2712e-27132 Naked> Σ-8 ↓ →0x2715e ←0x27122
<MI 2712e CMP.L (A6-0x8),D6> {[-8-]}
<MI 27130 BNE 0x2715e> {[-8-]}
<POP 27132-2713e Naked> Σ-8 ↓ →0x27140
<MI 27132 MOVE.L (A7),D0> {[-8-]}
<MI 27134 MOVE.L D0,(A6+0x18)> {[-8-]}
<MI 27138 ADD.L (A6-0x8),D0> {[-8-]}
<MI 2713a CMP.L (A6-0xc),D0> {[-8-]}
<MI 2713c BLT 0x27140> {[-8-]}
<POP 2713e-27140 Naked> Σ-8 →0x2715a
<MI 2713e BRA 0x2715a> {[-8-]}
<POP 27140-27154 Naked> Σ-8 ↓ →0x2715a ←0x27132
<POP 27140-27142 StackAdj> Δ-2 {[-10-]}
<MI 27142 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 27144 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 27146 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x27148 0x26e9a> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 2714a-2714c StackAdj> Δ+12 {[-10-]}
<MI 2714c MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 2714e CMPI.B #0x2f,D7> {[-8-]}
<MI 27152 BEQ 0x2715a> {[-8-]}
<POP 27154-2715a Naked> Σ-8 ↓ →0x2715e
<MI 27154 CMPI.B #0x3d,D7> {[-8-]}
<MI 27158 BNE 0x2715e> {[-8-]}
<POP 2715a-2715e Naked> Σ-8 Δ+8 →0x2716c ←0x2713e ←0x27140
<POP 2715a-2715c StackAdj> Δ+8 {}
<MI 2715c BRA 0x2716c> {}
<POP 2715e-27166 Naked> Σ-8 Δ+4 ↓ →0x270d4 ←0x2712e ←0x27154
<MI 2715e MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 27160 ADDQ.L #0x1,D0> {[-4-]}
<MI 27162 BVC 0x270d4> {[-4-]}
<POP 27166-2716c Naked> Σ-4 Δ+4 ↓ ←0x270d4
<POP 27166-27168 StackAdj> Δ+4 {}
<MI 27168 CLR.L (A6+0x18)> {}
<POP 2716c-27174 Epilogue> Σ0 ←0x2715a
@ 27174
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 27174-27208 Body> Δ-4
<POP 27174-2718a Prologue> Σ0 ↓
<POP 2718a-27194 RegCacheLoad> Σ0 ↓
<POP 27194-271ae Naked> Σ0 ↓ →0x27200
<POP 27194-27196 StackAdj> Δ-4 {[-4-]}
<MI 27196 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 27198 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 2719a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 2719e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x271a2 0x2707e> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 271a6-271aa StackAdj> Δ+16 {[-4-]}
<MI 271aa MOVE.L (A7)+,D5> Δ+4 {}
<MI 271ac BLE 0x27200> {}
<POP 271ae-271ce Naked> Σ0 Δ-4 ↓
<MI 271ae MOVE.L (A6+0x18),-(A7)> Δ-4 {[4, '(A6+0x18)']}
<Const 0x271b2 0x2f.2> Δ-2 {[4, '(A6+0x18)']|[#47]}
<Call 0x271b4 0x102c0> {[4, '(A6+0x18)']|[#47]}
AppendChar(MOD b : String; a : char)
<POP 271ba-271bc StackAdj> Δ+6 {}
<MI 271bc MOVE.L D5,D0> {}
<MI 271be ADDQ.L #0x1,D0> {}
<POP 271c0-271c2 StackAdj> Δ-4 {[-4-]}
<MI 271c2 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 271c4 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x271c6 0x252ae> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 271ca-271cc StackAdj> Δ+8 {[-4-]}
<MI 271cc MOVE.L D0,D6> {[-4-]}
<POP 271ce-271d2 Naked> Σ-4 ↓ →0x271fe ←0x271ec
<MI 271ce CMP.L (A7),D6> {[-4-]}
<MI 271d0 BGT 0x271fe> {[-4-]}
<POP 271d2-271e8 Naked> Σ-4 ↓ →0x271ec
<POP 271d2-271d4 StackAdj> Δ-2 {[-6-]}
<MI 271d4 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 271d6 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 271d8 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x271da 0x26e9a> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 271de-271e2 StackAdj> Δ+12 {[-6-]}
<MI 271e2 MOVE.B (A7)+,D7> Δ+2 {[-4-]}
<MI 271e4 CMP.B #0x2f,D7> {[-4-]}
<MI 271e6 BNE 0x271ec> {[-4-]}
<POP 271e8-271ec Naked> Σ-4 Δ+4 →0x27200
<POP 271e8-271ea StackAdj> Δ+4 {}
<MI 271ea BRA 0x27200> {}
<POP 271ec-271fe Naked> Σ-4 ↓ →0x271ce ←0x271d2
<MI 271ec MOVE.L (A6+0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x18)']}
<MI 271f0 MOVE.B D7,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x271f2 0x102c0> {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 271f8-271fa StackAdj> Δ+6 {[-4-]}
<MI 271fa ADDQ.L #0x1,D6> {[-4-]}
<MI 271fc BVC 0x271ce> {[-4-]}
<POP 271fe-27200 Naked> Σ-4 Δ+4 ↓ ←0x271ce
<POP 271fe-27200 StackAdj> Δ+4 {}
<POP 27200-27208 Epilogue> Σ0 ←0x27194 ←0x271e8
@ 27208
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<LVAR -0x014 4(rw)>
<POP 27208-272be Body> Δ-8
<POP 27208-2721e Prologue> Σ0 ↓
<POP 2721e-2722c RegCacheLoad> Σ0 ↓
<POP 2722c-27248 Naked> Σ0 ↓ →0x272b6
<POP 2722c-2722e StackAdj> Δ-4 {[-4-]}
<MI 2722e MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 27230 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 27232 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 27236 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x2723a 0x2707e> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 2723e-27242 StackAdj> Δ+16 {[-4-]}
<MI 27242 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 27246 BLE 0x272b6> {}
<POP 27248-2725c Naked> Σ0 Δ-4 ↓
<POP 27248-2724a StackAdj> Δ-4 {[-4-]}
<MI 2724a MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 2724c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x2724e 0x252ae> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 27252-27254 StackAdj> Δ+8 {[-4-]}
<MI 27254 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 27256 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<MI 27258 MOVE.L (A6-0x14),D5> {[4, '(A6-0x6)']}
<POP 2725c-27260 Naked> Σ-4 ↓ →0x272b4 ←0x272b0
<MI 2725c CMP.L (A7),D5> {[-4-]}
<MI 2725e BGT 0x272b4> {[-4-]}
<POP 27260-27276 Naked> Σ-4 ↓ →0x272b0
<POP 27260-27262 StackAdj> Δ-2 {[-6-]}
<MI 27262 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 27264 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 27266 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<Call 0x27268 0x26e9a> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<POP 2726c-2726e StackAdj> Δ+12 {[-6-]}
<MI 2726e MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 27270 CMPI.B #0x3d,D0> {[-4-]}
<MI 27274 BNE 0x272b0> {[-4-]}
<POP 27276-2727e Naked> Σ-4 Δ-4 ↓
<MI 27276 MOVE.L D5,D0> {[-4-]}
<MI 27278 ADDQ.L #0x1,D0> {[-4-]}
<MI 2727a MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<MI 2727c MOVE.L D0,D6> {[-4-]|[4, '(A6-0x6)']}
<POP 2727e-27282 Naked> Σ-8 ↓ →0x272ae ←0x2729c
<MI 2727e CMP.L (A7),D6> {[-8-]}
<MI 27280 BGT 0x272ae> {[-8-]}
<POP 27282-27298 Naked> Σ-8 ↓ →0x2729c
<POP 27282-27284 StackAdj> Δ-2 {[-10-]}
<MI 27284 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 27286 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 27288 MOVE.L D6,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x2728a 0x26e9a> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 2728e-27290 StackAdj> Δ+12 {[-10-]}
<MI 27290 MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 27292 CMPI.B #0x2f,D7> {[-8-]}
<MI 27296 BNE 0x2729c> {[-8-]}
<POP 27298-2729c Naked> Σ-8 Δ+8 →0x272b6
<POP 27298-2729a StackAdj> Δ+8 {}
<MI 2729a BRA 0x272b6> {}
<POP 2729c-272ae Naked> Σ-8 ↓ →0x2727e ←0x27282
<MI 2729c MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 272a0 MOVE.B D7,-(A7)> Δ-2 {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x272a2 0x102c0> {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 272a8-272aa StackAdj> Δ+6 {[-8-]}
<MI 272aa ADDQ.L #0x1,D6> {[-8-]}
<MI 272ac BVC 0x2727e> {[-8-]}
<POP 272ae-272b0 Naked> Σ-8 Δ+4 ↓ ←0x2727e
<POP 272ae-272b0 StackAdj> Δ+4 {[-4-]}
<POP 272b0-272b4 Naked> Σ-4 ↓ →0x2725c ←0x27260
<MI 272b0 ADDQ.L #0x1,D5> {[-4-]}
<MI 272b2 BVC 0x2725c> {[-4-]}
<POP 272b4-272b6 Naked> Σ-4 Δ+4 ↓ ←0x2725c
<POP 272b4-272b6 StackAdj> Δ+4 {}
<POP 272b6-272be Epilogue> Σ0 ←0x2722c ←0x27298
@ 272be
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 272be-27344 Body> Δ-4
<POP 272be-272d4 Prologue> Σ0 ↓
<POP 272d4-272de RegCacheLoad> Σ0 ↓
<POP 272de-272f0 Naked> Σ0 Δ-4 ↓
<POP 272de-272e0 StackAdj> Δ-4 {[-4-]}
<MI 272e0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 272e2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x272e4 0x252ae> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 272e8-272ea StackAdj> Δ+8 {[-4-]}
<MI 272ea MOVE.L (A7)+,D5> Δ+4 {}
<MI 272ec MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 272ee MOVEQ.L #0x01,D6> {[4, 'D5']}
<POP 272f0-272f4 Naked> Σ-4 ↓ →0x2733a ←0x27336
<MI 272f0 CMP.L (A7),D6> {[-4-]}
<MI 272f2 BGT 0x2733a> {[-4-]}
<POP 272f4-2730a Naked> Σ-4 ↓ →0x27336
<POP 272f4-272f6 StackAdj> Δ-2 {[-6-]}
<MI 272f6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 272f8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 272fa MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x272fc 0x26e9a> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<POP 27300-27302 StackAdj> Δ+12 {[-6-]}
<MI 27302 MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 27304 CMPI.B #0x2f,D0> {[-4-]}
<MI 27308 BNE 0x27336> {[-4-]}
<POP 2730a-2730e Naked> Σ-4 Δ-4 ↓
<MI 2730a MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 2730c MOVE.L D6,D7> {[-4-]|[4, 'D5']}
<POP 2730e-27312 Naked> Σ-8 ↓ →0x27330 ←0x27312
<MI 2730e CMP.L (A7),D7> {[-8-]}
<MI 27310 BGT 0x27330> {[-8-]}
<POP 27312-27330 Naked> Σ-8 ↓ →0x2730e
<MI 27312 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']}
<POP 27316-27318 StackAdj> Δ-2 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<MI 27318 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']}
<MI 2731a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 2731c MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x2731e 0x26e9a> {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 27322-27324 StackAdj> Δ+12 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<Call 0x27324 0x102c0> {[-8-]|[4, '(A6+0x10)']|[-2-]}
AppendChar(MOD b : String; a : char)
<POP 2732a-2732c StackAdj> Δ+6 {[-8-]}
<MI 2732c ADDQ.L #0x1,D7> {[-8-]}
<MI 2732e BVC 0x2730e> {[-8-]}
<POP 27330-27336 Naked> Σ-8 Δ+8 →0x2733c ←0x2730e
<POP 27330-27332 StackAdj> Δ+4 {[-4-]}
<POP 27332-27334 StackAdj> Δ+4 {}
<MI 27334 BRA 0x2733c> {}
<POP 27336-2733a Naked> Σ-4 ↓ →0x272f0 ←0x272f4
<MI 27336 ADDQ.L #0x1,D6> {[-4-]}
<MI 27338 BVC 0x272f0> {[-4-]}
<POP 2733a-2733c Naked> Σ-4 Δ+4 ↓ ←0x272f0
<POP 2733a-2733c StackAdj> Δ+4 {}
<POP 2733c-27344 Epilogue> Σ0 ←0x27330
@ 27344
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 27344-273b4 Body> Δ-4
<POP 27344-2735a Prologue> Σ0 ↓
<POP 2735a-27372 Naked> Σ0 Δ-4 ↓
<MI 2735a MOVEA.L (A6+0x10),A0> {}
<MI 2735e CLR.W (A0)> {}
<POP 27360-27362 StackAdj> Δ-4 {[-4-]}
<MI 27362 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 27366 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x2736a 0x252ae> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 2736e-27370 StackAdj> Δ+8 {[-4-]}
<MI 27370 MOVEQ.L #0x01,D7> {[-4-]}
<POP 27372-27376 Naked> Σ-4 ↓ →0x273aa ←0x273a6
<MI 27372 CMP.L (A7),D7> {[-4-]}
<MI 27374 BGT 0x273aa> {[-4-]}
<POP 27376-27392 Naked> Σ-4 ↓ →0x273a2
<POP 27376-27378 StackAdj> Δ-2 {[-6-]}
<MI 27378 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 2737c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 27380 MOVE.L D7,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x27382 0x26e9a> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 27386-2738a StackAdj> Δ+12 {[-6-]}
<MI 2738a MOVE.B (A7)+,D6> Δ+2 {[-4-]}
<MI 2738c CMPI.B #0x2f,D6> {[-4-]}
<MI 27390 BEQ 0x273a2> {[-4-]}
<POP 27392-273a2 Naked> Σ-4 →0x273a6
<MI 27392 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 27396 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
<Call 0x27398 0x102c0> {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 2739e-273a0 StackAdj> Δ+6 {[-4-]}
<MI 273a0 BRA 0x273a6> {[-4-]}
<POP 273a2-273a6 Naked> Σ-4 Δ+4 →0x273ac ←0x27376
<POP 273a2-273a4 StackAdj> Δ+4 {}
<MI 273a4 BRA 0x273ac> {}
<POP 273a6-273aa Naked> Σ-4 ↓ →0x27372 ←0x27392
<MI 273a6 ADDQ.L #0x1,D7> {[-4-]}
<MI 273a8 BVC 0x27372> {[-4-]}
<POP 273aa-273ac Naked> Σ-4 Δ+4 ↓ ←0x27372
<POP 273aa-273ac StackAdj> Δ+4 {}
<POP 273ac-273b4 Epilogue> Σ0 ←0x273a2
@ 273b4
<POP 273b4-273fc Body>
<POP 273b4-273ca Prologue> Σ0 ↓
<POP 273ca-273f4 Naked> Σ0 ↓
<Blob 0x273ca [34] @> Δ-34 {[«34""»]}
<POP 273d6-273d8 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x273d8 34> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<Call 0x273ec 0x2469c> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<POP 273f0-273f4 StackAdj> Δ+38 {}
<POP 273f4-273fc Epilogue> Σ0
@ 273fc
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<POP 273fc-27536 Body>
<POP 273fc-27412 Prologue> Σ0 ↓
<POP 27412-27428 RegCacheLoad> Σ0 ↓
<POP 27428-27436 Naked> Σ0 ↓ →0x2743e
<MI 27428 MOVE.L 0x3d1f6,(A6-0x6)> {}
<POP 2742c-2742e StackAdj> Δ-2 {[-2-]}
<Call 0x2742e 0x24738> {[-2-]}
<MI 27430 MOVE.B (A7)+,D7> Δ+2 {}
<MI 27432 CMP.B #0x25,D7> {}
<MI 27434 BNE 0x2743e> {}
<POP 27436-2743e Naked> Σ0 →0x2751e
<MI 27436 MOVEA.L (A6+0xc),A0> {}
<MI 27438 CLR.L (A0)> {}
<MI 2743a BRA 0x2751e> {}
<POP 2743e-27442 Naked> Σ0 ↓ →0x2744e ←0x27428
<MI 2743e CMP.B #0x2d,D7> {}
<MI 27440 BNE 0x2744e> {}
<POP 27442-2744e Naked> Σ0 →0x2751e
<MI 27442 MOVEA.L (A6+0xc),A0> {}
<MI 27444 MOVE.L #0x1,(A0)> {}
<MI 2744a BRA 0x2751e> {}
<POP 2744e-27454 Naked> Σ0 ↓ →0x27460 ←0x2743e
<MI 2744e CMPI.B #0x2f,D7> {}
<MI 27452 BNE 0x27460> {}
<POP 27454-27460 Naked> Σ0 →0x2751e
<MI 27454 MOVEA.L (A6+0xc),A0> {}
<MI 27456 MOVE.L #0x4,(A0)> {}
<MI 2745c BRA 0x2751e> {}
<POP 27460-27466 Naked> Σ0 ↓ →0x27472 ←0x2744e
<MI 27460 CMPI.B #0x3d,D7> {}
<MI 27464 BNE 0x27472> {}
<POP 27466-27472 Naked> Σ0 →0x2751e
<MI 27466 MOVEA.L (A6+0xc),A0> {}
<MI 27468 MOVE.L #0x5,(A0)> {}
<MI 2746e BRA 0x2751e> {}
<POP 27472-27478 Naked> Σ0 ↓ →0x27484 ←0x27460
<MI 27472 CMPI.B #0x5c,D7> {}
<MI 27476 BNE 0x27484> {}
<POP 27478-27484 Naked> Σ0 →0x2751e
<MI 27478 MOVEA.L (A6+0xc),A0> {}
<MI 2747a MOVE.L #0x6,(A0)> {}
<MI 27480 BRA 0x2751e> {}
<POP 27484-27488 Naked> Σ0 ↓ →0x274b4 ←0x27472
<MI 27484 TST.B D7> {}
<MI 27486 BNE 0x274b4> {}
<POP 27488-274b4 Naked> Σ0 →0x2751e
<Blob 0x27488 [24] @> Δ-24 {[«24""»]}
<POP 27494-27496 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x27496 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x274aa 0x2469c> {[«24""»]|[$$Illegal argument marker.]}
<POP 274ae-274b2 StackAdj> Δ+28 {}
<MI 274b2 BRA 0x2751e> {}
<POP 274b4-274b8 Naked> Σ0 ↓ →0x274e4 ←0x27484
<MI 274b4 CMP.B #0x30,D7> {}
<MI 274b6 BCS 0x274e4> {}
<POP 274b8-274bc Naked> Σ0 ↓ →0x274e4
<MI 274b8 CMP.B #0x39,D7> {}
<MI 274ba BHI 0x274e4> {}
<POP 274bc-274c4 Naked> Σ0 ↓
<MI 274bc MOVEA.L (A6+0xc),A0> {}
<MI 274be MOVE.L #0x2,(A0)> {}
<POP 274c4-274d0 Naked> Σ0 ↓ →0x274da ←0x274de
<POP 274c4-274c6 StackAdj> Δ-2 {[-2-]}
<Call 0x274c6 0x246fa> {[-2-]}
<MI 274ca MOVE.B (A7)+,D7> Δ+2 {}
<MI 274cc CMP.B #0x30,D7> {}
<MI 274ce BCS 0x274da> {}
<POP 274d0-274d4 Naked> Σ0 ↓ →0x274da
<MI 274d0 CMP.B #0x39,D7> {}
<MI 274d2 BHI 0x274da> {}
<POP 274d4-274da Naked> Σ0 ↓
<POP 274d4-274d6 StackAdj> Δ-2 {[-2-]}
<Call 0x274d6 0x24738> {[-2-]}
<MI 274d8 MOVE.B (A7)+,D6> Δ+2 {}
<POP 274da-274de Naked> Σ0 ↓ →0x274e2 ←0x274c4 ←0x274d0
<MI 274da CMP.B #0x30,D7> {}
<MI 274dc BCS 0x274e2> {}
<POP 274de-274e2 Naked> Σ0 ↓ →0x274c4
<MI 274de CMP.B #0x39,D7> {}
<MI 274e0 BLS 0x274c4> {}
<POP 274e2-274e4 Naked> Σ0 →0x2751e ←0x274da
<MI 274e2 BRA 0x2751e> {}
<POP 274e4-274ee Naked> Σ0 ↓ ←0x274b4 ←0x274b8
<MI 274e4 MOVEA.L (A6+0xc),A0> {}
<MI 274e6 MOVE.L #0x3,(A0)> {}
<MI 274ec MOVEQ.L #0x00,D5> {}
<POP 274ee-274fa Naked> Σ0 ↓ →0x27510 ←0x2751a
<POP 274ee-274f0 StackAdj> Δ-2 {[-2-]}
<Call 0x274f0 0x246fa> {[-2-]}
<MI 274f4 MOVE.B (A7)+,D7> Δ+2 {}
<MI 274f6 CMP.B #0x25,D7> {}
<MI 274f8 BEQ 0x27510> {}
<POP 274fa-274fe Naked> Σ0 ↓ →0x27510
<MI 274fa CMP.B #0x2d,D7> {}
<MI 274fc BEQ 0x27510> {}
<POP 274fe-27504 Naked> Σ0 ↓ →0x27510
<MI 274fe CMPI.B #0x2f,D7> {}
<MI 27502 BEQ 0x27510> {}
<POP 27504-2750a Naked> Σ0 ↓ →0x27510
<MI 27504 CMPI.B #0x3d,D7> {}
<MI 27508 BEQ 0x27510> {}
<POP 2750a-27510 Naked> Σ0 ↓ →0x27514
<MI 2750a CMPI.B #0x5c,D7> {}
<MI 2750e BNE 0x27514> {}
<POP 27510-27514 Naked> Σ0 →0x2751a ←0x274ee ←0x274fa ←0x274fe ←0x27504
<MI 27510 MOVEQ.L #0x01,D5> {}
<MI 27512 BRA 0x2751a> {}
<POP 27514-2751a Naked> Σ0 ↓ ←0x2750a
<POP 27514-27516 StackAdj> Δ-2 {[-2-]}
<Call 0x27516 0x24738> {[-2-]}
<MI 27518 MOVE.B (A7)+,D6> Δ+2 {}
<POP 2751a-2751e Naked> Σ0 ↓ →0x274ee ←0x27510
<MI 2751a TST.B D5> {}
<MI 2751c BEQ 0x274ee> {}
<POP 2751e-2752e Naked> Σ0 ↓ ←0x27436 ←0x27442 ←0x27454 ←0x27466 ←0x27478 ←0x27488 ←0x274e2
<MI 2751e MOVEA.L (A6+0x8),A0> {}
<MI 27522 MOVE.L (A6-0x6),(A0)> {}
<MI 27526 MOVE.L 0x3d1f6,(A0+0x4)> {}
<MI 2752a SUBQ.L #0x1,(A0+0x4)> {}
<POP 2752e-27536 Epilogue> Σ0
@ 27536
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 27536-275bc Body>
<POP 27536-2754c Prologue> Σ0 ↓
<POP 2754c-27550 RegCacheLoad> Σ0 ↓
<POP 27550-2756a Naked> Σ0 Δ-4 ↓ →0x27576
<MI 27550 MOVEA.L (A6+0x8),A0> {}
<MI 27554 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 27556 MOVE.L 0x3d1f6,D6> {[4, 'A0']}
<MI 2755c SUB.L (A6+0xc),D6> {[4, 'A0']}
<MI 2755e MOVE.L (A6+0xc),D5> {[4, 'A0']}
<MI 27560 ADD.L D6,D5> {[4, 'A0']}
<MI 27562 MOVE.W (A0),D0> {[4, 'A0']}
<MI 27564 EXTW.L D0> {[4, 'A0']}
<MI 27566 CMP.L D6,D0> {[4, 'A0']}
<MI 27568 BEQ 0x27576> {[4, 'A0']}
<POP 2756a-27576 Naked> Σ-4 ↓
<MI 2756a MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 2756c MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D5']|[4, 'D6']}
<MI 2756e SUB.L D0,(A7)> {[-4-]|[4, 'D5']|[-4-]}
<Call 0x27570 0x24bf0> {[-4-]|[4, 'D5']|[-4-]}
<POP 27574-27576 StackAdj> Δ+8 {[-4-]}
<POP 27576-2757a Naked> Σ-4 Δ-4 ↓ ←0x27550
<MI 27576 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 27578 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D0']}
<POP 2757a-2757e Naked> Σ-8 ↓ →0x275b2 ←0x2757e
<MI 2757a CMP.L (A7),D7> {[-8-]}
<MI 2757c BGT 0x275b2> {[-8-]}
<POP 2757e-275b2 Naked> Σ-8 ↓ →0x2757a
<MI 2757e MOVE.L (A6+0xc),D0> {[-8-]}
<MI 27580 ADD.L D7,D0> {[-8-]}
<MI 27582 SUBQ.L #0x1,D0> {[-8-]}
<MI 27584 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x27586 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 27590 LEA.L 0x3b1ee,A0> {[-8-]}
<MI 27596 MOVE.L D7,D1> {[-8-]}
<MI 27598 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x2759a LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 275a4 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 275a8 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 275ae ADDQ.L #0x1,D7> {[-8-]}
<MI 275b0 BVC 0x2757a> {[-8-]}
<POP 275b2-275b4 Naked> Σ-8 Δ+8 ↓ ←0x2757a
<POP 275b2-275b4 StackAdj> Δ+8 {}
<POP 275b4-275bc Epilogue> Σ0
@ 275bc
<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(rw)>
<LVAR -0x01c 4(rw)>
<LVAR -0x020 4(rw)>
<LVAR -0x024 4(rw)>
<LVAR -0x028 4(rw)>
<LVAR -0x034 4(rw)>
<POP 275bc-27804 Body> Δ+56
<POP 275bc-275d2 Prologue> Σ0 ↓
<POP 275d2-275e4 RegCacheLoad> Σ0 ↓
<POP 275e4-27608 Naked> Σ0 ↓
<MI 275e4 MOVE.L 0x3d1f6,(A6-0x28)> {}
<Pointer.fp 0x275ec <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x275ee 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 275f4-275f6 StackAdj> Δ+4 {}
<Pointer.fp 0x275f6 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x275fa <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x275fc 0x273fc> {[@@-12]|[@@-20]}
<POP 27600-27602 StackAdj> Δ+8 {}
<MI 27602 CLR.L (A6-0x34)> {}
<MI 27606 MOVEQ.L #0x00,D7> {}
<POP 27608-2761c Naked> Σ0 →0x27646 →0x27650 →0x27664 →0x27680 →0x27684 →0x27692 →0x276a6 →0x276ac →0x276ae →0x276c4 →0x276d2 →0x276ea →0x276fe →0x27712 →0x27728 →0x2772a →0x27744 →0x2775a →0x27768 →0x2776a →0x2776c ←0x277e0
<MI 27608 MOVE.L (A6-0x34),D0> {}
<POP 0x2760c LimitCheck 0x0 ≤ D0 ≤ 0x14> {}
<MI 27612 ADD.W D0,D0> {}
<MI 27614 SWITCH D0.W> {}
<POP 27646-27650 Naked> Σ0 →0x27796 ←0x27608
<MI 27646 MOVEQ.L #0x00,D6> {}
<MI 27648 MOVE.L (A6+0x8),D5> {}
<MI 2764c BRA 0x27796> {}
<POP 27650-27664 Naked> Σ0 →0x27796 ←0x27608
<POP 27650-27652 StackAdj> Δ-4 {[-4-]}
<MI 27652 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 27656 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x27658 0x26eda> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 2765c-2765e StackAdj> Δ+8 {[-4-]}
<MI 2765e MOVE.L (A7)+,D6> Δ+4 {}
<MI 27660 BRA 0x27796> {}
<POP 27664-2766c Naked> Σ0 Δ-12 ↓ ←0x27608
<MI 27664 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 27668 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 2766a MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D6']}
<POP 2766c-2767c Naked> Σ-12 Δ+12 →0x277f2 ←0x27684
<MI 2766c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<Call 0x27670 0x26f56> {[-12-]|[4, '(A6+0xc)']}
<POP 27674-27678 StackAdj> Δ+16 {}
<MI 27678 BRA 0x277f2> {}
<POP 27680-27684 Naked> Σ0 →0x27796 ←0x27608
<MI 27680 BRA 0x27796> {}
<POP 27684-2768e Naked> Σ0 Δ-12 →0x2766c ←0x27608
<MI 27684 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 27688 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 2768a MOVE.L D5,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<MI 2768c BRA 0x2766c> {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<POP 27692-276a6 Naked> Σ0 →0x27796 ←0x27608 ←0x276ac
<POP 27692-27694 StackAdj> Δ-4 {[-4-]}
<MI 27694 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 27698 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x2769a 0x26eda> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 2769e-276a0 StackAdj> Δ+8 {[-4-]}
<MI 276a0 MOVE.L (A7)+,D5> Δ+4 {}
<MI 276a2 BRA 0x27796> {}
<POP 276a6-276ac Naked> Σ0 →0x27796 ←0x27608
<MI 276a6 MOVEQ.L #0x01,D6> {}
<MI 276a8 BRA 0x27796> {}
<POP 276ac-276ae Naked> Σ0 →0x27692 ←0x27608
<MI 276ac BRA 0x27692> {}
<POP 276ae-276c4 Naked> Σ0 →0x27796 ←0x27608
<POP 276ae-276b0 StackAdj> Δ-8 {[-8-]}
<MI 276b0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']}
<MI 276b4 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x276b6 0x252e6> {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 276ba-276bc StackAdj> Δ+8 {[-8-]}
<MI 276bc MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-4-]}
<MI 276be MOVE.L (A7)+,(A6-0x20)> Δ+4 {}
<MI 276c0 BRA 0x27796> {}
<POP 276c4-276d2 Naked> Σ0 →0x27796 ←0x27608
<MI 276c4 MOVE.L (A6-0x14),(A6-0x1c)> {}
<MI 276c8 MOVE.L (A6-0x10),(A6-0x18)> {}
<MI 276ce BRA 0x27796> {}
<POP 276d2-276e4 Naked> Σ0 Δ-20 ↓ ←0x27608
<MI 276d2 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 276d4 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 276d6 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 276d8 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 276dc MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x276e0 0x27208> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 276e4-276ea Naked> Σ-20 Δ+20 →0x27796 ←0x276ea
<POP 276e4-276e6 StackAdj> Δ+20 {}
<MI 276e6 BRA 0x27796> {}
<POP 276ea-276fe Naked> Σ0 Δ-20 →0x276e4 ←0x27608
<MI 276ea MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 276ec MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 276ee MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 276f0 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 276f4 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x276f8 0x27174> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 276fc BRA 0x276e4> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 276fe-27708 Naked> Σ0 Δ-12 ↓ ←0x27608
<MI 276fe MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 27700 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 27702 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<Call 0x27704 0x272be> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<POP 27708-2770c Naked> Σ-12 Δ+12 ↓ ←0x27744
<POP 27708-2770c StackAdj> Δ+12 {}
<POP 2770c-27712 Naked> Σ0 →0x27796 ←0x27712 ←0x27728 ←0x2776a
<MI 2770c MOVEQ.L #0x01,D7> {}
<MI 2770e BRA 0x27796> {}
<POP 27712-27728 Naked> Σ0 →0x2770c ←0x27608
<MI 27712 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 27714 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 27716 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 27718 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 2771c MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x27720 0x27174> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 27724-27726 StackAdj> Δ+20 {}
<MI 27726 BRA 0x2770c> {}
<POP 27728-2772a Naked> Σ0 →0x2770c ←0x27608
<MI 27728 BRA 0x2770c> {}
<POP 2772a-2773e Naked> Σ0 Δ-12 ↓ ←0x27608
<MI 2772a MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 2772c-2772e StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 2772e MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 27732 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x27734 0x252e6> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 27738-2773a StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x2773a 0x272be> {[4, '(A6-0x8)']|[-8-]}
<POP 2773e-27744 Naked> Σ-12 Δ+12 →0x27796 ←0x2775a
<POP 2773e-27742 StackAdj> Δ+12 {}
<MI 27742 BRA 0x27796> {}
<POP 27744-2775a Naked> Σ0 Δ-12 →0x27708 ←0x27608
<MI 27744 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 27746-27748 StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 27748 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 2774c MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x2774e 0x252e6> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 27752-27754 StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x27754 0x27344> {[4, '(A6-0x8)']|[-8-]}
<MI 27758 BRA 0x27708> {[4, '(A6-0x8)']|[-8-]}
<POP 2775a-27768 Naked> Σ0 Δ-12 →0x2773e ←0x27608
<MI 2775a MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 2775c MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']}
<MI 27760 MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x27762 0x273b4> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<MI 27766 BRA 0x2773e> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 27768-2776a Naked> Σ0 →0x27796 ←0x27608
<MI 27768 BRA 0x27796> {}
<POP 2776a-2776c Naked> Σ0 →0x2770c ←0x27608
<MI 2776a BRA 0x2770c> {}
<POP 2776c-27796 Naked> Σ0 ↓ ←0x27608
<Blob 0x2776c [24] @> Δ-24 {[«24""»]}
<POP 27778-2777a StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x2777a 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x2778e 0x2469c> {[«24""»]|[$$Illegal argument marker.]}
<POP 27792-27796 StackAdj> Δ+28 {}
<POP 27796-2779a Naked> Σ0 ↓ →0x277e0 ←0x27646 ←0x27650 ←0x27680 ←0x27692 ←0x276a6 ←0x276ae ←0x276c4 ←0x276e4 ←0x2770c ←0x2773e ←0x27768
<MI 27796 TST.B D7> {}
<MI 27798 BNE 0x277e0> {}
<POP 2779a-277e0 Naked> Σ0 ↓
<Pointer.fp 0x2779a <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x2779e <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x277a0 0x273fc> {[@@-12]|[@@-20]}
<POP 277a4-277a6 StackAdj> Δ+8 {}
<MI 277a6 MOVE.L (A6-0x34),D0> {}
<POP 0x277aa LimitCheck 0x0 ≤ D0 ≤ 0x13> {}
<MI 277b4 MOVE.L D0,D4> {}
<MI 277b6 MOVEQ.L #0x07,D3> {}
<Call 0x277b8 0x1028c> {}
?muls_d3_d4
<MI 277be LEA.L 0x245ce,A0> {}
<MI 277c2 MOVE.L (A6-0xc),D0> {}
<POP 0x277c6 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 277d0 LEA.L (A0+D4.L),A0> {}
<MI 277d4 MOVE.B (A0+D0.L),D1> {}
<MI 277d8 EXTB.W D1> {}
<MI 277da EXTW.L D1> {}
<MI 277dc MOVE.L D1,(A6-0x34)> {}
<POP 277e0-277e6 Naked> Σ0 ↓ →0x27608 ←0x27796
<MI 277e0 TST.B D7> {}
<MI 277e2 BEQ 0x27608> {}
<POP 277e6-277f2 Naked> Σ0 ↓
<MI 277e6 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 277ea MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<Call 0x277ec 0x27536> {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<POP 277f0-277f2 StackAdj> Δ+8 {}
<POP 277f2-277fc Naked> Σ0 ↓ ←0x2766c
<Pointer.fp 0x277f2 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x277f4 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 277fa-277fc StackAdj> Δ+4 {}
<POP 277fc-27804 Epilogue> Σ0
@ 27804
<LVAR 0x014 4(rw)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 4(rw)>
<LVAR -0x00c 4(rw)>
<LVAR -0x018 4(w)>
<POP 27804-278fc Body> Δ-12
<POP 27804-2781a Prologue> Σ0 ↓
<POP 2781a-2782c RegCacheLoad> Σ0 ↓
<POP 2782c-27854 Naked> Σ0 Δ-4 ↓
<MI 2782c CLR.L (A6+0x14)> {}
<POP 27830-27832 StackAdj> Δ-4 {[-4-]}
<MI 27832 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 27834 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<Call 0x27836 0x252ae> {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<POP 2783a-2783c StackAdj> Δ+8 {[-4-]}
<MI 2783c MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 2783e MOVEA.L (A6+0x8),A0> {}
<MI 27842 MOVE.W (A0),D0> {}
<MI 27844 EXTW.L D0> {}
<MI 27846 ADDQ.L #0x1,D0> {}
<MI 27848 MOVE.L D0,(A6-0x8)> {}
<MI 2784a NEG.L D0> {}
<MI 2784c ADD.L (A6-0xc),D0> {}
<MI 2784e ADDQ.L #0x1,D0> {}
<MI 27850 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 27852 MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 27854-2785a Naked> Σ-4 ↓ →0x278f2 ←0x278ea
<MI 27854 CMP.L (A7),D0> {[-4-]}
<MI 27856 BGT 0x278f2> {[-4-]}
<POP 2785a-27866 Naked> Σ-4 Δ-8 ↓
<MI 2785a MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 2785e MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 27860 MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 27862 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 27864 MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 27866-2786a Naked> Σ-12 ↓ →0x278b2 ←0x278ac
<MI 27866 CMP.L (A7),D5> {[-12-]}
<MI 27868 BGT 0x278b2> {[-12-]}
<POP 2786a-27872 Naked> Σ-12 ↓ →0x27876
<MI 2786a CMPI.L #0x00000001,D5> {[-12-]}
<MI 27870 BNE 0x27876> {[-12-]}
<POP 27872-27876 Naked> Σ-12 →0x2788e
<MI 27872 MOVEQ.L #0x2f,D7> {[-12-]}
<MI 27874 BRA 0x2788e> {[-12-]}
<POP 27876-2788e Naked> Σ-12 ↓ ←0x2786a
<MI 27876 MOVEA.L (A6+0x8),A0> {[-12-]}
<MI 2787a MOVE.L D5,D0> {[-12-]}
<MI 2787c SUBQ.L #0x1,D0> {[-12-]}
<MI 2787e SUBQ.L #0x1,D0> {[-12-]}
<POP 0x27880 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 2788a MOVE.B (A0+D0.L+#0x2),D7> {[-12-]}
<POP 2788e-278a8 Naked> Σ-12 ↓ →0x278ac ←0x27872
<POP 2788e-27890 StackAdj> Δ-2 {[-14-]}
<MI 27890 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']}
<MI 27892 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 27894 MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 27898 ADD.L D5,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 2789a SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 2789c MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<Call 0x2789e 0x26e9a> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<POP 278a2-278a4 StackAdj> Δ+12 {[-14-]}
<MI 278a4 CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 278a6 BEQ 0x278ac> {[-12-]}
<POP 278a8-278ac Naked> Σ-12 Δ+4 →0x278b4
<POP 278a8-278aa StackAdj> Δ+4 {[-8-]}
<MI 278aa BRA 0x278b4> {[-8-]}
<POP 278ac-278b2 Naked> Σ-12 ↓ →0x27866 ←0x2788e
<MI 278ac MOVE.L D5,D6> {[-12-]}
<MI 278ae ADDQ.L #0x1,D5> {[-12-]}
<MI 278b0 BVC 0x27866> {[-12-]}
<POP 278b2-278b4 Naked> Σ-12 Δ+4 ↓ ←0x27866
<POP 278b2-278b4 StackAdj> Δ+4 {[-8-]}
<POP 278b4-278b8 Naked> Σ-8 ↓ →0x278ea ←0x278a8
<MI 278b4 CMP.L (A6-0x8),D6> {[-8-]}
<MI 278b6 BNE 0x278ea> {[-8-]}
<POP 278b8-278c2 Naked> Σ-8 ↓ →0x278e8
<MI 278b8 MOVE.L (A7),D0> {[-8-]}
<MI 278ba MOVE.L D0,D1> {[-8-]}
<MI 278bc ADD.L (A6-0x8),D1> {[-8-]}
<MI 278be CMP.L (A6-0xc),D1> {[-8-]}
<MI 278c0 BGE 0x278e8> {[-8-]}
<POP 278c2-278d8 Naked> Σ-8 ↓ →0x278de
<POP 278c2-278c4 StackAdj> Δ-2 {[-10-]}
<MI 278c4 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']}
<MI 278c6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 278c8 MOVE.L D1,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<Call 0x278ca 0x26e9a> {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<POP 278ce-278d0 StackAdj> Δ+12 {[-10-]}
<MI 278d0 MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 278d2 CMPI.B #0x2f,D7> {[-8-]}
<MI 278d6 BEQ 0x278de> {[-8-]}
<POP 278d8-278de Naked> Σ-8 ↓ →0x278e6
<MI 278d8 CMPI.B #0x3d,D7> {[-8-]}
<MI 278dc BNE 0x278e6> {[-8-]}
<POP 278de-278e6 Naked> Σ-8 Δ+8 →0x278f4 ←0x278c2 ←0x278e8
<MI 278de MOVE.L D0,(A6+0x14)> {[-8-]}
<POP 278e2-278e4 StackAdj> Δ+8 {}
<MI 278e4 BRA 0x278f4> {}
<POP 278e6-278e8 Naked> Σ-8 →0x278ea ←0x278d8
<MI 278e6 BRA 0x278ea> {[-8-]}
<POP 278e8-278ea Naked> Σ-8 →0x278de ←0x278b8
<MI 278e8 BRA 0x278de> {[-8-]}
<POP 278ea-278f2 Naked> Σ-8 Δ+4 ↓ →0x27854 ←0x278b4 ←0x278e6
<MI 278ea MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 278ec ADDQ.L #0x1,D0> {[-4-]}
<MI 278ee BVC 0x27854> {[-4-]}
<POP 278f2-278f4 Naked> Σ-4 Δ+4 ↓ ←0x27854
<POP 278f2-278f4 StackAdj> Δ+4 {}
<POP 278f4-278fc Epilogue> Σ0 ←0x278de
@ 278fc
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(rw)>
<LVAR -0x01c 4(rw)>
<POP 278fc-279e4 Body> Δ-12
<POP 278fc-27912 Prologue> Σ0 ↓
<POP 27912-27922 RegCacheLoad> Σ0 ↓
<POP 27922-27948 Naked> Σ0 ↓ →0x279dc
<MI 27922 MOVEA.L (A6+0x8),A0> {}
<MI 27926 CLR.B (A0)> {}
<MI 27928 MOVEA.L (A6+0xc),A1> {}
<MI 2792c MOVE.L #0x01,(A1)> {}
<POP 2792e-27930 StackAdj> Δ-8 {[-8-]}
<MI 27930 MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 27934 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<Call 0x27938 0x252e6> {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<POP 2793c-2793e StackAdj> Δ+8 {[-8-]}
<MI 2793e MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-4-]}
<MI 27940 MOVE.L (A7)+,(A6-0x18)> Δ+4 {}
<MI 27942 TST.L (A6-0x1c)> {}
<MI 27944 BEQ 0x279dc> {}
<POP 27948-2795e Naked> Σ0 ↓ →0x279dc
<POP 27948-2794a StackAdj> Δ-4 {[-4-]}
<MI 2794a MOVE.L (A6-0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']}
<MI 2794c MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 2794e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<Call 0x27952 0x27804> {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<POP 27956-27958 StackAdj> Δ+12 {[-4-]}
<MI 27958 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 2795c BEQ 0x279dc> {}
<POP 2795e-2797e Naked> Σ0 Δ-4 ↓
<MI 2795e MOVE.B #0x01,(A0)> {}
<MI 27960 PEA.L (A1)> Δ-4 {[4, '^(A1)']}
<Call 0x27962 0x102b8> {[4, '^(A1)']}
NewString(VAR a : String)
<MI 27968 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']}
<MI 2796a MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x2796c 0x252ae> {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 27970-27972 StackAdj> Δ+8 {[4, '^(A1)']}
<MI 27972 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 27974 MOVE.L (A6-0x14),D0> {}
<MI 27978 ADDQ.L #0x1,D0> {}
<MI 2797a MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 2797c MOVE.L D0,D5> {[4, '(A6-0x8)']}
<POP 2797e-27982 Naked> Σ-4 ↓ →0x279da ←0x279d6
<MI 2797e CMP.L (A7),D5> {[-4-]}
<MI 27980 BGT 0x279da> {[-4-]}
<POP 27982-27998 Naked> Σ-4 ↓ →0x279d6
<POP 27982-27984 StackAdj> Δ-2 {[-6-]}
<MI 27984 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']}
<MI 27986 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 27988 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<Call 0x2798a 0x26e9a> {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<POP 2798e-27990 StackAdj> Δ+12 {[-6-]}
<MI 27990 MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 27992 CMPI.B #0x3d,D0> {[-4-]}
<MI 27996 BNE 0x279d6> {[-4-]}
<POP 27998-279a0 Naked> Σ-4 Δ-4 ↓
<MI 27998 MOVE.L D5,D0> {[-4-]}
<MI 2799a ADDQ.L #0x1,D0> {[-4-]}
<MI 2799c MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 2799e MOVE.L D0,D7> {[-4-]|[4, '(A6-0x8)']}
<POP 279a0-279a4 Naked> Σ-8 ↓ →0x279d2 ←0x279be
<MI 279a0 CMP.L (A7),D7> {[-8-]}
<MI 279a2 BGT 0x279d2> {[-8-]}
<POP 279a4-279ba Naked> Σ-8 ↓ →0x279be
<POP 279a4-279a6 StackAdj> Δ-2 {[-10-]}
<MI 279a6 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']}
<MI 279a8 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 279aa MOVE.L D7,-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<Call 0x279ac 0x26e9a> {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<POP 279b0-279b2 StackAdj> Δ+12 {[-10-]}
<MI 279b2 MOVE.B (A7)+,D6> Δ+2 {[-8-]}
<MI 279b4 CMPI.B #0x2f,D6> {[-8-]}
<MI 279b8 BNE 0x279be> {[-8-]}
<POP 279ba-279be Naked> Σ-8 Δ+8 →0x279dc
<POP 279ba-279bc StackAdj> Δ+8 {}
<MI 279bc BRA 0x279dc> {}
<POP 279be-279d2 Naked> Σ-8 ↓ →0x279a0 ←0x279a4
<MI 279be MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 279c2 MOVE.L (A0),-(A7)> Δ-4 {[-8-]|[4, '(A0)']}
<MI 279c4 MOVE.B D6,-(A7)> Δ-2 {[-8-]|[4, '(A0)']|[2, 'D6']}
<Call 0x279c6 0x102c0> {[-8-]|[4, '(A0)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 279cc-279ce StackAdj> Δ+6 {[-8-]}
<MI 279ce ADDQ.L #0x1,D7> {[-8-]}
<MI 279d0 BVC 0x279a0> {[-8-]}
<POP 279d2-279d6 Naked> Σ-8 Δ+8 →0x279dc ←0x279a0
<POP 279d2-279d4 StackAdj> Δ+8 {}
<MI 279d4 BRA 0x279dc> {}
<POP 279d6-279da Naked> Σ-4 ↓ →0x2797e ←0x27982
<MI 279d6 ADDQ.L #0x1,D5> {[-4-]}
<MI 279d8 BVC 0x2797e> {[-4-]}
<POP 279da-279dc Naked> Σ-4 Δ+4 ↓ ←0x2797e
<POP 279da-279dc StackAdj> Δ+4 {}
<POP 279dc-279e4 Epilogue> Σ0 ←0x27922 ←0x27948 ←0x279ba ←0x279d2
@ 279e4
<LVAR 0x00c @ 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 1(r)>
<POP 279e4-27a82 Body>
<POP 279e4-279fa Prologue> Σ0 ↓
<POP 279fa-27a08 RegCacheLoad> Σ0 ↓
<POP 27a08-27a20 Naked> Σ0 ↓ →0x27a70
<MI 27a08 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 27a0a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Pointer.fp 0x27a0c <LVAR -0x010 @ 1(r)>> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<Call 0x27a10 0x23e70> {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<POP 27a16-27a1a StackAdj> Δ+12 {}
<MI 27a1a TST.B (A6-0x10)> {}
<MI 27a1e BNE 0x27a70> {}
<POP 27a20-27a3a Naked> Σ0 ↓
<MI 27a20 MOVE.L 0x3d1f6,D7> {}
<POP 27a22-27a24 StackAdj> Δ-4 {[-4-]}
<MI 27a24 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x27a26 0x24aa8> {[-4-]|[4, '(A6+0x8)']}
<POP 27a2a-27a2c StackAdj> Δ+4 {[-4-]}
<MI 27a2c MOVE.L (A7)+,D6> Δ+4 {}
<MI 27a2e MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 27a30 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x27a32 0x26d5e> {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 27a36-27a38 StackAdj> Δ+8 {}
<MI 27a38 MOVE.L 0x3d1f6,D5> {}
<POP 27a3a-27a58 Naked> Σ0 ↓ →0x27a64 ←0x27a64
<MI 27a3a MOVE.L D7,D0> {}
<MI 27a3c SUBQ.L #0x1,D0> {}
<POP 0x27a3e LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 27a48 LEA.L 0x3b1ee,A0> {}
<MI 27a4e MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 27a52 CMPI.B #0x25,D0> {}
<MI 27a56 BNE 0x27a64> {}
<POP 27a58-27a64 Naked> Σ0 ↓
<MI 27a58 MOVE.L D7,0x3d1f6> {}
<MI 27a5a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 27a5c MOVE.L D6,-(A7)> Δ-4 {[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x27a5e 0x275bc> {[4, '(A6+0x8)']|[4, 'D6']}
<POP 27a62-27a64 StackAdj> Δ+8 {}
<POP 27a64-27a6e Naked> Σ0 ↓ →0x27a3a ←0x27a3a
<MI 27a64 ADDQ.L #0x1,D7> {}
<MI 27a66 CMP.L 0x3d1fa,D7> {}
<MI 27a6c BLE 0x27a3a> {}
<POP 27a6e-27a70 Naked> Σ0 ↓
<MI 27a6e MOVE.L D5,0x3d1f6> {}
<POP 27a70-27a7a Naked> Σ0 ↓ ←0x27a08
<Pointer.fp 0x27a70 <LVAR 0x00c @ 4(r)>> Δ-4 {[@@12]}
<Call 0x27a72 0x102bc> {[@@12]}
FreeString(VAR a : String)
<POP 27a78-27a7a StackAdj> Δ+4 {}
<POP 27a7a-27a82 Epilogue> Σ0
@ 27a82
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00b 1(w)>
<LVAR -0x00c @ 1(r)>
<POP 27a82-27d94 Body> Δ+148
<POP 27a82-27a98 Prologue> Σ0 ↓
<POP 27a98-27aa6 RegCacheLoad> Σ0 ↓
<POP 27aa6-27acc Naked> Σ0 ↓ →0x27d76 ←0x27d76
<MI 27aa6 MOVE.L 0x3d1f6,D7> {}
<Pointer.fp 0x27aa8 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Pointer.fp 0x27aaa <LVAR -0x00c @ 1(r)>> Δ-4 {[@@-6]|[@@-12]}
<Call 0x27aae 0x249fc> {[@@-6]|[@@-12]}
<POP 27ab2-27ab4 StackAdj> Δ+8 {}
<MI 27ab4 MOVE.L 0x3d1f6,D6> {}
<POP 27ab6-27ab8 StackAdj> Δ-4 {[-4-]}
<MI 27ab8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Call 0x27aba 0x24aa8> {[-4-]|[4, '(A6-0x6)']}
<POP 27abe-27ac0 StackAdj> Δ+4 {[-4-]}
<MI 27ac0 MOVE.L (A7)+,D0> Δ+4 {}
<MI 27ac2 CMPI.L #0xffffffff,D0> {}
<MI 27ac8 BEQ 0x27d76> {}
<POP 27acc-27af6 Naked> Σ0 ↓ →0x27b04
<POP 27acc-27ace StackAdj> Δ-4 {[-4-]}
<MI 27ace MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Const 0x27ad0 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x6)']|[##0]}
<Call 0x27ad4 0x253c4> {[-4-]|[4, '(A6-0x6)']|[##0]}
<POP 27ad8-27ada StackAdj> Δ+8 {[-4-]}
<MI 27ada MOVE.L (A7),(A6-0xa)> {[-4-]}
<POP 27adc-27ade StackAdj> Δ+2 {[-2-]}
<MI 27ade MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']}
<Call 0x27ae0 0x26ca6> {[-2-]|[4, '(A6-0xa)']}
<POP 27ae4-27ae6 StackAdj> Δ+4 {[-2-]}
<MI 27ae6 MOVE.B (A7)+,D0> Δ+2 {}
<MI 27ae8 EXTB.W D0> {}
<POP 0x27aea LimitCheck 0x0 ≤ D0 ≤ 0x2b> {}
<MI 27aee MOVE.B D0,(A6-0xb)> {}
<MI 27af2 TST.B D0> {}
<MI 27af4 BNE 0x27b04> {}
<POP 27af6-27b04 Naked> Σ0 →0x27d6e
<MI 27af6 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 27af8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<Call 0x27afa 0x279e4> {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<POP 27afe-27b00 StackAdj> Δ+8 {}
<MI 27b00 BRA 0x27d6e> {}
<POP 27b04-27b3a Naked> Σ0 ↓ →0x27b66 ←0x27acc
<Pointer.fp 0x27b04 <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x27b06 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 27b0c-27b0e StackAdj> Δ+4 {}
<MI 27b0e MOVE.B D0,D1> {}
<MI 27b10 EXTB.W D1> {}
<POP 0x27b12 LimitCheck 0x0 ≤ D1 ≤ 0x2b> {}
<MI 27b16 LEA.L 0x2459e,A0> {}
<MI 27b1a MOVE.W D1,D0> {}
<MI 27b1c EXTW.L D0> {}
<MI 27b1e MOVE.L D0,D2> {}
<MI 27b20 ROR.L #0x1,D2> {}
<MI 27b22 ADDA.W D2,A0> {}
<MI 27b24 SWAP.W D2> {}
<MI 27b26 ROL.W #0x3,D2> {}
<MI 27b28 CLR.L D3> {}
<MI 27b2a MOVE.B (A0),D3> {}
<MI 27b2c LSL.B D2,D3> {}
<MI 27b2e LSR.B #0x4,D3> {}
<MI 27b30 MOVE.L D3,D5> {}
<MI 27b32 CMPI.L #0x0000000f,D5> {}
<MI 27b38 BEQ 0x27b66> {}
<POP 27b3a-27b66 Naked> Σ0 ↓
<MI 27b3a MOVE.L D0,D4> {}
<MI 27b3c MOVEQ.L #0x0a,D3> {}
<Call 0x27b3e 0x1028c> {}
?muls_d3_d4
<MI 27b44 LEA.L 0x243d0,A0> {}
<Blob 0x27b48 [10] (A0+D4.W)> Δ-10 {[«10»]}
<MI 27b5a MOVE.L (A6-0x6),-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']}
<MI 27b5c MOVE.L D5,-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<Call 0x27b5e 0x24ade> {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<POP 27b62-27b66 StackAdj> Δ+18 {}
<POP 27b66-27b7a Naked> Σ0 →0x27bd0 →0x27bdc →0x27bee →0x27bfc →0x27d60 →0x27c04 →0x27c08 →0x27c10 →0x27c18 →0x27c20 →0x27c28 →0x27c30 →0x27c38 →0x27c40 →0x27c48 →0x27c50 →0x27c5a →0x27c64 →0x27c6e →0x27c78 →0x27c82 →0x27c8c →0x27c96 →0x27ca0 →0x27caa →0x27cb4 →0x27cbe →0x27cc8 →0x27cd2 →0x27cdc →0x27ce6 →0x27cf0 →0x27cfa →0x27d04 →0x27d0e →0x27d18 →0x27d22 →0x27d2c →0x27d32 →0x27d3c →0x27d46 →0x27d50 →0x27d56 ←0x27b04
<MI 27b66 SUBQ.W #0x1,D1> {}
<POP 0x27b68 LimitCheck 0x0 ≤ D1 ≤ 0x2a> {}
<MI 27b70 ADD.W D1,D1> {}
<MI 27b72 SWITCH D1.W> {}
<POP 27bd0-27bd6 Naked> Σ0 Δ-4 ↓ ←0x27b66
<MI 27bd0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27bd2 0x2554c> {[4, '(A6-0x6)']}
<POP 27bd6-27bdc Naked> Σ-4 Δ+4 →0x27d6e ←0x27bee ←0x27bfc ←0x27c08 ←0x27c10 ←0x27c18 ←0x27c20 ←0x27c28 ←0x27c30 ←0x27c38 ←0x27c40 ←0x27c48 ←0x27c50 ←0x27c5a ←0x27c64 ←0x27c6e ←0x27c78 ←0x27c82 ←0x27c8c ←0x27c96 ←0x27ca0 ←0x27caa ←0x27cb4 ←0x27cbe ←0x27cc8 ←0x27cd2 ←0x27cdc ←0x27ce6 ←0x27cf0 ←0x27cfa ←0x27d04 ←0x27d0e ←0x27d18 ←0x27d22 ←0x27d32 ←0x27d3c ←0x27d46 ←0x27d56
<POP 27bd6-27bd8 StackAdj> Δ+4 {}
<MI 27bd8 BRA 0x27d6e> {}
<POP 27bdc-27bee Naked> Σ0 →0x27d6e ←0x27b66
<MI 27bdc CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x27bde 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x27be2 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 27be8-27bea StackAdj> Δ+6 {}
<MI 27bea BRA 0x27d6e> {}
<POP 27bee-27bfc Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<POP 27bee-27bf0 StackAdj> Δ-4 {[-4-]}
<Call 0x27bf0 0x102ac> {[-4-]}
FSCALL_102ac
<Call 0x27bf6 0x25522> {[-4-]}
<MI 27bfa BRA 0x27bd6> {[-4-]}
<POP 27bfc-27c04 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27bfc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27bfe 0x25726> {[4, '(A6-0x6)']}
<MI 27c02 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c04-27c08 Naked> Σ0 →0x27d6e ←0x27b66
<MI 27c04 BRA 0x27d6e> {}
<POP 27c08-27c10 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c08 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c0a 0x25a4c> {[4, '(A6-0x6)']}
<MI 27c0e BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c10-27c18 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c10 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c12 0x25bb8> {[4, '(A6-0x6)']}
<MI 27c16 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c18-27c20 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c18 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c1a 0x25ca6> {[4, '(A6-0x6)']}
<MI 27c1e BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c20-27c28 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c20 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c22 0x2609a> {[4, '(A6-0x6)']}
<MI 27c26 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c28-27c30 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c28 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c2a 0x26112> {[4, '(A6-0x6)']}
<MI 27c2e BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c30-27c38 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c30 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c32 0x2618a> {[4, '(A6-0x6)']}
<MI 27c36 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c38-27c40 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c38 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c3a 0x261b6> {[4, '(A6-0x6)']}
<MI 27c3e BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c40-27c48 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c40 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c42 0x262b6> {[4, '(A6-0x6)']}
<MI 27c46 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c48-27c50 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c48 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c4a 0x2639c> {[4, '(A6-0x6)']}
<MI 27c4e BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c50-27c5a Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c50 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c52 0x263c8> {[4, '(A6-0x6)']}
<MI 27c56 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c5a-27c64 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c5a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c5c 0x26414> {[4, '(A6-0x6)']}
<MI 27c60 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c64-27c6e Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c64 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c66 0x26460> {[4, '(A6-0x6)']}
<MI 27c6a BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c6e-27c78 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c6e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c70 0x264ac> {[4, '(A6-0x6)']}
<MI 27c74 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c78-27c82 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c78 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c7a 0x264f8> {[4, '(A6-0x6)']}
<MI 27c7e BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c82-27c8c Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c82 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c84 0x26544> {[4, '(A6-0x6)']}
<MI 27c88 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c8c-27c96 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c8c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c8e 0x26590> {[4, '(A6-0x6)']}
<MI 27c92 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27c96-27ca0 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27c96 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27c98 0x265da> {[4, '(A6-0x6)']}
<MI 27c9c BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27ca0-27caa Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27ca0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27ca2 0x26624> {[4, '(A6-0x6)']}
<MI 27ca6 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27caa-27cb4 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27caa MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27cac 0x2666e> {[4, '(A6-0x6)']}
<MI 27cb0 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27cb4-27cbe Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27cb4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27cb6 0x266b8> {[4, '(A6-0x6)']}
<MI 27cba BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27cbe-27cc8 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27cbe MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27cc0 0x26702> {[4, '(A6-0x6)']}
<MI 27cc4 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27cc8-27cd2 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27cc8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27cca 0x2674c> {[4, '(A6-0x6)']}
<MI 27cce BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27cd2-27cdc Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27cd2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27cd4 0x26796> {[4, '(A6-0x6)']}
<MI 27cd8 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27cdc-27ce6 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27cdc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27cde 0x267e0> {[4, '(A6-0x6)']}
<MI 27ce2 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27ce6-27cf0 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27ce6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27ce8 0x26824> {[4, '(A6-0x6)']}
<MI 27cec BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27cf0-27cfa Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27cf0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27cf2 0x2686a> {[4, '(A6-0x6)']}
<MI 27cf6 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27cfa-27d04 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27cfa MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27cfc 0x268a0> {[4, '(A6-0x6)']}
<MI 27d00 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27d04-27d0e Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27d04 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27d06 0x26930> {[4, '(A6-0x6)']}
<MI 27d0a BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27d0e-27d18 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27d0e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27d10 0x269a2> {[4, '(A6-0x6)']}
<MI 27d14 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27d18-27d22 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27d18 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27d1a 0x25d08> {[4, '(A6-0x6)']}
<MI 27d1e BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27d22-27d2c Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27d22 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27d24 0x25d72> {[4, '(A6-0x6)']}
<MI 27d28 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27d2c-27d32 Naked> Σ0 →0x27d6e ←0x27b66
<Call 0x27d2c 0x25d44> {}
<MI 27d30 BRA 0x27d6e> {}
<POP 27d32-27d3c Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27d32 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27d34 0x26a14> {[4, '(A6-0x6)']}
<MI 27d38 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27d3c-27d46 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27d3c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27d3e 0x26a96> {[4, '(A6-0x6)']}
<MI 27d42 BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27d46-27d50 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27d46 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27d48 0x26b16> {[4, '(A6-0x6)']}
<MI 27d4c BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27d50-27d56 Naked> Σ0 →0x27d6e ←0x27b66
<Call 0x27d50 0x26bda> {}
<MI 27d54 BRA 0x27d6e> {}
<POP 27d56-27d60 Naked> Σ0 Δ-4 →0x27bd6 ←0x27b66
<MI 27d56 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27d58 0x26bfa> {[4, '(A6-0x6)']}
<MI 27d5c BRA 0x27bd6> {[4, '(A6-0x6)']}
<POP 27d60-27d6e Naked> Σ0 ←0x27b66
<POP 27d60-27d6e Bailout> {}
<MI 27d60 MOVEA.L (A5+0x8),A7>
<MI 27d64 MOVEA.W #0x0,A6>
<MI 27d68 JMP 0x27f78>
<POP 27d6e-27d76 Naked> Σ0 ↓ ←0x27af6 ←0x27bd6 ←0x27bdc ←0x27c04 ←0x27d2c ←0x27d50
<MI 27d6e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x27d70 0x2465a> {[4, '(A6-0x6)']}
<POP 27d74-27d76 StackAdj> Δ+4 {}
<POP 27d76-27d8c Naked> Σ0 ↓ →0x27aa6 ←0x27aa6
<MI 27d76 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 27d78 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']|[4, 'D6']}
<MI 27d7a SUB.L D7,(A7)> {[4, 'D6']|[-4-]}
<Call 0x27d7c 0x24bf0> {[4, 'D6']|[-4-]}
<POP 27d80-27d82 StackAdj> Δ+8 {}
<MI 27d82 MOVE.L D7,0x3d1f6> {}
<MI 27d84 TST.B (A6-0xc)> {}
<MI 27d88 BEQ 0x27aa6> {}
<POP 27d8c-27d94 Epilogue> Σ0
@ 27d94
START
<POP 27d94--0001 Body>
<POP 27d94-27d9e Prologue> Σ0
<POP 27d9e-27dce Naked> Σ0 ↓ →0x27e36
<MI 27d9e MOVE.L #0x1,0x3d220> {}
<POP 27da8-27daa StackAdj> Δ-4 {[-4-]}
<Call 0x27daa 0x103c4> {[-4-]}
GetArgv() : String
<MI 27db0 MOVE.L (A7)+,0x3d224> Δ+4 {}
<Const 0x27db6 0x3d1fe.4> Δ-4 {[##250366]}
<Call 0x27dbc 0x23fa6> {[##250366]}
<POP 27dc2-27dc4 StackAdj> Δ+4 {}
<MI 27dc4 MOVEA.L 0x3d224,A0> {}
<MI 27dca TST.W (A0)> {}
<MI 27dcc BLE 0x27e36> {}
<POP 27dce-27e36 Naked> Σ0 →0x27e70
<Blob 0x27dce [8] @> Δ-8 {[«8""»]}
<Blob 0x27dde [8] @> Δ-8 {[«8""»]|[«8""»]}
<POP 27dee-27df0 StackAdj> Δ-8 {[«8""»]|[«8""»]|[-8-]}
<Lit 0x27df0 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<POP 27e02-27e04 StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[-4-]}
<POP 27e04-27e05 StackAdj> Δ+4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<Blob 0x27e05 [4] 0x3d224> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]}
<POP 27e0a-27e0c StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[-4-]}
<Lit 0x27e0c 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
<Call 0x27e20 0x102d4> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
StringCat3(a, b, c : String) : String
<POP 27e26-27e2a StackAdj> Δ+12 {[«8""»]|[«8""»]|[-4-]}
<MI 27e2a MOVE.L (A7)+,0x3d224> Δ+4 {[«8""»]|[«8""»]}
<POP 27e30-27e34 StackAdj> Δ+16 {}
<MI 27e34 BRA 0x27e70> {}
<POP 27e36-27e70 Naked> Σ0 ↓ ←0x27d9e
<Const 0x27e36 0x3d224.4> Δ-4 {[##250404]}
<Call 0x27e3c 0x102bc> {[##250404]}
FreeString(VAR a : String)
<POP 27e42-27e43 StackAdj> Δ+4 ↓ {}
<Blob 0x27e43 [8] @> Δ-8 {[«8""»]}
<POP 27e52-27e54 StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x27e54 7> {[«8""»]|[$$[INIT];]}
<MI 27e68 MOVE.L (A7)+,0x3d224> Δ+4 {[«8""»]}
<POP 27e6e-27e70 StackAdj> Δ+8 {}
<POP 27e70-27e78 Naked> Σ0 ↓ ←0x27dce
<MI 27e70 MOVE.B #0x01,0x3d22e> {}
<POP 27e78-27e80 Naked> Σ0 ↓ →0x27e8a ←0x27f86
<MI 27e78 TST.B 0x3d22e> {}
<MI 27e7e BEQ 0x27e8a> {}
<POP 27e80-27e8a Naked> Σ0 →0x27f38
<MI 27e80 CLR.B 0x3d22e> {}
<MI 27e86 BRA 0x27f38> {}
<POP 27e8a-27f38 Naked> Σ0 ↓ ←0x27e78
<Blob 0x27e8a [10] 0x3d208> Δ-10 {[«10»]}
<Blob 0x27e98 [2] @> Δ-2 {[«10»]|[«2""»]}
<POP 27e9c-27ea0 StackAdj> Δ-12 {[«10»]|[«2""»]|[-12-]}
<Lit 0x27ea0> {[«10»]|[«2""»]|[-8-]|[$$…]}
<Pointer.sp 0x27ea0 14> Δ-4
<Const 0x27ea4 0x1.2> Δ-2
<Const 0x27ea8 0xa.2> Δ-2
<Call 0x27eac 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 27eb2-27eb4 StackAdj> Δ+8
<POP 27eb2-27eb4 StackAdj> Δ-4 {[«10»]|[«2""»]|[-8-]|[$$…]|[-4-]}
<Lit 0x27eb4 2> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
<Call 0x27ec8 0x102d0> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
StringCat2(a, b : String) : String
<POP 27ece-27ed0 StackAdj> Δ+8 {[«10»]|[«2""»]|[-8-]}
<Call 0x27ed0 0x103e4> {[«10»]|[«2""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 27ed6-27ed8 StackAdj> Δ+4 {[«10»]|[«2""»]|[-4-]}
<MI 27ed8 MOVE.L (A7)+,0x3d22a> Δ+4 {[«10»]|[«2""»]}
<POP 27ede-27ee0 StackAdj> Δ+8 {[-4-]}
<POP 27ee0-27ee1 StackAdj> Δ+4 {}
<Blob 0x27ee1 [4] 0x3d22a> Δ-4 {[«4»]}
<Call 0x27ee6 0x248f4> {[«4»]}
<POP 27eea-27eec StackAdj> Δ+2 {[-2-]}
<POP 27eec-27eed StackAdj> Δ+2 {}
<Blob 0x27eed [2] @> Δ-2 {[«2""»]}
<Blob 0x27ef0 [2] @> Δ-2 {[«2""»]|[«2""»]}
<POP 27ef4-27ef6 StackAdj> Δ-8 {[«2""»]|[«2""»]|[-8-]}
<Lit 0x27ef6 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<POP 27f08-27f0a StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[-4-]}
<POP 27f0a-27f0b StackAdj> Δ+4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<Blob 0x27f0b [4] 0x3d22a> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]}
<POP 27f10-27f12 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[-4-]}
<Lit 0x27f12 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
<Call 0x27f26 0x102d4> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
StringCat3(a, b, c : String) : String
<POP 27f2c-27f30 StackAdj> Δ+12 {[«2""»]|[«2""»]|[-4-]}
<MI 27f30 MOVE.L (A7)+,0x3d224> Δ+4 {[«2""»]|[«2""»]}
<POP 27f36-27f38 StackAdj> Δ+4 {}
<POP 27f38-27f64 Naked> Σ0 ↓ ←0x27e80
<MI 27f38 CLR.B 0x3d228> {}
<MI 27f3e MOVE.L #0x1,0x3d1f6> {}
<MI 27f48 CLR.L 0x3d1fa> {}
<POP 27f4e-27f50 StackAdj> Δ-4 {[-4-]}
<Blob 0x27f50 [4] 0x3d224> Δ-4 {[-4-]|[«4»]}
<Call 0x27f56 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 27f5c-27f5e StackAdj> Δ+4 {[-4-]}
<Call 0x27f5e 0x25466> {[-4-]}
<POP 27f62-27f64 StackAdj> Δ+4 {}
<POP 27f64-27f72 Naked> Σ0 ↓ →0x27f78 ←0x27f72
<MI 27f64 MOVE.L 0x3d1f6,D0> {}
<MI 27f6a CMP.L 0x3d1fa,D0> {}
<MI 27f70 BGT 0x27f78> {}
<POP 27f72-27f78 Naked> Σ0 →0x27f64
<Call 0x27f72 0x27a82> {}
<MI 27f76 BRA 0x27f64> {}
<POP 27f78-27f86 Naked> Σ0 ↓ ←0x27f64
<Const 0x27f78 0x3d224.4> Δ-4 {[##250404]}
<Call 0x27f7e 0x102bc> {[##250404]}
FreeString(VAR a : String)
<POP 27f84-27f86 StackAdj> Δ+4 {}
<POP 27f86-27f8a Naked> Σ0 →0x27e78
<MI 27f86 BRA 0x27e78> {}
@ 27f9e
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 27f9e-28006 Body>
<POP 27f9e-27fb4 Prologue> Σ0 ↓
<POP 27fb4-27ffe Naked> Σ0 ↓
<Blob 0x27fb4 [14] @> Δ-14 {[«14""»]}
<Const 0x27fc0 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 27fc4-27fc6 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x27fc6 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 27fd8-27fda StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 27fda MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 27fde EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 27fe0 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 27fe2 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x27fe4 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 27fea-27fec StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x27fec 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 27ff2-27ff4 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x27ff4 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 27ffa-27ffe StackAdj> Δ+20 {}
<POP 27ffe-28006 Epilogue> Σ0
@ 2805a
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 2805a-28196 Body>
<POP 2805a-28070 Prologue> Σ0 ↓
<POP 28070-28086 RegCacheLoad> Σ0 ↓
<POP 28086-280e6 Naked> Σ0 ↓ →0x2812e
<Call 0x28086 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2808c [18] @> Δ-18 {[«18""»]}
<POP 28098-2809a StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2809a 18> {[«18""»]|[$$Experiment error :]}
<Call 0x280a6 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 280a8-280a9 StackAdj> Δ+22 ↓ {}
<Blob 0x280a9 [14] @> Δ-14 {[«14""»]}
<POP 280b8-280ba StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x280ba 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 280c4-280c6 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 280c6 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x280ca 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 280d0-280d2 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x280d2 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 280d8-280da StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x280da 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 280dc-280de StackAdj> Δ+18 {}
<MI 280de MOVEA.L (A6+0xa),A0> {}
<MI 280e2 CMPA.W #0x01,A0> {}
<MI 280e4 BEQ 0x2812e> {}
<POP 280e6-2812e Naked> Σ0 ↓
<Blob 0x280e6 [14] @> Δ-14 {[«14""»]}
<Blob 0x280f6 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 28106-28108 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x28108 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 28112-28114 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x28114> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x28114 12> Δ-4
<Const 0x28118 0x1.2> Δ-2
<Const 0x2811a 0x1e.2> Δ-2
<Call 0x2811c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2811e-28120 StackAdj> Δ+8
<Call 0x28120 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 28126-28128 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x28128 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2812a-2812e StackAdj> Δ+48 {}
<POP 2812e-2818e Naked> Σ0 ↓ ←0x28086
<Blob 0x2812e [14] @> Δ-14 {[«14""»]}
<POP 2813e-28140 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x28140 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2814a-2814c StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 2814c MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x28150 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 28156-28158 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x28158 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2815e-28160 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x28160 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 28162-28163 StackAdj> Δ+18 ↓ {}
<Blob 0x28163 [24] @> Δ-24 {[«24""»]}
<Const 0x28172 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 28176-28178 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x28178 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x28186 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 2818c-2818e StackAdj> Δ+30 {}
<POP 2818e-28196 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.29b1cab56bcfb765 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 7d 94 | } | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 03 d2 42 | B | .PTR 0x3d242 00020010 code.end: 00020010 00 02 81 96 | | .PTR 0x28196 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 7f 9e | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 80 5a | Z | .CODE EXP_FAIL 00020020 00 00 00 00 | | .CONST 0x00000000 00020024 exp_init_done: 00020024 00 | | .CONST 0x00 00020025 00 | | .CONST 0x00 00020026 00 00 | | .CONST 0x0000 00020028 00 00 | | .CONST 0x0000 0002002a 00 00 | | .XXX[0x2] 0002002c 00 00 | | .CONST 0x0000 0002002e 00 00 | | .CONST 0x0000 00020030 00 00 | | .CONST 0x0000 00020032 00 00 00 00 00 00 | | .XXX[0x6] 00020038 00 00 00 00 00 00 00 00 | | .BLANK 00[0xb0] 000200e8 00 00 00 00 | | .XXX[0x4] 000200ec 00 00 00 00 | | .PTR 0x0 000200f0 is_open_ERROR_LOG: 000200f0 00 | | .CONST 0x0 000200f1 write_error_ERROR_LOG: 000200f1 00 | | .CONST 0x0 000200f2 00 00 00 00 | | .CONST 0x00000000 000200f6 00 00 00 00 | | .CONST 0x00000000 000200fa 00 | | .CONST 0x00 000200fb 00 | | .CONST 0x00 000200fc file_ERROR_LOG: 000200fc 00 00 00 00 | | .CONST 0x00000000 00020100 00 00 00 00 | | .CONST 0x00000000 00020104 00 00 | | .CONST 0x0000 00020106 00 00 | | .CONST 0x0000 00020108 somekindoffsflag: 00020108 00 | | .CONST 0x00 00020109 00 | | .CONST 0x00 0002010a 40 28 23 29 44 49 |@(#)DI | .XXX[0x6] 00020110 53 4b 5f 4d 49 53 43 2c |SK_MISC,| .XXX[0x20] 00020118 31 2e 30 30 2c 39 32 2f |1.00,92/| 00020120 30 33 2f 32 36 2c 31 31 |03/26,11| 00020128 3a 34 36 3a 30 30 5c 20 |:46:00\ | 00020130 20 20 20 20 | | .TXT ' ' 00020134 20 20 20 5f | _ | .TXT ' _' 00020138 20 43 53 31 3d 20 20 43 | CS1= C| .XXX[0x30] 00020140 53 32 3d 20 20 44 53 3d |S2= DS=| 00020148 20 20 20 45 52 31 3d 20 | ER1= | 00020150 20 45 52 32 3d 20 20 45 | ER2= E| 00020158 43 31 3d 20 20 45 43 32 |C1= EC2| 00020160 3d 20 20 44 43 3d 20 20 |= DC= | 00020168 20 44 41 3d 20 20 | DA= | .XXX[0x6] 0002016e 2c 5f |,_ | .TXT ',_' 00020170 53 70 65 63 69 61 6c 20 |Special | .TXT 'Special condition ' 00020182 54 72 61 6e 73 66 65 72 |Transfer| .TXT 'Transfer error' 00020190 44 61 74 61 20 6c 61 74 |Data lat| .TXT 'Data late ' 0002019a 57 72 69 74 65 20 63 68 |Write ch| .TXT 'Write check error ' 000201ac 55 4e 49 42 55 53 20 70 |UNIBUS p| .TXT 'UNIBUS parity error ' 000201c0 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent drive' 000201d2 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent memory ' 000201e6 50 72 6f 67 72 61 6d 20 |Program | .TXT 'Program error ' 000201f4 4d 69 78 65 64 20 74 72 |Mixed tr| .TXT 'Mixed transfer' 00020202 49 6e 70 75 74 20 6e 6f |Input no| .TXT 'Input not ready ' 00020212 42 75 73 20 61 64 64 72 |Bus addr| .TXT 'Bus address inhibit ' 00020226 41 74 74 65 |Atte | .TXT 'Atte' 0002022a 6e 74 69 6f |ntio | .TXT 'ntio' 0002022e 6e 20 41 63 |n Ac | .TXT 'n Ac' 00020232 74 69 76 65 |tive | .TXT 'tive' 00020236 45 72 72 6f 72 20 |Error | .TXT 'Error ' 0002023c 50 6f 73 69 74 69 6f 6e |Position| .TXT 'Positioning in progress ' 00020254 4d 65 64 69 75 6d 20 6f |Medium o| .TXT 'Medium on-line' 00020262 57 72 69 74 65 20 6c 6f |Write lo| .TXT 'Write lock' 0002026c 4c 61 73 74 20 73 65 63 |Last sec| .TXT 'Last sector transfered' 00020282 50 72 6f 67 |Prog | .TXT 'Prog' 00020286 72 61 6d 6d |ramm | .TXT 'ramm' 0002028a 61 62 6c 65 |able | .TXT 'able' 0002028e 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not present ' 000202a0 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not ready ' 000202b0 56 6f 6c 75 |Volu | .TXT 'Volu' 000202b4 6d 65 20 6e |me n | .TXT 'me n' 000202b8 6f 74 20 76 |ot v | .TXT 'ot v' 000202bc 61 6c 69 64 |alid | .TXT 'alid' 000202c0 48 65 61 64 |Head | .TXT 'Head' 000202c4 73 20 61 72 |s ar | .TXT 's ar' 000202c8 65 20 6f 66 |e of | .TXT 'e of' 000202cc 66 73 65 74 |fset | .TXT 'fset' 000202d0 44 61 74 61 20 63 68 65 |Data che| .TXT 'Data check' 000202da 55 6e |Un | .TXT 'Un' 000202dc 73 61 |sa | .TXT 'sa' 000202de 66 65 |fe | .TXT 'fe' 000202e0 4f 70 65 72 61 74 69 6f |Operatio| .TXT 'Operation Incomplete' 000202f4 44 72 69 76 65 20 74 69 |Drive ti| .TXT 'Drive timing error' 00020306 57 72 69 74 |Writ | .TXT 'Writ' 0002030a 65 20 6c 6f |e lo | .TXT 'e lo' 0002030e 63 6b 20 65 |ck e | .TXT 'ck e' 00020312 72 72 6f 72 |rror | .TXT 'rror' 00020316 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid address error ' 0002032c 41 64 64 72 |Addr | .TXT 'Addr' 00020330 65 73 73 20 |ess | .TXT 'ess ' 00020334 6f 76 65 72 |over | .TXT 'over' 00020338 66 6c 6f 77 |flow | .TXT 'flow' 0002033c 48 65 61 64 |Head | .TXT 'Head' 00020340 65 72 20 43 |er C | .TXT 'er C' 00020344 52 43 20 65 |RC e | .TXT 'RC e' 00020348 72 72 6f 72 |rror | .TXT 'rror' 0002034c 48 65 61 64 65 72 20 63 |Header c| .TXT 'Header compare error' 00020360 45 43 43 20 68 61 72 64 |ECC hard| .TXT 'ECC hard error' 0002036e 57 72 69 74 |Writ | .TXT 'Writ' 00020372 65 20 63 6c |e cl | .TXT 'e cl' 00020376 6f 63 6b 20 |ock | .TXT 'ock ' 0002037a 66 61 69 6c |fail | .TXT 'fail' 0002037e 46 6f 72 6d |Form | .TXT 'Form' 00020382 61 74 20 65 |at e | .TXT 'at e' 00020386 72 72 6f 72 |rror | .TXT 'rror' 0002038a 52 65 67 69 73 74 65 72 |Register| .TXT 'Register modification refused ' 000203a8 49 6c 6c 65 |Ille | .TXT 'Ille' 000203ac 67 61 6c 20 |gal | .TXT 'gal ' 000203b0 66 75 6e 63 |func | .TXT 'func' 000203b4 74 69 6f 6e |tion | .TXT 'tion' 000203b8 42 61 64 20 73 65 63 74 |Bad sect| .TXT 'Bad sector' 000203c2 53 65 65 6b 20 69 6e 63 |Seek inc| .TXT 'Seek incomplete ' 000203d2 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid command ' 000203e2 4c 6f 73 73 20 6f 66 20 |Loss of | .TXT 'Loss of system clock' 000203f6 4c 6f 73 73 20 6f 66 20 |Loss of | .TXT 'Loss of bit clock ' 00020408 44 65 76 69 |Devi | .TXT 'Devi' 0002040c 63 65 20 63 |ce c | .TXT 'ce c' 00020410 68 65 63 6b |heck | .TXT 'heck' 00020414 53 6b 69 70 20 73 65 63 |Skip sec| .TXT 'Skip sector error ' 00020426 64 69 73 6b 20 65 72 72 |disk err| .TXT 'disk error reading disk error status' 0002044a 45 72 72 6f 72 20 72 65 |Error re| .TXT 'Error reading disk controller EEPROM at location_ ' 0002047c 45 6c 61 70 |Elap | .TXT 'Elap' 00020480 73 65 64 20 |sed | .TXT 'sed ' 00020484 74 69 6d 65 |time | .TXT 'time' 00020488 20 69 73 5f | is_ | .TXT ' is_' 0002048c 45 6e 74 65 72 20 75 6e |Enter un| .TXT 'Enter unit number of disk to scan :_' 000204b0 43 61 6e 27 74 20 72 65 |Can't re| .TXT 'Can't retrieve labels due to disk errors. ' 000204da 44 69 73 6b 20 68 61 73 |Disk has| .TXT 'Disk has no labels. ' 000204ee 44 69 73 6b 20 68 61 73 |Disk has| .TXT 'Disk has obsolete labels. ' 00020508 54 68 61 74 20 64 69 73 |That dis| .TXT 'That disk unit does not exist.' 00020526 44 72 69 76 65 20 6c 61 |Drive la| .TXT 'Drive label geometry disagrees with slew settings ' 00020558 56 20 |V | .TXT 'V ' 0002055a 48 44 41 20 3d 3e 5f 20 |HDA =>_ | .TXT 'HDA =>_ ' 00020562 54 68 69 73 20 64 72 69 |This dri| .TXT 'This drive has_ ' 00020572 20 63 79 6c | cyl | .TXT ' cyl' 00020576 69 6e 64 65 |inde | .TXT 'inde' 0002057a 72 73 2c 5f |rs,_ | .TXT 'rs,_' 0002057e 20 68 65 61 | hea | .TXT ' hea' 00020582 64 73 2c 5f |ds,_ | .TXT 'ds,_' 00020586 20 73 65 63 | sec | .TXT ' sec' 0002058a 74 6f 72 73 |tors | .TXT 'tors' 0002058e 54 68 69 73 20 64 6f 65 |This doe| .TXT 'This doesnt run on coprocessors or model 400's' 000205bc 43 61 6e 27 74 20 72 65 |Can't re| .TXT 'Can't read bad block list area on disk due to disk errors ' 000205f6 2d 2d 2d 20 77 61 72 6e |--- warn| .TXT '--- warning: bad block area is not 16 blocks long ' 00020628 5b 31 |[1 | .TXT '[1' 0002062a 41 20 |A | .XXX[0x2] 0002062c 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder/Head/Sector_ ' 00020642 2f 20 |/ | .TXT '/ ' 00020644 2f 20 |/ | .TXT '/ ' 00020646 20 20 20 20 5f 20 | _ | .TXT ' _ ' 0002064c 20 4a 41 4e 5f 20 | JAN_ | .TXT ' JAN_ ' 00020652 20 46 45 42 5f 20 | FEB_ | .TXT ' FEB_ ' 00020658 20 4d 41 52 5f 20 | MAR_ | .TXT ' MAR_ ' 0002065e 20 41 50 52 5f 20 | APR_ | .TXT ' APR_ ' 00020664 20 4d 41 59 5f 20 | MAY_ | .TXT ' MAY_ ' 0002066a 20 4a 55 4e 5f 20 | JUN_ | .TXT ' JUN_ ' 00020670 20 4a 55 4c 5f 20 | JUL_ | .TXT ' JUL_ ' 00020676 20 41 55 47 5f 20 | AUG_ | .TXT ' AUG_ ' 0002067c 20 53 45 50 5f 20 | SEP_ | .TXT ' SEP_ ' 00020682 20 4f 43 54 5f 20 | OCT_ | .TXT ' OCT_ ' 00020688 20 4e 4f 56 5f 20 | NOV_ | .TXT ' NOV_ ' 0002068e 20 44 45 43 5f 20 | DEC_ | .TXT ' DEC_ ' 00020694 43 61 6e 27 74 20 66 69 |Can't fi| .TXT 'Can't find any date footprint on the disk ' 000206be 54 68 65 20 64 72 69 76 |The driv| .TXT 'The drive appears to have been initialized on_' 000206ec 4d 75 6c 74 69 70 6c 65 |Multiple| .TXT 'Multiple initialization date footprints found.' 0002071a 45 6e 74 65 72 20 73 74 |Enter st| .TXT 'Enter starting cylinder :_' 00020734 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder_ ' 0002073e 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder_ ' 00020748 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder _' 00020752 2c 20 74 72 61 63 6b 20 |, track | .TXT ', track _ ' 0002075c 2c 20 73 65 63 74 6f 72 |, sector| .TXT ', sector _' 00020766 2c 20 70 61 74 74 65 72 |, patter| .TXT ', pattern _ ' 00020772 20 3c 3d 20 68 69 74 20 | <= hit | .TXT ' <= hit ' 0002077a 2c 20 64 61 74 65 20 3d |, date =| .TXT ', date =>_' 00020784 4d 6f 64 75 6c 65 20 20 |Module | .TXT 'Module =_ ' 00020792 20 20 20 56 65 72 73 69 | Versi| .TXT ' Version =_ ' 000207a0 20 20 20 44 61 74 65 20 | Date | .TXT ' Date =_ ' 000207ae 20 20 20 54 69 6d 65 20 | Time | .TXT ' Time =_ ' 000207bc 45 6e 74 65 72 20 75 6e |Enter un| .TXT 'Enter unit number of disk with DFS to write defect info to :_ ' 000207fa 2e 44 45 46 |.DEF | .TXT '.DEF' 000207fe 45 43 54 53 |ECTS | .TXT 'ECTS' 00020802 45 6e 74 65 72 20 74 61 |Enter ta| .TXT 'Enter tape drive unit number :_ ' 00020822 74 61 70 65 5f 65 72 72 |tape_err| .TXT 'tape_error' 0002082c 2e 44 45 46 |.DEF | .TXT '.DEF' 00020830 45 43 54 53 |ECTS | .TXT 'ECTS' 00020834 54 41 50 45 20 45 52 52 |TAPE ERR| .TXT 'TAPE ERROR' 0002083e 74 61 70 65 20 65 72 72 |tape err| .TXT 'tape error' 00020848 74 61 70 65 20 65 72 72 |tape err| .TXT 'tape error' 00020852 74 61 70 65 20 65 72 72 |tape err| .TXT 'tape error on rewind' 00020866 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to save this defect information on: ' 00020896 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => A tape ' 000208a6 20 20 | | .XXX[0x2] 000208a8 20 20 31 20 3d 3e 20 41 | 1 => A| .XXX[0x10] 000208b0 20 44 46 53 20 64 69 73 | DFS dis| 000208b8 6b 20 |k | .XXX[0x2] 000208ba 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter 0 or 1:_ ' 000208d0 4b 45 45 50 20 20 |KEEP | .TXT 'KEEP ' 000208d6 46 61 74 61 6c 20 65 72 |Fatal er| .TXT 'Fatal error reading bad block area from disk' 00020902 72 65 63 6f 72 64 20 72 |record r| .TXT 'record read failed while skipping a file. ' 0002092c 65 6e 74 65 72 20 75 6e |enter un| .TXT 'enter unit number of tape drive with bad block information :_ ' 0002096a 45 6e 74 65 72 20 48 44 |Enter HD| .TXT 'Enter HDA serial number :_' 00020984 63 61 6e 27 74 20 72 65 |can't re| .TXT 'can't read tape. bad tape or wrong format. ' 000209b0 2e 44 45 46 |.DEF | .TXT '.DEF' 000209b4 45 43 54 53 |ECTS | .TXT 'ECTS' 000209b8 66 6f 75 6e 64 20 65 6f |found eo| .TXT 'found eot, aborting!' 000209cc 6f 62 73 6f 6c 65 74 65 |obsolete| .TXT 'obsolete tape header version, aborting! ' 000209f4 66 6f 75 6e 64 20 64 61 |found da| .TXT 'found data, can't read it.' 00020a0e 65 6e 74 65 72 20 75 6e |enter un| .TXT 'enter unit number of disk with dfs to write defect info to :_ ' 00020a4c 45 6e 74 65 72 20 48 44 |Enter HD| .TXT 'Enter HDA serial number :_' 00020a66 2e 44 45 46 |.DEF | .TXT '.DEF' 00020a6a 45 43 54 53 |ECTS | .TXT 'ECTS' 00020a6e 6d 66 67 20 64 65 66 65 |mfg defe| .TXT 'mfg defect at (cylinder/track/sector)_' 00020a94 75 73 72 20 64 65 66 65 |usr defe| .TXT 'usr defect at (cylinder/track/sector)_' 00020aba 20 61 6c 6c | all | .TXT ' all' 00020abe 20 61 6c 6c | all | .TXT ' all' 00020ac2 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to load defect information from:' 00020aee 20 20 20 20 54 20 3d 3e | T =>| .TXT ' T => Tape ' 00020afc 20 20 20 20 44 20 3d 3e | D =>| .TXT ' D => Disk ' 00020b0a 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter T or D:_ ' 00020b20 44 20 |D | .TXT 'D ' 00020b22 54 20 |T | .TXT 'T ' 00020b24 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid option specified' 00020b3c 41 4e 59 20 |ANY | .XXX[0x4] 00020b40 20 20 20 20 20 20 20 20 | | .XXX[0x148] 00020b48 20 20 20 20 44 41 54 45 | DATE| 00020b50 20 20 20 20 20 20 20 20 | | 00020b58 20 20 20 20 53 43 41 4e | SCAN| 00020b60 5f 42 42 20 20 20 20 20 |_BB | 00020b68 20 20 20 20 55 53 41 47 | USAG| 00020b70 45 20 20 20 20 20 20 20 |E | 00020b78 20 20 20 20 52 45 5f 44 | RE_D| 00020b80 45 46 45 43 54 53 20 20 |EFECTS | 00020b88 20 20 20 20 53 48 4f 57 | SHOW| 00020b90 5f 44 45 46 45 43 54 5f |_DEFECT_| 00020b98 46 49 4c 45 4c 41 53 54 |FILELAST| 00020ba0 5f 46 4f 52 4d 41 54 20 |_FORMAT | 00020ba8 20 20 20 20 57 48 41 54 | WHAT| 00020bb0 20 20 20 20 20 20 20 20 | | 00020bb8 20 20 20 20 44 49 53 4b | DISK| 00020bc0 5f 4d 49 53 43 20 00 00 |_MISC | 00020bc8 00 00 03 4a 14 30 03 4a | J 0 J| 00020bd0 14 42 03 37 0a 42 02 70 | B 7 B p| 00020bd8 1b 42 02 e9 1b 42 20 43 | B B C| 00020be0 53 31 3d 20 43 53 32 3d |S1= CS2=| 00020be8 20 44 53 3d 20 20 45 52 | DS= ER| 00020bf0 31 3d 20 45 52 32 3d 20 |1= ER2= | 00020bf8 45 43 31 3d 20 45 43 32 |EC1= EC2| 00020c00 3d 20 44 43 3d 20 20 44 |= DC= D| 00020c08 41 3d 20 41 4e 59 20 20 |A= ANY | 00020c10 20 20 20 20 20 20 20 20 | | 00020c18 20 20 20 44 41 54 45 20 | DATE | 00020c20 20 20 20 20 20 20 20 20 | | 00020c28 20 20 20 53 43 41 4e 5f | SCAN_| 00020c30 42 42 20 20 20 20 20 20 |BB | 00020c38 20 20 20 55 53 41 47 45 | USAGE| 00020c40 20 20 20 20 20 20 20 20 | | 00020c48 20 20 20 52 45 5f 44 45 | RE_DE| 00020c50 46 45 43 54 53 20 20 20 |FECTS | 00020c58 20 20 20 53 48 4f 57 5f | SHOW_| 00020c60 44 45 46 45 43 54 5f 46 |DEFECT_F| 00020c68 49 4c 45 4c 41 53 54 5f |ILELAST_| 00020c70 46 4f 52 4d 41 54 20 20 |FORMAT | 00020c78 20 20 20 57 48 41 54 20 | WHAT | 00020c80 20 20 20 20 20 20 20 20 | | 00020c88 20 20 20 00 | | .XXX[0x4] 00020c8c ; -------------------------------------------------------------------------------------- 00020c8c ; OMSI PASCAL Function 00020c8c ; <LVAR 0x008 4(r)> 00020c8c ; -------------------------------------------------------------------------------------- 00020c8c 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00020c90 bf d5 | | CMPA.L (A5),A7 00020c92 62 06 |b | BHI 0x20c9a 00020c94 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020c98 4e 76 |Nv | TRAPV 00020c9a de fc 00 1e | | ADDA.W #0x1e,A7 00020c9e 2f 3c 00 01 31 2c |/< 1, | MOVE.L #0x1312c,-(A7) 00020ca4 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00020caa 58 4f |XO | ADDQ.L #0x4,A7 00020cac 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020cb2 2f 3a f4 80 |/: | MOVE.L 0x20134,-(A7) 00020cb6 2f 3a f4 78 |/: x | MOVE.L 0x20130,-(A7) 00020cba 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020cbe 51 4f |QO | SUBQ.L #0x8,A7 00020cc0 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020cc4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020cc8 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00020ccc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020cd2 58 4f |XO | ADDQ.L #0x4,A7 00020cd4 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00020cd8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020cde 50 4f |PO | ADDQ.L #0x8,A7 00020ce0 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020ce6 de fc 00 0e | | ADDA.W #0xe,A7 00020cea 4e 5e |N^ | UNLK A6 00020cec 4e 75 |Nu | RTS 00020cee ; -------------------------------------------------------------------------------------- 00020cee ; OMSI PASCAL Function 00020cee ; <LVAR 0x016 4(r)> 00020cee ; <LVAR 0x012 @ 4(r)> 00020cee ; <LVAR 0x010 1(r)> 00020cee ; <LVAR 0x00c 4(r)> 00020cee ; <LVAR 0x008 4(r)> 00020cee ; -------------------------------------------------------------------------------------- 00020cee 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 00020cf2 bf d5 | | CMPA.L (A5),A7 00020cf4 62 06 |b | BHI 0x20cfc 00020cf6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020cfa 4e 76 |Nv | TRAPV 00020cfc de fc 00 28 | ( | ADDA.W #0x28,A7 00020d00 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 00020d04 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020d08 22 6e 00 0c |"n | MOVEA.L (A6+0xc),A1 00020d0c 2f 2e 00 16 |/. | MOVE.L (A6+0x16),-(A7) 00020d10 48 78 00 00 |Hx | PEA.L 0x0 00020d14 2f 2e 00 12 |/. | MOVE.L (A6+0x12),-(A7) 00020d18 48 50 |HP | PEA.L (A0) 00020d1a 48 51 |HQ | PEA.L (A1) 00020d1c 4e b9 00 02 78 fc |N x | JSR 0x278fc 00020d22 de fc 00 14 | | ADDA.W #0x14,A7 00020d26 48 6e 00 12 |Hn | PEA.L (A6+0x12) 00020d2a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020d30 58 4f |XO | ADDQ.L #0x4,A7 00020d32 4a 11 |J | TST.B (A1) 00020d34 67 10 |g | BEQ 0x20d46 00020d36 4a 2e 00 10 |J. | TST.B (A6+0x10) 00020d3a 66 0a |f | BNE 0x20d46 00020d3c 48 50 |HP | PEA.L (A0) 00020d3e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020d44 58 4f |XO | ADDQ.L #0x4,A7 00020d46 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 00020d4a 4e 5e |N^ | UNLK A6 00020d4c 4e 75 |Nu | RTS 00020d4e ; -------------------------------------------------------------------------------------- 00020d4e ; OMSI PASCAL Function 00020d4e ; <LVAR 0x008 4(r)> 00020d4e ; -------------------------------------------------------------------------------------- 00020d4e 4e 56 ff ce |NV | LINK.W A6,#0xffce ; Spelunked 00020d52 bf d5 | | CMPA.L (A5),A7 00020d54 62 06 |b | BHI 0x20d5c 00020d56 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020d5a 4e 76 |Nv | TRAPV 00020d5c de fc 00 32 | 2 | ADDA.W #0x32,A7 00020d60 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 00020d64 43 ec 00 04 |C | LEA.L (A4+0x4),A1 00020d68 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00020d6c 20 51 | Q | MOVEA.L (A1),A0 00020d6e 4a 50 |JP | TST.W (A0) 00020d70 66 12 |f | BNE 0x20d84 00020d72 59 4f |YO | SUBQ.L #0x4,A7 00020d74 2f 11 |/ | MOVE.L (A1),-(A7) 00020d76 2f 12 |/ | MOVE.L (A2),-(A7) 00020d78 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020d7e 50 4f |PO | ADDQ.L #0x8,A7 00020d80 22 9f |" | MOVE.L (A7)+,(A1) 00020d82 60 52 |`R | BRA 0x20dd6 00020d84 30 10 |0 | MOVE.W (A0),D0 00020d86 48 c0 |H | EXTW.L D0 00020d88 54 80 |T | ADDQ.L #0x2,D0 00020d8a 20 52 | R | MOVEA.L (A2),A0 00020d8c 32 10 |2 | MOVE.W (A0),D1 00020d8e 48 c1 |H | EXTW.L D1 00020d90 d2 80 | | ADD.L D0,D1 00020d92 0c 81 00 00 00 50 | P | CMPI.L #0x00000050,D1 00020d98 6e 30 |n0 | BGT 0x20dca 00020d9a 3f 3a f3 d2 |?: | MOVE.W 0x2016e,-(A7) 00020d9e 59 4f |YO | SUBQ.L #0x4,A7 00020da0 2f 11 |/ | MOVE.L (A1),-(A7) 00020da2 59 4f |YO | SUBQ.L #0x4,A7 00020da4 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020da8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020dac 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00020db0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020db6 58 4f |XO | ADDQ.L #0x4,A7 00020db8 2e 92 |. | MOVE.L (A2),(A7) 00020dba 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020dc0 de fc 00 0c | | ADDA.W #0xc,A7 00020dc4 22 9f |" | MOVE.L (A7)+,(A1) 00020dc6 54 4f |TO | ADDQ.L #0x2,A7 00020dc8 60 0c |` | BRA 0x20dd6 00020dca 2f 11 |/ | MOVE.L (A1),-(A7) 00020dcc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020dd2 58 4f |XO | ADDQ.L #0x4,A7 00020dd4 22 92 |" | MOVE.L (A2),(A1) 00020dd6 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 00020dda 4e 5e |N^ | UNLK A6 00020ddc 4e 75 |Nu | RTS 00020dde ; -------------------------------------------------------------------------------------- 00020dde ; OMSI PASCAL Function 00020dde ; <LVAR 0x008 1(r)> 00020dde ; <LVAR -0x006 @ 4(r)> 00020dde ; <LVAR -0x00a @> 00020dde ; -------------------------------------------------------------------------------------- 00020dde 4e 56 ff 92 |NV | LINK.W A6,#0xff92 ; Spelunked 00020de2 bf d5 | | CMPA.L (A5),A7 00020de4 62 06 |b | BHI 0x20dec 00020de6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020dea 4e 76 |Nv | TRAPV 00020dec de fc 00 64 | d | ADDA.W #0x64,A7 00020df0 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020df4 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020dfa 47 ee ff f6 |G | LEA.L (A6-0xa),A3 00020dfe 72 01 |r | MOVEQ.L #0x01,D1 00020e00 74 14 |t | MOVEQ.L #0x14,D2 00020e02 7a 10 |z | MOVEQ.L #0x10,D5 00020e04 7c 12 || | MOVEQ.L #0x12,D6 00020e06 7e 00 |~ | MOVEQ.L #0x00,D7 00020e08 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7 00020e0e 63 02 |c | BLS 0x20e12 00020e10 4e 4f |NO | TRAP #15 00020e12 28 07 |( | MOVE.L D7,D4 00020e14 76 05 |v | MOVEQ.L #0x05,D3 00020e16 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00020e1c 41 fa fd c0 |A | LEA.L 0x20bde,A0 00020e20 5d 4f |]O | SUBQ.L #0x6,A7 00020e22 22 4f |"O | MOVEA.L A7,A1 00020e24 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00020e28 70 04 |p | MOVEQ.L #0x04,D0 00020e2a 12 d8 | | MOVE.B (A0)+,(A1)+ 00020e2c 51 c8 ff fc |Q | DBF D0,0x20e2a 00020e30 51 4f |QO | SUBQ.L #0x8,A7 00020e32 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020e36 3f 01 |? | MOVE.W D1,-(A7) 00020e38 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00020e3c 4e 92 |N | JSR (A2) 00020e3e 58 4f |XO | ADDQ.L #0x4,A7 00020e40 0c 87 00 00 00 0a | | CMPI.L #0x0000000a,D7 00020e46 63 02 |c | BLS 0x20e4a 00020e48 4e 4f |NO | TRAP #15 00020e4a 20 07 | | MOVE.L D7,D0 00020e4c e3 80 | | ASL.L #0x1,D0 00020e4e 41 f9 00 02 81 96 |A | LEA.L 0x28196,A0 00020e54 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00020e58 d1 fc 00 01 30 38 | 08 | ADDA.L #0x13038,A0 00020e5e 42 80 |B | CLR.L D0 00020e60 30 10 |0 | MOVE.W (A0),D0 00020e62 2f 00 |/ | MOVE.L D0,-(A7) 00020e64 48 78 00 04 |Hx | PEA.L 0x4 00020e68 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 00020e6e 50 4f |PO | ADDQ.L #0x8,A7 00020e70 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020e76 50 4f |PO | ADDQ.L #0x8,A7 00020e78 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00020e7e de fc 00 0a | | ADDA.W #0xa,A7 00020e82 52 87 |R | ADDQ.L #0x1,D7 00020e84 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7 00020e8a 6f 00 ff 7c |o | | BLE 0x20e08 00020e8e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020e94 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00020e98 b0 01 | | CMP.B D1,D0 00020e9a 67 08 |g | BEQ 0x20ea4 00020e9c 0c 00 00 02 | | CMPI.B #0x02,D0 00020ea0 66 00 08 b2 |f | BNE 0x21754 00020ea4 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020ea8 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020eae 58 4f |XO | ADDQ.L #0x4,A7 00020eb0 30 39 00 03 b1 ce |09 | MOVE.W 0x3b1ce,D0 00020eb6 02 40 80 00 | @ | ANDI.W #0x8000,D0 00020eba 67 2a |g* | BEQ 0x20ee6 00020ebc 9e c6 | | SUBA.W D6,A7 00020ebe 20 4f | O | MOVEA.L A7,A0 00020ec0 43 fa f2 ae |C | LEA.L 0x20170,A1 00020ec4 70 10 |p | MOVEQ.L #0x10,D0 00020ec6 10 d9 | | MOVE.B (A1)+,(A0)+ 00020ec8 51 c8 ff fc |Q | DBF D0,0x20ec6 00020ecc 59 4f |YO | SUBQ.L #0x4,A7 00020ece 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020ed2 3f 01 |? | MOVE.W D1,-(A7) 00020ed4 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00020ed8 4e 92 |N | JSR (A2) 00020eda 50 4f |PO | ADDQ.L #0x8,A7 00020edc 28 4b |(K | MOVEA.L A3,A4 00020ede 4e ba fe 6e |N n | JSR 0x20d4e 00020ee2 de fc 00 16 | | ADDA.W #0x16,A7 00020ee6 30 39 00 03 b1 ce |09 | MOVE.W 0x3b1ce,D0 00020eec 02 40 40 00 | @@ | ANDI.W #0x4000,D0 00020ef0 67 24 |g$ | BEQ 0x20f16 00020ef2 41 fa f2 9c |A | LEA.L 0x20190,A0 00020ef6 70 06 |p | MOVEQ.L #0x06,D0 00020ef8 3f 20 |? | MOVE.W -(A0),-(A7) 00020efa 51 c8 ff fc |Q | DBF D0,0x20ef8 00020efe 59 4f |YO | SUBQ.L #0x4,A7 00020f00 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f04 3f 01 |? | MOVE.W D1,-(A7) 00020f06 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00020f0a 4e 92 |N | JSR (A2) 00020f0c 50 4f |PO | ADDQ.L #0x8,A7 00020f0e 28 4b |(K | MOVEA.L A3,A4 00020f10 4e ba fe 3c |N < | JSR 0x20d4e 00020f14 de c6 | | ADDA.W D6,A7 00020f16 30 39 00 03 b1 d0 |09 | MOVE.W 0x3b1d0,D0 00020f1c 02 40 80 00 | @ | ANDI.W #0x8000,D0 00020f20 67 2c |g, | BEQ 0x20f4e 00020f22 9e fc 00 0a | | SUBA.W #0xa,A7 00020f26 20 4f | O | MOVEA.L A7,A0 00020f28 43 fa f2 66 |C f | LEA.L 0x20190,A1 00020f2c 70 08 |p | MOVEQ.L #0x08,D0 00020f2e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020f30 51 c8 ff fc |Q | DBF D0,0x20f2e 00020f34 59 4f |YO | SUBQ.L #0x4,A7 00020f36 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f3a 3f 01 |? | MOVE.W D1,-(A7) 00020f3c 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00020f40 4e 92 |N | JSR (A2) 00020f42 50 4f |PO | ADDQ.L #0x8,A7 00020f44 28 4b |(K | MOVEA.L A3,A4 00020f46 4e ba fe 06 |N | JSR 0x20d4e 00020f4a de fc 00 0e | | ADDA.W #0xe,A7 00020f4e 30 39 00 03 b1 d0 |09 | MOVE.W 0x3b1d0,D0 00020f54 02 40 40 00 | @@ | ANDI.W #0x4000,D0 00020f58 67 2a |g* | BEQ 0x20f84 00020f5a 9e c6 | | SUBA.W D6,A7 00020f5c 20 4f | O | MOVEA.L A7,A0 00020f5e 43 fa f2 3a |C : | LEA.L 0x2019a,A1 00020f62 70 10 |p | MOVEQ.L #0x10,D0 00020f64 10 d9 | | MOVE.B (A1)+,(A0)+ 00020f66 51 c8 ff fc |Q | DBF D0,0x20f64 00020f6a 59 4f |YO | SUBQ.L #0x4,A7 00020f6c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f70 3f 01 |? | MOVE.W D1,-(A7) 00020f72 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00020f76 4e 92 |N | JSR (A2) 00020f78 50 4f |PO | ADDQ.L #0x8,A7 00020f7a 28 4b |(K | MOVEA.L A3,A4 00020f7c 4e ba fd d0 |N | JSR 0x20d4e 00020f80 de fc 00 16 | | ADDA.W #0x16,A7 00020f84 30 39 00 03 b1 d0 |09 | MOVE.W 0x3b1d0,D0 00020f8a 02 40 20 00 | @ | ANDI.W #0x2000,D0 00020f8e 67 2a |g* | BEQ 0x20fba 00020f90 9e c2 | | SUBA.W D2,A7 00020f92 20 4f | O | MOVEA.L A7,A0 00020f94 43 fa f2 16 |C | LEA.L 0x201ac,A1 00020f98 70 12 |p | MOVEQ.L #0x12,D0 00020f9a 10 d9 | | MOVE.B (A1)+,(A0)+ 00020f9c 51 c8 ff fc |Q | DBF D0,0x20f9a 00020fa0 59 4f |YO | SUBQ.L #0x4,A7 00020fa2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020fa6 3f 01 |? | MOVE.W D1,-(A7) 00020fa8 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00020fac 4e 92 |N | JSR (A2) 00020fae 50 4f |PO | ADDQ.L #0x8,A7 00020fb0 28 4b |(K | MOVEA.L A3,A4 00020fb2 4e ba fd 9a |N | JSR 0x20d4e 00020fb6 de fc 00 18 | | ADDA.W #0x18,A7 00020fba 30 39 00 03 b1 d0 |09 | MOVE.W 0x3b1d0,D0 00020fc0 02 40 10 00 | @ | ANDI.W #0x1000,D0 00020fc4 67 24 |g$ | BEQ 0x20fea 00020fc6 41 fa f2 0a |A | LEA.L 0x201d2,A0 00020fca 70 08 |p | MOVEQ.L #0x08,D0 00020fcc 3f 20 |? | MOVE.W -(A0),-(A7) 00020fce 51 c8 ff fc |Q | DBF D0,0x20fcc 00020fd2 59 4f |YO | SUBQ.L #0x4,A7 00020fd4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020fd8 3f 01 |? | MOVE.W D1,-(A7) 00020fda 3f 06 |? | MOVE.W D6,-(A7) 00020fdc 4e 92 |N | JSR (A2) 00020fde 50 4f |PO | ADDQ.L #0x8,A7 00020fe0 28 4b |(K | MOVEA.L A3,A4 00020fe2 4e ba fd 6a |N j | JSR 0x20d4e 00020fe6 de fc 00 16 | | ADDA.W #0x16,A7 00020fea 30 39 00 03 b1 d0 |09 | MOVE.W 0x3b1d0,D0 00020ff0 02 40 08 00 | @ | ANDI.W #0x0800,D0 00020ff4 67 2a |g* | BEQ 0x21020 00020ff6 9e c2 | | SUBA.W D2,A7 00020ff8 20 4f | O | MOVEA.L A7,A0 00020ffa 43 fa f1 d6 |C | LEA.L 0x201d2,A1 00020ffe 70 12 |p | MOVEQ.L #0x12,D0 00021000 10 d9 | | MOVE.B (A1)+,(A0)+ 00021002 51 c8 ff fc |Q | DBF D0,0x21000 00021006 59 4f |YO | SUBQ.L #0x4,A7 00021008 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002100c 3f 01 |? | MOVE.W D1,-(A7) 0002100e 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00021012 4e 92 |N | JSR (A2) 00021014 50 4f |PO | ADDQ.L #0x8,A7 00021016 28 4b |(K | MOVEA.L A3,A4 00021018 4e ba fd 34 |N 4 | JSR 0x20d4e 0002101c de fc 00 18 | | ADDA.W #0x18,A7 00021020 30 39 00 03 b1 d0 |09 | MOVE.W 0x3b1d0,D0 00021026 02 40 04 00 | @ | ANDI.W #0x0400,D0 0002102a 67 2a |g* | BEQ 0x21056 0002102c 9e fc 00 0e | | SUBA.W #0xe,A7 00021030 20 4f | O | MOVEA.L A7,A0 00021032 43 fa f1 b2 |C | LEA.L 0x201e6,A1 00021036 70 0c |p | MOVEQ.L #0x0c,D0 00021038 10 d9 | | MOVE.B (A1)+,(A0)+ 0002103a 51 c8 ff fc |Q | DBF D0,0x21038 0002103e 59 4f |YO | SUBQ.L #0x4,A7 00021040 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021044 3f 01 |? | MOVE.W D1,-(A7) 00021046 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 0002104a 4e 92 |N | JSR (A2) 0002104c 50 4f |PO | ADDQ.L #0x8,A7 0002104e 28 4b |(K | MOVEA.L A3,A4 00021050 4e ba fc fc |N | JSR 0x20d4e 00021054 de c6 | | ADDA.W D6,A7 00021056 30 39 00 03 b1 d0 |09 | MOVE.W 0x3b1d0,D0 0002105c 02 40 02 00 | @ | ANDI.W #0x0200,D0 00021060 67 24 |g$ | BEQ 0x21086 00021062 41 fa f1 9e |A | LEA.L 0x20202,A0 00021066 70 06 |p | MOVEQ.L #0x06,D0 00021068 3f 20 |? | MOVE.W -(A0),-(A7) 0002106a 51 c8 ff fc |Q | DBF D0,0x21068 0002106e 59 4f |YO | SUBQ.L #0x4,A7 00021070 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021074 3f 01 |? | MOVE.W D1,-(A7) 00021076 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 0002107a 4e 92 |N | JSR (A2) 0002107c 50 4f |PO | ADDQ.L #0x8,A7 0002107e 28 4b |(K | MOVEA.L A3,A4 00021080 4e ba fc cc |N | JSR 0x20d4e 00021084 de c6 | | ADDA.W D6,A7 00021086 30 39 00 03 b1 d0 |09 | MOVE.W 0x3b1d0,D0 0002108c 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 00021090 66 28 |f( | BNE 0x210ba 00021092 9e c5 | | SUBA.W D5,A7 00021094 20 4f | O | MOVEA.L A7,A0 00021096 43 fa f1 6a |C j | LEA.L 0x20202,A1 0002109a 70 0e |p | MOVEQ.L #0x0e,D0 0002109c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002109e 51 c8 ff fc |Q | DBF D0,0x2109c 000210a2 59 4f |YO | SUBQ.L #0x4,A7 000210a4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210a8 3f 01 |? | MOVE.W D1,-(A7) 000210aa 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 000210ae 4e 92 |N | JSR (A2) 000210b0 50 4f |PO | ADDQ.L #0x8,A7 000210b2 28 4b |(K | MOVEA.L A3,A4 000210b4 4e ba fc 98 |N | JSR 0x20d4e 000210b8 de c2 | | ADDA.W D2,A7 000210ba 30 39 00 03 b1 d0 |09 | MOVE.W 0x3b1d0,D0 000210c0 02 40 00 08 | @ | ANDI.W #0x0008,D0 000210c4 67 2a |g* | BEQ 0x210f0 000210c6 9e c2 | | SUBA.W D2,A7 000210c8 20 4f | O | MOVEA.L A7,A0 000210ca 43 fa f1 46 |C F | LEA.L 0x20212,A1 000210ce 70 12 |p | MOVEQ.L #0x12,D0 000210d0 10 d9 | | MOVE.B (A1)+,(A0)+ 000210d2 51 c8 ff fc |Q | DBF D0,0x210d0 000210d6 59 4f |YO | SUBQ.L #0x4,A7 000210d8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210dc 3f 01 |? | MOVE.W D1,-(A7) 000210de 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000210e2 4e 92 |N | JSR (A2) 000210e4 50 4f |PO | ADDQ.L #0x8,A7 000210e6 28 4b |(K | MOVEA.L A3,A4 000210e8 4e ba fc 64 |N d | JSR 0x20d4e 000210ec de fc 00 18 | | ADDA.W #0x18,A7 000210f0 30 39 00 03 b1 d2 |09 | MOVE.W 0x3b1d2,D0 000210f6 02 40 80 00 | @ | ANDI.W #0x8000,D0 000210fa 67 26 |g& | BEQ 0x21122 000210fc 2f 3a f1 34 |/: 4 | MOVE.L 0x20232,-(A7) 00021100 2f 3a f1 2c |/: , | MOVE.L 0x2022e,-(A7) 00021104 2f 3a f1 24 |/: $ | MOVE.L 0x2022a,-(A7) 00021108 2f 3a f1 1c |/: | MOVE.L 0x20226,-(A7) 0002110c 59 4f |YO | SUBQ.L #0x4,A7 0002110e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021112 3f 01 |? | MOVE.W D1,-(A7) 00021114 3f 05 |? | MOVE.W D5,-(A7) 00021116 4e 92 |N | JSR (A2) 00021118 50 4f |PO | ADDQ.L #0x8,A7 0002111a 28 4b |(K | MOVEA.L A3,A4 0002111c 4e ba fc 30 |N 0 | JSR 0x20d4e 00021120 de c2 | | ADDA.W D2,A7 00021122 30 39 00 03 b1 d2 |09 | MOVE.W 0x3b1d2,D0 00021128 02 40 40 00 | @@ | ANDI.W #0x4000,D0 0002112c 67 2a |g* | BEQ 0x21158 0002112e 5d 4f |]O | SUBQ.L #0x6,A7 00021130 20 4f | O | MOVEA.L A7,A0 00021132 43 fa f1 02 |C | LEA.L 0x20236,A1 00021136 70 04 |p | MOVEQ.L #0x04,D0 00021138 10 d9 | | MOVE.B (A1)+,(A0)+ 0002113a 51 c8 ff fc |Q | DBF D0,0x21138 0002113e 59 4f |YO | SUBQ.L #0x4,A7 00021140 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021144 3f 01 |? | MOVE.W D1,-(A7) 00021146 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 0002114a 4e 92 |N | JSR (A2) 0002114c 50 4f |PO | ADDQ.L #0x8,A7 0002114e 28 4b |(K | MOVEA.L A3,A4 00021150 4e ba fb fc |N | JSR 0x20d4e 00021154 de fc 00 0a | | ADDA.W #0xa,A7 00021158 30 39 00 03 b1 d2 |09 | MOVE.W 0x3b1d2,D0 0002115e 02 40 20 00 | @ | ANDI.W #0x2000,D0 00021162 67 2c |g, | BEQ 0x21190 00021164 9e fc 00 18 | | SUBA.W #0x18,A7 00021168 20 4f | O | MOVEA.L A7,A0 0002116a 43 fa f0 d0 |C | LEA.L 0x2023c,A1 0002116e 70 16 |p | MOVEQ.L #0x16,D0 00021170 10 d9 | | MOVE.B (A1)+,(A0)+ 00021172 51 c8 ff fc |Q | DBF D0,0x21170 00021176 59 4f |YO | SUBQ.L #0x4,A7 00021178 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002117c 3f 01 |? | MOVE.W D1,-(A7) 0002117e 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00021182 4e 92 |N | JSR (A2) 00021184 50 4f |PO | ADDQ.L #0x8,A7 00021186 28 4b |(K | MOVEA.L A3,A4 00021188 4e ba fb c4 |N | JSR 0x20d4e 0002118c de fc 00 1c | | ADDA.W #0x1c,A7 00021190 30 39 00 03 b1 d2 |09 | MOVE.W 0x3b1d2,D0 00021196 02 40 10 00 | @ | ANDI.W #0x1000,D0 0002119a 67 24 |g$ | BEQ 0x211c0 0002119c 41 fa f0 c4 |A | LEA.L 0x20262,A0 000211a0 70 06 |p | MOVEQ.L #0x06,D0 000211a2 3f 20 |? | MOVE.W -(A0),-(A7) 000211a4 51 c8 ff fc |Q | DBF D0,0x211a2 000211a8 59 4f |YO | SUBQ.L #0x4,A7 000211aa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000211ae 3f 01 |? | MOVE.W D1,-(A7) 000211b0 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000211b4 4e 92 |N | JSR (A2) 000211b6 50 4f |PO | ADDQ.L #0x8,A7 000211b8 28 4b |(K | MOVEA.L A3,A4 000211ba 4e ba fb 92 |N | JSR 0x20d4e 000211be de c6 | | ADDA.W D6,A7 000211c0 30 39 00 03 b1 d2 |09 | MOVE.W 0x3b1d2,D0 000211c6 02 40 08 00 | @ | ANDI.W #0x0800,D0 000211ca 67 26 |g& | BEQ 0x211f2 000211cc 41 fa f0 9e |A | LEA.L 0x2026c,A0 000211d0 70 04 |p | MOVEQ.L #0x04,D0 000211d2 3f 20 |? | MOVE.W -(A0),-(A7) 000211d4 51 c8 ff fc |Q | DBF D0,0x211d2 000211d8 59 4f |YO | SUBQ.L #0x4,A7 000211da 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000211de 3f 01 |? | MOVE.W D1,-(A7) 000211e0 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000211e4 4e 92 |N | JSR (A2) 000211e6 50 4f |PO | ADDQ.L #0x8,A7 000211e8 28 4b |(K | MOVEA.L A3,A4 000211ea 4e ba fb 62 |N b | JSR 0x20d4e 000211ee de fc 00 0e | | ADDA.W #0xe,A7 000211f2 30 39 00 03 b1 d2 |09 | MOVE.W 0x3b1d2,D0 000211f8 02 40 04 00 | @ | ANDI.W #0x0400,D0 000211fc 67 26 |g& | BEQ 0x21224 000211fe 41 fa f0 82 |A | LEA.L 0x20282,A0 00021202 70 0a |p | MOVEQ.L #0x0a,D0 00021204 3f 20 |? | MOVE.W -(A0),-(A7) 00021206 51 c8 ff fc |Q | DBF D0,0x21204 0002120a 59 4f |YO | SUBQ.L #0x4,A7 0002120c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021210 3f 01 |? | MOVE.W D1,-(A7) 00021212 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00021216 4e 92 |N | JSR (A2) 00021218 50 4f |PO | ADDQ.L #0x8,A7 0002121a 28 4b |(K | MOVEA.L A3,A4 0002121c 4e ba fb 30 |N 0 | JSR 0x20d4e 00021220 de fc 00 1a | | ADDA.W #0x1a,A7 00021224 30 39 00 03 b1 d2 |09 | MOVE.W 0x3b1d2,D0 0002122a 02 40 02 00 | @ | ANDI.W #0x0200,D0 0002122e 67 24 |g$ | BEQ 0x21254 00021230 2f 3a f0 58 |/: X | MOVE.L 0x2028a,-(A7) 00021234 2f 3a f0 50 |/: P | MOVE.L 0x20286,-(A7) 00021238 2f 3a f0 48 |/: H | MOVE.L 0x20282,-(A7) 0002123c 59 4f |YO | SUBQ.L #0x4,A7 0002123e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021242 3f 01 |? | MOVE.W D1,-(A7) 00021244 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 00021248 4e 92 |N | JSR (A2) 0002124a 50 4f |PO | ADDQ.L #0x8,A7 0002124c 28 4b |(K | MOVEA.L A3,A4 0002124e 4e ba fa fe |N | JSR 0x20d4e 00021252 de c5 | | ADDA.W D5,A7 00021254 30 39 00 03 b1 d2 |09 | MOVE.W 0x3b1d2,D0 0002125a 02 40 01 00 | @ | ANDI.W #0x0100,D0 0002125e 66 2a |f* | BNE 0x2128a 00021260 9e c6 | | SUBA.W D6,A7 00021262 20 4f | O | MOVEA.L A7,A0 00021264 43 fa f0 28 |C ( | LEA.L 0x2028e,A1 00021268 70 10 |p | MOVEQ.L #0x10,D0 0002126a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002126c 51 c8 ff fc |Q | DBF D0,0x2126a 00021270 59 4f |YO | SUBQ.L #0x4,A7 00021272 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021276 3f 01 |? | MOVE.W D1,-(A7) 00021278 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 0002127c 4e 92 |N | JSR (A2) 0002127e 50 4f |PO | ADDQ.L #0x8,A7 00021280 28 4b |(K | MOVEA.L A3,A4 00021282 4e ba fa ca |N | JSR 0x20d4e 00021286 de fc 00 16 | | ADDA.W #0x16,A7 0002128a 30 39 00 03 b1 d2 |09 | MOVE.W 0x3b1d2,D0 00021290 02 40 00 80 | @ | ANDI.W #0x0080,D0 00021294 66 28 |f( | BNE 0x212be 00021296 9e c5 | | SUBA.W D5,A7 00021298 20 4f | O | MOVEA.L A7,A0 0002129a 43 fa f0 04 |C | LEA.L 0x202a0,A1 0002129e 70 0e |p | MOVEQ.L #0x0e,D0 000212a0 10 d9 | | MOVE.B (A1)+,(A0)+ 000212a2 51 c8 ff fc |Q | DBF D0,0x212a0 000212a6 59 4f |YO | SUBQ.L #0x4,A7 000212a8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212ac 3f 01 |? | MOVE.W D1,-(A7) 000212ae 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 000212b2 4e 92 |N | JSR (A2) 000212b4 50 4f |PO | ADDQ.L #0x8,A7 000212b6 28 4b |(K | MOVEA.L A3,A4 000212b8 4e ba fa 94 |N | JSR 0x20d4e 000212bc de c2 | | ADDA.W D2,A7 000212be 30 39 00 03 b1 d2 |09 | MOVE.W 0x3b1d2,D0 000212c4 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 000212c8 66 26 |f& | BNE 0x212f0 000212ca 2f 3a ef f0 |/: | MOVE.L 0x202bc,-(A7) 000212ce 2f 3a ef e8 |/: | MOVE.L 0x202b8,-(A7) 000212d2 2f 3a ef e0 |/: | MOVE.L 0x202b4,-(A7) 000212d6 2f 3a ef d8 |/: | MOVE.L 0x202b0,-(A7) 000212da 59 4f |YO | SUBQ.L #0x4,A7 000212dc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212e0 3f 01 |? | MOVE.W D1,-(A7) 000212e2 3f 05 |? | MOVE.W D5,-(A7) 000212e4 4e 92 |N | JSR (A2) 000212e6 50 4f |PO | ADDQ.L #0x8,A7 000212e8 28 4b |(K | MOVEA.L A3,A4 000212ea 4e ba fa 62 |N b | JSR 0x20d4e 000212ee de c2 | | ADDA.W D2,A7 000212f0 30 39 00 03 b1 d2 |09 | MOVE.W 0x3b1d2,D0 000212f6 c0 41 | A | AND.W D1,D0 000212f8 67 26 |g& | BEQ 0x21320 000212fa 2f 3a ef d0 |/: | MOVE.L 0x202cc,-(A7) 000212fe 2f 3a ef c8 |/: | MOVE.L 0x202c8,-(A7) 00021302 2f 3a ef c0 |/: | MOVE.L 0x202c4,-(A7) 00021306 2f 3a ef b8 |/: | MOVE.L 0x202c0,-(A7) 0002130a 59 4f |YO | SUBQ.L #0x4,A7 0002130c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021310 3f 01 |? | MOVE.W D1,-(A7) 00021312 3f 05 |? | MOVE.W D5,-(A7) 00021314 4e 92 |N | JSR (A2) 00021316 50 4f |PO | ADDQ.L #0x8,A7 00021318 28 4b |(K | MOVEA.L A3,A4 0002131a 4e ba fa 32 |N 2 | JSR 0x20d4e 0002131e de c2 | | ADDA.W D2,A7 00021320 30 39 00 03 b1 d4 |09 | MOVE.W 0x3b1d4,D0 00021326 02 40 80 00 | @ | ANDI.W #0x8000,D0 0002132a 67 26 |g& | BEQ 0x21352 0002132c 41 fa ef ac |A | LEA.L 0x202da,A0 00021330 70 04 |p | MOVEQ.L #0x04,D0 00021332 3f 20 |? | MOVE.W -(A0),-(A7) 00021334 51 c8 ff fc |Q | DBF D0,0x21332 00021338 59 4f |YO | SUBQ.L #0x4,A7 0002133a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002133e 3f 01 |? | MOVE.W D1,-(A7) 00021340 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00021344 4e 92 |N | JSR (A2) 00021346 50 4f |PO | ADDQ.L #0x8,A7 00021348 28 4b |(K | MOVEA.L A3,A4 0002134a 4e ba fa 02 |N | JSR 0x20d4e 0002134e de fc 00 0e | | ADDA.W #0xe,A7 00021352 30 39 00 03 b1 d4 |09 | MOVE.W 0x3b1d4,D0 00021358 02 40 40 00 | @@ | ANDI.W #0x4000,D0 0002135c 67 26 |g& | BEQ 0x21384 0002135e 3f 3a ef 7e |?: ~ | MOVE.W 0x202de,-(A7) 00021362 3f 3a ef 78 |?: x | MOVE.W 0x202dc,-(A7) 00021366 3f 3a ef 72 |?: r | MOVE.W 0x202da,-(A7) 0002136a 59 4f |YO | SUBQ.L #0x4,A7 0002136c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021370 3f 01 |? | MOVE.W D1,-(A7) 00021372 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00021376 4e 92 |N | JSR (A2) 00021378 50 4f |PO | ADDQ.L #0x8,A7 0002137a 28 4b |(K | MOVEA.L A3,A4 0002137c 4e ba f9 d0 |N | JSR 0x20d4e 00021380 de fc 00 0a | | ADDA.W #0xa,A7 00021384 30 39 00 03 b1 d4 |09 | MOVE.W 0x3b1d4,D0 0002138a 02 40 20 00 | @ | ANDI.W #0x2000,D0 0002138e 67 24 |g$ | BEQ 0x213b4 00021390 41 fa ef 62 |A b | LEA.L 0x202f4,A0 00021394 70 04 |p | MOVEQ.L #0x04,D0 00021396 2f 20 |/ | MOVE.L -(A0),-(A7) 00021398 51 c8 ff fc |Q | DBF D0,0x21396 0002139c 59 4f |YO | SUBQ.L #0x4,A7 0002139e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000213a2 3f 01 |? | MOVE.W D1,-(A7) 000213a4 3f 02 |? | MOVE.W D2,-(A7) 000213a6 4e 92 |N | JSR (A2) 000213a8 50 4f |PO | ADDQ.L #0x8,A7 000213aa 28 4b |(K | MOVEA.L A3,A4 000213ac 4e ba f9 a0 |N | JSR 0x20d4e 000213b0 de fc 00 18 | | ADDA.W #0x18,A7 000213b4 30 39 00 03 b1 d4 |09 | MOVE.W 0x3b1d4,D0 000213ba 02 40 10 00 | @ | ANDI.W #0x1000,D0 000213be 67 24 |g$ | BEQ 0x213e4 000213c0 41 fa ef 44 |A D | LEA.L 0x20306,A0 000213c4 70 08 |p | MOVEQ.L #0x08,D0 000213c6 3f 20 |? | MOVE.W -(A0),-(A7) 000213c8 51 c8 ff fc |Q | DBF D0,0x213c6 000213cc 59 4f |YO | SUBQ.L #0x4,A7 000213ce 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000213d2 3f 01 |? | MOVE.W D1,-(A7) 000213d4 3f 06 |? | MOVE.W D6,-(A7) 000213d6 4e 92 |N | JSR (A2) 000213d8 50 4f |PO | ADDQ.L #0x8,A7 000213da 28 4b |(K | MOVEA.L A3,A4 000213dc 4e ba f9 70 |N p | JSR 0x20d4e 000213e0 de fc 00 16 | | ADDA.W #0x16,A7 000213e4 30 39 00 03 b1 d4 |09 | MOVE.W 0x3b1d4,D0 000213ea 02 40 08 00 | @ | ANDI.W #0x0800,D0 000213ee 67 26 |g& | BEQ 0x21416 000213f0 2f 3a ef 20 |/: | MOVE.L 0x20312,-(A7) 000213f4 2f 3a ef 18 |/: | MOVE.L 0x2030e,-(A7) 000213f8 2f 3a ef 10 |/: | MOVE.L 0x2030a,-(A7) 000213fc 2f 3a ef 08 |/: | MOVE.L 0x20306,-(A7) 00021400 59 4f |YO | SUBQ.L #0x4,A7 00021402 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021406 3f 01 |? | MOVE.W D1,-(A7) 00021408 3f 05 |? | MOVE.W D5,-(A7) 0002140a 4e 92 |N | JSR (A2) 0002140c 50 4f |PO | ADDQ.L #0x8,A7 0002140e 28 4b |(K | MOVEA.L A3,A4 00021410 4e ba f9 3c |N < | JSR 0x20d4e 00021414 de c2 | | ADDA.W D2,A7 00021416 30 39 00 03 b1 d4 |09 | MOVE.W 0x3b1d4,D0 0002141c 02 40 04 00 | @ | ANDI.W #0x0400,D0 00021420 67 2c |g, | BEQ 0x2144e 00021422 9e fc 00 16 | | SUBA.W #0x16,A7 00021426 20 4f | O | MOVEA.L A7,A0 00021428 43 fa ee ec |C | LEA.L 0x20316,A1 0002142c 70 14 |p | MOVEQ.L #0x14,D0 0002142e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021430 51 c8 ff fc |Q | DBF D0,0x2142e 00021434 59 4f |YO | SUBQ.L #0x4,A7 00021436 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002143a 3f 01 |? | MOVE.W D1,-(A7) 0002143c 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 00021440 4e 92 |N | JSR (A2) 00021442 50 4f |PO | ADDQ.L #0x8,A7 00021444 28 4b |(K | MOVEA.L A3,A4 00021446 4e ba f9 06 |N | JSR 0x20d4e 0002144a de fc 00 1a | | ADDA.W #0x1a,A7 0002144e 30 39 00 03 b1 d4 |09 | MOVE.W 0x3b1d4,D0 00021454 02 40 02 00 | @ | ANDI.W #0x0200,D0 00021458 67 26 |g& | BEQ 0x21480 0002145a 2f 3a ee dc |/: | MOVE.L 0x20338,-(A7) 0002145e 2f 3a ee d4 |/: | MOVE.L 0x20334,-(A7) 00021462 2f 3a ee cc |/: | MOVE.L 0x20330,-(A7) 00021466 2f 3a ee c4 |/: | MOVE.L 0x2032c,-(A7) 0002146a 59 4f |YO | SUBQ.L #0x4,A7 0002146c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021470 3f 01 |? | MOVE.W D1,-(A7) 00021472 3f 05 |? | MOVE.W D5,-(A7) 00021474 4e 92 |N | JSR (A2) 00021476 50 4f |PO | ADDQ.L #0x8,A7 00021478 28 4b |(K | MOVEA.L A3,A4 0002147a 4e ba f8 d2 |N | JSR 0x20d4e 0002147e de c2 | | ADDA.W D2,A7 00021480 30 39 00 03 b1 d4 |09 | MOVE.W 0x3b1d4,D0 00021486 02 40 01 00 | @ | ANDI.W #0x0100,D0 0002148a 67 26 |g& | BEQ 0x214b2 0002148c 2f 3a ee ba |/: | MOVE.L 0x20348,-(A7) 00021490 2f 3a ee b2 |/: | MOVE.L 0x20344,-(A7) 00021494 2f 3a ee aa |/: | MOVE.L 0x20340,-(A7) 00021498 2f 3a ee a2 |/: | MOVE.L 0x2033c,-(A7) 0002149c 59 4f |YO | SUBQ.L #0x4,A7 0002149e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000214a2 3f 01 |? | MOVE.W D1,-(A7) 000214a4 3f 05 |? | MOVE.W D5,-(A7) 000214a6 4e 92 |N | JSR (A2) 000214a8 50 4f |PO | ADDQ.L #0x8,A7 000214aa 28 4b |(K | MOVEA.L A3,A4 000214ac 4e ba f8 a0 |N | JSR 0x20d4e 000214b0 de c2 | | ADDA.W D2,A7 000214b2 30 39 00 03 b1 d4 |09 | MOVE.W 0x3b1d4,D0 000214b8 02 40 00 80 | @ | ANDI.W #0x0080,D0 000214bc 67 24 |g$ | BEQ 0x214e2 000214be 41 fa ee a0 |A | LEA.L 0x20360,A0 000214c2 70 04 |p | MOVEQ.L #0x04,D0 000214c4 2f 20 |/ | MOVE.L -(A0),-(A7) 000214c6 51 c8 ff fc |Q | DBF D0,0x214c4 000214ca 59 4f |YO | SUBQ.L #0x4,A7 000214cc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000214d0 3f 01 |? | MOVE.W D1,-(A7) 000214d2 3f 02 |? | MOVE.W D2,-(A7) 000214d4 4e 92 |N | JSR (A2) 000214d6 50 4f |PO | ADDQ.L #0x8,A7 000214d8 28 4b |(K | MOVEA.L A3,A4 000214da 4e ba f8 72 |N r | JSR 0x20d4e 000214de de fc 00 18 | | ADDA.W #0x18,A7 000214e2 30 39 00 03 b1 d4 |09 | MOVE.W 0x3b1d4,D0 000214e8 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 000214ec 67 24 |g$ | BEQ 0x21512 000214ee 41 fa ee 7e |A ~ | LEA.L 0x2036e,A0 000214f2 70 06 |p | MOVEQ.L #0x06,D0 000214f4 3f 20 |? | MOVE.W -(A0),-(A7) 000214f6 51 c8 ff fc |Q | DBF D0,0x214f4 000214fa 59 4f |YO | SUBQ.L #0x4,A7 000214fc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021500 3f 01 |? | MOVE.W D1,-(A7) 00021502 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00021506 4e 92 |N | JSR (A2) 00021508 50 4f |PO | ADDQ.L #0x8,A7 0002150a 28 4b |(K | MOVEA.L A3,A4 0002150c 4e ba f8 40 |N @ | JSR 0x20d4e 00021510 de c6 | | ADDA.W D6,A7 00021512 30 39 00 03 b1 d4 |09 | MOVE.W 0x3b1d4,D0 00021518 02 40 00 20 | @ | ANDI.W #0x0020,D0 0002151c 67 26 |g& | BEQ 0x21544 0002151e 2f 3a ee 5a |/: Z | MOVE.L 0x2037a,-(A7) 00021522 2f 3a ee 52 |/: R | MOVE.L 0x20376,-(A7) 00021526 2f 3a ee 4a |/: J | MOVE.L 0x20372,-(A7) 0002152a 2f 3a ee 42 |/: B | MOVE.L 0x2036e,-(A7) 0002152e 59 4f |YO | SUBQ.L #0x4,A7 00021530 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021534 3f 01 |? | MOVE.W D1,-(A7) 00021536 3f 05 |? | MOVE.W D5,-(A7) 00021538 4e 92 |N | JSR (A2) 0002153a 50 4f |PO | ADDQ.L #0x8,A7 0002153c 28 4b |(K | MOVEA.L A3,A4 0002153e 4e ba f8 0e |N | JSR 0x20d4e 00021542 de c2 | | ADDA.W D2,A7 00021544 30 39 00 03 b1 d4 |09 | MOVE.W 0x3b1d4,D0 0002154a c0 45 | E | AND.W D5,D0 0002154c 67 24 |g$ | BEQ 0x21572 0002154e 2f 3a ee 36 |/: 6 | MOVE.L 0x20386,-(A7) 00021552 2f 3a ee 2e |/: . | MOVE.L 0x20382,-(A7) 00021556 2f 3a ee 26 |/: & | MOVE.L 0x2037e,-(A7) 0002155a 59 4f |YO | SUBQ.L #0x4,A7 0002155c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021560 3f 01 |? | MOVE.W D1,-(A7) 00021562 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 00021566 4e 92 |N | JSR (A2) 00021568 50 4f |PO | ADDQ.L #0x8,A7 0002156a 28 4b |(K | MOVEA.L A3,A4 0002156c 4e ba f7 e0 |N | JSR 0x20d4e 00021570 de c5 | | ADDA.W D5,A7 00021572 30 39 00 03 b1 d4 |09 | MOVE.W 0x3b1d4,D0 00021578 02 40 00 04 | @ | ANDI.W #0x0004,D0 0002157c 67 2c |g, | BEQ 0x215aa 0002157e 9e fc 00 1e | | SUBA.W #0x1e,A7 00021582 20 4f | O | MOVEA.L A7,A0 00021584 43 fa ee 04 |C | LEA.L 0x2038a,A1 00021588 70 1c |p | MOVEQ.L #0x1c,D0 0002158a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002158c 51 c8 ff fc |Q | DBF D0,0x2158a 00021590 59 4f |YO | SUBQ.L #0x4,A7 00021592 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021596 3f 01 |? | MOVE.W D1,-(A7) 00021598 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 0002159c 4e 92 |N | JSR (A2) 0002159e 50 4f |PO | ADDQ.L #0x8,A7 000215a0 28 4b |(K | MOVEA.L A3,A4 000215a2 4e ba f7 aa |N | JSR 0x20d4e 000215a6 de fc 00 22 | " | ADDA.W #0x22,A7 000215aa 30 39 00 03 b1 d4 |09 | MOVE.W 0x3b1d4,D0 000215b0 c0 41 | A | AND.W D1,D0 000215b2 67 26 |g& | BEQ 0x215da 000215b4 2f 3a ed fe |/: | MOVE.L 0x203b4,-(A7) 000215b8 2f 3a ed f6 |/: | MOVE.L 0x203b0,-(A7) 000215bc 2f 3a ed ee |/: | MOVE.L 0x203ac,-(A7) 000215c0 2f 3a ed e6 |/: | MOVE.L 0x203a8,-(A7) 000215c4 59 4f |YO | SUBQ.L #0x4,A7 000215c6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215ca 3f 01 |? | MOVE.W D1,-(A7) 000215cc 3f 05 |? | MOVE.W D5,-(A7) 000215ce 4e 92 |N | JSR (A2) 000215d0 50 4f |PO | ADDQ.L #0x8,A7 000215d2 28 4b |(K | MOVEA.L A3,A4 000215d4 4e ba f7 78 |N x | JSR 0x20d4e 000215d8 de c2 | | ADDA.W D2,A7 000215da 30 39 00 03 b1 d6 |09 | MOVE.W 0x3b1d6,D0 000215e0 02 40 80 00 | @ | ANDI.W #0x8000,D0 000215e4 67 26 |g& | BEQ 0x2160c 000215e6 41 fa ed da |A | LEA.L 0x203c2,A0 000215ea 70 04 |p | MOVEQ.L #0x04,D0 000215ec 3f 20 |? | MOVE.W -(A0),-(A7) 000215ee 51 c8 ff fc |Q | DBF D0,0x215ec 000215f2 59 4f |YO | SUBQ.L #0x4,A7 000215f4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215f8 3f 01 |? | MOVE.W D1,-(A7) 000215fa 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000215fe 4e 92 |N | JSR (A2) 00021600 50 4f |PO | ADDQ.L #0x8,A7 00021602 28 4b |(K | MOVEA.L A3,A4 00021604 4e ba f7 48 |N H | JSR 0x20d4e 00021608 de fc 00 0e | | ADDA.W #0xe,A7 0002160c 30 39 00 03 b1 d6 |09 | MOVE.W 0x3b1d6,D0 00021612 02 40 40 00 | @@ | ANDI.W #0x4000,D0 00021616 67 28 |g( | BEQ 0x21640 00021618 9e c5 | | SUBA.W D5,A7 0002161a 20 4f | O | MOVEA.L A7,A0 0002161c 43 fa ed a4 |C | LEA.L 0x203c2,A1 00021620 70 0e |p | MOVEQ.L #0x0e,D0 00021622 10 d9 | | MOVE.B (A1)+,(A0)+ 00021624 51 c8 ff fc |Q | DBF D0,0x21622 00021628 59 4f |YO | SUBQ.L #0x4,A7 0002162a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002162e 3f 01 |? | MOVE.W D1,-(A7) 00021630 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00021634 4e 92 |N | JSR (A2) 00021636 50 4f |PO | ADDQ.L #0x8,A7 00021638 28 4b |(K | MOVEA.L A3,A4 0002163a 4e ba f7 12 |N | JSR 0x20d4e 0002163e de c2 | | ADDA.W D2,A7 00021640 30 39 00 03 b1 d6 |09 | MOVE.W 0x3b1d6,D0 00021646 02 40 10 00 | @ | ANDI.W #0x1000,D0 0002164a 67 28 |g( | BEQ 0x21674 0002164c 9e c5 | | SUBA.W D5,A7 0002164e 20 4f | O | MOVEA.L A7,A0 00021650 43 fa ed 80 |C | LEA.L 0x203d2,A1 00021654 70 0e |p | MOVEQ.L #0x0e,D0 00021656 10 d9 | | MOVE.B (A1)+,(A0)+ 00021658 51 c8 ff fc |Q | DBF D0,0x21656 0002165c 59 4f |YO | SUBQ.L #0x4,A7 0002165e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021662 3f 01 |? | MOVE.W D1,-(A7) 00021664 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00021668 4e 92 |N | JSR (A2) 0002166a 50 4f |PO | ADDQ.L #0x8,A7 0002166c 28 4b |(K | MOVEA.L A3,A4 0002166e 4e ba f6 de |N | JSR 0x20d4e 00021672 de c2 | | ADDA.W D2,A7 00021674 30 39 00 03 b1 d6 |09 | MOVE.W 0x3b1d6,D0 0002167a 02 40 08 00 | @ | ANDI.W #0x0800,D0 0002167e 67 24 |g$ | BEQ 0x216a4 00021680 41 fa ed 74 |A t | LEA.L 0x203f6,A0 00021684 70 04 |p | MOVEQ.L #0x04,D0 00021686 2f 20 |/ | MOVE.L -(A0),-(A7) 00021688 51 c8 ff fc |Q | DBF D0,0x21686 0002168c 59 4f |YO | SUBQ.L #0x4,A7 0002168e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021692 3f 01 |? | MOVE.W D1,-(A7) 00021694 3f 02 |? | MOVE.W D2,-(A7) 00021696 4e 92 |N | JSR (A2) 00021698 50 4f |PO | ADDQ.L #0x8,A7 0002169a 28 4b |(K | MOVEA.L A3,A4 0002169c 4e ba f6 b0 |N | JSR 0x20d4e 000216a0 de fc 00 18 | | ADDA.W #0x18,A7 000216a4 30 39 00 03 b1 d6 |09 | MOVE.W 0x3b1d6,D0 000216aa 02 40 04 00 | @ | ANDI.W #0x0400,D0 000216ae 67 2a |g* | BEQ 0x216da 000216b0 9e c6 | | SUBA.W D6,A7 000216b2 20 4f | O | MOVEA.L A7,A0 000216b4 43 fa ed 40 |C @ | LEA.L 0x203f6,A1 000216b8 70 10 |p | MOVEQ.L #0x10,D0 000216ba 10 d9 | | MOVE.B (A1)+,(A0)+ 000216bc 51 c8 ff fc |Q | DBF D0,0x216ba 000216c0 59 4f |YO | SUBQ.L #0x4,A7 000216c2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216c6 3f 01 |? | MOVE.W D1,-(A7) 000216c8 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 000216cc 4e 92 |N | JSR (A2) 000216ce 50 4f |PO | ADDQ.L #0x8,A7 000216d0 28 4b |(K | MOVEA.L A3,A4 000216d2 4e ba f6 7a |N z | JSR 0x20d4e 000216d6 de fc 00 16 | | ADDA.W #0x16,A7 000216da 30 39 00 03 b1 d6 |09 | MOVE.W 0x3b1d6,D0 000216e0 02 40 00 80 | @ | ANDI.W #0x0080,D0 000216e4 67 24 |g$ | BEQ 0x2170a 000216e6 2f 3a ed 28 |/: ( | MOVE.L 0x20410,-(A7) 000216ea 2f 3a ed 20 |/: | MOVE.L 0x2040c,-(A7) 000216ee 2f 3a ed 18 |/: | MOVE.L 0x20408,-(A7) 000216f2 59 4f |YO | SUBQ.L #0x4,A7 000216f4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216f8 3f 01 |? | MOVE.W D1,-(A7) 000216fa 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 000216fe 4e 92 |N | JSR (A2) 00021700 50 4f |PO | ADDQ.L #0x8,A7 00021702 28 4b |(K | MOVEA.L A3,A4 00021704 4e ba f6 48 |N H | JSR 0x20d4e 00021708 de c5 | | ADDA.W D5,A7 0002170a 30 39 00 03 b1 d6 |09 | MOVE.W 0x3b1d6,D0 00021710 02 40 00 20 | @ | ANDI.W #0x0020,D0 00021714 67 2a |g* | BEQ 0x21740 00021716 9e c6 | | SUBA.W D6,A7 00021718 20 4f | O | MOVEA.L A7,A0 0002171a 43 fa ec f8 |C | LEA.L 0x20414,A1 0002171e 70 10 |p | MOVEQ.L #0x10,D0 00021720 10 d9 | | MOVE.B (A1)+,(A0)+ 00021722 51 c8 ff fc |Q | DBF D0,0x21720 00021726 59 4f |YO | SUBQ.L #0x4,A7 00021728 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002172c 3f 01 |? | MOVE.W D1,-(A7) 0002172e 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00021732 4e 92 |N | JSR (A2) 00021734 50 4f |PO | ADDQ.L #0x8,A7 00021736 28 4b |(K | MOVEA.L A3,A4 00021738 4e ba f6 14 |N | JSR 0x20d4e 0002173c de fc 00 16 | | ADDA.W #0x16,A7 00021740 20 6e ff fa | n | MOVEA.L (A6-0x6),A0 00021744 4a 50 |JP | TST.W (A0) 00021746 67 0c |g | BEQ 0x21754 00021748 2f 2e ff fa |/. | MOVE.L (A6-0x6),-(A7) 0002174c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021752 58 4f |XO | ADDQ.L #0x4,A7 00021754 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021758 4e 5e |N^ | UNLK A6 0002175a 4e 75 |Nu | RTS 0002175c ; -------------------------------------------------------------------------------------- 0002175c ; OMSI PASCAL Function 0002175c ; <LVAR -0x004 2(r)> 0002175c ; <LVAR -0x006 2(r)> 0002175c ; <LVAR -0x008 2(r)> 0002175c ; <LVAR -0x00a 2(r)> 0002175c ; <LVAR -0x00e 2(r)> 0002175c ; <LVAR -0x016 2(r)> 0002175c ; <LVAR -0x01e 2(r)> 0002175c ; <LVAR -0x020 2(r)> 0002175c ; <LVAR -0x022 2(r)> 0002175c ; <LVAR -0x024 2(r)> 0002175c ; <LVAR -0x02a 2(r)> 0002175c ; -------------------------------------------------------------------------------------- 0002175c 4e 56 ff 96 |NV | LINK.W A6,#0xff96 ; Spelunked 00021760 bf d5 | | CMPA.L (A5),A7 00021762 62 06 |b | BHI 0x2176a 00021764 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021768 4e 76 |Nv | TRAPV 0002176a de fc 00 36 | 6 | ADDA.W #0x36,A7 0002176e 48 e7 db 80 |H | MOVEM.L A0+D7+D6+D4+D3+D1+D0,-(A7) 00021772 72 13 |r | MOVEQ.L #0x13,D1 00021774 2e 3c 00 00 93 03 |.< | MOVE.L #0x9303,D7 0002177a e1 87 | | ASL.L #0x8,D7 0002177c e1 87 | | ASL.L #0x8,D7 0002177e 06 87 00 00 fd c0 | | ADDI.L #0x0000fdc0,D7 00021784 7c 00 || | MOVEQ.L #0x00,D6 00021786 78 02 |x | MOVEQ.L #0x02,D4 00021788 26 06 |& | MOVE.L D6,D3 0002178a 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00021790 2f 07 |/ | MOVE.L D7,-(A7) 00021792 d9 97 | | ADD.L D4,(A7) 00021794 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00021798 bc 81 | | CMP.L D1,D6 0002179a 63 02 |c | BLS 0x2179e 0002179c 4e 4f |NO | TRAP #15 0002179e 20 06 | | MOVE.L D6,D0 000217a0 e3 80 | | ASL.L #0x1,D0 000217a2 41 f6 08 d6 |A | LEA.L (A6+D0.L-#0x2a),A0 000217a6 2f 08 |/ | MOVE.L A0,-(A7) 000217a8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000217ac 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000217b0 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word 000217b6 de fc 00 0e | | ADDA.W #0xe,A7 000217ba 52 86 |R | ADDQ.L #0x1,D6 000217bc bc 81 | | CMP.L D1,D6 000217be 6f c6 |o | BLE 0x21786 000217c0 33 ee ff d6 00 03 b1 ce |3 | MOVE.W (A6-0x2a),0x3b1ce 000217c8 33 ee ff de 00 03 b1 d0 |3 | MOVE.W (A6-0x22),0x3b1d0 000217d0 33 ee ff e0 00 03 b1 d2 |3 | MOVE.W (A6-0x20),0x3b1d2 000217d8 33 ee ff e2 00 03 b1 d4 |3 | MOVE.W (A6-0x1e),0x3b1d4 000217e0 33 ee ff f8 00 03 b1 d6 |3 | MOVE.W (A6-0x8),0x3b1d6 000217e8 33 ee ff fa 00 03 b1 d8 |3 | MOVE.W (A6-0x6),0x3b1d8 000217f0 33 ee ff fc 00 03 b1 da |3 | MOVE.W (A6-0x4),0x3b1da 000217f8 33 ee ff f2 00 03 b1 dc |3 | MOVE.W (A6-0xe),0x3b1dc 00021800 33 ee ff dc 00 03 b1 de |3 | MOVE.W (A6-0x24),0x3b1de 00021808 33 ee ff ea 00 03 b1 e0 |3 | MOVE.W (A6-0x16),0x3b1e0 00021810 33 ee ff f6 00 03 b1 e2 |3 | MOVE.W (A6-0xa),0x3b1e2 00021818 4c df 01 db |L | MOVEM.L (A7)+,D0+D1+D3+D4+D6+D7+A0 0002181c 4e 5e |N^ | UNLK A6 0002181e 4e 75 |Nu | RTS 00021820 ; -------------------------------------------------------------------------------------- 00021820 ; OMSI PASCAL Function 00021820 ; <LVAR -0x008 2(w)> 00021820 ; <LVAR -0x00e 2(w)> 00021820 ; <LVAR -0x012 @> 00021820 ; <LVAR -0x014 @ 1(r)> 00021820 ; -------------------------------------------------------------------------------------- 00021820 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 ; Spelunked 00021824 bf d5 | | CMPA.L (A5),A7 00021826 62 06 |b | BHI 0x2182e 00021828 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002182c 4e 76 |Nv | TRAPV 0002182e de fc 00 3c | < | ADDA.W #0x3c,A7 00021832 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021836 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe) 0002183c 30 39 00 03 b1 e4 |09 | MOVE.W 0x3b1e4,D0 00021842 e1 40 | @ | ASL.W #0x8,D0 00021844 52 40 |R@ | ADDQ.W #0x1,D0 00021846 0c 40 ff ff | @ | CMPI.W #0xffff,D0 0002184a 63 02 |c | BLS 0x2184e 0002184c 4e 4f |NO | TRAP #15 0002184e 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00021852 48 6e ff ee |Hn | PEA.L (A6-0x12) 00021856 41 f9 00 03 b1 ce |A | LEA.L 0x3b1ce,A0 0002185c 2f 08 |/ | MOVE.L A0,-(A7) 0002185e 42 67 |Bg | CLR.W -(A7) 00021860 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021866 50 4f |PO | ADDQ.L #0x8,A7 00021868 42 57 |BW | CLR.W (A7) 0002186a 48 6e ff ec |Hn | PEA.L (A6-0x14) 0002186e 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021874 5c 4f |\O | ADDQ.L #0x6,A7 00021876 4a 2e ff ec |J. | TST.B (A6-0x14) 0002187a 66 2a |f* | BNE 0x218a6 0002187c 41 fa eb cc |A | LEA.L 0x2044a,A0 00021880 70 08 |p | MOVEQ.L #0x08,D0 00021882 2f 20 |/ | MOVE.L -(A0),-(A7) 00021884 51 c8 ff fc |Q | DBF D0,0x21882 00021888 59 4f |YO | SUBQ.L #0x4,A7 0002188a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002188e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021892 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7) 00021896 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002189c 50 4f |PO | ADDQ.L #0x8,A7 0002189e 4e ba f3 ec |N | JSR 0x20c8c 000218a2 de fc 00 28 | ( | ADDA.W #0x28,A7 000218a6 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000218aa 4e 5e |N^ | UNLK A6 000218ac 4e 75 |Nu | RTS 000218ae ; -------------------------------------------------------------------------------------- 000218ae ; OMSI PASCAL Function 000218ae ; <LVAR 0x00c 2(r)> 000218ae ; <LVAR 0x008 4(r)> 000218ae ; <LVAR -0x002 @ 1(r)> 000218ae ; <LVAR -0x006 2(w)> 000218ae ; <LVAR -0x008 2(w)> 000218ae ; <LVAR -0x00a 2(r)> 000218ae ; <LVAR -0x00c 2(r)> 000218ae ; <LVAR -0x00e 2(w)> 000218ae ; <LVAR -0x010 2(r)> 000218ae ; <LVAR -0x012 @ 2(r)> 000218ae ; -------------------------------------------------------------------------------------- 000218ae 4e 56 ff 9c |NV | LINK.W A6,#0xff9c 000218b2 bf d5 | | CMPA.L (A5),A7 000218b4 62 06 |b | BHI 0x218bc 000218b6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000218ba 4e 76 |Nv | TRAPV 000218bc de fc 00 52 | R | ADDA.W #0x52,A7 000218c0 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 000218c4 42 6e ff ee |Bn | CLR.W (A6-0x12) 000218c8 42 6e ff f0 |Bn | CLR.W (A6-0x10) 000218cc 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe) 000218d2 42 6e ff f4 |Bn | CLR.W (A6-0xc) 000218d6 42 6e ff f6 |Bn | CLR.W (A6-0xa) 000218da 30 39 00 03 b1 e4 |09 | MOVE.W 0x3b1e4,D0 000218e0 e1 40 | @ | ASL.W #0x8,D0 000218e2 06 40 00 0e | @ | ADDI.W #0x000e,D0 000218e6 0c 40 ff ff | @ | CMPI.W #0xffff,D0 000218ea 63 02 |c | BLS 0x218ee 000218ec 4e 4f |NO | TRAP #15 000218ee 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 000218f2 3d 6e 00 0c ff fa |=n | MOVE.W (A6+0xc),(A6-0x6) 000218f8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000218fc 48 6e ff ee |Hn | PEA.L (A6-0x12) 00021900 22 48 |"H | MOVEA.L A0,A1 00021902 2f 09 |/ | MOVE.L A1,-(A7) 00021904 42 67 |Bg | CLR.W -(A7) 00021906 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 0002190c 50 4f |PO | ADDQ.L #0x8,A7 0002190e 42 57 |BW | CLR.W (A7) 00021910 48 6e ff fe |Hn | PEA.L (A6-0x2) 00021914 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 0002191a 5c 4f |\O | ADDQ.L #0x6,A7 0002191c 02 50 00 ff | P | ANDI.W #0x00ff,(A0) 00021920 4a 2e ff fe |J. | TST.B (A6-0x2) 00021924 66 48 |fH | BNE 0x2196e 00021926 9e fc 00 32 | 2 | SUBA.W #0x32,A7 0002192a 20 4f | O | MOVEA.L A7,A0 0002192c 43 fa eb 1c |C | LEA.L 0x2044a,A1 00021930 70 30 |p0 | MOVEQ.L #0x30,D0 00021932 10 d9 | | MOVE.B (A1)+,(A0)+ 00021934 51 c8 ff fc |Q | DBF D0,0x21932 00021938 51 4f |QO | SUBQ.L #0x8,A7 0002193a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002193e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021942 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 00021946 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002194c 58 4f |XO | ADDQ.L #0x4,A7 0002194e 42 80 |B | CLR.L D0 00021950 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 00021954 2f 00 |/ | MOVE.L D0,-(A7) 00021956 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002195c 58 4f |XO | ADDQ.L #0x4,A7 0002195e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021964 50 4f |PO | ADDQ.L #0x8,A7 00021966 4e ba f3 24 |N $ | JSR 0x20c8c 0002196a de fc 00 36 | 6 | ADDA.W #0x36,A7 0002196e 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021972 4e 5e |N^ | UNLK A6 00021974 4e 75 |Nu | RTS 00021976 ; -------------------------------------------------------------------------------------- 00021976 ; OMSI PASCAL Function 00021976 ; <LVAR 0x008 2(r)> 00021976 ; <LVAR -0x004 2(rw)> 00021976 ; <LVAR -0x006 2(rw)> 00021976 ; <LVAR -0x008 2(rw)> 00021976 ; <LVAR -0x482 @> 00021976 ; <LVAR -0x486 @ 2(r)> 00021976 ; <LVAR -0x8fe @> 00021976 ; <LVAR -0x902 @> 00021976 ; -------------------------------------------------------------------------------------- 00021976 4e 56 f6 c8 |NV | LINK.W A6,#0xf6c8 0002197a bf d5 | | CMPA.L (A5),A7 0002197c 62 06 |b | BHI 0x21984 0002197e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021982 4e 76 |Nv | TRAPV 00021984 de fc 00 36 | 6 | ADDA.W #0x36,A7 00021988 48 e7 c7 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 0002198c 45 ee ff fc |E | LEA.L (A6-0x4),A2 00021990 47 f9 00 03 b1 c4 |G | LEA.L 0x3b1c4,A3 00021996 7e 00 |~ | MOVEQ.L #0x00,D7 00021998 34 ae 00 08 |4 | MOVE.W (A6+0x8),(A2) 0002199c 02 52 00 03 | R | ANDI.W #0x0003,(A2) 000219a0 0c 87 00 00 ff ff | | CMPI.L #0x0000ffff,D7 000219a6 63 02 |c | BLS 0x219aa 000219a8 4e 4f |NO | TRAP #15 000219aa 3f 07 |? | MOVE.W D7,-(A7) 000219ac 48 6e fb 7a |Hn z | PEA.L (A6-0x486) 000219b0 4e ba fe fc |N | JSR 0x218ae 000219b4 5c 4f |\O | ADDQ.L #0x6,A7 000219b6 0c 87 00 00 04 77 | w | CMPI.L #0x00000477,D7 000219bc 63 02 |c | BLS 0x219c0 000219be 4e 4f |NO | TRAP #15 000219c0 41 ee f6 fe |A | LEA.L (A6-0x902),A0 000219c4 41 f0 78 00 |A x | LEA.L (A0+D7.L),A0 000219c8 30 2e fb 7a |0. z | MOVE.W (A6-0x486),D0 000219cc 41 bc 00 ff |A | CHK.W #0xff,D0 000219d0 11 40 04 80 | @ | MOVE.B D0,(A0+0x480) 000219d4 52 87 |R | ADDQ.L #0x1,D7 000219d6 0c 87 00 00 04 00 | | CMPI.L #0x00000400,D7 000219dc 66 c2 |f | BNE 0x219a0 000219de 41 ee f7 02 |A | LEA.L (A6-0x8fe),A0 000219e2 43 ee fb 7e |C ~ | LEA.L (A6-0x482),A1 000219e6 30 3c 01 1d |0< | MOVE.W #0x11d,D0 000219ea 20 d9 | | MOVE.L (A1)+,(A0)+ 000219ec 51 c8 ff fc |Q | DBF D0,0x219ea 000219f0 41 ee f6 fe |A | LEA.L (A6-0x902),A0 000219f4 30 12 |0 | MOVE.W (A2),D0 000219f6 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 000219fa 42 80 |B | CLR.L D0 000219fc 10 28 02 54 | ( T | MOVE.B (A0+0x254),D0 00021a00 e1 40 | @ | ASL.W #0x8,D0 00021a02 42 81 |B | CLR.L D1 00021a04 12 28 01 d4 | ( | MOVE.B (A0+0x1d4),D1 00021a08 d2 40 | @ | ADD.W D0,D1 00021a0a 3a 01 |: | MOVE.W D1,D5 00021a0c 42 80 |B | CLR.L D0 00021a0e 10 28 03 54 | ( T | MOVE.B (A0+0x354),D0 00021a12 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00021a16 42 80 |B | CLR.L D0 00021a18 10 28 02 d4 | ( | MOVE.B (A0+0x2d4),D0 00021a1c 3d 40 ff fa |=@ | MOVE.W D0,(A6-0x6) 00021a20 42 53 |BS | CLR.W (A3) 00021a22 7c 05 || | MOVEQ.L #0x05,D6 00021a24 30 06 |0 | MOVE.W D6,D0 00021a26 e5 40 | @ | ASL.W #0x2,D0 00021a28 41 f9 00 02 81 96 |A | LEA.L 0x28196,A0 00021a2e 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00021a32 ba 68 20 12 | h | CMP.W (A0+0x2012),D5 00021a36 66 1a |f | BNE 0x21a52 00021a38 42 80 |B | CLR.L D0 00021a3a 10 28 20 14 | ( | MOVE.B (A0+0x2014),D0 00021a3e b0 6e ff f8 | n | CMP.W (A6-0x8),D0 00021a42 66 0e |f | BNE 0x21a52 00021a44 42 80 |B | CLR.L D0 00021a46 10 28 20 15 | ( | MOVE.B (A0+0x2015),D0 00021a4a b0 6e ff fa | n | CMP.W (A6-0x6),D0 00021a4e 66 02 |f | BNE 0x21a52 00021a50 36 86 |6 | MOVE.W D6,(A3) 00021a52 53 46 |SF | SUBQ.W #0x1,D6 00021a54 6c ce |l | BGE 0x21a24 00021a56 4c df 0f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3 00021a5a 4e 5e |N^ | UNLK A6 00021a5c 4e 75 |Nu | RTS 00021a5e ; -------------------------------------------------------------------------------------- 00021a5e ; OMSI PASCAL Function 00021a5e ; <LVAR 0x00a 4(r)> 00021a5e ; <LVAR 0x008 1(r)> 00021a5e ; -------------------------------------------------------------------------------------- 00021a5e 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 ; Spelunked 00021a62 bf d5 | | CMPA.L (A5),A7 00021a64 62 06 |b | BHI 0x21a6c 00021a66 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021a6a 4e 76 |Nv | TRAPV 00021a6c de fc 00 2a | * | ADDA.W #0x2a,A7 00021a70 48 e7 d8 c0 |H | MOVEM.L A1+A0+D4+D3+D1+D0,-(A7) 00021a74 41 ec 00 0e |A | LEA.L (A4+0xe),A0 00021a78 43 f9 00 01 02 c0 |C | LEA.L AppendChar(MOD b : String; a : char),A1 00021a7e 72 30 |r0 | MOVEQ.L #0x30,D1 00021a80 28 2e 00 0a |(. | MOVE.L (A6+0xa),D4 00021a84 76 0a |v | MOVEQ.L #0x0a,D3 00021a86 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00021a8c 2f 10 |/ | MOVE.L (A0),-(A7) 00021a8e 20 04 | | MOVE.L D4,D0 00021a90 d0 81 | | ADD.L D1,D0 00021a92 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 00021a98 63 02 |c | BLS 0x21a9c 00021a9a 4e 4f |NO | TRAP #15 00021a9c 1f 00 | | MOVE.B D0,-(A7) 00021a9e 4e 91 |N | JSR (A1) 00021aa0 54 4f |TO | ADDQ.L #0x2,A7 00021aa2 2e 90 |. | MOVE.L (A0),(A7) 00021aa4 d6 41 | A | ADD.W D1,D3 00021aa6 1f 03 | | MOVE.B D3,-(A7) 00021aa8 4e 91 |N | JSR (A1) 00021aaa 5c 4f |\O | ADDQ.L #0x6,A7 00021aac 4a 2e 00 08 |J. | TST.B (A6+0x8) 00021ab0 67 0a |g | BEQ 0x21abc 00021ab2 2f 10 |/ | MOVE.L (A0),-(A7) 00021ab4 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00021ab8 4e 91 |N | JSR (A1) 00021aba 5c 4f |\O | ADDQ.L #0x6,A7 00021abc 4c df 03 1b |L | MOVEM.L (A7)+,D0+D1+D3+D4+A0+A1 00021ac0 4e 5e |N^ | UNLK A6 00021ac2 4e 75 |Nu | RTS 00021ac4 ; -------------------------------------------------------------------------------------- 00021ac4 ; OMSI PASCAL Function 00021ac4 ; <LVAR 0x00c 2(r)> 00021ac4 ; <LVAR 0x008 2(r)> 00021ac4 ; <LVAR -0x006 4(rw)> 00021ac4 ; <LVAR -0x00a 4(rw)> 00021ac4 ; <LVAR -0x014 @> 00021ac4 ; -------------------------------------------------------------------------------------- 00021ac4 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00021ac8 bf d5 | | CMPA.L (A5),A7 00021aca 62 06 |b | BHI 0x21ad2 00021acc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021ad0 4e 76 |Nv | TRAPV 00021ad2 de fc 00 44 | D | ADDA.W #0x44,A7 00021ad6 48 e7 e7 c8 |H | MOVEM.L A4+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00021ada 41 ee ff ec |A | LEA.L (A6-0x14),A0 00021ade 43 fa ff 7e |C ~ | LEA.L 0x21a5e,A1 00021ae2 74 3a |t: | MOVEQ.L #0x3a,D2 00021ae4 42 80 |B | CLR.L D0 00021ae6 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 00021aea 42 81 |B | CLR.L D1 00021aec 32 2e 00 0c |2. | MOVE.W (A6+0xc),D1 00021af0 44 81 |D | NEG.L D1 00021af2 d2 80 | | ADD.L D0,D1 00021af4 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 00021afa 63 02 |c | BLS 0x21afe 00021afc 4e 4f |NO | TRAP #15 00021afe 3e 01 |> | MOVE.W D1,D7 00021b00 42 80 |B | CLR.L D0 00021b02 30 07 |0 | MOVE.W D7,D0 00021b04 80 fc 07 08 | | DIVU.W #0x708,D0 00021b08 42 81 |B | CLR.L D1 00021b0a 32 00 |2 | MOVE.W D0,D1 00021b0c 2c 01 |, | MOVE.L D1,D6 00021b0e 48 40 |H@ | SWAP.W D0 00021b10 3e 00 |> | MOVE.W D0,D7 00021b12 42 80 |B | CLR.L D0 00021b14 30 07 |0 | MOVE.W D7,D0 00021b16 80 fc 00 1e | | DIVU.W #0x1e,D0 00021b1a 42 81 |B | CLR.L D1 00021b1c 32 00 |2 | MOVE.W D0,D1 00021b1e 2a 01 |* | MOVE.L D1,D5 00021b20 48 40 |H@ | SWAP.W D0 00021b22 3e 00 |> | MOVE.W D0,D7 00021b24 42 80 |B | CLR.L D0 00021b26 30 07 |0 | MOVE.W D7,D0 00021b28 e3 80 | | ASL.L #0x1,D0 00021b2a 2d 40 ff f6 |-@ | MOVE.L D0,(A6-0xa) 00021b2e 2f 3a e9 58 |/: X | MOVE.L 0x20488,-(A7) 00021b32 2f 3a e9 50 |/: P | MOVE.L 0x20484,-(A7) 00021b36 2f 3a e9 48 |/: H | MOVE.L 0x20480,-(A7) 00021b3a 2f 3a e9 40 |/: @ | MOVE.L 0x2047c,-(A7) 00021b3e 59 4f |YO | SUBQ.L #0x4,A7 00021b40 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b44 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021b48 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 00021b4c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021b52 50 4f |PO | ADDQ.L #0x8,A7 00021b54 2d 5f ff fa |-_ | MOVE.L (A7)+,(A6-0x6) 00021b58 de fc 00 0c | | ADDA.W #0xc,A7 00021b5c 2e 86 |. | MOVE.L D6,(A7) 00021b5e 1f 02 | | MOVE.B D2,-(A7) 00021b60 28 48 |(H | MOVEA.L A0,A4 00021b62 4e 91 |N | JSR (A1) 00021b64 54 4f |TO | ADDQ.L #0x2,A7 00021b66 2e 85 |. | MOVE.L D5,(A7) 00021b68 1f 02 | | MOVE.B D2,-(A7) 00021b6a 28 48 |(H | MOVEA.L A0,A4 00021b6c 4e 91 |N | JSR (A1) 00021b6e 54 4f |TO | ADDQ.L #0x2,A7 00021b70 2e ae ff f6 |. | MOVE.L (A6-0xa),(A7) 00021b74 42 27 |B' | CLR.B -(A7) 00021b76 28 48 |(H | MOVEA.L A0,A4 00021b78 4e 91 |N | JSR (A1) 00021b7a 54 4f |TO | ADDQ.L #0x2,A7 00021b7c 2e ae ff fa |. | MOVE.L (A6-0x6),(A7) 00021b80 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021b86 58 4f |XO | ADDQ.L #0x4,A7 00021b88 4c df 13 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A4 00021b8c 4e 5e |N^ | UNLK A6 00021b8e 4e 75 |Nu | RTS 00021b90 ; -------------------------------------------------------------------------------------- 00021b90 ; OMSI PASCAL Function 00021b90 ; -------------------------------------------------------------------------------------- 00021b90 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00021b94 bf d5 | | CMPA.L (A5),A7 00021b96 62 06 |b | BHI 0x21b9e 00021b98 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021b9c 4e 76 |Nv | TRAPV 00021b9e de fc 00 30 | 0 | ADDA.W #0x30,A7 00021ba2 48 e7 e3 80 |H | MOVEM.L A0+D7+D6+D2+D1+D0,-(A7) 00021ba6 74 1d |t | MOVEQ.L #0x1d,D2 00021ba8 7e 01 |~ | MOVEQ.L #0x01,D7 00021baa 20 07 | | MOVE.L D7,D0 00021bac e3 80 | | ASL.L #0x1,D0 00021bae 22 00 |" | MOVE.L D0,D1 00021bb0 53 81 |S | SUBQ.L #0x1,D1 00021bb2 b2 82 | | CMP.L D2,D1 00021bb4 63 02 |c | BLS 0x21bb8 00021bb6 4e 4f |NO | TRAP #15 00021bb8 41 f9 00 02 81 96 |A | LEA.L 0x28196,A0 00021bbe d1 fc 00 01 2c 2e | ,. | ADDA.L #0x12c2e,A0 00021bc4 1c 30 18 36 | 0 6 | MOVE.B (A0+D1.L+#0x36),D6 00021bc8 53 80 |S | SUBQ.L #0x1,D0 00021bca 53 80 |S | SUBQ.L #0x1,D0 00021bcc b0 82 | | CMP.L D2,D0 00021bce 63 02 |c | BLS 0x21bd2 00021bd0 4e 4f |NO | TRAP #15 00021bd2 11 b0 08 36 18 36 | 6 6 | MOVE.B (A0+D0.L+#0x36),(A0+D1.L+#0x36) 00021bd8 11 86 08 36 | 6 | MOVE.B D6,(A0+D0.L+#0x36) 00021bdc 52 87 |R | ADDQ.L #0x1,D7 00021bde 0c 87 00 00 00 0f | | CMPI.L #0x0000000f,D7 00021be4 6f c4 |o | BLE 0x21baa 00021be6 4c df 01 c7 |L | MOVEM.L (A7)+,D0+D1+D2+D6+D7+A0 00021bea 4e 5e |N^ | UNLK A6 00021bec 4e 75 |Nu | RTS 00021bee ; -------------------------------------------------------------------------------------- 00021bee ; OMSI PASCAL Function 00021bee ; <LVAR 0x008 4(r)> 00021bee ; <LVAR -0x00e @> 00021bee ; <LVAR -0x02e @ 1(r)> 00021bee ; <LVAR -0x03a @ 2(r)> 00021bee ; <LVAR -0x03c 2(r)> 00021bee ; <LVAR -0x03e 2(r)> 00021bee ; <LVAR -0x040 2(w)> 00021bee ; <LVAR -0x042 2(r)> 00021bee ; <LVAR -0x044 2(r)> 00021bee ; <LVAR -0x046 2(w)> 00021bee ; <LVAR -0x048 2(r)> 00021bee ; <LVAR -0x04a @ 2(r)> 00021bee ; -------------------------------------------------------------------------------------- 00021bee 4e 56 ff 34 |NV 4 | LINK.W A6,#0xff34 00021bf2 bf d5 | | CMPA.L (A5),A7 00021bf4 62 06 |b | BHI 0x21bfc 00021bf6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021bfa 4e 76 |Nv | TRAPV 00021bfc de fc 00 80 | | ADDA.W #0x80,A7 00021c00 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021c04 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021c0a 72 01 |r | MOVEQ.L #0x01,D1 00021c0c 74 02 |t | MOVEQ.L #0x02,D2 00021c0e 76 1e |v | MOVEQ.L #0x1e,D3 00021c10 78 24 |x$ | MOVEQ.L #0x24,D4 00021c12 7a 0c |z | MOVEQ.L #0x0c,D5 00021c14 7c 0f || | MOVEQ.L #0x0f,D6 00021c16 7e 10 |~ | MOVEQ.L #0x10,D7 00021c18 3f 3a e9 3e |?: > | MOVE.W 0x20558,-(A7) 00021c1c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021c20 59 4f |YO | SUBQ.L #0x4,A7 00021c22 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021c26 3f 01 |? | MOVE.W D1,-(A7) 00021c28 3f 02 |? | MOVE.W D2,-(A7) 00021c2a 4e 92 |N | JSR (A2) 00021c2c 5c 4f |\O | ADDQ.L #0x6,A7 00021c2e 42 17 |B | CLR.B (A7) 00021c30 48 79 00 03 b1 ea |Hy | PEA.L 0x3b1ea 00021c36 48 6e ff f2 |Hn | PEA.L (A6-0xe) 00021c3a 4e ba f0 b2 |N | JSR 0x20cee 00021c3e de fc 00 12 | | ADDA.W #0x12,A7 00021c42 42 17 |B | CLR.B (A7) 00021c44 4e b9 00 01 03 ac |N | JSR Set_is_open_ERROR_LOG(a : Bool) 00021c4a 54 4f |TO | ADDQ.L #0x2,A7 00021c4c 23 c1 00 02 00 20 |# | MOVE.L D1,0x20020 00021c52 23 c1 00 01 00 26 |# & | MOVE.L D1,0x10026 00021c58 41 fa e8 56 |A V | LEA.L 0x204b0,A0 00021c5c 70 08 |p | MOVEQ.L #0x08,D0 00021c5e 2f 20 |/ | MOVE.L -(A0),-(A7) 00021c60 51 c8 ff fc |Q | DBF D0,0x21c5e 00021c64 51 4f |QO | SUBQ.L #0x8,A7 00021c66 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021c6a 3f 01 |? | MOVE.W D1,-(A7) 00021c6c 3f 04 |? | MOVE.W D4,-(A7) 00021c6e 4e 92 |N | JSR (A2) 00021c70 50 4f |PO | ADDQ.L #0x8,A7 00021c72 48 78 00 00 |Hx | PEA.L 0x0 00021c76 48 78 00 0f |Hx | PEA.L 0xf 00021c7a 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00021c80 de c5 | | ADDA.W D5,A7 00021c82 20 1f | | MOVE.L (A7)+,D0 00021c84 b0 86 | | CMP.L D6,D0 00021c86 63 02 |c | BLS 0x21c8a 00021c88 4e 4f |NO | TRAP #15 00021c8a de c4 | | ADDA.W D4,A7 00021c8c 33 c0 00 03 b1 e4 |3 | MOVE.W D0,0x3b1e4 00021c92 42 6e ff b6 |Bn | CLR.W (A6-0x4a) 00021c96 42 6e ff b8 |Bn | CLR.W (A6-0x48) 00021c9a 3d 42 ff ba |=B | MOVE.W D2,(A6-0x46) 00021c9e 42 6e ff bc |Bn | CLR.W (A6-0x44) 00021ca2 42 6e ff be |Bn | CLR.W (A6-0x42) 00021ca6 e1 40 | @ | ASL.W #0x8,D0 00021ca8 3d 40 ff c0 |=@ | MOVE.W D0,(A6-0x40) 00021cac 42 6e ff c2 |Bn | CLR.W (A6-0x3e) 00021cb0 42 6e ff c4 |Bn | CLR.W (A6-0x3c) 00021cb4 48 6e ff b6 |Hn | PEA.L (A6-0x4a) 00021cb8 41 ee ff c6 |A | LEA.L (A6-0x3a),A0 00021cbc 2f 08 |/ | MOVE.L A0,-(A7) 00021cbe 42 67 |Bg | CLR.W -(A7) 00021cc0 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021cc6 50 4f |PO | ADDQ.L #0x8,A7 00021cc8 42 57 |BW | CLR.W (A7) 00021cca 48 6e ff d2 |Hn | PEA.L (A6-0x2e) 00021cce 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021cd4 5c 4f |\O | ADDQ.L #0x6,A7 00021cd6 30 2e ff c6 |0. | MOVE.W (A6-0x3a),D0 00021cda b0 41 | A | CMP.W D1,D0 00021cdc 67 22 |g" | BEQ 0x21d00 00021cde 41 fa e8 46 |A F | LEA.L 0x20526,A0 00021ce2 70 0e |p | MOVEQ.L #0x0e,D0 00021ce4 3f 20 |? | MOVE.W -(A0),-(A7) 00021ce6 51 c8 ff fc |Q | DBF D0,0x21ce4 00021cea 59 4f |YO | SUBQ.L #0x4,A7 00021cec 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021cf0 3f 01 |? | MOVE.W D1,-(A7) 00021cf2 3f 03 |? | MOVE.W D3,-(A7) 00021cf4 4e 92 |N | JSR (A2) 00021cf6 50 4f |PO | ADDQ.L #0x8,A7 00021cf8 4e ba ef 92 |N | JSR 0x20c8c 00021cfc de fc 00 22 | " | ADDA.W #0x22,A7 00021d00 33 f9 00 03 b1 e4 00 01 |3 | MOVE.W 0x3b1e4,0x10008 00021d08 00 08 | | 00021d0a 33 fc 7f ff 00 01 00 0c |3 | MOVE.W #0x7fff,0x1000c 00021d12 33 fc 7f ff 00 01 00 0a |3 | MOVE.W #0x7fff,0x1000a 00021d1a 1f 02 | | MOVE.B D2,-(A7) 00021d1c 3f 02 |? | MOVE.W D2,-(A7) 00021d1e 48 78 00 01 |Hx | PEA.L 0x1 00021d22 2f 39 00 03 b1 ca |/9 | MOVE.L 0x3b1ca,-(A7) 00021d28 48 6e ff d2 |Hn | PEA.L (A6-0x2e) 00021d2c 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 00021d32 de c7 | | ADDA.W D7,A7 00021d34 4a 2e ff d2 |J. | TST.B (A6-0x2e) 00021d38 66 2a |f* | BNE 0x21d64 00021d3a 9e fc 00 2a | * | SUBA.W #0x2a,A7 00021d3e 20 4f | O | MOVEA.L A7,A0 00021d40 43 fa e7 6e |C n | LEA.L 0x204b0,A1 00021d44 70 28 |p( | MOVEQ.L #0x28,D0 00021d46 10 d9 | | MOVE.B (A1)+,(A0)+ 00021d48 51 c8 ff fc |Q | DBF D0,0x21d46 00021d4c 59 4f |YO | SUBQ.L #0x4,A7 00021d4e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021d52 3f 01 |? | MOVE.W D1,-(A7) 00021d54 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 00021d58 4e 92 |N | JSR (A2) 00021d5a 50 4f |PO | ADDQ.L #0x8,A7 00021d5c 4e ba ef 2e |N . | JSR 0x20c8c 00021d60 de fc 00 2e | . | ADDA.W #0x2e,A7 00021d64 30 39 00 03 ad c6 |09 | MOVE.W 0x3adc6,D0 00021d6a 0c 40 7f ed | @ | CMPI.W #0x7fed,D0 00021d6e 67 2a |g* | BEQ 0x21d9a 00021d70 9e fc 00 14 | | SUBA.W #0x14,A7 00021d74 20 4f | O | MOVEA.L A7,A0 00021d76 43 fa e7 62 |C b | LEA.L 0x204da,A1 00021d7a 70 12 |p | MOVEQ.L #0x12,D0 00021d7c 10 d9 | | MOVE.B (A1)+,(A0)+ 00021d7e 51 c8 ff fc |Q | DBF D0,0x21d7c 00021d82 59 4f |YO | SUBQ.L #0x4,A7 00021d84 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021d88 3f 01 |? | MOVE.W D1,-(A7) 00021d8a 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00021d8e 4e 92 |N | JSR (A2) 00021d90 50 4f |PO | ADDQ.L #0x8,A7 00021d92 4e ba ee f8 |N | JSR 0x20c8c 00021d96 de fc 00 18 | | ADDA.W #0x18,A7 00021d9a 30 39 00 03 ad c8 |09 | MOVE.W 0x3adc8,D0 00021da0 0c 40 00 03 | @ | CMPI.W #0x0003,D0 00021da4 67 28 |g( | BEQ 0x21dce 00021da6 9e fc 00 1a | | SUBA.W #0x1a,A7 00021daa 20 4f | O | MOVEA.L A7,A0 00021dac 43 fa e7 40 |C @ | LEA.L 0x204ee,A1 00021db0 70 18 |p | MOVEQ.L #0x18,D0 00021db2 10 d9 | | MOVE.B (A1)+,(A0)+ 00021db4 51 c8 ff fc |Q | DBF D0,0x21db2 00021db8 59 4f |YO | SUBQ.L #0x4,A7 00021dba 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021dbe 3f 01 |? | MOVE.W D1,-(A7) 00021dc0 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00021dc4 4e 92 |N | JSR (A2) 00021dc6 50 4f |PO | ADDQ.L #0x8,A7 00021dc8 4e ba ee c2 |N | JSR 0x20c8c 00021dcc de c3 | | ADDA.W D3,A7 00021dce 23 f9 00 03 ad cc 00 03 |# | MOVE.L 0x3adcc,0x3b1e6 00021dd6 b1 e6 | | 00021dd8 4e ba fd b6 |N | JSR 0x21b90 00021ddc 41 f9 00 03 ae 18 |A | LEA.L 0x3ae18,A0 00021de2 70 0e |p | MOVEQ.L #0x0e,D0 00021de4 3f 20 |? | MOVE.W -(A0),-(A7) 00021de6 51 c8 ff fc |Q | DBF D0,0x21de4 00021dea 51 4f |QO | SUBQ.L #0x8,A7 00021dec 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021df0 3f 01 |? | MOVE.W D1,-(A7) 00021df2 3f 03 |? | MOVE.W D3,-(A7) 00021df4 4e 92 |N | JSR (A2) 00021df6 50 4f |PO | ADDQ.L #0x8,A7 00021df8 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00021dfe 58 4f |XO | ADDQ.L #0x4,A7 00021e00 26 5f |&_ | MOVEA.L (A7)+,A3 00021e02 de fc 00 16 | | ADDA.W #0x16,A7 00021e06 20 4f | O | MOVEA.L A7,A0 00021e08 43 fa e7 50 |C P | LEA.L 0x2055a,A1 00021e0c 70 06 |p | MOVEQ.L #0x06,D0 00021e0e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021e10 51 c8 ff fc |Q | DBF D0,0x21e0e 00021e14 51 4f |QO | SUBQ.L #0x8,A7 00021e16 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021e1a 3f 01 |? | MOVE.W D1,-(A7) 00021e1c 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00021e20 4e 92 |N | JSR (A2) 00021e22 2e 8b |. | MOVE.L A3,(A7) 00021e24 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00021e2a 58 4f |XO | ADDQ.L #0x4,A7 00021e2c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021e32 50 4f |PO | ADDQ.L #0x8,A7 00021e34 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021e3a de fc 00 0a | | ADDA.W #0xa,A7 00021e3e 3e b9 00 03 b1 e4 |> | MOVE.W 0x3b1e4,(A7) 00021e44 4e ba fb 30 |N 0 | JSR 0x21976 00021e48 54 4f |TO | ADDQ.L #0x2,A7 00021e4a 30 39 00 03 b1 c4 |09 | MOVE.W 0x3b1c4,D0 00021e50 e5 40 | @ | ASL.W #0x2,D0 00021e52 41 f9 00 02 81 96 |A | LEA.L 0x28196,A0 00021e58 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00021e5c 30 28 20 12 |0( | MOVE.W (A0+0x2012),D0 00021e60 b0 79 00 03 b1 e6 | y | CMP.W 0x3b1e6,D0 00021e66 66 18 |f | BNE 0x21e80 00021e68 10 28 20 14 | ( | MOVE.B (A0+0x2014),D0 00021e6c b0 39 00 03 b1 e8 | 9 | CMP.B 0x3b1e8,D0 00021e72 66 0c |f | BNE 0x21e80 00021e74 10 28 20 15 | ( | MOVE.B (A0+0x2015),D0 00021e78 b0 39 00 03 b1 e9 | 9 | CMP.B 0x3b1e9,D0 00021e7e 67 2a |g* | BEQ 0x21eaa 00021e80 9e fc 00 32 | 2 | SUBA.W #0x32,A7 00021e84 20 4f | O | MOVEA.L A7,A0 00021e86 43 fa e6 9e |C | LEA.L 0x20526,A1 00021e8a 70 30 |p0 | MOVEQ.L #0x30,D0 00021e8c 10 d9 | | MOVE.B (A1)+,(A0)+ 00021e8e 51 c8 ff fc |Q | DBF D0,0x21e8c 00021e92 59 4f |YO | SUBQ.L #0x4,A7 00021e94 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021e98 3f 01 |? | MOVE.W D1,-(A7) 00021e9a 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 00021e9e 4e 92 |N | JSR (A2) 00021ea0 50 4f |PO | ADDQ.L #0x8,A7 00021ea2 4e ba ed e8 |N | JSR 0x20c8c 00021ea6 de fc 00 36 | 6 | ADDA.W #0x36,A7 00021eaa 42 80 |B | CLR.L D0 00021eac 10 39 00 03 b1 e9 | 9 | MOVE.B 0x3b1e9,D0 00021eb2 e2 40 | @ | ASR.W #0x1,D0 00021eb4 48 c0 |H | EXTW.L D0 00021eb6 23 c0 00 03 a9 c0 |# | MOVE.L D0,0x3a9c0 00021ebc 4a 39 00 03 b1 ea |J9 | TST.B 0x3b1ea 00021ec2 67 00 00 c2 |g | BEQ 0x21f86 00021ec6 9e c7 | | SUBA.W D7,A7 00021ec8 20 4f | O | MOVEA.L A7,A0 00021eca 43 fa e6 96 |C | LEA.L 0x20562,A1 00021ece 70 0e |p | MOVEQ.L #0x0e,D0 00021ed0 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ed2 51 c8 ff fc |Q | DBF D0,0x21ed0 00021ed6 2f 3a e6 a2 |/: | MOVE.L 0x2057a,-(A7) 00021eda 2f 3a e6 9a |/: | MOVE.L 0x20576,-(A7) 00021ede 2f 3a e6 92 |/: | MOVE.L 0x20572,-(A7) 00021ee2 2f 3a e6 9e |/: | MOVE.L 0x20582,-(A7) 00021ee6 2f 3a e6 96 |/: | MOVE.L 0x2057e,-(A7) 00021eea 51 4f |QO | SUBQ.L #0x8,A7 00021eec 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 00021ef0 3f 01 |? | MOVE.W D1,-(A7) 00021ef2 3f 06 |? | MOVE.W D6,-(A7) 00021ef4 4e 92 |N | JSR (A2) 00021ef6 58 4f |XO | ADDQ.L #0x4,A7 00021ef8 42 80 |B | CLR.L D0 00021efa 30 39 00 03 b1 e6 |09 | MOVE.W 0x3b1e6,D0 00021f00 2f 00 |/ | MOVE.L D0,-(A7) 00021f02 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021f08 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00021f0c 3f 01 |? | MOVE.W D1,-(A7) 00021f0e 3f 05 |? | MOVE.W D5,-(A7) 00021f10 4e 92 |N | JSR (A2) 00021f12 58 4f |XO | ADDQ.L #0x4,A7 00021f14 42 80 |B | CLR.L D0 00021f16 10 39 00 03 b1 e8 | 9 | MOVE.B 0x3b1e8,D0 00021f1c 2f 00 |/ | MOVE.L D0,-(A7) 00021f1e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021f24 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00021f28 3f 01 |? | MOVE.W D1,-(A7) 00021f2a 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00021f2e 4e 92 |N | JSR (A2) 00021f30 58 4f |XO | ADDQ.L #0x4,A7 00021f32 42 80 |B | CLR.L D0 00021f34 10 39 00 03 b1 e9 | 9 | MOVE.B 0x3b1e9,D0 00021f3a 2f 00 |/ | MOVE.L D0,-(A7) 00021f3c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021f42 58 4f |XO | ADDQ.L #0x4,A7 00021f44 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 00021f4a de fc 00 18 | | ADDA.W #0x18,A7 00021f4e 28 5f |(_ | MOVEA.L (A7)+,A4 00021f50 de fc 00 20 | | ADDA.W #0x20,A7 00021f54 2e ba e6 34 |. 4 | MOVE.L 0x2058a,(A7) 00021f58 2f 3a e6 2c |/: , | MOVE.L 0x20586,-(A7) 00021f5c 59 4f |YO | SUBQ.L #0x4,A7 00021f5e 2f 0c |/ | MOVE.L A4,-(A7) 00021f60 59 4f |YO | SUBQ.L #0x4,A7 00021f62 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021f66 3f 01 |? | MOVE.W D1,-(A7) 00021f68 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00021f6c 4e 92 |N | JSR (A2) 00021f6e 50 4f |PO | ADDQ.L #0x8,A7 00021f70 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021f76 50 4f |PO | ADDQ.L #0x8,A7 00021f78 28 5f |(_ | MOVEA.L (A7)+,A4 00021f7a 58 4f |XO | ADDQ.L #0x4,A7 00021f7c 2e 8c |. | MOVE.L A4,(A7) 00021f7e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021f84 58 4f |XO | ADDQ.L #0x4,A7 00021f86 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021f8a 4e 5e |N^ | UNLK A6 00021f8c 4e 75 |Nu | RTS 00021f8e ; -------------------------------------------------------------------------------------- 00021f8e ; OMSI PASCAL Function 00021f8e ; <LVAR 0x016 4(r)> 00021f8e ; <LVAR 0x012 4(r)> 00021f8e ; <LVAR 0x00e 4(r)> 00021f8e ; <LVAR 0x00c 1(r)> 00021f8e ; <LVAR 0x008 4(r)> 00021f8e ; <LVAR -0x008 2(w)> 00021f8e ; <LVAR -0x00a 2(w)> 00021f8e ; <LVAR -0x00c 2(w)> 00021f8e ; <LVAR -0x00e 2(r)> 00021f8e ; <LVAR -0x010 2(r)> 00021f8e ; <LVAR -0x012 2(w)> 00021f8e ; <LVAR -0x014 2(r)> 00021f8e ; <LVAR -0x016 @ 2(w)> 00021f8e ; -------------------------------------------------------------------------------------- 00021f8e 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 ; Spelunked 00021f92 bf d5 | | CMPA.L (A5),A7 00021f94 62 06 |b | BHI 0x21f9c 00021f96 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021f9a 4e 76 |Nv | TRAPV 00021f9c de fc 00 2a | * | ADDA.W #0x2a,A7 00021fa0 48 e7 f8 88 |H | MOVEM.L A4+A0+D4+D3+D2+D1+D0,-(A7) 00021fa4 24 3c 00 00 ff ff |$< | MOVE.L #0xffff,D2 00021faa 28 3c 00 00 01 00 |(< | MOVE.L #0x100,D4 00021fb0 26 39 00 03 a9 c0 |&9 | MOVE.L 0x3a9c0,D3 00021fb6 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00021fbc b8 82 | | CMP.L D2,D4 00021fbe 63 02 |c | BLS 0x21fc2 00021fc0 4e 4f |NO | TRAP #15 00021fc2 3d 44 ff ea |=D | MOVE.W D4,(A6-0x16) 00021fc6 42 6e ff ec |Bn | CLR.W (A6-0x14) 00021fca 3d 7c 00 02 ff ee |=| | MOVE.W #0x2,(A6-0x12) 00021fd0 42 6e ff f0 |Bn | CLR.W (A6-0x10) 00021fd4 42 6e ff f2 |Bn | CLR.W (A6-0xe) 00021fd8 30 39 00 03 b1 e4 |09 | MOVE.W 0x3b1e4,D0 00021fde e1 40 | @ | ASL.W #0x8,D0 00021fe0 12 2e 00 0c | . | MOVE.B (A6+0xc),D1 00021fe4 48 81 |H | EXTB.W D1 00021fe6 d2 40 | @ | ADD.W D0,D1 00021fe8 3d 41 ff f4 |=A | MOVE.W D1,(A6-0xc) 00021fec 20 2e 00 16 | . | MOVE.L (A6+0x16),D0 00021ff0 b0 82 | | CMP.L D2,D0 00021ff2 63 02 |c | BLS 0x21ff6 00021ff4 4e 4f |NO | TRAP #15 00021ff6 3d 40 ff f6 |=@ | MOVE.W D0,(A6-0xa) 00021ffa 20 2e 00 12 | . | MOVE.L (A6+0x12),D0 00021ffe e1 80 | | ASL.L #0x8,D0 00022000 d0 ae 00 0e | | ADD.L (A6+0xe),D0 00022004 b0 82 | | CMP.L D2,D0 00022006 63 02 |c | BLS 0x2200a 00022008 4e 4f |NO | TRAP #15 0002200a 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 0002200e 41 f9 00 02 a1 c0 |A | LEA.L 0x2a1c0,A0 00022014 28 48 |(H | MOVEA.L A0,A4 00022016 48 6e ff ea |Hn | PEA.L (A6-0x16) 0002201a 2f 0c |/ | MOVE.L A4,-(A7) 0002201c 42 67 |Bg | CLR.W -(A7) 0002201e 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00022024 50 4f |PO | ADDQ.L #0x8,A7 00022026 42 57 |BW | CLR.W (A7) 00022028 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002202c 48 50 |HP | PEA.L (A0) 0002202e 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00022034 5c 4f |\O | ADDQ.L #0x6,A7 00022036 4c df 11 1f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+A0+A4 0002203a 4e 5e |N^ | UNLK A6 0002203c 4e 75 |Nu | RTS 0002203e ; -------------------------------------------------------------------------------------- 0002203e ; OMSI PASCAL Function 0002203e ; <LVAR 0x008 4(r)> 0002203e ; -------------------------------------------------------------------------------------- 0002203e 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 00022042 bf d5 | | CMPA.L (A5),A7 00022044 62 06 |b | BHI 0x2204c 00022046 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002204a 4e 76 |Nv | TRAPV 0002204c de fc 00 0e | | ADDA.W #0xe,A7 00022050 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00022054 42 67 |Bg | CLR.W -(A7) 00022056 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002205a 48 50 |HP | PEA.L (A0) 0002205c 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00022062 5c 4f |\O | ADDQ.L #0x6,A7 00022064 4c df 01 00 |L | MOVEM.L (A7)+,A0 00022068 4e 5e |N^ | UNLK A6 0002206a 4e 75 |Nu | RTS 0002206c ; -------------------------------------------------------------------------------------- 0002206c ; OMSI PASCAL Function 0002206c ; <LVAR 0x014 4(r)> 0002206c ; <LVAR 0x010 4(r)> 0002206c ; <LVAR 0x00c 4(r)> 0002206c ; <LVAR 0x00a 1(r)> 0002206c ; <LVAR 0x008 1(r)> 0002206c ; <LVAR -0x006 2(w)> 0002206c ; <LVAR -0x008 2(w)> 0002206c ; <LVAR -0x00a 2(w)> 0002206c ; <LVAR -0x00c 2(r)> 0002206c ; <LVAR -0x00e 2(r)> 0002206c ; <LVAR -0x010 2(w)> 0002206c ; <LVAR -0x012 2(r)> 0002206c ; <LVAR -0x014 @ 2(w)> 0002206c ; -------------------------------------------------------------------------------------- 0002206c 4e 56 ff c2 |NV | LINK.W A6,#0xffc2 00022070 bf d5 | | CMPA.L (A5),A7 00022072 62 06 |b | BHI 0x2207a 00022074 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022078 4e 76 |Nv | TRAPV 0002207a de fc 00 2a | * | ADDA.W #0x2a,A7 0002207e 48 e7 f8 88 |H | MOVEM.L A4+A0+D4+D3+D2+D1+D0,-(A7) 00022082 24 3c 00 00 ff ff |$< | MOVE.L #0xffff,D2 00022088 28 3c 00 00 01 00 |(< | MOVE.L #0x100,D4 0002208e 26 39 00 03 a9 c0 |&9 | MOVE.L 0x3a9c0,D3 00022094 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 0002209a b8 82 | | CMP.L D2,D4 0002209c 63 02 |c | BLS 0x220a0 0002209e 4e 4f |NO | TRAP #15 000220a0 3d 44 ff ec |=D | MOVE.W D4,(A6-0x14) 000220a4 42 6e ff ee |Bn | CLR.W (A6-0x12) 000220a8 3d 7c 00 02 ff f0 |=| | MOVE.W #0x2,(A6-0x10) 000220ae 42 6e ff f2 |Bn | CLR.W (A6-0xe) 000220b2 42 6e ff f4 |Bn | CLR.W (A6-0xc) 000220b6 30 39 00 03 b1 e4 |09 | MOVE.W 0x3b1e4,D0 000220bc e1 40 | @ | ASL.W #0x8,D0 000220be 12 2e 00 08 | . | MOVE.B (A6+0x8),D1 000220c2 48 81 |H | EXTB.W D1 000220c4 d2 40 | @ | ADD.W D0,D1 000220c6 3d 41 ff f6 |=A | MOVE.W D1,(A6-0xa) 000220ca 20 2e 00 14 | . | MOVE.L (A6+0x14),D0 000220ce b0 82 | | CMP.L D2,D0 000220d0 63 02 |c | BLS 0x220d4 000220d2 4e 4f |NO | TRAP #15 000220d4 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 000220d8 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 000220dc e1 80 | | ASL.L #0x8,D0 000220de d0 ae 00 0c | | ADD.L (A6+0xc),D0 000220e2 b0 82 | | CMP.L D2,D0 000220e4 63 02 |c | BLS 0x220e8 000220e6 4e 4f |NO | TRAP #15 000220e8 3d 40 ff fa |=@ | MOVE.W D0,(A6-0x6) 000220ec 10 2e 00 0a | . | MOVE.B (A6+0xa),D0 000220f0 48 80 |H | EXTB.W D0 000220f2 0c 40 00 01 | @ | CMPI.W #0x0001,D0 000220f6 63 02 |c | BLS 0x220fa 000220f8 4e 4e |NN | TRAP #14 000220fa d0 40 | @ | ADD.W D0,D0 000220fc 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00022104 00 04 | | .CONST 0x4 ; [0x0] -> 0x22108 00022106 00 0c | | .CONST 0xc ; [0x1] -> 0x22110 00022108 switch@0x220fc[0x0]: 00022108 41 f9 00 02 a1 c0 |A | LEA.L 0x2a1c0,A0 0002210e 60 06 |` | BRA 0x22116 00022110 switch@0x220fc[0x1]: 00022110 41 f9 00 03 25 c0 |A % | LEA.L 0x325c0,A0 00022116 28 48 |(H | MOVEA.L A0,A4 00022118 48 6e ff ec |Hn | PEA.L (A6-0x14) 0002211c 2f 0c |/ | MOVE.L A4,-(A7) 0002211e 42 67 |Bg | CLR.W -(A7) 00022120 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00022126 de fc 00 0a | | ADDA.W #0xa,A7 0002212a 4c df 11 1f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+A0+A4 0002212e 4e 5e |N^ | UNLK A6 00022130 4e 75 |Nu | RTS 00022132 ; -------------------------------------------------------------------------------------- 00022132 ; OMSI PASCAL Function 00022132 ; -------------------------------------------------------------------------------------- 00022132 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 00022136 bf d5 | | CMPA.L (A5),A7 00022138 62 06 |b | BHI 0x22140 0002213a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002213e 4e 76 |Nv | TRAPV 00022140 de fc 00 4a | J | ADDA.W #0x4a,A7 00022144 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00022148 55 4f |UO | SUBQ.L #0x2,A7 0002214a 4e b9 00 01 06 10 |N | JSR Is_fc07_one_or_three() : Bool 00022150 4a 1f |J | TST.B (A7)+ 00022152 66 0c |f | BNE 0x22160 00022154 55 4f |UO | SUBQ.L #0x2,A7 00022156 4e b9 00 01 06 0a |N | JSR Is_fc07_four() : Bool 0002215c 4a 1f |J | TST.B (A7)+ 0002215e 67 2a |g* | BEQ 0x2218a 00022160 41 fa e4 5a |A Z | LEA.L 0x205bc,A0 00022164 70 16 |p | MOVEQ.L #0x16,D0 00022166 3f 20 |? | MOVE.W -(A0),-(A7) 00022168 51 c8 ff fc |Q | DBF D0,0x22166 0002216c 59 4f |YO | SUBQ.L #0x4,A7 0002216e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022172 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022176 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 0002217a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022180 50 4f |PO | ADDQ.L #0x8,A7 00022182 4e ba eb 08 |N | JSR 0x20c8c 00022186 de fc 00 32 | 2 | ADDA.W #0x32,A7 0002218a 41 f9 00 03 ad c4 |A | LEA.L 0x3adc4,A0 00022190 23 c8 00 03 b1 c6 |# | MOVE.L A0,0x3b1c6 00022196 2f 08 |/ | MOVE.L A0,-(A7) 00022198 23 df 00 03 b1 ca |# | MOVE.L (A7)+,0x3b1ca 0002219e 41 f9 00 02 a1 a8 |A | LEA.L 0x2a1a8,A0 000221a4 43 fa ea 20 |C | LEA.L 0x20bc6,A1 000221a8 70 05 |p | MOVEQ.L #0x05,D0 000221aa 20 d9 | | MOVE.L (A1)+,(A0)+ 000221ac 51 c8 ff fc |Q | DBF D0,0x221aa 000221b0 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000221b4 4e 5e |N^ | UNLK A6 000221b6 4e 75 |Nu | RTS 000221b8 ; -------------------------------------------------------------------------------------- 000221b8 ; OMSI PASCAL Function 000221b8 ; <LVAR 0x008 1(rw)> 000221b8 ; <LVAR -0x002 @ 1(r)> 000221b8 ; <LVAR -0x004 @> 000221b8 ; -------------------------------------------------------------------------------------- 000221b8 4e 56 ff ea |NV | LINK.W A6,#0xffea 000221bc bf d5 | | CMPA.L (A5),A7 000221be 62 06 |b | BHI 0x221c6 000221c0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000221c4 4e 76 |Nv | TRAPV 000221c6 de fc 00 12 | | ADDA.W #0x12,A7 000221ca 48 e7 c0 00 |H | MOVEM.L D1+D0,-(A7) 000221ce 72 01 |r | MOVEQ.L #0x01,D1 000221d0 42 2e 00 08 |B. | CLR.B (A6+0x8) 000221d4 3f 01 |? | MOVE.W D1,-(A7) 000221d6 48 6e ff fe |Hn | PEA.L (A6-0x2) 000221da 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 000221e0 5c 4f |\O | ADDQ.L #0x6,A7 000221e2 10 2e ff fe | . | MOVE.B (A6-0x2),D0 000221e6 b0 01 | | CMP.B D1,D0 000221e8 66 12 |f | BNE 0x221fc 000221ea 3f 01 |? | MOVE.W D1,-(A7) 000221ec 48 6e ff fc |Hn | PEA.L (A6-0x4) 000221f0 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 000221f6 5c 4f |\O | ADDQ.L #0x6,A7 000221f8 1d 41 00 08 | A | MOVE.B D1,(A6+0x8) 000221fc 4c df 00 03 |L | MOVEM.L (A7)+,D0+D1 00022200 4e 5e |N^ | UNLK A6 00022202 4e 75 |Nu | RTS 00022204 ; -------------------------------------------------------------------------------------- 00022204 ; OMSI PASCAL Function 00022204 ; <LVAR 0x008 4(r)> 00022204 ; <LVAR -0x004 2(rw)> 00022204 ; -------------------------------------------------------------------------------------- 00022204 4e 56 ff 6a |NV j | LINK.W A6,#0xff6a 00022208 bf d5 | | CMPA.L (A5),A7 0002220a 62 06 |b | BHI 0x22212 0002220c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022210 4e 76 |Nv | TRAPV 00022212 de fc 00 82 | | ADDA.W #0x82,A7 00022216 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002221a 47 ee ff fc |G | LEA.L (A6-0x4),A3 0002221e 42 80 |B | CLR.L D0 00022220 10 39 00 03 ad d2 | 9 | MOVE.B 0x3add2,D0 00022226 42 81 |B | CLR.L D1 00022228 12 39 00 03 b1 e9 | 9 | MOVE.B 0x3b1e9,D1 0002222e c0 c1 | | MULU.W D1,D0 00022230 42 82 |B | CLR.L D2 00022232 14 39 00 03 ad d3 | 9 | MOVE.B 0x3add3,D2 00022238 52 42 |RB | ADDQ.W #0x1,D2 0002223a d4 40 | @ | ADD.W D0,D2 0002223c e2 4a | J | LSR.W #0x1,D2 0002223e 3a 02 |: | MOVE.W D2,D5 00022240 42 80 |B | CLR.L D0 00022242 10 39 00 03 ad d6 | 9 | MOVE.B 0x3add6,D0 00022248 c0 c1 | | MULU.W D1,D0 0002224a 42 81 |B | CLR.L D1 0002224c 12 39 00 03 ad d7 | 9 | MOVE.B 0x3add7,D1 00022252 53 41 |SA | SUBQ.W #0x1,D1 00022254 42 82 |B | CLR.L D2 00022256 34 00 |4 | MOVE.W D0,D2 00022258 48 c1 |H | EXTW.L D1 0002225a d2 82 | | ADD.L D2,D1 0002225c 28 01 |( | MOVE.L D1,D4 0002225e 76 02 |v | MOVEQ.L #0x02,D3 00022260 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00022266 36 84 |6 | MOVE.W D4,(A3) 00022268 42 80 |B | CLR.L D0 0002226a 30 13 |0 | MOVE.W (A3),D0 0002226c 42 81 |B | CLR.L D1 0002226e 32 05 |2 | MOVE.W D5,D1 00022270 90 81 | | SUB.L D1,D0 00022272 0c 80 00 00 00 0f | | CMPI.L #0x0000000f,D0 00022278 67 32 |g2 | BEQ 0x222ac 0002227a 9e fc 00 32 | 2 | SUBA.W #0x32,A7 0002227e 20 4f | O | MOVEA.L A7,A0 00022280 43 fa e3 74 |C t | LEA.L 0x205f6,A1 00022284 70 30 |p0 | MOVEQ.L #0x30,D0 00022286 10 d9 | | MOVE.B (A1)+,(A0)+ 00022288 51 c8 ff fc |Q | DBF D0,0x22286 0002228c 59 4f |YO | SUBQ.L #0x4,A7 0002228e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022292 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022296 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 0002229a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000222a0 50 4f |PO | ADDQ.L #0x8,A7 000222a2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000222a8 de fc 00 36 | 6 | ADDA.W #0x36,A7 000222ac 7c 00 || | MOVEQ.L #0x00,D6 000222ae 3e 01 |> | MOVE.W D1,D7 000222b0 0c 86 00 00 07 ff | | CMPI.L #0x000007ff,D6 000222b6 63 02 |c | BLS 0x222ba 000222b8 4e 4f |NO | TRAP #15 000222ba 20 06 | | MOVE.L D6,D0 000222bc e5 80 | | ASL.L #0x2,D0 000222be 41 f9 00 02 81 96 |A | LEA.L 0x28196,A0 000222c4 41 f0 08 08 |A | LEA.L (A0+D0.L+#0x8),A0 000222c8 2f 08 |/ | MOVE.L A0,-(A7) 000222ca 28 5f |(_ | MOVEA.L (A7)+,A4 000222cc 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000222d0 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000222d4 3f 07 |? | MOVE.W D7,-(A7) 000222d6 48 78 00 01 |Hx | PEA.L 0x1 000222da 2f 0c |/ | MOVE.L A4,-(A7) 000222dc 48 50 |HP | PEA.L (A0) 000222de 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 000222e4 de fc 00 10 | | ADDA.W #0x10,A7 000222e8 4a 10 |J | TST.B (A0) 000222ea 66 34 |f4 | BNE 0x22320 000222ec 9e fc 00 3a | : | SUBA.W #0x3a,A7 000222f0 22 4f |"O | MOVEA.L A7,A1 000222f2 45 fa e2 c8 |E | LEA.L 0x205bc,A2 000222f6 70 38 |p8 | MOVEQ.L #0x38,D0 000222f8 12 da | | MOVE.B (A2)+,(A1)+ 000222fa 51 c8 ff fc |Q | DBF D0,0x222f8 000222fe 59 4f |YO | SUBQ.L #0x4,A7 00022300 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022304 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022308 3f 3c 00 39 |?< 9 | MOVE.W #0x39,-(A7) 0002230c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022312 50 4f |PO | ADDQ.L #0x8,A7 00022314 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002231a de fc 00 3e | > | ADDA.W #0x3e,A7 0002231e 60 18 |` | BRA 0x22338 00022320 06 86 00 00 01 00 | | ADDI.L #0x00000100,D6 00022326 42 80 |B | CLR.L D0 00022328 30 07 |0 | MOVE.W D7,D0 0002232a 54 80 |T | ADDQ.L #0x2,D0 0002232c 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022332 63 02 |c | BLS 0x22336 00022334 4e 4f |NO | TRAP #15 00022336 3e 00 |> | MOVE.W D0,D7 00022338 be 53 | S | CMP.W (A3),D7 0002233a 62 06 |b | BHI 0x22342 0002233c 4a 10 |J | TST.B (A0) 0002233e 66 00 ff 70 |f p | BNE 0x222b0 00022342 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022346 4e 5e |N^ | UNLK A6 00022348 4e 75 |Nu | RTS 0002234a ; -------------------------------------------------------------------------------------- 0002234a ; OMSI PASCAL Function 0002234a ; <LVAR 0x00a 1(rw)> 0002234a ; <LVAR 0x008 2(r)> 0002234a ; <LVAR -0x001 1(r)> 0002234a ; <LVAR -0x002 1(r) 2(rw)> 0002234a ; -------------------------------------------------------------------------------------- 0002234a 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 0002234e bf d5 | | CMPA.L (A5),A7 00022350 62 06 |b | BHI 0x22358 00022352 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022356 4e 76 |Nv | TRAPV 00022358 de fc 00 0e | | ADDA.W #0xe,A7 0002235c 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00022360 41 ee ff fe |A | LEA.L (A6-0x2),A0 00022364 30 ae 00 08 |0 | MOVE.W (A6+0x8),(A0) 00022368 42 80 |B | CLR.L D0 0002236a 10 10 | | MOVE.B (A0),D0 0002236c e2 08 | | LSR.B #0x1,D0 0002236e 0c 40 00 64 | @ d | CMPI.W #0x0064,D0 00022372 64 40 |d@ | BCC 0x223b4 00022374 0c 40 00 5b | @ [ | CMPI.W #0x005b,D0 00022378 6d 3a |m: | BLT 0x223b4 0002237a 30 10 |0 | MOVE.W (A0),D0 0002237c ef 48 | H | LSL.W #0x7,D0 0002237e e0 48 | H | LSR.W #0x8,D0 00022380 e8 48 | H | LSR.W #0x4,D0 00022382 67 30 |g0 | BEQ 0x223b4 00022384 30 10 |0 | MOVE.W (A0),D0 00022386 ef 48 | H | LSL.W #0x7,D0 00022388 e0 48 | H | LSR.W #0x8,D0 0002238a e8 48 | H | LSR.W #0x4,D0 0002238c 0c 40 00 0d | @ | CMPI.W #0x000d,D0 00022390 64 22 |d" | BCC 0x223b4 00022392 10 2e ff ff | . | MOVE.B (A6-0x1),D0 00022396 e7 08 | | LSL.B #0x3,D0 00022398 e6 08 | | LSR.B #0x3,D0 0002239a 67 18 |g | BEQ 0x223b4 0002239c 42 80 |B | CLR.L D0 0002239e 10 2e ff ff | . | MOVE.B (A6-0x1),D0 000223a2 e7 08 | | LSL.B #0x3,D0 000223a4 e6 08 | | LSR.B #0x3,D0 000223a6 0c 40 00 20 | @ | CMPI.W #0x0020,D0 000223aa 64 08 |d | BCC 0x223b4 000223ac 1d 7c 00 01 00 0a | | | MOVE.B #0x01,(A6+0xa) 000223b2 60 04 |` | BRA 0x223b8 000223b4 42 2e 00 0a |B. | CLR.B (A6+0xa) 000223b8 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000223bc 4e 5e |N^ | UNLK A6 000223be 4e 75 |Nu | RTS 000223c0 ; -------------------------------------------------------------------------------------- 000223c0 ; OMSI PASCAL Function 000223c0 ; <LVAR 0x012 4(r)> 000223c0 ; <LVAR 0x010 1(r)> 000223c0 ; <LVAR 0x00c 4(r)> 000223c0 ; <LVAR 0x008 4(r)> 000223c0 ; <LVAR -0x406 @ 2(r)> 000223c0 ; -------------------------------------------------------------------------------------- 000223c0 4e 56 fb be |NV | LINK.W A6,#0xfbbe 000223c4 bf d5 | | CMPA.L (A5),A7 000223c6 62 06 |b | BHI 0x223ce 000223c8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000223cc 4e 76 |Nv | TRAPV 000223ce de fc 00 3c | < | ADDA.W #0x3c,A7 000223d2 48 e7 f9 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7) 000223d6 47 ee fb fa |G | LEA.L (A6-0x406),A3 000223da 49 f9 00 02 81 96 |I | LEA.L 0x28196,A4 000223e0 76 01 |v | MOVEQ.L #0x01,D3 000223e2 78 20 |x | MOVEQ.L #0x20,D4 000223e4 10 39 00 02 a1 a2 | 9 | MOVE.B 0x2a1a2,D0 000223ea 48 80 |H | EXTB.W D0 000223ec b0 43 | C | CMP.W D3,D0 000223ee 63 02 |c | BLS 0x223f2 000223f0 4e 4e |NN | TRAP #14 000223f2 d0 40 | @ | ADD.W D0,D0 000223f4 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000223fc 00 04 | | .CONST 0x4 ; [0x0] -> 0x22400 000223fe 00 2a | * | .CONST 0x2a ; [0x1] -> 0x22426 00022400 switch@0x223f4[0x0]: 00022400 20 2e 00 12 | . | MOVE.L (A6+0x12),D0 00022404 b0 84 | | CMP.L D4,D0 00022406 63 02 |c | BLS 0x2240a 00022408 4e 4f |NO | TRAP #15 0002240a e1 80 | | ASL.L #0x8,D0 0002240c e5 80 | | ASL.L #0x2,D0 0002240e 20 4c | L | MOVEA.L A4,A0 00022410 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00022414 22 4b |"K | MOVEA.L A3,A1 00022416 41 e8 20 2a |A * | LEA.L (A0+0x202a),A0 0002241a 30 3c 00 ff |0< | MOVE.W #0xff,D0 0002241e 22 d8 |" | MOVE.L (A0)+,(A1)+ 00022420 51 c8 ff fc |Q | DBF D0,0x2241e 00022424 60 26 |`& | BRA 0x2244c 00022426 switch@0x223f4[0x1]: 00022426 20 2e 00 12 | . | MOVE.L (A6+0x12),D0 0002242a b0 84 | | CMP.L D4,D0 0002242c 63 02 |c | BLS 0x22430 0002242e 4e 4f |NO | TRAP #15 00022430 e1 80 | | ASL.L #0x8,D0 00022432 e5 80 | | ASL.L #0x2,D0 00022434 20 4c | L | MOVEA.L A4,A0 00022436 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 0002243a d1 fc 00 00 a4 2a | * | ADDA.L #0xa42a,A0 00022440 22 4b |"K | MOVEA.L A3,A1 00022442 30 3c 00 ff |0< | MOVE.W #0xff,D0 00022446 22 d8 |" | MOVE.L (A0)+,(A1)+ 00022448 51 c8 ff fc |Q | DBF D0,0x22446 0002244c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022450 30 93 |0 | MOVE.W (A3),(A0) 00022452 7e 01 |~ | MOVEQ.L #0x01,D7 00022454 10 2e 00 10 | . | MOVE.B (A6+0x10),D0 00022458 b0 03 | | CMP.B D3,D0 0002245a 67 12 |g | BEQ 0x2246e 0002245c 4a 00 |J | TST.B D0 0002245e 66 44 |fD | BNE 0x224a4 00022460 55 4f |UO | SUBQ.L #0x2,A7 00022462 3f 10 |? | MOVE.W (A0),-(A7) 00022464 4e ba fe e4 |N | JSR 0x2234a 00022468 54 4f |TO | ADDQ.L #0x2,A7 0002246a 4a 1f |J | TST.B (A7)+ 0002246c 67 36 |g6 | BEQ 0x224a4 0002246e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00022472 70 00 |p | MOVEQ.L #0x00,D0 00022474 22 6e 00 08 |"n | MOVEA.L (A6+0x8),A1 00022478 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7 0002247e 63 02 |c | BLS 0x22482 00022480 4e 4f |NO | TRAP #15 00022482 22 07 |" | MOVE.L D7,D1 00022484 e3 81 | | ASL.L #0x1,D1 00022486 24 4b |$K | MOVEA.L A3,A2 00022488 34 11 |4 | MOVE.W (A1),D2 0002248a b4 72 18 00 | r | CMP.W (A2+D1.L),D2 0002248e 66 02 |f | BNE 0x22492 00022490 52 00 |R | ADDQ.B #0x1,D0 00022492 10 80 | | MOVE.B D0,(A0) 00022494 52 87 |R | ADDQ.L #0x1,D7 00022496 4a 10 |J | TST.B (A0) 00022498 67 08 |g | BEQ 0x224a2 0002249a 0c 87 00 00 02 00 | | CMPI.L #0x00000200,D7 000224a0 66 cc |f | BNE 0x2246e 000224a2 60 06 |` | BRA 0x224aa 000224a4 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000224a8 42 10 |B | CLR.B (A0) 000224aa 4c df 1f 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4 000224ae 4e 5e |N^ | UNLK A6 000224b0 4e 75 |Nu | RTS 000224b2 ; -------------------------------------------------------------------------------------- 000224b2 ; OMSI PASCAL Function 000224b2 ; <LVAR 0x012 4(r)> 000224b2 ; <LVAR 0x010 1(r)> 000224b2 ; <LVAR 0x00c 4(r)> 000224b2 ; <LVAR 0x008 4(r)> 000224b2 ; <LVAR -0x406 @ 2(r)> 000224b2 ; -------------------------------------------------------------------------------------- 000224b2 4e 56 fb be |NV | LINK.W A6,#0xfbbe 000224b6 bf d5 | | CMPA.L (A5),A7 000224b8 62 06 |b | BHI 0x224c0 000224ba 44 fc 00 02 |D | MOVE.W #0x2,CCR 000224be 4e 76 |Nv | TRAPV 000224c0 de fc 00 3c | < | ADDA.W #0x3c,A7 000224c4 48 e7 f9 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7) 000224c8 47 ee fb fa |G | LEA.L (A6-0x406),A3 000224cc 49 f9 00 02 81 96 |I | LEA.L 0x28196,A4 000224d2 76 01 |v | MOVEQ.L #0x01,D3 000224d4 78 20 |x | MOVEQ.L #0x20,D4 000224d6 10 39 00 02 a1 a2 | 9 | MOVE.B 0x2a1a2,D0 000224dc 48 80 |H | EXTB.W D0 000224de b0 43 | C | CMP.W D3,D0 000224e0 63 02 |c | BLS 0x224e4 000224e2 4e 4e |NN | TRAP #14 000224e4 d0 40 | @ | ADD.W D0,D0 000224e6 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000224ee 00 04 | | .CONST 0x4 ; [0x0] -> 0x224f2 000224f0 00 2a | * | .CONST 0x2a ; [0x1] -> 0x22518 000224f2 switch@0x224e6[0x0]: 000224f2 20 2e 00 12 | . | MOVE.L (A6+0x12),D0 000224f6 b0 84 | | CMP.L D4,D0 000224f8 63 02 |c | BLS 0x224fc 000224fa 4e 4f |NO | TRAP #15 000224fc e1 80 | | ASL.L #0x8,D0 000224fe e5 80 | | ASL.L #0x2,D0 00022500 20 4c | L | MOVEA.L A4,A0 00022502 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00022506 22 4b |"K | MOVEA.L A3,A1 00022508 41 e8 20 2a |A * | LEA.L (A0+0x202a),A0 0002250c 30 3c 00 ff |0< | MOVE.W #0xff,D0 00022510 22 d8 |" | MOVE.L (A0)+,(A1)+ 00022512 51 c8 ff fc |Q | DBF D0,0x22510 00022516 60 26 |`& | BRA 0x2253e 00022518 switch@0x224e6[0x1]: 00022518 20 2e 00 12 | . | MOVE.L (A6+0x12),D0 0002251c b0 84 | | CMP.L D4,D0 0002251e 63 02 |c | BLS 0x22522 00022520 4e 4f |NO | TRAP #15 00022522 e1 80 | | ASL.L #0x8,D0 00022524 e5 80 | | ASL.L #0x2,D0 00022526 20 4c | L | MOVEA.L A4,A0 00022528 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 0002252c d1 fc 00 00 a4 2a | * | ADDA.L #0xa42a,A0 00022532 22 4b |"K | MOVEA.L A3,A1 00022534 30 3c 00 ff |0< | MOVE.W #0xff,D0 00022538 22 d8 |" | MOVE.L (A0)+,(A1)+ 0002253a 51 c8 ff fc |Q | DBF D0,0x22538 0002253e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022542 30 93 |0 | MOVE.W (A3),(A0) 00022544 7e 01 |~ | MOVEQ.L #0x01,D7 00022546 10 2e 00 10 | . | MOVE.B (A6+0x10),D0 0002254a b0 03 | | CMP.B D3,D0 0002254c 67 12 |g | BEQ 0x22560 0002254e 4a 00 |J | TST.B D0 00022550 66 44 |fD | BNE 0x22596 00022552 55 4f |UO | SUBQ.L #0x2,A7 00022554 3f 10 |? | MOVE.W (A0),-(A7) 00022556 4e ba fd f2 |N | JSR 0x2234a 0002255a 54 4f |TO | ADDQ.L #0x2,A7 0002255c 4a 1f |J | TST.B (A7)+ 0002255e 67 36 |g6 | BEQ 0x22596 00022560 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00022564 70 00 |p | MOVEQ.L #0x00,D0 00022566 22 6e 00 08 |"n | MOVEA.L (A6+0x8),A1 0002256a 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7 00022570 63 02 |c | BLS 0x22574 00022572 4e 4f |NO | TRAP #15 00022574 22 07 |" | MOVE.L D7,D1 00022576 e3 81 | | ASL.L #0x1,D1 00022578 24 4b |$K | MOVEA.L A3,A2 0002257a 34 11 |4 | MOVE.W (A1),D2 0002257c b4 72 18 00 | r | CMP.W (A2+D1.L),D2 00022580 66 02 |f | BNE 0x22584 00022582 52 00 |R | ADDQ.B #0x1,D0 00022584 10 80 | | MOVE.B D0,(A0) 00022586 52 87 |R | ADDQ.L #0x1,D7 00022588 4a 10 |J | TST.B (A0) 0002258a 67 08 |g | BEQ 0x22594 0002258c 0c 87 00 00 01 00 | | CMPI.L #0x00000100,D7 00022592 66 cc |f | BNE 0x22560 00022594 60 06 |` | BRA 0x2259c 00022596 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002259a 42 10 |B | CLR.B (A0) 0002259c 4c df 1f 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4 000225a0 4e 5e |N^ | UNLK A6 000225a2 4e 75 |Nu | RTS 000225a4 ; -------------------------------------------------------------------------------------- 000225a4 ; OMSI PASCAL Function 000225a4 ; <LVAR 0x013 1(r)> 000225a4 ; <LVAR 0x012 1(r)> 000225a4 ; <LVAR 0x010 2(r)> 000225a4 ; <LVAR 0x00c 4(r)> 000225a4 ; <LVAR 0x008 4(r)> 000225a4 ; <LVAR -0x004 4(rw)> 000225a4 ; -------------------------------------------------------------------------------------- 000225a4 4e 56 ff 82 |NV | LINK.W A6,#0xff82 000225a8 bf d5 | | CMPA.L (A5),A7 000225aa 62 06 |b | BHI 0x225b2 000225ac 44 fc 00 02 |D | MOVE.W #0x2,CCR 000225b0 4e 76 |Nv | TRAPV 000225b2 de fc 00 6e | n | ADDA.W #0x6e,A7 000225b6 48 e7 f7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D3+D2+D1+D0,-(A7) 000225ba 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000225c0 47 ee ff fc |G | LEA.L (A6-0x4),A3 000225c4 49 f9 00 01 02 e4 |I | LEA.L Long2String(a : Long) : String,A4 000225ca 72 01 |r | MOVEQ.L #0x01,D1 000225cc 74 02 |t | MOVEQ.L #0x02,D2 000225ce 76 18 |v | MOVEQ.L #0x18,D3 000225d0 42 80 |B | CLR.L D0 000225d2 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0 000225d6 e5 48 | H | LSL.W #0x2,D0 000225d8 e4 48 | H | LSR.W #0x2,D0 000225da 2a 00 |* | MOVE.L D0,D5 000225dc 42 80 |B | CLR.L D0 000225de 10 2e 00 13 | . | MOVE.B (A6+0x13),D0 000225e2 2e 00 |. | MOVE.L D0,D7 000225e4 42 80 |B | CLR.L D0 000225e6 10 39 00 03 b1 e9 | 9 | MOVE.B 0x3b1e9,D0 000225ec be 80 | | CMP.L D0,D7 000225ee 65 02 |e | BCS 0x225f2 000225f0 7e 00 |~ | MOVEQ.L #0x00,D7 000225f2 08 07 00 00 | | BTST.L #0x0,D7 000225f6 67 04 |g | BEQ 0x225fc 000225f8 53 87 |S | SUBQ.L #0x1,D7 000225fa 60 02 |` | BRA 0x225fe 000225fc 52 87 |R | ADDQ.L #0x1,D7 000225fe 42 80 |B | CLR.L D0 00022600 10 2e 00 12 | . | MOVE.B (A6+0x12),D0 00022604 26 80 |& | MOVE.L D0,(A3) 00022606 7c 00 || | MOVEQ.L #0x00,D6 00022608 0c 86 00 00 01 ff | | CMPI.L #0x000001ff,D6 0002260e 63 02 |c | BLS 0x22612 00022610 4e 4f |NO | TRAP #15 00022612 20 06 | | MOVE.L D6,D0 00022614 e3 80 | | ASL.L #0x1,D0 00022616 41 f9 00 02 81 96 |A | LEA.L 0x28196,A0 0002261c 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00022620 42 68 20 2a |Bh * | CLR.W (A0+0x202a) 00022624 52 86 |R | ADDQ.L #0x1,D6 00022626 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 0002262c 6f da |o | BLE 0x22608 0002262e 2f 05 |/ | MOVE.L D5,-(A7) 00022630 2f 13 |/ | MOVE.L (A3),-(A7) 00022632 2f 07 |/ | MOVE.L D7,-(A7) 00022634 42 27 |B' | CLR.B -(A7) 00022636 1f 3c 00 04 | < | MOVE.B #0x04,-(A7) 0002263a 4e ba fa 30 |N 0 | JSR 0x2206c 0002263e de fc 00 10 | | ADDA.W #0x10,A7 00022642 4a 39 00 03 b1 ea |J9 | TST.B 0x3b1ea 00022648 66 34 |f4 | BNE 0x2267e 0002264a 1f 3c 00 1b | < | MOVE.B #0x1b,-(A7) 0002264e 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00022654 55 4f |UO | SUBQ.L #0x2,A7 00022656 1e ba df d0 | | MOVE.B 0x20628,(A7) 0002265a 1f 7a df cd 00 01 | z | MOVE.B 0x20629,(A7+0x1) 00022660 1f 7a df c8 00 02 | z | MOVE.B 0x2062a,(A7+0x2) 00022666 59 4f |YO | SUBQ.L #0x4,A7 00022668 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002266c 3f 01 |? | MOVE.W D1,-(A7) 0002266e 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00022672 4e 92 |N | JSR (A2) 00022674 50 4f |PO | ADDQ.L #0x8,A7 00022676 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 0002267c 50 4f |PO | ADDQ.L #0x8,A7 0002267e 9e fc 00 16 | | SUBA.W #0x16,A7 00022682 20 4f | O | MOVEA.L A7,A0 00022684 43 fa df a6 |C | LEA.L 0x2062c,A1 00022688 70 14 |p | MOVEQ.L #0x14,D0 0002268a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002268c 51 c8 ff fc |Q | DBF D0,0x2268a 00022690 3f 3a df b0 |?: | MOVE.W 0x20642,-(A7) 00022694 3f 3a df ae |?: | MOVE.W 0x20644,-(A7) 00022698 51 4f |QO | SUBQ.L #0x8,A7 0002269a 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002269e 3f 01 |? | MOVE.W D1,-(A7) 000226a0 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 000226a4 4e 92 |N | JSR (A2) 000226a6 2e 85 |. | MOVE.L D5,(A7) 000226a8 4e 94 |N | JSR (A4) 000226aa 48 6f 00 12 |Ho | PEA.L (A7+0x12) 000226ae 3f 01 |? | MOVE.W D1,-(A7) 000226b0 3f 02 |? | MOVE.W D2,-(A7) 000226b2 4e 92 |N | JSR (A2) 000226b4 2e 93 |. | MOVE.L (A3),(A7) 000226b6 4e 94 |N | JSR (A4) 000226b8 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000226bc 3f 01 |? | MOVE.W D1,-(A7) 000226be 3f 02 |? | MOVE.W D2,-(A7) 000226c0 4e 92 |N | JSR (A2) 000226c2 2e 87 |. | MOVE.L D7,(A7) 000226c4 4e 94 |N | JSR (A4) 000226c6 58 4f |XO | ADDQ.L #0x4,A7 000226c8 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 000226ce de c3 | | ADDA.W D3,A7 000226d0 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000226d6 de c3 | | ADDA.W D3,A7 000226d8 20 4f | O | MOVEA.L A7,A0 000226da 43 fa df 6a |C j | LEA.L 0x20646,A1 000226de 70 04 |p | MOVEQ.L #0x04,D0 000226e0 10 d9 | | MOVE.B (A1)+,(A0)+ 000226e2 51 c8 ff fc |Q | DBF D0,0x226e0 000226e6 59 4f |YO | SUBQ.L #0x4,A7 000226e8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000226ec 3f 01 |? | MOVE.W D1,-(A7) 000226ee 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 000226f2 4e 92 |N | JSR (A2) 000226f4 50 4f |PO | ADDQ.L #0x8,A7 000226f6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000226fc de fc 00 0a | | ADDA.W #0xa,A7 00022700 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00022704 48 50 |HP | PEA.L (A0) 00022706 4e ba f9 36 |N 6 | JSR 0x2203e 0002270a 58 4f |XO | ADDQ.L #0x4,A7 0002270c 42 39 00 02 a1 a2 |B9 | CLR.B 0x2a1a2 00022712 48 78 00 00 |Hx | PEA.L 0x0 00022716 42 27 |B' | CLR.B -(A7) 00022718 48 50 |HP | PEA.L (A0) 0002271a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002271e 48 50 |HP | PEA.L (A0) 00022720 4e ba fd 90 |N | JSR 0x224b2 00022724 de fc 00 0e | | ADDA.W #0xe,A7 00022728 4c df 1f ef |L | MOVEM.L (A7)+,D0+D1+D2+D3+D5+D6+D7+A0+A1+A2+A3+A4 0002272c 4e 5e |N^ | UNLK A6 0002272e 4e 75 |Nu | RTS 00022730 ; -------------------------------------------------------------------------------------- 00022730 ; OMSI PASCAL Function 00022730 ; <LVAR 0x008 2(r)> 00022730 ; <LVAR -0x001 1(r)> 00022730 ; <LVAR -0x002 1(r) 2(rw)> 00022730 ; -------------------------------------------------------------------------------------- 00022730 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00022734 bf d5 | | CMPA.L (A5),A7 00022736 62 06 |b | BHI 0x2273e 00022738 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002273c 4e 76 |Nv | TRAPV 0002273e de fc 00 2a | * | ADDA.W #0x2a,A7 00022742 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7) 00022746 45 ee ff fe |E | LEA.L (A6-0x2),A2 0002274a 47 f9 00 01 03 d8 |G | LEA.L WriteConsoleString(str : String),A3 00022750 34 ae 00 08 |4 | MOVE.W (A6+0x8),(A2) 00022754 51 4f |QO | SUBQ.L #0x8,A7 00022756 42 80 |B | CLR.L D0 00022758 10 2e ff ff | . | MOVE.B (A6-0x1),D0 0002275c e7 08 | | LSL.B #0x3,D0 0002275e e6 08 | | LSR.B #0x3,D0 00022760 2f 00 |/ | MOVE.L D0,-(A7) 00022762 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022768 58 4f |XO | ADDQ.L #0x4,A7 0002276a 48 78 00 02 |Hx | PEA.L 0x2 0002276e 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String 00022774 50 4f |PO | ADDQ.L #0x8,A7 00022776 4e 93 |N | JSR (A3) 00022778 58 4f |XO | ADDQ.L #0x4,A7 0002277a 30 12 |0 | MOVE.W (A2),D0 0002277c ef 48 | H | LSL.W #0x7,D0 0002277e e0 48 | H | LSR.W #0x8,D0 00022780 e8 48 | H | LSR.W #0x4,D0 00022782 53 40 |S@ | SUBQ.W #0x1,D0 00022784 0c 40 00 0b | @ | CMPI.W #0x000b,D0 00022788 63 02 |c | BLS 0x2278c 0002278a 4e 4e |NN | TRAP #14 0002278c d0 40 | @ | ADD.W D0,D0 0002278e 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00022796 00 18 | | .CONST 0x18 ; [0x0] -> 0x227ae 00022798 00 2c | , | .CONST 0x2c ; [0x1] -> 0x227c2 0002279a 00 40 | @ | .CONST 0x40 ; [0x2] -> 0x227d6 0002279c 00 54 | T | .CONST 0x54 ; [0x3] -> 0x227ea 0002279e 00 68 | h | .CONST 0x68 ; [0x4] -> 0x227fe 000227a0 00 7a | z | .CONST 0x7a ; [0x5] -> 0x22810 000227a2 00 8c | | .CONST 0x8c ; [0x6] -> 0x22822 000227a4 00 9e | | .CONST 0x9e ; [0x7] -> 0x22834 000227a6 00 b0 | | .CONST 0xb0 ; [0x8] -> 0x22846 000227a8 00 c2 | | .CONST 0xc2 ; [0x9] -> 0x22858 000227aa 00 d4 | | .CONST 0xd4 ; [0xa] -> 0x2286a 000227ac 00 e6 | | .CONST 0xe6 ; [0xb] -> 0x2287c 000227ae switch@0x2278e[0x0]: 000227ae 5d 4f |]O | SUBQ.L #0x6,A7 000227b0 20 4f | O | MOVEA.L A7,A0 000227b2 43 fa de 98 |C | LEA.L 0x2064c,A1 000227b6 70 04 |p | MOVEQ.L #0x04,D0 000227b8 10 d9 | | MOVE.B (A1)+,(A0)+ 000227ba 51 c8 ff fc |Q | DBF D0,0x227b8 000227be 60 00 00 cc |` | BRA 0x2288c 000227c2 switch@0x2278e[0x1]: 000227c2 5d 4f |]O | SUBQ.L #0x6,A7 000227c4 20 4f | O | MOVEA.L A7,A0 000227c6 43 fa de 8a |C | LEA.L 0x20652,A1 000227ca 70 04 |p | MOVEQ.L #0x04,D0 000227cc 10 d9 | | MOVE.B (A1)+,(A0)+ 000227ce 51 c8 ff fc |Q | DBF D0,0x227cc 000227d2 60 00 00 b8 |` | BRA 0x2288c 000227d6 switch@0x2278e[0x2]: 000227d6 5d 4f |]O | SUBQ.L #0x6,A7 000227d8 20 4f | O | MOVEA.L A7,A0 000227da 43 fa de 7c |C | | LEA.L 0x20658,A1 000227de 70 04 |p | MOVEQ.L #0x04,D0 000227e0 10 d9 | | MOVE.B (A1)+,(A0)+ 000227e2 51 c8 ff fc |Q | DBF D0,0x227e0 000227e6 60 00 00 a4 |` | BRA 0x2288c 000227ea switch@0x2278e[0x3]: 000227ea 5d 4f |]O | SUBQ.L #0x6,A7 000227ec 20 4f | O | MOVEA.L A7,A0 000227ee 43 fa de 6e |C n | LEA.L 0x2065e,A1 000227f2 70 04 |p | MOVEQ.L #0x04,D0 000227f4 10 d9 | | MOVE.B (A1)+,(A0)+ 000227f6 51 c8 ff fc |Q | DBF D0,0x227f4 000227fa 60 00 00 90 |` | BRA 0x2288c 000227fe switch@0x2278e[0x4]: 000227fe 5d 4f |]O | SUBQ.L #0x6,A7 00022800 20 4f | O | MOVEA.L A7,A0 00022802 43 fa de 60 |C ` | LEA.L 0x20664,A1 00022806 70 04 |p | MOVEQ.L #0x04,D0 00022808 10 d9 | | MOVE.B (A1)+,(A0)+ 0002280a 51 c8 ff fc |Q | DBF D0,0x22808 0002280e 60 7c |`| | BRA 0x2288c 00022810 switch@0x2278e[0x5]: 00022810 5d 4f |]O | SUBQ.L #0x6,A7 00022812 20 4f | O | MOVEA.L A7,A0 00022814 43 fa de 54 |C T | LEA.L 0x2066a,A1 00022818 70 04 |p | MOVEQ.L #0x04,D0 0002281a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002281c 51 c8 ff fc |Q | DBF D0,0x2281a 00022820 60 6a |`j | BRA 0x2288c 00022822 switch@0x2278e[0x6]: 00022822 5d 4f |]O | SUBQ.L #0x6,A7 00022824 20 4f | O | MOVEA.L A7,A0 00022826 43 fa de 48 |C H | LEA.L 0x20670,A1 0002282a 70 04 |p | MOVEQ.L #0x04,D0 0002282c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002282e 51 c8 ff fc |Q | DBF D0,0x2282c 00022832 60 58 |`X | BRA 0x2288c 00022834 switch@0x2278e[0x7]: 00022834 5d 4f |]O | SUBQ.L #0x6,A7 00022836 20 4f | O | MOVEA.L A7,A0 00022838 43 fa de 3c |C < | LEA.L 0x20676,A1 0002283c 70 04 |p | MOVEQ.L #0x04,D0 0002283e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022840 51 c8 ff fc |Q | DBF D0,0x2283e 00022844 60 46 |`F | BRA 0x2288c 00022846 switch@0x2278e[0x8]: 00022846 5d 4f |]O | SUBQ.L #0x6,A7 00022848 20 4f | O | MOVEA.L A7,A0 0002284a 43 fa de 30 |C 0 | LEA.L 0x2067c,A1 0002284e 70 04 |p | MOVEQ.L #0x04,D0 00022850 10 d9 | | MOVE.B (A1)+,(A0)+ 00022852 51 c8 ff fc |Q | DBF D0,0x22850 00022856 60 34 |`4 | BRA 0x2288c 00022858 switch@0x2278e[0x9]: 00022858 5d 4f |]O | SUBQ.L #0x6,A7 0002285a 20 4f | O | MOVEA.L A7,A0 0002285c 43 fa de 24 |C $ | LEA.L 0x20682,A1 00022860 70 04 |p | MOVEQ.L #0x04,D0 00022862 10 d9 | | MOVE.B (A1)+,(A0)+ 00022864 51 c8 ff fc |Q | DBF D0,0x22862 00022868 60 22 |`" | BRA 0x2288c 0002286a switch@0x2278e[0xa]: 0002286a 5d 4f |]O | SUBQ.L #0x6,A7 0002286c 20 4f | O | MOVEA.L A7,A0 0002286e 43 fa de 18 |C | LEA.L 0x20688,A1 00022872 70 04 |p | MOVEQ.L #0x04,D0 00022874 10 d9 | | MOVE.B (A1)+,(A0)+ 00022876 51 c8 ff fc |Q | DBF D0,0x22874 0002287a 60 10 |` | BRA 0x2288c 0002287c switch@0x2278e[0xb]: 0002287c 5d 4f |]O | SUBQ.L #0x6,A7 0002287e 20 4f | O | MOVEA.L A7,A0 00022880 43 fa de 0c |C | LEA.L 0x2068e,A1 00022884 70 04 |p | MOVEQ.L #0x04,D0 00022886 10 d9 | | MOVE.B (A1)+,(A0)+ 00022888 51 c8 ff fc |Q | DBF D0,0x22886 0002288c 59 4f |YO | SUBQ.L #0x4,A7 0002288e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022892 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022896 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 0002289a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000228a0 50 4f |PO | ADDQ.L #0x8,A7 000228a2 4e 93 |N | JSR (A3) 000228a4 de fc 00 0a | | ADDA.W #0xa,A7 000228a8 59 4f |YO | SUBQ.L #0x4,A7 000228aa 42 80 |B | CLR.L D0 000228ac 10 12 | | MOVE.B (A2),D0 000228ae e2 08 | | LSR.B #0x1,D0 000228b0 52 40 |R@ | ADDQ.W #0x1,D0 000228b2 48 c0 |H | EXTW.L D0 000228b4 2f 00 |/ | MOVE.L D0,-(A7) 000228b6 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000228bc 58 4f |XO | ADDQ.L #0x4,A7 000228be 4e 93 |N | JSR (A3) 000228c0 58 4f |XO | ADDQ.L #0x4,A7 000228c2 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3 000228c6 4e 5e |N^ | UNLK A6 000228c8 4e 75 |Nu | RTS 000228ca ; -------------------------------------------------------------------------------------- 000228ca ; OMSI PASCAL Function 000228ca ; -------------------------------------------------------------------------------------- 000228ca 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 000228ce bf d5 | | CMPA.L (A5),A7 000228d0 62 06 |b | BHI 0x228d8 000228d2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000228d6 4e 76 |Nv | TRAPV 000228d8 de fc 00 46 | F | ADDA.W #0x46,A7 000228dc 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000228e0 41 fa de 0a |A | LEA.L 0x206ec,A0 000228e4 70 16 |p | MOVEQ.L #0x16,D0 000228e6 3f 20 |? | MOVE.W -(A0),-(A7) 000228e8 51 c8 ff fc |Q | DBF D0,0x228e6 000228ec 59 4f |YO | SUBQ.L #0x4,A7 000228ee 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000228f2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000228f6 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 000228fa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022900 50 4f |PO | ADDQ.L #0x8,A7 00022902 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00022908 de fc 00 30 | 0 | ADDA.W #0x30,A7 0002290c 3e ac 00 04 |> | MOVE.W (A4+0x4),(A7) 00022910 4e ba fe 1e |N | JSR 0x22730 00022914 54 4f |TO | ADDQ.L #0x2,A7 00022916 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002291c 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00022920 4e 5e |N^ | UNLK A6 00022922 4e 75 |Nu | RTS 00022924 ; -------------------------------------------------------------------------------------- 00022924 ; OMSI PASCAL Function 00022924 ; -------------------------------------------------------------------------------------- 00022924 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 00022928 bf d5 | | CMPA.L (A5),A7 0002292a 62 06 |b | BHI 0x22932 0002292c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022930 4e 76 |Nv | TRAPV 00022932 de fc 00 4a | J | ADDA.W #0x4a,A7 00022936 48 e7 81 80 |H | MOVEM.L A0+D7+D0,-(A7) 0002293a 41 fa dd de |A | LEA.L 0x2071a,A0 0002293e 70 16 |p | MOVEQ.L #0x16,D0 00022940 3f 20 |? | MOVE.W -(A0),-(A7) 00022942 51 c8 ff fc |Q | DBF D0,0x22940 00022946 59 4f |YO | SUBQ.L #0x4,A7 00022948 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002294c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022950 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00022954 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002295a 50 4f |PO | ADDQ.L #0x8,A7 0002295c 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00022962 de fc 00 32 | 2 | ADDA.W #0x32,A7 00022966 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002296c 7e 01 |~ | MOVEQ.L #0x01,D7 0002296e 20 07 | | MOVE.L D7,D0 00022970 53 80 |S | SUBQ.L #0x1,D0 00022972 0c 80 00 00 00 02 | | CMPI.L #0x00000002,D0 00022978 63 02 |c | BLS 0x2297c 0002297a 4e 4f |NO | TRAP #15 0002297c e3 80 | | ASL.L #0x1,D0 0002297e 3f 34 08 06 |?4 | MOVE.W (A4+D0.L+#0x6),-(A7) 00022982 4e ba ff 46 |N F | JSR 0x228ca 00022986 54 4f |TO | ADDQ.L #0x2,A7 00022988 52 87 |R | ADDQ.L #0x1,D7 0002298a 0c 87 00 00 00 03 | | CMPI.L #0x00000003,D7 00022990 6f dc |o | BLE 0x2296e 00022992 4c df 01 81 |L | MOVEM.L (A7)+,D0+D7+A0 00022996 4e 5e |N^ | UNLK A6 00022998 4e 75 |Nu | RTS 0002299a ; -------------------------------------------------------------------------------------- 0002299a ; OMSI PASCAL Function 0002299a ; <LVAR 0x008 4(r)> 0002299a ; <LVAR -0x008 @ 1(r)> 0002299a ; <LVAR -0x014 @ 2(r)> 0002299a ; <LVAR -0x018 @> 0002299a ; -------------------------------------------------------------------------------------- 0002299a 4e 56 ff 72 |NV r | LINK.W A6,#0xff72 0002299e bf d5 | | CMPA.L (A5),A7 000229a0 62 06 |b | BHI 0x229a8 000229a2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000229a6 4e 76 |Nv | TRAPV 000229a8 de fc 00 76 | v | ADDA.W #0x76,A7 000229ac 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000229b0 45 ee ff f8 |E | LEA.L (A6-0x8),A2 000229b4 47 ee ff ec |G | LEA.L (A6-0x14),A3 000229b8 78 03 |x | MOVEQ.L #0x03,D4 000229ba 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000229be 4e ba f2 2e |N . | JSR 0x21bee 000229c2 58 4f |XO | ADDQ.L #0x4,A7 000229c4 48 52 |HR | PEA.L (A2) 000229c6 4e ba f8 3c |N < | JSR 0x22204 000229ca 58 4f |XO | ADDQ.L #0x4,A7 000229cc 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000229d2 4a 12 |J | TST.B (A2) 000229d4 67 00 00 fa |g | BEQ 0x22ad0 000229d8 7a 00 |z | MOVEQ.L #0x00,D5 000229da 7e 00 |~ | MOVEQ.L #0x00,D7 000229dc 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 000229e2 63 02 |c | BLS 0x229e6 000229e4 4e 4f |NO | TRAP #15 000229e6 20 07 | | MOVE.L D7,D0 000229e8 e5 80 | | ASL.L #0x2,D0 000229ea 41 f9 00 02 81 96 |A | LEA.L 0x28196,A0 000229f0 2f 30 08 08 |/0 | MOVE.L (A0+D0.L+#0x8),-(A7) 000229f4 48 52 |HR | PEA.L (A2) 000229f6 48 53 |HS | PEA.L (A3) 000229f8 4e ba fb aa |N | JSR 0x225a4 000229fc de fc 00 0c | | ADDA.W #0xc,A7 00022a00 4a 12 |J | TST.B (A2) 00022a02 67 16 |g | BEQ 0x22a1a 00022a04 52 85 |R | ADDQ.L #0x1,D5 00022a06 20 05 | | MOVE.L D5,D0 00022a08 53 80 |S | SUBQ.L #0x1,D0 00022a0a 0c 80 00 00 00 02 | | CMPI.L #0x00000002,D0 00022a10 63 02 |c | BLS 0x22a14 00022a12 4e 4f |NO | TRAP #15 00022a14 e3 80 | | ASL.L #0x1,D0 00022a16 3d 93 08 ee |= | MOVE.W (A3),(A6+D0.L-#0x12) 00022a1a 52 87 |R | ADDQ.L #0x1,D7 00022a1c 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 00022a22 63 02 |c | BLS 0x22a26 00022a24 4e 4f |NO | TRAP #15 00022a26 20 07 | | MOVE.L D7,D0 00022a28 e5 80 | | ASL.L #0x2,D0 00022a2a 41 f9 00 02 81 96 |A | LEA.L 0x28196,A0 00022a30 ba 84 | | CMP.L D4,D5 00022a32 67 1e |g | BEQ 0x22a52 00022a34 32 30 08 08 |20 | MOVE.W (A0+D0.L+#0x8),D1 00022a38 e5 49 | I | LSL.W #0x2,D1 00022a3a e4 49 | I | LSR.W #0x2,D1 00022a3c 66 0c |f | BNE 0x22a4a 00022a3e 4a 30 08 0a |J0 | TST.B (A0+D0.L+#0xa) 00022a42 66 06 |f | BNE 0x22a4a 00022a44 4a 30 08 0b |J0 | TST.B (A0+D0.L+#0xb) 00022a48 67 08 |g | BEQ 0x22a52 00022a4a 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 00022a50 6f 8a |o | BLE 0x229dc 00022a52 ba 84 | | CMP.L D4,D5 00022a54 66 48 |fH | BNE 0x22a9e 00022a56 7c 01 || | MOVEQ.L #0x01,D6 00022a58 70 01 |p | MOVEQ.L #0x01,D0 00022a5a 72 00 |r | MOVEQ.L #0x00,D1 00022a5c 4a 06 |J | TST.B D6 00022a5e 67 1a |g | BEQ 0x22a7a 00022a60 24 00 |$ | MOVE.L D0,D2 00022a62 53 82 |S | SUBQ.L #0x1,D2 00022a64 0c 82 00 00 00 02 | | CMPI.L #0x00000002,D2 00022a6a 63 02 |c | BLS 0x22a6e 00022a6c 4e 4f |NO | TRAP #15 00022a6e e3 82 | | ASL.L #0x1,D2 00022a70 36 13 |6 | MOVE.W (A3),D3 00022a72 b6 76 28 ee | v( | CMP.W (A6+D2.L-#0x12),D3 00022a76 66 02 |f | BNE 0x22a7a 00022a78 52 01 |R | ADDQ.B #0x1,D1 00022a7a 1c 01 | | MOVE.B D1,D6 00022a7c 52 80 |R | ADDQ.L #0x1,D0 00022a7e b0 84 | | CMP.L D4,D0 00022a80 6f d8 |o | BLE 0x22a5a 00022a82 4a 06 |J | TST.B D6 00022a84 67 0e |g | BEQ 0x22a94 00022a86 3f 13 |? | MOVE.W (A3),-(A7) 00022a88 49 ee ff e8 |I | LEA.L (A6-0x18),A4 00022a8c 4e ba fe 3c |N < | JSR 0x228ca 00022a90 54 4f |TO | ADDQ.L #0x2,A7 00022a92 60 08 |` | BRA 0x22a9c 00022a94 49 ee ff e8 |I | LEA.L (A6-0x18),A4 00022a98 4e ba fe 8a |N | JSR 0x22924 00022a9c 60 32 |`2 | BRA 0x22ad0 00022a9e 9e fc 00 2a | * | SUBA.W #0x2a,A7 00022aa2 20 4f | O | MOVEA.L A7,A0 00022aa4 43 fa db ee |C | LEA.L 0x20694,A1 00022aa8 70 28 |p( | MOVEQ.L #0x28,D0 00022aaa 10 d9 | | MOVE.B (A1)+,(A0)+ 00022aac 51 c8 ff fc |Q | DBF D0,0x22aaa 00022ab0 59 4f |YO | SUBQ.L #0x4,A7 00022ab2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022ab6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022aba 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 00022abe 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022ac4 50 4f |PO | ADDQ.L #0x8,A7 00022ac6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022acc de fc 00 2e | . | ADDA.W #0x2e,A7 00022ad0 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022ad4 4e 5e |N^ | UNLK A6 00022ad6 4e 75 |Nu | RTS 00022ad8 ; -------------------------------------------------------------------------------------- 00022ad8 ; OMSI PASCAL Function 00022ad8 ; <LVAR 0x00c 1(r)> 00022ad8 ; <LVAR 0x008 4(r)> 00022ad8 ; <LVAR -0x008 @ 4(rw)> 00022ad8 ; <LVAR -0x00c @ 4(r)> 00022ad8 ; <LVAR -0x00e @ 2(r)> 00022ad8 ; <LVAR -0x014 @ 1(r)> 00022ad8 ; <LVAR -0x018 @ 4(r)> 00022ad8 ; <LVAR -0x01a @ 1(r)> 00022ad8 ; <LVAR -0x022 4(rw)> 00022ad8 ; <LVAR -0x026 4(rw)> 00022ad8 ; -------------------------------------------------------------------------------------- 00022ad8 4e 56 ff 58 |NV X | LINK.W A6,#0xff58 00022adc bf d5 | | CMPA.L (A5),A7 00022ade 62 06 |b | BHI 0x22ae6 00022ae0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ae4 4e 76 |Nv | TRAPV 00022ae6 de fc 00 82 | | ADDA.W #0x82,A7 00022aea 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022aee 45 ee ff f8 |E | LEA.L (A6-0x8),A2 00022af2 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00022af8 49 f9 00 03 b1 e6 |I | LEA.L 0x3b1e6,A4 00022afe 72 01 |r | MOVEQ.L #0x01,D1 00022b00 74 0a |t | MOVEQ.L #0x0a,D2 00022b02 76 09 |v | MOVEQ.L #0x09,D3 00022b04 78 10 |x | MOVEQ.L #0x10,D4 00022b06 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022b0a 4e ba f0 e2 |N | JSR 0x21bee 00022b0e 58 4f |XO | ADDQ.L #0x4,A7 00022b10 41 fa dc 22 |A " | LEA.L 0x20734,A0 00022b14 70 0c |p | MOVEQ.L #0x0c,D0 00022b16 3f 20 |? | MOVE.W -(A0),-(A7) 00022b18 51 c8 ff fc |Q | DBF D0,0x22b16 00022b1c 51 4f |QO | SUBQ.L #0x8,A7 00022b1e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022b22 3f 01 |? | MOVE.W D1,-(A7) 00022b24 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 00022b28 4e 93 |N | JSR (A3) 00022b2a 50 4f |PO | ADDQ.L #0x8,A7 00022b2c 48 78 00 00 |Hx | PEA.L 0x0 00022b30 42 80 |B | CLR.L D0 00022b32 30 14 |0 | MOVE.W (A4),D0 00022b34 2f 00 |/ | MOVE.L D0,-(A7) 00022b36 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00022b3c de fc 00 0c | | ADDA.W #0xc,A7 00022b40 2a 1f |* | MOVE.L (A7)+,D5 00022b42 de fc 00 1a | | ADDA.W #0x1a,A7 00022b46 7e 00 |~ | MOVEQ.L #0x00,D7 00022b48 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00022b4c 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00022b52 5d 4f |]O | SUBQ.L #0x6,A7 00022b54 20 4f | O | MOVEA.L A7,A0 00022b56 43 fa db dc |C | LEA.L 0x20734,A1 00022b5a 70 08 |p | MOVEQ.L #0x08,D0 00022b5c 10 d9 | | MOVE.B (A1)+,(A0)+ 00022b5e 51 c8 ff fc |Q | DBF D0,0x22b5c 00022b62 51 4f |QO | SUBQ.L #0x8,A7 00022b64 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022b68 3f 01 |? | MOVE.W D1,-(A7) 00022b6a 3f 03 |? | MOVE.W D3,-(A7) 00022b6c 4e 93 |N | JSR (A3) 00022b6e 2e 85 |. | MOVE.L D5,(A7) 00022b70 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022b76 58 4f |XO | ADDQ.L #0x4,A7 00022b78 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022b7e 50 4f |PO | ADDQ.L #0x8,A7 00022b80 24 9f |$ | MOVE.L (A7)+,(A2) 00022b82 5c 4f |\O | ADDQ.L #0x6,A7 00022b84 2e 92 |. | MOVE.L (A2),(A7) 00022b86 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 00022b8a 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00022b90 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 00022b96 20 1f | | MOVE.L (A7)+,D0 00022b98 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022b9e 63 02 |c | BLS 0x22ba2 00022ba0 4e 4f |NO | TRAP #15 00022ba2 3e 80 |> | MOVE.W D0,(A7) 00022ba4 2f 12 |/ | MOVE.L (A2),-(A7) 00022ba6 4e b9 00 01 02 0a |N | JSR KC05_Write_Console_String(port : Word ; str : String) 00022bac 5c 4f |\O | ADDQ.L #0x6,A7 00022bae 48 52 |HR | PEA.L (A2) 00022bb0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022bb6 2e 85 |. | MOVE.L D5,(A7) 00022bb8 2f 07 |/ | MOVE.L D7,-(A7) 00022bba 48 78 00 00 |Hx | PEA.L 0x0 00022bbe 42 27 |B' | CLR.B -(A7) 00022bc0 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00022bc4 4e ba f4 a6 |N | JSR 0x2206c 00022bc8 de c4 | | ADDA.W D4,A7 00022bca 48 6e ff ec |Hn | PEA.L (A6-0x14) 00022bce 4e ba f4 6e |N n | JSR 0x2203e 00022bd2 58 4f |XO | ADDQ.L #0x4,A7 00022bd4 42 39 00 02 a1 a2 |B9 | CLR.B 0x2a1a2 00022bda 2d 45 ff da |-E | MOVE.L D5,(A6-0x26) 00022bde 2d 47 ff de |-G | MOVE.L D7,(A6-0x22) 00022be2 52 87 |R | ADDQ.L #0x1,D7 00022be4 42 80 |B | CLR.L D0 00022be6 10 39 00 03 b1 e8 | 9 | MOVE.B 0x3b1e8,D0 00022bec be 80 | | CMP.L D0,D7 00022bee 65 76 |ev | BCS 0x22c66 00022bf0 7e 00 |~ | MOVEQ.L #0x00,D7 00022bf2 52 85 |R | ADDQ.L #0x1,D5 00022bf4 9e c2 | | SUBA.W D2,A7 00022bf6 20 4f | O | MOVEA.L A7,A0 00022bf8 43 fa db 44 |C D | LEA.L 0x2073e,A1 00022bfc 70 08 |p | MOVEQ.L #0x08,D0 00022bfe 10 d9 | | MOVE.B (A1)+,(A0)+ 00022c00 51 c8 ff fc |Q | DBF D0,0x22bfe 00022c04 51 4f |QO | SUBQ.L #0x8,A7 00022c06 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022c0a 3f 01 |? | MOVE.W D1,-(A7) 00022c0c 3f 03 |? | MOVE.W D3,-(A7) 00022c0e 4e 93 |N | JSR (A3) 00022c10 2e 85 |. | MOVE.L D5,(A7) 00022c12 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022c18 58 4f |XO | ADDQ.L #0x4,A7 00022c1a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022c20 50 4f |PO | ADDQ.L #0x8,A7 00022c22 24 9f |$ | MOVE.L (A7)+,(A2) 00022c24 5c 4f |\O | ADDQ.L #0x6,A7 00022c26 2e 92 |. | MOVE.L (A2),(A7) 00022c28 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 00022c2c 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00022c32 5c 4f |\O | ADDQ.L #0x6,A7 00022c34 42 80 |B | CLR.L D0 00022c36 30 14 |0 | MOVE.W (A4),D0 00022c38 ba 80 | | CMP.L D0,D5 00022c3a 64 20 |d | BCC 0x22c5c 00022c3c 5d 4f |]O | SUBQ.L #0x6,A7 00022c3e 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 00022c44 20 1f | | MOVE.L (A7)+,D0 00022c46 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022c4c 63 02 |c | BLS 0x22c50 00022c4e 4e 4f |NO | TRAP #15 00022c50 3e 80 |> | MOVE.W D0,(A7) 00022c52 2f 12 |/ | MOVE.L (A2),-(A7) 00022c54 4e b9 00 01 02 0a |N | JSR KC05_Write_Console_String(port : Word ; str : String) 00022c5a 5c 4f |\O | ADDQ.L #0x6,A7 00022c5c 48 52 |HR | PEA.L (A2) 00022c5e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022c64 58 4f |XO | ADDQ.L #0x4,A7 00022c66 42 80 |B | CLR.L D0 00022c68 30 14 |0 | MOVE.W (A4),D0 00022c6a ba 80 | | CMP.L D0,D5 00022c6c 64 3c |d< | BCC 0x22caa 00022c6e 10 39 00 02 a1 a2 | 9 | MOVE.B 0x2a1a2,D0 00022c74 48 80 |H | EXTB.W D0 00022c76 b0 41 | A | CMP.W D1,D0 00022c78 63 02 |c | BLS 0x22c7c 00022c7a 4e 4e |NN | TRAP #14 00022c7c d0 40 | @ | ADD.W D0,D0 00022c7e 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00022c86 00 04 | | .CONST 0x4 ; [0x0] -> 0x22c8a 00022c88 00 10 | | .CONST 0x10 ; [0x1] -> 0x22c96 00022c8a switch@0x22c7e[0x0]: 00022c8a 2f 05 |/ | MOVE.L D5,-(A7) 00022c8c 2f 07 |/ | MOVE.L D7,-(A7) 00022c8e 48 78 00 00 |Hx | PEA.L 0x0 00022c92 1f 01 | | MOVE.B D1,-(A7) 00022c94 60 0a |` | BRA 0x22ca0 00022c96 switch@0x22c7e[0x1]: 00022c96 2f 05 |/ | MOVE.L D5,-(A7) 00022c98 2f 07 |/ | MOVE.L D7,-(A7) 00022c9a 48 78 00 00 |Hx | PEA.L 0x0 00022c9e 42 27 |B' | CLR.B -(A7) 00022ca0 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00022ca4 4e ba f3 c6 |N | JSR 0x2206c 00022ca8 de c4 | | ADDA.W D4,A7 00022caa 4a 2e ff ec |J. | TST.B (A6-0x14) 00022cae 67 00 01 7a |g z | BEQ 0x22e2a 00022cb2 2f 39 00 03 a9 c0 |/9 | MOVE.L 0x3a9c0,-(A7) 00022cb8 53 97 |S | SUBQ.L #0x1,(A7) 00022cba 7c 00 || | MOVEQ.L #0x00,D6 00022cbc bc 97 | | CMP.L (A7),D6 00022cbe 6e 00 01 68 |n h | BGT 0x22e28 00022cc2 2f 06 |/ | MOVE.L D6,-(A7) 00022cc4 1f 2e 00 0c | . | MOVE.B (A6+0xc),-(A7) 00022cc8 48 6e ff e6 |Hn | PEA.L (A6-0x1a) 00022ccc 48 6e ff f2 |Hn | PEA.L (A6-0xe) 00022cd0 4e ba f6 ee |N | JSR 0x223c0 00022cd4 de fc 00 0e | | ADDA.W #0xe,A7 00022cd8 4a 2e ff e6 |J. | TST.B (A6-0x1a) 00022cdc 67 00 01 44 |g D | BEQ 0x22e22 00022ce0 41 fa da 70 |A p | LEA.L 0x20752,A0 00022ce4 70 04 |p | MOVEQ.L #0x04,D0 00022ce6 3f 20 |? | MOVE.W -(A0),-(A7) 00022ce8 51 c8 ff fc |Q | DBF D0,0x22ce6 00022cec 9e c2 | | SUBA.W D2,A7 00022cee 20 4f | O | MOVEA.L A7,A0 00022cf0 43 fa da 60 |C ` | LEA.L 0x20752,A1 00022cf4 70 08 |p | MOVEQ.L #0x08,D0 00022cf6 10 d9 | | MOVE.B (A1)+,(A0)+ 00022cf8 51 c8 ff fc |Q | DBF D0,0x22cf6 00022cfc 41 fa da 68 |A h | LEA.L 0x20766,A0 00022d00 70 04 |p | MOVEQ.L #0x04,D0 00022d02 3f 20 |? | MOVE.W -(A0),-(A7) 00022d04 51 c8 ff fc |Q | DBF D0,0x22d02 00022d08 51 4f |QO | SUBQ.L #0x8,A7 00022d0a 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 00022d0e 3f 01 |? | MOVE.W D1,-(A7) 00022d10 3f 02 |? | MOVE.W D2,-(A7) 00022d12 4e 93 |N | JSR (A3) 00022d14 2f 2e ff da |/. | MOVE.L (A6-0x26),-(A7) 00022d18 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022d1e 58 4f |XO | ADDQ.L #0x4,A7 00022d20 48 78 00 04 |Hx | PEA.L 0x4 00022d24 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String 00022d2a 58 4f |XO | ADDQ.L #0x4,A7 00022d2c 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 00022d30 3f 01 |? | MOVE.W D1,-(A7) 00022d32 3f 03 |? | MOVE.W D3,-(A7) 00022d34 4e 93 |N | JSR (A3) 00022d36 2f 2e ff de |/. | MOVE.L (A6-0x22),-(A7) 00022d3a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022d40 58 4f |XO | ADDQ.L #0x4,A7 00022d42 48 78 00 02 |Hx | PEA.L 0x2 00022d46 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String 00022d4c 58 4f |XO | ADDQ.L #0x4,A7 00022d4e 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00022d52 3f 01 |? | MOVE.W D1,-(A7) 00022d54 3f 02 |? | MOVE.W D2,-(A7) 00022d56 4e 93 |N | JSR (A3) 00022d58 20 06 | | MOVE.L D6,D0 00022d5a e3 80 | | ASL.L #0x1,D0 00022d5c 2f 00 |/ | MOVE.L D0,-(A7) 00022d5e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022d64 58 4f |XO | ADDQ.L #0x4,A7 00022d66 48 78 00 02 |Hx | PEA.L 0x2 00022d6a 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String 00022d70 50 4f |PO | ADDQ.L #0x8,A7 00022d72 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 00022d78 de fc 00 18 | | ADDA.W #0x18,A7 00022d7c 24 9f |$ | MOVE.L (A7)+,(A2) 00022d7e de fc 00 12 | | ADDA.W #0x12,A7 00022d82 20 4f | O | MOVEA.L A7,A0 00022d84 43 fa d9 e0 |C | LEA.L 0x20766,A1 00022d88 70 0a |p | MOVEQ.L #0x0a,D0 00022d8a 10 d9 | | MOVE.B (A1)+,(A0)+ 00022d8c 51 c8 ff fc |Q | DBF D0,0x22d8a 00022d90 51 4f |QO | SUBQ.L #0x8,A7 00022d92 20 4f | O | MOVEA.L A7,A0 00022d94 43 fa d9 dc |C | LEA.L 0x20772,A1 00022d98 70 06 |p | MOVEQ.L #0x06,D0 00022d9a 10 d9 | | MOVE.B (A1)+,(A0)+ 00022d9c 51 c8 ff fc |Q | DBF D0,0x22d9a 00022da0 59 4f |YO | SUBQ.L #0x4,A7 00022da2 2f 12 |/ | MOVE.L (A2),-(A7) 00022da4 59 4f |YO | SUBQ.L #0x4,A7 00022da6 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00022daa 3f 01 |? | MOVE.W D1,-(A7) 00022dac 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00022db0 4e 93 |N | JSR (A3) 00022db2 58 4f |XO | ADDQ.L #0x4,A7 00022db4 42 80 |B | CLR.L D0 00022db6 30 2e ff f2 |0. | MOVE.W (A6-0xe),D0 00022dba 2f 00 |/ | MOVE.L D0,-(A7) 00022dbc 48 78 00 04 |Hx | PEA.L 0x4 00022dc0 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 00022dc6 58 4f |XO | ADDQ.L #0x4,A7 00022dc8 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00022dcc 3f 01 |? | MOVE.W D1,-(A7) 00022dce 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00022dd2 4e 93 |N | JSR (A3) 00022dd4 50 4f |PO | ADDQ.L #0x8,A7 00022dd6 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 00022ddc de c4 | | ADDA.W D4,A7 00022dde 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00022de4 de fc 00 18 | | ADDA.W #0x18,A7 00022de8 4a 2e 00 0c |J. | TST.B (A6+0xc) 00022dec 66 2e |f. | BNE 0x22e1c 00022dee 41 fa d9 94 |A | LEA.L 0x20784,A0 00022df2 70 04 |p | MOVEQ.L #0x04,D0 00022df4 3f 20 |? | MOVE.W -(A0),-(A7) 00022df6 51 c8 ff fc |Q | DBF D0,0x22df4 00022dfa 59 4f |YO | SUBQ.L #0x4,A7 00022dfc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022e00 3f 01 |? | MOVE.W D1,-(A7) 00022e02 3f 02 |? | MOVE.W D2,-(A7) 00022e04 4e 93 |N | JSR (A3) 00022e06 50 4f |PO | ADDQ.L #0x8,A7 00022e08 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00022e0e de fc 00 0c | | ADDA.W #0xc,A7 00022e12 3e ae ff f2 |> | MOVE.W (A6-0xe),(A7) 00022e16 4e ba f9 18 |N | JSR 0x22730 00022e1a 54 4f |TO | ADDQ.L #0x2,A7 00022e1c 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00022e22 52 86 |R | ADDQ.L #0x1,D6 00022e24 68 00 fe 96 |h | BVC 0x22cbc 00022e28 58 4f |XO | ADDQ.L #0x4,A7 00022e2a 42 80 |B | CLR.L D0 00022e2c 30 14 |0 | MOVE.W (A4),D0 00022e2e ba 80 | | CMP.L D0,D5 00022e30 64 0a |d | BCC 0x22e3c 00022e32 48 6e ff ec |Hn | PEA.L (A6-0x14) 00022e36 4e ba f2 06 |N | JSR 0x2203e 00022e3a 58 4f |XO | ADDQ.L #0x4,A7 00022e3c 10 39 00 02 a1 a2 | 9 | MOVE.B 0x2a1a2,D0 00022e42 48 80 |H | EXTB.W D0 00022e44 b0 41 | A | CMP.W D1,D0 00022e46 63 02 |c | BLS 0x22e4a 00022e48 4e 4e |NN | TRAP #14 00022e4a d0 40 | @ | ADD.W D0,D0 00022e4c 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00022e54 00 04 | | .CONST 0x4 ; [0x0] -> 0x22e58 00022e56 00 0c | | .CONST 0xc ; [0x1] -> 0x22e60 00022e58 switch@0x22e4c[0x0]: 00022e58 13 c1 00 02 a1 a2 | | MOVE.B D1,0x2a1a2 00022e5e 60 06 |` | BRA 0x22e66 00022e60 switch@0x22e4c[0x1]: 00022e60 42 39 00 02 a1 a2 |B9 | CLR.B 0x2a1a2 00022e66 42 80 |B | CLR.L D0 00022e68 30 14 |0 | MOVE.W (A4),D0 00022e6a ba 80 | | CMP.L D0,D5 00022e6c 64 0c |d | BCC 0x22e7a 00022e6e 55 4f |UO | SUBQ.L #0x2,A7 00022e70 4e ba f3 46 |N F | JSR 0x221b8 00022e74 4a 1f |J | TST.B (A7)+ 00022e76 67 00 fd 62 |g b | BEQ 0x22bda 00022e7a 48 6e ff e8 |Hn | PEA.L (A6-0x18) 00022e7e 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00022e84 2e ae ff f4 |. | MOVE.L (A6-0xc),(A7) 00022e88 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00022e8c 4e ba ec 36 |N 6 | JSR 0x21ac4 00022e90 50 4f |PO | ADDQ.L #0x8,A7 00022e92 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022e96 4e 5e |N^ | UNLK A6 00022e98 4e 75 |Nu | RTS 00022e9a ; -------------------------------------------------------------------------------------- 00022e9a ; OMSI PASCAL Function 00022e9a ; -------------------------------------------------------------------------------------- 00022e9a 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 00022e9e bf d5 | | CMPA.L (A5),A7 00022ea0 62 06 |b | BHI 0x22ea8 00022ea2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ea6 4e 76 |Nv | TRAPV 00022ea8 de fc 00 56 | V | ADDA.W #0x56,A7 00022eac 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022eb0 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00022eb6 47 f9 00 01 03 d8 |G | LEA.L WriteConsoleString(str : String),A3 00022ebc 49 fa d2 4c |I L | LEA.L 0x2010a,A4 00022ec0 74 0e |t | MOVEQ.L #0x0e,D2 00022ec2 76 01 |v | MOVEQ.L #0x01,D3 00022ec4 78 0d |x | MOVEQ.L #0x0d,D4 00022ec6 7a 12 |z | MOVEQ.L #0x12,D5 00022ec8 7c 05 || | MOVEQ.L #0x05,D6 00022eca 9e c2 | | SUBA.W D2,A7 00022ecc 20 4f | O | MOVEA.L A7,A0 00022ece 43 fa d8 b4 |C | LEA.L 0x20784,A1 00022ed2 70 0c |p | MOVEQ.L #0x0c,D0 00022ed4 10 d9 | | MOVE.B (A1)+,(A0)+ 00022ed6 51 c8 ff fc |Q | DBF D0,0x22ed4 00022eda 59 4f |YO | SUBQ.L #0x4,A7 00022edc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022ee0 3f 03 |? | MOVE.W D3,-(A7) 00022ee2 3f 04 |? | MOVE.W D4,-(A7) 00022ee4 4e 92 |N | JSR (A2) 00022ee6 50 4f |PO | ADDQ.L #0x8,A7 00022ee8 4e 93 |N | JSR (A3) 00022eea de c5 | | ADDA.W D5,A7 00022eec 7e 01 |~ | MOVEQ.L #0x01,D7 00022eee 20 06 | | MOVE.L D6,D0 00022ef0 53 80 |S | SUBQ.L #0x1,D0 00022ef2 0c 80 00 00 00 24 | $ | CMPI.L #0x00000024,D0 00022ef8 63 02 |c | BLS 0x22efc 00022efa 4e 4f |NO | TRAP #15 00022efc 20 4c | L | MOVEA.L A4,A0 00022efe 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1 00022f02 0c 01 00 2c | , | CMPI.B #0x2c,D1 00022f06 66 00 00 96 |f | BNE 0x22f9e 00022f0a 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00022f10 10 07 | | MOVE.B D7,D0 00022f12 48 80 |H | EXTB.W D0 00022f14 53 40 |S@ | SUBQ.W #0x1,D0 00022f16 0c 40 00 02 | @ | CMPI.W #0x0002,D0 00022f1a 63 02 |c | BLS 0x22f1e 00022f1c 4e 4e |NN | TRAP #14 00022f1e d0 40 | @ | ADD.W D0,D0 00022f20 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00022f28 00 06 | | .CONST 0x6 ; [0x0] -> 0x22f2e 00022f2a 00 2c | , | .CONST 0x2c ; [0x1] -> 0x22f54 00022f2c 00 52 | R | .CONST 0x52 ; [0x2] -> 0x22f7a 00022f2e switch@0x22f20[0x0]: 00022f2e 9e c2 | | SUBA.W D2,A7 00022f30 20 4f | O | MOVEA.L A7,A0 00022f32 43 fa d8 5e |C ^ | LEA.L 0x20792,A1 00022f36 70 0c |p | MOVEQ.L #0x0c,D0 00022f38 10 d9 | | MOVE.B (A1)+,(A0)+ 00022f3a 51 c8 ff fc |Q | DBF D0,0x22f38 00022f3e 59 4f |YO | SUBQ.L #0x4,A7 00022f40 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022f44 3f 03 |? | MOVE.W D3,-(A7) 00022f46 3f 04 |? | MOVE.W D4,-(A7) 00022f48 4e 92 |N | JSR (A2) 00022f4a 50 4f |PO | ADDQ.L #0x8,A7 00022f4c 4e 93 |N | JSR (A3) 00022f4e de c5 | | ADDA.W D5,A7 00022f50 7e 02 |~ | MOVEQ.L #0x02,D7 00022f52 60 48 |`H | BRA 0x22f9c 00022f54 switch@0x22f20[0x1]: 00022f54 9e c2 | | SUBA.W D2,A7 00022f56 20 4f | O | MOVEA.L A7,A0 00022f58 43 fa d8 46 |C F | LEA.L 0x207a0,A1 00022f5c 70 0c |p | MOVEQ.L #0x0c,D0 00022f5e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022f60 51 c8 ff fc |Q | DBF D0,0x22f5e 00022f64 59 4f |YO | SUBQ.L #0x4,A7 00022f66 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022f6a 3f 03 |? | MOVE.W D3,-(A7) 00022f6c 3f 04 |? | MOVE.W D4,-(A7) 00022f6e 4e 92 |N | JSR (A2) 00022f70 50 4f |PO | ADDQ.L #0x8,A7 00022f72 4e 93 |N | JSR (A3) 00022f74 de c5 | | ADDA.W D5,A7 00022f76 7e 03 |~ | MOVEQ.L #0x03,D7 00022f78 60 22 |`" | BRA 0x22f9c 00022f7a switch@0x22f20[0x2]: 00022f7a 9e c2 | | SUBA.W D2,A7 00022f7c 20 4f | O | MOVEA.L A7,A0 00022f7e 43 fa d8 2e |C . | LEA.L 0x207ae,A1 00022f82 70 0c |p | MOVEQ.L #0x0c,D0 00022f84 10 d9 | | MOVE.B (A1)+,(A0)+ 00022f86 51 c8 ff fc |Q | DBF D0,0x22f84 00022f8a 59 4f |YO | SUBQ.L #0x4,A7 00022f8c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022f90 3f 03 |? | MOVE.W D3,-(A7) 00022f92 3f 04 |? | MOVE.W D4,-(A7) 00022f94 4e 92 |N | JSR (A2) 00022f96 50 4f |PO | ADDQ.L #0x8,A7 00022f98 4e 93 |N | JSR (A3) 00022f9a de c5 | | ADDA.W D5,A7 00022f9c 60 22 |`" | BRA 0x22fc0 00022f9e 20 4c | L | MOVEA.L A4,A0 00022fa0 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1 00022fa4 0c 01 00 5c | \ | CMPI.B #0x5c,D1 00022fa8 66 08 |f | BNE 0x22fb2 00022faa 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00022fb0 60 0e |` | BRA 0x22fc0 00022fb2 20 4c | L | MOVEA.L A4,A0 00022fb4 1f 30 08 00 | 0 | MOVE.B (A0+D0.L),-(A7) 00022fb8 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00022fbe 54 4f |TO | ADDQ.L #0x2,A7 00022fc0 52 86 |R | ADDQ.L #0x1,D6 00022fc2 20 06 | | MOVE.L D6,D0 00022fc4 53 80 |S | SUBQ.L #0x1,D0 00022fc6 53 80 |S | SUBQ.L #0x1,D0 00022fc8 0c 80 00 00 00 24 | $ | CMPI.L #0x00000024,D0 00022fce 63 02 |c | BLS 0x22fd2 00022fd0 4e 4f |NO | TRAP #15 00022fd2 20 4c | L | MOVEA.L A4,A0 00022fd4 10 30 08 00 | 0 | MOVE.B (A0+D0.L),D0 00022fd8 0c 00 00 5c | \ | CMPI.B #0x5c,D0 00022fdc 66 00 ff 10 |f | BNE 0x22eee 00022fe0 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022fe4 4e 5e |N^ | UNLK A6 00022fe6 4e 75 |Nu | RTS 00022fe8 ; -------------------------------------------------------------------------------------- 00022fe8 ; OMSI PASCAL Function 00022fe8 ; <LVAR -0x00a @ 4(rw)> 00022fe8 ; <LVAR -0x010 @ 1(r)> 00022fe8 ; <LVAR -0x014 @ 4(r)> 00022fe8 ; -------------------------------------------------------------------------------------- 00022fe8 4e 56 ff 62 |NV b | LINK.W A6,#0xff62 00022fec bf d5 | | CMPA.L (A5),A7 00022fee 62 06 |b | BHI 0x22ff6 00022ff0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ff4 4e 76 |Nv | TRAPV 00022ff6 de fc 00 86 | | ADDA.W #0x86,A7 00022ffa 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022ffe 45 ee ff f0 |E | LEA.L (A6-0x10),A2 00023002 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00023008 72 01 |r | MOVEQ.L #0x01,D1 0002300a 74 02 |t | MOVEQ.L #0x02,D2 0002300c 7a 3e |z> | MOVEQ.L #0x3e,D5 0002300e 9e c5 | | SUBA.W D5,A7 00023010 20 4f | O | MOVEA.L A7,A0 00023012 43 fa d7 a8 |C | LEA.L 0x207bc,A1 00023016 70 3c |p< | MOVEQ.L #0x3c,D0 00023018 10 d9 | | MOVE.B (A1)+,(A0)+ 0002301a 51 c8 ff fc |Q | DBF D0,0x23018 0002301e 51 4f |QO | SUBQ.L #0x8,A7 00023020 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023024 3f 01 |? | MOVE.W D1,-(A7) 00023026 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 0002302a 4e 93 |N | JSR (A3) 0002302c 50 4f |PO | ADDQ.L #0x8,A7 0002302e 48 78 00 00 |Hx | PEA.L 0x0 00023032 48 78 00 0f |Hx | PEA.L 0xf 00023036 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 0002303c de fc 00 0c | | ADDA.W #0xc,A7 00023040 20 1f | | MOVE.L (A7)+,D0 00023042 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00023048 63 02 |c | BLS 0x2304c 0002304a 4e 4f |NO | TRAP #15 0002304c de c5 | | ADDA.W D5,A7 0002304e 3c 00 |< | MOVE.W D0,D6 00023050 41 f9 00 03 ae 18 |A | LEA.L 0x3ae18,A0 00023056 70 0e |p | MOVEQ.L #0x0e,D0 00023058 3f 20 |? | MOVE.W -(A0),-(A7) 0002305a 51 c8 ff fc |Q | DBF D0,0x23058 0002305e 51 4f |QO | SUBQ.L #0x8,A7 00023060 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023064 3f 01 |? | MOVE.W D1,-(A7) 00023066 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 0002306a 4e 93 |N | JSR (A3) 0002306c 50 4f |PO | ADDQ.L #0x8,A7 0002306e 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00023074 58 4f |XO | ADDQ.L #0x4,A7 00023076 28 5f |(_ | MOVEA.L (A7)+,A4 00023078 de fc 00 1e | | ADDA.W #0x1e,A7 0002307c 4d bc 00 0f |M | CHK.W #0xf,D6 00023080 3f 06 |? | MOVE.W D6,-(A7) 00023082 48 52 |HR | PEA.L (A2) 00023084 4e b9 00 01 03 94 |N | JSR MountDisk(drive : Word ; VAR status : Byte) 0002308a 5c 4f |\O | ADDQ.L #0x6,A7 0002308c 4a 12 |J | TST.B (A2) 0002308e 67 12 |g | BEQ 0x230a2 00023090 59 4f |YO | SUBQ.L #0x4,A7 00023092 1f 12 | | MOVE.B (A2),-(A7) 00023094 4e b9 00 01 03 a0 |N | JSR FsErrMsgStr(err: Byte) : String 0002309a 54 4f |TO | ADDQ.L #0x2,A7 0002309c 4e ba db ee |N | JSR 0x20c8c 000230a0 58 4f |XO | ADDQ.L #0x4,A7 000230a2 2f 3a d7 5a |/: Z | MOVE.L 0x207fe,-(A7) 000230a6 2f 3a d7 52 |/: R | MOVE.L 0x207fa,-(A7) 000230aa 51 4f |QO | SUBQ.L #0x8,A7 000230ac 2f 0c |/ | MOVE.L A4,-(A7) 000230ae 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000230b4 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000230b8 3f 01 |? | MOVE.W D1,-(A7) 000230ba 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 000230be 4e 93 |N | JSR (A3) 000230c0 50 4f |PO | ADDQ.L #0x8,A7 000230c2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000230c8 50 4f |PO | ADDQ.L #0x8,A7 000230ca 2d 5f ff f6 |-_ | MOVE.L (A7)+,(A6-0xa) 000230ce 58 4f |XO | ADDQ.L #0x4,A7 000230d0 2e ae ff f6 |. | MOVE.L (A6-0xa),(A7) 000230d4 1f 01 | | MOVE.B D1,-(A7) 000230d6 1f 02 | | MOVE.B D2,-(A7) 000230d8 48 78 00 08 |Hx | PEA.L 0x8 000230dc 48 52 |HR | PEA.L (A2) 000230de 48 6e ff ec |Hn | PEA.L (A6-0x14) 000230e2 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000230e8 de fc 00 14 | | ADDA.W #0x14,A7 000230ec 7e 00 |~ | MOVEQ.L #0x00,D7 000230ee 28 3c 00 00 01 00 |(< | MOVE.L #0x100,D4 000230f4 26 07 |& | MOVE.L D7,D3 000230f6 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000230fc 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00023100 0c 87 00 00 40 00 | @ | CMPI.L #0x00004000,D7 00023106 63 02 |c | BLS 0x2310a 00023108 4e 4f |NO | TRAP #15 0002310a 3f 07 |? | MOVE.W D7,-(A7) 0002310c 42 67 |Bg | CLR.W -(A7) 0002310e 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00023112 1f 02 | | MOVE.B D2,-(A7) 00023114 0c 84 00 00 07 ff | | CMPI.L #0x000007ff,D4 0002311a 63 02 |c | BLS 0x2311e 0002311c 4e 4f |NO | TRAP #15 0002311e 20 04 | | MOVE.L D4,D0 00023120 e5 80 | | ASL.L #0x2,D0 00023122 41 f9 00 02 81 96 |A | LEA.L 0x28196,A0 00023128 41 f0 08 08 |A | LEA.L (A0+D0.L+#0x8),A0 0002312c 2f 08 |/ | MOVE.L A0,-(A7) 0002312e 48 52 |HR | PEA.L (A2) 00023130 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 00023136 de fc 00 14 | | ADDA.W #0x14,A7 0002313a 52 87 |R | ADDQ.L #0x1,D7 0002313c 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 00023142 6f aa |o | BLE 0x230ee 00023144 42 27 |B' | CLR.B -(A7) 00023146 1f 02 | | MOVE.B D2,-(A7) 00023148 48 78 00 01 |Hx | PEA.L 0x1 0002314c 48 52 |HR | PEA.L (A2) 0002314e 48 6e ff ec |Hn | PEA.L (A6-0x14) 00023152 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00023158 de fc 00 10 | | ADDA.W #0x10,A7 0002315c 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00023160 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023166 58 4f |XO | ADDQ.L #0x4,A7 00023168 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002316c 4e 5e |N^ | UNLK A6 0002316e 4e 75 |Nu | RTS 00023170 ; -------------------------------------------------------------------------------------- 00023170 ; OMSI PASCAL Function 00023170 ; <LVAR -0x010 @ 4(r)> 00023170 ; <LVAR -0x02c 2(w)> 00023170 ; <LVAR -0x030 4(w)> 00023170 ; <LVAR -0x031 1(r)> 00023170 ; <LVAR -0x032 1(r)> 00023170 ; <LVAR -0x034 2(w)> 00023170 ; <LVAR -0x036 2(w)> 00023170 ; <LVAR -0x054 @> 00023170 ; <LVAR -0x056 @ 1(r)> 00023170 ; -------------------------------------------------------------------------------------- 00023170 4e 56 ff 40 |NV @ | LINK.W A6,#0xff40 00023174 bf d5 | | CMPA.L (A5),A7 00023176 62 06 |b | BHI 0x2317e 00023178 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002317c 4e 76 |Nv | TRAPV 0002317e de fc 00 68 | h | ADDA.W #0x68,A7 00023182 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023186 45 ee ff aa |E | LEA.L (A6-0x56),A2 0002318a 74 01 |t | MOVEQ.L #0x01,D2 0002318c 7a 0a |z | MOVEQ.L #0x0a,D5 0002318e 41 f9 00 03 ae 18 |A | LEA.L 0x3ae18,A0 00023194 70 0e |p | MOVEQ.L #0x0e,D0 00023196 3f 20 |? | MOVE.W -(A0),-(A7) 00023198 51 c8 ff fc |Q | DBF D0,0x23196 0002319c 51 4f |QO | SUBQ.L #0x8,A7 0002319e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000231a2 3f 02 |? | MOVE.W D2,-(A7) 000231a4 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 000231a8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000231ae 50 4f |PO | ADDQ.L #0x8,A7 000231b0 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000231b6 58 4f |XO | ADDQ.L #0x4,A7 000231b8 26 5f |&_ | MOVEA.L (A7)+,A3 000231ba 55 4f |UO | SUBQ.L #0x2,A7 000231bc 20 4f | O | MOVEA.L A7,A0 000231be 43 fa d6 42 |C B | LEA.L 0x20802,A1 000231c2 70 1e |p | MOVEQ.L #0x1e,D0 000231c4 10 d9 | | MOVE.B (A1)+,(A0)+ 000231c6 51 c8 ff fc |Q | DBF D0,0x231c4 000231ca 51 4f |QO | SUBQ.L #0x8,A7 000231cc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000231d0 3f 02 |? | MOVE.W D2,-(A7) 000231d2 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 000231d6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000231dc 50 4f |PO | ADDQ.L #0x8,A7 000231de 48 78 00 00 |Hx | PEA.L 0x0 000231e2 48 78 00 03 |Hx | PEA.L 0x3 000231e6 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000231ec de fc 00 0c | | ADDA.W #0xc,A7 000231f0 20 1f | | MOVE.L (A7)+,D0 000231f2 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000231f8 63 02 |c | BLS 0x231fc 000231fa 4e 4f |NO | TRAP #15 000231fc de fc 00 20 | | ADDA.W #0x20,A7 00023200 3c 00 |< | MOVE.W D0,D6 00023202 4d bc 00 03 |M | CHK.W #0x3,D6 00023206 3f 06 |? | MOVE.W D6,-(A7) 00023208 1f 02 | | MOVE.B D2,-(A7) 0002320a 1f 02 | | MOVE.B D2,-(A7) 0002320c 48 52 |HR | PEA.L (A2) 0002320e 4e b9 00 01 04 0c |N | JSR FSCALL_1040c 00023214 de c5 | | ADDA.W D5,A7 00023216 4a 12 |J | TST.B (A2) 00023218 67 32 |g2 | BEQ 0x2324c 0002321a 1f 02 | | MOVE.B D2,-(A7) 0002321c 48 52 |HR | PEA.L (A2) 0002321e 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00023224 5c 4f |\O | ADDQ.L #0x6,A7 00023226 41 fa d6 04 |A | LEA.L 0x2082c,A0 0002322a 70 04 |p | MOVEQ.L #0x04,D0 0002322c 3f 20 |? | MOVE.W -(A0),-(A7) 0002322e 51 c8 ff fc |Q | DBF D0,0x2322c 00023232 59 4f |YO | SUBQ.L #0x4,A7 00023234 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023238 3f 02 |? | MOVE.W D2,-(A7) 0002323a 3f 05 |? | MOVE.W D5,-(A7) 0002323c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023242 50 4f |PO | ADDQ.L #0x8,A7 00023244 4e ba da 46 |N F | JSR 0x20c8c 00023248 de fc 00 0e | | ADDA.W #0xe,A7 0002324c 2f 3a d5 e2 |/: | MOVE.L 0x20830,-(A7) 00023250 2f 3a d5 da |/: | MOVE.L 0x2082c,-(A7) 00023254 59 4f |YO | SUBQ.L #0x4,A7 00023256 2f 0b |/ | MOVE.L A3,-(A7) 00023258 59 4f |YO | SUBQ.L #0x4,A7 0002325a 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002325e 3f 02 |? | MOVE.W D2,-(A7) 00023260 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00023264 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002326a 50 4f |PO | ADDQ.L #0x8,A7 0002326c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023272 50 4f |PO | ADDQ.L #0x8,A7 00023274 28 5f |(_ | MOVEA.L (A7)+,A4 00023276 50 4f |PO | ADDQ.L #0x8,A7 00023278 7e 01 |~ | MOVEQ.L #0x01,D7 0002327a 30 14 |0 | MOVE.W (A4),D0 0002327c 48 c0 |H | EXTW.L D0 0002327e be 80 | | CMP.L D0,D7 00023280 6f 14 |o | BLE 0x23296 00023282 20 07 | | MOVE.L D7,D0 00023284 53 80 |S | SUBQ.L #0x1,D0 00023286 0c 80 00 00 00 1d | | CMPI.L #0x0000001d,D0 0002328c 63 02 |c | BLS 0x23290 0002328e 4e 4f |NO | TRAP #15 00023290 42 36 08 ac |B6 | CLR.B (A6+D0.L-#0x54) 00023294 60 22 |`" | BRA 0x232b8 00023296 20 07 | | MOVE.L D7,D0 00023298 53 80 |S | SUBQ.L #0x1,D0 0002329a 0c 80 00 00 00 1d | | CMPI.L #0x0000001d,D0 000232a0 63 02 |c | BLS 0x232a4 000232a2 4e 4f |NO | TRAP #15 000232a4 22 07 |" | MOVE.L D7,D1 000232a6 53 81 |S | SUBQ.L #0x1,D1 000232a8 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000232ae 63 02 |c | BLS 0x232b2 000232b0 4e 4f |NO | TRAP #15 000232b2 1d b4 18 02 08 ac | | MOVE.B (A4+D1.L+#0x2),(A6+D0.L-#0x54) 000232b8 52 87 |R | ADDQ.L #0x1,D7 000232ba 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7 000232c0 6f b8 |o | BLE 0x2327a 000232c2 3d 7c 00 08 ff ca |=| | MOVE.W #0x8,(A6-0x36) 000232c8 3d 7c 04 00 ff cc |=| | MOVE.W #0x400,(A6-0x34) 000232ce 42 2e ff cf |B. | CLR.B (A6-0x31) 000232d2 42 2e ff ce |B. | CLR.B (A6-0x32) 000232d6 48 6e ff f0 |Hn | PEA.L (A6-0x10) 000232da 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000232e0 58 4f |XO | ADDQ.L #0x4,A7 000232e2 2d 6e ff f0 ff d0 |-n | MOVE.L (A6-0x10),(A6-0x30) 000232e8 3d 42 ff d4 |=B | MOVE.W D2,(A6-0x2c) 000232ec 41 ee ff ac |A | LEA.L (A6-0x54),A0 000232f0 2f 08 |/ | MOVE.L A0,-(A7) 000232f2 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 000232f6 4e b9 00 01 04 1c |N | JSR FSCALL_1041c 000232fc 5c 4f |\O | ADDQ.L #0x6,A7 000232fe 48 52 |HR | PEA.L (A2) 00023300 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00023306 58 4f |XO | ADDQ.L #0x4,A7 00023308 4a 12 |J | TST.B (A2) 0002330a 67 36 |g6 | BEQ 0x23342 0002330c 1f 02 | | MOVE.B D2,-(A7) 0002330e 48 52 |HR | PEA.L (A2) 00023310 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00023316 5c 4f |\O | ADDQ.L #0x6,A7 00023318 4a 12 |J | TST.B (A2) 0002331a 67 26 |g& | BEQ 0x23342 0002331c 41 fa d5 20 |A | LEA.L 0x2083e,A0 00023320 70 04 |p | MOVEQ.L #0x04,D0 00023322 3f 20 |? | MOVE.W -(A0),-(A7) 00023324 51 c8 ff fc |Q | DBF D0,0x23322 00023328 59 4f |YO | SUBQ.L #0x4,A7 0002332a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002332e 3f 02 |? | MOVE.W D2,-(A7) 00023330 3f 05 |? | MOVE.W D5,-(A7) 00023332 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023338 50 4f |PO | ADDQ.L #0x8,A7 0002333a 4e ba d9 50 |N P | JSR 0x20c8c 0002333e de fc 00 0e | | ADDA.W #0xe,A7 00023342 7e 00 |~ | MOVEQ.L #0x00,D7 00023344 28 3c 00 00 01 00 |(< | MOVE.L #0x100,D4 0002334a 26 07 |& | MOVE.L D7,D3 0002334c 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00023352 0c 84 00 00 07 ff | | CMPI.L #0x000007ff,D4 00023358 63 02 |c | BLS 0x2335c 0002335a 4e 4f |NO | TRAP #15 0002335c 20 04 | | MOVE.L D4,D0 0002335e e5 80 | | ASL.L #0x2,D0 00023360 41 f9 00 02 81 96 |A | LEA.L 0x28196,A0 00023366 41 f0 08 08 |A | LEA.L (A0+D0.L+#0x8),A0 0002336a 2f 08 |/ | MOVE.L A0,-(A7) 0002336c 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7) 00023370 4e b9 00 01 04 1c |N | JSR FSCALL_1041c 00023376 5c 4f |\O | ADDQ.L #0x6,A7 00023378 48 52 |HR | PEA.L (A2) 0002337a 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00023380 58 4f |XO | ADDQ.L #0x4,A7 00023382 4a 12 |J | TST.B (A2) 00023384 67 36 |g6 | BEQ 0x233bc 00023386 1f 02 | | MOVE.B D2,-(A7) 00023388 48 52 |HR | PEA.L (A2) 0002338a 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00023390 5c 4f |\O | ADDQ.L #0x6,A7 00023392 4a 12 |J | TST.B (A2) 00023394 67 26 |g& | BEQ 0x233bc 00023396 41 fa d4 b0 |A | LEA.L 0x20848,A0 0002339a 70 04 |p | MOVEQ.L #0x04,D0 0002339c 3f 20 |? | MOVE.W -(A0),-(A7) 0002339e 51 c8 ff fc |Q | DBF D0,0x2339c 000233a2 59 4f |YO | SUBQ.L #0x4,A7 000233a4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000233a8 3f 02 |? | MOVE.W D2,-(A7) 000233aa 3f 05 |? | MOVE.W D5,-(A7) 000233ac 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000233b2 50 4f |PO | ADDQ.L #0x8,A7 000233b4 4e ba d8 d6 |N | JSR 0x20c8c 000233b8 de fc 00 0e | | ADDA.W #0xe,A7 000233bc 52 87 |R | ADDQ.L #0x1,D7 000233be 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 000233c4 6f 00 ff 7e |o ~ | BLE 0x23344 000233c8 7e 01 |~ | MOVEQ.L #0x01,D7 000233ca 4e b9 00 01 04 20 |N | JSR FSCALL_10420 000233d0 48 52 |HR | PEA.L (A2) 000233d2 4e b9 00 01 04 08 |N | JSR FSCALL_10408 000233d8 58 4f |XO | ADDQ.L #0x4,A7 000233da 4a 12 |J | TST.B (A2) 000233dc 67 36 |g6 | BEQ 0x23414 000233de 1f 02 | | MOVE.B D2,-(A7) 000233e0 48 52 |HR | PEA.L (A2) 000233e2 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 000233e8 5c 4f |\O | ADDQ.L #0x6,A7 000233ea 4a 12 |J | TST.B (A2) 000233ec 67 26 |g& | BEQ 0x23414 000233ee 41 fa d4 62 |A b | LEA.L 0x20852,A0 000233f2 70 04 |p | MOVEQ.L #0x04,D0 000233f4 3f 20 |? | MOVE.W -(A0),-(A7) 000233f6 51 c8 ff fc |Q | DBF D0,0x233f4 000233fa 59 4f |YO | SUBQ.L #0x4,A7 000233fc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023400 3f 02 |? | MOVE.W D2,-(A7) 00023402 3f 05 |? | MOVE.W D5,-(A7) 00023404 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002340a 50 4f |PO | ADDQ.L #0x8,A7 0002340c 4e ba d8 7e |N ~ | JSR 0x20c8c 00023410 de fc 00 0e | | ADDA.W #0xe,A7 00023414 52 87 |R | ADDQ.L #0x1,D7 00023416 0c 87 00 00 00 02 | | CMPI.L #0x00000002,D7 0002341c 6f ac |o | BLE 0x233ca 0002341e 42 27 |B' | CLR.B -(A7) 00023420 48 52 |HR | PEA.L (A2) 00023422 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00023428 5c 4f |\O | ADDQ.L #0x6,A7 0002342a 4a 12 |J | TST.B (A2) 0002342c 67 38 |g8 | BEQ 0x23466 0002342e 1f 02 | | MOVE.B D2,-(A7) 00023430 48 52 |HR | PEA.L (A2) 00023432 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00023438 5c 4f |\O | ADDQ.L #0x6,A7 0002343a 4a 12 |J | TST.B (A2) 0002343c 67 28 |g( | BEQ 0x23466 0002343e 41 fa d4 26 |A & | LEA.L 0x20866,A0 00023442 70 04 |p | MOVEQ.L #0x04,D0 00023444 2f 20 |/ | MOVE.L -(A0),-(A7) 00023446 51 c8 ff fc |Q | DBF D0,0x23444 0002344a 59 4f |YO | SUBQ.L #0x4,A7 0002344c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023450 3f 02 |? | MOVE.W D2,-(A7) 00023452 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 00023456 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002345c 50 4f |PO | ADDQ.L #0x8,A7 0002345e 4e ba d8 2c |N , | JSR 0x20c8c 00023462 de fc 00 18 | | ADDA.W #0x18,A7 00023466 4e b9 00 01 04 10 |N | JSR FSCALL_10410 0002346c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00023470 4e 5e |N^ | UNLK A6 00023472 4e 75 |Nu | RTS 00023474 ; -------------------------------------------------------------------------------------- 00023474 ; OMSI PASCAL Function 00023474 ; -------------------------------------------------------------------------------------- 00023474 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00023478 bf d5 | | CMPA.L (A5),A7 0002347a 62 06 |b | BHI 0x23482 0002347c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023480 4e 76 |Nv | TRAPV 00023482 de fc 00 5c | \ | ADDA.W #0x5c,A7 00023486 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7) 0002348a 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00023490 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00023496 72 01 |r | MOVEQ.L #0x01,D1 00023498 9e fc 00 30 | 0 | SUBA.W #0x30,A7 0002349c 20 4f | O | MOVEA.L A7,A0 0002349e 43 fa d3 c6 |C | LEA.L 0x20866,A1 000234a2 70 2e |p. | MOVEQ.L #0x2e,D0 000234a4 10 d9 | | MOVE.B (A1)+,(A0)+ 000234a6 51 c8 ff fc |Q | DBF D0,0x234a4 000234aa 59 4f |YO | SUBQ.L #0x4,A7 000234ac 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000234b0 3f 01 |? | MOVE.W D1,-(A7) 000234b2 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 000234b6 4e 92 |N | JSR (A2) 000234b8 50 4f |PO | ADDQ.L #0x8,A7 000234ba 4e 93 |N | JSR (A3) 000234bc de fc 00 24 | $ | ADDA.W #0x24,A7 000234c0 20 4f | O | MOVEA.L A7,A0 000234c2 43 fa d3 d2 |C | LEA.L 0x20896,A1 000234c6 70 0e |p | MOVEQ.L #0x0e,D0 000234c8 10 d9 | | MOVE.B (A1)+,(A0)+ 000234ca 51 c8 ff fc |Q | DBF D0,0x234c8 000234ce 59 4f |YO | SUBQ.L #0x4,A7 000234d0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000234d4 3f 01 |? | MOVE.W D1,-(A7) 000234d6 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 000234da 4e 92 |N | JSR (A2) 000234dc 50 4f |PO | ADDQ.L #0x8,A7 000234de 4e 93 |N | JSR (A3) 000234e0 20 4f | O | MOVEA.L A7,A0 000234e2 43 fa d3 c2 |C | LEA.L 0x208a6,A1 000234e6 70 12 |p | MOVEQ.L #0x12,D0 000234e8 10 d9 | | MOVE.B (A1)+,(A0)+ 000234ea 51 c8 ff fc |Q | DBF D0,0x234e8 000234ee 59 4f |YO | SUBQ.L #0x4,A7 000234f0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000234f4 3f 01 |? | MOVE.W D1,-(A7) 000234f6 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000234fa 4e 92 |N | JSR (A2) 000234fc 50 4f |PO | ADDQ.L #0x8,A7 000234fe 4e 93 |N | JSR (A3) 00023500 54 4f |TO | ADDQ.L #0x2,A7 00023502 20 4f | O | MOVEA.L A7,A0 00023504 43 fa d3 b4 |C | LEA.L 0x208ba,A1 00023508 70 14 |p | MOVEQ.L #0x14,D0 0002350a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002350c 51 c8 ff fc |Q | DBF D0,0x2350a 00023510 51 4f |QO | SUBQ.L #0x8,A7 00023512 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023516 3f 01 |? | MOVE.W D1,-(A7) 00023518 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 0002351c 4e 92 |N | JSR (A2) 0002351e 50 4f |PO | ADDQ.L #0x8,A7 00023520 48 78 00 00 |Hx | PEA.L 0x0 00023524 48 78 00 01 |Hx | PEA.L 0x1 00023528 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 0002352e de fc 00 0c | | ADDA.W #0xc,A7 00023532 2e 1f |. | MOVE.L (A7)+,D7 00023534 de fc 00 16 | | ADDA.W #0x16,A7 00023538 4a 87 |J | TST.L D7 0002353a 66 06 |f | BNE 0x23542 0002353c 4e ba fc 32 |N 2 | JSR 0x23170 00023540 60 04 |` | BRA 0x23546 00023542 4e ba fa a4 |N | JSR 0x22fe8 00023546 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3 0002354a 4e 5e |N^ | UNLK A6 0002354c 4e 75 |Nu | RTS 0002354e ; -------------------------------------------------------------------------------------- 0002354e ; OMSI PASCAL Function 0002354e ; <LVAR -0x001 1(r)> 0002354e ; <LVAR -0x002 1(r)> 0002354e ; <LVAR -0x004 1(w) 2(w) 4(r)> 0002354e ; -------------------------------------------------------------------------------------- 0002354e 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00023552 bf d5 | | CMPA.L (A5),A7 00023554 62 06 |b | BHI 0x2355c 00023556 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002355a 4e 76 |Nv | TRAPV 0002355c de fc 00 24 | $ | ADDA.W #0x24,A7 00023560 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 00023564 43 ee ff fc |C | LEA.L (A6-0x4),A1 00023568 00 11 00 80 | | ORI.B #0x80,(A1) 0002356c 02 11 00 bf | | ANDI.B #0xbf,(A1) 00023570 02 51 c0 00 | Q | ANDI.W #0xc000,(A1) 00023574 42 2e ff fe |B. | CLR.B (A6-0x2) 00023578 42 2e ff ff |B. | CLR.B (A6-0x1) 0002357c 7e 00 |~ | MOVEQ.L #0x00,D7 0002357e 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 00023584 63 02 |c | BLS 0x23588 00023586 4e 4f |NO | TRAP #15 00023588 20 07 | | MOVE.L D7,D0 0002358a e5 80 | | ASL.L #0x2,D0 0002358c 41 f9 00 02 81 96 |A | LEA.L 0x28196,A0 00023592 12 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D1 00023596 e3 09 | | LSL.B #0x1,D1 00023598 ee 09 | | LSR.B #0x7,D1 0002359a 67 04 |g | BEQ 0x235a0 0002359c 21 91 08 08 |! | MOVE.L (A1),(A0+D0.L+#0x8) 000235a0 52 87 |R | ADDQ.L #0x1,D7 000235a2 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 000235a8 6f d4 |o | BLE 0x2357e 000235aa 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 000235ae 4e 5e |N^ | UNLK A6 000235b0 4e 75 |Nu | RTS 000235b2 ; -------------------------------------------------------------------------------------- 000235b2 ; OMSI PASCAL Function 000235b2 ; <LVAR 0x008 4(r)> 000235b2 ; <LVAR -0x006 @> 000235b2 ; <LVAR -0x007 @ 1(r)> 000235b2 ; <LVAR -0x008 @ 1(r)> 000235b2 ; -------------------------------------------------------------------------------------- 000235b2 4e 56 ff ac |NV | LINK.W A6,#0xffac 000235b6 bf d5 | | CMPA.L (A5),A7 000235b8 62 06 |b | BHI 0x235c0 000235ba 44 fc 00 02 |D | MOVE.W #0x2,CCR 000235be 4e 76 |Nv | TRAPV 000235c0 de fc 00 4c | L | ADDA.W #0x4c,A7 000235c4 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 000235c8 72 01 |r | MOVEQ.L #0x01,D1 000235ca 5d 4f |]O | SUBQ.L #0x6,A7 000235cc 20 4f | O | MOVEA.L A7,A0 000235ce 43 fa d3 00 |C | LEA.L 0x208d0,A1 000235d2 70 04 |p | MOVEQ.L #0x04,D0 000235d4 10 d9 | | MOVE.B (A1)+,(A0)+ 000235d6 51 c8 ff fc |Q | DBF D0,0x235d4 000235da 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000235de 59 4f |YO | SUBQ.L #0x4,A7 000235e0 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000235e4 3f 01 |? | MOVE.W D1,-(A7) 000235e6 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 000235ea 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000235f0 5c 4f |\O | ADDQ.L #0x6,A7 000235f2 42 17 |B | CLR.B (A7) 000235f4 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000235f8 48 6e ff fa |Hn | PEA.L (A6-0x6) 000235fc 4e ba d6 f0 |N | JSR 0x20cee 00023600 de fc 00 14 | | ADDA.W #0x14,A7 00023604 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00023608 4e ba e5 e4 |N | JSR 0x21bee 0002360c 58 4f |XO | ADDQ.L #0x4,A7 0002360e 48 6e ff f9 |Hn | PEA.L (A6-0x7) 00023612 4e ba eb f0 |N | JSR 0x22204 00023616 58 4f |XO | ADDQ.L #0x4,A7 00023618 4a 2e ff f9 |J. | TST.B (A6-0x7) 0002361c 66 28 |f( | BNE 0x23646 0002361e 41 fa d2 e2 |A | LEA.L 0x20902,A0 00023622 70 0a |p | MOVEQ.L #0x0a,D0 00023624 2f 20 |/ | MOVE.L -(A0),-(A7) 00023626 51 c8 ff fc |Q | DBF D0,0x23624 0002362a 59 4f |YO | SUBQ.L #0x4,A7 0002362c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023630 3f 01 |? | MOVE.W D1,-(A7) 00023632 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7) 00023636 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002363c 50 4f |PO | ADDQ.L #0x8,A7 0002363e 4e ba d6 4c |N L | JSR 0x20c8c 00023642 de fc 00 30 | 0 | ADDA.W #0x30,A7 00023646 4a 2e ff f8 |J. | TST.B (A6-0x8) 0002364a 66 04 |f | BNE 0x23650 0002364c 4e ba ff 00 |N | JSR 0x2354e 00023650 4e ba fe 22 |N " | JSR 0x23474 00023654 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 00023658 4e 5e |N^ | UNLK A6 0002365a 4e 75 |Nu | RTS 0002365c ; -------------------------------------------------------------------------------------- 0002365c ; OMSI PASCAL Function 0002365c ; <LVAR -0x004 1(rw)> 0002365c ; <LVAR -0x01c 2(r)> 0002365c ; <LVAR -0x026 2(r)> 0002365c ; <LVAR -0x044 @> 0002365c ; <LVAR -0x04a @ 4(rw)> 0002365c ; <LVAR -0x04e @ 4(rw)> 0002365c ; <LVAR -0x05e 4(rw)> 0002365c ; <LVAR -0x060 @ 1(r)> 0002365c ; -------------------------------------------------------------------------------------- 0002365c 4e 56 ff 1a |NV | LINK.W A6,#0xff1a 00023660 bf d5 | | CMPA.L (A5),A7 00023662 62 06 |b | BHI 0x2366a 00023664 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023668 4e 76 |Nv | TRAPV 0002366a de fc 00 86 | | ADDA.W #0x86,A7 0002366e 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023672 45 ee ff a0 |E | LEA.L (A6-0x60),A2 00023676 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 0002367c 74 01 |t | MOVEQ.L #0x01,D2 0002367e 76 0c |v | MOVEQ.L #0x0c,D3 00023680 78 1a |x | MOVEQ.L #0x1a,D4 00023682 41 fa d3 00 |A | LEA.L 0x20984,A0 00023686 70 0c |p | MOVEQ.L #0x0c,D0 00023688 3f 20 |? | MOVE.W -(A0),-(A7) 0002368a 51 c8 ff fc |Q | DBF D0,0x23688 0002368e 9e c3 | | SUBA.W D3,A7 00023690 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00023694 3f 02 |? | MOVE.W D2,-(A7) 00023696 3f 04 |? | MOVE.W D4,-(A7) 00023698 4e 93 |N | JSR (A3) 0002369a 50 4f |PO | ADDQ.L #0x8,A7 0002369c 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 000236a2 58 4f |XO | ADDQ.L #0x4,A7 000236a4 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000236aa 58 4f |XO | ADDQ.L #0x4,A7 000236ac 2d 5f ff b6 |-_ | MOVE.L (A7)+,(A6-0x4a) 000236b0 de fc 00 16 | | ADDA.W #0x16,A7 000236b4 2e ba d2 fe |. | MOVE.L 0x209b4,(A7) 000236b8 2f 3a d2 f6 |/: | MOVE.L 0x209b0,-(A7) 000236bc 51 4f |QO | SUBQ.L #0x8,A7 000236be 2f 2e ff b6 |/. | MOVE.L (A6-0x4a),-(A7) 000236c2 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000236c8 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000236cc 3f 02 |? | MOVE.W D2,-(A7) 000236ce 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 000236d2 4e 93 |N | JSR (A3) 000236d4 50 4f |PO | ADDQ.L #0x8,A7 000236d6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000236dc 50 4f |PO | ADDQ.L #0x8,A7 000236de 2d 5f ff b6 |-_ | MOVE.L (A7)+,(A6-0x4a) 000236e2 50 4f |PO | ADDQ.L #0x8,A7 000236e4 9e fc 00 3e | > | SUBA.W #0x3e,A7 000236e8 20 4f | O | MOVEA.L A7,A0 000236ea 43 fa d2 40 |C @ | LEA.L 0x2092c,A1 000236ee 70 3c |p< | MOVEQ.L #0x3c,D0 000236f0 10 d9 | | MOVE.B (A1)+,(A0)+ 000236f2 51 c8 ff fc |Q | DBF D0,0x236f0 000236f6 51 4f |QO | SUBQ.L #0x8,A7 000236f8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000236fc 3f 02 |? | MOVE.W D2,-(A7) 000236fe 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 00023702 4e 93 |N | JSR (A3) 00023704 50 4f |PO | ADDQ.L #0x8,A7 00023706 48 78 00 00 |Hx | PEA.L 0x0 0002370a 48 78 00 03 |Hx | PEA.L 0x3 0002370e 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00023714 de c3 | | ADDA.W D3,A7 00023716 20 1f | | MOVE.L (A7)+,D0 00023718 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 0002371e 63 02 |c | BLS 0x23722 00023720 4e 4f |NO | TRAP #15 00023722 de fc 00 3e | > | ADDA.W #0x3e,A7 00023726 3a 00 |: | MOVE.W D0,D5 00023728 4b bc 00 03 |K | CHK.W #0x3,D5 0002372c 3f 05 |? | MOVE.W D5,-(A7) 0002372e 42 27 |B' | CLR.B -(A7) 00023730 1f 02 | | MOVE.B D2,-(A7) 00023732 48 52 |HR | PEA.L (A2) 00023734 4e b9 00 01 04 0c |N | JSR FSCALL_1040c 0002373a de fc 00 0a | | ADDA.W #0xa,A7 0002373e 4a 12 |J | TST.B (A2) 00023740 67 0c |g | BEQ 0x2374e 00023742 1f 02 | | MOVE.B D2,-(A7) 00023744 48 52 |HR | PEA.L (A2) 00023746 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 0002374c 5c 4f |\O | ADDQ.L #0x6,A7 0002374e 4a 12 |J | TST.B (A2) 00023750 66 92 |f | BNE 0x236e4 00023752 41 ee ff bc |A | LEA.L (A6-0x44),A0 00023756 2f 08 |/ | MOVE.L A0,-(A7) 00023758 2d 5f ff a2 |-_ | MOVE.L (A7)+,(A6-0x5e) 0002375c 28 6e ff a2 |(n | MOVEA.L (A6-0x5e),A4 00023760 2f 2e ff a2 |/. | MOVE.L (A6-0x5e),-(A7) 00023764 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 00023768 4e b9 00 01 04 18 |N | JSR FSCALL_10418 0002376e 5c 4f |\O | ADDQ.L #0x6,A7 00023770 48 52 |HR | PEA.L (A2) 00023772 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00023778 58 4f |XO | ADDQ.L #0x4,A7 0002377a 10 12 | | MOVE.B (A2),D0 0002377c 0c 00 00 06 | | CMPI.B #0x06,D0 00023780 66 1a |f | BNE 0x2379c 00023782 2f 2e ff a2 |/. | MOVE.L (A6-0x5e),-(A7) 00023786 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 0002378a 4e b9 00 01 04 18 |N | JSR FSCALL_10418 00023790 5c 4f |\O | ADDQ.L #0x6,A7 00023792 48 52 |HR | PEA.L (A2) 00023794 4e b9 00 01 04 08 |N | JSR FSCALL_10408 0002379a 58 4f |XO | ADDQ.L #0x4,A7 0002379c 10 12 | | MOVE.B (A2),D0 0002379e 0c 00 00 06 | | CMPI.B #0x06,D0 000237a2 66 2a |f* | BNE 0x237ce 000237a4 4e b9 00 01 04 10 |N | JSR FSCALL_10410 000237aa 41 fa d2 20 |A | LEA.L 0x209cc,A0 000237ae 72 04 |r | MOVEQ.L #0x04,D1 000237b0 2f 20 |/ | MOVE.L -(A0),-(A7) 000237b2 51 c9 ff fc |Q | DBF D1,0x237b0 000237b6 59 4f |YO | SUBQ.L #0x4,A7 000237b8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000237bc 3f 02 |? | MOVE.W D2,-(A7) 000237be 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 000237c2 4e 93 |N | JSR (A3) 000237c4 50 4f |PO | ADDQ.L #0x8,A7 000237c6 4e ba d4 c4 |N | JSR 0x20c8c 000237ca de fc 00 18 | | ADDA.W #0x18,A7 000237ce 4a 00 |J | TST.B D0 000237d0 67 3c |g< | BEQ 0x2380e 000237d2 1f 02 | | MOVE.B D2,-(A7) 000237d4 48 52 |HR | PEA.L (A2) 000237d6 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 000237dc 5c 4f |\O | ADDQ.L #0x6,A7 000237de 4e b9 00 01 04 10 |N | JSR FSCALL_10410 000237e4 9e fc 00 2c | , | SUBA.W #0x2c,A7 000237e8 20 4f | O | MOVEA.L A7,A0 000237ea 43 fa d1 98 |C | LEA.L 0x20984,A1 000237ee 70 2a |p* | MOVEQ.L #0x2a,D0 000237f0 10 d9 | | MOVE.B (A1)+,(A0)+ 000237f2 51 c8 ff fc |Q | DBF D0,0x237f0 000237f6 59 4f |YO | SUBQ.L #0x4,A7 000237f8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000237fc 3f 02 |? | MOVE.W D2,-(A7) 000237fe 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7) 00023802 4e 93 |N | JSR (A3) 00023804 50 4f |PO | ADDQ.L #0x8,A7 00023806 4e ba d4 84 |N | JSR 0x20c8c 0002380a de fc 00 30 | 0 | ADDA.W #0x30,A7 0002380e 30 2e ff e4 |0. | MOVE.W (A6-0x1c),D0 00023812 b0 42 | B | CMP.W D2,D0 00023814 67 30 |g0 | BEQ 0x23846 00023816 4e b9 00 01 04 10 |N | JSR FSCALL_10410 0002381c 9e fc 00 28 | ( | SUBA.W #0x28,A7 00023820 20 4f | O | MOVEA.L A7,A0 00023822 43 fa d1 a8 |C | LEA.L 0x209cc,A1 00023826 70 26 |p& | MOVEQ.L #0x26,D0 00023828 10 d9 | | MOVE.B (A1)+,(A0)+ 0002382a 51 c8 ff fc |Q | DBF D0,0x23828 0002382e 59 4f |YO | SUBQ.L #0x4,A7 00023830 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023834 3f 02 |? | MOVE.W D2,-(A7) 00023836 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 0002383a 4e 93 |N | JSR (A3) 0002383c 50 4f |PO | ADDQ.L #0x8,A7 0002383e 4e ba d4 4c |N L | JSR 0x20c8c 00023842 de fc 00 2c | , | ADDA.W #0x2c,A7 00023846 41 ee ff da |A | LEA.L (A6-0x26),A0 0002384a 70 0e |p | MOVEQ.L #0x0e,D0 0002384c 3f 20 |? | MOVE.W -(A0),-(A7) 0002384e 51 c8 ff fc |Q | DBF D0,0x2384c 00023852 51 4f |QO | SUBQ.L #0x8,A7 00023854 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023858 3f 02 |? | MOVE.W D2,-(A7) 0002385a 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 0002385e 4e 93 |N | JSR (A3) 00023860 50 4f |PO | ADDQ.L #0x8,A7 00023862 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00023868 58 4f |XO | ADDQ.L #0x4,A7 0002386a 2d 5f ff b2 |-_ | MOVE.L (A7)+,(A6-0x4e) 0002386e de fc 00 18 | | ADDA.W #0x18,A7 00023872 2e ae ff b2 |. | MOVE.L (A6-0x4e),(A7) 00023876 2f 2e ff b6 |/. | MOVE.L (A6-0x4a),-(A7) 0002387a 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00023880 50 4f |PO | ADDQ.L #0x8,A7 00023882 10 1f | | MOVE.B (A7)+,D0 00023884 48 80 |H | EXTB.W D0 00023886 41 82 |A | CHK.W D2,D0 00023888 1d 40 ff fc | @ | MOVE.B D0,(A6-0x4) 0002388c 48 6e ff b2 |Hn | PEA.L (A6-0x4e) 00023890 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023896 58 4f |XO | ADDQ.L #0x4,A7 00023898 4a 00 |J | TST.B D0 0002389a 66 78 |fx | BNE 0x23914 0002389c 30 2e ff da |0. | MOVE.W (A6-0x26),D0 000238a0 53 40 |S@ | SUBQ.W #0x1,D0 000238a2 48 c0 |H | EXTW.L D0 000238a4 2f 00 |/ | MOVE.L D0,-(A7) 000238a6 7c 00 || | MOVEQ.L #0x00,D6 000238a8 bc 97 | | CMP.L (A7),D6 000238aa 6e 66 |nf | BGT 0x23912 000238ac 41 f9 00 02 81 9e |A | LEA.L 0x2819e,A0 000238b2 2f 08 |/ | MOVE.L A0,-(A7) 000238b4 2e 1f |. | MOVE.L (A7)+,D7 000238b6 2f 07 |/ | MOVE.L D7,-(A7) 000238b8 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7) 000238bc 4e b9 00 01 04 18 |N | JSR FSCALL_10418 000238c2 5c 4f |\O | ADDQ.L #0x6,A7 000238c4 48 52 |HR | PEA.L (A2) 000238c6 4e b9 00 01 04 08 |N | JSR FSCALL_10408 000238cc 58 4f |XO | ADDQ.L #0x4,A7 000238ce 4a 12 |J | TST.B (A2) 000238d0 67 3c |g< | BEQ 0x2390e 000238d2 1f 02 | | MOVE.B D2,-(A7) 000238d4 48 52 |HR | PEA.L (A2) 000238d6 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 000238dc 5c 4f |\O | ADDQ.L #0x6,A7 000238de 4e b9 00 01 04 10 |N | JSR FSCALL_10410 000238e4 9e fc 00 2a | * | SUBA.W #0x2a,A7 000238e8 20 4f | O | MOVEA.L A7,A0 000238ea 43 fa d0 16 |C | LEA.L 0x20902,A1 000238ee 70 28 |p( | MOVEQ.L #0x28,D0 000238f0 10 d9 | | MOVE.B (A1)+,(A0)+ 000238f2 51 c8 ff fc |Q | DBF D0,0x238f0 000238f6 59 4f |YO | SUBQ.L #0x4,A7 000238f8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000238fc 3f 02 |? | MOVE.W D2,-(A7) 000238fe 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 00023902 4e 93 |N | JSR (A3) 00023904 50 4f |PO | ADDQ.L #0x8,A7 00023906 4e ba d3 84 |N | JSR 0x20c8c 0002390a de fc 00 2e | . | ADDA.W #0x2e,A7 0002390e 52 86 |R | ADDQ.L #0x1,D6 00023910 68 96 |h | BVC 0x238a8 00023912 58 4f |XO | ADDQ.L #0x4,A7 00023914 4a 2e ff fc |J. | TST.B (A6-0x4) 00023918 67 00 fe 46 |g F | BEQ 0x23760 0002391c 48 6e ff b6 |Hn | PEA.L (A6-0x4a) 00023920 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023926 58 4f |XO | ADDQ.L #0x4,A7 00023928 30 2e ff da |0. | MOVE.W (A6-0x26),D0 0002392c 53 40 |S@ | SUBQ.W #0x1,D0 0002392e 48 c0 |H | EXTW.L D0 00023930 2f 00 |/ | MOVE.L D0,-(A7) 00023932 7c 00 || | MOVEQ.L #0x00,D6 00023934 bc 97 | | CMP.L (A7),D6 00023936 6e 72 |nr | BGT 0x239aa 00023938 20 06 | | MOVE.L D6,D0 0002393a e1 80 | | ASL.L #0x8,D0 0002393c 0c 80 00 00 07 ff | | CMPI.L #0x000007ff,D0 00023942 63 02 |c | BLS 0x23946 00023944 4e 4f |NO | TRAP #15 00023946 e5 80 | | ASL.L #0x2,D0 00023948 41 f9 00 02 81 96 |A | LEA.L 0x28196,A0 0002394e 41 f0 08 08 |A | LEA.L (A0+D0.L+#0x8),A0 00023952 2f 08 |/ | MOVE.L A0,-(A7) 00023954 2e 1f |. | MOVE.L (A7)+,D7 00023956 2f 07 |/ | MOVE.L D7,-(A7) 00023958 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7) 0002395c 4e b9 00 01 04 18 |N | JSR FSCALL_10418 00023962 5c 4f |\O | ADDQ.L #0x6,A7 00023964 48 52 |HR | PEA.L (A2) 00023966 4e b9 00 01 04 08 |N | JSR FSCALL_10408 0002396c 58 4f |XO | ADDQ.L #0x4,A7 0002396e 4a 12 |J | TST.B (A2) 00023970 67 34 |g4 | BEQ 0x239a6 00023972 1f 02 | | MOVE.B D2,-(A7) 00023974 48 52 |HR | PEA.L (A2) 00023976 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 0002397c 5c 4f |\O | ADDQ.L #0x6,A7 0002397e 4e b9 00 01 04 10 |N | JSR FSCALL_10410 00023984 41 fa d0 88 |A | LEA.L 0x20a0e,A0 00023988 70 0c |p | MOVEQ.L #0x0c,D0 0002398a 3f 20 |? | MOVE.W -(A0),-(A7) 0002398c 51 c8 ff fc |Q | DBF D0,0x2398a 00023990 59 4f |YO | SUBQ.L #0x4,A7 00023992 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023996 3f 02 |? | MOVE.W D2,-(A7) 00023998 3f 04 |? | MOVE.W D4,-(A7) 0002399a 4e 93 |N | JSR (A3) 0002399c 50 4f |PO | ADDQ.L #0x8,A7 0002399e 4e ba d2 ec |N | JSR 0x20c8c 000239a2 de fc 00 1e | | ADDA.W #0x1e,A7 000239a6 52 86 |R | ADDQ.L #0x1,D6 000239a8 68 8a |h | BVC 0x23934 000239aa 54 4f |TO | ADDQ.L #0x2,A7 000239ac 42 17 |B | CLR.B (A7) 000239ae 48 52 |HR | PEA.L (A2) 000239b0 4e b9 00 01 04 14 |N | JSR FSCALL_10414 000239b6 5c 4f |\O | ADDQ.L #0x6,A7 000239b8 4e b9 00 01 04 10 |N | JSR FSCALL_10410 000239be 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000239c2 4e 5e |N^ | UNLK A6 000239c4 4e 75 |Nu | RTS 000239c6 ; -------------------------------------------------------------------------------------- 000239c6 ; OMSI PASCAL Function 000239c6 ; <LVAR -0x006 @ 4(rw)> 000239c6 ; <LVAR -0x00c @ 1(r)> 000239c6 ; <LVAR -0x010 @ 4(r)> 000239c6 ; <LVAR -0x012 @ 2(w)> 000239c6 ; <LVAR -0x014 @ 1(r)> 000239c6 ; -------------------------------------------------------------------------------------- 000239c6 4e 56 ff 66 |NV f | LINK.W A6,#0xff66 000239ca bf d5 | | CMPA.L (A5),A7 000239cc 62 06 |b | BHI 0x239d4 000239ce 44 fc 00 02 |D | MOVE.W #0x2,CCR 000239d2 4e 76 |Nv | TRAPV 000239d4 de fc 00 86 | | ADDA.W #0x86,A7 000239d8 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000239dc 45 ee ff f4 |E | LEA.L (A6-0xc),A2 000239e0 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000239e6 49 ee ff fa |I | LEA.L (A6-0x6),A4 000239ea 72 02 |r | MOVEQ.L #0x02,D1 000239ec 74 01 |t | MOVEQ.L #0x01,D2 000239ee 7a 3e |z> | MOVEQ.L #0x3e,D5 000239f0 7c 0f || | MOVEQ.L #0x0f,D6 000239f2 48 6e ff ec |Hn | PEA.L (A6-0x14) 000239f6 48 6e ff ee |Hn | PEA.L (A6-0x12) 000239fa 4e b9 00 01 02 00 |N | JSR KC00_GetBootDev(VAR a : Byte; VAR b : Word) 00023a00 50 4f |PO | ADDQ.L #0x8,A7 00023a02 10 2e ff ec | . | MOVE.B (A6-0x14),D0 00023a06 b0 01 | | CMP.B D1,D0 00023a08 66 08 |f | BNE 0x23a12 00023a0a 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00023a10 60 6e |`n | BRA 0x23a80 00023a12 9e c5 | | SUBA.W D5,A7 00023a14 20 4f | O | MOVEA.L A7,A0 00023a16 43 fa cf f6 |C | LEA.L 0x20a0e,A1 00023a1a 70 3c |p< | MOVEQ.L #0x3c,D0 00023a1c 10 d9 | | MOVE.B (A1)+,(A0)+ 00023a1e 51 c8 ff fc |Q | DBF D0,0x23a1c 00023a22 51 4f |QO | SUBQ.L #0x8,A7 00023a24 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023a28 3f 02 |? | MOVE.W D2,-(A7) 00023a2a 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 00023a2e 4e 93 |N | JSR (A3) 00023a30 50 4f |PO | ADDQ.L #0x8,A7 00023a32 48 78 00 00 |Hx | PEA.L 0x0 00023a36 48 78 00 0f |Hx | PEA.L 0xf 00023a3a 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00023a40 de fc 00 0c | | ADDA.W #0xc,A7 00023a44 20 1f | | MOVE.L (A7)+,D0 00023a46 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00023a4c 63 02 |c | BLS 0x23a50 00023a4e 4e 4f |NO | TRAP #15 00023a50 de c5 | | ADDA.W D5,A7 00023a52 3d 40 ff ee |=@ | MOVE.W D0,(A6-0x12) 00023a56 41 86 |A | CHK.W D6,D0 00023a58 3f 00 |? | MOVE.W D0,-(A7) 00023a5a 48 52 |HR | PEA.L (A2) 00023a5c 4e b9 00 01 03 94 |N | JSR MountDisk(drive : Word ; VAR status : Byte) 00023a62 5c 4f |\O | ADDQ.L #0x6,A7 00023a64 4a 12 |J | TST.B (A2) 00023a66 67 18 |g | BEQ 0x23a80 00023a68 59 4f |YO | SUBQ.L #0x4,A7 00023a6a 10 12 | | MOVE.B (A2),D0 00023a6c 48 80 |H | EXTB.W D0 00023a6e 41 86 |A | CHK.W D6,D0 00023a70 1f 00 | | MOVE.B D0,-(A7) 00023a72 4e b9 00 01 03 a0 |N | JSR FsErrMsgStr(err: Byte) : String 00023a78 54 4f |TO | ADDQ.L #0x2,A7 00023a7a 4e ba d2 10 |N | JSR 0x20c8c 00023a7e 58 4f |XO | ADDQ.L #0x4,A7 00023a80 41 fa cf e4 |A | LEA.L 0x20a66,A0 00023a84 70 0c |p | MOVEQ.L #0x0c,D0 00023a86 3f 20 |? | MOVE.W -(A0),-(A7) 00023a88 51 c8 ff fc |Q | DBF D0,0x23a86 00023a8c 2f 3a cf dc |/: | MOVE.L 0x20a6a,-(A7) 00023a90 2f 3a cf d4 |/: | MOVE.L 0x20a66,-(A7) 00023a94 9e fc 00 10 | | SUBA.W #0x10,A7 00023a98 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00023a9c 3f 02 |? | MOVE.W D2,-(A7) 00023a9e 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 00023aa2 4e 93 |N | JSR (A3) 00023aa4 50 4f |PO | ADDQ.L #0x8,A7 00023aa6 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00023aac 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00023ab0 3f 02 |? | MOVE.W D2,-(A7) 00023ab2 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00023ab6 4e 93 |N | JSR (A3) 00023ab8 50 4f |PO | ADDQ.L #0x8,A7 00023aba 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023ac0 50 4f |PO | ADDQ.L #0x8,A7 00023ac2 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00023ac8 58 4f |XO | ADDQ.L #0x4,A7 00023aca 28 9f |( | MOVE.L (A7)+,(A4) 00023acc de fc 00 1e | | ADDA.W #0x1e,A7 00023ad0 2e 94 |. | MOVE.L (A4),(A7) 00023ad2 42 27 |B' | CLR.B -(A7) 00023ad4 1f 01 | | MOVE.B D1,-(A7) 00023ad6 48 78 00 08 |Hx | PEA.L 0x8 00023ada 48 52 |HR | PEA.L (A2) 00023adc 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00023ae0 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00023ae6 de fc 00 14 | | ADDA.W #0x14,A7 00023aea 7e 00 |~ | MOVEQ.L #0x00,D7 00023aec 28 3c 00 00 01 00 |(< | MOVE.L #0x100,D4 00023af2 26 07 |& | MOVE.L D7,D3 00023af4 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00023afa 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00023afe 0c 87 00 00 40 00 | @ | CMPI.L #0x00004000,D7 00023b04 63 02 |c | BLS 0x23b08 00023b06 4e 4f |NO | TRAP #15 00023b08 3f 07 |? | MOVE.W D7,-(A7) 00023b0a 42 67 |Bg | CLR.W -(A7) 00023b0c 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00023b10 1f 01 | | MOVE.B D1,-(A7) 00023b12 0c 84 00 00 07 ff | | CMPI.L #0x000007ff,D4 00023b18 63 02 |c | BLS 0x23b1c 00023b1a 4e 4f |NO | TRAP #15 00023b1c 20 04 | | MOVE.L D4,D0 00023b1e e5 80 | | ASL.L #0x2,D0 00023b20 41 f9 00 02 81 96 |A | LEA.L 0x28196,A0 00023b26 41 f0 08 08 |A | LEA.L (A0+D0.L+#0x8),A0 00023b2a 2f 08 |/ | MOVE.L A0,-(A7) 00023b2c 48 52 |HR | PEA.L (A2) 00023b2e 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 00023b34 de fc 00 14 | | ADDA.W #0x14,A7 00023b38 52 87 |R | ADDQ.L #0x1,D7 00023b3a 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 00023b40 6f aa |o | BLE 0x23aec 00023b42 42 27 |B' | CLR.B -(A7) 00023b44 1f 01 | | MOVE.B D1,-(A7) 00023b46 48 78 00 01 |Hx | PEA.L 0x1 00023b4a 48 52 |HR | PEA.L (A2) 00023b4c 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00023b50 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00023b56 de fc 00 10 | | ADDA.W #0x10,A7 00023b5a 48 54 |HT | PEA.L (A4) 00023b5c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023b62 58 4f |XO | ADDQ.L #0x4,A7 00023b64 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00023b68 4e 5e |N^ | UNLK A6 00023b6a 4e 75 |Nu | RTS 00023b6c ; -------------------------------------------------------------------------------------- 00023b6c ; OMSI PASCAL Function 00023b6c ; <LVAR 0x008 4(r)> 00023b6c ; -------------------------------------------------------------------------------------- 00023b6c 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 ; Spelunked 00023b70 bf d5 | | CMPA.L (A5),A7 00023b72 62 06 |b | BHI 0x23b7a 00023b74 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023b78 4e 76 |Nv | TRAPV 00023b7a de fc 00 10 | | ADDA.W #0x10,A7 00023b7e 59 4f |YO | SUBQ.L #0x4,A7 00023b80 2f 2c 00 04 |/, | MOVE.L (A4+0x4),-(A7) 00023b84 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023b88 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023b8e 50 4f |PO | ADDQ.L #0x8,A7 00023b90 29 5f 00 04 |)_ | MOVE.L (A7)+,(A4+0x4) 00023b94 4e 5e |N^ | UNLK A6 00023b96 4e 75 |Nu | RTS 00023b98 ; -------------------------------------------------------------------------------------- 00023b98 ; OMSI PASCAL Function 00023b98 ; <LVAR -0x004 4(rw)> 00023b98 ; <LVAR -0x008 @> 00023b98 ; -------------------------------------------------------------------------------------- 00023b98 4e 56 ff 8a |NV | LINK.W A6,#0xff8a 00023b9c bf d5 | | CMPA.L (A5),A7 00023b9e 62 06 |b | BHI 0x23ba6 00023ba0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023ba4 4e 76 |Nv | TRAPV 00023ba6 de fc 00 6e | n | ADDA.W #0x6e,A7 00023baa 48 e7 f9 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7) 00023bae 45 ee ff f8 |E | LEA.L (A6-0x8),A2 00023bb2 47 fa ff b8 |G | LEA.L 0x23b6c,A3 00023bb6 74 01 |t | MOVEQ.L #0x01,D2 00023bb8 76 26 |v& | MOVEQ.L #0x26,D3 00023bba 78 04 |x | MOVEQ.L #0x04,D4 00023bbc 7e 00 |~ | MOVEQ.L #0x00,D7 00023bbe 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 00023bc4 63 02 |c | BLS 0x23bc8 00023bc6 4e 4f |NO | TRAP #15 00023bc8 20 07 | | MOVE.L D7,D0 00023bca e5 80 | | ASL.L #0x2,D0 00023bcc 41 f9 00 02 81 96 |A | LEA.L 0x28196,A0 00023bd2 32 30 08 08 |20 | MOVE.W (A0+D0.L+#0x8),D1 00023bd6 e5 49 | I | LSL.W #0x2,D1 00023bd8 e4 49 | I | LSR.W #0x2,D1 00023bda 66 0e |f | BNE 0x23bea 00023bdc 4a 30 08 0a |J0 | TST.B (A0+D0.L+#0xa) 00023be0 66 08 |f | BNE 0x23bea 00023be2 4a 30 08 0b |J0 | TST.B (A0+D0.L+#0xb) 00023be6 67 00 01 06 |g | BEQ 0x23cee 00023bea 12 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D1 00023bee e3 09 | | LSL.B #0x1,D1 00023bf0 ee 09 | | LSR.B #0x7,D1 00023bf2 67 0e |g | BEQ 0x23c02 00023bf4 43 fa ce c4 |C | LEA.L 0x20aba,A1 00023bf8 72 12 |r | MOVEQ.L #0x12,D1 00023bfa 3f 21 |?! | MOVE.W -(A1),-(A7) 00023bfc 51 c9 ff fc |Q | DBF D1,0x23bfa 00023c00 60 0c |` | BRA 0x23c0e 00023c02 43 fa ce 90 |C | LEA.L 0x20a94,A1 00023c06 72 12 |r | MOVEQ.L #0x12,D1 00023c08 3f 21 |?! | MOVE.W -(A1),-(A7) 00023c0a 51 c9 ff fc |Q | DBF D1,0x23c08 00023c0e 59 4f |YO | SUBQ.L #0x4,A7 00023c10 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023c14 3f 02 |? | MOVE.W D2,-(A7) 00023c16 3f 03 |? | MOVE.W D3,-(A7) 00023c18 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023c1e 50 4f |PO | ADDQ.L #0x8,A7 00023c20 2d 5f ff fc |-_ | MOVE.L (A7)+,(A6-0x4) 00023c24 de c3 | | ADDA.W D3,A7 00023c26 51 4f |QO | SUBQ.L #0x8,A7 00023c28 42 81 |B | CLR.L D1 00023c2a 32 30 08 08 |20 | MOVE.W (A0+D0.L+#0x8),D1 00023c2e e5 49 | I | LSL.W #0x2,D1 00023c30 e4 49 | I | LSR.W #0x2,D1 00023c32 2f 01 |/ | MOVE.L D1,-(A7) 00023c34 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00023c3a 58 4f |XO | ADDQ.L #0x4,A7 00023c3c 48 78 00 04 |Hx | PEA.L 0x4 00023c40 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String 00023c46 50 4f |PO | ADDQ.L #0x8,A7 00023c48 28 4a |(J | MOVEA.L A2,A4 00023c4a 4e 93 |N | JSR (A3) 00023c4c 58 4f |XO | ADDQ.L #0x4,A7 00023c4e 42 81 |B | CLR.L D1 00023c50 12 30 08 0a | 0 | MOVE.B (A0+D0.L+#0xa),D1 00023c54 0c 41 00 ff | A | CMPI.W #0x00ff,D1 00023c58 66 1e |f | BNE 0x23c78 00023c5a 2f 3a ce 5e |/: ^ | MOVE.L 0x20aba,-(A7) 00023c5e 59 4f |YO | SUBQ.L #0x4,A7 00023c60 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023c64 3f 02 |? | MOVE.W D2,-(A7) 00023c66 3f 04 |? | MOVE.W D4,-(A7) 00023c68 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023c6e 50 4f |PO | ADDQ.L #0x8,A7 00023c70 28 4a |(J | MOVEA.L A2,A4 00023c72 4e 93 |N | JSR (A3) 00023c74 58 4f |XO | ADDQ.L #0x4,A7 00023c76 60 1e |` | BRA 0x23c96 00023c78 51 4f |QO | SUBQ.L #0x8,A7 00023c7a 48 c1 |H | EXTW.L D1 00023c7c 2f 01 |/ | MOVE.L D1,-(A7) 00023c7e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00023c84 58 4f |XO | ADDQ.L #0x4,A7 00023c86 48 78 00 04 |Hx | PEA.L 0x4 00023c8a 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String 00023c90 50 4f |PO | ADDQ.L #0x8,A7 00023c92 28 4a |(J | MOVEA.L A2,A4 00023c94 4e 93 |N | JSR (A3) 00023c96 58 4f |XO | ADDQ.L #0x4,A7 00023c98 42 81 |B | CLR.L D1 00023c9a 12 30 08 0b | 0 | MOVE.B (A0+D0.L+#0xb),D1 00023c9e 0c 41 00 ff | A | CMPI.W #0x00ff,D1 00023ca2 66 1e |f | BNE 0x23cc2 00023ca4 2f 3a ce 18 |/: | MOVE.L 0x20abe,-(A7) 00023ca8 59 4f |YO | SUBQ.L #0x4,A7 00023caa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023cae 3f 02 |? | MOVE.W D2,-(A7) 00023cb0 3f 04 |? | MOVE.W D4,-(A7) 00023cb2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023cb8 50 4f |PO | ADDQ.L #0x8,A7 00023cba 28 4a |(J | MOVEA.L A2,A4 00023cbc 4e 93 |N | JSR (A3) 00023cbe 58 4f |XO | ADDQ.L #0x4,A7 00023cc0 60 1e |` | BRA 0x23ce0 00023cc2 51 4f |QO | SUBQ.L #0x8,A7 00023cc4 48 c1 |H | EXTW.L D1 00023cc6 2f 01 |/ | MOVE.L D1,-(A7) 00023cc8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00023cce 58 4f |XO | ADDQ.L #0x4,A7 00023cd0 48 78 00 04 |Hx | PEA.L 0x4 00023cd4 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String 00023cda 50 4f |PO | ADDQ.L #0x8,A7 00023cdc 28 4a |(J | MOVEA.L A2,A4 00023cde 4e 93 |N | JSR (A3) 00023ce0 58 4f |XO | ADDQ.L #0x4,A7 00023ce2 2f 2e ff fc |/. | MOVE.L (A6-0x4),-(A7) 00023ce6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023cec 58 4f |XO | ADDQ.L #0x4,A7 00023cee 52 87 |R | ADDQ.L #0x1,D7 00023cf0 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 00023cf6 6f 00 fe c6 |o | BLE 0x23bbe 00023cfa 4c df 1f 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4 00023cfe 4e 5e |N^ | UNLK A6 00023d00 4e 75 |Nu | RTS 00023d02 ; -------------------------------------------------------------------------------------- 00023d02 ; OMSI PASCAL Function 00023d02 ; <LVAR 0x008 4(r)> 00023d02 ; <LVAR -0x006 @ 4(rw)> 00023d02 ; <LVAR -0x007 @ 1(r)> 00023d02 ; <LVAR -0x008 @ 1(r)> 00023d02 ; -------------------------------------------------------------------------------------- 00023d02 4e 56 ff 98 |NV | LINK.W A6,#0xff98 00023d06 bf d5 | | CMPA.L (A5),A7 00023d08 62 06 |b | BHI 0x23d10 00023d0a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023d0e 4e 76 |Nv | TRAPV 00023d10 de fc 00 60 | ` | ADDA.W #0x60,A7 00023d14 48 e7 f0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7) 00023d18 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00023d1e 47 ee ff fa |G | LEA.L (A6-0x6),A3 00023d22 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00023d28 72 01 |r | MOVEQ.L #0x01,D1 00023d2a 74 02 |t | MOVEQ.L #0x02,D2 00023d2c 76 0d |v | MOVEQ.L #0x0d,D3 00023d2e 3f 3a cd f0 |?: | MOVE.W 0x20b20,-(A7) 00023d32 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d36 59 4f |YO | SUBQ.L #0x4,A7 00023d38 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023d3c 3f 01 |? | MOVE.W D1,-(A7) 00023d3e 3f 02 |? | MOVE.W D2,-(A7) 00023d40 4e 92 |N | JSR (A2) 00023d42 5c 4f |\O | ADDQ.L #0x6,A7 00023d44 42 17 |B | CLR.B (A7) 00023d46 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00023d4a 48 53 |HS | PEA.L (A3) 00023d4c 4e ba cf a0 |N | JSR 0x20cee 00023d50 de fc 00 12 | | ADDA.W #0x12,A7 00023d54 3e ba cd cc |> | MOVE.W 0x20b22,(A7) 00023d58 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d5c 59 4f |YO | SUBQ.L #0x4,A7 00023d5e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023d62 3f 01 |? | MOVE.W D1,-(A7) 00023d64 3f 02 |? | MOVE.W D2,-(A7) 00023d66 4e 92 |N | JSR (A2) 00023d68 5c 4f |\O | ADDQ.L #0x6,A7 00023d6a 42 17 |B | CLR.B (A7) 00023d6c 48 6e ff f9 |Hn | PEA.L (A6-0x7) 00023d70 48 53 |HS | PEA.L (A3) 00023d72 4e ba cf 7a |N z | JSR 0x20cee 00023d76 de fc 00 14 | | ADDA.W #0x14,A7 00023d7a 4a 2e ff f8 |J. | TST.B (A6-0x8) 00023d7e 66 00 00 a2 |f | BNE 0x23e22 00023d82 4a 2e ff f9 |J. | TST.B (A6-0x7) 00023d86 66 00 00 9a |f | BNE 0x23e22 00023d8a 41 fa cd 62 |A b | LEA.L 0x20aee,A0 00023d8e 70 0a |p | MOVEQ.L #0x0a,D0 00023d90 2f 20 |/ | MOVE.L -(A0),-(A7) 00023d92 51 c8 ff fc |Q | DBF D0,0x23d90 00023d96 59 4f |YO | SUBQ.L #0x4,A7 00023d98 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023d9c 3f 01 |? | MOVE.W D1,-(A7) 00023d9e 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7) 00023da2 4e 92 |N | JSR (A2) 00023da4 50 4f |PO | ADDQ.L #0x8,A7 00023da6 4e 94 |N | JSR (A4) 00023da8 de fc 00 22 | " | ADDA.W #0x22,A7 00023dac 20 4f | O | MOVEA.L A7,A0 00023dae 43 fa cd 3e |C > | LEA.L 0x20aee,A1 00023db2 70 0c |p | MOVEQ.L #0x0c,D0 00023db4 10 d9 | | MOVE.B (A1)+,(A0)+ 00023db6 51 c8 ff fc |Q | DBF D0,0x23db4 00023dba 59 4f |YO | SUBQ.L #0x4,A7 00023dbc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023dc0 3f 01 |? | MOVE.W D1,-(A7) 00023dc2 3f 03 |? | MOVE.W D3,-(A7) 00023dc4 4e 92 |N | JSR (A2) 00023dc6 50 4f |PO | ADDQ.L #0x8,A7 00023dc8 4e 94 |N | JSR (A4) 00023dca 58 4f |XO | ADDQ.L #0x4,A7 00023dcc 20 4f | O | MOVEA.L A7,A0 00023dce 43 fa cd 2c |C , | LEA.L 0x20afc,A1 00023dd2 70 0c |p | MOVEQ.L #0x0c,D0 00023dd4 10 d9 | | MOVE.B (A1)+,(A0)+ 00023dd6 51 c8 ff fc |Q | DBF D0,0x23dd4 00023dda 59 4f |YO | SUBQ.L #0x4,A7 00023ddc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023de0 3f 01 |? | MOVE.W D1,-(A7) 00023de2 3f 03 |? | MOVE.W D3,-(A7) 00023de4 4e 92 |N | JSR (A2) 00023de6 50 4f |PO | ADDQ.L #0x8,A7 00023de8 4e 94 |N | JSR (A4) 00023dea 59 4f |YO | SUBQ.L #0x4,A7 00023dec 20 4f | O | MOVEA.L A7,A0 00023dee 43 fa cd 1a |C | LEA.L 0x20b0a,A1 00023df2 70 14 |p | MOVEQ.L #0x14,D0 00023df4 10 d9 | | MOVE.B (A1)+,(A0)+ 00023df6 51 c8 ff fc |Q | DBF D0,0x23df4 00023dfa 9e fc 00 0c | | SUBA.W #0xc,A7 00023dfe 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00023e02 3f 01 |? | MOVE.W D1,-(A7) 00023e04 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 00023e08 4e 92 |N | JSR (A2) 00023e0a 50 4f |PO | ADDQ.L #0x8,A7 00023e0c 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00023e12 58 4f |XO | ADDQ.L #0x4,A7 00023e14 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00023e1a 58 4f |XO | ADDQ.L #0x4,A7 00023e1c 26 9f |& | MOVE.L (A7)+,(A3) 00023e1e de fc 00 16 | | ADDA.W #0x16,A7 00023e22 20 53 | S | MOVEA.L (A3),A0 00023e24 10 28 00 02 | ( | MOVE.B (A0+0x2),D0 00023e28 0c 00 00 54 | T | CMPI.B #0x54,D0 00023e2c 66 06 |f | BNE 0x23e34 00023e2e 4e ba f8 2c |N , | JSR 0x2365c 00023e32 60 30 |`0 | BRA 0x23e64 00023e34 0c 00 00 44 | D | CMPI.B #0x44,D0 00023e38 66 06 |f | BNE 0x23e40 00023e3a 4e ba fb 8a |N | JSR 0x239c6 00023e3e 60 24 |`$ | BRA 0x23e64 00023e40 41 fa cc fa |A | LEA.L 0x20b3c,A0 00023e44 70 05 |p | MOVEQ.L #0x05,D0 00023e46 2f 20 |/ | MOVE.L -(A0),-(A7) 00023e48 51 c8 ff fc |Q | DBF D0,0x23e46 00023e4c 59 4f |YO | SUBQ.L #0x4,A7 00023e4e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023e52 3f 01 |? | MOVE.W D1,-(A7) 00023e54 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00023e58 4e 92 |N | JSR (A2) 00023e5a 50 4f |PO | ADDQ.L #0x8,A7 00023e5c 4e ba ce 2e |N . | JSR 0x20c8c 00023e60 de fc 00 1c | | ADDA.W #0x1c,A7 00023e64 4e ba fd 32 |N 2 | JSR 0x23b98 00023e68 4c df 1f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4 00023e6c 4e 5e |N^ | UNLK A6 00023e6e 4e 75 |Nu | RTS 00023e70 ; -------------------------------------------------------------------------------------- 00023e70 ; OMSI PASCAL Function 00023e70 ; <LVAR 0x010 4(r)> 00023e70 ; <LVAR 0x00c 4(r)> 00023e70 ; <LVAR 0x008 4(r)> 00023e70 ; <LVAR -0x006 @ 4(rw)> 00023e70 ; -------------------------------------------------------------------------------------- 00023e70 4e 56 ff a4 |NV | LINK.W A6,#0xffa4 00023e74 bf d5 | | CMPA.L (A5),A7 00023e76 62 06 |b | BHI 0x23e7e 00023e78 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e7c 4e 76 |Nv | TRAPV 00023e7e de fc 00 54 | T | ADDA.W #0x54,A7 00023e82 48 e7 f7 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D3+D2+D1+D0,-(A7) 00023e86 45 ee 00 0c |E | LEA.L (A6+0xc),A2 00023e8a 47 ee ff fa |G | LEA.L (A6-0x6),A3 00023e8e 72 01 |r | MOVEQ.L #0x01,D1 00023e90 74 10 |t | MOVEQ.L #0x10,D2 00023e92 76 07 |v | MOVEQ.L #0x07,D3 00023e94 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023e98 42 10 |B | CLR.B (A0) 00023e9a 7c 00 || | MOVEQ.L #0x00,D6 00023e9c 10 06 | | MOVE.B D6,D0 00023e9e 48 80 |H | EXTB.W D0 00023ea0 e9 40 | @ | ASL.W #0x4,D0 00023ea2 41 fa cd 67 |A g | LEA.L 0x20c0b,A0 00023ea6 9e c2 | | SUBA.W D2,A7 00023ea8 22 4f |"O | MOVEA.L A7,A1 00023eaa 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00023eae 70 0f |p | MOVEQ.L #0x0f,D0 00023eb0 12 d8 | | MOVE.B (A0)+,(A1)+ 00023eb2 51 c8 ff fc |Q | DBF D0,0x23eb0 00023eb6 59 4f |YO | SUBQ.L #0x4,A7 00023eb8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023ebc 3f 01 |? | MOVE.W D1,-(A7) 00023ebe 3f 02 |? | MOVE.W D2,-(A7) 00023ec0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023ec6 50 4f |PO | ADDQ.L #0x8,A7 00023ec8 26 9f |& | MOVE.L (A7)+,(A3) 00023eca de fc 00 0a | | ADDA.W #0xa,A7 00023ece 2e 93 |. | MOVE.L (A3),(A7) 00023ed0 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00023ed4 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00023eda 50 4f |PO | ADDQ.L #0x8,A7 00023edc 10 1f | | MOVE.B (A7)+,D0 00023ede 48 80 |H | EXTB.W D0 00023ee0 41 81 |A | CHK.W D1,D0 00023ee2 1a 00 | | MOVE.B D0,D5 00023ee4 48 53 |HS | PEA.L (A3) 00023ee6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023eec 58 4f |XO | ADDQ.L #0x4,A7 00023eee 4a 05 |J | TST.B D5 00023ef0 67 00 00 9e |g | BEQ 0x23f90 00023ef4 10 06 | | MOVE.B D6,D0 00023ef6 48 80 |H | EXTB.W D0 00023ef8 b0 43 | C | CMP.W D3,D0 00023efa 63 02 |c | BLS 0x23efe 00023efc 4e 4e |NN | TRAP #14 00023efe d0 40 | @ | ADD.W D0,D0 00023f00 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00023f08 00 10 | | .CONST 0x10 ; [0x0] -> 0x23f18 00023f0a 00 1c | | .CONST 0x1c ; [0x1] -> 0x23f24 00023f0c 00 20 | | .CONST 0x20 ; [0x2] -> 0x23f28 00023f0e 00 2a | * | .CONST 0x2a ; [0x3] -> 0x23f32 00023f10 00 6a | j | .CONST 0x6a ; [0x4] -> 0x23f72 00023f12 00 72 | r | .CONST 0x72 ; [0x5] -> 0x23f7a 00023f14 00 7a | z | .CONST 0x7a ; [0x6] -> 0x23f82 00023f16 00 7c | | | .CONST 0x7c ; [0x7] -> 0x23f84 00023f18 switch@0x23f00[0x0]: 00023f18 1f 01 | | MOVE.B D1,-(A7) 00023f1a 2f 12 |/ | MOVE.L (A2),-(A7) 00023f1c 4e ba eb ba |N | JSR 0x22ad8 00023f20 5c 4f |\O | ADDQ.L #0x6,A7 00023f22 60 64 |`d | BRA 0x23f88 00023f24 switch@0x23f00[0x1]: 00023f24 42 27 |B' | CLR.B -(A7) 00023f26 60 f2 |` | BRA 0x23f1a 00023f28 switch@0x23f00[0x2]: 00023f28 2f 12 |/ | MOVE.L (A2),-(A7) 00023f2a 4e ba ea 6e |N n | JSR 0x2299a 00023f2e 58 4f |XO | ADDQ.L #0x4,A7 00023f30 60 56 |`V | BRA 0x23f88 00023f32 switch@0x23f00[0x3]: 00023f32 7e 00 |~ | MOVEQ.L #0x00,D7 00023f34 10 07 | | MOVE.B D7,D0 00023f36 48 80 |H | EXTB.W D0 00023f38 e9 40 | @ | ASL.W #0x4,D0 00023f3a 41 fa cc cf |A | LEA.L 0x20c0b,A0 00023f3e 9e c2 | | SUBA.W D2,A7 00023f40 22 4f |"O | MOVEA.L A7,A1 00023f42 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00023f46 70 0f |p | MOVEQ.L #0x0f,D0 00023f48 12 d8 | | MOVE.B (A0)+,(A1)+ 00023f4a 51 c8 ff fc |Q | DBF D0,0x23f48 00023f4e 59 4f |YO | SUBQ.L #0x4,A7 00023f50 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023f54 3f 01 |? | MOVE.W D1,-(A7) 00023f56 3f 02 |? | MOVE.W D2,-(A7) 00023f58 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023f5e 50 4f |PO | ADDQ.L #0x8,A7 00023f60 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023f66 de fc 00 14 | | ADDA.W #0x14,A7 00023f6a 52 07 |R | ADDQ.B #0x1,D7 00023f6c be 03 | | CMP.B D3,D7 00023f6e 6f c4 |o | BLE 0x23f34 00023f70 60 16 |` | BRA 0x23f88 00023f72 switch@0x23f00[0x4]: 00023f72 2f 12 |/ | MOVE.L (A2),-(A7) 00023f74 4e ba f6 3c |N < | JSR 0x235b2 00023f78 60 b4 |` | BRA 0x23f2e 00023f7a switch@0x23f00[0x5]: 00023f7a 2f 12 |/ | MOVE.L (A2),-(A7) 00023f7c 4e ba fd 84 |N | JSR 0x23d02 00023f80 60 ac |` | BRA 0x23f2e 00023f82 switch@0x23f00[0x6]: 00023f82 60 a4 |` | BRA switch@0x23f00[0x2] 00023f84 switch@0x23f00[0x7]: 00023f84 4e ba ef 14 |N | JSR 0x22e9a 00023f88 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023f8c 10 81 | | MOVE.B D1,(A0) 00023f8e 60 08 |` | BRA 0x23f98 00023f90 52 06 |R | ADDQ.B #0x1,D6 00023f92 bc 03 | | CMP.B D3,D6 00023f94 6f 00 ff 06 |o | BLE 0x23e9c 00023f98 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00023f9e 4c df 0f ef |L | MOVEM.L (A7)+,D0+D1+D2+D3+D5+D6+D7+A0+A1+A2+A3 00023fa2 4e 5e |N^ | UNLK A6 00023fa4 4e 75 |Nu | RTS 00023fa6 ; -------------------------------------------------------------------------------------- 00023fa6 ; OMSI PASCAL Function 00023fa6 ; <LVAR 0x008 4(r)> 00023fa6 ; -------------------------------------------------------------------------------------- 00023fa6 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00023faa bf d5 | | CMPA.L (A5),A7 00023fac 62 06 |b | BHI 0x23fb4 00023fae 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023fb2 4e 76 |Nv | TRAPV 00023fb4 de fc 00 10 | | ADDA.W #0x10,A7 00023fb8 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00023fbc 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00023fc2 4e ba e1 6e |N n | JSR 0x22132 00023fc6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023fca 43 fa cb f0 |C | LEA.L 0x20bbc,A1 00023fce 70 09 |p | MOVEQ.L #0x09,D0 00023fd0 10 d9 | | MOVE.B (A1)+,(A0)+ 00023fd2 51 c8 ff fc |Q | DBF D0,0x23fd0 00023fd6 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00023fda 4e 5e |N^ | UNLK A6 00023fdc 4e 75 |Nu | RTS 00023fde ; -------------------------------------------------------------------------------------- 00023fde ; COMMAND TABLE 00023fde ; -------------------------------------------------------------------------------------- 00023fde COMMAND_TABLE_23fde: 00023fde 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 00023fe8 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 00023ff2 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 00023ffc 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 00024006 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 00024010 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 0002401a 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 00024024 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 0002402e 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 00024038 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 00024042 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 0002404c 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 00024056 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 00024060 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 0002406a 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 00024074 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 0002407e 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 00024088 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 00024092 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 0002409c 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 000240a6 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 000240b0 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 000240ba 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 000240c4 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 000240ce 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 000240d8 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 000240e2 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 000240ec 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 000240f6 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 00024100 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 0002410a 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 00024114 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 0002411e 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 00024128 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 00024132 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 0002413c 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 00024146 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 00024150 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 0002415a 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 00024164 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 0002416e 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 00024178 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 00024182 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 0002418c 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 00024196 57 72 6f 6e 67 20 6e 75 |Wrong nu| .TXT 'Wrong number of arguments for :_' 000241b6 45 51 |EQ | .XXX[0x2] 000241b8 2c 4e 45 2c 23 45 51 2c |,NE,#EQ,| .XXX[0x38] 000241c0 23 4e 45 2c 23 4c 54 2c |#NE,#LT,| 000241c8 23 47 54 2c 23 4c 45 2c |#GT,#LE,| 000241d0 23 47 45 2c 45 4c 53 45 |#GE,ELSE| 000241d8 5d 45 4e 44 5d 43 41 53 |]END]CAS| 000241e0 45 2c 23 43 41 53 45 2c |E,#CASE,| 000241e8 57 48 45 4e 2c 45 4e 44 |WHEN,END| 000241f0 43 41 53 45 5d 20 |CASE] | .XXX[0x6] 000241f6 45 76 61 6c 75 61 74 69 |Evaluati| .TXT 'Evaluation buffer overflow. ' 00024212 55 6e 62 61 6c 61 6e 63 |Unbalanc| .TXT 'Unbalanced [ELSE] or [END]! ' 0002422e 5b 57 48 45 4e 20 5d 20 |[WHEN ] | .TXT '[WHEN ] ' 00024238 4e 6f 20 63 61 73 65 20 |No case | .TXT 'No case alternative found!' 00024252 4e 6f 20 5b 45 4e 44 43 |No [ENDC| .TXT 'No [ENDCASE] found! ' 00024266 4e 6f 20 68 65 6c 70 20 |No help | .TXT 'No help available for_' 0002427c 2e 48 4c 50 |.HLP | .TXT '.HLP' 00024280 54 6f 6f 20 66 65 77 20 |Too few | .TXT 'Too few arguments for SET ' 0002429a 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown variable :_ ' 000242ae 20 69 73 20 6e 6f 74 20 | is not | .TXT ' is not a program.' 000242c0 43 4c |CL | .TXT 'CL' 000242c2 49 20 |I | .XXX[0x2] 000242c4 2e 4d 32 30 30 20 |.M200 | .TXT '.M200 ' 000242ca 53 54 |ST | .TXT 'ST' 000242cc 41 54 |AT | .TXT 'AT' 000242ce 55 53 |US | .TXT 'US' 000242d0 52 45 |RE | .TXT 'RE' 000242d2 53 55 |SU | .TXT 'SU' 000242d4 4c 54 |LT | .TXT 'LT' 000242d6 4f 66 66 73 65 74 2f 4c |Offset/L| .TXT 'Offset/Length error in [INSERT] ' 000242f6 52 45 50 45 41 54 69 6e |REPEATin| .TXT 'REPEATing, type ^G to exit. ' 00024312 41 53 43 49 49 20 61 72 |ASCII ar| .TXT 'ASCII argument out of range.' 0002432e 4e 6f 74 20 61 20 63 6f |Not a co| .TXT 'Not a command or macro :_ ' 00024348 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal marker argument ' 00024360 53 77 69 74 63 68 20 65 |Switch e| .TXT 'Switch exclusion is unimplemented.' 00024382 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 0002439a 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 000243b2 5b 49 4e 49 54 5d 5b 20 |[INIT][ | .TXT '[INIT][ ' 000243ba 5d 5b 42 59 45 5d 3b 20 |][BYE]; | .TXT '][BYE]; ' 000243c2 5b 49 4e 49 54 5d 3b 20 |[INIT]; | .TXT '[INIT]; ' 000243ca 3e 5f |>_ | .TXT '>_' 000243cc 5b 20 |[ | .TXT '[ ' 000243ce 5d 3b |]; | .TXT '];' 000243d0 ; -------------------------------------------------------------------------------------- 000243d0 ; COMMAND TABLE 000243d0 ; -------------------------------------------------------------------------------------- 000243d0 COMMAND_TABLE_243d0: 000243d0 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 000243da 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 000243e4 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 000243ee 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 000243f8 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 00024402 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 0002440c 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 00024416 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 00024420 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 0002442a 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 00024434 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 0002443e 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 00024448 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 00024452 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 0002445c 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 00024466 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 00024470 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 0002447a 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 00024484 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 0002448e 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 00024498 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 000244a2 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 000244ac 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 000244b6 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 000244c0 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 000244ca 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 000244d4 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 000244de 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 000244e8 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 000244f2 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 000244fc 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 00024506 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 00024510 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 0002451a 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 00024524 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 0002452e 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 00024538 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 00024542 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 0002454c 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 00024556 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 00024560 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 0002456a 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 00024574 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 0002457e 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 00024588 a5 34 45 73 34 22 46 75 | 4Es4"Fu| .XXX[0x98] 00024590 33 33 33 33 33 32 33 66 |3333323f| 00024598 37 84 44 57 a6 55 0f 00 |7 DW U | 000245a0 f0 ff 10 22 14 31 22 22 | " 1""| 000245a8 22 22 22 22 22 22 14 3f |"""""" ?| 000245b0 1f 03 10 0f 00 00 00 00 | | 000245b8 ff ff ff ff 00 01 01 00 | | 000245c0 01 01 00 01 02 00 00 01 | | 000245c8 02 00 01 02 00 01 14 06 | | 000245d0 01 14 08 14 0f 02 03 14 | | 000245d8 14 08 14 0f 14 14 14 14 | | 000245e0 14 14 14 04 14 05 14 14 | | 000245e8 14 14 14 14 14 14 14 14 | | 000245f0 14 04 14 14 14 14 14 14 | | 000245f8 04 14 07 14 14 14 14 04 | | 00024600 14 14 14 14 14 14 0c 14 | | 00024608 14 09 14 14 14 0d 14 14 | | 00024610 14 0b 0a 14 0e 14 14 14 | | 00024618 08 14 14 0c 14 14 09 14 | | 00024620 14 14 14 14 14 14 14 14 | | .BLANK 14[0x10] 00024630 14 14 14 14 14 14 14 10 | | .XXX[0x28] 00024638 14 14 11 14 14 14 14 14 | | 00024640 14 14 14 14 14 13 14 14 | | 00024648 14 14 14 12 14 14 14 11 | | 00024650 14 14 14 14 14 14 14 14 | | 00024658 14 14 | | .XXX[0x2] 0002465a ; -------------------------------------------------------------------------------------- 0002465a ; OMSI PASCAL Function 0002465a ; <LVAR 0x008 4(r)> 0002465a ; <LVAR -0x004 @ 4(w)> 0002465a ; -------------------------------------------------------------------------------------- 0002465a 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 0002465e bf d5 | | CMPA.L (A5),A7 00024660 62 06 |b | BHI 0x24668 00024662 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024666 4e 76 |Nv | TRAPV 00024668 de fc 00 10 | | ADDA.W #0x10,A7 0002466c 48 e7 00 08 |H | MOVEM.L A4,-(A7) 00024670 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 00024674 b8 fc 00 01 | | CMPA.W #0x1,A4 00024678 67 1a |g | BEQ 0x24694 0002467a 2d 4c ff fc |-L | MOVE.L A4,(A6-0x4) 0002467e 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 00024682 48 6e ff fc |Hn | PEA.L (A6-0x4) 00024686 48 78 00 0c |Hx | PEA.L 0xc 0002468a 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 00024690 50 4f |PO | ADDQ.L #0x8,A7 00024692 60 e0 |` | BRA 0x24674 00024694 4c df 10 00 |L | MOVEM.L (A7)+,A4 00024698 4e 5e |N^ | UNLK A6 0002469a 4e 75 |Nu | RTS 0002469c ; -------------------------------------------------------------------------------------- 0002469c ; OMSI PASCAL Function 0002469c ; <LVAR 0x008 4(r)> 0002469c ; -------------------------------------------------------------------------------------- 0002469c 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 000246a0 bf d5 | | CMPA.L (A5),A7 000246a2 62 06 |b | BHI 0x246aa 000246a4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000246a8 4e 76 |Nv | TRAPV 000246aa de fc 00 10 | | ADDA.W #0x10,A7 000246ae 48 e7 00 80 |H | MOVEM.L A0,-(A7) 000246b2 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000246b6 b0 fc 00 01 | | CMPA.W #0x1,A0 000246ba 67 0a |g | BEQ 0x246c6 000246bc 2f 08 |/ | MOVE.L A0,-(A7) 000246be 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000246c4 58 4f |XO | ADDQ.L #0x4,A7 000246c6 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 000246ca 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 000246ce 4e f9 00 02 7f 78 |N x | JMP 0x27f78 000246d4 4c df 01 00 |L | .XXX[0x4] 000246d8 4e 5e 4e 75 4e 56 ff fc |N^NuNV | .XXX[0x20] 000246e0 bf d5 62 06 44 fc 00 02 | b D | 000246e8 4e 76 de fc 00 04 2d 79 |Nv -y| 000246f0 00 03 d1 f6 00 08 4e 5e | N^| 000246f8 4e 75 |Nu | .XXX[0x2] 000246fa ; -------------------------------------------------------------------------------------- 000246fa ; OMSI PASCAL Function 000246fa ; <LVAR 0x008 1(rw)> 000246fa ; -------------------------------------------------------------------------------------- 000246fa 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 000246fe bf d5 | | CMPA.L (A5),A7 00024700 62 06 |b | BHI 0x24708 00024702 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024706 4e 76 |Nv | TRAPV 00024708 de fc 00 10 | | ADDA.W #0x10,A7 0002470c 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00024710 20 39 00 03 d1 f6 | 9 | MOVE.L 0x3d1f6,D0 00024716 b0 b9 00 03 d1 fa | | CMP.L 0x3d1fa,D0 0002471c 6f 06 |o | BLE 0x24724 0002471e 42 2e 00 08 |B. | CLR.B (A6+0x8) 00024722 60 0c |` | BRA 0x24730 00024724 41 f9 00 03 b1 ee |A | LEA.L 0x3b1ee,A0 0002472a 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 00024730 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00024734 4e 5e |N^ | UNLK A6 00024736 4e 75 |Nu | RTS 00024738 ; -------------------------------------------------------------------------------------- 00024738 ; OMSI PASCAL Function 00024738 ; <LVAR 0x008 1(rw)> 00024738 ; -------------------------------------------------------------------------------------- 00024738 4e 56 ff ec |NV | LINK.W A6,#0xffec 0002473c bf d5 | | CMPA.L (A5),A7 0002473e 62 06 |b | BHI 0x24746 00024740 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024744 4e 76 |Nv | TRAPV 00024746 de fc 00 14 | | ADDA.W #0x14,A7 0002474a 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002474e 43 f9 00 03 d1 f6 |C | LEA.L 0x3d1f6,A1 00024754 20 11 | | MOVE.L (A1),D0 00024756 b0 b9 00 03 d1 fa | | CMP.L 0x3d1fa,D0 0002475c 6f 06 |o | BLE 0x24764 0002475e 42 2e 00 08 |B. | CLR.B (A6+0x8) 00024762 60 0c |` | BRA 0x24770 00024764 41 f9 00 03 b1 ee |A | LEA.L 0x3b1ee,A0 0002476a 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 00024770 52 80 |R | ADDQ.L #0x1,D0 00024772 22 80 |" | MOVE.L D0,(A1) 00024774 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00024778 4e 5e |N^ | UNLK A6 0002477a 4e 75 |Nu | RTS 0002477c ; -------------------------------------------------------------------------------------- 0002477c ; OMSI PASCAL Function 0002477c ; <LVAR 0x00c 4(r)> 0002477c ; <LVAR 0x008 4(r)> 0002477c ; -------------------------------------------------------------------------------------- 0002477c 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00024780 bf d5 | | CMPA.L (A5),A7 00024782 62 06 |b | BHI 0x2478a 00024784 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024788 4e 76 |Nv | TRAPV 0002478a de fc 00 38 | 8 | ADDA.W #0x38,A7 0002478e 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00024792 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00024796 47 f9 00 03 d1 f6 |G | LEA.L 0x3d1f6,A3 0002479c 72 5b |r[ | MOVEQ.L #0x5b,D1 0002479e 74 02 |t | MOVEQ.L #0x02,D2 000247a0 76 2c |v, | MOVEQ.L #0x2c,D3 000247a2 78 3b |x; | MOVEQ.L #0x3b,D4 000247a4 55 4f |UO | SUBQ.L #0x2,A7 000247a6 4e ba ff 52 |N R | JSR 0x246fa 000247aa 10 1f | | MOVE.B (A7)+,D0 000247ac b0 01 | | CMP.B D1,D0 000247ae 66 0a |f | BNE 0x247ba 000247b0 4e b9 00 02 7a 82 |N z | JSR 0x27a82 000247b6 60 00 00 92 |` | BRA 0x2484a 000247ba 2c 13 |, | MOVE.L (A3),D6 000247bc 55 4f |UO | SUBQ.L #0x2,A7 000247be 4e ba ff 78 |N x | JSR 0x24738 000247c2 1a 1f | | MOVE.B (A7)+,D5 000247c4 66 18 |f | BNE 0x247de 000247c6 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000247ca 43 fa fd e8 |C | LEA.L 0x245b4,A1 000247ce 70 07 |p | MOVEQ.L #0x07,D0 000247d0 10 d9 | | MOVE.B (A1)+,(A0)+ 000247d2 51 c8 ff fc |Q | DBF D0,0x247d0 000247d6 20 52 | R | MOVEA.L (A2),A0 000247d8 10 82 | | MOVE.B D2,(A0) 000247da 60 72 |`r | BRA 0x2484e 000247dc 60 5c |`\ | .XXX[0x2] 000247de ba 03 | | CMP.B D3,D5 000247e0 66 08 |f | BNE 0x247ea 000247e2 20 52 | R | MOVEA.L (A2),A0 000247e4 10 bc 00 03 | | MOVE.B #0x03,(A0) 000247e8 60 50 |`P | BRA 0x2483a 000247ea ba 04 | | CMP.B D4,D5 000247ec 66 08 |f | BNE 0x247f6 000247ee 20 52 | R | MOVEA.L (A2),A0 000247f0 10 bc 00 01 | | MOVE.B #0x01,(A0) 000247f4 60 44 |`D | BRA 0x2483a 000247f6 0c 05 00 5d | ] | CMPI.B #0x5d,D5 000247fa 66 06 |f | BNE 0x24802 000247fc 20 52 | R | MOVEA.L (A2),A0 000247fe 10 82 | | MOVE.B D2,(A0) 00024800 60 38 |`8 | BRA 0x2483a 00024802 20 52 | R | MOVEA.L (A2),A0 00024804 42 10 |B | CLR.B (A0) 00024806 55 4f |UO | SUBQ.L #0x2,A7 00024808 4e ba fe f0 |N | JSR 0x246fa 0002480c 1e 1f | | MOVE.B (A7)+,D7 0002480e be 01 | | CMP.B D1,D7 00024810 66 08 |f | BNE 0x2481a 00024812 4e b9 00 02 7a 82 |N z | JSR 0x27a82 00024818 60 1e |` | BRA 0x24838 0002481a be 04 | | CMP.B D4,D7 0002481c 67 0e |g | BEQ 0x2482c 0002481e be 03 | | CMP.B D3,D7 00024820 67 0a |g | BEQ 0x2482c 00024822 0c 07 00 5d | ] | CMPI.B #0x5d,D7 00024826 67 04 |g | BEQ 0x2482c 00024828 4a 07 |J | TST.B D7 0002482a 66 04 |f | BNE 0x24830 0002482c 60 0c |` | BRA 0x2483a 0002482e 60 08 |` | .XXX[0x2] 00024830 55 4f |UO | SUBQ.L #0x2,A7 00024832 4e ba ff 04 |N | JSR 0x24738 00024836 1e 1f | | MOVE.B (A7)+,D7 00024838 60 cc |` | BRA 0x24806 0002483a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002483e 20 86 | | MOVE.L D6,(A0) 00024840 21 53 00 04 |!S | MOVE.L (A3),(A0+0x4) 00024844 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 00024848 60 04 |` | BRA 0x2484e 0002484a 60 00 ff 58 |` X | BRA 0x247a4 0002484e 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00024852 4e 5e |N^ | UNLK A6 00024854 4e 75 |Nu | RTS 00024856 ; -------------------------------------------------------------------------------------- 00024856 ; OMSI PASCAL Function 00024856 ; <LVAR 0x010 4(r)> 00024856 ; <LVAR 0x00c 4(r)> 00024856 ; <LVAR 0x008 4(r)> 00024856 ; <LVAR -0x004 @ 1(rw)> 00024856 ; <LVAR -0x008 4(w)> 00024856 ; <LVAR -0x00c @ 4(w)> 00024856 ; -------------------------------------------------------------------------------------- 00024856 4e 56 ff ca |NV | LINK.W A6,#0xffca 0002485a bf d5 | | CMPA.L (A5),A7 0002485c 62 06 |b | BHI 0x24864 0002485e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024862 4e 76 |Nv | TRAPV 00024864 de fc 00 2a | * | ADDA.W #0x2a,A7 00024868 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7) 0002486c 45 ee ff fc |E | LEA.L (A6-0x4),A2 00024870 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00024874 72 03 |r | MOVEQ.L #0x03,D1 00024876 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002487a 10 10 | | MOVE.B (A0),D0 0002487c 0c 00 00 01 | | CMPI.B #0x01,D0 00024880 67 06 |g | BEQ 0x24888 00024882 0c 00 00 02 | | CMPI.B #0x02,D0 00024886 66 0e |f | BNE 0x24896 00024888 26 ba fd 2a |& * | MOVE.L 0x245b4,(A3) 0002488c 2d 7a fd 2a ff f8 |-z * | MOVE.L 0x245b8,(A6-0x8) 00024892 14 80 | | MOVE.B D0,(A2) 00024894 60 3c |`< | BRA 0x248d2 00024896 48 53 |HS | PEA.L (A3) 00024898 48 52 |HR | PEA.L (A2) 0002489a 4e ba fe e0 |N | JSR 0x2477c 0002489e 50 4f |PO | ADDQ.L #0x8,A7 000248a0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000248a4 4a 12 |J | TST.B (A2) 000248a6 67 1c |g | BEQ 0x248c4 000248a8 10 10 | | MOVE.B (A0),D0 000248aa b0 01 | | CMP.B D1,D0 000248ac 66 16 |f | BNE 0x248c4 000248ae 10 12 | | MOVE.B (A2),D0 000248b0 48 80 |H | EXTB.W D0 000248b2 41 81 |A | CHK.W D1,D0 000248b4 10 80 | | MOVE.B D0,(A0) 000248b6 26 ba fc fc |& | MOVE.L 0x245b4,(A3) 000248ba 2d 7a fc fc ff f8 |-z | MOVE.L 0x245b8,(A6-0x8) 000248c0 42 12 |B | CLR.B (A2) 000248c2 60 08 |` | BRA 0x248cc 000248c4 10 12 | | MOVE.B (A2),D0 000248c6 48 80 |H | EXTB.W D0 000248c8 41 81 |A | CHK.W D1,D0 000248ca 10 80 | | MOVE.B D0,(A0) 000248cc 10 12 | | MOVE.B (A2),D0 000248ce b0 01 | | CMP.B D1,D0 000248d0 67 c4 |g | BEQ 0x24896 000248d2 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 000248d6 22 4b |"K | MOVEA.L A3,A1 000248d8 70 07 |p | MOVEQ.L #0x07,D0 000248da 10 d9 | | MOVE.B (A1)+,(A0)+ 000248dc 51 c8 ff fc |Q | DBF D0,0x248da 000248e0 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000248e4 10 12 | | MOVE.B (A2),D0 000248e6 48 80 |H | EXTB.W D0 000248e8 41 81 |A | CHK.W D1,D0 000248ea 10 80 | | MOVE.B D0,(A0) 000248ec 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3 000248f0 4e 5e |N^ | UNLK A6 000248f2 4e 75 |Nu | RTS 000248f4 ; -------------------------------------------------------------------------------------- 000248f4 ; OMSI PASCAL Function 000248f4 ; <LVAR 0x008 4(rw)> 000248f4 ; <LVAR -0x004 1(rw)> 000248f4 ; <LVAR -0x010 2(rw)> 000248f4 ; -------------------------------------------------------------------------------------- 000248f4 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 000248f8 bf d5 | | CMPA.L (A5),A7 000248fa 62 06 |b | BHI 0x24902 000248fc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024900 4e 76 |Nv | TRAPV 00024902 de fc 00 30 | 0 | ADDA.W #0x30,A7 00024906 48 e7 c7 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 0002490a 43 ee ff f0 |C | LEA.L (A6-0x10),A1 0002490e 45 ee ff fc |E | LEA.L (A6-0x4),A2 00024912 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00024916 72 20 |r | MOVEQ.L #0x20,D1 00024918 7c 01 || | MOVEQ.L #0x01,D6 0002491a 42 51 |BQ | CLR.W (A1) 0002491c 7a 01 |z | MOVEQ.L #0x01,D5 0002491e 59 4f |YO | SUBQ.L #0x4,A7 00024920 2f 13 |/ | MOVE.L (A3),-(A7) 00024922 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00024928 58 4f |XO | ADDQ.L #0x4,A7 0002492a 26 9f |& | MOVE.L (A7)+,(A3) 0002492c 20 53 | S | MOVEA.L (A3),A0 0002492e 2f 08 |/ | MOVE.L A0,-(A7) 00024930 20 57 | W | MOVEA.L (A7),A0 00024932 30 10 |0 | MOVE.W (A0),D0 00024934 48 c0 |H | EXTW.L D0 00024936 bc 80 | | CMP.L D0,D6 00024938 6e 00 00 b0 |n | BGT 0x249ea 0002493c 42 80 |B | CLR.L D0 0002493e 10 30 68 01 | 0h | MOVE.B (A0+D6.L+#0x1),D0 00024942 02 40 00 7f | @ | ANDI.W #0x007f,D0 00024946 14 80 | | MOVE.B D0,(A2) 00024948 0c 00 00 09 | | CMPI.B #0x09,D0 0002494c 66 02 |f | BNE 0x24950 0002494e 14 81 | | MOVE.B D1,(A2) 00024950 42 80 |B | CLR.L D0 00024952 10 12 | | MOVE.B (A2),D0 00024954 90 41 | A | SUB.W D1,D0 00024956 0c 40 00 0c | @ | CMPI.W #0x000c,D0 0002495a 62 30 |b0 | BHI switch@0x2495e[0x2] 0002495c d0 40 | @ | ADD.W D0,D0 0002495e 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00024966 00 1e | | .CONST 0x1e ; [0x0] -> 0x24984 00024968 00 1a | | .CONST 0x1a ; [0x1] -> 0x24980 0002496a 00 26 | & | .CONST 0x26 ; [0x2] -> 0x2498c 0002496c 00 26 | & | .CONST 0x26 ; [0x3] -> 0x2498c 0002496e 00 26 | & | .CONST 0x26 ; [0x4] -> 0x2498c 00024970 00 26 | & | .CONST 0x26 ; [0x5] -> 0x2498c 00024972 00 26 | & | .CONST 0x26 ; [0x6] -> 0x2498c 00024974 00 26 | & | .CONST 0x26 ; [0x7] -> 0x2498c 00024976 00 26 | & | .CONST 0x26 ; [0x8] -> 0x2498c 00024978 00 26 | & | .CONST 0x26 ; [0x9] -> 0x2498c 0002497a 00 26 | & | .CONST 0x26 ; [0xa] -> 0x2498c 0002497c 00 26 | & | .CONST 0x26 ; [0xb] -> 0x2498c 0002497e 00 22 | " | .CONST 0x22 ; [0xc] -> 0x24988 00024980 switch@0x2495e[0x1]: 00024980 60 68 |`h | BRA 0x249ea 00024982 60 0a |` | .XXX[0x2] 00024984 switch@0x2495e[0x0]: 00024984 7e 00 |~ | MOVEQ.L #0x00,D7 00024986 60 06 |` | BRA 0x2498e 00024988 switch@0x2495e[0xc]: 00024988 7e 01 |~ | MOVEQ.L #0x01,D7 0002498a 60 02 |` | BRA 0x2498e 0002498c switch@0x2495e[0x2]: 0002498c switch@0x2495e[0x3]: 0002498c switch@0x2495e[0x4]: 0002498c switch@0x2495e[0x5]: 0002498c switch@0x2495e[0x6]: 0002498c switch@0x2495e[0x7]: 0002498c switch@0x2495e[0x8]: 0002498c switch@0x2495e[0x9]: 0002498c switch@0x2495e[0xa]: 0002498c switch@0x2495e[0xb]: 0002498c 7e 02 |~ | MOVEQ.L #0x02,D7 0002498e 70 03 |p | MOVEQ.L #0x03,D0 00024990 c1 d1 | | MULS.W (A1),D0 00024992 41 fa fc 28 |A ( | LEA.L 0x245bc,A0 00024996 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 0002499a 42 80 |B | CLR.L D0 0002499c 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 000249a0 0c 40 00 02 | @ | CMPI.W #0x0002,D0 000249a4 63 02 |c | BLS 0x249a8 000249a6 4e 4e |NN | TRAP #14 000249a8 d0 40 | @ | ADD.W D0,D0 000249aa 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000249b2 00 06 | | .CONST 0x6 ; [0x0] -> 0x249b8 000249b4 00 08 | | .CONST 0x8 ; [0x1] -> 0x249ba 000249b6 00 12 | | .CONST 0x12 ; [0x2] -> 0x249c4 000249b8 switch@0x249aa[0x0]: 000249b8 60 16 |` | BRA 0x249d0 000249ba switch@0x249aa[0x1]: 000249ba 20 57 | W | MOVEA.L (A7),A0 000249bc 11 92 58 01 | X | MOVE.B (A2),(A0+D5.L+#0x1) 000249c0 52 85 |R | ADDQ.L #0x1,D5 000249c2 60 0c |` | BRA 0x249d0 000249c4 switch@0x249aa[0x2]: 000249c4 20 57 | W | MOVEA.L (A7),A0 000249c6 11 bc 00 2c 58 01 | ,X | MOVE.B #0x2c,(A0+D5.L+#0x1) 000249cc 52 85 |R | ADDQ.L #0x1,D5 000249ce 53 86 |S | SUBQ.L #0x1,D6 000249d0 70 03 |p | MOVEQ.L #0x03,D0 000249d2 c1 d1 | | MULS.W (A1),D0 000249d4 41 fa fb ef |A | LEA.L 0x245c5,A0 000249d8 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 000249dc 42 80 |B | CLR.L D0 000249de 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 000249e2 32 80 |2 | MOVE.W D0,(A1) 000249e4 52 86 |R | ADDQ.L #0x1,D6 000249e6 60 00 ff 48 |` H | BRA 0x24930 000249ea 20 57 | W | MOVEA.L (A7),A0 000249ec 20 05 | | MOVE.L D5,D0 000249ee 53 80 |S | SUBQ.L #0x1,D0 000249f0 30 80 |0 | MOVE.W D0,(A0) 000249f2 58 4f |XO | ADDQ.L #0x4,A7 000249f4 4c df 0f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3 000249f8 4e 5e |N^ | UNLK A6 000249fa 4e 75 |Nu | RTS 000249fc ; -------------------------------------------------------------------------------------- 000249fc ; OMSI PASCAL Function 000249fc ; <LVAR 0x00c 4(r)> 000249fc ; <LVAR 0x008 4(r)> 000249fc ; <LVAR -0x002 @ 1(r)> 000249fc ; <LVAR -0x00a @> 000249fc ; <LVAR -0x00e @ 4(r)> 000249fc ; <LVAR -0x014 @ 1(r)> 000249fc ; -------------------------------------------------------------------------------------- 000249fc 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00024a00 bf d5 | | CMPA.L (A5),A7 00024a02 62 06 |b | BHI 0x24a0a 00024a04 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024a08 4e 76 |Nv | TRAPV 00024a0a de fc 00 30 | 0 | ADDA.W #0x30,A7 00024a0e 48 e7 c1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D1+D0,-(A7) 00024a12 47 ee ff f2 |G | LEA.L (A6-0xe),A3 00024a16 72 01 |r | MOVEQ.L #0x01,D1 00024a18 55 4f |UO | SUBQ.L #0x2,A7 00024a1a 4e ba fc de |N | JSR 0x246fa 00024a1e 10 1f | | MOVE.B (A7)+,D0 00024a20 0c 00 00 5b | [ | CMPI.B #0x5b,D0 00024a24 66 08 |f | BNE 0x24a2e 00024a26 55 4f |UO | SUBQ.L #0x2,A7 00024a28 4e ba fd 0e |N | JSR 0x24738 00024a2c 1e 1f | | MOVE.B (A7)+,D7 00024a2e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00024a32 20 81 | | MOVE.L D1,(A0) 00024a34 42 2e ff ec |B. | CLR.B (A6-0x14) 00024a38 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00024a3c 48 6e ff fe |Hn | PEA.L (A6-0x2) 00024a40 48 6e ff ec |Hn | PEA.L (A6-0x14) 00024a44 4e ba fe 10 |N | JSR 0x24856 00024a48 de fc 00 0c | | ADDA.W #0xc,A7 00024a4c 4a 2e ff fe |J. | TST.B (A6-0x2) 00024a50 66 36 |f6 | BNE 0x24a88 00024a52 48 53 |HS | PEA.L (A3) 00024a54 48 78 00 0c |Hx | PEA.L 0xc 00024a58 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 00024a5e 50 4f |PO | ADDQ.L #0x8,A7 00024a60 20 53 | S | MOVEA.L (A3),A0 00024a62 22 48 |"H | MOVEA.L A0,A1 00024a64 45 ee ff f6 |E | LEA.L (A6-0xa),A2 00024a68 70 07 |p | MOVEQ.L #0x07,D0 00024a6a 12 da | | MOVE.B (A2)+,(A1)+ 00024a6c 51 c8 ff fc |Q | DBF D0,0x24a6a 00024a70 21 41 00 08 |!A | MOVE.L D1,(A0+0x8) 00024a74 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00024a78 22 50 |"P | MOVEA.L (A0),A1 00024a7a b2 c1 | | CMPA.W D1,A1 00024a7c 66 04 |f | BNE 0x24a82 00024a7e 20 93 | | MOVE.L (A3),(A0) 00024a80 60 04 |` | BRA 0x24a86 00024a82 29 53 00 08 |)S | MOVE.L (A3),(A4+0x8) 00024a86 28 53 |(S | MOVEA.L (A3),A4 00024a88 4a 2e ff fe |J. | TST.B (A6-0x2) 00024a8c 67 aa |g | BEQ 0x24a38 00024a8e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024a92 42 10 |B | CLR.B (A0) 00024a94 10 2e ff fe | . | MOVE.B (A6-0x2),D0 00024a98 0c 00 00 02 | | CMPI.B #0x02,D0 00024a9c 66 02 |f | BNE 0x24aa0 00024a9e 52 10 |R | ADDQ.B #0x1,(A0) 00024aa0 4c df 1f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3+A4 00024aa4 4e 5e |N^ | UNLK A6 00024aa6 4e 75 |Nu | RTS 00024aa8 ; -------------------------------------------------------------------------------------- 00024aa8 ; OMSI PASCAL Function 00024aa8 ; <LVAR 0x00c 4(w)> 00024aa8 ; <LVAR 0x008 4(r)> 00024aa8 ; -------------------------------------------------------------------------------------- 00024aa8 4e 56 ff ec |NV | LINK.W A6,#0xffec 00024aac bf d5 | | CMPA.L (A5),A7 00024aae 62 06 |b | BHI 0x24ab6 00024ab0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024ab4 4e 76 |Nv | TRAPV 00024ab6 de fc 00 0c | | ADDA.W #0xc,A7 00024aba 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 00024abe 7e ff |~ | MOVEQ.L #-0x01,D7 00024ac0 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 00024ac4 b8 fc 00 01 | | CMPA.W #0x1,A4 00024ac8 67 08 |g | BEQ 0x24ad2 00024aca 52 87 |R | ADDQ.L #0x1,D7 00024acc 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 00024ad0 60 f2 |` | BRA 0x24ac4 00024ad2 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc) 00024ad6 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 00024ada 4e 5e |N^ | UNLK A6 00024adc 4e 75 |Nu | RTS 00024ade ; -------------------------------------------------------------------------------------- 00024ade ; OMSI PASCAL Function 00024ade ; <LVAR 0x00c 4(r)> 00024ade ; <LVAR 0x008 4(r)> 00024ade ; -------------------------------------------------------------------------------------- 00024ade 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 00024ae2 bf d5 | | CMPA.L (A5),A7 00024ae4 62 06 |b | BHI 0x24aec 00024ae6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024aea 4e 76 |Nv | TRAPV 00024aec de fc 00 4e | N | ADDA.W #0x4e,A7 00024af0 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00024af4 72 01 |r | MOVEQ.L #0x01,D1 00024af6 59 4f |YO | SUBQ.L #0x4,A7 00024af8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024afc 4e ba ff aa |N | JSR 0x24aa8 00024b00 58 4f |XO | ADDQ.L #0x4,A7 00024b02 20 1f | | MOVE.L (A7)+,D0 00024b04 b0 ae 00 08 | | CMP.L (A6+0x8),D0 00024b08 67 58 |gX | BEQ 0x24b62 00024b0a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024b0e 4e ba fb 4a |N J | JSR 0x2465a 00024b12 58 4f |XO | ADDQ.L #0x4,A7 00024b14 41 fa f6 a0 |A | LEA.L 0x241b6,A0 00024b18 70 07 |p | MOVEQ.L #0x07,D0 00024b1a 2f 20 |/ | MOVE.L -(A0),-(A7) 00024b1c 51 c8 ff fc |Q | DBF D0,0x24b1a 00024b20 41 ee 00 1a |A | LEA.L (A6+0x1a),A0 00024b24 70 04 |p | MOVEQ.L #0x04,D0 00024b26 3f 20 |? | MOVE.W -(A0),-(A7) 00024b28 51 c8 ff fc |Q | DBF D0,0x24b26 00024b2c 51 4f |QO | SUBQ.L #0x8,A7 00024b2e 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00024b32 3f 01 |? | MOVE.W D1,-(A7) 00024b34 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00024b38 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024b3e 58 4f |XO | ADDQ.L #0x4,A7 00024b40 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00024b44 3f 01 |? | MOVE.W D1,-(A7) 00024b46 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00024b4a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024b50 50 4f |PO | ADDQ.L #0x8,A7 00024b52 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024b58 50 4f |PO | ADDQ.L #0x8,A7 00024b5a 4e ba fb 40 |N @ | JSR 0x2469c 00024b5e de fc 00 2e | . | ADDA.W #0x2e,A7 00024b62 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00024b66 4e 5e |N^ | UNLK A6 00024b68 4e 75 |Nu | RTS 00024b6a ; -------------------------------------------------------------------------------------- 00024b6a ; OMSI PASCAL Function 00024b6a ; <LVAR 0x014 1(rw)> 00024b6a ; <LVAR 0x010 4(r)> 00024b6a ; <LVAR 0x00c 4(r)> 00024b6a ; <LVAR 0x008 4(r)> 00024b6a ; -------------------------------------------------------------------------------------- 00024b6a 4e 56 ff dc |NV | LINK.W A6,#0xffdc ; Spelunked 00024b6e bf d5 | | CMPA.L (A5),A7 00024b70 62 06 |b | BHI 0x24b78 00024b72 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024b76 4e 76 |Nv | TRAPV 00024b78 de fc 00 20 | | ADDA.W #0x20,A7 00024b7c 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 00024b80 42 2e 00 14 |B. | CLR.B (A6+0x14) 00024b84 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00024b88 d0 ae 00 08 | | ADD.L (A6+0x8),D0 00024b8c b0 b9 00 03 d1 fa | | CMP.L 0x3d1fa,D0 00024b92 6e 4e |nN | BGT 0x24be2 00024b94 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024b98 7e 01 |~ | MOVEQ.L #0x01,D7 00024b9a be 97 | | CMP.L (A7),D7 00024b9c 6e 42 |nB | BGT 0x24be0 00024b9e 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00024ba2 d0 87 | | ADD.L D7,D0 00024ba4 53 80 |S | SUBQ.L #0x1,D0 00024ba6 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00024bac 63 02 |c | BLS 0x24bb0 00024bae 4e 4f |NO | TRAP #15 00024bb0 41 f9 00 03 b1 ee |A | LEA.L 0x3b1ee,A0 00024bb6 22 2e 00 0c |". | MOVE.L (A6+0xc),D1 00024bba d2 87 | | ADD.L D7,D1 00024bbc 53 81 |S | SUBQ.L #0x1,D1 00024bbe 53 81 |S | SUBQ.L #0x1,D1 00024bc0 0c 81 00 00 00 3e | > | CMPI.L #0x0000003e,D1 00024bc6 63 02 |c | BLS 0x24bca 00024bc8 4e 4f |NO | TRAP #15 00024bca 43 fa f5 ea |C | LEA.L 0x241b6,A1 00024bce 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 00024bd2 b0 31 18 00 | 1 | CMP.B (A1+D1.L),D0 00024bd6 67 04 |g | BEQ 0x24bdc 00024bd8 58 4f |XO | ADDQ.L #0x4,A7 00024bda 60 0c |` | BRA 0x24be8 00024bdc 52 87 |R | ADDQ.L #0x1,D7 00024bde 68 ba |h | BVC 0x24b9a 00024be0 58 4f |XO | ADDQ.L #0x4,A7 00024be2 1d 7c 00 01 00 14 | | | MOVE.B #0x01,(A6+0x14) 00024be8 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 00024bec 4e 5e |N^ | UNLK A6 00024bee 4e 75 |Nu | RTS 00024bf0 ; -------------------------------------------------------------------------------------- 00024bf0 ; OMSI PASCAL Function 00024bf0 ; <LVAR 0x00c 4(r)> 00024bf0 ; <LVAR 0x008 4(r)> 00024bf0 ; -------------------------------------------------------------------------------------- 00024bf0 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00024bf4 bf d5 | | CMPA.L (A5),A7 00024bf6 62 06 |b | BHI 0x24bfe 00024bf8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024bfc 4e 76 |Nv | TRAPV 00024bfe de fc 00 40 | @ | ADDA.W #0x40,A7 00024c02 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7) 00024c06 45 f9 00 03 d1 fa |E | LEA.L 0x3d1fa,A2 00024c0c 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00024c10 4a 93 |J | TST.L (A3) 00024c12 6c 3e |l> | BGE 0x24c52 00024c14 20 13 | | MOVE.L (A3),D0 00024c16 44 80 |D | NEG.L D0 00024c18 d0 92 | | ADD.L (A2),D0 00024c1a 0c 80 00 00 20 00 | | CMPI.L #0x00002000,D0 00024c20 6f 30 |o0 | BLE 0x24c52 00024c22 9e fc 00 1c | | SUBA.W #0x1c,A7 00024c26 20 4f | O | MOVEA.L A7,A0 00024c28 43 fa f5 cc |C | LEA.L 0x241f6,A1 00024c2c 70 1a |p | MOVEQ.L #0x1a,D0 00024c2e 10 d9 | | MOVE.B (A1)+,(A0)+ 00024c30 51 c8 ff fc |Q | DBF D0,0x24c2e 00024c34 59 4f |YO | SUBQ.L #0x4,A7 00024c36 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024c3a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024c3e 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00024c42 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024c48 50 4f |PO | ADDQ.L #0x8,A7 00024c4a 4e ba fa 50 |N P | JSR 0x2469c 00024c4e de fc 00 20 | | ADDA.W #0x20,A7 00024c52 41 f9 00 03 b1 f6 |A | LEA.L 0x3b1f6,A0 00024c58 2f 08 |/ | MOVE.L A0,-(A7) 00024c5a 2f 12 |/ | MOVE.L (A2),-(A7) 00024c5c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024c60 2f 13 |/ | MOVE.L (A3),-(A7) 00024c62 4e b9 00 01 03 64 |N d | JSR MovStringTail(Base, Len, Ptr, Delta) 00024c68 de fc 00 10 | | ADDA.W #0x10,A7 00024c6c 20 12 | | MOVE.L (A2),D0 00024c6e 90 93 | | SUB.L (A3),D0 00024c70 24 80 |$ | MOVE.L D0,(A2) 00024c72 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3 00024c76 4e 5e |N^ | UNLK A6 00024c78 4e 75 |Nu | RTS 00024c7a ; -------------------------------------------------------------------------------------- 00024c7a ; OMSI PASCAL Function 00024c7a ; <LVAR 0x00c 4(r)> 00024c7a ; <LVAR 0x008 4(r)> 00024c7a ; -------------------------------------------------------------------------------------- 00024c7a 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00024c7e bf d5 | | CMPA.L (A5),A7 00024c80 62 06 |b | BHI 0x24c88 00024c82 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024c86 4e 76 |Nv | TRAPV 00024c88 de fc 00 28 | ( | ADDA.W #0x28,A7 00024c8c 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 00024c90 45 ee 00 0c |E | LEA.L (A6+0xc),A2 00024c94 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024c98 2f 08 |/ | MOVE.L A0,-(A7) 00024c9a 22 52 |"R | MOVEA.L (A2),A1 00024c9c 2f 11 |/ | MOVE.L (A1),-(A7) 00024c9e 30 10 |0 | MOVE.W (A0),D0 00024ca0 48 c0 |H | EXTW.L D0 00024ca2 44 80 |D | NEG.L D0 00024ca4 2f 00 |/ | MOVE.L D0,-(A7) 00024ca6 4e ba ff 48 |N H | JSR 0x24bf0 00024caa 50 4f |PO | ADDQ.L #0x8,A7 00024cac 30 10 |0 | MOVE.W (A0),D0 00024cae 48 c0 |H | EXTW.L D0 00024cb0 2f 00 |/ | MOVE.L D0,-(A7) 00024cb2 7e 01 |~ | MOVEQ.L #0x01,D7 00024cb4 be 97 | | CMP.L (A7),D7 00024cb6 6e 36 |n6 | BGT 0x24cee 00024cb8 20 52 | R | MOVEA.L (A2),A0 00024cba 20 07 | | MOVE.L D7,D0 00024cbc d0 90 | | ADD.L (A0),D0 00024cbe 53 80 |S | SUBQ.L #0x1,D0 00024cc0 53 80 |S | SUBQ.L #0x1,D0 00024cc2 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00024cc8 63 02 |c | BLS 0x24ccc 00024cca 4e 4f |NO | TRAP #15 00024ccc 41 f9 00 03 b1 ee |A | LEA.L 0x3b1ee,A0 00024cd2 22 07 |" | MOVE.L D7,D1 00024cd4 53 81 |S | SUBQ.L #0x1,D1 00024cd6 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00024cdc 63 02 |c | BLS 0x24ce0 00024cde 4e 4f |NO | TRAP #15 00024ce0 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00024ce4 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00024cea 52 87 |R | ADDQ.L #0x1,D7 00024cec 68 c6 |h | BVC 0x24cb4 00024cee 58 4f |XO | ADDQ.L #0x4,A7 00024cf0 20 52 | R | MOVEA.L (A2),A0 00024cf2 22 57 |"W | MOVEA.L (A7),A1 00024cf4 30 11 |0 | MOVE.W (A1),D0 00024cf6 48 c0 |H | EXTW.L D0 00024cf8 d1 90 | | ADD.L D0,(A0) 00024cfa 58 4f |XO | ADDQ.L #0x4,A7 00024cfc 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 00024d00 4e 5e |N^ | UNLK A6 00024d02 4e 75 |Nu | RTS 00024d04 ; -------------------------------------------------------------------------------------- 00024d04 ; OMSI PASCAL Function 00024d04 ; <LVAR 0x00c 4(r)> 00024d04 ; <LVAR 0x008 4(r)> 00024d04 ; -------------------------------------------------------------------------------------- 00024d04 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00024d08 bf d5 | | CMPA.L (A5),A7 00024d0a 62 06 |b | BHI 0x24d12 00024d0c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024d10 4e 76 |Nv | TRAPV 00024d12 de fc 00 50 | P | ADDA.W #0x50,A7 00024d16 48 e7 c3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7) 00024d1a 45 fa fe 4e |E N | LEA.L 0x24b6a,A2 00024d1e 47 f8 00 04 |G | LEA.L 0x4,A3 00024d22 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00024d26 72 0c |r | MOVEQ.L #0x0c,D1 00024d28 7e 00 |~ | MOVEQ.L #0x00,D7 00024d2a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00024d2e 42 90 |B | CLR.L (A0) 00024d30 20 54 | T | MOVEA.L (A4),A0 00024d32 42 90 |B | CLR.L (A0) 00024d34 2c 39 00 03 d1 f6 |,9 | MOVE.L 0x3d1f6,D6 00024d3a 20 06 | | MOVE.L D6,D0 00024d3c 53 80 |S | SUBQ.L #0x1,D0 00024d3e 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00024d44 63 02 |c | BLS 0x24d48 00024d46 4e 4f |NO | TRAP #15 00024d48 41 f9 00 03 b1 ee |A | LEA.L 0x3b1ee,A0 00024d4e 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 00024d52 0c 00 00 5b | [ | CMPI.B #0x5b,D0 00024d56 66 00 00 d4 |f | BNE 0x24e2c 00024d5a 55 4f |UO | SUBQ.L #0x2,A7 00024d5c 2f 06 |/ | MOVE.L D6,-(A7) 00024d5e 48 78 00 01 |Hx | PEA.L 0x1 00024d62 48 78 00 03 |Hx | PEA.L 0x3 00024d66 4e 92 |N | JSR (A2) 00024d68 de c1 | | ADDA.W D1,A7 00024d6a 4a 1f |J | TST.B (A7)+ 00024d6c 66 7e |f~ | BNE 0x24dec 00024d6e 55 4f |UO | SUBQ.L #0x2,A7 00024d70 2f 06 |/ | MOVE.L D6,-(A7) 00024d72 48 53 |HS | PEA.L (A3) 00024d74 48 78 00 03 |Hx | PEA.L 0x3 00024d78 4e 92 |N | JSR (A2) 00024d7a de c1 | | ADDA.W D1,A7 00024d7c 4a 1f |J | TST.B (A7)+ 00024d7e 66 6c |fl | BNE 0x24dec 00024d80 55 4f |UO | SUBQ.L #0x2,A7 00024d82 2f 06 |/ | MOVE.L D6,-(A7) 00024d84 48 78 00 07 |Hx | PEA.L 0x7 00024d88 48 53 |HS | PEA.L (A3) 00024d8a 4e 92 |N | JSR (A2) 00024d8c de c1 | | ADDA.W D1,A7 00024d8e 4a 1f |J | TST.B (A7)+ 00024d90 66 5a |fZ | BNE 0x24dec 00024d92 55 4f |UO | SUBQ.L #0x2,A7 00024d94 2f 06 |/ | MOVE.L D6,-(A7) 00024d96 48 78 00 0b |Hx | PEA.L 0xb 00024d9a 48 53 |HS | PEA.L (A3) 00024d9c 4e 92 |N | JSR (A2) 00024d9e de c1 | | ADDA.W D1,A7 00024da0 4a 1f |J | TST.B (A7)+ 00024da2 66 48 |fH | BNE 0x24dec 00024da4 55 4f |UO | SUBQ.L #0x2,A7 00024da6 2f 06 |/ | MOVE.L D6,-(A7) 00024da8 48 78 00 0f |Hx | PEA.L 0xf 00024dac 48 53 |HS | PEA.L (A3) 00024dae 4e 92 |N | JSR (A2) 00024db0 de c1 | | ADDA.W D1,A7 00024db2 4a 1f |J | TST.B (A7)+ 00024db4 66 36 |f6 | BNE 0x24dec 00024db6 55 4f |UO | SUBQ.L #0x2,A7 00024db8 2f 06 |/ | MOVE.L D6,-(A7) 00024dba 48 78 00 13 |Hx | PEA.L 0x13 00024dbe 48 53 |HS | PEA.L (A3) 00024dc0 4e 92 |N | JSR (A2) 00024dc2 de c1 | | ADDA.W D1,A7 00024dc4 4a 1f |J | TST.B (A7)+ 00024dc6 66 24 |f$ | BNE 0x24dec 00024dc8 55 4f |UO | SUBQ.L #0x2,A7 00024dca 2f 06 |/ | MOVE.L D6,-(A7) 00024dcc 48 78 00 17 |Hx | PEA.L 0x17 00024dd0 48 53 |HS | PEA.L (A3) 00024dd2 4e 92 |N | JSR (A2) 00024dd4 de c1 | | ADDA.W D1,A7 00024dd6 4a 1f |J | TST.B (A7)+ 00024dd8 66 12 |f | BNE 0x24dec 00024dda 55 4f |UO | SUBQ.L #0x2,A7 00024ddc 2f 06 |/ | MOVE.L D6,-(A7) 00024dde 48 78 00 1b |Hx | PEA.L 0x1b 00024de2 48 53 |HS | PEA.L (A3) 00024de4 4e 92 |N | JSR (A2) 00024de6 de c1 | | ADDA.W D1,A7 00024de8 4a 1f |J | TST.B (A7)+ 00024dea 67 04 |g | BEQ 0x24df0 00024dec 52 87 |R | ADDQ.L #0x1,D7 00024dee 60 3c |`< | BRA 0x24e2c 00024df0 4a 87 |J | TST.L D7 00024df2 66 1c |f | BNE 0x24e10 00024df4 55 4f |UO | SUBQ.L #0x2,A7 00024df6 2f 06 |/ | MOVE.L D6,-(A7) 00024df8 48 78 00 1f |Hx | PEA.L 0x1f 00024dfc 48 78 00 05 |Hx | PEA.L 0x5 00024e00 4e 92 |N | JSR (A2) 00024e02 de c1 | | ADDA.W D1,A7 00024e04 4a 1f |J | TST.B (A7)+ 00024e06 67 08 |g | BEQ 0x24e10 00024e08 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00024e0c 20 86 | | MOVE.L D6,(A0) 00024e0e 60 1c |` | BRA 0x24e2c 00024e10 55 4f |UO | SUBQ.L #0x2,A7 00024e12 2f 06 |/ | MOVE.L D6,-(A7) 00024e14 48 78 00 24 |Hx $ | PEA.L 0x24 00024e18 48 53 |HS | PEA.L (A3) 00024e1a 4e 92 |N | JSR (A2) 00024e1c de c1 | | ADDA.W D1,A7 00024e1e 4a 1f |J | TST.B (A7)+ 00024e20 67 0a |g | BEQ 0x24e2c 00024e22 4a 87 |J | TST.L D7 00024e24 66 04 |f | BNE 0x24e2a 00024e26 20 54 | T | MOVEA.L (A4),A0 00024e28 60 e2 |` | BRA 0x24e0c 00024e2a 53 87 |S | SUBQ.L #0x1,D7 00024e2c 52 86 |R | ADDQ.L #0x1,D6 00024e2e bc b9 00 03 d1 fa | | CMP.L 0x3d1fa,D6 00024e34 6e 0e |n | BGT 0x24e44 00024e36 4a 87 |J | TST.L D7 00024e38 66 00 ff 00 |f | BNE 0x24d3a 00024e3c 20 54 | T | MOVEA.L (A4),A0 00024e3e 4a 90 |J | TST.L (A0) 00024e40 67 00 fe f8 |g | BEQ 0x24d3a 00024e44 bc b9 00 03 d1 fa | | CMP.L 0x3d1fa,D6 00024e4a 6f 30 |o0 | BLE 0x24e7c 00024e4c 9e fc 00 1c | | SUBA.W #0x1c,A7 00024e50 20 4f | O | MOVEA.L A7,A0 00024e52 43 fa f3 be |C | LEA.L 0x24212,A1 00024e56 70 1a |p | MOVEQ.L #0x1a,D0 00024e58 10 d9 | | MOVE.B (A1)+,(A0)+ 00024e5a 51 c8 ff fc |Q | DBF D0,0x24e58 00024e5e 59 4f |YO | SUBQ.L #0x4,A7 00024e60 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024e64 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024e68 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00024e6c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024e72 50 4f |PO | ADDQ.L #0x8,A7 00024e74 4e ba f8 26 |N & | JSR 0x2469c 00024e78 de fc 00 20 | | ADDA.W #0x20,A7 00024e7c 4c df 1f c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4 00024e80 4e 5e |N^ | UNLK A6 00024e82 4e 75 |Nu | RTS 00024e84 ; -------------------------------------------------------------------------------------- 00024e84 ; OMSI PASCAL Function 00024e84 ; <LVAR -0x004 @ 4(r)> 00024e84 ; <LVAR -0x008 @ 4(rw)> 00024e84 ; -------------------------------------------------------------------------------------- 00024e84 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00024e88 bf d5 | | CMPA.L (A5),A7 00024e8a 62 06 |b | BHI 0x24e92 00024e8c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024e90 4e 76 |Nv | TRAPV 00024e92 de fc 00 1c | | ADDA.W #0x1c,A7 00024e96 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00024e9a 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00024e9e 43 ee ff fc |C | LEA.L (A6-0x4),A1 00024ea2 48 50 |HP | PEA.L (A0) 00024ea4 48 51 |HQ | PEA.L (A1) 00024ea6 4e ba fe 5c |N \ | JSR 0x24d04 00024eaa 50 4f |PO | ADDQ.L #0x8,A7 00024eac 4a 90 |J | TST.L (A0) 00024eae 66 02 |f | BNE 0x24eb2 00024eb0 20 91 | | MOVE.L (A1),(A0) 00024eb2 20 11 | | MOVE.L (A1),D0 00024eb4 5a 80 |Z | ADDQ.L #0x5,D0 00024eb6 2f 00 |/ | MOVE.L D0,-(A7) 00024eb8 90 90 | | SUB.L (A0),D0 00024eba 2f 00 |/ | MOVE.L D0,-(A7) 00024ebc 4e ba fd 32 |N 2 | JSR 0x24bf0 00024ec0 50 4f |PO | ADDQ.L #0x8,A7 00024ec2 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00024ec6 4e 5e |N^ | UNLK A6 00024ec8 4e 75 |Nu | RTS 00024eca ; -------------------------------------------------------------------------------------- 00024eca ; OMSI PASCAL Function 00024eca ; <LVAR -0x004 @ 4(r)> 00024eca ; <LVAR -0x008 @ 4(r)> 00024eca ; -------------------------------------------------------------------------------------- 00024eca 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00024ece bf d5 | | CMPA.L (A5),A7 00024ed0 62 06 |b | BHI 0x24ed8 00024ed2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024ed6 4e 76 |Nv | TRAPV 00024ed8 de fc 00 1c | | ADDA.W #0x1c,A7 00024edc 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00024ee0 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00024ee4 43 ee ff fc |C | LEA.L (A6-0x4),A1 00024ee8 48 50 |HP | PEA.L (A0) 00024eea 48 51 |HQ | PEA.L (A1) 00024eec 4e ba fe 16 |N | JSR 0x24d04 00024ef0 50 4f |PO | ADDQ.L #0x8,A7 00024ef2 4a 90 |J | TST.L (A0) 00024ef4 66 06 |f | BNE 0x24efc 00024ef6 20 11 | | MOVE.L (A1),D0 00024ef8 5a 80 |Z | ADDQ.L #0x5,D0 00024efa 60 12 |` | BRA 0x24f0e 00024efc 2f 11 |/ | MOVE.L (A1),-(A7) 00024efe 5a 97 |Z | ADDQ.L #0x5,(A7) 00024f00 48 78 00 05 |Hx | PEA.L 0x5 00024f04 4e ba fc ea |N | JSR 0x24bf0 00024f08 50 4f |PO | ADDQ.L #0x8,A7 00024f0a 20 10 | | MOVE.L (A0),D0 00024f0c 5c 80 |\ | ADDQ.L #0x6,D0 00024f0e 2f 00 |/ | MOVE.L D0,-(A7) 00024f10 90 b9 00 03 d1 f6 | | SUB.L 0x3d1f6,D0 00024f16 2f 00 |/ | MOVE.L D0,-(A7) 00024f18 4e ba fc d6 |N | JSR 0x24bf0 00024f1c 50 4f |PO | ADDQ.L #0x8,A7 00024f1e 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00024f22 4e 5e |N^ | UNLK A6 00024f24 4e 75 |Nu | RTS 00024f26 ; -------------------------------------------------------------------------------------- 00024f26 ; OMSI PASCAL Function 00024f26 ; <LVAR 0x008 4(r)> 00024f26 ; <LVAR -0x004 @> 00024f26 ; <LVAR -0x008 @ 4(r)> 00024f26 ; <LVAR -0x00c @ 4(rw)> 00024f26 ; <LVAR -0x010 4(rw)> 00024f26 ; <LVAR -0x014 4(rw)> 00024f26 ; -------------------------------------------------------------------------------------- 00024f26 4e 56 ff ba |NV | LINK.W A6,#0xffba 00024f2a bf d5 | | CMPA.L (A5),A7 00024f2c 62 06 |b | BHI 0x24f34 00024f2e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024f32 4e 76 |Nv | TRAPV 00024f34 de fc 00 32 | 2 | ADDA.W #0x32,A7 00024f38 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00024f3c 43 f9 00 03 d2 08 |C | LEA.L 0x3d208,A1 00024f42 45 f9 00 03 d2 0e |E | LEA.L 0x3d20e,A2 00024f48 47 f9 00 03 d1 f6 |G | LEA.L 0x3d1f6,A3 00024f4e 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00024f52 72 01 |r | MOVEQ.L #0x01,D1 00024f54 4a 11 |J | TST.B (A1) 00024f56 67 0a |g | BEQ 0x24f62 00024f58 4a 92 |J | TST.L (A2) 00024f5a 66 06 |f | BNE 0x24f62 00024f5c 24 ae 00 08 |$ | MOVE.L (A6+0x8),(A2) 00024f60 53 92 |S | SUBQ.L #0x1,(A2) 00024f62 4a 11 |J | TST.B (A1) 00024f64 66 00 00 cc |f | BNE 0x25032 00024f68 26 ae 00 08 |& | MOVE.L (A6+0x8),(A3) 00024f6c 5c 93 |\ | ADDQ.L #0x6,(A3) 00024f6e 48 54 |HT | PEA.L (A4) 00024f70 48 6e ff fc |Hn | PEA.L (A6-0x4) 00024f74 4e ba fa 86 |N | JSR 0x249fc 00024f78 50 4f |PO | ADDQ.L #0x8,A7 00024f7a 41 fa f2 bc |A | LEA.L 0x24238,A0 00024f7e 70 04 |p | MOVEQ.L #0x04,D0 00024f80 3f 20 |? | MOVE.W -(A0),-(A7) 00024f82 51 c8 ff fc |Q | DBF D0,0x24f80 00024f86 2f 14 |/ | MOVE.L (A4),-(A7) 00024f88 48 78 00 00 |Hx | PEA.L 0x0 00024f8c 4e ba fb 50 |N P | JSR 0x24ade 00024f90 de fc 00 12 | | ADDA.W #0x12,A7 00024f94 4a 39 00 03 d2 12 |J9 | TST.B 0x3d212 00024f9a 67 1a |g | BEQ 0x24fb6 00024f9c 51 4f |QO | SUBQ.L #0x8,A7 00024f9e 2f 14 |/ | MOVE.L (A4),-(A7) 00024fa0 48 78 00 00 |Hx | PEA.L 0x0 00024fa4 4e b9 00 02 53 f6 |N S | JSR 0x253f6 00024faa 50 4f |PO | ADDQ.L #0x8,A7 00024fac 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00024fb0 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00024fb4 60 14 |` | BRA 0x24fca 00024fb6 59 4f |YO | SUBQ.L #0x4,A7 00024fb8 2f 14 |/ | MOVE.L (A4),-(A7) 00024fba 48 78 00 00 |Hx | PEA.L 0x0 00024fbe 4e b9 00 02 53 c4 |N S | JSR 0x253c4 00024fc4 50 4f |PO | ADDQ.L #0x8,A7 00024fc6 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 00024fca 2f 14 |/ | MOVE.L (A4),-(A7) 00024fcc 4e ba f6 8c |N | JSR 0x2465a 00024fd0 58 4f |XO | ADDQ.L #0x4,A7 00024fd2 23 d3 00 03 d2 0a |# | MOVE.L (A3),0x3d20a 00024fd8 4a 39 00 03 d2 12 |J9 | TST.B 0x3d212 00024fde 67 2a |g* | BEQ 0x2500a 00024fe0 55 4f |UO | SUBQ.L #0x2,A7 00024fe2 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00024fe6 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00024fea 2f 39 00 03 d2 1c |/9 | MOVE.L 0x3d21c,-(A7) 00024ff0 2f 39 00 03 d2 18 |/9 | MOVE.L 0x3d218,-(A7) 00024ff6 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00024ffc de fc 00 10 | | ADDA.W #0x10,A7 00025000 10 1f | | MOVE.B (A7)+,D0 00025002 48 80 |H | EXTB.W D0 00025004 41 81 |A | CHK.W D1,D0 00025006 12 80 | | MOVE.B D0,(A1) 00025008 60 28 |`( | BRA 0x25032 0002500a 55 4f |UO | SUBQ.L #0x2,A7 0002500c 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00025010 2f 39 00 03 d2 14 |/9 | MOVE.L 0x3d214,-(A7) 00025016 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 0002501c 50 4f |PO | ADDQ.L #0x8,A7 0002501e 10 1f | | MOVE.B (A7)+,D0 00025020 48 80 |H | EXTB.W D0 00025022 41 81 |A | CHK.W D1,D0 00025024 12 80 | | MOVE.B D0,(A1) 00025026 48 6e ff f4 |Hn | PEA.L (A6-0xc) 0002502a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00025030 58 4f |XO | ADDQ.L #0x4,A7 00025032 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00025036 4e 5e |N^ | UNLK A6 00025038 4e 75 |Nu | RTS 0002503a ; -------------------------------------------------------------------------------------- 0002503a ; OMSI PASCAL Function 0002503a ; <LVAR 0x010 4(r)> 0002503a ; <LVAR 0x00c 4(r)> 0002503a ; <LVAR 0x008 4(r)> 0002503a ; -------------------------------------------------------------------------------------- 0002503a 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 0002503e bf d5 | | CMPA.L (A5),A7 00025040 62 06 |b | BHI 0x25048 00025042 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025046 4e 76 |Nv | TRAPV 00025048 de fc 00 56 | V | ADDA.W #0x56,A7 0002504c 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00025050 45 f9 00 03 d2 0e |E | LEA.L 0x3d20e,A2 00025056 47 fa fb 12 |G | LEA.L 0x24b6a,A3 0002505a 49 f9 00 03 d2 08 |I | LEA.L 0x3d208,A4 00025060 72 0c |r | MOVEQ.L #0x0c,D1 00025062 74 01 |t | MOVEQ.L #0x01,D2 00025064 42 14 |B | CLR.B (A4) 00025066 42 b9 00 03 d2 0a |B | CLR.L 0x3d20a 0002506c 42 92 |B | CLR.L (A2) 0002506e 7e 00 |~ | MOVEQ.L #0x00,D7 00025070 7c 00 || | MOVEQ.L #0x00,D6 00025072 2a 39 00 03 d1 f6 |*9 | MOVE.L 0x3d1f6,D5 00025078 4a 86 |J | TST.L D6 0002507a 66 00 00 a0 |f | BNE 0x2511c 0002507e ba b9 00 03 d1 fa | | CMP.L 0x3d1fa,D5 00025084 6e 00 00 96 |n | BGT 0x2511c 00025088 20 05 | | MOVE.L D5,D0 0002508a 53 80 |S | SUBQ.L #0x1,D0 0002508c 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00025092 63 02 |c | BLS 0x25096 00025094 4e 4f |NO | TRAP #15 00025096 41 f9 00 03 b1 ee |A | LEA.L 0x3b1ee,A0 0002509c 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 000250a0 0c 00 00 5b | [ | CMPI.B #0x5b,D0 000250a4 66 6c |fl | BNE 0x25112 000250a6 55 4f |UO | SUBQ.L #0x2,A7 000250a8 2f 05 |/ | MOVE.L D5,-(A7) 000250aa 48 78 00 28 |Hx ( | PEA.L 0x28 000250ae 48 78 00 05 |Hx | PEA.L 0x5 000250b2 4e 93 |N | JSR (A3) 000250b4 de c1 | | ADDA.W D1,A7 000250b6 4a 1f |J | TST.B (A7)+ 000250b8 66 14 |f | BNE 0x250ce 000250ba 55 4f |UO | SUBQ.L #0x2,A7 000250bc 2f 05 |/ | MOVE.L D5,-(A7) 000250be 48 78 00 2d |Hx - | PEA.L 0x2d 000250c2 48 78 00 06 |Hx | PEA.L 0x6 000250c6 4e 93 |N | JSR (A3) 000250c8 de c1 | | ADDA.W D1,A7 000250ca 4a 1f |J | TST.B (A7)+ 000250cc 67 04 |g | BEQ 0x250d2 000250ce 52 87 |R | ADDQ.L #0x1,D7 000250d0 60 40 |`@ | BRA 0x25112 000250d2 4a 87 |J | TST.L D7 000250d4 66 1e |f | BNE 0x250f4 000250d6 55 4f |UO | SUBQ.L #0x2,A7 000250d8 2f 05 |/ | MOVE.L D5,-(A7) 000250da 48 78 00 33 |Hx 3 | PEA.L 0x33 000250de 48 78 00 05 |Hx | PEA.L 0x5 000250e2 4e 93 |N | JSR (A3) 000250e4 de c1 | | ADDA.W D1,A7 000250e6 4a 1f |J | TST.B (A7)+ 000250e8 67 0a |g | BEQ 0x250f4 000250ea 2f 05 |/ | MOVE.L D5,-(A7) 000250ec 4e ba fe 38 |N 8 | JSR 0x24f26 000250f0 58 4f |XO | ADDQ.L #0x4,A7 000250f2 60 1e |` | BRA 0x25112 000250f4 55 4f |UO | SUBQ.L #0x2,A7 000250f6 2f 05 |/ | MOVE.L D5,-(A7) 000250f8 48 78 00 38 |Hx 8 | PEA.L 0x38 000250fc 48 78 00 08 |Hx | PEA.L 0x8 00025100 4e 93 |N | JSR (A3) 00025102 de c1 | | ADDA.W D1,A7 00025104 4a 1f |J | TST.B (A7)+ 00025106 67 0a |g | BEQ 0x25112 00025108 4a 87 |J | TST.L D7 0002510a 66 04 |f | BNE 0x25110 0002510c 2c 05 |, | MOVE.L D5,D6 0002510e 60 02 |` | BRA 0x25112 00025110 53 87 |S | SUBQ.L #0x1,D7 00025112 4a 86 |J | TST.L D6 00025114 66 02 |f | BNE 0x25118 00025116 52 85 |R | ADDQ.L #0x1,D5 00025118 60 00 ff 5e |` ^ | BRA 0x25078 0002511c 4a 39 00 03 d2 12 |J9 | TST.B 0x3d212 00025122 66 0e |f | BNE 0x25132 00025124 48 79 00 03 d2 14 |Hy | PEA.L 0x3d214 0002512a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00025130 58 4f |XO | ADDQ.L #0x4,A7 00025132 4a 14 |J | TST.B (A4) 00025134 66 28 |f( | BNE 0x2515e 00025136 41 fa f1 1a |A | LEA.L 0x24252,A0 0002513a 70 0c |p | MOVEQ.L #0x0c,D0 0002513c 3f 20 |? | MOVE.W -(A0),-(A7) 0002513e 51 c8 ff fc |Q | DBF D0,0x2513c 00025142 59 4f |YO | SUBQ.L #0x4,A7 00025144 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025148 3f 02 |? | MOVE.W D2,-(A7) 0002514a 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 0002514e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025154 50 4f |PO | ADDQ.L #0x8,A7 00025156 4e ba f5 44 |N D | JSR 0x2469c 0002515a de fc 00 1e | | ADDA.W #0x1e,A7 0002515e 4a 86 |J | TST.L D6 00025160 66 2e |f. | BNE 0x25190 00025162 9e fc 00 14 | | SUBA.W #0x14,A7 00025166 20 4f | O | MOVEA.L A7,A0 00025168 43 fa f0 e8 |C | LEA.L 0x24252,A1 0002516c 70 12 |p | MOVEQ.L #0x12,D0 0002516e 10 d9 | | MOVE.B (A1)+,(A0)+ 00025170 51 c8 ff fc |Q | DBF D0,0x2516e 00025174 59 4f |YO | SUBQ.L #0x4,A7 00025176 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002517a 3f 02 |? | MOVE.W D2,-(A7) 0002517c 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00025180 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025186 50 4f |PO | ADDQ.L #0x8,A7 00025188 4e ba f5 12 |N | JSR 0x2469c 0002518c de fc 00 18 | | ADDA.W #0x18,A7 00025190 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00025194 20 86 | | MOVE.L D6,(A0) 00025196 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 0002519a 20 b9 00 03 d2 0a | | MOVE.L 0x3d20a,(A0) 000251a0 4a 92 |J | TST.L (A2) 000251a2 66 0a |f | BNE 0x251ae 000251a4 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000251a8 20 86 | | MOVE.L D6,(A0) 000251aa 53 90 |S | SUBQ.L #0x1,(A0) 000251ac 60 06 |` | BRA 0x251b4 000251ae 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000251b2 20 92 | | MOVE.L (A2),(A0) 000251b4 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 000251b8 4e 5e |N^ | UNLK A6 000251ba 4e 75 |Nu | RTS 000251bc ; -------------------------------------------------------------------------------------- 000251bc ; OMSI PASCAL Function 000251bc ; <LVAR 0x008 4(r)> 000251bc ; <LVAR -0x008 @ 4(r)> 000251bc ; <LVAR -0x00c @ 4(r)> 000251bc ; <LVAR -0x010 @ 4(r)> 000251bc ; -------------------------------------------------------------------------------------- 000251bc 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000251c0 bf d5 | | CMPA.L (A5),A7 000251c2 62 06 |b | BHI 0x251ca 000251c4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000251c8 4e 76 |Nv | TRAPV 000251ca de fc 00 24 | $ | ADDA.W #0x24,A7 000251ce 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 000251d2 41 f9 00 03 d1 f6 |A | LEA.L 0x3d1f6,A0 000251d8 43 ee ff f0 |C | LEA.L (A6-0x10),A1 000251dc 2c 10 |, | MOVE.L (A0),D6 000251de 42 39 00 03 d2 12 |B9 | CLR.B 0x3d212 000251e4 23 ee 00 08 00 03 d2 14 |# | MOVE.L (A6+0x8),0x3d214 000251ec 2e 10 |. | MOVE.L (A0),D7 000251ee 48 51 |HQ | PEA.L (A1) 000251f0 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000251f4 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000251f8 4e ba fe 40 |N @ | JSR 0x2503a 000251fc de fc 00 0c | | ADDA.W #0xc,A7 00025200 20 86 | | MOVE.L D6,(A0) 00025202 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 00025206 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 0002520c 2f 00 |/ | MOVE.L D0,-(A7) 0002520e 90 ae ff f4 | | SUB.L (A6-0xc),D0 00025212 53 80 |S | SUBQ.L #0x1,D0 00025214 2f 00 |/ | MOVE.L D0,-(A7) 00025216 4e ba f9 d8 |N | JSR 0x24bf0 0002521a 58 4f |XO | ADDQ.L #0x4,A7 0002521c 2e 91 |. | MOVE.L (A1),(A7) 0002521e 2f 11 |/ | MOVE.L (A1),-(A7) 00025220 9f 97 | | SUB.L D7,(A7) 00025222 4e ba f9 cc |N | JSR 0x24bf0 00025226 50 4f |PO | ADDQ.L #0x8,A7 00025228 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 0002522c 4e 5e |N^ | UNLK A6 0002522e 4e 75 |Nu | RTS 00025230 ; -------------------------------------------------------------------------------------- 00025230 ; OMSI PASCAL Function 00025230 ; <LVAR 0x00c 4(r)> 00025230 ; <LVAR 0x008 4(r)> 00025230 ; <LVAR -0x008 @ 4(r)> 00025230 ; <LVAR -0x00c @ 4(r)> 00025230 ; <LVAR -0x010 @ 4(r)> 00025230 ; -------------------------------------------------------------------------------------- 00025230 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00025234 bf d5 | | CMPA.L (A5),A7 00025236 62 06 |b | BHI 0x2523e 00025238 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002523c 4e 76 |Nv | TRAPV 0002523e de fc 00 24 | $ | ADDA.W #0x24,A7 00025242 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00025246 41 f9 00 03 d1 f6 |A | LEA.L 0x3d1f6,A0 0002524c 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00025250 2c 10 |, | MOVE.L (A0),D6 00025252 13 fc 00 01 00 03 d2 12 | | MOVE.B #0x01,0x3d212 0002525a 23 ee 00 08 00 03 d2 18 |# | MOVE.L (A6+0x8),0x3d218 00025262 23 ee 00 0c 00 03 d2 1c |# | MOVE.L (A6+0xc),0x3d21c 0002526a 2e 10 |. | MOVE.L (A0),D7 0002526c 48 51 |HQ | PEA.L (A1) 0002526e 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00025272 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00025276 4e ba fd c2 |N | JSR 0x2503a 0002527a de fc 00 0c | | ADDA.W #0xc,A7 0002527e 20 86 | | MOVE.L D6,(A0) 00025280 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 00025284 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 0002528a 2f 00 |/ | MOVE.L D0,-(A7) 0002528c 90 ae ff f4 | | SUB.L (A6-0xc),D0 00025290 53 80 |S | SUBQ.L #0x1,D0 00025292 2f 00 |/ | MOVE.L D0,-(A7) 00025294 4e ba f9 5a |N Z | JSR 0x24bf0 00025298 58 4f |XO | ADDQ.L #0x4,A7 0002529a 2e 91 |. | MOVE.L (A1),(A7) 0002529c 2f 11 |/ | MOVE.L (A1),-(A7) 0002529e 9f 97 | | SUB.L D7,(A7) 000252a0 4e ba f9 4e |N N | JSR 0x24bf0 000252a4 50 4f |PO | ADDQ.L #0x8,A7 000252a6 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 000252aa 4e 5e |N^ | UNLK A6 000252ac 4e 75 |Nu | RTS 000252ae ; -------------------------------------------------------------------------------------- 000252ae ; OMSI PASCAL Function 000252ae ; <LVAR 0x010 4(rw)> 000252ae ; <LVAR 0x00c 4(r)> 000252ae ; <LVAR 0x008 4(r)> 000252ae ; -------------------------------------------------------------------------------------- 000252ae 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 000252b2 bf d5 | | CMPA.L (A5),A7 000252b4 62 06 |b | BHI 0x252bc 000252b6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000252ba 4e 76 |Nv | TRAPV 000252bc de fc 00 08 | | ADDA.W #0x8,A7 000252c0 48 e7 80 00 |H | MOVEM.L D0,-(A7) 000252c4 4a ae 00 08 |J | TST.L (A6+0x8) 000252c8 66 06 |f | BNE 0x252d0 000252ca 42 ae 00 10 |B | CLR.L (A6+0x10) 000252ce 60 0e |` | BRA 0x252de 000252d0 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 000252d4 90 ae 00 08 | | SUB.L (A6+0x8),D0 000252d8 52 80 |R | ADDQ.L #0x1,D0 000252da 2d 40 00 10 |-@ | MOVE.L D0,(A6+0x10) 000252de 4c df 00 01 |L | MOVEM.L (A7)+,D0 000252e2 4e 5e |N^ | UNLK A6 000252e4 4e 75 |Nu | RTS 000252e6 ; -------------------------------------------------------------------------------------- 000252e6 ; OMSI PASCAL Function 000252e6 ; <LVAR 0x014 4(w)> 000252e6 ; <LVAR 0x010 @ 4(w)> 000252e6 ; <LVAR 0x00c 4(r)> 000252e6 ; <LVAR 0x008 4(r)> 000252e6 ; -------------------------------------------------------------------------------------- 000252e6 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000252ea bf d5 | | CMPA.L (A5),A7 000252ec 62 06 |b | BHI 0x252f4 000252ee 44 fc 00 02 |D | MOVE.W #0x2,CCR 000252f2 4e 76 |Nv | TRAPV 000252f4 de fc 00 20 | | ADDA.W #0x20,A7 000252f8 48 e7 81 c8 |H | MOVEM.L A4+A1+A0+D7+D0,-(A7) 000252fc 28 6e 00 0c |(n | MOVEA.L (A6+0xc),A4 00025300 2d 7a f2 b2 00 10 |-z | MOVE.L 0x245b4,(A6+0x10) 00025306 2d 7a f2 b0 00 14 |-z | MOVE.L 0x245b8,(A6+0x14) 0002530c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025310 7e 00 |~ | MOVEQ.L #0x00,D7 00025312 be 97 | | CMP.L (A7),D7 00025314 6e 28 |n( | BGT 0x2533e 00025316 b8 fc 00 01 | | CMPA.W #0x1,A4 0002531a 66 04 |f | BNE 0x25320 0002531c 58 4f |XO | ADDQ.L #0x4,A7 0002531e 60 20 |` | BRA 0x25340 00025320 be ae 00 08 | | CMP.L (A6+0x8),D7 00025324 66 10 |f | BNE 0x25336 00025326 41 ee 00 10 |A | LEA.L (A6+0x10),A0 0002532a 22 4c |"L | MOVEA.L A4,A1 0002532c 70 07 |p | MOVEQ.L #0x07,D0 0002532e 10 d9 | | MOVE.B (A1)+,(A0)+ 00025330 51 c8 ff fc |Q | DBF D0,0x2532e 00025334 60 04 |` | BRA 0x2533a 00025336 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 0002533a 52 87 |R | ADDQ.L #0x1,D7 0002533c 68 d4 |h | BVC 0x25312 0002533e 58 4f |XO | ADDQ.L #0x4,A7 00025340 4c df 13 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A4 00025344 4e 5e |N^ | UNLK A6 00025346 4e 75 |Nu | RTS 00025348 ; -------------------------------------------------------------------------------------- 00025348 ; OMSI PASCAL Function 00025348 ; <LVAR 0x010 4(w)> 00025348 ; <LVAR 0x00c 4(r)> 00025348 ; <LVAR 0x008 4(r)> 00025348 ; <LVAR -0x008 @ 4(r)> 00025348 ; -------------------------------------------------------------------------------------- 00025348 4e 56 ff ce |NV | LINK.W A6,#0xffce 0002534c bf d5 | | CMPA.L (A5),A7 0002534e 62 06 |b | BHI 0x25356 00025350 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025354 4e 76 |Nv | TRAPV 00025356 de fc 00 26 | & | ADDA.W #0x26,A7 0002535a 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 0002535e 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00025362 48 51 |HQ | PEA.L (A1) 00025364 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002536a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002536e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025372 4e ba ff 3a |N : | JSR 0x252ae 00025376 50 4f |PO | ADDQ.L #0x8,A7 00025378 7e 01 |~ | MOVEQ.L #0x01,D7 0002537a be 97 | | CMP.L (A7),D7 0002537c 6e 38 |n8 | BGT 0x253b6 0002537e 20 07 | | MOVE.L D7,D0 00025380 d0 ae 00 08 | | ADD.L (A6+0x8),D0 00025384 53 80 |S | SUBQ.L #0x1,D0 00025386 53 80 |S | SUBQ.L #0x1,D0 00025388 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 0002538e 63 02 |c | BLS 0x25392 00025390 4e 4f |NO | TRAP #15 00025392 41 f9 00 03 b1 ee |A | LEA.L 0x3b1ee,A0 00025398 1c 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D6 0002539c 0c 06 00 2f | / | CMPI.B #0x2f,D6 000253a0 66 04 |f | BNE 0x253a6 000253a2 58 4f |XO | ADDQ.L #0x4,A7 000253a4 60 12 |` | BRA 0x253b8 000253a6 2f 11 |/ | MOVE.L (A1),-(A7) 000253a8 1f 06 | | MOVE.B D6,-(A7) 000253aa 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000253b0 5c 4f |\O | ADDQ.L #0x6,A7 000253b2 52 87 |R | ADDQ.L #0x1,D7 000253b4 68 c4 |h | BVC 0x2537a 000253b6 58 4f |XO | ADDQ.L #0x4,A7 000253b8 2d 51 00 10 |-Q | MOVE.L (A1),(A6+0x10) 000253bc 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 000253c0 4e 5e |N^ | UNLK A6 000253c2 4e 75 |Nu | RTS 000253c4 ; -------------------------------------------------------------------------------------- 000253c4 ; OMSI PASCAL Function 000253c4 ; <LVAR 0x010 4(w)> 000253c4 ; <LVAR 0x00c 4(r)> 000253c4 ; <LVAR 0x008 4(r)> 000253c4 ; -------------------------------------------------------------------------------------- 000253c4 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 000253c8 bf d5 | | CMPA.L (A5),A7 000253ca 62 06 |b | BHI 0x253d2 000253cc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000253d0 4e 76 |Nv | TRAPV 000253d2 de fc 00 18 | | ADDA.W #0x18,A7 000253d6 9e fc 00 0c | | SUBA.W #0xc,A7 000253da 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000253de 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000253e2 4e ba ff 02 |N | JSR 0x252e6 000253e6 50 4f |PO | ADDQ.L #0x8,A7 000253e8 4e ba ff 5e |N ^ | JSR 0x25348 000253ec 50 4f |PO | ADDQ.L #0x8,A7 000253ee 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 000253f2 4e 5e |N^ | UNLK A6 000253f4 4e 75 |Nu | RTS 000253f6 ; -------------------------------------------------------------------------------------- 000253f6 ; OMSI PASCAL Function 000253f6 ; <LVAR 0x014 4(w)> 000253f6 ; <LVAR 0x010 4(w)> 000253f6 ; <LVAR 0x00c 4(r)> 000253f6 ; <LVAR 0x008 4(r)> 000253f6 ; -------------------------------------------------------------------------------------- 000253f6 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 000253fa bf d5 | | CMPA.L (A5),A7 000253fc 62 06 |b | BHI 0x25404 000253fe 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025402 4e 76 |Nv | TRAPV 00025404 de fc 00 18 | | ADDA.W #0x18,A7 00025408 9e fc 00 0c | | SUBA.W #0xc,A7 0002540c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00025410 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025414 4e ba ff ae |N | JSR 0x253c4 00025418 50 4f |PO | ADDQ.L #0x8,A7 0002541a 48 78 00 10 |Hx | PEA.L 0x10 0002541e 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 00025424 50 4f |PO | ADDQ.L #0x8,A7 00025426 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 0002542a 2d 5f 00 14 |-_ | MOVE.L (A7)+,(A6+0x14) 0002542e 4e 5e |N^ | UNLK A6 00025430 4e 75 |Nu | RTS 00025432 ; -------------------------------------------------------------------------------------- 00025432 ; OMSI PASCAL Function 00025432 ; <LVAR 0x010 4(w)> 00025432 ; <LVAR 0x00c 4(r)> 00025432 ; <LVAR 0x008 4(r)> 00025432 ; -------------------------------------------------------------------------------------- 00025432 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00025436 bf d5 | | CMPA.L (A5),A7 00025438 62 06 |b | BHI 0x25440 0002543a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002543e 4e 76 |Nv | TRAPV 00025440 de fc 00 18 | | ADDA.W #0x18,A7 00025444 9e fc 00 0c | | SUBA.W #0xc,A7 00025448 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002544c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025450 4e ba ff a4 |N | JSR 0x253f6 00025454 50 4f |PO | ADDQ.L #0x8,A7 00025456 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 0002545c 50 4f |PO | ADDQ.L #0x8,A7 0002545e 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00025462 4e 5e |N^ | UNLK A6 00025464 4e 75 |Nu | RTS 00025466 ; -------------------------------------------------------------------------------------- 00025466 ; OMSI PASCAL Function 00025466 ; <LVAR 0x008 @ 4(r)> 00025466 ; -------------------------------------------------------------------------------------- 00025466 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 0002546a bf d5 | | CMPA.L (A5),A7 0002546c 62 06 |b | BHI 0x25474 0002546e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025472 4e 76 |Nv | TRAPV 00025474 de fc 00 28 | ( | ADDA.W #0x28,A7 00025478 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 0002547c 45 f9 00 03 d1 f6 |E | LEA.L 0x3d1f6,A2 00025482 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00025486 2f 08 |/ | MOVE.L A0,-(A7) 00025488 2f 12 |/ | MOVE.L (A2),-(A7) 0002548a 30 10 |0 | MOVE.W (A0),D0 0002548c 48 c0 |H | EXTW.L D0 0002548e 44 80 |D | NEG.L D0 00025490 2f 00 |/ | MOVE.L D0,-(A7) 00025492 4e ba f7 5c |N \ | JSR 0x24bf0 00025496 50 4f |PO | ADDQ.L #0x8,A7 00025498 30 10 |0 | MOVE.W (A0),D0 0002549a 48 c0 |H | EXTW.L D0 0002549c 2f 00 |/ | MOVE.L D0,-(A7) 0002549e 7e 01 |~ | MOVEQ.L #0x01,D7 000254a0 be 97 | | CMP.L (A7),D7 000254a2 6e 34 |n4 | BGT 0x254d8 000254a4 20 07 | | MOVE.L D7,D0 000254a6 d0 92 | | ADD.L (A2),D0 000254a8 53 80 |S | SUBQ.L #0x1,D0 000254aa 53 80 |S | SUBQ.L #0x1,D0 000254ac 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 000254b2 63 02 |c | BLS 0x254b6 000254b4 4e 4f |NO | TRAP #15 000254b6 41 f9 00 03 b1 ee |A | LEA.L 0x3b1ee,A0 000254bc 22 07 |" | MOVE.L D7,D1 000254be 53 81 |S | SUBQ.L #0x1,D1 000254c0 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000254c6 63 02 |c | BLS 0x254ca 000254c8 4e 4f |NO | TRAP #15 000254ca 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 000254ce 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 000254d4 52 87 |R | ADDQ.L #0x1,D7 000254d6 68 c8 |h | BVC 0x254a0 000254d8 50 4f |PO | ADDQ.L #0x8,A7 000254da 48 6e 00 08 |Hn | PEA.L (A6+0x8) 000254de 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000254e4 58 4f |XO | ADDQ.L #0x4,A7 000254e6 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 000254ea 4e 5e |N^ | UNLK A6 000254ec 4e 75 |Nu | RTS 000254ee ; -------------------------------------------------------------------------------------- 000254ee ; OMSI PASCAL Function 000254ee ; <LVAR 0x00c 4(r)> 000254ee ; <LVAR 0x008 4(r)> 000254ee ; -------------------------------------------------------------------------------------- 000254ee 4e 56 ff ec |NV | LINK.W A6,#0xffec 000254f2 bf d5 | | CMPA.L (A5),A7 000254f4 62 06 |b | BHI 0x254fc 000254f6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000254fa 4e 76 |Nv | TRAPV 000254fc de fc 00 14 | | ADDA.W #0x14,A7 00025500 59 4f |YO | SUBQ.L #0x4,A7 00025502 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00025506 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002550a 48 78 00 10 |Hx | PEA.L 0x10 0002550e 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00025514 de fc 00 0c | | ADDA.W #0xc,A7 00025518 4e ba ff 4c |N L | JSR 0x25466 0002551c 58 4f |XO | ADDQ.L #0x4,A7 0002551e 4e 5e |N^ | UNLK A6 00025520 4e 75 |Nu | RTS 00025522 ; -------------------------------------------------------------------------------------- 00025522 ; OMSI PASCAL Function 00025522 ; <LVAR 0x008 4(r)> 00025522 ; -------------------------------------------------------------------------------------- 00025522 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 00025526 bf d5 | | CMPA.L (A5),A7 00025528 62 06 |b | BHI 0x25530 0002552a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002552e 4e 76 |Nv | TRAPV 00025530 de fc 00 0c | | ADDA.W #0xc,A7 00025534 59 4f |YO | SUBQ.L #0x4,A7 00025536 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002553a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00025540 58 4f |XO | ADDQ.L #0x4,A7 00025542 4e ba ff 22 |N " | JSR 0x25466 00025546 58 4f |XO | ADDQ.L #0x4,A7 00025548 4e 5e |N^ | UNLK A6 0002554a 4e 75 |Nu | RTS 0002554c ; -------------------------------------------------------------------------------------- 0002554c ; OMSI PASCAL Function 0002554c ; <LVAR 0x008 4(r)> 0002554c ; <LVAR -0x004 @ 4(r)> 0002554c ; <LVAR -0x008 4(rw)> 0002554c ; -------------------------------------------------------------------------------------- 0002554c 4e 56 ff ca |NV | LINK.W A6,#0xffca 00025550 bf d5 | | CMPA.L (A5),A7 00025552 62 06 |b | BHI 0x2555a 00025554 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025558 4e 76 |Nv | TRAPV 0002555a de fc 00 2a | * | ADDA.W #0x2a,A7 0002555e 48 e7 81 e0 |H | MOVEM.L A2+A1+A0+D7+D0,-(A7) 00025562 43 ee ff fc |C | LEA.L (A6-0x4),A1 00025566 45 ee ff f8 |E | LEA.L (A6-0x8),A2 0002556a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002556e 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00025572 48 51 |HQ | PEA.L (A1) 00025574 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002557a 58 4f |XO | ADDQ.L #0x4,A7 0002557c 20 52 | R | MOVEA.L (A2),A0 0002557e b0 fc 00 01 | | CMPA.W #0x1,A0 00025582 67 00 00 86 |g | BEQ 0x2560a 00025586 4a 90 |J | TST.L (A0) 00025588 67 68 |gh | BEQ 0x255f2 0002558a 2f 28 00 04 |/( | MOVE.L (A0+0x4),-(A7) 0002558e 2e 10 |. | MOVE.L (A0),D7 00025590 be 97 | | CMP.L (A7),D7 00025592 6e 14 |n | BGT 0x255a8 00025594 20 17 | | MOVE.L (A7),D0 00025596 0c 87 80 00 00 01 | | CMPI.L #0x80000001,D7 0002559c 6d 08 |m | BLT 0x255a6 0002559e 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 000255a4 6f 02 |o | BLE 0x255a8 000255a6 4e 4f |NO | TRAP #15 000255a8 be 97 | | CMP.L (A7),D7 000255aa 6e 44 |nD | BGT 0x255f0 000255ac 2f 11 |/ | MOVE.L (A1),-(A7) 000255ae 20 07 | | MOVE.L D7,D0 000255b0 53 80 |S | SUBQ.L #0x1,D0 000255b2 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 000255b8 63 02 |c | BLS 0x255bc 000255ba 4e 4f |NO | TRAP #15 000255bc 41 f9 00 03 b1 ee |A | LEA.L 0x3b1ee,A0 000255c2 1f 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),-(A7) 000255c6 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000255cc 5c 4f |\O | ADDQ.L #0x6,A7 000255ce 20 51 | Q | MOVEA.L (A1),A0 000255d0 30 10 |0 | MOVE.W (A0),D0 000255d2 0c 40 00 7a | @ z | CMPI.W #0x007a,D0 000255d6 6d 14 |m | BLT 0x255ec 000255d8 2f 11 |/ | MOVE.L (A1),-(A7) 000255da 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000255e0 58 4f |XO | ADDQ.L #0x4,A7 000255e2 48 51 |HQ | PEA.L (A1) 000255e4 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000255ea 58 4f |XO | ADDQ.L #0x4,A7 000255ec 52 87 |R | ADDQ.L #0x1,D7 000255ee 68 b8 |h | BVC 0x255a8 000255f0 58 4f |XO | ADDQ.L #0x4,A7 000255f2 2f 11 |/ | MOVE.L (A1),-(A7) 000255f4 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 000255f8 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000255fe 5c 4f |\O | ADDQ.L #0x6,A7 00025600 20 52 | R | MOVEA.L (A2),A0 00025602 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00025606 60 00 ff 74 |` t | BRA 0x2557c 0002560a 2f 11 |/ | MOVE.L (A1),-(A7) 0002560c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00025612 58 4f |XO | ADDQ.L #0x4,A7 00025614 4c df 07 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2 00025618 4e 5e |N^ | UNLK A6 0002561a 4e 75 |Nu | RTS 0002561c ; -------------------------------------------------------------------------------------- 0002561c ; OMSI PASCAL Function 0002561c ; <LVAR 0x008 @ 4(r)> 0002561c ; <LVAR -0x003 @ 1(r)> 0002561c ; <LVAR -0x004 @ 1(r)> 0002561c ; <LVAR -0x008 @ 4(r)> 0002561c ; <LVAR -0x00c @ 4(rw)> 0002561c ; -------------------------------------------------------------------------------------- 0002561c 4e 56 ff ae |NV | LINK.W A6,#0xffae 00025620 bf d5 | | CMPA.L (A5),A7 00025622 62 06 |b | BHI 0x2562a 00025624 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025628 4e 76 |Nv | TRAPV 0002562a de fc 00 46 | F | ADDA.W #0x46,A7 0002562e 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00025632 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00025636 45 ee ff f4 |E | LEA.L (A6-0xc),A2 0002563a 47 ee ff fc |G | LEA.L (A6-0x4),A3 0002563e 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00025642 72 01 |r | MOVEQ.L #0x01,D1 00025644 2f 3a ec 36 |/: 6 | MOVE.L 0x2427c,-(A7) 00025648 51 4f |QO | SUBQ.L #0x8,A7 0002564a 2f 11 |/ | MOVE.L (A1),-(A7) 0002564c 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00025652 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00025656 3f 01 |? | MOVE.W D1,-(A7) 00025658 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 0002565c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025662 50 4f |PO | ADDQ.L #0x8,A7 00025664 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002566a 50 4f |PO | ADDQ.L #0x8,A7 0002566c 24 9f |$ | MOVE.L (A7)+,(A2) 0002566e 2e 92 |. | MOVE.L (A2),(A7) 00025670 42 27 |B' | CLR.B -(A7) 00025672 42 27 |B' | CLR.B -(A7) 00025674 48 78 00 00 |Hx | PEA.L 0x0 00025678 48 53 |HS | PEA.L (A3) 0002567a 48 54 |HT | PEA.L (A4) 0002567c 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00025682 de fc 00 14 | | ADDA.W #0x14,A7 00025686 4a 13 |J | TST.B (A3) 00025688 67 36 |g6 | BEQ 0x256c0 0002568a 41 fa eb f0 |A | LEA.L 0x2427c,A0 0002568e 70 0a |p | MOVEQ.L #0x0a,D0 00025690 3f 20 |? | MOVE.W -(A0),-(A7) 00025692 51 c8 ff fc |Q | DBF D0,0x25690 00025696 51 4f |QO | SUBQ.L #0x8,A7 00025698 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002569c 3f 01 |? | MOVE.W D1,-(A7) 0002569e 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 000256a2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000256a8 58 4f |XO | ADDQ.L #0x4,A7 000256aa 2e 91 |. | MOVE.L (A1),(A7) 000256ac 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000256b2 50 4f |PO | ADDQ.L #0x8,A7 000256b4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000256ba de fc 00 1a | | ADDA.W #0x1a,A7 000256be 60 54 |`T | BRA 0x25714 000256c0 2f 14 |/ | MOVE.L (A4),-(A7) 000256c2 48 51 |HQ | PEA.L (A1) 000256c4 48 6e ff fd |Hn | PEA.L (A6-0x3) 000256c8 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 000256ce de fc 00 0c | | ADDA.W #0xc,A7 000256d2 4a 2e ff fd |J. | TST.B (A6-0x3) 000256d6 66 14 |f | BNE 0x256ec 000256d8 59 4f |YO | SUBQ.L #0x4,A7 000256da 2f 11 |/ | MOVE.L (A1),-(A7) 000256dc 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000256e2 58 4f |XO | ADDQ.L #0x4,A7 000256e4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000256ea 58 4f |XO | ADDQ.L #0x4,A7 000256ec 4a 2e ff fd |J. | TST.B (A6-0x3) 000256f0 67 ce |g | BEQ 0x256c0 000256f2 42 27 |B' | CLR.B -(A7) 000256f4 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000256f8 48 78 00 01 |Hx | PEA.L 0x1 000256fc 48 53 |HS | PEA.L (A3) 000256fe 48 54 |HT | PEA.L (A4) 00025700 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00025706 de fc 00 10 | | ADDA.W #0x10,A7 0002570a 48 51 |HQ | PEA.L (A1) 0002570c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00025712 58 4f |XO | ADDQ.L #0x4,A7 00025714 48 52 |HR | PEA.L (A2) 00025716 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002571c 58 4f |XO | ADDQ.L #0x4,A7 0002571e 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00025722 4e 5e |N^ | UNLK A6 00025724 4e 75 |Nu | RTS 00025726 ; -------------------------------------------------------------------------------------- 00025726 ; OMSI PASCAL Function 00025726 ; <LVAR 0x008 4(r)> 00025726 ; -------------------------------------------------------------------------------------- 00025726 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 0002572a bf d5 | | CMPA.L (A5),A7 0002572c 62 06 |b | BHI 0x25734 0002572e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025732 4e 76 |Nv | TRAPV 00025734 de fc 00 2e | . | ADDA.W #0x2e,A7 00025738 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 0002573c 59 4f |YO | SUBQ.L #0x4,A7 0002573e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025742 4e ba f3 64 |N d | JSR 0x24aa8 00025746 58 4f |XO | ADDQ.L #0x4,A7 00025748 2c 1f |, | MOVE.L (A7)+,D6 0002574a 66 2e |f. | BNE 0x2577a 0002574c 41 f9 00 03 d2 08 |A | LEA.L 0x3d208,A0 00025752 70 04 |p | MOVEQ.L #0x04,D0 00025754 3f 20 |? | MOVE.W -(A0),-(A7) 00025756 51 c8 ff fc |Q | DBF D0,0x25754 0002575a 59 4f |YO | SUBQ.L #0x4,A7 0002575c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025760 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025764 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00025768 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002576e 50 4f |PO | ADDQ.L #0x8,A7 00025770 4e ba fe aa |N | JSR 0x2561c 00025774 de fc 00 0e | | ADDA.W #0xe,A7 00025778 60 26 |`& | BRA 0x257a0 0002577a 2f 06 |/ | MOVE.L D6,-(A7) 0002577c 7e 01 |~ | MOVEQ.L #0x01,D7 0002577e be 97 | | CMP.L (A7),D7 00025780 6e 1c |n | BGT 0x2579e 00025782 59 4f |YO | SUBQ.L #0x4,A7 00025784 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025788 2f 07 |/ | MOVE.L D7,-(A7) 0002578a 4e ba fc 38 |N 8 | JSR 0x253c4 0002578e 50 4f |PO | ADDQ.L #0x8,A7 00025790 28 5f |(_ | MOVEA.L (A7)+,A4 00025792 2f 0c |/ | MOVE.L A4,-(A7) 00025794 4e ba fe 86 |N | JSR 0x2561c 00025798 58 4f |XO | ADDQ.L #0x4,A7 0002579a 52 87 |R | ADDQ.L #0x1,D7 0002579c 68 e0 |h | BVC 0x2577e 0002579e 58 4f |XO | ADDQ.L #0x4,A7 000257a0 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 000257a4 4e 5e |N^ | UNLK A6 000257a6 4e 75 |Nu | RTS 000257a8 ; -------------------------------------------------------------------------------------- 000257a8 ; OMSI PASCAL Function 000257a8 ; <LVAR 0x00c @> 000257a8 ; <LVAR 0x008 @ 4(r)> 000257a8 ; <LVAR -0x020 @> 000257a8 ; -------------------------------------------------------------------------------------- 000257a8 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 000257ac bf d5 | | CMPA.L (A5),A7 000257ae 62 06 |b | BHI 0x257b6 000257b0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000257b4 4e 76 |Nv | TRAPV 000257b6 de fc 00 24 | $ | ADDA.W #0x24,A7 000257ba 48 e7 e1 c0 |H | MOVEM.L A1+A0+D7+D2+D1+D0,-(A7) 000257be 74 1d |t | MOVEQ.L #0x1d,D2 000257c0 7e 01 |~ | MOVEQ.L #0x01,D7 000257c2 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000257c6 30 10 |0 | MOVE.W (A0),D0 000257c8 48 c0 |H | EXTW.L D0 000257ca be 80 | | CMP.L D0,D7 000257cc 6f 10 |o | BLE 0x257de 000257ce 20 07 | | MOVE.L D7,D0 000257d0 53 80 |S | SUBQ.L #0x1,D0 000257d2 b0 82 | | CMP.L D2,D0 000257d4 63 02 |c | BLS 0x257d8 000257d6 4e 4f |NO | TRAP #15 000257d8 42 36 08 e0 |B6 | CLR.B (A6+D0.L-#0x20) 000257dc 60 1e |` | BRA 0x257fc 000257de 20 07 | | MOVE.L D7,D0 000257e0 53 80 |S | SUBQ.L #0x1,D0 000257e2 b0 82 | | CMP.L D2,D0 000257e4 63 02 |c | BLS 0x257e8 000257e6 4e 4f |NO | TRAP #15 000257e8 22 07 |" | MOVE.L D7,D1 000257ea 53 81 |S | SUBQ.L #0x1,D1 000257ec 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000257f2 63 02 |c | BLS 0x257f6 000257f4 4e 4f |NO | TRAP #15 000257f6 1d b0 18 02 08 e0 | | MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20) 000257fc 52 87 |R | ADDQ.L #0x1,D7 000257fe 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7 00025804 6f bc |o | BLE 0x257c2 00025806 48 6e 00 08 |Hn | PEA.L (A6+0x8) 0002580a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00025810 58 4f |XO | ADDQ.L #0x4,A7 00025812 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00025816 43 ee ff e0 |C | LEA.L (A6-0x20),A1 0002581a 70 0e |p | MOVEQ.L #0x0e,D0 0002581c 30 d9 |0 | MOVE.W (A1)+,(A0)+ 0002581e 51 c8 ff fc |Q | DBF D0,0x2581c 00025822 4c df 03 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1 00025826 4e 5e |N^ | UNLK A6 00025828 4e 75 |Nu | RTS 0002582a ; -------------------------------------------------------------------------------------- 0002582a ; OMSI PASCAL Function 0002582a ; <LVAR 0x026 4(w)> 0002582a ; <LVAR 0x008 @> 0002582a ; <LVAR -0x006 4(rw)> 0002582a ; -------------------------------------------------------------------------------------- 0002582a 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 0002582e bf d5 | | CMPA.L (A5),A7 00025830 62 06 |b | BHI 0x25838 00025832 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025836 4e 76 |Nv | TRAPV 00025838 de fc 00 24 | $ | ADDA.W #0x24,A7 0002583c 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7) 00025840 47 ee ff fa |G | LEA.L (A6-0x6),A3 00025844 7e 00 |~ | MOVEQ.L #0x00,D7 00025846 26 b9 00 03 d2 20 |& | MOVE.L 0x3d220,(A3) 0002584c 20 53 | S | MOVEA.L (A3),A0 0002584e b0 fc 00 01 | | CMPA.W #0x1,A0 00025852 67 1e |g | BEQ 0x25872 00025854 4a 07 |J | TST.B D7 00025856 66 1a |f | BNE 0x25872 00025858 22 48 |"H | MOVEA.L A0,A1 0002585a 45 ee 00 08 |E | LEA.L (A6+0x8),A2 0002585e 70 1d |p | MOVEQ.L #0x1d,D0 00025860 b5 09 | | CMPM.B (A1)+,(A2)+ 00025862 56 c8 ff fc |V | DBNE D0,0x25860 00025866 66 04 |f | BNE 0x2586c 00025868 7e 01 |~ | MOVEQ.L #0x01,D7 0002586a 60 04 |` | BRA 0x25870 0002586c 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 00025870 60 da |` | BRA 0x2584c 00025872 2d 48 00 26 |-H & | MOVE.L A0,(A6+0x26) 00025876 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3 0002587a 4e 5e |N^ | UNLK A6 0002587c 4e 75 |Nu | RTS 0002587e ; -------------------------------------------------------------------------------------- 0002587e ; OMSI PASCAL Function 0002587e ; <LVAR 0x008 @ 4(r)> 0002587e ; -------------------------------------------------------------------------------------- 0002587e 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00025882 bf d5 | | CMPA.L (A5),A7 00025884 62 06 |b | BHI 0x2588c 00025886 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002588a 4e 76 |Nv | TRAPV 0002588c de fc 00 2c | , | ADDA.W #0x2c,A7 00025890 48 e7 81 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D0,-(A7) 00025894 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00025898 45 f9 00 03 d2 20 |E | LEA.L 0x3d220,A2 0002589e 70 01 |p | MOVEQ.L #0x01,D0 000258a0 20 51 | Q | MOVEA.L (A1),A0 000258a2 b0 c0 | | CMPA.W D0,A0 000258a4 67 56 |gV | BEQ 0x258fc 000258a6 4a a8 00 1e |J | TST.L (A0+0x1e) 000258aa 67 10 |g | BEQ 0x258bc 000258ac 2f 28 00 22 |/( " | MOVE.L (A0+0x22),-(A7) 000258b0 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 000258b4 4e b9 00 01 02 a4 |N | JSR Free1(a : Pointer; b : Long) 000258ba 50 4f |PO | ADDQ.L #0x8,A7 000258bc 7e 00 |~ | MOVEQ.L #0x00,D7 000258be 38 40 |8@ | MOVEA.W D0,A4 000258c0 26 52 |&R | MOVEA.L (A2),A3 000258c2 b6 c0 | | CMPA.W D0,A3 000258c4 67 14 |g | BEQ 0x258da 000258c6 4a 07 |J | TST.B D7 000258c8 66 10 |f | BNE 0x258da 000258ca b7 d1 | | CMPA.L (A1),A3 000258cc 66 04 |f | BNE 0x258d2 000258ce 7e 01 |~ | MOVEQ.L #0x01,D7 000258d0 60 06 |` | BRA 0x258d8 000258d2 28 4b |(K | MOVEA.L A3,A4 000258d4 26 6b 00 26 |&k & | MOVEA.L (A3+0x26),A3 000258d8 60 e8 |` | BRA 0x258c2 000258da 4a 07 |J | TST.B D7 000258dc 67 1e |g | BEQ 0x258fc 000258de b8 c0 | | CMPA.W D0,A4 000258e0 66 06 |f | BNE 0x258e8 000258e2 24 ab 00 26 |$ & | MOVE.L (A3+0x26),(A2) 000258e6 60 06 |` | BRA 0x258ee 000258e8 29 6b 00 26 00 26 |)k & & | MOVE.L (A3+0x26),(A4+0x26) 000258ee 48 51 |HQ | PEA.L (A1) 000258f0 48 78 00 2a |Hx * | PEA.L 0x2a 000258f4 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 000258fa 50 4f |PO | ADDQ.L #0x8,A7 000258fc 4c df 1f 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2+A3+A4 00025900 4e 5e |N^ | UNLK A6 00025902 4e 75 |Nu | RTS 00025904 ; -------------------------------------------------------------------------------------- 00025904 ; OMSI PASCAL Function 00025904 ; <LVAR 0x010 4(w)> 00025904 ; <LVAR 0x00c 4(r)> 00025904 ; <LVAR 0x008 4(r)> 00025904 ; <LVAR -0x006 @ 4(rw)> 00025904 ; <LVAR -0x024 @> 00025904 ; -------------------------------------------------------------------------------------- 00025904 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 00025908 bf d5 | | CMPA.L (A5),A7 0002590a 62 06 |b | BHI 0x25912 0002590c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025910 4e 76 |Nv | TRAPV 00025912 de fc 00 42 | B | ADDA.W #0x42,A7 00025916 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 0002591a 47 ee ff fa |G | LEA.L (A6-0x6),A3 0002591e 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00025922 72 1e |r | MOVEQ.L #0x1e,D1 00025924 9e c1 | | SUBA.W D1,A7 00025926 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002592a 2f 10 |/ | MOVE.L (A0),-(A7) 0002592c 4e ba fe 7a |N z | JSR 0x257a8 00025930 58 4f |XO | ADDQ.L #0x4,A7 00025932 41 ee ff dc |A | LEA.L (A6-0x24),A0 00025936 70 0e |p | MOVEQ.L #0x0e,D0 00025938 30 df |0 | MOVE.W (A7)+,(A0)+ 0002593a 51 c8 ff fc |Q | DBF D0,0x25938 0002593e 4a 94 |J | TST.L (A4) 00025940 6c 02 |l | BGE 0x25944 00025942 42 94 |B | CLR.L (A4) 00025944 59 4f |YO | SUBQ.L #0x4,A7 00025946 20 4b | K | MOVEA.L A3,A0 00025948 70 0e |p | MOVEQ.L #0x0e,D0 0002594a 3f 20 |? | MOVE.W -(A0),-(A7) 0002594c 51 c8 ff fc |Q | DBF D0,0x2594a 00025950 4e ba fe d8 |N | JSR 0x2582a 00025954 de c1 | | ADDA.W D1,A7 00025956 26 9f |& | MOVE.L (A7)+,(A3) 00025958 20 53 | S | MOVEA.L (A3),A0 0002595a b0 fc 00 01 | | CMPA.W #0x1,A0 0002595e 67 12 |g | BEQ 0x25972 00025960 20 28 00 1e | ( | MOVE.L (A0+0x1e),D0 00025964 b0 94 | | CMP.L (A4),D0 00025966 66 02 |f | BNE 0x2596a 00025968 60 4c |`L | BRA 0x259b6 0002596a 2f 13 |/ | MOVE.L (A3),-(A7) 0002596c 4e ba ff 10 |N | JSR 0x2587e 00025970 58 4f |XO | ADDQ.L #0x4,A7 00025972 48 53 |HS | PEA.L (A3) 00025974 48 78 00 2a |Hx * | PEA.L 0x2a 00025978 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 0002597e 50 4f |PO | ADDQ.L #0x8,A7 00025980 20 53 | S | MOVEA.L (A3),A0 00025982 21 79 00 03 d2 20 00 26 |!y &| MOVE.L 0x3d220,(A0+0x26) 0002598a 23 d3 00 03 d2 20 |# | MOVE.L (A3),0x3d220 00025990 22 48 |"H | MOVEA.L A0,A1 00025992 45 ee ff dc |E | LEA.L (A6-0x24),A2 00025996 70 1d |p | MOVEQ.L #0x1d,D0 00025998 12 da | | MOVE.B (A2)+,(A1)+ 0002599a 51 c8 ff fc |Q | DBF D0,0x25998 0002599e 21 54 00 1e |!T | MOVE.L (A4),(A0+0x1e) 000259a2 4a 94 |J | TST.L (A4) 000259a4 67 10 |g | BEQ 0x259b6 000259a6 59 4f |YO | SUBQ.L #0x4,A7 000259a8 2f 14 |/ | MOVE.L (A4),-(A7) 000259aa 4e b9 00 01 02 a0 |N | JSR Malloc2(VAR dst : Pointer; length : Word) 000259b0 58 4f |XO | ADDQ.L #0x4,A7 000259b2 21 5f 00 22 |!_ " | MOVE.L (A7)+,(A0+0x22) 000259b6 2d 53 00 10 |-S | MOVE.L (A3),(A6+0x10) 000259ba 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 000259be 4e 5e |N^ | UNLK A6 000259c0 4e 75 |Nu | RTS 000259c2 ; -------------------------------------------------------------------------------------- 000259c2 ; OMSI PASCAL Function 000259c2 ; <LVAR 0x00c @> 000259c2 ; <LVAR 0x008 @ 4(r)> 000259c2 ; <LVAR -0x008 4(rw)> 000259c2 ; -------------------------------------------------------------------------------------- 000259c2 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000259c6 bf d5 | | CMPA.L (A5),A7 000259c8 62 06 |b | BHI 0x259d0 000259ca 44 fc 00 02 |D | MOVE.W #0x2,CCR 000259ce 4e 76 |Nv | TRAPV 000259d0 de fc 00 2c | , | ADDA.W #0x2c,A7 000259d4 48 e7 c3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D1+D0,-(A7) 000259d8 45 ee 00 08 |E | LEA.L (A6+0x8),A2 000259dc 20 52 | R | MOVEA.L (A2),A0 000259de 30 10 |0 | MOVE.W (A0),D0 000259e0 48 c0 |H | EXTW.L D0 000259e2 2c 00 |, | MOVE.L D0,D6 000259e4 59 4f |YO | SUBQ.L #0x4,A7 000259e6 48 6e 00 0c |Hn | PEA.L (A6+0xc) 000259ea 2f 06 |/ | MOVE.L D6,-(A7) 000259ec 4e ba ff 16 |N | JSR 0x25904 000259f0 50 4f |PO | ADDQ.L #0x8,A7 000259f2 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 000259f6 4a 86 |J | TST.L D6 000259f8 67 40 |g@ | BEQ 0x25a3a 000259fa 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 000259fe 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 00025a02 2f 08 |/ | MOVE.L A0,-(A7) 00025a04 2f 06 |/ | MOVE.L D6,-(A7) 00025a06 7e 01 |~ | MOVEQ.L #0x01,D7 00025a08 be 97 | | CMP.L (A7),D7 00025a0a 6e 2c |n, | BGT 0x25a38 00025a0c 20 07 | | MOVE.L D7,D0 00025a0e 53 80 |S | SUBQ.L #0x1,D0 00025a10 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00025a16 63 02 |c | BLS 0x25a1a 00025a18 4e 4f |NO | TRAP #15 00025a1a 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00025a1e 22 52 |"R | MOVEA.L (A2),A1 00025a20 22 07 |" | MOVE.L D7,D1 00025a22 53 81 |S | SUBQ.L #0x1,D1 00025a24 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00025a2a 63 02 |c | BLS 0x25a2e 00025a2c 4e 4f |NO | TRAP #15 00025a2e 11 b1 18 02 08 00 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L) 00025a34 52 87 |R | ADDQ.L #0x1,D7 00025a36 68 d0 |h | BVC 0x25a08 00025a38 50 4f |PO | ADDQ.L #0x8,A7 00025a3a 48 52 |HR | PEA.L (A2) 00025a3c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00025a42 58 4f |XO | ADDQ.L #0x4,A7 00025a44 4c df 07 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2 00025a48 4e 5e |N^ | UNLK A6 00025a4a 4e 75 |Nu | RTS 00025a4c ; -------------------------------------------------------------------------------------- 00025a4c ; OMSI PASCAL Function 00025a4c ; <LVAR 0x008 4(r)> 00025a4c ; <LVAR -0x004 @ 4(w)> 00025a4c ; <LVAR -0x008 4(rw)> 00025a4c ; <LVAR -0x00c 4(rw)> 00025a4c ; <LVAR -0x010 4(rw)> 00025a4c ; <LVAR -0x01c 4(rw)> 00025a4c ; <LVAR -0x020 4(rw)> 00025a4c ; -------------------------------------------------------------------------------------- 00025a4c 4e 56 ff 82 |NV | LINK.W A6,#0xff82 00025a50 bf d5 | | CMPA.L (A5),A7 00025a52 62 06 |b | BHI 0x25a5a 00025a54 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025a58 4e 76 |Nv | TRAPV 00025a5a de fc 00 5a | Z | ADDA.W #0x5a,A7 00025a5e 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00025a62 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00025a66 47 ee ff f0 |G | LEA.L (A6-0x10),A3 00025a6a 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00025a6e 74 01 |t | MOVEQ.L #0x01,D2 00025a70 59 4f |YO | SUBQ.L #0x4,A7 00025a72 2f 14 |/ | MOVE.L (A4),-(A7) 00025a74 4e ba f0 32 |N 2 | JSR 0x24aa8 00025a78 58 4f |XO | ADDQ.L #0x4,A7 00025a7a 26 9f |& | MOVE.L (A7)+,(A3) 00025a7c 20 13 | | MOVE.L (A3),D0 00025a7e b0 82 | | CMP.L D2,D0 00025a80 6c 2e |l. | BGE 0x25ab0 00025a82 9e fc 00 1a | | SUBA.W #0x1a,A7 00025a86 20 4f | O | MOVEA.L A7,A0 00025a88 43 fa e7 f6 |C | LEA.L 0x24280,A1 00025a8c 72 18 |r | MOVEQ.L #0x18,D1 00025a8e 10 d9 | | MOVE.B (A1)+,(A0)+ 00025a90 51 c9 ff fc |Q | DBF D1,0x25a8e 00025a94 59 4f |YO | SUBQ.L #0x4,A7 00025a96 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025a9a 3f 02 |? | MOVE.W D2,-(A7) 00025a9c 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00025aa0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025aa6 50 4f |PO | ADDQ.L #0x8,A7 00025aa8 4e ba eb f2 |N | JSR 0x2469c 00025aac de fc 00 1e | | ADDA.W #0x1e,A7 00025ab0 42 92 |B | CLR.L (A2) 00025ab2 2f 00 |/ | MOVE.L D0,-(A7) 00025ab4 7c 02 || | MOVEQ.L #0x02,D6 00025ab6 bc 97 | | CMP.L (A7),D6 00025ab8 6e 1e |n | BGT 0x25ad8 00025aba 9e fc 00 0c | | SUBA.W #0xc,A7 00025abe 2f 14 |/ | MOVE.L (A4),-(A7) 00025ac0 2f 06 |/ | MOVE.L D6,-(A7) 00025ac2 4e ba f8 22 |N " | JSR 0x252e6 00025ac6 50 4f |PO | ADDQ.L #0x8,A7 00025ac8 4e ba f7 e4 |N | JSR 0x252ae 00025acc 50 4f |PO | ADDQ.L #0x8,A7 00025ace 20 12 | | MOVE.L (A2),D0 00025ad0 d0 9f | | ADD.L (A7)+,D0 00025ad2 24 80 |$ | MOVE.L D0,(A2) 00025ad4 52 86 |R | ADDQ.L #0x1,D6 00025ad6 68 de |h | BVC 0x25ab6 00025ad8 58 4f |XO | ADDQ.L #0x4,A7 00025ada 20 13 | | MOVE.L (A3),D0 00025adc 55 80 |U | SUBQ.L #0x2,D0 00025ade d1 92 | | ADD.L D0,(A2) 00025ae0 59 4f |YO | SUBQ.L #0x4,A7 00025ae2 2f 14 |/ | MOVE.L (A4),-(A7) 00025ae4 48 78 00 01 |Hx | PEA.L 0x1 00025ae8 4e ba f8 da |N | JSR 0x253c4 00025aec 50 4f |PO | ADDQ.L #0x8,A7 00025aee 2d 57 ff fc |-W | MOVE.L (A7),(A6-0x4) 00025af2 48 6e ff fc |Hn | PEA.L (A6-0x4) 00025af6 2f 12 |/ | MOVE.L (A2),-(A7) 00025af8 4e ba fe 0a |N | JSR 0x25904 00025afc 50 4f |PO | ADDQ.L #0x8,A7 00025afe 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00025b02 4a 92 |J | TST.L (A2) 00025b04 6f 00 00 aa |o | BLE 0x25bb0 00025b08 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 00025b0c 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 00025b10 2f 08 |/ | MOVE.L A0,-(A7) 00025b12 7e 01 |~ | MOVEQ.L #0x01,D7 00025b14 2f 13 |/ | MOVE.L (A3),-(A7) 00025b16 7c 02 || | MOVEQ.L #0x02,D6 00025b18 bc 97 | | CMP.L (A7),D6 00025b1a 6e 00 00 92 |n | BGT 0x25bae 00025b1e 51 4f |QO | SUBQ.L #0x8,A7 00025b20 2f 14 |/ | MOVE.L (A4),-(A7) 00025b22 2f 06 |/ | MOVE.L D6,-(A7) 00025b24 4e ba f7 c0 |N | JSR 0x252e6 00025b28 50 4f |PO | ADDQ.L #0x8,A7 00025b2a 2d 5f ff e0 |-_ | MOVE.L (A7)+,(A6-0x20) 00025b2e 2d 5f ff e4 |-_ | MOVE.L (A7)+,(A6-0x1c) 00025b32 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00025b36 2a 2e ff e0 |*. | MOVE.L (A6-0x20),D5 00025b3a ba 97 | | CMP.L (A7),D5 00025b3c 6e 14 |n | BGT 0x25b52 00025b3e 20 17 | | MOVE.L (A7),D0 00025b40 0c 85 80 00 00 01 | | CMPI.L #0x80000001,D5 00025b46 6d 08 |m | BLT 0x25b50 00025b48 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 00025b4e 6f 02 |o | BLE 0x25b52 00025b50 4e 4f |NO | TRAP #15 00025b52 ba 97 | | CMP.L (A7),D5 00025b54 6e 32 |n2 | BGT 0x25b88 00025b56 20 07 | | MOVE.L D7,D0 00025b58 53 80 |S | SUBQ.L #0x1,D0 00025b5a 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00025b60 63 02 |c | BLS 0x25b64 00025b62 4e 4f |NO | TRAP #15 00025b64 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 00025b68 22 05 |" | MOVE.L D5,D1 00025b6a 53 81 |S | SUBQ.L #0x1,D1 00025b6c 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 00025b72 63 02 |c | BLS 0x25b76 00025b74 4e 4f |NO | TRAP #15 00025b76 43 f9 00 03 b1 ee |C | LEA.L 0x3b1ee,A1 00025b7c 11 b1 18 08 08 00 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L) 00025b82 52 87 |R | ADDQ.L #0x1,D7 00025b84 52 85 |R | ADDQ.L #0x1,D5 00025b86 68 ca |h | BVC 0x25b52 00025b88 58 4f |XO | ADDQ.L #0x4,A7 00025b8a bc 93 | | CMP.L (A3),D6 00025b8c 67 1a |g | BEQ 0x25ba8 00025b8e 20 07 | | MOVE.L D7,D0 00025b90 53 80 |S | SUBQ.L #0x1,D0 00025b92 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00025b98 63 02 |c | BLS 0x25b9c 00025b9a 4e 4f |NO | TRAP #15 00025b9c 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00025ba0 11 bc 00 2c 08 00 | , | MOVE.B #0x2c,(A0+D0.L) 00025ba6 52 87 |R | ADDQ.L #0x1,D7 00025ba8 52 86 |R | ADDQ.L #0x1,D6 00025baa 68 00 ff 6c |h l | BVC 0x25b18 00025bae 50 4f |PO | ADDQ.L #0x8,A7 00025bb0 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00025bb4 4e 5e |N^ | UNLK A6 00025bb6 4e 75 |Nu | RTS 00025bb8 ; -------------------------------------------------------------------------------------- 00025bb8 ; OMSI PASCAL Function 00025bb8 ; <LVAR 0x008 4(r)> 00025bb8 ; <LVAR -0x00c 4(rw)> 00025bb8 ; -------------------------------------------------------------------------------------- 00025bb8 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00025bbc bf d5 | | CMPA.L (A5),A7 00025bbe 62 06 |b | BHI 0x25bc6 00025bc0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025bc4 4e 76 |Nv | TRAPV 00025bc6 de fc 00 54 | T | ADDA.W #0x54,A7 00025bca 48 e7 e1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7) 00025bce 47 f9 00 03 d1 f6 |G | LEA.L 0x3d1f6,A3 00025bd4 74 01 |t | MOVEQ.L #0x01,D2 00025bd6 59 4f |YO | SUBQ.L #0x4,A7 00025bd8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025bdc 48 78 00 01 |Hx | PEA.L 0x1 00025be0 4e ba f7 e2 |N | JSR 0x253c4 00025be4 50 4f |PO | ADDQ.L #0x8,A7 00025be6 28 5f |(_ | MOVEA.L (A7)+,A4 00025be8 9e fc 00 22 | " | SUBA.W #0x22,A7 00025bec 2f 0c |/ | MOVE.L A4,-(A7) 00025bee 4e ba fb b8 |N | JSR 0x257a8 00025bf2 58 4f |XO | ADDQ.L #0x4,A7 00025bf4 4e ba fc 34 |N 4 | JSR 0x2582a 00025bf8 de fc 00 1e | | ADDA.W #0x1e,A7 00025bfc 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 00025c00 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0 00025c04 b0 c2 | | CMPA.W D2,A0 00025c06 66 42 |fB | BNE 0x25c4a 00025c08 9e fc 00 14 | | SUBA.W #0x14,A7 00025c0c 22 4f |"O | MOVEA.L A7,A1 00025c0e 45 fa e6 8a |E | LEA.L 0x2429a,A2 00025c12 70 12 |p | MOVEQ.L #0x12,D0 00025c14 12 da | | MOVE.B (A2)+,(A1)+ 00025c16 51 c8 ff fc |Q | DBF D0,0x25c14 00025c1a 51 4f |QO | SUBQ.L #0x8,A7 00025c1c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00025c20 3f 02 |? | MOVE.W D2,-(A7) 00025c22 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00025c26 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025c2c 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00025c30 48 78 00 01 |Hx | PEA.L 0x1 00025c34 4e ba f7 8e |N | JSR 0x253c4 00025c38 50 4f |PO | ADDQ.L #0x8,A7 00025c3a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00025c40 50 4f |PO | ADDQ.L #0x8,A7 00025c42 4e ba ea 58 |N X | JSR 0x2469c 00025c46 de fc 00 18 | | ADDA.W #0x18,A7 00025c4a 2f 08 |/ | MOVE.L A0,-(A7) 00025c4c 2f 13 |/ | MOVE.L (A3),-(A7) 00025c4e 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 00025c52 44 97 |D | NEG.L (A7) 00025c54 4e ba ef 9a |N | JSR 0x24bf0 00025c58 58 4f |XO | ADDQ.L #0x4,A7 00025c5a 2e a8 00 1e |. | MOVE.L (A0+0x1e),(A7) 00025c5e 7e 01 |~ | MOVEQ.L #0x01,D7 00025c60 be 97 | | CMP.L (A7),D7 00025c62 6e 38 |n8 | BGT 0x25c9c 00025c64 20 07 | | MOVE.L D7,D0 00025c66 d0 93 | | ADD.L (A3),D0 00025c68 53 80 |S | SUBQ.L #0x1,D0 00025c6a 53 80 |S | SUBQ.L #0x1,D0 00025c6c 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00025c72 63 02 |c | BLS 0x25c76 00025c74 4e 4f |NO | TRAP #15 00025c76 41 f9 00 03 b1 ee |A | LEA.L 0x3b1ee,A0 00025c7c 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00025c80 22 69 00 22 |"i " | MOVEA.L (A1+0x22),A1 00025c84 22 07 |" | MOVE.L D7,D1 00025c86 53 81 |S | SUBQ.L #0x1,D1 00025c88 0c 81 00 00 03 ff | | CMPI.L #0x000003ff,D1 00025c8e 63 02 |c | BLS 0x25c92 00025c90 4e 4f |NO | TRAP #15 00025c92 11 b1 18 00 08 08 | | MOVE.B (A1+D1.L),(A0+D0.L+#0x8) 00025c98 52 87 |R | ADDQ.L #0x1,D7 00025c9a 68 c4 |h | BVC 0x25c60 00025c9c 50 4f |PO | ADDQ.L #0x8,A7 00025c9e 4c df 1f 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4 00025ca2 4e 5e |N^ | UNLK A6 00025ca4 4e 75 |Nu | RTS 00025ca6 ; -------------------------------------------------------------------------------------- 00025ca6 ; OMSI PASCAL Function 00025ca6 ; <LVAR -0x004 4(rw)> 00025ca6 ; -------------------------------------------------------------------------------------- 00025ca6 4e 56 ff ae |NV | LINK.W A6,#0xffae 00025caa bf d5 | | CMPA.L (A5),A7 00025cac 62 06 |b | BHI 0x25cb4 00025cae 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025cb2 4e 76 |Nv | TRAPV 00025cb4 de fc 00 4e | N | ADDA.W #0x4e,A7 00025cb8 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7) 00025cbc 47 ee ff fc |G | LEA.L (A6-0x4),A3 00025cc0 72 01 |r | MOVEQ.L #0x01,D1 00025cc2 74 1e |t | MOVEQ.L #0x1e,D2 00025cc4 26 b9 00 03 d2 20 |& | MOVE.L 0x3d220,(A3) 00025cca 20 53 | S | MOVEA.L (A3),A0 00025ccc b0 c1 | | CMPA.W D1,A0 00025cce 67 30 |g0 | BEQ 0x25d00 00025cd0 9e c2 | | SUBA.W D2,A7 00025cd2 22 4f |"O | MOVEA.L A7,A1 00025cd4 24 48 |$H | MOVEA.L A0,A2 00025cd6 70 1d |p | MOVEQ.L #0x1d,D0 00025cd8 12 da | | MOVE.B (A2)+,(A1)+ 00025cda 51 c8 ff fc |Q | DBF D0,0x25cd8 00025cde 59 4f |YO | SUBQ.L #0x4,A7 00025ce0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025ce4 3f 01 |? | MOVE.W D1,-(A7) 00025ce6 3f 02 |? | MOVE.W D2,-(A7) 00025ce8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025cee 50 4f |PO | ADDQ.L #0x8,A7 00025cf0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00025cf6 de fc 00 22 | " | ADDA.W #0x22,A7 00025cfa 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 00025cfe 60 ca |` | BRA 0x25cca 00025d00 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3 00025d04 4e 5e |N^ | UNLK A6 00025d06 4e 75 |Nu | RTS 00025d08 ; -------------------------------------------------------------------------------------- 00025d08 ; OMSI PASCAL Function 00025d08 ; <LVAR 0x008 4(r)> 00025d08 ; -------------------------------------------------------------------------------------- 00025d08 4e 56 ff ce |NV | LINK.W A6,#0xffce 00025d0c bf d5 | | CMPA.L (A5),A7 00025d0e 62 06 |b | BHI 0x25d16 00025d10 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025d14 4e 76 |Nv | TRAPV 00025d16 de fc 00 32 | 2 | ADDA.W #0x32,A7 00025d1a 9e fc 00 26 | & | SUBA.W #0x26,A7 00025d1e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00025d22 48 78 00 01 |Hx | PEA.L 0x1 00025d26 4e ba f6 9c |N | JSR 0x253c4 00025d2a 50 4f |PO | ADDQ.L #0x8,A7 00025d2c 4e ba fa 7a |N z | JSR 0x257a8 00025d30 58 4f |XO | ADDQ.L #0x4,A7 00025d32 4e ba fa f6 |N | JSR 0x2582a 00025d36 de fc 00 1e | | ADDA.W #0x1e,A7 00025d3a 4e ba fb 42 |N B | JSR 0x2587e 00025d3e 58 4f |XO | ADDQ.L #0x4,A7 00025d40 4e 5e |N^ | UNLK A6 00025d42 4e 75 |Nu | RTS 00025d44 ; -------------------------------------------------------------------------------------- 00025d44 ; OMSI PASCAL Function 00025d44 ; -------------------------------------------------------------------------------------- 00025d44 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 00025d48 bf d5 | | CMPA.L (A5),A7 00025d4a 62 06 |b | BHI 0x25d52 00025d4c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025d50 4e 76 |Nv | TRAPV 00025d52 de fc 00 0c | | ADDA.W #0xc,A7 00025d56 51 4f |QO | SUBQ.L #0x8,A7 00025d58 4e b9 00 01 03 cc |N | JSR GetPushLevel() : Long 00025d5e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00025d64 58 4f |XO | ADDQ.L #0x4,A7 00025d66 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00025d6c 58 4f |XO | ADDQ.L #0x4,A7 00025d6e 4e 5e |N^ | UNLK A6 00025d70 4e 75 |Nu | RTS 00025d72 ; -------------------------------------------------------------------------------------- 00025d72 ; OMSI PASCAL Function 00025d72 ; <LVAR 0x008 4(r)> 00025d72 ; <LVAR -0x004 1(rw)> 00025d72 ; <LVAR -0x008 @ 4(rw)> 00025d72 ; <LVAR -0x00c @ 4(r)> 00025d72 ; <LVAR -0x010 @ 4(r)> 00025d72 ; <LVAR -0x012 @ 1(r)> 00025d72 ; <LVAR -0x013 @ 1(r)> 00025d72 ; <LVAR -0x014 @ 1(r)> 00025d72 ; <LVAR -0x024 4(rw)> 00025d72 ; <LVAR -0x028 4(rw)> 00025d72 ; <LVAR -0x02c 4(rw)> 00025d72 ; <LVAR -0x030 @ 4(r)> 00025d72 ; <LVAR -0x032 1(w)> 00025d72 ; <LVAR -0x036 @ 4(r)> 00025d72 ; <LVAR -0x038 @ 1(r)> 00025d72 ; <LVAR -0x03c @ 4(rw)> 00025d72 ; -------------------------------------------------------------------------------------- 00025d72 4e 56 ff 64 |NV d | LINK.W A6,#0xff64 00025d76 bf d5 | | CMPA.L (A5),A7 00025d78 62 06 |b | BHI 0x25d80 00025d7a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025d7e 4e 76 |Nv | TRAPV 00025d80 de fc 00 60 | ` | ADDA.W #0x60,A7 00025d84 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00025d88 45 ee ff c4 |E | LEA.L (A6-0x3c),A2 00025d8c 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00025d90 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 00025d96 74 01 |t | MOVEQ.L #0x01,D2 00025d98 76 14 |v | MOVEQ.L #0x14,D3 00025d9a 28 3c ff ff 80 00 |(< | MOVE.L #0xffff8000,D4 00025da0 59 4f |YO | SUBQ.L #0x4,A7 00025da2 2f 13 |/ | MOVE.L (A3),-(A7) 00025da4 4e ba ed 02 |N | JSR 0x24aa8 00025da8 58 4f |XO | ADDQ.L #0x4,A7 00025daa 2d 5f ff d4 |-_ | MOVE.L (A7)+,(A6-0x2c) 00025dae 66 28 |f( | BNE 0x25dd8 00025db0 59 4f |YO | SUBQ.L #0x4,A7 00025db2 1e ba e5 0c | | MOVE.B 0x242c0,(A7) 00025db6 1f 7a e5 09 00 01 | z | MOVE.B 0x242c1,(A7+0x1) 00025dbc 1f 7a e5 04 00 02 | z | MOVE.B 0x242c2,(A7+0x2) 00025dc2 59 4f |YO | SUBQ.L #0x4,A7 00025dc4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025dc8 3f 02 |? | MOVE.W D2,-(A7) 00025dca 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00025dce 4e 94 |N | JSR (A4) 00025dd0 50 4f |PO | ADDQ.L #0x8,A7 00025dd2 24 9f |$ | MOVE.L (A7)+,(A2) 00025dd4 58 4f |XO | ADDQ.L #0x4,A7 00025dd6 60 10 |` | BRA 0x25de8 00025dd8 59 4f |YO | SUBQ.L #0x4,A7 00025dda 2f 13 |/ | MOVE.L (A3),-(A7) 00025ddc 48 78 00 01 |Hx | PEA.L 0x1 00025de0 4e ba f5 e2 |N | JSR 0x253c4 00025de4 50 4f |PO | ADDQ.L #0x8,A7 00025de6 24 9f |$ | MOVE.L (A7)+,(A2) 00025de8 5d 4f |]O | SUBQ.L #0x6,A7 00025dea 20 4f | O | MOVEA.L A7,A0 00025dec 43 fa e4 d6 |C | LEA.L 0x242c4,A1 00025df0 70 04 |p | MOVEQ.L #0x04,D0 00025df2 10 d9 | | MOVE.B (A1)+,(A0)+ 00025df4 51 c8 ff fc |Q | DBF D0,0x25df2 00025df8 59 4f |YO | SUBQ.L #0x4,A7 00025dfa 2f 12 |/ | MOVE.L (A2),-(A7) 00025dfc 59 4f |YO | SUBQ.L #0x4,A7 00025dfe 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00025e02 3f 02 |? | MOVE.W D2,-(A7) 00025e04 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00025e08 4e 94 |N | JSR (A4) 00025e0a 50 4f |PO | ADDQ.L #0x8,A7 00025e0c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00025e12 50 4f |PO | ADDQ.L #0x8,A7 00025e14 24 9f |$ | MOVE.L (A7)+,(A2) 00025e16 54 4f |TO | ADDQ.L #0x2,A7 00025e18 2e 92 |. | MOVE.L (A2),(A7) 00025e1a 42 27 |B' | CLR.B -(A7) 00025e1c 1f 02 | | MOVE.B D2,-(A7) 00025e1e 48 78 00 00 |Hx | PEA.L 0x0 00025e22 48 6e ff c8 |Hn | PEA.L (A6-0x38) 00025e26 48 6e ff ca |Hn | PEA.L (A6-0x36) 00025e2a 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00025e30 de c3 | | ADDA.W D3,A7 00025e32 4a 2e ff c8 |J. | TST.B (A6-0x38) 00025e36 67 0e |g | BEQ 0x25e46 00025e38 48 52 |HR | PEA.L (A2) 00025e3a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00025e40 58 4f |XO | ADDQ.L #0x4,A7 00025e42 60 00 02 4e |` N | BRA 0x26092 00025e46 20 6e ff ca | n | MOVEA.L (A6-0x36),A0 00025e4a 10 28 00 3f | ( ? | MOVE.B (A0+0x3f),D0 00025e4e ed 08 | | LSL.B #0x6,D0 00025e50 ee 08 | | LSR.B #0x7,D0 00025e52 1d 40 ff ce | @ | MOVE.B D0,(A6-0x32) 00025e56 42 27 |B' | CLR.B -(A7) 00025e58 1f 02 | | MOVE.B D2,-(A7) 00025e5a 48 78 00 01 |Hx | PEA.L 0x1 00025e5e 48 6e ff c8 |Hn | PEA.L (A6-0x38) 00025e62 48 6e ff ca |Hn | PEA.L (A6-0x36) 00025e66 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00025e6c de fc 00 10 | | ADDA.W #0x10,A7 00025e70 20 52 | R | MOVEA.L (A2),A0 00025e72 32 10 |2 | MOVE.W (A0),D1 00025e74 48 c1 |H | EXTW.L D1 00025e76 5b 81 |[ | SUBQ.L #0x5,D1 00025e78 92 84 | | SUB.L D4,D1 00025e7a 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 00025e80 63 02 |c | BLS 0x25e84 00025e82 4e 4f |NO | TRAP #15 00025e84 d2 84 | | ADD.L D4,D1 00025e86 30 81 |0 | MOVE.W D1,(A0) 00025e88 4a 00 |J | TST.B D0 00025e8a 66 36 |f6 | BNE 0x25ec2 00025e8c 41 fa e4 32 |A 2 | LEA.L 0x242c0,A0 00025e90 70 08 |p | MOVEQ.L #0x08,D0 00025e92 3f 20 |? | MOVE.W -(A0),-(A7) 00025e94 51 c8 ff fc |Q | DBF D0,0x25e92 00025e98 59 4f |YO | SUBQ.L #0x4,A7 00025e9a 2f 12 |/ | MOVE.L (A2),-(A7) 00025e9c 59 4f |YO | SUBQ.L #0x4,A7 00025e9e 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00025ea2 3f 02 |? | MOVE.W D2,-(A7) 00025ea4 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00025ea8 4e 94 |N | JSR (A4) 00025eaa 50 4f |PO | ADDQ.L #0x8,A7 00025eac 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00025eb2 50 4f |PO | ADDQ.L #0x8,A7 00025eb4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00025eba de fc 00 16 | | ADDA.W #0x16,A7 00025ebe 60 00 01 d2 |` | BRA 0x26092 00025ec2 48 6e ff d0 |Hn | PEA.L (A6-0x30) 00025ec6 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00025ecc 58 4f |XO | ADDQ.L #0x4,A7 00025ece 20 6e ff d0 | n | MOVEA.L (A6-0x30),A0 00025ed2 2f 08 |/ | MOVE.L A0,-(A7) 00025ed4 7e 01 |~ | MOVEQ.L #0x01,D7 00025ed6 2f 2e ff d4 |/. | MOVE.L (A6-0x2c),-(A7) 00025eda 7a 02 |z | MOVEQ.L #0x02,D5 00025edc ba 97 | | CMP.L (A7),D5 00025ede 6e 00 00 94 |n | BGT 0x25f74 00025ee2 51 4f |QO | SUBQ.L #0x8,A7 00025ee4 2f 13 |/ | MOVE.L (A3),-(A7) 00025ee6 2f 05 |/ | MOVE.L D5,-(A7) 00025ee8 4e ba f3 fc |N | JSR 0x252e6 00025eec 50 4f |PO | ADDQ.L #0x8,A7 00025eee 2d 5f ff d8 |-_ | MOVE.L (A7)+,(A6-0x28) 00025ef2 2d 5f ff dc |-_ | MOVE.L (A7)+,(A6-0x24) 00025ef6 2f 2e ff dc |/. | MOVE.L (A6-0x24),-(A7) 00025efa 2c 2e ff d8 |,. | MOVE.L (A6-0x28),D6 00025efe bc 97 | | CMP.L (A7),D6 00025f00 6e 14 |n | BGT 0x25f16 00025f02 20 17 | | MOVE.L (A7),D0 00025f04 0c 86 80 00 00 01 | | CMPI.L #0x80000001,D6 00025f0a 6d 08 |m | BLT 0x25f14 00025f0c 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 00025f12 6f 02 |o | BLE 0x25f16 00025f14 4e 4f |NO | TRAP #15 00025f16 bc 97 | | CMP.L (A7),D6 00025f18 6e 32 |n2 | BGT 0x25f4c 00025f1a 20 07 | | MOVE.L D7,D0 00025f1c 53 80 |S | SUBQ.L #0x1,D0 00025f1e 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00025f24 63 02 |c | BLS 0x25f28 00025f26 4e 4f |NO | TRAP #15 00025f28 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 00025f2c 22 06 |" | MOVE.L D6,D1 00025f2e 53 81 |S | SUBQ.L #0x1,D1 00025f30 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 00025f36 63 02 |c | BLS 0x25f3a 00025f38 4e 4f |NO | TRAP #15 00025f3a 43 f9 00 03 b1 ee |C | LEA.L 0x3b1ee,A1 00025f40 11 b1 18 08 08 02 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2) 00025f46 52 87 |R | ADDQ.L #0x1,D7 00025f48 52 86 |R | ADDQ.L #0x1,D6 00025f4a 68 ca |h | BVC 0x25f16 00025f4c 58 4f |XO | ADDQ.L #0x4,A7 00025f4e ba ae ff d4 | | CMP.L (A6-0x2c),D5 00025f52 67 1a |g | BEQ 0x25f6e 00025f54 20 07 | | MOVE.L D7,D0 00025f56 53 80 |S | SUBQ.L #0x1,D0 00025f58 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00025f5e 63 02 |c | BLS 0x25f62 00025f60 4e 4f |NO | TRAP #15 00025f62 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00025f66 11 bc 00 2c 08 02 | , | MOVE.B #0x2c,(A0+D0.L+#0x2) 00025f6c 52 87 |R | ADDQ.L #0x1,D7 00025f6e 52 85 |R | ADDQ.L #0x1,D5 00025f70 68 00 ff 6a |h j | BVC 0x25edc 00025f74 58 4f |XO | ADDQ.L #0x4,A7 00025f76 20 57 | W | MOVEA.L (A7),A0 00025f78 20 07 | | MOVE.L D7,D0 00025f7a 53 80 |S | SUBQ.L #0x1,D0 00025f7c 90 84 | | SUB.L D4,D0 00025f7e 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00025f84 63 02 |c | BLS 0x25f88 00025f86 4e 4f |NO | TRAP #15 00025f88 d0 84 | | ADD.L D4,D0 00025f8a 30 80 |0 | MOVE.W D0,(A0) 00025f8c 54 4f |TO | ADDQ.L #0x2,A7 00025f8e 3e ba e3 3e |> > | MOVE.W 0x242ce,(A7) 00025f92 3f 3a e3 38 |?: 8 | MOVE.W 0x242cc,-(A7) 00025f96 3f 3a e3 32 |?: 2 | MOVE.W 0x242ca,-(A7) 00025f9a 59 4f |YO | SUBQ.L #0x4,A7 00025f9c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025fa0 3f 02 |? | MOVE.W D2,-(A7) 00025fa2 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00025fa6 4e 94 |N | JSR (A4) 00025fa8 50 4f |PO | ADDQ.L #0x8,A7 00025faa 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00025fae 54 4f |TO | ADDQ.L #0x2,A7 00025fb0 2e 93 |. | MOVE.L (A3),(A7) 00025fb2 48 78 00 00 |Hx | PEA.L 0x0 00025fb6 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00025fba 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00025fbe 48 6e ff ed |Hn | PEA.L (A6-0x13) 00025fc2 4e b9 00 02 78 fc |N x | JSR 0x278fc 00025fc8 de c3 | | ADDA.W D3,A7 00025fca 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00025fce 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00025fd4 54 4f |TO | ADDQ.L #0x2,A7 00025fd6 3e ba e2 fc |> | MOVE.W 0x242d4,(A7) 00025fda 3f 3a e2 f6 |?: | MOVE.W 0x242d2,-(A7) 00025fde 3f 3a e2 f0 |?: | MOVE.W 0x242d0,-(A7) 00025fe2 59 4f |YO | SUBQ.L #0x4,A7 00025fe4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025fe8 3f 02 |? | MOVE.W D2,-(A7) 00025fea 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00025fee 4e 94 |N | JSR (A4) 00025ff0 50 4f |PO | ADDQ.L #0x8,A7 00025ff2 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00025ff6 54 4f |TO | ADDQ.L #0x2,A7 00025ff8 2e 93 |. | MOVE.L (A3),(A7) 00025ffa 48 78 00 00 |Hx | PEA.L 0x0 00025ffe 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00026002 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00026006 48 6e ff ee |Hn | PEA.L (A6-0x12) 0002600a 4e b9 00 02 78 fc |N x | JSR 0x278fc 00026010 de c3 | | ADDA.W D3,A7 00026012 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00026016 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002601c 58 4f |XO | ADDQ.L #0x4,A7 0002601e 4a 2e ff ed |J. | TST.B (A6-0x13) 00026022 66 06 |f | BNE 0x2602a 00026024 4a 2e ff ee |J. | TST.B (A6-0x12) 00026028 67 06 |g | BEQ 0x26030 0002602a 42 2e ff fc |B. | CLR.B (A6-0x4) 0002602e 60 04 |` | BRA 0x26034 00026030 1d 42 ff fc | B | MOVE.B D2,(A6-0x4) 00026034 2f 12 |/ | MOVE.L (A2),-(A7) 00026036 2f 2e ff d0 |/. | MOVE.L (A6-0x30),-(A7) 0002603a 10 2e ff fc | . | MOVE.B (A6-0x4),D0 0002603e 48 80 |H | EXTB.W D0 00026040 41 bc 00 02 |A | CHK.W #0x2,D0 00026044 1f 00 | | MOVE.B D0,-(A7) 00026046 48 6e ff ec |Hn | PEA.L (A6-0x14) 0002604a 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00026050 de fc 00 0e | | ADDA.W #0xe,A7 00026054 4a 2e ff ed |J. | TST.B (A6-0x13) 00026058 67 20 |g | BEQ 0x2607a 0002605a 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 0002605e 59 4f |YO | SUBQ.L #0x4,A7 00026060 10 2e ff ec | . | MOVE.B (A6-0x14),D0 00026064 48 80 |H | EXTB.W D0 00026066 41 bc 00 0e |A | CHK.W #0xe,D0 0002606a 1f 00 | | MOVE.B D0,-(A7) 0002606c 4e b9 00 01 03 c0 |N | JSR ExpErrMsg(a: Byte) : String 00026072 54 4f |TO | ADDQ.L #0x2,A7 00026074 4e ba f9 4c |N L | JSR 0x259c2 00026078 50 4f |PO | ADDQ.L #0x8,A7 0002607a 4a 2e ff ee |J. | TST.B (A6-0x12) 0002607e 67 12 |g | BEQ 0x26092 00026080 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00026084 59 4f |YO | SUBQ.L #0x4,A7 00026086 4e b9 00 01 03 c8 |N | JSR FSCALL_103c8 0002608c 4e ba f9 34 |N 4 | JSR 0x259c2 00026090 50 4f |PO | ADDQ.L #0x8,A7 00026092 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00026096 4e 5e |N^ | UNLK A6 00026098 4e 75 |Nu | RTS 0002609a ; -------------------------------------------------------------------------------------- 0002609a ; OMSI PASCAL Function 0002609a ; <LVAR 0x008 4(r)> 0002609a ; <LVAR -0x004 @ 4(rw)> 0002609a ; <LVAR -0x008 @ 4(rw)> 0002609a ; -------------------------------------------------------------------------------------- 0002609a 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 0002609e bf d5 | | CMPA.L (A5),A7 000260a0 62 06 |b | BHI 0x260a8 000260a2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000260a6 4e 76 |Nv | TRAPV 000260a8 de fc 00 18 | | ADDA.W #0x18,A7 000260ac 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 000260b0 41 ee ff f8 |A | LEA.L (A6-0x8),A0 000260b4 43 ee ff fc |C | LEA.L (A6-0x4),A1 000260b8 59 4f |YO | SUBQ.L #0x4,A7 000260ba 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000260be 48 78 00 01 |Hx | PEA.L 0x1 000260c2 4e ba f3 00 |N | JSR 0x253c4 000260c6 50 4f |PO | ADDQ.L #0x8,A7 000260c8 20 97 | | MOVE.L (A7),(A0) 000260ca 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000260ce 48 78 00 02 |Hx | PEA.L 0x2 000260d2 4e ba f2 f0 |N | JSR 0x253c4 000260d6 50 4f |PO | ADDQ.L #0x8,A7 000260d8 22 97 |" | MOVE.L (A7),(A1) 000260da 54 4f |TO | ADDQ.L #0x2,A7 000260dc 2f 10 |/ | MOVE.L (A0),-(A7) 000260de 2f 11 |/ | MOVE.L (A1),-(A7) 000260e0 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000260e6 50 4f |PO | ADDQ.L #0x8,A7 000260e8 4a 1f |J | TST.B (A7)+ 000260ea 67 06 |g | BEQ 0x260f2 000260ec 4e ba ed 96 |N | JSR 0x24e84 000260f0 60 04 |` | BRA 0x260f6 000260f2 4e ba ed d6 |N | JSR 0x24eca 000260f6 48 51 |HQ | PEA.L (A1) 000260f8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000260fe 58 4f |XO | ADDQ.L #0x4,A7 00026100 48 50 |HP | PEA.L (A0) 00026102 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00026108 58 4f |XO | ADDQ.L #0x4,A7 0002610a 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 0002610e 4e 5e |N^ | UNLK A6 00026110 4e 75 |Nu | RTS 00026112 ; -------------------------------------------------------------------------------------- 00026112 ; OMSI PASCAL Function 00026112 ; <LVAR 0x008 4(r)> 00026112 ; <LVAR -0x004 @ 4(rw)> 00026112 ; <LVAR -0x008 @ 4(rw)> 00026112 ; -------------------------------------------------------------------------------------- 00026112 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00026116 bf d5 | | CMPA.L (A5),A7 00026118 62 06 |b | BHI 0x26120 0002611a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002611e 4e 76 |Nv | TRAPV 00026120 de fc 00 18 | | ADDA.W #0x18,A7 00026124 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 00026128 41 ee ff f8 |A | LEA.L (A6-0x8),A0 0002612c 43 ee ff fc |C | LEA.L (A6-0x4),A1 00026130 59 4f |YO | SUBQ.L #0x4,A7 00026132 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026136 48 78 00 01 |Hx | PEA.L 0x1 0002613a 4e ba f2 88 |N | JSR 0x253c4 0002613e 50 4f |PO | ADDQ.L #0x8,A7 00026140 20 97 | | MOVE.L (A7),(A0) 00026142 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026146 48 78 00 02 |Hx | PEA.L 0x2 0002614a 4e ba f2 78 |N x | JSR 0x253c4 0002614e 50 4f |PO | ADDQ.L #0x8,A7 00026150 22 97 |" | MOVE.L (A7),(A1) 00026152 54 4f |TO | ADDQ.L #0x2,A7 00026154 2f 10 |/ | MOVE.L (A0),-(A7) 00026156 2f 11 |/ | MOVE.L (A1),-(A7) 00026158 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 0002615e 50 4f |PO | ADDQ.L #0x8,A7 00026160 4a 1f |J | TST.B (A7)+ 00026162 66 06 |f | BNE 0x2616a 00026164 4e ba ed 1e |N | JSR 0x24e84 00026168 60 04 |` | BRA 0x2616e 0002616a 4e ba ed 5e |N ^ | JSR 0x24eca 0002616e 48 51 |HQ | PEA.L (A1) 00026170 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00026176 58 4f |XO | ADDQ.L #0x4,A7 00026178 48 50 |HP | PEA.L (A0) 0002617a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00026180 58 4f |XO | ADDQ.L #0x4,A7 00026182 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 00026186 4e 5e |N^ | UNLK A6 00026188 4e 75 |Nu | RTS 0002618a ; -------------------------------------------------------------------------------------- 0002618a ; OMSI PASCAL Function 0002618a ; <LVAR 0x008 4(r)> 0002618a ; -------------------------------------------------------------------------------------- 0002618a 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 0002618e bf d5 | | CMPA.L (A5),A7 00026190 62 06 |b | BHI 0x26198 00026192 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026196 4e 76 |Nv | TRAPV 00026198 de fc 00 10 | | ADDA.W #0x10,A7 0002619c 59 4f |YO | SUBQ.L #0x4,A7 0002619e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000261a2 48 78 00 01 |Hx | PEA.L 0x1 000261a6 4e ba f2 1c |N | JSR 0x253c4 000261aa 50 4f |PO | ADDQ.L #0x8,A7 000261ac 4e ba f0 0e |N | JSR 0x251bc 000261b0 58 4f |XO | ADDQ.L #0x4,A7 000261b2 4e 5e |N^ | UNLK A6 000261b4 4e 75 |Nu | RTS 000261b6 ; -------------------------------------------------------------------------------------- 000261b6 ; OMSI PASCAL Function 000261b6 ; <LVAR 0x008 4(r)> 000261b6 ; <LVAR -0x014 @ 4(rw)> 000261b6 ; -------------------------------------------------------------------------------------- 000261b6 4e 56 ff 90 |NV | LINK.W A6,#0xff90 000261ba bf d5 | | CMPA.L (A5),A7 000261bc 62 06 |b | BHI 0x261c4 000261be 44 fc 00 02 |D | MOVE.W #0x2,CCR 000261c2 4e 76 |Nv | TRAPV 000261c4 de fc 00 5c | \ | ADDA.W #0x5c,A7 000261c8 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 000261cc 45 ee 00 08 |E | LEA.L (A6+0x8),A2 000261d0 47 ee ff ec |G | LEA.L (A6-0x14),A3 000261d4 74 7d |t} | MOVEQ.L #0x7d,D2 000261d6 59 4f |YO | SUBQ.L #0x4,A7 000261d8 2f 12 |/ | MOVE.L (A2),-(A7) 000261da 48 78 00 01 |Hx | PEA.L 0x1 000261de 4e ba f1 e4 |N | JSR 0x253c4 000261e2 50 4f |PO | ADDQ.L #0x8,A7 000261e4 26 97 |& | MOVE.L (A7),(A3) 000261e6 2f 12 |/ | MOVE.L (A2),-(A7) 000261e8 48 78 00 02 |Hx | PEA.L 0x2 000261ec 4e ba f1 d6 |N | JSR 0x253c4 000261f0 50 4f |PO | ADDQ.L #0x8,A7 000261f2 28 5f |(_ | MOVEA.L (A7)+,A4 000261f4 9e fc 00 0c | | SUBA.W #0xc,A7 000261f8 2f 12 |/ | MOVE.L (A2),-(A7) 000261fa 48 78 00 03 |Hx | PEA.L 0x3 000261fe 4e ba f1 f6 |N | JSR 0x253f6 00026202 50 4f |PO | ADDQ.L #0x8,A7 00026204 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 0002620a 50 4f |PO | ADDQ.L #0x8,A7 0002620c 2c 17 |, | MOVE.L (A7),D6 0002620e 51 4f |QO | SUBQ.L #0x8,A7 00026210 2f 12 |/ | MOVE.L (A2),-(A7) 00026212 48 78 00 04 |Hx | PEA.L 0x4 00026216 4e ba f1 de |N | JSR 0x253f6 0002621a 50 4f |PO | ADDQ.L #0x8,A7 0002621c 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00026222 50 4f |PO | ADDQ.L #0x8,A7 00026224 2a 1f |* | MOVE.L (A7)+,D5 00026226 20 06 | | MOVE.L D6,D0 00026228 d0 85 | | ADD.L D5,D0 0002622a 53 80 |S | SUBQ.L #0x1,D0 0002622c 32 14 |2 | MOVE.W (A4),D1 0002622e 48 c1 |H | EXTW.L D1 00026230 b0 81 | | CMP.L D1,D0 00026232 6f 30 |o0 | BLE 0x26264 00026234 9e fc 00 20 | | SUBA.W #0x20,A7 00026238 20 4f | O | MOVEA.L A7,A0 0002623a 43 fa e0 9a |C | LEA.L 0x242d6,A1 0002623e 70 1e |p | MOVEQ.L #0x1e,D0 00026240 10 d9 | | MOVE.B (A1)+,(A0)+ 00026242 51 c8 ff fc |Q | DBF D0,0x26240 00026246 59 4f |YO | SUBQ.L #0x4,A7 00026248 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002624c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026250 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00026254 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002625a 50 4f |PO | ADDQ.L #0x8,A7 0002625c 4e ba e4 3e |N > | JSR 0x2469c 00026260 de fc 00 24 | $ | ADDA.W #0x24,A7 00026264 20 53 | S | MOVEA.L (A3),A0 00026266 2f 08 |/ | MOVE.L A0,-(A7) 00026268 30 10 |0 | MOVE.W (A0),D0 0002626a 48 c0 |H | EXTW.L D0 0002626c 2f 00 |/ | MOVE.L D0,-(A7) 0002626e 7e 01 |~ | MOVEQ.L #0x01,D7 00026270 be 97 | | CMP.L (A7),D7 00026272 6e 26 |n& | BGT 0x2629a 00026274 20 06 | | MOVE.L D6,D0 00026276 d0 87 | | ADD.L D7,D0 00026278 53 80 |S | SUBQ.L #0x1,D0 0002627a 53 80 |S | SUBQ.L #0x1,D0 0002627c b0 82 | | CMP.L D2,D0 0002627e 63 02 |c | BLS 0x26282 00026280 4e 4f |NO | TRAP #15 00026282 22 07 |" | MOVE.L D7,D1 00026284 53 81 |S | SUBQ.L #0x1,D1 00026286 b2 82 | | CMP.L D2,D1 00026288 63 02 |c | BLS 0x2628c 0002628a 4e 4f |NO | TRAP #15 0002628c 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00026290 19 b0 18 02 08 02 | | MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2) 00026296 52 87 |R | ADDQ.L #0x1,D7 00026298 68 d6 |h | BVC 0x26270 0002629a 58 4f |XO | ADDQ.L #0x4,A7 0002629c 2e 8c |. | MOVE.L A4,(A7) 0002629e 4e ba f1 c6 |N | JSR 0x25466 000262a2 58 4f |XO | ADDQ.L #0x4,A7 000262a4 48 53 |HS | PEA.L (A3) 000262a6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000262ac 58 4f |XO | ADDQ.L #0x4,A7 000262ae 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 000262b2 4e 5e |N^ | UNLK A6 000262b4 4e 75 |Nu | RTS 000262b6 ; -------------------------------------------------------------------------------------- 000262b6 ; OMSI PASCAL Function 000262b6 ; <LVAR 0x008 4(r)> 000262b6 ; <LVAR -0x010 @ 4(r)> 000262b6 ; <LVAR -0x014 @ 4(rw)> 000262b6 ; -------------------------------------------------------------------------------------- 000262b6 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 000262ba bf d5 | | CMPA.L (A5),A7 000262bc 62 06 |b | BHI 0x262c4 000262be 44 fc 00 02 |D | MOVE.W #0x2,CCR 000262c2 4e 76 |Nv | TRAPV 000262c4 de fc 00 44 | D | ADDA.W #0x44,A7 000262c8 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 000262cc 45 ee ff ec |E | LEA.L (A6-0x14),A2 000262d0 47 ee ff f0 |G | LEA.L (A6-0x10),A3 000262d4 49 ee 00 08 |I | LEA.L (A6+0x8),A4 000262d8 74 7d |t} | MOVEQ.L #0x7d,D2 000262da 59 4f |YO | SUBQ.L #0x4,A7 000262dc 2f 14 |/ | MOVE.L (A4),-(A7) 000262de 48 78 00 01 |Hx | PEA.L 0x1 000262e2 4e ba f0 e0 |N | JSR 0x253c4 000262e6 50 4f |PO | ADDQ.L #0x8,A7 000262e8 24 9f |$ | MOVE.L (A7)+,(A2) 000262ea 48 53 |HS | PEA.L (A3) 000262ec 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000262f2 51 4f |QO | SUBQ.L #0x8,A7 000262f4 2f 14 |/ | MOVE.L (A4),-(A7) 000262f6 48 78 00 02 |Hx | PEA.L 0x2 000262fa 4e ba f0 fa |N | JSR 0x253f6 000262fe 50 4f |PO | ADDQ.L #0x8,A7 00026300 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00026306 50 4f |PO | ADDQ.L #0x8,A7 00026308 2a 17 |* | MOVE.L (A7),D5 0002630a 51 4f |QO | SUBQ.L #0x8,A7 0002630c 2f 14 |/ | MOVE.L (A4),-(A7) 0002630e 48 78 00 03 |Hx | PEA.L 0x3 00026312 4e ba f0 e2 |N | JSR 0x253f6 00026316 50 4f |PO | ADDQ.L #0x8,A7 00026318 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 0002631e 50 4f |PO | ADDQ.L #0x8,A7 00026320 2c 1f |, | MOVE.L (A7)+,D6 00026322 20 52 | R | MOVEA.L (A2),A0 00026324 20 05 | | MOVE.L D5,D0 00026326 d0 86 | | ADD.L D6,D0 00026328 53 80 |S | SUBQ.L #0x1,D0 0002632a 32 10 |2 | MOVE.W (A0),D1 0002632c 48 c1 |H | EXTW.L D1 0002632e b0 81 | | CMP.L D1,D0 00026330 6f 06 |o | BLE 0x26338 00026332 52 81 |R | ADDQ.L #0x1,D1 00026334 92 85 | | SUB.L D5,D1 00026336 2c 01 |, | MOVE.L D1,D6 00026338 2f 06 |/ | MOVE.L D6,-(A7) 0002633a 7e 01 |~ | MOVEQ.L #0x01,D7 0002633c be 97 | | CMP.L (A7),D7 0002633e 6e 26 |n& | BGT 0x26366 00026340 20 53 | S | MOVEA.L (A3),A0 00026342 20 07 | | MOVE.L D7,D0 00026344 53 80 |S | SUBQ.L #0x1,D0 00026346 b0 82 | | CMP.L D2,D0 00026348 63 02 |c | BLS 0x2634c 0002634a 4e 4f |NO | TRAP #15 0002634c 22 52 |"R | MOVEA.L (A2),A1 0002634e 22 07 |" | MOVE.L D7,D1 00026350 d2 85 | | ADD.L D5,D1 00026352 53 81 |S | SUBQ.L #0x1,D1 00026354 53 81 |S | SUBQ.L #0x1,D1 00026356 b2 82 | | CMP.L D2,D1 00026358 63 02 |c | BLS 0x2635c 0002635a 4e 4f |NO | TRAP #15 0002635c 11 b1 18 02 08 02 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2) 00026362 52 87 |R | ADDQ.L #0x1,D7 00026364 68 d6 |h | BVC 0x2633c 00026366 58 4f |XO | ADDQ.L #0x4,A7 00026368 20 53 | S | MOVEA.L (A3),A0 0002636a 04 86 ff ff 80 00 | | SUBI.L #0xffff8000,D6 00026370 0c 86 00 00 ff ff | | CMPI.L #0x0000ffff,D6 00026376 63 02 |c | BLS 0x2637a 00026378 4e 4f |NO | TRAP #15 0002637a 06 86 ff ff 80 00 | | ADDI.L #0xffff8000,D6 00026380 30 86 |0 | MOVE.W D6,(A0) 00026382 2f 13 |/ | MOVE.L (A3),-(A7) 00026384 4e ba f0 e0 |N | JSR 0x25466 00026388 58 4f |XO | ADDQ.L #0x4,A7 0002638a 48 52 |HR | PEA.L (A2) 0002638c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00026392 58 4f |XO | ADDQ.L #0x4,A7 00026394 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00026398 4e 5e |N^ | UNLK A6 0002639a 4e 75 |Nu | RTS 0002639c ; -------------------------------------------------------------------------------------- 0002639c ; OMSI PASCAL Function 0002639c ; <LVAR 0x008 4(r)> 0002639c ; -------------------------------------------------------------------------------------- 0002639c 4e 56 ff ec |NV | LINK.W A6,#0xffec 000263a0 bf d5 | | CMPA.L (A5),A7 000263a2 62 06 |b | BHI 0x263aa 000263a4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000263a8 4e 76 |Nv | TRAPV 000263aa de fc 00 14 | | ADDA.W #0x14,A7 000263ae 51 4f |QO | SUBQ.L #0x8,A7 000263b0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000263b4 48 78 00 01 |Hx | PEA.L 0x1 000263b8 4e ba f0 3c |N < | JSR 0x253f6 000263bc 50 4f |PO | ADDQ.L #0x8,A7 000263be 4e ba ee 70 |N p | JSR 0x25230 000263c2 50 4f |PO | ADDQ.L #0x8,A7 000263c4 4e 5e |N^ | UNLK A6 000263c6 4e 75 |Nu | RTS 000263c8 ; -------------------------------------------------------------------------------------- 000263c8 ; OMSI PASCAL Function 000263c8 ; <LVAR 0x008 4(r)> 000263c8 ; -------------------------------------------------------------------------------------- 000263c8 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 000263cc bf d5 | | CMPA.L (A5),A7 000263ce 62 06 |b | BHI 0x263d6 000263d0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000263d4 4e 76 |Nv | TRAPV 000263d6 de fc 00 1e | | ADDA.W #0x1e,A7 000263da 9e fc 00 0a | | SUBA.W #0xa,A7 000263de 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000263e2 48 78 00 01 |Hx | PEA.L 0x1 000263e6 4e ba f0 0e |N | JSR 0x253f6 000263ea 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000263ee 48 78 00 02 |Hx | PEA.L 0x2 000263f2 4e ba f0 02 |N | JSR 0x253f6 000263f6 50 4f |PO | ADDQ.L #0x8,A7 000263f8 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 000263fe de fc 00 10 | | ADDA.W #0x10,A7 00026402 4a 1f |J | TST.B (A7)+ 00026404 67 06 |g | BEQ 0x2640c 00026406 4e ba ea 7c |N | | JSR 0x24e84 0002640a 60 04 |` | BRA 0x26410 0002640c 4e ba ea bc |N | JSR 0x24eca 00026410 4e 5e |N^ | UNLK A6 00026412 4e 75 |Nu | RTS 00026414 ; -------------------------------------------------------------------------------------- 00026414 ; OMSI PASCAL Function 00026414 ; <LVAR 0x008 4(r)> 00026414 ; -------------------------------------------------------------------------------------- 00026414 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00026418 bf d5 | | CMPA.L (A5),A7 0002641a 62 06 |b | BHI 0x26422 0002641c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026420 4e 76 |Nv | TRAPV 00026422 de fc 00 1e | | ADDA.W #0x1e,A7 00026426 9e fc 00 0a | | SUBA.W #0xa,A7 0002642a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002642e 48 78 00 01 |Hx | PEA.L 0x1 00026432 4e ba ef c2 |N | JSR 0x253f6 00026436 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002643a 48 78 00 02 |Hx | PEA.L 0x2 0002643e 4e ba ef b6 |N | JSR 0x253f6 00026442 50 4f |PO | ADDQ.L #0x8,A7 00026444 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 0002644a de fc 00 10 | | ADDA.W #0x10,A7 0002644e 4a 1f |J | TST.B (A7)+ 00026450 66 06 |f | BNE 0x26458 00026452 4e ba ea 30 |N 0 | JSR 0x24e84 00026456 60 04 |` | BRA 0x2645c 00026458 4e ba ea 70 |N p | JSR 0x24eca 0002645c 4e 5e |N^ | UNLK A6 0002645e 4e 75 |Nu | RTS 00026460 ; -------------------------------------------------------------------------------------- 00026460 ; OMSI PASCAL Function 00026460 ; <LVAR 0x008 4(r)> 00026460 ; -------------------------------------------------------------------------------------- 00026460 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00026464 bf d5 | | CMPA.L (A5),A7 00026466 62 06 |b | BHI 0x2646e 00026468 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002646c 4e 76 |Nv | TRAPV 0002646e de fc 00 1e | | ADDA.W #0x1e,A7 00026472 9e fc 00 0a | | SUBA.W #0xa,A7 00026476 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002647a 48 78 00 01 |Hx | PEA.L 0x1 0002647e 4e ba ef 76 |N v | JSR 0x253f6 00026482 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026486 48 78 00 02 |Hx | PEA.L 0x2 0002648a 4e ba ef 6a |N j | JSR 0x253f6 0002648e 50 4f |PO | ADDQ.L #0x8,A7 00026490 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 00026496 de fc 00 10 | | ADDA.W #0x10,A7 0002649a 4a 1f |J | TST.B (A7)+ 0002649c 67 06 |g | BEQ 0x264a4 0002649e 4e ba e9 e4 |N | JSR 0x24e84 000264a2 60 04 |` | BRA 0x264a8 000264a4 4e ba ea 24 |N $ | JSR 0x24eca 000264a8 4e 5e |N^ | UNLK A6 000264aa 4e 75 |Nu | RTS 000264ac ; -------------------------------------------------------------------------------------- 000264ac ; OMSI PASCAL Function 000264ac ; <LVAR 0x008 4(r)> 000264ac ; -------------------------------------------------------------------------------------- 000264ac 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 000264b0 bf d5 | | CMPA.L (A5),A7 000264b2 62 06 |b | BHI 0x264ba 000264b4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000264b8 4e 76 |Nv | TRAPV 000264ba de fc 00 1e | | ADDA.W #0x1e,A7 000264be 9e fc 00 0a | | SUBA.W #0xa,A7 000264c2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000264c6 48 78 00 01 |Hx | PEA.L 0x1 000264ca 4e ba ef 2a |N * | JSR 0x253f6 000264ce 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000264d2 48 78 00 02 |Hx | PEA.L 0x2 000264d6 4e ba ef 1e |N | JSR 0x253f6 000264da 50 4f |PO | ADDQ.L #0x8,A7 000264dc 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 000264e2 de fc 00 10 | | ADDA.W #0x10,A7 000264e6 4a 1f |J | TST.B (A7)+ 000264e8 67 06 |g | BEQ 0x264f0 000264ea 4e ba e9 98 |N | JSR 0x24e84 000264ee 60 04 |` | BRA 0x264f4 000264f0 4e ba e9 d8 |N | JSR 0x24eca 000264f4 4e 5e |N^ | UNLK A6 000264f6 4e 75 |Nu | RTS 000264f8 ; -------------------------------------------------------------------------------------- 000264f8 ; OMSI PASCAL Function 000264f8 ; <LVAR 0x008 4(r)> 000264f8 ; -------------------------------------------------------------------------------------- 000264f8 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 000264fc bf d5 | | CMPA.L (A5),A7 000264fe 62 06 |b | BHI 0x26506 00026500 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026504 4e 76 |Nv | TRAPV 00026506 de fc 00 1e | | ADDA.W #0x1e,A7 0002650a 9e fc 00 0a | | SUBA.W #0xa,A7 0002650e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026512 48 78 00 01 |Hx | PEA.L 0x1 00026516 4e ba ee de |N | JSR 0x253f6 0002651a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002651e 48 78 00 02 |Hx | PEA.L 0x2 00026522 4e ba ee d2 |N | JSR 0x253f6 00026526 50 4f |PO | ADDQ.L #0x8,A7 00026528 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 0002652e de fc 00 10 | | ADDA.W #0x10,A7 00026532 4a 1f |J | TST.B (A7)+ 00026534 66 06 |f | BNE 0x2653c 00026536 4e ba e9 4c |N L | JSR 0x24e84 0002653a 60 04 |` | BRA 0x26540 0002653c 4e ba e9 8c |N | JSR 0x24eca 00026540 4e 5e |N^ | UNLK A6 00026542 4e 75 |Nu | RTS 00026544 ; -------------------------------------------------------------------------------------- 00026544 ; OMSI PASCAL Function 00026544 ; <LVAR 0x008 4(r)> 00026544 ; -------------------------------------------------------------------------------------- 00026544 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00026548 bf d5 | | CMPA.L (A5),A7 0002654a 62 06 |b | BHI 0x26552 0002654c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026550 4e 76 |Nv | TRAPV 00026552 de fc 00 1e | | ADDA.W #0x1e,A7 00026556 9e fc 00 0a | | SUBA.W #0xa,A7 0002655a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002655e 48 78 00 01 |Hx | PEA.L 0x1 00026562 4e ba ee 92 |N | JSR 0x253f6 00026566 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002656a 48 78 00 02 |Hx | PEA.L 0x2 0002656e 4e ba ee 86 |N | JSR 0x253f6 00026572 50 4f |PO | ADDQ.L #0x8,A7 00026574 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 0002657a de fc 00 10 | | ADDA.W #0x10,A7 0002657e 4a 1f |J | TST.B (A7)+ 00026580 66 06 |f | BNE 0x26588 00026582 4e ba e9 00 |N | JSR 0x24e84 00026586 60 04 |` | BRA 0x2658c 00026588 4e ba e9 40 |N @ | JSR 0x24eca 0002658c 4e 5e |N^ | UNLK A6 0002658e 4e 75 |Nu | RTS 00026590 ; -------------------------------------------------------------------------------------- 00026590 ; OMSI PASCAL Function 00026590 ; <LVAR 0x008 4(r)> 00026590 ; -------------------------------------------------------------------------------------- 00026590 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00026594 bf d5 | | CMPA.L (A5),A7 00026596 62 06 |b | BHI 0x2659e 00026598 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002659c 4e 76 |Nv | TRAPV 0002659e de fc 00 28 | ( | ADDA.W #0x28,A7 000265a2 48 e7 80 00 |H | MOVEM.L D0,-(A7) 000265a6 70 10 |p | MOVEQ.L #0x10,D0 000265a8 9e c0 | | SUBA.W D0,A7 000265aa 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000265ae 48 78 00 01 |Hx | PEA.L 0x1 000265b2 4e ba ee 42 |N B | JSR 0x253f6 000265b6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000265ba 48 78 00 02 |Hx | PEA.L 0x2 000265be 4e ba ee 36 |N 6 | JSR 0x253f6 000265c2 50 4f |PO | ADDQ.L #0x8,A7 000265c4 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad 000265ca de c0 | | ADDA.W D0,A7 000265cc 4e ba ef 20 |N | JSR 0x254ee 000265d0 50 4f |PO | ADDQ.L #0x8,A7 000265d2 4c df 00 01 |L | MOVEM.L (A7)+,D0 000265d6 4e 5e |N^ | UNLK A6 000265d8 4e 75 |Nu | RTS 000265da ; -------------------------------------------------------------------------------------- 000265da ; OMSI PASCAL Function 000265da ; <LVAR 0x008 4(r)> 000265da ; -------------------------------------------------------------------------------------- 000265da 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000265de bf d5 | | CMPA.L (A5),A7 000265e0 62 06 |b | BHI 0x265e8 000265e2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000265e6 4e 76 |Nv | TRAPV 000265e8 de fc 00 28 | ( | ADDA.W #0x28,A7 000265ec 48 e7 80 00 |H | MOVEM.L D0,-(A7) 000265f0 70 10 |p | MOVEQ.L #0x10,D0 000265f2 9e c0 | | SUBA.W D0,A7 000265f4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000265f8 48 78 00 01 |Hx | PEA.L 0x1 000265fc 4e ba ed f8 |N | JSR 0x253f6 00026600 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026604 48 78 00 02 |Hx | PEA.L 0x2 00026608 4e ba ed ec |N | JSR 0x253f6 0002660c 50 4f |PO | ADDQ.L #0x8,A7 0002660e 4e b9 00 01 03 18 |N | JSR Subtract(a, b : Quad) : Quad 00026614 de c0 | | ADDA.W D0,A7 00026616 4e ba ee d6 |N | JSR 0x254ee 0002661a 50 4f |PO | ADDQ.L #0x8,A7 0002661c 4c df 00 01 |L | MOVEM.L (A7)+,D0 00026620 4e 5e |N^ | UNLK A6 00026622 4e 75 |Nu | RTS 00026624 ; -------------------------------------------------------------------------------------- 00026624 ; OMSI PASCAL Function 00026624 ; <LVAR 0x008 4(r)> 00026624 ; -------------------------------------------------------------------------------------- 00026624 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00026628 bf d5 | | CMPA.L (A5),A7 0002662a 62 06 |b | BHI 0x26632 0002662c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026630 4e 76 |Nv | TRAPV 00026632 de fc 00 28 | ( | ADDA.W #0x28,A7 00026636 48 e7 80 00 |H | MOVEM.L D0,-(A7) 0002663a 70 10 |p | MOVEQ.L #0x10,D0 0002663c 9e c0 | | SUBA.W D0,A7 0002663e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026642 48 78 00 01 |Hx | PEA.L 0x1 00026646 4e ba ed ae |N | JSR 0x253f6 0002664a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002664e 48 78 00 02 |Hx | PEA.L 0x2 00026652 4e ba ed a2 |N | JSR 0x253f6 00026656 50 4f |PO | ADDQ.L #0x8,A7 00026658 4e b9 00 01 03 1c |N | JSR Multiply(a, b : Quad) : Quad 0002665e de c0 | | ADDA.W D0,A7 00026660 4e ba ee 8c |N | JSR 0x254ee 00026664 50 4f |PO | ADDQ.L #0x8,A7 00026666 4c df 00 01 |L | MOVEM.L (A7)+,D0 0002666a 4e 5e |N^ | UNLK A6 0002666c 4e 75 |Nu | RTS 0002666e ; -------------------------------------------------------------------------------------- 0002666e ; OMSI PASCAL Function 0002666e ; <LVAR 0x008 4(r)> 0002666e ; -------------------------------------------------------------------------------------- 0002666e 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00026672 bf d5 | | CMPA.L (A5),A7 00026674 62 06 |b | BHI 0x2667c 00026676 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002667a 4e 76 |Nv | TRAPV 0002667c de fc 00 28 | ( | ADDA.W #0x28,A7 00026680 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00026684 70 10 |p | MOVEQ.L #0x10,D0 00026686 9e c0 | | SUBA.W D0,A7 00026688 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002668c 48 78 00 01 |Hx | PEA.L 0x1 00026690 4e ba ed 64 |N d | JSR 0x253f6 00026694 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026698 48 78 00 02 |Hx | PEA.L 0x2 0002669c 4e ba ed 58 |N X | JSR 0x253f6 000266a0 50 4f |PO | ADDQ.L #0x8,A7 000266a2 4e b9 00 01 03 20 |N | JSR Divide(a, b : Quad) : Quad 000266a8 de c0 | | ADDA.W D0,A7 000266aa 4e ba ee 42 |N B | JSR 0x254ee 000266ae 50 4f |PO | ADDQ.L #0x8,A7 000266b0 4c df 00 01 |L | MOVEM.L (A7)+,D0 000266b4 4e 5e |N^ | UNLK A6 000266b6 4e 75 |Nu | RTS 000266b8 ; -------------------------------------------------------------------------------------- 000266b8 ; OMSI PASCAL Function 000266b8 ; <LVAR 0x008 4(r)> 000266b8 ; -------------------------------------------------------------------------------------- 000266b8 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000266bc bf d5 | | CMPA.L (A5),A7 000266be 62 06 |b | BHI 0x266c6 000266c0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000266c4 4e 76 |Nv | TRAPV 000266c6 de fc 00 28 | ( | ADDA.W #0x28,A7 000266ca 48 e7 80 00 |H | MOVEM.L D0,-(A7) 000266ce 70 10 |p | MOVEQ.L #0x10,D0 000266d0 9e c0 | | SUBA.W D0,A7 000266d2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000266d6 48 78 00 01 |Hx | PEA.L 0x1 000266da 4e ba ed 1a |N | JSR 0x253f6 000266de 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000266e2 48 78 00 02 |Hx | PEA.L 0x2 000266e6 4e ba ed 0e |N | JSR 0x253f6 000266ea 50 4f |PO | ADDQ.L #0x8,A7 000266ec 4e b9 00 01 03 58 |N X | JSR Modulus(a, b : Quad) : Quad 000266f2 de c0 | | ADDA.W D0,A7 000266f4 4e ba ed f8 |N | JSR 0x254ee 000266f8 50 4f |PO | ADDQ.L #0x8,A7 000266fa 4c df 00 01 |L | MOVEM.L (A7)+,D0 000266fe 4e 5e |N^ | UNLK A6 00026700 4e 75 |Nu | RTS 00026702 ; -------------------------------------------------------------------------------------- 00026702 ; OMSI PASCAL Function 00026702 ; <LVAR 0x008 4(r)> 00026702 ; -------------------------------------------------------------------------------------- 00026702 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00026706 bf d5 | | CMPA.L (A5),A7 00026708 62 06 |b | BHI 0x26710 0002670a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002670e 4e 76 |Nv | TRAPV 00026710 de fc 00 28 | ( | ADDA.W #0x28,A7 00026714 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00026718 70 10 |p | MOVEQ.L #0x10,D0 0002671a 9e c0 | | SUBA.W D0,A7 0002671c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026720 48 78 00 01 |Hx | PEA.L 0x1 00026724 4e ba ec d0 |N | JSR 0x253f6 00026728 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002672c 48 78 00 02 |Hx | PEA.L 0x2 00026730 4e ba ec c4 |N | JSR 0x253f6 00026734 50 4f |PO | ADDQ.L #0x8,A7 00026736 4e b9 00 01 03 34 |N 4 | JSR BitOr(a, b : Quad) : Quad 0002673c de c0 | | ADDA.W D0,A7 0002673e 4e ba ed ae |N | JSR 0x254ee 00026742 50 4f |PO | ADDQ.L #0x8,A7 00026744 4c df 00 01 |L | MOVEM.L (A7)+,D0 00026748 4e 5e |N^ | UNLK A6 0002674a 4e 75 |Nu | RTS 0002674c ; -------------------------------------------------------------------------------------- 0002674c ; OMSI PASCAL Function 0002674c ; <LVAR 0x008 4(r)> 0002674c ; -------------------------------------------------------------------------------------- 0002674c 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00026750 bf d5 | | CMPA.L (A5),A7 00026752 62 06 |b | BHI 0x2675a 00026754 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026758 4e 76 |Nv | TRAPV 0002675a de fc 00 28 | ( | ADDA.W #0x28,A7 0002675e 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00026762 70 10 |p | MOVEQ.L #0x10,D0 00026764 9e c0 | | SUBA.W D0,A7 00026766 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002676a 48 78 00 01 |Hx | PEA.L 0x1 0002676e 4e ba ec 86 |N | JSR 0x253f6 00026772 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026776 48 78 00 02 |Hx | PEA.L 0x2 0002677a 4e ba ec 7a |N z | JSR 0x253f6 0002677e 50 4f |PO | ADDQ.L #0x8,A7 00026780 4e b9 00 01 03 30 |N 0 | JSR BitAnd(a, b : Quad) : Quad 00026786 de c0 | | ADDA.W D0,A7 00026788 4e ba ed 64 |N d | JSR 0x254ee 0002678c 50 4f |PO | ADDQ.L #0x8,A7 0002678e 4c df 00 01 |L | MOVEM.L (A7)+,D0 00026792 4e 5e |N^ | UNLK A6 00026794 4e 75 |Nu | RTS 00026796 ; -------------------------------------------------------------------------------------- 00026796 ; OMSI PASCAL Function 00026796 ; <LVAR 0x008 4(r)> 00026796 ; -------------------------------------------------------------------------------------- 00026796 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 0002679a bf d5 | | CMPA.L (A5),A7 0002679c 62 06 |b | BHI 0x267a4 0002679e 44 fc 00 02 |D | MOVE.W #0x2,CCR 000267a2 4e 76 |Nv | TRAPV 000267a4 de fc 00 28 | ( | ADDA.W #0x28,A7 000267a8 48 e7 80 00 |H | MOVEM.L D0,-(A7) 000267ac 70 10 |p | MOVEQ.L #0x10,D0 000267ae 9e c0 | | SUBA.W D0,A7 000267b0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000267b4 48 78 00 01 |Hx | PEA.L 0x1 000267b8 4e ba ec 3c |N < | JSR 0x253f6 000267bc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000267c0 48 78 00 02 |Hx | PEA.L 0x2 000267c4 4e ba ec 30 |N 0 | JSR 0x253f6 000267c8 50 4f |PO | ADDQ.L #0x8,A7 000267ca 4e b9 00 01 03 40 |N @ | JSR BitXor(a, b : Quad) : Quad 000267d0 de c0 | | ADDA.W D0,A7 000267d2 4e ba ed 1a |N | JSR 0x254ee 000267d6 50 4f |PO | ADDQ.L #0x8,A7 000267d8 4c df 00 01 |L | MOVEM.L (A7)+,D0 000267dc 4e 5e |N^ | UNLK A6 000267de 4e 75 |Nu | RTS 000267e0 ; -------------------------------------------------------------------------------------- 000267e0 ; OMSI PASCAL Function 000267e0 ; <LVAR 0x008 4(r)> 000267e0 ; -------------------------------------------------------------------------------------- 000267e0 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 000267e4 bf d5 | | CMPA.L (A5),A7 000267e6 62 06 |b | BHI 0x267ee 000267e8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000267ec 4e 76 |Nv | TRAPV 000267ee de fc 00 20 | | ADDA.W #0x20,A7 000267f2 9e fc 00 10 | | SUBA.W #0x10,A7 000267f6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000267fa 48 78 00 01 |Hx | PEA.L 0x1 000267fe 4e ba eb f6 |N | JSR 0x253f6 00026802 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00026806 48 78 00 02 |Hx | PEA.L 0x2 0002680a 4e ba ec 26 |N & | JSR 0x25432 0002680e 50 4f |PO | ADDQ.L #0x8,A7 00026810 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00026816 de fc 00 0c | | ADDA.W #0xc,A7 0002681a 4e ba ec d2 |N | JSR 0x254ee 0002681e 50 4f |PO | ADDQ.L #0x8,A7 00026820 4e 5e |N^ | UNLK A6 00026822 4e 75 |Nu | RTS 00026824 ; -------------------------------------------------------------------------------------- 00026824 ; OMSI PASCAL Function 00026824 ; <LVAR 0x008 4(r)> 00026824 ; -------------------------------------------------------------------------------------- 00026824 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00026828 bf d5 | | CMPA.L (A5),A7 0002682a 62 06 |b | BHI 0x26832 0002682c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026830 4e 76 |Nv | TRAPV 00026832 de fc 00 20 | | ADDA.W #0x20,A7 00026836 9e fc 00 10 | | SUBA.W #0x10,A7 0002683a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002683e 48 78 00 01 |Hx | PEA.L 0x1 00026842 4e ba eb b2 |N | JSR 0x253f6 00026846 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 0002684a 48 78 00 02 |Hx | PEA.L 0x2 0002684e 4e ba eb e2 |N | JSR 0x25432 00026852 50 4f |PO | ADDQ.L #0x8,A7 00026854 44 97 |D | NEG.L (A7) 00026856 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 0002685c de fc 00 0c | | ADDA.W #0xc,A7 00026860 4e ba ec 8c |N | JSR 0x254ee 00026864 50 4f |PO | ADDQ.L #0x8,A7 00026866 4e 5e |N^ | UNLK A6 00026868 4e 75 |Nu | RTS 0002686a ; -------------------------------------------------------------------------------------- 0002686a ; OMSI PASCAL Function 0002686a ; <LVAR 0x008 4(r)> 0002686a ; -------------------------------------------------------------------------------------- 0002686a 4e 56 ff e4 |NV | LINK.W A6,#0xffe4 0002686e bf d5 | | CMPA.L (A5),A7 00026870 62 06 |b | BHI 0x26878 00026872 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026876 4e 76 |Nv | TRAPV 00026878 de fc 00 1c | | ADDA.W #0x1c,A7 0002687c 9e fc 00 10 | | SUBA.W #0x10,A7 00026880 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026884 48 78 00 01 |Hx | PEA.L 0x1 00026888 4e ba eb 6c |N l | JSR 0x253f6 0002688c 50 4f |PO | ADDQ.L #0x8,A7 0002688e 4e b9 00 01 03 38 |N 8 | JSR BitNot(a : Quad) : Quad 00026894 50 4f |PO | ADDQ.L #0x8,A7 00026896 4e ba ec 56 |N V | JSR 0x254ee 0002689a 50 4f |PO | ADDQ.L #0x8,A7 0002689c 4e 5e |N^ | UNLK A6 0002689e 4e 75 |Nu | RTS 000268a0 ; -------------------------------------------------------------------------------------- 000268a0 ; OMSI PASCAL Function 000268a0 ; <LVAR 0x008 4(r)> 000268a0 ; <LVAR -0x00c 4(rw)> 000268a0 ; <LVAR -0x010 4(rw)> 000268a0 ; <LVAR -0x014 4(rw)> 000268a0 ; <LVAR -0x018 4(rw)> 000268a0 ; -------------------------------------------------------------------------------------- 000268a0 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 000268a4 bf d5 | | CMPA.L (A5),A7 000268a6 62 06 |b | BHI 0x268ae 000268a8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000268ac 4e 76 |Nv | TRAPV 000268ae de fc 00 30 | 0 | ADDA.W #0x30,A7 000268b2 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 000268b6 41 ee 00 08 |A | LEA.L (A6+0x8),A0 000268ba 51 4f |QO | SUBQ.L #0x8,A7 000268bc 2f 10 |/ | MOVE.L (A0),-(A7) 000268be 48 78 00 01 |Hx | PEA.L 0x1 000268c2 4e ba eb 32 |N 2 | JSR 0x253f6 000268c6 50 4f |PO | ADDQ.L #0x8,A7 000268c8 2d 5f ff e8 |-_ | MOVE.L (A7)+,(A6-0x18) 000268cc 2d 57 ff ec |-W | MOVE.L (A7),(A6-0x14) 000268d0 59 4f |YO | SUBQ.L #0x4,A7 000268d2 2f 10 |/ | MOVE.L (A0),-(A7) 000268d4 48 78 00 02 |Hx | PEA.L 0x2 000268d8 4e ba eb 1c |N | JSR 0x253f6 000268dc 50 4f |PO | ADDQ.L #0x8,A7 000268de 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 000268e2 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 000268e6 2f 10 |/ | MOVE.L (A0),-(A7) 000268e8 48 78 00 03 |Hx | PEA.L 0x3 000268ec 4e ba eb 44 |N D | JSR 0x25432 000268f0 50 4f |PO | ADDQ.L #0x8,A7 000268f2 2e 17 |. | MOVE.L (A7),D7 000268f4 2f 10 |/ | MOVE.L (A0),-(A7) 000268f6 48 78 00 04 |Hx | PEA.L 0x4 000268fa 4e ba eb 36 |N 6 | JSR 0x25432 000268fe 50 4f |PO | ADDQ.L #0x8,A7 00026900 2c 17 |, | MOVE.L (A7),D6 00026902 59 4f |YO | SUBQ.L #0x4,A7 00026904 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00026908 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 0002690c 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00026910 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00026914 2f 07 |/ | MOVE.L D7,-(A7) 00026916 2f 06 |/ | MOVE.L D6,-(A7) 00026918 4e b9 00 01 03 48 |N H | JSR ?BitField_something_() 0002691e de fc 00 18 | | ADDA.W #0x18,A7 00026922 4e ba eb ca |N | JSR 0x254ee 00026926 50 4f |PO | ADDQ.L #0x8,A7 00026928 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 0002692c 4e 5e |N^ | UNLK A6 0002692e 4e 75 |Nu | RTS 00026930 ; -------------------------------------------------------------------------------------- 00026930 ; OMSI PASCAL Function 00026930 ; <LVAR 0x008 4(r)> 00026930 ; <LVAR -0x00c 4(rw)> 00026930 ; <LVAR -0x010 4(rw)> 00026930 ; -------------------------------------------------------------------------------------- 00026930 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00026934 bf d5 | | CMPA.L (A5),A7 00026936 62 06 |b | BHI 0x2693e 00026938 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002693c 4e 76 |Nv | TRAPV 0002693e de fc 00 28 | ( | ADDA.W #0x28,A7 00026942 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00026946 41 ee 00 08 |A | LEA.L (A6+0x8),A0 0002694a 51 4f |QO | SUBQ.L #0x8,A7 0002694c 2f 10 |/ | MOVE.L (A0),-(A7) 0002694e 48 78 00 01 |Hx | PEA.L 0x1 00026952 4e ba ea a2 |N | JSR 0x253f6 00026956 50 4f |PO | ADDQ.L #0x8,A7 00026958 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 0002695c 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 00026960 2f 10 |/ | MOVE.L (A0),-(A7) 00026962 48 78 00 02 |Hx | PEA.L 0x2 00026966 4e ba ea ca |N | JSR 0x25432 0002696a 50 4f |PO | ADDQ.L #0x8,A7 0002696c 2e 17 |. | MOVE.L (A7),D7 0002696e 2f 10 |/ | MOVE.L (A0),-(A7) 00026970 48 78 00 03 |Hx | PEA.L 0x3 00026974 4e ba ea bc |N | JSR 0x25432 00026978 50 4f |PO | ADDQ.L #0x8,A7 0002697a 2c 17 |, | MOVE.L (A7),D6 0002697c 59 4f |YO | SUBQ.L #0x4,A7 0002697e 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00026982 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00026986 2f 07 |/ | MOVE.L D7,-(A7) 00026988 2f 06 |/ | MOVE.L D6,-(A7) 0002698a 4e b9 00 01 03 4c |N L | JSR FSCALL_1034c 00026990 de fc 00 10 | | ADDA.W #0x10,A7 00026994 4e ba eb 58 |N X | JSR 0x254ee 00026998 50 4f |PO | ADDQ.L #0x8,A7 0002699a 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 0002699e 4e 5e |N^ | UNLK A6 000269a0 4e 75 |Nu | RTS 000269a2 ; -------------------------------------------------------------------------------------- 000269a2 ; OMSI PASCAL Function 000269a2 ; <LVAR 0x008 4(r)> 000269a2 ; -------------------------------------------------------------------------------------- 000269a2 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000269a6 bf d5 | | CMPA.L (A5),A7 000269a8 62 06 |b | BHI 0x269b0 000269aa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000269ae 4e 76 |Nv | TRAPV 000269b0 de fc 00 20 | | ADDA.W #0x20,A7 000269b4 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 000269b8 59 4f |YO | SUBQ.L #0x4,A7 000269ba 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000269be 4e ba e0 e8 |N | JSR 0x24aa8 000269c2 58 4f |XO | ADDQ.L #0x4,A7 000269c4 7e 01 |~ | MOVEQ.L #0x01,D7 000269c6 be 97 | | CMP.L (A7),D7 000269c8 6e 26 |n& | BGT 0x269f0 000269ca 59 4f |YO | SUBQ.L #0x4,A7 000269cc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000269d0 2f 07 |/ | MOVE.L D7,-(A7) 000269d2 4e ba e9 f0 |N | JSR 0x253c4 000269d6 50 4f |PO | ADDQ.L #0x8,A7 000269d8 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000269de 54 4f |TO | ADDQ.L #0x2,A7 000269e0 1e bc 00 20 | | MOVE.B #0x20,(A7) 000269e4 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 000269ea 54 4f |TO | ADDQ.L #0x2,A7 000269ec 52 87 |R | ADDQ.L #0x1,D7 000269ee 68 d6 |h | BVC 0x269c6 000269f0 48 78 00 01 |Hx | PEA.L 0x1 000269f4 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 000269fa 58 4f |XO | ADDQ.L #0x4,A7 000269fc 28 5f |(_ | MOVEA.L (A7)+,A4 000269fe 2f 0c |/ | MOVE.L A4,-(A7) 00026a00 4e ba de f2 |N | JSR 0x248f4 00026a04 2e 8c |. | MOVE.L A4,(A7) 00026a06 4e ba ea 5e |N ^ | JSR 0x25466 00026a0a 58 4f |XO | ADDQ.L #0x4,A7 00026a0c 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 00026a10 4e 5e |N^ | UNLK A6 00026a12 4e 75 |Nu | RTS 00026a14 ; -------------------------------------------------------------------------------------- 00026a14 ; OMSI PASCAL Function 00026a14 ; <LVAR 0x008 4(r)> 00026a14 ; -------------------------------------------------------------------------------------- 00026a14 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00026a18 bf d5 | | CMPA.L (A5),A7 00026a1a 62 06 |b | BHI 0x26a22 00026a1c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026a20 4e 76 |Nv | TRAPV 00026a22 de fc 00 2c | , | ADDA.W #0x2c,A7 00026a26 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 00026a2a 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00026a2e 70 0c |p | MOVEQ.L #0x0c,D0 00026a30 59 4f |YO | SUBQ.L #0x4,A7 00026a32 2f 10 |/ | MOVE.L (A0),-(A7) 00026a34 48 78 00 01 |Hx | PEA.L 0x1 00026a38 4e ba e9 8a |N | JSR 0x253c4 00026a3c 50 4f |PO | ADDQ.L #0x8,A7 00026a3e 28 5f |(_ | MOVEA.L (A7)+,A4 00026a40 9e c0 | | SUBA.W D0,A7 00026a42 2f 10 |/ | MOVE.L (A0),-(A7) 00026a44 48 78 00 02 |Hx | PEA.L 0x2 00026a48 4e ba e9 ac |N | JSR 0x253f6 00026a4c 50 4f |PO | ADDQ.L #0x8,A7 00026a4e 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00026a54 50 4f |PO | ADDQ.L #0x8,A7 00026a56 2e 17 |. | MOVE.L (A7),D7 00026a58 51 4f |QO | SUBQ.L #0x8,A7 00026a5a 2f 10 |/ | MOVE.L (A0),-(A7) 00026a5c 48 78 00 03 |Hx | PEA.L 0x3 00026a60 4e ba e9 94 |N | JSR 0x253f6 00026a64 50 4f |PO | ADDQ.L #0x8,A7 00026a66 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00026a6c 50 4f |PO | ADDQ.L #0x8,A7 00026a6e 2c 17 |, | MOVE.L (A7),D6 00026a70 51 4f |QO | SUBQ.L #0x8,A7 00026a72 2f 0c |/ | MOVE.L A4,-(A7) 00026a74 2f 07 |/ | MOVE.L D7,-(A7) 00026a76 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 00026a7c 58 4f |XO | ADDQ.L #0x4,A7 00026a7e 2e 86 |. | MOVE.L D6,(A7) 00026a80 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00026a86 de c0 | | ADDA.W D0,A7 00026a88 4e ba e9 dc |N | JSR 0x25466 00026a8c 58 4f |XO | ADDQ.L #0x4,A7 00026a8e 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 00026a92 4e 5e |N^ | UNLK A6 00026a94 4e 75 |Nu | RTS 00026a96 ; -------------------------------------------------------------------------------------- 00026a96 ; OMSI PASCAL Function 00026a96 ; <LVAR 0x008 4(r)> 00026a96 ; <LVAR -0x00a 2(r)> 00026a96 ; <LVAR -0x00c 4(rw)> 00026a96 ; <LVAR -0x010 4(rw)> 00026a96 ; -------------------------------------------------------------------------------------- 00026a96 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00026a9a bf d5 | | CMPA.L (A5),A7 00026a9c 62 06 |b | BHI 0x26aa4 00026a9e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026aa2 4e 76 |Nv | TRAPV 00026aa4 de fc 00 34 | 4 | ADDA.W #0x34,A7 00026aa8 48 e7 c3 c0 |H | MOVEM.L A1+A0+D7+D6+D1+D0,-(A7) 00026aac 41 ee ff f0 |A | LEA.L (A6-0x10),A0 00026ab0 43 ee ff f4 |C | LEA.L (A6-0xc),A1 00026ab4 51 4f |QO | SUBQ.L #0x8,A7 00026ab6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026aba 48 78 00 01 |Hx | PEA.L 0x1 00026abe 4e ba e9 36 |N 6 | JSR 0x253f6 00026ac2 50 4f |PO | ADDQ.L #0x8,A7 00026ac4 20 9f | | MOVE.L (A7)+,(A0) 00026ac6 22 9f |" | MOVE.L (A7)+,(A1) 00026ac8 7e 00 |~ | MOVEQ.L #0x00,D7 00026aca 7c 00 || | MOVEQ.L #0x00,D6 00026acc 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 00026ad0 02 40 00 01 | @ | ANDI.W #0x0001,D0 00026ad4 42 81 |B | CLR.L D1 00026ad6 32 00 |2 | MOVE.W D0,D1 00026ad8 de 81 | | ADD.L D1,D7 00026ada 51 4f |QO | SUBQ.L #0x8,A7 00026adc 2f 11 |/ | MOVE.L (A1),-(A7) 00026ade 2f 10 |/ | MOVE.L (A0),-(A7) 00026ae0 48 78 ff ff |Hx | PEA.L 0xffffffff 00026ae4 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00026aea de fc 00 0c | | ADDA.W #0xc,A7 00026aee 20 9f | | MOVE.L (A7)+,(A0) 00026af0 22 9f |" | MOVE.L (A7)+,(A1) 00026af2 52 86 |R | ADDQ.L #0x1,D6 00026af4 0c 86 00 00 00 3f | ? | CMPI.L #0x0000003f,D6 00026afa 6f d0 |o | BLE 0x26acc 00026afc 51 4f |QO | SUBQ.L #0x8,A7 00026afe 2f 07 |/ | MOVE.L D7,-(A7) 00026b00 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 00026b06 58 4f |XO | ADDQ.L #0x4,A7 00026b08 4e ba e9 e4 |N | JSR 0x254ee 00026b0c 50 4f |PO | ADDQ.L #0x8,A7 00026b0e 4c df 03 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1 00026b12 4e 5e |N^ | UNLK A6 00026b14 4e 75 |Nu | RTS 00026b16 ; -------------------------------------------------------------------------------------- 00026b16 ; OMSI PASCAL Function 00026b16 ; <LVAR 0x008 4(r)> 00026b16 ; <LVAR -0x004 @ 1(r)> 00026b16 ; -------------------------------------------------------------------------------------- 00026b16 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00026b1a bf d5 | | CMPA.L (A5),A7 00026b1c 62 06 |b | BHI 0x26b24 00026b1e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026b22 4e 76 |Nv | TRAPV 00026b24 de fc 00 44 | D | ADDA.W #0x44,A7 00026b28 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7) 00026b2c 45 f9 00 03 d2 28 |E ( | LEA.L 0x3d228,A2 00026b32 72 01 |r | MOVEQ.L #0x01,D1 00026b34 74 00 |t | MOVEQ.L #0x00,D2 00026b36 4a 12 |J | TST.B (A2) 00026b38 66 32 |f2 | BNE 0x26b6c 00026b3a 9e fc 00 1c | | SUBA.W #0x1c,A7 00026b3e 20 4f | O | MOVEA.L A7,A0 00026b40 43 fa d7 b4 |C | LEA.L 0x242f6,A1 00026b44 70 1a |p | MOVEQ.L #0x1a,D0 00026b46 10 d9 | | MOVE.B (A1)+,(A0)+ 00026b48 51 c8 ff fc |Q | DBF D0,0x26b46 00026b4c 59 4f |YO | SUBQ.L #0x4,A7 00026b4e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00026b52 3f 01 |? | MOVE.W D1,-(A7) 00026b54 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00026b58 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00026b5e 50 4f |PO | ADDQ.L #0x8,A7 00026b60 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00026b66 de fc 00 20 | | ADDA.W #0x20,A7 00026b6a 14 81 | | MOVE.B D1,(A2) 00026b6c 5d 4f |]O | SUBQ.L #0x6,A7 00026b6e 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 00026b74 20 1f | | MOVE.L (A7)+,D0 00026b76 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00026b7c 63 02 |c | BLS 0x26b80 00026b7e 4e 4f |NO | TRAP #15 00026b80 3e 80 |> | MOVE.W D0,(A7) 00026b82 48 6e ff fc |Hn | PEA.L (A6-0x4) 00026b86 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00026b8c 5c 4f |\O | ADDQ.L #0x6,A7 00026b8e 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00026b92 b0 01 | | CMP.B D1,D0 00026b94 67 16 |g | BEQ 0x26bac 00026b96 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026b9a 4e ba da be |N | JSR 0x2465a 00026b9e 58 4f |XO | ADDQ.L #0x4,A7 00026ba0 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00026ba4 3c 42 |<B | MOVEA.W D2,A6 00026ba6 4e f9 00 02 7f 3e |N > | JMP 0x27f3e 00026bac 55 4f |UO | SUBQ.L #0x2,A7 00026bae 4e b9 00 01 03 d4 |N | JSR ReadChar() : Byte 00026bb4 10 1f | | MOVE.B (A7)+,D0 00026bb6 0c 00 00 07 | | CMPI.B #0x07,D0 00026bba 67 16 |g | BEQ 0x26bd2 00026bbc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026bc0 4e ba da 98 |N | JSR 0x2465a 00026bc4 58 4f |XO | ADDQ.L #0x4,A7 00026bc6 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00026bca 3c 42 |<B | MOVEA.W D2,A6 00026bcc 4e f9 00 02 7f 3e |N > | JMP 0x27f3e 00026bd2 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2 00026bd6 4e 5e |N^ | UNLK A6 00026bd8 4e 75 |Nu | RTS 00026bda ; -------------------------------------------------------------------------------------- 00026bda ; OMSI PASCAL Function 00026bda ; -------------------------------------------------------------------------------------- 00026bda 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 00026bde bf d5 | | CMPA.L (A5),A7 00026be0 62 06 |b | BHI 0x26be8 00026be2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026be6 4e 76 |Nv | TRAPV 00026be8 de fc 00 08 | | ADDA.W #0x8,A7 00026bec 48 78 00 c8 |Hx | PEA.L 0xc8 00026bf0 4e ba e9 30 |N 0 | JSR 0x25522 00026bf4 58 4f |XO | ADDQ.L #0x4,A7 00026bf6 4e 5e |N^ | UNLK A6 00026bf8 4e 75 |Nu | RTS 00026bfa ; -------------------------------------------------------------------------------------- 00026bfa ; OMSI PASCAL Function 00026bfa ; <LVAR 0x008 4(r)> 00026bfa ; <LVAR -0x00c @ 4(r)> 00026bfa ; -------------------------------------------------------------------------------------- 00026bfa 4e 56 ff ac |NV | LINK.W A6,#0xffac 00026bfe bf d5 | | CMPA.L (A5),A7 00026c00 62 06 |b | BHI 0x26c08 00026c02 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026c06 4e 76 |Nv | TRAPV 00026c08 de fc 00 48 | H | ADDA.W #0x48,A7 00026c0c 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00026c10 43 ee ff f4 |C | LEA.L (A6-0xc),A1 00026c14 48 51 |HQ | PEA.L (A1) 00026c16 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00026c1c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026c20 4e ba de 86 |N | JSR 0x24aa8 00026c24 58 4f |XO | ADDQ.L #0x4,A7 00026c26 7e 01 |~ | MOVEQ.L #0x01,D7 00026c28 be 97 | | CMP.L (A7),D7 00026c2a 6e 6a |nj | BGT 0x26c96 00026c2c 59 4f |YO | SUBQ.L #0x4,A7 00026c2e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026c32 2f 07 |/ | MOVE.L D7,-(A7) 00026c34 4e ba e7 fc |N | JSR 0x25432 00026c38 50 4f |PO | ADDQ.L #0x8,A7 00026c3a 2c 1f |, | MOVE.L (A7)+,D6 00026c3c 6d 20 |m | BLT 0x26c5e 00026c3e 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 00026c44 6e 18 |n | BGT 0x26c5e 00026c46 2f 11 |/ | MOVE.L (A1),-(A7) 00026c48 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 00026c4e 63 02 |c | BLS 0x26c52 00026c50 4e 4f |NO | TRAP #15 00026c52 1f 06 | | MOVE.B D6,-(A7) 00026c54 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00026c5a 5c 4f |\O | ADDQ.L #0x6,A7 00026c5c 60 34 |`4 | BRA 0x26c92 00026c5e 48 51 |HQ | PEA.L (A1) 00026c60 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00026c66 58 4f |XO | ADDQ.L #0x4,A7 00026c68 41 fa d6 c4 |A | LEA.L 0x2432e,A0 00026c6c 70 06 |p | MOVEQ.L #0x06,D0 00026c6e 2f 20 |/ | MOVE.L -(A0),-(A7) 00026c70 51 c8 ff fc |Q | DBF D0,0x26c6e 00026c74 59 4f |YO | SUBQ.L #0x4,A7 00026c76 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00026c7a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026c7e 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 00026c82 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00026c88 50 4f |PO | ADDQ.L #0x8,A7 00026c8a 4e ba da 10 |N | JSR 0x2469c 00026c8e de fc 00 20 | | ADDA.W #0x20,A7 00026c92 52 87 |R | ADDQ.L #0x1,D7 00026c94 68 92 |h | BVC 0x26c28 00026c96 2e 91 |. | MOVE.L (A1),(A7) 00026c98 4e ba e7 cc |N | JSR 0x25466 00026c9c 58 4f |XO | ADDQ.L #0x4,A7 00026c9e 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00026ca2 4e 5e |N^ | UNLK A6 00026ca4 4e 75 |Nu | RTS 00026ca6 ; -------------------------------------------------------------------------------------- 00026ca6 ; OMSI PASCAL Function 00026ca6 ; <LVAR 0x00c 1(rw)> 00026ca6 ; <LVAR 0x008 4(r)> 00026ca6 ; -------------------------------------------------------------------------------------- 00026ca6 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 00026caa bf d5 | | CMPA.L (A5),A7 00026cac 62 06 |b | BHI 0x26cb4 00026cae 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026cb2 4e 76 |Nv | TRAPV 00026cb4 de fc 00 34 | 4 | ADDA.W #0x34,A7 00026cb8 48 e7 e7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00026cbc 42 2e 00 0c |B. | CLR.B (A6+0xc) 00026cc0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00026cc4 2f 08 |/ | MOVE.L A0,-(A7) 00026cc6 70 00 |p | MOVEQ.L #0x00,D0 00026cc8 52 40 |R@ | ADDQ.W #0x1,D0 00026cca 1c 00 | | MOVE.B D0,D6 00026ccc 0c 06 00 2b | + | CMPI.B #0x2b,D6 00026cd0 6e 00 00 82 |n | BGT 0x26d54 00026cd4 41 fa d8 b2 |A | LEA.L 0x24588,A0 00026cd8 10 06 | | MOVE.B D6,D0 00026cda 48 80 |H | EXTB.W D0 00026cdc 48 c0 |H | EXTW.L D0 00026cde e2 98 | | ROR.L #0x1,D0 00026ce0 d0 c0 | | ADDA.W D0,A0 00026ce2 48 40 |H@ | SWAP.W D0 00026ce4 e7 58 | X | ROL.W #0x3,D0 00026ce6 42 81 |B | CLR.L D1 00026ce8 12 10 | | MOVE.B (A0),D1 00026cea e1 29 | ) | LSL.B D0,D1 00026cec e8 09 | | LSR.B #0x4,D1 00026cee 2a 01 |* | MOVE.L D1,D5 00026cf0 20 57 | W | MOVEA.L (A7),A0 00026cf2 30 10 |0 | MOVE.W (A0),D0 00026cf4 48 c0 |H | EXTW.L D0 00026cf6 ba 80 | | CMP.L D0,D5 00026cf8 66 54 |fT | BNE 0x26d4e 00026cfa 2f 05 |/ | MOVE.L D5,-(A7) 00026cfc 7e 01 |~ | MOVEQ.L #0x01,D7 00026cfe be 97 | | CMP.L (A7),D7 00026d00 6e 42 |nB | BGT 0x26d44 00026d02 10 06 | | MOVE.B D6,D0 00026d04 48 80 |H | EXTB.W D0 00026d06 c1 fc 00 0a | | MULS.W #0xa,D0 00026d0a 22 07 |" | MOVE.L D7,D1 00026d0c 53 81 |S | SUBQ.L #0x1,D1 00026d0e 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00026d14 63 02 |c | BLS 0x26d18 00026d16 4e 4f |NO | TRAP #15 00026d18 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00026d1c 43 fa d6 b2 |C | LEA.L COMMAND_TABLE_243d0,A1 00026d20 24 07 |$ | MOVE.L D7,D2 00026d22 53 82 |S | SUBQ.L #0x1,D2 00026d24 0c 82 00 00 00 09 | | CMPI.L #0x00000009,D2 00026d2a 63 02 |c | BLS 0x26d2e 00026d2c 4e 4f |NO | TRAP #15 00026d2e 43 f1 00 00 |C | LEA.L (A1+D0.W),A1 00026d32 10 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D0 00026d36 b0 31 28 00 | 1( | CMP.B (A1+D2.L),D0 00026d3a 67 04 |g | BEQ 0x26d40 00026d3c 58 4f |XO | ADDQ.L #0x4,A7 00026d3e 60 0e |` | BRA 0x26d4e 00026d40 52 87 |R | ADDQ.L #0x1,D7 00026d42 68 ba |h | BVC 0x26cfe 00026d44 58 4f |XO | ADDQ.L #0x4,A7 00026d46 1d 46 00 0c | F | MOVE.B D6,(A6+0xc) 00026d4a 58 4f |XO | ADDQ.L #0x4,A7 00026d4c 60 08 |` | BRA 0x26d56 00026d4e 52 06 |R | ADDQ.B #0x1,D6 00026d50 68 00 ff 7a |h z | BVC 0x26ccc 00026d54 58 4f |XO | ADDQ.L #0x4,A7 00026d56 4c df 03 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1 00026d5a 4e 5e |N^ | UNLK A6 00026d5c 4e 75 |Nu | RTS 00026d5e ; -------------------------------------------------------------------------------------- 00026d5e ; OMSI PASCAL Function 00026d5e ; <LVAR 0x00c 4(r)> 00026d5e ; <LVAR 0x008 4(r)> 00026d5e ; <LVAR -0x002 @ 1(r)> 00026d5e ; <LVAR -0x006 @ 4(w)> 00026d5e ; <LVAR -0x008 @ 1(r)> 00026d5e ; <LVAR -0x00c @ 4(r)> 00026d5e ; <LVAR -0x010 @ 4(rw)> 00026d5e ; -------------------------------------------------------------------------------------- 00026d5e 4e 56 ff a6 |NV | LINK.W A6,#0xffa6 00026d62 bf d5 | | CMPA.L (A5),A7 00026d64 62 06 |b | BHI 0x26d6c 00026d66 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026d6a 4e 76 |Nv | TRAPV 00026d6c de fc 00 4a | J | ADDA.W #0x4a,A7 00026d70 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00026d74 45 ee ff f0 |E | LEA.L (A6-0x10),A2 00026d78 47 ee ff fe |G | LEA.L (A6-0x2),A3 00026d7c 49 ee ff f4 |I | LEA.L (A6-0xc),A4 00026d80 72 01 |r | MOVEQ.L #0x01,D1 00026d82 59 4f |YO | SUBQ.L #0x4,A7 00026d84 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00026d88 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00026d8e 58 4f |XO | ADDQ.L #0x4,A7 00026d90 24 9f |$ | MOVE.L (A7)+,(A2) 00026d92 2f 12 |/ | MOVE.L (A2),-(A7) 00026d94 1f 3c 00 2e | < . | MOVE.B #0x2e,-(A7) 00026d98 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00026d9e 5c 4f |\O | ADDQ.L #0x6,A7 00026da0 41 f9 00 03 d2 08 |A | LEA.L 0x3d208,A0 00026da6 70 04 |p | MOVEQ.L #0x04,D0 00026da8 3f 20 |? | MOVE.W -(A0),-(A7) 00026daa 51 c8 ff fc |Q | DBF D0,0x26da8 00026dae 59 4f |YO | SUBQ.L #0x4,A7 00026db0 2f 12 |/ | MOVE.L (A2),-(A7) 00026db2 59 4f |YO | SUBQ.L #0x4,A7 00026db4 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00026db8 3f 01 |? | MOVE.W D1,-(A7) 00026dba 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00026dbe 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00026dc4 50 4f |PO | ADDQ.L #0x8,A7 00026dc6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00026dcc 50 4f |PO | ADDQ.L #0x8,A7 00026dce 24 9f |$ | MOVE.L (A7)+,(A2) 00026dd0 5c 4f |\O | ADDQ.L #0x6,A7 00026dd2 2e 92 |. | MOVE.L (A2),(A7) 00026dd4 42 27 |B' | CLR.B -(A7) 00026dd6 1f 01 | | MOVE.B D1,-(A7) 00026dd8 48 78 00 00 |Hx | PEA.L 0x0 00026ddc 48 53 |HS | PEA.L (A3) 00026dde 48 54 |HT | PEA.L (A4) 00026de0 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00026de6 de fc 00 14 | | ADDA.W #0x14,A7 00026dea 4a 13 |J | TST.B (A3) 00026dec 67 4a |gJ | BEQ 0x26e38 00026dee 48 52 |HR | PEA.L (A2) 00026df0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00026df6 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00026dfa 4e ba d8 5e |N ^ | JSR 0x2465a 00026dfe 9e fc 00 16 | | SUBA.W #0x16,A7 00026e02 20 4f | O | MOVEA.L A7,A0 00026e04 43 fa d5 28 |C ( | LEA.L 0x2432e,A1 00026e08 70 18 |p | MOVEQ.L #0x18,D0 00026e0a 10 d9 | | MOVE.B (A1)+,(A0)+ 00026e0c 51 c8 ff fc |Q | DBF D0,0x26e0a 00026e10 51 4f |QO | SUBQ.L #0x8,A7 00026e12 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00026e16 3f 01 |? | MOVE.W D1,-(A7) 00026e18 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00026e1c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00026e22 58 4f |XO | ADDQ.L #0x4,A7 00026e24 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 00026e28 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00026e2e 50 4f |PO | ADDQ.L #0x8,A7 00026e30 4e ba d8 6a |N j | JSR 0x2469c 00026e34 de fc 00 1e | | ADDA.W #0x1e,A7 00026e38 2d 79 00 03 d1 f6 ff fa |-y | MOVE.L 0x3d1f6,(A6-0x6) 00026e40 2f 14 |/ | MOVE.L (A4),-(A7) 00026e42 48 52 |HR | PEA.L (A2) 00026e44 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00026e48 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 00026e4e de fc 00 0c | | ADDA.W #0xc,A7 00026e52 20 52 | R | MOVEA.L (A2),A0 00026e54 4a 50 |JP | TST.W (A0) 00026e56 67 14 |g | BEQ 0x26e6c 00026e58 2f 12 |/ | MOVE.L (A2),-(A7) 00026e5a 4e ba da 98 |N | JSR 0x248f4 00026e5e 58 4f |XO | ADDQ.L #0x4,A7 00026e60 48 6e ff fa |Hn | PEA.L (A6-0x6) 00026e64 2f 12 |/ | MOVE.L (A2),-(A7) 00026e66 4e ba de 12 |N | JSR 0x24c7a 00026e6a 50 4f |PO | ADDQ.L #0x8,A7 00026e6c 4a 2e ff f8 |J. | TST.B (A6-0x8) 00026e70 67 ce |g | BEQ 0x26e40 00026e72 42 27 |B' | CLR.B -(A7) 00026e74 1f 01 | | MOVE.B D1,-(A7) 00026e76 48 78 00 01 |Hx | PEA.L 0x1 00026e7a 48 53 |HS | PEA.L (A3) 00026e7c 48 54 |HT | PEA.L (A4) 00026e7e 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00026e84 de fc 00 10 | | ADDA.W #0x10,A7 00026e88 48 52 |HR | PEA.L (A2) 00026e8a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00026e90 58 4f |XO | ADDQ.L #0x4,A7 00026e92 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00026e96 4e 5e |N^ | UNLK A6 00026e98 4e 75 |Nu | RTS 00026e9a ; -------------------------------------------------------------------------------------- 00026e9a ; OMSI PASCAL Function 00026e9a ; <LVAR 0x014 1(w)> 00026e9a ; <LVAR 0x00c 4(r)> 00026e9a ; <LVAR 0x008 4(r)> 00026e9a ; -------------------------------------------------------------------------------------- 00026e9a 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 00026e9e bf d5 | | CMPA.L (A5),A7 00026ea0 62 06 |b | BHI 0x26ea8 00026ea2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026ea6 4e 76 |Nv | TRAPV 00026ea8 de fc 00 0c | | ADDA.W #0xc,A7 00026eac 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00026eb0 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00026eb4 d0 ae 00 08 | | ADD.L (A6+0x8),D0 00026eb8 53 80 |S | SUBQ.L #0x1,D0 00026eba 53 80 |S | SUBQ.L #0x1,D0 00026ebc 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00026ec2 63 02 |c | BLS 0x26ec6 00026ec4 4e 4f |NO | TRAP #15 00026ec6 41 f9 00 03 b1 ee |A | LEA.L 0x3b1ee,A0 00026ecc 1d 70 08 08 00 14 | p | MOVE.B (A0+D0.L+#0x8),(A6+0x14) 00026ed2 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00026ed6 4e 5e |N^ | UNLK A6 00026ed8 4e 75 |Nu | RTS 00026eda ; -------------------------------------------------------------------------------------- 00026eda ; OMSI PASCAL Function 00026eda ; <LVAR 0x010 4(w)> 00026eda ; <LVAR 0x00c 4(r)> 00026eda ; <LVAR 0x008 4(r)> 00026eda ; <LVAR -0x004 @ 1(r)> 00026eda ; <LVAR -0x008 @ 4(r)> 00026eda ; -------------------------------------------------------------------------------------- 00026eda 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 00026ede bf d5 | | CMPA.L (A5),A7 00026ee0 62 06 |b | BHI 0x26ee8 00026ee2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026ee6 4e 76 |Nv | TRAPV 00026ee8 de fc 00 34 | 4 | ADDA.W #0x34,A7 00026eec 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00026ef0 59 4f |YO | SUBQ.L #0x4,A7 00026ef2 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00026ef6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026efa 4e ba e4 4c |N L | JSR 0x25348 00026efe 50 4f |PO | ADDQ.L #0x8,A7 00026f00 48 6e ff fc |Hn | PEA.L (A6-0x4) 00026f04 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00026f08 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 00026f0e de fc 00 0c | | ADDA.W #0xc,A7 00026f12 4a 2e ff fc |J. | TST.B (A6-0x4) 00026f16 66 30 |f0 | BNE 0x26f48 00026f18 9e fc 00 18 | | SUBA.W #0x18,A7 00026f1c 20 4f | O | MOVEA.L A7,A0 00026f1e 43 fa d4 28 |C ( | LEA.L 0x24348,A1 00026f22 70 16 |p | MOVEQ.L #0x16,D0 00026f24 10 d9 | | MOVE.B (A1)+,(A0)+ 00026f26 51 c8 ff fc |Q | DBF D0,0x26f24 00026f2a 59 4f |YO | SUBQ.L #0x4,A7 00026f2c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00026f30 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026f34 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00026f38 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00026f3e 50 4f |PO | ADDQ.L #0x8,A7 00026f40 4e ba d7 5a |N Z | JSR 0x2469c 00026f44 de fc 00 1c | | ADDA.W #0x1c,A7 00026f48 2d 6e ff f8 00 10 |-n | MOVE.L (A6-0x8),(A6+0x10) 00026f4e 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00026f52 4e 5e |N^ | UNLK A6 00026f54 4e 75 |Nu | RTS 00026f56 ; -------------------------------------------------------------------------------------- 00026f56 ; OMSI PASCAL Function 00026f56 ; <LVAR 0x014 4(r)> 00026f56 ; <LVAR 0x010 4(r)> 00026f56 ; <LVAR 0x00c 4(r)> 00026f56 ; <LVAR 0x008 4(r)> 00026f56 ; <LVAR -0x00c 4(rw)> 00026f56 ; <LVAR -0x010 4(rw)> 00026f56 ; <LVAR -0x014 4(rw)> 00026f56 ; <LVAR -0x018 4(w)> 00026f56 ; <LVAR -0x020 4(rw)> 00026f56 ; -------------------------------------------------------------------------------------- 00026f56 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 00026f5a bf d5 | | CMPA.L (A5),A7 00026f5c 62 06 |b | BHI 0x26f64 00026f5e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026f62 4e 76 |Nv | TRAPV 00026f64 de fc 00 4e | N | ADDA.W #0x4e,A7 00026f68 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00026f6c 43 ee ff e0 |C | LEA.L (A6-0x20),A1 00026f70 45 ee ff f0 |E | LEA.L (A6-0x10),A2 00026f74 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00026f78 49 ee ff ec |I | LEA.L (A6-0x14),A4 00026f7c 7e 00 |~ | MOVEQ.L #0x00,D7 00026f7e 22 ae 00 14 |" | MOVE.L (A6+0x14),(A1) 00026f82 20 39 00 03 d1 f6 | 9 | MOVE.L 0x3d1f6,D0 00026f88 90 ae 00 14 | | SUB.L (A6+0x14),D0 00026f8c 28 80 |( | MOVE.L D0,(A4) 00026f8e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00026f92 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 00026f96 ba 97 | | CMP.L (A7),D5 00026f98 6e 2c |n, | BGT 0x26fc6 00026f9a 51 4f |QO | SUBQ.L #0x8,A7 00026f9c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026fa0 2f 05 |/ | MOVE.L D5,-(A7) 00026fa2 4e ba e3 42 |N B | JSR 0x252e6 00026fa6 50 4f |PO | ADDQ.L #0x8,A7 00026fa8 24 9f |$ | MOVE.L (A7)+,(A2) 00026faa 26 97 |& | MOVE.L (A7),(A3) 00026fac 2f 13 |/ | MOVE.L (A3),-(A7) 00026fae 2f 12 |/ | MOVE.L (A2),-(A7) 00026fb0 4e ba e2 fc |N | JSR 0x252ae 00026fb4 50 4f |PO | ADDQ.L #0x8,A7 00026fb6 2c 1f |, | MOVE.L (A7)+,D6 00026fb8 de 86 | | ADD.L D6,D7 00026fba ba ae 00 0c | | CMP.L (A6+0xc),D5 00026fbe 6c 02 |l | BGE 0x26fc2 00026fc0 52 87 |R | ADDQ.L #0x1,D7 00026fc2 52 85 |R | ADDQ.L #0x1,D5 00026fc4 68 d0 |h | BVC 0x26f96 00026fc6 58 4f |XO | ADDQ.L #0x4,A7 00026fc8 20 11 | | MOVE.L (A1),D0 00026fca d0 94 | | ADD.L (A4),D0 00026fcc 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 00026fd0 be 94 | | CMP.L (A4),D7 00026fd2 67 0c |g | BEQ 0x26fe0 00026fd4 2f 00 |/ | MOVE.L D0,-(A7) 00026fd6 2f 14 |/ | MOVE.L (A4),-(A7) 00026fd8 9f 97 | | SUB.L D7,(A7) 00026fda 4e ba dc 14 |N | JSR 0x24bf0 00026fde 50 4f |PO | ADDQ.L #0x8,A7 00026fe0 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00026fe4 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 00026fe8 ba 97 | | CMP.L (A7),D5 00026fea 6e 00 00 88 |n | BGT 0x27074 00026fee 51 4f |QO | SUBQ.L #0x8,A7 00026ff0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00026ff4 2f 05 |/ | MOVE.L D5,-(A7) 00026ff6 4e ba e2 ee |N | JSR 0x252e6 00026ffa 50 4f |PO | ADDQ.L #0x8,A7 00026ffc 24 9f |$ | MOVE.L (A7)+,(A2) 00026ffe 26 97 |& | MOVE.L (A7),(A3) 00027000 2f 13 |/ | MOVE.L (A3),-(A7) 00027002 2f 12 |/ | MOVE.L (A2),-(A7) 00027004 4e ba e2 a8 |N | JSR 0x252ae 00027008 50 4f |PO | ADDQ.L #0x8,A7 0002700a 2c 1f |, | MOVE.L (A7)+,D6 0002700c 2f 06 |/ | MOVE.L D6,-(A7) 0002700e 70 01 |p | MOVEQ.L #0x01,D0 00027010 b0 97 | | CMP.L (A7),D0 00027012 6e 30 |n0 | BGT 0x27044 00027014 22 11 |" | MOVE.L (A1),D1 00027016 d2 80 | | ADD.L D0,D1 00027018 53 81 |S | SUBQ.L #0x1,D1 0002701a 53 81 |S | SUBQ.L #0x1,D1 0002701c 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 00027022 63 02 |c | BLS 0x27026 00027024 4e 4f |NO | TRAP #15 00027026 41 f9 00 03 b1 ee |A | LEA.L 0x3b1ee,A0 0002702c 55 4f |UO | SUBQ.L #0x2,A7 0002702e 2f 13 |/ | MOVE.L (A3),-(A7) 00027030 2f 12 |/ | MOVE.L (A2),-(A7) 00027032 2f 00 |/ | MOVE.L D0,-(A7) 00027034 4e ba fe 64 |N d | JSR 0x26e9a 00027038 de fc 00 0c | | ADDA.W #0xc,A7 0002703c 11 9f 18 08 | | MOVE.B (A7)+,(A0+D1.L+#0x8) 00027040 52 80 |R | ADDQ.L #0x1,D0 00027042 68 cc |h | BVC 0x27010 00027044 58 4f |XO | ADDQ.L #0x4,A7 00027046 ba ae 00 0c | | CMP.L (A6+0xc),D5 0002704a 6c 22 |l" | BGE 0x2706e 0002704c 20 11 | | MOVE.L (A1),D0 0002704e d0 86 | | ADD.L D6,D0 00027050 22 00 |" | MOVE.L D0,D1 00027052 53 81 |S | SUBQ.L #0x1,D1 00027054 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1 0002705a 63 02 |c | BLS 0x2705e 0002705c 4e 4f |NO | TRAP #15 0002705e 41 f9 00 03 b1 ee |A | LEA.L 0x3b1ee,A0 00027064 11 bc 00 2c 18 08 | , | MOVE.B #0x2c,(A0+D1.L+#0x8) 0002706a 52 80 |R | ADDQ.L #0x1,D0 0002706c 22 80 |" | MOVE.L D0,(A1) 0002706e 52 85 |R | ADDQ.L #0x1,D5 00027070 68 00 ff 76 |h v | BVC 0x26fe8 00027074 58 4f |XO | ADDQ.L #0x4,A7 00027076 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 0002707a 4e 5e |N^ | UNLK A6 0002707c 4e 75 |Nu | RTS 0002707e ; -------------------------------------------------------------------------------------- 0002707e ; OMSI PASCAL Function 0002707e ; <LVAR 0x018 4(rw)> 0002707e ; <LVAR 0x014 4(r)> 0002707e ; <LVAR 0x010 4(r)> 0002707e ; <LVAR 0x00c 4(r)> 0002707e ; <LVAR 0x008 4(r)> 0002707e ; <LVAR -0x008 4(rw)> 0002707e ; <LVAR -0x00c 4(rw)> 0002707e ; <LVAR -0x018 4(w)> 0002707e ; -------------------------------------------------------------------------------------- 0002707e 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 00027082 bf d5 | | CMPA.L (A5),A7 00027084 62 06 |b | BHI 0x2708c 00027086 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002708a 4e 76 |Nv | TRAPV 0002708c de fc 00 4a | J | ADDA.W #0x4a,A7 00027090 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00027094 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00027098 43 ee 00 14 |C | LEA.L (A6+0x14),A1 0002709c 45 ee 00 10 |E | LEA.L (A6+0x10),A2 000270a0 47 ee ff f4 |G | LEA.L (A6-0xc),A3 000270a4 49 fa fd f4 |I | LEA.L 0x26e9a,A4 000270a8 72 0c |r | MOVEQ.L #0x0c,D1 000270aa 59 4f |YO | SUBQ.L #0x4,A7 000270ac 2f 11 |/ | MOVE.L (A1),-(A7) 000270ae 2f 12 |/ | MOVE.L (A2),-(A7) 000270b0 4e ba e1 fc |N | JSR 0x252ae 000270b4 50 4f |PO | ADDQ.L #0x8,A7 000270b6 26 97 |& | MOVE.L (A7),(A3) 000270b8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000270bc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000270c0 4e ba e1 ec |N | JSR 0x252ae 000270c4 50 4f |PO | ADDQ.L #0x8,A7 000270c6 20 9f | | MOVE.L (A7)+,(A0) 000270c8 52 90 |R | ADDQ.L #0x1,(A0) 000270ca 20 13 | | MOVE.L (A3),D0 000270cc 90 90 | | SUB.L (A0),D0 000270ce 52 80 |R | ADDQ.L #0x1,D0 000270d0 2f 00 |/ | MOVE.L D0,-(A7) 000270d2 70 01 |p | MOVEQ.L #0x01,D0 000270d4 b0 97 | | CMP.L (A7),D0 000270d6 6e 00 00 8e |n | BGT 0x27166 000270da 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 000270de 2f 00 |/ | MOVE.L D0,-(A7) 000270e0 7c 00 || | MOVEQ.L #0x00,D6 000270e2 2f 10 |/ | MOVE.L (A0),-(A7) 000270e4 7a 01 |z | MOVEQ.L #0x01,D5 000270e6 ba 97 | | CMP.L (A7),D5 000270e8 6e 42 |nB | BGT 0x2712c 000270ea 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 000270f0 66 04 |f | BNE 0x270f6 000270f2 7e 2f |~/ | MOVEQ.L #0x2f,D7 000270f4 60 14 |` | BRA 0x2710a 000270f6 55 4f |UO | SUBQ.L #0x2,A7 000270f8 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000270fc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00027100 2f 05 |/ | MOVE.L D5,-(A7) 00027102 53 97 |S | SUBQ.L #0x1,(A7) 00027104 4e 94 |N | JSR (A4) 00027106 de c1 | | ADDA.W D1,A7 00027108 1e 1f | | MOVE.B (A7)+,D7 0002710a 55 4f |UO | SUBQ.L #0x2,A7 0002710c 2f 11 |/ | MOVE.L (A1),-(A7) 0002710e 2f 12 |/ | MOVE.L (A2),-(A7) 00027110 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 00027114 d0 85 | | ADD.L D5,D0 00027116 53 80 |S | SUBQ.L #0x1,D0 00027118 2f 00 |/ | MOVE.L D0,-(A7) 0002711a 4e 94 |N | JSR (A4) 0002711c de c1 | | ADDA.W D1,A7 0002711e be 1f | | CMP.B (A7)+,D7 00027120 67 04 |g | BEQ 0x27126 00027122 58 4f |XO | ADDQ.L #0x4,A7 00027124 60 08 |` | BRA 0x2712e 00027126 2c 05 |, | MOVE.L D5,D6 00027128 52 85 |R | ADDQ.L #0x1,D5 0002712a 68 ba |h | BVC 0x270e6 0002712c 58 4f |XO | ADDQ.L #0x4,A7 0002712e bc 90 | | CMP.L (A0),D6 00027130 66 2c |f, | BNE 0x2715e 00027132 20 17 | | MOVE.L (A7),D0 00027134 2d 40 00 18 |-@ | MOVE.L D0,(A6+0x18) 00027138 d0 90 | | ADD.L (A0),D0 0002713a b0 93 | | CMP.L (A3),D0 0002713c 6d 02 |m | BLT 0x27140 0002713e 60 1a |` | BRA 0x2715a 00027140 55 4f |UO | SUBQ.L #0x2,A7 00027142 2f 11 |/ | MOVE.L (A1),-(A7) 00027144 2f 12 |/ | MOVE.L (A2),-(A7) 00027146 2f 00 |/ | MOVE.L D0,-(A7) 00027148 4e 94 |N | JSR (A4) 0002714a de c1 | | ADDA.W D1,A7 0002714c 1e 1f | | MOVE.B (A7)+,D7 0002714e 0c 07 00 2f | / | CMPI.B #0x2f,D7 00027152 67 06 |g | BEQ 0x2715a 00027154 0c 07 00 3d | = | CMPI.B #0x3d,D7 00027158 66 04 |f | BNE 0x2715e 0002715a 50 4f |PO | ADDQ.L #0x8,A7 0002715c 60 0e |` | BRA 0x2716c 0002715e 20 1f | | MOVE.L (A7)+,D0 00027160 52 80 |R | ADDQ.L #0x1,D0 00027162 68 00 ff 70 |h p | BVC 0x270d4 00027166 58 4f |XO | ADDQ.L #0x4,A7 00027168 42 ae 00 18 |B | CLR.L (A6+0x18) 0002716c 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 00027170 4e 5e |N^ | UNLK A6 00027172 4e 75 |Nu | RTS 00027174 ; -------------------------------------------------------------------------------------- 00027174 ; OMSI PASCAL Function 00027174 ; <LVAR 0x018 4(r)> 00027174 ; <LVAR 0x014 4(r)> 00027174 ; <LVAR 0x010 4(r)> 00027174 ; <LVAR 0x00c 4(r)> 00027174 ; <LVAR 0x008 4(r)> 00027174 ; -------------------------------------------------------------------------------------- 00027174 4e 56 ff be |NV | LINK.W A6,#0xffbe 00027178 bf d5 | | CMPA.L (A5),A7 0002717a 62 06 |b | BHI 0x27182 0002717c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00027180 4e 76 |Nv | TRAPV 00027182 de fc 00 36 | 6 | ADDA.W #0x36,A7 00027186 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 0002718a 41 ee 00 14 |A | LEA.L (A6+0x14),A0 0002718e 43 ee 00 10 |C | LEA.L (A6+0x10),A1 00027192 72 2f |r/ | MOVEQ.L #0x2f,D1 00027194 59 4f |YO | SUBQ.L #0x4,A7 00027196 2f 10 |/ | MOVE.L (A0),-(A7) 00027198 2f 11 |/ | MOVE.L (A1),-(A7) 0002719a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002719e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000271a2 4e ba fe da |N | JSR 0x2707e 000271a6 de fc 00 10 | | ADDA.W #0x10,A7 000271aa 2a 1f |* | MOVE.L (A7)+,D5 000271ac 6f 52 |oR | BLE 0x27200 000271ae 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 000271b2 1f 01 | | MOVE.B D1,-(A7) 000271b4 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000271ba 5c 4f |\O | ADDQ.L #0x6,A7 000271bc 20 05 | | MOVE.L D5,D0 000271be 52 80 |R | ADDQ.L #0x1,D0 000271c0 59 4f |YO | SUBQ.L #0x4,A7 000271c2 2f 10 |/ | MOVE.L (A0),-(A7) 000271c4 2f 11 |/ | MOVE.L (A1),-(A7) 000271c6 4e ba e0 e6 |N | JSR 0x252ae 000271ca 50 4f |PO | ADDQ.L #0x8,A7 000271cc 2c 00 |, | MOVE.L D0,D6 000271ce bc 97 | | CMP.L (A7),D6 000271d0 6e 2c |n, | BGT 0x271fe 000271d2 55 4f |UO | SUBQ.L #0x2,A7 000271d4 2f 10 |/ | MOVE.L (A0),-(A7) 000271d6 2f 11 |/ | MOVE.L (A1),-(A7) 000271d8 2f 06 |/ | MOVE.L D6,-(A7) 000271da 4e ba fc be |N | JSR 0x26e9a 000271de de fc 00 0c | | ADDA.W #0xc,A7 000271e2 1e 1f | | MOVE.B (A7)+,D7 000271e4 be 01 | | CMP.B D1,D7 000271e6 66 04 |f | BNE 0x271ec 000271e8 58 4f |XO | ADDQ.L #0x4,A7 000271ea 60 14 |` | BRA 0x27200 000271ec 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 000271f0 1f 07 | | MOVE.B D7,-(A7) 000271f2 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000271f8 5c 4f |\O | ADDQ.L #0x6,A7 000271fa 52 86 |R | ADDQ.L #0x1,D6 000271fc 68 d0 |h | BVC 0x271ce 000271fe 58 4f |XO | ADDQ.L #0x4,A7 00027200 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 00027204 4e 5e |N^ | UNLK A6 00027206 4e 75 |Nu | RTS 00027208 ; -------------------------------------------------------------------------------------- 00027208 ; OMSI PASCAL Function 00027208 ; <LVAR 0x018 4(r)> 00027208 ; <LVAR 0x014 4(r)> 00027208 ; <LVAR 0x010 4(r)> 00027208 ; <LVAR 0x00c 4(r)> 00027208 ; <LVAR 0x008 4(r)> 00027208 ; <LVAR -0x006 4(rw)> 00027208 ; <LVAR -0x014 4(rw)> 00027208 ; -------------------------------------------------------------------------------------- 00027208 4e 56 ff aa |NV | LINK.W A6,#0xffaa 0002720c bf d5 | | CMPA.L (A5),A7 0002720e 62 06 |b | BHI 0x27216 00027210 44 fc 00 02 |D | MOVE.W #0x2,CCR 00027214 4e 76 |Nv | TRAPV 00027216 de fc 00 42 | B | ADDA.W #0x42,A7 0002721a 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 0002721e 41 ee 00 14 |A | LEA.L (A6+0x14),A0 00027222 43 ee 00 10 |C | LEA.L (A6+0x10),A1 00027226 45 ee ff fa |E | LEA.L (A6-0x6),A2 0002722a 72 0c |r | MOVEQ.L #0x0c,D1 0002722c 59 4f |YO | SUBQ.L #0x4,A7 0002722e 2f 10 |/ | MOVE.L (A0),-(A7) 00027230 2f 11 |/ | MOVE.L (A1),-(A7) 00027232 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00027236 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002723a 4e ba fe 42 |N B | JSR 0x2707e 0002723e de fc 00 10 | | ADDA.W #0x10,A7 00027242 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00027246 6f 6e |on | BLE 0x272b6 00027248 59 4f |YO | SUBQ.L #0x4,A7 0002724a 2f 10 |/ | MOVE.L (A0),-(A7) 0002724c 2f 11 |/ | MOVE.L (A1),-(A7) 0002724e 4e ba e0 5e |N ^ | JSR 0x252ae 00027252 50 4f |PO | ADDQ.L #0x8,A7 00027254 24 9f |$ | MOVE.L (A7)+,(A2) 00027256 2f 12 |/ | MOVE.L (A2),-(A7) 00027258 2a 2e ff ec |*. | MOVE.L (A6-0x14),D5 0002725c ba 97 | | CMP.L (A7),D5 0002725e 6e 54 |nT | BGT 0x272b4 00027260 55 4f |UO | SUBQ.L #0x2,A7 00027262 2f 10 |/ | MOVE.L (A0),-(A7) 00027264 2f 11 |/ | MOVE.L (A1),-(A7) 00027266 2f 05 |/ | MOVE.L D5,-(A7) 00027268 4e ba fc 30 |N 0 | JSR 0x26e9a 0002726c de c1 | | ADDA.W D1,A7 0002726e 10 1f | | MOVE.B (A7)+,D0 00027270 0c 00 00 3d | = | CMPI.B #0x3d,D0 00027274 66 3a |f: | BNE 0x272b0 00027276 20 05 | | MOVE.L D5,D0 00027278 52 80 |R | ADDQ.L #0x1,D0 0002727a 2f 12 |/ | MOVE.L (A2),-(A7) 0002727c 2c 00 |, | MOVE.L D0,D6 0002727e bc 97 | | CMP.L (A7),D6 00027280 6e 2c |n, | BGT 0x272ae 00027282 55 4f |UO | SUBQ.L #0x2,A7 00027284 2f 10 |/ | MOVE.L (A0),-(A7) 00027286 2f 11 |/ | MOVE.L (A1),-(A7) 00027288 2f 06 |/ | MOVE.L D6,-(A7) 0002728a 4e ba fc 0e |N | JSR 0x26e9a 0002728e de c1 | | ADDA.W D1,A7 00027290 1e 1f | | MOVE.B (A7)+,D7 00027292 0c 07 00 2f | / | CMPI.B #0x2f,D7 00027296 66 04 |f | BNE 0x2729c 00027298 50 4f |PO | ADDQ.L #0x8,A7 0002729a 60 1a |` | BRA 0x272b6 0002729c 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 000272a0 1f 07 | | MOVE.B D7,-(A7) 000272a2 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000272a8 5c 4f |\O | ADDQ.L #0x6,A7 000272aa 52 86 |R | ADDQ.L #0x1,D6 000272ac 68 d0 |h | BVC 0x2727e 000272ae 58 4f |XO | ADDQ.L #0x4,A7 000272b0 52 85 |R | ADDQ.L #0x1,D5 000272b2 68 a8 |h | BVC 0x2725c 000272b4 58 4f |XO | ADDQ.L #0x4,A7 000272b6 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 000272ba 4e 5e |N^ | UNLK A6 000272bc 4e 75 |Nu | RTS 000272be ; -------------------------------------------------------------------------------------- 000272be ; OMSI PASCAL Function 000272be ; <LVAR 0x010 4(r)> 000272be ; <LVAR 0x00c 4(r)> 000272be ; <LVAR 0x008 4(r)> 000272be ; -------------------------------------------------------------------------------------- 000272be 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 000272c2 bf d5 | | CMPA.L (A5),A7 000272c4 62 06 |b | BHI 0x272cc 000272c6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000272ca 4e 76 |Nv | TRAPV 000272cc de fc 00 42 | B | ADDA.W #0x42,A7 000272d0 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 000272d4 41 ee 00 0c |A | LEA.L (A6+0xc),A0 000272d8 43 ee 00 08 |C | LEA.L (A6+0x8),A1 000272dc 72 0c |r | MOVEQ.L #0x0c,D1 000272de 59 4f |YO | SUBQ.L #0x4,A7 000272e0 2f 10 |/ | MOVE.L (A0),-(A7) 000272e2 2f 11 |/ | MOVE.L (A1),-(A7) 000272e4 4e ba df c8 |N | JSR 0x252ae 000272e8 50 4f |PO | ADDQ.L #0x8,A7 000272ea 2a 1f |* | MOVE.L (A7)+,D5 000272ec 2f 05 |/ | MOVE.L D5,-(A7) 000272ee 7c 01 || | MOVEQ.L #0x01,D6 000272f0 bc 97 | | CMP.L (A7),D6 000272f2 6e 46 |nF | BGT 0x2733a 000272f4 55 4f |UO | SUBQ.L #0x2,A7 000272f6 2f 10 |/ | MOVE.L (A0),-(A7) 000272f8 2f 11 |/ | MOVE.L (A1),-(A7) 000272fa 2f 06 |/ | MOVE.L D6,-(A7) 000272fc 4e ba fb 9c |N | JSR 0x26e9a 00027300 de c1 | | ADDA.W D1,A7 00027302 10 1f | | MOVE.B (A7)+,D0 00027304 0c 00 00 2f | / | CMPI.B #0x2f,D0 00027308 66 2c |f, | BNE 0x27336 0002730a 2f 05 |/ | MOVE.L D5,-(A7) 0002730c 2e 06 |. | MOVE.L D6,D7 0002730e be 97 | | CMP.L (A7),D7 00027310 6e 1e |n | BGT 0x27330 00027312 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00027316 55 4f |UO | SUBQ.L #0x2,A7 00027318 2f 10 |/ | MOVE.L (A0),-(A7) 0002731a 2f 11 |/ | MOVE.L (A1),-(A7) 0002731c 2f 07 |/ | MOVE.L D7,-(A7) 0002731e 4e ba fb 7a |N z | JSR 0x26e9a 00027322 de c1 | | ADDA.W D1,A7 00027324 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002732a 5c 4f |\O | ADDQ.L #0x6,A7 0002732c 52 87 |R | ADDQ.L #0x1,D7 0002732e 68 de |h | BVC 0x2730e 00027330 58 4f |XO | ADDQ.L #0x4,A7 00027332 58 4f |XO | ADDQ.L #0x4,A7 00027334 60 06 |` | BRA 0x2733c 00027336 52 86 |R | ADDQ.L #0x1,D6 00027338 68 b6 |h | BVC 0x272f0 0002733a 58 4f |XO | ADDQ.L #0x4,A7 0002733c 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 00027340 4e 5e |N^ | UNLK A6 00027342 4e 75 |Nu | RTS 00027344 ; -------------------------------------------------------------------------------------- 00027344 ; OMSI PASCAL Function 00027344 ; <LVAR 0x010 4(r)> 00027344 ; <LVAR 0x00c 4(r)> 00027344 ; <LVAR 0x008 4(r)> 00027344 ; -------------------------------------------------------------------------------------- 00027344 4e 56 ff ce |NV | LINK.W A6,#0xffce 00027348 bf d5 | | CMPA.L (A5),A7 0002734a 62 06 |b | BHI 0x27352 0002734c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00027350 4e 76 |Nv | TRAPV 00027352 de fc 00 2a | * | ADDA.W #0x2a,A7 00027356 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 0002735a 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 0002735e 42 50 |BP | CLR.W (A0) 00027360 59 4f |YO | SUBQ.L #0x4,A7 00027362 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00027366 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002736a 4e ba df 42 |N B | JSR 0x252ae 0002736e 50 4f |PO | ADDQ.L #0x8,A7 00027370 7e 01 |~ | MOVEQ.L #0x01,D7 00027372 be 97 | | CMP.L (A7),D7 00027374 6e 34 |n4 | BGT 0x273aa 00027376 55 4f |UO | SUBQ.L #0x2,A7 00027378 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002737c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00027380 2f 07 |/ | MOVE.L D7,-(A7) 00027382 4e ba fb 16 |N | JSR 0x26e9a 00027386 de fc 00 0c | | ADDA.W #0xc,A7 0002738a 1c 1f | | MOVE.B (A7)+,D6 0002738c 0c 06 00 2f | / | CMPI.B #0x2f,D6 00027390 67 10 |g | BEQ 0x273a2 00027392 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00027396 1f 06 | | MOVE.B D6,-(A7) 00027398 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002739e 5c 4f |\O | ADDQ.L #0x6,A7 000273a0 60 04 |` | BRA 0x273a6 000273a2 58 4f |XO | ADDQ.L #0x4,A7 000273a4 60 06 |` | BRA 0x273ac 000273a6 52 87 |R | ADDQ.L #0x1,D7 000273a8 68 c8 |h | BVC 0x27372 000273aa 58 4f |XO | ADDQ.L #0x4,A7 000273ac 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 000273b0 4e 5e |N^ | UNLK A6 000273b2 4e 75 |Nu | RTS 000273b4 ; -------------------------------------------------------------------------------------- 000273b4 ; OMSI PASCAL Function 000273b4 ; -------------------------------------------------------------------------------------- 000273b4 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 000273b8 bf d5 | | CMPA.L (A5),A7 000273ba 62 06 |b | BHI 0x273c2 000273bc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000273c0 4e 76 |Nv | TRAPV 000273c2 de fc 00 3a | : | ADDA.W #0x3a,A7 000273c6 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000273ca 41 fa cf b6 |A | LEA.L 0x24382,A0 000273ce 70 10 |p | MOVEQ.L #0x10,D0 000273d0 3f 20 |? | MOVE.W -(A0),-(A7) 000273d2 51 c8 ff fc |Q | DBF D0,0x273d0 000273d6 59 4f |YO | SUBQ.L #0x4,A7 000273d8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000273dc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000273e0 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 000273e4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000273ea 50 4f |PO | ADDQ.L #0x8,A7 000273ec 4e ba d2 ae |N | JSR 0x2469c 000273f0 de fc 00 26 | & | ADDA.W #0x26,A7 000273f4 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000273f8 4e 5e |N^ | UNLK A6 000273fa 4e 75 |Nu | RTS 000273fc ; -------------------------------------------------------------------------------------- 000273fc ; OMSI PASCAL Function 000273fc ; <LVAR 0x00c 4(r)> 000273fc ; <LVAR 0x008 4(r)> 000273fc ; <LVAR -0x006 4(rw)> 000273fc ; -------------------------------------------------------------------------------------- 000273fc 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00027400 bf d5 | | CMPA.L (A5),A7 00027402 62 06 |b | BHI 0x2740a 00027404 44 fc 00 02 |D | MOVE.W #0x2,CCR 00027408 4e 76 |Nv | TRAPV 0002740a de fc 00 58 | X | ADDA.W #0x58,A7 0002740e 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00027412 43 ee 00 0c |C | LEA.L (A6+0xc),A1 00027416 45 f9 00 03 d1 f6 |E | LEA.L 0x3d1f6,A2 0002741c 47 fa d3 1a |G | LEA.L 0x24738,A3 00027420 72 30 |r0 | MOVEQ.L #0x30,D1 00027422 74 39 |t9 | MOVEQ.L #0x39,D2 00027424 76 25 |v% | MOVEQ.L #0x25,D3 00027426 78 2d |x- | MOVEQ.L #0x2d,D4 00027428 2d 52 ff fa |-R | MOVE.L (A2),(A6-0x6) 0002742c 55 4f |UO | SUBQ.L #0x2,A7 0002742e 4e 93 |N | JSR (A3) 00027430 1e 1f | | MOVE.B (A7)+,D7 00027432 be 03 | | CMP.B D3,D7 00027434 66 08 |f | BNE 0x2743e 00027436 20 51 | Q | MOVEA.L (A1),A0 00027438 42 90 |B | CLR.L (A0) 0002743a 60 00 00 e2 |` | BRA 0x2751e 0002743e be 04 | | CMP.B D4,D7 00027440 66 0c |f | BNE 0x2744e 00027442 20 51 | Q | MOVEA.L (A1),A0 00027444 20 bc 00 00 00 01 | | MOVE.L #0x1,(A0) 0002744a 60 00 00 d2 |` | BRA 0x2751e 0002744e 0c 07 00 2f | / | CMPI.B #0x2f,D7 00027452 66 0c |f | BNE 0x27460 00027454 20 51 | Q | MOVEA.L (A1),A0 00027456 20 bc 00 00 00 04 | | MOVE.L #0x4,(A0) 0002745c 60 00 00 c0 |` | BRA 0x2751e 00027460 0c 07 00 3d | = | CMPI.B #0x3d,D7 00027464 66 0c |f | BNE 0x27472 00027466 20 51 | Q | MOVEA.L (A1),A0 00027468 20 bc 00 00 00 05 | | MOVE.L #0x5,(A0) 0002746e 60 00 00 ae |` | BRA 0x2751e 00027472 0c 07 00 5c | \ | CMPI.B #0x5c,D7 00027476 66 0c |f | BNE 0x27484 00027478 20 51 | Q | MOVEA.L (A1),A0 0002747a 20 bc 00 00 00 06 | | MOVE.L #0x6,(A0) 00027480 60 00 00 9c |` | BRA 0x2751e 00027484 4a 07 |J | TST.B D7 00027486 66 2c |f, | BNE 0x274b4 00027488 41 fa cf 10 |A | LEA.L 0x2439a,A0 0002748c 70 05 |p | MOVEQ.L #0x05,D0 0002748e 2f 20 |/ | MOVE.L -(A0),-(A7) 00027490 51 c8 ff fc |Q | DBF D0,0x2748e 00027494 59 4f |YO | SUBQ.L #0x4,A7 00027496 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002749a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002749e 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 000274a2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000274a8 50 4f |PO | ADDQ.L #0x8,A7 000274aa 4e ba d1 f0 |N | JSR 0x2469c 000274ae de fc 00 1c | | ADDA.W #0x1c,A7 000274b2 60 6a |`j | BRA 0x2751e 000274b4 be 01 | | CMP.B D1,D7 000274b6 65 2c |e, | BCS 0x274e4 000274b8 be 02 | | CMP.B D2,D7 000274ba 62 28 |b( | BHI 0x274e4 000274bc 20 51 | Q | MOVEA.L (A1),A0 000274be 20 bc 00 00 00 02 | | MOVE.L #0x2,(A0) 000274c4 55 4f |UO | SUBQ.L #0x2,A7 000274c6 4e ba d2 32 |N 2 | JSR 0x246fa 000274ca 1e 1f | | MOVE.B (A7)+,D7 000274cc be 01 | | CMP.B D1,D7 000274ce 65 0a |e | BCS 0x274da 000274d0 be 02 | | CMP.B D2,D7 000274d2 62 06 |b | BHI 0x274da 000274d4 55 4f |UO | SUBQ.L #0x2,A7 000274d6 4e 93 |N | JSR (A3) 000274d8 1c 1f | | MOVE.B (A7)+,D6 000274da be 01 | | CMP.B D1,D7 000274dc 65 04 |e | BCS 0x274e2 000274de be 02 | | CMP.B D2,D7 000274e0 63 e2 |c | BLS 0x274c4 000274e2 60 3a |`: | BRA 0x2751e 000274e4 20 51 | Q | MOVEA.L (A1),A0 000274e6 20 bc 00 00 00 03 | | MOVE.L #0x3,(A0) 000274ec 7a 00 |z | MOVEQ.L #0x00,D5 000274ee 55 4f |UO | SUBQ.L #0x2,A7 000274f0 4e ba d2 08 |N | JSR 0x246fa 000274f4 1e 1f | | MOVE.B (A7)+,D7 000274f6 be 03 | | CMP.B D3,D7 000274f8 67 16 |g | BEQ 0x27510 000274fa be 04 | | CMP.B D4,D7 000274fc 67 12 |g | BEQ 0x27510 000274fe 0c 07 00 2f | / | CMPI.B #0x2f,D7 00027502 67 0c |g | BEQ 0x27510 00027504 0c 07 00 3d | = | CMPI.B #0x3d,D7 00027508 67 06 |g | BEQ 0x27510 0002750a 0c 07 00 5c | \ | CMPI.B #0x5c,D7 0002750e 66 04 |f | BNE 0x27514 00027510 7a 01 |z | MOVEQ.L #0x01,D5 00027512 60 06 |` | BRA 0x2751a 00027514 55 4f |UO | SUBQ.L #0x2,A7 00027516 4e 93 |N | JSR (A3) 00027518 1c 1f | | MOVE.B (A7)+,D6 0002751a 4a 05 |J | TST.B D5 0002751c 67 d0 |g | BEQ 0x274ee 0002751e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00027522 20 ae ff fa | | MOVE.L (A6-0x6),(A0) 00027526 21 52 00 04 |!R | MOVE.L (A2),(A0+0x4) 0002752a 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 0002752e 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00027532 4e 5e |N^ | UNLK A6 00027534 4e 75 |Nu | RTS 00027536 ; -------------------------------------------------------------------------------------- 00027536 ; OMSI PASCAL Function 00027536 ; <LVAR 0x00c 4(r)> 00027536 ; <LVAR 0x008 4(r)> 00027536 ; -------------------------------------------------------------------------------------- 00027536 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 0002753a bf d5 | | CMPA.L (A5),A7 0002753c 62 06 |b | BHI 0x27544 0002753e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00027542 4e 76 |Nv | TRAPV 00027544 de fc 00 34 | 4 | ADDA.W #0x34,A7 00027548 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 0002754c 45 ee 00 0c |E | LEA.L (A6+0xc),A2 00027550 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00027554 2f 08 |/ | MOVE.L A0,-(A7) 00027556 2c 39 00 03 d1 f6 |,9 | MOVE.L 0x3d1f6,D6 0002755c 9c 92 | | SUB.L (A2),D6 0002755e 2a 12 |* | MOVE.L (A2),D5 00027560 da 86 | | ADD.L D6,D5 00027562 30 10 |0 | MOVE.W (A0),D0 00027564 48 c0 |H | EXTW.L D0 00027566 b0 86 | | CMP.L D6,D0 00027568 67 0c |g | BEQ 0x27576 0002756a 2f 05 |/ | MOVE.L D5,-(A7) 0002756c 2f 06 |/ | MOVE.L D6,-(A7) 0002756e 91 97 | | SUB.L D0,(A7) 00027570 4e ba d6 7e |N ~ | JSR 0x24bf0 00027574 50 4f |PO | ADDQ.L #0x8,A7 00027576 2f 00 |/ | MOVE.L D0,-(A7) 00027578 7e 01 |~ | MOVEQ.L #0x01,D7 0002757a be 97 | | CMP.L (A7),D7 0002757c 6e 34 |n4 | BGT 0x275b2 0002757e 20 12 | | MOVE.L (A2),D0 00027580 d0 87 | | ADD.L D7,D0 00027582 53 80 |S | SUBQ.L #0x1,D0 00027584 53 80 |S | SUBQ.L #0x1,D0 00027586 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 0002758c 63 02 |c | BLS 0x27590 0002758e 4e 4f |NO | TRAP #15 00027590 41 f9 00 03 b1 ee |A | LEA.L 0x3b1ee,A0 00027596 22 07 |" | MOVE.L D7,D1 00027598 53 81 |S | SUBQ.L #0x1,D1 0002759a 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000275a0 63 02 |c | BLS 0x275a4 000275a2 4e 4f |NO | TRAP #15 000275a4 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 000275a8 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 000275ae 52 87 |R | ADDQ.L #0x1,D7 000275b0 68 c8 |h | BVC 0x2757a 000275b2 50 4f |PO | ADDQ.L #0x8,A7 000275b4 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 000275b8 4e 5e |N^ | UNLK A6 000275ba 4e 75 |Nu | RTS 000275bc ; -------------------------------------------------------------------------------------- 000275bc ; OMSI PASCAL Function 000275bc ; <LVAR 0x00c 4(r)> 000275bc ; <LVAR 0x008 4(r)> 000275bc ; <LVAR -0x008 @ 4(r)> 000275bc ; <LVAR -0x00c @ 4(r)> 000275bc ; <LVAR -0x010 4(r)> 000275bc ; <LVAR -0x014 @ 4(r)> 000275bc ; <LVAR -0x018 4(rw)> 000275bc ; <LVAR -0x01c 4(rw)> 000275bc ; <LVAR -0x020 4(rw)> 000275bc ; <LVAR -0x024 4(rw)> 000275bc ; <LVAR -0x028 4(rw)> 000275bc ; <LVAR -0x034 4(rw)> 000275bc ; -------------------------------------------------------------------------------------- 000275bc 4e 56 ff 70 |NV p | LINK.W A6,#0xff70 000275c0 bf d5 | | CMPA.L (A5),A7 000275c2 62 06 |b | BHI 0x275ca 000275c4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000275c8 4e 76 |Nv | TRAPV 000275ca de fc 00 5c | \ | ADDA.W #0x5c,A7 000275ce 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000275d2 43 ee ff f8 |C | LEA.L (A6-0x8),A1 000275d6 45 ee ff ec |E | LEA.L (A6-0x14),A2 000275da 47 ee ff dc |G | LEA.L (A6-0x24),A3 000275de 49 ee ff e0 |I | LEA.L (A6-0x20),A4 000275e2 74 14 |t | MOVEQ.L #0x14,D2 000275e4 2d 79 00 03 d1 f6 ff d8 |-y | MOVE.L 0x3d1f6,(A6-0x28) 000275ec 48 51 |HQ | PEA.L (A1) 000275ee 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000275f4 58 4f |XO | ADDQ.L #0x4,A7 000275f6 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000275fa 48 52 |HR | PEA.L (A2) 000275fc 4e ba fd fe |N | JSR 0x273fc 00027600 50 4f |PO | ADDQ.L #0x8,A7 00027602 42 ae ff cc |B | CLR.L (A6-0x34) 00027606 7e 00 |~ | MOVEQ.L #0x00,D7 00027608 20 2e ff cc | . | MOVE.L (A6-0x34),D0 0002760c b0 82 | | CMP.L D2,D0 0002760e 63 02 |c | BLS 0x27612 00027610 4e 4e |NN | TRAP #14 00027612 d0 40 | @ | ADD.W D0,D0 00027614 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002761c 00 2a | * | .CONST 0x2a ; [0x0] -> 0x27646 0002761e 00 34 | 4 | .CONST 0x34 ; [0x1] -> 0x27650 00027620 00 48 | H | .CONST 0x48 ; [0x2] -> 0x27664 00027622 00 64 | d | .CONST 0x64 ; [0x3] -> 0x27680 00027624 00 68 | h | .CONST 0x68 ; [0x4] -> 0x27684 00027626 00 76 | v | .CONST 0x76 ; [0x5] -> 0x27692 00027628 00 8a | | .CONST 0x8a ; [0x6] -> 0x276a6 0002762a 00 90 | | .CONST 0x90 ; [0x7] -> 0x276ac 0002762c 00 92 | | .CONST 0x92 ; [0x8] -> 0x276ae 0002762e 00 a8 | | .CONST 0xa8 ; [0x9] -> 0x276c4 00027630 00 b6 | | .CONST 0xb6 ; [0xa] -> 0x276d2 00027632 00 ce | | .CONST 0xce ; [0xb] -> 0x276ea 00027634 00 e2 | | .CONST 0xe2 ; [0xc] -> 0x276fe 00027636 00 f6 | | .CONST 0xf6 ; [0xd] -> 0x27712 00027638 01 0c | | .CONST 0x10c ; [0xe] -> 0x27728 0002763a 01 0e | | .CONST 0x10e ; [0xf] -> 0x2772a 0002763c 01 28 | ( | .CONST 0x128 ; [0x10] -> 0x27744 0002763e 01 3e | > | .CONST 0x13e ; [0x11] -> 0x2775a 00027640 01 4c | L | .CONST 0x14c ; [0x12] -> 0x27768 00027642 01 4e | N | .CONST 0x14e ; [0x13] -> 0x2776a 00027644 01 50 | P | .CONST 0x150 ; [0x14] -> 0x2776c 00027646 switch@0x27614[0x0]: 00027646 7c 00 || | MOVEQ.L #0x00,D6 00027648 2a 2e 00 08 |*. | MOVE.L (A6+0x8),D5 0002764c 60 00 01 48 |` H | BRA 0x27796 00027650 switch@0x27614[0x1]: 00027650 59 4f |YO | SUBQ.L #0x4,A7 00027652 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00027656 2f 12 |/ | MOVE.L (A2),-(A7) 00027658 4e ba f8 80 |N | JSR 0x26eda 0002765c 50 4f |PO | ADDQ.L #0x8,A7 0002765e 2c 1f |, | MOVE.L (A7)+,D6 00027660 60 00 01 34 |` 4 | BRA 0x27796 00027664 switch@0x27614[0x2]: 00027664 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00027668 2f 06 |/ | MOVE.L D6,-(A7) 0002766a 2f 06 |/ | MOVE.L D6,-(A7) 0002766c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00027670 4e ba f8 e4 |N | JSR 0x26f56 00027674 de fc 00 10 | | ADDA.W #0x10,A7 00027678 60 00 01 78 |` x | BRA 0x277f2 0002767c 60 00 01 18 |` | .XXX[0x4] 00027680 switch@0x27614[0x3]: 00027680 60 00 01 14 |` | BRA 0x27796 00027684 switch@0x27614[0x4]: 00027684 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 00027688 2f 06 |/ | MOVE.L D6,-(A7) 0002768a 2f 05 |/ | MOVE.L D5,-(A7) 0002768c 60 de |` | BRA 0x2766c 0002768e 60 00 |` | .XXX[0x2] 00027690 01 06 | | .XXX[0x2] 00027692 switch@0x27614[0x5]: 00027692 59 4f |YO | SUBQ.L #0x4,A7 00027694 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00027698 2f 12 |/ | MOVE.L (A2),-(A7) 0002769a 4e ba f8 3e |N > | JSR 0x26eda 0002769e 50 4f |PO | ADDQ.L #0x8,A7 000276a0 2a 1f |* | MOVE.L (A7)+,D5 000276a2 60 00 00 f2 |` | BRA 0x27796 000276a6 switch@0x27614[0x6]: 000276a6 7c 01 || | MOVEQ.L #0x01,D6 000276a8 60 00 00 ec |` | BRA 0x27796 000276ac switch@0x27614[0x7]: 000276ac 60 e4 |` | BRA switch@0x27614[0x5] 000276ae switch@0x27614[0x8]: 000276ae 51 4f |QO | SUBQ.L #0x8,A7 000276b0 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000276b4 2f 06 |/ | MOVE.L D6,-(A7) 000276b6 4e ba dc 2e |N . | JSR 0x252e6 000276ba 50 4f |PO | ADDQ.L #0x8,A7 000276bc 26 9f |& | MOVE.L (A7)+,(A3) 000276be 28 9f |( | MOVE.L (A7)+,(A4) 000276c0 60 00 00 d4 |` | BRA 0x27796 000276c4 switch@0x27614[0x9]: 000276c4 2d 52 ff e4 |-R | MOVE.L (A2),(A6-0x1c) 000276c8 2d 6e ff f0 ff e8 |-n | MOVE.L (A6-0x10),(A6-0x18) 000276ce 60 00 00 c6 |` | BRA 0x27796 000276d2 switch@0x27614[0xa]: 000276d2 2f 11 |/ | MOVE.L (A1),-(A7) 000276d4 2f 14 |/ | MOVE.L (A4),-(A7) 000276d6 2f 13 |/ | MOVE.L (A3),-(A7) 000276d8 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 000276dc 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 000276e0 4e ba fb 26 |N & | JSR 0x27208 000276e4 de c2 | | ADDA.W D2,A7 000276e6 60 00 00 ae |` | BRA 0x27796 000276ea switch@0x27614[0xb]: 000276ea 2f 11 |/ | MOVE.L (A1),-(A7) 000276ec 2f 14 |/ | MOVE.L (A4),-(A7) 000276ee 2f 13 |/ | MOVE.L (A3),-(A7) 000276f0 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 000276f4 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 000276f8 4e ba fa 7a |N z | JSR 0x27174 000276fc 60 e6 |` | BRA 0x276e4 000276fe switch@0x27614[0xc]: 000276fe 2f 11 |/ | MOVE.L (A1),-(A7) 00027700 2f 14 |/ | MOVE.L (A4),-(A7) 00027702 2f 13 |/ | MOVE.L (A3),-(A7) 00027704 4e ba fb b8 |N | JSR 0x272be 00027708 de fc 00 0c | | ADDA.W #0xc,A7 0002770c 7e 01 |~ | MOVEQ.L #0x01,D7 0002770e 60 00 00 86 |` | BRA 0x27796 00027712 switch@0x27614[0xd]: 00027712 2f 11 |/ | MOVE.L (A1),-(A7) 00027714 2f 14 |/ | MOVE.L (A4),-(A7) 00027716 2f 13 |/ | MOVE.L (A3),-(A7) 00027718 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 0002771c 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00027720 4e ba fa 52 |N R | JSR 0x27174 00027724 de c2 | | ADDA.W D2,A7 00027726 60 e4 |` | BRA 0x2770c 00027728 switch@0x27614[0xe]: 00027728 60 e2 |` | BRA 0x2770c 0002772a switch@0x27614[0xf]: 0002772a 2f 11 |/ | MOVE.L (A1),-(A7) 0002772c 51 4f |QO | SUBQ.L #0x8,A7 0002772e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00027732 2f 06 |/ | MOVE.L D6,-(A7) 00027734 4e ba db b0 |N | JSR 0x252e6 00027738 50 4f |PO | ADDQ.L #0x8,A7 0002773a 4e ba fb 82 |N | JSR 0x272be 0002773e de fc 00 0c | | ADDA.W #0xc,A7 00027742 60 52 |`R | BRA 0x27796 00027744 switch@0x27614[0x10]: 00027744 2f 11 |/ | MOVE.L (A1),-(A7) 00027746 51 4f |QO | SUBQ.L #0x8,A7 00027748 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002774c 2f 06 |/ | MOVE.L D6,-(A7) 0002774e 4e ba db 96 |N | JSR 0x252e6 00027752 50 4f |PO | ADDQ.L #0x8,A7 00027754 4e ba fb ee |N | JSR 0x27344 00027758 60 ae |` | BRA 0x27708 0002775a switch@0x27614[0x11]: 0002775a 2f 11 |/ | MOVE.L (A1),-(A7) 0002775c 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00027760 2f 12 |/ | MOVE.L (A2),-(A7) 00027762 4e ba fc 50 |N P | JSR 0x273b4 00027766 60 d6 |` | BRA 0x2773e 00027768 switch@0x27614[0x12]: 00027768 60 2c |`, | BRA 0x27796 0002776a switch@0x27614[0x13]: 0002776a 60 a0 |` | BRA 0x2770c 0002776c switch@0x27614[0x14]: 0002776c 41 fa cc 44 |A D | LEA.L 0x243b2,A0 00027770 70 05 |p | MOVEQ.L #0x05,D0 00027772 2f 20 |/ | MOVE.L -(A0),-(A7) 00027774 51 c8 ff fc |Q | DBF D0,0x27772 00027778 59 4f |YO | SUBQ.L #0x4,A7 0002777a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002777e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00027782 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00027786 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002778c 50 4f |PO | ADDQ.L #0x8,A7 0002778e 4e ba cf 0c |N | JSR 0x2469c 00027792 de fc 00 1c | | ADDA.W #0x1c,A7 00027796 4a 07 |J | TST.B D7 00027798 66 46 |fF | BNE 0x277e0 0002779a 48 6e ff f4 |Hn | PEA.L (A6-0xc) 0002779e 48 52 |HR | PEA.L (A2) 000277a0 4e ba fc 5a |N Z | JSR 0x273fc 000277a4 50 4f |PO | ADDQ.L #0x8,A7 000277a6 20 2e ff cc | . | MOVE.L (A6-0x34),D0 000277aa 0c 80 00 00 00 13 | | CMPI.L #0x00000013,D0 000277b0 63 02 |c | BLS 0x277b4 000277b2 4e 4f |NO | TRAP #15 000277b4 28 00 |( | MOVE.L D0,D4 000277b6 76 07 |v | MOVEQ.L #0x07,D3 000277b8 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000277be 41 fa ce 0e |A | LEA.L 0x245ce,A0 000277c2 20 2e ff f4 | . | MOVE.L (A6-0xc),D0 000277c6 0c 80 00 00 00 06 | | CMPI.L #0x00000006,D0 000277cc 63 02 |c | BLS 0x277d0 000277ce 4e 4f |NO | TRAP #15 000277d0 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 000277d4 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1 000277d8 48 81 |H | EXTB.W D1 000277da 48 c1 |H | EXTW.L D1 000277dc 2d 41 ff cc |-A | MOVE.L D1,(A6-0x34) 000277e0 4a 07 |J | TST.B D7 000277e2 67 00 fe 24 |g $ | BEQ 0x27608 000277e6 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 000277ea 2f 11 |/ | MOVE.L (A1),-(A7) 000277ec 4e ba fd 48 |N H | JSR 0x27536 000277f0 50 4f |PO | ADDQ.L #0x8,A7 000277f2 48 51 |HQ | PEA.L (A1) 000277f4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000277fa 58 4f |XO | ADDQ.L #0x4,A7 000277fc 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00027800 4e 5e |N^ | UNLK A6 00027802 4e 75 |Nu | RTS 00027804 ; -------------------------------------------------------------------------------------- 00027804 ; OMSI PASCAL Function 00027804 ; <LVAR 0x014 4(rw)> 00027804 ; <LVAR 0x010 4(r)> 00027804 ; <LVAR 0x00c 4(r)> 00027804 ; <LVAR 0x008 4(r)> 00027804 ; <LVAR -0x008 4(rw)> 00027804 ; <LVAR -0x00c 4(rw)> 00027804 ; <LVAR -0x018 4(w)> 00027804 ; -------------------------------------------------------------------------------------- 00027804 4e 56 ff 96 |NV | LINK.W A6,#0xff96 00027808 bf d5 | | CMPA.L (A5),A7 0002780a 62 06 |b | BHI 0x27812 0002780c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00027810 4e 76 |Nv | TRAPV 00027812 de fc 00 52 | R | ADDA.W #0x52,A7 00027816 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 0002781a 43 ee ff f8 |C | LEA.L (A6-0x8),A1 0002781e 45 ee 00 10 |E | LEA.L (A6+0x10),A2 00027822 47 ee 00 0c |G | LEA.L (A6+0xc),A3 00027826 49 ee ff f4 |I | LEA.L (A6-0xc),A4 0002782a 74 0c |t | MOVEQ.L #0x0c,D2 0002782c 42 ae 00 14 |B | CLR.L (A6+0x14) 00027830 59 4f |YO | SUBQ.L #0x4,A7 00027832 2f 12 |/ | MOVE.L (A2),-(A7) 00027834 2f 13 |/ | MOVE.L (A3),-(A7) 00027836 4e ba da 76 |N v | JSR 0x252ae 0002783a 50 4f |PO | ADDQ.L #0x8,A7 0002783c 28 9f |( | MOVE.L (A7)+,(A4) 0002783e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00027842 30 10 |0 | MOVE.W (A0),D0 00027844 48 c0 |H | EXTW.L D0 00027846 52 80 |R | ADDQ.L #0x1,D0 00027848 22 80 |" | MOVE.L D0,(A1) 0002784a 44 80 |D | NEG.L D0 0002784c d0 94 | | ADD.L (A4),D0 0002784e 52 80 |R | ADDQ.L #0x1,D0 00027850 2f 00 |/ | MOVE.L D0,-(A7) 00027852 70 01 |p | MOVEQ.L #0x01,D0 00027854 b0 97 | | CMP.L (A7),D0 00027856 6e 00 00 9a |n | BGT 0x278f2 0002785a 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 0002785e 2f 00 |/ | MOVE.L D0,-(A7) 00027860 7c 00 || | MOVEQ.L #0x00,D6 00027862 2f 11 |/ | MOVE.L (A1),-(A7) 00027864 7a 01 |z | MOVEQ.L #0x01,D5 00027866 ba 97 | | CMP.L (A7),D5 00027868 6e 48 |nH | BGT 0x278b2 0002786a 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 00027870 66 04 |f | BNE 0x27876 00027872 7e 2f |~/ | MOVEQ.L #0x2f,D7 00027874 60 18 |` | BRA 0x2788e 00027876 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002787a 20 05 | | MOVE.L D5,D0 0002787c 53 80 |S | SUBQ.L #0x1,D0 0002787e 53 80 |S | SUBQ.L #0x1,D0 00027880 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00027886 63 02 |c | BLS 0x2788a 00027888 4e 4f |NO | TRAP #15 0002788a 1e 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D7 0002788e 55 4f |UO | SUBQ.L #0x2,A7 00027890 2f 12 |/ | MOVE.L (A2),-(A7) 00027892 2f 13 |/ | MOVE.L (A3),-(A7) 00027894 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 00027898 d0 85 | | ADD.L D5,D0 0002789a 53 80 |S | SUBQ.L #0x1,D0 0002789c 2f 00 |/ | MOVE.L D0,-(A7) 0002789e 4e ba f5 fa |N | JSR 0x26e9a 000278a2 de c2 | | ADDA.W D2,A7 000278a4 be 1f | | CMP.B (A7)+,D7 000278a6 67 04 |g | BEQ 0x278ac 000278a8 58 4f |XO | ADDQ.L #0x4,A7 000278aa 60 08 |` | BRA 0x278b4 000278ac 2c 05 |, | MOVE.L D5,D6 000278ae 52 85 |R | ADDQ.L #0x1,D5 000278b0 68 b4 |h | BVC 0x27866 000278b2 58 4f |XO | ADDQ.L #0x4,A7 000278b4 bc 91 | | CMP.L (A1),D6 000278b6 66 32 |f2 | BNE 0x278ea 000278b8 20 17 | | MOVE.L (A7),D0 000278ba 22 00 |" | MOVE.L D0,D1 000278bc d2 91 | | ADD.L (A1),D1 000278be b2 94 | | CMP.L (A4),D1 000278c0 6c 26 |l& | BGE 0x278e8 000278c2 55 4f |UO | SUBQ.L #0x2,A7 000278c4 2f 12 |/ | MOVE.L (A2),-(A7) 000278c6 2f 13 |/ | MOVE.L (A3),-(A7) 000278c8 2f 01 |/ | MOVE.L D1,-(A7) 000278ca 4e ba f5 ce |N | JSR 0x26e9a 000278ce de c2 | | ADDA.W D2,A7 000278d0 1e 1f | | MOVE.B (A7)+,D7 000278d2 0c 07 00 2f | / | CMPI.B #0x2f,D7 000278d6 67 06 |g | BEQ 0x278de 000278d8 0c 07 00 3d | = | CMPI.B #0x3d,D7 000278dc 66 08 |f | BNE 0x278e6 000278de 2d 40 00 14 |-@ | MOVE.L D0,(A6+0x14) 000278e2 50 4f |PO | ADDQ.L #0x8,A7 000278e4 60 0e |` | BRA 0x278f4 000278e6 60 02 |` | BRA 0x278ea 000278e8 60 f4 |` | BRA 0x278de 000278ea 20 1f | | MOVE.L (A7)+,D0 000278ec 52 80 |R | ADDQ.L #0x1,D0 000278ee 68 00 ff 64 |h d | BVC 0x27854 000278f2 58 4f |XO | ADDQ.L #0x4,A7 000278f4 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 000278f8 4e 5e |N^ | UNLK A6 000278fa 4e 75 |Nu | RTS 000278fc ; -------------------------------------------------------------------------------------- 000278fc ; OMSI PASCAL Function 000278fc ; <LVAR 0x018 4(r)> 000278fc ; <LVAR 0x014 4(r)> 000278fc ; <LVAR 0x010 4(r)> 000278fc ; <LVAR 0x00c 4(r)> 000278fc ; <LVAR 0x008 4(r)> 000278fc ; <LVAR -0x008 4(rw)> 000278fc ; <LVAR -0x014 4(rw)> 000278fc ; <LVAR -0x018 4(rw)> 000278fc ; <LVAR -0x01c 4(rw)> 000278fc ; -------------------------------------------------------------------------------------- 000278fc 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 00027900 bf d5 | | CMPA.L (A5),A7 00027902 62 06 |b | BHI 0x2790a 00027904 44 fc 00 02 |D | MOVE.W #0x2,CCR 00027908 4e 76 |Nv | TRAPV 0002790a de fc 00 56 | V | ADDA.W #0x56,A7 0002790e 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00027912 45 ee ff e4 |E | LEA.L (A6-0x1c),A2 00027916 47 ee ff e8 |G | LEA.L (A6-0x18),A3 0002791a 49 ee ff f8 |I | LEA.L (A6-0x8),A4 0002791e 72 0c |r | MOVEQ.L #0x0c,D1 00027920 74 01 |t | MOVEQ.L #0x01,D2 00027922 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00027926 42 10 |B | CLR.B (A0) 00027928 22 6e 00 0c |"n | MOVEA.L (A6+0xc),A1 0002792c 22 82 |" | MOVE.L D2,(A1) 0002792e 51 4f |QO | SUBQ.L #0x8,A7 00027930 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00027934 2f 2e 00 14 |/. | MOVE.L (A6+0x14),-(A7) 00027938 4e ba d9 ac |N | JSR 0x252e6 0002793c 50 4f |PO | ADDQ.L #0x8,A7 0002793e 24 9f |$ | MOVE.L (A7)+,(A2) 00027940 26 9f |& | MOVE.L (A7)+,(A3) 00027942 4a 92 |J | TST.L (A2) 00027944 67 00 00 96 |g | BEQ 0x279dc 00027948 59 4f |YO | SUBQ.L #0x4,A7 0002794a 2f 13 |/ | MOVE.L (A3),-(A7) 0002794c 2f 12 |/ | MOVE.L (A2),-(A7) 0002794e 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00027952 4e ba fe b0 |N | JSR 0x27804 00027956 de c1 | | ADDA.W D1,A7 00027958 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 0002795c 67 7e |g~ | BEQ 0x279dc 0002795e 10 82 | | MOVE.B D2,(A0) 00027960 48 51 |HQ | PEA.L (A1) 00027962 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00027968 2f 13 |/ | MOVE.L (A3),-(A7) 0002796a 2f 12 |/ | MOVE.L (A2),-(A7) 0002796c 4e ba d9 40 |N @ | JSR 0x252ae 00027970 50 4f |PO | ADDQ.L #0x8,A7 00027972 28 9f |( | MOVE.L (A7)+,(A4) 00027974 20 2e ff ec | . | MOVE.L (A6-0x14),D0 00027978 52 80 |R | ADDQ.L #0x1,D0 0002797a 2f 14 |/ | MOVE.L (A4),-(A7) 0002797c 2a 00 |* | MOVE.L D0,D5 0002797e ba 97 | | CMP.L (A7),D5 00027980 6e 58 |nX | BGT 0x279da 00027982 55 4f |UO | SUBQ.L #0x2,A7 00027984 2f 13 |/ | MOVE.L (A3),-(A7) 00027986 2f 12 |/ | MOVE.L (A2),-(A7) 00027988 2f 05 |/ | MOVE.L D5,-(A7) 0002798a 4e ba f5 0e |N | JSR 0x26e9a 0002798e de c1 | | ADDA.W D1,A7 00027990 10 1f | | MOVE.B (A7)+,D0 00027992 0c 00 00 3d | = | CMPI.B #0x3d,D0 00027996 66 3e |f> | BNE 0x279d6 00027998 20 05 | | MOVE.L D5,D0 0002799a 52 80 |R | ADDQ.L #0x1,D0 0002799c 2f 14 |/ | MOVE.L (A4),-(A7) 0002799e 2e 00 |. | MOVE.L D0,D7 000279a0 be 97 | | CMP.L (A7),D7 000279a2 6e 2e |n. | BGT 0x279d2 000279a4 55 4f |UO | SUBQ.L #0x2,A7 000279a6 2f 13 |/ | MOVE.L (A3),-(A7) 000279a8 2f 12 |/ | MOVE.L (A2),-(A7) 000279aa 2f 07 |/ | MOVE.L D7,-(A7) 000279ac 4e ba f4 ec |N | JSR 0x26e9a 000279b0 de c1 | | ADDA.W D1,A7 000279b2 1c 1f | | MOVE.B (A7)+,D6 000279b4 0c 06 00 2f | / | CMPI.B #0x2f,D6 000279b8 66 04 |f | BNE 0x279be 000279ba 50 4f |PO | ADDQ.L #0x8,A7 000279bc 60 1e |` | BRA 0x279dc 000279be 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000279c2 2f 10 |/ | MOVE.L (A0),-(A7) 000279c4 1f 06 | | MOVE.B D6,-(A7) 000279c6 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000279cc 5c 4f |\O | ADDQ.L #0x6,A7 000279ce 52 87 |R | ADDQ.L #0x1,D7 000279d0 68 ce |h | BVC 0x279a0 000279d2 50 4f |PO | ADDQ.L #0x8,A7 000279d4 60 06 |` | BRA 0x279dc 000279d6 52 85 |R | ADDQ.L #0x1,D5 000279d8 68 a4 |h | BVC 0x2797e 000279da 58 4f |XO | ADDQ.L #0x4,A7 000279dc 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 000279e0 4e 5e |N^ | UNLK A6 000279e2 4e 75 |Nu | RTS 000279e4 ; -------------------------------------------------------------------------------------- 000279e4 ; OMSI PASCAL Function 000279e4 ; <LVAR 0x00c @ 4(r)> 000279e4 ; <LVAR 0x008 4(r)> 000279e4 ; <LVAR -0x010 @ 1(r)> 000279e4 ; -------------------------------------------------------------------------------------- 000279e4 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 000279e8 bf d5 | | CMPA.L (A5),A7 000279ea 62 06 |b | BHI 0x279f2 000279ec 44 fc 00 02 |D | MOVE.W #0x2,CCR 000279f0 4e 76 |Nv | TRAPV 000279f2 de fc 00 30 | 0 | ADDA.W #0x30,A7 000279f6 48 e7 87 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D0,-(A7) 000279fa 43 f9 00 03 d1 f6 |C | LEA.L 0x3d1f6,A1 00027a00 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00027a04 47 ee 00 0c |G | LEA.L (A6+0xc),A3 00027a08 2f 13 |/ | MOVE.L (A3),-(A7) 00027a0a 2f 12 |/ | MOVE.L (A2),-(A7) 00027a0c 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00027a10 4e b9 00 02 3e 70 |N >p | JSR 0x23e70 00027a16 de fc 00 0c | | ADDA.W #0xc,A7 00027a1a 4a 2e ff f0 |J. | TST.B (A6-0x10) 00027a1e 66 50 |fP | BNE 0x27a70 00027a20 2e 11 |. | MOVE.L (A1),D7 00027a22 59 4f |YO | SUBQ.L #0x4,A7 00027a24 2f 12 |/ | MOVE.L (A2),-(A7) 00027a26 4e ba d0 80 |N | JSR 0x24aa8 00027a2a 58 4f |XO | ADDQ.L #0x4,A7 00027a2c 2c 1f |, | MOVE.L (A7)+,D6 00027a2e 2f 13 |/ | MOVE.L (A3),-(A7) 00027a30 2f 12 |/ | MOVE.L (A2),-(A7) 00027a32 4e ba f3 2a |N * | JSR 0x26d5e 00027a36 50 4f |PO | ADDQ.L #0x8,A7 00027a38 2a 11 |* | MOVE.L (A1),D5 00027a3a 20 07 | | MOVE.L D7,D0 00027a3c 53 80 |S | SUBQ.L #0x1,D0 00027a3e 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0 00027a44 63 02 |c | BLS 0x27a48 00027a46 4e 4f |NO | TRAP #15 00027a48 41 f9 00 03 b1 ee |A | LEA.L 0x3b1ee,A0 00027a4e 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 00027a52 0c 00 00 25 | % | CMPI.B #0x25,D0 00027a56 66 0c |f | BNE 0x27a64 00027a58 22 87 |" | MOVE.L D7,(A1) 00027a5a 2f 12 |/ | MOVE.L (A2),-(A7) 00027a5c 2f 06 |/ | MOVE.L D6,-(A7) 00027a5e 4e ba fb 5c |N \ | JSR 0x275bc 00027a62 50 4f |PO | ADDQ.L #0x8,A7 00027a64 52 87 |R | ADDQ.L #0x1,D7 00027a66 be b9 00 03 d1 fa | | CMP.L 0x3d1fa,D7 00027a6c 6f cc |o | BLE 0x27a3a 00027a6e 22 85 |" | MOVE.L D5,(A1) 00027a70 48 53 |HS | PEA.L (A3) 00027a72 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00027a78 58 4f |XO | ADDQ.L #0x4,A7 00027a7a 4c df 0f e1 |L | MOVEM.L (A7)+,D0+D5+D6+D7+A0+A1+A2+A3 00027a7e 4e 5e |N^ | UNLK A6 00027a80 4e 75 |Nu | RTS 00027a82 ; -------------------------------------------------------------------------------------- 00027a82 ; OMSI PASCAL Function 00027a82 ; <LVAR -0x006 @ 4(r)> 00027a82 ; <LVAR -0x00a @ 4(rw)> 00027a82 ; <LVAR -0x00b 1(w)> 00027a82 ; <LVAR -0x00c @ 1(r)> 00027a82 ; -------------------------------------------------------------------------------------- 00027a82 4e 56 ff 94 |NV | LINK.W A6,#0xff94 00027a86 bf d5 | | CMPA.L (A5),A7 00027a88 62 06 |b | BHI 0x27a90 00027a8a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00027a8e 4e 76 |Nv | TRAPV 00027a90 de fc 00 54 | T | ADDA.W #0x54,A7 00027a94 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00027a98 45 ee ff fa |E | LEA.L (A6-0x6),A2 00027a9c 47 f9 00 03 d1 f6 |G | LEA.L 0x3d1f6,A3 00027aa2 49 ee ff f6 |I | LEA.L (A6-0xa),A4 00027aa6 2e 13 |. | MOVE.L (A3),D7 00027aa8 48 52 |HR | PEA.L (A2) 00027aaa 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00027aae 4e ba cf 4c |N L | JSR 0x249fc 00027ab2 50 4f |PO | ADDQ.L #0x8,A7 00027ab4 2c 13 |, | MOVE.L (A3),D6 00027ab6 59 4f |YO | SUBQ.L #0x4,A7 00027ab8 2f 12 |/ | MOVE.L (A2),-(A7) 00027aba 4e ba cf ec |N | JSR 0x24aa8 00027abe 58 4f |XO | ADDQ.L #0x4,A7 00027ac0 20 1f | | MOVE.L (A7)+,D0 00027ac2 0c 80 ff ff ff ff | | CMPI.L #0xffffffff,D0 00027ac8 67 00 02 ac |g | BEQ 0x27d76 00027acc 59 4f |YO | SUBQ.L #0x4,A7 00027ace 2f 12 |/ | MOVE.L (A2),-(A7) 00027ad0 48 78 00 00 |Hx | PEA.L 0x0 00027ad4 4e ba d8 ee |N | JSR 0x253c4 00027ad8 50 4f |PO | ADDQ.L #0x8,A7 00027ada 28 97 |( | MOVE.L (A7),(A4) 00027adc 54 4f |TO | ADDQ.L #0x2,A7 00027ade 2f 14 |/ | MOVE.L (A4),-(A7) 00027ae0 4e ba f1 c4 |N | JSR 0x26ca6 00027ae4 58 4f |XO | ADDQ.L #0x4,A7 00027ae6 10 1f | | MOVE.B (A7)+,D0 00027ae8 48 80 |H | EXTB.W D0 00027aea 41 bc 00 2b |A + | CHK.W #0x2b,D0 00027aee 1d 40 ff f5 | @ | MOVE.B D0,(A6-0xb) 00027af2 4a 00 |J | TST.B D0 00027af4 66 0e |f | BNE 0x27b04 00027af6 2f 14 |/ | MOVE.L (A4),-(A7) 00027af8 2f 12 |/ | MOVE.L (A2),-(A7) 00027afa 4e ba fe e8 |N | JSR 0x279e4 00027afe 50 4f |PO | ADDQ.L #0x8,A7 00027b00 60 00 02 6c |` l | BRA 0x27d6e 00027b04 48 54 |HT | PEA.L (A4) 00027b06 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00027b0c 58 4f |XO | ADDQ.L #0x4,A7 00027b0e 12 00 | | MOVE.B D0,D1 00027b10 48 81 |H | EXTB.W D1 00027b12 43 bc 00 2b |C + | CHK.W #0x2b,D1 00027b16 41 fa ca 86 |A | LEA.L 0x2459e,A0 00027b1a 30 01 |0 | MOVE.W D1,D0 00027b1c 48 c0 |H | EXTW.L D0 00027b1e 24 00 |$ | MOVE.L D0,D2 00027b20 e2 9a | | ROR.L #0x1,D2 00027b22 d0 c2 | | ADDA.W D2,A0 00027b24 48 42 |HB | SWAP.W D2 00027b26 e7 5a | Z | ROL.W #0x3,D2 00027b28 42 83 |B | CLR.L D3 00027b2a 16 10 | | MOVE.B (A0),D3 00027b2c e5 2b | + | LSL.B D2,D3 00027b2e e8 0b | | LSR.B #0x4,D3 00027b30 2a 03 |* | MOVE.L D3,D5 00027b32 0c 85 00 00 00 0f | | CMPI.L #0x0000000f,D5 00027b38 67 2c |g, | BEQ 0x27b66 00027b3a 28 00 |( | MOVE.L D0,D4 00027b3c 76 0a |v | MOVEQ.L #0x0a,D3 00027b3e 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00027b44 41 fa c8 8a |A | LEA.L COMMAND_TABLE_243d0,A0 00027b48 9e fc 00 0a | | SUBA.W #0xa,A7 00027b4c 22 4f |"O | MOVEA.L A7,A1 00027b4e 41 f0 40 00 |A @ | LEA.L (A0+D4.W),A0 00027b52 70 09 |p | MOVEQ.L #0x09,D0 00027b54 12 d8 | | MOVE.B (A0)+,(A1)+ 00027b56 51 c8 ff fc |Q | DBF D0,0x27b54 00027b5a 2f 12 |/ | MOVE.L (A2),-(A7) 00027b5c 2f 05 |/ | MOVE.L D5,-(A7) 00027b5e 4e ba cf 7e |N ~ | JSR 0x24ade 00027b62 de fc 00 12 | | ADDA.W #0x12,A7 00027b66 53 41 |SA | SUBQ.W #0x1,D1 00027b68 0c 41 00 2a | A * | CMPI.W #0x002a,D1 00027b6c 63 02 |c | BLS 0x27b70 00027b6e 4e 4e |NN | TRAP #14 00027b70 d2 41 | A | ADD.W D1,D1 00027b72 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 00027b7a 00 56 | V | .CONST 0x56 ; [0x0] -> 0x27bd0 00027b7c 00 62 | b | .CONST 0x62 ; [0x1] -> 0x27bdc 00027b7e 00 74 | t | .CONST 0x74 ; [0x2] -> 0x27bee 00027b80 00 82 | | .CONST 0x82 ; [0x3] -> 0x27bfc 00027b82 01 e6 | | .CONST 0x1e6 ; [0x4] -> 0x27d60 00027b84 00 8a | | .CONST 0x8a ; [0x5] -> 0x27c04 00027b86 00 8e | | .CONST 0x8e ; [0x6] -> 0x27c08 00027b88 00 96 | | .CONST 0x96 ; [0x7] -> 0x27c10 00027b8a 00 9e | | .CONST 0x9e ; [0x8] -> 0x27c18 00027b8c 00 a6 | | .CONST 0xa6 ; [0x9] -> 0x27c20 00027b8e 00 ae | | .CONST 0xae ; [0xa] -> 0x27c28 00027b90 00 b6 | | .CONST 0xb6 ; [0xb] -> 0x27c30 00027b92 00 be | | .CONST 0xbe ; [0xc] -> 0x27c38 00027b94 00 c6 | | .CONST 0xc6 ; [0xd] -> 0x27c40 00027b96 00 ce | | .CONST 0xce ; [0xe] -> 0x27c48 00027b98 00 d6 | | .CONST 0xd6 ; [0xf] -> 0x27c50 00027b9a 00 e0 | | .CONST 0xe0 ; [0x10] -> 0x27c5a 00027b9c 00 ea | | .CONST 0xea ; [0x11] -> 0x27c64 00027b9e 00 f4 | | .CONST 0xf4 ; [0x12] -> 0x27c6e 00027ba0 00 fe | | .CONST 0xfe ; [0x13] -> 0x27c78 00027ba2 01 08 | | .CONST 0x108 ; [0x14] -> 0x27c82 00027ba4 01 12 | | .CONST 0x112 ; [0x15] -> 0x27c8c 00027ba6 01 1c | | .CONST 0x11c ; [0x16] -> 0x27c96 00027ba8 01 26 | & | .CONST 0x126 ; [0x17] -> 0x27ca0 00027baa 01 30 | 0 | .CONST 0x130 ; [0x18] -> 0x27caa 00027bac 01 3a | : | .CONST 0x13a ; [0x19] -> 0x27cb4 00027bae 01 44 | D | .CONST 0x144 ; [0x1a] -> 0x27cbe 00027bb0 01 4e | N | .CONST 0x14e ; [0x1b] -> 0x27cc8 00027bb2 01 58 | X | .CONST 0x158 ; [0x1c] -> 0x27cd2 00027bb4 01 62 | b | .CONST 0x162 ; [0x1d] -> 0x27cdc 00027bb6 01 6c | l | .CONST 0x16c ; [0x1e] -> 0x27ce6 00027bb8 01 76 | v | .CONST 0x176 ; [0x1f] -> 0x27cf0 00027bba 01 80 | | .CONST 0x180 ; [0x20] -> 0x27cfa 00027bbc 01 8a | | .CONST 0x18a ; [0x21] -> 0x27d04 00027bbe 01 94 | | .CONST 0x194 ; [0x22] -> 0x27d0e 00027bc0 01 9e | | .CONST 0x19e ; [0x23] -> 0x27d18 00027bc2 01 a8 | | .CONST 0x1a8 ; [0x24] -> 0x27d22 00027bc4 01 b2 | | .CONST 0x1b2 ; [0x25] -> 0x27d2c 00027bc6 01 b8 | | .CONST 0x1b8 ; [0x26] -> 0x27d32 00027bc8 01 c2 | | .CONST 0x1c2 ; [0x27] -> 0x27d3c 00027bca 01 cc | | .CONST 0x1cc ; [0x28] -> 0x27d46 00027bcc 01 d6 | | .CONST 0x1d6 ; [0x29] -> 0x27d50 00027bce 01 dc | | .CONST 0x1dc ; [0x2a] -> 0x27d56 00027bd0 switch@0x27b72[0x0]: 00027bd0 2f 12 |/ | MOVE.L (A2),-(A7) 00027bd2 4e ba d9 78 |N x | JSR 0x2554c 00027bd6 58 4f |XO | ADDQ.L #0x4,A7 00027bd8 60 00 01 94 |` | BRA 0x27d6e 00027bdc switch@0x27b72[0x1]: 00027bdc 42 27 |B' | CLR.B -(A7) 00027bde 48 78 00 01 |Hx | PEA.L 0x1 00027be2 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00027be8 5c 4f |\O | ADDQ.L #0x6,A7 00027bea 60 00 01 82 |` | BRA 0x27d6e 00027bee switch@0x27b72[0x2]: 00027bee 59 4f |YO | SUBQ.L #0x4,A7 00027bf0 4e b9 00 01 02 ac |N | JSR FSCALL_102ac 00027bf6 4e ba d9 2a |N * | JSR 0x25522 00027bfa 60 da |` | BRA 0x27bd6 00027bfc switch@0x27b72[0x3]: 00027bfc 2f 12 |/ | MOVE.L (A2),-(A7) 00027bfe 4e ba db 26 |N & | JSR 0x25726 00027c02 60 d2 |` | BRA 0x27bd6 00027c04 switch@0x27b72[0x5]: 00027c04 60 00 01 68 |` h | BRA 0x27d6e 00027c08 switch@0x27b72[0x6]: 00027c08 2f 12 |/ | MOVE.L (A2),-(A7) 00027c0a 4e ba de 40 |N @ | JSR 0x25a4c 00027c0e 60 c6 |` | BRA 0x27bd6 00027c10 switch@0x27b72[0x7]: 00027c10 2f 12 |/ | MOVE.L (A2),-(A7) 00027c12 4e ba df a4 |N | JSR 0x25bb8 00027c16 60 be |` | BRA 0x27bd6 00027c18 switch@0x27b72[0x8]: 00027c18 2f 12 |/ | MOVE.L (A2),-(A7) 00027c1a 4e ba e0 8a |N | JSR 0x25ca6 00027c1e 60 b6 |` | BRA 0x27bd6 00027c20 switch@0x27b72[0x9]: 00027c20 2f 12 |/ | MOVE.L (A2),-(A7) 00027c22 4e ba e4 76 |N v | JSR 0x2609a 00027c26 60 ae |` | BRA 0x27bd6 00027c28 switch@0x27b72[0xa]: 00027c28 2f 12 |/ | MOVE.L (A2),-(A7) 00027c2a 4e ba e4 e6 |N | JSR 0x26112 00027c2e 60 a6 |` | BRA 0x27bd6 00027c30 switch@0x27b72[0xb]: 00027c30 2f 12 |/ | MOVE.L (A2),-(A7) 00027c32 4e ba e5 56 |N V | JSR 0x2618a 00027c36 60 9e |` | BRA 0x27bd6 00027c38 switch@0x27b72[0xc]: 00027c38 2f 12 |/ | MOVE.L (A2),-(A7) 00027c3a 4e ba e5 7a |N z | JSR 0x261b6 00027c3e 60 96 |` | BRA 0x27bd6 00027c40 switch@0x27b72[0xd]: 00027c40 2f 12 |/ | MOVE.L (A2),-(A7) 00027c42 4e ba e6 72 |N r | JSR 0x262b6 00027c46 60 8e |` | BRA 0x27bd6 00027c48 switch@0x27b72[0xe]: 00027c48 2f 12 |/ | MOVE.L (A2),-(A7) 00027c4a 4e ba e7 50 |N P | JSR 0x2639c 00027c4e 60 86 |` | BRA 0x27bd6 00027c50 switch@0x27b72[0xf]: 00027c50 2f 12 |/ | MOVE.L (A2),-(A7) 00027c52 4e ba e7 74 |N t | JSR 0x263c8 00027c56 60 00 ff 7e |` ~ | BRA 0x27bd6 00027c5a switch@0x27b72[0x10]: 00027c5a 2f 12 |/ | MOVE.L (A2),-(A7) 00027c5c 4e ba e7 b6 |N | JSR 0x26414 00027c60 60 00 ff 74 |` t | BRA 0x27bd6 00027c64 switch@0x27b72[0x11]: 00027c64 2f 12 |/ | MOVE.L (A2),-(A7) 00027c66 4e ba e7 f8 |N | JSR 0x26460 00027c6a 60 00 ff 6a |` j | BRA 0x27bd6 00027c6e switch@0x27b72[0x12]: 00027c6e 2f 12 |/ | MOVE.L (A2),-(A7) 00027c70 4e ba e8 3a |N : | JSR 0x264ac 00027c74 60 00 ff 60 |` ` | BRA 0x27bd6 00027c78 switch@0x27b72[0x13]: 00027c78 2f 12 |/ | MOVE.L (A2),-(A7) 00027c7a 4e ba e8 7c |N | | JSR 0x264f8 00027c7e 60 00 ff 56 |` V | BRA 0x27bd6 00027c82 switch@0x27b72[0x14]: 00027c82 2f 12 |/ | MOVE.L (A2),-(A7) 00027c84 4e ba e8 be |N | JSR 0x26544 00027c88 60 00 ff 4c |` L | BRA 0x27bd6 00027c8c switch@0x27b72[0x15]: 00027c8c 2f 12 |/ | MOVE.L (A2),-(A7) 00027c8e 4e ba e9 00 |N | JSR 0x26590 00027c92 60 00 ff 42 |` B | BRA 0x27bd6 00027c96 switch@0x27b72[0x16]: 00027c96 2f 12 |/ | MOVE.L (A2),-(A7) 00027c98 4e ba e9 40 |N @ | JSR 0x265da 00027c9c 60 00 ff 38 |` 8 | BRA 0x27bd6 00027ca0 switch@0x27b72[0x17]: 00027ca0 2f 12 |/ | MOVE.L (A2),-(A7) 00027ca2 4e ba e9 80 |N | JSR 0x26624 00027ca6 60 00 ff 2e |` . | BRA 0x27bd6 00027caa switch@0x27b72[0x18]: 00027caa 2f 12 |/ | MOVE.L (A2),-(A7) 00027cac 4e ba e9 c0 |N | JSR 0x2666e 00027cb0 60 00 ff 24 |` $ | BRA 0x27bd6 00027cb4 switch@0x27b72[0x19]: 00027cb4 2f 12 |/ | MOVE.L (A2),-(A7) 00027cb6 4e ba ea 00 |N | JSR 0x266b8 00027cba 60 00 ff 1a |` | BRA 0x27bd6 00027cbe switch@0x27b72[0x1a]: 00027cbe 2f 12 |/ | MOVE.L (A2),-(A7) 00027cc0 4e ba ea 40 |N @ | JSR 0x26702 00027cc4 60 00 ff 10 |` | BRA 0x27bd6 00027cc8 switch@0x27b72[0x1b]: 00027cc8 2f 12 |/ | MOVE.L (A2),-(A7) 00027cca 4e ba ea 80 |N | JSR 0x2674c 00027cce 60 00 ff 06 |` | BRA 0x27bd6 00027cd2 switch@0x27b72[0x1c]: 00027cd2 2f 12 |/ | MOVE.L (A2),-(A7) 00027cd4 4e ba ea c0 |N | JSR 0x26796 00027cd8 60 00 fe fc |` | BRA 0x27bd6 00027cdc switch@0x27b72[0x1d]: 00027cdc 2f 12 |/ | MOVE.L (A2),-(A7) 00027cde 4e ba eb 00 |N | JSR 0x267e0 00027ce2 60 00 fe f2 |` | BRA 0x27bd6 00027ce6 switch@0x27b72[0x1e]: 00027ce6 2f 12 |/ | MOVE.L (A2),-(A7) 00027ce8 4e ba eb 3a |N : | JSR 0x26824 00027cec 60 00 fe e8 |` | BRA 0x27bd6 00027cf0 switch@0x27b72[0x1f]: 00027cf0 2f 12 |/ | MOVE.L (A2),-(A7) 00027cf2 4e ba eb 76 |N v | JSR 0x2686a 00027cf6 60 00 fe de |` | BRA 0x27bd6 00027cfa switch@0x27b72[0x20]: 00027cfa 2f 12 |/ | MOVE.L (A2),-(A7) 00027cfc 4e ba eb a2 |N | JSR 0x268a0 00027d00 60 00 fe d4 |` | BRA 0x27bd6 00027d04 switch@0x27b72[0x21]: 00027d04 2f 12 |/ | MOVE.L (A2),-(A7) 00027d06 4e ba ec 28 |N ( | JSR 0x26930 00027d0a 60 00 fe ca |` | BRA 0x27bd6 00027d0e switch@0x27b72[0x22]: 00027d0e 2f 12 |/ | MOVE.L (A2),-(A7) 00027d10 4e ba ec 90 |N | JSR 0x269a2 00027d14 60 00 fe c0 |` | BRA 0x27bd6 00027d18 switch@0x27b72[0x23]: 00027d18 2f 12 |/ | MOVE.L (A2),-(A7) 00027d1a 4e ba df ec |N | JSR 0x25d08 00027d1e 60 00 fe b6 |` | BRA 0x27bd6 00027d22 switch@0x27b72[0x24]: 00027d22 2f 12 |/ | MOVE.L (A2),-(A7) 00027d24 4e ba e0 4c |N L | JSR 0x25d72 00027d28 60 00 fe ac |` | BRA 0x27bd6 00027d2c switch@0x27b72[0x25]: 00027d2c 4e ba e0 16 |N | JSR 0x25d44 00027d30 60 3c |`< | BRA 0x27d6e 00027d32 switch@0x27b72[0x26]: 00027d32 2f 12 |/ | MOVE.L (A2),-(A7) 00027d34 4e ba ec de |N | JSR 0x26a14 00027d38 60 00 fe 9c |` | BRA 0x27bd6 00027d3c switch@0x27b72[0x27]: 00027d3c 2f 12 |/ | MOVE.L (A2),-(A7) 00027d3e 4e ba ed 56 |N V | JSR 0x26a96 00027d42 60 00 fe 92 |` | BRA 0x27bd6 00027d46 switch@0x27b72[0x28]: 00027d46 2f 12 |/ | MOVE.L (A2),-(A7) 00027d48 4e ba ed cc |N | JSR 0x26b16 00027d4c 60 00 fe 88 |` | BRA 0x27bd6 00027d50 switch@0x27b72[0x29]: 00027d50 4e ba ee 88 |N | JSR 0x26bda 00027d54 60 18 |` | BRA 0x27d6e 00027d56 switch@0x27b72[0x2a]: 00027d56 2f 12 |/ | MOVE.L (A2),-(A7) 00027d58 4e ba ee a0 |N | JSR 0x26bfa 00027d5c 60 00 fe 78 |` x | BRA 0x27bd6 00027d60 switch@0x27b72[0x4]: 00027d60 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00027d64 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 00027d68 4e f9 00 02 7f 78 |N x | JMP 0x27f78 00027d6e 2f 12 |/ | MOVE.L (A2),-(A7) 00027d70 4e ba c8 e8 |N | JSR 0x2465a 00027d74 58 4f |XO | ADDQ.L #0x4,A7 00027d76 2f 06 |/ | MOVE.L D6,-(A7) 00027d78 2f 06 |/ | MOVE.L D6,-(A7) 00027d7a 9f 97 | | SUB.L D7,(A7) 00027d7c 4e ba ce 72 |N r | JSR 0x24bf0 00027d80 50 4f |PO | ADDQ.L #0x8,A7 00027d82 26 87 |& | MOVE.L D7,(A3) 00027d84 4a 2e ff f4 |J. | TST.B (A6-0xc) 00027d88 67 00 fd 1c |g | BEQ 0x27aa6 00027d8c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00027d90 4e 5e |N^ | UNLK A6 00027d92 4e 75 |Nu | RTS 00027d94 ; -------------------------------------------------------------------------------------- 00027d94 ; OMSI PASCAL Function 00027d94 ; -------------------------------------------------------------------------------------- 00027d94 START: 00027d94 4f fa 00 08 |O | LEA.L MAIN,A7 00027d98 4e f9 00 01 02 80 |N | JMP ?start_program 00027d9e MAIN: 00027d9e 23 fc 00 00 00 01 00 03 |# | MOVE.L #0x1,0x3d220 00027da6 d2 20 | | 00027da8 59 4f |YO | SUBQ.L #0x4,A7 00027daa 4e b9 00 01 03 c4 |N | JSR GetArgv() : String 00027db0 23 df 00 03 d2 24 |# $ | MOVE.L (A7)+,0x3d224 00027db6 48 79 00 03 d1 fe |Hy | PEA.L 0x3d1fe 00027dbc 4e b9 00 02 3f a6 |N ? | JSR 0x23fa6 00027dc2 58 4f |XO | ADDQ.L #0x4,A7 00027dc4 20 79 00 03 d2 24 | y $ | MOVEA.L 0x3d224,A0 00027dca 4a 50 |JP | TST.W (A0) 00027dcc 6f 68 |oh | BLE 0x27e36 00027dce 51 4f |QO | SUBQ.L #0x8,A7 00027dd0 20 4f | O | MOVEA.L A7,A0 00027dd2 43 fa c5 de |C | LEA.L 0x243b2,A1 00027dd6 70 06 |p | MOVEQ.L #0x06,D0 00027dd8 10 d9 | | MOVE.B (A1)+,(A0)+ 00027dda 51 c8 ff fc |Q | DBF D0,0x27dd8 00027dde 51 4f |QO | SUBQ.L #0x8,A7 00027de0 20 4f | O | MOVEA.L A7,A0 00027de2 43 fa c5 d6 |C | LEA.L 0x243ba,A1 00027de6 70 06 |p | MOVEQ.L #0x06,D0 00027de8 10 d9 | | MOVE.B (A1)+,(A0)+ 00027dea 51 c8 ff fc |Q | DBF D0,0x27de8 00027dee 51 4f |QO | SUBQ.L #0x8,A7 00027df0 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00027df4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00027df8 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00027dfc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00027e02 58 4f |XO | ADDQ.L #0x4,A7 00027e04 2e b9 00 03 d2 24 |. $ | MOVE.L 0x3d224,(A7) 00027e0a 59 4f |YO | SUBQ.L #0x4,A7 00027e0c 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00027e10 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00027e14 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00027e18 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00027e1e 50 4f |PO | ADDQ.L #0x8,A7 00027e20 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00027e26 de fc 00 0c | | ADDA.W #0xc,A7 00027e2a 23 df 00 03 d2 24 |# $ | MOVE.L (A7)+,0x3d224 00027e30 de fc 00 10 | | ADDA.W #0x10,A7 00027e34 60 3a |`: | BRA 0x27e70 00027e36 48 79 00 03 d2 24 |Hy $ | PEA.L 0x3d224 00027e3c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00027e42 59 4f |YO | SUBQ.L #0x4,A7 00027e44 20 4f | O | MOVEA.L A7,A0 00027e46 43 fa c5 7a |C z | LEA.L 0x243c2,A1 00027e4a 70 06 |p | MOVEQ.L #0x06,D0 00027e4c 10 d9 | | MOVE.B (A1)+,(A0)+ 00027e4e 51 c8 ff fc |Q | DBF D0,0x27e4c 00027e52 59 4f |YO | SUBQ.L #0x4,A7 00027e54 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00027e58 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00027e5c 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00027e60 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00027e66 50 4f |PO | ADDQ.L #0x8,A7 00027e68 23 df 00 03 d2 24 |# $ | MOVE.L (A7)+,0x3d224 00027e6e 50 4f |PO | ADDQ.L #0x8,A7 00027e70 13 fc 00 01 00 03 d2 2e | .| MOVE.B #0x01,0x3d22e 00027e78 4a 39 00 03 d2 2e |J9 . | TST.B 0x3d22e 00027e7e 67 0a |g | BEQ 0x27e8a 00027e80 42 39 00 03 d2 2e |B9 . | CLR.B 0x3d22e 00027e86 60 00 00 b0 |` | BRA 0x27f38 00027e8a 41 f9 00 03 d2 08 |A | LEA.L 0x3d208,A0 00027e90 70 04 |p | MOVEQ.L #0x04,D0 00027e92 3f 20 |? | MOVE.W -(A0),-(A7) 00027e94 51 c8 ff fc |Q | DBF D0,0x27e92 00027e98 3f 3a c5 30 |?: 0 | MOVE.W 0x243ca,-(A7) 00027e9c 9e fc 00 0c | | SUBA.W #0xc,A7 00027ea0 48 6f 00 0e |Ho | PEA.L (A7+0xe) 00027ea4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00027ea8 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00027eac 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00027eb2 58 4f |XO | ADDQ.L #0x4,A7 00027eb4 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00027eb8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00027ebc 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00027ec0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00027ec6 50 4f |PO | ADDQ.L #0x8,A7 00027ec8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00027ece 50 4f |PO | ADDQ.L #0x8,A7 00027ed0 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00027ed6 58 4f |XO | ADDQ.L #0x4,A7 00027ed8 23 df 00 03 d2 2a |# * | MOVE.L (A7)+,0x3d22a 00027ede 50 4f |PO | ADDQ.L #0x8,A7 00027ee0 2e b9 00 03 d2 2a |. * | MOVE.L 0x3d22a,(A7) 00027ee6 4e ba ca 0c |N | JSR 0x248f4 00027eea 54 4f |TO | ADDQ.L #0x2,A7 00027eec 3e ba c4 de |> | MOVE.W 0x243cc,(A7) 00027ef0 3f 3a c4 dc |?: | MOVE.W 0x243ce,-(A7) 00027ef4 51 4f |QO | SUBQ.L #0x8,A7 00027ef6 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00027efa 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00027efe 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00027f02 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00027f08 58 4f |XO | ADDQ.L #0x4,A7 00027f0a 2e b9 00 03 d2 2a |. * | MOVE.L 0x3d22a,(A7) 00027f10 59 4f |YO | SUBQ.L #0x4,A7 00027f12 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00027f16 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00027f1a 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00027f1e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00027f24 50 4f |PO | ADDQ.L #0x8,A7 00027f26 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00027f2c de fc 00 0c | | ADDA.W #0xc,A7 00027f30 23 df 00 03 d2 24 |# $ | MOVE.L (A7)+,0x3d224 00027f36 58 4f |XO | ADDQ.L #0x4,A7 00027f38 42 39 00 03 d2 28 |B9 ( | CLR.B 0x3d228 00027f3e 23 fc 00 00 00 01 00 03 |# | MOVE.L #0x1,0x3d1f6 00027f46 d1 f6 | | 00027f48 42 b9 00 03 d1 fa |B | CLR.L 0x3d1fa 00027f4e 59 4f |YO | SUBQ.L #0x4,A7 00027f50 2f 39 00 03 d2 24 |/9 $ | MOVE.L 0x3d224,-(A7) 00027f56 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00027f5c 58 4f |XO | ADDQ.L #0x4,A7 00027f5e 4e ba d5 06 |N | JSR 0x25466 00027f62 58 4f |XO | ADDQ.L #0x4,A7 00027f64 20 39 00 03 d1 f6 | 9 | MOVE.L 0x3d1f6,D0 00027f6a b0 b9 00 03 d1 fa | | CMP.L 0x3d1fa,D0 00027f70 6e 06 |n | BGT 0x27f78 00027f72 4e ba fb 0e |N | JSR 0x27a82 00027f76 60 ec |` | BRA 0x27f64 00027f78 48 79 00 03 d2 24 |Hy $ | PEA.L 0x3d224 00027f7e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00027f84 58 4f |XO | ADDQ.L #0x4,A7 00027f86 60 00 fe f0 |` | BRA 0x27e78 00027f8a 4e b9 00 01 02 84 |N | .XXX[0x6] 00027f90 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00027f9e ; -------------------------------------------------------------------------------------- 00027f9e ; OMSI PASCAL Function 00027f9e ; <LVAR 0x008 1(r)> 00027f9e ; -------------------------------------------------------------------------------------- 00027f9e PROG_FAIL: 00027f9e 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00027fa2 bf d5 | | CMPA.L (A5),A7 00027fa4 62 06 |b | BHI 0x27fac 00027fa6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00027faa 4e 76 |Nv | TRAPV 00027fac de fc 00 2c | , | ADDA.W #0x2c,A7 00027fb0 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00027fb4 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00027fb8 70 06 |p | MOVEQ.L #0x06,D0 00027fba 3f 20 |? | MOVE.W -(A0),-(A7) 00027fbc 51 c8 ff fc |Q | DBF D0,0x27fba 00027fc0 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00027fc4 51 4f |QO | SUBQ.L #0x8,A7 00027fc6 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00027fca 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00027fce 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00027fd2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00027fd8 58 4f |XO | ADDQ.L #0x4,A7 00027fda 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00027fde 48 80 |H | EXTB.W D0 00027fe0 48 c0 |H | EXTW.L D0 00027fe2 2f 00 |/ | MOVE.L D0,-(A7) 00027fe4 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00027fea 58 4f |XO | ADDQ.L #0x4,A7 00027fec 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00027ff2 50 4f |PO | ADDQ.L #0x8,A7 00027ff4 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00027ffa de fc 00 14 | | ADDA.W #0x14,A7 00027ffe 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00028002 4e 5e |N^ | UNLK A6 00028004 4e 75 |Nu | RTS 00028006 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00028014 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00028022 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00028030 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00028042 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 0002805a ; -------------------------------------------------------------------------------------- 0002805a ; OMSI PASCAL Function 0002805a ; <LVAR 0x00e 1(r)> 0002805a ; <LVAR 0x00a 4(r)> 0002805a ; <LVAR 0x008 1(r)> 0002805a ; -------------------------------------------------------------------------------------- 0002805a EXP_FAIL: 0002805a 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 0002805e bf d5 | | CMPA.L (A5),A7 00028060 62 06 |b | BHI 0x28068 00028062 44 fc 00 02 |D | MOVE.W #0x2,CCR 00028066 4e 76 |Nv | TRAPV 00028068 de fc 00 74 | t | ADDA.W #0x74,A7 0002806c 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00028070 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00028076 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 0002807c 72 01 |r | MOVEQ.L #0x01,D1 0002807e 74 0d |t | MOVEQ.L #0x0d,D2 00028080 76 1e |v | MOVEQ.L #0x1e,D3 00028082 78 12 |x | MOVEQ.L #0x12,D4 00028084 7a 0e |z | MOVEQ.L #0x0e,D5 00028086 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002808c 41 fa ff b4 |A | LEA.L 0x28042,A0 00028090 70 08 |p | MOVEQ.L #0x08,D0 00028092 3f 20 |? | MOVE.W -(A0),-(A7) 00028094 51 c8 ff fc |Q | DBF D0,0x28092 00028098 59 4f |YO | SUBQ.L #0x4,A7 0002809a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002809e 3f 01 |? | MOVE.W D1,-(A7) 000280a0 3f 04 |? | MOVE.W D4,-(A7) 000280a2 4e 93 |N | JSR (A3) 000280a4 50 4f |PO | ADDQ.L #0x8,A7 000280a6 4e 94 |N | JSR (A4) 000280a8 50 4f |PO | ADDQ.L #0x8,A7 000280aa 20 4f | O | MOVEA.L A7,A0 000280ac 43 fa ff 58 |C X | LEA.L 0x28006,A1 000280b0 70 0c |p | MOVEQ.L #0x0c,D0 000280b2 10 d9 | | MOVE.B (A1)+,(A0)+ 000280b4 51 c8 ff fc |Q | DBF D0,0x280b2 000280b8 51 4f |QO | SUBQ.L #0x8,A7 000280ba 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000280be 3f 01 |? | MOVE.W D1,-(A7) 000280c0 3f 02 |? | MOVE.W D2,-(A7) 000280c2 4e 93 |N | JSR (A3) 000280c4 54 4f |TO | ADDQ.L #0x2,A7 000280c6 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000280ca 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000280d0 54 4f |TO | ADDQ.L #0x2,A7 000280d2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000280d8 50 4f |PO | ADDQ.L #0x8,A7 000280da 4e 94 |N | JSR (A4) 000280dc de c4 | | ADDA.W D4,A7 000280de 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000280e2 b0 c1 | | CMPA.W D1,A0 000280e4 67 48 |gH | BEQ 0x2812e 000280e6 9e c5 | | SUBA.W D5,A7 000280e8 22 4f |"O | MOVEA.L A7,A1 000280ea 45 fa ff 28 |E ( | LEA.L 0x28014,A2 000280ee 70 0c |p | MOVEQ.L #0x0c,D0 000280f0 12 da | | MOVE.B (A2)+,(A1)+ 000280f2 51 c8 ff fc |Q | DBF D0,0x280f0 000280f6 9e c3 | | SUBA.W D3,A7 000280f8 22 4f |"O | MOVEA.L A7,A1 000280fa 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000280fe 70 1d |p | MOVEQ.L #0x1d,D0 00028100 12 d8 | | MOVE.B (A0)+,(A1)+ 00028102 51 c8 ff fc |Q | DBF D0,0x28100 00028106 51 4f |QO | SUBQ.L #0x8,A7 00028108 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 0002810c 3f 01 |? | MOVE.W D1,-(A7) 0002810e 3f 02 |? | MOVE.W D2,-(A7) 00028110 4e 93 |N | JSR (A3) 00028112 58 4f |XO | ADDQ.L #0x4,A7 00028114 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00028118 3f 01 |? | MOVE.W D1,-(A7) 0002811a 3f 03 |? | MOVE.W D3,-(A7) 0002811c 4e 93 |N | JSR (A3) 0002811e 50 4f |PO | ADDQ.L #0x8,A7 00028120 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00028126 50 4f |PO | ADDQ.L #0x8,A7 00028128 4e 94 |N | JSR (A4) 0002812a de fc 00 30 | 0 | ADDA.W #0x30,A7 0002812e 9e c5 | | SUBA.W D5,A7 00028130 20 4f | O | MOVEA.L A7,A0 00028132 43 fa fe ee |C | LEA.L 0x28022,A1 00028136 70 0c |p | MOVEQ.L #0x0c,D0 00028138 10 d9 | | MOVE.B (A1)+,(A0)+ 0002813a 51 c8 ff fc |Q | DBF D0,0x28138 0002813e 51 4f |QO | SUBQ.L #0x8,A7 00028140 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00028144 3f 01 |? | MOVE.W D1,-(A7) 00028146 3f 02 |? | MOVE.W D2,-(A7) 00028148 4e 93 |N | JSR (A3) 0002814a 54 4f |TO | ADDQ.L #0x2,A7 0002814c 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00028150 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00028156 54 4f |TO | ADDQ.L #0x2,A7 00028158 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002815e 50 4f |PO | ADDQ.L #0x8,A7 00028160 4e 94 |N | JSR (A4) 00028162 5d 4f |]O | SUBQ.L #0x6,A7 00028164 20 4f | O | MOVEA.L A7,A0 00028166 43 fa fe da |C | LEA.L 0x28042,A1 0002816a 70 16 |p | MOVEQ.L #0x16,D0 0002816c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002816e 51 c8 ff fc |Q | DBF D0,0x2816c 00028172 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00028176 59 4f |YO | SUBQ.L #0x4,A7 00028178 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002817c 3f 01 |? | MOVE.W D1,-(A7) 0002817e 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00028182 4e 93 |N | JSR (A3) 00028184 50 4f |PO | ADDQ.L #0x8,A7 00028186 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002818c de c3 | | ADDA.W D3,A7 0002818e 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00028192 4e 5e |N^ | UNLK A6 00028194 4e 75 |Nu | RTS