|
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: 16384 (0x4000)
Types: M200
Notes: @(#)REWRITE,1.01,92/02/06,09:25:31, M200_PROGRAM
Names: »REWRITE.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »REWRITE.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »REWRITE.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »REWRITE.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »REWRITE.M200«
└─ ⟦this⟧ »REWRITE.M200«
@ 20df0
<POP 20df0-20e40 Body>
<POP 20df0-20e06 Prologue> Σ0 ↓
<POP 20e06-20e38 Naked> Σ0 ↓
<Blob 0x20e06 [44] @> Δ-44 {[«44""»]}
<POP 20e18-20e1a StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x20e1a 43> {[«44""»]|[$$Trace facility not bound into this version.]}
<Call 0x20e2e 0x103e0> {[«44""»]|[$$Trace facility not bound into this version.]}
WriteConsoleStringCrLf(str : String)
<POP 20e34-20e38 StackAdj> Δ+48 {}
<POP 20e38-20e40 Epilogue> Σ0
@ 20e40
<LVAR 0x008 4(r)>
<POP 20e40-20ea2 Body>
<POP 20e40-20e52 Prologue> Σ0 ↓
<POP 20e52-20e9e Naked> Σ0 ↓
<Const 0x20e52 0x1312c.4> Δ-4 {[##78124]}
<Call 0x20e58 0x10224> {[##78124]}
KC12_Sleep(dur: Long)
<POP 20e5e-20e60 StackAdj> Δ+4 {}
<Call 0x20e60 0x10398> {}
FSCALL_10398
<Blob 0x20e66 [4] @> Δ-4 {[«4""»]}
<Blob 0x20e6a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Const 0x20e6e 0x2.2> Δ-2 {[«4""»]|[«4""»]|[#2]}
<POP 20e72-20e74 StackAdj> Δ-8 {[«4""»]|[«4""»]|[#2]|[-8-]}
<Lit 0x20e74 8> {[«4""»]|[«4""»]|[#2]|[-4-]|[$$ _]}
<POP 20e86-20e88 StackAdj> Δ-4 {[«4""»]|[«4""»]|[#2]|[-4-]|[$$ _]|[-4-]}
<MI 20e88 MOVE.L (A6+0x8),(A7)> {[«4""»]|[«4""»]|[#2]|[-4-]|[$$ _]|[4, '(A6+0x8)']}
<Call 0x20e8c 0x102d0> {[«4""»]|[«4""»]|[#2]|[-4-]|[$$ _]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 20e92-20e94 StackAdj> Δ+8 {[«4""»]|[«4""»]|[#2]|[-4-]}
<Call 0x20e94 0x103b8> {[«4""»]|[«4""»]|[#2]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20e9a-20e9e StackAdj> Δ+14 {}
<POP 20e9e-20ea2 Epilogue> Σ0
@ 20ea2
<POP 20ea2-20ecc Body>
<POP 20ea2-20eb4 Prologue> Σ0 ↓
<POP 20eb4-20ec8 Naked> Σ0 ↓
<Call 0x20eb4 0x10398> {}
FSCALL_10398
<MI 20eba CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x20ebc 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x20ec0 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20ec6-20ec8 StackAdj> Δ+6 {}
<POP 20ec8-20ecc Epilogue> Σ0
@ 20ecc
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 20ecc-2104c Body> Δ+4
<POP 20ecc-20ee2 Prologue> Σ0 ↓
<POP 20ee2-20ef6 RegCacheLoad> Σ0 ↓
<POP 20ef6-20efc Naked> Σ0 ↓ →0x20f36
<MI 20ef6 TST.L (A6+0x8)> {}
<MI 20efa BGE 0x20f36> {}
<POP 20efc-20f36 Naked> Σ0 →0x20f3a
<Blob 0x20efc [52] @> Δ-52 {[«52""»]}
<POP 20f0c-20f0e StackAdj> Δ-8 {[«52""»]|[-8-]}
<Lit 0x20f0e 51> {[«52""»]|[-4-]|[$$Enter slot to display, [ 7:IOC .. 0:TERMINATOR ] :_]}
<Const 0x20f1c 0xffffffff.4> Δ-4 {[«52""»]|[-4-]|[$$Enter slot to display, [ 7:IOC .. 0:TERMINATOR ] :_]|[##4294967295]}
<Const 0x20f20 0x7fffffff.4> Δ-4 {[«52""»]|[-4-]|[$$Enter slot to display, [ 7:IOC .. 0:TERMINATOR ] :_]|[##4294967295]|[##2147483647]}
<Call 0x20f26 0x103ec> {[«52""»]|[-4-]|[$$Enter slot to display, [ 7:IOC .. 0:TERMINATOR ] :_]|[##4294967295]|[##2147483647]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 20f2c-20f30 StackAdj> Δ+12 {[«52""»]|[-4-]}
<MI 20f30 MOVE.L (A7)+,D5> Δ+4 {[«52""»]}
<POP 20f32-20f34 StackAdj> Δ+52 {}
<MI 20f34 BRA 0x20f3a> {}
<POP 20f36-20f3a Naked> Σ0 ↓ ←0x20ef6
<MI 20f36 MOVE.L (A6+0x8),D5> {}
<POP 20f3a-20f3e Naked> Σ0 ↓ ←0x20efc
<MI 20f3a MOVEQ.L #0x00,D7> {}
<MI 20f3c MOVEQ.L #0x00,D6> {}
<POP 20f3e-20f7c Naked> Σ0 ↓ →0x21038 ←0x21038
<MI 20f3e MOVEQ.L #0x04,D4> {}
<MI 20f40 MOVE.L D6,D3> {}
<Call 0x20f42 0x1028c> {}
?muls_d3_d4
<MI 20f48 MOVE.L D5,D0> {}
<MI 20f4a ASL.L #0x8,D0> {}
<MI 20f4c ASL.L #0x2,D0> {}
<MI 20f4e ADDI.L #0xa1000000,D0> {}
<MI 20f54 ADD.L D4,D0> {}
<MI 20f56 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<Const 0x20f58 0x5.2> Δ-2 {[4, 'D0']|[#5]}
<MI 20f5c LEA.L (A6-0x8),A0> {[4, 'D0']|[#5]}
<MI 20f5e MOVE.L A0,-(A7)> Δ-4 {[4, 'D0']|[#5]|[4, 'A0']}
<Const 0x20f60 0x1.2> Δ-2 {[4, 'D0']|[#5]|[4, 'A0']|[#1]}
<Const 0x20f62 0x4.2> Δ-2 {[4, 'D0']|[#5]|[4, 'A0']|[#1]|[#4]}
<Call 0x20f66 0x1023a> {[4, 'D0']|[#5]|[4, 'A0']|[#1]|[#4]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 20f6c-20f70 StackAdj> Δ+14 {}
<MI 20f70 MOVE.L (A6-0x8),D0> {}
<MI 20f72 ANDI.L #0x40000000,D0> {}
<MI 20f78 BNE 0x21038> {}
<POP 20f7c-20fb8 Naked> Σ0 ↓ →0x20fcc
<POP 20f7c-20f7e StackAdj> Δ-4 {[-4-]}
<MI 20f7e MOVE.L D6,D0> {[-4-]}
<MI 20f80 ASL.L #0x8,D0> {[-4-]}
<MI 20f82 ASL.L #0x2,D0> {[-4-]}
<MI 20f84 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<Const 0x20f86 0x6.4> Δ-4 {[-4-]|[4, 'D0']|[##6]}
<Call 0x20f8a 0x102e8> {[-4-]|[4, 'D0']|[##6]}
Long2HexString(val : Long; ndig : Long) : String
<POP 20f90-20f92 StackAdj> Δ+8 {[-4-]}
<Call 0x20f92 0x103d8> {[-4-]}
WriteConsoleString(str : String)
<POP 20f94-20f96 StackAdj> Δ+2 {[-2-]}
<POP 20f96-20f97 StackAdj> Δ+2 {}
<Blob 0x20f97 [2] @> Δ-2 {[«2""»]}
<POP 20f9a-20f9c StackAdj> Δ-4 {[«2""»]|[-4-]}
<Lit 0x20f9c 2> {[«2""»]|[$$=>]}
<Call 0x20faa 0x103d8> {[«2""»]|[$$=>]}
WriteConsoleString(str : String)
<POP 20fac-20fae StackAdj> Δ+6 {}
<MI 20fae MOVE.L (A6-0x8),D0> {}
<MI 20fb0 ANDI.L #0x80000000,D0> {}
<MI 20fb6 BNE 0x20fcc> {}
<POP 20fb8-20fcc Naked> Σ0 Δ-4 →0x20fde
<POP 20fb8-20fba StackAdj> Δ-4 {[-4-]}
<POP 20fba-20fbb StackAdj> Δ+2 {[-2-]}
<Blob 0x20fbb [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 20fbe MOVE.B 0x201d5,(A7+0x1)> {[-2-]|[«2""»]}
<MI 20fc4 MOVE.B 0x201d6,(A7+0x2)> {[-2-]|[«2""»]}
<MI 20fca BRA 0x20fde> {[-2-]|[«2""»]}
<POP 20fcc-20fde Naked> Σ0 Δ-4 ↓ ←0x20f7c
<POP 20fcc-20fce StackAdj> Δ-4 {[-4-]}
<POP 20fce-20fcf StackAdj> Δ+2 {[-2-]}
<Blob 0x20fcf [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 20fd2 MOVE.B 0x201d9,(A7+0x1)> {[-2-]|[«2""»]}
<MI 20fd8 MOVE.B 0x201da,(A7+0x2)> {[-2-]|[«2""»]}
<POP 20fde-21014 Naked> Σ-4 Δ+4 ↓ →0x2101e ←0x20fb8
<POP 20fde-20fe0 StackAdj> Δ-4 {[-8-]}
<Lit 0x20fe0> {[-4-]|[$$…]}
<Pointer.sp 0x20fe0 4> Δ-4
<Const 0x20fe4 0x1.2> Δ-2
<Const 0x20fe6 0x3.2> Δ-2
<Call 0x20fea 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20fec-20fee StackAdj> Δ+8
<Call 0x20fee 0x103d8> {[-4-]|[$$…]}
WriteConsoleString(str : String)
<POP 20ff0-20ff2 StackAdj> Δ+8 {}
<POP 20ff2-20ff4 StackAdj> Δ-4 {[-4-]}
<MI 20ff4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 20ff6 ANDI.L #0x0003fc00,(A7)> {[-8-]}
<Const 0x20ffc 0x6.4> Δ-4 {[-8-]|[##6]}
<Call 0x21000 0x102e8> {[-8-]|[##6]}
Long2HexString(val : Long; ndig : Long) : String
<POP 21006-21008 StackAdj> Δ+8 {[-4-]}
<Call 0x21008 0x103d8> {[-4-]}
WriteConsoleString(str : String)
<POP 2100a-2100c StackAdj> Δ+4 {}
<MI 2100c CMPI.L #0x00000003,D7> {}
<MI 21012 BNE 0x2101e> {}
<POP 21014-2101e Naked> Σ0 →0x21038
<Call 0x21014 0x103dc> {}
WriteConsoleCrLf(void)
<MI 2101a MOVEQ.L #0x00,D7> {}
<MI 2101c BRA 0x21038> {}
<POP 2101e-21038 Naked> Σ0 ↓ ←0x20fde
<Blob 0x2101e [2] @> Δ-2 {[«2""»]}
<POP 21022-21024 StackAdj> Δ-4 {[«2""»]|[-4-]}
<Lit 0x21024 2> {[«2""»]|[$$ _]}
<Call 0x21032 0x103d8> {[«2""»]|[$$ _]}
WriteConsoleString(str : String)
<POP 21034-21036 StackAdj> Δ+6 {}
<MI 21036 ADDQ.L #0x1,D7> {}
<POP 21038-21044 Naked> Σ0 ↓ →0x20f3e ←0x20f3e ←0x21014
<MI 21038 ADDQ.L #0x1,D6> {}
<MI 2103a CMPI.L #0x000000ff,D6> {}
<MI 21040 BLE 0x20f3e> {}
<POP 21044-2104c Epilogue> Σ0
@ 2104c
<LVAR 0x008 4(r)>
<POP 2104c-210dc Body>
<POP 2104c-21062 Prologue> Σ0 ↓
<POP 21062-2106a RegCacheLoad> Σ0 ↓
<POP 2106a-21070 Naked> Σ0 ↓ →0x21082
<MI 2106a MOVEA.L (A4+0x4),A0> {}
<MI 2106c TST.W (A0)> {}
<MI 2106e BNE 0x21082> {}
<POP 21070-21082 Naked> Σ0 →0x210d4
<POP 21070-21072 StackAdj> Δ-4 {[-4-]}
<MI 21072 MOVE.L (A4+0x4),-(A7)> Δ-4 {[-4-]|[4, '(A4+0x4)']}
<MI 21074 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A4+0x4)']|[4, '(A6+0x8)']}
<Call 0x21076 0x102d0> {[-4-]|[4, '(A4+0x4)']|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 2107c-2107e StackAdj> Δ+8 {[-4-]}
<MI 2107e MOVE.L (A7)+,(A4+0x4)> Δ+4 {}
<MI 21080 BRA 0x210d4> {}
<POP 21082-21098 Naked> Σ0 ↓ →0x210c8 ←0x2106a
<MI 21082 MOVE.W (A0),D0> {}
<MI 21084 EXTW.L D0> {}
<MI 21086 ADDQ.L #0x2,D0> {}
<MI 21088 MOVEA.L (A6+0x8),A0> {}
<MI 2108a MOVE.W (A0),D1> {}
<MI 2108c EXTW.L D1> {}
<MI 2108e ADD.L D0,D1> {}
<MI 21090 CMPI.L #0x00000050,D1> {}
<MI 21096 BGT 0x210c8> {}
<POP 21098-210c8 Naked> Σ0 →0x210d4
<Blob 0x21098 [2] @> Δ-2 {[«2""»]}
<POP 2109c-2109e StackAdj> Δ-4 {[«2""»]|[-4-]}
<MI 2109e MOVE.L (A4+0x4),-(A7)> Δ-4 {[«2""»]|[-4-]|[4, '(A4+0x4)']}
<POP 210a0-210a2 StackAdj> Δ-4 {[«2""»]|[-4-]|[4, '(A4+0x4)']|[-4-]}
<Lit 0x210a2 2> {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]}
<POP 210b4-210b6 StackAdj> Δ-4 {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]|[-4-]}
<MI 210b6 MOVE.L (A6+0x8),(A7)> {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]|[4, '(A6+0x8)']}
<Call 0x210b8 0x102d4> {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]|[4, '(A6+0x8)']}
StringCat3(a, b, c : String) : String
<POP 210be-210c2 StackAdj> Δ+12 {[«2""»]|[-4-]}
<MI 210c2 MOVE.L (A7)+,(A4+0x4)> Δ+4 {[«2""»]}
<POP 210c4-210c6 StackAdj> Δ+2 {}
<MI 210c6 BRA 0x210d4> {}
<POP 210c8-210d4 Naked> Σ0 ↓ ←0x21082
<MI 210c8 MOVE.L (A4+0x4),-(A7)> Δ-4 {[4, '(A4+0x4)']}
<Call 0x210ca 0x103e0> {[4, '(A4+0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 210d0-210d2 StackAdj> Δ+4 {}
<MI 210d2 MOVE.L (A6+0x8),(A4+0x4)> {}
<POP 210d4-210dc Epilogue> Σ0 ←0x21070 ←0x21098
@ 210dc
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @>
<POP 210dc-21a70 Body>
<POP 210dc-210f2 Prologue> Σ0 ↓
<POP 210f2-21104 RegCacheLoad> Σ0 ↓
<POP 21104-21106 Naked> Σ0 ↓
<MI 21104 MOVEQ.L #0x00,D7> {}
<POP 21106-2118c Naked> Σ0 ↓ →0x21106 ←0x21106
<POP 0x21106 LimitCheck 0x0 ≤ D7 ≤ 0x8> {}
<MI 21110 MOVE.L D7,D4> {}
<MI 21112 MOVEQ.L #0x05,D3> {}
<Call 0x21114 0x1028c> {}
?muls_d3_d4
<MI 2111a LEA.L 0x20dac,A0> {}
<Blob 0x2111e [6] (A0+D4.L)> Δ-6 {[«6»]}
<POP 2112e-21130 StackAdj> Δ-8 {[«6»]|[-8-]}
<Lit 0x21130> {[«6»]|[-4-]|[$$…]}
<Pointer.sp 0x21130 8> Δ-4
<Const 0x21134 0x1.2> Δ-2
<Const 0x21136 0x5.2> Δ-2
<Call 0x2113a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2113c-2113e StackAdj> Δ+8
<POP 2113c-2113e StackAdj> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]}
<POP 0x2113e LimitCheck 0x0 ≤ D7 ≤ 0xa> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 21148 MOVE.L D7,D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 2114a ASL.L #0x1,D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 2114c LEA.L 0x23f4e,A0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 21152 LEA.L (A0+D0.L),A0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 21156 ADDA.L #0xbc4a,A0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 2115c CLR.L D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 2115e MOVE.W (A0),D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 21160 MOVE.L D0,-(A7)> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D0']}
<Const 0x21162 0x4.4> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D0']|[##4]}
<Call 0x21166 0x102e8> {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D0']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 2116c-2116e StackAdj> Δ+8 {[«6»]|[-4-]|[$$…]|[-4-]}
<Call 0x2116e 0x102d0> {[«6»]|[-4-]|[$$…]|[-4-]}
StringCat2(a, b : String) : String
<POP 21174-21176 StackAdj> Δ+8 {[«6»]|[-4-]}
<Call 0x21176 0x103d8> {[«6»]|[-4-]}
WriteConsoleString(str : String)
<POP 2117c-21180 StackAdj> Δ+10 {}
<MI 21180 ADDQ.L #0x1,D7> {}
<MI 21182 CMPI.L #0x00000008,D7> {}
<MI 21188 BLE 0x21106> {}
<POP 2118c-2119a Naked> Σ0 ↓ →0x211a2
<Call 0x2118c 0x103dc> {}
WriteConsoleCrLf(void)
<MI 21192 MOVE.B (A6+0x8),D0> {}
<MI 21196 CMP.B #0x01,D0> {}
<MI 21198 BEQ 0x211a2> {}
<POP 2119a-211a2 Naked> Σ0 ↓ →0x21a52
<MI 2119a CMPI.B #0x02,D0> {}
<MI 2119e BNE 0x21a52> {}
<POP 211a2-211ba Naked> Σ0 ↓ →0x211e4 ←0x2118c
<Pointer.fp 0x211a2 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x211a6 0x102b8> {[@@-6]}
NewString(VAR a : String)
<POP 211ac-211ae StackAdj> Δ+4 {}
<MI 211ae MOVE.W 0x2fb98,D0> {}
<MI 211b4 ANDI.W #0x8000,D0> {}
<MI 211b8 BEQ 0x211e4> {}
<POP 211ba-211e4 Naked> Σ0 ↓
<Blob 0x211ba [18] @> Δ-18 {[«18""»]}
<POP 211ca-211cc StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x211cc 17> {[«18""»]|[$$Special condition]}
<MI 211da LEA.L (A6-0xa),A4> {[«18""»]|[$$Special condition]}
<Call 0x211dc 0x2104c> {[«18""»]|[$$Special condition]}
<POP 211e0-211e4 StackAdj> Δ+22 {}
<POP 211e4-211f0 Naked> Σ0 ↓ →0x21214 ←0x211a2
<MI 211e4 MOVE.W 0x2fb98,D0> {}
<MI 211ea ANDI.W #0x4000,D0> {}
<MI 211ee BEQ 0x21214> {}
<POP 211f0-21214 Naked> Σ0 ↓
<Blob 0x211f0 [14] @> Δ-14 {[«14""»]}
<POP 211fc-211fe StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x211fe 14> {[«14""»]|[$$Transfer error]}
<MI 2120c LEA.L (A6-0xa),A4> {[«14""»]|[$$Transfer error]}
<Call 0x2120e 0x2104c> {[«14""»]|[$$Transfer error]}
<POP 21212-21214 StackAdj> Δ+18 {}
<POP 21214-21220 Naked> Σ0 ↓ →0x2124c ←0x211e4
<MI 21214 MOVE.W 0x2fb9a,D0> {}
<MI 2121a ANDI.W #0x8000,D0> {}
<MI 2121e BEQ 0x2124c> {}
<POP 21220-2124c Naked> Σ0 ↓
<Blob 0x21220 [10] @> Δ-10 {[«10""»]}
<POP 21232-21234 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x21234 9> {[«10""»]|[$$Data late]}
<MI 21242 LEA.L (A6-0xa),A4> {[«10""»]|[$$Data late]}
<Call 0x21244 0x2104c> {[«10""»]|[$$Data late]}
<POP 21248-2124c StackAdj> Δ+14 {}
<POP 2124c-21258 Naked> Σ0 ↓ →0x21282 ←0x21214
<MI 2124c MOVE.W 0x2fb9a,D0> {}
<MI 21252 ANDI.W #0x4000,D0> {}
<MI 21256 BEQ 0x21282> {}
<POP 21258-21282 Naked> Σ0 ↓
<Blob 0x21258 [18] @> Δ-18 {[«18""»]}
<POP 21268-2126a StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2126a 17> {[«18""»]|[$$Write check error]}
<MI 21278 LEA.L (A6-0xa),A4> {[«18""»]|[$$Write check error]}
<Call 0x2127a 0x2104c> {[«18""»]|[$$Write check error]}
<POP 2127e-21282 StackAdj> Δ+22 {}
<POP 21282-2128e Naked> Σ0 ↓ →0x212b8 ←0x2124c
<MI 21282 MOVE.W 0x2fb9a,D0> {}
<MI 21288 ANDI.W #0x2000,D0> {}
<MI 2128c BEQ 0x212b8> {}
<POP 2128e-212b8 Naked> Σ0 ↓
<Blob 0x2128e [20] @> Δ-20 {[«20""»]}
<POP 2129e-212a0 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x212a0 19> {[«20""»]|[$$UNIBUS parity error]}
<MI 212ae LEA.L (A6-0xa),A4> {[«20""»]|[$$UNIBUS parity error]}
<Call 0x212b0 0x2104c> {[«20""»]|[$$UNIBUS parity error]}
<POP 212b4-212b8 StackAdj> Δ+24 {}
<POP 212b8-212c4 Naked> Σ0 ↓ →0x212e8 ←0x21282
<MI 212b8 MOVE.W 0x2fb9a,D0> {}
<MI 212be ANDI.W #0x1000,D0> {}
<MI 212c2 BEQ 0x212e8> {}
<POP 212c4-212e8 Naked> Σ0 ↓
<Blob 0x212c4 [18] @> Δ-18 {[«18""»]}
<POP 212d0-212d2 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x212d2 18> {[«18""»]|[$$Non-existent drive]}
<MI 212de LEA.L (A6-0xa),A4> {[«18""»]|[$$Non-existent drive]}
<Call 0x212e0 0x2104c> {[«18""»]|[$$Non-existent drive]}
<POP 212e4-212e8 StackAdj> Δ+22 {}
<POP 212e8-212f4 Naked> Σ0 ↓ →0x2131e ←0x212b8
<MI 212e8 MOVE.W 0x2fb9a,D0> {}
<MI 212ee ANDI.W #0x0800,D0> {}
<MI 212f2 BEQ 0x2131e> {}
<POP 212f4-2131e Naked> Σ0 ↓
<Blob 0x212f4 [20] @> Δ-20 {[«20""»]}
<POP 21304-21306 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21306 19> {[«20""»]|[$$Non-existent memory]}
<MI 21314 LEA.L (A6-0xa),A4> {[«20""»]|[$$Non-existent memory]}
<Call 0x21316 0x2104c> {[«20""»]|[$$Non-existent memory]}
<POP 2131a-2131e StackAdj> Δ+24 {}
<POP 2131e-2132a Naked> Σ0 ↓ →0x21354 ←0x212e8
<MI 2131e MOVE.W 0x2fb9a,D0> {}
<MI 21324 ANDI.W #0x0400,D0> {}
<MI 21328 BEQ 0x21354> {}
<POP 2132a-21354 Naked> Σ0 ↓
<Blob 0x2132a [14] @> Δ-14 {[«14""»]}
<POP 2133c-2133e StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x2133e 13> {[«14""»]|[$$Program error]}
<MI 2134c LEA.L (A6-0xa),A4> {[«14""»]|[$$Program error]}
<Call 0x2134e 0x2104c> {[«14""»]|[$$Program error]}
<POP 21352-21354 StackAdj> Δ+18 {}
<POP 21354-21360 Naked> Σ0 ↓ →0x21384 ←0x2131e
<MI 21354 MOVE.W 0x2fb9a,D0> {}
<MI 2135a ANDI.W #0x0200,D0> {}
<MI 2135e BEQ 0x21384> {}
<POP 21360-21384 Naked> Σ0 ↓
<Blob 0x21360 [14] @> Δ-14 {[«14""»]}
<POP 2136c-2136e StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x2136e 14> {[«14""»]|[$$Mixed transfer]}
<MI 2137c LEA.L (A6-0xa),A4> {[«14""»]|[$$Mixed transfer]}
<Call 0x2137e 0x2104c> {[«14""»]|[$$Mixed transfer]}
<POP 21382-21384 StackAdj> Δ+18 {}
<POP 21384-21390 Naked> Σ0 ↓ →0x213b8 ←0x21354
<MI 21384 MOVE.W 0x2fb9a,D0> {}
<MI 2138a ANDI.W #0x0040,D0> {}
<MI 2138e BNE 0x213b8> {}
<POP 21390-213b8 Naked> Σ0 ↓
<Blob 0x21390 [16] @> Δ-16 {[«16""»]}
<POP 213a0-213a2 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x213a2 15> {[«16""»]|[$$Input not ready]}
<MI 213b0 LEA.L (A6-0xa),A4> {[«16""»]|[$$Input not ready]}
<Call 0x213b2 0x2104c> {[«16""»]|[$$Input not ready]}
<POP 213b6-213b8 StackAdj> Δ+20 {}
<POP 213b8-213c4 Naked> Σ0 ↓ →0x213ee ←0x21384
<MI 213b8 MOVE.W 0x2fb9a,D0> {}
<MI 213be ANDI.W #0x0008,D0> {}
<MI 213c2 BEQ 0x213ee> {}
<POP 213c4-213ee Naked> Σ0 ↓
<Blob 0x213c4 [20] @> Δ-20 {[«20""»]}
<POP 213d4-213d6 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x213d6 19> {[«20""»]|[$$Bus address inhibit]}
<MI 213e4 LEA.L (A6-0xa),A4> {[«20""»]|[$$Bus address inhibit]}
<Call 0x213e6 0x2104c> {[«20""»]|[$$Bus address inhibit]}
<POP 213ea-213ee StackAdj> Δ+24 {}
<POP 213ee-213fa Naked> Σ0 ↓ →0x21420 ←0x213b8
<MI 213ee MOVE.W 0x2fb9c,D0> {}
<MI 213f4 ANDI.W #0x8000,D0> {}
<MI 213f8 BEQ 0x21420> {}
<POP 213fa-21420 Naked> Σ0 ↓
<Blob 0x213fa [4] @> Δ-4 {[«4""»]}
<Blob 0x213fe [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21402 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21406 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2140a-2140c StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2140c 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Attention Active]}
<MI 21418 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Attention Active]}
<Call 0x2141a 0x2104c> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Attention Active]}
<POP 2141e-21420 StackAdj> Δ+20 {}
<POP 21420-2142c Naked> Σ0 ↓ →0x21456 ←0x213ee
<MI 21420 MOVE.W 0x2fb9c,D0> {}
<MI 21426 ANDI.W #0x4000,D0> {}
<MI 2142a BEQ 0x21456> {}
<POP 2142c-21456 Naked> Σ0 ↓
<Blob 0x2142c [6] @> Δ-6 {[«6""»]}
<POP 2143c-2143e StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x2143e 5> {[«6""»]|[$$Error]}
<MI 2144c LEA.L (A6-0xa),A4> {[«6""»]|[$$Error]}
<Call 0x2144e 0x2104c> {[«6""»]|[$$Error]}
<POP 21452-21456 StackAdj> Δ+10 {}
<POP 21456-21462 Naked> Σ0 ↓ →0x2148e ←0x21420
<MI 21456 MOVE.W 0x2fb9c,D0> {}
<MI 2145c ANDI.W #0x2000,D0> {}
<MI 21460 BEQ 0x2148e> {}
<POP 21462-2148e Naked> Σ0 ↓
<Blob 0x21462 [24] @> Δ-24 {[«24""»]}
<POP 21474-21476 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x21476 23> {[«24""»]|[$$Positioning in progress]}
<MI 21484 LEA.L (A6-0xa),A4> {[«24""»]|[$$Positioning in progress]}
<Call 0x21486 0x2104c> {[«24""»]|[$$Positioning in progress]}
<POP 2148a-2148e StackAdj> Δ+28 {}
<POP 2148e-2149a Naked> Σ0 ↓ →0x214be ←0x21456
<MI 2148e MOVE.W 0x2fb9c,D0> {}
<MI 21494 ANDI.W #0x1000,D0> {}
<MI 21498 BEQ 0x214be> {}
<POP 2149a-214be Naked> Σ0 ↓
<Blob 0x2149a [14] @> Δ-14 {[«14""»]}
<POP 214a6-214a8 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x214a8 14> {[«14""»]|[$$Medium on-line]}
<MI 214b6 LEA.L (A6-0xa),A4> {[«14""»]|[$$Medium on-line]}
<Call 0x214b8 0x2104c> {[«14""»]|[$$Medium on-line]}
<POP 214bc-214be StackAdj> Δ+18 {}
<POP 214be-214ca Naked> Σ0 ↓ →0x214f0 ←0x2148e
<MI 214be MOVE.W 0x2fb9c,D0> {}
<MI 214c4 ANDI.W #0x0800,D0> {}
<MI 214c8 BEQ 0x214f0> {}
<POP 214ca-214f0 Naked> Σ0 ↓
<Blob 0x214ca [10] @> Δ-10 {[«10""»]}
<POP 214d6-214d8 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x214d8 10> {[«10""»]|[$$Write lock]}
<MI 214e6 LEA.L (A6-0xa),A4> {[«10""»]|[$$Write lock]}
<Call 0x214e8 0x2104c> {[«10""»]|[$$Write lock]}
<POP 214ec-214f0 StackAdj> Δ+14 {}
<POP 214f0-214fc Naked> Σ0 ↓ →0x21522 ←0x214be
<MI 214f0 MOVE.W 0x2fb9c,D0> {}
<MI 214f6 ANDI.W #0x0400,D0> {}
<MI 214fa BEQ 0x21522> {}
<POP 214fc-21522 Naked> Σ0 ↓
<Blob 0x214fc [22] @> Δ-22 {[«22""»]}
<POP 21508-2150a StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x2150a 22> {[«22""»]|[$$Last sector transfered]}
<MI 21518 LEA.L (A6-0xa),A4> {[«22""»]|[$$Last sector transfered]}
<Call 0x2151a 0x2104c> {[«22""»]|[$$Last sector transfered]}
<POP 2151e-21522 StackAdj> Δ+26 {}
<POP 21522-2152e Naked> Σ0 ↓ →0x21552 ←0x214f0
<MI 21522 MOVE.W 0x2fb9c,D0> {}
<MI 21528 ANDI.W #0x0200,D0> {}
<MI 2152c BEQ 0x21552> {}
<POP 2152e-21552 Naked> Σ0 ↓
<Blob 0x2152e [4] @> Δ-4 {[«4""»]}
<Blob 0x21532 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21536 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2153a-2153c StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2153c 12> {[«4""»]|[«4""»]|[«4""»]|[$$Programmable]}
<MI 2154a LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Programmable]}
<Call 0x2154c 0x2104c> {[«4""»]|[«4""»]|[«4""»]|[$$Programmable]}
<POP 21550-21552 StackAdj> Δ+16 {}
<POP 21552-2155e Naked> Σ0 ↓ →0x21588 ←0x21522
<MI 21552 MOVE.W 0x2fb9c,D0> {}
<MI 21558 ANDI.W #0x0100,D0> {}
<MI 2155c BNE 0x21588> {}
<POP 2155e-21588 Naked> Σ0 ↓
<Blob 0x2155e [18] @> Δ-18 {[«18""»]}
<POP 2156e-21570 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21570 17> {[«18""»]|[$$Drive not present]}
<MI 2157e LEA.L (A6-0xa),A4> {[«18""»]|[$$Drive not present]}
<Call 0x21580 0x2104c> {[«18""»]|[$$Drive not present]}
<POP 21584-21588 StackAdj> Δ+22 {}
<POP 21588-21594 Naked> Σ0 ↓ →0x215bc ←0x21552
<MI 21588 MOVE.W 0x2fb9c,D0> {}
<MI 2158e ANDI.W #0x0080,D0> {}
<MI 21592 BNE 0x215bc> {}
<POP 21594-215bc Naked> Σ0 ↓
<Blob 0x21594 [16] @> Δ-16 {[«16""»]}
<POP 215a4-215a6 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x215a6 15> {[«16""»]|[$$Drive not ready]}
<MI 215b4 LEA.L (A6-0xa),A4> {[«16""»]|[$$Drive not ready]}
<Call 0x215b6 0x2104c> {[«16""»]|[$$Drive not ready]}
<POP 215ba-215bc StackAdj> Δ+20 {}
<POP 215bc-215c8 Naked> Σ0 ↓ →0x215ee ←0x21588
<MI 215bc MOVE.W 0x2fb9c,D0> {}
<MI 215c2 ANDI.W #0x0040,D0> {}
<MI 215c6 BNE 0x215ee> {}
<POP 215c8-215ee Naked> Σ0 ↓
<Blob 0x215c8 [4] @> Δ-4 {[«4""»]}
<Blob 0x215cc [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x215d0 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x215d4 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 215d8-215da StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x215da 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<MI 215e6 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<Call 0x215e8 0x2104c> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<POP 215ec-215ee StackAdj> Δ+20 {}
<POP 215ee-215f8 Naked> Σ0 ↓ →0x2161e ←0x215bc
<MI 215ee MOVE.W 0x2fb9c,D0> {}
<MI 215f4 AND.W #0x01,D0> {}
<MI 215f6 BEQ 0x2161e> {}
<POP 215f8-2161e Naked> Σ0 ↓
<Blob 0x215f8 [4] @> Δ-4 {[«4""»]}
<Blob 0x215fc [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21600 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21604 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21608-2160a StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2160a 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Heads are offset]}
<MI 21616 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Heads are offset]}
<Call 0x21618 0x2104c> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Heads are offset]}
<POP 2161c-2161e StackAdj> Δ+20 {}
<POP 2161e-2162a Naked> Σ0 ↓ →0x21650 ←0x215ee
<MI 2161e MOVE.W 0x2fb9e,D0> {}
<MI 21624 ANDI.W #0x8000,D0> {}
<MI 21628 BEQ 0x21650> {}
<POP 2162a-21650 Naked> Σ0 ↓
<Blob 0x2162a [10] @> Δ-10 {[«10""»]}
<POP 21636-21638 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x21638 10> {[«10""»]|[$$Data check]}
<MI 21646 LEA.L (A6-0xa),A4> {[«10""»]|[$$Data check]}
<Call 0x21648 0x2104c> {[«10""»]|[$$Data check]}
<POP 2164c-21650 StackAdj> Δ+14 {}
<POP 21650-2165c Naked> Σ0 ↓ →0x21682 ←0x2161e
<MI 21650 MOVE.W 0x2fb9e,D0> {}
<MI 21656 ANDI.W #0x4000,D0> {}
<MI 2165a BEQ 0x21682> {}
<POP 2165c-21682 Naked> Σ0 ↓
<Blob 0x2165c [2] @> Δ-2 {[«2""»]}
<Blob 0x21660 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x21664 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 21668-2166a StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x2166a 6> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<MI 21678 LEA.L (A6-0xa),A4> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<Call 0x2167a 0x2104c> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<POP 2167e-21682 StackAdj> Δ+10 {}
<POP 21682-2168e Naked> Σ0 ↓ →0x216b2 ←0x21650
<MI 21682 MOVE.W 0x2fb9e,D0> {}
<MI 21688 ANDI.W #0x2000,D0> {}
<MI 2168c BEQ 0x216b2> {}
<POP 2168e-216b2 Naked> Σ0 ↓
<Blob 0x2168e [20] @> Δ-20 {[«20""»]}
<POP 2169a-2169c StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2169c 20> {[«20""»]|[$$Operation Incomplete]}
<MI 216a8 LEA.L (A6-0xa),A4> {[«20""»]|[$$Operation Incomplete]}
<Call 0x216aa 0x2104c> {[«20""»]|[$$Operation Incomplete]}
<POP 216ae-216b2 StackAdj> Δ+24 {}
<POP 216b2-216be Naked> Σ0 ↓ →0x216e2 ←0x21682
<MI 216b2 MOVE.W 0x2fb9e,D0> {}
<MI 216b8 ANDI.W #0x1000,D0> {}
<MI 216bc BEQ 0x216e2> {}
<POP 216be-216e2 Naked> Σ0 ↓
<Blob 0x216be [18] @> Δ-18 {[«18""»]}
<POP 216ca-216cc StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x216cc 18> {[«18""»]|[$$Drive timing error]}
<MI 216d8 LEA.L (A6-0xa),A4> {[«18""»]|[$$Drive timing error]}
<Call 0x216da 0x2104c> {[«18""»]|[$$Drive timing error]}
<POP 216de-216e2 StackAdj> Δ+22 {}
<POP 216e2-216ee Naked> Σ0 ↓ →0x21714 ←0x216b2
<MI 216e2 MOVE.W 0x2fb9e,D0> {}
<MI 216e8 ANDI.W #0x0800,D0> {}
<MI 216ec BEQ 0x21714> {}
<POP 216ee-21714 Naked> Σ0 ↓
<Blob 0x216ee [4] @> Δ-4 {[«4""»]}
<Blob 0x216f2 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x216f6 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x216fa [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 216fe-21700 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21700 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<MI 2170c LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<Call 0x2170e 0x2104c> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<POP 21712-21714 StackAdj> Δ+20 {}
<POP 21714-21720 Naked> Σ0 ↓ →0x2174c ←0x216e2
<MI 21714 MOVE.W 0x2fb9e,D0> {}
<MI 2171a ANDI.W #0x0400,D0> {}
<MI 2171e BEQ 0x2174c> {}
<POP 21720-2174c Naked> Σ0 ↓
<Blob 0x21720 [22] @> Δ-22 {[«22""»]}
<POP 21732-21734 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x21734 21> {[«22""»]|[$$Invalid address error]}
<MI 21742 LEA.L (A6-0xa),A4> {[«22""»]|[$$Invalid address error]}
<Call 0x21744 0x2104c> {[«22""»]|[$$Invalid address error]}
<POP 21748-2174c StackAdj> Δ+26 {}
<POP 2174c-21758 Naked> Σ0 ↓ →0x2177e ←0x21714
<MI 2174c MOVE.W 0x2fb9e,D0> {}
<MI 21752 ANDI.W #0x0200,D0> {}
<MI 21756 BEQ 0x2177e> {}
<POP 21758-2177e Naked> Σ0 ↓
<Blob 0x21758 [4] @> Δ-4 {[«4""»]}
<Blob 0x2175c [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21760 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21764 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21768-2176a StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2176a 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Address overflow]}
<MI 21776 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Address overflow]}
<Call 0x21778 0x2104c> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Address overflow]}
<POP 2177c-2177e StackAdj> Δ+20 {}
<POP 2177e-2178a Naked> Σ0 ↓ →0x217b0 ←0x2174c
<MI 2177e MOVE.W 0x2fb9e,D0> {}
<MI 21784 ANDI.W #0x0100,D0> {}
<MI 21788 BEQ 0x217b0> {}
<POP 2178a-217b0 Naked> Σ0 ↓
<Blob 0x2178a [4] @> Δ-4 {[«4""»]}
<Blob 0x2178e [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21792 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21796 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2179a-2179c StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2179c 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<MI 217a8 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<Call 0x217aa 0x2104c> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<POP 217ae-217b0 StackAdj> Δ+20 {}
<POP 217b0-217bc Naked> Σ0 ↓ →0x217e0 ←0x2177e
<MI 217b0 MOVE.W 0x2fb9e,D0> {}
<MI 217b6 ANDI.W #0x0080,D0> {}
<MI 217ba BEQ 0x217e0> {}
<POP 217bc-217e0 Naked> Σ0 ↓
<Blob 0x217bc [20] @> Δ-20 {[«20""»]}
<POP 217c8-217ca StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x217ca 20> {[«20""»]|[$$Header compare error]}
<MI 217d6 LEA.L (A6-0xa),A4> {[«20""»]|[$$Header compare error]}
<Call 0x217d8 0x2104c> {[«20""»]|[$$Header compare error]}
<POP 217dc-217e0 StackAdj> Δ+24 {}
<POP 217e0-217ec Naked> Σ0 ↓ →0x21810 ←0x217b0
<MI 217e0 MOVE.W 0x2fb9e,D0> {}
<MI 217e6 ANDI.W #0x0040,D0> {}
<MI 217ea BEQ 0x21810> {}
<POP 217ec-21810 Naked> Σ0 ↓
<Blob 0x217ec [14] @> Δ-14 {[«14""»]}
<POP 217f8-217fa StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x217fa 14> {[«14""»]|[$$ECC hard error]}
<MI 21808 LEA.L (A6-0xa),A4> {[«14""»]|[$$ECC hard error]}
<Call 0x2180a 0x2104c> {[«14""»]|[$$ECC hard error]}
<POP 2180e-21810 StackAdj> Δ+18 {}
<POP 21810-2181c Naked> Σ0 ↓ →0x21842 ←0x217e0
<MI 21810 MOVE.W 0x2fb9e,D0> {}
<MI 21816 ANDI.W #0x0020,D0> {}
<MI 2181a BEQ 0x21842> {}
<POP 2181c-21842 Naked> Σ0 ↓
<Blob 0x2181c [4] @> Δ-4 {[«4""»]}
<Blob 0x21820 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21824 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21828 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2182c-2182e StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2182e 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write clock fail]}
<MI 2183a LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write clock fail]}
<Call 0x2183c 0x2104c> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write clock fail]}
<POP 21840-21842 StackAdj> Δ+20 {}
<POP 21842-2184c Naked> Σ0 ↓ →0x21870 ←0x21810
<MI 21842 MOVE.W 0x2fb9e,D0> {}
<MI 21848 AND.W #0x10,D0> {}
<MI 2184a BEQ 0x21870> {}
<POP 2184c-21870 Naked> Σ0 ↓
<Blob 0x2184c [4] @> Δ-4 {[«4""»]}
<Blob 0x21850 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21854 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 21858-2185a StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2185a 12> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<MI 21868 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<Call 0x2186a 0x2104c> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<POP 2186e-21870 StackAdj> Δ+16 {}
<POP 21870-2187c Naked> Σ0 ↓ →0x218a8 ←0x21842
<MI 21870 MOVE.W 0x2fb9e,D0> {}
<MI 21876 ANDI.W #0x0004,D0> {}
<MI 2187a BEQ 0x218a8> {}
<POP 2187c-218a8 Naked> Σ0 ↓
<Blob 0x2187c [30] @> Δ-30 {[«30""»]}
<POP 2188e-21890 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x21890 29> {[«30""»]|[$$Register modification refused]}
<MI 2189e LEA.L (A6-0xa),A4> {[«30""»]|[$$Register modification refused]}
<Call 0x218a0 0x2104c> {[«30""»]|[$$Register modification refused]}
<POP 218a4-218a8 StackAdj> Δ+34 {}
<POP 218a8-218b2 Naked> Σ0 ↓ →0x218d8 ←0x21870
<MI 218a8 MOVE.W 0x2fb9e,D0> {}
<MI 218ae AND.W #0x01,D0> {}
<MI 218b0 BEQ 0x218d8> {}
<POP 218b2-218d8 Naked> Σ0 ↓
<Blob 0x218b2 [4] @> Δ-4 {[«4""»]}
<Blob 0x218b6 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x218ba [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x218be [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 218c2-218c4 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x218c4 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<MI 218d0 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<Call 0x218d2 0x2104c> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<POP 218d6-218d8 StackAdj> Δ+20 {}
<POP 218d8-218e4 Naked> Σ0 ↓ →0x2190a ←0x218a8
<MI 218d8 MOVE.W 0x2fba0,D0> {}
<MI 218de ANDI.W #0x8000,D0> {}
<MI 218e2 BEQ 0x2190a> {}
<POP 218e4-2190a Naked> Σ0 ↓
<Blob 0x218e4 [10] @> Δ-10 {[«10""»]}
<POP 218f0-218f2 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x218f2 10> {[«10""»]|[$$Bad sector]}
<MI 21900 LEA.L (A6-0xa),A4> {[«10""»]|[$$Bad sector]}
<Call 0x21902 0x2104c> {[«10""»]|[$$Bad sector]}
<POP 21906-2190a StackAdj> Δ+14 {}
<POP 2190a-21916 Naked> Σ0 ↓ →0x2193e ←0x218d8
<MI 2190a MOVE.W 0x2fba0,D0> {}
<MI 21910 ANDI.W #0x4000,D0> {}
<MI 21914 BEQ 0x2193e> {}
<POP 21916-2193e Naked> Σ0 ↓
<Blob 0x21916 [16] @> Δ-16 {[«16""»]}
<POP 21926-21928 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x21928 15> {[«16""»]|[$$Seek incomplete]}
<MI 21936 LEA.L (A6-0xa),A4> {[«16""»]|[$$Seek incomplete]}
<Call 0x21938 0x2104c> {[«16""»]|[$$Seek incomplete]}
<POP 2193c-2193e StackAdj> Δ+20 {}
<POP 2193e-2194a Naked> Σ0 ↓ →0x21972 ←0x2190a
<MI 2193e MOVE.W 0x2fba0,D0> {}
<MI 21944 ANDI.W #0x1000,D0> {}
<MI 21948 BEQ 0x21972> {}
<POP 2194a-21972 Naked> Σ0 ↓
<Blob 0x2194a [16] @> Δ-16 {[«16""»]}
<POP 2195a-2195c StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x2195c 15> {[«16""»]|[$$Invalid command]}
<MI 2196a LEA.L (A6-0xa),A4> {[«16""»]|[$$Invalid command]}
<Call 0x2196c 0x2104c> {[«16""»]|[$$Invalid command]}
<POP 21970-21972 StackAdj> Δ+20 {}
<POP 21972-2197e Naked> Σ0 ↓ →0x219a2 ←0x2193e
<MI 21972 MOVE.W 0x2fba0,D0> {}
<MI 21978 ANDI.W #0x0800,D0> {}
<MI 2197c BEQ 0x219a2> {}
<POP 2197e-219a2 Naked> Σ0 ↓
<Blob 0x2197e [20] @> Δ-20 {[«20""»]}
<POP 2198a-2198c StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2198c 20> {[«20""»]|[$$Loss of system clock]}
<MI 21998 LEA.L (A6-0xa),A4> {[«20""»]|[$$Loss of system clock]}
<Call 0x2199a 0x2104c> {[«20""»]|[$$Loss of system clock]}
<POP 2199e-219a2 StackAdj> Δ+24 {}
<POP 219a2-219ae Naked> Σ0 ↓ →0x219d8 ←0x21972
<MI 219a2 MOVE.W 0x2fba0,D0> {}
<MI 219a8 ANDI.W #0x0400,D0> {}
<MI 219ac BEQ 0x219d8> {}
<POP 219ae-219d8 Naked> Σ0 ↓
<Blob 0x219ae [18] @> Δ-18 {[«18""»]}
<POP 219be-219c0 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x219c0 17> {[«18""»]|[$$Loss of bit clock]}
<MI 219ce LEA.L (A6-0xa),A4> {[«18""»]|[$$Loss of bit clock]}
<Call 0x219d0 0x2104c> {[«18""»]|[$$Loss of bit clock]}
<POP 219d4-219d8 StackAdj> Δ+22 {}
<POP 219d8-219e4 Naked> Σ0 ↓ →0x21a08 ←0x219a2
<MI 219d8 MOVE.W 0x2fba0,D0> {}
<MI 219de ANDI.W #0x0080,D0> {}
<MI 219e2 BEQ 0x21a08> {}
<POP 219e4-21a08 Naked> Σ0 ↓
<Blob 0x219e4 [4] @> Δ-4 {[«4""»]}
<Blob 0x219e8 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x219ec [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 219f0-219f2 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x219f2 12> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<MI 21a00 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<Call 0x21a02 0x2104c> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<POP 21a06-21a08 StackAdj> Δ+16 {}
<POP 21a08-21a14 Naked> Σ0 ↓ →0x21a3e ←0x219d8
<MI 21a08 MOVE.W 0x2fba0,D0> {}
<MI 21a0e ANDI.W #0x0020,D0> {}
<MI 21a12 BEQ 0x21a3e> {}
<POP 21a14-21a3e Naked> Σ0 ↓
<Blob 0x21a14 [18] @> Δ-18 {[«18""»]}
<POP 21a24-21a26 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21a26 17> {[«18""»]|[$$Skip sector error]}
<MI 21a34 LEA.L (A6-0xa),A4> {[«18""»]|[$$Skip sector error]}
<Call 0x21a36 0x2104c> {[«18""»]|[$$Skip sector error]}
<POP 21a3a-21a3e StackAdj> Δ+22 {}
<POP 21a3e-21a46 Naked> Σ0 ↓ →0x21a52 ←0x21a08
<MI 21a3e MOVEA.L (A6-0x6),A0> {}
<MI 21a42 TST.W (A0)> {}
<MI 21a44 BEQ 0x21a52> {}
<POP 21a46-21a52 Naked> Σ0 ↓
<MI 21a46 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x21a4a 0x103e0> {[4, '(A6-0x6)']}
WriteConsoleStringCrLf(str : String)
<POP 21a50-21a52 StackAdj> Δ+4 {}
<POP 21a52-21a5c Naked> Σ0 ↓ →0x21a68 ←0x2119a ←0x21a3e
<MI 21a52 MOVE.B (A6+0x8),D0> {}
<MI 21a56 CMPI.B #0x02,D0> {}
<MI 21a5a BNE 0x21a68> {}
<POP 21a5c-21a68 Naked> Σ0 ↓
<Blob 0x21a5c [4] 0x2c890> Δ-4 {[«4»]}
<Call 0x21a62 0x20ecc> {[«4»]}
<POP 21a66-21a68 StackAdj> Δ+4 {}
<POP 21a68-21a70 Epilogue> Σ0 ←0x21a52
@ 21a70
<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 21a70-21b34 Body>
<POP 21a70-21a86 Prologue> Σ0 ↓
<POP 21a86-21a88 RegCacheLoad> Σ0 ↓
<POP 21a88-21a9a Naked> Σ0 ↓
<MI 21a88 MOVE.L #0x9303,D7> {}
<MI 21a8e ASL.L #0x8,D7> {}
<MI 21a90 ASL.L #0x8,D7> {}
<MI 21a92 ADDI.L #0x0000fdc0,D7> {}
<MI 21a98 MOVEQ.L #0x00,D6> {}
<POP 21a9a-21ad4 Naked> Σ0 ↓ →0x21a9a ←0x21a9a
<MI 21a9a MOVEQ.L #0x02,D4> {}
<MI 21a9c MOVE.L D6,D3> {}
<Call 0x21a9e 0x1028c> {}
?muls_d3_d4
<MI 21aa4 MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 21aa6 ADD.L D4,(A7)> {[-4-]}
<Const 0x21aa8 0x5.2> Δ-2 {[-4-]|[#5]}
<POP 0x21aac LimitCheck 0x0 ≤ D6 ≤ 0x13> {[-4-]|[#5]}
<MI 21ab2 MOVE.L D6,D0> {[-4-]|[#5]}
<MI 21ab4 ASL.L #0x1,D0> {[-4-]|[#5]}
<MI 21ab6 LEA.L (A6+D0.L-#0x2a),A0> {[-4-]|[#5]}
<MI 21aba MOVE.L A0,-(A7)> Δ-4 {[-4-]|[#5]|[4, 'A0']}
<Const 0x21abc 0x1.2> Δ-2 {[-4-]|[#5]|[4, 'A0']|[#1]}
<Const 0x21ac0 0x2.2> Δ-2 {[-4-]|[#5]|[4, 'A0']|[#1]|[#2]}
<Call 0x21ac4 0x1023a> {[-4-]|[#5]|[4, 'A0']|[#1]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 21aca-21ace StackAdj> Δ+14 {}
<MI 21ace ADDQ.L #0x1,D6> {}
<MI 21ad0 CMP.L #0x13,D6> {}
<MI 21ad2 BLE 0x21a9a> {}
<POP 21ad4-21b2c Naked> Σ0 ↓
<MI 21ad4 MOVE.W (A6-0x2a),0x2fb98> {}
<MI 21adc MOVE.W (A6-0x22),0x2fb9a> {}
<MI 21ae4 MOVE.W (A6-0x20),0x2fb9c> {}
<MI 21aec MOVE.W (A6-0x1e),0x2fb9e> {}
<MI 21af4 MOVE.W (A6-0x8),0x2fba0> {}
<MI 21afc MOVE.W (A6-0x6),0x2fba2> {}
<MI 21b04 MOVE.W (A6-0x4),0x2fba4> {}
<MI 21b0c MOVE.W (A6-0xe),0x2fba6> {}
<MI 21b14 MOVE.W (A6-0x24),0x2fba8> {}
<MI 21b1c MOVE.W (A6-0x16),0x2fbaa> {}
<MI 21b24 MOVE.W (A6-0xa),0x2fbac> {}
<POP 21b2c-21b34 Epilogue> Σ0
@ 21b34
<LVAR -0x008 2(w)>
<LVAR -0x00e 2(w)>
<LVAR -0x012 @>
<LVAR -0x014 @ 1(r)>
<POP 21b34-21bc2 Body>
<POP 21b34-21b4a Prologue> Σ0 ↓
<POP 21b4a-21b90 Naked> Σ0 ↓ →0x21bba
<MI 21b4a MOVE.W #0x2,(A6-0xe)> {}
<MI 21b50 MOVE.W 0x2fd42,D0> {}
<MI 21b56 ASL.W #0x8,D0> {}
<MI 21b58 ADDQ.W #0x1,D0> {}
<POP 0x21b5a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 21b62 MOVE.W D0,(A6-0x8)> {}
<Pointer.fp 0x21b66 <LVAR -0x012 @>> Δ-4 {[@@-18]}
<MI 21b6a LEA.L 0x2fb98,A0> {[@@-18]}
<MI 21b70 MOVE.L A0,-(A7)> Δ-4 {[@@-18]|[4, 'A0']}
<MI 21b72 CLR.W -(A7)> Δ-2 {[@@-18]|[4, 'A0']|[#0]}
<Call 0x21b74 0x10204> {[@@-18]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21b7a-21b7c StackAdj> Δ+8 {[-2-]}
<MI 21b7c CLR.W (A7)> {[-2-]}
<Pointer.fp 0x21b7e <LVAR -0x014 @ 1(r)>> Δ-4 {[-2-]|[@@-20]}
<Call 0x21b82 0x10206> {[-2-]|[@@-20]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21b88-21b8a StackAdj> Δ+6 {}
<MI 21b8a TST.B (A6-0x14)> {}
<MI 21b8e BNE 0x21bba> {}
<POP 21b90-21bba Naked> Σ0 ↓
<Blob 0x21b90 [36] @> Δ-36 {[«36""»]}
<POP 21b9c-21b9e StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x21b9e 36> {[«36""»]|[$$disk error reading disk error status]}
<Call 0x21bb2 0x20e40> {[«36""»]|[$$disk error reading disk error status]}
<POP 21bb6-21bba StackAdj> Δ+40 {}
<POP 21bba-21bc2 Epilogue> Σ0 ←0x21b4a
@ 21bc2
<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 21bc2-21c8a Body>
<POP 21bc2-21bd8 Prologue> Σ0 ↓
<POP 21bd8-21c3a Naked> Σ0 ↓ →0x21c82
<MI 21bd8 CLR.W (A6-0x12)> {}
<MI 21bdc CLR.W (A6-0x10)> {}
<MI 21be0 MOVE.W #0x2,(A6-0xe)> {}
<MI 21be6 CLR.W (A6-0xc)> {}
<MI 21bea CLR.W (A6-0xa)> {}
<MI 21bee MOVE.W 0x2fd42,D0> {}
<MI 21bf4 ASL.W #0x8,D0> {}
<MI 21bf6 ADDI.W #0x000e,D0> {}
<POP 0x21bfa LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 21c02 MOVE.W D0,(A6-0x8)> {}
<MI 21c06 MOVE.W (A6+0xc),(A6-0x6)> {}
<MI 21c0c MOVEA.L (A6+0x8),A0> {}
<Pointer.fp 0x21c10 <LVAR -0x012 @ 2(r)>> Δ-4 {[@@-18]}
<MI 21c14 MOVEA.L A0,A1> {[@@-18]}
<MI 21c16 MOVE.L A1,-(A7)> Δ-4 {[@@-18]|[4, 'A1']}
<MI 21c18 CLR.W -(A7)> Δ-2 {[@@-18]|[4, 'A1']|[#0]}
<Call 0x21c1a 0x10204> {[@@-18]|[4, 'A1']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21c20-21c22 StackAdj> Δ+8 {[-2-]}
<MI 21c22 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x21c24 <LVAR -0x002 @ 1(r)>> Δ-4 {[-2-]|[@@-2]}
<Call 0x21c28 0x10206> {[-2-]|[@@-2]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21c2e-21c30 StackAdj> Δ+6 {}
<MI 21c30 ANDI.W #0x00ff,(A0)> {}
<MI 21c34 TST.B (A6-0x2)> {}
<MI 21c38 BNE 0x21c82> {}
<POP 21c3a-21c82 Naked> Σ0 ↓
<Blob 0x21c3a [50] @> Δ-50 {[«50""»]}
<POP 21c4c-21c4e StackAdj> Δ-8 {[«50""»]|[-8-]}
<Lit 0x21c4e 49> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]}
<POP 21c60-21c62 StackAdj> Δ-4 {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<MI 21c62 CLR.L D0> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<MI 21c64 MOVE.W (A6+0xc),D0> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<MI 21c68 MOVE.L D0,-(A7)> Δ-4 {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]|[4, 'D0']}
<Call 0x21c6a 0x102e4> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21c70-21c72 StackAdj> Δ+4 {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<Call 0x21c72 0x102d0> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21c78-21c7a StackAdj> Δ+8 {[«50""»]|[-4-]}
<Call 0x21c7a 0x20e40> {[«50""»]|[-4-]}
<POP 21c7e-21c82 StackAdj> Δ+54 {}
<POP 21c82-21c8a Epilogue> Σ0 ←0x21bd8
@ 21c8a
<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 21c8a-21d6e Body>
<POP 21c8a-21ca0 Prologue> Σ0 ↓
<POP 21ca0-21caa RegCacheLoad> Σ0 ↓
<POP 21caa-21cb4 Naked> Σ0 ↓
<MI 21caa MOVEQ.L #0x00,D7> {}
<MI 21cac MOVE.W (A6+0x8),(A6-0x4)> {}
<MI 21cb0 ANDI.W #0x0003,(A6-0x4)> {}
<POP 21cb4-21cf2 Naked> Σ0 ↓ →0x21cb4 ←0x21cb4
<POP 0x21cb4 LimitCheck 0x0 ≤ D7 ≤ 0xffff> {}
<MI 21cbe MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Pointer.fp 0x21cc0 <LVAR -0x486 @ 2(r)>> Δ-4 {[2, 'D7']|[@@-1158]}
<Call 0x21cc4 0x21bc2> {[2, 'D7']|[@@-1158]}
<POP 21cc8-21cca StackAdj> Δ+6 {}
<POP 0x21cca LimitCheck 0x0 ≤ D7 ≤ 0x477> {}
<MI 21cd4 LEA.L (A6-0x902),A0> {}
<MI 21cd8 LEA.L (A0+D7.L),A0> {}
<MI 21cdc MOVE.W (A6-0x486),D0> {}
<POP 0x21ce0 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21ce4 MOVE.B D0,(A0+0x480)> {}
<MI 21ce8 ADDQ.L #0x1,D7> {}
<MI 21cea CMPI.L #0x00000400,D7> {}
<MI 21cf0 BNE 0x21cb4> {}
<POP 21cf2-21d38 Naked> Σ0 ↓
<MI 21cf2 LEA.L (A6-0x8fe),A0> {}
<MI 21cf6 LEA.L (A6-0x482),A1> {}
<BlockMove 1144,A1,A0> {}
<MI 21d04 LEA.L (A6-0x902),A0> {}
<MI 21d08 MOVE.W (A6-0x4),D0> {}
<MI 21d0a LEA.L (A0+D0.W),A0> {}
<MI 21d0e CLR.L D0> {}
<MI 21d10 MOVE.B (A0+0x254),D0> {}
<MI 21d14 ASL.W #0x8,D0> {}
<MI 21d16 CLR.L D1> {}
<MI 21d18 MOVE.B (A0+0x1d4),D1> {}
<MI 21d1c ADD.W D0,D1> {}
<MI 21d1e MOVE.W D1,D5> {}
<MI 21d20 CLR.L D0> {}
<MI 21d22 MOVE.B (A0+0x354),D0> {}
<MI 21d26 MOVE.W D0,(A6-0x8)> {}
<MI 21d2a CLR.L D0> {}
<MI 21d2c MOVE.B (A0+0x2d4),D0> {}
<MI 21d30 MOVE.W D0,(A6-0x6)> {}
<MI 21d34 CLR.W 0x2fb8e> {}
<MI 21d36 MOVEQ.L #0x05,D6> {}
<POP 21d38-21d48 Naked> Σ0 ↓ →0x21d62 ←0x21d62
<MI 21d38 MOVE.W D6,D0> {}
<MI 21d3a ASL.W #0x2,D0> {}
<MI 21d3c LEA.L 0x23f4e,A0> {}
<MI 21d42 CMP.W (A0+D0.W+#0x1a),D5> {}
<MI 21d46 BNE 0x21d62> {}
<POP 21d48-21d54 Naked> Σ0 ↓ →0x21d62
<MI 21d48 CLR.L D1> {}
<MI 21d4a MOVE.B (A0+D0.W+#0x1c),D1> {}
<MI 21d4e CMP.W (A6-0x8),D1> {}
<MI 21d52 BNE 0x21d62> {}
<POP 21d54-21d60 Naked> Σ0 ↓ →0x21d62
<MI 21d54 CLR.L D1> {}
<MI 21d56 MOVE.B (A0+D0.W+#0x1d),D1> {}
<MI 21d5a CMP.W (A6-0x6),D1> {}
<MI 21d5e BNE 0x21d62> {}
<POP 21d60-21d62 Naked> Σ0 ↓
<MI 21d60 MOVE.W D6,0x2fb8e> {}
<POP 21d62-21d66 Naked> Σ0 ↓ →0x21d38 ←0x21d38 ←0x21d48 ←0x21d54
<MI 21d62 SUBQ.W #0x1,D6> {}
<MI 21d64 BGE 0x21d38> {}
<POP 21d66-21d6e Epilogue> Σ0
@ 21d6e
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 21d6e-21dd4 Body>
<POP 21d6e-21d84 Prologue> Σ0 ↓
<POP 21d84-21d90 RegCacheLoad> Σ0 ↓
<POP 21d90-21dc2 Naked> Σ0 ↓ →0x21dcc
<MI 21d90 MOVE.L (A6+0xa),D4> {}
<MI 21d94 MOVEQ.L #0x0a,D3> {}
<Call 0x21d96 0x10294> {}
?divs_d3_d4
<MI 21d9c MOVE.L (A4+0xe),-(A7)> Δ-4 {[4, '(A4+0xe)']}
<MI 21d9e MOVE.L D4,D0> {[4, '(A4+0xe)']}
<MI 21da0 ADD.L #0x30,D0> {[4, '(A4+0xe)']}
<POP 0x21da2 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[4, '(A4+0xe)']}
<MI 21dac MOVE.B D0,-(A7)> Δ-2 {[4, '(A4+0xe)']|[2, 'D0']}
<Call 0x21dae 0x102c0> {[4, '(A4+0xe)']|[2, 'D0']}
AppendChar(MOD b : String; a : char)
<POP 21db0-21db2 StackAdj> Δ+2 {[4, '(A4+0xe)']}
<MI 21db2 MOVE.L (A4+0xe),(A7)> {[4, '(A4+0xe)']}
<MI 21db4 ADD.W #0x30,D3> {[4, '(A4+0xe)']}
<MI 21db6 MOVE.B D3,-(A7)> Δ-2 {[4, '(A4+0xe)']|[2, 'D3']}
<Call 0x21db8 0x102c0> {[4, '(A4+0xe)']|[2, 'D3']}
AppendChar(MOD b : String; a : char)
<POP 21dba-21dbc StackAdj> Δ+6 {}
<MI 21dbc TST.B (A6+0x8)> {}
<MI 21dc0 BEQ 0x21dcc> {}
<POP 21dc2-21dcc Naked> Σ0 ↓
<MI 21dc2 MOVE.L (A4+0xe),-(A7)> Δ-4 {[4, '(A4+0xe)']}
<MI 21dc4 MOVE.B (A6+0x8),-(A7)> Δ-2 {[4, '(A4+0xe)']|[2, '(A6+0x8)']}
<Call 0x21dc8 0x102c0> {[4, '(A4+0xe)']|[2, '(A6+0x8)']}
AppendChar(MOD b : String; a : char)
<POP 21dca-21dcc StackAdj> Δ+6 {}
<POP 21dcc-21dd4 Epilogue> Σ0 ←0x21d90
@ 21dd4
<LVAR 0x00c 2(r)>
<LVAR 0x008 2(r)>
<LVAR -0x006 4(rw)>
<LVAR -0x00a 4(rw)>
<LVAR -0x014 @>
<POP 21dd4-21ea0 Body>
<POP 21dd4-21dea Prologue> Σ0 ↓
<POP 21dea-21df4 RegCacheLoad> Σ0 ↓
<POP 21df4-21e98 Naked> Σ0 ↓
<MI 21df4 CLR.L D0> {}
<MI 21df6 MOVE.W (A6+0x8),D0> {}
<MI 21dfa CLR.L D1> {}
<MI 21dfc MOVE.W (A6+0xc),D1> {}
<MI 21e00 NEG.L D1> {}
<MI 21e02 ADD.L D0,D1> {}
<POP 0x21e04 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 21e0e MOVE.W D1,D7> {}
<MI 21e10 CLR.L D0> {}
<MI 21e12 MOVE.W D7,D0> {}
<MI 21e14 DIVU.W #0x708,D0> {}
<MI 21e18 CLR.L D1> {}
<MI 21e1a MOVE.W D0,D1> {}
<MI 21e1c MOVE.L D1,D6> {}
<MI 21e1e SWAP.W D0> {}
<MI 21e20 MOVE.W D0,D7> {}
<MI 21e22 CLR.L D0> {}
<MI 21e24 MOVE.W D7,D0> {}
<MI 21e26 DIVU.W #0x1e,D0> {}
<MI 21e2a CLR.L D1> {}
<MI 21e2c MOVE.W D0,D1> {}
<MI 21e2e MOVE.L D1,D5> {}
<MI 21e30 SWAP.W D0> {}
<MI 21e32 MOVE.W D0,D7> {}
<MI 21e34 CLR.L D0> {}
<MI 21e36 MOVE.W D7,D0> {}
<MI 21e38 ASL.L #0x1,D0> {}
<MI 21e3a MOVE.L D0,(A6-0xa)> {}
<Blob 0x21e3e [4] @> Δ-4 {[«4""»]}
<Blob 0x21e42 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21e46 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21e4a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21e4e-21e50 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21e50 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Elapsed time is_]}
<MI 21e64 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21e68-21e6c StackAdj> Δ+12 {[«4""»]}
<MI 21e6c MOVE.L D6,(A7)> {[4, 'D6']}
<Const 0x21e6e 0x3a.2> Δ-2 {[4, 'D6']|[#58]}
<MI 21e70 LEA.L (A6-0x14),A4> {[4, 'D6']|[#58]}
<Call 0x21e72 0x21d6e> {[4, 'D6']|[#58]}
<POP 21e74-21e76 StackAdj> Δ+2 {[4, 'D6']}
<MI 21e76 MOVE.L D5,(A7)> {[4, 'D5']}
<Const 0x21e78 0x3a.2> Δ-2 {[4, 'D5']|[#58]}
<MI 21e7a LEA.L (A6-0x14),A4> {[4, 'D5']|[#58]}
<Call 0x21e7c 0x21d6e> {[4, 'D5']|[#58]}
<POP 21e7e-21e80 StackAdj> Δ+2 {[4, 'D5']}
<MI 21e80 MOVE.L (A6-0xa),(A7)> {[4, '(A6-0xa)']}
<MI 21e84 CLR.B -(A7)> Δ-2 {[4, '(A6-0xa)']|[#0]}
<MI 21e86 LEA.L (A6-0x14),A4> {[4, '(A6-0xa)']|[#0]}
<Call 0x21e88 0x21d6e> {[4, '(A6-0xa)']|[#0]}
<POP 21e8a-21e8c StackAdj> Δ+2 {[4, '(A6-0xa)']}
<MI 21e8c MOVE.L (A6-0x6),(A7)> {[4, '(A6-0x6)']}
<Call 0x21e90 0x103e0> {[4, '(A6-0x6)']}
WriteConsoleStringCrLf(str : String)
<POP 21e96-21e98 StackAdj> Δ+4 {}
<POP 21e98-21ea0 Epilogue> Σ0
@ 21ea0
<POP 21ea0-21efe Body>
<POP 21ea0-21eb6 Prologue> Σ0 ↓
<POP 21eb6-21eb8 RegCacheLoad> Σ0 ↓
<POP 21eb8-21eba Naked> Σ0 ↓
<MI 21eb8 MOVEQ.L #0x01,D7> {}
<POP 21eba-21ef6 Naked> Σ0 ↓ →0x21eba ←0x21eba
<MI 21eba MOVE.L D7,D0> {}
<MI 21ebc ASL.L #0x1,D0> {}
<MI 21ebe MOVE.L D0,D1> {}
<MI 21ec0 SUBQ.L #0x1,D1> {}
<POP 0x21ec2 LimitCheck 0x0 ≤ D1 ≤ 0x1d> {}
<MI 21ec8 LEA.L 0x23f4e,A0> {}
<MI 21ece ADDA.L #0xb840,A0> {}
<MI 21ed4 MOVE.B (A0+D1.L+#0x36),D6> {}
<MI 21ed8 SUBQ.L #0x1,D0> {}
<MI 21eda SUBQ.L #0x1,D0> {}
<POP 0x21edc LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 21ee2 MOVE.B (A0+D0.L+#0x36),(A0+D1.L+#0x36)> {}
<MI 21ee8 MOVE.B D6,(A0+D0.L+#0x36)> {}
<MI 21eec ADDQ.L #0x1,D7> {}
<MI 21eee CMPI.L #0x0000000f,D7> {}
<MI 21ef4 BLE 0x21eba> {}
<POP 21ef6-21efe Epilogue> Σ0
@ 21efe
<LVAR 0x008 1(rw)>
<LVAR -0x018 2(r)>
<POP 21efe-21fb6 Body>
<POP 21efe-21f14 Prologue> Σ0 ↓
<POP 21f14-21f16 RegCacheLoad> Σ0 ↓
<POP 21f16-21f3a Naked> Σ0 →0x21f42 →0x21f4a →0x21f52 →0x21f5a
<MI 21f16 MOVE.L #0x9303,D7> {}
<MI 21f1c ASL.L #0x8,D7> {}
<MI 21f1e ASL.L #0x8,D7> {}
<MI 21f20 MOVE.W 0x2fd42,D0> {}
<MI 21f26 ASR.W #0x2,D0> {}
<POP 0x21f28 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 21f30 ADD.W D0,D0> {}
<MI 21f32 SWITCH D0.W> {}
<POP 21f42-21f4a Naked> Σ0 →0x21f60 ←0x21f16
<MI 21f42 ADDI.L #0x0000fdc0,D7> {}
<MI 21f48 BRA 0x21f60> {}
<POP 21f4a-21f52 Naked> Σ0 →0x21f60 ←0x21f16
<MI 21f4a ADDI.L #0x0000fcc0,D7> {}
<MI 21f50 BRA 0x21f60> {}
<POP 21f52-21f5a Naked> Σ0 →0x21f60 ←0x21f16
<MI 21f52 ADDI.L #0x0000fc80,D7> {}
<MI 21f58 BRA 0x21f60> {}
<POP 21f5a-21f60 Naked> Σ0 ↓ ←0x21f16
<MI 21f5a ADDI.L #0x0000fc40,D7> {}
<POP 21f60-21f62 Naked> Σ0 ↓ ←0x21f42 ←0x21f4a ←0x21f52
<MI 21f60 MOVEQ.L #0x00,D6> {}
<POP 21f62-21f9c Naked> Σ0 ↓ →0x21f62 ←0x21f62
<MI 21f62 MOVEQ.L #0x02,D4> {}
<MI 21f64 MOVE.L D6,D3> {}
<Call 0x21f66 0x1028c> {}
?muls_d3_d4
<MI 21f6c MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 21f6e ADD.L D4,(A7)> {[-4-]}
<Const 0x21f70 0x5.2> Δ-2 {[-4-]|[#5]}
<POP 0x21f74 LimitCheck 0x0 ≤ D6 ≤ 0x13> {[-4-]|[#5]}
<MI 21f7a MOVE.L D6,D0> {[-4-]|[#5]}
<MI 21f7c ASL.L #0x1,D0> {[-4-]|[#5]}
<MI 21f7e LEA.L (A6+D0.L-#0x2c),A0> {[-4-]|[#5]}
<MI 21f82 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[#5]|[4, 'A0']}
<Const 0x21f84 0x1.2> Δ-2 {[-4-]|[#5]|[4, 'A0']|[#1]}
<Const 0x21f88 0x2.2> Δ-2 {[-4-]|[#5]|[4, 'A0']|[#1]|[#2]}
<Call 0x21f8c 0x1023a> {[-4-]|[#5]|[4, 'A0']|[#1]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 21f92-21f96 StackAdj> Δ+14 {}
<MI 21f96 ADDQ.L #0x1,D6> {}
<MI 21f98 CMP.L #0x13,D6> {}
<MI 21f9a BLE 0x21f62> {}
<POP 21f9c-21faa Naked> Σ0 ↓ →0x21fae
<MI 21f9c CLR.B (A6+0x8)> {}
<MI 21fa0 MOVE.W (A6-0x18),D0> {}
<MI 21fa4 ANDI.W #0x0010,D0> {}
<MI 21fa8 BEQ 0x21fae> {}
<POP 21faa-21fae Naked> Σ0 ↓
<MI 21faa ADDQ.B #0x1,(A6+0x8)> {}
<POP 21fae-21fb6 Epilogue> Σ0 ←0x21f9c
@ 21fb6
<LVAR 0x008 4(r)>
<LVAR -0x008 4(rw)>
<LVAR -0x030 @ 1(r)>
<LVAR -0x03c @ 2(r)>
<LVAR -0x03e 2(r)>
<LVAR -0x040 2(r)>
<LVAR -0x042 2(w)>
<LVAR -0x044 2(r)>
<LVAR -0x046 2(r)>
<LVAR -0x048 2(w)>
<LVAR -0x04a 2(r)>
<LVAR -0x04c @ 2(r)>
<POP 21fb6-228cc Body> Δ+136
<POP 21fb6-21fcc Prologue> Σ0 ↓
<POP 21fcc-21fda RegCacheLoad> Σ0 ↓
<POP 21fda-21ffc Naked> Σ0 ↓ →0x2203c
<MI 21fda CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x21fdc 0x103ac> {[#0]}
Set_is_open_ERROR_LOG(a : Bool)
<POP 21fe2-21fe4 StackAdj> Δ+2 {}
<MI 21fe4 MOVE.L #0x01,0x20020> {}
<MI 21fea MOVE.L #0x01,0x10026> {}
<MI 21ff0 MOVE.L (A6+0x8),D0> {}
<MI 21ff4 CMPI.L #0x00000063,D0> {}
<MI 21ffa BNE 0x2203c> {}
<POP 21ffc-2203c Naked> Σ0 →0x22042
<Blob 0x21ffc [40] @> Δ-40 {[«40""»]}
<POP 2200e-22010 StackAdj> Δ-8 {[«40""»]|[-8-]}
<Lit 0x22010 39> {[«40""»]|[-4-]|[$$Enter unit number of disk to rewrite :_]}
<Const 0x2201e 0x0.4> Δ-4 {[«40""»]|[-4-]|[$$Enter unit number of disk to rewrite :_]|[##0]}
<Const 0x22022 0xf.4> Δ-4 {[«40""»]|[-4-]|[$$Enter unit number of disk to rewrite :_]|[##0]|[##15]}
<Call 0x22026 0x103ec> {[«40""»]|[-4-]|[$$Enter unit number of disk to rewrite :_]|[##0]|[##15]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 2202c-2202e StackAdj> Δ+12 {[«40""»]|[-4-]}
<MI 2202e MOVE.L (A7)+,D0> Δ+4 {[«40""»]}
<POP 0x22030 LimitCheck 0x0 ≤ D0 ≤ 0xf> {[«40""»]}
<POP 22036-2203a StackAdj> Δ+40 {}
<MI 2203a BRA 0x22042> {}
<POP 2203c-22042 Naked> Σ0 ↓ ←0x21fda
<POP 0x2203c LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<POP 22042-220a4 Naked> Σ0 ↓ →0x220c6 ←0x21ffc
<MI 22042 MOVE.W D0,0x2fd42> {}
<MI 22048 CLR.W (A6-0x4c)> {}
<MI 2204c CLR.W (A6-0x4a)> {}
<MI 22050 MOVE.W #0x2,(A6-0x48)> {}
<MI 22056 CLR.W (A6-0x46)> {}
<MI 2205a CLR.W (A6-0x44)> {}
<MI 2205e MOVE.W 0x2fd42,D0> {}
<MI 22064 ASL.W #0x8,D0> {}
<POP 0x22066 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 2206e MOVE.W D0,(A6-0x42)> {}
<MI 22072 CLR.W (A6-0x40)> {}
<MI 22076 CLR.W (A6-0x3e)> {}
<Pointer.fp 0x2207a <LVAR -0x04c @ 2(r)>> Δ-4 {[@@-76]}
<MI 2207e LEA.L (A6-0x3c),A0> {[@@-76]}
<MI 22082 MOVE.L A0,-(A7)> Δ-4 {[@@-76]|[4, 'A0']}
<MI 22084 CLR.W -(A7)> Δ-2 {[@@-76]|[4, 'A0']|[#0]}
<Call 0x22086 0x10204> {[@@-76]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 2208c-2208e StackAdj> Δ+8 {[-2-]}
<MI 2208e CLR.W (A7)> {[-2-]}
<Pointer.fp 0x22090 <LVAR -0x030 @ 1(r)>> Δ-4 {[-2-]|[@@-48]}
<Call 0x22094 0x10206> {[-2-]|[@@-48]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 2209a-2209c StackAdj> Δ+6 {}
<MI 2209c MOVE.W (A6-0x3c),D0> {}
<MI 220a0 CMP.W #0x01,D0> {}
<MI 220a2 BEQ 0x220c6> {}
<POP 220a4-220c6 Naked> Σ0 ↓
<Blob 0x220a4 [30] @> Δ-30 {[«30""»]}
<POP 220b0-220b2 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x220b2 30> {[«30""»]|[$$That disk unit does not exist.]}
<Call 0x220be 0x20e40> {[«30""»]|[$$That disk unit does not exist.]}
<POP 220c2-220c6 StackAdj> Δ+34 {}
<POP 220c6-2210a Naked> Σ0 ↓ →0x22134 ←0x22042
<MI 220c6 MOVE.W 0x2fd42,D0> {}
<POP 0x220cc LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 220ce MOVE.W D0,0x10008> {}
<MI 220d4 MOVE.W #0x7fff,0x1000c> {}
<MI 220dc MOVE.W #0x7fff,0x1000a> {}
<Const 0x220e4 0x2.2> Δ-2 {[#2]}
<Const 0x220e8 0x2.2> Δ-2 {[#2]|[#2]}
<Const 0x220ec 0x1.4> Δ-4 {[#2]|[#2]|[##1]}
<Blob 0x220f0 [4] 0x2fb94> Δ-4 {[#2]|[#2]|[##1]|[«4»]}
<Pointer.fp 0x220f6 <LVAR -0x030 @ 1(r)>> Δ-4 {[#2]|[#2]|[##1]|[«4»]|[@@-48]}
<Call 0x220fa 0x1036c> {[#2]|[#2]|[##1]|[«4»]|[@@-48]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 22100-22104 StackAdj> Δ+16 {}
<MI 22104 TST.B (A6-0x30)> {}
<MI 22108 BNE 0x22134> {}
<POP 2210a-22134 Naked> Σ0 ↓
<Blob 0x2210a [42] @> Δ-42 {[«42""»]}
<POP 2211c-2211e StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x2211e 41> {[«42""»]|[$$Can't retrieve labels due to disk errors.]}
<Call 0x2212c 0x20e40> {[«42""»]|[$$Can't retrieve labels due to disk errors.]}
<POP 22130-22134 StackAdj> Δ+46 {}
<POP 22134-22140 Naked> Σ0 ↓ →0x2216a ←0x220c6
<MI 22134 MOVE.W 0x2f790,D0> {}
<MI 2213a CMPI.W #0x7fed,D0> {}
<MI 2213e BEQ 0x2216a> {}
<POP 22140-2216a Naked> Σ0 ↓
<Blob 0x22140 [20] @> Δ-20 {[«20""»]}
<POP 22152-22154 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22154 19> {[«20""»]|[$$Disk has no labels.]}
<Call 0x22162 0x20e40> {[«20""»]|[$$Disk has no labels.]}
<POP 22166-2216a StackAdj> Δ+24 {}
<POP 2216a-22176 Naked> Σ0 ↓ →0x2219e ←0x22134
<MI 2216a MOVE.W 0x2f792,D0> {}
<MI 22170 CMPI.W #0x0003,D0> {}
<MI 22174 BEQ 0x2219e> {}
<POP 22176-2219e Naked> Σ0 ↓
<Blob 0x22176 [26] @> Δ-26 {[«26""»]}
<POP 22188-2218a StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x2218a 25> {[«26""»]|[$$Disk has obsolete labels.]}
<Call 0x22198 0x20e40> {[«26""»]|[$$Disk has obsolete labels.]}
<POP 2219c-2219e StackAdj> Δ+30 {}
<POP 2219e-22240 Naked> Σ0 ↓ →0x2225a ←0x2216a
<MI 2219e MOVE.L 0x2f796,0x2fd44> {}
<Call 0x221a8 0x21ea0> {}
<Blob 0x221ac [30] 0x2f7e2> Δ-30 {[«30»]}
<POP 221ba-221bc StackAdj> Δ-8 {[«30»]|[-8-]}
<Lit 0x221bc> {[«30»]|[-4-]|[$$…]}
<Pointer.sp 0x221bc 8> Δ-4
<Const 0x221c0 0x1.2> Δ-2
<Const 0x221c2 0x1e.2> Δ-2
<Call 0x221c4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 221c6-221c8 StackAdj> Δ+8
<Call 0x221c8 0x102f0> {[«30»]|[-4-]|[$$…]}
ToUpper(a : String) : String
<POP 221ce-221d0 StackAdj> Δ+4 {[«30»]|[-4-]}
<MI 221d0 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«30»]}
<POP 221d4-221d6 StackAdj> Δ+30 {}
<Call 0x221d6 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x221dc [8] @> Δ-8 {[«8""»]}
<POP 221ec-221ee StackAdj> Δ-8 {[«8""»]|[-8-]}
<Lit 0x221ee 7> {[«8""»]|[-4-]|[$$HDA =>_]}
<MI 221fa MOVE.L (A6-0x8),(A7)> {[«8""»]|[-4-]|[4, '(A6-0x8)']}
<POP 221f8-221fa StackAdj> Δ-8 {[«8""»]|[-4-]|[4, '(A6-0x8)']|[-8-]}
<Call 0x221fe 0x102cc> {[«8""»]|[-4-]|[4, '(A6-0x8)']|[-8-]}
StringDup(a : String) : String
<POP 22204-22206 StackAdj> Δ+4 {[«8""»]|[-4-]|[4, '(A6-0x8)']|[-4-]}
<Call 0x22206 0x102d0> {[«8""»]|[-4-]|[4, '(A6-0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 2220c-2220e StackAdj> Δ+8 {[«8""»]|[-4-]}
<Call 0x2220e 0x103e0> {[«8""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22214-22216 StackAdj> Δ+12 {}
<MI 22216 MOVE.W 0x2fd42,D0> {}
<POP 0x2221c LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 2221e MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Call 0x22220 0x21c8a> {[2, 'D0']}
<POP 22224-22226 StackAdj> Δ+2 {}
<MI 22226 MOVE.W 0x2fb8e,D0> {}
<MI 2222c ASL.W #0x2,D0> {}
<MI 2222e LEA.L 0x23f4e,A0> {}
<MI 22234 MOVE.W (A0+D0.W+#0x1a),D1> {}
<MI 22238 CMP.W 0x2fd44,D1> {}
<MI 2223e BNE 0x2225a> {}
<POP 22240-2224c Naked> Σ0 ↓ →0x2225a
<MI 22240 MOVE.B (A0+D0.W+#0x1c),D1> {}
<MI 22244 CMP.B 0x2fd46,D1> {}
<MI 2224a BNE 0x2225a> {}
<POP 2224c-2225a Naked> Σ0 ↓ →0x2258c
<MI 2224c MOVE.B (A0+D0.W+#0x1d),D0> {}
<MI 22250 CMP.B 0x2fd47,D0> {}
<MI 22256 BEQ 0x2258c> {}
<POP 2225a-22512 Naked> Σ0 →0x22518 →0x2251e →0x22546 ←0x2219e ←0x22240
<Blob 0x2225a [50] @> Δ-50 {[«50""»]}
<POP 2226c-2226e StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x2226e 49> {[«50""»]|[$$Drive label geometry disagrees with slew settings]}
<Call 0x2227c 0x103e0> {[«50""»]|[$$Drive label geometry disagrees with slew settings]}
WriteConsoleStringCrLf(str : String)
<POP 22282-22286 StackAdj> Δ+54 {}
<Blob 0x22286 [28] @> Δ-28 {[«28""»]}
<Blob 0x22292 [4] @> Δ-4 {[«28""»]|[«4""»]}
<Blob 0x22296 [4] @> Δ-4 {[«28""»]|[«4""»]|[«4""»]}
<Blob 0x2229a [4] @> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2229e [4] @> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x222a2 [4] @> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 222a6-222a8 StackAdj> Δ-8 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x222a8 28> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]}
<POP 222b4-222b6 StackAdj> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]}
<MI 222b6 MOVE.W 0x2fb8e,D0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]}
<MI 222bc ASL.W #0x2,D0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]}
<MI 222be LEA.L 0x23f4e,A0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]}
<MI 222c4 CLR.L D1> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]}
<MI 222c6 MOVE.W (A0+D0.W+#0x1a),D1> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]}
<MI 222ca MOVE.L D1,-(A7)> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[4, 'D1']}
<Call 0x222cc 0x102e4> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[4, 'D1']}
Long2String(a : Long) : String
<Lit 0x222d2 12> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]}
<POP 222dc-222de StackAdj> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 222de MOVE.W 0x2fb8e,D0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 222e4 ASL.W #0x2,D0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 222e6 LEA.L 0x23f4e,A0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 222ec CLR.L D1> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 222ee MOVE.B (A0+D0.W+#0x1c),D1> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 222f2 MOVE.L D1,-(A7)> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[4, 'D1']}
<Call 0x222f4 0x102e4> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[4, 'D1']}
Long2String(a : Long) : String
<Lit 0x222fa 8> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]}
<POP 22306-22308 StackAdj> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 22308 MOVE.W 0x2fb8e,D0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 2230e ASL.W #0x2,D0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 22310 LEA.L 0x23f4e,A0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 22316 CLR.L D1> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 22318 MOVE.B (A0+D0.W+#0x1d),D1> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 2231c MOVE.L D1,-(A7)> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]|[4, 'D1']}
<Call 0x2231e 0x102e4> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]|[4, 'D1']}
Long2String(a : Long) : String
<POP 22324-22326 StackAdj> Δ+4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<Call 0x22326 0x102e0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 2232c-22330 StackAdj> Δ+24 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 22330 MOVEA.L (A7)+,A4> Δ+4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 22332-22333 StackAdj> Δ+48 ↓ {}
<Blob 0x22333 [10] @> Δ-10 {[«10""»]}
<POP 22344-22346 StackAdj> Δ-4 {[«10""»]|[-4-]}
<MI 22346 MOVE.L A4,-(A7)> Δ-4 {[«10""»]|[-4-]|[4, 'A4']}
<POP 22348-2234a StackAdj> Δ-4 {[«10""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x2234a 9> {[«10""»]|[-4-]|[4, 'A4']|[$$ sectors,]}
<Call 0x22358 0x102d0> {[«10""»]|[-4-]|[4, 'A4']|[$$ sectors,]}
StringCat2(a, b : String) : String
<POP 2235e-22360 StackAdj> Δ+8 {[«10""»]|[-4-]}
<MI 22360 MOVEA.L (A7)+,A4> Δ+4 {[«10""»]}
<POP 22362-22364 StackAdj> Δ+6 {[-4-]}
<MI 22364 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x22366 0x103e0> {[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 2236c-2236d StackAdj> Δ+4 ↓ {}
<Blob 0x2236d [22] @> Δ-22 {[«22""»]}
<Blob 0x2237e [4] @> Δ-4 {[«22""»]|[«4""»]}
<Blob 0x22382 [4] @> Δ-4 {[«22""»]|[«4""»]|[«4""»]}
<Blob 0x22386 [4] @> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2238a [4] @> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2238e [4] @> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 22392-22394 StackAdj> Δ-8 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x22394 21> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]}
<POP 223a0-223a2 StackAdj> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]}
<MI 223a2 CLR.L D0> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]}
<MI 223a4 MOVE.W 0x2fd44,D0> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]}
<MI 223aa MOVE.L D0,-(A7)> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[4, 'D0']}
<Call 0x223ac 0x102e4> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x223b2 12> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]}
<POP 223bc-223be StackAdj> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 223be CLR.L D0> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 223c0 MOVE.B 0x2fd46,D0> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 223c6 MOVE.L D0,-(A7)> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[4, 'D0']}
<Call 0x223c8 0x102e4> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x223ce 8> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]}
<POP 223da-223dc StackAdj> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 223dc CLR.L D0> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 223de MOVE.B 0x2fd47,D0> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 223e4 MOVE.L D0,-(A7)> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]|[4, 'D0']}
<Call 0x223e6 0x102e4> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 223ec-223ee StackAdj> Δ+4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<Call 0x223ee 0x102e0> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 223f4-223f8 StackAdj> Δ+24 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 223f8 MOVEA.L (A7)+,A4> Δ+4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 223fa-223fb StackAdj> Δ+42 ↓ {}
<Blob 0x223fb [10] @> Δ-10 {[«10""»]}
<POP 2240c-2240e StackAdj> Δ-4 {[«10""»]|[-4-]}
<MI 2240e MOVE.L A4,-(A7)> Δ-4 {[«10""»]|[-4-]|[4, 'A4']}
<POP 22410-22412 StackAdj> Δ-4 {[«10""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x22412 9> {[«10""»]|[-4-]|[4, 'A4']|[$$ sectors,]}
<Call 0x22420 0x102d0> {[«10""»]|[-4-]|[4, 'A4']|[$$ sectors,]}
StringCat2(a, b : String) : String
<POP 22426-22428 StackAdj> Δ+8 {[«10""»]|[-4-]}
<MI 22428 MOVEA.L (A7)+,A4> Δ+4 {[«10""»]}
<POP 2242a-2242c StackAdj> Δ+6 {[-4-]}
<MI 2242c MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x2242e 0x103e0> {[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 22434-22435 StackAdj> Δ+4 ↓ {}
<Blob 0x22435 [16] @> Δ-16 {[«16""»]}
<POP 22444-22446 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x22446 15> {[«16""»]|[$$Do you want to-]}
<Call 0x22452 0x103e0> {[«16""»]|[$$Do you want to-]}
WriteConsoleStringCrLf(str : String)
<POP 22458-2245c StackAdj> Δ+20 {}
<Blob 0x2245c [20] @> Δ-20 {[«20""»]}
<POP 22468-2246a StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2246a 20> {[«20""»]|[$$ 0 => exit REWRITE]}
<Call 0x22478 0x103e0> {[«20""»]|[$$ 0 => exit REWRITE]}
WriteConsoleStringCrLf(str : String)
<POP 2247e-2247f StackAdj> Δ+24 ↓ {}
<Blob 0x2247f [26] @> Δ-26 {[«26""»]}
<POP 2248e-22490 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x22490 25> {[«26""»]|[$$ 1 => use slew settings]}
<Call 0x2249e 0x103e0> {[«26""»]|[$$ 1 => use slew settings]}
WriteConsoleStringCrLf(str : String)
<POP 224a4-224a6 StackAdj> Δ+30 {}
<Blob 0x224a6 [26] @> Δ-26 {[«26""»]}
<POP 224b2-224b4 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x224b4 26> {[«26""»]|[$$ 2 => use label settings]}
<Call 0x224c2 0x103e0> {[«26""»]|[$$ 2 => use label settings]}
WriteConsoleStringCrLf(str : String)
<POP 224c8-224ca StackAdj> Δ+30 {}
<Blob 0x224ca [22] @> Δ-22 {[«22""»]}
<POP 224d6-224d8 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x224d8 22> {[«22""»]|[-4-]|[$$Enter option [0..2] :_]}
<Const 0x224e6 0x0.4> Δ-4 {[«22""»]|[-4-]|[$$Enter option [0..2] :_]|[##0]}
<Const 0x224ea 0x2.4> Δ-4 {[«22""»]|[-4-]|[$$Enter option [0..2] :_]|[##0]|[##2]}
<Call 0x224ee 0x103ec> {[«22""»]|[-4-]|[$$Enter option [0..2] :_]|[##0]|[##2]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 224f4-224f6 StackAdj> Δ+12 {[«22""»]|[-4-]}
<MI 224f6 MOVE.L (A7)+,D6> Δ+4 {[«22""»]}
<POP 224f8-224fc StackAdj> Δ+22 {}
<MI 224fc MOVE.L D6,D0> {}
<POP 0x224fe LimitCheck 0x0 ≤ D0 ≤ 0x2> {}
<MI 22508 ADD.W D0,D0> {}
<MI 2250a SWITCH D0.W> {}
<POP 22518-2251e Naked> Σ0 →0x22586 ←0x2225a
<Call 0x22518 0x20ea2> {}
<MI 2251c BRA 0x22586> {}
<POP 2251e-22546 Naked> Σ0 →0x22586 ←0x2225a
<MI 2251e MOVE.W 0x2fb8e,D0> {}
<MI 22524 ASL.W #0x2,D0> {}
<MI 22526 LEA.L 0x23f4e,A0> {}
<MI 2252c MOVE.W (A0+D0.W+#0x1a),0x2fd44> {}
<MI 22534 MOVE.B (A0+D0.W+#0x1c),0x2fd46> {}
<MI 2253c MOVE.B (A0+D0.W+#0x1d),0x2fd47> {}
<MI 22544 BRA 0x22586> {}
<POP 22546-2254e Naked> Σ0 ↓ ←0x2225a
<MI 22546 CLR.W 0x2fb8e> {}
<MI 2254c MOVEQ.L #0x05,D7> {}
<POP 2254e-22564 Naked> Σ0 ↓ →0x22582 ←0x22582
<MI 2254e MOVE.W D7,D0> {}
<MI 22550 ASL.W #0x2,D0> {}
<MI 22552 LEA.L 0x23f4e,A0> {}
<MI 22558 MOVE.W (A0+D0.W+#0x1a),D1> {}
<MI 2255c CMP.W 0x2fd44,D1> {}
<MI 22562 BNE 0x22582> {}
<POP 22564-22570 Naked> Σ0 ↓ →0x22582
<MI 22564 MOVE.B (A0+D0.W+#0x1c),D1> {}
<MI 22568 CMP.B 0x2fd46,D1> {}
<MI 2256e BNE 0x22582> {}
<POP 22570-2257c Naked> Σ0 ↓ →0x22582
<MI 22570 MOVE.B (A0+D0.W+#0x1d),D0> {}
<MI 22574 CMP.B 0x2fd47,D0> {}
<MI 2257a BNE 0x22582> {}
<POP 2257c-22582 Naked> Σ0 ↓
<MI 2257c MOVE.W D7,0x2fb8e> {}
<POP 22582-22586 Naked> Σ0 ↓ →0x2254e ←0x2254e ←0x22564 ←0x22570
<MI 22582 SUBQ.W #0x1,D7> {}
<MI 22584 BGE 0x2254e> {}
<POP 22586-2258c Naked> Σ0 ↓ ←0x22518 ←0x2251e
<Call 0x22586 0x103dc> {}
WriteConsoleCrLf(void)
<POP 2258c-22596 Naked> Σ0 ↓ →0x22614 ←0x2224c
<POP 2258c-2258e StackAdj> Δ-2 {[-2-]}
<Call 0x2258e 0x21efe> {[-2-]}
<MI 22592 TST.B (A7)+> Δ+2 {}
<MI 22594 BEQ 0x22614> {}
<POP 22596-22614 Naked> Σ0 ↓
<Call 0x22596 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2259c [72] @> Δ-72 {[«72""»]}
<POP 225a8-225aa StackAdj> Δ-4 {[«72""»]|[-4-]}
<Lit 0x225aa 72> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
<Call 0x225b8 0x103e0> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
WriteConsoleStringCrLf(str : String)
<POP 225be-225c2 StackAdj> Δ+76 {}
<Blob 0x225c2 [44] @> Δ-44 {[«44""»]}
<POP 225ce-225d0 StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x225d0 44> {[«44""»]|[$$Please UNPROTECT the drive before continuing]}
<Call 0x225de 0x103e0> {[«44""»]|[$$Please UNPROTECT the drive before continuing]}
WriteConsoleStringCrLf(str : String)
<POP 225e4-225e8 StackAdj> Δ+48 {}
<Blob 0x225e8 [72] @> Δ-72 {[«72""»]}
<POP 225f4-225f6 StackAdj> Δ-4 {[«72""»]|[-4-]}
<Lit 0x225f6 72> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
<Call 0x22604 0x103e0> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
WriteConsoleStringCrLf(str : String)
<POP 2260a-2260e StackAdj> Δ+76 {}
<Call 0x2260e 0x103dc> {}
WriteConsoleCrLf(void)
<POP 22614-226f4 Naked> Σ0 →0x22700 →0x2272a →0x22758 →0x2276c →0x2277a →0x22788 ←0x2258c
<Blob 0x22614 [16] @> Δ-16 {[«16""»]}
<Blob 0x22626 [4] @> Δ-4 {[«16""»]|[«4""»]}
<Blob 0x2262a [4] @> Δ-4 {[«16""»]|[«4""»]|[«4""»]}
<Blob 0x2262e [4] @> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x22632 [4] @> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x22636 [4] @> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2263a-2263c StackAdj> Δ-8 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x2263c 15> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]}
<POP 22646-22648 StackAdj> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]}
<MI 22648 CLR.L D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]}
<MI 2264a MOVE.W 0x2fd44,D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]}
<MI 22650 MOVE.L D0,-(A7)> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, 'D0']}
<Call 0x22652 0x102e4> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x22658 12> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]}
<POP 22662-22664 StackAdj> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 22664 CLR.L D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 22666 MOVE.B 0x2fd46,D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 2266c MOVE.L D0,-(A7)> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[4, 'D0']}
<Call 0x2266e 0x102e4> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x22674 8> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]}
<POP 22680-22682 StackAdj> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 22682 CLR.L D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 22684 MOVE.B 0x2fd47,D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 2268a MOVE.L D0,-(A7)> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]|[4, 'D0']}
<Call 0x2268c 0x102e4> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 22692-22694 StackAdj> Δ+4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<Call 0x22694 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 2269a-2269e StackAdj> Δ+24 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 2269e MOVEA.L (A7)+,A4> Δ+4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 226a0-226a1 StackAdj> Δ+36 ↓ {}
<Blob 0x226a1 [10] @> Δ-10 {[«10""»]}
<POP 226b2-226b4 StackAdj> Δ-4 {[«10""»]|[-4-]}
<MI 226b4 MOVE.L A4,-(A7)> Δ-4 {[«10""»]|[-4-]|[4, 'A4']}
<POP 226b6-226b8 StackAdj> Δ-4 {[«10""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x226b8 9> {[«10""»]|[-4-]|[4, 'A4']|[$$ sectors,]}
<Call 0x226c6 0x102d0> {[«10""»]|[-4-]|[4, 'A4']|[$$ sectors,]}
StringCat2(a, b : String) : String
<POP 226cc-226ce StackAdj> Δ+8 {[«10""»]|[-4-]}
<MI 226ce MOVEA.L (A7)+,A4> Δ+4 {[«10""»]}
<POP 226d0-226d2 StackAdj> Δ+6 {[-4-]}
<MI 226d2 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x226d4 0x103e0> {[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 226da-226dc StackAdj> Δ+4 {}
<MI 226dc MOVE.W 0x2fb8e,D0> {}
<POP 0x226e2 LimitCheck 0x0 ≤ D0 ≤ 0x5> {}
<MI 226ea ADD.W D0,D0> {}
<MI 226ec SWITCH D0.W> {}
<POP 22700-2272a Naked> Σ0 →0x227ae ←0x22614
<Blob 0x22700 [42] @> Δ-42 {[«42""»]}
<POP 2270c-2270e StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x2270e 42> {[«42""»]|[$$The rewrite time for this drive is unknown]}
<Call 0x2271c 0x103e0> {[«42""»]|[$$The rewrite time for this drive is unknown]}
WriteConsoleStringCrLf(str : String)
<POP 22722-22726 StackAdj> Δ+46 {}
<MI 22726 BRA 0x227ae> {}
<POP 2272a-2273c Naked> Σ0 Δ-40 ↓ ←0x22614
<Blob 0x2272a [40] @> Δ-40 {[«40""»]}
<POP 2273c-22758 Naked> Σ-40 Δ+40 →0x227ae ←0x22758
<POP 2273c-2273e StackAdj> Δ-4 {[-44-]}
<Lit 0x2273e> {[-40-]|[$$…]}
<Pointer.sp 0x2273e 4> Δ-4
<Const 0x22742 0x1.2> Δ-2
<Const 0x22744 0x27.2> Δ-2
<Call 0x22748 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2274a-2274c StackAdj> Δ+8
<Call 0x2274c 0x103e0> {[-40-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 22752-22756 StackAdj> Δ+44 {}
<MI 22756 BRA 0x227ae> {}
<POP 22758-2276c Naked> Σ0 Δ-40 →0x2273c ←0x22614
<Blob 0x22758 [40] @> Δ-40 {[«40""»]}
<MI 2276a BRA 0x2273c> {[«40""»]}
<POP 2276c-2277a Naked> Σ0 Δ-48 →0x22794 ←0x22614
<Blob 0x2276c [48] @> Δ-48 {[«48""»]}
<MI 22778 BRA 0x22794> {[«48""»]}
<POP 2277a-22788 Naked> Σ0 Δ-48 →0x22794 ←0x22614
<Blob 0x2277a [48] @> Δ-48 {[«48""»]}
<MI 22786 BRA 0x22794> {[«48""»]}
<POP 22788-22794 Naked> Σ0 Δ-48 ↓ ←0x22614
<Blob 0x22788 [48] @> Δ-48 {[«48""»]}
<POP 22794-227ae Naked> Σ-48 Δ+48 ↓ ←0x2276c ←0x2277a
<POP 22794-22796 StackAdj> Δ-4 {[-52-]}
<Lit 0x22796> {[-48-]|[$$…]}
<Pointer.sp 0x22796 4> Δ-4
<Const 0x2279a 0x1.2> Δ-2
<Const 0x2279c 0x30.2> Δ-2
<Call 0x227a0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 227a2-227a4 StackAdj> Δ+8
<Call 0x227a4 0x103e0> {[-48-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 227aa-227ae StackAdj> Δ+52 {}
<POP 227ae-227ba Naked> Σ0 ↓ →0x227ec ←0x22700 ←0x2273c
<MI 227ae MOVE.L (A6+0x8),D0> {}
<MI 227b2 CMPI.L #0x00000063,D0> {}
<MI 227b8 BNE 0x227ec> {}
<POP 227ba-227e4 Naked> Σ0 Δ-32 ↓ →0x227e8
<Blob 0x227ba [32] @> Δ-32 {[«32""»]}
<POP 227c6-227c8 StackAdj> Δ-6 {[«32""»]|[-6-]}
<Lit 0x227c8 32> {[«32""»]|[-2-]|[$$Do you wish to rewrite the drive]}
<POP 227d4-227d6 StackAdj> Δ-2 {[«32""»]|[-2-]|[$$Do you wish to rewrite the drive]|[-2-]}
<POP 227d6-227d7 StackAdj> Δ+2 {[«32""»]|[-2-]|[$$Do you wish to rewrite the drive]}
<Const 0x227d7 0x1.2> Δ-2 {[«32""»]|[-2-]|[$$Do you wish to rewrite the drive]|[#1]}
<Call 0x227d8 0x103f0> {[«32""»]|[-2-]|[$$Do you wish to rewrite the drive]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 227de-227e0 StackAdj> Δ+6 {[«32""»]|[-2-]}
<MI 227e0 TST.B (A7)+> Δ+2 {[«32""»]}
<MI 227e2 BNE 0x227e8> {[«32""»]}
<POP 227e4-227e8 Naked> Σ-32 ↓
<Call 0x227e4 0x20ea2> {[-32-]}
<POP 227e8-227ec Naked> Σ-32 Δ+32 ↓ ←0x227ba
<POP 227e8-227ec StackAdj> Δ+32 {}
<POP 227ec-228c4 Naked> Σ0 ↓ ←0x227ae
<MI 227ec CLR.L D0> {}
<MI 227ee MOVE.B 0x2fd47,D0> {}
<MI 227f4 MOVE.W #0x102,D1> {}
<MI 227f8 MULU.W D0,D1> {}
<MI 227fa NEG.L D1> {}
<MI 227fc ANDI.L #0x0000ffff,D1> {}
<MI 22802 MOVE.W D1,0x2fd48> {}
<MI 22808 LEA.L 0x23f80,A0> {}
<MI 2280e MOVEA.L A0,A3> {}
<MI 22810 MOVE.L A3,-(A7)> Δ-4 {[4, 'A3']}
<MI 22812 MOVE.L (A7)+,D1> Δ+4 {}
<MI 22814 ANDI.L #0x000003ff,D1> {}
<MI 2281a MOVE.W D1,0x23f56> {}
<MI 22820 MOVE.W 0x2fd42,D1> {}
<POP 0x22826 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 2282e MOVE.W D1,0x23f66> {}
<MI 22834 MOVE.W #0x3b,0x23f62> {}
<MI 2283c MOVE.W #0x33,0x23f64> {}
<MI 22844 MOVE.L #0x9303,0x23f5e> {}
<MI 2284e MOVE.L 0x23f5e,D1> {}
<MI 22854 ASL.L #0x8,D1> {}
<MI 22856 ASL.L #0x8,D1> {}
<MI 22858 MOVE.L D1,0x23f5e> {}
<MI 2285e ADDI.L #0x0000fdc0,D1> {}
<MI 22864 MOVE.L D1,0x23f5e> {}
<MI 2286a ADDQ.W #0x2,D0> {}
<MI 2286c ASR.W #0x1,D0> {}
<MI 2286e MULS.W #0x100,D0> {}
<MI 22872 MOVE.W D0,0x2c896> {}
<MI 22878 CLR.W 0x2c898> {}
<MI 2287e MOVE.W #0x2,0x2c89a> {}
<MI 22886 CLR.W 0x2c89c> {}
<MI 2288c CLR.W 0x2c89e> {}
<MI 22892 MOVE.W 0x2fd42,D0> {}
<MI 22898 ASL.W #0x8,D0> {}
<MI 2289a ADDQ.W #0x2,D0> {}
<POP 0x2289c LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 228a4 MOVE.W D0,0x2c8a0> {}
<MI 228aa CLR.W 0x2c8a2> {}
<MI 228b0 CLR.W 0x2c8a4> {}
<MI 228b6 LEA.L 0x23f80,A0> {}
<MI 228bc MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 228be MOVE.L (A7)+,0x2c8a6> Δ+4 {}
<POP 228c4-228cc Epilogue> Σ0
@ 228cc
<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 228cc-229c4 Body>
<POP 228cc-228e2 Prologue> Σ0 ↓
<POP 228e2-228e8 RegCacheLoad> Σ0 ↓
<POP 228e8-2293e Naked> Σ0 ↓ →0x22960
<MI 228e8 CLR.W (A6-0x14)> {}
<MI 228ec MOVE.W #0x2,(A6-0x12)> {}
<MI 228f2 CLR.W (A6-0x10)> {}
<MI 228f6 CLR.W (A6-0xe)> {}
<MI 228fa MOVE.W 0x2fd42,D0> {}
<MI 22900 ASL.W #0x8,D0> {}
<MI 22902 MOVE.B (A6+0xc),D1> {}
<MI 22906 EXTB.W D1> {}
<MI 22908 ADD.W D1,D0> {}
<POP 0x2290a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22910 MOVE.W D0,(A6-0xc)> {}
<MI 22914 MOVE.L (A6+0x16),D0> {}
<POP 0x22918 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 2291e MOVE.W D0,(A6-0xa)> {}
<MI 22922 MOVE.L (A6+0x12),D0> {}
<MI 22926 ASL.L #0x8,D0> {}
<MI 22928 ADD.L (A6+0xe),D0> {}
<POP 0x2292c LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22932 MOVE.W D0,(A6-0x8)> {}
<MI 22936 SUBQ.W #0x2,D1> {}
<MI 22938 CMPI.W #0x0006,D1> {}
<MI 2293c BHI 0x22960> {}
<POP 2293e-22948 Naked> Σ0 →0x22956 →0x22960 →0x22960 →0x22960 →0x22960 →0x22960 →0x2295e
<MI 2293e ADD.W D1,D1> {}
<MI 22940 SWITCH D1.W> {}
<POP 22956-2295e Naked> Σ0 →0x22990 ←0x2293e ←0x2295e
<MI 22956 MOVE.W #0x100,(A6-0x16)> {}
<MI 2295c BRA 0x22990> {}
<POP 2295e-22960 Naked> Σ0 →0x22956 ←0x2293e
<MI 2295e BRA 0x22956> {}
<POP 22960-22990 Naked> Σ0 ↓ ←0x228e8 ←0x2293e ←0x2293e ←0x2293e ←0x2293e ←0x2293e
<Blob 0x22960 [20] @> Δ-20 {[«20""»]}
<POP 22972-22974 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22974 19> {[«20""»]|[$$Unsupported disk op]}
<Call 0x22988 0x20e40> {[«20""»]|[$$Unsupported disk op]}
<POP 2298c-22990 StackAdj> Δ+24 {}
<POP 22990-229bc Naked> Σ0 ↓ ←0x22956
<MI 22990 LEA.L 0x23f80,A0> {}
<MI 22996 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22998 MOVEA.L (A7)+,A4> Δ+4 {}
<Pointer.fp 0x2299a <LVAR -0x016 @ 2(w)>> Δ-4 {[@@-22]}
<MI 2299e MOVE.L A4,-(A7)> Δ-4 {[@@-22]|[4, 'A4']}
<MI 229a0 CLR.W -(A7)> Δ-2 {[@@-22]|[4, 'A4']|[#0]}
<Call 0x229a2 0x10204> {[@@-22]|[4, 'A4']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 229a8-229ac StackAdj> Δ+10 {}
<MI 229ac MOVEA.L (A6+0x8),A0> {}
<MI 229b0 CLR.W -(A7)> Δ-2 {[#0]}
<MI 229b2 PEA.L (A0)> Δ-4 {[#0]|[4, '^(A0)']}
<Call 0x229b4 0x10206> {[#0]|[4, '^(A0)']}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 229ba-229bc StackAdj> Δ+6 {}
<POP 229bc-229c4 Epilogue> Σ0
@ 229c4
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 2(r)>
<POP 229c4-22a28 Body>
<POP 229c4-229da Prologue> Σ0 ↓
<POP 229da-229e6 RegCacheLoad> Σ0 ↓
<POP 229e6-22a20 Naked> Σ0 ↓ →0x229e6 ←0x229e6
<MI 229e6 MOVEA.L (A6+0x8),A0> {}
<Blob 0x229ea [4] 0x23f5e> Δ-4 {[«4»]}
<Const 0x229ec 0x5.2> Δ-2 {[«4»]|[#5]}
<MI 229ee MOVEA.L A0,A1> {[«4»]|[#5]}
<MI 229f0 MOVE.L A1,-(A7)> Δ-4 {[«4»]|[#5]|[4, 'A1']}
<Const 0x229f2 0x1.2> Δ-2 {[«4»]|[#5]|[4, 'A1']|[#1]}
<Const 0x229f4 0x2.2> Δ-2 {[«4»]|[#5]|[4, 'A1']|[#1]|[#2]}
<Call 0x229f6 0x1023a> {[«4»]|[#5]|[4, 'A1']|[#1]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 229fc-22a00 StackAdj> Δ+10 {[«4»]}
<POP 22a00-22a01 StackAdj> Δ+4 {}
<Blob 0x22a01 [4] 0x23f5e> Δ-4 {[«4»]}
<Const 0x22a02 0x5.2> Δ-2 {[«4»]|[#5]}
<MI 22a04 LEA.L (A6-0x4),A1> {[«4»]|[#5]}
<MI 22a08 MOVE.L A1,-(A7)> Δ-4 {[«4»]|[#5]|[4, 'A1']}
<Const 0x22a0a 0x1.2> Δ-2 {[«4»]|[#5]|[4, 'A1']|[#1]}
<Const 0x22a0c 0x2.2> Δ-2 {[«4»]|[#5]|[4, 'A1']|[#1]|[#2]}
<Call 0x22a0e 0x1023a> {[«4»]|[#5]|[4, 'A1']|[#1]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22a14-22a18 StackAdj> Δ+14 {}
<MI 22a18 MOVE.W (A6-0x4),D0> {}
<MI 22a1c CMP.W (A0),D0> {}
<MI 22a1e BNE 0x229e6> {}
<POP 22a20-22a28 Epilogue> Σ0
@ 22a28
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(w)>
<LVAR -0x00a 4(w)>
<LVAR -0x00e 4(w)>
<LVAR -0x012 @ 4(w)>
<LVAR -0x014 @ 2(w)>
<LVAR -0x016 @ 2(w)>
<LVAR -0x018 @ 2(rw)>
<POP 22a28-22bb6 Body>
<POP 22a28-22a3e Prologue> Σ0 ↓
<POP 22a3e-22a56 RegCacheLoad> Σ0 ↓
<POP 22a56-22b56 Naked> Σ0 ↓
<MI 22a56 MOVE.L 0x2c896,(A6-0x12)> {}
<MI 22a5e MOVE.L 0x2c89a,(A6-0xe)> {}
<MI 22a66 MOVE.L 0x2c89e,(A6-0xa)> {}
<MI 22a6e MOVE.L 0x2c8a2,(A6-0x6)> {}
<Pointer.fp 0x22a76 <LVAR -0x012 @ 4(w)>> Δ-4 {[@@-18]}
<Blob 0x22a7a [4] 0x2c8a6> Δ-4 {[@@-18]|[«4»]}
<MI 22a80 CLR.W -(A7)> Δ-2 {[@@-18]|[«4»]|[#0]}
<Call 0x22a82 0x10204> {[@@-18]|[«4»]|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 22a88-22a8c StackAdj> Δ+10 {}
<MI 22a8c MOVE.L (A6+0x10),D4> {}
<MI 22a90 MOVE.L #0x10000,D3> {}
<Call 0x22a96 0x10294> {}
?divs_d3_d4
<MI 22a9c ANDI.L #0x0000ffff,D3> {}
<MI 22aa2 MOVE.W D3,(A6-0x16)> {}
<MI 22aa6 MOVE.L (A6+0xc),D0> {}
<MI 22aaa ASL.L #0x8,D0> {}
<POP 0x22aac LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22ab6 MOVE.W D0,(A6-0x14)> {}
<MI 22aba CLR.W -(A7)> Δ-2 {[#0]}
<MI 22abc MOVEA.L (A6+0x8),A0> {[#0]}
<MI 22abe PEA.L (A0)> Δ-4 {[#0]|[4, '^(A0)']}
<Call 0x22ac0 0x10206> {[#0]|[4, '^(A0)']}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 22ac6-22ac8 StackAdj> Δ+6 {}
<MI 22ac8 LEA.L 0x23f66,A0> {}
<MI 22ace MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22ad0 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22ad2 [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22ad4 ADDQ.L #0x8,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22ad6 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22ad8 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22ada 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22adc-22ade StackAdj> Δ+14 {}
<MI 22ade LEA.L (A6-0x16),A0> {}
<MI 22ae2 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22ae4 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22ae6 [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22ae8 ADDI.L #0x0000001c,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22aee 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22af0 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22af2 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22af4-22af6 StackAdj> Δ+14 {}
<MI 22af6 LEA.L (A6-0x14),A0> {}
<MI 22afa MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22afc 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22afe [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22b00 ADDQ.L #0x6,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22b02 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22b04 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22b06 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22b08-22b0a StackAdj> Δ+14 {}
<MI 22b0a LEA.L 0x23f56,A0> {}
<MI 22b10 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22b12 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22b14 [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22b16 ADDQ.L #0x4,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22b18 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22b1a 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22b1c 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22b1e-22b20 StackAdj> Δ+14 {}
<MI 22b20 LEA.L 0x2fd48,A0> {}
<MI 22b26 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22b28 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22b2a [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22b2c ADDQ.L #0x2,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22b2e 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22b30 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22b32 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22b34-22b36 StackAdj> Δ+14 {}
<MI 22b36 LEA.L 0x23f62,A0> {}
<MI 22b3c MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22b3e 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22b40 [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<Const 0x22b42 0x5.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]}
<Const 0x22b44 0x2.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
<Call 0x22b46 0x1023a> {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22b48-22b4a StackAdj> Δ+14 {}
<Const 0x22b4a 0x186.4> Δ-4 {[##390]}
<Call 0x22b4e 0x10224> {[##390]}
KC12_Sleep(dur: Long)
<POP 22b54-22b56 StackAdj> Δ+4 {}
<POP 22b56-22b6a Naked> Σ0 ↓ →0x22b56 ←0x22b56
<Pointer.fp 0x22b56 <LVAR -0x018 @ 2(rw)>> Δ-4 {[@@-24]}
<Call 0x22b5a 0x229c4> {[@@-24]}
<POP 22b5e-22b60 StackAdj> Δ+4 {}
<MI 22b60 MOVE.W (A6-0x18),D0> {}
<MI 22b64 ANDI.W #0x0080,D0> {}
<MI 22b68 BEQ 0x22b56> {}
<POP 22b6a-22b74 Naked> Σ0 ↓ →0x22baa
<MI 22b6a MOVE.W (A6-0x18),D0> {}
<MI 22b6e ANDI.W #0x8000,D0> {}
<MI 22b72 BEQ 0x22baa> {}
<POP 22b74-22b94 Naked> Σ0 ↓
<Call 0x22b74 0x21a70> {}
<MI 22b78 MOVEA.L (A6+0x8),A0> {}
<MI 22b7a CLR.B (A0)> {}
<MI 22b7c MOVE.W #0x4009,(A6-0x18)> {}
<MI 22b82 LEA.L (A6-0x18),A0> {}
<MI 22b86 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22b88 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22b8a [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<Const 0x22b8c 0x5.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]}
<Const 0x22b8e 0x2.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
<Call 0x22b90 0x1023a> {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22b92-22b94 StackAdj> Δ+14 {}
<POP 22b94-22ba8 Naked> Σ0 ↓ →0x22b94 ←0x22b94
<Pointer.fp 0x22b94 <LVAR -0x018 @ 2(rw)>> Δ-4 {[@@-24]}
<Call 0x22b98 0x229c4> {[@@-24]}
<POP 22b9c-22b9e StackAdj> Δ+4 {}
<MI 22b9e MOVE.W (A6-0x18),D0> {}
<MI 22ba2 ANDI.W #0x0080,D0> {}
<MI 22ba6 BEQ 0x22b94> {}
<POP 22ba8-22baa Naked> Σ0 →0x22bae
<MI 22ba8 BRA 0x22bae> {}
<POP 22baa-22bae Naked> Σ0 ↓ ←0x22b6a
<MI 22baa MOVEA.L (A6+0x8),A0> {}
<MI 22bac MOVE.B #0x01,(A0)> {}
<POP 22bae-22bb6 Epilogue> Σ0 ←0x22ba8
@ 22bb6
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 2(w)>
<LVAR -0x006 @ 2(w)>
<LVAR -0x008 @ 2(rw)>
<POP 22bb6-22cf6 Body>
<POP 22bb6-22bcc Prologue> Σ0 ↓
<POP 22bcc-22be4 RegCacheLoad> Σ0 ↓
<POP 22be4-22ca0 Naked> Σ0 ↓
<MI 22be4 MOVE.L (A6+0x10),D4> {}
<MI 22be8 MOVE.L #0x10000,D3> {}
<Call 0x22bee 0x10294> {}
?divs_d3_d4
<MI 22bf4 ANDI.L #0x0000ffff,D3> {}
<MI 22bfa MOVE.W D3,(A6-0x6)> {}
<MI 22bfe MOVE.L (A6+0xc),D0> {}
<MI 22c02 ASL.L #0x8,D0> {}
<POP 0x22c04 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22c0e MOVE.W D0,(A6-0x4)> {}
<MI 22c12 LEA.L 0x23f66,A0> {}
<MI 22c18 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22c1a 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22c1c [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22c1e ADDQ.L #0x8,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22c20 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22c22 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22c24 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22c26-22c28 StackAdj> Δ+14 {}
<MI 22c28 LEA.L (A6-0x6),A0> {}
<MI 22c2c MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22c2e 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22c30 [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22c32 ADDI.L #0x0000001c,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22c38 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22c3a 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22c3c 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22c3e-22c40 StackAdj> Δ+14 {}
<MI 22c40 LEA.L (A6-0x4),A0> {}
<MI 22c44 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22c46 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22c48 [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22c4a ADDQ.L #0x6,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22c4c 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22c4e 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22c50 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22c52-22c54 StackAdj> Δ+14 {}
<MI 22c54 LEA.L 0x23f56,A0> {}
<MI 22c5a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22c5c 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22c5e [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22c60 ADDQ.L #0x4,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22c62 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22c64 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22c66 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22c68-22c6a StackAdj> Δ+14 {}
<MI 22c6a LEA.L 0x2fd48,A0> {}
<MI 22c70 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22c72 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22c74 [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22c76 ADDQ.L #0x2,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22c78 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22c7a 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22c7c 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22c7e-22c80 StackAdj> Δ+14 {}
<MI 22c80 LEA.L 0x23f64,A0> {}
<MI 22c86 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22c88 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22c8a [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<Const 0x22c8c 0x5.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]}
<Const 0x22c8e 0x2.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
<Call 0x22c90 0x1023a> {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22c92-22c94 StackAdj> Δ+14 {}
<Const 0x22c94 0x186.4> Δ-4 {[##390]}
<Call 0x22c98 0x10224> {[##390]}
KC12_Sleep(dur: Long)
<POP 22c9e-22ca0 StackAdj> Δ+4 {}
<POP 22ca0-22cb0 Naked> Σ0 ↓ →0x22ca0 ←0x22ca0
<Pointer.fp 0x22ca0 <LVAR -0x008 @ 2(rw)>> Δ-4 {[@@-8]}
<Call 0x22ca2 0x229c4> {[@@-8]}
<POP 22ca6-22ca8 StackAdj> Δ+4 {}
<MI 22ca8 MOVE.W (A6-0x8),D0> {}
<MI 22caa ANDI.W #0x0080,D0> {}
<MI 22cae BEQ 0x22ca0> {}
<POP 22cb0-22cb8 Naked> Σ0 ↓ →0x22ce8
<MI 22cb0 MOVE.W (A6-0x8),D0> {}
<MI 22cb2 ANDI.W #0x8000,D0> {}
<MI 22cb6 BEQ 0x22ce8> {}
<POP 22cb8-22cd6 Naked> Σ0 ↓
<Call 0x22cb8 0x21a70> {}
<MI 22cbc MOVE.W #0x4009,(A6-0x8)> {}
<MI 22cc0 MOVEA.L (A6+0x8),A0> {}
<MI 22cc4 CLR.B (A0)> {}
<MI 22cc6 LEA.L (A6-0x8),A0> {}
<MI 22cc8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22cca 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22ccc [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<Const 0x22cce 0x5.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]}
<Const 0x22cd0 0x2.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
<Call 0x22cd2 0x1023a> {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22cd4-22cd6 StackAdj> Δ+14 {}
<POP 22cd6-22ce6 Naked> Σ0 ↓ →0x22cd6 ←0x22cd6
<Pointer.fp 0x22cd6 <LVAR -0x008 @ 2(rw)>> Δ-4 {[@@-8]}
<Call 0x22cd8 0x229c4> {[@@-8]}
<POP 22cdc-22cde StackAdj> Δ+4 {}
<MI 22cde MOVE.W (A6-0x8),D0> {}
<MI 22ce0 ANDI.W #0x0080,D0> {}
<MI 22ce4 BEQ 0x22cd6> {}
<POP 22ce6-22ce8 Naked> Σ0 →0x22cee
<MI 22ce6 BRA 0x22cee> {}
<POP 22ce8-22cee Naked> Σ0 ↓ ←0x22cb0
<MI 22ce8 MOVEA.L (A6+0x8),A0> {}
<MI 22cec MOVE.B #0x01,(A0)> {}
<POP 22cee-22cf6 Epilogue> Σ0 ←0x22ce6
@ 22cf6
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 2(w)>
<LVAR -0x008 @ 2(w)>
<LVAR -0x00a @ 2(w)>
<LVAR -0x00c @ 2(rw)>
<POP 22cf6-22e88 Body>
<POP 22cf6-22d0c Prologue> Σ0 ↓
<POP 22d0c-22d28 RegCacheLoad> Σ0 ↓
<POP 22d28-22d2a Naked> Σ0 ↓
<MI 22d28 MOVEQ.L #0x00,D7> {}
<POP 22d2a-22d54 Naked> Σ0 ↓ →0x22d2a ←0x22d2a
<POP 0x22d2a LimitCheck 0x0 ≤ D7 ≤ 0xa> {}
<MI 22d34 MOVE.L D7,D0> {}
<MI 22d36 ASL.L #0x1,D0> {}
<MI 22d38 LEA.L 0x23f4e,A0> {}
<MI 22d3e LEA.L (A0+D0.L),A0> {}
<MI 22d42 ADDA.L #0xbc4a,A0> {}
<MI 22d48 CLR.W (A0)> {}
<MI 22d4a ADDQ.L #0x1,D7> {}
<MI 22d4c CMPI.L #0x00000008,D7> {}
<MI 22d52 BLE 0x22d2a> {}
<POP 22d54-22e18 Naked> Σ0 ↓
<MI 22d54 MOVE.L (A6+0x14),D4> {}
<MI 22d58 MOVE.L #0x10000,D3> {}
<Call 0x22d5e 0x10294> {}
?divs_d3_d4
<MI 22d64 ANDI.L #0x0000ffff,D3> {}
<MI 22d6a MOVE.W D3,(A6-0x8)> {}
<MI 22d6e MOVE.L (A6+0x10),D0> {}
<MI 22d72 ASL.L #0x8,D0> {}
<MI 22d74 ADD.L (A6+0xc),D0> {}
<POP 0x22d78 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22d82 MOVE.W D0,(A6-0xa)> {}
<MI 22d86 MOVE.W #0xfefe,(A6-0x2)> {}
<MI 22d8c LEA.L 0x23f66,A0> {}
<MI 22d92 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22d94 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22d96 [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22d98 ADDQ.L #0x8,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22d9a 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22d9c 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22d9e 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22da0-22da2 StackAdj> Δ+14 {}
<MI 22da2 LEA.L (A6-0x8),A0> {}
<MI 22da6 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22da8 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22daa [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22dac ADDI.L #0x0000001c,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22db2 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22db4 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22db6 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22db8-22dba StackAdj> Δ+14 {}
<MI 22dba LEA.L (A6-0xa),A0> {}
<MI 22dbe MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22dc0 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22dc2 [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22dc4 ADDQ.L #0x6,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22dc6 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22dc8 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22dca 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22dcc-22dce StackAdj> Δ+14 {}
<MI 22dce LEA.L 0x23f56,A0> {}
<MI 22dd4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22dd6 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22dd8 [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22dda ADDQ.L #0x4,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22ddc 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22dde 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22de0 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22de2-22de4 StackAdj> Δ+14 {}
<MI 22de4 LEA.L (A6-0x2),A0> {}
<MI 22de8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22dea 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22dec [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22dee ADDQ.L #0x2,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22df0 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22df2 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22df4 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22df6-22df8 StackAdj> Δ+14 {}
<MI 22df8 LEA.L 0x23f62,A0> {}
<MI 22dfe MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22e00 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22e02 [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<Const 0x22e04 0x5.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]}
<Const 0x22e06 0x2.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
<Call 0x22e08 0x1023a> {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22e0a-22e0c StackAdj> Δ+14 {}
<Const 0x22e0c 0x186.4> Δ-4 {[##390]}
<Call 0x22e10 0x10224> {[##390]}
KC12_Sleep(dur: Long)
<POP 22e16-22e18 StackAdj> Δ+4 {}
<POP 22e18-22e28 Naked> Σ0 ↓ →0x22e18 ←0x22e18
<Pointer.fp 0x22e18 <LVAR -0x00c @ 2(rw)>> Δ-4 {[@@-12]}
<Call 0x22e1a 0x229c4> {[@@-12]}
<POP 22e1e-22e20 StackAdj> Δ+4 {}
<MI 22e20 MOVE.W (A6-0xc),D0> {}
<MI 22e22 ANDI.W #0x0080,D0> {}
<MI 22e26 BEQ 0x22e18> {}
<POP 22e28-22e30 Naked> Σ0 ↓ →0x22e7c
<MI 22e28 MOVE.W (A6-0xc),D0> {}
<MI 22e2a ANDI.W #0x8000,D0> {}
<MI 22e2e BEQ 0x22e7c> {}
<POP 22e30-22e48 Naked> Σ0 ↓
<Call 0x22e30 0x21a70> {}
<MI 22e34 MOVE.W #0x4009,(A6-0xc)> {}
<MI 22e38 LEA.L (A6-0xc),A0> {}
<MI 22e3a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22e3c 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22e3e [4] 0x23f5e> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<Const 0x22e40 0x5.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]}
<Const 0x22e42 0x2.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
<Call 0x22e44 0x1023a> {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22e46-22e48 StackAdj> Δ+14 {}
<POP 22e48-22e58 Naked> Σ0 ↓ →0x22e48 ←0x22e48
<Pointer.fp 0x22e48 <LVAR -0x00c @ 2(rw)>> Δ-4 {[@@-12]}
<Call 0x22e4a 0x229c4> {[@@-12]}
<POP 22e4e-22e50 StackAdj> Δ+4 {}
<MI 22e50 MOVE.W (A6-0xc),D0> {}
<MI 22e52 ANDI.W #0x0080,D0> {}
<MI 22e56 BEQ 0x22e48> {}
<POP 22e58-22e64 Naked> Σ0 ↓ →0x22e70
<MI 22e58 MOVE.W 0x2fba0,D0> {}
<MI 22e5e ANDI.W #0x4f00,D0> {}
<MI 22e62 BNE 0x22e70> {}
<POP 22e64-22e70 Naked> Σ0 ↓ →0x22e76
<MI 22e64 MOVE.W 0x2fb9e,D0> {}
<MI 22e6a ANDI.W #0xdff0,D0> {}
<MI 22e6e BEQ 0x22e76> {}
<POP 22e70-22e76 Naked> Σ0 →0x22e7a ←0x22e58
<MI 22e70 MOVEA.L (A6+0x8),A0> {}
<MI 22e72 CLR.B (A0)> {}
<MI 22e74 BRA 0x22e7a> {}
<POP 22e76-22e7a Naked> Σ0 ↓ ←0x22e64
<MI 22e76 MOVEA.L (A6+0x8),A0> {}
<MI 22e78 MOVE.B #0x01,(A0)> {}
<POP 22e7a-22e7c Naked> Σ0 →0x22e80 ←0x22e70
<MI 22e7a BRA 0x22e80> {}
<POP 22e7c-22e80 Naked> Σ0 ↓ ←0x22e28
<MI 22e7c MOVEA.L (A6+0x8),A0> {}
<MI 22e7e MOVE.B #0x01,(A0)> {}
<POP 22e80-22e88 Epilogue> Σ0 ←0x22e7a
@ 22e88
<LVAR 0x008 1(rw)>
<POP 22e88-22ece Body>
<POP 22e88-22e9e Prologue> Σ0 ↓
<POP 22e9e-22ea8 RegCacheLoad> Σ0 ↓
<POP 22ea8-22eb0 Naked> Σ0 ↓ →0x22eb4
<MI 22ea8 MOVE.W 0x2fb9e,D0> {}
<MI 22eaa ANDI.W #0x8000,D0> {}
<MI 22eae BNE 0x22eb4> {}
<POP 22eb0-22eb4 Naked> Σ0 →0x22ec6
<MI 22eb0 CLR.B (A6+0x8)> {}
<MI 22eb2 BRA 0x22ec6> {}
<POP 22eb4-22ebc Naked> Σ0 ↓ →0x22ec2 ←0x22ea8
<MI 22eb4 MOVE.W 0x2fb9e,D0> {}
<MI 22eb6 ANDI.W #0x0040,D0> {}
<MI 22eba BNE 0x22ec2> {}
<POP 22ebc-22ec2 Naked> Σ0 →0x22ec6
<MI 22ebc MOVE.B #0x01,(A6+0x8)> {}
<MI 22ec0 BRA 0x22ec6> {}
<POP 22ec2-22ec6 Naked> Σ0 ↓ ←0x22eb4
<MI 22ec2 MOVE.B #0x02,(A6+0x8)> {}
<POP 22ec6-22ece Epilogue> Σ0 ←0x22eb0 ←0x22ebc
@ 22ece
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 22ece-22f0a Body>
<POP 22ece-22ee4 Prologue> Σ0 ↓
<POP 22ee4-22ee6 RegCacheLoad> Σ0 ↓
<POP 22ee6-22eec Naked> Σ0 ↓ →0x22efe
<MI 22ee6 TST.L (A6+0x8)> {}
<MI 22eea BEQ 0x22efe> {}
<POP 22eec-22ef2 Naked> Σ0 Δ-4 ↓
<MI 22eec MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 22ef0 MOVEQ.L #0x01,D6> {[4, '(A6+0x8)']}
<POP 22ef2-22ef6 Naked> Σ-4 ↓ →0x22efc ←0x22ef6
<MI 22ef2 CMP.L (A7),D6> {[-4-]}
<MI 22ef4 BGT 0x22efc> {[-4-]}
<POP 22ef6-22efc Naked> Σ-4 ↓ →0x22ef2
<MI 22ef6 ASL.L #0x1,#0x01> {[-4-]}
<MI 22ef8 ADDQ.L #0x1,D6> {[-4-]}
<MI 22efa BVC 0x22ef2> {[-4-]}
<POP 22efc-22efe Naked> Σ-4 Δ+4 ↓ ←0x22ef2
<POP 22efc-22efe StackAdj> Δ+4 {}
<POP 22efe-22f02 Naked> Σ0 ↓ ←0x22ee6
<MI 22efe MOVE.L #0x01,(A6+0xc)> {}
<POP 22f02-22f0a Epilogue> Σ0
@ 22f0a
<LVAR 0x008 4(r)>
<POP 22f0a-22fac Body>
<POP 22f0a-22f20 Prologue> Σ0 ↓
<POP 22f20-22f54 Naked> Σ0 ↓ →0x22fa4
<MI 22f20 MOVE.L (A6+0x8),D7> {}
<MI 22f24 SUBQ.L #0x1,D7> {}
<MI 22f26 MOVE.L D7,D4> {}
<MI 22f28 MOVEQ.L #0x10,D3> {}
<Call 0x22f2a 0x10294> {}
?divs_d3_d4
<MI 22f30 MOVE.L D4,D7> {}
<MI 22f32 MOVE.L D3,D6> {}
<POP 22f34-22f36 StackAdj> Δ-4 {[-4-]}
<MI 22f36 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<Call 0x22f38 0x22ece> {[-4-]|[4, 'D6']}
<POP 22f3c-22f3e StackAdj> Δ+4 {[-4-]}
<MI 22f3e MOVE.L (A7)+,D0> Δ+4 {}
<POP 0x22f40 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22f4a MOVE.W D0,D5> {}
<MI 22f4c CMPI.L #0x000000ff,D7> {}
<MI 22f52 BGT 0x22fa4> {}
<POP 22f54-22f70 Naked> Σ0 ↓ →0x22f88
<POP 0x22f54 LimitCheck 0x0 ≤ D7 ≤ 0xff> {}
<MI 22f5e MOVE.L D7,D0> {}
<MI 22f60 ASL.L #0x1,D0> {}
<MI 22f62 LEA.L 0x23f4e,A0> {}
<MI 22f68 MOVE.W (A0+D0.L+#0x36),D1> {}
<MI 22f6c AND.W D5,D1> {}
<MI 22f6e BNE 0x22f88> {}
<POP 22f70-22f88 Naked> Σ0 →0x22fa0
<MI 22f70 CLR.L D1> {}
<MI 22f72 MOVE.W (A0+D0.L+#0x36),D1> {}
<MI 22f76 CLR.L D2> {}
<MI 22f78 MOVE.W D5,D2> {}
<MI 22f7a ADD.L D1,D2> {}
<POP 0x22f7c LimitCheck 0x0 ≤ D2 ≤ 0xffff> {}
<MI 22f86 BRA 0x22fa0> {}
<POP 22f88-22fa0 Naked> Σ0 ↓ ←0x22f54
<MI 22f88 CLR.L D1> {}
<MI 22f8a MOVE.W (A0+D0.L+#0x36),D1> {}
<MI 22f8e CLR.L D2> {}
<MI 22f90 MOVE.W D5,D2> {}
<MI 22f92 NEG.L D2> {}
<MI 22f94 ADD.L D1,D2> {}
<POP 0x22f96 LimitCheck 0x0 ≤ D2 ≤ 0xffff> {}
<POP 22fa0-22fa4 Naked> Σ0 ↓ ←0x22f70
<MI 22fa0 MOVE.W D2,(A0+D0.L+#0x36)> {}
<POP 22fa4-22fac Epilogue> Σ0 ←0x22f20
@ 22fac
<POP 22fac-2303c Body>
<POP 22fac-22fc2 Prologue> Σ0 ↓
<POP 22fc2-22fc4 RegCacheLoad> Σ0 ↓
<POP 22fc4-22fd0 Naked> Σ0 ↓ →0x23000
<POP 22fc4-22fc6 StackAdj> Δ-2 {[-2-]}
<Call 0x22fc6 0x22e88> {[-2-]}
<MI 22fca MOVE.B (A7)+,D0> Δ+2 {}
<MI 22fcc CMP.B #0x01,D0> {}
<MI 22fce BEQ 0x23000> {}
<POP 22fd0-23000 Naked> Σ0 ↓
<Blob 0x22fd0 [64] @> Δ-64 {[«64""»]}
<POP 22fe2-22fe4 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x22fe4 63> {[«64""»]|[$$Status/Error bits indicate correction not possible or necessary]}
<Call 0x22ff6 0x103e0> {[«64""»]|[$$Status/Error bits indicate correction not possible or necessary]}
WriteConsoleStringCrLf(str : String)
<POP 22ffc-23000 StackAdj> Δ+68 {}
<POP 23000-23002 Naked> Σ0 ↓ ←0x22fc4
<MI 23000 MOVEQ.L #0x00,D7> {}
<POP 23002-23018 Naked> Σ0 ↓ →0x2302a ←0x2302a
<POP 23002-23004 StackAdj> Δ-4 {[-4-]}
<MI 23004 MOVE.L D7,-(A7)> Δ-4 {[-4-]|[4, 'D7']}
<Call 0x23006 0x22ece> {[-4-]|[4, 'D7']}
<POP 2300a-2300c StackAdj> Δ+4 {[-4-]}
<MI 2300c CLR.L D0> {[-4-]}
<MI 2300e MOVE.W 0x2fba4,D0> {[-4-]}
<MI 23014 AND.L (A7)+,D0> Δ+4 {}
<MI 23016 BEQ 0x2302a> {}
<POP 23018-2302a Naked> Σ0 ↓
<MI 23018 CLR.L D0> {}
<MI 2301a MOVE.W 0x2fba2,D0> {}
<MI 23020 ADD.L D7,D0> {}
<MI 23022 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<Call 0x23024 0x22f0a> {[4, 'D0']}
<POP 23028-2302a StackAdj> Δ+4 {}
<POP 2302a-23034 Naked> Σ0 ↓ →0x23002 ←0x23002
<MI 2302a ADDQ.L #0x1,D7> {}
<MI 2302c CMPI.L #0x0000000a,D7> {}
<MI 23032 BLE 0x23002> {}
<POP 23034-2303c Epilogue> Σ0
@ 2303c
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2303c-2310c Body>
<POP 2303c-23052 Prologue> Σ0 ↓
<POP 23052-2305a RegCacheLoad> Σ0 ↓
<POP 2305a-23064 Naked> Σ0 ↓ →0x230bc
<MI 2305a MOVE.L 0x2f78a,D0> {}
<MI 2305c CMPI.L #0x000003e8,D0> {}
<MI 23062 BLE 0x230bc> {}
<POP 23064-230bc Naked> Σ0 →0x23104
<Blob 0x23064 [58] @> Δ-58 {[«58""»]}
<POP 23070-23072 StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x23072 58> {[«58""»]|[$$Skipped buffer overflow, REWRITE will procede normally but]}
<Call 0x23084 0x103e0> {[«58""»]|[$$Skipped buffer overflow, REWRITE will procede normally but]}
WriteConsoleStringCrLf(str : String)
<POP 2308a-2308b StackAdj> Δ+62 ↓ {}
<Blob 0x2308b [40] @> Δ-40 {[«40""»]}
<POP 2309c-2309e StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x2309e 39> {[«40""»]|[$$summary report information may be lost.]}
<Call 0x230b0 0x103e0> {[«40""»]|[$$summary report information may be lost.]}
WriteConsoleStringCrLf(str : String)
<POP 230b6-230ba StackAdj> Δ+44 {}
<MI 230ba BRA 0x23104> {}
<POP 230bc-23104 Naked> Σ0 ↓ ←0x2305a
<MI 230bc MOVE.L D0,D1> {}
<MI 230be SUBQ.L #0x1,D1> {}
<POP 0x230c0 LimitCheck 0x0 ≤ D1 ≤ 0x3e7> {}
<MI 230ca MOVE.L D1,D4> {}
<MI 230cc MOVEQ.L #0x0c,D3> {}
<Call 0x230ce 0x1028c> {}
?muls_d3_d4
<MI 230d4 LEA.L 0x23f4e,A0> {}
<MI 230da LEA.L (A0+D4.L),A0> {}
<MI 230de MOVEA.L A0,A1> {}
<MI 230e0 ADDA.L #0x895c,A1> {}
<MI 230e6 MOVE.L (A6+0x10),(A1)> {}
<MI 230ea MOVEA.L A0,A1> {}
<MI 230ec ADDA.L #0x8960,A1> {}
<MI 230f2 MOVE.L (A6+0xc),(A1)> {}
<MI 230f6 ADDA.L #0x8964,A0> {}
<MI 230fc MOVE.L (A6+0x8),(A0)> {}
<MI 23100 ADDQ.L #0x1,D0> {}
<MI 23102 MOVE.L D0,0x2f78a> {}
<POP 23104-2310c Epilogue> Σ0 ←0x23064
@ 2310c
<POP 2310c-23264 Body>
<POP 2310c-23122 Prologue> Σ0 ↓
<POP 23122-2313a RegCacheLoad> Σ0 ↓
<POP 2313a-23144 Naked> Σ0 ↓ →0x2316a
<MI 2313a MOVE.L 0x2f78a,D0> {}
<MI 23140 CMP.L #0x01,D0> {}
<MI 23142 BNE 0x2316a> {}
<POP 23144-2316a Naked> Σ0 →0x2325c
<Blob 0x23144 [30] @> Δ-30 {[«30""»]}
<POP 23150-23152 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x23152 30> {[«30""»]|[$$No skipped sectors are logged.]}
<Call 0x23160 0x103e0> {[«30""»]|[$$No skipped sectors are logged.]}
WriteConsoleStringCrLf(str : String)
<POP 23162-23166 StackAdj> Δ+34 {}
<MI 23166 BRA 0x2325c> {}
<POP 2316a-23170 Naked> Σ0 Δ-4 ↓ ←0x2313a
<MI 2316a SUBQ.L #0x1,D0> {}
<MI 2316c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2316e MOVEQ.L #0x01,D7> {[4, 'D0']}
<POP 23170-23176 Naked> Σ-4 ↓ →0x2325a ←0x23176
<MI 23170 CMP.L (A7),D7> {[-4-]}
<MI 23172 BGT 0x2325a> {[-4-]}
<POP 23176-2325a Naked> Σ-4 ↓ →0x23170
<Blob 0x23176 [36] @> Δ-36 {[-4-]|[«36""»]}
<POP 23182-23184 StackAdj> Δ-4 {[-4-]|[«36""»]|[-4-]}
<Lit 0x23184 36> {[-4-]|[«36""»]|[$$The following sectors were skipped :]}
<Call 0x23190 0x103e0> {[-4-]|[«36""»]|[$$The following sectors were skipped :]}
WriteConsoleStringCrLf(str : String)
<POP 23192-23194 StackAdj> Δ+36 {[-4-]|[-4-]}
<POP 23194-23195 StackAdj> Δ+4 {[-4-]}
<Blob 0x23195 [4] @> Δ-4 {[-4-]|[«4""»]}
<Blob 0x23198 [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]}
<Blob 0x2319c [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x231a0 [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 231a4 MOVE.L D7,D0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 231a6 SUBQ.L #0x1,D0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 0x231a8 LimitCheck 0x0 ≤ D0 ≤ 0x3e7> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 231b2 MOVE.L D0,D4> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 231b4 MOVEQ.L #0x0c,D3> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Call 0x231b6 0x1028c> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
?muls_d3_d4
<MI 231bc LEA.L 0x23f4e,A0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 231c2 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']}
<POP 231c4-231c6 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-4-]}
<POP 231c6-231c7 StackAdj> Δ+2 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]}
<Blob 0x231c7 [2] @> Δ-2 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]}
<MI 231ca MOVE.B 0x20b4d,(A7+0x1)> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]}
<MI 231d0 MOVE.B 0x20b4e,(A7+0x2)> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]}
<POP 231d6-231d8 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-4-]}
<POP 231d8-231d9 StackAdj> Δ+2 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]}
<Blob 0x231d9 [2] @> Δ-2 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]}
<MI 231dc MOVE.B 0x20b51,(A7+0x1)> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]}
<MI 231e2 MOVE.B 0x20b52,(A7+0x2)> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]}
<POP 231e8-231ea StackAdj> Δ-8 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-8-]}
<Lit 0x231ea 16> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]}
<POP 231f6-231f8 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]}
<MI 231f8 LEA.L (A0+D4.L),A0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]}
<MI 231fc ADDA.L #0x895c,A0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]}
<MI 23202 MOVE.L (A0),-(A7)> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[4, '(A0)']}
<Call 0x23204 0x102e4> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[4, '(A0)']}
Long2String(a : Long) : String
<Lit 0x23206> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]}
<Pointer.sp 0x23206 20> Δ-4
<Const 0x2320a 0x1.2> Δ-2
<Const 0x2320c 0x3.2> Δ-2
<Call 0x2320e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23210-23212 StackAdj> Δ+8
<POP 23210-23212 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]}
<MI 23212 MOVEA.L (A7+0x1c),A0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]}
<MI 23216 LEA.L (A0+D4.L),A0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]}
<MI 2321a ADDA.L #0x8960,A0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]}
<MI 23220 MOVE.L (A0),-(A7)> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]|[4, '(A0)']}
<Call 0x23222 0x102e4> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]|[4, '(A0)']}
Long2String(a : Long) : String
<Lit 0x23224> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]|[$$…]}
<Pointer.sp 0x23224 24> Δ-4
<Const 0x23228 0x1.2> Δ-2
<Const 0x2322a 0x3.2> Δ-2
<Call 0x2322c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2322e-23230 StackAdj> Δ+8
<POP 2322e-23230 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]|[$$…]|[-4-]}
<MI 23230 MOVEA.L (A7+0x24),A0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]|[$$…]|[-4-]}
<MI 23234 LEA.L (A0+D4.L),A0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]|[$$…]|[-4-]}
<MI 23238 ADDA.L #0x8964,A0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]|[$$…]|[-4-]}
<MI 2323e MOVE.L (A0),-(A7)> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]|[$$…]|[-4-]|[4, '(A0)']}
<Call 0x23240 0x102e4> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]|[$$…]|[-4-]|[4, '(A0)']}
Long2String(a : Long) : String
<POP 23242-23244 StackAdj> Δ+4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]|[$$…]|[-4-]}
<Call 0x23244 0x102e0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]|[$$…]|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 2324a-2324e StackAdj> Δ+24 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]}
<Call 0x2324e 0x103e0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23250-23254 StackAdj> Δ+32 {[-4-]}
<MI 23254 ADDQ.L #0x1,D7> {[-4-]}
<MI 23256 BVC 0x23170> {[-4-]}
<POP 2325a-2325c Naked> Σ-4 Δ+4 ↓ ←0x23170
<POP 2325a-2325c StackAdj> Δ+4 {}
<POP 2325c-23264 Epilogue> Σ0 ←0x23144
@ 23264
<POP 23264-2331e Body>
<POP 23264-2327a Prologue> Σ0 ↓
<POP 2327a-2328c RegCacheLoad> Σ0 ↓
<POP 2328c-23316 Naked> Σ0 ↓
<MI 2328c CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x2328e 0x210dc> {[#0]}
<POP 23292-23293 StackAdj> Δ+2 ↓ {}
<Blob 0x23293 [16] @> Δ-16 {[«16""»]}
<Blob 0x232a4 [2] @> Δ-2 {[«16""»]|[«2""»]}
<Blob 0x232a8 [2] @> Δ-2 {[«16""»]|[«2""»]|[«2""»]}
<POP 232ac-232ae StackAdj> Δ-8 {[«16""»]|[«2""»]|[«2""»]|[-8-]}
<Lit 0x232ae 15> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[$$Skipping c/t/s_]}
<MI 232ba MOVE.L (A4+0x18),(A7)> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']}
<POP 232b8-232ba StackAdj> Δ-8 {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-8-]}
<Call 0x232be 0x102e4> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x232c0 2> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[$$ _]}
<MI 232ca MOVE.L (A4+0x14),(A7)> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']}
<POP 232c8-232ca StackAdj> Δ-8 {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']|[-8-]}
<Call 0x232ce 0x102e4> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x232d0 2> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']|[-4-]|[$$ _]}
<MI 232da MOVE.L (A4+0x4),(A7)> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']|[-4-]|[4, '(A4+0x4)']}
<POP 232d8-232da StackAdj> Δ-8 {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']|[-4-]|[4, '(A4+0x4)']|[-8-]}
<Call 0x232de 0x102e4> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']|[-4-]|[4, '(A4+0x4)']|[-8-]}
Long2String(a : Long) : String
<POP 232e0-232e2 StackAdj> Δ+4 {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']|[-4-]|[4, '(A4+0x4)']|[-4-]}
<Call 0x232e2 0x102e0> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']|[-4-]|[4, '(A4+0x4)']|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 232e8-232ea StackAdj> Δ+24 {[«16""»]|[«2""»]|[«2""»]|[-4-]}
<Call 0x232ea 0x103e0> {[«16""»]|[«2""»]|[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 232f0-232f2 StackAdj> Δ+24 {}
<Call 0x232f2 0x103dc> {}
WriteConsoleCrLf(void)
<Const 0x232f8 0x4c4b.4> Δ-4 {[##19531]}
<Call 0x232fc 0x10224> {[##19531]}
KC12_Sleep(dur: Long)
<MI 23302 MOVE.L (A4+0x18),(A7)> {[4, '(A4+0x18)']}
<MI 23306 MOVE.L (A4+0x14),-(A7)> Δ-4 {[4, '(A4+0x18)']|[4, '(A4+0x14)']}
<MI 2330a MOVE.L (A4+0x4),-(A7)> Δ-4 {[4, '(A4+0x18)']|[4, '(A4+0x14)']|[4, '(A4+0x4)']}
<Call 0x2330e 0x2303c> {[4, '(A4+0x18)']|[4, '(A4+0x14)']|[4, '(A4+0x4)']}
<POP 23312-23316 StackAdj> Δ+12 {}
<POP 23316-2331e Epilogue> Σ0
@ 2331e
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 4(w)>
<LVAR -0x008 @>
<POP 2331e-234da Body>
<POP 2331e-23334 Prologue> Σ0 ↓
<POP 23334-23342 RegCacheLoad> Σ0 ↓
<POP 23342-23352 Naked> Σ0 Δ-4 ↓
<MI 23342 CLR.L D0> {}
<MI 23344 MOVE.B 0x2fd47,D0> {}
<MI 2334a SUBQ.W #0x1,D0> {}
<MI 2334c EXTW.L D0> {}
<MI 2334e MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23350 MOVEQ.L #0x00,D0> {[4, 'D0']}
<POP 23352-23358 Naked> Σ-4 ↓ →0x234d0 ←0x234c8
<MI 23352 CMP.L (A7),D0> {[-4-]}
<MI 23354 BGT 0x234d0> {[-4-]}
<POP 23358-23360 Naked> Σ-4 Δ-4 ↓
<MI 23358 MOVE.L D0,(A6-0x4)> {[-4-]}
<MI 2335c MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 2335e MOVEQ.L #0x00,D7> {[-4-]|[4, 'D0']}
<POP 23360-23380 Naked> Σ-8 ↓ →0x23388 ←0x23380
<MI 23360 ADDQ.L #0x1,D7> {[-8-]}
<MI 23362 MOVEA.L (A6+0x8),A0> {[-8-]}
<MI 23366 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']}
<MI 2336a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 2336e MOVE.L (A7+0x8),D0> {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23372 MOVE.L D0,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<MI 23374 PEA.L (A0)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']|[4, '^(A0)']}
<Call 0x23376 0x22cf6> {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']|[4, '^(A0)']}
<POP 2337a-2337c StackAdj> Δ+16 {[-8-]}
<MI 2337c TST.B (A0)> {[-8-]}
<MI 2337e BNE 0x23388> {[-8-]}
<POP 23380-23388 Naked> Σ-8 ↓ →0x23360
<MI 23380 CMPI.L #0x00000005,D7> {[-8-]}
<MI 23386 BLE 0x23360> {[-8-]}
<POP 23388-2338e Naked> Σ-8 ↓ →0x23454 ←0x23360
<MI 23388 TST.B (A0)> {[-8-]}
<MI 2338a BNE 0x23454> {[-8-]}
<POP 2338e-2339c Naked> Σ-8 ↓ →0x23454
<POP 2338e-23390 StackAdj> Δ-2 {[-10-]}
<Call 0x23390 0x22e88> {[-10-]}
<MI 23394 MOVE.B (A7)+,D0> Δ+2 {[-8-]}
<MI 23396 CMP.B #0x01,D0> {[-8-]}
<MI 23398 BNE 0x23454> {[-8-]}
<POP 2339c-233a6 Naked> Σ-8 ↓ →0x2344e
<MI 2339c TST.B 0x2c894> {[-8-]}
<MI 233a2 BNE 0x2344e> {[-8-]}
<POP 233a6-23442 Naked> Σ-8 Δ-40 ↓ →0x23448
<Blob 0x233a6 [48] @> Δ-48 {[-8-]|[«48""»]}
<Blob 0x233b8 [2] @> Δ-2 {[-8-]|[«48""»]|[«2""»]}
<Blob 0x233bc [2] @> Δ-2 {[-8-]|[«48""»]|[«2""»]|[«2""»]}
<POP 233c0-233c2 StackAdj> Δ-8 {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-8-]}
<Lit 0x233c2 47> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[$$A correctable read error was detected at c/t/s_]}
<MI 233ce MOVE.L (A6+0x10),(A7)> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']}
<POP 233cc-233ce StackAdj> Δ-8 {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-8-]}
<Call 0x233d2 0x102e4> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x233d8 2> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[$$ _]}
<MI 233e2 MOVE.L (A6+0xc),(A7)> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']}
<POP 233e0-233e2 StackAdj> Δ-8 {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-8-]}
<Call 0x233e6 0x102e4> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x233ec 2> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$ _]}
<POP 233f6-233f8 StackAdj> Δ-4 {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$ _]|[-4-]}
<MI 233f8 MOVE.L (A7+0x50),D0> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$ _]|[-4-]}
<MI 233fc MOVE.L D0,-(A7)> Δ-4 {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$ _]|[-4-]|[4, 'D0']}
<Call 0x233fe 0x102e4> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$ _]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 23404-23406 StackAdj> Δ+4 {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$ _]|[-4-]}
<Call 0x23406 0x102e0> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$ _]|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 2340c-2340e StackAdj> Δ+24 {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]}
<Call 0x2340e 0x103e0> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23414-23415 StackAdj> Δ+56 ↓ {[-8-]}
<Blob 0x23415 [40] @> Δ-40 {[-8-]|[«40""»]}
<POP 23424-23426 StackAdj> Δ-6 {[-8-]|[«40""»]|[-6-]}
<Lit 0x23426 39> {[-8-]|[«40""»]|[-2-]|[$$Do you want it corrected and re-written]}
<POP 23432-23434 StackAdj> Δ-2 {[-8-]|[«40""»]|[-2-]|[$$Do you want it corrected and re-written]|[-2-]}
<POP 23434-23435 StackAdj> Δ+2 {[-8-]|[«40""»]|[-2-]|[$$Do you want it corrected and re-written]}
<Const 0x23435 0x1.2> Δ-2 {[-8-]|[«40""»]|[-2-]|[$$Do you want it corrected and re-written]|[#1]}
<Call 0x23436 0x103f0> {[-8-]|[«40""»]|[-2-]|[$$Do you want it corrected and re-written]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 2343c-2343e StackAdj> Δ+6 {[-8-]|[«40""»]|[-2-]}
<MI 2343e TST.B (A7)+> Δ+2 {[-8-]|[«40""»]}
<MI 23440 BEQ 0x23448> {[-8-]|[«40""»]}
<POP 23442-23448 Naked> Σ-48 ↓
<Call 0x23442 0x22fac> {[-48-]}
<MI 23446 MOVE.B #0x01,(A0)> {[-48-]}
<POP 23448-2344e Naked> Σ-48 Δ+40 →0x23454 ←0x233a6
<POP 23448-2344c StackAdj> Δ+40 {[-8-]}
<MI 2344c BRA 0x23454> {[-8-]}
<POP 2344e-23454 Naked> Σ-8 ↓ ←0x2339c
<Call 0x2344e 0x22fac> {[-8-]}
<MI 23452 MOVE.B #0x01,(A0)> {[-8-]}
<POP 23454-23458 Naked> Σ-8 ↓ →0x234c0 ←0x23388 ←0x2338e ←0x23448
<MI 23454 TST.B (A0)> {[-8-]}
<MI 23456 BEQ 0x234c0> {[-8-]}
<POP 23458-23478 Naked> Σ-8 ↓ →0x234be
<MI 23458 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']}
<MI 2345c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23460 MOVE.L (A7+0x8),D0> {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23464 MOVE.L D0,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<Const 0x23466 0x8.2> Δ-2 {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']|[#8]}
<MI 2346a PEA.L (A0)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']|[#8]|[4, '^(A0)']}
<Call 0x2346c 0x228cc> {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']|[#8]|[4, '^(A0)']}
<POP 23470-23474 StackAdj> Δ+18 {[-8-]}
<MI 23474 TST.B (A0)> {[-8-]}
<MI 23476 BNE 0x234be> {[-8-]}
<POP 23478-23488 Naked> Σ-8 ↓ →0x23490
<Call 0x23478 0x21b34> {[-8-]}
<MI 2347c MOVE.W 0x2fba0,D0> {[-8-]}
<MI 23482 ANDI.W #0x4f00,D0> {[-8-]}
<MI 23486 BNE 0x23490> {[-8-]}
<POP 23488-23490 Naked> Σ-8 ↓ →0x234bc
<MI 23488 TST.W 0x2fb9e> {[-8-]}
<MI 2348e BEQ 0x234bc> {[-8-]}
<POP 23490-234bc Naked> Σ-8 →0x234be ←0x23478
<Const 0x23490 0x1.2> Δ-2 {[-8-]|[#1]}
<Call 0x23492 0x210dc> {[-8-]|[#1]}
<POP 23496-23498 StackAdj> Δ+2 {[-8-]}
<Blob 0x23498 [20] @> Δ-20 {[-8-]|[«20""»]}
<POP 234a4-234a6 StackAdj> Δ-4 {[-8-]|[«20""»]|[-4-]}
<Lit 0x234a6 20> {[-8-]|[«20""»]|[$$format sector failed]}
<Call 0x234b4 0x20e40> {[-8-]|[«20""»]|[$$format sector failed]}
<POP 234b8-234ba StackAdj> Δ+24 {[-8-]}
<MI 234ba BRA 0x234be> {[-8-]}
<POP 234bc-234be Naked> Σ-8 ↓ ←0x23488
<MI 234bc MOVE.B #0x01,(A0)> {[-8-]}
<POP 234be-234c0 Naked> Σ-8 →0x234c8 ←0x23458 ←0x23490
<MI 234be BRA 0x234c8> {[-8-]}
<POP 234c0-234c8 Naked> Σ-8 ↓ ←0x23454
<MI 234c0 LEA.L (A6-0x8),A4> {[-8-]}
<Call 0x234c4 0x23264> {[-8-]}
<POP 234c8-234d0 Naked> Σ-8 Δ+4 ↓ →0x23352 ←0x234be
<MI 234c8 MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 234ca ADDQ.L #0x1,D0> {[-4-]}
<MI 234cc BVC 0x23352> {[-4-]}
<POP 234d0-234d2 Naked> Σ-4 Δ+4 ↓ ←0x23352
<POP 234d0-234d2 StackAdj> Δ+4 {}
<POP 234d2-234da Epilogue> Σ0
@ 234da
<LVAR 0x008 1(rw)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x004 @>
<POP 234da-23526 Body>
<POP 234da-234f0 Prologue> Σ0 ↓
<POP 234f0-234f2 RegCacheLoad> Σ0 ↓
<POP 234f2-2350c Naked> Σ0 ↓ →0x2351e
<MI 234f2 CLR.B (A6+0x8)> {}
<Const 0x234f6 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x234f8 <LVAR -0x002 @ 1(r)>> Δ-4 {[#1]|[@@-2]}
<Call 0x234fc 0x10212> {[#1]|[@@-2]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 23502-23504 StackAdj> Δ+6 {}
<MI 23504 MOVE.B (A6-0x2),D0> {}
<MI 23508 CMP.B #0x01,D0> {}
<MI 2350a BNE 0x2351e> {}
<POP 2350c-2351e Naked> Σ0 ↓
<Const 0x2350c 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2350e <LVAR -0x004 @>> Δ-4 {[#1]|[@@-4]}
<Call 0x23512 0x1020e> {[#1]|[@@-4]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 23518-2351a StackAdj> Δ+6 {}
<MI 2351a MOVE.B #0x01,(A6+0x8)> {}
<POP 2351e-23526 Epilogue> Σ0 ←0x234f2
@ 23526
<POP 23526-23598 Body>
<POP 23526-2353c Prologue> Σ0 ↓
<POP 2353c-2353e Naked> Σ0 ↓
<MI 2353c MOVEQ.L #0x01,D7> {}
<POP 2353e-23586 Naked> Σ0 ↓ →0x2353e ←0x2353e
<MI 2353e MOVE.L D7,D0> {}
<MI 23540 SUBQ.L #0x1,D0> {}
<POP 0x23542 LimitCheck 0x0 ≤ D0 ≤ 0x3e7> {}
<MI 2354c MOVE.L D0,D4> {}
<MI 2354e MOVEQ.L #0x0c,D3> {}
<Call 0x23550 0x1028c> {}
?muls_d3_d4
<MI 23556 LEA.L 0x23f4e,A0> {}
<MI 2355c LEA.L (A0+D4.L),A0> {}
<MI 23560 MOVEA.L A0,A1> {}
<MI 23562 ADDA.L #0x895c,A1> {}
<MI 23568 CLR.L (A1)> {}
<MI 2356a MOVEA.L A0,A1> {}
<MI 2356c ADDA.L #0x8960,A1> {}
<MI 23572 CLR.L (A1)> {}
<MI 23574 ADDA.L #0x8964,A0> {}
<MI 2357a CLR.L (A0)> {}
<MI 2357c ADDQ.L #0x1,D7> {}
<MI 2357e CMPI.L #0x000003e8,D7> {}
<MI 23584 BLE 0x2353e> {}
<POP 23586-23590 Naked> Σ0 ↓
<MI 23586 MOVE.L #0x1,0x2f78a> {}
<POP 23590-23598 Epilogue> Σ0
@ 23598
<LVAR -0x010 @ 1(r)>
<POP 23598-23712 Body>
<POP 23598-235ae Prologue> Σ0 ↓
<POP 235ae-235c6 RegCacheLoad> Σ0 ↓
<POP 235c6-2362e Naked> Σ0 ↓
<MI 235c6 MOVEQ.L #0x00,D5> {}
<MI 235c8 MOVEQ.L #0x00,D6> {}
<Call 0x235ca 0x23526> {}
<Blob 0x235ce [46] @> Δ-46 {[«46""»]}
<POP 235e0-235e2 StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x235e2 45> {[«46""»]|[$$Strike any key to stop rewritting this drive.]}
<Call 0x235f0 0x103e0> {[«46""»]|[$$Strike any key to stop rewritting this drive.]}
WriteConsoleStringCrLf(str : String)
<POP 235f6-235f7 StackAdj> Δ+50 ↓ {}
<Blob 0x235f7 [10] @> Δ-10 {[«10""»]}
<POP 23608-2360a StackAdj> Δ-8 {[«10""»]|[-8-]}
<Lit 0x2360a 9> {[«10""»]|[-4-]|[$$Cylinder_]}
<MI 23614 MOVE.L D5,(A7)> {[«10""»]|[-4-]|[4, 'D5']}
<POP 23612-23614 StackAdj> Δ-8 {[«10""»]|[-4-]|[4, 'D5']|[-8-]}
<Call 0x23616 0x102e4> {[«10""»]|[-4-]|[4, 'D5']|[-8-]}
Long2String(a : Long) : String
<POP 2361c-2361e StackAdj> Δ+4 {[«10""»]|[-4-]|[4, 'D5']|[-4-]}
<Call 0x2361e 0x102d0> {[«10""»]|[-4-]|[4, 'D5']|[-4-]}
StringCat2(a, b : String) : String
<POP 23624-23626 StackAdj> Δ+8 {[«10""»]|[-4-]}
<Call 0x23626 0x103e0> {[«10""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2362c-2362e StackAdj> Δ+14 {}
<POP 2362e-23630 Naked> Σ0 ↓ ←0x236fe
<MI 2362e MOVEQ.L #0x00,D7> {}
<POP 23630-23642 Naked> Σ0 ↓ →0x2364a ←0x23642
<MI 23630 ADDQ.L #0x1,D7> {}
<MI 23632 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 23634 MOVE.L D6,-(A7)> Δ-4 {[4, 'D5']|[4, 'D6']}
<Const 0x23636 0x23f5c.4> Δ-4 {[4, 'D5']|[4, 'D6']|[##147292]}
<Call 0x23638 0x22a28> {[4, 'D5']|[4, 'D6']|[##147292]}
<POP 2363c-2363e StackAdj> Δ+12 {}
<MI 2363e TST.B 0x23f5c> {}
<MI 23640 BNE 0x2364a> {}
<POP 23642-2364a Naked> Σ0 ↓ →0x23630
<MI 23642 CMPI.L #0x00000005,D7> {}
<MI 23648 BLE 0x23630> {}
<POP 2364a-2364e Naked> Σ0 ↓ →0x2366c ←0x23630
<MI 2364a TST.B 0x23f5c> {}
<MI 2364c BEQ 0x2366c> {}
<POP 2364e-2365e Naked> Σ0 ↓ →0x2366a
<MI 2364e MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 23650 MOVE.L D6,-(A7)> Δ-4 {[4, 'D5']|[4, 'D6']}
<Pointer.fp 0x23652 <LVAR -0x010 @ 1(r)>> Δ-4 {[4, 'D5']|[4, 'D6']|[@@-16]}
<Call 0x23654 0x22bb6> {[4, 'D5']|[4, 'D6']|[@@-16]}
<POP 23658-2365a StackAdj> Δ+12 {}
<MI 2365a TST.B (A6-0x10)> {}
<MI 2365c BNE 0x2366a> {}
<POP 2365e-2366a Naked> Σ0 ↓
<MI 2365e MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 23660 MOVE.L D6,-(A7)> Δ-4 {[4, 'D5']|[4, 'D6']}
<Pointer.fp 0x23662 <LVAR -0x010 @ 1(r)>> Δ-4 {[4, 'D5']|[4, 'D6']|[@@-16]}
<Call 0x23664 0x2331e> {[4, 'D5']|[4, 'D6']|[@@-16]}
<POP 23668-2366a StackAdj> Δ+12 {}
<POP 2366a-2366c Naked> Σ0 →0x23678 ←0x2364e
<MI 2366a BRA 0x23678> {}
<POP 2366c-23678 Naked> Σ0 ↓ ←0x2364a
<MI 2366c MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 2366e MOVE.L D6,-(A7)> Δ-4 {[4, 'D5']|[4, 'D6']}
<Pointer.fp 0x23670 <LVAR -0x010 @ 1(r)>> Δ-4 {[4, 'D5']|[4, 'D6']|[@@-16]}
<Call 0x23672 0x2331e> {[4, 'D5']|[4, 'D6']|[@@-16]}
<POP 23676-23678 StackAdj> Δ+12 {}
<POP 23678-23686 Naked> Σ0 ↓ →0x236f2 ←0x2366a
<MI 23678 ADDQ.L #0x1,D6> {}
<MI 2367a CLR.L D0> {}
<MI 2367c MOVE.B 0x2fd46,D0> {}
<MI 23682 CMP.L D0,D6> {}
<MI 23684 BCS 0x236f2> {}
<POP 23686-236f2 Naked> Σ0 ↓
<MI 23686 MOVEQ.L #0x00,D6> {}
<MI 23688 ADDQ.L #0x1,D5> {}
<Const 0x2368a 0x1b.2> Δ-2 {[#27]}
<Call 0x2368e 0x103d0> {[#27]}
WriteConsoleChar(chr : char)
<POP 23694-23696 StackAdj> Δ-2 {[#27]|[-2-]}
<POP 23696-23697 StackAdj> Δ+2 {[#27]}
<Blob 0x23697 [2] @> Δ-2 {[#27]|[«2""»]}
<MI 2369a MOVE.B 0x20c21,(A7+0x1)> {[#27]|[«2""»]}
<MI 236a0 MOVE.B 0x20c22,(A7+0x2)> {[#27]|[«2""»]}
<POP 236a6-236a8 StackAdj> Δ-4 {[#27]|[«2""»]|[-4-]}
<Lit 0x236a8> {[#27]|[«2""»]|[$$…]}
<Pointer.sp 0x236a8 4> Δ-4
<Const 0x236ac 0x1.2> Δ-2
<Const 0x236ae 0x3.2> Δ-2
<Call 0x236b2 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 236b4-236b6 StackAdj> Δ+8
<Call 0x236b6 0x103d8> {[#27]|[«2""»]|[$$…]}
WriteConsoleString(str : String)
<POP 236bc-236bd StackAdj> Δ+8 ↓ {}
<Blob 0x236bd [10] @> Δ-10 {[«10""»]}
<POP 236cc-236ce StackAdj> Δ-8 {[«10""»]|[-8-]}
<Lit 0x236ce 9> {[«10""»]|[-4-]|[$$Cylinder_]}
<MI 236d8 MOVE.L D5,(A7)> {[«10""»]|[-4-]|[4, 'D5']}
<POP 236d6-236d8 StackAdj> Δ-8 {[«10""»]|[-4-]|[4, 'D5']|[-8-]}
<Call 0x236da 0x102e4> {[«10""»]|[-4-]|[4, 'D5']|[-8-]}
Long2String(a : Long) : String
<POP 236e0-236e2 StackAdj> Δ+4 {[«10""»]|[-4-]|[4, 'D5']|[-4-]}
<Call 0x236e2 0x102d0> {[«10""»]|[-4-]|[4, 'D5']|[-4-]}
StringCat2(a, b : String) : String
<POP 236e8-236ea StackAdj> Δ+8 {[«10""»]|[-4-]}
<Call 0x236ea 0x103e0> {[«10""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 236f0-236f2 StackAdj> Δ+14 {}
<POP 236f2-236fe Naked> Σ0 ↓ →0x2370a ←0x23678
<MI 236f2 CLR.L D0> {}
<MI 236f4 MOVE.W 0x2fd44,D0> {}
<MI 236fa CMP.L D0,D5> {}
<MI 236fc BCC 0x2370a> {}
<POP 236fe-2370a Naked> Σ0 ↓ →0x2362e
<POP 236fe-23700 StackAdj> Δ-2 {[-2-]}
<Call 0x23700 0x234da> {[-2-]}
<MI 23704 TST.B (A7)+> Δ+2 {}
<MI 23706 BEQ 0x2362e> {}
<POP 2370a-23712 Epilogue> Σ0 ←0x236f2
@ 23712
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 23712-23768 Body>
<POP 23712-23724 Prologue> Σ0 ↓
<POP 23724-23764 Naked> Σ0 ↓
<Const 0x23724 0x63.4> Δ-4 {[##99]}
<Call 0x23728 0x21fb6> {[##99]}
<POP 2372c-2372e StackAdj> Δ+4 {}
<MI 2372e MOVE.W #0x9,0x2fd44> {}
<Pointer.fp 0x23736 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x2373a 0x10304> {[@@-4]}
GetRtc() : TimeStamp
<POP 23740-23742 StackAdj> Δ+4 {}
<MI 23742 CLR.B 0x2c894> {}
<Call 0x23748 0x23598> {}
<Pointer.fp 0x2374c <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x23750 0x10304> {[@@-8]}
GetRtc() : TimeStamp
<MI 23756 MOVE.L (A6-0x4),(A7)> {[4, '(A6-0x4)']}
<MI 2375a MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<Call 0x2375e 0x21dd4> {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<POP 23762-23764 StackAdj> Δ+8 {}
<POP 23764-23768 Epilogue> Σ0
@ 23768
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 23768-237be Body>
<POP 23768-2377a Prologue> Σ0 ↓
<POP 2377a-237ba Naked> Σ0 ↓
<Const 0x2377a 0x63.4> Δ-4 {[##99]}
<Call 0x2377e 0x21fb6> {[##99]}
<POP 23782-23784 StackAdj> Δ+4 {}
<MI 23784 MOVE.W #0x63,0x2fd44> {}
<Pointer.fp 0x2378c <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x23790 0x10304> {[@@-4]}
GetRtc() : TimeStamp
<POP 23796-23798 StackAdj> Δ+4 {}
<MI 23798 CLR.B 0x2c894> {}
<Call 0x2379e 0x23598> {}
<Pointer.fp 0x237a2 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x237a6 0x10304> {[@@-8]}
GetRtc() : TimeStamp
<MI 237ac MOVE.L (A6-0x4),(A7)> {[4, '(A6-0x4)']}
<MI 237b0 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<Call 0x237b4 0x21dd4> {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<POP 237b8-237ba StackAdj> Δ+8 {}
<POP 237ba-237be Epilogue> Σ0
@ 237be
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 237be-2380c Body>
<POP 237be-237d0 Prologue> Σ0 ↓
<POP 237d0-23808 Naked> Σ0 ↓
<Const 0x237d0 0x63.4> Δ-4 {[##99]}
<Call 0x237d4 0x21fb6> {[##99]}
<POP 237d8-237da StackAdj> Δ+4 {}
<Pointer.fp 0x237da <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x237de 0x10304> {[@@-4]}
GetRtc() : TimeStamp
<POP 237e4-237e6 StackAdj> Δ+4 {}
<MI 237e6 CLR.B 0x2c894> {}
<Call 0x237ec 0x23598> {}
<Pointer.fp 0x237f0 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x237f4 0x10304> {[@@-8]}
GetRtc() : TimeStamp
<MI 237fa MOVE.L (A6-0x4),(A7)> {[4, '(A6-0x4)']}
<MI 237fe MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<Call 0x23802 0x21dd4> {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<POP 23806-23808 StackAdj> Δ+8 {}
<POP 23808-2380c Epilogue> Σ0
@ 2380c
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 2380c-239de Body>
<POP 2380c-23822 Prologue> Σ0 ↓
<POP 23822-23840 RegCacheLoad> Σ0 ↓
<POP 23840-23842 Naked> Σ0 ↓
<MI 23840 MOVEQ.L #0x00,D7> {}
<POP 23842-23880 Naked> Σ0 Δ-30 ↓ →0x238b2 ←0x238c2
<Blob 0x23842 [30] @> Δ-30 {[«30""»]}
<POP 2384e-23852 StackAdj> Δ-10 {[«30""»]|[-10-]}
<Lit 0x23852 30> {[«30""»]|[-6-]|[$$Do you wish to rewrite drive _]}
<MI 23860 MOVE.L D7,(A7)> {[«30""»]|[-6-]|[4, 'D7']}
<POP 2385a-23860 StackAdj> Δ-8 {[«30""»]|[-6-]|[4, 'D7']|[-8-]}
<Call 0x23862 0x102e4> {[«30""»]|[-6-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<POP 23868-2386a StackAdj> Δ+4 {[«30""»]|[-6-]|[4, 'D7']|[-4-]}
<Call 0x2386a 0x102d0> {[«30""»]|[-6-]|[4, 'D7']|[-4-]}
StringCat2(a, b : String) : String
<POP 23870-23872 StackAdj> Δ+6 {[«30""»]|[-6-]|[-2-]}
<POP 23872-23873 StackAdj> Δ+2 {[«30""»]|[-6-]}
<Const 0x23873 0x1.2> Δ-2 {[«30""»]|[-6-]|[#1]}
<Call 0x23874 0x103f0> {[«30""»]|[-6-]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 2387a-2387c StackAdj> Δ+6 {[«30""»]|[-2-]}
<MI 2387c TST.B (A7)+> Δ+2 {[«30""»]}
<MI 2387e BEQ 0x238b2> {[«30""»]}
<POP 23880-238b2 Naked> Σ-30 →0x238c2
<MI 23880 MOVE.L D7,-(A7)> Δ-4 {[-30-]|[4, 'D7']}
<Call 0x23882 0x21fb6> {[-30-]|[4, 'D7']}
<POP 23886-23888 StackAdj> Δ+4 {[-30-]}
<POP 0x23888 LimitCheck 0x0 ≤ D7 ≤ 0x3> {[-30-]}
<MI 2388e MOVE.L D7,D4> {[-30-]}
<MI 23890 MOVEQ.L #0x06,D3> {[-30-]}
<Call 0x23892 0x1028c> {[-30-]}
?muls_d3_d4
<MI 23894 MOVE.B #0x01,(A6+D4.L-#0x24)> {[-30-]}
<MI 23898 MOVE.B 0x2fd44,(A6+D4.L-#0x22)> {[-30-]}
<MI 2389c MOVE.B 0x2fd45,(A6+D4.L-#0x21)> {[-30-]}
<MI 238a4 MOVE.B 0x2fd46,(A6+D4.L-#0x20)> {[-30-]}
<MI 238ac MOVE.B 0x2fd47,(A6+D4.L-#0x1f)> {[-30-]}
<MI 238b0 BRA 0x238c2> {[-30-]}
<POP 238b2-238c2 Naked> Σ-30 ↓ ←0x23842
<POP 0x238b2 LimitCheck 0x0 ≤ D7 ≤ 0x3> {[-30-]}
<MI 238b8 MOVE.L D7,D4> {[-30-]}
<MI 238ba MOVEQ.L #0x06,D3> {[-30-]}
<Call 0x238bc 0x1028c> {[-30-]}
?muls_d3_d4
<MI 238be CLR.B (A6+D4.L-#0x24)> {[-30-]}
<POP 238c2-238cc Naked> Σ-30 Δ+30 ↓ →0x23842 ←0x23880
<POP 238c2-238c4 StackAdj> Δ+30 {}
<MI 238c4 ADDQ.L #0x1,D7> {}
<MI 238c6 CMP.L #0x03,D7> {}
<MI 238c8 BLE 0x23842> {}
<POP 238cc-238ce Naked> Σ0 ↓
<MI 238cc MOVEQ.L #0x00,D7> {}
<POP 238ce-238e2 Naked> Σ0 ↓ →0x239ca ←0x239ce
<POP 0x238ce LimitCheck 0x0 ≤ D7 ≤ 0x3> {}
<MI 238d4 MOVE.L D7,D4> {}
<MI 238d6 MOVEQ.L #0x06,D3> {}
<Call 0x238d8 0x1028c> {}
?muls_d3_d4
<MI 238da TST.B (A6+D4.L-#0x24)> {}
<MI 238de BEQ 0x239ca> {}
<POP 238e2-239ca Naked> Σ0 →0x239ce
<Call 0x238e2 0x103dc> {}
WriteConsoleCrLf(void)
<Call 0x238e8 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x238ee [4] @> Δ-4 {[«4""»]}
<Blob 0x238f2 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x238f6 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x238fa [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 238fe-23900 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x23900 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Rewriting drive_]}
<MI 23910 MOVE.L D7,(A7)> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D7']}
<POP 2390a-23910 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x23912 0x102e4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<POP 23918-2391a StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-4-]}
<Call 0x2391a 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-4-]}
StringCat2(a, b : String) : String
<POP 23920-23922 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x23922 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23928-2392c StackAdj> Δ+20 {}
<MI 2392c MOVE.B (A6+D4.L-#0x22),0x2fd44> {}
<MI 23930 MOVE.B (A6+D4.L-#0x21),0x2fd45> {}
<MI 23938 MOVE.B (A6+D4.L-#0x20),0x2fd46> {}
<MI 23940 MOVE.B (A6+D4.L-#0x1f),0x2fd47> {}
<POP 0x23944 LimitCheck 0x0 ≤ D7 ≤ 0xf> {}
<MI 2394e MOVE.W D7,0x2fd42> {}
<MI 23950 CLR.L D0> {}
<MI 23952 MOVE.B 0x2fd47,D0> {}
<MI 23954 MOVE.W #0x102,D1> {}
<MI 23958 MULU.W D0,D1> {}
<MI 2395a NEG.L D1> {}
<MI 2395c ANDI.L #0x0000ffff,D1> {}
<MI 23962 MOVE.W D1,0x2fd48> {}
<MI 23968 MOVE.W 0x2fd42,D1> {}
<POP 0x2396a LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 23972 MOVE.W D1,0x23f66> {}
<MI 23978 ADDQ.W #0x2,D0> {}
<MI 2397a ASR.W #0x1,D0> {}
<MI 2397c MULS.W #0x100,D0> {}
<MI 23980 MOVE.W D0,0x2c896> {}
<MI 23986 MOVE.W 0x2fd42,D0> {}
<MI 23988 ASL.W #0x8,D0> {}
<MI 2398a ADDQ.W #0x2,D0> {}
<POP 0x2398c LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 23994 MOVE.W D0,0x2c8a0> {}
<Pointer.fp 0x2399a <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x2399e 0x10304> {[@@-4]}
GetRtc() : TimeStamp
<POP 239a4-239a6 StackAdj> Δ+4 {}
<MI 239a6 MOVE.B #0x01,0x2c894> {}
<Call 0x239ac 0x23598> {}
<Pointer.fp 0x239b0 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x239b4 0x10304> {[@@-8]}
GetRtc() : TimeStamp
<MI 239ba MOVE.L (A6-0x4),(A7)> {[4, '(A6-0x4)']}
<MI 239be MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<Call 0x239c2 0x21dd4> {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<POP 239c6-239c8 StackAdj> Δ+8 {}
<MI 239c8 BRA 0x239ce> {}
<POP 239ca-239ce Naked> Σ0 ↓ ←0x238ce
<MI 239ca CLR.B (A6+D4.L-#0x24)> {}
<POP 239ce-239d6 Naked> Σ0 ↓ →0x238ce ←0x238e2
<MI 239ce ADDQ.L #0x1,D7> {}
<MI 239d0 CMP.L #0x03,D7> {}
<MI 239d2 BLE 0x238ce> {}
<POP 239d6-239de Epilogue> Σ0
@ 239de
<POP 239de-23b2c Body>
<POP 239de-239f4 Prologue> Σ0 ↓
<POP 239f4-23a0c RegCacheLoad> Σ0 ↓
<POP 23a0c-23a32 Naked> Σ0 ↓
<MI 23a0c MOVEQ.L #0x05,D6> {}
<Blob 0x23a0e [14] @> Δ-14 {[«14""»]}
<POP 23a1e-23a20 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x23a20 13> {[«14""»]|[$$Module =_]}
<Call 0x23a2c 0x103d8> {[«14""»]|[$$Module =_]}
WriteConsoleString(str : String)
<POP 23a2e-23a30 StackAdj> Δ+18 {}
<MI 23a30 MOVEQ.L #0x01,D7> {}
<POP 23a32-23a4e Naked> Σ0 ↓ →0x23ae2 ←0x23b04
<MI 23a32 MOVE.L D6,D0> {}
<MI 23a34 SUBQ.L #0x1,D0> {}
<POP 0x23a36 LimitCheck 0x0 ≤ D0 ≤ 0x22> {}
<MI 23a40 LEA.L 0x2010a,A0> {}
<MI 23a42 MOVE.B (A0+D0.L),D1> {}
<MI 23a46 CMPI.B #0x2c,D1> {}
<MI 23a4a BNE 0x23ae2> {}
<POP 23a4e-23a6c Naked> Σ0 →0x23a72 →0x23a98 →0x23abe
<Call 0x23a4e 0x103dc> {}
WriteConsoleCrLf(void)
<MI 23a54 MOVE.B D7,D0> {}
<MI 23a56 EXTB.W D0> {}
<MI 23a58 SUBQ.W #0x1,D0> {}
<POP 0x23a5a LimitCheck 0x0 ≤ D0 ≤ 0x2> {}
<MI 23a62 ADD.W D0,D0> {}
<MI 23a64 SWITCH D0.W> {}
<POP 23a72-23a98 Naked> Σ0 →0x23ae0 ←0x23a4e
<Blob 0x23a72 [14] @> Δ-14 {[«14""»]}
<POP 23a82-23a84 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x23a84 13> {[«14""»]|[$$ Version =_]}
<Call 0x23a90 0x103d8> {[«14""»]|[$$ Version =_]}
WriteConsoleString(str : String)
<POP 23a92-23a94 StackAdj> Δ+18 {}
<MI 23a94 MOVEQ.L #0x02,D7> {}
<MI 23a96 BRA 0x23ae0> {}
<POP 23a98-23abe Naked> Σ0 →0x23ae0 ←0x23a4e
<Blob 0x23a98 [14] @> Δ-14 {[«14""»]}
<POP 23aa8-23aaa StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x23aaa 13> {[«14""»]|[$$ Date =_]}
<Call 0x23ab6 0x103d8> {[«14""»]|[$$ Date =_]}
WriteConsoleString(str : String)
<POP 23ab8-23aba StackAdj> Δ+18 {}
<MI 23aba MOVEQ.L #0x03,D7> {}
<MI 23abc BRA 0x23ae0> {}
<POP 23abe-23ae0 Naked> Σ0 ↓ ←0x23a4e
<Blob 0x23abe [14] @> Δ-14 {[«14""»]}
<POP 23ace-23ad0 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x23ad0 13> {[«14""»]|[$$ Time =_]}
<Call 0x23adc 0x103d8> {[«14""»]|[$$ Time =_]}
WriteConsoleString(str : String)
<POP 23ade-23ae0 StackAdj> Δ+18 {}
<POP 23ae0-23ae2 Naked> Σ0 →0x23b04 ←0x23a72 ←0x23a98
<MI 23ae0 BRA 0x23b04> {}
<POP 23ae2-23aee Naked> Σ0 ↓ →0x23af6 ←0x23a32
<MI 23ae2 LEA.L 0x2010a,A0> {}
<MI 23ae4 MOVE.B (A0+D0.L),D1> {}
<MI 23ae8 CMPI.B #0x5c,D1> {}
<MI 23aec BNE 0x23af6> {}
<POP 23aee-23af6 Naked> Σ0 →0x23b04
<Call 0x23aee 0x103dc> {}
WriteConsoleCrLf(void)
<MI 23af4 BRA 0x23b04> {}
<POP 23af6-23b04 Naked> Σ0 ↓ ←0x23ae2
<MI 23af6 LEA.L 0x2010a,A0> {}
<MI 23af8 MOVE.B (A0+D0.L),-(A7)> Δ-2 {[2, '(A0+D0.L)']}
<Call 0x23afc 0x103d0> {[2, '(A0+D0.L)']}
WriteConsoleChar(chr : char)
<POP 23b02-23b04 StackAdj> Δ+2 {}
<POP 23b04-23b24 Naked> Σ0 ↓ →0x23a32 ←0x23ae0 ←0x23aee
<MI 23b04 ADDQ.L #0x1,D6> {}
<MI 23b06 MOVE.L D6,D0> {}
<MI 23b08 SUBQ.L #0x1,D0> {}
<MI 23b0a SUBQ.L #0x1,D0> {}
<POP 0x23b0c LimitCheck 0x0 ≤ D0 ≤ 0x22> {}
<MI 23b16 LEA.L 0x2010a,A0> {}
<MI 23b18 MOVE.B (A0+D0.L),D0> {}
<MI 23b1c CMPI.B #0x5c,D0> {}
<MI 23b20 BNE 0x23a32> {}
<POP 23b24-23b2c Epilogue> Σ0
@ 23b2c
<POP 23b2c-23bc0 Body>
<POP 23b2c-23b42 Prologue> Σ0 ↓
<POP 23b42-23b52 Naked> Σ0 ↓ →0x23b5e
<Call 0x23b42 0x239de> {}
<POP 23b46-23b48 StackAdj> Δ-2 {[-2-]}
<Call 0x23b48 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 23b4e TST.B (A7)+> Δ+2 {}
<MI 23b50 BNE 0x23b5e> {}
<POP 23b52-23b5e Naked> Σ0 ↓ →0x23b8e
<POP 23b52-23b54 StackAdj> Δ-2 {[-2-]}
<Call 0x23b54 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 23b5a TST.B (A7)+> Δ+2 {}
<MI 23b5c BEQ 0x23b8e> {}
<POP 23b5e-23b8e Naked> Σ0 ↓ ←0x23b42
<Blob 0x23b5e [48] @> Δ-48 {[«48""»]}
<POP 23b70-23b72 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x23b72 47> {[«48""»]|[$$This doesn't run on coprocessors or model 400's]}
<Call 0x23b86 0x20e40> {[«48""»]|[$$This doesn't run on coprocessors or model 400's]}
<POP 23b8a-23b8e StackAdj> Δ+52 {}
<POP 23b8e-23bb8 Naked> Σ0 ↓ ←0x23b52
<MI 23b8e LEA.L 0x2f78e,A0> {}
<MI 23b94 MOVE.L A0,0x2fb90> {}
<MI 23b9a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23b9c MOVE.L (A7)+,0x2fb94> Δ+4 {}
<MI 23ba2 LEA.L 0x23f68,A0> {}
<MI 23ba8 LEA.L 0x20d94,A1> {}
<BlockMove 24,A1,A0> {}
<Call 0x23bb4 0x23526> {}
<POP 23bb8-23bc0 Epilogue> Σ0
@ 23bc0
START
<POP 23bc0--0001 Body>
<POP 23bc0-23bca Prologue> Σ0
<POP 23bca-23be2 RegCacheLoad> Σ0 ↓
<POP 23be2-23be6 Naked> Σ0 ↓
<Call 0x23be2 0x23b2c> {}
<POP 23be6-23cf6 Naked> Σ0 →0x23d04 →0x23d06 →0x23d0c →0x23d12 →0x23d18 →0x23d1e →0x23d24 ←0x23d28
<Call 0x23be6 0x10398> {}
FSCALL_10398
<Blob 0x23bec [4] @> Δ-4 {[«4""»]}
<Blob 0x23bf0 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x23bf4 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 23bf8-23bfa StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x23bfa 12> {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
<Call 0x23c06 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
WriteConsoleStringCrLf(str : String)
<POP 23c08-23c09 StackAdj> Δ+16 ↓ {}
<Blob 0x23c09 [14] @> Δ-14 {[«14""»]}
<POP 23c18-23c1a StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x23c1a 13> {[«14""»]|[$$ 0 => Exit]}
<Call 0x23c28 0x103e0> {[«14""»]|[$$ 0 => Exit]}
WriteConsoleStringCrLf(str : String)
<POP 23c2a-23c2b StackAdj> Δ+18 ↓ {}
<Blob 0x23c2b [26] @> Δ-26 {[«26""»]}
<POP 23c3a-23c3c StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x23c3c 25> {[«26""»]|[$$ 1 => rewrite one disk]}
<Call 0x23c4a 0x103e0> {[«26""»]|[$$ 1 => rewrite one disk]}
WriteConsoleStringCrLf(str : String)
<POP 23c4c-23c4d StackAdj> Δ+30 ↓ {}
<Blob 0x23c4d [32] @> Δ-32 {[«32""»]}
<POP 23c5c-23c5e StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x23c5e 31> {[«32""»]|[$$ 2 => rewrite multiple disks]}
<Call 0x23c6c 0x103e0> {[«32""»]|[$$ 2 => rewrite multiple disks]}
WriteConsoleStringCrLf(str : String)
<POP 23c6e-23c72 StackAdj> Δ+36 {}
<Blob 0x23c72 [28] @> Δ-28 {[«28""»]}
<POP 23c7e-23c80 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x23c80 28> {[«28""»]|[$$ 3 => show_skipped buffer]}
<Call 0x23c8e 0x103e0> {[«28""»]|[$$ 3 => show_skipped buffer]}
WriteConsoleStringCrLf(str : String)
<POP 23c90-23c94 StackAdj> Δ+32 {}
<MI 23c94 MOVE.L #0x3,0x2fd4c> {}
<Blob 0x23c9e [16] @> Δ-16 {[«16""»]}
<POP 23cb0-23cb2 StackAdj> Δ-8 {[«16""»]|[-8-]}
<Lit 0x23cb2 15> {[«16""»]|[-4-]|[$$Enter option :_]}
<Const 0x23cc0 0x0.4> Δ-4 {[«16""»]|[-4-]|[$$Enter option :_]|[##0]}
<Blob 0x23cc4 [4] 0x2fd4c> Δ-4 {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[«4»]}
<Call 0x23cca 0x103ec> {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[«4»]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 23cd0-23cd2 StackAdj> Δ+12 {[«16""»]|[-4-]}
<MI 23cd2 MOVE.B (A7+0x3),D0> {[«16""»]|[-4-]}
<MI 23cd6 EXTB.W D0> {[«16""»]|[-4-]}
<POP 0x23cd8 LimitCheck 0x0 ≤ D0 ≤ 0x6> {[«16""»]|[-4-]}
<POP 23cda-23cde StackAdj> Δ+20 {}
<MI 23cde MOVE.B D0,0x2fd4a> {}
<MI 23ce0 CMP.B #0x06,D0> {}
<MI 23ce2 MOVE.B 0x2fd4a,D0> {}
<MI 23ce4 EXTB.W D0> {}
<POP 0x23ce6 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 23cec ADD.W D0,D0> {}
<MI 23cee SWITCH D0.W> {}
<POP 23d04-23d06 Naked> Σ0 →0x23d28 ←0x23be6
<MI 23d04 BRA 0x23d28> {}
<POP 23d06-23d0c Naked> Σ0 →0x23d28 ←0x23be6
<Call 0x23d06 0x237be> {}
<MI 23d0a BRA 0x23d28> {}
<POP 23d0c-23d12 Naked> Σ0 →0x23d28 ←0x23be6
<Call 0x23d0c 0x2380c> {}
<MI 23d10 BRA 0x23d28> {}
<POP 23d12-23d18 Naked> Σ0 →0x23d28 ←0x23be6
<Call 0x23d12 0x2310c> {}
<MI 23d16 BRA 0x23d28> {}
<POP 23d18-23d1e Naked> Σ0 →0x23d28 ←0x23be6
<Call 0x23d18 0x23712> {}
<MI 23d1c BRA 0x23d28> {}
<POP 23d1e-23d24 Naked> Σ0 →0x23d28 ←0x23be6
<Call 0x23d1e 0x23768> {}
<MI 23d22 BRA 0x23d28> {}
<POP 23d24-23d28 Naked> Σ0 ↓ ←0x23be6
<Call 0x23d24 0x20df0> {}
<POP 23d28-23d2e Naked> Σ0 ↓ →0x23be6 ←0x23d04 ←0x23d06 ←0x23d0c ←0x23d12 ←0x23d18 ←0x23d1e
<MI 23d28 TST.B 0x2fd4a> {}
<MI 23d2a BNE 0x23be6> {}
<POP 23d2e-23d42 Naked> Σ0 ↓
<Call 0x23d2e 0x10398> {}
FSCALL_10398
<MI 23d34 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x23d36 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x23d3a 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 23d40-23d42 StackAdj> Δ+6 {}
<POP 23d42-23d48 Naked> Σ0
<Call 0x23d42 0x10284> {}
?exit
@ 23d56
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 23d56-23dbe Body>
<POP 23d56-23d6c Prologue> Σ0 ↓
<POP 23d6c-23db6 Naked> Σ0 ↓
<Blob 0x23d6c [14] @> Δ-14 {[«14""»]}
<Const 0x23d78 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 23d7c-23d7e StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x23d7e 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 23d90-23d92 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 23d92 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 23d96 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 23d98 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 23d9a MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x23d9c 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 23da2-23da4 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x23da4 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 23daa-23dac StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x23dac 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 23db2-23db6 StackAdj> Δ+20 {}
<POP 23db6-23dbe Epilogue> Σ0
@ 23e12
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 23e12-23f4e Body>
<POP 23e12-23e28 Prologue> Σ0 ↓
<POP 23e28-23e3e RegCacheLoad> Σ0 ↓
<POP 23e3e-23e9e Naked> Σ0 ↓ →0x23ee6
<Call 0x23e3e 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x23e44 [18] @> Δ-18 {[«18""»]}
<POP 23e50-23e52 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x23e52 18> {[«18""»]|[$$Experiment error :]}
<Call 0x23e5e 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 23e60-23e61 StackAdj> Δ+22 ↓ {}
<Blob 0x23e61 [14] @> Δ-14 {[«14""»]}
<POP 23e70-23e72 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x23e72 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 23e7c-23e7e StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 23e7e MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x23e82 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 23e88-23e8a StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x23e8a 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 23e90-23e92 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x23e92 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23e94-23e96 StackAdj> Δ+18 {}
<MI 23e96 MOVEA.L (A6+0xa),A0> {}
<MI 23e9a CMPA.W #0x01,A0> {}
<MI 23e9c BEQ 0x23ee6> {}
<POP 23e9e-23ee6 Naked> Σ0 ↓
<Blob 0x23e9e [14] @> Δ-14 {[«14""»]}
<Blob 0x23eae [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 23ebe-23ec0 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x23ec0 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 23eca-23ecc StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x23ecc> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x23ecc 12> Δ-4
<Const 0x23ed0 0x1.2> Δ-2
<Const 0x23ed2 0x1e.2> Δ-2
<Call 0x23ed4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23ed6-23ed8 StackAdj> Δ+8
<Call 0x23ed8 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 23ede-23ee0 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x23ee0 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23ee2-23ee6 StackAdj> Δ+48 {}
<POP 23ee6-23f46 Naked> Σ0 ↓ ←0x23e3e
<Blob 0x23ee6 [14] @> Δ-14 {[«14""»]}
<POP 23ef6-23ef8 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x23ef8 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 23f02-23f04 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 23f04 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x23f08 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 23f0e-23f10 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x23f10 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 23f16-23f18 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x23f18 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23f1a-23f1b StackAdj> Δ+18 ↓ {}
<Blob 0x23f1b [24] @> Δ-24 {[«24""»]}
<Const 0x23f2a 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 23f2e-23f30 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x23f30 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x23f3e 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 23f44-23f46 StackAdj> Δ+30 {}
<POP 23f46-23f4e Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.768fb36b557d7012 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 3b c0 | ; | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 fd 66 | f | .PTR 0x2fd66 00020010 code.end: 00020010 00 02 3f 4e | ?N | .PTR 0x23f4e 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 3d 56 | =V | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 3e 12 | > | .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 52 45 |@(#)RE | .XXX[0x6] 00020110 57 52 49 54 45 2c 31 2e |WRITE,1.| .XXX[0x58] 00020118 30 31 2c 39 32 2f 30 32 |01,92/02| 00020120 2f 30 36 2c 30 39 3a 32 |/06,09:2| 00020128 35 3a 33 31 5c 20 54 68 |5:31\ Th| 00020130 65 20 74 72 61 63 65 20 |e trace | 00020138 62 75 66 66 65 72 20 69 |buffer i| 00020140 73 20 65 6d 70 74 79 2e |s empty.| 00020148 54 72 61 63 65 5f 42 75 |Trace_Bu| 00020150 66 66 65 72 20 5b 6f 6c |ffer [ol| 00020158 64 65 73 74 20 2e 2e 20 |dest .. | 00020160 63 75 72 72 65 6e 74 5d |current]| 00020168 20 3a | : | .XXX[0x2] 0002016a 54 72 61 63 65 20 66 61 |Trace fa| .TXT 'Trace facility not bound into this version. ' 00020196 20 20 20 20 | | .TXT ' ' 0002019a 20 20 20 5f | _ | .TXT ' _' 0002019e 45 6e 74 65 72 20 73 6c |Enter sl| .TXT 'Enter slot to display, [ 7:IOC .. 0:TERMINATOR ] :_ ' 000201d2 3d 3e |=> | .TXT '=>' 000201d4 20 4e | N | .TXT ' N' 000201d6 5f 20 |_ | .XXX[0x2] 000201d8 20 53 | S | .TXT ' S' 000201da 5f 20 |_ | .XXX[0x2] 000201dc 20 5f | _ | .TXT ' _' 000201de 20 43 | C | .XXX[0x2] 000201e0 53 31 3d 20 20 43 53 32 |S1= CS2| .XXX[0x30] 000201e8 3d 20 20 44 53 3d 20 20 |= DS= | 000201f0 20 45 52 31 3d 20 20 45 | ER1= E| 000201f8 52 32 3d 20 20 45 43 31 |R2= EC1| 00020200 3d 20 20 45 43 32 3d 20 |= EC2= | 00020208 20 44 43 3d 20 20 20 44 | DC= D| 00020210 41 3d 20 20 |A= | .XXX[0x4] 00020214 2c 5f |,_ | .TXT ',_' 00020216 53 70 65 63 69 61 6c 20 |Special | .TXT 'Special condition ' 00020228 54 72 61 6e 73 66 65 72 |Transfer| .TXT 'Transfer error' 00020236 44 61 74 61 20 6c 61 74 |Data lat| .TXT 'Data late ' 00020240 57 72 69 74 65 20 63 68 |Write ch| .TXT 'Write check error ' 00020252 55 4e 49 42 55 53 20 70 |UNIBUS p| .TXT 'UNIBUS parity error ' 00020266 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent drive' 00020278 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent memory ' 0002028c 50 72 6f 67 72 61 6d 20 |Program | .TXT 'Program error ' 0002029a 4d 69 78 65 64 20 74 72 |Mixed tr| .TXT 'Mixed transfer' 000202a8 49 6e 70 75 74 20 6e 6f |Input no| .TXT 'Input not ready ' 000202b8 42 75 73 20 61 64 64 72 |Bus addr| .TXT 'Bus address inhibit ' 000202cc 41 74 74 65 |Atte | .TXT 'Atte' 000202d0 6e 74 69 6f |ntio | .TXT 'ntio' 000202d4 6e 20 41 63 |n Ac | .TXT 'n Ac' 000202d8 74 69 76 65 |tive | .TXT 'tive' 000202dc 45 72 72 6f 72 20 |Error | .TXT 'Error ' 000202e2 50 6f 73 69 74 69 6f 6e |Position| .TXT 'Positioning in progress ' 000202fa 4d 65 64 69 75 6d 20 6f |Medium o| .TXT 'Medium on-line' 00020308 57 72 69 74 65 20 6c 6f |Write lo| .TXT 'Write lock' 00020312 4c 61 73 74 20 73 65 63 |Last sec| .TXT 'Last sector transfered' 00020328 50 72 6f 67 |Prog | .TXT 'Prog' 0002032c 72 61 6d 6d |ramm | .TXT 'ramm' 00020330 61 62 6c 65 |able | .TXT 'able' 00020334 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not present ' 00020346 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not ready ' 00020356 56 6f 6c 75 |Volu | .TXT 'Volu' 0002035a 6d 65 20 6e |me n | .TXT 'me n' 0002035e 6f 74 20 76 |ot v | .TXT 'ot v' 00020362 61 6c 69 64 |alid | .TXT 'alid' 00020366 48 65 61 64 |Head | .TXT 'Head' 0002036a 73 20 61 72 |s ar | .TXT 's ar' 0002036e 65 20 6f 66 |e of | .TXT 'e of' 00020372 66 73 65 74 |fset | .TXT 'fset' 00020376 44 61 74 61 20 63 68 65 |Data che| .TXT 'Data check' 00020380 55 6e |Un | .TXT 'Un' 00020382 73 61 |sa | .TXT 'sa' 00020384 66 65 |fe | .TXT 'fe' 00020386 4f 70 65 72 61 74 69 6f |Operatio| .TXT 'Operation Incomplete' 0002039a 44 72 69 76 65 20 74 69 |Drive ti| .TXT 'Drive timing error' 000203ac 57 72 69 74 |Writ | .TXT 'Writ' 000203b0 65 20 6c 6f |e lo | .TXT 'e lo' 000203b4 63 6b 20 65 |ck e | .TXT 'ck e' 000203b8 72 72 6f 72 |rror | .TXT 'rror' 000203bc 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid address error ' 000203d2 41 64 64 72 |Addr | .TXT 'Addr' 000203d6 65 73 73 20 |ess | .TXT 'ess ' 000203da 6f 76 65 72 |over | .TXT 'over' 000203de 66 6c 6f 77 |flow | .TXT 'flow' 000203e2 48 65 61 64 |Head | .TXT 'Head' 000203e6 65 72 20 43 |er C | .TXT 'er C' 000203ea 52 43 20 65 |RC e | .TXT 'RC e' 000203ee 72 72 6f 72 |rror | .TXT 'rror' 000203f2 48 65 61 64 65 72 20 63 |Header c| .TXT 'Header compare error' 00020406 45 43 43 20 68 61 72 64 |ECC hard| .TXT 'ECC hard error' 00020414 57 72 69 74 |Writ | .TXT 'Writ' 00020418 65 20 63 6c |e cl | .TXT 'e cl' 0002041c 6f 63 6b 20 |ock | .TXT 'ock ' 00020420 66 61 69 6c |fail | .TXT 'fail' 00020424 46 6f 72 6d |Form | .TXT 'Form' 00020428 61 74 20 65 |at e | .TXT 'at e' 0002042c 72 72 6f 72 |rror | .TXT 'rror' 00020430 52 65 67 69 73 74 65 72 |Register| .TXT 'Register modification refused ' 0002044e 49 6c 6c 65 |Ille | .TXT 'Ille' 00020452 67 61 6c 20 |gal | .TXT 'gal ' 00020456 66 75 6e 63 |func | .TXT 'func' 0002045a 74 69 6f 6e |tion | .TXT 'tion' 0002045e 42 61 64 20 73 65 63 74 |Bad sect| .TXT 'Bad sector' 00020468 53 65 65 6b 20 69 6e 63 |Seek inc| .TXT 'Seek incomplete ' 00020478 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid command ' 00020488 4c 6f 73 73 20 6f 66 20 |Loss of | .TXT 'Loss of system clock' 0002049c 4c 6f 73 73 20 6f 66 20 |Loss of | .TXT 'Loss of bit clock ' 000204ae 44 65 76 69 |Devi | .TXT 'Devi' 000204b2 63 65 20 63 |ce c | .TXT 'ce c' 000204b6 68 65 63 6b |heck | .TXT 'heck' 000204ba 53 6b 69 70 20 73 65 63 |Skip sec| .TXT 'Skip sector error ' 000204cc 64 69 73 6b 20 65 72 72 |disk err| .TXT 'disk error reading disk error status' 000204f0 45 72 72 6f 72 20 72 65 |Error re| .TXT 'Error reading disk controller EEPROM at location_ ' 00020522 45 6c 61 70 |Elap | .TXT 'Elap' 00020526 73 65 64 20 |sed | .TXT 'sed ' 0002052a 74 69 6d 65 |time | .TXT 'time' 0002052e 20 69 73 5f | is_ | .TXT ' is_' 00020532 45 6e 74 65 72 20 75 6e |Enter un| .TXT 'Enter unit number of disk to rewrite :_ ' 0002055a 43 61 6e 27 74 20 72 65 |Can't re| .TXT 'Can't retrieve labels due to disk errors. ' 00020584 44 69 73 6b 20 68 61 73 |Disk has| .TXT 'Disk has no labels. ' 00020598 44 69 73 6b 20 68 61 73 |Disk has| .TXT 'Disk has obsolete labels. ' 000205b2 54 68 61 74 20 64 69 73 |That dis| .TXT 'That disk unit does not exist.' 000205d0 44 72 69 76 65 20 6c 61 |Drive la| .TXT 'Drive label geometry disagrees with slew settings ' 00020602 54 68 65 20 72 65 77 72 |The rewr| .TXT 'The rewrite time for this drive is unknown' 0002062c 54 68 65 20 72 65 77 72 |The rewr| .TXT 'The rewrite time for a 2351 is unknown. ' 00020654 54 68 65 20 72 65 77 72 |The rewr| .TXT 'The rewrite time for a 2361 is unknown. ' 0002067c 54 68 65 20 72 65 77 72 |The rewr| .TXT 'The rewrite time for a 2333 is about 38 minutes.' 000206ac 54 68 65 20 72 65 77 72 |The rewr| .TXT 'The rewrite time for a 2344 is about 74 minutes.' 000206dc 54 68 65 20 72 65 77 72 |The rewr| .TXT 'The rewrite time for a 2372 is about 82 minutes.' 0002070c 20 20 20 20 20 2d 2d 2d | ---| .TXT ' ------- WARNING ------- WARNING ------- WARNING -------' 00020754 50 6c 65 61 73 65 20 55 |Please U| .TXT 'Please UNPROTECT the drive before continuing' 00020780 44 69 73 6b 20 63 6f 6e |Disk con| .XXX[0x30] 00020788 74 72 6f 6c 6c 65 72 20 |troller | 00020790 69 73 20 69 6e 20 73 6c |is in sl| 00020798 6f 74 20 5b 20 49 4f 43 |ot [ IOC| 000207a0 2d 37 2e 2e 30 2d 54 45 |-7..0-TE| 000207a8 52 4d 49 4e 41 54 4f 52 |RMINATOR| 000207b0 20 5d 20 3a 5f 20 | ] :_ | .XXX[0x6] 000207b6 48 44 41 20 3d 3e 5f 20 |HDA =>_ | .TXT 'HDA =>_ ' 000207be 54 68 65 20 63 6f 6e 74 |The cont| .TXT 'The controller is slewed as_' 000207da 20 63 79 6c | cyl | .TXT ' cyl' 000207de 69 6e 64 65 |inde | .TXT 'inde' 000207e2 72 73 2c 5f |rs,_ | .TXT 'rs,_' 000207e6 20 68 65 61 | hea | .TXT ' hea' 000207ea 64 73 2c 5f |ds,_ | .TXT 'ds,_' 000207ee 20 73 65 63 74 6f 72 73 | sectors| .TXT ' sectors, ' 000207f8 54 68 65 20 64 72 69 76 |The driv| .TXT 'The drive labels are_ ' 0002080e 20 63 79 6c | cyl | .TXT ' cyl' 00020812 69 6e 64 65 |inde | .TXT 'inde' 00020816 72 73 2c 5f |rs,_ | .TXT 'rs,_' 0002081a 20 68 65 61 | hea | .TXT ' hea' 0002081e 64 73 2c 5f |ds,_ | .TXT 'ds,_' 00020822 20 73 65 63 74 6f 72 73 | sectors| .TXT ' sectors, ' 0002082c 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to- ' 0002083c 20 20 20 30 20 3d 3e 20 | 0 => | .TXT ' 0 => exit REWRITE' 00020850 20 20 20 31 20 3d 3e 20 | 1 => | .TXT ' 1 => use slew settings ' 0002086a 20 20 20 32 20 3d 3e 20 | 2 => | .TXT ' 2 => use label settings' 00020884 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option [0..2] :_' 0002089a 54 68 69 73 20 64 72 69 |This dri| .TXT 'This drive has_ ' 000208aa 20 63 79 6c | cyl | .TXT ' cyl' 000208ae 69 6e 64 65 |inde | .TXT 'inde' 000208b2 72 73 2c 5f |rs,_ | .TXT 'rs,_' 000208b6 20 68 65 61 | hea | .TXT ' hea' 000208ba 64 73 2c 5f |ds,_ | .TXT 'ds,_' 000208be 20 73 65 63 74 6f 72 73 | sectors| .TXT ' sectors, ' 000208c8 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you wish to rewrite the drive' 000208e8 64 6f 5f 64 69 73 6b 5f |do_disk_| .XXX[0x28] 000208f0 6f 70 28 64 63 5f 72 65 |op(dc_re| 000208f8 61 64 29 20 64 6f 5f 64 |ad) do_d| 00020900 69 73 6b 5f 6f 70 28 64 |isk_op(d| 00020908 63 5f 66 6f 72 6d 61 74 |c_format| 00020910 5f 68 61 6c 66 29 |_half) | .XXX[0x6] 00020916 55 6e 73 75 70 70 6f 72 |Unsuppor| .TXT 'Unsupported disk op ' 0002092a 64 6f 5f 64 69 73 |do_dis | .XXX[0x6] 00020930 6b 5f 6f 70 20 72 65 74 |k_op ret| .XXX[0x120] 00020938 75 72 6e 73 20 6f 6b 20 |urns ok | 00020940 64 6f 5f 64 69 73 6b 5f |do_disk_| 00020948 6f 70 20 72 65 74 75 72 |op retur| 00020950 6e 73 20 6e 6f 74 20 6f |ns not o| 00020958 6b 20 72 65 61 64 5f 66 |k read_f| 00020960 75 6c 6c 5f 74 72 61 63 |ull_trac| 00020968 6b 20 63 2f 74 20 3d 3e |k c/t =>| 00020970 20 20 5f 20 20 2f 5f 20 | _ /_ | 00020978 72 65 61 64 5f 66 75 6c |read_ful| 00020980 6c 5f 74 72 61 63 6b 20 |l_track | 00020988 72 65 74 75 72 6e 73 20 |returns | 00020990 6f 6b 72 65 61 64 5f 66 |okread_f| 00020998 75 6c 6c 5f 74 72 61 63 |ull_trac| 000209a0 6b 20 72 65 74 75 72 6e |k return| 000209a8 73 20 6e 6f 74 20 6f 6b |s not ok| 000209b0 77 72 69 74 65 5f 66 75 |write_fu| 000209b8 6c 6c 5f 74 72 61 63 6b |ll_track| 000209c0 20 63 2f 74 20 3d 3e 20 | c/t => | 000209c8 20 5f 20 2f 5f 20 77 72 | _ /_ wr| 000209d0 69 74 65 5f 66 75 6c 6c |ite_full| 000209d8 5f 74 72 61 63 6b 20 72 |_track r| 000209e0 65 74 75 72 6e 73 20 6f |eturns o| 000209e8 6b 20 77 72 69 74 65 5f |k write_| 000209f0 66 75 6c 6c 5f 74 72 61 |full_tra| 000209f8 63 6b 20 72 65 74 75 72 |ck retur| 00020a00 6e 73 20 6e 6f 74 20 6f |ns not o| 00020a08 6b 20 72 65 61 64 5f 73 |k read_s| 00020a10 65 63 74 6f 72 20 63 2f |ector c/| 00020a18 74 2f 73 20 3d 3e 20 5f |t/s => _| 00020a20 20 5f 72 65 61 64 5f 73 | _read_s| 00020a28 65 63 74 6f 72 20 72 65 |ector re| 00020a30 74 75 72 6e 73 20 6f 6b |turns ok| 00020a38 72 65 61 64 5f 73 65 63 |read_sec| 00020a40 74 6f 72 20 72 65 74 75 |tor retu| 00020a48 72 6e 73 20 6e 6f 74 20 |rns not | 00020a50 6f 6b |ok | .XXX[0x2] 00020a52 53 74 61 74 75 73 2f 45 |Status/E| .TXT 'Status/Error bits indicate correction not possible or necessary ' 00020a92 66 69 78 69 74 20 |fixit | .XXX[0x6] 00020a98 53 6b 69 70 70 65 64 20 |Skipped | .TXT 'Skipped buffer overflow, REWRITE will procede normally but' 00020ad2 73 75 6d 6d 61 72 79 20 |summary | .TXT 'summary report information may be lost. ' 00020afa 4e 6f 20 73 6b 69 70 70 |No skipp| .TXT 'No skipped sectors are logged.' 00020b18 54 68 65 20 66 6f 6c 6c |The foll| .TXT 'The following sectors were skipped :' 00020b3c 53 6b 69 70 |Skip | .TXT 'Skip' 00020b40 70 65 64 20 |ped | .TXT 'ped ' 00020b44 63 2f 74 2f |c/t/ | .TXT 'c/t/' 00020b48 73 20 20 5f |s _ | .TXT 's _' 00020b4c 20 2f | / | .TXT ' /' 00020b4e 5f 20 |_ | .XXX[0x2] 00020b50 20 2f | / | .TXT ' /' 00020b52 5f 20 |_ | .XXX[0x2] 00020b54 41 20 63 6f 72 72 65 63 |A correc| .TXT 'A correctable read error was detected at c/t/s_ ' 00020b84 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want it corrected and re-written ' 00020bac 53 6b 69 70 70 69 6e 67 |Skipping| .TXT 'Skipping c/t/s_ ' 00020bbc 20 5f | _ | .TXT ' _' 00020bbe 20 5f | _ | .TXT ' _' 00020bc0 72 65 61 64 5f 77 72 69 |read_wri| .XXX[0x10] 00020bc8 74 65 5f 74 72 61 63 6b |te_track| 00020bd0 20 5f | _ | .TXT ' _' 00020bd2 20 5f | _ | .TXT ' _' 00020bd4 66 6f 72 6d 61 74 20 73 |format s| .TXT 'format sector failed' 00020be8 53 74 72 69 6b 65 20 61 |Strike a| .TXT 'Strike any key to stop rewritting this drive. ' 00020c16 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder_ ' 00020c20 5b 31 |[1 | .TXT '[1' 00020c22 41 20 |A | .XXX[0x2] 00020c24 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder_ ' 00020c2e 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you wish to rewrite drive _' 00020c4c 52 65 77 72 |Rewr | .TXT 'Rewr' 00020c50 69 74 69 6e |itin | .TXT 'itin' 00020c54 67 20 64 72 |g dr | .TXT 'g dr' 00020c58 69 76 65 5f |ive_ | .TXT 'ive_' 00020c5c 4d 6f 64 75 6c 65 20 20 |Module | .TXT 'Module =_ ' 00020c6a 20 20 20 56 65 72 73 69 | Versi| .TXT ' Version =_ ' 00020c78 20 20 20 44 61 74 65 20 | Date | .TXT ' Date =_ ' 00020c86 20 20 20 54 69 6d 65 20 | Time | .TXT ' Time =_ ' 00020c94 54 68 69 73 20 64 6f 65 |This doe| .TXT 'This doesn't run on coprocessors or model 400's ' 00020cc4 4f 70 74 69 |Opti | .TXT 'Opti' 00020cc8 6f 6e 73 20 |ons | .TXT 'ons ' 00020ccc 61 72 65 3a |are: | .TXT 'are:' 00020cd0 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => Exit ' 00020cde 20 20 20 20 31 20 3d 3e | 1 =>| .TXT ' 1 => rewrite one disk ' 00020cf8 20 20 20 20 32 20 3d 3e | 2 =>| .TXT ' 2 => rewrite multiple disks ' 00020d18 20 20 20 20 33 20 3d 3e | 3 =>| .TXT ' 3 => show_skipped buffer' 00020d34 20 20 20 20 | | .XXX[0x4] 00020d38 34 20 3d 3e 20 74 69 6d |4 => tim| .XXX[0x48] 00020d40 65 20 31 30 20 63 79 6c |e 10 cyl| 00020d48 69 6e 64 65 72 73 20 20 |inders | 00020d50 20 20 35 20 3d 3e 20 74 | 5 => t| 00020d58 69 6d 65 20 31 30 30 20 |ime 100 | 00020d60 63 79 6c 69 6e 64 65 72 |cylinder| 00020d68 73 20 20 20 20 20 36 20 |s 6 | 00020d70 3d 3e 20 73 68 6f 77 20 |=> show | 00020d78 74 72 61 63 65 20 62 75 |trace bu| 00020d80 66 66 65 72 |ffer | .XXX[0x4] 00020d84 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option :_ ' 00020d94 00 00 00 00 | | .XXX[0x4] 00020d98 03 4a 14 30 03 4a 14 42 | J 0 J B| .XXX[0x58] 00020da0 03 37 0a 42 02 70 1b 42 | 7 B p B| 00020da8 02 e9 1b 42 20 43 53 31 | B CS1| 00020db0 3d 20 43 53 32 3d 20 44 |= CS2= D| 00020db8 53 3d 20 20 45 52 31 3d |S= ER1=| 00020dc0 20 45 52 32 3d 20 45 43 | ER2= EC| 00020dc8 31 3d 20 45 43 32 3d 20 |1= EC2= | 00020dd0 44 43 3d 20 20 44 41 3d |DC= DA=| 00020dd8 20 00 4e 56 ff fc bf d5 | NV | 00020de0 62 06 44 fc 00 02 4e 76 |b D Nv| 00020de8 de fc 00 04 4e 5e 4e 75 | N^Nu| 00020df0 ; -------------------------------------------------------------------------------------- 00020df0 ; OMSI PASCAL Function 00020df0 ; -------------------------------------------------------------------------------------- 00020df0 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 00020df4 bf d5 | | CMPA.L (A5),A7 00020df6 62 06 |b | BHI 0x20dfe 00020df8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020dfc 4e 76 |Nv | TRAPV 00020dfe de fc 00 48 | H | ADDA.W #0x48,A7 00020e02 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020e06 9e fc 00 2c | , | SUBA.W #0x2c,A7 00020e0a 20 4f | O | MOVEA.L A7,A0 00020e0c 43 fa f3 5c |C \ | LEA.L 0x2016a,A1 00020e10 70 2a |p* | MOVEQ.L #0x2a,D0 00020e12 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e14 51 c8 ff fc |Q | DBF D0,0x20e12 00020e18 59 4f |YO | SUBQ.L #0x4,A7 00020e1a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020e1e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020e22 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7) 00020e26 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020e2c 50 4f |PO | ADDQ.L #0x8,A7 00020e2e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020e34 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020e38 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020e3c 4e 5e |N^ | UNLK A6 00020e3e 4e 75 |Nu | RTS 00020e40 ; -------------------------------------------------------------------------------------- 00020e40 ; OMSI PASCAL Function 00020e40 ; <LVAR 0x008 4(r)> 00020e40 ; -------------------------------------------------------------------------------------- 00020e40 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00020e44 bf d5 | | CMPA.L (A5),A7 00020e46 62 06 |b | BHI 0x20e4e 00020e48 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020e4c 4e 76 |Nv | TRAPV 00020e4e de fc 00 1e | | ADDA.W #0x1e,A7 00020e52 2f 3c 00 01 31 2c |/< 1, | MOVE.L #0x1312c,-(A7) 00020e58 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00020e5e 58 4f |XO | ADDQ.L #0x4,A7 00020e60 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020e66 2f 3a f3 32 |/: 2 | MOVE.L 0x2019a,-(A7) 00020e6a 2f 3a f3 2a |/: * | MOVE.L 0x20196,-(A7) 00020e6e 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020e72 51 4f |QO | SUBQ.L #0x8,A7 00020e74 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020e78 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020e7c 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00020e80 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020e86 58 4f |XO | ADDQ.L #0x4,A7 00020e88 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00020e8c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020e92 50 4f |PO | ADDQ.L #0x8,A7 00020e94 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020e9a de fc 00 0e | | ADDA.W #0xe,A7 00020e9e 4e 5e |N^ | UNLK A6 00020ea0 4e 75 |Nu | RTS 00020ea2 ; -------------------------------------------------------------------------------------- 00020ea2 ; OMSI PASCAL Function 00020ea2 ; -------------------------------------------------------------------------------------- 00020ea2 4e 56 ff f6 |NV | LINK.W A6,#0xfff6 00020ea6 bf d5 | | CMPA.L (A5),A7 00020ea8 62 06 |b | BHI 0x20eb0 00020eaa 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020eae 4e 76 |Nv | TRAPV 00020eb0 de fc 00 0a | | ADDA.W #0xa,A7 00020eb4 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020eba 42 27 |B' | CLR.B -(A7) 00020ebc 48 78 00 01 |Hx | PEA.L 0x1 00020ec0 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020ec6 5c 4f |\O | ADDQ.L #0x6,A7 00020ec8 4e 5e |N^ | UNLK A6 00020eca 4e 75 |Nu | RTS 00020ecc ; -------------------------------------------------------------------------------------- 00020ecc ; OMSI PASCAL Function 00020ecc ; <LVAR 0x008 4(r)> 00020ecc ; <LVAR -0x008 @ 4(r)> 00020ecc ; -------------------------------------------------------------------------------------- 00020ecc 4e 56 ff 74 |NV t | LINK.W A6,#0xff74 00020ed0 bf d5 | | CMPA.L (A5),A7 00020ed2 62 06 |b | BHI 0x20eda 00020ed4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020ed8 4e 76 |Nv | TRAPV 00020eda de fc 00 7c | | | ADDA.W #0x7c,A7 00020ede 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020ee2 45 f9 00 01 03 d8 |E | LEA.L WriteConsoleString(str : String),A2 00020ee8 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020eee 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00020ef2 72 01 |r | MOVEQ.L #0x01,D1 00020ef4 74 34 |t4 | MOVEQ.L #0x34,D2 00020ef6 4a ae 00 08 |J | TST.L (A6+0x8) 00020efa 6c 3a |l: | BGE 0x20f36 00020efc 9e c2 | | SUBA.W D2,A7 00020efe 20 4f | O | MOVEA.L A7,A0 00020f00 43 fa f2 9c |C | LEA.L 0x2019e,A1 00020f04 70 32 |p2 | MOVEQ.L #0x32,D0 00020f06 10 d9 | | MOVE.B (A1)+,(A0)+ 00020f08 51 c8 ff fc |Q | DBF D0,0x20f06 00020f0c 51 4f |QO | SUBQ.L #0x8,A7 00020f0e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020f12 3f 01 |? | MOVE.W D1,-(A7) 00020f14 3f 3c 00 33 |?< 3 | MOVE.W #0x33,-(A7) 00020f18 4e 93 |N | JSR (A3) 00020f1a 50 4f |PO | ADDQ.L #0x8,A7 00020f1c 48 78 ff ff |Hx | PEA.L 0xffffffff 00020f20 2f 3c 7f ff ff ff |/< | MOVE.L #0x7fffffff,-(A7) 00020f26 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00020f2c de fc 00 0c | | ADDA.W #0xc,A7 00020f30 2a 1f |* | MOVE.L (A7)+,D5 00020f32 de c2 | | ADDA.W D2,A7 00020f34 60 04 |` | BRA 0x20f3a 00020f36 2a 2e 00 08 |*. | MOVE.L (A6+0x8),D5 00020f3a 7e 00 |~ | MOVEQ.L #0x00,D7 00020f3c 7c 00 || | MOVEQ.L #0x00,D6 00020f3e 78 04 |x | MOVEQ.L #0x04,D4 00020f40 26 06 |& | MOVE.L D6,D3 00020f42 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00020f48 20 05 | | MOVE.L D5,D0 00020f4a e1 80 | | ASL.L #0x8,D0 00020f4c e5 80 | | ASL.L #0x2,D0 00020f4e 06 80 a1 00 00 00 | | ADDI.L #0xa1000000,D0 00020f54 d0 84 | | ADD.L D4,D0 00020f56 2f 00 |/ | MOVE.L D0,-(A7) 00020f58 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00020f5c 20 4c | L | MOVEA.L A4,A0 00020f5e 2f 08 |/ | MOVE.L A0,-(A7) 00020f60 3f 01 |? | MOVE.W D1,-(A7) 00020f62 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020f66 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word 00020f6c de fc 00 0e | | ADDA.W #0xe,A7 00020f70 20 14 | | MOVE.L (A4),D0 00020f72 02 80 40 00 00 00 | @ | ANDI.L #0x40000000,D0 00020f78 66 00 00 be |f | BNE 0x21038 00020f7c 59 4f |YO | SUBQ.L #0x4,A7 00020f7e 20 06 | | MOVE.L D6,D0 00020f80 e1 80 | | ASL.L #0x8,D0 00020f82 e5 80 | | ASL.L #0x2,D0 00020f84 2f 00 |/ | MOVE.L D0,-(A7) 00020f86 48 78 00 06 |Hx | PEA.L 0x6 00020f8a 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 00020f90 50 4f |PO | ADDQ.L #0x8,A7 00020f92 4e 92 |N | JSR (A2) 00020f94 54 4f |TO | ADDQ.L #0x2,A7 00020f96 3e ba f2 3a |> : | MOVE.W 0x201d2,(A7) 00020f9a 59 4f |YO | SUBQ.L #0x4,A7 00020f9c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020fa0 3f 01 |? | MOVE.W D1,-(A7) 00020fa2 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00020fa6 4e 93 |N | JSR (A3) 00020fa8 50 4f |PO | ADDQ.L #0x8,A7 00020faa 4e 92 |N | JSR (A2) 00020fac 5c 4f |\O | ADDQ.L #0x6,A7 00020fae 20 14 | | MOVE.L (A4),D0 00020fb0 02 80 80 00 00 00 | | ANDI.L #0x80000000,D0 00020fb6 66 14 |f | BNE 0x20fcc 00020fb8 59 4f |YO | SUBQ.L #0x4,A7 00020fba 1e ba f2 18 | | MOVE.B 0x201d4,(A7) 00020fbe 1f 7a f2 15 00 01 | z | MOVE.B 0x201d5,(A7+0x1) 00020fc4 1f 7a f2 10 00 02 | z | MOVE.B 0x201d6,(A7+0x2) 00020fca 60 12 |` | BRA 0x20fde 00020fcc 59 4f |YO | SUBQ.L #0x4,A7 00020fce 1e ba f2 08 | | MOVE.B 0x201d8,(A7) 00020fd2 1f 7a f2 05 00 01 | z | MOVE.B 0x201d9,(A7+0x1) 00020fd8 1f 7a f2 00 00 02 | z | MOVE.B 0x201da,(A7+0x2) 00020fde 59 4f |YO | SUBQ.L #0x4,A7 00020fe0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020fe4 3f 01 |? | MOVE.W D1,-(A7) 00020fe6 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00020fea 4e 93 |N | JSR (A3) 00020fec 50 4f |PO | ADDQ.L #0x8,A7 00020fee 4e 92 |N | JSR (A2) 00020ff0 50 4f |PO | ADDQ.L #0x8,A7 00020ff2 59 4f |YO | SUBQ.L #0x4,A7 00020ff4 2f 14 |/ | MOVE.L (A4),-(A7) 00020ff6 02 97 00 03 fc 00 | | ANDI.L #0x0003fc00,(A7) 00020ffc 48 78 00 06 |Hx | PEA.L 0x6 00021000 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 00021006 50 4f |PO | ADDQ.L #0x8,A7 00021008 4e 92 |N | JSR (A2) 0002100a 58 4f |XO | ADDQ.L #0x4,A7 0002100c 0c 87 00 00 00 03 | | CMPI.L #0x00000003,D7 00021012 66 0a |f | BNE 0x2101e 00021014 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002101a 7e 00 |~ | MOVEQ.L #0x00,D7 0002101c 60 1a |` | BRA 0x21038 0002101e 3f 3a f1 bc |?: | MOVE.W 0x201dc,-(A7) 00021022 59 4f |YO | SUBQ.L #0x4,A7 00021024 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021028 3f 01 |? | MOVE.W D1,-(A7) 0002102a 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 0002102e 4e 93 |N | JSR (A3) 00021030 50 4f |PO | ADDQ.L #0x8,A7 00021032 4e 92 |N | JSR (A2) 00021034 5c 4f |\O | ADDQ.L #0x6,A7 00021036 52 87 |R | ADDQ.L #0x1,D7 00021038 52 86 |R | ADDQ.L #0x1,D6 0002103a 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 00021040 6f 00 fe fc |o | BLE 0x20f3e 00021044 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021048 4e 5e |N^ | UNLK A6 0002104a 4e 75 |Nu | RTS 0002104c ; -------------------------------------------------------------------------------------- 0002104c ; OMSI PASCAL Function 0002104c ; <LVAR 0x008 4(r)> 0002104c ; -------------------------------------------------------------------------------------- 0002104c 4e 56 ff ce |NV | LINK.W A6,#0xffce 00021050 bf d5 | | CMPA.L (A5),A7 00021052 62 06 |b | BHI 0x2105a 00021054 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021058 4e 76 |Nv | TRAPV 0002105a de fc 00 32 | 2 | ADDA.W #0x32,A7 0002105e 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 00021062 43 ec 00 04 |C | LEA.L (A4+0x4),A1 00021066 45 ee 00 08 |E | LEA.L (A6+0x8),A2 0002106a 20 51 | Q | MOVEA.L (A1),A0 0002106c 4a 50 |JP | TST.W (A0) 0002106e 66 12 |f | BNE 0x21082 00021070 59 4f |YO | SUBQ.L #0x4,A7 00021072 2f 11 |/ | MOVE.L (A1),-(A7) 00021074 2f 12 |/ | MOVE.L (A2),-(A7) 00021076 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002107c 50 4f |PO | ADDQ.L #0x8,A7 0002107e 22 9f |" | MOVE.L (A7)+,(A1) 00021080 60 52 |`R | BRA 0x210d4 00021082 30 10 |0 | MOVE.W (A0),D0 00021084 48 c0 |H | EXTW.L D0 00021086 54 80 |T | ADDQ.L #0x2,D0 00021088 20 52 | R | MOVEA.L (A2),A0 0002108a 32 10 |2 | MOVE.W (A0),D1 0002108c 48 c1 |H | EXTW.L D1 0002108e d2 80 | | ADD.L D0,D1 00021090 0c 81 00 00 00 50 | P | CMPI.L #0x00000050,D1 00021096 6e 30 |n0 | BGT 0x210c8 00021098 3f 3a f1 7a |?: z | MOVE.W 0x20214,-(A7) 0002109c 59 4f |YO | SUBQ.L #0x4,A7 0002109e 2f 11 |/ | MOVE.L (A1),-(A7) 000210a0 59 4f |YO | SUBQ.L #0x4,A7 000210a2 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000210a6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000210aa 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000210ae 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000210b4 58 4f |XO | ADDQ.L #0x4,A7 000210b6 2e 92 |. | MOVE.L (A2),(A7) 000210b8 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000210be de fc 00 0c | | ADDA.W #0xc,A7 000210c2 22 9f |" | MOVE.L (A7)+,(A1) 000210c4 54 4f |TO | ADDQ.L #0x2,A7 000210c6 60 0c |` | BRA 0x210d4 000210c8 2f 11 |/ | MOVE.L (A1),-(A7) 000210ca 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000210d0 58 4f |XO | ADDQ.L #0x4,A7 000210d2 22 92 |" | MOVE.L (A2),(A1) 000210d4 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 000210d8 4e 5e |N^ | UNLK A6 000210da 4e 75 |Nu | RTS 000210dc ; -------------------------------------------------------------------------------------- 000210dc ; OMSI PASCAL Function 000210dc ; <LVAR 0x008 1(r)> 000210dc ; <LVAR -0x006 @ 4(r)> 000210dc ; <LVAR -0x00a @> 000210dc ; -------------------------------------------------------------------------------------- 000210dc 4e 56 ff 92 |NV | LINK.W A6,#0xff92 000210e0 bf d5 | | CMPA.L (A5),A7 000210e2 62 06 |b | BHI 0x210ea 000210e4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000210e8 4e 76 |Nv | TRAPV 000210ea de fc 00 64 | d | ADDA.W #0x64,A7 000210ee 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000210f2 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000210f8 47 ee ff f6 |G | LEA.L (A6-0xa),A3 000210fc 72 01 |r | MOVEQ.L #0x01,D1 000210fe 74 14 |t | MOVEQ.L #0x14,D2 00021100 7a 10 |z | MOVEQ.L #0x10,D5 00021102 7c 12 || | MOVEQ.L #0x12,D6 00021104 7e 00 |~ | MOVEQ.L #0x00,D7 00021106 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7 0002110c 63 02 |c | BLS 0x21110 0002110e 4e 4f |NO | TRAP #15 00021110 28 07 |( | MOVE.L D7,D4 00021112 76 05 |v | MOVEQ.L #0x05,D3 00021114 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 0002111a 41 fa fc 90 |A | LEA.L 0x20dac,A0 0002111e 5d 4f |]O | SUBQ.L #0x6,A7 00021120 22 4f |"O | MOVEA.L A7,A1 00021122 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00021126 70 04 |p | MOVEQ.L #0x04,D0 00021128 12 d8 | | MOVE.B (A0)+,(A1)+ 0002112a 51 c8 ff fc |Q | DBF D0,0x21128 0002112e 51 4f |QO | SUBQ.L #0x8,A7 00021130 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021134 3f 01 |? | MOVE.W D1,-(A7) 00021136 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 0002113a 4e 92 |N | JSR (A2) 0002113c 58 4f |XO | ADDQ.L #0x4,A7 0002113e 0c 87 00 00 00 0a | | CMPI.L #0x0000000a,D7 00021144 63 02 |c | BLS 0x21148 00021146 4e 4f |NO | TRAP #15 00021148 20 07 | | MOVE.L D7,D0 0002114a e3 80 | | ASL.L #0x1,D0 0002114c 41 f9 00 02 3f 4e |A ?N | LEA.L 0x23f4e,A0 00021152 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00021156 d1 fc 00 00 bc 4a | J | ADDA.L #0xbc4a,A0 0002115c 42 80 |B | CLR.L D0 0002115e 30 10 |0 | MOVE.W (A0),D0 00021160 2f 00 |/ | MOVE.L D0,-(A7) 00021162 48 78 00 04 |Hx | PEA.L 0x4 00021166 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 0002116c 50 4f |PO | ADDQ.L #0x8,A7 0002116e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021174 50 4f |PO | ADDQ.L #0x8,A7 00021176 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 0002117c de fc 00 0a | | ADDA.W #0xa,A7 00021180 52 87 |R | ADDQ.L #0x1,D7 00021182 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7 00021188 6f 00 ff 7c |o | | BLE 0x21106 0002118c 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021192 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00021196 b0 01 | | CMP.B D1,D0 00021198 67 08 |g | BEQ 0x211a2 0002119a 0c 00 00 02 | | CMPI.B #0x02,D0 0002119e 66 00 08 b2 |f | BNE 0x21a52 000211a2 48 6e ff fa |Hn | PEA.L (A6-0x6) 000211a6 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000211ac 58 4f |XO | ADDQ.L #0x4,A7 000211ae 30 39 00 02 fb 98 |09 | MOVE.W 0x2fb98,D0 000211b4 02 40 80 00 | @ | ANDI.W #0x8000,D0 000211b8 67 2a |g* | BEQ 0x211e4 000211ba 9e c6 | | SUBA.W D6,A7 000211bc 20 4f | O | MOVEA.L A7,A0 000211be 43 fa f0 56 |C V | LEA.L 0x20216,A1 000211c2 70 10 |p | MOVEQ.L #0x10,D0 000211c4 10 d9 | | MOVE.B (A1)+,(A0)+ 000211c6 51 c8 ff fc |Q | DBF D0,0x211c4 000211ca 59 4f |YO | SUBQ.L #0x4,A7 000211cc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000211d0 3f 01 |? | MOVE.W D1,-(A7) 000211d2 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 000211d6 4e 92 |N | JSR (A2) 000211d8 50 4f |PO | ADDQ.L #0x8,A7 000211da 28 4b |(K | MOVEA.L A3,A4 000211dc 4e ba fe 6e |N n | JSR 0x2104c 000211e0 de fc 00 16 | | ADDA.W #0x16,A7 000211e4 30 39 00 02 fb 98 |09 | MOVE.W 0x2fb98,D0 000211ea 02 40 40 00 | @@ | ANDI.W #0x4000,D0 000211ee 67 24 |g$ | BEQ 0x21214 000211f0 41 fa f0 44 |A D | LEA.L 0x20236,A0 000211f4 70 06 |p | MOVEQ.L #0x06,D0 000211f6 3f 20 |? | MOVE.W -(A0),-(A7) 000211f8 51 c8 ff fc |Q | DBF D0,0x211f6 000211fc 59 4f |YO | SUBQ.L #0x4,A7 000211fe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021202 3f 01 |? | MOVE.W D1,-(A7) 00021204 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00021208 4e 92 |N | JSR (A2) 0002120a 50 4f |PO | ADDQ.L #0x8,A7 0002120c 28 4b |(K | MOVEA.L A3,A4 0002120e 4e ba fe 3c |N < | JSR 0x2104c 00021212 de c6 | | ADDA.W D6,A7 00021214 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 0002121a 02 40 80 00 | @ | ANDI.W #0x8000,D0 0002121e 67 2c |g, | BEQ 0x2124c 00021220 9e fc 00 0a | | SUBA.W #0xa,A7 00021224 20 4f | O | MOVEA.L A7,A0 00021226 43 fa f0 0e |C | LEA.L 0x20236,A1 0002122a 70 08 |p | MOVEQ.L #0x08,D0 0002122c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002122e 51 c8 ff fc |Q | DBF D0,0x2122c 00021232 59 4f |YO | SUBQ.L #0x4,A7 00021234 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021238 3f 01 |? | MOVE.W D1,-(A7) 0002123a 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002123e 4e 92 |N | JSR (A2) 00021240 50 4f |PO | ADDQ.L #0x8,A7 00021242 28 4b |(K | MOVEA.L A3,A4 00021244 4e ba fe 06 |N | JSR 0x2104c 00021248 de fc 00 0e | | ADDA.W #0xe,A7 0002124c 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 00021252 02 40 40 00 | @@ | ANDI.W #0x4000,D0 00021256 67 2a |g* | BEQ 0x21282 00021258 9e c6 | | SUBA.W D6,A7 0002125a 20 4f | O | MOVEA.L A7,A0 0002125c 43 fa ef e2 |C | LEA.L 0x20240,A1 00021260 70 10 |p | MOVEQ.L #0x10,D0 00021262 10 d9 | | MOVE.B (A1)+,(A0)+ 00021264 51 c8 ff fc |Q | DBF D0,0x21262 00021268 59 4f |YO | SUBQ.L #0x4,A7 0002126a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002126e 3f 01 |? | MOVE.W D1,-(A7) 00021270 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00021274 4e 92 |N | JSR (A2) 00021276 50 4f |PO | ADDQ.L #0x8,A7 00021278 28 4b |(K | MOVEA.L A3,A4 0002127a 4e ba fd d0 |N | JSR 0x2104c 0002127e de fc 00 16 | | ADDA.W #0x16,A7 00021282 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 00021288 02 40 20 00 | @ | ANDI.W #0x2000,D0 0002128c 67 2a |g* | BEQ 0x212b8 0002128e 9e c2 | | SUBA.W D2,A7 00021290 20 4f | O | MOVEA.L A7,A0 00021292 43 fa ef be |C | LEA.L 0x20252,A1 00021296 70 12 |p | MOVEQ.L #0x12,D0 00021298 10 d9 | | MOVE.B (A1)+,(A0)+ 0002129a 51 c8 ff fc |Q | DBF D0,0x21298 0002129e 59 4f |YO | SUBQ.L #0x4,A7 000212a0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212a4 3f 01 |? | MOVE.W D1,-(A7) 000212a6 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000212aa 4e 92 |N | JSR (A2) 000212ac 50 4f |PO | ADDQ.L #0x8,A7 000212ae 28 4b |(K | MOVEA.L A3,A4 000212b0 4e ba fd 9a |N | JSR 0x2104c 000212b4 de fc 00 18 | | ADDA.W #0x18,A7 000212b8 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 000212be 02 40 10 00 | @ | ANDI.W #0x1000,D0 000212c2 67 24 |g$ | BEQ 0x212e8 000212c4 41 fa ef b2 |A | LEA.L 0x20278,A0 000212c8 70 08 |p | MOVEQ.L #0x08,D0 000212ca 3f 20 |? | MOVE.W -(A0),-(A7) 000212cc 51 c8 ff fc |Q | DBF D0,0x212ca 000212d0 59 4f |YO | SUBQ.L #0x4,A7 000212d2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212d6 3f 01 |? | MOVE.W D1,-(A7) 000212d8 3f 06 |? | MOVE.W D6,-(A7) 000212da 4e 92 |N | JSR (A2) 000212dc 50 4f |PO | ADDQ.L #0x8,A7 000212de 28 4b |(K | MOVEA.L A3,A4 000212e0 4e ba fd 6a |N j | JSR 0x2104c 000212e4 de fc 00 16 | | ADDA.W #0x16,A7 000212e8 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 000212ee 02 40 08 00 | @ | ANDI.W #0x0800,D0 000212f2 67 2a |g* | BEQ 0x2131e 000212f4 9e c2 | | SUBA.W D2,A7 000212f6 20 4f | O | MOVEA.L A7,A0 000212f8 43 fa ef 7e |C ~ | LEA.L 0x20278,A1 000212fc 70 12 |p | MOVEQ.L #0x12,D0 000212fe 10 d9 | | MOVE.B (A1)+,(A0)+ 00021300 51 c8 ff fc |Q | DBF D0,0x212fe 00021304 59 4f |YO | SUBQ.L #0x4,A7 00021306 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002130a 3f 01 |? | MOVE.W D1,-(A7) 0002130c 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00021310 4e 92 |N | JSR (A2) 00021312 50 4f |PO | ADDQ.L #0x8,A7 00021314 28 4b |(K | MOVEA.L A3,A4 00021316 4e ba fd 34 |N 4 | JSR 0x2104c 0002131a de fc 00 18 | | ADDA.W #0x18,A7 0002131e 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 00021324 02 40 04 00 | @ | ANDI.W #0x0400,D0 00021328 67 2a |g* | BEQ 0x21354 0002132a 9e fc 00 0e | | SUBA.W #0xe,A7 0002132e 20 4f | O | MOVEA.L A7,A0 00021330 43 fa ef 5a |C Z | LEA.L 0x2028c,A1 00021334 70 0c |p | MOVEQ.L #0x0c,D0 00021336 10 d9 | | MOVE.B (A1)+,(A0)+ 00021338 51 c8 ff fc |Q | DBF D0,0x21336 0002133c 59 4f |YO | SUBQ.L #0x4,A7 0002133e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021342 3f 01 |? | MOVE.W D1,-(A7) 00021344 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00021348 4e 92 |N | JSR (A2) 0002134a 50 4f |PO | ADDQ.L #0x8,A7 0002134c 28 4b |(K | MOVEA.L A3,A4 0002134e 4e ba fc fc |N | JSR 0x2104c 00021352 de c6 | | ADDA.W D6,A7 00021354 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 0002135a 02 40 02 00 | @ | ANDI.W #0x0200,D0 0002135e 67 24 |g$ | BEQ 0x21384 00021360 41 fa ef 46 |A F | LEA.L 0x202a8,A0 00021364 70 06 |p | MOVEQ.L #0x06,D0 00021366 3f 20 |? | MOVE.W -(A0),-(A7) 00021368 51 c8 ff fc |Q | DBF D0,0x21366 0002136c 59 4f |YO | SUBQ.L #0x4,A7 0002136e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021372 3f 01 |? | MOVE.W D1,-(A7) 00021374 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00021378 4e 92 |N | JSR (A2) 0002137a 50 4f |PO | ADDQ.L #0x8,A7 0002137c 28 4b |(K | MOVEA.L A3,A4 0002137e 4e ba fc cc |N | JSR 0x2104c 00021382 de c6 | | ADDA.W D6,A7 00021384 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 0002138a 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 0002138e 66 28 |f( | BNE 0x213b8 00021390 9e c5 | | SUBA.W D5,A7 00021392 20 4f | O | MOVEA.L A7,A0 00021394 43 fa ef 12 |C | LEA.L 0x202a8,A1 00021398 70 0e |p | MOVEQ.L #0x0e,D0 0002139a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002139c 51 c8 ff fc |Q | DBF D0,0x2139a 000213a0 59 4f |YO | SUBQ.L #0x4,A7 000213a2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000213a6 3f 01 |? | MOVE.W D1,-(A7) 000213a8 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 000213ac 4e 92 |N | JSR (A2) 000213ae 50 4f |PO | ADDQ.L #0x8,A7 000213b0 28 4b |(K | MOVEA.L A3,A4 000213b2 4e ba fc 98 |N | JSR 0x2104c 000213b6 de c2 | | ADDA.W D2,A7 000213b8 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 000213be 02 40 00 08 | @ | ANDI.W #0x0008,D0 000213c2 67 2a |g* | BEQ 0x213ee 000213c4 9e c2 | | SUBA.W D2,A7 000213c6 20 4f | O | MOVEA.L A7,A0 000213c8 43 fa ee ee |C | LEA.L 0x202b8,A1 000213cc 70 12 |p | MOVEQ.L #0x12,D0 000213ce 10 d9 | | MOVE.B (A1)+,(A0)+ 000213d0 51 c8 ff fc |Q | DBF D0,0x213ce 000213d4 59 4f |YO | SUBQ.L #0x4,A7 000213d6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000213da 3f 01 |? | MOVE.W D1,-(A7) 000213dc 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000213e0 4e 92 |N | JSR (A2) 000213e2 50 4f |PO | ADDQ.L #0x8,A7 000213e4 28 4b |(K | MOVEA.L A3,A4 000213e6 4e ba fc 64 |N d | JSR 0x2104c 000213ea de fc 00 18 | | ADDA.W #0x18,A7 000213ee 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 000213f4 02 40 80 00 | @ | ANDI.W #0x8000,D0 000213f8 67 26 |g& | BEQ 0x21420 000213fa 2f 3a ee dc |/: | MOVE.L 0x202d8,-(A7) 000213fe 2f 3a ee d4 |/: | MOVE.L 0x202d4,-(A7) 00021402 2f 3a ee cc |/: | MOVE.L 0x202d0,-(A7) 00021406 2f 3a ee c4 |/: | MOVE.L 0x202cc,-(A7) 0002140a 59 4f |YO | SUBQ.L #0x4,A7 0002140c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021410 3f 01 |? | MOVE.W D1,-(A7) 00021412 3f 05 |? | MOVE.W D5,-(A7) 00021414 4e 92 |N | JSR (A2) 00021416 50 4f |PO | ADDQ.L #0x8,A7 00021418 28 4b |(K | MOVEA.L A3,A4 0002141a 4e ba fc 30 |N 0 | JSR 0x2104c 0002141e de c2 | | ADDA.W D2,A7 00021420 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 00021426 02 40 40 00 | @@ | ANDI.W #0x4000,D0 0002142a 67 2a |g* | BEQ 0x21456 0002142c 5d 4f |]O | SUBQ.L #0x6,A7 0002142e 20 4f | O | MOVEA.L A7,A0 00021430 43 fa ee aa |C | LEA.L 0x202dc,A1 00021434 70 04 |p | MOVEQ.L #0x04,D0 00021436 10 d9 | | MOVE.B (A1)+,(A0)+ 00021438 51 c8 ff fc |Q | DBF D0,0x21436 0002143c 59 4f |YO | SUBQ.L #0x4,A7 0002143e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021442 3f 01 |? | MOVE.W D1,-(A7) 00021444 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00021448 4e 92 |N | JSR (A2) 0002144a 50 4f |PO | ADDQ.L #0x8,A7 0002144c 28 4b |(K | MOVEA.L A3,A4 0002144e 4e ba fb fc |N | JSR 0x2104c 00021452 de fc 00 0a | | ADDA.W #0xa,A7 00021456 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 0002145c 02 40 20 00 | @ | ANDI.W #0x2000,D0 00021460 67 2c |g, | BEQ 0x2148e 00021462 9e fc 00 18 | | SUBA.W #0x18,A7 00021466 20 4f | O | MOVEA.L A7,A0 00021468 43 fa ee 78 |C x | LEA.L 0x202e2,A1 0002146c 70 16 |p | MOVEQ.L #0x16,D0 0002146e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021470 51 c8 ff fc |Q | DBF D0,0x2146e 00021474 59 4f |YO | SUBQ.L #0x4,A7 00021476 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002147a 3f 01 |? | MOVE.W D1,-(A7) 0002147c 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00021480 4e 92 |N | JSR (A2) 00021482 50 4f |PO | ADDQ.L #0x8,A7 00021484 28 4b |(K | MOVEA.L A3,A4 00021486 4e ba fb c4 |N | JSR 0x2104c 0002148a de fc 00 1c | | ADDA.W #0x1c,A7 0002148e 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 00021494 02 40 10 00 | @ | ANDI.W #0x1000,D0 00021498 67 24 |g$ | BEQ 0x214be 0002149a 41 fa ee 6c |A l | LEA.L 0x20308,A0 0002149e 70 06 |p | MOVEQ.L #0x06,D0 000214a0 3f 20 |? | MOVE.W -(A0),-(A7) 000214a2 51 c8 ff fc |Q | DBF D0,0x214a0 000214a6 59 4f |YO | SUBQ.L #0x4,A7 000214a8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000214ac 3f 01 |? | MOVE.W D1,-(A7) 000214ae 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000214b2 4e 92 |N | JSR (A2) 000214b4 50 4f |PO | ADDQ.L #0x8,A7 000214b6 28 4b |(K | MOVEA.L A3,A4 000214b8 4e ba fb 92 |N | JSR 0x2104c 000214bc de c6 | | ADDA.W D6,A7 000214be 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 000214c4 02 40 08 00 | @ | ANDI.W #0x0800,D0 000214c8 67 26 |g& | BEQ 0x214f0 000214ca 41 fa ee 46 |A F | LEA.L 0x20312,A0 000214ce 70 04 |p | MOVEQ.L #0x04,D0 000214d0 3f 20 |? | MOVE.W -(A0),-(A7) 000214d2 51 c8 ff fc |Q | DBF D0,0x214d0 000214d6 59 4f |YO | SUBQ.L #0x4,A7 000214d8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000214dc 3f 01 |? | MOVE.W D1,-(A7) 000214de 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000214e2 4e 92 |N | JSR (A2) 000214e4 50 4f |PO | ADDQ.L #0x8,A7 000214e6 28 4b |(K | MOVEA.L A3,A4 000214e8 4e ba fb 62 |N b | JSR 0x2104c 000214ec de fc 00 0e | | ADDA.W #0xe,A7 000214f0 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 000214f6 02 40 04 00 | @ | ANDI.W #0x0400,D0 000214fa 67 26 |g& | BEQ 0x21522 000214fc 41 fa ee 2a |A * | LEA.L 0x20328,A0 00021500 70 0a |p | MOVEQ.L #0x0a,D0 00021502 3f 20 |? | MOVE.W -(A0),-(A7) 00021504 51 c8 ff fc |Q | DBF D0,0x21502 00021508 59 4f |YO | SUBQ.L #0x4,A7 0002150a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002150e 3f 01 |? | MOVE.W D1,-(A7) 00021510 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00021514 4e 92 |N | JSR (A2) 00021516 50 4f |PO | ADDQ.L #0x8,A7 00021518 28 4b |(K | MOVEA.L A3,A4 0002151a 4e ba fb 30 |N 0 | JSR 0x2104c 0002151e de fc 00 1a | | ADDA.W #0x1a,A7 00021522 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 00021528 02 40 02 00 | @ | ANDI.W #0x0200,D0 0002152c 67 24 |g$ | BEQ 0x21552 0002152e 2f 3a ee 00 |/: | MOVE.L 0x20330,-(A7) 00021532 2f 3a ed f8 |/: | MOVE.L 0x2032c,-(A7) 00021536 2f 3a ed f0 |/: | MOVE.L 0x20328,-(A7) 0002153a 59 4f |YO | SUBQ.L #0x4,A7 0002153c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021540 3f 01 |? | MOVE.W D1,-(A7) 00021542 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 00021546 4e 92 |N | JSR (A2) 00021548 50 4f |PO | ADDQ.L #0x8,A7 0002154a 28 4b |(K | MOVEA.L A3,A4 0002154c 4e ba fa fe |N | JSR 0x2104c 00021550 de c5 | | ADDA.W D5,A7 00021552 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 00021558 02 40 01 00 | @ | ANDI.W #0x0100,D0 0002155c 66 2a |f* | BNE 0x21588 0002155e 9e c6 | | SUBA.W D6,A7 00021560 20 4f | O | MOVEA.L A7,A0 00021562 43 fa ed d0 |C | LEA.L 0x20334,A1 00021566 70 10 |p | MOVEQ.L #0x10,D0 00021568 10 d9 | | MOVE.B (A1)+,(A0)+ 0002156a 51 c8 ff fc |Q | DBF D0,0x21568 0002156e 59 4f |YO | SUBQ.L #0x4,A7 00021570 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021574 3f 01 |? | MOVE.W D1,-(A7) 00021576 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 0002157a 4e 92 |N | JSR (A2) 0002157c 50 4f |PO | ADDQ.L #0x8,A7 0002157e 28 4b |(K | MOVEA.L A3,A4 00021580 4e ba fa ca |N | JSR 0x2104c 00021584 de fc 00 16 | | ADDA.W #0x16,A7 00021588 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 0002158e 02 40 00 80 | @ | ANDI.W #0x0080,D0 00021592 66 28 |f( | BNE 0x215bc 00021594 9e c5 | | SUBA.W D5,A7 00021596 20 4f | O | MOVEA.L A7,A0 00021598 43 fa ed ac |C | LEA.L 0x20346,A1 0002159c 70 0e |p | MOVEQ.L #0x0e,D0 0002159e 10 d9 | | MOVE.B (A1)+,(A0)+ 000215a0 51 c8 ff fc |Q | DBF D0,0x2159e 000215a4 59 4f |YO | SUBQ.L #0x4,A7 000215a6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215aa 3f 01 |? | MOVE.W D1,-(A7) 000215ac 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 000215b0 4e 92 |N | JSR (A2) 000215b2 50 4f |PO | ADDQ.L #0x8,A7 000215b4 28 4b |(K | MOVEA.L A3,A4 000215b6 4e ba fa 94 |N | JSR 0x2104c 000215ba de c2 | | ADDA.W D2,A7 000215bc 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 000215c2 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 000215c6 66 26 |f& | BNE 0x215ee 000215c8 2f 3a ed 98 |/: | MOVE.L 0x20362,-(A7) 000215cc 2f 3a ed 90 |/: | MOVE.L 0x2035e,-(A7) 000215d0 2f 3a ed 88 |/: | MOVE.L 0x2035a,-(A7) 000215d4 2f 3a ed 80 |/: | MOVE.L 0x20356,-(A7) 000215d8 59 4f |YO | SUBQ.L #0x4,A7 000215da 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215de 3f 01 |? | MOVE.W D1,-(A7) 000215e0 3f 05 |? | MOVE.W D5,-(A7) 000215e2 4e 92 |N | JSR (A2) 000215e4 50 4f |PO | ADDQ.L #0x8,A7 000215e6 28 4b |(K | MOVEA.L A3,A4 000215e8 4e ba fa 62 |N b | JSR 0x2104c 000215ec de c2 | | ADDA.W D2,A7 000215ee 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 000215f4 c0 41 | A | AND.W D1,D0 000215f6 67 26 |g& | BEQ 0x2161e 000215f8 2f 3a ed 78 |/: x | MOVE.L 0x20372,-(A7) 000215fc 2f 3a ed 70 |/: p | MOVE.L 0x2036e,-(A7) 00021600 2f 3a ed 68 |/: h | MOVE.L 0x2036a,-(A7) 00021604 2f 3a ed 60 |/: ` | MOVE.L 0x20366,-(A7) 00021608 59 4f |YO | SUBQ.L #0x4,A7 0002160a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002160e 3f 01 |? | MOVE.W D1,-(A7) 00021610 3f 05 |? | MOVE.W D5,-(A7) 00021612 4e 92 |N | JSR (A2) 00021614 50 4f |PO | ADDQ.L #0x8,A7 00021616 28 4b |(K | MOVEA.L A3,A4 00021618 4e ba fa 32 |N 2 | JSR 0x2104c 0002161c de c2 | | ADDA.W D2,A7 0002161e 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 00021624 02 40 80 00 | @ | ANDI.W #0x8000,D0 00021628 67 26 |g& | BEQ 0x21650 0002162a 41 fa ed 54 |A T | LEA.L 0x20380,A0 0002162e 70 04 |p | MOVEQ.L #0x04,D0 00021630 3f 20 |? | MOVE.W -(A0),-(A7) 00021632 51 c8 ff fc |Q | DBF D0,0x21630 00021636 59 4f |YO | SUBQ.L #0x4,A7 00021638 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002163c 3f 01 |? | MOVE.W D1,-(A7) 0002163e 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00021642 4e 92 |N | JSR (A2) 00021644 50 4f |PO | ADDQ.L #0x8,A7 00021646 28 4b |(K | MOVEA.L A3,A4 00021648 4e ba fa 02 |N | JSR 0x2104c 0002164c de fc 00 0e | | ADDA.W #0xe,A7 00021650 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 00021656 02 40 40 00 | @@ | ANDI.W #0x4000,D0 0002165a 67 26 |g& | BEQ 0x21682 0002165c 3f 3a ed 26 |?: & | MOVE.W 0x20384,-(A7) 00021660 3f 3a ed 20 |?: | MOVE.W 0x20382,-(A7) 00021664 3f 3a ed 1a |?: | MOVE.W 0x20380,-(A7) 00021668 59 4f |YO | SUBQ.L #0x4,A7 0002166a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002166e 3f 01 |? | MOVE.W D1,-(A7) 00021670 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00021674 4e 92 |N | JSR (A2) 00021676 50 4f |PO | ADDQ.L #0x8,A7 00021678 28 4b |(K | MOVEA.L A3,A4 0002167a 4e ba f9 d0 |N | JSR 0x2104c 0002167e de fc 00 0a | | ADDA.W #0xa,A7 00021682 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 00021688 02 40 20 00 | @ | ANDI.W #0x2000,D0 0002168c 67 24 |g$ | BEQ 0x216b2 0002168e 41 fa ed 0a |A | LEA.L 0x2039a,A0 00021692 70 04 |p | MOVEQ.L #0x04,D0 00021694 2f 20 |/ | MOVE.L -(A0),-(A7) 00021696 51 c8 ff fc |Q | DBF D0,0x21694 0002169a 59 4f |YO | SUBQ.L #0x4,A7 0002169c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216a0 3f 01 |? | MOVE.W D1,-(A7) 000216a2 3f 02 |? | MOVE.W D2,-(A7) 000216a4 4e 92 |N | JSR (A2) 000216a6 50 4f |PO | ADDQ.L #0x8,A7 000216a8 28 4b |(K | MOVEA.L A3,A4 000216aa 4e ba f9 a0 |N | JSR 0x2104c 000216ae de fc 00 18 | | ADDA.W #0x18,A7 000216b2 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 000216b8 02 40 10 00 | @ | ANDI.W #0x1000,D0 000216bc 67 24 |g$ | BEQ 0x216e2 000216be 41 fa ec ec |A | LEA.L 0x203ac,A0 000216c2 70 08 |p | MOVEQ.L #0x08,D0 000216c4 3f 20 |? | MOVE.W -(A0),-(A7) 000216c6 51 c8 ff fc |Q | DBF D0,0x216c4 000216ca 59 4f |YO | SUBQ.L #0x4,A7 000216cc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216d0 3f 01 |? | MOVE.W D1,-(A7) 000216d2 3f 06 |? | MOVE.W D6,-(A7) 000216d4 4e 92 |N | JSR (A2) 000216d6 50 4f |PO | ADDQ.L #0x8,A7 000216d8 28 4b |(K | MOVEA.L A3,A4 000216da 4e ba f9 70 |N p | JSR 0x2104c 000216de de fc 00 16 | | ADDA.W #0x16,A7 000216e2 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 000216e8 02 40 08 00 | @ | ANDI.W #0x0800,D0 000216ec 67 26 |g& | BEQ 0x21714 000216ee 2f 3a ec c8 |/: | MOVE.L 0x203b8,-(A7) 000216f2 2f 3a ec c0 |/: | MOVE.L 0x203b4,-(A7) 000216f6 2f 3a ec b8 |/: | MOVE.L 0x203b0,-(A7) 000216fa 2f 3a ec b0 |/: | MOVE.L 0x203ac,-(A7) 000216fe 59 4f |YO | SUBQ.L #0x4,A7 00021700 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021704 3f 01 |? | MOVE.W D1,-(A7) 00021706 3f 05 |? | MOVE.W D5,-(A7) 00021708 4e 92 |N | JSR (A2) 0002170a 50 4f |PO | ADDQ.L #0x8,A7 0002170c 28 4b |(K | MOVEA.L A3,A4 0002170e 4e ba f9 3c |N < | JSR 0x2104c 00021712 de c2 | | ADDA.W D2,A7 00021714 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 0002171a 02 40 04 00 | @ | ANDI.W #0x0400,D0 0002171e 67 2c |g, | BEQ 0x2174c 00021720 9e fc 00 16 | | SUBA.W #0x16,A7 00021724 20 4f | O | MOVEA.L A7,A0 00021726 43 fa ec 94 |C | LEA.L 0x203bc,A1 0002172a 70 14 |p | MOVEQ.L #0x14,D0 0002172c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002172e 51 c8 ff fc |Q | DBF D0,0x2172c 00021732 59 4f |YO | SUBQ.L #0x4,A7 00021734 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021738 3f 01 |? | MOVE.W D1,-(A7) 0002173a 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 0002173e 4e 92 |N | JSR (A2) 00021740 50 4f |PO | ADDQ.L #0x8,A7 00021742 28 4b |(K | MOVEA.L A3,A4 00021744 4e ba f9 06 |N | JSR 0x2104c 00021748 de fc 00 1a | | ADDA.W #0x1a,A7 0002174c 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 00021752 02 40 02 00 | @ | ANDI.W #0x0200,D0 00021756 67 26 |g& | BEQ 0x2177e 00021758 2f 3a ec 84 |/: | MOVE.L 0x203de,-(A7) 0002175c 2f 3a ec 7c |/: | | MOVE.L 0x203da,-(A7) 00021760 2f 3a ec 74 |/: t | MOVE.L 0x203d6,-(A7) 00021764 2f 3a ec 6c |/: l | MOVE.L 0x203d2,-(A7) 00021768 59 4f |YO | SUBQ.L #0x4,A7 0002176a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002176e 3f 01 |? | MOVE.W D1,-(A7) 00021770 3f 05 |? | MOVE.W D5,-(A7) 00021772 4e 92 |N | JSR (A2) 00021774 50 4f |PO | ADDQ.L #0x8,A7 00021776 28 4b |(K | MOVEA.L A3,A4 00021778 4e ba f8 d2 |N | JSR 0x2104c 0002177c de c2 | | ADDA.W D2,A7 0002177e 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 00021784 02 40 01 00 | @ | ANDI.W #0x0100,D0 00021788 67 26 |g& | BEQ 0x217b0 0002178a 2f 3a ec 62 |/: b | MOVE.L 0x203ee,-(A7) 0002178e 2f 3a ec 5a |/: Z | MOVE.L 0x203ea,-(A7) 00021792 2f 3a ec 52 |/: R | MOVE.L 0x203e6,-(A7) 00021796 2f 3a ec 4a |/: J | MOVE.L 0x203e2,-(A7) 0002179a 59 4f |YO | SUBQ.L #0x4,A7 0002179c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000217a0 3f 01 |? | MOVE.W D1,-(A7) 000217a2 3f 05 |? | MOVE.W D5,-(A7) 000217a4 4e 92 |N | JSR (A2) 000217a6 50 4f |PO | ADDQ.L #0x8,A7 000217a8 28 4b |(K | MOVEA.L A3,A4 000217aa 4e ba f8 a0 |N | JSR 0x2104c 000217ae de c2 | | ADDA.W D2,A7 000217b0 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 000217b6 02 40 00 80 | @ | ANDI.W #0x0080,D0 000217ba 67 24 |g$ | BEQ 0x217e0 000217bc 41 fa ec 48 |A H | LEA.L 0x20406,A0 000217c0 70 04 |p | MOVEQ.L #0x04,D0 000217c2 2f 20 |/ | MOVE.L -(A0),-(A7) 000217c4 51 c8 ff fc |Q | DBF D0,0x217c2 000217c8 59 4f |YO | SUBQ.L #0x4,A7 000217ca 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000217ce 3f 01 |? | MOVE.W D1,-(A7) 000217d0 3f 02 |? | MOVE.W D2,-(A7) 000217d2 4e 92 |N | JSR (A2) 000217d4 50 4f |PO | ADDQ.L #0x8,A7 000217d6 28 4b |(K | MOVEA.L A3,A4 000217d8 4e ba f8 72 |N r | JSR 0x2104c 000217dc de fc 00 18 | | ADDA.W #0x18,A7 000217e0 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 000217e6 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 000217ea 67 24 |g$ | BEQ 0x21810 000217ec 41 fa ec 26 |A & | LEA.L 0x20414,A0 000217f0 70 06 |p | MOVEQ.L #0x06,D0 000217f2 3f 20 |? | MOVE.W -(A0),-(A7) 000217f4 51 c8 ff fc |Q | DBF D0,0x217f2 000217f8 59 4f |YO | SUBQ.L #0x4,A7 000217fa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000217fe 3f 01 |? | MOVE.W D1,-(A7) 00021800 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00021804 4e 92 |N | JSR (A2) 00021806 50 4f |PO | ADDQ.L #0x8,A7 00021808 28 4b |(K | MOVEA.L A3,A4 0002180a 4e ba f8 40 |N @ | JSR 0x2104c 0002180e de c6 | | ADDA.W D6,A7 00021810 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 00021816 02 40 00 20 | @ | ANDI.W #0x0020,D0 0002181a 67 26 |g& | BEQ 0x21842 0002181c 2f 3a ec 02 |/: | MOVE.L 0x20420,-(A7) 00021820 2f 3a eb fa |/: | MOVE.L 0x2041c,-(A7) 00021824 2f 3a eb f2 |/: | MOVE.L 0x20418,-(A7) 00021828 2f 3a eb ea |/: | MOVE.L 0x20414,-(A7) 0002182c 59 4f |YO | SUBQ.L #0x4,A7 0002182e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021832 3f 01 |? | MOVE.W D1,-(A7) 00021834 3f 05 |? | MOVE.W D5,-(A7) 00021836 4e 92 |N | JSR (A2) 00021838 50 4f |PO | ADDQ.L #0x8,A7 0002183a 28 4b |(K | MOVEA.L A3,A4 0002183c 4e ba f8 0e |N | JSR 0x2104c 00021840 de c2 | | ADDA.W D2,A7 00021842 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 00021848 c0 45 | E | AND.W D5,D0 0002184a 67 24 |g$ | BEQ 0x21870 0002184c 2f 3a eb de |/: | MOVE.L 0x2042c,-(A7) 00021850 2f 3a eb d6 |/: | MOVE.L 0x20428,-(A7) 00021854 2f 3a eb ce |/: | MOVE.L 0x20424,-(A7) 00021858 59 4f |YO | SUBQ.L #0x4,A7 0002185a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002185e 3f 01 |? | MOVE.W D1,-(A7) 00021860 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 00021864 4e 92 |N | JSR (A2) 00021866 50 4f |PO | ADDQ.L #0x8,A7 00021868 28 4b |(K | MOVEA.L A3,A4 0002186a 4e ba f7 e0 |N | JSR 0x2104c 0002186e de c5 | | ADDA.W D5,A7 00021870 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 00021876 02 40 00 04 | @ | ANDI.W #0x0004,D0 0002187a 67 2c |g, | BEQ 0x218a8 0002187c 9e fc 00 1e | | SUBA.W #0x1e,A7 00021880 20 4f | O | MOVEA.L A7,A0 00021882 43 fa eb ac |C | LEA.L 0x20430,A1 00021886 70 1c |p | MOVEQ.L #0x1c,D0 00021888 10 d9 | | MOVE.B (A1)+,(A0)+ 0002188a 51 c8 ff fc |Q | DBF D0,0x21888 0002188e 59 4f |YO | SUBQ.L #0x4,A7 00021890 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021894 3f 01 |? | MOVE.W D1,-(A7) 00021896 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 0002189a 4e 92 |N | JSR (A2) 0002189c 50 4f |PO | ADDQ.L #0x8,A7 0002189e 28 4b |(K | MOVEA.L A3,A4 000218a0 4e ba f7 aa |N | JSR 0x2104c 000218a4 de fc 00 22 | " | ADDA.W #0x22,A7 000218a8 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 000218ae c0 41 | A | AND.W D1,D0 000218b0 67 26 |g& | BEQ 0x218d8 000218b2 2f 3a eb a6 |/: | MOVE.L 0x2045a,-(A7) 000218b6 2f 3a eb 9e |/: | MOVE.L 0x20456,-(A7) 000218ba 2f 3a eb 96 |/: | MOVE.L 0x20452,-(A7) 000218be 2f 3a eb 8e |/: | MOVE.L 0x2044e,-(A7) 000218c2 59 4f |YO | SUBQ.L #0x4,A7 000218c4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000218c8 3f 01 |? | MOVE.W D1,-(A7) 000218ca 3f 05 |? | MOVE.W D5,-(A7) 000218cc 4e 92 |N | JSR (A2) 000218ce 50 4f |PO | ADDQ.L #0x8,A7 000218d0 28 4b |(K | MOVEA.L A3,A4 000218d2 4e ba f7 78 |N x | JSR 0x2104c 000218d6 de c2 | | ADDA.W D2,A7 000218d8 30 39 00 02 fb a0 |09 | MOVE.W 0x2fba0,D0 000218de 02 40 80 00 | @ | ANDI.W #0x8000,D0 000218e2 67 26 |g& | BEQ 0x2190a 000218e4 41 fa eb 82 |A | LEA.L 0x20468,A0 000218e8 70 04 |p | MOVEQ.L #0x04,D0 000218ea 3f 20 |? | MOVE.W -(A0),-(A7) 000218ec 51 c8 ff fc |Q | DBF D0,0x218ea 000218f0 59 4f |YO | SUBQ.L #0x4,A7 000218f2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000218f6 3f 01 |? | MOVE.W D1,-(A7) 000218f8 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000218fc 4e 92 |N | JSR (A2) 000218fe 50 4f |PO | ADDQ.L #0x8,A7 00021900 28 4b |(K | MOVEA.L A3,A4 00021902 4e ba f7 48 |N H | JSR 0x2104c 00021906 de fc 00 0e | | ADDA.W #0xe,A7 0002190a 30 39 00 02 fb a0 |09 | MOVE.W 0x2fba0,D0 00021910 02 40 40 00 | @@ | ANDI.W #0x4000,D0 00021914 67 28 |g( | BEQ 0x2193e 00021916 9e c5 | | SUBA.W D5,A7 00021918 20 4f | O | MOVEA.L A7,A0 0002191a 43 fa eb 4c |C L | LEA.L 0x20468,A1 0002191e 70 0e |p | MOVEQ.L #0x0e,D0 00021920 10 d9 | | MOVE.B (A1)+,(A0)+ 00021922 51 c8 ff fc |Q | DBF D0,0x21920 00021926 59 4f |YO | SUBQ.L #0x4,A7 00021928 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002192c 3f 01 |? | MOVE.W D1,-(A7) 0002192e 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00021932 4e 92 |N | JSR (A2) 00021934 50 4f |PO | ADDQ.L #0x8,A7 00021936 28 4b |(K | MOVEA.L A3,A4 00021938 4e ba f7 12 |N | JSR 0x2104c 0002193c de c2 | | ADDA.W D2,A7 0002193e 30 39 00 02 fb a0 |09 | MOVE.W 0x2fba0,D0 00021944 02 40 10 00 | @ | ANDI.W #0x1000,D0 00021948 67 28 |g( | BEQ 0x21972 0002194a 9e c5 | | SUBA.W D5,A7 0002194c 20 4f | O | MOVEA.L A7,A0 0002194e 43 fa eb 28 |C ( | LEA.L 0x20478,A1 00021952 70 0e |p | MOVEQ.L #0x0e,D0 00021954 10 d9 | | MOVE.B (A1)+,(A0)+ 00021956 51 c8 ff fc |Q | DBF D0,0x21954 0002195a 59 4f |YO | SUBQ.L #0x4,A7 0002195c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021960 3f 01 |? | MOVE.W D1,-(A7) 00021962 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00021966 4e 92 |N | JSR (A2) 00021968 50 4f |PO | ADDQ.L #0x8,A7 0002196a 28 4b |(K | MOVEA.L A3,A4 0002196c 4e ba f6 de |N | JSR 0x2104c 00021970 de c2 | | ADDA.W D2,A7 00021972 30 39 00 02 fb a0 |09 | MOVE.W 0x2fba0,D0 00021978 02 40 08 00 | @ | ANDI.W #0x0800,D0 0002197c 67 24 |g$ | BEQ 0x219a2 0002197e 41 fa eb 1c |A | LEA.L 0x2049c,A0 00021982 70 04 |p | MOVEQ.L #0x04,D0 00021984 2f 20 |/ | MOVE.L -(A0),-(A7) 00021986 51 c8 ff fc |Q | DBF D0,0x21984 0002198a 59 4f |YO | SUBQ.L #0x4,A7 0002198c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021990 3f 01 |? | MOVE.W D1,-(A7) 00021992 3f 02 |? | MOVE.W D2,-(A7) 00021994 4e 92 |N | JSR (A2) 00021996 50 4f |PO | ADDQ.L #0x8,A7 00021998 28 4b |(K | MOVEA.L A3,A4 0002199a 4e ba f6 b0 |N | JSR 0x2104c 0002199e de fc 00 18 | | ADDA.W #0x18,A7 000219a2 30 39 00 02 fb a0 |09 | MOVE.W 0x2fba0,D0 000219a8 02 40 04 00 | @ | ANDI.W #0x0400,D0 000219ac 67 2a |g* | BEQ 0x219d8 000219ae 9e c6 | | SUBA.W D6,A7 000219b0 20 4f | O | MOVEA.L A7,A0 000219b2 43 fa ea e8 |C | LEA.L 0x2049c,A1 000219b6 70 10 |p | MOVEQ.L #0x10,D0 000219b8 10 d9 | | MOVE.B (A1)+,(A0)+ 000219ba 51 c8 ff fc |Q | DBF D0,0x219b8 000219be 59 4f |YO | SUBQ.L #0x4,A7 000219c0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000219c4 3f 01 |? | MOVE.W D1,-(A7) 000219c6 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 000219ca 4e 92 |N | JSR (A2) 000219cc 50 4f |PO | ADDQ.L #0x8,A7 000219ce 28 4b |(K | MOVEA.L A3,A4 000219d0 4e ba f6 7a |N z | JSR 0x2104c 000219d4 de fc 00 16 | | ADDA.W #0x16,A7 000219d8 30 39 00 02 fb a0 |09 | MOVE.W 0x2fba0,D0 000219de 02 40 00 80 | @ | ANDI.W #0x0080,D0 000219e2 67 24 |g$ | BEQ 0x21a08 000219e4 2f 3a ea d0 |/: | MOVE.L 0x204b6,-(A7) 000219e8 2f 3a ea c8 |/: | MOVE.L 0x204b2,-(A7) 000219ec 2f 3a ea c0 |/: | MOVE.L 0x204ae,-(A7) 000219f0 59 4f |YO | SUBQ.L #0x4,A7 000219f2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000219f6 3f 01 |? | MOVE.W D1,-(A7) 000219f8 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 000219fc 4e 92 |N | JSR (A2) 000219fe 50 4f |PO | ADDQ.L #0x8,A7 00021a00 28 4b |(K | MOVEA.L A3,A4 00021a02 4e ba f6 48 |N H | JSR 0x2104c 00021a06 de c5 | | ADDA.W D5,A7 00021a08 30 39 00 02 fb a0 |09 | MOVE.W 0x2fba0,D0 00021a0e 02 40 00 20 | @ | ANDI.W #0x0020,D0 00021a12 67 2a |g* | BEQ 0x21a3e 00021a14 9e c6 | | SUBA.W D6,A7 00021a16 20 4f | O | MOVEA.L A7,A0 00021a18 43 fa ea a0 |C | LEA.L 0x204ba,A1 00021a1c 70 10 |p | MOVEQ.L #0x10,D0 00021a1e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021a20 51 c8 ff fc |Q | DBF D0,0x21a1e 00021a24 59 4f |YO | SUBQ.L #0x4,A7 00021a26 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021a2a 3f 01 |? | MOVE.W D1,-(A7) 00021a2c 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00021a30 4e 92 |N | JSR (A2) 00021a32 50 4f |PO | ADDQ.L #0x8,A7 00021a34 28 4b |(K | MOVEA.L A3,A4 00021a36 4e ba f6 14 |N | JSR 0x2104c 00021a3a de fc 00 16 | | ADDA.W #0x16,A7 00021a3e 20 6e ff fa | n | MOVEA.L (A6-0x6),A0 00021a42 4a 50 |JP | TST.W (A0) 00021a44 67 0c |g | BEQ 0x21a52 00021a46 2f 2e ff fa |/. | MOVE.L (A6-0x6),-(A7) 00021a4a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021a50 58 4f |XO | ADDQ.L #0x4,A7 00021a52 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00021a56 0c 00 00 02 | | CMPI.B #0x02,D0 00021a5a 66 0c |f | BNE 0x21a68 00021a5c 2f 39 00 02 c8 90 |/9 | MOVE.L 0x2c890,-(A7) 00021a62 4e ba f4 68 |N h | JSR 0x20ecc 00021a66 58 4f |XO | ADDQ.L #0x4,A7 00021a68 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021a6c 4e 5e |N^ | UNLK A6 00021a6e 4e 75 |Nu | RTS 00021a70 ; -------------------------------------------------------------------------------------- 00021a70 ; OMSI PASCAL Function 00021a70 ; <LVAR -0x004 2(r)> 00021a70 ; <LVAR -0x006 2(r)> 00021a70 ; <LVAR -0x008 2(r)> 00021a70 ; <LVAR -0x00a 2(r)> 00021a70 ; <LVAR -0x00e 2(r)> 00021a70 ; <LVAR -0x016 2(r)> 00021a70 ; <LVAR -0x01e 2(r)> 00021a70 ; <LVAR -0x020 2(r)> 00021a70 ; <LVAR -0x022 2(r)> 00021a70 ; <LVAR -0x024 2(r)> 00021a70 ; <LVAR -0x02a 2(r)> 00021a70 ; -------------------------------------------------------------------------------------- 00021a70 4e 56 ff 96 |NV | LINK.W A6,#0xff96 00021a74 bf d5 | | CMPA.L (A5),A7 00021a76 62 06 |b | BHI 0x21a7e 00021a78 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021a7c 4e 76 |Nv | TRAPV 00021a7e de fc 00 36 | 6 | ADDA.W #0x36,A7 00021a82 48 e7 db 80 |H | MOVEM.L A0+D7+D6+D4+D3+D1+D0,-(A7) 00021a86 72 13 |r | MOVEQ.L #0x13,D1 00021a88 2e 3c 00 00 93 03 |.< | MOVE.L #0x9303,D7 00021a8e e1 87 | | ASL.L #0x8,D7 00021a90 e1 87 | | ASL.L #0x8,D7 00021a92 06 87 00 00 fd c0 | | ADDI.L #0x0000fdc0,D7 00021a98 7c 00 || | MOVEQ.L #0x00,D6 00021a9a 78 02 |x | MOVEQ.L #0x02,D4 00021a9c 26 06 |& | MOVE.L D6,D3 00021a9e 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00021aa4 2f 07 |/ | MOVE.L D7,-(A7) 00021aa6 d9 97 | | ADD.L D4,(A7) 00021aa8 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00021aac bc 81 | | CMP.L D1,D6 00021aae 63 02 |c | BLS 0x21ab2 00021ab0 4e 4f |NO | TRAP #15 00021ab2 20 06 | | MOVE.L D6,D0 00021ab4 e3 80 | | ASL.L #0x1,D0 00021ab6 41 f6 08 d6 |A | LEA.L (A6+D0.L-#0x2a),A0 00021aba 2f 08 |/ | MOVE.L A0,-(A7) 00021abc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021ac0 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00021ac4 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word 00021aca de fc 00 0e | | ADDA.W #0xe,A7 00021ace 52 86 |R | ADDQ.L #0x1,D6 00021ad0 bc 81 | | CMP.L D1,D6 00021ad2 6f c6 |o | BLE 0x21a9a 00021ad4 33 ee ff d6 00 02 fb 98 |3 | MOVE.W (A6-0x2a),0x2fb98 00021adc 33 ee ff de 00 02 fb 9a |3 | MOVE.W (A6-0x22),0x2fb9a 00021ae4 33 ee ff e0 00 02 fb 9c |3 | MOVE.W (A6-0x20),0x2fb9c 00021aec 33 ee ff e2 00 02 fb 9e |3 | MOVE.W (A6-0x1e),0x2fb9e 00021af4 33 ee ff f8 00 02 fb a0 |3 | MOVE.W (A6-0x8),0x2fba0 00021afc 33 ee ff fa 00 02 fb a2 |3 | MOVE.W (A6-0x6),0x2fba2 00021b04 33 ee ff fc 00 02 fb a4 |3 | MOVE.W (A6-0x4),0x2fba4 00021b0c 33 ee ff f2 00 02 fb a6 |3 | MOVE.W (A6-0xe),0x2fba6 00021b14 33 ee ff dc 00 02 fb a8 |3 | MOVE.W (A6-0x24),0x2fba8 00021b1c 33 ee ff ea 00 02 fb aa |3 | MOVE.W (A6-0x16),0x2fbaa 00021b24 33 ee ff f6 00 02 fb ac |3 | MOVE.W (A6-0xa),0x2fbac 00021b2c 4c df 01 db |L | MOVEM.L (A7)+,D0+D1+D3+D4+D6+D7+A0 00021b30 4e 5e |N^ | UNLK A6 00021b32 4e 75 |Nu | RTS 00021b34 ; -------------------------------------------------------------------------------------- 00021b34 ; OMSI PASCAL Function 00021b34 ; <LVAR -0x008 2(w)> 00021b34 ; <LVAR -0x00e 2(w)> 00021b34 ; <LVAR -0x012 @> 00021b34 ; <LVAR -0x014 @ 1(r)> 00021b34 ; -------------------------------------------------------------------------------------- 00021b34 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 00021b38 bf d5 | | CMPA.L (A5),A7 00021b3a 62 06 |b | BHI 0x21b42 00021b3c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021b40 4e 76 |Nv | TRAPV 00021b42 de fc 00 3c | < | ADDA.W #0x3c,A7 00021b46 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021b4a 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe) 00021b50 30 39 00 02 fd 42 |09 B | MOVE.W 0x2fd42,D0 00021b56 e1 40 | @ | ASL.W #0x8,D0 00021b58 52 40 |R@ | ADDQ.W #0x1,D0 00021b5a 0c 40 ff ff | @ | CMPI.W #0xffff,D0 00021b5e 63 02 |c | BLS 0x21b62 00021b60 4e 4f |NO | TRAP #15 00021b62 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00021b66 48 6e ff ee |Hn | PEA.L (A6-0x12) 00021b6a 41 f9 00 02 fb 98 |A | LEA.L 0x2fb98,A0 00021b70 2f 08 |/ | MOVE.L A0,-(A7) 00021b72 42 67 |Bg | CLR.W -(A7) 00021b74 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021b7a 50 4f |PO | ADDQ.L #0x8,A7 00021b7c 42 57 |BW | CLR.W (A7) 00021b7e 48 6e ff ec |Hn | PEA.L (A6-0x14) 00021b82 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021b88 5c 4f |\O | ADDQ.L #0x6,A7 00021b8a 4a 2e ff ec |J. | TST.B (A6-0x14) 00021b8e 66 2a |f* | BNE 0x21bba 00021b90 41 fa e9 5e |A ^ | LEA.L 0x204f0,A0 00021b94 70 08 |p | MOVEQ.L #0x08,D0 00021b96 2f 20 |/ | MOVE.L -(A0),-(A7) 00021b98 51 c8 ff fc |Q | DBF D0,0x21b96 00021b9c 59 4f |YO | SUBQ.L #0x4,A7 00021b9e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ba2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021ba6 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7) 00021baa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021bb0 50 4f |PO | ADDQ.L #0x8,A7 00021bb2 4e ba f2 8c |N | JSR 0x20e40 00021bb6 de fc 00 28 | ( | ADDA.W #0x28,A7 00021bba 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021bbe 4e 5e |N^ | UNLK A6 00021bc0 4e 75 |Nu | RTS 00021bc2 ; -------------------------------------------------------------------------------------- 00021bc2 ; OMSI PASCAL Function 00021bc2 ; <LVAR 0x00c 2(r)> 00021bc2 ; <LVAR 0x008 4(r)> 00021bc2 ; <LVAR -0x002 @ 1(r)> 00021bc2 ; <LVAR -0x006 2(w)> 00021bc2 ; <LVAR -0x008 2(w)> 00021bc2 ; <LVAR -0x00a 2(r)> 00021bc2 ; <LVAR -0x00c 2(r)> 00021bc2 ; <LVAR -0x00e 2(w)> 00021bc2 ; <LVAR -0x010 2(r)> 00021bc2 ; <LVAR -0x012 @ 2(r)> 00021bc2 ; -------------------------------------------------------------------------------------- 00021bc2 4e 56 ff 9c |NV | LINK.W A6,#0xff9c 00021bc6 bf d5 | | CMPA.L (A5),A7 00021bc8 62 06 |b | BHI 0x21bd0 00021bca 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021bce 4e 76 |Nv | TRAPV 00021bd0 de fc 00 52 | R | ADDA.W #0x52,A7 00021bd4 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00021bd8 42 6e ff ee |Bn | CLR.W (A6-0x12) 00021bdc 42 6e ff f0 |Bn | CLR.W (A6-0x10) 00021be0 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe) 00021be6 42 6e ff f4 |Bn | CLR.W (A6-0xc) 00021bea 42 6e ff f6 |Bn | CLR.W (A6-0xa) 00021bee 30 39 00 02 fd 42 |09 B | MOVE.W 0x2fd42,D0 00021bf4 e1 40 | @ | ASL.W #0x8,D0 00021bf6 06 40 00 0e | @ | ADDI.W #0x000e,D0 00021bfa 0c 40 ff ff | @ | CMPI.W #0xffff,D0 00021bfe 63 02 |c | BLS 0x21c02 00021c00 4e 4f |NO | TRAP #15 00021c02 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00021c06 3d 6e 00 0c ff fa |=n | MOVE.W (A6+0xc),(A6-0x6) 00021c0c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021c10 48 6e ff ee |Hn | PEA.L (A6-0x12) 00021c14 22 48 |"H | MOVEA.L A0,A1 00021c16 2f 09 |/ | MOVE.L A1,-(A7) 00021c18 42 67 |Bg | CLR.W -(A7) 00021c1a 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021c20 50 4f |PO | ADDQ.L #0x8,A7 00021c22 42 57 |BW | CLR.W (A7) 00021c24 48 6e ff fe |Hn | PEA.L (A6-0x2) 00021c28 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021c2e 5c 4f |\O | ADDQ.L #0x6,A7 00021c30 02 50 00 ff | P | ANDI.W #0x00ff,(A0) 00021c34 4a 2e ff fe |J. | TST.B (A6-0x2) 00021c38 66 48 |fH | BNE 0x21c82 00021c3a 9e fc 00 32 | 2 | SUBA.W #0x32,A7 00021c3e 20 4f | O | MOVEA.L A7,A0 00021c40 43 fa e8 ae |C | LEA.L 0x204f0,A1 00021c44 70 30 |p0 | MOVEQ.L #0x30,D0 00021c46 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c48 51 c8 ff fc |Q | DBF D0,0x21c46 00021c4c 51 4f |QO | SUBQ.L #0x8,A7 00021c4e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021c52 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021c56 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 00021c5a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021c60 58 4f |XO | ADDQ.L #0x4,A7 00021c62 42 80 |B | CLR.L D0 00021c64 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 00021c68 2f 00 |/ | MOVE.L D0,-(A7) 00021c6a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021c70 58 4f |XO | ADDQ.L #0x4,A7 00021c72 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021c78 50 4f |PO | ADDQ.L #0x8,A7 00021c7a 4e ba f1 c4 |N | JSR 0x20e40 00021c7e de fc 00 36 | 6 | ADDA.W #0x36,A7 00021c82 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021c86 4e 5e |N^ | UNLK A6 00021c88 4e 75 |Nu | RTS 00021c8a ; -------------------------------------------------------------------------------------- 00021c8a ; OMSI PASCAL Function 00021c8a ; <LVAR 0x008 2(r)> 00021c8a ; <LVAR -0x004 2(rw)> 00021c8a ; <LVAR -0x006 2(rw)> 00021c8a ; <LVAR -0x008 2(rw)> 00021c8a ; <LVAR -0x482 @> 00021c8a ; <LVAR -0x486 @ 2(r)> 00021c8a ; <LVAR -0x8fe @> 00021c8a ; <LVAR -0x902 @> 00021c8a ; -------------------------------------------------------------------------------------- 00021c8a 4e 56 f6 cc |NV | LINK.W A6,#0xf6cc 00021c8e bf d5 | | CMPA.L (A5),A7 00021c90 62 06 |b | BHI 0x21c98 00021c92 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021c96 4e 76 |Nv | TRAPV 00021c98 de fc 00 32 | 2 | ADDA.W #0x32,A7 00021c9c 48 e7 c7 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00021ca0 45 ee ff fc |E | LEA.L (A6-0x4),A2 00021ca4 47 f9 00 02 fb 8e |G | LEA.L 0x2fb8e,A3 00021caa 7e 00 |~ | MOVEQ.L #0x00,D7 00021cac 34 ae 00 08 |4 | MOVE.W (A6+0x8),(A2) 00021cb0 02 52 00 03 | R | ANDI.W #0x0003,(A2) 00021cb4 0c 87 00 00 ff ff | | CMPI.L #0x0000ffff,D7 00021cba 63 02 |c | BLS 0x21cbe 00021cbc 4e 4f |NO | TRAP #15 00021cbe 3f 07 |? | MOVE.W D7,-(A7) 00021cc0 48 6e fb 7a |Hn z | PEA.L (A6-0x486) 00021cc4 4e ba fe fc |N | JSR 0x21bc2 00021cc8 5c 4f |\O | ADDQ.L #0x6,A7 00021cca 0c 87 00 00 04 77 | w | CMPI.L #0x00000477,D7 00021cd0 63 02 |c | BLS 0x21cd4 00021cd2 4e 4f |NO | TRAP #15 00021cd4 41 ee f6 fe |A | LEA.L (A6-0x902),A0 00021cd8 41 f0 78 00 |A x | LEA.L (A0+D7.L),A0 00021cdc 30 2e fb 7a |0. z | MOVE.W (A6-0x486),D0 00021ce0 41 bc 00 ff |A | CHK.W #0xff,D0 00021ce4 11 40 04 80 | @ | MOVE.B D0,(A0+0x480) 00021ce8 52 87 |R | ADDQ.L #0x1,D7 00021cea 0c 87 00 00 04 00 | | CMPI.L #0x00000400,D7 00021cf0 66 c2 |f | BNE 0x21cb4 00021cf2 41 ee f7 02 |A | LEA.L (A6-0x8fe),A0 00021cf6 43 ee fb 7e |C ~ | LEA.L (A6-0x482),A1 00021cfa 30 3c 01 1d |0< | MOVE.W #0x11d,D0 00021cfe 20 d9 | | MOVE.L (A1)+,(A0)+ 00021d00 51 c8 ff fc |Q | DBF D0,0x21cfe 00021d04 41 ee f6 fe |A | LEA.L (A6-0x902),A0 00021d08 30 12 |0 | MOVE.W (A2),D0 00021d0a 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00021d0e 42 80 |B | CLR.L D0 00021d10 10 28 02 54 | ( T | MOVE.B (A0+0x254),D0 00021d14 e1 40 | @ | ASL.W #0x8,D0 00021d16 42 81 |B | CLR.L D1 00021d18 12 28 01 d4 | ( | MOVE.B (A0+0x1d4),D1 00021d1c d2 40 | @ | ADD.W D0,D1 00021d1e 3a 01 |: | MOVE.W D1,D5 00021d20 42 80 |B | CLR.L D0 00021d22 10 28 03 54 | ( T | MOVE.B (A0+0x354),D0 00021d26 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00021d2a 42 80 |B | CLR.L D0 00021d2c 10 28 02 d4 | ( | MOVE.B (A0+0x2d4),D0 00021d30 3d 40 ff fa |=@ | MOVE.W D0,(A6-0x6) 00021d34 42 53 |BS | CLR.W (A3) 00021d36 7c 05 || | MOVEQ.L #0x05,D6 00021d38 30 06 |0 | MOVE.W D6,D0 00021d3a e5 40 | @ | ASL.W #0x2,D0 00021d3c 41 f9 00 02 3f 4e |A ?N | LEA.L 0x23f4e,A0 00021d42 ba 70 00 1a | p | CMP.W (A0+D0.W+#0x1a),D5 00021d46 66 1a |f | BNE 0x21d62 00021d48 42 81 |B | CLR.L D1 00021d4a 12 30 00 1c | 0 | MOVE.B (A0+D0.W+#0x1c),D1 00021d4e b2 6e ff f8 | n | CMP.W (A6-0x8),D1 00021d52 66 0e |f | BNE 0x21d62 00021d54 42 81 |B | CLR.L D1 00021d56 12 30 00 1d | 0 | MOVE.B (A0+D0.W+#0x1d),D1 00021d5a b2 6e ff fa | n | CMP.W (A6-0x6),D1 00021d5e 66 02 |f | BNE 0x21d62 00021d60 36 86 |6 | MOVE.W D6,(A3) 00021d62 53 46 |SF | SUBQ.W #0x1,D6 00021d64 6c d2 |l | BGE 0x21d38 00021d66 4c df 0f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3 00021d6a 4e 5e |N^ | UNLK A6 00021d6c 4e 75 |Nu | RTS 00021d6e ; -------------------------------------------------------------------------------------- 00021d6e ; OMSI PASCAL Function 00021d6e ; <LVAR 0x00a 4(r)> 00021d6e ; <LVAR 0x008 1(r)> 00021d6e ; -------------------------------------------------------------------------------------- 00021d6e 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 ; Spelunked 00021d72 bf d5 | | CMPA.L (A5),A7 00021d74 62 06 |b | BHI 0x21d7c 00021d76 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021d7a 4e 76 |Nv | TRAPV 00021d7c de fc 00 2a | * | ADDA.W #0x2a,A7 00021d80 48 e7 d8 c0 |H | MOVEM.L A1+A0+D4+D3+D1+D0,-(A7) 00021d84 41 ec 00 0e |A | LEA.L (A4+0xe),A0 00021d88 43 f9 00 01 02 c0 |C | LEA.L AppendChar(MOD b : String; a : char),A1 00021d8e 72 30 |r0 | MOVEQ.L #0x30,D1 00021d90 28 2e 00 0a |(. | MOVE.L (A6+0xa),D4 00021d94 76 0a |v | MOVEQ.L #0x0a,D3 00021d96 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00021d9c 2f 10 |/ | MOVE.L (A0),-(A7) 00021d9e 20 04 | | MOVE.L D4,D0 00021da0 d0 81 | | ADD.L D1,D0 00021da2 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 00021da8 63 02 |c | BLS 0x21dac 00021daa 4e 4f |NO | TRAP #15 00021dac 1f 00 | | MOVE.B D0,-(A7) 00021dae 4e 91 |N | JSR (A1) 00021db0 54 4f |TO | ADDQ.L #0x2,A7 00021db2 2e 90 |. | MOVE.L (A0),(A7) 00021db4 d6 41 | A | ADD.W D1,D3 00021db6 1f 03 | | MOVE.B D3,-(A7) 00021db8 4e 91 |N | JSR (A1) 00021dba 5c 4f |\O | ADDQ.L #0x6,A7 00021dbc 4a 2e 00 08 |J. | TST.B (A6+0x8) 00021dc0 67 0a |g | BEQ 0x21dcc 00021dc2 2f 10 |/ | MOVE.L (A0),-(A7) 00021dc4 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00021dc8 4e 91 |N | JSR (A1) 00021dca 5c 4f |\O | ADDQ.L #0x6,A7 00021dcc 4c df 03 1b |L | MOVEM.L (A7)+,D0+D1+D3+D4+A0+A1 00021dd0 4e 5e |N^ | UNLK A6 00021dd2 4e 75 |Nu | RTS 00021dd4 ; -------------------------------------------------------------------------------------- 00021dd4 ; OMSI PASCAL Function 00021dd4 ; <LVAR 0x00c 2(r)> 00021dd4 ; <LVAR 0x008 2(r)> 00021dd4 ; <LVAR -0x006 4(rw)> 00021dd4 ; <LVAR -0x00a 4(rw)> 00021dd4 ; <LVAR -0x014 @> 00021dd4 ; -------------------------------------------------------------------------------------- 00021dd4 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00021dd8 bf d5 | | CMPA.L (A5),A7 00021dda 62 06 |b | BHI 0x21de2 00021ddc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021de0 4e 76 |Nv | TRAPV 00021de2 de fc 00 44 | D | ADDA.W #0x44,A7 00021de6 48 e7 e7 c8 |H | MOVEM.L A4+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00021dea 41 ee ff ec |A | LEA.L (A6-0x14),A0 00021dee 43 fa ff 7e |C ~ | LEA.L 0x21d6e,A1 00021df2 74 3a |t: | MOVEQ.L #0x3a,D2 00021df4 42 80 |B | CLR.L D0 00021df6 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 00021dfa 42 81 |B | CLR.L D1 00021dfc 32 2e 00 0c |2. | MOVE.W (A6+0xc),D1 00021e00 44 81 |D | NEG.L D1 00021e02 d2 80 | | ADD.L D0,D1 00021e04 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 00021e0a 63 02 |c | BLS 0x21e0e 00021e0c 4e 4f |NO | TRAP #15 00021e0e 3e 01 |> | MOVE.W D1,D7 00021e10 42 80 |B | CLR.L D0 00021e12 30 07 |0 | MOVE.W D7,D0 00021e14 80 fc 07 08 | | DIVU.W #0x708,D0 00021e18 42 81 |B | CLR.L D1 00021e1a 32 00 |2 | MOVE.W D0,D1 00021e1c 2c 01 |, | MOVE.L D1,D6 00021e1e 48 40 |H@ | SWAP.W D0 00021e20 3e 00 |> | MOVE.W D0,D7 00021e22 42 80 |B | CLR.L D0 00021e24 30 07 |0 | MOVE.W D7,D0 00021e26 80 fc 00 1e | | DIVU.W #0x1e,D0 00021e2a 42 81 |B | CLR.L D1 00021e2c 32 00 |2 | MOVE.W D0,D1 00021e2e 2a 01 |* | MOVE.L D1,D5 00021e30 48 40 |H@ | SWAP.W D0 00021e32 3e 00 |> | MOVE.W D0,D7 00021e34 42 80 |B | CLR.L D0 00021e36 30 07 |0 | MOVE.W D7,D0 00021e38 e3 80 | | ASL.L #0x1,D0 00021e3a 2d 40 ff f6 |-@ | MOVE.L D0,(A6-0xa) 00021e3e 2f 3a e6 ee |/: | MOVE.L 0x2052e,-(A7) 00021e42 2f 3a e6 e6 |/: | MOVE.L 0x2052a,-(A7) 00021e46 2f 3a e6 de |/: | MOVE.L 0x20526,-(A7) 00021e4a 2f 3a e6 d6 |/: | MOVE.L 0x20522,-(A7) 00021e4e 59 4f |YO | SUBQ.L #0x4,A7 00021e50 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021e54 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021e58 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 00021e5c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021e62 50 4f |PO | ADDQ.L #0x8,A7 00021e64 2d 5f ff fa |-_ | MOVE.L (A7)+,(A6-0x6) 00021e68 de fc 00 0c | | ADDA.W #0xc,A7 00021e6c 2e 86 |. | MOVE.L D6,(A7) 00021e6e 1f 02 | | MOVE.B D2,-(A7) 00021e70 28 48 |(H | MOVEA.L A0,A4 00021e72 4e 91 |N | JSR (A1) 00021e74 54 4f |TO | ADDQ.L #0x2,A7 00021e76 2e 85 |. | MOVE.L D5,(A7) 00021e78 1f 02 | | MOVE.B D2,-(A7) 00021e7a 28 48 |(H | MOVEA.L A0,A4 00021e7c 4e 91 |N | JSR (A1) 00021e7e 54 4f |TO | ADDQ.L #0x2,A7 00021e80 2e ae ff f6 |. | MOVE.L (A6-0xa),(A7) 00021e84 42 27 |B' | CLR.B -(A7) 00021e86 28 48 |(H | MOVEA.L A0,A4 00021e88 4e 91 |N | JSR (A1) 00021e8a 54 4f |TO | ADDQ.L #0x2,A7 00021e8c 2e ae ff fa |. | MOVE.L (A6-0x6),(A7) 00021e90 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021e96 58 4f |XO | ADDQ.L #0x4,A7 00021e98 4c df 13 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A4 00021e9c 4e 5e |N^ | UNLK A6 00021e9e 4e 75 |Nu | RTS 00021ea0 ; -------------------------------------------------------------------------------------- 00021ea0 ; OMSI PASCAL Function 00021ea0 ; -------------------------------------------------------------------------------------- 00021ea0 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00021ea4 bf d5 | | CMPA.L (A5),A7 00021ea6 62 06 |b | BHI 0x21eae 00021ea8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021eac 4e 76 |Nv | TRAPV 00021eae de fc 00 30 | 0 | ADDA.W #0x30,A7 00021eb2 48 e7 e3 80 |H | MOVEM.L A0+D7+D6+D2+D1+D0,-(A7) 00021eb6 74 1d |t | MOVEQ.L #0x1d,D2 00021eb8 7e 01 |~ | MOVEQ.L #0x01,D7 00021eba 20 07 | | MOVE.L D7,D0 00021ebc e3 80 | | ASL.L #0x1,D0 00021ebe 22 00 |" | MOVE.L D0,D1 00021ec0 53 81 |S | SUBQ.L #0x1,D1 00021ec2 b2 82 | | CMP.L D2,D1 00021ec4 63 02 |c | BLS 0x21ec8 00021ec6 4e 4f |NO | TRAP #15 00021ec8 41 f9 00 02 3f 4e |A ?N | LEA.L 0x23f4e,A0 00021ece d1 fc 00 00 b8 40 | @ | ADDA.L #0xb840,A0 00021ed4 1c 30 18 36 | 0 6 | MOVE.B (A0+D1.L+#0x36),D6 00021ed8 53 80 |S | SUBQ.L #0x1,D0 00021eda 53 80 |S | SUBQ.L #0x1,D0 00021edc b0 82 | | CMP.L D2,D0 00021ede 63 02 |c | BLS 0x21ee2 00021ee0 4e 4f |NO | TRAP #15 00021ee2 11 b0 08 36 18 36 | 6 6 | MOVE.B (A0+D0.L+#0x36),(A0+D1.L+#0x36) 00021ee8 11 86 08 36 | 6 | MOVE.B D6,(A0+D0.L+#0x36) 00021eec 52 87 |R | ADDQ.L #0x1,D7 00021eee 0c 87 00 00 00 0f | | CMPI.L #0x0000000f,D7 00021ef4 6f c4 |o | BLE 0x21eba 00021ef6 4c df 01 c7 |L | MOVEM.L (A7)+,D0+D1+D2+D6+D7+A0 00021efa 4e 5e |N^ | UNLK A6 00021efc 4e 75 |Nu | RTS 00021efe ; -------------------------------------------------------------------------------------- 00021efe ; OMSI PASCAL Function 00021efe ; <LVAR 0x008 1(rw)> 00021efe ; <LVAR -0x018 2(r)> 00021efe ; -------------------------------------------------------------------------------------- 00021efe 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 00021f02 bf d5 | | CMPA.L (A5),A7 00021f04 62 06 |b | BHI 0x21f0c 00021f06 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021f0a 4e 76 |Nv | TRAPV 00021f0c de fc 00 36 | 6 | ADDA.W #0x36,A7 00021f10 48 e7 db 80 |H | MOVEM.L A0+D7+D6+D4+D3+D1+D0,-(A7) 00021f14 72 13 |r | MOVEQ.L #0x13,D1 00021f16 2e 3c 00 00 93 03 |.< | MOVE.L #0x9303,D7 00021f1c e1 87 | | ASL.L #0x8,D7 00021f1e e1 87 | | ASL.L #0x8,D7 00021f20 30 39 00 02 fd 42 |09 B | MOVE.W 0x2fd42,D0 00021f26 e4 40 | @ | ASR.W #0x2,D0 00021f28 0c 40 00 03 | @ | CMPI.W #0x0003,D0 00021f2c 63 02 |c | BLS 0x21f30 00021f2e 4e 4e |NN | TRAP #14 00021f30 d0 40 | @ | ADD.W D0,D0 00021f32 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00021f3a 00 08 | | .CONST 0x8 ; [0x0] -> 0x21f42 00021f3c 00 10 | | .CONST 0x10 ; [0x1] -> 0x21f4a 00021f3e 00 18 | | .CONST 0x18 ; [0x2] -> 0x21f52 00021f40 00 20 | | .CONST 0x20 ; [0x3] -> 0x21f5a 00021f42 switch@0x21f32[0x0]: 00021f42 06 87 00 00 fd c0 | | ADDI.L #0x0000fdc0,D7 00021f48 60 16 |` | BRA 0x21f60 00021f4a switch@0x21f32[0x1]: 00021f4a 06 87 00 00 fc c0 | | ADDI.L #0x0000fcc0,D7 00021f50 60 0e |` | BRA 0x21f60 00021f52 switch@0x21f32[0x2]: 00021f52 06 87 00 00 fc 80 | | ADDI.L #0x0000fc80,D7 00021f58 60 06 |` | BRA 0x21f60 00021f5a switch@0x21f32[0x3]: 00021f5a 06 87 00 00 fc 40 | @ | ADDI.L #0x0000fc40,D7 00021f60 7c 00 || | MOVEQ.L #0x00,D6 00021f62 78 02 |x | MOVEQ.L #0x02,D4 00021f64 26 06 |& | MOVE.L D6,D3 00021f66 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00021f6c 2f 07 |/ | MOVE.L D7,-(A7) 00021f6e d9 97 | | ADD.L D4,(A7) 00021f70 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00021f74 bc 81 | | CMP.L D1,D6 00021f76 63 02 |c | BLS 0x21f7a 00021f78 4e 4f |NO | TRAP #15 00021f7a 20 06 | | MOVE.L D6,D0 00021f7c e3 80 | | ASL.L #0x1,D0 00021f7e 41 f6 08 d4 |A | LEA.L (A6+D0.L-#0x2c),A0 00021f82 2f 08 |/ | MOVE.L A0,-(A7) 00021f84 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021f88 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00021f8c 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word 00021f92 de fc 00 0e | | ADDA.W #0xe,A7 00021f96 52 86 |R | ADDQ.L #0x1,D6 00021f98 bc 81 | | CMP.L D1,D6 00021f9a 6f c6 |o | BLE 0x21f62 00021f9c 42 2e 00 08 |B. | CLR.B (A6+0x8) 00021fa0 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0 00021fa4 02 40 00 10 | @ | ANDI.W #0x0010,D0 00021fa8 67 04 |g | BEQ 0x21fae 00021faa 52 2e 00 08 |R. | ADDQ.B #0x1,(A6+0x8) 00021fae 4c df 01 db |L | MOVEM.L (A7)+,D0+D1+D3+D4+D6+D7+A0 00021fb2 4e 5e |N^ | UNLK A6 00021fb4 4e 75 |Nu | RTS 00021fb6 ; -------------------------------------------------------------------------------------- 00021fb6 ; OMSI PASCAL Function 00021fb6 ; <LVAR 0x008 4(r)> 00021fb6 ; <LVAR -0x008 4(rw)> 00021fb6 ; <LVAR -0x030 @ 1(r)> 00021fb6 ; <LVAR -0x03c @ 2(r)> 00021fb6 ; <LVAR -0x03e 2(r)> 00021fb6 ; <LVAR -0x040 2(r)> 00021fb6 ; <LVAR -0x042 2(w)> 00021fb6 ; <LVAR -0x044 2(r)> 00021fb6 ; <LVAR -0x046 2(r)> 00021fb6 ; <LVAR -0x048 2(w)> 00021fb6 ; <LVAR -0x04a 2(r)> 00021fb6 ; <LVAR -0x04c @ 2(r)> 00021fb6 ; -------------------------------------------------------------------------------------- 00021fb6 4e 56 ff 22 |NV " | LINK.W A6,#0xff22 00021fba bf d5 | | CMPA.L (A5),A7 00021fbc 62 06 |b | BHI 0x21fc4 00021fbe 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021fc2 4e 76 |Nv | TRAPV 00021fc4 de fc 00 8e | | ADDA.W #0x8e,A7 00021fc8 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021fcc 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021fd2 74 01 |t | MOVEQ.L #0x01,D2 00021fd4 76 0c |v | MOVEQ.L #0x0c,D3 00021fd6 78 0f |x | MOVEQ.L #0x0f,D4 00021fd8 7a 1e |z | MOVEQ.L #0x1e,D5 00021fda 42 27 |B' | CLR.B -(A7) 00021fdc 4e b9 00 01 03 ac |N | JSR Set_is_open_ERROR_LOG(a : Bool) 00021fe2 54 4f |TO | ADDQ.L #0x2,A7 00021fe4 23 c2 00 02 00 20 |# | MOVE.L D2,0x20020 00021fea 23 c2 00 01 00 26 |# & | MOVE.L D2,0x10026 00021ff0 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 00021ff4 0c 80 00 00 00 63 | c | CMPI.L #0x00000063,D0 00021ffa 66 40 |f@ | BNE 0x2203c 00021ffc 9e fc 00 28 | ( | SUBA.W #0x28,A7 00022000 20 4f | O | MOVEA.L A7,A0 00022002 43 fa e5 2e |C . | LEA.L 0x20532,A1 00022006 70 26 |p& | MOVEQ.L #0x26,D0 00022008 10 d9 | | MOVE.B (A1)+,(A0)+ 0002200a 51 c8 ff fc |Q | DBF D0,0x22008 0002200e 51 4f |QO | SUBQ.L #0x8,A7 00022010 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022014 3f 02 |? | MOVE.W D2,-(A7) 00022016 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 0002201a 4e 92 |N | JSR (A2) 0002201c 50 4f |PO | ADDQ.L #0x8,A7 0002201e 48 78 00 00 |Hx | PEA.L 0x0 00022022 48 78 00 0f |Hx | PEA.L 0xf 00022026 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 0002202c de c3 | | ADDA.W D3,A7 0002202e 20 1f | | MOVE.L (A7)+,D0 00022030 b0 84 | | CMP.L D4,D0 00022032 63 02 |c | BLS 0x22036 00022034 4e 4f |NO | TRAP #15 00022036 de fc 00 28 | ( | ADDA.W #0x28,A7 0002203a 60 06 |` | BRA 0x22042 0002203c b0 84 | | CMP.L D4,D0 0002203e 63 02 |c | BLS 0x22042 00022040 4e 4f |NO | TRAP #15 00022042 33 c0 00 02 fd 42 |3 B | MOVE.W D0,0x2fd42 00022048 42 6e ff b4 |Bn | CLR.W (A6-0x4c) 0002204c 42 6e ff b6 |Bn | CLR.W (A6-0x4a) 00022050 3d 7c 00 02 ff b8 |=| | MOVE.W #0x2,(A6-0x48) 00022056 42 6e ff ba |Bn | CLR.W (A6-0x46) 0002205a 42 6e ff bc |Bn | CLR.W (A6-0x44) 0002205e 30 39 00 02 fd 42 |09 B | MOVE.W 0x2fd42,D0 00022064 e1 40 | @ | ASL.W #0x8,D0 00022066 0c 40 ff ff | @ | CMPI.W #0xffff,D0 0002206a 63 02 |c | BLS 0x2206e 0002206c 4e 4f |NO | TRAP #15 0002206e 3d 40 ff be |=@ | MOVE.W D0,(A6-0x42) 00022072 42 6e ff c0 |Bn | CLR.W (A6-0x40) 00022076 42 6e ff c2 |Bn | CLR.W (A6-0x3e) 0002207a 48 6e ff b4 |Hn | PEA.L (A6-0x4c) 0002207e 41 ee ff c4 |A | LEA.L (A6-0x3c),A0 00022082 2f 08 |/ | MOVE.L A0,-(A7) 00022084 42 67 |Bg | CLR.W -(A7) 00022086 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 0002208c 50 4f |PO | ADDQ.L #0x8,A7 0002208e 42 57 |BW | CLR.W (A7) 00022090 48 6e ff d0 |Hn | PEA.L (A6-0x30) 00022094 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 0002209a 5c 4f |\O | ADDQ.L #0x6,A7 0002209c 30 2e ff c4 |0. | MOVE.W (A6-0x3c),D0 000220a0 b0 42 | B | CMP.W D2,D0 000220a2 67 22 |g" | BEQ 0x220c6 000220a4 41 fa e5 2a |A * | LEA.L 0x205d0,A0 000220a8 70 0e |p | MOVEQ.L #0x0e,D0 000220aa 3f 20 |? | MOVE.W -(A0),-(A7) 000220ac 51 c8 ff fc |Q | DBF D0,0x220aa 000220b0 59 4f |YO | SUBQ.L #0x4,A7 000220b2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000220b6 3f 02 |? | MOVE.W D2,-(A7) 000220b8 3f 05 |? | MOVE.W D5,-(A7) 000220ba 4e 92 |N | JSR (A2) 000220bc 50 4f |PO | ADDQ.L #0x8,A7 000220be 4e ba ed 80 |N | JSR 0x20e40 000220c2 de fc 00 22 | " | ADDA.W #0x22,A7 000220c6 30 39 00 02 fd 42 |09 B | MOVE.W 0x2fd42,D0 000220cc 41 84 |A | CHK.W D4,D0 000220ce 33 c0 00 01 00 08 |3 | MOVE.W D0,0x10008 000220d4 33 fc 7f ff 00 01 00 0c |3 | MOVE.W #0x7fff,0x1000c 000220dc 33 fc 7f ff 00 01 00 0a |3 | MOVE.W #0x7fff,0x1000a 000220e4 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000220e8 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000220ec 48 78 00 01 |Hx | PEA.L 0x1 000220f0 2f 39 00 02 fb 94 |/9 | MOVE.L 0x2fb94,-(A7) 000220f6 48 6e ff d0 |Hn | PEA.L (A6-0x30) 000220fa 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 00022100 de fc 00 10 | | ADDA.W #0x10,A7 00022104 4a 2e ff d0 |J. | TST.B (A6-0x30) 00022108 66 2a |f* | BNE 0x22134 0002210a 9e fc 00 2a | * | SUBA.W #0x2a,A7 0002210e 20 4f | O | MOVEA.L A7,A0 00022110 43 fa e4 48 |C H | LEA.L 0x2055a,A1 00022114 70 28 |p( | MOVEQ.L #0x28,D0 00022116 10 d9 | | MOVE.B (A1)+,(A0)+ 00022118 51 c8 ff fc |Q | DBF D0,0x22116 0002211c 59 4f |YO | SUBQ.L #0x4,A7 0002211e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022122 3f 02 |? | MOVE.W D2,-(A7) 00022124 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 00022128 4e 92 |N | JSR (A2) 0002212a 50 4f |PO | ADDQ.L #0x8,A7 0002212c 4e ba ed 12 |N | JSR 0x20e40 00022130 de fc 00 2e | . | ADDA.W #0x2e,A7 00022134 30 39 00 02 f7 90 |09 | MOVE.W 0x2f790,D0 0002213a 0c 40 7f ed | @ | CMPI.W #0x7fed,D0 0002213e 67 2a |g* | BEQ 0x2216a 00022140 9e fc 00 14 | | SUBA.W #0x14,A7 00022144 20 4f | O | MOVEA.L A7,A0 00022146 43 fa e4 3c |C < | LEA.L 0x20584,A1 0002214a 70 12 |p | MOVEQ.L #0x12,D0 0002214c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002214e 51 c8 ff fc |Q | DBF D0,0x2214c 00022152 59 4f |YO | SUBQ.L #0x4,A7 00022154 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022158 3f 02 |? | MOVE.W D2,-(A7) 0002215a 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 0002215e 4e 92 |N | JSR (A2) 00022160 50 4f |PO | ADDQ.L #0x8,A7 00022162 4e ba ec dc |N | JSR 0x20e40 00022166 de fc 00 18 | | ADDA.W #0x18,A7 0002216a 30 39 00 02 f7 92 |09 | MOVE.W 0x2f792,D0 00022170 0c 40 00 03 | @ | CMPI.W #0x0003,D0 00022174 67 28 |g( | BEQ 0x2219e 00022176 9e fc 00 1a | | SUBA.W #0x1a,A7 0002217a 20 4f | O | MOVEA.L A7,A0 0002217c 43 fa e4 1a |C | LEA.L 0x20598,A1 00022180 70 18 |p | MOVEQ.L #0x18,D0 00022182 10 d9 | | MOVE.B (A1)+,(A0)+ 00022184 51 c8 ff fc |Q | DBF D0,0x22182 00022188 59 4f |YO | SUBQ.L #0x4,A7 0002218a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002218e 3f 02 |? | MOVE.W D2,-(A7) 00022190 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00022194 4e 92 |N | JSR (A2) 00022196 50 4f |PO | ADDQ.L #0x8,A7 00022198 4e ba ec a6 |N | JSR 0x20e40 0002219c de c5 | | ADDA.W D5,A7 0002219e 23 f9 00 02 f7 96 00 02 |# | MOVE.L 0x2f796,0x2fd44 000221a6 fd 44 | D | 000221a8 4e ba fc f6 |N | JSR 0x21ea0 000221ac 41 f9 00 02 f7 e2 |A | LEA.L 0x2f7e2,A0 000221b2 70 0e |p | MOVEQ.L #0x0e,D0 000221b4 3f 20 |? | MOVE.W -(A0),-(A7) 000221b6 51 c8 ff fc |Q | DBF D0,0x221b4 000221ba 51 4f |QO | SUBQ.L #0x8,A7 000221bc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000221c0 3f 02 |? | MOVE.W D2,-(A7) 000221c2 3f 05 |? | MOVE.W D5,-(A7) 000221c4 4e 92 |N | JSR (A2) 000221c6 50 4f |PO | ADDQ.L #0x8,A7 000221c8 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000221ce 58 4f |XO | ADDQ.L #0x4,A7 000221d0 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 000221d4 de c5 | | ADDA.W D5,A7 000221d6 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000221dc 51 4f |QO | SUBQ.L #0x8,A7 000221de 20 4f | O | MOVEA.L A7,A0 000221e0 43 fa e5 d4 |C | LEA.L 0x207b6,A1 000221e4 70 06 |p | MOVEQ.L #0x06,D0 000221e6 10 d9 | | MOVE.B (A1)+,(A0)+ 000221e8 51 c8 ff fc |Q | DBF D0,0x221e6 000221ec 51 4f |QO | SUBQ.L #0x8,A7 000221ee 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000221f2 3f 02 |? | MOVE.W D2,-(A7) 000221f4 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000221f8 4e 92 |N | JSR (A2) 000221fa 2e ae ff f8 |. | MOVE.L (A6-0x8),(A7) 000221fe 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022204 58 4f |XO | ADDQ.L #0x4,A7 00022206 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002220c 50 4f |PO | ADDQ.L #0x8,A7 0002220e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022214 de c3 | | ADDA.W D3,A7 00022216 30 39 00 02 fd 42 |09 B | MOVE.W 0x2fd42,D0 0002221c 41 84 |A | CHK.W D4,D0 0002221e 3f 00 |? | MOVE.W D0,-(A7) 00022220 4e ba fa 68 |N h | JSR 0x21c8a 00022224 54 4f |TO | ADDQ.L #0x2,A7 00022226 30 39 00 02 fb 8e |09 | MOVE.W 0x2fb8e,D0 0002222c e5 40 | @ | ASL.W #0x2,D0 0002222e 41 f9 00 02 3f 4e |A ?N | LEA.L 0x23f4e,A0 00022234 32 30 00 1a |20 | MOVE.W (A0+D0.W+#0x1a),D1 00022238 b2 79 00 02 fd 44 | y D | CMP.W 0x2fd44,D1 0002223e 66 1a |f | BNE 0x2225a 00022240 12 30 00 1c | 0 | MOVE.B (A0+D0.W+#0x1c),D1 00022244 b2 39 00 02 fd 46 | 9 F | CMP.B 0x2fd46,D1 0002224a 66 0e |f | BNE 0x2225a 0002224c 10 30 00 1d | 0 | MOVE.B (A0+D0.W+#0x1d),D0 00022250 b0 39 00 02 fd 47 | 9 G | CMP.B 0x2fd47,D0 00022256 67 00 03 34 |g 4 | BEQ 0x2258c 0002225a 9e fc 00 32 | 2 | SUBA.W #0x32,A7 0002225e 20 4f | O | MOVEA.L A7,A0 00022260 43 fa e3 6e |C n | LEA.L 0x205d0,A1 00022264 70 30 |p0 | MOVEQ.L #0x30,D0 00022266 10 d9 | | MOVE.B (A1)+,(A0)+ 00022268 51 c8 ff fc |Q | DBF D0,0x22266 0002226c 59 4f |YO | SUBQ.L #0x4,A7 0002226e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022272 3f 02 |? | MOVE.W D2,-(A7) 00022274 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 00022278 4e 92 |N | JSR (A2) 0002227a 50 4f |PO | ADDQ.L #0x8,A7 0002227c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022282 de fc 00 36 | 6 | ADDA.W #0x36,A7 00022286 41 fa e5 52 |A R | LEA.L 0x207da,A0 0002228a 70 06 |p | MOVEQ.L #0x06,D0 0002228c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002228e 51 c8 ff fc |Q | DBF D0,0x2228c 00022292 2f 3a e5 4e |/: N | MOVE.L 0x207e2,-(A7) 00022296 2f 3a e5 46 |/: F | MOVE.L 0x207de,-(A7) 0002229a 2f 3a e5 3e |/: > | MOVE.L 0x207da,-(A7) 0002229e 2f 3a e5 4a |/: J | MOVE.L 0x207ea,-(A7) 000222a2 2f 3a e5 42 |/: B | MOVE.L 0x207e6,-(A7) 000222a6 51 4f |QO | SUBQ.L #0x8,A7 000222a8 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 000222ac 3f 02 |? | MOVE.W D2,-(A7) 000222ae 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 000222b2 4e 92 |N | JSR (A2) 000222b4 58 4f |XO | ADDQ.L #0x4,A7 000222b6 30 39 00 02 fb 8e |09 | MOVE.W 0x2fb8e,D0 000222bc e5 40 | @ | ASL.W #0x2,D0 000222be 41 f9 00 02 3f 4e |A ?N | LEA.L 0x23f4e,A0 000222c4 42 81 |B | CLR.L D1 000222c6 32 30 00 1a |20 | MOVE.W (A0+D0.W+#0x1a),D1 000222ca 2f 01 |/ | MOVE.L D1,-(A7) 000222cc 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000222d2 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000222d6 3f 02 |? | MOVE.W D2,-(A7) 000222d8 3f 03 |? | MOVE.W D3,-(A7) 000222da 4e 92 |N | JSR (A2) 000222dc 58 4f |XO | ADDQ.L #0x4,A7 000222de 30 39 00 02 fb 8e |09 | MOVE.W 0x2fb8e,D0 000222e4 e5 40 | @ | ASL.W #0x2,D0 000222e6 41 f9 00 02 3f 4e |A ?N | LEA.L 0x23f4e,A0 000222ec 42 81 |B | CLR.L D1 000222ee 12 30 00 1c | 0 | MOVE.B (A0+D0.W+#0x1c),D1 000222f2 2f 01 |/ | MOVE.L D1,-(A7) 000222f4 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000222fa 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000222fe 3f 02 |? | MOVE.W D2,-(A7) 00022300 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00022304 4e 92 |N | JSR (A2) 00022306 58 4f |XO | ADDQ.L #0x4,A7 00022308 30 39 00 02 fb 8e |09 | MOVE.W 0x2fb8e,D0 0002230e e5 40 | @ | ASL.W #0x2,D0 00022310 41 f9 00 02 3f 4e |A ?N | LEA.L 0x23f4e,A0 00022316 42 81 |B | CLR.L D1 00022318 12 30 00 1d | 0 | MOVE.B (A0+D0.W+#0x1d),D1 0002231c 2f 01 |/ | MOVE.L D1,-(A7) 0002231e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022324 58 4f |XO | ADDQ.L #0x4,A7 00022326 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 0002232c de fc 00 18 | | ADDA.W #0x18,A7 00022330 28 5f |(_ | MOVEA.L (A7)+,A4 00022332 de fc 00 26 | & | ADDA.W #0x26,A7 00022336 20 4f | O | MOVEA.L A7,A0 00022338 43 fa e4 b4 |C | LEA.L 0x207ee,A1 0002233c 70 08 |p | MOVEQ.L #0x08,D0 0002233e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022340 51 c8 ff fc |Q | DBF D0,0x2233e 00022344 59 4f |YO | SUBQ.L #0x4,A7 00022346 2f 0c |/ | MOVE.L A4,-(A7) 00022348 59 4f |YO | SUBQ.L #0x4,A7 0002234a 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002234e 3f 02 |? | MOVE.W D2,-(A7) 00022350 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00022354 4e 92 |N | JSR (A2) 00022356 50 4f |PO | ADDQ.L #0x8,A7 00022358 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002235e 50 4f |PO | ADDQ.L #0x8,A7 00022360 28 5f |(_ | MOVEA.L (A7)+,A4 00022362 5c 4f |\O | ADDQ.L #0x6,A7 00022364 2e 8c |. | MOVE.L A4,(A7) 00022366 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002236c 9e fc 00 12 | | SUBA.W #0x12,A7 00022370 20 4f | O | MOVEA.L A7,A0 00022372 43 fa e4 84 |C | LEA.L 0x207f8,A1 00022376 70 14 |p | MOVEQ.L #0x14,D0 00022378 10 d9 | | MOVE.B (A1)+,(A0)+ 0002237a 51 c8 ff fc |Q | DBF D0,0x22378 0002237e 2f 3a e4 96 |/: | MOVE.L 0x20816,-(A7) 00022382 2f 3a e4 8e |/: | MOVE.L 0x20812,-(A7) 00022386 2f 3a e4 86 |/: | MOVE.L 0x2080e,-(A7) 0002238a 2f 3a e4 92 |/: | MOVE.L 0x2081e,-(A7) 0002238e 2f 3a e4 8a |/: | MOVE.L 0x2081a,-(A7) 00022392 51 4f |QO | SUBQ.L #0x8,A7 00022394 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 00022398 3f 02 |? | MOVE.W D2,-(A7) 0002239a 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 0002239e 4e 92 |N | JSR (A2) 000223a0 58 4f |XO | ADDQ.L #0x4,A7 000223a2 42 80 |B | CLR.L D0 000223a4 30 39 00 02 fd 44 |09 D | MOVE.W 0x2fd44,D0 000223aa 2f 00 |/ | MOVE.L D0,-(A7) 000223ac 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000223b2 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000223b6 3f 02 |? | MOVE.W D2,-(A7) 000223b8 3f 03 |? | MOVE.W D3,-(A7) 000223ba 4e 92 |N | JSR (A2) 000223bc 58 4f |XO | ADDQ.L #0x4,A7 000223be 42 80 |B | CLR.L D0 000223c0 10 39 00 02 fd 46 | 9 F | MOVE.B 0x2fd46,D0 000223c6 2f 00 |/ | MOVE.L D0,-(A7) 000223c8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000223ce 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000223d2 3f 02 |? | MOVE.W D2,-(A7) 000223d4 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 000223d8 4e 92 |N | JSR (A2) 000223da 58 4f |XO | ADDQ.L #0x4,A7 000223dc 42 80 |B | CLR.L D0 000223de 10 39 00 02 fd 47 | 9 G | MOVE.B 0x2fd47,D0 000223e4 2f 00 |/ | MOVE.L D0,-(A7) 000223e6 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000223ec 58 4f |XO | ADDQ.L #0x4,A7 000223ee 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 000223f4 de fc 00 18 | | ADDA.W #0x18,A7 000223f8 28 5f |(_ | MOVEA.L (A7)+,A4 000223fa de fc 00 20 | | ADDA.W #0x20,A7 000223fe 20 4f | O | MOVEA.L A7,A0 00022400 43 fa e4 20 |C | LEA.L 0x20822,A1 00022404 70 08 |p | MOVEQ.L #0x08,D0 00022406 10 d9 | | MOVE.B (A1)+,(A0)+ 00022408 51 c8 ff fc |Q | DBF D0,0x22406 0002240c 59 4f |YO | SUBQ.L #0x4,A7 0002240e 2f 0c |/ | MOVE.L A4,-(A7) 00022410 59 4f |YO | SUBQ.L #0x4,A7 00022412 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00022416 3f 02 |? | MOVE.W D2,-(A7) 00022418 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002241c 4e 92 |N | JSR (A2) 0002241e 50 4f |PO | ADDQ.L #0x8,A7 00022420 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022426 50 4f |PO | ADDQ.L #0x8,A7 00022428 28 5f |(_ | MOVEA.L (A7)+,A4 0002242a 5c 4f |\O | ADDQ.L #0x6,A7 0002242c 2e 8c |. | MOVE.L A4,(A7) 0002242e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022434 9e c3 | | SUBA.W D3,A7 00022436 20 4f | O | MOVEA.L A7,A0 00022438 43 fa e3 f2 |C | LEA.L 0x2082c,A1 0002243c 70 0e |p | MOVEQ.L #0x0e,D0 0002243e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022440 51 c8 ff fc |Q | DBF D0,0x2243e 00022444 59 4f |YO | SUBQ.L #0x4,A7 00022446 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002244a 3f 02 |? | MOVE.W D2,-(A7) 0002244c 3f 04 |? | MOVE.W D4,-(A7) 0002244e 4e 92 |N | JSR (A2) 00022450 50 4f |PO | ADDQ.L #0x8,A7 00022452 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022458 de fc 00 14 | | ADDA.W #0x14,A7 0002245c 41 fa e3 f2 |A | LEA.L 0x20850,A0 00022460 70 04 |p | MOVEQ.L #0x04,D0 00022462 2f 20 |/ | MOVE.L -(A0),-(A7) 00022464 51 c8 ff fc |Q | DBF D0,0x22462 00022468 59 4f |YO | SUBQ.L #0x4,A7 0002246a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002246e 3f 02 |? | MOVE.W D2,-(A7) 00022470 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 00022474 4e 92 |N | JSR (A2) 00022476 50 4f |PO | ADDQ.L #0x8,A7 00022478 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002247e 55 4f |UO | SUBQ.L #0x2,A7 00022480 20 4f | O | MOVEA.L A7,A0 00022482 43 fa e3 cc |C | LEA.L 0x20850,A1 00022486 70 18 |p | MOVEQ.L #0x18,D0 00022488 10 d9 | | MOVE.B (A1)+,(A0)+ 0002248a 51 c8 ff fc |Q | DBF D0,0x22488 0002248e 59 4f |YO | SUBQ.L #0x4,A7 00022490 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022494 3f 02 |? | MOVE.W D2,-(A7) 00022496 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 0002249a 4e 92 |N | JSR (A2) 0002249c 50 4f |PO | ADDQ.L #0x8,A7 0002249e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000224a4 de c5 | | ADDA.W D5,A7 000224a6 41 fa e3 dc |A | LEA.L 0x20884,A0 000224aa 70 0c |p | MOVEQ.L #0x0c,D0 000224ac 3f 20 |? | MOVE.W -(A0),-(A7) 000224ae 51 c8 ff fc |Q | DBF D0,0x224ac 000224b2 59 4f |YO | SUBQ.L #0x4,A7 000224b4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000224b8 3f 02 |? | MOVE.W D2,-(A7) 000224ba 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 000224be 4e 92 |N | JSR (A2) 000224c0 50 4f |PO | ADDQ.L #0x8,A7 000224c2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000224c8 de c5 | | ADDA.W D5,A7 000224ca 41 fa e3 ce |A | LEA.L 0x2089a,A0 000224ce 70 0a |p | MOVEQ.L #0x0a,D0 000224d0 3f 20 |? | MOVE.W -(A0),-(A7) 000224d2 51 c8 ff fc |Q | DBF D0,0x224d0 000224d6 51 4f |QO | SUBQ.L #0x8,A7 000224d8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000224dc 3f 02 |? | MOVE.W D2,-(A7) 000224de 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 000224e2 4e 92 |N | JSR (A2) 000224e4 50 4f |PO | ADDQ.L #0x8,A7 000224e6 48 78 00 00 |Hx | PEA.L 0x0 000224ea 48 78 00 02 |Hx | PEA.L 0x2 000224ee 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000224f4 de c3 | | ADDA.W D3,A7 000224f6 2c 1f |, | MOVE.L (A7)+,D6 000224f8 de fc 00 16 | | ADDA.W #0x16,A7 000224fc 20 06 | | MOVE.L D6,D0 000224fe 0c 80 00 00 00 02 | | CMPI.L #0x00000002,D0 00022504 63 02 |c | BLS 0x22508 00022506 4e 4e |NN | TRAP #14 00022508 d0 40 | @ | ADD.W D0,D0 0002250a 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00022512 00 06 | | .CONST 0x6 ; [0x0] -> 0x22518 00022514 00 0c | | .CONST 0xc ; [0x1] -> 0x2251e 00022516 00 34 | 4 | .CONST 0x34 ; [0x2] -> 0x22546 00022518 switch@0x2250a[0x0]: 00022518 4e ba e9 88 |N | JSR 0x20ea2 0002251c 60 68 |`h | BRA 0x22586 0002251e switch@0x2250a[0x1]: 0002251e 30 39 00 02 fb 8e |09 | MOVE.W 0x2fb8e,D0 00022524 e5 40 | @ | ASL.W #0x2,D0 00022526 41 f9 00 02 3f 4e |A ?N | LEA.L 0x23f4e,A0 0002252c 33 f0 00 1a 00 02 fd 44 |3 D| MOVE.W (A0+D0.W+#0x1a),0x2fd44 00022534 13 f0 00 1c 00 02 fd 46 | F| MOVE.B (A0+D0.W+#0x1c),0x2fd46 0002253c 13 f0 00 1d 00 02 fd 47 | G| MOVE.B (A0+D0.W+#0x1d),0x2fd47 00022544 60 40 |`@ | BRA 0x22586 00022546 switch@0x2250a[0x2]: 00022546 42 79 00 02 fb 8e |By | CLR.W 0x2fb8e 0002254c 7e 05 |~ | MOVEQ.L #0x05,D7 0002254e 30 07 |0 | MOVE.W D7,D0 00022550 e5 40 | @ | ASL.W #0x2,D0 00022552 41 f9 00 02 3f 4e |A ?N | LEA.L 0x23f4e,A0 00022558 32 30 00 1a |20 | MOVE.W (A0+D0.W+#0x1a),D1 0002255c b2 79 00 02 fd 44 | y D | CMP.W 0x2fd44,D1 00022562 66 1e |f | BNE 0x22582 00022564 12 30 00 1c | 0 | MOVE.B (A0+D0.W+#0x1c),D1 00022568 b2 39 00 02 fd 46 | 9 F | CMP.B 0x2fd46,D1 0002256e 66 12 |f | BNE 0x22582 00022570 10 30 00 1d | 0 | MOVE.B (A0+D0.W+#0x1d),D0 00022574 b0 39 00 02 fd 47 | 9 G | CMP.B 0x2fd47,D0 0002257a 66 06 |f | BNE 0x22582 0002257c 33 c7 00 02 fb 8e |3 | MOVE.W D7,0x2fb8e 00022582 53 47 |SG | SUBQ.W #0x1,D7 00022584 6c c8 |l | BGE 0x2254e 00022586 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002258c 55 4f |UO | SUBQ.L #0x2,A7 0002258e 4e ba f9 6e |N n | JSR 0x21efe 00022592 4a 1f |J | TST.B (A7)+ 00022594 67 7e |g~ | BEQ 0x22614 00022596 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002259c 41 fa e1 b6 |A | LEA.L 0x20754,A0 000225a0 70 11 |p | MOVEQ.L #0x11,D0 000225a2 2f 20 |/ | MOVE.L -(A0),-(A7) 000225a4 51 c8 ff fc |Q | DBF D0,0x225a2 000225a8 59 4f |YO | SUBQ.L #0x4,A7 000225aa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000225ae 3f 02 |? | MOVE.W D2,-(A7) 000225b0 3f 3c 00 48 |?< H | MOVE.W #0x48,-(A7) 000225b4 4e 92 |N | JSR (A2) 000225b6 50 4f |PO | ADDQ.L #0x8,A7 000225b8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000225be de fc 00 4c | L | ADDA.W #0x4c,A7 000225c2 41 fa e1 bc |A | LEA.L 0x20780,A0 000225c6 70 0a |p | MOVEQ.L #0x0a,D0 000225c8 2f 20 |/ | MOVE.L -(A0),-(A7) 000225ca 51 c8 ff fc |Q | DBF D0,0x225c8 000225ce 59 4f |YO | SUBQ.L #0x4,A7 000225d0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000225d4 3f 02 |? | MOVE.W D2,-(A7) 000225d6 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7) 000225da 4e 92 |N | JSR (A2) 000225dc 50 4f |PO | ADDQ.L #0x8,A7 000225de 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000225e4 de fc 00 30 | 0 | ADDA.W #0x30,A7 000225e8 41 fa e1 6a |A j | LEA.L 0x20754,A0 000225ec 70 11 |p | MOVEQ.L #0x11,D0 000225ee 2f 20 |/ | MOVE.L -(A0),-(A7) 000225f0 51 c8 ff fc |Q | DBF D0,0x225ee 000225f4 59 4f |YO | SUBQ.L #0x4,A7 000225f6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000225fa 3f 02 |? | MOVE.W D2,-(A7) 000225fc 3f 3c 00 48 |?< H | MOVE.W #0x48,-(A7) 00022600 4e 92 |N | JSR (A2) 00022602 50 4f |PO | ADDQ.L #0x8,A7 00022604 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002260a de fc 00 4c | L | ADDA.W #0x4c,A7 0002260e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00022614 9e fc 00 10 | | SUBA.W #0x10,A7 00022618 20 4f | O | MOVEA.L A7,A0 0002261a 43 fa e2 7e |C ~ | LEA.L 0x2089a,A1 0002261e 70 0e |p | MOVEQ.L #0x0e,D0 00022620 10 d9 | | MOVE.B (A1)+,(A0)+ 00022622 51 c8 ff fc |Q | DBF D0,0x22620 00022626 2f 3a e2 8a |/: | MOVE.L 0x208b2,-(A7) 0002262a 2f 3a e2 82 |/: | MOVE.L 0x208ae,-(A7) 0002262e 2f 3a e2 7a |/: z | MOVE.L 0x208aa,-(A7) 00022632 2f 3a e2 86 |/: | MOVE.L 0x208ba,-(A7) 00022636 2f 3a e2 7e |/: ~ | MOVE.L 0x208b6,-(A7) 0002263a 51 4f |QO | SUBQ.L #0x8,A7 0002263c 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 00022640 3f 02 |? | MOVE.W D2,-(A7) 00022642 3f 04 |? | MOVE.W D4,-(A7) 00022644 4e 92 |N | JSR (A2) 00022646 58 4f |XO | ADDQ.L #0x4,A7 00022648 42 80 |B | CLR.L D0 0002264a 30 39 00 02 fd 44 |09 D | MOVE.W 0x2fd44,D0 00022650 2f 00 |/ | MOVE.L D0,-(A7) 00022652 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022658 48 6f 00 18 |Ho | PEA.L (A7+0x18) 0002265c 3f 02 |? | MOVE.W D2,-(A7) 0002265e 3f 03 |? | MOVE.W D3,-(A7) 00022660 4e 92 |N | JSR (A2) 00022662 58 4f |XO | ADDQ.L #0x4,A7 00022664 42 80 |B | CLR.L D0 00022666 10 39 00 02 fd 46 | 9 F | MOVE.B 0x2fd46,D0 0002266c 2f 00 |/ | MOVE.L D0,-(A7) 0002266e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022674 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00022678 3f 02 |? | MOVE.W D2,-(A7) 0002267a 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 0002267e 4e 92 |N | JSR (A2) 00022680 58 4f |XO | ADDQ.L #0x4,A7 00022682 42 80 |B | CLR.L D0 00022684 10 39 00 02 fd 47 | 9 G | MOVE.B 0x2fd47,D0 0002268a 2f 00 |/ | MOVE.L D0,-(A7) 0002268c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022692 58 4f |XO | ADDQ.L #0x4,A7 00022694 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 0002269a de fc 00 18 | | ADDA.W #0x18,A7 0002269e 28 5f |(_ | MOVEA.L (A7)+,A4 000226a0 de fc 00 1a | | ADDA.W #0x1a,A7 000226a4 20 4f | O | MOVEA.L A7,A0 000226a6 43 fa e2 16 |C | LEA.L 0x208be,A1 000226aa 70 08 |p | MOVEQ.L #0x08,D0 000226ac 10 d9 | | MOVE.B (A1)+,(A0)+ 000226ae 51 c8 ff fc |Q | DBF D0,0x226ac 000226b2 59 4f |YO | SUBQ.L #0x4,A7 000226b4 2f 0c |/ | MOVE.L A4,-(A7) 000226b6 59 4f |YO | SUBQ.L #0x4,A7 000226b8 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000226bc 3f 02 |? | MOVE.W D2,-(A7) 000226be 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 000226c2 4e 92 |N | JSR (A2) 000226c4 50 4f |PO | ADDQ.L #0x8,A7 000226c6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000226cc 50 4f |PO | ADDQ.L #0x8,A7 000226ce 28 5f |(_ | MOVEA.L (A7)+,A4 000226d0 5c 4f |\O | ADDQ.L #0x6,A7 000226d2 2e 8c |. | MOVE.L A4,(A7) 000226d4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000226da 58 4f |XO | ADDQ.L #0x4,A7 000226dc 30 39 00 02 fb 8e |09 | MOVE.W 0x2fb8e,D0 000226e2 0c 40 00 05 | @ | CMPI.W #0x0005,D0 000226e6 63 02 |c | BLS 0x226ea 000226e8 4e 4e |NN | TRAP #14 000226ea d0 40 | @ | ADD.W D0,D0 000226ec 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000226f4 00 0c | | .CONST 0xc ; [0x0] -> 0x22700 000226f6 00 36 | 6 | .CONST 0x36 ; [0x1] -> 0x2272a 000226f8 00 64 | d | .CONST 0x64 ; [0x2] -> 0x22758 000226fa 00 78 | x | .CONST 0x78 ; [0x3] -> 0x2276c 000226fc 00 86 | | .CONST 0x86 ; [0x4] -> 0x2277a 000226fe 00 94 | | .CONST 0x94 ; [0x5] -> 0x22788 00022700 switch@0x226ec[0x0]: 00022700 41 fa df 2a |A * | LEA.L 0x2062c,A0 00022704 70 14 |p | MOVEQ.L #0x14,D0 00022706 3f 20 |? | MOVE.W -(A0),-(A7) 00022708 51 c8 ff fc |Q | DBF D0,0x22706 0002270c 59 4f |YO | SUBQ.L #0x4,A7 0002270e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022712 3f 02 |? | MOVE.W D2,-(A7) 00022714 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 00022718 4e 92 |N | JSR (A2) 0002271a 50 4f |PO | ADDQ.L #0x8,A7 0002271c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022722 de fc 00 2e | . | ADDA.W #0x2e,A7 00022726 60 00 00 86 |` | BRA 0x227ae 0002272a switch@0x226ec[0x1]: 0002272a 9e fc 00 28 | ( | SUBA.W #0x28,A7 0002272e 20 4f | O | MOVEA.L A7,A0 00022730 43 fa de fa |C | LEA.L 0x2062c,A1 00022734 70 26 |p& | MOVEQ.L #0x26,D0 00022736 10 d9 | | MOVE.B (A1)+,(A0)+ 00022738 51 c8 ff fc |Q | DBF D0,0x22736 0002273c 59 4f |YO | SUBQ.L #0x4,A7 0002273e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022742 3f 02 |? | MOVE.W D2,-(A7) 00022744 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00022748 4e 92 |N | JSR (A2) 0002274a 50 4f |PO | ADDQ.L #0x8,A7 0002274c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022752 de fc 00 2c | , | ADDA.W #0x2c,A7 00022756 60 56 |`V | BRA 0x227ae 00022758 switch@0x226ec[0x2]: 00022758 9e fc 00 28 | ( | SUBA.W #0x28,A7 0002275c 20 4f | O | MOVEA.L A7,A0 0002275e 43 fa de f4 |C | LEA.L 0x20654,A1 00022762 70 26 |p& | MOVEQ.L #0x26,D0 00022764 10 d9 | | MOVE.B (A1)+,(A0)+ 00022766 51 c8 ff fc |Q | DBF D0,0x22764 0002276a 60 d0 |` | BRA 0x2273c 0002276c switch@0x226ec[0x3]: 0002276c 41 fa df 3e |A > | LEA.L 0x206ac,A0 00022770 70 0b |p | MOVEQ.L #0x0b,D0 00022772 2f 20 |/ | MOVE.L -(A0),-(A7) 00022774 51 c8 ff fc |Q | DBF D0,0x22772 00022778 60 1a |` | BRA 0x22794 0002277a switch@0x226ec[0x4]: 0002277a 41 fa df 60 |A ` | LEA.L 0x206dc,A0 0002277e 70 0b |p | MOVEQ.L #0x0b,D0 00022780 2f 20 |/ | MOVE.L -(A0),-(A7) 00022782 51 c8 ff fc |Q | DBF D0,0x22780 00022786 60 0c |` | BRA 0x22794 00022788 switch@0x226ec[0x5]: 00022788 41 fa df 82 |A | LEA.L 0x2070c,A0 0002278c 70 0b |p | MOVEQ.L #0x0b,D0 0002278e 2f 20 |/ | MOVE.L -(A0),-(A7) 00022790 51 c8 ff fc |Q | DBF D0,0x2278e 00022794 59 4f |YO | SUBQ.L #0x4,A7 00022796 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002279a 3f 02 |? | MOVE.W D2,-(A7) 0002279c 3f 3c 00 30 |?< 0 | MOVE.W #0x30,-(A7) 000227a0 4e 92 |N | JSR (A2) 000227a2 50 4f |PO | ADDQ.L #0x8,A7 000227a4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000227aa de fc 00 34 | 4 | ADDA.W #0x34,A7 000227ae 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 000227b2 0c 80 00 00 00 63 | c | CMPI.L #0x00000063,D0 000227b8 66 32 |f2 | BNE 0x227ec 000227ba 41 fa e1 2c |A , | LEA.L 0x208e8,A0 000227be 70 07 |p | MOVEQ.L #0x07,D0 000227c0 2f 20 |/ | MOVE.L -(A0),-(A7) 000227c2 51 c8 ff fc |Q | DBF D0,0x227c0 000227c6 5d 4f |]O | SUBQ.L #0x6,A7 000227c8 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000227cc 3f 02 |? | MOVE.W D2,-(A7) 000227ce 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 000227d2 4e 92 |N | JSR (A2) 000227d4 5c 4f |\O | ADDQ.L #0x6,A7 000227d6 1e 82 | | MOVE.B D2,(A7) 000227d8 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 000227de 5c 4f |\O | ADDQ.L #0x6,A7 000227e0 4a 1f |J | TST.B (A7)+ 000227e2 66 04 |f | BNE 0x227e8 000227e4 4e ba e6 bc |N | JSR 0x20ea2 000227e8 de fc 00 20 | | ADDA.W #0x20,A7 000227ec 42 80 |B | CLR.L D0 000227ee 10 39 00 02 fd 47 | 9 G | MOVE.B 0x2fd47,D0 000227f4 32 3c 01 02 |2< | MOVE.W #0x102,D1 000227f8 c2 c0 | | MULU.W D0,D1 000227fa 44 81 |D | NEG.L D1 000227fc 02 81 00 00 ff ff | | ANDI.L #0x0000ffff,D1 00022802 33 c1 00 02 fd 48 |3 H | MOVE.W D1,0x2fd48 00022808 41 f9 00 02 3f 80 |A ? | LEA.L 0x23f80,A0 0002280e 26 48 |&H | MOVEA.L A0,A3 00022810 2f 0b |/ | MOVE.L A3,-(A7) 00022812 22 1f |" | MOVE.L (A7)+,D1 00022814 02 81 00 00 03 ff | | ANDI.L #0x000003ff,D1 0002281a 33 c1 00 02 3f 56 |3 ?V | MOVE.W D1,0x23f56 00022820 32 39 00 02 fd 42 |29 B | MOVE.W 0x2fd42,D1 00022826 0c 41 ff ff | A | CMPI.W #0xffff,D1 0002282a 63 02 |c | BLS 0x2282e 0002282c 4e 4f |NO | TRAP #15 0002282e 33 c1 00 02 3f 66 |3 ?f | MOVE.W D1,0x23f66 00022834 33 fc 00 3b 00 02 3f 62 |3 ; ?b| MOVE.W #0x3b,0x23f62 0002283c 33 fc 00 33 00 02 3f 64 |3 3 ?d| MOVE.W #0x33,0x23f64 00022844 23 fc 00 00 93 03 00 02 |# | MOVE.L #0x9303,0x23f5e 0002284c 3f 5e |?^ | 0002284e 22 39 00 02 3f 5e |"9 ?^ | MOVE.L 0x23f5e,D1 00022854 e1 81 | | ASL.L #0x8,D1 00022856 e1 81 | | ASL.L #0x8,D1 00022858 23 c1 00 02 3f 5e |# ?^ | MOVE.L D1,0x23f5e 0002285e 06 81 00 00 fd c0 | | ADDI.L #0x0000fdc0,D1 00022864 23 c1 00 02 3f 5e |# ?^ | MOVE.L D1,0x23f5e 0002286a 54 40 |T@ | ADDQ.W #0x2,D0 0002286c e2 40 | @ | ASR.W #0x1,D0 0002286e c1 fc 01 00 | | MULS.W #0x100,D0 00022872 33 c0 00 02 c8 96 |3 | MOVE.W D0,0x2c896 00022878 42 79 00 02 c8 98 |By | CLR.W 0x2c898 0002287e 33 fc 00 02 00 02 c8 9a |3 | MOVE.W #0x2,0x2c89a 00022886 42 79 00 02 c8 9c |By | CLR.W 0x2c89c 0002288c 42 79 00 02 c8 9e |By | CLR.W 0x2c89e 00022892 30 39 00 02 fd 42 |09 B | MOVE.W 0x2fd42,D0 00022898 e1 40 | @ | ASL.W #0x8,D0 0002289a 54 40 |T@ | ADDQ.W #0x2,D0 0002289c 0c 40 ff ff | @ | CMPI.W #0xffff,D0 000228a0 63 02 |c | BLS 0x228a4 000228a2 4e 4f |NO | TRAP #15 000228a4 33 c0 00 02 c8 a0 |3 | MOVE.W D0,0x2c8a0 000228aa 42 79 00 02 c8 a2 |By | CLR.W 0x2c8a2 000228b0 42 79 00 02 c8 a4 |By | CLR.W 0x2c8a4 000228b6 41 f9 00 02 3f 80 |A ? | LEA.L 0x23f80,A0 000228bc 2f 08 |/ | MOVE.L A0,-(A7) 000228be 23 df 00 02 c8 a6 |# | MOVE.L (A7)+,0x2c8a6 000228c4 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000228c8 4e 5e |N^ | UNLK A6 000228ca 4e 75 |Nu | RTS 000228cc ; -------------------------------------------------------------------------------------- 000228cc ; OMSI PASCAL Function 000228cc ; <LVAR 0x016 4(r)> 000228cc ; <LVAR 0x012 4(r)> 000228cc ; <LVAR 0x00e 4(r)> 000228cc ; <LVAR 0x00c 1(r)> 000228cc ; <LVAR 0x008 4(r)> 000228cc ; <LVAR -0x008 2(w)> 000228cc ; <LVAR -0x00a 2(w)> 000228cc ; <LVAR -0x00c 2(w)> 000228cc ; <LVAR -0x00e 2(r)> 000228cc ; <LVAR -0x010 2(r)> 000228cc ; <LVAR -0x012 2(w)> 000228cc ; <LVAR -0x014 2(r)> 000228cc ; <LVAR -0x016 @ 2(w)> 000228cc ; -------------------------------------------------------------------------------------- 000228cc 4e 56 ff ae |NV | LINK.W A6,#0xffae 000228d0 bf d5 | | CMPA.L (A5),A7 000228d2 62 06 |b | BHI 0x228da 000228d4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000228d8 4e 76 |Nv | TRAPV 000228da de fc 00 3c | < | ADDA.W #0x3c,A7 000228de 48 e7 e0 c8 |H | MOVEM.L A4+A1+A0+D2+D1+D0,-(A7) 000228e2 24 3c 00 00 ff ff |$< | MOVE.L #0xffff,D2 000228e8 42 6e ff ec |Bn | CLR.W (A6-0x14) 000228ec 3d 7c 00 02 ff ee |=| | MOVE.W #0x2,(A6-0x12) 000228f2 42 6e ff f0 |Bn | CLR.W (A6-0x10) 000228f6 42 6e ff f2 |Bn | CLR.W (A6-0xe) 000228fa 30 39 00 02 fd 42 |09 B | MOVE.W 0x2fd42,D0 00022900 e1 40 | @ | ASL.W #0x8,D0 00022902 12 2e 00 0c | . | MOVE.B (A6+0xc),D1 00022906 48 81 |H | EXTB.W D1 00022908 d0 41 | A | ADD.W D1,D0 0002290a b0 42 | B | CMP.W D2,D0 0002290c 63 02 |c | BLS 0x22910 0002290e 4e 4f |NO | TRAP #15 00022910 3d 40 ff f4 |=@ | MOVE.W D0,(A6-0xc) 00022914 20 2e 00 16 | . | MOVE.L (A6+0x16),D0 00022918 b0 82 | | CMP.L D2,D0 0002291a 63 02 |c | BLS 0x2291e 0002291c 4e 4f |NO | TRAP #15 0002291e 3d 40 ff f6 |=@ | MOVE.W D0,(A6-0xa) 00022922 20 2e 00 12 | . | MOVE.L (A6+0x12),D0 00022926 e1 80 | | ASL.L #0x8,D0 00022928 d0 ae 00 0e | | ADD.L (A6+0xe),D0 0002292c b0 82 | | CMP.L D2,D0 0002292e 63 02 |c | BLS 0x22932 00022930 4e 4f |NO | TRAP #15 00022932 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00022936 55 41 |UA | SUBQ.W #0x2,D1 00022938 0c 41 00 06 | A | CMPI.W #0x0006,D1 0002293c 62 22 |b" | BHI switch@0x22940[0x1] 0002293e d2 41 | A | ADD.W D1,D1 00022940 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 00022948 00 0e | | .CONST 0xe ; [0x0] -> 0x22956 0002294a 00 18 | | .CONST 0x18 ; [0x1] -> 0x22960 0002294c 00 18 | | .CONST 0x18 ; [0x2] -> 0x22960 0002294e 00 18 | | .CONST 0x18 ; [0x3] -> 0x22960 00022950 00 18 | | .CONST 0x18 ; [0x4] -> 0x22960 00022952 00 18 | | .CONST 0x18 ; [0x5] -> 0x22960 00022954 00 16 | | .CONST 0x16 ; [0x6] -> 0x2295e 00022956 switch@0x22940[0x0]: 00022956 3d 7c 01 00 ff ea |=| | MOVE.W #0x100,(A6-0x16) 0002295c 60 32 |`2 | BRA 0x22990 0002295e switch@0x22940[0x6]: 0002295e 60 f6 |` | BRA switch@0x22940[0x0] 00022960 switch@0x22940[0x1]: 00022960 switch@0x22940[0x2]: 00022960 switch@0x22940[0x3]: 00022960 switch@0x22940[0x4]: 00022960 switch@0x22940[0x5]: 00022960 9e fc 00 14 | | SUBA.W #0x14,A7 00022964 20 4f | O | MOVEA.L A7,A0 00022966 43 fa df ae |C | LEA.L 0x20916,A1 0002296a 70 12 |p | MOVEQ.L #0x12,D0 0002296c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002296e 51 c8 ff fc |Q | DBF D0,0x2296c 00022972 59 4f |YO | SUBQ.L #0x4,A7 00022974 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022978 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002297c 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00022980 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022986 50 4f |PO | ADDQ.L #0x8,A7 00022988 4e ba e4 b6 |N | JSR 0x20e40 0002298c de fc 00 18 | | ADDA.W #0x18,A7 00022990 41 f9 00 02 3f 80 |A ? | LEA.L 0x23f80,A0 00022996 2f 08 |/ | MOVE.L A0,-(A7) 00022998 28 5f |(_ | MOVEA.L (A7)+,A4 0002299a 48 6e ff ea |Hn | PEA.L (A6-0x16) 0002299e 2f 0c |/ | MOVE.L A4,-(A7) 000229a0 42 67 |Bg | CLR.W -(A7) 000229a2 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000229a8 de fc 00 0a | | ADDA.W #0xa,A7 000229ac 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000229b0 42 67 |Bg | CLR.W -(A7) 000229b2 48 50 |HP | PEA.L (A0) 000229b4 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000229ba 5c 4f |\O | ADDQ.L #0x6,A7 000229bc 4c df 13 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A4 000229c0 4e 5e |N^ | UNLK A6 000229c2 4e 75 |Nu | RTS 000229c4 ; -------------------------------------------------------------------------------------- 000229c4 ; OMSI PASCAL Function 000229c4 ; <LVAR 0x008 4(r)> 000229c4 ; <LVAR -0x004 @ 2(r)> 000229c4 ; -------------------------------------------------------------------------------------- 000229c4 4e 56 ff c2 |NV | LINK.W A6,#0xffc2 000229c8 bf d5 | | CMPA.L (A5),A7 000229ca 62 06 |b | BHI 0x229d2 000229cc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000229d0 4e 76 |Nv | TRAPV 000229d2 de fc 00 32 | 2 | ADDA.W #0x32,A7 000229d6 48 e7 f0 e0 |H | MOVEM.L A2+A1+A0+D3+D2+D1+D0,-(A7) 000229da 45 f9 00 02 3f 5e |E ?^ | LEA.L 0x23f5e,A2 000229e0 72 05 |r | MOVEQ.L #0x05,D1 000229e2 74 01 |t | MOVEQ.L #0x01,D2 000229e4 76 02 |v | MOVEQ.L #0x02,D3 000229e6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000229ea 2f 12 |/ | MOVE.L (A2),-(A7) 000229ec 3f 01 |? | MOVE.W D1,-(A7) 000229ee 22 48 |"H | MOVEA.L A0,A1 000229f0 2f 09 |/ | MOVE.L A1,-(A7) 000229f2 3f 02 |? | MOVE.W D2,-(A7) 000229f4 3f 03 |? | MOVE.W D3,-(A7) 000229f6 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word 000229fc de fc 00 0a | | ADDA.W #0xa,A7 00022a00 2e 92 |. | MOVE.L (A2),(A7) 00022a02 3f 01 |? | MOVE.W D1,-(A7) 00022a04 43 ee ff fc |C | LEA.L (A6-0x4),A1 00022a08 2f 09 |/ | MOVE.L A1,-(A7) 00022a0a 3f 02 |? | MOVE.W D2,-(A7) 00022a0c 3f 03 |? | MOVE.W D3,-(A7) 00022a0e 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word 00022a14 de fc 00 0e | | ADDA.W #0xe,A7 00022a18 30 2e ff fc |0. | MOVE.W (A6-0x4),D0 00022a1c b0 50 | P | CMP.W (A0),D0 00022a1e 66 c6 |f | BNE 0x229e6 00022a20 4c df 07 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2 00022a24 4e 5e |N^ | UNLK A6 00022a26 4e 75 |Nu | RTS 00022a28 ; -------------------------------------------------------------------------------------- 00022a28 ; OMSI PASCAL Function 00022a28 ; <LVAR 0x010 4(r)> 00022a28 ; <LVAR 0x00c 4(r)> 00022a28 ; <LVAR 0x008 4(r)> 00022a28 ; <LVAR -0x006 4(w)> 00022a28 ; <LVAR -0x00a 4(w)> 00022a28 ; <LVAR -0x00e 4(w)> 00022a28 ; <LVAR -0x012 @ 4(w)> 00022a28 ; <LVAR -0x014 @ 2(w)> 00022a28 ; <LVAR -0x016 @ 2(w)> 00022a28 ; <LVAR -0x018 @ 2(rw)> 00022a28 ; -------------------------------------------------------------------------------------- 00022a28 4e 56 ff aa |NV | LINK.W A6,#0xffaa 00022a2c bf d5 | | CMPA.L (A5),A7 00022a2e 62 06 |b | BHI 0x22a36 00022a30 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022a34 4e 76 |Nv | TRAPV 00022a36 de fc 00 3e | > | ADDA.W #0x3e,A7 00022a3a 48 e7 fe f0 |H | MOVEM.L A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022a3e 43 f9 00 02 3f 5e |C ?^ | LEA.L 0x23f5e,A1 00022a44 45 f9 00 01 02 3a |E : | LEA.L KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word,A2 00022a4a 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00022a4e 72 01 |r | MOVEQ.L #0x01,D1 00022a50 74 05 |t | MOVEQ.L #0x05,D2 00022a52 7a 02 |z | MOVEQ.L #0x02,D5 00022a54 7c 0e || | MOVEQ.L #0x0e,D6 00022a56 2d 79 00 02 c8 96 ff ee |-y | MOVE.L 0x2c896,(A6-0x12) 00022a5e 2d 79 00 02 c8 9a ff f2 |-y | MOVE.L 0x2c89a,(A6-0xe) 00022a66 2d 79 00 02 c8 9e ff f6 |-y | MOVE.L 0x2c89e,(A6-0xa) 00022a6e 2d 79 00 02 c8 a2 ff fa |-y | MOVE.L 0x2c8a2,(A6-0x6) 00022a76 48 6e ff ee |Hn | PEA.L (A6-0x12) 00022a7a 2f 39 00 02 c8 a6 |/9 | MOVE.L 0x2c8a6,-(A7) 00022a80 42 67 |Bg | CLR.W -(A7) 00022a82 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00022a88 de fc 00 0a | | ADDA.W #0xa,A7 00022a8c 28 2e 00 10 |(. | MOVE.L (A6+0x10),D4 00022a90 26 3c 00 01 00 00 |&< | MOVE.L #0x10000,D3 00022a96 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00022a9c 02 83 00 00 ff ff | | ANDI.L #0x0000ffff,D3 00022aa2 3d 43 ff ea |=C | MOVE.W D3,(A6-0x16) 00022aa6 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00022aaa e1 80 | | ASL.L #0x8,D0 00022aac 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022ab2 63 02 |c | BLS 0x22ab6 00022ab4 4e 4f |NO | TRAP #15 00022ab6 3d 40 ff ec |=@ | MOVE.W D0,(A6-0x14) 00022aba 42 67 |Bg | CLR.W -(A7) 00022abc 20 53 | S | MOVEA.L (A3),A0 00022abe 48 50 |HP | PEA.L (A0) 00022ac0 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00022ac6 5c 4f |\O | ADDQ.L #0x6,A7 00022ac8 41 f9 00 02 3f 66 |A ?f | LEA.L 0x23f66,A0 00022ace 2f 08 |/ | MOVE.L A0,-(A7) 00022ad0 3f 01 |? | MOVE.W D1,-(A7) 00022ad2 2f 11 |/ | MOVE.L (A1),-(A7) 00022ad4 50 97 |P | ADDQ.L #0x8,(A7) 00022ad6 3f 02 |? | MOVE.W D2,-(A7) 00022ad8 3f 05 |? | MOVE.W D5,-(A7) 00022ada 4e 92 |N | JSR (A2) 00022adc de c6 | | ADDA.W D6,A7 00022ade 41 ee ff ea |A | LEA.L (A6-0x16),A0 00022ae2 2f 08 |/ | MOVE.L A0,-(A7) 00022ae4 3f 01 |? | MOVE.W D1,-(A7) 00022ae6 2f 11 |/ | MOVE.L (A1),-(A7) 00022ae8 06 97 00 00 00 1c | | ADDI.L #0x0000001c,(A7) 00022aee 3f 02 |? | MOVE.W D2,-(A7) 00022af0 3f 05 |? | MOVE.W D5,-(A7) 00022af2 4e 92 |N | JSR (A2) 00022af4 de c6 | | ADDA.W D6,A7 00022af6 41 ee ff ec |A | LEA.L (A6-0x14),A0 00022afa 2f 08 |/ | MOVE.L A0,-(A7) 00022afc 3f 01 |? | MOVE.W D1,-(A7) 00022afe 2f 11 |/ | MOVE.L (A1),-(A7) 00022b00 5c 97 |\ | ADDQ.L #0x6,(A7) 00022b02 3f 02 |? | MOVE.W D2,-(A7) 00022b04 3f 05 |? | MOVE.W D5,-(A7) 00022b06 4e 92 |N | JSR (A2) 00022b08 de c6 | | ADDA.W D6,A7 00022b0a 41 f9 00 02 3f 56 |A ?V | LEA.L 0x23f56,A0 00022b10 2f 08 |/ | MOVE.L A0,-(A7) 00022b12 3f 01 |? | MOVE.W D1,-(A7) 00022b14 2f 11 |/ | MOVE.L (A1),-(A7) 00022b16 58 97 |X | ADDQ.L #0x4,(A7) 00022b18 3f 02 |? | MOVE.W D2,-(A7) 00022b1a 3f 05 |? | MOVE.W D5,-(A7) 00022b1c 4e 92 |N | JSR (A2) 00022b1e de c6 | | ADDA.W D6,A7 00022b20 41 f9 00 02 fd 48 |A H | LEA.L 0x2fd48,A0 00022b26 2f 08 |/ | MOVE.L A0,-(A7) 00022b28 3f 01 |? | MOVE.W D1,-(A7) 00022b2a 2f 11 |/ | MOVE.L (A1),-(A7) 00022b2c 54 97 |T | ADDQ.L #0x2,(A7) 00022b2e 3f 02 |? | MOVE.W D2,-(A7) 00022b30 3f 05 |? | MOVE.W D5,-(A7) 00022b32 4e 92 |N | JSR (A2) 00022b34 de c6 | | ADDA.W D6,A7 00022b36 41 f9 00 02 3f 62 |A ?b | LEA.L 0x23f62,A0 00022b3c 2f 08 |/ | MOVE.L A0,-(A7) 00022b3e 3f 01 |? | MOVE.W D1,-(A7) 00022b40 2f 11 |/ | MOVE.L (A1),-(A7) 00022b42 3f 02 |? | MOVE.W D2,-(A7) 00022b44 3f 05 |? | MOVE.W D5,-(A7) 00022b46 4e 92 |N | JSR (A2) 00022b48 de c6 | | ADDA.W D6,A7 00022b4a 48 78 01 86 |Hx | PEA.L 0x186 00022b4e 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00022b54 58 4f |XO | ADDQ.L #0x4,A7 00022b56 48 6e ff e8 |Hn | PEA.L (A6-0x18) 00022b5a 4e ba fe 68 |N h | JSR 0x229c4 00022b5e 58 4f |XO | ADDQ.L #0x4,A7 00022b60 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0 00022b64 02 40 00 80 | @ | ANDI.W #0x0080,D0 00022b68 67 ec |g | BEQ 0x22b56 00022b6a 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0 00022b6e 02 40 80 00 | @ | ANDI.W #0x8000,D0 00022b72 67 36 |g6 | BEQ 0x22baa 00022b74 4e ba ee fa |N | JSR 0x21a70 00022b78 20 53 | S | MOVEA.L (A3),A0 00022b7a 42 10 |B | CLR.B (A0) 00022b7c 3d 7c 40 09 ff e8 |=|@ | MOVE.W #0x4009,(A6-0x18) 00022b82 41 ee ff e8 |A | LEA.L (A6-0x18),A0 00022b86 2f 08 |/ | MOVE.L A0,-(A7) 00022b88 3f 01 |? | MOVE.W D1,-(A7) 00022b8a 2f 11 |/ | MOVE.L (A1),-(A7) 00022b8c 3f 02 |? | MOVE.W D2,-(A7) 00022b8e 3f 05 |? | MOVE.W D5,-(A7) 00022b90 4e 92 |N | JSR (A2) 00022b92 de c6 | | ADDA.W D6,A7 00022b94 48 6e ff e8 |Hn | PEA.L (A6-0x18) 00022b98 4e ba fe 2a |N * | JSR 0x229c4 00022b9c 58 4f |XO | ADDQ.L #0x4,A7 00022b9e 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0 00022ba2 02 40 00 80 | @ | ANDI.W #0x0080,D0 00022ba6 67 ec |g | BEQ 0x22b94 00022ba8 60 04 |` | BRA 0x22bae 00022baa 20 53 | S | MOVEA.L (A3),A0 00022bac 10 81 | | MOVE.B D1,(A0) 00022bae 4c df 0f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3 00022bb2 4e 5e |N^ | UNLK A6 00022bb4 4e 75 |Nu | RTS 00022bb6 ; -------------------------------------------------------------------------------------- 00022bb6 ; OMSI PASCAL Function 00022bb6 ; <LVAR 0x010 4(r)> 00022bb6 ; <LVAR 0x00c 4(r)> 00022bb6 ; <LVAR 0x008 4(r)> 00022bb6 ; <LVAR -0x004 @ 2(w)> 00022bb6 ; <LVAR -0x006 @ 2(w)> 00022bb6 ; <LVAR -0x008 @ 2(rw)> 00022bb6 ; -------------------------------------------------------------------------------------- 00022bb6 4e 56 ff ba |NV | LINK.W A6,#0xffba 00022bba bf d5 | | CMPA.L (A5),A7 00022bbc 62 06 |b | BHI 0x22bc4 00022bbe 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022bc2 4e 76 |Nv | TRAPV 00022bc4 de fc 00 3e | > | ADDA.W #0x3e,A7 00022bc8 48 e7 fe f0 |H | MOVEM.L A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022bcc 43 f9 00 02 3f 5e |C ?^ | LEA.L 0x23f5e,A1 00022bd2 45 f9 00 01 02 3a |E : | LEA.L KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word,A2 00022bd8 47 ee ff f8 |G | LEA.L (A6-0x8),A3 00022bdc 72 01 |r | MOVEQ.L #0x01,D1 00022bde 74 05 |t | MOVEQ.L #0x05,D2 00022be0 7a 02 |z | MOVEQ.L #0x02,D5 00022be2 7c 0e || | MOVEQ.L #0x0e,D6 00022be4 28 2e 00 10 |(. | MOVE.L (A6+0x10),D4 00022be8 26 3c 00 01 00 00 |&< | MOVE.L #0x10000,D3 00022bee 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00022bf4 02 83 00 00 ff ff | | ANDI.L #0x0000ffff,D3 00022bfa 3d 43 ff fa |=C | MOVE.W D3,(A6-0x6) 00022bfe 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00022c02 e1 80 | | ASL.L #0x8,D0 00022c04 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022c0a 63 02 |c | BLS 0x22c0e 00022c0c 4e 4f |NO | TRAP #15 00022c0e 3d 40 ff fc |=@ | MOVE.W D0,(A6-0x4) 00022c12 41 f9 00 02 3f 66 |A ?f | LEA.L 0x23f66,A0 00022c18 2f 08 |/ | MOVE.L A0,-(A7) 00022c1a 3f 01 |? | MOVE.W D1,-(A7) 00022c1c 2f 11 |/ | MOVE.L (A1),-(A7) 00022c1e 50 97 |P | ADDQ.L #0x8,(A7) 00022c20 3f 02 |? | MOVE.W D2,-(A7) 00022c22 3f 05 |? | MOVE.W D5,-(A7) 00022c24 4e 92 |N | JSR (A2) 00022c26 de c6 | | ADDA.W D6,A7 00022c28 41 ee ff fa |A | LEA.L (A6-0x6),A0 00022c2c 2f 08 |/ | MOVE.L A0,-(A7) 00022c2e 3f 01 |? | MOVE.W D1,-(A7) 00022c30 2f 11 |/ | MOVE.L (A1),-(A7) 00022c32 06 97 00 00 00 1c | | ADDI.L #0x0000001c,(A7) 00022c38 3f 02 |? | MOVE.W D2,-(A7) 00022c3a 3f 05 |? | MOVE.W D5,-(A7) 00022c3c 4e 92 |N | JSR (A2) 00022c3e de c6 | | ADDA.W D6,A7 00022c40 41 ee ff fc |A | LEA.L (A6-0x4),A0 00022c44 2f 08 |/ | MOVE.L A0,-(A7) 00022c46 3f 01 |? | MOVE.W D1,-(A7) 00022c48 2f 11 |/ | MOVE.L (A1),-(A7) 00022c4a 5c 97 |\ | ADDQ.L #0x6,(A7) 00022c4c 3f 02 |? | MOVE.W D2,-(A7) 00022c4e 3f 05 |? | MOVE.W D5,-(A7) 00022c50 4e 92 |N | JSR (A2) 00022c52 de c6 | | ADDA.W D6,A7 00022c54 41 f9 00 02 3f 56 |A ?V | LEA.L 0x23f56,A0 00022c5a 2f 08 |/ | MOVE.L A0,-(A7) 00022c5c 3f 01 |? | MOVE.W D1,-(A7) 00022c5e 2f 11 |/ | MOVE.L (A1),-(A7) 00022c60 58 97 |X | ADDQ.L #0x4,(A7) 00022c62 3f 02 |? | MOVE.W D2,-(A7) 00022c64 3f 05 |? | MOVE.W D5,-(A7) 00022c66 4e 92 |N | JSR (A2) 00022c68 de c6 | | ADDA.W D6,A7 00022c6a 41 f9 00 02 fd 48 |A H | LEA.L 0x2fd48,A0 00022c70 2f 08 |/ | MOVE.L A0,-(A7) 00022c72 3f 01 |? | MOVE.W D1,-(A7) 00022c74 2f 11 |/ | MOVE.L (A1),-(A7) 00022c76 54 97 |T | ADDQ.L #0x2,(A7) 00022c78 3f 02 |? | MOVE.W D2,-(A7) 00022c7a 3f 05 |? | MOVE.W D5,-(A7) 00022c7c 4e 92 |N | JSR (A2) 00022c7e de c6 | | ADDA.W D6,A7 00022c80 41 f9 00 02 3f 64 |A ?d | LEA.L 0x23f64,A0 00022c86 2f 08 |/ | MOVE.L A0,-(A7) 00022c88 3f 01 |? | MOVE.W D1,-(A7) 00022c8a 2f 11 |/ | MOVE.L (A1),-(A7) 00022c8c 3f 02 |? | MOVE.W D2,-(A7) 00022c8e 3f 05 |? | MOVE.W D5,-(A7) 00022c90 4e 92 |N | JSR (A2) 00022c92 de c6 | | ADDA.W D6,A7 00022c94 48 78 01 86 |Hx | PEA.L 0x186 00022c98 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00022c9e 58 4f |XO | ADDQ.L #0x4,A7 00022ca0 48 53 |HS | PEA.L (A3) 00022ca2 4e ba fd 20 |N | JSR 0x229c4 00022ca6 58 4f |XO | ADDQ.L #0x4,A7 00022ca8 30 13 |0 | MOVE.W (A3),D0 00022caa 02 40 00 80 | @ | ANDI.W #0x0080,D0 00022cae 67 f0 |g | BEQ 0x22ca0 00022cb0 30 13 |0 | MOVE.W (A3),D0 00022cb2 02 40 80 00 | @ | ANDI.W #0x8000,D0 00022cb6 67 30 |g0 | BEQ 0x22ce8 00022cb8 4e ba ed b6 |N | JSR 0x21a70 00022cbc 36 bc 40 09 |6 @ | MOVE.W #0x4009,(A3) 00022cc0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022cc4 42 10 |B | CLR.B (A0) 00022cc6 20 4b | K | MOVEA.L A3,A0 00022cc8 2f 08 |/ | MOVE.L A0,-(A7) 00022cca 3f 01 |? | MOVE.W D1,-(A7) 00022ccc 2f 11 |/ | MOVE.L (A1),-(A7) 00022cce 3f 02 |? | MOVE.W D2,-(A7) 00022cd0 3f 05 |? | MOVE.W D5,-(A7) 00022cd2 4e 92 |N | JSR (A2) 00022cd4 de c6 | | ADDA.W D6,A7 00022cd6 48 53 |HS | PEA.L (A3) 00022cd8 4e ba fc ea |N | JSR 0x229c4 00022cdc 58 4f |XO | ADDQ.L #0x4,A7 00022cde 30 13 |0 | MOVE.W (A3),D0 00022ce0 02 40 00 80 | @ | ANDI.W #0x0080,D0 00022ce4 67 f0 |g | BEQ 0x22cd6 00022ce6 60 06 |` | BRA 0x22cee 00022ce8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022cec 10 81 | | MOVE.B D1,(A0) 00022cee 4c df 0f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3 00022cf2 4e 5e |N^ | UNLK A6 00022cf4 4e 75 |Nu | RTS 00022cf6 ; -------------------------------------------------------------------------------------- 00022cf6 ; OMSI PASCAL Function 00022cf6 ; <LVAR 0x014 4(r)> 00022cf6 ; <LVAR 0x010 4(r)> 00022cf6 ; <LVAR 0x00c 4(r)> 00022cf6 ; <LVAR 0x008 4(r)> 00022cf6 ; <LVAR -0x002 @ 2(w)> 00022cf6 ; <LVAR -0x008 @ 2(w)> 00022cf6 ; <LVAR -0x00a @ 2(w)> 00022cf6 ; <LVAR -0x00c @ 2(rw)> 00022cf6 ; -------------------------------------------------------------------------------------- 00022cf6 4e 56 ff ae |NV | LINK.W A6,#0xffae 00022cfa bf d5 | | CMPA.L (A5),A7 00022cfc 62 06 |b | BHI 0x22d04 00022cfe 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022d02 4e 76 |Nv | TRAPV 00022d04 de fc 00 46 | F | ADDA.W #0x46,A7 00022d08 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022d0c 43 f9 00 02 3f 5e |C ?^ | LEA.L 0x23f5e,A1 00022d12 45 f9 00 01 02 3a |E : | LEA.L KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word,A2 00022d18 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00022d1c 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00022d20 72 01 |r | MOVEQ.L #0x01,D1 00022d22 74 05 |t | MOVEQ.L #0x05,D2 00022d24 7a 02 |z | MOVEQ.L #0x02,D5 00022d26 7c 0e || | MOVEQ.L #0x0e,D6 00022d28 7e 00 |~ | MOVEQ.L #0x00,D7 00022d2a 0c 87 00 00 00 0a | | CMPI.L #0x0000000a,D7 00022d30 63 02 |c | BLS 0x22d34 00022d32 4e 4f |NO | TRAP #15 00022d34 20 07 | | MOVE.L D7,D0 00022d36 e3 80 | | ASL.L #0x1,D0 00022d38 41 f9 00 02 3f 4e |A ?N | LEA.L 0x23f4e,A0 00022d3e 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00022d42 d1 fc 00 00 bc 4a | J | ADDA.L #0xbc4a,A0 00022d48 42 50 |BP | CLR.W (A0) 00022d4a 52 87 |R | ADDQ.L #0x1,D7 00022d4c 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7 00022d52 6f d6 |o | BLE 0x22d2a 00022d54 28 2e 00 14 |(. | MOVE.L (A6+0x14),D4 00022d58 26 3c 00 01 00 00 |&< | MOVE.L #0x10000,D3 00022d5e 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00022d64 02 83 00 00 ff ff | | ANDI.L #0x0000ffff,D3 00022d6a 3d 43 ff f8 |=C | MOVE.W D3,(A6-0x8) 00022d6e 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00022d72 e1 80 | | ASL.L #0x8,D0 00022d74 d0 ae 00 0c | | ADD.L (A6+0xc),D0 00022d78 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022d7e 63 02 |c | BLS 0x22d82 00022d80 4e 4f |NO | TRAP #15 00022d82 3d 40 ff f6 |=@ | MOVE.W D0,(A6-0xa) 00022d86 3d 7c fe fe ff fe |=| | MOVE.W #0xfefe,(A6-0x2) 00022d8c 41 f9 00 02 3f 66 |A ?f | LEA.L 0x23f66,A0 00022d92 2f 08 |/ | MOVE.L A0,-(A7) 00022d94 3f 01 |? | MOVE.W D1,-(A7) 00022d96 2f 11 |/ | MOVE.L (A1),-(A7) 00022d98 50 97 |P | ADDQ.L #0x8,(A7) 00022d9a 3f 02 |? | MOVE.W D2,-(A7) 00022d9c 3f 05 |? | MOVE.W D5,-(A7) 00022d9e 4e 92 |N | JSR (A2) 00022da0 de c6 | | ADDA.W D6,A7 00022da2 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00022da6 2f 08 |/ | MOVE.L A0,-(A7) 00022da8 3f 01 |? | MOVE.W D1,-(A7) 00022daa 2f 11 |/ | MOVE.L (A1),-(A7) 00022dac 06 97 00 00 00 1c | | ADDI.L #0x0000001c,(A7) 00022db2 3f 02 |? | MOVE.W D2,-(A7) 00022db4 3f 05 |? | MOVE.W D5,-(A7) 00022db6 4e 92 |N | JSR (A2) 00022db8 de c6 | | ADDA.W D6,A7 00022dba 41 ee ff f6 |A | LEA.L (A6-0xa),A0 00022dbe 2f 08 |/ | MOVE.L A0,-(A7) 00022dc0 3f 01 |? | MOVE.W D1,-(A7) 00022dc2 2f 11 |/ | MOVE.L (A1),-(A7) 00022dc4 5c 97 |\ | ADDQ.L #0x6,(A7) 00022dc6 3f 02 |? | MOVE.W D2,-(A7) 00022dc8 3f 05 |? | MOVE.W D5,-(A7) 00022dca 4e 92 |N | JSR (A2) 00022dcc de c6 | | ADDA.W D6,A7 00022dce 41 f9 00 02 3f 56 |A ?V | LEA.L 0x23f56,A0 00022dd4 2f 08 |/ | MOVE.L A0,-(A7) 00022dd6 3f 01 |? | MOVE.W D1,-(A7) 00022dd8 2f 11 |/ | MOVE.L (A1),-(A7) 00022dda 58 97 |X | ADDQ.L #0x4,(A7) 00022ddc 3f 02 |? | MOVE.W D2,-(A7) 00022dde 3f 05 |? | MOVE.W D5,-(A7) 00022de0 4e 92 |N | JSR (A2) 00022de2 de c6 | | ADDA.W D6,A7 00022de4 41 ee ff fe |A | LEA.L (A6-0x2),A0 00022de8 2f 08 |/ | MOVE.L A0,-(A7) 00022dea 3f 01 |? | MOVE.W D1,-(A7) 00022dec 2f 11 |/ | MOVE.L (A1),-(A7) 00022dee 54 97 |T | ADDQ.L #0x2,(A7) 00022df0 3f 02 |? | MOVE.W D2,-(A7) 00022df2 3f 05 |? | MOVE.W D5,-(A7) 00022df4 4e 92 |N | JSR (A2) 00022df6 de c6 | | ADDA.W D6,A7 00022df8 41 f9 00 02 3f 62 |A ?b | LEA.L 0x23f62,A0 00022dfe 2f 08 |/ | MOVE.L A0,-(A7) 00022e00 3f 01 |? | MOVE.W D1,-(A7) 00022e02 2f 11 |/ | MOVE.L (A1),-(A7) 00022e04 3f 02 |? | MOVE.W D2,-(A7) 00022e06 3f 05 |? | MOVE.W D5,-(A7) 00022e08 4e 92 |N | JSR (A2) 00022e0a de c6 | | ADDA.W D6,A7 00022e0c 48 78 01 86 |Hx | PEA.L 0x186 00022e10 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00022e16 58 4f |XO | ADDQ.L #0x4,A7 00022e18 48 53 |HS | PEA.L (A3) 00022e1a 4e ba fb a8 |N | JSR 0x229c4 00022e1e 58 4f |XO | ADDQ.L #0x4,A7 00022e20 30 13 |0 | MOVE.W (A3),D0 00022e22 02 40 00 80 | @ | ANDI.W #0x0080,D0 00022e26 67 f0 |g | BEQ 0x22e18 00022e28 30 13 |0 | MOVE.W (A3),D0 00022e2a 02 40 80 00 | @ | ANDI.W #0x8000,D0 00022e2e 67 4c |gL | BEQ 0x22e7c 00022e30 4e ba ec 3e |N > | JSR 0x21a70 00022e34 36 bc 40 09 |6 @ | MOVE.W #0x4009,(A3) 00022e38 20 4b | K | MOVEA.L A3,A0 00022e3a 2f 08 |/ | MOVE.L A0,-(A7) 00022e3c 3f 01 |? | MOVE.W D1,-(A7) 00022e3e 2f 11 |/ | MOVE.L (A1),-(A7) 00022e40 3f 02 |? | MOVE.W D2,-(A7) 00022e42 3f 05 |? | MOVE.W D5,-(A7) 00022e44 4e 92 |N | JSR (A2) 00022e46 de c6 | | ADDA.W D6,A7 00022e48 48 53 |HS | PEA.L (A3) 00022e4a 4e ba fb 78 |N x | JSR 0x229c4 00022e4e 58 4f |XO | ADDQ.L #0x4,A7 00022e50 30 13 |0 | MOVE.W (A3),D0 00022e52 02 40 00 80 | @ | ANDI.W #0x0080,D0 00022e56 67 f0 |g | BEQ 0x22e48 00022e58 30 39 00 02 fb a0 |09 | MOVE.W 0x2fba0,D0 00022e5e 02 40 4f 00 | @O | ANDI.W #0x4f00,D0 00022e62 66 0c |f | BNE 0x22e70 00022e64 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 00022e6a 02 40 df f0 | @ | ANDI.W #0xdff0,D0 00022e6e 67 06 |g | BEQ 0x22e76 00022e70 20 54 | T | MOVEA.L (A4),A0 00022e72 42 10 |B | CLR.B (A0) 00022e74 60 04 |` | BRA 0x22e7a 00022e76 20 54 | T | MOVEA.L (A4),A0 00022e78 10 81 | | MOVE.B D1,(A0) 00022e7a 60 04 |` | BRA 0x22e80 00022e7c 20 54 | T | MOVEA.L (A4),A0 00022e7e 10 81 | | MOVE.B D1,(A0) 00022e80 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022e84 4e 5e |N^ | UNLK A6 00022e86 4e 75 |Nu | RTS 00022e88 ; -------------------------------------------------------------------------------------- 00022e88 ; OMSI PASCAL Function 00022e88 ; <LVAR 0x008 1(rw)> 00022e88 ; -------------------------------------------------------------------------------------- 00022e88 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00022e8c bf d5 | | CMPA.L (A5),A7 00022e8e 62 06 |b | BHI 0x22e96 00022e90 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022e94 4e 76 |Nv | TRAPV 00022e96 de fc 00 10 | | ADDA.W #0x10,A7 00022e9a 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00022e9e 41 f9 00 02 fb 9e |A | LEA.L 0x2fb9e,A0 00022ea4 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00022ea8 30 10 |0 | MOVE.W (A0),D0 00022eaa 02 40 80 00 | @ | ANDI.W #0x8000,D0 00022eae 66 04 |f | BNE 0x22eb4 00022eb0 42 11 |B | CLR.B (A1) 00022eb2 60 12 |` | BRA 0x22ec6 00022eb4 30 10 |0 | MOVE.W (A0),D0 00022eb6 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 00022eba 66 06 |f | BNE 0x22ec2 00022ebc 12 bc 00 01 | | MOVE.B #0x01,(A1) 00022ec0 60 04 |` | BRA 0x22ec6 00022ec2 12 bc 00 02 | | MOVE.B #0x02,(A1) 00022ec6 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00022eca 4e 5e |N^ | UNLK A6 00022ecc 4e 75 |Nu | RTS 00022ece ; -------------------------------------------------------------------------------------- 00022ece ; OMSI PASCAL Function 00022ece ; <LVAR 0x00c 4(w)> 00022ece ; <LVAR 0x008 4(r)> 00022ece ; -------------------------------------------------------------------------------------- 00022ece 4e 56 ff e4 |NV | LINK.W A6,#0xffe4 00022ed2 bf d5 | | CMPA.L (A5),A7 00022ed4 62 06 |b | BHI 0x22edc 00022ed6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022eda 4e 76 |Nv | TRAPV 00022edc de fc 00 14 | | ADDA.W #0x14,A7 00022ee0 48 e7 03 00 |H | MOVEM.L D7+D6,-(A7) 00022ee4 7e 01 |~ | MOVEQ.L #0x01,D7 00022ee6 4a ae 00 08 |J | TST.L (A6+0x8) 00022eea 67 12 |g | BEQ 0x22efe 00022eec 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022ef0 7c 01 || | MOVEQ.L #0x01,D6 00022ef2 bc 97 | | CMP.L (A7),D6 00022ef4 6e 06 |n | BGT 0x22efc 00022ef6 e3 87 | | ASL.L #0x1,D7 00022ef8 52 86 |R | ADDQ.L #0x1,D6 00022efa 68 f6 |h | BVC 0x22ef2 00022efc 58 4f |XO | ADDQ.L #0x4,A7 00022efe 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc) 00022f02 4c df 00 c0 |L | MOVEM.L (A7)+,D6+D7 00022f06 4e 5e |N^ | UNLK A6 00022f08 4e 75 |Nu | RTS 00022f0a ; -------------------------------------------------------------------------------------- 00022f0a ; OMSI PASCAL Function 00022f0a ; <LVAR 0x008 4(r)> 00022f0a ; -------------------------------------------------------------------------------------- 00022f0a 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 00022f0e bf d5 | | CMPA.L (A5),A7 00022f10 62 06 |b | BHI 0x22f18 00022f12 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022f16 4e 76 |Nv | TRAPV 00022f18 de fc 00 30 | 0 | ADDA.W #0x30,A7 00022f1c 48 e7 ff 80 |H | MOVEM.L A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022f20 2e 2e 00 08 |.. | MOVE.L (A6+0x8),D7 00022f24 53 87 |S | SUBQ.L #0x1,D7 00022f26 28 07 |( | MOVE.L D7,D4 00022f28 76 10 |v | MOVEQ.L #0x10,D3 00022f2a 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00022f30 2e 04 |. | MOVE.L D4,D7 00022f32 2c 03 |, | MOVE.L D3,D6 00022f34 59 4f |YO | SUBQ.L #0x4,A7 00022f36 2f 06 |/ | MOVE.L D6,-(A7) 00022f38 4e ba ff 94 |N | JSR 0x22ece 00022f3c 58 4f |XO | ADDQ.L #0x4,A7 00022f3e 20 1f | | MOVE.L (A7)+,D0 00022f40 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022f46 63 02 |c | BLS 0x22f4a 00022f48 4e 4f |NO | TRAP #15 00022f4a 3a 00 |: | MOVE.W D0,D5 00022f4c 0c 87 00 00 00 ff | | CMPI.L #0x000000ff,D7 00022f52 6e 50 |nP | BGT 0x22fa4 00022f54 0c 87 00 00 00 ff | | CMPI.L #0x000000ff,D7 00022f5a 63 02 |c | BLS 0x22f5e 00022f5c 4e 4f |NO | TRAP #15 00022f5e 20 07 | | MOVE.L D7,D0 00022f60 e3 80 | | ASL.L #0x1,D0 00022f62 41 f9 00 02 3f 4e |A ?N | LEA.L 0x23f4e,A0 00022f68 32 30 08 36 |20 6 | MOVE.W (A0+D0.L+#0x36),D1 00022f6c c2 45 | E | AND.W D5,D1 00022f6e 66 18 |f | BNE 0x22f88 00022f70 42 81 |B | CLR.L D1 00022f72 32 30 08 36 |20 6 | MOVE.W (A0+D0.L+#0x36),D1 00022f76 42 82 |B | CLR.L D2 00022f78 34 05 |4 | MOVE.W D5,D2 00022f7a d4 81 | | ADD.L D1,D2 00022f7c 0c 82 00 00 ff ff | | CMPI.L #0x0000ffff,D2 00022f82 63 02 |c | BLS 0x22f86 00022f84 4e 4f |NO | TRAP #15 00022f86 60 18 |` | BRA 0x22fa0 00022f88 42 81 |B | CLR.L D1 00022f8a 32 30 08 36 |20 6 | MOVE.W (A0+D0.L+#0x36),D1 00022f8e 42 82 |B | CLR.L D2 00022f90 34 05 |4 | MOVE.W D5,D2 00022f92 44 82 |D | NEG.L D2 00022f94 d4 81 | | ADD.L D1,D2 00022f96 0c 82 00 00 ff ff | | CMPI.L #0x0000ffff,D2 00022f9c 63 02 |c | BLS 0x22fa0 00022f9e 4e 4f |NO | TRAP #15 00022fa0 31 82 08 36 |1 6 | MOVE.W D2,(A0+D0.L+#0x36) 00022fa4 4c df 01 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0 00022fa8 4e 5e |N^ | UNLK A6 00022faa 4e 75 |Nu | RTS 00022fac ; -------------------------------------------------------------------------------------- 00022fac ; OMSI PASCAL Function 00022fac ; -------------------------------------------------------------------------------------- 00022fac 4e 56 ff 94 |NV | LINK.W A6,#0xff94 00022fb0 bf d5 | | CMPA.L (A5),A7 00022fb2 62 06 |b | BHI 0x22fba 00022fb4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022fb8 4e 76 |Nv | TRAPV 00022fba de fc 00 64 | d | ADDA.W #0x64,A7 00022fbe 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 00022fc2 72 01 |r | MOVEQ.L #0x01,D1 00022fc4 55 4f |UO | SUBQ.L #0x2,A7 00022fc6 4e ba fe c0 |N | JSR 0x22e88 00022fca 10 1f | | MOVE.B (A7)+,D0 00022fcc b0 01 | | CMP.B D1,D0 00022fce 67 30 |g0 | BEQ 0x23000 00022fd0 9e fc 00 40 | @ | SUBA.W #0x40,A7 00022fd4 20 4f | O | MOVEA.L A7,A0 00022fd6 43 fa da 7a |C z | LEA.L 0x20a52,A1 00022fda 70 3e |p> | MOVEQ.L #0x3e,D0 00022fdc 10 d9 | | MOVE.B (A1)+,(A0)+ 00022fde 51 c8 ff fc |Q | DBF D0,0x22fdc 00022fe2 59 4f |YO | SUBQ.L #0x4,A7 00022fe4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022fe8 3f 01 |? | MOVE.W D1,-(A7) 00022fea 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 00022fee 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022ff4 50 4f |PO | ADDQ.L #0x8,A7 00022ff6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022ffc de fc 00 44 | D | ADDA.W #0x44,A7 00023000 7e 00 |~ | MOVEQ.L #0x00,D7 00023002 59 4f |YO | SUBQ.L #0x4,A7 00023004 2f 07 |/ | MOVE.L D7,-(A7) 00023006 4e ba fe c6 |N | JSR 0x22ece 0002300a 58 4f |XO | ADDQ.L #0x4,A7 0002300c 42 80 |B | CLR.L D0 0002300e 30 39 00 02 fb a4 |09 | MOVE.W 0x2fba4,D0 00023014 c0 9f | | AND.L (A7)+,D0 00023016 67 12 |g | BEQ 0x2302a 00023018 42 80 |B | CLR.L D0 0002301a 30 39 00 02 fb a2 |09 | MOVE.W 0x2fba2,D0 00023020 d0 87 | | ADD.L D7,D0 00023022 2f 00 |/ | MOVE.L D0,-(A7) 00023024 4e ba fe e4 |N | JSR 0x22f0a 00023028 58 4f |XO | ADDQ.L #0x4,A7 0002302a 52 87 |R | ADDQ.L #0x1,D7 0002302c 0c 87 00 00 00 0a | | CMPI.L #0x0000000a,D7 00023032 6f ce |o | BLE 0x23002 00023034 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 00023038 4e 5e |N^ | UNLK A6 0002303a 4e 75 |Nu | RTS 0002303c ; -------------------------------------------------------------------------------------- 0002303c ; OMSI PASCAL Function 0002303c ; <LVAR 0x010 4(r)> 0002303c ; <LVAR 0x00c 4(r)> 0002303c ; <LVAR 0x008 4(r)> 0002303c ; -------------------------------------------------------------------------------------- 0002303c 4e 56 ff 92 |NV | LINK.W A6,#0xff92 00023040 bf d5 | | CMPA.L (A5),A7 00023042 62 06 |b | BHI 0x2304a 00023044 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023048 4e 76 |Nv | TRAPV 0002304a de fc 00 6e | n | ADDA.W #0x6e,A7 0002304e 48 e7 f8 e0 |H | MOVEM.L A2+A1+A0+D4+D3+D2+D1+D0,-(A7) 00023052 45 f9 00 02 f7 8a |E | LEA.L 0x2f78a,A2 00023058 74 01 |t | MOVEQ.L #0x01,D2 0002305a 20 12 | | MOVE.L (A2),D0 0002305c 0c 80 00 00 03 e8 | | CMPI.L #0x000003e8,D0 00023062 6f 58 |oX | BLE 0x230bc 00023064 41 fa da 6c |A l | LEA.L 0x20ad2,A0 00023068 70 1c |p | MOVEQ.L #0x1c,D0 0002306a 3f 20 |? | MOVE.W -(A0),-(A7) 0002306c 51 c8 ff fc |Q | DBF D0,0x2306a 00023070 59 4f |YO | SUBQ.L #0x4,A7 00023072 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023076 3f 02 |? | MOVE.W D2,-(A7) 00023078 3f 3c 00 3a |?< : | MOVE.W #0x3a,-(A7) 0002307c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023082 50 4f |PO | ADDQ.L #0x8,A7 00023084 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002308a de fc 00 16 | | ADDA.W #0x16,A7 0002308e 20 4f | O | MOVEA.L A7,A0 00023090 43 fa da 40 |C @ | LEA.L 0x20ad2,A1 00023094 70 26 |p& | MOVEQ.L #0x26,D0 00023096 10 d9 | | MOVE.B (A1)+,(A0)+ 00023098 51 c8 ff fc |Q | DBF D0,0x23096 0002309c 59 4f |YO | SUBQ.L #0x4,A7 0002309e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000230a2 3f 02 |? | MOVE.W D2,-(A7) 000230a4 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 000230a8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000230ae 50 4f |PO | ADDQ.L #0x8,A7 000230b0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000230b6 de fc 00 2c | , | ADDA.W #0x2c,A7 000230ba 60 48 |`H | BRA 0x23104 000230bc 22 00 |" | MOVE.L D0,D1 000230be 53 81 |S | SUBQ.L #0x1,D1 000230c0 0c 81 00 00 03 e7 | | CMPI.L #0x000003e7,D1 000230c6 63 02 |c | BLS 0x230ca 000230c8 4e 4f |NO | TRAP #15 000230ca 28 01 |( | MOVE.L D1,D4 000230cc 76 0c |v | MOVEQ.L #0x0c,D3 000230ce 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000230d4 41 f9 00 02 3f 4e |A ?N | LEA.L 0x23f4e,A0 000230da 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 000230de 22 48 |"H | MOVEA.L A0,A1 000230e0 d3 fc 00 00 89 5c | \ | ADDA.L #0x895c,A1 000230e6 22 ae 00 10 |" | MOVE.L (A6+0x10),(A1) 000230ea 22 48 |"H | MOVEA.L A0,A1 000230ec d3 fc 00 00 89 60 | ` | ADDA.L #0x8960,A1 000230f2 22 ae 00 0c |" | MOVE.L (A6+0xc),(A1) 000230f6 d1 fc 00 00 89 64 | d | ADDA.L #0x8964,A0 000230fc 20 ae 00 08 | | MOVE.L (A6+0x8),(A0) 00023100 52 80 |R | ADDQ.L #0x1,D0 00023102 24 80 |$ | MOVE.L D0,(A2) 00023104 4c df 07 1f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+A0+A1+A2 00023108 4e 5e |N^ | UNLK A6 0002310a 4e 75 |Nu | RTS 0002310c ; -------------------------------------------------------------------------------------- 0002310c ; OMSI PASCAL Function 0002310c ; -------------------------------------------------------------------------------------- 0002310c 4e 56 ff 80 |NV | LINK.W A6,#0xff80 00023110 bf d5 | | CMPA.L (A5),A7 00023112 62 06 |b | BHI 0x2311a 00023114 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023118 4e 76 |Nv | TRAPV 0002311a de fc 00 7c | | | ADDA.W #0x7c,A7 0002311e 48 e7 fd f0 |H | MOVEM.L A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7) 00023122 43 f9 00 01 02 c4 |C | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A1 00023128 45 f9 00 01 03 e0 |E | LEA.L WriteConsoleStringCrLf(str : String),A2 0002312e 47 f9 00 01 02 e4 |G | LEA.L Long2String(a : Long) : String,A3 00023134 72 01 |r | MOVEQ.L #0x01,D1 00023136 74 24 |t$ | MOVEQ.L #0x24,D2 00023138 7a 03 |z | MOVEQ.L #0x03,D5 0002313a 20 39 00 02 f7 8a | 9 | MOVE.L 0x2f78a,D0 00023140 b0 81 | | CMP.L D1,D0 00023142 66 26 |f& | BNE 0x2316a 00023144 41 fa d9 d2 |A | LEA.L 0x20b18,A0 00023148 70 0e |p | MOVEQ.L #0x0e,D0 0002314a 3f 20 |? | MOVE.W -(A0),-(A7) 0002314c 51 c8 ff fc |Q | DBF D0,0x2314a 00023150 59 4f |YO | SUBQ.L #0x4,A7 00023152 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023156 3f 01 |? | MOVE.W D1,-(A7) 00023158 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 0002315c 4e 91 |N | JSR (A1) 0002315e 50 4f |PO | ADDQ.L #0x8,A7 00023160 4e 92 |N | JSR (A2) 00023162 de fc 00 22 | " | ADDA.W #0x22,A7 00023166 60 00 00 f4 |` | BRA 0x2325c 0002316a 53 80 |S | SUBQ.L #0x1,D0 0002316c 2f 00 |/ | MOVE.L D0,-(A7) 0002316e 7e 01 |~ | MOVEQ.L #0x01,D7 00023170 be 97 | | CMP.L (A7),D7 00023172 6e 00 00 e6 |n | BGT 0x2325a 00023176 41 fa d9 c4 |A | LEA.L 0x20b3c,A0 0002317a 70 08 |p | MOVEQ.L #0x08,D0 0002317c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002317e 51 c8 ff fc |Q | DBF D0,0x2317c 00023182 59 4f |YO | SUBQ.L #0x4,A7 00023184 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023188 3f 01 |? | MOVE.W D1,-(A7) 0002318a 3f 02 |? | MOVE.W D2,-(A7) 0002318c 4e 91 |N | JSR (A1) 0002318e 50 4f |PO | ADDQ.L #0x8,A7 00023190 4e 92 |N | JSR (A2) 00023192 de c2 | | ADDA.W D2,A7 00023194 2e ba d9 b2 |. | MOVE.L 0x20b48,(A7) 00023198 2f 3a d9 aa |/: | MOVE.L 0x20b44,-(A7) 0002319c 2f 3a d9 a2 |/: | MOVE.L 0x20b40,-(A7) 000231a0 2f 3a d9 9a |/: | MOVE.L 0x20b3c,-(A7) 000231a4 20 07 | | MOVE.L D7,D0 000231a6 53 80 |S | SUBQ.L #0x1,D0 000231a8 0c 80 00 00 03 e7 | | CMPI.L #0x000003e7,D0 000231ae 63 02 |c | BLS 0x231b2 000231b0 4e 4f |NO | TRAP #15 000231b2 28 00 |( | MOVE.L D0,D4 000231b4 76 0c |v | MOVEQ.L #0x0c,D3 000231b6 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000231bc 41 f9 00 02 3f 4e |A ?N | LEA.L 0x23f4e,A0 000231c2 2f 08 |/ | MOVE.L A0,-(A7) 000231c4 59 4f |YO | SUBQ.L #0x4,A7 000231c6 1e ba d9 84 | | MOVE.B 0x20b4c,(A7) 000231ca 1f 7a d9 81 00 01 | z | MOVE.B 0x20b4d,(A7+0x1) 000231d0 1f 7a d9 7c 00 02 | z | | MOVE.B 0x20b4e,(A7+0x2) 000231d6 59 4f |YO | SUBQ.L #0x4,A7 000231d8 1e ba d9 76 | v | MOVE.B 0x20b50,(A7) 000231dc 1f 7a d9 73 00 01 | z s | MOVE.B 0x20b51,(A7+0x1) 000231e2 1f 7a d9 6e 00 02 | z n | MOVE.B 0x20b52,(A7+0x2) 000231e8 51 4f |QO | SUBQ.L #0x8,A7 000231ea 48 6f 00 14 |Ho | PEA.L (A7+0x14) 000231ee 3f 01 |? | MOVE.W D1,-(A7) 000231f0 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 000231f4 4e 91 |N | JSR (A1) 000231f6 58 4f |XO | ADDQ.L #0x4,A7 000231f8 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 000231fc d1 fc 00 00 89 5c | \ | ADDA.L #0x895c,A0 00023202 2f 10 |/ | MOVE.L (A0),-(A7) 00023204 4e 93 |N | JSR (A3) 00023206 48 6f 00 14 |Ho | PEA.L (A7+0x14) 0002320a 3f 01 |? | MOVE.W D1,-(A7) 0002320c 3f 05 |? | MOVE.W D5,-(A7) 0002320e 4e 91 |N | JSR (A1) 00023210 58 4f |XO | ADDQ.L #0x4,A7 00023212 20 6f 00 1c | o | MOVEA.L (A7+0x1c),A0 00023216 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 0002321a d1 fc 00 00 89 60 | ` | ADDA.L #0x8960,A0 00023220 2f 10 |/ | MOVE.L (A0),-(A7) 00023222 4e 93 |N | JSR (A3) 00023224 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00023228 3f 01 |? | MOVE.W D1,-(A7) 0002322a 3f 05 |? | MOVE.W D5,-(A7) 0002322c 4e 91 |N | JSR (A1) 0002322e 58 4f |XO | ADDQ.L #0x4,A7 00023230 20 6f 00 24 | o $ | MOVEA.L (A7+0x24),A0 00023234 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00023238 d1 fc 00 00 89 64 | d | ADDA.L #0x8964,A0 0002323e 2f 10 |/ | MOVE.L (A0),-(A7) 00023240 4e 93 |N | JSR (A3) 00023242 58 4f |XO | ADDQ.L #0x4,A7 00023244 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 0002324a de fc 00 18 | | ADDA.W #0x18,A7 0002324e 4e 92 |N | JSR (A2) 00023250 de fc 00 20 | | ADDA.W #0x20,A7 00023254 52 87 |R | ADDQ.L #0x1,D7 00023256 68 00 ff 18 |h | BVC 0x23170 0002325a 58 4f |XO | ADDQ.L #0x4,A7 0002325c 4c df 0f bf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3 00023260 4e 5e |N^ | UNLK A6 00023262 4e 75 |Nu | RTS 00023264 ; -------------------------------------------------------------------------------------- 00023264 ; OMSI PASCAL Function 00023264 ; -------------------------------------------------------------------------------------- 00023264 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00023268 bf d5 | | CMPA.L (A5),A7 0002326a 62 06 |b | BHI 0x23272 0002326c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023270 4e 76 |Nv | TRAPV 00023272 de fc 00 58 | X | ADDA.W #0x58,A7 00023276 48 e7 f0 f0 |H | MOVEM.L A3+A2+A1+A0+D3+D2+D1+D0,-(A7) 0002327a 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00023280 47 f9 00 01 02 e4 |G | LEA.L Long2String(a : Long) : String,A3 00023286 72 01 |r | MOVEQ.L #0x01,D1 00023288 74 02 |t | MOVEQ.L #0x02,D2 0002328a 76 18 |v | MOVEQ.L #0x18,D3 0002328c 42 27 |B' | CLR.B -(A7) 0002328e 4e ba de 4c |N L | JSR 0x210dc 00023292 9e fc 00 0e | | SUBA.W #0xe,A7 00023296 20 4f | O | MOVEA.L A7,A0 00023298 43 fa d9 12 |C | LEA.L 0x20bac,A1 0002329c 70 0e |p | MOVEQ.L #0x0e,D0 0002329e 10 d9 | | MOVE.B (A1)+,(A0)+ 000232a0 51 c8 ff fc |Q | DBF D0,0x2329e 000232a4 3f 3a d9 16 |?: | MOVE.W 0x20bbc,-(A7) 000232a8 3f 3a d9 14 |?: | MOVE.W 0x20bbe,-(A7) 000232ac 51 4f |QO | SUBQ.L #0x8,A7 000232ae 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000232b2 3f 01 |? | MOVE.W D1,-(A7) 000232b4 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 000232b8 4e 92 |N | JSR (A2) 000232ba 2e ac 00 18 |. | MOVE.L (A4+0x18),(A7) 000232be 4e 93 |N | JSR (A3) 000232c0 48 6f 00 12 |Ho | PEA.L (A7+0x12) 000232c4 3f 01 |? | MOVE.W D1,-(A7) 000232c6 3f 02 |? | MOVE.W D2,-(A7) 000232c8 4e 92 |N | JSR (A2) 000232ca 2e ac 00 14 |. | MOVE.L (A4+0x14),(A7) 000232ce 4e 93 |N | JSR (A3) 000232d0 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000232d4 3f 01 |? | MOVE.W D1,-(A7) 000232d6 3f 02 |? | MOVE.W D2,-(A7) 000232d8 4e 92 |N | JSR (A2) 000232da 2e ac 00 04 |. | MOVE.L (A4+0x4),(A7) 000232de 4e 93 |N | JSR (A3) 000232e0 58 4f |XO | ADDQ.L #0x4,A7 000232e2 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 000232e8 de c3 | | ADDA.W D3,A7 000232ea 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000232f0 de c3 | | ADDA.W D3,A7 000232f2 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000232f8 48 78 4c 4b |HxLK | PEA.L 0x4c4b 000232fc 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00023302 2e ac 00 18 |. | MOVE.L (A4+0x18),(A7) 00023306 2f 2c 00 14 |/, | MOVE.L (A4+0x14),-(A7) 0002330a 2f 2c 00 04 |/, | MOVE.L (A4+0x4),-(A7) 0002330e 4e ba fd 2c |N , | JSR 0x2303c 00023312 de fc 00 0c | | ADDA.W #0xc,A7 00023316 4c df 0f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3 0002331a 4e 5e |N^ | UNLK A6 0002331c 4e 75 |Nu | RTS 0002331e ; -------------------------------------------------------------------------------------- 0002331e ; OMSI PASCAL Function 0002331e ; <LVAR 0x010 4(r)> 0002331e ; <LVAR 0x00c 4(r)> 0002331e ; <LVAR 0x008 4(r)> 0002331e ; <LVAR -0x004 4(w)> 0002331e ; <LVAR -0x008 @> 0002331e ; -------------------------------------------------------------------------------------- 0002331e 4e 56 ff 68 |NV h | LINK.W A6,#0xff68 00023322 bf d5 | | CMPA.L (A5),A7 00023324 62 06 |b | BHI 0x2332c 00023326 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002332a 4e 76 |Nv | TRAPV 0002332c de fc 00 90 | | ADDA.W #0x90,A7 00023330 48 e7 f9 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7) 00023334 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 0002333a 72 01 |r | MOVEQ.L #0x01,D1 0002333c 74 10 |t | MOVEQ.L #0x10,D2 0002333e 76 02 |v | MOVEQ.L #0x02,D3 00023340 78 18 |x | MOVEQ.L #0x18,D4 00023342 42 80 |B | CLR.L D0 00023344 10 39 00 02 fd 47 | 9 G | MOVE.B 0x2fd47,D0 0002334a 53 40 |S@ | SUBQ.W #0x1,D0 0002334c 48 c0 |H | EXTW.L D0 0002334e 2f 00 |/ | MOVE.L D0,-(A7) 00023350 70 00 |p | MOVEQ.L #0x00,D0 00023352 b0 97 | | CMP.L (A7),D0 00023354 6e 00 01 7a |n z | BGT 0x234d0 00023358 2d 40 ff fc |-@ | MOVE.L D0,(A6-0x4) 0002335c 2f 00 |/ | MOVE.L D0,-(A7) 0002335e 7e 00 |~ | MOVEQ.L #0x00,D7 00023360 52 87 |R | ADDQ.L #0x1,D7 00023362 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023366 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 0002336a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002336e 20 2f 00 08 | / | MOVE.L (A7+0x8),D0 00023372 2f 00 |/ | MOVE.L D0,-(A7) 00023374 48 50 |HP | PEA.L (A0) 00023376 4e ba f9 7e |N ~ | JSR 0x22cf6 0002337a de c2 | | ADDA.W D2,A7 0002337c 4a 10 |J | TST.B (A0) 0002337e 66 08 |f | BNE 0x23388 00023380 0c 87 00 00 00 05 | | CMPI.L #0x00000005,D7 00023386 6f d8 |o | BLE 0x23360 00023388 4a 10 |J | TST.B (A0) 0002338a 66 00 00 c8 |f | BNE 0x23454 0002338e 55 4f |UO | SUBQ.L #0x2,A7 00023390 4e ba fa f6 |N | JSR 0x22e88 00023394 10 1f | | MOVE.B (A7)+,D0 00023396 b0 01 | | CMP.B D1,D0 00023398 66 00 00 ba |f | BNE 0x23454 0002339c 4a 39 00 02 c8 94 |J9 | TST.B 0x2c894 000233a2 66 00 00 aa |f | BNE 0x2344e 000233a6 9e fc 00 30 | 0 | SUBA.W #0x30,A7 000233aa 22 4f |"O | MOVEA.L A7,A1 000233ac 45 fa d7 a6 |E | LEA.L 0x20b54,A2 000233b0 70 2e |p. | MOVEQ.L #0x2e,D0 000233b2 12 da | | MOVE.B (A2)+,(A1)+ 000233b4 51 c8 ff fc |Q | DBF D0,0x233b2 000233b8 3f 3a d8 16 |?: | MOVE.W 0x20bd0,-(A7) 000233bc 3f 3a d8 14 |?: | MOVE.W 0x20bd2,-(A7) 000233c0 51 4f |QO | SUBQ.L #0x8,A7 000233c2 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000233c6 3f 01 |? | MOVE.W D1,-(A7) 000233c8 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 000233cc 4e 93 |N | JSR (A3) 000233ce 2e ae 00 10 |. | MOVE.L (A6+0x10),(A7) 000233d2 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000233d8 48 6f 00 12 |Ho | PEA.L (A7+0x12) 000233dc 3f 01 |? | MOVE.W D1,-(A7) 000233de 3f 03 |? | MOVE.W D3,-(A7) 000233e0 4e 93 |N | JSR (A3) 000233e2 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 000233e6 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000233ec 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000233f0 3f 01 |? | MOVE.W D1,-(A7) 000233f2 3f 03 |? | MOVE.W D3,-(A7) 000233f4 4e 93 |N | JSR (A3) 000233f6 58 4f |XO | ADDQ.L #0x4,A7 000233f8 20 2f 00 50 | / P | MOVE.L (A7+0x50),D0 000233fc 2f 00 |/ | MOVE.L D0,-(A7) 000233fe 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00023404 58 4f |XO | ADDQ.L #0x4,A7 00023406 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 0002340c de c4 | | ADDA.W D4,A7 0002340e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023414 de c2 | | ADDA.W D2,A7 00023416 22 4f |"O | MOVEA.L A7,A1 00023418 45 fa d7 6a |E j | LEA.L 0x20b84,A2 0002341c 70 26 |p& | MOVEQ.L #0x26,D0 0002341e 12 da | | MOVE.B (A2)+,(A1)+ 00023420 51 c8 ff fc |Q | DBF D0,0x2341e 00023424 5d 4f |]O | SUBQ.L #0x6,A7 00023426 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002342a 3f 01 |? | MOVE.W D1,-(A7) 0002342c 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00023430 4e 93 |N | JSR (A3) 00023432 5c 4f |\O | ADDQ.L #0x6,A7 00023434 1e 81 | | MOVE.B D1,(A7) 00023436 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 0002343c 5c 4f |\O | ADDQ.L #0x6,A7 0002343e 4a 1f |J | TST.B (A7)+ 00023440 67 06 |g | BEQ 0x23448 00023442 4e ba fb 68 |N h | JSR 0x22fac 00023446 10 81 | | MOVE.B D1,(A0) 00023448 de fc 00 28 | ( | ADDA.W #0x28,A7 0002344c 60 06 |` | BRA 0x23454 0002344e 4e ba fb 5c |N \ | JSR 0x22fac 00023452 10 81 | | MOVE.B D1,(A0) 00023454 4a 10 |J | TST.B (A0) 00023456 67 68 |gh | BEQ 0x234c0 00023458 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 0002345c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023460 20 2f 00 08 | / | MOVE.L (A7+0x8),D0 00023464 2f 00 |/ | MOVE.L D0,-(A7) 00023466 1f 3c 00 08 | < | MOVE.B #0x08,-(A7) 0002346a 48 50 |HP | PEA.L (A0) 0002346c 4e ba f4 5e |N ^ | JSR 0x228cc 00023470 de fc 00 12 | | ADDA.W #0x12,A7 00023474 4a 10 |J | TST.B (A0) 00023476 66 46 |fF | BNE 0x234be 00023478 4e ba e6 ba |N | JSR 0x21b34 0002347c 30 39 00 02 fb a0 |09 | MOVE.W 0x2fba0,D0 00023482 02 40 4f 00 | @O | ANDI.W #0x4f00,D0 00023486 66 08 |f | BNE 0x23490 00023488 4a 79 00 02 fb 9e |Jy | TST.W 0x2fb9e 0002348e 67 2c |g, | BEQ 0x234bc 00023490 1f 01 | | MOVE.B D1,-(A7) 00023492 4e ba dc 48 |N H | JSR 0x210dc 00023496 54 4f |TO | ADDQ.L #0x2,A7 00023498 41 fa d7 4e |A N | LEA.L 0x20be8,A0 0002349c 70 04 |p | MOVEQ.L #0x04,D0 0002349e 2f 20 |/ | MOVE.L -(A0),-(A7) 000234a0 51 c8 ff fc |Q | DBF D0,0x2349e 000234a4 59 4f |YO | SUBQ.L #0x4,A7 000234a6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000234aa 3f 01 |? | MOVE.W D1,-(A7) 000234ac 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 000234b0 4e 93 |N | JSR (A3) 000234b2 50 4f |PO | ADDQ.L #0x8,A7 000234b4 4e ba d9 8a |N | JSR 0x20e40 000234b8 de c4 | | ADDA.W D4,A7 000234ba 60 02 |` | BRA 0x234be 000234bc 10 81 | | MOVE.B D1,(A0) 000234be 60 08 |` | BRA 0x234c8 000234c0 49 ee ff f8 |I | LEA.L (A6-0x8),A4 000234c4 4e ba fd 9e |N | JSR 0x23264 000234c8 20 1f | | MOVE.L (A7)+,D0 000234ca 52 80 |R | ADDQ.L #0x1,D0 000234cc 68 00 fe 84 |h | BVC 0x23352 000234d0 58 4f |XO | ADDQ.L #0x4,A7 000234d2 4c df 1f 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4 000234d6 4e 5e |N^ | UNLK A6 000234d8 4e 75 |Nu | RTS 000234da ; -------------------------------------------------------------------------------------- 000234da ; OMSI PASCAL Function 000234da ; <LVAR 0x008 1(rw)> 000234da ; <LVAR -0x002 @ 1(r)> 000234da ; <LVAR -0x004 @> 000234da ; -------------------------------------------------------------------------------------- 000234da 4e 56 ff ea |NV | LINK.W A6,#0xffea 000234de bf d5 | | CMPA.L (A5),A7 000234e0 62 06 |b | BHI 0x234e8 000234e2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000234e6 4e 76 |Nv | TRAPV 000234e8 de fc 00 12 | | ADDA.W #0x12,A7 000234ec 48 e7 c0 00 |H | MOVEM.L D1+D0,-(A7) 000234f0 72 01 |r | MOVEQ.L #0x01,D1 000234f2 42 2e 00 08 |B. | CLR.B (A6+0x8) 000234f6 3f 01 |? | MOVE.W D1,-(A7) 000234f8 48 6e ff fe |Hn | PEA.L (A6-0x2) 000234fc 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00023502 5c 4f |\O | ADDQ.L #0x6,A7 00023504 10 2e ff fe | . | MOVE.B (A6-0x2),D0 00023508 b0 01 | | CMP.B D1,D0 0002350a 66 12 |f | BNE 0x2351e 0002350c 3f 01 |? | MOVE.W D1,-(A7) 0002350e 48 6e ff fc |Hn | PEA.L (A6-0x4) 00023512 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00023518 5c 4f |\O | ADDQ.L #0x6,A7 0002351a 1d 41 00 08 | A | MOVE.B D1,(A6+0x8) 0002351e 4c df 00 03 |L | MOVEM.L (A7)+,D0+D1 00023522 4e 5e |N^ | UNLK A6 00023524 4e 75 |Nu | RTS 00023526 ; -------------------------------------------------------------------------------------- 00023526 ; OMSI PASCAL Function 00023526 ; -------------------------------------------------------------------------------------- 00023526 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 0002352a bf d5 | | CMPA.L (A5),A7 0002352c 62 06 |b | BHI 0x23534 0002352e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023532 4e 76 |Nv | TRAPV 00023534 de fc 00 2c | , | ADDA.W #0x2c,A7 00023538 48 e7 99 c0 |H | MOVEM.L A1+A0+D7+D4+D3+D0,-(A7) 0002353c 7e 01 |~ | MOVEQ.L #0x01,D7 0002353e 20 07 | | MOVE.L D7,D0 00023540 53 80 |S | SUBQ.L #0x1,D0 00023542 0c 80 00 00 03 e7 | | CMPI.L #0x000003e7,D0 00023548 63 02 |c | BLS 0x2354c 0002354a 4e 4f |NO | TRAP #15 0002354c 28 00 |( | MOVE.L D0,D4 0002354e 76 0c |v | MOVEQ.L #0x0c,D3 00023550 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00023556 41 f9 00 02 3f 4e |A ?N | LEA.L 0x23f4e,A0 0002355c 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00023560 22 48 |"H | MOVEA.L A0,A1 00023562 d3 fc 00 00 89 5c | \ | ADDA.L #0x895c,A1 00023568 42 91 |B | CLR.L (A1) 0002356a 22 48 |"H | MOVEA.L A0,A1 0002356c d3 fc 00 00 89 60 | ` | ADDA.L #0x8960,A1 00023572 42 91 |B | CLR.L (A1) 00023574 d1 fc 00 00 89 64 | d | ADDA.L #0x8964,A0 0002357a 42 90 |B | CLR.L (A0) 0002357c 52 87 |R | ADDQ.L #0x1,D7 0002357e 0c 87 00 00 03 e8 | | CMPI.L #0x000003e8,D7 00023584 6f b8 |o | BLE 0x2353e 00023586 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x2f78a 0002358e f7 8a | | 00023590 4c df 03 99 |L | MOVEM.L (A7)+,D0+D3+D4+D7+A0+A1 00023594 4e 5e |N^ | UNLK A6 00023596 4e 75 |Nu | RTS 00023598 ; -------------------------------------------------------------------------------------- 00023598 ; OMSI PASCAL Function 00023598 ; <LVAR -0x010 @ 1(r)> 00023598 ; -------------------------------------------------------------------------------------- 00023598 4e 56 ff 7a |NV z | LINK.W A6,#0xff7a 0002359c bf d5 | | CMPA.L (A5),A7 0002359e 62 06 |b | BHI 0x235a6 000235a0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000235a4 4e 76 |Nv | TRAPV 000235a6 de fc 00 72 | r | ADDA.W #0x72,A7 000235aa 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000235ae 45 f9 00 02 3f 5c |E ?\ | LEA.L 0x23f5c,A2 000235b4 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000235ba 49 ee ff f0 |I | LEA.L (A6-0x10),A4 000235be 72 01 |r | MOVEQ.L #0x01,D1 000235c0 74 0c |t | MOVEQ.L #0x0c,D2 000235c2 76 09 |v | MOVEQ.L #0x09,D3 000235c4 78 0e |x | MOVEQ.L #0x0e,D4 000235c6 7a 00 |z | MOVEQ.L #0x00,D5 000235c8 7c 00 || | MOVEQ.L #0x00,D6 000235ca 4e ba ff 5a |N Z | JSR 0x23526 000235ce 9e fc 00 2e | . | SUBA.W #0x2e,A7 000235d2 20 4f | O | MOVEA.L A7,A0 000235d4 43 fa d6 12 |C | LEA.L 0x20be8,A1 000235d8 70 2c |p, | MOVEQ.L #0x2c,D0 000235da 10 d9 | | MOVE.B (A1)+,(A0)+ 000235dc 51 c8 ff fc |Q | DBF D0,0x235da 000235e0 59 4f |YO | SUBQ.L #0x4,A7 000235e2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000235e6 3f 01 |? | MOVE.W D1,-(A7) 000235e8 3f 3c 00 2d |?< - | MOVE.W #0x2d,-(A7) 000235ec 4e 93 |N | JSR (A3) 000235ee 50 4f |PO | ADDQ.L #0x8,A7 000235f0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000235f6 de fc 00 28 | ( | ADDA.W #0x28,A7 000235fa 20 4f | O | MOVEA.L A7,A0 000235fc 43 fa d6 18 |C | LEA.L 0x20c16,A1 00023600 70 08 |p | MOVEQ.L #0x08,D0 00023602 10 d9 | | MOVE.B (A1)+,(A0)+ 00023604 51 c8 ff fc |Q | DBF D0,0x23602 00023608 51 4f |QO | SUBQ.L #0x8,A7 0002360a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002360e 3f 01 |? | MOVE.W D1,-(A7) 00023610 3f 03 |? | MOVE.W D3,-(A7) 00023612 4e 93 |N | JSR (A3) 00023614 2e 85 |. | MOVE.L D5,(A7) 00023616 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002361c 58 4f |XO | ADDQ.L #0x4,A7 0002361e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023624 50 4f |PO | ADDQ.L #0x8,A7 00023626 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002362c de c4 | | ADDA.W D4,A7 0002362e 7e 00 |~ | MOVEQ.L #0x00,D7 00023630 52 87 |R | ADDQ.L #0x1,D7 00023632 2f 05 |/ | MOVE.L D5,-(A7) 00023634 2f 06 |/ | MOVE.L D6,-(A7) 00023636 48 52 |HR | PEA.L (A2) 00023638 4e ba f3 ee |N | JSR 0x22a28 0002363c de c2 | | ADDA.W D2,A7 0002363e 4a 12 |J | TST.B (A2) 00023640 66 08 |f | BNE 0x2364a 00023642 0c 87 00 00 00 05 | | CMPI.L #0x00000005,D7 00023648 6f e6 |o | BLE 0x23630 0002364a 4a 12 |J | TST.B (A2) 0002364c 67 1e |g | BEQ 0x2366c 0002364e 2f 05 |/ | MOVE.L D5,-(A7) 00023650 2f 06 |/ | MOVE.L D6,-(A7) 00023652 48 54 |HT | PEA.L (A4) 00023654 4e ba f5 60 |N ` | JSR 0x22bb6 00023658 de c2 | | ADDA.W D2,A7 0002365a 4a 14 |J | TST.B (A4) 0002365c 66 0c |f | BNE 0x2366a 0002365e 2f 05 |/ | MOVE.L D5,-(A7) 00023660 2f 06 |/ | MOVE.L D6,-(A7) 00023662 48 54 |HT | PEA.L (A4) 00023664 4e ba fc b8 |N | JSR 0x2331e 00023668 de c2 | | ADDA.W D2,A7 0002366a 60 0c |` | BRA 0x23678 0002366c 2f 05 |/ | MOVE.L D5,-(A7) 0002366e 2f 06 |/ | MOVE.L D6,-(A7) 00023670 48 54 |HT | PEA.L (A4) 00023672 4e ba fc aa |N | JSR 0x2331e 00023676 de c2 | | ADDA.W D2,A7 00023678 52 86 |R | ADDQ.L #0x1,D6 0002367a 42 80 |B | CLR.L D0 0002367c 10 39 00 02 fd 46 | 9 F | MOVE.B 0x2fd46,D0 00023682 bc 80 | | CMP.L D0,D6 00023684 65 6c |el | BCS 0x236f2 00023686 7c 00 || | MOVEQ.L #0x00,D6 00023688 52 85 |R | ADDQ.L #0x1,D5 0002368a 1f 3c 00 1b | < | MOVE.B #0x1b,-(A7) 0002368e 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00023694 55 4f |UO | SUBQ.L #0x2,A7 00023696 1e ba d5 88 | | MOVE.B 0x20c20,(A7) 0002369a 1f 7a d5 85 00 01 | z | MOVE.B 0x20c21,(A7+0x1) 000236a0 1f 7a d5 80 00 02 | z | MOVE.B 0x20c22,(A7+0x2) 000236a6 59 4f |YO | SUBQ.L #0x4,A7 000236a8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000236ac 3f 01 |? | MOVE.W D1,-(A7) 000236ae 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 000236b2 4e 93 |N | JSR (A3) 000236b4 50 4f |PO | ADDQ.L #0x8,A7 000236b6 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000236bc 55 4f |UO | SUBQ.L #0x2,A7 000236be 20 4f | O | MOVEA.L A7,A0 000236c0 43 fa d5 62 |C b | LEA.L 0x20c24,A1 000236c4 70 08 |p | MOVEQ.L #0x08,D0 000236c6 10 d9 | | MOVE.B (A1)+,(A0)+ 000236c8 51 c8 ff fc |Q | DBF D0,0x236c6 000236cc 51 4f |QO | SUBQ.L #0x8,A7 000236ce 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000236d2 3f 01 |? | MOVE.W D1,-(A7) 000236d4 3f 03 |? | MOVE.W D3,-(A7) 000236d6 4e 93 |N | JSR (A3) 000236d8 2e 85 |. | MOVE.L D5,(A7) 000236da 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000236e0 58 4f |XO | ADDQ.L #0x4,A7 000236e2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000236e8 50 4f |PO | ADDQ.L #0x8,A7 000236ea 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000236f0 de c4 | | ADDA.W D4,A7 000236f2 42 80 |B | CLR.L D0 000236f4 30 39 00 02 fd 44 |09 D | MOVE.W 0x2fd44,D0 000236fa ba 80 | | CMP.L D0,D5 000236fc 64 0c |d | BCC 0x2370a 000236fe 55 4f |UO | SUBQ.L #0x2,A7 00023700 4e ba fd d8 |N | JSR 0x234da 00023704 4a 1f |J | TST.B (A7)+ 00023706 67 00 ff 26 |g & | BEQ 0x2362e 0002370a 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002370e 4e 5e |N^ | UNLK A6 00023710 4e 75 |Nu | RTS 00023712 ; -------------------------------------------------------------------------------------- 00023712 ; OMSI PASCAL Function 00023712 ; <LVAR -0x004 @ 4(r)> 00023712 ; <LVAR -0x008 @ 4(r)> 00023712 ; -------------------------------------------------------------------------------------- 00023712 4e 56 ff ec |NV | LINK.W A6,#0xffec 00023716 bf d5 | | CMPA.L (A5),A7 00023718 62 06 |b | BHI 0x23720 0002371a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002371e 4e 76 |Nv | TRAPV 00023720 de fc 00 0c | | ADDA.W #0xc,A7 00023724 48 78 00 63 |Hx c | PEA.L 0x63 00023728 4e ba e8 8c |N | JSR 0x21fb6 0002372c 58 4f |XO | ADDQ.L #0x4,A7 0002372e 33 fc 00 09 00 02 fd 44 |3 D| MOVE.W #0x9,0x2fd44 00023736 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002373a 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00023740 58 4f |XO | ADDQ.L #0x4,A7 00023742 42 39 00 02 c8 94 |B9 | CLR.B 0x2c894 00023748 4e ba fe 4e |N N | JSR 0x23598 0002374c 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00023750 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00023756 2e ae ff fc |. | MOVE.L (A6-0x4),(A7) 0002375a 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 0002375e 4e ba e6 74 |N t | JSR 0x21dd4 00023762 50 4f |PO | ADDQ.L #0x8,A7 00023764 4e 5e |N^ | UNLK A6 00023766 4e 75 |Nu | RTS 00023768 ; -------------------------------------------------------------------------------------- 00023768 ; OMSI PASCAL Function 00023768 ; <LVAR -0x004 @ 4(r)> 00023768 ; <LVAR -0x008 @ 4(r)> 00023768 ; -------------------------------------------------------------------------------------- 00023768 4e 56 ff ec |NV | LINK.W A6,#0xffec 0002376c bf d5 | | CMPA.L (A5),A7 0002376e 62 06 |b | BHI 0x23776 00023770 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023774 4e 76 |Nv | TRAPV 00023776 de fc 00 0c | | ADDA.W #0xc,A7 0002377a 48 78 00 63 |Hx c | PEA.L 0x63 0002377e 4e ba e8 36 |N 6 | JSR 0x21fb6 00023782 58 4f |XO | ADDQ.L #0x4,A7 00023784 33 fc 00 63 00 02 fd 44 |3 c D| MOVE.W #0x63,0x2fd44 0002378c 48 6e ff fc |Hn | PEA.L (A6-0x4) 00023790 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00023796 58 4f |XO | ADDQ.L #0x4,A7 00023798 42 39 00 02 c8 94 |B9 | CLR.B 0x2c894 0002379e 4e ba fd f8 |N | JSR 0x23598 000237a2 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000237a6 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000237ac 2e ae ff fc |. | MOVE.L (A6-0x4),(A7) 000237b0 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 000237b4 4e ba e6 1e |N | JSR 0x21dd4 000237b8 50 4f |PO | ADDQ.L #0x8,A7 000237ba 4e 5e |N^ | UNLK A6 000237bc 4e 75 |Nu | RTS 000237be ; -------------------------------------------------------------------------------------- 000237be ; OMSI PASCAL Function 000237be ; <LVAR -0x004 @ 4(r)> 000237be ; <LVAR -0x008 @ 4(r)> 000237be ; -------------------------------------------------------------------------------------- 000237be 4e 56 ff ec |NV | LINK.W A6,#0xffec 000237c2 bf d5 | | CMPA.L (A5),A7 000237c4 62 06 |b | BHI 0x237cc 000237c6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000237ca 4e 76 |Nv | TRAPV 000237cc de fc 00 0c | | ADDA.W #0xc,A7 000237d0 48 78 00 63 |Hx c | PEA.L 0x63 000237d4 4e ba e7 e0 |N | JSR 0x21fb6 000237d8 58 4f |XO | ADDQ.L #0x4,A7 000237da 48 6e ff fc |Hn | PEA.L (A6-0x4) 000237de 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000237e4 58 4f |XO | ADDQ.L #0x4,A7 000237e6 42 39 00 02 c8 94 |B9 | CLR.B 0x2c894 000237ec 4e ba fd aa |N | JSR 0x23598 000237f0 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000237f4 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000237fa 2e ae ff fc |. | MOVE.L (A6-0x4),(A7) 000237fe 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00023802 4e ba e5 d0 |N | JSR 0x21dd4 00023806 50 4f |PO | ADDQ.L #0x8,A7 00023808 4e 5e |N^ | UNLK A6 0002380a 4e 75 |Nu | RTS 0002380c ; -------------------------------------------------------------------------------------- 0002380c ; OMSI PASCAL Function 0002380c ; <LVAR -0x004 @ 4(r)> 0002380c ; <LVAR -0x008 @ 4(r)> 0002380c ; -------------------------------------------------------------------------------------- 0002380c 4e 56 ff 70 |NV p | LINK.W A6,#0xff70 00023810 bf d5 | | CMPA.L (A5),A7 00023812 62 06 |b | BHI 0x2381a 00023814 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023818 4e 76 |Nv | TRAPV 0002381a de fc 00 6c | l | ADDA.W #0x6c,A7 0002381e 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023822 43 f9 00 02 fd 47 |C G | LEA.L 0x2fd47,A1 00023828 45 f9 00 02 fd 42 |E B | LEA.L 0x2fd42,A2 0002382e 47 f9 00 01 02 8c |G | LEA.L ?muls_d3_d4,A3 00023834 49 f9 00 02 fd 44 |I D | LEA.L 0x2fd44,A4 0002383a 74 01 |t | MOVEQ.L #0x01,D2 0002383c 7a 03 |z | MOVEQ.L #0x03,D5 0002383e 7c 1e || | MOVEQ.L #0x1e,D6 00023840 7e 00 |~ | MOVEQ.L #0x00,D7 00023842 41 fa d4 08 |A | LEA.L 0x20c4c,A0 00023846 70 0e |p | MOVEQ.L #0x0e,D0 00023848 3f 20 |? | MOVE.W -(A0),-(A7) 0002384a 51 c8 ff fc |Q | DBF D0,0x23848 0002384e 9e fc 00 0a | | SUBA.W #0xa,A7 00023852 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00023856 3f 02 |? | MOVE.W D2,-(A7) 00023858 3f 06 |? | MOVE.W D6,-(A7) 0002385a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023860 2e 87 |. | MOVE.L D7,(A7) 00023862 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00023868 58 4f |XO | ADDQ.L #0x4,A7 0002386a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023870 5c 4f |\O | ADDQ.L #0x6,A7 00023872 1e 82 | | MOVE.B D2,(A7) 00023874 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 0002387a 5c 4f |\O | ADDQ.L #0x6,A7 0002387c 4a 1f |J | TST.B (A7)+ 0002387e 67 32 |g2 | BEQ 0x238b2 00023880 2f 07 |/ | MOVE.L D7,-(A7) 00023882 4e ba e7 32 |N 2 | JSR 0x21fb6 00023886 58 4f |XO | ADDQ.L #0x4,A7 00023888 be 85 | | CMP.L D5,D7 0002388a 63 02 |c | BLS 0x2388e 0002388c 4e 4f |NO | TRAP #15 0002388e 28 07 |( | MOVE.L D7,D4 00023890 76 06 |v | MOVEQ.L #0x06,D3 00023892 4e 93 |N | JSR (A3) 00023894 1d 82 48 dc | H | MOVE.B D2,(A6+D4.L-#0x24) 00023898 1d 94 48 de | H | MOVE.B (A4),(A6+D4.L-#0x22) 0002389c 1d b9 00 02 fd 45 48 df | EH | MOVE.B 0x2fd45,(A6+D4.L-#0x21) 000238a4 1d b9 00 02 fd 46 48 e0 | FH | MOVE.B 0x2fd46,(A6+D4.L-#0x20) 000238ac 1d 91 48 e1 | H | MOVE.B (A1),(A6+D4.L-#0x1f) 000238b0 60 10 |` | BRA 0x238c2 000238b2 be 85 | | CMP.L D5,D7 000238b4 63 02 |c | BLS 0x238b8 000238b6 4e 4f |NO | TRAP #15 000238b8 28 07 |( | MOVE.L D7,D4 000238ba 76 06 |v | MOVEQ.L #0x06,D3 000238bc 4e 93 |N | JSR (A3) 000238be 42 36 48 dc |B6H | CLR.B (A6+D4.L-#0x24) 000238c2 de c6 | | ADDA.W D6,A7 000238c4 52 87 |R | ADDQ.L #0x1,D7 000238c6 be 85 | | CMP.L D5,D7 000238c8 6f 00 ff 78 |o x | BLE 0x23842 000238cc 7e 00 |~ | MOVEQ.L #0x00,D7 000238ce be 85 | | CMP.L D5,D7 000238d0 63 02 |c | BLS 0x238d4 000238d2 4e 4f |NO | TRAP #15 000238d4 28 07 |( | MOVE.L D7,D4 000238d6 76 06 |v | MOVEQ.L #0x06,D3 000238d8 4e 93 |N | JSR (A3) 000238da 4a 36 48 dc |J6H | TST.B (A6+D4.L-#0x24) 000238de 67 00 00 ea |g | BEQ 0x239ca 000238e2 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000238e8 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000238ee 2f 3a d3 68 |/: h | MOVE.L 0x20c58,-(A7) 000238f2 2f 3a d3 60 |/: ` | MOVE.L 0x20c54,-(A7) 000238f6 2f 3a d3 58 |/: X | MOVE.L 0x20c50,-(A7) 000238fa 2f 3a d3 50 |/: P | MOVE.L 0x20c4c,-(A7) 000238fe 51 4f |QO | SUBQ.L #0x8,A7 00023900 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023904 3f 02 |? | MOVE.W D2,-(A7) 00023906 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 0002390a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023910 2e 87 |. | MOVE.L D7,(A7) 00023912 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00023918 58 4f |XO | ADDQ.L #0x4,A7 0002391a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023920 50 4f |PO | ADDQ.L #0x8,A7 00023922 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023928 de fc 00 14 | | ADDA.W #0x14,A7 0002392c 18 b6 48 de | H | MOVE.B (A6+D4.L-#0x22),(A4) 00023930 13 f6 48 df 00 02 fd 45 | H E| MOVE.B (A6+D4.L-#0x21),0x2fd45 00023938 13 f6 48 e0 00 02 fd 46 | H F| MOVE.B (A6+D4.L-#0x20),0x2fd46 00023940 12 b6 48 e1 | H | MOVE.B (A6+D4.L-#0x1f),(A1) 00023944 0c 87 00 00 00 0f | | CMPI.L #0x0000000f,D7 0002394a 63 02 |c | BLS 0x2394e 0002394c 4e 4f |NO | TRAP #15 0002394e 34 87 |4 | MOVE.W D7,(A2) 00023950 42 80 |B | CLR.L D0 00023952 10 11 | | MOVE.B (A1),D0 00023954 32 3c 01 02 |2< | MOVE.W #0x102,D1 00023958 c2 c0 | | MULU.W D0,D1 0002395a 44 81 |D | NEG.L D1 0002395c 02 81 00 00 ff ff | | ANDI.L #0x0000ffff,D1 00023962 33 c1 00 02 fd 48 |3 H | MOVE.W D1,0x2fd48 00023968 32 12 |2 | MOVE.W (A2),D1 0002396a 0c 41 ff ff | A | CMPI.W #0xffff,D1 0002396e 63 02 |c | BLS 0x23972 00023970 4e 4f |NO | TRAP #15 00023972 33 c1 00 02 3f 66 |3 ?f | MOVE.W D1,0x23f66 00023978 54 40 |T@ | ADDQ.W #0x2,D0 0002397a e2 40 | @ | ASR.W #0x1,D0 0002397c c1 fc 01 00 | | MULS.W #0x100,D0 00023980 33 c0 00 02 c8 96 |3 | MOVE.W D0,0x2c896 00023986 30 12 |0 | MOVE.W (A2),D0 00023988 e1 40 | @ | ASL.W #0x8,D0 0002398a 54 40 |T@ | ADDQ.W #0x2,D0 0002398c 0c 40 ff ff | @ | CMPI.W #0xffff,D0 00023990 63 02 |c | BLS 0x23994 00023992 4e 4f |NO | TRAP #15 00023994 33 c0 00 02 c8 a0 |3 | MOVE.W D0,0x2c8a0 0002399a 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002399e 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000239a4 58 4f |XO | ADDQ.L #0x4,A7 000239a6 13 c2 00 02 c8 94 | | MOVE.B D2,0x2c894 000239ac 4e ba fb ea |N | JSR 0x23598 000239b0 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000239b4 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000239ba 2e ae ff fc |. | MOVE.L (A6-0x4),(A7) 000239be 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 000239c2 4e ba e4 10 |N | JSR 0x21dd4 000239c6 50 4f |PO | ADDQ.L #0x8,A7 000239c8 60 04 |` | BRA 0x239ce 000239ca 42 36 48 dc |B6H | CLR.B (A6+D4.L-#0x24) 000239ce 52 87 |R | ADDQ.L #0x1,D7 000239d0 be 85 | | CMP.L D5,D7 000239d2 6f 00 fe fa |o | BLE 0x238ce 000239d6 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000239da 4e 5e |N^ | UNLK A6 000239dc 4e 75 |Nu | RTS 000239de ; -------------------------------------------------------------------------------------- 000239de ; OMSI PASCAL Function 000239de ; -------------------------------------------------------------------------------------- 000239de 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 000239e2 bf d5 | | CMPA.L (A5),A7 000239e4 62 06 |b | BHI 0x239ec 000239e6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000239ea 4e 76 |Nv | TRAPV 000239ec de fc 00 56 | V | ADDA.W #0x56,A7 000239f0 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000239f4 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000239fa 47 f9 00 01 03 d8 |G | LEA.L WriteConsoleString(str : String),A3 00023a00 49 fa c7 08 |I | LEA.L 0x2010a,A4 00023a04 74 0e |t | MOVEQ.L #0x0e,D2 00023a06 76 01 |v | MOVEQ.L #0x01,D3 00023a08 78 0d |x | MOVEQ.L #0x0d,D4 00023a0a 7a 12 |z | MOVEQ.L #0x12,D5 00023a0c 7c 05 || | MOVEQ.L #0x05,D6 00023a0e 9e c2 | | SUBA.W D2,A7 00023a10 20 4f | O | MOVEA.L A7,A0 00023a12 43 fa d2 48 |C H | LEA.L 0x20c5c,A1 00023a16 70 0c |p | MOVEQ.L #0x0c,D0 00023a18 10 d9 | | MOVE.B (A1)+,(A0)+ 00023a1a 51 c8 ff fc |Q | DBF D0,0x23a18 00023a1e 59 4f |YO | SUBQ.L #0x4,A7 00023a20 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023a24 3f 03 |? | MOVE.W D3,-(A7) 00023a26 3f 04 |? | MOVE.W D4,-(A7) 00023a28 4e 92 |N | JSR (A2) 00023a2a 50 4f |PO | ADDQ.L #0x8,A7 00023a2c 4e 93 |N | JSR (A3) 00023a2e de c5 | | ADDA.W D5,A7 00023a30 7e 01 |~ | MOVEQ.L #0x01,D7 00023a32 20 06 | | MOVE.L D6,D0 00023a34 53 80 |S | SUBQ.L #0x1,D0 00023a36 0c 80 00 00 00 22 | " | CMPI.L #0x00000022,D0 00023a3c 63 02 |c | BLS 0x23a40 00023a3e 4e 4f |NO | TRAP #15 00023a40 20 4c | L | MOVEA.L A4,A0 00023a42 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1 00023a46 0c 01 00 2c | , | CMPI.B #0x2c,D1 00023a4a 66 00 00 96 |f | BNE 0x23ae2 00023a4e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00023a54 10 07 | | MOVE.B D7,D0 00023a56 48 80 |H | EXTB.W D0 00023a58 53 40 |S@ | SUBQ.W #0x1,D0 00023a5a 0c 40 00 02 | @ | CMPI.W #0x0002,D0 00023a5e 63 02 |c | BLS 0x23a62 00023a60 4e 4e |NN | TRAP #14 00023a62 d0 40 | @ | ADD.W D0,D0 00023a64 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00023a6c 00 06 | | .CONST 0x6 ; [0x0] -> 0x23a72 00023a6e 00 2c | , | .CONST 0x2c ; [0x1] -> 0x23a98 00023a70 00 52 | R | .CONST 0x52 ; [0x2] -> 0x23abe 00023a72 switch@0x23a64[0x0]: 00023a72 9e c2 | | SUBA.W D2,A7 00023a74 20 4f | O | MOVEA.L A7,A0 00023a76 43 fa d1 f2 |C | LEA.L 0x20c6a,A1 00023a7a 70 0c |p | MOVEQ.L #0x0c,D0 00023a7c 10 d9 | | MOVE.B (A1)+,(A0)+ 00023a7e 51 c8 ff fc |Q | DBF D0,0x23a7c 00023a82 59 4f |YO | SUBQ.L #0x4,A7 00023a84 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023a88 3f 03 |? | MOVE.W D3,-(A7) 00023a8a 3f 04 |? | MOVE.W D4,-(A7) 00023a8c 4e 92 |N | JSR (A2) 00023a8e 50 4f |PO | ADDQ.L #0x8,A7 00023a90 4e 93 |N | JSR (A3) 00023a92 de c5 | | ADDA.W D5,A7 00023a94 7e 02 |~ | MOVEQ.L #0x02,D7 00023a96 60 48 |`H | BRA 0x23ae0 00023a98 switch@0x23a64[0x1]: 00023a98 9e c2 | | SUBA.W D2,A7 00023a9a 20 4f | O | MOVEA.L A7,A0 00023a9c 43 fa d1 da |C | LEA.L 0x20c78,A1 00023aa0 70 0c |p | MOVEQ.L #0x0c,D0 00023aa2 10 d9 | | MOVE.B (A1)+,(A0)+ 00023aa4 51 c8 ff fc |Q | DBF D0,0x23aa2 00023aa8 59 4f |YO | SUBQ.L #0x4,A7 00023aaa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023aae 3f 03 |? | MOVE.W D3,-(A7) 00023ab0 3f 04 |? | MOVE.W D4,-(A7) 00023ab2 4e 92 |N | JSR (A2) 00023ab4 50 4f |PO | ADDQ.L #0x8,A7 00023ab6 4e 93 |N | JSR (A3) 00023ab8 de c5 | | ADDA.W D5,A7 00023aba 7e 03 |~ | MOVEQ.L #0x03,D7 00023abc 60 22 |`" | BRA 0x23ae0 00023abe switch@0x23a64[0x2]: 00023abe 9e c2 | | SUBA.W D2,A7 00023ac0 20 4f | O | MOVEA.L A7,A0 00023ac2 43 fa d1 c2 |C | LEA.L 0x20c86,A1 00023ac6 70 0c |p | MOVEQ.L #0x0c,D0 00023ac8 10 d9 | | MOVE.B (A1)+,(A0)+ 00023aca 51 c8 ff fc |Q | DBF D0,0x23ac8 00023ace 59 4f |YO | SUBQ.L #0x4,A7 00023ad0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023ad4 3f 03 |? | MOVE.W D3,-(A7) 00023ad6 3f 04 |? | MOVE.W D4,-(A7) 00023ad8 4e 92 |N | JSR (A2) 00023ada 50 4f |PO | ADDQ.L #0x8,A7 00023adc 4e 93 |N | JSR (A3) 00023ade de c5 | | ADDA.W D5,A7 00023ae0 60 22 |`" | BRA 0x23b04 00023ae2 20 4c | L | MOVEA.L A4,A0 00023ae4 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1 00023ae8 0c 01 00 5c | \ | CMPI.B #0x5c,D1 00023aec 66 08 |f | BNE 0x23af6 00023aee 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00023af4 60 0e |` | BRA 0x23b04 00023af6 20 4c | L | MOVEA.L A4,A0 00023af8 1f 30 08 00 | 0 | MOVE.B (A0+D0.L),-(A7) 00023afc 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00023b02 54 4f |TO | ADDQ.L #0x2,A7 00023b04 52 86 |R | ADDQ.L #0x1,D6 00023b06 20 06 | | MOVE.L D6,D0 00023b08 53 80 |S | SUBQ.L #0x1,D0 00023b0a 53 80 |S | SUBQ.L #0x1,D0 00023b0c 0c 80 00 00 00 22 | " | CMPI.L #0x00000022,D0 00023b12 63 02 |c | BLS 0x23b16 00023b14 4e 4f |NO | TRAP #15 00023b16 20 4c | L | MOVEA.L A4,A0 00023b18 10 30 08 00 | 0 | MOVE.B (A0+D0.L),D0 00023b1c 0c 00 00 5c | \ | CMPI.B #0x5c,D0 00023b20 66 00 ff 10 |f | BNE 0x23a32 00023b24 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00023b28 4e 5e |N^ | UNLK A6 00023b2a 4e 75 |Nu | RTS 00023b2c ; -------------------------------------------------------------------------------------- 00023b2c ; OMSI PASCAL Function 00023b2c ; -------------------------------------------------------------------------------------- 00023b2c 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 00023b30 bf d5 | | CMPA.L (A5),A7 00023b32 62 06 |b | BHI 0x23b3a 00023b34 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023b38 4e 76 |Nv | TRAPV 00023b3a de fc 00 4c | L | ADDA.W #0x4c,A7 00023b3e 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00023b42 4e ba fe 9a |N | JSR 0x239de 00023b46 55 4f |UO | SUBQ.L #0x2,A7 00023b48 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool 00023b4e 4a 1f |J | TST.B (A7)+ 00023b50 66 0c |f | BNE 0x23b5e 00023b52 55 4f |UO | SUBQ.L #0x2,A7 00023b54 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00023b5a 4a 1f |J | TST.B (A7)+ 00023b5c 67 30 |g0 | BEQ 0x23b8e 00023b5e 9e fc 00 30 | 0 | SUBA.W #0x30,A7 00023b62 20 4f | O | MOVEA.L A7,A0 00023b64 43 fa d1 2e |C . | LEA.L 0x20c94,A1 00023b68 70 2e |p. | MOVEQ.L #0x2e,D0 00023b6a 10 d9 | | MOVE.B (A1)+,(A0)+ 00023b6c 51 c8 ff fc |Q | DBF D0,0x23b6a 00023b70 59 4f |YO | SUBQ.L #0x4,A7 00023b72 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023b76 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00023b7a 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 00023b7e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023b84 50 4f |PO | ADDQ.L #0x8,A7 00023b86 4e ba d2 b8 |N | JSR 0x20e40 00023b8a de fc 00 34 | 4 | ADDA.W #0x34,A7 00023b8e 41 f9 00 02 f7 8e |A | LEA.L 0x2f78e,A0 00023b94 23 c8 00 02 fb 90 |# | MOVE.L A0,0x2fb90 00023b9a 2f 08 |/ | MOVE.L A0,-(A7) 00023b9c 23 df 00 02 fb 94 |# | MOVE.L (A7)+,0x2fb94 00023ba2 41 f9 00 02 3f 68 |A ?h | LEA.L 0x23f68,A0 00023ba8 43 fa d1 ea |C | LEA.L 0x20d94,A1 00023bac 70 05 |p | MOVEQ.L #0x05,D0 00023bae 20 d9 | | MOVE.L (A1)+,(A0)+ 00023bb0 51 c8 ff fc |Q | DBF D0,0x23bae 00023bb4 4e ba f9 70 |N p | JSR 0x23526 00023bb8 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00023bbc 4e 5e |N^ | UNLK A6 00023bbe 4e 75 |Nu | RTS 00023bc0 ; -------------------------------------------------------------------------------------- 00023bc0 ; OMSI PASCAL Function 00023bc0 ; -------------------------------------------------------------------------------------- 00023bc0 START: 00023bc0 4f fa 00 08 |O | LEA.L MAIN,A7 00023bc4 4e f9 00 01 02 80 |N | JMP ?start_program 00023bca MAIN: 00023bca 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00023bd0 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00023bd6 49 f9 00 02 fd 4a |I J | LEA.L 0x2fd4a,A4 00023bdc 72 01 |r | MOVEQ.L #0x01,D1 00023bde 74 06 |t | MOVEQ.L #0x06,D2 00023be0 76 0c |v | MOVEQ.L #0x0c,D3 00023be2 4e ba ff 48 |N H | JSR 0x23b2c 00023be6 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00023bec 2f 3a d0 de |/: | MOVE.L 0x20ccc,-(A7) 00023bf0 2f 3a d0 d6 |/: | MOVE.L 0x20cc8,-(A7) 00023bf4 2f 3a d0 ce |/: | MOVE.L 0x20cc4,-(A7) 00023bf8 59 4f |YO | SUBQ.L #0x4,A7 00023bfa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023bfe 3f 01 |? | MOVE.W D1,-(A7) 00023c00 3f 03 |? | MOVE.W D3,-(A7) 00023c02 4e 92 |N | JSR (A2) 00023c04 50 4f |PO | ADDQ.L #0x8,A7 00023c06 4e 93 |N | JSR (A3) 00023c08 54 4f |TO | ADDQ.L #0x2,A7 00023c0a 20 4f | O | MOVEA.L A7,A0 00023c0c 43 fa d0 c2 |C | LEA.L 0x20cd0,A1 00023c10 70 0c |p | MOVEQ.L #0x0c,D0 00023c12 10 d9 | | MOVE.B (A1)+,(A0)+ 00023c14 51 c8 ff fc |Q | DBF D0,0x23c12 00023c18 59 4f |YO | SUBQ.L #0x4,A7 00023c1a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023c1e 3f 01 |? | MOVE.W D1,-(A7) 00023c20 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00023c24 4e 92 |N | JSR (A2) 00023c26 50 4f |PO | ADDQ.L #0x8,A7 00023c28 4e 93 |N | JSR (A3) 00023c2a 51 4f |QO | SUBQ.L #0x8,A7 00023c2c 20 4f | O | MOVEA.L A7,A0 00023c2e 43 fa d0 ae |C | LEA.L 0x20cde,A1 00023c32 70 18 |p | MOVEQ.L #0x18,D0 00023c34 10 d9 | | MOVE.B (A1)+,(A0)+ 00023c36 51 c8 ff fc |Q | DBF D0,0x23c34 00023c3a 59 4f |YO | SUBQ.L #0x4,A7 00023c3c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023c40 3f 01 |? | MOVE.W D1,-(A7) 00023c42 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00023c46 4e 92 |N | JSR (A2) 00023c48 50 4f |PO | ADDQ.L #0x8,A7 00023c4a 4e 93 |N | JSR (A3) 00023c4c 55 4f |UO | SUBQ.L #0x2,A7 00023c4e 20 4f | O | MOVEA.L A7,A0 00023c50 43 fa d0 a6 |C | LEA.L 0x20cf8,A1 00023c54 70 1e |p | MOVEQ.L #0x1e,D0 00023c56 10 d9 | | MOVE.B (A1)+,(A0)+ 00023c58 51 c8 ff fc |Q | DBF D0,0x23c56 00023c5c 59 4f |YO | SUBQ.L #0x4,A7 00023c5e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023c62 3f 01 |? | MOVE.W D1,-(A7) 00023c64 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00023c68 4e 92 |N | JSR (A2) 00023c6a 50 4f |PO | ADDQ.L #0x8,A7 00023c6c 4e 93 |N | JSR (A3) 00023c6e de fc 00 24 | $ | ADDA.W #0x24,A7 00023c72 41 fa d0 c0 |A | LEA.L 0x20d34,A0 00023c76 70 06 |p | MOVEQ.L #0x06,D0 00023c78 2f 20 |/ | MOVE.L -(A0),-(A7) 00023c7a 51 c8 ff fc |Q | DBF D0,0x23c78 00023c7e 59 4f |YO | SUBQ.L #0x4,A7 00023c80 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023c84 3f 01 |? | MOVE.W D1,-(A7) 00023c86 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 00023c8a 4e 92 |N | JSR (A2) 00023c8c 50 4f |PO | ADDQ.L #0x8,A7 00023c8e 4e 93 |N | JSR (A3) 00023c90 de fc 00 20 | | ADDA.W #0x20,A7 00023c94 23 fc 00 00 00 03 00 02 |# | MOVE.L #0x3,0x2fd4c 00023c9c fd 4c | L | 00023c9e 9e fc 00 10 | | SUBA.W #0x10,A7 00023ca2 20 4f | O | MOVEA.L A7,A0 00023ca4 43 fa d0 de |C | LEA.L 0x20d84,A1 00023ca8 70 0e |p | MOVEQ.L #0x0e,D0 00023caa 10 d9 | | MOVE.B (A1)+,(A0)+ 00023cac 51 c8 ff fc |Q | DBF D0,0x23caa 00023cb0 51 4f |QO | SUBQ.L #0x8,A7 00023cb2 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023cb6 3f 01 |? | MOVE.W D1,-(A7) 00023cb8 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00023cbc 4e 92 |N | JSR (A2) 00023cbe 50 4f |PO | ADDQ.L #0x8,A7 00023cc0 48 78 00 00 |Hx | PEA.L 0x0 00023cc4 2f 39 00 02 fd 4c |/9 L | MOVE.L 0x2fd4c,-(A7) 00023cca 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00023cd0 de c3 | | ADDA.W D3,A7 00023cd2 10 2f 00 03 | / | MOVE.B (A7+0x3),D0 00023cd6 48 80 |H | EXTB.W D0 00023cd8 41 82 |A | CHK.W D2,D0 00023cda de fc 00 14 | | ADDA.W #0x14,A7 00023cde 18 80 | | MOVE.B D0,(A4) 00023ce0 b0 02 | | CMP.B D2,D0 00023ce2 10 14 | | MOVE.B (A4),D0 00023ce4 48 80 |H | EXTB.W D0 00023ce6 b0 42 | B | CMP.W D2,D0 00023ce8 63 02 |c | BLS 0x23cec 00023cea 4e 4e |NN | TRAP #14 00023cec d0 40 | @ | ADD.W D0,D0 00023cee 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00023cf6 00 0e | | .CONST 0xe ; [0x0] -> 0x23d04 00023cf8 00 10 | | .CONST 0x10 ; [0x1] -> 0x23d06 00023cfa 00 16 | | .CONST 0x16 ; [0x2] -> 0x23d0c 00023cfc 00 1c | | .CONST 0x1c ; [0x3] -> 0x23d12 00023cfe 00 22 | " | .CONST 0x22 ; [0x4] -> 0x23d18 00023d00 00 28 | ( | .CONST 0x28 ; [0x5] -> 0x23d1e 00023d02 00 2e | . | .CONST 0x2e ; [0x6] -> 0x23d24 00023d04 switch@0x23cee[0x0]: 00023d04 60 22 |`" | BRA 0x23d28 00023d06 switch@0x23cee[0x1]: 00023d06 4e ba fa b6 |N | JSR 0x237be 00023d0a 60 1c |` | BRA 0x23d28 00023d0c switch@0x23cee[0x2]: 00023d0c 4e ba fa fe |N | JSR 0x2380c 00023d10 60 16 |` | BRA 0x23d28 00023d12 switch@0x23cee[0x3]: 00023d12 4e ba f3 f8 |N | JSR 0x2310c 00023d16 60 10 |` | BRA 0x23d28 00023d18 switch@0x23cee[0x4]: 00023d18 4e ba f9 f8 |N | JSR 0x23712 00023d1c 60 0a |` | BRA 0x23d28 00023d1e switch@0x23cee[0x5]: 00023d1e 4e ba fa 48 |N H | JSR 0x23768 00023d22 60 04 |` | BRA 0x23d28 00023d24 switch@0x23cee[0x6]: 00023d24 4e ba d0 ca |N | JSR 0x20df0 00023d28 4a 14 |J | TST.B (A4) 00023d2a 66 00 fe ba |f | BNE 0x23be6 00023d2e 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00023d34 42 27 |B' | CLR.B -(A7) 00023d36 48 78 00 01 |Hx | PEA.L 0x1 00023d3a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00023d40 5c 4f |\O | ADDQ.L #0x6,A7 00023d42 4e b9 00 01 02 84 |N | JSR ?exit 00023d48 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00023d56 ; -------------------------------------------------------------------------------------- 00023d56 ; OMSI PASCAL Function 00023d56 ; <LVAR 0x008 1(r)> 00023d56 ; -------------------------------------------------------------------------------------- 00023d56 PROG_FAIL: 00023d56 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00023d5a bf d5 | | CMPA.L (A5),A7 00023d5c 62 06 |b | BHI 0x23d64 00023d5e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023d62 4e 76 |Nv | TRAPV 00023d64 de fc 00 2c | , | ADDA.W #0x2c,A7 00023d68 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00023d6c 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00023d70 70 06 |p | MOVEQ.L #0x06,D0 00023d72 3f 20 |? | MOVE.W -(A0),-(A7) 00023d74 51 c8 ff fc |Q | DBF D0,0x23d72 00023d78 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00023d7c 51 4f |QO | SUBQ.L #0x8,A7 00023d7e 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00023d82 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00023d86 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00023d8a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023d90 58 4f |XO | ADDQ.L #0x4,A7 00023d92 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00023d96 48 80 |H | EXTB.W D0 00023d98 48 c0 |H | EXTW.L D0 00023d9a 2f 00 |/ | MOVE.L D0,-(A7) 00023d9c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00023da2 58 4f |XO | ADDQ.L #0x4,A7 00023da4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023daa 50 4f |PO | ADDQ.L #0x8,A7 00023dac 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00023db2 de fc 00 14 | | ADDA.W #0x14,A7 00023db6 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00023dba 4e 5e |N^ | UNLK A6 00023dbc 4e 75 |Nu | RTS 00023dbe 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00023dcc 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00023dda 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00023de8 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00023dfa 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00023e12 ; -------------------------------------------------------------------------------------- 00023e12 ; OMSI PASCAL Function 00023e12 ; <LVAR 0x00e 1(r)> 00023e12 ; <LVAR 0x00a 4(r)> 00023e12 ; <LVAR 0x008 1(r)> 00023e12 ; -------------------------------------------------------------------------------------- 00023e12 EXP_FAIL: 00023e12 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00023e16 bf d5 | | CMPA.L (A5),A7 00023e18 62 06 |b | BHI 0x23e20 00023e1a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e1e 4e 76 |Nv | TRAPV 00023e20 de fc 00 74 | t | ADDA.W #0x74,A7 00023e24 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00023e28 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00023e2e 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00023e34 72 01 |r | MOVEQ.L #0x01,D1 00023e36 74 0d |t | MOVEQ.L #0x0d,D2 00023e38 76 1e |v | MOVEQ.L #0x1e,D3 00023e3a 78 12 |x | MOVEQ.L #0x12,D4 00023e3c 7a 0e |z | MOVEQ.L #0x0e,D5 00023e3e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00023e44 41 fa ff b4 |A | LEA.L 0x23dfa,A0 00023e48 70 08 |p | MOVEQ.L #0x08,D0 00023e4a 3f 20 |? | MOVE.W -(A0),-(A7) 00023e4c 51 c8 ff fc |Q | DBF D0,0x23e4a 00023e50 59 4f |YO | SUBQ.L #0x4,A7 00023e52 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023e56 3f 01 |? | MOVE.W D1,-(A7) 00023e58 3f 04 |? | MOVE.W D4,-(A7) 00023e5a 4e 93 |N | JSR (A3) 00023e5c 50 4f |PO | ADDQ.L #0x8,A7 00023e5e 4e 94 |N | JSR (A4) 00023e60 50 4f |PO | ADDQ.L #0x8,A7 00023e62 20 4f | O | MOVEA.L A7,A0 00023e64 43 fa ff 58 |C X | LEA.L 0x23dbe,A1 00023e68 70 0c |p | MOVEQ.L #0x0c,D0 00023e6a 10 d9 | | MOVE.B (A1)+,(A0)+ 00023e6c 51 c8 ff fc |Q | DBF D0,0x23e6a 00023e70 51 4f |QO | SUBQ.L #0x8,A7 00023e72 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023e76 3f 01 |? | MOVE.W D1,-(A7) 00023e78 3f 02 |? | MOVE.W D2,-(A7) 00023e7a 4e 93 |N | JSR (A3) 00023e7c 54 4f |TO | ADDQ.L #0x2,A7 00023e7e 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00023e82 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00023e88 54 4f |TO | ADDQ.L #0x2,A7 00023e8a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023e90 50 4f |PO | ADDQ.L #0x8,A7 00023e92 4e 94 |N | JSR (A4) 00023e94 de c4 | | ADDA.W D4,A7 00023e96 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00023e9a b0 c1 | | CMPA.W D1,A0 00023e9c 67 48 |gH | BEQ 0x23ee6 00023e9e 9e c5 | | SUBA.W D5,A7 00023ea0 22 4f |"O | MOVEA.L A7,A1 00023ea2 45 fa ff 28 |E ( | LEA.L 0x23dcc,A2 00023ea6 70 0c |p | MOVEQ.L #0x0c,D0 00023ea8 12 da | | MOVE.B (A2)+,(A1)+ 00023eaa 51 c8 ff fc |Q | DBF D0,0x23ea8 00023eae 9e c3 | | SUBA.W D3,A7 00023eb0 22 4f |"O | MOVEA.L A7,A1 00023eb2 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00023eb6 70 1d |p | MOVEQ.L #0x1d,D0 00023eb8 12 d8 | | MOVE.B (A0)+,(A1)+ 00023eba 51 c8 ff fc |Q | DBF D0,0x23eb8 00023ebe 51 4f |QO | SUBQ.L #0x8,A7 00023ec0 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00023ec4 3f 01 |? | MOVE.W D1,-(A7) 00023ec6 3f 02 |? | MOVE.W D2,-(A7) 00023ec8 4e 93 |N | JSR (A3) 00023eca 58 4f |XO | ADDQ.L #0x4,A7 00023ecc 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00023ed0 3f 01 |? | MOVE.W D1,-(A7) 00023ed2 3f 03 |? | MOVE.W D3,-(A7) 00023ed4 4e 93 |N | JSR (A3) 00023ed6 50 4f |PO | ADDQ.L #0x8,A7 00023ed8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023ede 50 4f |PO | ADDQ.L #0x8,A7 00023ee0 4e 94 |N | JSR (A4) 00023ee2 de fc 00 30 | 0 | ADDA.W #0x30,A7 00023ee6 9e c5 | | SUBA.W D5,A7 00023ee8 20 4f | O | MOVEA.L A7,A0 00023eea 43 fa fe ee |C | LEA.L 0x23dda,A1 00023eee 70 0c |p | MOVEQ.L #0x0c,D0 00023ef0 10 d9 | | MOVE.B (A1)+,(A0)+ 00023ef2 51 c8 ff fc |Q | DBF D0,0x23ef0 00023ef6 51 4f |QO | SUBQ.L #0x8,A7 00023ef8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023efc 3f 01 |? | MOVE.W D1,-(A7) 00023efe 3f 02 |? | MOVE.W D2,-(A7) 00023f00 4e 93 |N | JSR (A3) 00023f02 54 4f |TO | ADDQ.L #0x2,A7 00023f04 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00023f08 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00023f0e 54 4f |TO | ADDQ.L #0x2,A7 00023f10 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023f16 50 4f |PO | ADDQ.L #0x8,A7 00023f18 4e 94 |N | JSR (A4) 00023f1a 5d 4f |]O | SUBQ.L #0x6,A7 00023f1c 20 4f | O | MOVEA.L A7,A0 00023f1e 43 fa fe da |C | LEA.L 0x23dfa,A1 00023f22 70 16 |p | MOVEQ.L #0x16,D0 00023f24 10 d9 | | MOVE.B (A1)+,(A0)+ 00023f26 51 c8 ff fc |Q | DBF D0,0x23f24 00023f2a 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00023f2e 59 4f |YO | SUBQ.L #0x4,A7 00023f30 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00023f34 3f 01 |? | MOVE.W D1,-(A7) 00023f36 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00023f3a 4e 93 |N | JSR (A3) 00023f3c 50 4f |PO | ADDQ.L #0x8,A7 00023f3e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00023f44 de c3 | | ADDA.W D3,A7 00023f46 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00023f4a 4e 5e |N^ | UNLK A6 00023f4c 4e 75 |Nu | RTS