|
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.1,93/01/22,09:25:31, M200_PROGRAM
Names: »REWRITE.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »REWRITE.M200«
@ 20dee
<POP 20dee-20e3e Body>
<POP 20dee-20e04 Prologue> Σ0 ↓
<POP 20e04-20e36 Naked> Σ0 ↓
<Blob 0x20e04 [44] @> Δ-44 {[«44""»]}
<POP 20e16-20e18 StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x20e18 43> {[«44""»]|[$$Trace facility not bound into this version.]}
<Call 0x20e2c 0x103e0> {[«44""»]|[$$Trace facility not bound into this version.]}
WriteConsoleStringCrLf(str : String)
<POP 20e32-20e36 StackAdj> Δ+48 {}
<POP 20e36-20e3e Epilogue> Σ0
@ 20e3e
<LVAR 0x008 4(r)>
<POP 20e3e-20ea0 Body>
<POP 20e3e-20e50 Prologue> Σ0 ↓
<POP 20e50-20e9c Naked> Σ0 ↓
<Const 0x20e50 0x1312c.4> Δ-4 {[##78124]}
<Call 0x20e56 0x10224> {[##78124]}
KC12_Sleep(dur: Long)
<POP 20e5c-20e5e StackAdj> Δ+4 {}
<Call 0x20e5e 0x10398> {}
FSCALL_10398
<Blob 0x20e64 [4] @> Δ-4 {[«4""»]}
<Blob 0x20e68 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Const 0x20e6c 0x2.2> Δ-2 {[«4""»]|[«4""»]|[#2]}
<POP 20e70-20e72 StackAdj> Δ-8 {[«4""»]|[«4""»]|[#2]|[-8-]}
<Lit 0x20e72 8> {[«4""»]|[«4""»]|[#2]|[-4-]|[$$ _]}
<POP 20e84-20e86 StackAdj> Δ-4 {[«4""»]|[«4""»]|[#2]|[-4-]|[$$ _]|[-4-]}
<MI 20e86 MOVE.L (A6+0x8),(A7)> {[«4""»]|[«4""»]|[#2]|[-4-]|[$$ _]|[4, '(A6+0x8)']}
<Call 0x20e8a 0x102d0> {[«4""»]|[«4""»]|[#2]|[-4-]|[$$ _]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 20e90-20e92 StackAdj> Δ+8 {[«4""»]|[«4""»]|[#2]|[-4-]}
<Call 0x20e92 0x103b8> {[«4""»]|[«4""»]|[#2]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20e98-20e9c StackAdj> Δ+14 {}
<POP 20e9c-20ea0 Epilogue> Σ0
@ 20ea0
<POP 20ea0-20eca Body>
<POP 20ea0-20eb2 Prologue> Σ0 ↓
<POP 20eb2-20ec6 Naked> Σ0 ↓
<Call 0x20eb2 0x10398> {}
FSCALL_10398
<MI 20eb8 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x20eba 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x20ebe 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20ec4-20ec6 StackAdj> Δ+6 {}
<POP 20ec6-20eca Epilogue> Σ0
@ 20eca
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 20eca-2104a Body> Δ+4
<POP 20eca-20ee0 Prologue> Σ0 ↓
<POP 20ee0-20ef4 RegCacheLoad> Σ0 ↓
<POP 20ef4-20efa Naked> Σ0 ↓ →0x20f34
<MI 20ef4 TST.L (A6+0x8)> {}
<MI 20ef8 BGE 0x20f34> {}
<POP 20efa-20f34 Naked> Σ0 →0x20f38
<Blob 0x20efa [52] @> Δ-52 {[«52""»]}
<POP 20f0a-20f0c StackAdj> Δ-8 {[«52""»]|[-8-]}
<Lit 0x20f0c 51> {[«52""»]|[-4-]|[$$Enter slot to display, [ 7:IOC .. 0:TERMINATOR ] :_]}
<Const 0x20f1a 0xffffffff.4> Δ-4 {[«52""»]|[-4-]|[$$Enter slot to display, [ 7:IOC .. 0:TERMINATOR ] :_]|[##4294967295]}
<Const 0x20f1e 0x7fffffff.4> Δ-4 {[«52""»]|[-4-]|[$$Enter slot to display, [ 7:IOC .. 0:TERMINATOR ] :_]|[##4294967295]|[##2147483647]}
<Call 0x20f24 0x103ec> {[«52""»]|[-4-]|[$$Enter slot to display, [ 7:IOC .. 0:TERMINATOR ] :_]|[##4294967295]|[##2147483647]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 20f2a-20f2e StackAdj> Δ+12 {[«52""»]|[-4-]}
<MI 20f2e MOVE.L (A7)+,D5> Δ+4 {[«52""»]}
<POP 20f30-20f32 StackAdj> Δ+52 {}
<MI 20f32 BRA 0x20f38> {}
<POP 20f34-20f38 Naked> Σ0 ↓ ←0x20ef4
<MI 20f34 MOVE.L (A6+0x8),D5> {}
<POP 20f38-20f3c Naked> Σ0 ↓ ←0x20efa
<MI 20f38 MOVEQ.L #0x00,D7> {}
<MI 20f3a MOVEQ.L #0x00,D6> {}
<POP 20f3c-20f7a Naked> Σ0 ↓ →0x21036 ←0x21036
<MI 20f3c MOVEQ.L #0x04,D4> {}
<MI 20f3e MOVE.L D6,D3> {}
<Call 0x20f40 0x1028c> {}
?muls_d3_d4
<MI 20f46 MOVE.L D5,D0> {}
<MI 20f48 ASL.L #0x8,D0> {}
<MI 20f4a ASL.L #0x2,D0> {}
<MI 20f4c ADDI.L #0xa1000000,D0> {}
<MI 20f52 ADD.L D4,D0> {}
<MI 20f54 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<Const 0x20f56 0x5.2> Δ-2 {[4, 'D0']|[#5]}
<MI 20f5a LEA.L (A6-0x8),A0> {[4, 'D0']|[#5]}
<MI 20f5c MOVE.L A0,-(A7)> Δ-4 {[4, 'D0']|[#5]|[4, 'A0']}
<Const 0x20f5e 0x1.2> Δ-2 {[4, 'D0']|[#5]|[4, 'A0']|[#1]}
<Const 0x20f60 0x4.2> Δ-2 {[4, 'D0']|[#5]|[4, 'A0']|[#1]|[#4]}
<Call 0x20f64 0x1023a> {[4, 'D0']|[#5]|[4, 'A0']|[#1]|[#4]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 20f6a-20f6e StackAdj> Δ+14 {}
<MI 20f6e MOVE.L (A6-0x8),D0> {}
<MI 20f70 ANDI.L #0x40000000,D0> {}
<MI 20f76 BNE 0x21036> {}
<POP 20f7a-20fb6 Naked> Σ0 ↓ →0x20fca
<POP 20f7a-20f7c StackAdj> Δ-4 {[-4-]}
<MI 20f7c MOVE.L D6,D0> {[-4-]}
<MI 20f7e ASL.L #0x8,D0> {[-4-]}
<MI 20f80 ASL.L #0x2,D0> {[-4-]}
<MI 20f82 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<Const 0x20f84 0x6.4> Δ-4 {[-4-]|[4, 'D0']|[##6]}
<Call 0x20f88 0x102e8> {[-4-]|[4, 'D0']|[##6]}
Long2HexString(val : Long; ndig : Long) : String
<POP 20f8e-20f90 StackAdj> Δ+8 {[-4-]}
<Call 0x20f90 0x103d8> {[-4-]}
WriteConsoleString(str : String)
<POP 20f92-20f94 StackAdj> Δ+2 {[-2-]}
<POP 20f94-20f95 StackAdj> Δ+2 {}
<Blob 0x20f95 [2] @> Δ-2 {[«2""»]}
<POP 20f98-20f9a StackAdj> Δ-4 {[«2""»]|[-4-]}
<Lit 0x20f9a 2> {[«2""»]|[$$=>]}
<Call 0x20fa8 0x103d8> {[«2""»]|[$$=>]}
WriteConsoleString(str : String)
<POP 20faa-20fac StackAdj> Δ+6 {}
<MI 20fac MOVE.L (A6-0x8),D0> {}
<MI 20fae ANDI.L #0x80000000,D0> {}
<MI 20fb4 BNE 0x20fca> {}
<POP 20fb6-20fca Naked> Σ0 Δ-4 →0x20fdc
<POP 20fb6-20fb8 StackAdj> Δ-4 {[-4-]}
<POP 20fb8-20fb9 StackAdj> Δ+2 {[-2-]}
<Blob 0x20fb9 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 20fbc MOVE.B 0x201d3,(A7+0x1)> {[-2-]|[«2""»]}
<MI 20fc2 MOVE.B 0x201d4,(A7+0x2)> {[-2-]|[«2""»]}
<MI 20fc8 BRA 0x20fdc> {[-2-]|[«2""»]}
<POP 20fca-20fdc Naked> Σ0 Δ-4 ↓ ←0x20f7a
<POP 20fca-20fcc StackAdj> Δ-4 {[-4-]}
<POP 20fcc-20fcd StackAdj> Δ+2 {[-2-]}
<Blob 0x20fcd [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 20fd0 MOVE.B 0x201d7,(A7+0x1)> {[-2-]|[«2""»]}
<MI 20fd6 MOVE.B 0x201d8,(A7+0x2)> {[-2-]|[«2""»]}
<POP 20fdc-21012 Naked> Σ-4 Δ+4 ↓ →0x2101c ←0x20fb6
<POP 20fdc-20fde StackAdj> Δ-4 {[-8-]}
<Lit 0x20fde> {[-4-]|[$$…]}
<Pointer.sp 0x20fde 4> Δ-4
<Const 0x20fe2 0x1.2> Δ-2
<Const 0x20fe4 0x3.2> Δ-2
<Call 0x20fe8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20fea-20fec StackAdj> Δ+8
<Call 0x20fec 0x103d8> {[-4-]|[$$…]}
WriteConsoleString(str : String)
<POP 20fee-20ff0 StackAdj> Δ+8 {}
<POP 20ff0-20ff2 StackAdj> Δ-4 {[-4-]}
<MI 20ff2 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 20ff4 ANDI.L #0x0003fc00,(A7)> {[-8-]}
<Const 0x20ffa 0x6.4> Δ-4 {[-8-]|[##6]}
<Call 0x20ffe 0x102e8> {[-8-]|[##6]}
Long2HexString(val : Long; ndig : Long) : String
<POP 21004-21006 StackAdj> Δ+8 {[-4-]}
<Call 0x21006 0x103d8> {[-4-]}
WriteConsoleString(str : String)
<POP 21008-2100a StackAdj> Δ+4 {}
<MI 2100a CMPI.L #0x00000003,D7> {}
<MI 21010 BNE 0x2101c> {}
<POP 21012-2101c Naked> Σ0 →0x21036
<Call 0x21012 0x103dc> {}
WriteConsoleCrLf(void)
<MI 21018 MOVEQ.L #0x00,D7> {}
<MI 2101a BRA 0x21036> {}
<POP 2101c-21036 Naked> Σ0 ↓ ←0x20fdc
<Blob 0x2101c [2] @> Δ-2 {[«2""»]}
<POP 21020-21022 StackAdj> Δ-4 {[«2""»]|[-4-]}
<Lit 0x21022 2> {[«2""»]|[$$ _]}
<Call 0x21030 0x103d8> {[«2""»]|[$$ _]}
WriteConsoleString(str : String)
<POP 21032-21034 StackAdj> Δ+6 {}
<MI 21034 ADDQ.L #0x1,D7> {}
<POP 21036-21042 Naked> Σ0 ↓ →0x20f3c ←0x20f3c ←0x21012
<MI 21036 ADDQ.L #0x1,D6> {}
<MI 21038 CMPI.L #0x000000ff,D6> {}
<MI 2103e BLE 0x20f3c> {}
<POP 21042-2104a Epilogue> Σ0
@ 2104a
<LVAR 0x008 4(r)>
<POP 2104a-210da Body>
<POP 2104a-21060 Prologue> Σ0 ↓
<POP 21060-21068 RegCacheLoad> Σ0 ↓
<POP 21068-2106e Naked> Σ0 ↓ →0x21080
<MI 21068 MOVEA.L (A4+0x4),A0> {}
<MI 2106a TST.W (A0)> {}
<MI 2106c BNE 0x21080> {}
<POP 2106e-21080 Naked> Σ0 →0x210d2
<POP 2106e-21070 StackAdj> Δ-4 {[-4-]}
<MI 21070 MOVE.L (A4+0x4),-(A7)> Δ-4 {[-4-]|[4, '(A4+0x4)']}
<MI 21072 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A4+0x4)']|[4, '(A6+0x8)']}
<Call 0x21074 0x102d0> {[-4-]|[4, '(A4+0x4)']|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 2107a-2107c StackAdj> Δ+8 {[-4-]}
<MI 2107c MOVE.L (A7)+,(A4+0x4)> Δ+4 {}
<MI 2107e BRA 0x210d2> {}
<POP 21080-21096 Naked> Σ0 ↓ →0x210c6 ←0x21068
<MI 21080 MOVE.W (A0),D0> {}
<MI 21082 EXTW.L D0> {}
<MI 21084 ADDQ.L #0x2,D0> {}
<MI 21086 MOVEA.L (A6+0x8),A0> {}
<MI 21088 MOVE.W (A0),D1> {}
<MI 2108a EXTW.L D1> {}
<MI 2108c ADD.L D0,D1> {}
<MI 2108e CMPI.L #0x00000050,D1> {}
<MI 21094 BGT 0x210c6> {}
<POP 21096-210c6 Naked> Σ0 →0x210d2
<Blob 0x21096 [2] @> Δ-2 {[«2""»]}
<POP 2109a-2109c StackAdj> Δ-4 {[«2""»]|[-4-]}
<MI 2109c MOVE.L (A4+0x4),-(A7)> Δ-4 {[«2""»]|[-4-]|[4, '(A4+0x4)']}
<POP 2109e-210a0 StackAdj> Δ-4 {[«2""»]|[-4-]|[4, '(A4+0x4)']|[-4-]}
<Lit 0x210a0 2> {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]}
<POP 210b2-210b4 StackAdj> Δ-4 {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]|[-4-]}
<MI 210b4 MOVE.L (A6+0x8),(A7)> {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]|[4, '(A6+0x8)']}
<Call 0x210b6 0x102d4> {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]|[4, '(A6+0x8)']}
StringCat3(a, b, c : String) : String
<POP 210bc-210c0 StackAdj> Δ+12 {[«2""»]|[-4-]}
<MI 210c0 MOVE.L (A7)+,(A4+0x4)> Δ+4 {[«2""»]}
<POP 210c2-210c4 StackAdj> Δ+2 {}
<MI 210c4 BRA 0x210d2> {}
<POP 210c6-210d2 Naked> Σ0 ↓ ←0x21080
<MI 210c6 MOVE.L (A4+0x4),-(A7)> Δ-4 {[4, '(A4+0x4)']}
<Call 0x210c8 0x103e0> {[4, '(A4+0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 210ce-210d0 StackAdj> Δ+4 {}
<MI 210d0 MOVE.L (A6+0x8),(A4+0x4)> {}
<POP 210d2-210da Epilogue> Σ0 ←0x2106e ←0x21096
@ 210da
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @>
<POP 210da-21a6e Body>
<POP 210da-210f0 Prologue> Σ0 ↓
<POP 210f0-21102 RegCacheLoad> Σ0 ↓
<POP 21102-21104 Naked> Σ0 ↓
<MI 21102 MOVEQ.L #0x00,D7> {}
<POP 21104-2118a Naked> Σ0 ↓ →0x21104 ←0x21104
<POP 0x21104 LimitCheck 0x0 ≤ D7 ≤ 0x8> {}
<MI 2110e MOVE.L D7,D4> {}
<MI 21110 MOVEQ.L #0x05,D3> {}
<Call 0x21112 0x1028c> {}
?muls_d3_d4
<MI 21118 LEA.L 0x20daa,A0> {}
<Blob 0x2111c [6] (A0+D4.L)> Δ-6 {[«6»]}
<POP 2112c-2112e StackAdj> Δ-8 {[«6»]|[-8-]}
<Lit 0x2112e> {[«6»]|[-4-]|[$$…]}
<Pointer.sp 0x2112e 8> Δ-4
<Const 0x21132 0x1.2> Δ-2
<Const 0x21134 0x5.2> Δ-2
<Call 0x21138 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2113a-2113c StackAdj> Δ+8
<POP 2113a-2113c StackAdj> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]}
<POP 0x2113c LimitCheck 0x0 ≤ D7 ≤ 0xa> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 21146 MOVE.L D7,D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 21148 ASL.L #0x1,D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 2114a LEA.L 0x23f4c,A0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 21150 LEA.L (A0+D0.L),A0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 21154 ADDA.L #0xbc4a,A0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 2115a CLR.L D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 2115c MOVE.W (A0),D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 2115e MOVE.L D0,-(A7)> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D0']}
<Const 0x21160 0x4.4> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D0']|[##4]}
<Call 0x21164 0x102e8> {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D0']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 2116a-2116c StackAdj> Δ+8 {[«6»]|[-4-]|[$$…]|[-4-]}
<Call 0x2116c 0x102d0> {[«6»]|[-4-]|[$$…]|[-4-]}
StringCat2(a, b : String) : String
<POP 21172-21174 StackAdj> Δ+8 {[«6»]|[-4-]}
<Call 0x21174 0x103d8> {[«6»]|[-4-]}
WriteConsoleString(str : String)
<POP 2117a-2117e StackAdj> Δ+10 {}
<MI 2117e ADDQ.L #0x1,D7> {}
<MI 21180 CMPI.L #0x00000008,D7> {}
<MI 21186 BLE 0x21104> {}
<POP 2118a-21198 Naked> Σ0 ↓ →0x211a0
<Call 0x2118a 0x103dc> {}
WriteConsoleCrLf(void)
<MI 21190 MOVE.B (A6+0x8),D0> {}
<MI 21194 CMP.B #0x01,D0> {}
<MI 21196 BEQ 0x211a0> {}
<POP 21198-211a0 Naked> Σ0 ↓ →0x21a50
<MI 21198 CMPI.B #0x02,D0> {}
<MI 2119c BNE 0x21a50> {}
<POP 211a0-211b8 Naked> Σ0 ↓ →0x211e2 ←0x2118a
<Pointer.fp 0x211a0 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x211a4 0x102b8> {[@@-6]}
NewString(VAR a : String)
<POP 211aa-211ac StackAdj> Δ+4 {}
<MI 211ac MOVE.W 0x2fb96,D0> {}
<MI 211b2 ANDI.W #0x8000,D0> {}
<MI 211b6 BEQ 0x211e2> {}
<POP 211b8-211e2 Naked> Σ0 ↓
<Blob 0x211b8 [18] @> Δ-18 {[«18""»]}
<POP 211c8-211ca StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x211ca 17> {[«18""»]|[$$Special condition]}
<MI 211d8 LEA.L (A6-0xa),A4> {[«18""»]|[$$Special condition]}
<Call 0x211da 0x2104a> {[«18""»]|[$$Special condition]}
<POP 211de-211e2 StackAdj> Δ+22 {}
<POP 211e2-211ee Naked> Σ0 ↓ →0x21212 ←0x211a0
<MI 211e2 MOVE.W 0x2fb96,D0> {}
<MI 211e8 ANDI.W #0x4000,D0> {}
<MI 211ec BEQ 0x21212> {}
<POP 211ee-21212 Naked> Σ0 ↓
<Blob 0x211ee [14] @> Δ-14 {[«14""»]}
<POP 211fa-211fc StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x211fc 14> {[«14""»]|[$$Transfer error]}
<MI 2120a LEA.L (A6-0xa),A4> {[«14""»]|[$$Transfer error]}
<Call 0x2120c 0x2104a> {[«14""»]|[$$Transfer error]}
<POP 21210-21212 StackAdj> Δ+18 {}
<POP 21212-2121e Naked> Σ0 ↓ →0x2124a ←0x211e2
<MI 21212 MOVE.W 0x2fb98,D0> {}
<MI 21218 ANDI.W #0x8000,D0> {}
<MI 2121c BEQ 0x2124a> {}
<POP 2121e-2124a Naked> Σ0 ↓
<Blob 0x2121e [10] @> Δ-10 {[«10""»]}
<POP 21230-21232 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x21232 9> {[«10""»]|[$$Data late]}
<MI 21240 LEA.L (A6-0xa),A4> {[«10""»]|[$$Data late]}
<Call 0x21242 0x2104a> {[«10""»]|[$$Data late]}
<POP 21246-2124a StackAdj> Δ+14 {}
<POP 2124a-21256 Naked> Σ0 ↓ →0x21280 ←0x21212
<MI 2124a MOVE.W 0x2fb98,D0> {}
<MI 21250 ANDI.W #0x4000,D0> {}
<MI 21254 BEQ 0x21280> {}
<POP 21256-21280 Naked> Σ0 ↓
<Blob 0x21256 [18] @> Δ-18 {[«18""»]}
<POP 21266-21268 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21268 17> {[«18""»]|[$$Write check error]}
<MI 21276 LEA.L (A6-0xa),A4> {[«18""»]|[$$Write check error]}
<Call 0x21278 0x2104a> {[«18""»]|[$$Write check error]}
<POP 2127c-21280 StackAdj> Δ+22 {}
<POP 21280-2128c Naked> Σ0 ↓ →0x212b6 ←0x2124a
<MI 21280 MOVE.W 0x2fb98,D0> {}
<MI 21286 ANDI.W #0x2000,D0> {}
<MI 2128a BEQ 0x212b6> {}
<POP 2128c-212b6 Naked> Σ0 ↓
<Blob 0x2128c [20] @> Δ-20 {[«20""»]}
<POP 2129c-2129e StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2129e 19> {[«20""»]|[$$UNIBUS parity error]}
<MI 212ac LEA.L (A6-0xa),A4> {[«20""»]|[$$UNIBUS parity error]}
<Call 0x212ae 0x2104a> {[«20""»]|[$$UNIBUS parity error]}
<POP 212b2-212b6 StackAdj> Δ+24 {}
<POP 212b6-212c2 Naked> Σ0 ↓ →0x212e6 ←0x21280
<MI 212b6 MOVE.W 0x2fb98,D0> {}
<MI 212bc ANDI.W #0x1000,D0> {}
<MI 212c0 BEQ 0x212e6> {}
<POP 212c2-212e6 Naked> Σ0 ↓
<Blob 0x212c2 [18] @> Δ-18 {[«18""»]}
<POP 212ce-212d0 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x212d0 18> {[«18""»]|[$$Non-existent drive]}
<MI 212dc LEA.L (A6-0xa),A4> {[«18""»]|[$$Non-existent drive]}
<Call 0x212de 0x2104a> {[«18""»]|[$$Non-existent drive]}
<POP 212e2-212e6 StackAdj> Δ+22 {}
<POP 212e6-212f2 Naked> Σ0 ↓ →0x2131c ←0x212b6
<MI 212e6 MOVE.W 0x2fb98,D0> {}
<MI 212ec ANDI.W #0x0800,D0> {}
<MI 212f0 BEQ 0x2131c> {}
<POP 212f2-2131c Naked> Σ0 ↓
<Blob 0x212f2 [20] @> Δ-20 {[«20""»]}
<POP 21302-21304 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21304 19> {[«20""»]|[$$Non-existent memory]}
<MI 21312 LEA.L (A6-0xa),A4> {[«20""»]|[$$Non-existent memory]}
<Call 0x21314 0x2104a> {[«20""»]|[$$Non-existent memory]}
<POP 21318-2131c StackAdj> Δ+24 {}
<POP 2131c-21328 Naked> Σ0 ↓ →0x21352 ←0x212e6
<MI 2131c MOVE.W 0x2fb98,D0> {}
<MI 21322 ANDI.W #0x0400,D0> {}
<MI 21326 BEQ 0x21352> {}
<POP 21328-21352 Naked> Σ0 ↓
<Blob 0x21328 [14] @> Δ-14 {[«14""»]}
<POP 2133a-2133c StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x2133c 13> {[«14""»]|[$$Program error]}
<MI 2134a LEA.L (A6-0xa),A4> {[«14""»]|[$$Program error]}
<Call 0x2134c 0x2104a> {[«14""»]|[$$Program error]}
<POP 21350-21352 StackAdj> Δ+18 {}
<POP 21352-2135e Naked> Σ0 ↓ →0x21382 ←0x2131c
<MI 21352 MOVE.W 0x2fb98,D0> {}
<MI 21358 ANDI.W #0x0200,D0> {}
<MI 2135c BEQ 0x21382> {}
<POP 2135e-21382 Naked> Σ0 ↓
<Blob 0x2135e [14] @> Δ-14 {[«14""»]}
<POP 2136a-2136c StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x2136c 14> {[«14""»]|[$$Mixed transfer]}
<MI 2137a LEA.L (A6-0xa),A4> {[«14""»]|[$$Mixed transfer]}
<Call 0x2137c 0x2104a> {[«14""»]|[$$Mixed transfer]}
<POP 21380-21382 StackAdj> Δ+18 {}
<POP 21382-2138e Naked> Σ0 ↓ →0x213b6 ←0x21352
<MI 21382 MOVE.W 0x2fb98,D0> {}
<MI 21388 ANDI.W #0x0040,D0> {}
<MI 2138c BNE 0x213b6> {}
<POP 2138e-213b6 Naked> Σ0 ↓
<Blob 0x2138e [16] @> Δ-16 {[«16""»]}
<POP 2139e-213a0 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x213a0 15> {[«16""»]|[$$Input not ready]}
<MI 213ae LEA.L (A6-0xa),A4> {[«16""»]|[$$Input not ready]}
<Call 0x213b0 0x2104a> {[«16""»]|[$$Input not ready]}
<POP 213b4-213b6 StackAdj> Δ+20 {}
<POP 213b6-213c2 Naked> Σ0 ↓ →0x213ec ←0x21382
<MI 213b6 MOVE.W 0x2fb98,D0> {}
<MI 213bc ANDI.W #0x0008,D0> {}
<MI 213c0 BEQ 0x213ec> {}
<POP 213c2-213ec Naked> Σ0 ↓
<Blob 0x213c2 [20] @> Δ-20 {[«20""»]}
<POP 213d2-213d4 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x213d4 19> {[«20""»]|[$$Bus address inhibit]}
<MI 213e2 LEA.L (A6-0xa),A4> {[«20""»]|[$$Bus address inhibit]}
<Call 0x213e4 0x2104a> {[«20""»]|[$$Bus address inhibit]}
<POP 213e8-213ec StackAdj> Δ+24 {}
<POP 213ec-213f8 Naked> Σ0 ↓ →0x2141e ←0x213b6
<MI 213ec MOVE.W 0x2fb9a,D0> {}
<MI 213f2 ANDI.W #0x8000,D0> {}
<MI 213f6 BEQ 0x2141e> {}
<POP 213f8-2141e Naked> Σ0 ↓
<Blob 0x213f8 [4] @> Δ-4 {[«4""»]}
<Blob 0x213fc [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21400 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21404 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21408-2140a StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2140a 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Attention Active]}
<MI 21416 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Attention Active]}
<Call 0x21418 0x2104a> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Attention Active]}
<POP 2141c-2141e StackAdj> Δ+20 {}
<POP 2141e-2142a Naked> Σ0 ↓ →0x21454 ←0x213ec
<MI 2141e MOVE.W 0x2fb9a,D0> {}
<MI 21424 ANDI.W #0x4000,D0> {}
<MI 21428 BEQ 0x21454> {}
<POP 2142a-21454 Naked> Σ0 ↓
<Blob 0x2142a [6] @> Δ-6 {[«6""»]}
<POP 2143a-2143c StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x2143c 5> {[«6""»]|[$$Error]}
<MI 2144a LEA.L (A6-0xa),A4> {[«6""»]|[$$Error]}
<Call 0x2144c 0x2104a> {[«6""»]|[$$Error]}
<POP 21450-21454 StackAdj> Δ+10 {}
<POP 21454-21460 Naked> Σ0 ↓ →0x2148c ←0x2141e
<MI 21454 MOVE.W 0x2fb9a,D0> {}
<MI 2145a ANDI.W #0x2000,D0> {}
<MI 2145e BEQ 0x2148c> {}
<POP 21460-2148c Naked> Σ0 ↓
<Blob 0x21460 [24] @> Δ-24 {[«24""»]}
<POP 21472-21474 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x21474 23> {[«24""»]|[$$Positioning in progress]}
<MI 21482 LEA.L (A6-0xa),A4> {[«24""»]|[$$Positioning in progress]}
<Call 0x21484 0x2104a> {[«24""»]|[$$Positioning in progress]}
<POP 21488-2148c StackAdj> Δ+28 {}
<POP 2148c-21498 Naked> Σ0 ↓ →0x214bc ←0x21454
<MI 2148c MOVE.W 0x2fb9a,D0> {}
<MI 21492 ANDI.W #0x1000,D0> {}
<MI 21496 BEQ 0x214bc> {}
<POP 21498-214bc Naked> Σ0 ↓
<Blob 0x21498 [14] @> Δ-14 {[«14""»]}
<POP 214a4-214a6 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x214a6 14> {[«14""»]|[$$Medium on-line]}
<MI 214b4 LEA.L (A6-0xa),A4> {[«14""»]|[$$Medium on-line]}
<Call 0x214b6 0x2104a> {[«14""»]|[$$Medium on-line]}
<POP 214ba-214bc StackAdj> Δ+18 {}
<POP 214bc-214c8 Naked> Σ0 ↓ →0x214ee ←0x2148c
<MI 214bc MOVE.W 0x2fb9a,D0> {}
<MI 214c2 ANDI.W #0x0800,D0> {}
<MI 214c6 BEQ 0x214ee> {}
<POP 214c8-214ee Naked> Σ0 ↓
<Blob 0x214c8 [10] @> Δ-10 {[«10""»]}
<POP 214d4-214d6 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x214d6 10> {[«10""»]|[$$Write lock]}
<MI 214e4 LEA.L (A6-0xa),A4> {[«10""»]|[$$Write lock]}
<Call 0x214e6 0x2104a> {[«10""»]|[$$Write lock]}
<POP 214ea-214ee StackAdj> Δ+14 {}
<POP 214ee-214fa Naked> Σ0 ↓ →0x21520 ←0x214bc
<MI 214ee MOVE.W 0x2fb9a,D0> {}
<MI 214f4 ANDI.W #0x0400,D0> {}
<MI 214f8 BEQ 0x21520> {}
<POP 214fa-21520 Naked> Σ0 ↓
<Blob 0x214fa [22] @> Δ-22 {[«22""»]}
<POP 21506-21508 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x21508 22> {[«22""»]|[$$Last sector transfered]}
<MI 21516 LEA.L (A6-0xa),A4> {[«22""»]|[$$Last sector transfered]}
<Call 0x21518 0x2104a> {[«22""»]|[$$Last sector transfered]}
<POP 2151c-21520 StackAdj> Δ+26 {}
<POP 21520-2152c Naked> Σ0 ↓ →0x21550 ←0x214ee
<MI 21520 MOVE.W 0x2fb9a,D0> {}
<MI 21526 ANDI.W #0x0200,D0> {}
<MI 2152a BEQ 0x21550> {}
<POP 2152c-21550 Naked> Σ0 ↓
<Blob 0x2152c [4] @> Δ-4 {[«4""»]}
<Blob 0x21530 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21534 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 21538-2153a StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2153a 12> {[«4""»]|[«4""»]|[«4""»]|[$$Programmable]}
<MI 21548 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Programmable]}
<Call 0x2154a 0x2104a> {[«4""»]|[«4""»]|[«4""»]|[$$Programmable]}
<POP 2154e-21550 StackAdj> Δ+16 {}
<POP 21550-2155c Naked> Σ0 ↓ →0x21586 ←0x21520
<MI 21550 MOVE.W 0x2fb9a,D0> {}
<MI 21556 ANDI.W #0x0100,D0> {}
<MI 2155a BNE 0x21586> {}
<POP 2155c-21586 Naked> Σ0 ↓
<Blob 0x2155c [18] @> Δ-18 {[«18""»]}
<POP 2156c-2156e StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2156e 17> {[«18""»]|[$$Drive not present]}
<MI 2157c LEA.L (A6-0xa),A4> {[«18""»]|[$$Drive not present]}
<Call 0x2157e 0x2104a> {[«18""»]|[$$Drive not present]}
<POP 21582-21586 StackAdj> Δ+22 {}
<POP 21586-21592 Naked> Σ0 ↓ →0x215ba ←0x21550
<MI 21586 MOVE.W 0x2fb9a,D0> {}
<MI 2158c ANDI.W #0x0080,D0> {}
<MI 21590 BNE 0x215ba> {}
<POP 21592-215ba Naked> Σ0 ↓
<Blob 0x21592 [16] @> Δ-16 {[«16""»]}
<POP 215a2-215a4 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x215a4 15> {[«16""»]|[$$Drive not ready]}
<MI 215b2 LEA.L (A6-0xa),A4> {[«16""»]|[$$Drive not ready]}
<Call 0x215b4 0x2104a> {[«16""»]|[$$Drive not ready]}
<POP 215b8-215ba StackAdj> Δ+20 {}
<POP 215ba-215c6 Naked> Σ0 ↓ →0x215ec ←0x21586
<MI 215ba MOVE.W 0x2fb9a,D0> {}
<MI 215c0 ANDI.W #0x0040,D0> {}
<MI 215c4 BNE 0x215ec> {}
<POP 215c6-215ec Naked> Σ0 ↓
<Blob 0x215c6 [4] @> Δ-4 {[«4""»]}
<Blob 0x215ca [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x215ce [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x215d2 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 215d6-215d8 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x215d8 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<MI 215e4 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<Call 0x215e6 0x2104a> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<POP 215ea-215ec StackAdj> Δ+20 {}
<POP 215ec-215f6 Naked> Σ0 ↓ →0x2161c ←0x215ba
<MI 215ec MOVE.W 0x2fb9a,D0> {}
<MI 215f2 AND.W #0x01,D0> {}
<MI 215f4 BEQ 0x2161c> {}
<POP 215f6-2161c Naked> Σ0 ↓
<Blob 0x215f6 [4] @> Δ-4 {[«4""»]}
<Blob 0x215fa [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x215fe [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21602 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21606-21608 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21608 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Heads are offset]}
<MI 21614 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Heads are offset]}
<Call 0x21616 0x2104a> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Heads are offset]}
<POP 2161a-2161c StackAdj> Δ+20 {}
<POP 2161c-21628 Naked> Σ0 ↓ →0x2164e ←0x215ec
<MI 2161c MOVE.W 0x2fb9c,D0> {}
<MI 21622 ANDI.W #0x8000,D0> {}
<MI 21626 BEQ 0x2164e> {}
<POP 21628-2164e Naked> Σ0 ↓
<Blob 0x21628 [10] @> Δ-10 {[«10""»]}
<POP 21634-21636 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x21636 10> {[«10""»]|[$$Data check]}
<MI 21644 LEA.L (A6-0xa),A4> {[«10""»]|[$$Data check]}
<Call 0x21646 0x2104a> {[«10""»]|[$$Data check]}
<POP 2164a-2164e StackAdj> Δ+14 {}
<POP 2164e-2165a Naked> Σ0 ↓ →0x21680 ←0x2161c
<MI 2164e MOVE.W 0x2fb9c,D0> {}
<MI 21654 ANDI.W #0x4000,D0> {}
<MI 21658 BEQ 0x21680> {}
<POP 2165a-21680 Naked> Σ0 ↓
<Blob 0x2165a [2] @> Δ-2 {[«2""»]}
<Blob 0x2165e [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x21662 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 21666-21668 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x21668 6> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<MI 21676 LEA.L (A6-0xa),A4> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<Call 0x21678 0x2104a> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<POP 2167c-21680 StackAdj> Δ+10 {}
<POP 21680-2168c Naked> Σ0 ↓ →0x216b0 ←0x2164e
<MI 21680 MOVE.W 0x2fb9c,D0> {}
<MI 21686 ANDI.W #0x2000,D0> {}
<MI 2168a BEQ 0x216b0> {}
<POP 2168c-216b0 Naked> Σ0 ↓
<Blob 0x2168c [20] @> Δ-20 {[«20""»]}
<POP 21698-2169a StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2169a 20> {[«20""»]|[$$Operation Incomplete]}
<MI 216a6 LEA.L (A6-0xa),A4> {[«20""»]|[$$Operation Incomplete]}
<Call 0x216a8 0x2104a> {[«20""»]|[$$Operation Incomplete]}
<POP 216ac-216b0 StackAdj> Δ+24 {}
<POP 216b0-216bc Naked> Σ0 ↓ →0x216e0 ←0x21680
<MI 216b0 MOVE.W 0x2fb9c,D0> {}
<MI 216b6 ANDI.W #0x1000,D0> {}
<MI 216ba BEQ 0x216e0> {}
<POP 216bc-216e0 Naked> Σ0 ↓
<Blob 0x216bc [18] @> Δ-18 {[«18""»]}
<POP 216c8-216ca StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x216ca 18> {[«18""»]|[$$Drive timing error]}
<MI 216d6 LEA.L (A6-0xa),A4> {[«18""»]|[$$Drive timing error]}
<Call 0x216d8 0x2104a> {[«18""»]|[$$Drive timing error]}
<POP 216dc-216e0 StackAdj> Δ+22 {}
<POP 216e0-216ec Naked> Σ0 ↓ →0x21712 ←0x216b0
<MI 216e0 MOVE.W 0x2fb9c,D0> {}
<MI 216e6 ANDI.W #0x0800,D0> {}
<MI 216ea BEQ 0x21712> {}
<POP 216ec-21712 Naked> Σ0 ↓
<Blob 0x216ec [4] @> Δ-4 {[«4""»]}
<Blob 0x216f0 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x216f4 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x216f8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 216fc-216fe StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x216fe 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<MI 2170a LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<Call 0x2170c 0x2104a> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<POP 21710-21712 StackAdj> Δ+20 {}
<POP 21712-2171e Naked> Σ0 ↓ →0x2174a ←0x216e0
<MI 21712 MOVE.W 0x2fb9c,D0> {}
<MI 21718 ANDI.W #0x0400,D0> {}
<MI 2171c BEQ 0x2174a> {}
<POP 2171e-2174a Naked> Σ0 ↓
<Blob 0x2171e [22] @> Δ-22 {[«22""»]}
<POP 21730-21732 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x21732 21> {[«22""»]|[$$Invalid address error]}
<MI 21740 LEA.L (A6-0xa),A4> {[«22""»]|[$$Invalid address error]}
<Call 0x21742 0x2104a> {[«22""»]|[$$Invalid address error]}
<POP 21746-2174a StackAdj> Δ+26 {}
<POP 2174a-21756 Naked> Σ0 ↓ →0x2177c ←0x21712
<MI 2174a MOVE.W 0x2fb9c,D0> {}
<MI 21750 ANDI.W #0x0200,D0> {}
<MI 21754 BEQ 0x2177c> {}
<POP 21756-2177c Naked> Σ0 ↓
<Blob 0x21756 [4] @> Δ-4 {[«4""»]}
<Blob 0x2175a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2175e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21762 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21766-21768 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21768 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Address overflow]}
<MI 21774 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Address overflow]}
<Call 0x21776 0x2104a> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Address overflow]}
<POP 2177a-2177c StackAdj> Δ+20 {}
<POP 2177c-21788 Naked> Σ0 ↓ →0x217ae ←0x2174a
<MI 2177c MOVE.W 0x2fb9c,D0> {}
<MI 21782 ANDI.W #0x0100,D0> {}
<MI 21786 BEQ 0x217ae> {}
<POP 21788-217ae Naked> Σ0 ↓
<Blob 0x21788 [4] @> Δ-4 {[«4""»]}
<Blob 0x2178c [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21790 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21794 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21798-2179a StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2179a 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<MI 217a6 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<Call 0x217a8 0x2104a> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<POP 217ac-217ae StackAdj> Δ+20 {}
<POP 217ae-217ba Naked> Σ0 ↓ →0x217de ←0x2177c
<MI 217ae MOVE.W 0x2fb9c,D0> {}
<MI 217b4 ANDI.W #0x0080,D0> {}
<MI 217b8 BEQ 0x217de> {}
<POP 217ba-217de Naked> Σ0 ↓
<Blob 0x217ba [20] @> Δ-20 {[«20""»]}
<POP 217c6-217c8 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x217c8 20> {[«20""»]|[$$Header compare error]}
<MI 217d4 LEA.L (A6-0xa),A4> {[«20""»]|[$$Header compare error]}
<Call 0x217d6 0x2104a> {[«20""»]|[$$Header compare error]}
<POP 217da-217de StackAdj> Δ+24 {}
<POP 217de-217ea Naked> Σ0 ↓ →0x2180e ←0x217ae
<MI 217de MOVE.W 0x2fb9c,D0> {}
<MI 217e4 ANDI.W #0x0040,D0> {}
<MI 217e8 BEQ 0x2180e> {}
<POP 217ea-2180e Naked> Σ0 ↓
<Blob 0x217ea [14] @> Δ-14 {[«14""»]}
<POP 217f6-217f8 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x217f8 14> {[«14""»]|[$$ECC hard error]}
<MI 21806 LEA.L (A6-0xa),A4> {[«14""»]|[$$ECC hard error]}
<Call 0x21808 0x2104a> {[«14""»]|[$$ECC hard error]}
<POP 2180c-2180e StackAdj> Δ+18 {}
<POP 2180e-2181a Naked> Σ0 ↓ →0x21840 ←0x217de
<MI 2180e MOVE.W 0x2fb9c,D0> {}
<MI 21814 ANDI.W #0x0020,D0> {}
<MI 21818 BEQ 0x21840> {}
<POP 2181a-21840 Naked> Σ0 ↓
<Blob 0x2181a [4] @> Δ-4 {[«4""»]}
<Blob 0x2181e [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21822 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21826 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2182a-2182c StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2182c 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write clock fail]}
<MI 21838 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write clock fail]}
<Call 0x2183a 0x2104a> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write clock fail]}
<POP 2183e-21840 StackAdj> Δ+20 {}
<POP 21840-2184a Naked> Σ0 ↓ →0x2186e ←0x2180e
<MI 21840 MOVE.W 0x2fb9c,D0> {}
<MI 21846 AND.W #0x10,D0> {}
<MI 21848 BEQ 0x2186e> {}
<POP 2184a-2186e Naked> Σ0 ↓
<Blob 0x2184a [4] @> Δ-4 {[«4""»]}
<Blob 0x2184e [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21852 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 21856-21858 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21858 12> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<MI 21866 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<Call 0x21868 0x2104a> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<POP 2186c-2186e StackAdj> Δ+16 {}
<POP 2186e-2187a Naked> Σ0 ↓ →0x218a6 ←0x21840
<MI 2186e MOVE.W 0x2fb9c,D0> {}
<MI 21874 ANDI.W #0x0004,D0> {}
<MI 21878 BEQ 0x218a6> {}
<POP 2187a-218a6 Naked> Σ0 ↓
<Blob 0x2187a [30] @> Δ-30 {[«30""»]}
<POP 2188c-2188e StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x2188e 29> {[«30""»]|[$$Register modification refused]}
<MI 2189c LEA.L (A6-0xa),A4> {[«30""»]|[$$Register modification refused]}
<Call 0x2189e 0x2104a> {[«30""»]|[$$Register modification refused]}
<POP 218a2-218a6 StackAdj> Δ+34 {}
<POP 218a6-218b0 Naked> Σ0 ↓ →0x218d6 ←0x2186e
<MI 218a6 MOVE.W 0x2fb9c,D0> {}
<MI 218ac AND.W #0x01,D0> {}
<MI 218ae BEQ 0x218d6> {}
<POP 218b0-218d6 Naked> Σ0 ↓
<Blob 0x218b0 [4] @> Δ-4 {[«4""»]}
<Blob 0x218b4 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x218b8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x218bc [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 218c0-218c2 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x218c2 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<MI 218ce LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<Call 0x218d0 0x2104a> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<POP 218d4-218d6 StackAdj> Δ+20 {}
<POP 218d6-218e2 Naked> Σ0 ↓ →0x21908 ←0x218a6
<MI 218d6 MOVE.W 0x2fb9e,D0> {}
<MI 218dc ANDI.W #0x8000,D0> {}
<MI 218e0 BEQ 0x21908> {}
<POP 218e2-21908 Naked> Σ0 ↓
<Blob 0x218e2 [10] @> Δ-10 {[«10""»]}
<POP 218ee-218f0 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x218f0 10> {[«10""»]|[$$Bad sector]}
<MI 218fe LEA.L (A6-0xa),A4> {[«10""»]|[$$Bad sector]}
<Call 0x21900 0x2104a> {[«10""»]|[$$Bad sector]}
<POP 21904-21908 StackAdj> Δ+14 {}
<POP 21908-21914 Naked> Σ0 ↓ →0x2193c ←0x218d6
<MI 21908 MOVE.W 0x2fb9e,D0> {}
<MI 2190e ANDI.W #0x4000,D0> {}
<MI 21912 BEQ 0x2193c> {}
<POP 21914-2193c Naked> Σ0 ↓
<Blob 0x21914 [16] @> Δ-16 {[«16""»]}
<POP 21924-21926 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x21926 15> {[«16""»]|[$$Seek incomplete]}
<MI 21934 LEA.L (A6-0xa),A4> {[«16""»]|[$$Seek incomplete]}
<Call 0x21936 0x2104a> {[«16""»]|[$$Seek incomplete]}
<POP 2193a-2193c StackAdj> Δ+20 {}
<POP 2193c-21948 Naked> Σ0 ↓ →0x21970 ←0x21908
<MI 2193c MOVE.W 0x2fb9e,D0> {}
<MI 21942 ANDI.W #0x1000,D0> {}
<MI 21946 BEQ 0x21970> {}
<POP 21948-21970 Naked> Σ0 ↓
<Blob 0x21948 [16] @> Δ-16 {[«16""»]}
<POP 21958-2195a StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x2195a 15> {[«16""»]|[$$Invalid command]}
<MI 21968 LEA.L (A6-0xa),A4> {[«16""»]|[$$Invalid command]}
<Call 0x2196a 0x2104a> {[«16""»]|[$$Invalid command]}
<POP 2196e-21970 StackAdj> Δ+20 {}
<POP 21970-2197c Naked> Σ0 ↓ →0x219a0 ←0x2193c
<MI 21970 MOVE.W 0x2fb9e,D0> {}
<MI 21976 ANDI.W #0x0800,D0> {}
<MI 2197a BEQ 0x219a0> {}
<POP 2197c-219a0 Naked> Σ0 ↓
<Blob 0x2197c [20] @> Δ-20 {[«20""»]}
<POP 21988-2198a StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2198a 20> {[«20""»]|[$$Loss of system clock]}
<MI 21996 LEA.L (A6-0xa),A4> {[«20""»]|[$$Loss of system clock]}
<Call 0x21998 0x2104a> {[«20""»]|[$$Loss of system clock]}
<POP 2199c-219a0 StackAdj> Δ+24 {}
<POP 219a0-219ac Naked> Σ0 ↓ →0x219d6 ←0x21970
<MI 219a0 MOVE.W 0x2fb9e,D0> {}
<MI 219a6 ANDI.W #0x0400,D0> {}
<MI 219aa BEQ 0x219d6> {}
<POP 219ac-219d6 Naked> Σ0 ↓
<Blob 0x219ac [18] @> Δ-18 {[«18""»]}
<POP 219bc-219be StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x219be 17> {[«18""»]|[$$Loss of bit clock]}
<MI 219cc LEA.L (A6-0xa),A4> {[«18""»]|[$$Loss of bit clock]}
<Call 0x219ce 0x2104a> {[«18""»]|[$$Loss of bit clock]}
<POP 219d2-219d6 StackAdj> Δ+22 {}
<POP 219d6-219e2 Naked> Σ0 ↓ →0x21a06 ←0x219a0
<MI 219d6 MOVE.W 0x2fb9e,D0> {}
<MI 219dc ANDI.W #0x0080,D0> {}
<MI 219e0 BEQ 0x21a06> {}
<POP 219e2-21a06 Naked> Σ0 ↓
<Blob 0x219e2 [4] @> Δ-4 {[«4""»]}
<Blob 0x219e6 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x219ea [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 219ee-219f0 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x219f0 12> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<MI 219fe LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<Call 0x21a00 0x2104a> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<POP 21a04-21a06 StackAdj> Δ+16 {}
<POP 21a06-21a12 Naked> Σ0 ↓ →0x21a3c ←0x219d6
<MI 21a06 MOVE.W 0x2fb9e,D0> {}
<MI 21a0c ANDI.W #0x0020,D0> {}
<MI 21a10 BEQ 0x21a3c> {}
<POP 21a12-21a3c Naked> Σ0 ↓
<Blob 0x21a12 [18] @> Δ-18 {[«18""»]}
<POP 21a22-21a24 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21a24 17> {[«18""»]|[$$Skip sector error]}
<MI 21a32 LEA.L (A6-0xa),A4> {[«18""»]|[$$Skip sector error]}
<Call 0x21a34 0x2104a> {[«18""»]|[$$Skip sector error]}
<POP 21a38-21a3c StackAdj> Δ+22 {}
<POP 21a3c-21a44 Naked> Σ0 ↓ →0x21a50 ←0x21a06
<MI 21a3c MOVEA.L (A6-0x6),A0> {}
<MI 21a40 TST.W (A0)> {}
<MI 21a42 BEQ 0x21a50> {}
<POP 21a44-21a50 Naked> Σ0 ↓
<MI 21a44 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x21a48 0x103e0> {[4, '(A6-0x6)']}
WriteConsoleStringCrLf(str : String)
<POP 21a4e-21a50 StackAdj> Δ+4 {}
<POP 21a50-21a5a Naked> Σ0 ↓ →0x21a66 ←0x21198 ←0x21a3c
<MI 21a50 MOVE.B (A6+0x8),D0> {}
<MI 21a54 CMPI.B #0x02,D0> {}
<MI 21a58 BNE 0x21a66> {}
<POP 21a5a-21a66 Naked> Σ0 ↓
<Blob 0x21a5a [4] 0x2c88e> Δ-4 {[«4»]}
<Call 0x21a60 0x20eca> {[«4»]}
<POP 21a64-21a66 StackAdj> Δ+4 {}
<POP 21a66-21a6e Epilogue> Σ0 ←0x21a50
@ 21a6e
<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 21a6e-21b32 Body>
<POP 21a6e-21a84 Prologue> Σ0 ↓
<POP 21a84-21a86 RegCacheLoad> Σ0 ↓
<POP 21a86-21a98 Naked> Σ0 ↓
<MI 21a86 MOVE.L #0x9303,D7> {}
<MI 21a8c ASL.L #0x8,D7> {}
<MI 21a8e ASL.L #0x8,D7> {}
<MI 21a90 ADDI.L #0x0000fdc0,D7> {}
<MI 21a96 MOVEQ.L #0x00,D6> {}
<POP 21a98-21ad2 Naked> Σ0 ↓ →0x21a98 ←0x21a98
<MI 21a98 MOVEQ.L #0x02,D4> {}
<MI 21a9a MOVE.L D6,D3> {}
<Call 0x21a9c 0x1028c> {}
?muls_d3_d4
<MI 21aa2 MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 21aa4 ADD.L D4,(A7)> {[-4-]}
<Const 0x21aa6 0x5.2> Δ-2 {[-4-]|[#5]}
<POP 0x21aaa LimitCheck 0x0 ≤ D6 ≤ 0x13> {[-4-]|[#5]}
<MI 21ab0 MOVE.L D6,D0> {[-4-]|[#5]}
<MI 21ab2 ASL.L #0x1,D0> {[-4-]|[#5]}
<MI 21ab4 LEA.L (A6+D0.L-#0x2a),A0> {[-4-]|[#5]}
<MI 21ab8 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[#5]|[4, 'A0']}
<Const 0x21aba 0x1.2> Δ-2 {[-4-]|[#5]|[4, 'A0']|[#1]}
<Const 0x21abe 0x2.2> Δ-2 {[-4-]|[#5]|[4, 'A0']|[#1]|[#2]}
<Call 0x21ac2 0x1023a> {[-4-]|[#5]|[4, 'A0']|[#1]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 21ac8-21acc StackAdj> Δ+14 {}
<MI 21acc ADDQ.L #0x1,D6> {}
<MI 21ace CMP.L #0x13,D6> {}
<MI 21ad0 BLE 0x21a98> {}
<POP 21ad2-21b2a Naked> Σ0 ↓
<MI 21ad2 MOVE.W (A6-0x2a),0x2fb96> {}
<MI 21ada MOVE.W (A6-0x22),0x2fb98> {}
<MI 21ae2 MOVE.W (A6-0x20),0x2fb9a> {}
<MI 21aea MOVE.W (A6-0x1e),0x2fb9c> {}
<MI 21af2 MOVE.W (A6-0x8),0x2fb9e> {}
<MI 21afa MOVE.W (A6-0x6),0x2fba0> {}
<MI 21b02 MOVE.W (A6-0x4),0x2fba2> {}
<MI 21b0a MOVE.W (A6-0xe),0x2fba4> {}
<MI 21b12 MOVE.W (A6-0x24),0x2fba6> {}
<MI 21b1a MOVE.W (A6-0x16),0x2fba8> {}
<MI 21b22 MOVE.W (A6-0xa),0x2fbaa> {}
<POP 21b2a-21b32 Epilogue> Σ0
@ 21b32
<LVAR -0x008 2(w)>
<LVAR -0x00e 2(w)>
<LVAR -0x012 @>
<LVAR -0x014 @ 1(r)>
<POP 21b32-21bc0 Body>
<POP 21b32-21b48 Prologue> Σ0 ↓
<POP 21b48-21b8e Naked> Σ0 ↓ →0x21bb8
<MI 21b48 MOVE.W #0x2,(A6-0xe)> {}
<MI 21b4e MOVE.W 0x2fd40,D0> {}
<MI 21b54 ASL.W #0x8,D0> {}
<MI 21b56 ADDQ.W #0x1,D0> {}
<POP 0x21b58 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 21b60 MOVE.W D0,(A6-0x8)> {}
<Pointer.fp 0x21b64 <LVAR -0x012 @>> Δ-4 {[@@-18]}
<MI 21b68 LEA.L 0x2fb96,A0> {[@@-18]}
<MI 21b6e MOVE.L A0,-(A7)> Δ-4 {[@@-18]|[4, 'A0']}
<MI 21b70 CLR.W -(A7)> Δ-2 {[@@-18]|[4, 'A0']|[#0]}
<Call 0x21b72 0x10204> {[@@-18]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21b78-21b7a StackAdj> Δ+8 {[-2-]}
<MI 21b7a CLR.W (A7)> {[-2-]}
<Pointer.fp 0x21b7c <LVAR -0x014 @ 1(r)>> Δ-4 {[-2-]|[@@-20]}
<Call 0x21b80 0x10206> {[-2-]|[@@-20]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21b86-21b88 StackAdj> Δ+6 {}
<MI 21b88 TST.B (A6-0x14)> {}
<MI 21b8c BNE 0x21bb8> {}
<POP 21b8e-21bb8 Naked> Σ0 ↓
<Blob 0x21b8e [36] @> Δ-36 {[«36""»]}
<POP 21b9a-21b9c StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x21b9c 36> {[«36""»]|[$$disk error reading disk error status]}
<Call 0x21bb0 0x20e3e> {[«36""»]|[$$disk error reading disk error status]}
<POP 21bb4-21bb8 StackAdj> Δ+40 {}
<POP 21bb8-21bc0 Epilogue> Σ0 ←0x21b48
@ 21bc0
<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 21bc0-21c88 Body>
<POP 21bc0-21bd6 Prologue> Σ0 ↓
<POP 21bd6-21c38 Naked> Σ0 ↓ →0x21c80
<MI 21bd6 CLR.W (A6-0x12)> {}
<MI 21bda CLR.W (A6-0x10)> {}
<MI 21bde MOVE.W #0x2,(A6-0xe)> {}
<MI 21be4 CLR.W (A6-0xc)> {}
<MI 21be8 CLR.W (A6-0xa)> {}
<MI 21bec MOVE.W 0x2fd40,D0> {}
<MI 21bf2 ASL.W #0x8,D0> {}
<MI 21bf4 ADDI.W #0x000e,D0> {}
<POP 0x21bf8 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 21c00 MOVE.W D0,(A6-0x8)> {}
<MI 21c04 MOVE.W (A6+0xc),(A6-0x6)> {}
<MI 21c0a MOVEA.L (A6+0x8),A0> {}
<Pointer.fp 0x21c0e <LVAR -0x012 @ 2(r)>> Δ-4 {[@@-18]}
<MI 21c12 MOVEA.L A0,A1> {[@@-18]}
<MI 21c14 MOVE.L A1,-(A7)> Δ-4 {[@@-18]|[4, 'A1']}
<MI 21c16 CLR.W -(A7)> Δ-2 {[@@-18]|[4, 'A1']|[#0]}
<Call 0x21c18 0x10204> {[@@-18]|[4, 'A1']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21c1e-21c20 StackAdj> Δ+8 {[-2-]}
<MI 21c20 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x21c22 <LVAR -0x002 @ 1(r)>> Δ-4 {[-2-]|[@@-2]}
<Call 0x21c26 0x10206> {[-2-]|[@@-2]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21c2c-21c2e StackAdj> Δ+6 {}
<MI 21c2e ANDI.W #0x00ff,(A0)> {}
<MI 21c32 TST.B (A6-0x2)> {}
<MI 21c36 BNE 0x21c80> {}
<POP 21c38-21c80 Naked> Σ0 ↓
<Blob 0x21c38 [50] @> Δ-50 {[«50""»]}
<POP 21c4a-21c4c StackAdj> Δ-8 {[«50""»]|[-8-]}
<Lit 0x21c4c 49> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]}
<POP 21c5e-21c60 StackAdj> Δ-4 {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<MI 21c60 CLR.L D0> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<MI 21c62 MOVE.W (A6+0xc),D0> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<MI 21c66 MOVE.L D0,-(A7)> Δ-4 {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]|[4, 'D0']}
<Call 0x21c68 0x102e4> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21c6e-21c70 StackAdj> Δ+4 {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<Call 0x21c70 0x102d0> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21c76-21c78 StackAdj> Δ+8 {[«50""»]|[-4-]}
<Call 0x21c78 0x20e3e> {[«50""»]|[-4-]}
<POP 21c7c-21c80 StackAdj> Δ+54 {}
<POP 21c80-21c88 Epilogue> Σ0 ←0x21bd6
@ 21c88
<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 21c88-21d6c Body>
<POP 21c88-21c9e Prologue> Σ0 ↓
<POP 21c9e-21ca8 RegCacheLoad> Σ0 ↓
<POP 21ca8-21cb2 Naked> Σ0 ↓
<MI 21ca8 MOVEQ.L #0x00,D7> {}
<MI 21caa MOVE.W (A6+0x8),(A6-0x4)> {}
<MI 21cae ANDI.W #0x0003,(A6-0x4)> {}
<POP 21cb2-21cf0 Naked> Σ0 ↓ →0x21cb2 ←0x21cb2
<POP 0x21cb2 LimitCheck 0x0 ≤ D7 ≤ 0xffff> {}
<MI 21cbc MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Pointer.fp 0x21cbe <LVAR -0x486 @ 2(r)>> Δ-4 {[2, 'D7']|[@@-1158]}
<Call 0x21cc2 0x21bc0> {[2, 'D7']|[@@-1158]}
<POP 21cc6-21cc8 StackAdj> Δ+6 {}
<POP 0x21cc8 LimitCheck 0x0 ≤ D7 ≤ 0x477> {}
<MI 21cd2 LEA.L (A6-0x902),A0> {}
<MI 21cd6 LEA.L (A0+D7.L),A0> {}
<MI 21cda MOVE.W (A6-0x486),D0> {}
<POP 0x21cde LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21ce2 MOVE.B D0,(A0+0x480)> {}
<MI 21ce6 ADDQ.L #0x1,D7> {}
<MI 21ce8 CMPI.L #0x00000400,D7> {}
<MI 21cee BNE 0x21cb2> {}
<POP 21cf0-21d36 Naked> Σ0 ↓
<MI 21cf0 LEA.L (A6-0x8fe),A0> {}
<MI 21cf4 LEA.L (A6-0x482),A1> {}
<BlockMove 1144,A1,A0> {}
<MI 21d02 LEA.L (A6-0x902),A0> {}
<MI 21d06 MOVE.W (A6-0x4),D0> {}
<MI 21d08 LEA.L (A0+D0.W),A0> {}
<MI 21d0c CLR.L D0> {}
<MI 21d0e MOVE.B (A0+0x254),D0> {}
<MI 21d12 ASL.W #0x8,D0> {}
<MI 21d14 CLR.L D1> {}
<MI 21d16 MOVE.B (A0+0x1d4),D1> {}
<MI 21d1a ADD.W D0,D1> {}
<MI 21d1c MOVE.W D1,D5> {}
<MI 21d1e CLR.L D0> {}
<MI 21d20 MOVE.B (A0+0x354),D0> {}
<MI 21d24 MOVE.W D0,(A6-0x8)> {}
<MI 21d28 CLR.L D0> {}
<MI 21d2a MOVE.B (A0+0x2d4),D0> {}
<MI 21d2e MOVE.W D0,(A6-0x6)> {}
<MI 21d32 CLR.W 0x2fb8c> {}
<MI 21d34 MOVEQ.L #0x05,D6> {}
<POP 21d36-21d46 Naked> Σ0 ↓ →0x21d60 ←0x21d60
<MI 21d36 MOVE.W D6,D0> {}
<MI 21d38 ASL.W #0x2,D0> {}
<MI 21d3a LEA.L 0x23f4c,A0> {}
<MI 21d40 CMP.W (A0+D0.W+#0x1a),D5> {}
<MI 21d44 BNE 0x21d60> {}
<POP 21d46-21d52 Naked> Σ0 ↓ →0x21d60
<MI 21d46 CLR.L D1> {}
<MI 21d48 MOVE.B (A0+D0.W+#0x1c),D1> {}
<MI 21d4c CMP.W (A6-0x8),D1> {}
<MI 21d50 BNE 0x21d60> {}
<POP 21d52-21d5e Naked> Σ0 ↓ →0x21d60
<MI 21d52 CLR.L D1> {}
<MI 21d54 MOVE.B (A0+D0.W+#0x1d),D1> {}
<MI 21d58 CMP.W (A6-0x6),D1> {}
<MI 21d5c BNE 0x21d60> {}
<POP 21d5e-21d60 Naked> Σ0 ↓
<MI 21d5e MOVE.W D6,0x2fb8c> {}
<POP 21d60-21d64 Naked> Σ0 ↓ →0x21d36 ←0x21d36 ←0x21d46 ←0x21d52
<MI 21d60 SUBQ.W #0x1,D6> {}
<MI 21d62 BGE 0x21d36> {}
<POP 21d64-21d6c Epilogue> Σ0
@ 21d6c
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 21d6c-21dd2 Body>
<POP 21d6c-21d82 Prologue> Σ0 ↓
<POP 21d82-21d8e RegCacheLoad> Σ0 ↓
<POP 21d8e-21dc0 Naked> Σ0 ↓ →0x21dca
<MI 21d8e MOVE.L (A6+0xa),D4> {}
<MI 21d92 MOVEQ.L #0x0a,D3> {}
<Call 0x21d94 0x10294> {}
?divs_d3_d4
<MI 21d9a MOVE.L (A4+0xe),-(A7)> Δ-4 {[4, '(A4+0xe)']}
<MI 21d9c MOVE.L D4,D0> {[4, '(A4+0xe)']}
<MI 21d9e ADD.L #0x30,D0> {[4, '(A4+0xe)']}
<POP 0x21da0 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[4, '(A4+0xe)']}
<MI 21daa MOVE.B D0,-(A7)> Δ-2 {[4, '(A4+0xe)']|[2, 'D0']}
<Call 0x21dac 0x102c0> {[4, '(A4+0xe)']|[2, 'D0']}
AppendChar(MOD b : String; a : char)
<POP 21dae-21db0 StackAdj> Δ+2 {[4, '(A4+0xe)']}
<MI 21db0 MOVE.L (A4+0xe),(A7)> {[4, '(A4+0xe)']}
<MI 21db2 ADD.W #0x30,D3> {[4, '(A4+0xe)']}
<MI 21db4 MOVE.B D3,-(A7)> Δ-2 {[4, '(A4+0xe)']|[2, 'D3']}
<Call 0x21db6 0x102c0> {[4, '(A4+0xe)']|[2, 'D3']}
AppendChar(MOD b : String; a : char)
<POP 21db8-21dba StackAdj> Δ+6 {}
<MI 21dba TST.B (A6+0x8)> {}
<MI 21dbe BEQ 0x21dca> {}
<POP 21dc0-21dca Naked> Σ0 ↓
<MI 21dc0 MOVE.L (A4+0xe),-(A7)> Δ-4 {[4, '(A4+0xe)']}
<MI 21dc2 MOVE.B (A6+0x8),-(A7)> Δ-2 {[4, '(A4+0xe)']|[2, '(A6+0x8)']}
<Call 0x21dc6 0x102c0> {[4, '(A4+0xe)']|[2, '(A6+0x8)']}
AppendChar(MOD b : String; a : char)
<POP 21dc8-21dca StackAdj> Δ+6 {}
<POP 21dca-21dd2 Epilogue> Σ0 ←0x21d8e
@ 21dd2
<LVAR 0x00c 2(r)>
<LVAR 0x008 2(r)>
<LVAR -0x006 4(rw)>
<LVAR -0x00a 4(rw)>
<LVAR -0x014 @>
<POP 21dd2-21e9e Body>
<POP 21dd2-21de8 Prologue> Σ0 ↓
<POP 21de8-21df2 RegCacheLoad> Σ0 ↓
<POP 21df2-21e96 Naked> Σ0 ↓
<MI 21df2 CLR.L D0> {}
<MI 21df4 MOVE.W (A6+0x8),D0> {}
<MI 21df8 CLR.L D1> {}
<MI 21dfa MOVE.W (A6+0xc),D1> {}
<MI 21dfe NEG.L D1> {}
<MI 21e00 ADD.L D0,D1> {}
<POP 0x21e02 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 21e0c MOVE.W D1,D7> {}
<MI 21e0e CLR.L D0> {}
<MI 21e10 MOVE.W D7,D0> {}
<MI 21e12 DIVU.W #0x708,D0> {}
<MI 21e16 CLR.L D1> {}
<MI 21e18 MOVE.W D0,D1> {}
<MI 21e1a MOVE.L D1,D6> {}
<MI 21e1c SWAP.W D0> {}
<MI 21e1e MOVE.W D0,D7> {}
<MI 21e20 CLR.L D0> {}
<MI 21e22 MOVE.W D7,D0> {}
<MI 21e24 DIVU.W #0x1e,D0> {}
<MI 21e28 CLR.L D1> {}
<MI 21e2a MOVE.W D0,D1> {}
<MI 21e2c MOVE.L D1,D5> {}
<MI 21e2e SWAP.W D0> {}
<MI 21e30 MOVE.W D0,D7> {}
<MI 21e32 CLR.L D0> {}
<MI 21e34 MOVE.W D7,D0> {}
<MI 21e36 ASL.L #0x1,D0> {}
<MI 21e38 MOVE.L D0,(A6-0xa)> {}
<Blob 0x21e3c [4] @> Δ-4 {[«4""»]}
<Blob 0x21e40 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21e44 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21e48 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21e4c-21e4e StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21e4e 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Elapsed time is_]}
<MI 21e62 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21e66-21e6a StackAdj> Δ+12 {[«4""»]}
<MI 21e6a MOVE.L D6,(A7)> {[4, 'D6']}
<Const 0x21e6c 0x3a.2> Δ-2 {[4, 'D6']|[#58]}
<MI 21e6e LEA.L (A6-0x14),A4> {[4, 'D6']|[#58]}
<Call 0x21e70 0x21d6c> {[4, 'D6']|[#58]}
<POP 21e72-21e74 StackAdj> Δ+2 {[4, 'D6']}
<MI 21e74 MOVE.L D5,(A7)> {[4, 'D5']}
<Const 0x21e76 0x3a.2> Δ-2 {[4, 'D5']|[#58]}
<MI 21e78 LEA.L (A6-0x14),A4> {[4, 'D5']|[#58]}
<Call 0x21e7a 0x21d6c> {[4, 'D5']|[#58]}
<POP 21e7c-21e7e StackAdj> Δ+2 {[4, 'D5']}
<MI 21e7e MOVE.L (A6-0xa),(A7)> {[4, '(A6-0xa)']}
<MI 21e82 CLR.B -(A7)> Δ-2 {[4, '(A6-0xa)']|[#0]}
<MI 21e84 LEA.L (A6-0x14),A4> {[4, '(A6-0xa)']|[#0]}
<Call 0x21e86 0x21d6c> {[4, '(A6-0xa)']|[#0]}
<POP 21e88-21e8a StackAdj> Δ+2 {[4, '(A6-0xa)']}
<MI 21e8a MOVE.L (A6-0x6),(A7)> {[4, '(A6-0x6)']}
<Call 0x21e8e 0x103e0> {[4, '(A6-0x6)']}
WriteConsoleStringCrLf(str : String)
<POP 21e94-21e96 StackAdj> Δ+4 {}
<POP 21e96-21e9e Epilogue> Σ0
@ 21e9e
<POP 21e9e-21efc Body>
<POP 21e9e-21eb4 Prologue> Σ0 ↓
<POP 21eb4-21eb6 RegCacheLoad> Σ0 ↓
<POP 21eb6-21eb8 Naked> Σ0 ↓
<MI 21eb6 MOVEQ.L #0x01,D7> {}
<POP 21eb8-21ef4 Naked> Σ0 ↓ →0x21eb8 ←0x21eb8
<MI 21eb8 MOVE.L D7,D0> {}
<MI 21eba ASL.L #0x1,D0> {}
<MI 21ebc MOVE.L D0,D1> {}
<MI 21ebe SUBQ.L #0x1,D1> {}
<POP 0x21ec0 LimitCheck 0x0 ≤ D1 ≤ 0x1d> {}
<MI 21ec6 LEA.L 0x23f4c,A0> {}
<MI 21ecc ADDA.L #0xb840,A0> {}
<MI 21ed2 MOVE.B (A0+D1.L+#0x36),D6> {}
<MI 21ed6 SUBQ.L #0x1,D0> {}
<MI 21ed8 SUBQ.L #0x1,D0> {}
<POP 0x21eda LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 21ee0 MOVE.B (A0+D0.L+#0x36),(A0+D1.L+#0x36)> {}
<MI 21ee6 MOVE.B D6,(A0+D0.L+#0x36)> {}
<MI 21eea ADDQ.L #0x1,D7> {}
<MI 21eec CMPI.L #0x0000000f,D7> {}
<MI 21ef2 BLE 0x21eb8> {}
<POP 21ef4-21efc Epilogue> Σ0
@ 21efc
<LVAR 0x008 1(rw)>
<LVAR -0x018 2(r)>
<POP 21efc-21fb4 Body>
<POP 21efc-21f12 Prologue> Σ0 ↓
<POP 21f12-21f14 RegCacheLoad> Σ0 ↓
<POP 21f14-21f38 Naked> Σ0 →0x21f40 →0x21f48 →0x21f50 →0x21f58
<MI 21f14 MOVE.L #0x9303,D7> {}
<MI 21f1a ASL.L #0x8,D7> {}
<MI 21f1c ASL.L #0x8,D7> {}
<MI 21f1e MOVE.W 0x2fd40,D0> {}
<MI 21f24 ASR.W #0x2,D0> {}
<POP 0x21f26 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 21f2e ADD.W D0,D0> {}
<MI 21f30 SWITCH D0.W> {}
<POP 21f40-21f48 Naked> Σ0 →0x21f5e ←0x21f14
<MI 21f40 ADDI.L #0x0000fdc0,D7> {}
<MI 21f46 BRA 0x21f5e> {}
<POP 21f48-21f50 Naked> Σ0 →0x21f5e ←0x21f14
<MI 21f48 ADDI.L #0x0000fcc0,D7> {}
<MI 21f4e BRA 0x21f5e> {}
<POP 21f50-21f58 Naked> Σ0 →0x21f5e ←0x21f14
<MI 21f50 ADDI.L #0x0000fc80,D7> {}
<MI 21f56 BRA 0x21f5e> {}
<POP 21f58-21f5e Naked> Σ0 ↓ ←0x21f14
<MI 21f58 ADDI.L #0x0000fc40,D7> {}
<POP 21f5e-21f60 Naked> Σ0 ↓ ←0x21f40 ←0x21f48 ←0x21f50
<MI 21f5e MOVEQ.L #0x00,D6> {}
<POP 21f60-21f9a Naked> Σ0 ↓ →0x21f60 ←0x21f60
<MI 21f60 MOVEQ.L #0x02,D4> {}
<MI 21f62 MOVE.L D6,D3> {}
<Call 0x21f64 0x1028c> {}
?muls_d3_d4
<MI 21f6a MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 21f6c ADD.L D4,(A7)> {[-4-]}
<Const 0x21f6e 0x5.2> Δ-2 {[-4-]|[#5]}
<POP 0x21f72 LimitCheck 0x0 ≤ D6 ≤ 0x13> {[-4-]|[#5]}
<MI 21f78 MOVE.L D6,D0> {[-4-]|[#5]}
<MI 21f7a ASL.L #0x1,D0> {[-4-]|[#5]}
<MI 21f7c LEA.L (A6+D0.L-#0x2c),A0> {[-4-]|[#5]}
<MI 21f80 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[#5]|[4, 'A0']}
<Const 0x21f82 0x1.2> Δ-2 {[-4-]|[#5]|[4, 'A0']|[#1]}
<Const 0x21f86 0x2.2> Δ-2 {[-4-]|[#5]|[4, 'A0']|[#1]|[#2]}
<Call 0x21f8a 0x1023a> {[-4-]|[#5]|[4, 'A0']|[#1]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 21f90-21f94 StackAdj> Δ+14 {}
<MI 21f94 ADDQ.L #0x1,D6> {}
<MI 21f96 CMP.L #0x13,D6> {}
<MI 21f98 BLE 0x21f60> {}
<POP 21f9a-21fa8 Naked> Σ0 ↓ →0x21fac
<MI 21f9a CLR.B (A6+0x8)> {}
<MI 21f9e MOVE.W (A6-0x18),D0> {}
<MI 21fa2 ANDI.W #0x0010,D0> {}
<MI 21fa6 BEQ 0x21fac> {}
<POP 21fa8-21fac Naked> Σ0 ↓
<MI 21fa8 ADDQ.B #0x1,(A6+0x8)> {}
<POP 21fac-21fb4 Epilogue> Σ0 ←0x21f9a
@ 21fb4
<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 21fb4-228ca Body> Δ+136
<POP 21fb4-21fca Prologue> Σ0 ↓
<POP 21fca-21fd8 RegCacheLoad> Σ0 ↓
<POP 21fd8-21ffa Naked> Σ0 ↓ →0x2203a
<MI 21fd8 CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x21fda 0x103ac> {[#0]}
Set_is_open_ERROR_LOG(a : Bool)
<POP 21fe0-21fe2 StackAdj> Δ+2 {}
<MI 21fe2 MOVE.L #0x01,0x20020> {}
<MI 21fe8 MOVE.L #0x01,0x10026> {}
<MI 21fee MOVE.L (A6+0x8),D0> {}
<MI 21ff2 CMPI.L #0x00000063,D0> {}
<MI 21ff8 BNE 0x2203a> {}
<POP 21ffa-2203a Naked> Σ0 →0x22040
<Blob 0x21ffa [40] @> Δ-40 {[«40""»]}
<POP 2200c-2200e StackAdj> Δ-8 {[«40""»]|[-8-]}
<Lit 0x2200e 39> {[«40""»]|[-4-]|[$$Enter unit number of disk to rewrite :_]}
<Const 0x2201c 0x0.4> Δ-4 {[«40""»]|[-4-]|[$$Enter unit number of disk to rewrite :_]|[##0]}
<Const 0x22020 0xf.4> Δ-4 {[«40""»]|[-4-]|[$$Enter unit number of disk to rewrite :_]|[##0]|[##15]}
<Call 0x22024 0x103ec> {[«40""»]|[-4-]|[$$Enter unit number of disk to rewrite :_]|[##0]|[##15]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 2202a-2202c StackAdj> Δ+12 {[«40""»]|[-4-]}
<MI 2202c MOVE.L (A7)+,D0> Δ+4 {[«40""»]}
<POP 0x2202e LimitCheck 0x0 ≤ D0 ≤ 0xf> {[«40""»]}
<POP 22034-22038 StackAdj> Δ+40 {}
<MI 22038 BRA 0x22040> {}
<POP 2203a-22040 Naked> Σ0 ↓ ←0x21fd8
<POP 0x2203a LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<POP 22040-220a2 Naked> Σ0 ↓ →0x220c4 ←0x21ffa
<MI 22040 MOVE.W D0,0x2fd40> {}
<MI 22046 CLR.W (A6-0x4c)> {}
<MI 2204a CLR.W (A6-0x4a)> {}
<MI 2204e MOVE.W #0x2,(A6-0x48)> {}
<MI 22054 CLR.W (A6-0x46)> {}
<MI 22058 CLR.W (A6-0x44)> {}
<MI 2205c MOVE.W 0x2fd40,D0> {}
<MI 22062 ASL.W #0x8,D0> {}
<POP 0x22064 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 2206c MOVE.W D0,(A6-0x42)> {}
<MI 22070 CLR.W (A6-0x40)> {}
<MI 22074 CLR.W (A6-0x3e)> {}
<Pointer.fp 0x22078 <LVAR -0x04c @ 2(r)>> Δ-4 {[@@-76]}
<MI 2207c LEA.L (A6-0x3c),A0> {[@@-76]}
<MI 22080 MOVE.L A0,-(A7)> Δ-4 {[@@-76]|[4, 'A0']}
<MI 22082 CLR.W -(A7)> Δ-2 {[@@-76]|[4, 'A0']|[#0]}
<Call 0x22084 0x10204> {[@@-76]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 2208a-2208c StackAdj> Δ+8 {[-2-]}
<MI 2208c CLR.W (A7)> {[-2-]}
<Pointer.fp 0x2208e <LVAR -0x030 @ 1(r)>> Δ-4 {[-2-]|[@@-48]}
<Call 0x22092 0x10206> {[-2-]|[@@-48]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 22098-2209a StackAdj> Δ+6 {}
<MI 2209a MOVE.W (A6-0x3c),D0> {}
<MI 2209e CMP.W #0x01,D0> {}
<MI 220a0 BEQ 0x220c4> {}
<POP 220a2-220c4 Naked> Σ0 ↓
<Blob 0x220a2 [30] @> Δ-30 {[«30""»]}
<POP 220ae-220b0 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x220b0 30> {[«30""»]|[$$That disk unit does not exist.]}
<Call 0x220bc 0x20e3e> {[«30""»]|[$$That disk unit does not exist.]}
<POP 220c0-220c4 StackAdj> Δ+34 {}
<POP 220c4-22108 Naked> Σ0 ↓ →0x22132 ←0x22040
<MI 220c4 MOVE.W 0x2fd40,D0> {}
<POP 0x220ca LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 220cc MOVE.W D0,0x10008> {}
<MI 220d2 MOVE.W #0x7fff,0x1000c> {}
<MI 220da MOVE.W #0x7fff,0x1000a> {}
<Const 0x220e2 0x2.2> Δ-2 {[#2]}
<Const 0x220e6 0x2.2> Δ-2 {[#2]|[#2]}
<Const 0x220ea 0x1.4> Δ-4 {[#2]|[#2]|[##1]}
<Blob 0x220ee [4] 0x2fb92> Δ-4 {[#2]|[#2]|[##1]|[«4»]}
<Pointer.fp 0x220f4 <LVAR -0x030 @ 1(r)>> Δ-4 {[#2]|[#2]|[##1]|[«4»]|[@@-48]}
<Call 0x220f8 0x1036c> {[#2]|[#2]|[##1]|[«4»]|[@@-48]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 220fe-22102 StackAdj> Δ+16 {}
<MI 22102 TST.B (A6-0x30)> {}
<MI 22106 BNE 0x22132> {}
<POP 22108-22132 Naked> Σ0 ↓
<Blob 0x22108 [42] @> Δ-42 {[«42""»]}
<POP 2211a-2211c StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x2211c 41> {[«42""»]|[$$Can't retrieve labels due to disk errors.]}
<Call 0x2212a 0x20e3e> {[«42""»]|[$$Can't retrieve labels due to disk errors.]}
<POP 2212e-22132 StackAdj> Δ+46 {}
<POP 22132-2213e Naked> Σ0 ↓ →0x22168 ←0x220c4
<MI 22132 MOVE.W 0x2f78e,D0> {}
<MI 22138 CMPI.W #0x7fed,D0> {}
<MI 2213c BEQ 0x22168> {}
<POP 2213e-22168 Naked> Σ0 ↓
<Blob 0x2213e [20] @> Δ-20 {[«20""»]}
<POP 22150-22152 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22152 19> {[«20""»]|[$$Disk has no labels.]}
<Call 0x22160 0x20e3e> {[«20""»]|[$$Disk has no labels.]}
<POP 22164-22168 StackAdj> Δ+24 {}
<POP 22168-22174 Naked> Σ0 ↓ →0x2219c ←0x22132
<MI 22168 MOVE.W 0x2f790,D0> {}
<MI 2216e CMPI.W #0x0003,D0> {}
<MI 22172 BEQ 0x2219c> {}
<POP 22174-2219c Naked> Σ0 ↓
<Blob 0x22174 [26] @> Δ-26 {[«26""»]}
<POP 22186-22188 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x22188 25> {[«26""»]|[$$Disk has obsolete labels.]}
<Call 0x22196 0x20e3e> {[«26""»]|[$$Disk has obsolete labels.]}
<POP 2219a-2219c StackAdj> Δ+30 {}
<POP 2219c-2223e Naked> Σ0 ↓ →0x22258 ←0x22168
<MI 2219c MOVE.L 0x2f794,0x2fd42> {}
<Call 0x221a6 0x21e9e> {}
<Blob 0x221aa [30] 0x2f7e0> Δ-30 {[«30»]}
<POP 221b8-221ba StackAdj> Δ-8 {[«30»]|[-8-]}
<Lit 0x221ba> {[«30»]|[-4-]|[$$…]}
<Pointer.sp 0x221ba 8> Δ-4
<Const 0x221be 0x1.2> Δ-2
<Const 0x221c0 0x1e.2> Δ-2
<Call 0x221c2 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 221c4-221c6 StackAdj> Δ+8
<Call 0x221c6 0x102f0> {[«30»]|[-4-]|[$$…]}
ToUpper(a : String) : String
<POP 221cc-221ce StackAdj> Δ+4 {[«30»]|[-4-]}
<MI 221ce MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«30»]}
<POP 221d2-221d4 StackAdj> Δ+30 {}
<Call 0x221d4 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x221da [8] @> Δ-8 {[«8""»]}
<POP 221ea-221ec StackAdj> Δ-8 {[«8""»]|[-8-]}
<Lit 0x221ec 7> {[«8""»]|[-4-]|[$$HDA =>_]}
<MI 221f8 MOVE.L (A6-0x8),(A7)> {[«8""»]|[-4-]|[4, '(A6-0x8)']}
<POP 221f6-221f8 StackAdj> Δ-8 {[«8""»]|[-4-]|[4, '(A6-0x8)']|[-8-]}
<Call 0x221fc 0x102cc> {[«8""»]|[-4-]|[4, '(A6-0x8)']|[-8-]}
StringDup(a : String) : String
<POP 22202-22204 StackAdj> Δ+4 {[«8""»]|[-4-]|[4, '(A6-0x8)']|[-4-]}
<Call 0x22204 0x102d0> {[«8""»]|[-4-]|[4, '(A6-0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 2220a-2220c StackAdj> Δ+8 {[«8""»]|[-4-]}
<Call 0x2220c 0x103e0> {[«8""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22212-22214 StackAdj> Δ+12 {}
<MI 22214 MOVE.W 0x2fd40,D0> {}
<POP 0x2221a LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 2221c MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Call 0x2221e 0x21c88> {[2, 'D0']}
<POP 22222-22224 StackAdj> Δ+2 {}
<MI 22224 MOVE.W 0x2fb8c,D0> {}
<MI 2222a ASL.W #0x2,D0> {}
<MI 2222c LEA.L 0x23f4c,A0> {}
<MI 22232 MOVE.W (A0+D0.W+#0x1a),D1> {}
<MI 22236 CMP.W 0x2fd42,D1> {}
<MI 2223c BNE 0x22258> {}
<POP 2223e-2224a Naked> Σ0 ↓ →0x22258
<MI 2223e MOVE.B (A0+D0.W+#0x1c),D1> {}
<MI 22242 CMP.B 0x2fd44,D1> {}
<MI 22248 BNE 0x22258> {}
<POP 2224a-22258 Naked> Σ0 ↓ →0x2258a
<MI 2224a MOVE.B (A0+D0.W+#0x1d),D0> {}
<MI 2224e CMP.B 0x2fd45,D0> {}
<MI 22254 BEQ 0x2258a> {}
<POP 22258-22510 Naked> Σ0 →0x22516 →0x2251c →0x22544 ←0x2219c ←0x2223e
<Blob 0x22258 [50] @> Δ-50 {[«50""»]}
<POP 2226a-2226c StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x2226c 49> {[«50""»]|[$$Drive label geometry disagrees with slew settings]}
<Call 0x2227a 0x103e0> {[«50""»]|[$$Drive label geometry disagrees with slew settings]}
WriteConsoleStringCrLf(str : String)
<POP 22280-22284 StackAdj> Δ+54 {}
<Blob 0x22284 [28] @> Δ-28 {[«28""»]}
<Blob 0x22290 [4] @> Δ-4 {[«28""»]|[«4""»]}
<Blob 0x22294 [4] @> Δ-4 {[«28""»]|[«4""»]|[«4""»]}
<Blob 0x22298 [4] @> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2229c [4] @> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x222a0 [4] @> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 222a4-222a6 StackAdj> Δ-8 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x222a6 28> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]}
<POP 222b2-222b4 StackAdj> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]}
<MI 222b4 MOVE.W 0x2fb8c,D0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]}
<MI 222ba ASL.W #0x2,D0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]}
<MI 222bc LEA.L 0x23f4c,A0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]}
<MI 222c2 CLR.L D1> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]}
<MI 222c4 MOVE.W (A0+D0.W+#0x1a),D1> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]}
<MI 222c8 MOVE.L D1,-(A7)> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[4, 'D1']}
<Call 0x222ca 0x102e4> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[4, 'D1']}
Long2String(a : Long) : String
<Lit 0x222d0 12> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]}
<POP 222da-222dc StackAdj> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 222dc MOVE.W 0x2fb8c,D0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 222e2 ASL.W #0x2,D0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 222e4 LEA.L 0x23f4c,A0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 222ea CLR.L D1> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 222ec MOVE.B (A0+D0.W+#0x1c),D1> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 222f0 MOVE.L D1,-(A7)> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[4, 'D1']}
<Call 0x222f2 0x102e4> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[4, 'D1']}
Long2String(a : Long) : String
<Lit 0x222f8 8> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]}
<POP 22304-22306 StackAdj> Δ-4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 22306 MOVE.W 0x2fb8c,D0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 2230c ASL.W #0x2,D0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 2230e LEA.L 0x23f4c,A0> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 22314 CLR.L D1> {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 22316 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 2231a 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 0x2231c 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 22322-22324 StackAdj> Δ+4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The controller is slewed as_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<Call 0x22324 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 2232a-2232e StackAdj> Δ+24 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 2232e MOVEA.L (A7)+,A4> Δ+4 {[«28""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 22330-22331 StackAdj> Δ+48 ↓ {}
<Blob 0x22331 [10] @> Δ-10 {[«10""»]}
<POP 22342-22344 StackAdj> Δ-4 {[«10""»]|[-4-]}
<MI 22344 MOVE.L A4,-(A7)> Δ-4 {[«10""»]|[-4-]|[4, 'A4']}
<POP 22346-22348 StackAdj> Δ-4 {[«10""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x22348 9> {[«10""»]|[-4-]|[4, 'A4']|[$$ sectors,]}
<Call 0x22356 0x102d0> {[«10""»]|[-4-]|[4, 'A4']|[$$ sectors,]}
StringCat2(a, b : String) : String
<POP 2235c-2235e StackAdj> Δ+8 {[«10""»]|[-4-]}
<MI 2235e MOVEA.L (A7)+,A4> Δ+4 {[«10""»]}
<POP 22360-22362 StackAdj> Δ+6 {[-4-]}
<MI 22362 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x22364 0x103e0> {[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 2236a-2236b StackAdj> Δ+4 ↓ {}
<Blob 0x2236b [22] @> Δ-22 {[«22""»]}
<Blob 0x2237c [4] @> Δ-4 {[«22""»]|[«4""»]}
<Blob 0x22380 [4] @> Δ-4 {[«22""»]|[«4""»]|[«4""»]}
<Blob 0x22384 [4] @> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x22388 [4] @> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2238c [4] @> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 22390-22392 StackAdj> Δ-8 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x22392 21> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]}
<POP 2239e-223a0 StackAdj> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]}
<MI 223a0 CLR.L D0> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]}
<MI 223a2 MOVE.W 0x2fd42,D0> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]}
<MI 223a8 MOVE.L D0,-(A7)> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[4, 'D0']}
<Call 0x223aa 0x102e4> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x223b0 12> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]}
<POP 223ba-223bc StackAdj> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 223bc CLR.L D0> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 223be MOVE.B 0x2fd44,D0> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 223c4 MOVE.L D0,-(A7)> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[4, 'D0']}
<Call 0x223c6 0x102e4> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x223cc 8> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]}
<POP 223d8-223da StackAdj> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 223da CLR.L D0> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 223dc MOVE.B 0x2fd45,D0> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 223e2 MOVE.L D0,-(A7)> Δ-4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]|[4, 'D0']}
<Call 0x223e4 0x102e4> {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 223ea-223ec StackAdj> Δ+4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$The drive labels are_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<Call 0x223ec 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 223f2-223f6 StackAdj> Δ+24 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 223f6 MOVEA.L (A7)+,A4> Δ+4 {[«22""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 223f8-223f9 StackAdj> Δ+42 ↓ {}
<Blob 0x223f9 [10] @> Δ-10 {[«10""»]}
<POP 2240a-2240c StackAdj> Δ-4 {[«10""»]|[-4-]}
<MI 2240c MOVE.L A4,-(A7)> Δ-4 {[«10""»]|[-4-]|[4, 'A4']}
<POP 2240e-22410 StackAdj> Δ-4 {[«10""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x22410 9> {[«10""»]|[-4-]|[4, 'A4']|[$$ sectors,]}
<Call 0x2241e 0x102d0> {[«10""»]|[-4-]|[4, 'A4']|[$$ sectors,]}
StringCat2(a, b : String) : String
<POP 22424-22426 StackAdj> Δ+8 {[«10""»]|[-4-]}
<MI 22426 MOVEA.L (A7)+,A4> Δ+4 {[«10""»]}
<POP 22428-2242a StackAdj> Δ+6 {[-4-]}
<MI 2242a MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x2242c 0x103e0> {[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 22432-22433 StackAdj> Δ+4 ↓ {}
<Blob 0x22433 [16] @> Δ-16 {[«16""»]}
<POP 22442-22444 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x22444 15> {[«16""»]|[$$Do you want to-]}
<Call 0x22450 0x103e0> {[«16""»]|[$$Do you want to-]}
WriteConsoleStringCrLf(str : String)
<POP 22456-2245a StackAdj> Δ+20 {}
<Blob 0x2245a [20] @> Δ-20 {[«20""»]}
<POP 22466-22468 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22468 20> {[«20""»]|[$$ 0 => exit REWRITE]}
<Call 0x22476 0x103e0> {[«20""»]|[$$ 0 => exit REWRITE]}
WriteConsoleStringCrLf(str : String)
<POP 2247c-2247d StackAdj> Δ+24 ↓ {}
<Blob 0x2247d [26] @> Δ-26 {[«26""»]}
<POP 2248c-2248e StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x2248e 25> {[«26""»]|[$$ 1 => use slew settings]}
<Call 0x2249c 0x103e0> {[«26""»]|[$$ 1 => use slew settings]}
WriteConsoleStringCrLf(str : String)
<POP 224a2-224a4 StackAdj> Δ+30 {}
<Blob 0x224a4 [26] @> Δ-26 {[«26""»]}
<POP 224b0-224b2 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x224b2 26> {[«26""»]|[$$ 2 => use label settings]}
<Call 0x224c0 0x103e0> {[«26""»]|[$$ 2 => use label settings]}
WriteConsoleStringCrLf(str : String)
<POP 224c6-224c8 StackAdj> Δ+30 {}
<Blob 0x224c8 [22] @> Δ-22 {[«22""»]}
<POP 224d4-224d6 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x224d6 22> {[«22""»]|[-4-]|[$$Enter option [0..2] :_]}
<Const 0x224e4 0x0.4> Δ-4 {[«22""»]|[-4-]|[$$Enter option [0..2] :_]|[##0]}
<Const 0x224e8 0x2.4> Δ-4 {[«22""»]|[-4-]|[$$Enter option [0..2] :_]|[##0]|[##2]}
<Call 0x224ec 0x103ec> {[«22""»]|[-4-]|[$$Enter option [0..2] :_]|[##0]|[##2]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 224f2-224f4 StackAdj> Δ+12 {[«22""»]|[-4-]}
<MI 224f4 MOVE.L (A7)+,D6> Δ+4 {[«22""»]}
<POP 224f6-224fa StackAdj> Δ+22 {}
<MI 224fa MOVE.L D6,D0> {}
<POP 0x224fc LimitCheck 0x0 ≤ D0 ≤ 0x2> {}
<MI 22506 ADD.W D0,D0> {}
<MI 22508 SWITCH D0.W> {}
<POP 22516-2251c Naked> Σ0 →0x22584 ←0x22258
<Call 0x22516 0x20ea0> {}
<MI 2251a BRA 0x22584> {}
<POP 2251c-22544 Naked> Σ0 →0x22584 ←0x22258
<MI 2251c MOVE.W 0x2fb8c,D0> {}
<MI 22522 ASL.W #0x2,D0> {}
<MI 22524 LEA.L 0x23f4c,A0> {}
<MI 2252a MOVE.W (A0+D0.W+#0x1a),0x2fd42> {}
<MI 22532 MOVE.B (A0+D0.W+#0x1c),0x2fd44> {}
<MI 2253a MOVE.B (A0+D0.W+#0x1d),0x2fd45> {}
<MI 22542 BRA 0x22584> {}
<POP 22544-2254c Naked> Σ0 ↓ ←0x22258
<MI 22544 CLR.W 0x2fb8c> {}
<MI 2254a MOVEQ.L #0x05,D7> {}
<POP 2254c-22562 Naked> Σ0 ↓ →0x22580 ←0x22580
<MI 2254c MOVE.W D7,D0> {}
<MI 2254e ASL.W #0x2,D0> {}
<MI 22550 LEA.L 0x23f4c,A0> {}
<MI 22556 MOVE.W (A0+D0.W+#0x1a),D1> {}
<MI 2255a CMP.W 0x2fd42,D1> {}
<MI 22560 BNE 0x22580> {}
<POP 22562-2256e Naked> Σ0 ↓ →0x22580
<MI 22562 MOVE.B (A0+D0.W+#0x1c),D1> {}
<MI 22566 CMP.B 0x2fd44,D1> {}
<MI 2256c BNE 0x22580> {}
<POP 2256e-2257a Naked> Σ0 ↓ →0x22580
<MI 2256e MOVE.B (A0+D0.W+#0x1d),D0> {}
<MI 22572 CMP.B 0x2fd45,D0> {}
<MI 22578 BNE 0x22580> {}
<POP 2257a-22580 Naked> Σ0 ↓
<MI 2257a MOVE.W D7,0x2fb8c> {}
<POP 22580-22584 Naked> Σ0 ↓ →0x2254c ←0x2254c ←0x22562 ←0x2256e
<MI 22580 SUBQ.W #0x1,D7> {}
<MI 22582 BGE 0x2254c> {}
<POP 22584-2258a Naked> Σ0 ↓ ←0x22516 ←0x2251c
<Call 0x22584 0x103dc> {}
WriteConsoleCrLf(void)
<POP 2258a-22594 Naked> Σ0 ↓ →0x22612 ←0x2224a
<POP 2258a-2258c StackAdj> Δ-2 {[-2-]}
<Call 0x2258c 0x21efc> {[-2-]}
<MI 22590 TST.B (A7)+> Δ+2 {}
<MI 22592 BEQ 0x22612> {}
<POP 22594-22612 Naked> Σ0 ↓
<Call 0x22594 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2259a [72] @> Δ-72 {[«72""»]}
<POP 225a6-225a8 StackAdj> Δ-4 {[«72""»]|[-4-]}
<Lit 0x225a8 72> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
<Call 0x225b6 0x103e0> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
WriteConsoleStringCrLf(str : String)
<POP 225bc-225c0 StackAdj> Δ+76 {}
<Blob 0x225c0 [44] @> Δ-44 {[«44""»]}
<POP 225cc-225ce StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x225ce 44> {[«44""»]|[$$Please UNPROTECT the drive before continuing]}
<Call 0x225dc 0x103e0> {[«44""»]|[$$Please UNPROTECT the drive before continuing]}
WriteConsoleStringCrLf(str : String)
<POP 225e2-225e6 StackAdj> Δ+48 {}
<Blob 0x225e6 [72] @> Δ-72 {[«72""»]}
<POP 225f2-225f4 StackAdj> Δ-4 {[«72""»]|[-4-]}
<Lit 0x225f4 72> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
<Call 0x22602 0x103e0> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
WriteConsoleStringCrLf(str : String)
<POP 22608-2260c StackAdj> Δ+76 {}
<Call 0x2260c 0x103dc> {}
WriteConsoleCrLf(void)
<POP 22612-226f2 Naked> Σ0 →0x226fe →0x22728 →0x22756 →0x2276a →0x22778 →0x22786 ←0x2258a
<Blob 0x22612 [16] @> Δ-16 {[«16""»]}
<Blob 0x22624 [4] @> Δ-4 {[«16""»]|[«4""»]}
<Blob 0x22628 [4] @> Δ-4 {[«16""»]|[«4""»]|[«4""»]}
<Blob 0x2262c [4] @> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x22630 [4] @> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x22634 [4] @> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 22638-2263a StackAdj> Δ-8 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x2263a 15> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]}
<POP 22644-22646 StackAdj> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]}
<MI 22646 CLR.L D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]}
<MI 22648 MOVE.W 0x2fd42,D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]}
<MI 2264e MOVE.L D0,-(A7)> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, 'D0']}
<Call 0x22650 0x102e4> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x22656 12> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]}
<POP 22660-22662 StackAdj> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 22662 CLR.L D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 22664 MOVE.B 0x2fd44,D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 2266a MOVE.L D0,-(A7)> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[4, 'D0']}
<Call 0x2266c 0x102e4> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x22672 8> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]}
<POP 2267e-22680 StackAdj> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 22680 CLR.L D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 22682 MOVE.B 0x2fd45,D0> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 22688 MOVE.L D0,-(A7)> Δ-4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]|[4, 'D0']}
<Call 0x2268a 0x102e4> {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 22690-22692 StackAdj> Δ+4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<Call 0x22692 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 22698-2269c StackAdj> Δ+24 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 2269c MOVEA.L (A7)+,A4> Δ+4 {[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2269e-2269f StackAdj> Δ+36 ↓ {}
<Blob 0x2269f [10] @> Δ-10 {[«10""»]}
<POP 226b0-226b2 StackAdj> Δ-4 {[«10""»]|[-4-]}
<MI 226b2 MOVE.L A4,-(A7)> Δ-4 {[«10""»]|[-4-]|[4, 'A4']}
<POP 226b4-226b6 StackAdj> Δ-4 {[«10""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x226b6 9> {[«10""»]|[-4-]|[4, 'A4']|[$$ sectors,]}
<Call 0x226c4 0x102d0> {[«10""»]|[-4-]|[4, 'A4']|[$$ sectors,]}
StringCat2(a, b : String) : String
<POP 226ca-226cc StackAdj> Δ+8 {[«10""»]|[-4-]}
<MI 226cc MOVEA.L (A7)+,A4> Δ+4 {[«10""»]}
<POP 226ce-226d0 StackAdj> Δ+6 {[-4-]}
<MI 226d0 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x226d2 0x103e0> {[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 226d8-226da StackAdj> Δ+4 {}
<MI 226da MOVE.W 0x2fb8c,D0> {}
<POP 0x226e0 LimitCheck 0x0 ≤ D0 ≤ 0x5> {}
<MI 226e8 ADD.W D0,D0> {}
<MI 226ea SWITCH D0.W> {}
<POP 226fe-22728 Naked> Σ0 →0x227ac ←0x22612
<Blob 0x226fe [42] @> Δ-42 {[«42""»]}
<POP 2270a-2270c StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x2270c 42> {[«42""»]|[$$The rewrite time for this drive is unknown]}
<Call 0x2271a 0x103e0> {[«42""»]|[$$The rewrite time for this drive is unknown]}
WriteConsoleStringCrLf(str : String)
<POP 22720-22724 StackAdj> Δ+46 {}
<MI 22724 BRA 0x227ac> {}
<POP 22728-2273a Naked> Σ0 Δ-40 ↓ ←0x22612
<Blob 0x22728 [40] @> Δ-40 {[«40""»]}
<POP 2273a-22756 Naked> Σ-40 Δ+40 →0x227ac ←0x22756
<POP 2273a-2273c StackAdj> Δ-4 {[-44-]}
<Lit 0x2273c> {[-40-]|[$$…]}
<Pointer.sp 0x2273c 4> Δ-4
<Const 0x22740 0x1.2> Δ-2
<Const 0x22742 0x27.2> Δ-2
<Call 0x22746 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22748-2274a StackAdj> Δ+8
<Call 0x2274a 0x103e0> {[-40-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 22750-22754 StackAdj> Δ+44 {}
<MI 22754 BRA 0x227ac> {}
<POP 22756-2276a Naked> Σ0 Δ-40 →0x2273a ←0x22612
<Blob 0x22756 [40] @> Δ-40 {[«40""»]}
<MI 22768 BRA 0x2273a> {[«40""»]}
<POP 2276a-22778 Naked> Σ0 Δ-48 →0x22792 ←0x22612
<Blob 0x2276a [48] @> Δ-48 {[«48""»]}
<MI 22776 BRA 0x22792> {[«48""»]}
<POP 22778-22786 Naked> Σ0 Δ-48 →0x22792 ←0x22612
<Blob 0x22778 [48] @> Δ-48 {[«48""»]}
<MI 22784 BRA 0x22792> {[«48""»]}
<POP 22786-22792 Naked> Σ0 Δ-48 ↓ ←0x22612
<Blob 0x22786 [48] @> Δ-48 {[«48""»]}
<POP 22792-227ac Naked> Σ-48 Δ+48 ↓ ←0x2276a ←0x22778
<POP 22792-22794 StackAdj> Δ-4 {[-52-]}
<Lit 0x22794> {[-48-]|[$$…]}
<Pointer.sp 0x22794 4> Δ-4
<Const 0x22798 0x1.2> Δ-2
<Const 0x2279a 0x30.2> Δ-2
<Call 0x2279e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 227a0-227a2 StackAdj> Δ+8
<Call 0x227a2 0x103e0> {[-48-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 227a8-227ac StackAdj> Δ+52 {}
<POP 227ac-227b8 Naked> Σ0 ↓ →0x227ea ←0x226fe ←0x2273a
<MI 227ac MOVE.L (A6+0x8),D0> {}
<MI 227b0 CMPI.L #0x00000063,D0> {}
<MI 227b6 BNE 0x227ea> {}
<POP 227b8-227e2 Naked> Σ0 Δ-32 ↓ →0x227e6
<Blob 0x227b8 [32] @> Δ-32 {[«32""»]}
<POP 227c4-227c6 StackAdj> Δ-6 {[«32""»]|[-6-]}
<Lit 0x227c6 32> {[«32""»]|[-2-]|[$$Do you wish to rewrite the drive]}
<POP 227d2-227d4 StackAdj> Δ-2 {[«32""»]|[-2-]|[$$Do you wish to rewrite the drive]|[-2-]}
<POP 227d4-227d5 StackAdj> Δ+2 {[«32""»]|[-2-]|[$$Do you wish to rewrite the drive]}
<Const 0x227d5 0x1.2> Δ-2 {[«32""»]|[-2-]|[$$Do you wish to rewrite the drive]|[#1]}
<Call 0x227d6 0x103f0> {[«32""»]|[-2-]|[$$Do you wish to rewrite the drive]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 227dc-227de StackAdj> Δ+6 {[«32""»]|[-2-]}
<MI 227de TST.B (A7)+> Δ+2 {[«32""»]}
<MI 227e0 BNE 0x227e6> {[«32""»]}
<POP 227e2-227e6 Naked> Σ-32 ↓
<Call 0x227e2 0x20ea0> {[-32-]}
<POP 227e6-227ea Naked> Σ-32 Δ+32 ↓ ←0x227b8
<POP 227e6-227ea StackAdj> Δ+32 {}
<POP 227ea-228c2 Naked> Σ0 ↓ ←0x227ac
<MI 227ea CLR.L D0> {}
<MI 227ec MOVE.B 0x2fd45,D0> {}
<MI 227f2 MOVE.W #0x102,D1> {}
<MI 227f6 MULU.W D0,D1> {}
<MI 227f8 NEG.L D1> {}
<MI 227fa ANDI.L #0x0000ffff,D1> {}
<MI 22800 MOVE.W D1,0x2fd46> {}
<MI 22806 LEA.L 0x23f7e,A0> {}
<MI 2280c MOVEA.L A0,A3> {}
<MI 2280e MOVE.L A3,-(A7)> Δ-4 {[4, 'A3']}
<MI 22810 MOVE.L (A7)+,D1> Δ+4 {}
<MI 22812 ANDI.L #0x000003ff,D1> {}
<MI 22818 MOVE.W D1,0x23f54> {}
<MI 2281e MOVE.W 0x2fd40,D1> {}
<POP 0x22824 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 2282c MOVE.W D1,0x23f64> {}
<MI 22832 MOVE.W #0x3b,0x23f60> {}
<MI 2283a MOVE.W #0x33,0x23f62> {}
<MI 22842 MOVE.L #0x9303,0x23f5c> {}
<MI 2284c MOVE.L 0x23f5c,D1> {}
<MI 22852 ASL.L #0x8,D1> {}
<MI 22854 ASL.L #0x8,D1> {}
<MI 22856 MOVE.L D1,0x23f5c> {}
<MI 2285c ADDI.L #0x0000fdc0,D1> {}
<MI 22862 MOVE.L D1,0x23f5c> {}
<MI 22868 ADDQ.W #0x2,D0> {}
<MI 2286a ASR.W #0x1,D0> {}
<MI 2286c MULS.W #0x100,D0> {}
<MI 22870 MOVE.W D0,0x2c894> {}
<MI 22876 CLR.W 0x2c896> {}
<MI 2287c MOVE.W #0x2,0x2c898> {}
<MI 22884 CLR.W 0x2c89a> {}
<MI 2288a CLR.W 0x2c89c> {}
<MI 22890 MOVE.W 0x2fd40,D0> {}
<MI 22896 ASL.W #0x8,D0> {}
<MI 22898 ADDQ.W #0x2,D0> {}
<POP 0x2289a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 228a2 MOVE.W D0,0x2c89e> {}
<MI 228a8 CLR.W 0x2c8a0> {}
<MI 228ae CLR.W 0x2c8a2> {}
<MI 228b4 LEA.L 0x23f7e,A0> {}
<MI 228ba MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 228bc MOVE.L (A7)+,0x2c8a4> Δ+4 {}
<POP 228c2-228ca Epilogue> Σ0
@ 228ca
<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 228ca-229c2 Body>
<POP 228ca-228e0 Prologue> Σ0 ↓
<POP 228e0-228e6 RegCacheLoad> Σ0 ↓
<POP 228e6-2293c Naked> Σ0 ↓ →0x2295e
<MI 228e6 CLR.W (A6-0x14)> {}
<MI 228ea MOVE.W #0x2,(A6-0x12)> {}
<MI 228f0 CLR.W (A6-0x10)> {}
<MI 228f4 CLR.W (A6-0xe)> {}
<MI 228f8 MOVE.W 0x2fd40,D0> {}
<MI 228fe ASL.W #0x8,D0> {}
<MI 22900 MOVE.B (A6+0xc),D1> {}
<MI 22904 EXTB.W D1> {}
<MI 22906 ADD.W D1,D0> {}
<POP 0x22908 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 2290e MOVE.W D0,(A6-0xc)> {}
<MI 22912 MOVE.L (A6+0x16),D0> {}
<POP 0x22916 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 2291c MOVE.W D0,(A6-0xa)> {}
<MI 22920 MOVE.L (A6+0x12),D0> {}
<MI 22924 ASL.L #0x8,D0> {}
<MI 22926 ADD.L (A6+0xe),D0> {}
<POP 0x2292a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22930 MOVE.W D0,(A6-0x8)> {}
<MI 22934 SUBQ.W #0x2,D1> {}
<MI 22936 CMPI.W #0x0006,D1> {}
<MI 2293a BHI 0x2295e> {}
<POP 2293c-22946 Naked> Σ0 →0x22954 →0x2295e →0x2295e →0x2295e →0x2295e →0x2295e →0x2295c
<MI 2293c ADD.W D1,D1> {}
<MI 2293e SWITCH D1.W> {}
<POP 22954-2295c Naked> Σ0 →0x2298e ←0x2293c ←0x2295c
<MI 22954 MOVE.W #0x100,(A6-0x16)> {}
<MI 2295a BRA 0x2298e> {}
<POP 2295c-2295e Naked> Σ0 →0x22954 ←0x2293c
<MI 2295c BRA 0x22954> {}
<POP 2295e-2298e Naked> Σ0 ↓ ←0x228e6 ←0x2293c ←0x2293c ←0x2293c ←0x2293c ←0x2293c
<Blob 0x2295e [20] @> Δ-20 {[«20""»]}
<POP 22970-22972 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22972 19> {[«20""»]|[$$Unsupported disk op]}
<Call 0x22986 0x20e3e> {[«20""»]|[$$Unsupported disk op]}
<POP 2298a-2298e StackAdj> Δ+24 {}
<POP 2298e-229ba Naked> Σ0 ↓ ←0x22954
<MI 2298e LEA.L 0x23f7e,A0> {}
<MI 22994 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22996 MOVEA.L (A7)+,A4> Δ+4 {}
<Pointer.fp 0x22998 <LVAR -0x016 @ 2(w)>> Δ-4 {[@@-22]}
<MI 2299c MOVE.L A4,-(A7)> Δ-4 {[@@-22]|[4, 'A4']}
<MI 2299e CLR.W -(A7)> Δ-2 {[@@-22]|[4, 'A4']|[#0]}
<Call 0x229a0 0x10204> {[@@-22]|[4, 'A4']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 229a6-229aa StackAdj> Δ+10 {}
<MI 229aa MOVEA.L (A6+0x8),A0> {}
<MI 229ae CLR.W -(A7)> Δ-2 {[#0]}
<MI 229b0 PEA.L (A0)> Δ-4 {[#0]|[4, '^(A0)']}
<Call 0x229b2 0x10206> {[#0]|[4, '^(A0)']}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 229b8-229ba StackAdj> Δ+6 {}
<POP 229ba-229c2 Epilogue> Σ0
@ 229c2
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 2(r)>
<POP 229c2-22a26 Body>
<POP 229c2-229d8 Prologue> Σ0 ↓
<POP 229d8-229e4 RegCacheLoad> Σ0 ↓
<POP 229e4-22a1e Naked> Σ0 ↓ →0x229e4 ←0x229e4
<MI 229e4 MOVEA.L (A6+0x8),A0> {}
<Blob 0x229e8 [4] 0x23f5c> Δ-4 {[«4»]}
<Const 0x229ea 0x5.2> Δ-2 {[«4»]|[#5]}
<MI 229ec MOVEA.L A0,A1> {[«4»]|[#5]}
<MI 229ee MOVE.L A1,-(A7)> Δ-4 {[«4»]|[#5]|[4, 'A1']}
<Const 0x229f0 0x1.2> Δ-2 {[«4»]|[#5]|[4, 'A1']|[#1]}
<Const 0x229f2 0x2.2> Δ-2 {[«4»]|[#5]|[4, 'A1']|[#1]|[#2]}
<Call 0x229f4 0x1023a> {[«4»]|[#5]|[4, 'A1']|[#1]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 229fa-229fe StackAdj> Δ+10 {[«4»]}
<POP 229fe-229ff StackAdj> Δ+4 {}
<Blob 0x229ff [4] 0x23f5c> Δ-4 {[«4»]}
<Const 0x22a00 0x5.2> Δ-2 {[«4»]|[#5]}
<MI 22a02 LEA.L (A6-0x4),A1> {[«4»]|[#5]}
<MI 22a06 MOVE.L A1,-(A7)> Δ-4 {[«4»]|[#5]|[4, 'A1']}
<Const 0x22a08 0x1.2> Δ-2 {[«4»]|[#5]|[4, 'A1']|[#1]}
<Const 0x22a0a 0x2.2> Δ-2 {[«4»]|[#5]|[4, 'A1']|[#1]|[#2]}
<Call 0x22a0c 0x1023a> {[«4»]|[#5]|[4, 'A1']|[#1]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22a12-22a16 StackAdj> Δ+14 {}
<MI 22a16 MOVE.W (A6-0x4),D0> {}
<MI 22a1a CMP.W (A0),D0> {}
<MI 22a1c BNE 0x229e4> {}
<POP 22a1e-22a26 Epilogue> Σ0
@ 22a26
<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 22a26-22bb4 Body>
<POP 22a26-22a3c Prologue> Σ0 ↓
<POP 22a3c-22a54 RegCacheLoad> Σ0 ↓
<POP 22a54-22b54 Naked> Σ0 ↓
<MI 22a54 MOVE.L 0x2c894,(A6-0x12)> {}
<MI 22a5c MOVE.L 0x2c898,(A6-0xe)> {}
<MI 22a64 MOVE.L 0x2c89c,(A6-0xa)> {}
<MI 22a6c MOVE.L 0x2c8a0,(A6-0x6)> {}
<Pointer.fp 0x22a74 <LVAR -0x012 @ 4(w)>> Δ-4 {[@@-18]}
<Blob 0x22a78 [4] 0x2c8a4> Δ-4 {[@@-18]|[«4»]}
<MI 22a7e CLR.W -(A7)> Δ-2 {[@@-18]|[«4»]|[#0]}
<Call 0x22a80 0x10204> {[@@-18]|[«4»]|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 22a86-22a8a StackAdj> Δ+10 {}
<MI 22a8a MOVE.L (A6+0x10),D4> {}
<MI 22a8e MOVE.L #0x10000,D3> {}
<Call 0x22a94 0x10294> {}
?divs_d3_d4
<MI 22a9a ANDI.L #0x0000ffff,D3> {}
<MI 22aa0 MOVE.W D3,(A6-0x16)> {}
<MI 22aa4 MOVE.L (A6+0xc),D0> {}
<MI 22aa8 ASL.L #0x8,D0> {}
<POP 0x22aaa LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22ab4 MOVE.W D0,(A6-0x14)> {}
<MI 22ab8 CLR.W -(A7)> Δ-2 {[#0]}
<MI 22aba MOVEA.L (A6+0x8),A0> {[#0]}
<MI 22abc PEA.L (A0)> Δ-4 {[#0]|[4, '^(A0)']}
<Call 0x22abe 0x10206> {[#0]|[4, '^(A0)']}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 22ac4-22ac6 StackAdj> Δ+6 {}
<MI 22ac6 LEA.L 0x23f64,A0> {}
<MI 22acc MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22ace 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22ad0 [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22ad2 ADDQ.L #0x8,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22ad4 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22ad6 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22ad8 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22ada-22adc StackAdj> Δ+14 {}
<MI 22adc LEA.L (A6-0x16),A0> {}
<MI 22ae0 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22ae2 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22ae4 [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22ae6 ADDI.L #0x0000001c,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22aec 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22aee 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22af0 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22af2-22af4 StackAdj> Δ+14 {}
<MI 22af4 LEA.L (A6-0x14),A0> {}
<MI 22af8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22afa 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22afc [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22afe ADDQ.L #0x6,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22b00 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22b02 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22b04 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22b06-22b08 StackAdj> Δ+14 {}
<MI 22b08 LEA.L 0x23f54,A0> {}
<MI 22b0e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22b10 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22b12 [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22b14 ADDQ.L #0x4,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22b16 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22b18 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22b1a 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22b1c-22b1e StackAdj> Δ+14 {}
<MI 22b1e LEA.L 0x2fd46,A0> {}
<MI 22b24 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22b26 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22b28 [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22b2a ADDQ.L #0x2,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22b2c 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22b2e 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22b30 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22b32-22b34 StackAdj> Δ+14 {}
<MI 22b34 LEA.L 0x23f60,A0> {}
<MI 22b3a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22b3c 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22b3e [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<Const 0x22b40 0x5.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]}
<Const 0x22b42 0x2.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
<Call 0x22b44 0x1023a> {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22b46-22b48 StackAdj> Δ+14 {}
<Const 0x22b48 0x186.4> Δ-4 {[##390]}
<Call 0x22b4c 0x10224> {[##390]}
KC12_Sleep(dur: Long)
<POP 22b52-22b54 StackAdj> Δ+4 {}
<POP 22b54-22b68 Naked> Σ0 ↓ →0x22b54 ←0x22b54
<Pointer.fp 0x22b54 <LVAR -0x018 @ 2(rw)>> Δ-4 {[@@-24]}
<Call 0x22b58 0x229c2> {[@@-24]}
<POP 22b5c-22b5e StackAdj> Δ+4 {}
<MI 22b5e MOVE.W (A6-0x18),D0> {}
<MI 22b62 ANDI.W #0x0080,D0> {}
<MI 22b66 BEQ 0x22b54> {}
<POP 22b68-22b72 Naked> Σ0 ↓ →0x22ba8
<MI 22b68 MOVE.W (A6-0x18),D0> {}
<MI 22b6c ANDI.W #0x8000,D0> {}
<MI 22b70 BEQ 0x22ba8> {}
<POP 22b72-22b92 Naked> Σ0 ↓
<Call 0x22b72 0x21a6e> {}
<MI 22b76 MOVEA.L (A6+0x8),A0> {}
<MI 22b78 CLR.B (A0)> {}
<MI 22b7a MOVE.W #0x4009,(A6-0x18)> {}
<MI 22b80 LEA.L (A6-0x18),A0> {}
<MI 22b84 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22b86 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22b88 [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<Const 0x22b8a 0x5.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]}
<Const 0x22b8c 0x2.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
<Call 0x22b8e 0x1023a> {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22b90-22b92 StackAdj> Δ+14 {}
<POP 22b92-22ba6 Naked> Σ0 ↓ →0x22b92 ←0x22b92
<Pointer.fp 0x22b92 <LVAR -0x018 @ 2(rw)>> Δ-4 {[@@-24]}
<Call 0x22b96 0x229c2> {[@@-24]}
<POP 22b9a-22b9c StackAdj> Δ+4 {}
<MI 22b9c MOVE.W (A6-0x18),D0> {}
<MI 22ba0 ANDI.W #0x0080,D0> {}
<MI 22ba4 BEQ 0x22b92> {}
<POP 22ba6-22ba8 Naked> Σ0 →0x22bac
<MI 22ba6 BRA 0x22bac> {}
<POP 22ba8-22bac Naked> Σ0 ↓ ←0x22b68
<MI 22ba8 MOVEA.L (A6+0x8),A0> {}
<MI 22baa MOVE.B #0x01,(A0)> {}
<POP 22bac-22bb4 Epilogue> Σ0 ←0x22ba6
@ 22bb4
<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 22bb4-22cf4 Body>
<POP 22bb4-22bca Prologue> Σ0 ↓
<POP 22bca-22be2 RegCacheLoad> Σ0 ↓
<POP 22be2-22c9e Naked> Σ0 ↓
<MI 22be2 MOVE.L (A6+0x10),D4> {}
<MI 22be6 MOVE.L #0x10000,D3> {}
<Call 0x22bec 0x10294> {}
?divs_d3_d4
<MI 22bf2 ANDI.L #0x0000ffff,D3> {}
<MI 22bf8 MOVE.W D3,(A6-0x6)> {}
<MI 22bfc MOVE.L (A6+0xc),D0> {}
<MI 22c00 ASL.L #0x8,D0> {}
<POP 0x22c02 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22c0c MOVE.W D0,(A6-0x4)> {}
<MI 22c10 LEA.L 0x23f64,A0> {}
<MI 22c16 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22c18 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22c1a [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22c1c ADDQ.L #0x8,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22c1e 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22c20 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22c22 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22c24-22c26 StackAdj> Δ+14 {}
<MI 22c26 LEA.L (A6-0x6),A0> {}
<MI 22c2a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22c2c 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22c2e [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22c30 ADDI.L #0x0000001c,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22c36 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22c38 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22c3a 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22c3c-22c3e StackAdj> Δ+14 {}
<MI 22c3e LEA.L (A6-0x4),A0> {}
<MI 22c42 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22c44 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22c46 [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22c48 ADDQ.L #0x6,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22c4a 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22c4c 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22c4e 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22c50-22c52 StackAdj> Δ+14 {}
<MI 22c52 LEA.L 0x23f54,A0> {}
<MI 22c58 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22c5a 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22c5c [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22c5e ADDQ.L #0x4,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22c60 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22c62 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22c64 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22c66-22c68 StackAdj> Δ+14 {}
<MI 22c68 LEA.L 0x2fd46,A0> {}
<MI 22c6e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22c70 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22c72 [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22c74 ADDQ.L #0x2,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22c76 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22c78 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22c7a 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22c7c-22c7e StackAdj> Δ+14 {}
<MI 22c7e LEA.L 0x23f62,A0> {}
<MI 22c84 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22c86 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22c88 [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<Const 0x22c8a 0x5.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]}
<Const 0x22c8c 0x2.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
<Call 0x22c8e 0x1023a> {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22c90-22c92 StackAdj> Δ+14 {}
<Const 0x22c92 0x186.4> Δ-4 {[##390]}
<Call 0x22c96 0x10224> {[##390]}
KC12_Sleep(dur: Long)
<POP 22c9c-22c9e StackAdj> Δ+4 {}
<POP 22c9e-22cae Naked> Σ0 ↓ →0x22c9e ←0x22c9e
<Pointer.fp 0x22c9e <LVAR -0x008 @ 2(rw)>> Δ-4 {[@@-8]}
<Call 0x22ca0 0x229c2> {[@@-8]}
<POP 22ca4-22ca6 StackAdj> Δ+4 {}
<MI 22ca6 MOVE.W (A6-0x8),D0> {}
<MI 22ca8 ANDI.W #0x0080,D0> {}
<MI 22cac BEQ 0x22c9e> {}
<POP 22cae-22cb6 Naked> Σ0 ↓ →0x22ce6
<MI 22cae MOVE.W (A6-0x8),D0> {}
<MI 22cb0 ANDI.W #0x8000,D0> {}
<MI 22cb4 BEQ 0x22ce6> {}
<POP 22cb6-22cd4 Naked> Σ0 ↓
<Call 0x22cb6 0x21a6e> {}
<MI 22cba MOVE.W #0x4009,(A6-0x8)> {}
<MI 22cbe MOVEA.L (A6+0x8),A0> {}
<MI 22cc2 CLR.B (A0)> {}
<MI 22cc4 LEA.L (A6-0x8),A0> {}
<MI 22cc6 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22cc8 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22cca [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<Const 0x22ccc 0x5.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]}
<Const 0x22cce 0x2.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
<Call 0x22cd0 0x1023a> {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22cd2-22cd4 StackAdj> Δ+14 {}
<POP 22cd4-22ce4 Naked> Σ0 ↓ →0x22cd4 ←0x22cd4
<Pointer.fp 0x22cd4 <LVAR -0x008 @ 2(rw)>> Δ-4 {[@@-8]}
<Call 0x22cd6 0x229c2> {[@@-8]}
<POP 22cda-22cdc StackAdj> Δ+4 {}
<MI 22cdc MOVE.W (A6-0x8),D0> {}
<MI 22cde ANDI.W #0x0080,D0> {}
<MI 22ce2 BEQ 0x22cd4> {}
<POP 22ce4-22ce6 Naked> Σ0 →0x22cec
<MI 22ce4 BRA 0x22cec> {}
<POP 22ce6-22cec Naked> Σ0 ↓ ←0x22cae
<MI 22ce6 MOVEA.L (A6+0x8),A0> {}
<MI 22cea MOVE.B #0x01,(A0)> {}
<POP 22cec-22cf4 Epilogue> Σ0 ←0x22ce4
@ 22cf4
<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 22cf4-22e86 Body>
<POP 22cf4-22d0a Prologue> Σ0 ↓
<POP 22d0a-22d26 RegCacheLoad> Σ0 ↓
<POP 22d26-22d28 Naked> Σ0 ↓
<MI 22d26 MOVEQ.L #0x00,D7> {}
<POP 22d28-22d52 Naked> Σ0 ↓ →0x22d28 ←0x22d28
<POP 0x22d28 LimitCheck 0x0 ≤ D7 ≤ 0xa> {}
<MI 22d32 MOVE.L D7,D0> {}
<MI 22d34 ASL.L #0x1,D0> {}
<MI 22d36 LEA.L 0x23f4c,A0> {}
<MI 22d3c LEA.L (A0+D0.L),A0> {}
<MI 22d40 ADDA.L #0xbc4a,A0> {}
<MI 22d46 CLR.W (A0)> {}
<MI 22d48 ADDQ.L #0x1,D7> {}
<MI 22d4a CMPI.L #0x00000008,D7> {}
<MI 22d50 BLE 0x22d28> {}
<POP 22d52-22e16 Naked> Σ0 ↓
<MI 22d52 MOVE.L (A6+0x14),D4> {}
<MI 22d56 MOVE.L #0x10000,D3> {}
<Call 0x22d5c 0x10294> {}
?divs_d3_d4
<MI 22d62 ANDI.L #0x0000ffff,D3> {}
<MI 22d68 MOVE.W D3,(A6-0x8)> {}
<MI 22d6c MOVE.L (A6+0x10),D0> {}
<MI 22d70 ASL.L #0x8,D0> {}
<MI 22d72 ADD.L (A6+0xc),D0> {}
<POP 0x22d76 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22d80 MOVE.W D0,(A6-0xa)> {}
<MI 22d84 MOVE.W #0xfefe,(A6-0x2)> {}
<MI 22d8a LEA.L 0x23f64,A0> {}
<MI 22d90 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22d92 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22d94 [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22d96 ADDQ.L #0x8,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22d98 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22d9a 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22d9c 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22d9e-22da0 StackAdj> Δ+14 {}
<MI 22da0 LEA.L (A6-0x8),A0> {}
<MI 22da4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22da6 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22da8 [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22daa ADDI.L #0x0000001c,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22db0 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22db2 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22db4 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22db6-22db8 StackAdj> Δ+14 {}
<MI 22db8 LEA.L (A6-0xa),A0> {}
<MI 22dbc MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22dbe 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22dc0 [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22dc2 ADDQ.L #0x6,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22dc4 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22dc6 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22dc8 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22dca-22dcc StackAdj> Δ+14 {}
<MI 22dcc LEA.L 0x23f54,A0> {}
<MI 22dd2 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22dd4 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22dd6 [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22dd8 ADDQ.L #0x4,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22dda 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22ddc 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22dde 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22de0-22de2 StackAdj> Δ+14 {}
<MI 22de2 LEA.L (A6-0x2),A0> {}
<MI 22de6 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22de8 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22dea [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<MI 22dec ADDQ.L #0x2,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x22dee 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x22df0 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x22df2 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22df4-22df6 StackAdj> Δ+14 {}
<MI 22df6 LEA.L 0x23f60,A0> {}
<MI 22dfc MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22dfe 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22e00 [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<Const 0x22e02 0x5.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]}
<Const 0x22e04 0x2.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
<Call 0x22e06 0x1023a> {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22e08-22e0a StackAdj> Δ+14 {}
<Const 0x22e0a 0x186.4> Δ-4 {[##390]}
<Call 0x22e0e 0x10224> {[##390]}
KC12_Sleep(dur: Long)
<POP 22e14-22e16 StackAdj> Δ+4 {}
<POP 22e16-22e26 Naked> Σ0 ↓ →0x22e16 ←0x22e16
<Pointer.fp 0x22e16 <LVAR -0x00c @ 2(rw)>> Δ-4 {[@@-12]}
<Call 0x22e18 0x229c2> {[@@-12]}
<POP 22e1c-22e1e StackAdj> Δ+4 {}
<MI 22e1e MOVE.W (A6-0xc),D0> {}
<MI 22e20 ANDI.W #0x0080,D0> {}
<MI 22e24 BEQ 0x22e16> {}
<POP 22e26-22e2e Naked> Σ0 ↓ →0x22e7a
<MI 22e26 MOVE.W (A6-0xc),D0> {}
<MI 22e28 ANDI.W #0x8000,D0> {}
<MI 22e2c BEQ 0x22e7a> {}
<POP 22e2e-22e46 Naked> Σ0 ↓
<Call 0x22e2e 0x21a6e> {}
<MI 22e32 MOVE.W #0x4009,(A6-0xc)> {}
<MI 22e36 LEA.L (A6-0xc),A0> {}
<MI 22e38 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x22e3a 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<Blob 0x22e3c [4] 0x23f5c> Δ-4 {[4, 'A0']|[#1]|[«4»]}
<Const 0x22e3e 0x5.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]}
<Const 0x22e40 0x2.2> Δ-2 {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
<Call 0x22e42 0x1023a> {[4, 'A0']|[#1]|[«4»]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22e44-22e46 StackAdj> Δ+14 {}
<POP 22e46-22e56 Naked> Σ0 ↓ →0x22e46 ←0x22e46
<Pointer.fp 0x22e46 <LVAR -0x00c @ 2(rw)>> Δ-4 {[@@-12]}
<Call 0x22e48 0x229c2> {[@@-12]}
<POP 22e4c-22e4e StackAdj> Δ+4 {}
<MI 22e4e MOVE.W (A6-0xc),D0> {}
<MI 22e50 ANDI.W #0x0080,D0> {}
<MI 22e54 BEQ 0x22e46> {}
<POP 22e56-22e62 Naked> Σ0 ↓ →0x22e6e
<MI 22e56 MOVE.W 0x2fb9e,D0> {}
<MI 22e5c ANDI.W #0x4f00,D0> {}
<MI 22e60 BNE 0x22e6e> {}
<POP 22e62-22e6e Naked> Σ0 ↓ →0x22e74
<MI 22e62 MOVE.W 0x2fb9c,D0> {}
<MI 22e68 ANDI.W #0xdff0,D0> {}
<MI 22e6c BEQ 0x22e74> {}
<POP 22e6e-22e74 Naked> Σ0 →0x22e78 ←0x22e56
<MI 22e6e MOVEA.L (A6+0x8),A0> {}
<MI 22e70 CLR.B (A0)> {}
<MI 22e72 BRA 0x22e78> {}
<POP 22e74-22e78 Naked> Σ0 ↓ ←0x22e62
<MI 22e74 MOVEA.L (A6+0x8),A0> {}
<MI 22e76 MOVE.B #0x01,(A0)> {}
<POP 22e78-22e7a Naked> Σ0 →0x22e7e ←0x22e6e
<MI 22e78 BRA 0x22e7e> {}
<POP 22e7a-22e7e Naked> Σ0 ↓ ←0x22e26
<MI 22e7a MOVEA.L (A6+0x8),A0> {}
<MI 22e7c MOVE.B #0x01,(A0)> {}
<POP 22e7e-22e86 Epilogue> Σ0 ←0x22e78
@ 22e86
<LVAR 0x008 1(rw)>
<POP 22e86-22ecc Body>
<POP 22e86-22e9c Prologue> Σ0 ↓
<POP 22e9c-22ea6 RegCacheLoad> Σ0 ↓
<POP 22ea6-22eae Naked> Σ0 ↓ →0x22eb2
<MI 22ea6 MOVE.W 0x2fb9c,D0> {}
<MI 22ea8 ANDI.W #0x8000,D0> {}
<MI 22eac BNE 0x22eb2> {}
<POP 22eae-22eb2 Naked> Σ0 →0x22ec4
<MI 22eae CLR.B (A6+0x8)> {}
<MI 22eb0 BRA 0x22ec4> {}
<POP 22eb2-22eba Naked> Σ0 ↓ →0x22ec0 ←0x22ea6
<MI 22eb2 MOVE.W 0x2fb9c,D0> {}
<MI 22eb4 ANDI.W #0x0040,D0> {}
<MI 22eb8 BNE 0x22ec0> {}
<POP 22eba-22ec0 Naked> Σ0 →0x22ec4
<MI 22eba MOVE.B #0x01,(A6+0x8)> {}
<MI 22ebe BRA 0x22ec4> {}
<POP 22ec0-22ec4 Naked> Σ0 ↓ ←0x22eb2
<MI 22ec0 MOVE.B #0x02,(A6+0x8)> {}
<POP 22ec4-22ecc Epilogue> Σ0 ←0x22eae ←0x22eba
@ 22ecc
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 22ecc-22f08 Body>
<POP 22ecc-22ee2 Prologue> Σ0 ↓
<POP 22ee2-22ee4 RegCacheLoad> Σ0 ↓
<POP 22ee4-22eea Naked> Σ0 ↓ →0x22efc
<MI 22ee4 TST.L (A6+0x8)> {}
<MI 22ee8 BEQ 0x22efc> {}
<POP 22eea-22ef0 Naked> Σ0 Δ-4 ↓
<MI 22eea MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 22eee MOVEQ.L #0x01,D6> {[4, '(A6+0x8)']}
<POP 22ef0-22ef4 Naked> Σ-4 ↓ →0x22efa ←0x22ef4
<MI 22ef0 CMP.L (A7),D6> {[-4-]}
<MI 22ef2 BGT 0x22efa> {[-4-]}
<POP 22ef4-22efa Naked> Σ-4 ↓ →0x22ef0
<MI 22ef4 ASL.L #0x1,#0x01> {[-4-]}
<MI 22ef6 ADDQ.L #0x1,D6> {[-4-]}
<MI 22ef8 BVC 0x22ef0> {[-4-]}
<POP 22efa-22efc Naked> Σ-4 Δ+4 ↓ ←0x22ef0
<POP 22efa-22efc StackAdj> Δ+4 {}
<POP 22efc-22f00 Naked> Σ0 ↓ ←0x22ee4
<MI 22efc MOVE.L #0x01,(A6+0xc)> {}
<POP 22f00-22f08 Epilogue> Σ0
@ 22f08
<LVAR 0x008 4(r)>
<POP 22f08-22faa Body>
<POP 22f08-22f1e Prologue> Σ0 ↓
<POP 22f1e-22f52 Naked> Σ0 ↓ →0x22fa2
<MI 22f1e MOVE.L (A6+0x8),D7> {}
<MI 22f22 SUBQ.L #0x1,D7> {}
<MI 22f24 MOVE.L D7,D4> {}
<MI 22f26 MOVEQ.L #0x10,D3> {}
<Call 0x22f28 0x10294> {}
?divs_d3_d4
<MI 22f2e MOVE.L D4,D7> {}
<MI 22f30 MOVE.L D3,D6> {}
<POP 22f32-22f34 StackAdj> Δ-4 {[-4-]}
<MI 22f34 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<Call 0x22f36 0x22ecc> {[-4-]|[4, 'D6']}
<POP 22f3a-22f3c StackAdj> Δ+4 {[-4-]}
<MI 22f3c MOVE.L (A7)+,D0> Δ+4 {}
<POP 0x22f3e LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22f48 MOVE.W D0,D5> {}
<MI 22f4a CMPI.L #0x000000ff,D7> {}
<MI 22f50 BGT 0x22fa2> {}
<POP 22f52-22f6e Naked> Σ0 ↓ →0x22f86
<POP 0x22f52 LimitCheck 0x0 ≤ D7 ≤ 0xff> {}
<MI 22f5c MOVE.L D7,D0> {}
<MI 22f5e ASL.L #0x1,D0> {}
<MI 22f60 LEA.L 0x23f4c,A0> {}
<MI 22f66 MOVE.W (A0+D0.L+#0x36),D1> {}
<MI 22f6a AND.W D5,D1> {}
<MI 22f6c BNE 0x22f86> {}
<POP 22f6e-22f86 Naked> Σ0 →0x22f9e
<MI 22f6e CLR.L D1> {}
<MI 22f70 MOVE.W (A0+D0.L+#0x36),D1> {}
<MI 22f74 CLR.L D2> {}
<MI 22f76 MOVE.W D5,D2> {}
<MI 22f78 ADD.L D1,D2> {}
<POP 0x22f7a LimitCheck 0x0 ≤ D2 ≤ 0xffff> {}
<MI 22f84 BRA 0x22f9e> {}
<POP 22f86-22f9e Naked> Σ0 ↓ ←0x22f52
<MI 22f86 CLR.L D1> {}
<MI 22f88 MOVE.W (A0+D0.L+#0x36),D1> {}
<MI 22f8c CLR.L D2> {}
<MI 22f8e MOVE.W D5,D2> {}
<MI 22f90 NEG.L D2> {}
<MI 22f92 ADD.L D1,D2> {}
<POP 0x22f94 LimitCheck 0x0 ≤ D2 ≤ 0xffff> {}
<POP 22f9e-22fa2 Naked> Σ0 ↓ ←0x22f6e
<MI 22f9e MOVE.W D2,(A0+D0.L+#0x36)> {}
<POP 22fa2-22faa Epilogue> Σ0 ←0x22f1e
@ 22faa
<POP 22faa-2303a Body>
<POP 22faa-22fc0 Prologue> Σ0 ↓
<POP 22fc0-22fc2 RegCacheLoad> Σ0 ↓
<POP 22fc2-22fce Naked> Σ0 ↓ →0x22ffe
<POP 22fc2-22fc4 StackAdj> Δ-2 {[-2-]}
<Call 0x22fc4 0x22e86> {[-2-]}
<MI 22fc8 MOVE.B (A7)+,D0> Δ+2 {}
<MI 22fca CMP.B #0x01,D0> {}
<MI 22fcc BEQ 0x22ffe> {}
<POP 22fce-22ffe Naked> Σ0 ↓
<Blob 0x22fce [64] @> Δ-64 {[«64""»]}
<POP 22fe0-22fe2 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x22fe2 63> {[«64""»]|[$$Status/Error bits indicate correction not possible or necessary]}
<Call 0x22ff4 0x103e0> {[«64""»]|[$$Status/Error bits indicate correction not possible or necessary]}
WriteConsoleStringCrLf(str : String)
<POP 22ffa-22ffe StackAdj> Δ+68 {}
<POP 22ffe-23000 Naked> Σ0 ↓ ←0x22fc2
<MI 22ffe MOVEQ.L #0x00,D7> {}
<POP 23000-23016 Naked> Σ0 ↓ →0x23028 ←0x23028
<POP 23000-23002 StackAdj> Δ-4 {[-4-]}
<MI 23002 MOVE.L D7,-(A7)> Δ-4 {[-4-]|[4, 'D7']}
<Call 0x23004 0x22ecc> {[-4-]|[4, 'D7']}
<POP 23008-2300a StackAdj> Δ+4 {[-4-]}
<MI 2300a CLR.L D0> {[-4-]}
<MI 2300c MOVE.W 0x2fba2,D0> {[-4-]}
<MI 23012 AND.L (A7)+,D0> Δ+4 {}
<MI 23014 BEQ 0x23028> {}
<POP 23016-23028 Naked> Σ0 ↓
<MI 23016 CLR.L D0> {}
<MI 23018 MOVE.W 0x2fba0,D0> {}
<MI 2301e ADD.L D7,D0> {}
<MI 23020 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<Call 0x23022 0x22f08> {[4, 'D0']}
<POP 23026-23028 StackAdj> Δ+4 {}
<POP 23028-23032 Naked> Σ0 ↓ →0x23000 ←0x23000
<MI 23028 ADDQ.L #0x1,D7> {}
<MI 2302a CMPI.L #0x0000000a,D7> {}
<MI 23030 BLE 0x23000> {}
<POP 23032-2303a Epilogue> Σ0
@ 2303a
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2303a-2310a Body>
<POP 2303a-23050 Prologue> Σ0 ↓
<POP 23050-23058 RegCacheLoad> Σ0 ↓
<POP 23058-23062 Naked> Σ0 ↓ →0x230ba
<MI 23058 MOVE.L 0x2f788,D0> {}
<MI 2305a CMPI.L #0x000003e8,D0> {}
<MI 23060 BLE 0x230ba> {}
<POP 23062-230ba Naked> Σ0 →0x23102
<Blob 0x23062 [58] @> Δ-58 {[«58""»]}
<POP 2306e-23070 StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x23070 58> {[«58""»]|[$$Skipped buffer overflow, REWRITE will procede normally but]}
<Call 0x23082 0x103e0> {[«58""»]|[$$Skipped buffer overflow, REWRITE will procede normally but]}
WriteConsoleStringCrLf(str : String)
<POP 23088-23089 StackAdj> Δ+62 ↓ {}
<Blob 0x23089 [40] @> Δ-40 {[«40""»]}
<POP 2309a-2309c StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x2309c 39> {[«40""»]|[$$summary report information may be lost.]}
<Call 0x230ae 0x103e0> {[«40""»]|[$$summary report information may be lost.]}
WriteConsoleStringCrLf(str : String)
<POP 230b4-230b8 StackAdj> Δ+44 {}
<MI 230b8 BRA 0x23102> {}
<POP 230ba-23102 Naked> Σ0 ↓ ←0x23058
<MI 230ba MOVE.L D0,D1> {}
<MI 230bc SUBQ.L #0x1,D1> {}
<POP 0x230be LimitCheck 0x0 ≤ D1 ≤ 0x3e7> {}
<MI 230c8 MOVE.L D1,D4> {}
<MI 230ca MOVEQ.L #0x0c,D3> {}
<Call 0x230cc 0x1028c> {}
?muls_d3_d4
<MI 230d2 LEA.L 0x23f4c,A0> {}
<MI 230d8 LEA.L (A0+D4.L),A0> {}
<MI 230dc MOVEA.L A0,A1> {}
<MI 230de ADDA.L #0x895c,A1> {}
<MI 230e4 MOVE.L (A6+0x10),(A1)> {}
<MI 230e8 MOVEA.L A0,A1> {}
<MI 230ea ADDA.L #0x8960,A1> {}
<MI 230f0 MOVE.L (A6+0xc),(A1)> {}
<MI 230f4 ADDA.L #0x8964,A0> {}
<MI 230fa MOVE.L (A6+0x8),(A0)> {}
<MI 230fe ADDQ.L #0x1,D0> {}
<MI 23100 MOVE.L D0,0x2f788> {}
<POP 23102-2310a Epilogue> Σ0 ←0x23062
@ 2310a
<POP 2310a-23262 Body>
<POP 2310a-23120 Prologue> Σ0 ↓
<POP 23120-23138 RegCacheLoad> Σ0 ↓
<POP 23138-23142 Naked> Σ0 ↓ →0x23168
<MI 23138 MOVE.L 0x2f788,D0> {}
<MI 2313e CMP.L #0x01,D0> {}
<MI 23140 BNE 0x23168> {}
<POP 23142-23168 Naked> Σ0 →0x2325a
<Blob 0x23142 [30] @> Δ-30 {[«30""»]}
<POP 2314e-23150 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x23150 30> {[«30""»]|[$$No skipped sectors are logged.]}
<Call 0x2315e 0x103e0> {[«30""»]|[$$No skipped sectors are logged.]}
WriteConsoleStringCrLf(str : String)
<POP 23160-23164 StackAdj> Δ+34 {}
<MI 23164 BRA 0x2325a> {}
<POP 23168-2316e Naked> Σ0 Δ-4 ↓ ←0x23138
<MI 23168 SUBQ.L #0x1,D0> {}
<MI 2316a MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2316c MOVEQ.L #0x01,D7> {[4, 'D0']}
<POP 2316e-23174 Naked> Σ-4 ↓ →0x23258 ←0x23174
<MI 2316e CMP.L (A7),D7> {[-4-]}
<MI 23170 BGT 0x23258> {[-4-]}
<POP 23174-23258 Naked> Σ-4 ↓ →0x2316e
<Blob 0x23174 [36] @> Δ-36 {[-4-]|[«36""»]}
<POP 23180-23182 StackAdj> Δ-4 {[-4-]|[«36""»]|[-4-]}
<Lit 0x23182 36> {[-4-]|[«36""»]|[$$The following sectors were skipped :]}
<Call 0x2318e 0x103e0> {[-4-]|[«36""»]|[$$The following sectors were skipped :]}
WriteConsoleStringCrLf(str : String)
<POP 23190-23192 StackAdj> Δ+36 {[-4-]|[-4-]}
<POP 23192-23193 StackAdj> Δ+4 {[-4-]}
<Blob 0x23193 [4] @> Δ-4 {[-4-]|[«4""»]}
<Blob 0x23196 [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]}
<Blob 0x2319a [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2319e [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 231a2 MOVE.L D7,D0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 231a4 SUBQ.L #0x1,D0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 0x231a6 LimitCheck 0x0 ≤ D0 ≤ 0x3e7> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 231b0 MOVE.L D0,D4> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 231b2 MOVEQ.L #0x0c,D3> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Call 0x231b4 0x1028c> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
?muls_d3_d4
<MI 231ba LEA.L 0x23f4c,A0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 231c0 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']}
<POP 231c2-231c4 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-4-]}
<POP 231c4-231c5 StackAdj> Δ+2 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]}
<Blob 0x231c5 [2] @> Δ-2 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]}
<MI 231c8 MOVE.B 0x20b4b,(A7+0x1)> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]}
<MI 231ce MOVE.B 0x20b4c,(A7+0x2)> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]}
<POP 231d4-231d6 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-4-]}
<POP 231d6-231d7 StackAdj> Δ+2 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]}
<Blob 0x231d7 [2] @> Δ-2 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]}
<MI 231da MOVE.B 0x20b4f,(A7+0x1)> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]}
<MI 231e0 MOVE.B 0x20b50,(A7+0x2)> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]}
<POP 231e6-231e8 StackAdj> Δ-8 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-8-]}
<Lit 0x231e8 16> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]}
<POP 231f4-231f6 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]}
<MI 231f6 LEA.L (A0+D4.L),A0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]}
<MI 231fa ADDA.L #0x895c,A0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]}
<MI 23200 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 0x23202 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 0x23204> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]}
<Pointer.sp 0x23204 20> Δ-4
<Const 0x23208 0x1.2> Δ-2
<Const 0x2320a 0x3.2> Δ-2
<Call 0x2320c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2320e-23210 StackAdj> Δ+8
<POP 2320e-23210 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]}
<MI 23210 MOVEA.L (A7+0x1c),A0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]}
<MI 23214 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 23218 ADDA.L #0x8960,A0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]}
<MI 2321e 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 0x23220 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 0x23222> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]|[$$…]}
<Pointer.sp 0x23222 24> Δ-4
<Const 0x23226 0x1.2> Δ-2
<Const 0x23228 0x3.2> Δ-2
<Call 0x2322a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2322c-2322e StackAdj> Δ+8
<POP 2322c-2322e StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]|[$$…]|[-4-]}
<MI 2322e 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 23232 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 23236 ADDA.L #0x8964,A0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]|[$$…]|[-4-]}
<MI 2323c 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 0x2323e 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 23240-23242 StackAdj> Δ+4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]|[$$Skipped c/t/s _]|[-4-]|[$$…]|[-4-]|[$$…]|[-4-]}
<Call 0x23242 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 23248-2324c StackAdj> Δ+24 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]}
<Call 0x2324c 0x103e0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[4, 'A0']|[-2-]|[«2""»]|[-2-]|[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2324e-23252 StackAdj> Δ+32 {[-4-]}
<MI 23252 ADDQ.L #0x1,D7> {[-4-]}
<MI 23254 BVC 0x2316e> {[-4-]}
<POP 23258-2325a Naked> Σ-4 Δ+4 ↓ ←0x2316e
<POP 23258-2325a StackAdj> Δ+4 {}
<POP 2325a-23262 Epilogue> Σ0 ←0x23142
@ 23262
<POP 23262-2331c Body>
<POP 23262-23278 Prologue> Σ0 ↓
<POP 23278-2328a RegCacheLoad> Σ0 ↓
<POP 2328a-23314 Naked> Σ0 ↓
<MI 2328a CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x2328c 0x210da> {[#0]}
<POP 23290-23291 StackAdj> Δ+2 ↓ {}
<Blob 0x23291 [16] @> Δ-16 {[«16""»]}
<Blob 0x232a2 [2] @> Δ-2 {[«16""»]|[«2""»]}
<Blob 0x232a6 [2] @> Δ-2 {[«16""»]|[«2""»]|[«2""»]}
<POP 232aa-232ac StackAdj> Δ-8 {[«16""»]|[«2""»]|[«2""»]|[-8-]}
<Lit 0x232ac 15> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[$$Skipping c/t/s_]}
<MI 232b8 MOVE.L (A4+0x18),(A7)> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']}
<POP 232b6-232b8 StackAdj> Δ-8 {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-8-]}
<Call 0x232bc 0x102e4> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x232be 2> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[$$ _]}
<MI 232c8 MOVE.L (A4+0x14),(A7)> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']}
<POP 232c6-232c8 StackAdj> Δ-8 {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']|[-8-]}
<Call 0x232cc 0x102e4> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x232ce 2> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']|[-4-]|[$$ _]}
<MI 232d8 MOVE.L (A4+0x4),(A7)> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']|[-4-]|[4, '(A4+0x4)']}
<POP 232d6-232d8 StackAdj> Δ-8 {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']|[-4-]|[4, '(A4+0x4)']|[-8-]}
<Call 0x232dc 0x102e4> {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']|[-4-]|[4, '(A4+0x4)']|[-8-]}
Long2String(a : Long) : String
<POP 232de-232e0 StackAdj> Δ+4 {[«16""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A4+0x18)']|[-4-]|[4, '(A4+0x14)']|[-4-]|[4, '(A4+0x4)']|[-4-]}
<Call 0x232e0 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 232e6-232e8 StackAdj> Δ+24 {[«16""»]|[«2""»]|[«2""»]|[-4-]}
<Call 0x232e8 0x103e0> {[«16""»]|[«2""»]|[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 232ee-232f0 StackAdj> Δ+24 {}
<Call 0x232f0 0x103dc> {}
WriteConsoleCrLf(void)
<Const 0x232f6 0x4c4b.4> Δ-4 {[##19531]}
<Call 0x232fa 0x10224> {[##19531]}
KC12_Sleep(dur: Long)
<MI 23300 MOVE.L (A4+0x18),(A7)> {[4, '(A4+0x18)']}
<MI 23304 MOVE.L (A4+0x14),-(A7)> Δ-4 {[4, '(A4+0x18)']|[4, '(A4+0x14)']}
<MI 23308 MOVE.L (A4+0x4),-(A7)> Δ-4 {[4, '(A4+0x18)']|[4, '(A4+0x14)']|[4, '(A4+0x4)']}
<Call 0x2330c 0x2303a> {[4, '(A4+0x18)']|[4, '(A4+0x14)']|[4, '(A4+0x4)']}
<POP 23310-23314 StackAdj> Δ+12 {}
<POP 23314-2331c Epilogue> Σ0
@ 2331c
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 4(w)>
<LVAR -0x008 @>
<POP 2331c-234d8 Body>
<POP 2331c-23332 Prologue> Σ0 ↓
<POP 23332-23340 RegCacheLoad> Σ0 ↓
<POP 23340-23350 Naked> Σ0 Δ-4 ↓
<MI 23340 CLR.L D0> {}
<MI 23342 MOVE.B 0x2fd45,D0> {}
<MI 23348 SUBQ.W #0x1,D0> {}
<MI 2334a EXTW.L D0> {}
<MI 2334c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2334e MOVEQ.L #0x00,D0> {[4, 'D0']}
<POP 23350-23356 Naked> Σ-4 ↓ →0x234ce ←0x234c6
<MI 23350 CMP.L (A7),D0> {[-4-]}
<MI 23352 BGT 0x234ce> {[-4-]}
<POP 23356-2335e Naked> Σ-4 Δ-4 ↓
<MI 23356 MOVE.L D0,(A6-0x4)> {[-4-]}
<MI 2335a MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 2335c MOVEQ.L #0x00,D7> {[-4-]|[4, 'D0']}
<POP 2335e-2337e Naked> Σ-8 ↓ →0x23386 ←0x2337e
<MI 2335e ADDQ.L #0x1,D7> {[-8-]}
<MI 23360 MOVEA.L (A6+0x8),A0> {[-8-]}
<MI 23364 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']}
<MI 23368 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 2336c MOVE.L (A7+0x8),D0> {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23370 MOVE.L D0,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<MI 23372 PEA.L (A0)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']|[4, '^(A0)']}
<Call 0x23374 0x22cf4> {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']|[4, '^(A0)']}
<POP 23378-2337a StackAdj> Δ+16 {[-8-]}
<MI 2337a TST.B (A0)> {[-8-]}
<MI 2337c BNE 0x23386> {[-8-]}
<POP 2337e-23386 Naked> Σ-8 ↓ →0x2335e
<MI 2337e CMPI.L #0x00000005,D7> {[-8-]}
<MI 23384 BLE 0x2335e> {[-8-]}
<POP 23386-2338c Naked> Σ-8 ↓ →0x23452 ←0x2335e
<MI 23386 TST.B (A0)> {[-8-]}
<MI 23388 BNE 0x23452> {[-8-]}
<POP 2338c-2339a Naked> Σ-8 ↓ →0x23452
<POP 2338c-2338e StackAdj> Δ-2 {[-10-]}
<Call 0x2338e 0x22e86> {[-10-]}
<MI 23392 MOVE.B (A7)+,D0> Δ+2 {[-8-]}
<MI 23394 CMP.B #0x01,D0> {[-8-]}
<MI 23396 BNE 0x23452> {[-8-]}
<POP 2339a-233a4 Naked> Σ-8 ↓ →0x2344c
<MI 2339a TST.B 0x2c892> {[-8-]}
<MI 233a0 BNE 0x2344c> {[-8-]}
<POP 233a4-23440 Naked> Σ-8 Δ-40 ↓ →0x23446
<Blob 0x233a4 [48] @> Δ-48 {[-8-]|[«48""»]}
<Blob 0x233b6 [2] @> Δ-2 {[-8-]|[«48""»]|[«2""»]}
<Blob 0x233ba [2] @> Δ-2 {[-8-]|[«48""»]|[«2""»]|[«2""»]}
<POP 233be-233c0 StackAdj> Δ-8 {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-8-]}
<Lit 0x233c0 47> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[$$A correctable read error was detected at c/t/s_]}
<MI 233cc MOVE.L (A6+0x10),(A7)> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']}
<POP 233ca-233cc StackAdj> Δ-8 {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-8-]}
<Call 0x233d0 0x102e4> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x233d6 2> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[$$ _]}
<MI 233e0 MOVE.L (A6+0xc),(A7)> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']}
<POP 233de-233e0 StackAdj> Δ-8 {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-8-]}
<Call 0x233e4 0x102e4> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x233ea 2> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$ _]}
<POP 233f4-233f6 StackAdj> Δ-4 {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$ _]|[-4-]}
<MI 233f6 MOVE.L (A7+0x50),D0> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$ _]|[-4-]}
<MI 233fa MOVE.L D0,-(A7)> Δ-4 {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$ _]|[-4-]|[4, 'D0']}
<Call 0x233fc 0x102e4> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$ _]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 23402-23404 StackAdj> Δ+4 {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$ _]|[-4-]}
<Call 0x23404 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 2340a-2340c StackAdj> Δ+24 {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]}
<Call 0x2340c 0x103e0> {[-8-]|[«48""»]|[«2""»]|[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23412-23413 StackAdj> Δ+56 ↓ {[-8-]}
<Blob 0x23413 [40] @> Δ-40 {[-8-]|[«40""»]}
<POP 23422-23424 StackAdj> Δ-6 {[-8-]|[«40""»]|[-6-]}
<Lit 0x23424 39> {[-8-]|[«40""»]|[-2-]|[$$Do you want it corrected and re-written]}
<POP 23430-23432 StackAdj> Δ-2 {[-8-]|[«40""»]|[-2-]|[$$Do you want it corrected and re-written]|[-2-]}
<POP 23432-23433 StackAdj> Δ+2 {[-8-]|[«40""»]|[-2-]|[$$Do you want it corrected and re-written]}
<Const 0x23433 0x1.2> Δ-2 {[-8-]|[«40""»]|[-2-]|[$$Do you want it corrected and re-written]|[#1]}
<Call 0x23434 0x103f0> {[-8-]|[«40""»]|[-2-]|[$$Do you want it corrected and re-written]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 2343a-2343c StackAdj> Δ+6 {[-8-]|[«40""»]|[-2-]}
<MI 2343c TST.B (A7)+> Δ+2 {[-8-]|[«40""»]}
<MI 2343e BEQ 0x23446> {[-8-]|[«40""»]}
<POP 23440-23446 Naked> Σ-48 ↓
<Call 0x23440 0x22faa> {[-48-]}
<MI 23444 MOVE.B #0x01,(A0)> {[-48-]}
<POP 23446-2344c Naked> Σ-48 Δ+40 →0x23452 ←0x233a4
<POP 23446-2344a StackAdj> Δ+40 {[-8-]}
<MI 2344a BRA 0x23452> {[-8-]}
<POP 2344c-23452 Naked> Σ-8 ↓ ←0x2339a
<Call 0x2344c 0x22faa> {[-8-]}
<MI 23450 MOVE.B #0x01,(A0)> {[-8-]}
<POP 23452-23456 Naked> Σ-8 ↓ →0x234be ←0x23386 ←0x2338c ←0x23446
<MI 23452 TST.B (A0)> {[-8-]}
<MI 23454 BEQ 0x234be> {[-8-]}
<POP 23456-23476 Naked> Σ-8 ↓ →0x234bc
<MI 23456 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']}
<MI 2345a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 2345e MOVE.L (A7+0x8),D0> {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23462 MOVE.L D0,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<Const 0x23464 0x8.2> Δ-2 {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']|[#8]}
<MI 23468 PEA.L (A0)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']|[#8]|[4, '^(A0)']}
<Call 0x2346a 0x228ca> {[-8-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']|[#8]|[4, '^(A0)']}
<POP 2346e-23472 StackAdj> Δ+18 {[-8-]}
<MI 23472 TST.B (A0)> {[-8-]}
<MI 23474 BNE 0x234bc> {[-8-]}
<POP 23476-23486 Naked> Σ-8 ↓ →0x2348e
<Call 0x23476 0x21b32> {[-8-]}
<MI 2347a MOVE.W 0x2fb9e,D0> {[-8-]}
<MI 23480 ANDI.W #0x4f00,D0> {[-8-]}
<MI 23484 BNE 0x2348e> {[-8-]}
<POP 23486-2348e Naked> Σ-8 ↓ →0x234ba
<MI 23486 TST.W 0x2fb9c> {[-8-]}
<MI 2348c BEQ 0x234ba> {[-8-]}
<POP 2348e-234ba Naked> Σ-8 →0x234bc ←0x23476
<Const 0x2348e 0x1.2> Δ-2 {[-8-]|[#1]}
<Call 0x23490 0x210da> {[-8-]|[#1]}
<POP 23494-23496 StackAdj> Δ+2 {[-8-]}
<Blob 0x23496 [20] @> Δ-20 {[-8-]|[«20""»]}
<POP 234a2-234a4 StackAdj> Δ-4 {[-8-]|[«20""»]|[-4-]}
<Lit 0x234a4 20> {[-8-]|[«20""»]|[$$format sector failed]}
<Call 0x234b2 0x20e3e> {[-8-]|[«20""»]|[$$format sector failed]}
<POP 234b6-234b8 StackAdj> Δ+24 {[-8-]}
<MI 234b8 BRA 0x234bc> {[-8-]}
<POP 234ba-234bc Naked> Σ-8 ↓ ←0x23486
<MI 234ba MOVE.B #0x01,(A0)> {[-8-]}
<POP 234bc-234be Naked> Σ-8 →0x234c6 ←0x23456 ←0x2348e
<MI 234bc BRA 0x234c6> {[-8-]}
<POP 234be-234c6 Naked> Σ-8 ↓ ←0x23452
<MI 234be LEA.L (A6-0x8),A4> {[-8-]}
<Call 0x234c2 0x23262> {[-8-]}
<POP 234c6-234ce Naked> Σ-8 Δ+4 ↓ →0x23350 ←0x234bc
<MI 234c6 MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 234c8 ADDQ.L #0x1,D0> {[-4-]}
<MI 234ca BVC 0x23350> {[-4-]}
<POP 234ce-234d0 Naked> Σ-4 Δ+4 ↓ ←0x23350
<POP 234ce-234d0 StackAdj> Δ+4 {}
<POP 234d0-234d8 Epilogue> Σ0
@ 234d8
<LVAR 0x008 1(rw)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x004 @>
<POP 234d8-23524 Body>
<POP 234d8-234ee Prologue> Σ0 ↓
<POP 234ee-234f0 RegCacheLoad> Σ0 ↓
<POP 234f0-2350a Naked> Σ0 ↓ →0x2351c
<MI 234f0 CLR.B (A6+0x8)> {}
<Const 0x234f4 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x234f6 <LVAR -0x002 @ 1(r)>> Δ-4 {[#1]|[@@-2]}
<Call 0x234fa 0x10212> {[#1]|[@@-2]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 23500-23502 StackAdj> Δ+6 {}
<MI 23502 MOVE.B (A6-0x2),D0> {}
<MI 23506 CMP.B #0x01,D0> {}
<MI 23508 BNE 0x2351c> {}
<POP 2350a-2351c Naked> Σ0 ↓
<Const 0x2350a 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2350c <LVAR -0x004 @>> Δ-4 {[#1]|[@@-4]}
<Call 0x23510 0x1020e> {[#1]|[@@-4]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 23516-23518 StackAdj> Δ+6 {}
<MI 23518 MOVE.B #0x01,(A6+0x8)> {}
<POP 2351c-23524 Epilogue> Σ0 ←0x234f0
@ 23524
<POP 23524-23596 Body>
<POP 23524-2353a Prologue> Σ0 ↓
<POP 2353a-2353c Naked> Σ0 ↓
<MI 2353a MOVEQ.L #0x01,D7> {}
<POP 2353c-23584 Naked> Σ0 ↓ →0x2353c ←0x2353c
<MI 2353c MOVE.L D7,D0> {}
<MI 2353e SUBQ.L #0x1,D0> {}
<POP 0x23540 LimitCheck 0x0 ≤ D0 ≤ 0x3e7> {}
<MI 2354a MOVE.L D0,D4> {}
<MI 2354c MOVEQ.L #0x0c,D3> {}
<Call 0x2354e 0x1028c> {}
?muls_d3_d4
<MI 23554 LEA.L 0x23f4c,A0> {}
<MI 2355a LEA.L (A0+D4.L),A0> {}
<MI 2355e MOVEA.L A0,A1> {}
<MI 23560 ADDA.L #0x895c,A1> {}
<MI 23566 CLR.L (A1)> {}
<MI 23568 MOVEA.L A0,A1> {}
<MI 2356a ADDA.L #0x8960,A1> {}
<MI 23570 CLR.L (A1)> {}
<MI 23572 ADDA.L #0x8964,A0> {}
<MI 23578 CLR.L (A0)> {}
<MI 2357a ADDQ.L #0x1,D7> {}
<MI 2357c CMPI.L #0x000003e8,D7> {}
<MI 23582 BLE 0x2353c> {}
<POP 23584-2358e Naked> Σ0 ↓
<MI 23584 MOVE.L #0x1,0x2f788> {}
<POP 2358e-23596 Epilogue> Σ0
@ 23596
<LVAR -0x010 @ 1(r)>
<POP 23596-23710 Body>
<POP 23596-235ac Prologue> Σ0 ↓
<POP 235ac-235c4 RegCacheLoad> Σ0 ↓
<POP 235c4-2362c Naked> Σ0 ↓
<MI 235c4 MOVEQ.L #0x00,D5> {}
<MI 235c6 MOVEQ.L #0x00,D6> {}
<Call 0x235c8 0x23524> {}
<Blob 0x235cc [46] @> Δ-46 {[«46""»]}
<POP 235de-235e0 StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x235e0 45> {[«46""»]|[$$Strike any key to stop rewritting this drive.]}
<Call 0x235ee 0x103e0> {[«46""»]|[$$Strike any key to stop rewritting this drive.]}
WriteConsoleStringCrLf(str : String)
<POP 235f4-235f5 StackAdj> Δ+50 ↓ {}
<Blob 0x235f5 [10] @> Δ-10 {[«10""»]}
<POP 23606-23608 StackAdj> Δ-8 {[«10""»]|[-8-]}
<Lit 0x23608 9> {[«10""»]|[-4-]|[$$Cylinder_]}
<MI 23612 MOVE.L D5,(A7)> {[«10""»]|[-4-]|[4, 'D5']}
<POP 23610-23612 StackAdj> Δ-8 {[«10""»]|[-4-]|[4, 'D5']|[-8-]}
<Call 0x23614 0x102e4> {[«10""»]|[-4-]|[4, 'D5']|[-8-]}
Long2String(a : Long) : String
<POP 2361a-2361c StackAdj> Δ+4 {[«10""»]|[-4-]|[4, 'D5']|[-4-]}
<Call 0x2361c 0x102d0> {[«10""»]|[-4-]|[4, 'D5']|[-4-]}
StringCat2(a, b : String) : String
<POP 23622-23624 StackAdj> Δ+8 {[«10""»]|[-4-]}
<Call 0x23624 0x103e0> {[«10""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2362a-2362c StackAdj> Δ+14 {}
<POP 2362c-2362e Naked> Σ0 ↓ ←0x236fc
<MI 2362c MOVEQ.L #0x00,D7> {}
<POP 2362e-23640 Naked> Σ0 ↓ →0x23648 ←0x23640
<MI 2362e ADDQ.L #0x1,D7> {}
<MI 23630 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 23632 MOVE.L D6,-(A7)> Δ-4 {[4, 'D5']|[4, 'D6']}
<Const 0x23634 0x23f5a.4> Δ-4 {[4, 'D5']|[4, 'D6']|[##147290]}
<Call 0x23636 0x22a26> {[4, 'D5']|[4, 'D6']|[##147290]}
<POP 2363a-2363c StackAdj> Δ+12 {}
<MI 2363c TST.B 0x23f5a> {}
<MI 2363e BNE 0x23648> {}
<POP 23640-23648 Naked> Σ0 ↓ →0x2362e
<MI 23640 CMPI.L #0x00000005,D7> {}
<MI 23646 BLE 0x2362e> {}
<POP 23648-2364c Naked> Σ0 ↓ →0x2366a ←0x2362e
<MI 23648 TST.B 0x23f5a> {}
<MI 2364a BEQ 0x2366a> {}
<POP 2364c-2365c Naked> Σ0 ↓ →0x23668
<MI 2364c MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 2364e MOVE.L D6,-(A7)> Δ-4 {[4, 'D5']|[4, 'D6']}
<Pointer.fp 0x23650 <LVAR -0x010 @ 1(r)>> Δ-4 {[4, 'D5']|[4, 'D6']|[@@-16]}
<Call 0x23652 0x22bb4> {[4, 'D5']|[4, 'D6']|[@@-16]}
<POP 23656-23658 StackAdj> Δ+12 {}
<MI 23658 TST.B (A6-0x10)> {}
<MI 2365a BNE 0x23668> {}
<POP 2365c-23668 Naked> Σ0 ↓
<MI 2365c MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 2365e MOVE.L D6,-(A7)> Δ-4 {[4, 'D5']|[4, 'D6']}
<Pointer.fp 0x23660 <LVAR -0x010 @ 1(r)>> Δ-4 {[4, 'D5']|[4, 'D6']|[@@-16]}
<Call 0x23662 0x2331c> {[4, 'D5']|[4, 'D6']|[@@-16]}
<POP 23666-23668 StackAdj> Δ+12 {}
<POP 23668-2366a Naked> Σ0 →0x23676 ←0x2364c
<MI 23668 BRA 0x23676> {}
<POP 2366a-23676 Naked> Σ0 ↓ ←0x23648
<MI 2366a MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 2366c MOVE.L D6,-(A7)> Δ-4 {[4, 'D5']|[4, 'D6']}
<Pointer.fp 0x2366e <LVAR -0x010 @ 1(r)>> Δ-4 {[4, 'D5']|[4, 'D6']|[@@-16]}
<Call 0x23670 0x2331c> {[4, 'D5']|[4, 'D6']|[@@-16]}
<POP 23674-23676 StackAdj> Δ+12 {}
<POP 23676-23684 Naked> Σ0 ↓ →0x236f0 ←0x23668
<MI 23676 ADDQ.L #0x1,D6> {}
<MI 23678 CLR.L D0> {}
<MI 2367a MOVE.B 0x2fd44,D0> {}
<MI 23680 CMP.L D0,D6> {}
<MI 23682 BCS 0x236f0> {}
<POP 23684-236f0 Naked> Σ0 ↓
<MI 23684 MOVEQ.L #0x00,D6> {}
<MI 23686 ADDQ.L #0x1,D5> {}
<Const 0x23688 0x1b.2> Δ-2 {[#27]}
<Call 0x2368c 0x103d0> {[#27]}
WriteConsoleChar(chr : char)
<POP 23692-23694 StackAdj> Δ-2 {[#27]|[-2-]}
<POP 23694-23695 StackAdj> Δ+2 {[#27]}
<Blob 0x23695 [2] @> Δ-2 {[#27]|[«2""»]}
<MI 23698 MOVE.B 0x20c1f,(A7+0x1)> {[#27]|[«2""»]}
<MI 2369e MOVE.B 0x20c20,(A7+0x2)> {[#27]|[«2""»]}
<POP 236a4-236a6 StackAdj> Δ-4 {[#27]|[«2""»]|[-4-]}
<Lit 0x236a6> {[#27]|[«2""»]|[$$…]}
<Pointer.sp 0x236a6 4> Δ-4
<Const 0x236aa 0x1.2> Δ-2
<Const 0x236ac 0x3.2> Δ-2
<Call 0x236b0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 236b2-236b4 StackAdj> Δ+8
<Call 0x236b4 0x103d8> {[#27]|[«2""»]|[$$…]}
WriteConsoleString(str : String)
<POP 236ba-236bb StackAdj> Δ+8 ↓ {}
<Blob 0x236bb [10] @> Δ-10 {[«10""»]}
<POP 236ca-236cc StackAdj> Δ-8 {[«10""»]|[-8-]}
<Lit 0x236cc 9> {[«10""»]|[-4-]|[$$Cylinder_]}
<MI 236d6 MOVE.L D5,(A7)> {[«10""»]|[-4-]|[4, 'D5']}
<POP 236d4-236d6 StackAdj> Δ-8 {[«10""»]|[-4-]|[4, 'D5']|[-8-]}
<Call 0x236d8 0x102e4> {[«10""»]|[-4-]|[4, 'D5']|[-8-]}
Long2String(a : Long) : String
<POP 236de-236e0 StackAdj> Δ+4 {[«10""»]|[-4-]|[4, 'D5']|[-4-]}
<Call 0x236e0 0x102d0> {[«10""»]|[-4-]|[4, 'D5']|[-4-]}
StringCat2(a, b : String) : String
<POP 236e6-236e8 StackAdj> Δ+8 {[«10""»]|[-4-]}
<Call 0x236e8 0x103e0> {[«10""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 236ee-236f0 StackAdj> Δ+14 {}
<POP 236f0-236fc Naked> Σ0 ↓ →0x23708 ←0x23676
<MI 236f0 CLR.L D0> {}
<MI 236f2 MOVE.W 0x2fd42,D0> {}
<MI 236f8 CMP.L D0,D5> {}
<MI 236fa BCC 0x23708> {}
<POP 236fc-23708 Naked> Σ0 ↓ →0x2362c
<POP 236fc-236fe StackAdj> Δ-2 {[-2-]}
<Call 0x236fe 0x234d8> {[-2-]}
<MI 23702 TST.B (A7)+> Δ+2 {}
<MI 23704 BEQ 0x2362c> {}
<POP 23708-23710 Epilogue> Σ0 ←0x236f0
@ 23710
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 23710-23766 Body>
<POP 23710-23722 Prologue> Σ0 ↓
<POP 23722-23762 Naked> Σ0 ↓
<Const 0x23722 0x63.4> Δ-4 {[##99]}
<Call 0x23726 0x21fb4> {[##99]}
<POP 2372a-2372c StackAdj> Δ+4 {}
<MI 2372c MOVE.W #0x9,0x2fd42> {}
<Pointer.fp 0x23734 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x23738 0x10304> {[@@-4]}
GetRtc() : TimeStamp
<POP 2373e-23740 StackAdj> Δ+4 {}
<MI 23740 CLR.B 0x2c892> {}
<Call 0x23746 0x23596> {}
<Pointer.fp 0x2374a <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x2374e 0x10304> {[@@-8]}
GetRtc() : TimeStamp
<MI 23754 MOVE.L (A6-0x4),(A7)> {[4, '(A6-0x4)']}
<MI 23758 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<Call 0x2375c 0x21dd2> {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<POP 23760-23762 StackAdj> Δ+8 {}
<POP 23762-23766 Epilogue> Σ0
@ 23766
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 23766-237bc Body>
<POP 23766-23778 Prologue> Σ0 ↓
<POP 23778-237b8 Naked> Σ0 ↓
<Const 0x23778 0x63.4> Δ-4 {[##99]}
<Call 0x2377c 0x21fb4> {[##99]}
<POP 23780-23782 StackAdj> Δ+4 {}
<MI 23782 MOVE.W #0x63,0x2fd42> {}
<Pointer.fp 0x2378a <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x2378e 0x10304> {[@@-4]}
GetRtc() : TimeStamp
<POP 23794-23796 StackAdj> Δ+4 {}
<MI 23796 CLR.B 0x2c892> {}
<Call 0x2379c 0x23596> {}
<Pointer.fp 0x237a0 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x237a4 0x10304> {[@@-8]}
GetRtc() : TimeStamp
<MI 237aa MOVE.L (A6-0x4),(A7)> {[4, '(A6-0x4)']}
<MI 237ae MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<Call 0x237b2 0x21dd2> {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<POP 237b6-237b8 StackAdj> Δ+8 {}
<POP 237b8-237bc Epilogue> Σ0
@ 237bc
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 237bc-2380a Body>
<POP 237bc-237ce Prologue> Σ0 ↓
<POP 237ce-23806 Naked> Σ0 ↓
<Const 0x237ce 0x63.4> Δ-4 {[##99]}
<Call 0x237d2 0x21fb4> {[##99]}
<POP 237d6-237d8 StackAdj> Δ+4 {}
<Pointer.fp 0x237d8 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x237dc 0x10304> {[@@-4]}
GetRtc() : TimeStamp
<POP 237e2-237e4 StackAdj> Δ+4 {}
<MI 237e4 CLR.B 0x2c892> {}
<Call 0x237ea 0x23596> {}
<Pointer.fp 0x237ee <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x237f2 0x10304> {[@@-8]}
GetRtc() : TimeStamp
<MI 237f8 MOVE.L (A6-0x4),(A7)> {[4, '(A6-0x4)']}
<MI 237fc MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<Call 0x23800 0x21dd2> {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<POP 23804-23806 StackAdj> Δ+8 {}
<POP 23806-2380a Epilogue> Σ0
@ 2380a
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 2380a-239dc Body>
<POP 2380a-23820 Prologue> Σ0 ↓
<POP 23820-2383e RegCacheLoad> Σ0 ↓
<POP 2383e-23840 Naked> Σ0 ↓
<MI 2383e MOVEQ.L #0x00,D7> {}
<POP 23840-2387e Naked> Σ0 Δ-30 ↓ →0x238b0 ←0x238c0
<Blob 0x23840 [30] @> Δ-30 {[«30""»]}
<POP 2384c-23850 StackAdj> Δ-10 {[«30""»]|[-10-]}
<Lit 0x23850 30> {[«30""»]|[-6-]|[$$Do you wish to rewrite drive _]}
<MI 2385e MOVE.L D7,(A7)> {[«30""»]|[-6-]|[4, 'D7']}
<POP 23858-2385e StackAdj> Δ-8 {[«30""»]|[-6-]|[4, 'D7']|[-8-]}
<Call 0x23860 0x102e4> {[«30""»]|[-6-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<POP 23866-23868 StackAdj> Δ+4 {[«30""»]|[-6-]|[4, 'D7']|[-4-]}
<Call 0x23868 0x102d0> {[«30""»]|[-6-]|[4, 'D7']|[-4-]}
StringCat2(a, b : String) : String
<POP 2386e-23870 StackAdj> Δ+6 {[«30""»]|[-6-]|[-2-]}
<POP 23870-23871 StackAdj> Δ+2 {[«30""»]|[-6-]}
<Const 0x23871 0x1.2> Δ-2 {[«30""»]|[-6-]|[#1]}
<Call 0x23872 0x103f0> {[«30""»]|[-6-]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 23878-2387a StackAdj> Δ+6 {[«30""»]|[-2-]}
<MI 2387a TST.B (A7)+> Δ+2 {[«30""»]}
<MI 2387c BEQ 0x238b0> {[«30""»]}
<POP 2387e-238b0 Naked> Σ-30 →0x238c0
<MI 2387e MOVE.L D7,-(A7)> Δ-4 {[-30-]|[4, 'D7']}
<Call 0x23880 0x21fb4> {[-30-]|[4, 'D7']}
<POP 23884-23886 StackAdj> Δ+4 {[-30-]}
<POP 0x23886 LimitCheck 0x0 ≤ D7 ≤ 0x3> {[-30-]}
<MI 2388c MOVE.L D7,D4> {[-30-]}
<MI 2388e MOVEQ.L #0x06,D3> {[-30-]}
<Call 0x23890 0x1028c> {[-30-]}
?muls_d3_d4
<MI 23892 MOVE.B #0x01,(A6+D4.L-#0x24)> {[-30-]}
<MI 23896 MOVE.B 0x2fd42,(A6+D4.L-#0x22)> {[-30-]}
<MI 2389a MOVE.B 0x2fd43,(A6+D4.L-#0x21)> {[-30-]}
<MI 238a2 MOVE.B 0x2fd44,(A6+D4.L-#0x20)> {[-30-]}
<MI 238aa MOVE.B 0x2fd45,(A6+D4.L-#0x1f)> {[-30-]}
<MI 238ae BRA 0x238c0> {[-30-]}
<POP 238b0-238c0 Naked> Σ-30 ↓ ←0x23840
<POP 0x238b0 LimitCheck 0x0 ≤ D7 ≤ 0x3> {[-30-]}
<MI 238b6 MOVE.L D7,D4> {[-30-]}
<MI 238b8 MOVEQ.L #0x06,D3> {[-30-]}
<Call 0x238ba 0x1028c> {[-30-]}
?muls_d3_d4
<MI 238bc CLR.B (A6+D4.L-#0x24)> {[-30-]}
<POP 238c0-238ca Naked> Σ-30 Δ+30 ↓ →0x23840 ←0x2387e
<POP 238c0-238c2 StackAdj> Δ+30 {}
<MI 238c2 ADDQ.L #0x1,D7> {}
<MI 238c4 CMP.L #0x03,D7> {}
<MI 238c6 BLE 0x23840> {}
<POP 238ca-238cc Naked> Σ0 ↓
<MI 238ca MOVEQ.L #0x00,D7> {}
<POP 238cc-238e0 Naked> Σ0 ↓ →0x239c8 ←0x239cc
<POP 0x238cc LimitCheck 0x0 ≤ D7 ≤ 0x3> {}
<MI 238d2 MOVE.L D7,D4> {}
<MI 238d4 MOVEQ.L #0x06,D3> {}
<Call 0x238d6 0x1028c> {}
?muls_d3_d4
<MI 238d8 TST.B (A6+D4.L-#0x24)> {}
<MI 238dc BEQ 0x239c8> {}
<POP 238e0-239c8 Naked> Σ0 →0x239cc
<Call 0x238e0 0x103dc> {}
WriteConsoleCrLf(void)
<Call 0x238e6 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x238ec [4] @> Δ-4 {[«4""»]}
<Blob 0x238f0 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x238f4 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x238f8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 238fc-238fe StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x238fe 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Rewriting drive_]}
<MI 2390e MOVE.L D7,(A7)> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D7']}
<POP 23908-2390e StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x23910 0x102e4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<POP 23916-23918 StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-4-]}
<Call 0x23918 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-4-]}
StringCat2(a, b : String) : String
<POP 2391e-23920 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x23920 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23926-2392a StackAdj> Δ+20 {}
<MI 2392a MOVE.B (A6+D4.L-#0x22),0x2fd42> {}
<MI 2392e MOVE.B (A6+D4.L-#0x21),0x2fd43> {}
<MI 23936 MOVE.B (A6+D4.L-#0x20),0x2fd44> {}
<MI 2393e MOVE.B (A6+D4.L-#0x1f),0x2fd45> {}
<POP 0x23942 LimitCheck 0x0 ≤ D7 ≤ 0xf> {}
<MI 2394c MOVE.W D7,0x2fd40> {}
<MI 2394e CLR.L D0> {}
<MI 23950 MOVE.B 0x2fd45,D0> {}
<MI 23952 MOVE.W #0x102,D1> {}
<MI 23956 MULU.W D0,D1> {}
<MI 23958 NEG.L D1> {}
<MI 2395a ANDI.L #0x0000ffff,D1> {}
<MI 23960 MOVE.W D1,0x2fd46> {}
<MI 23966 MOVE.W 0x2fd40,D1> {}
<POP 0x23968 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 23970 MOVE.W D1,0x23f64> {}
<MI 23976 ADDQ.W #0x2,D0> {}
<MI 23978 ASR.W #0x1,D0> {}
<MI 2397a MULS.W #0x100,D0> {}
<MI 2397e MOVE.W D0,0x2c894> {}
<MI 23984 MOVE.W 0x2fd40,D0> {}
<MI 23986 ASL.W #0x8,D0> {}
<MI 23988 ADDQ.W #0x2,D0> {}
<POP 0x2398a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 23992 MOVE.W D0,0x2c89e> {}
<Pointer.fp 0x23998 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x2399c 0x10304> {[@@-4]}
GetRtc() : TimeStamp
<POP 239a2-239a4 StackAdj> Δ+4 {}
<MI 239a4 MOVE.B #0x01,0x2c892> {}
<Call 0x239aa 0x23596> {}
<Pointer.fp 0x239ae <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x239b2 0x10304> {[@@-8]}
GetRtc() : TimeStamp
<MI 239b8 MOVE.L (A6-0x4),(A7)> {[4, '(A6-0x4)']}
<MI 239bc MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<Call 0x239c0 0x21dd2> {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<POP 239c4-239c6 StackAdj> Δ+8 {}
<MI 239c6 BRA 0x239cc> {}
<POP 239c8-239cc Naked> Σ0 ↓ ←0x238cc
<MI 239c8 CLR.B (A6+D4.L-#0x24)> {}
<POP 239cc-239d4 Naked> Σ0 ↓ →0x238cc ←0x238e0
<MI 239cc ADDQ.L #0x1,D7> {}
<MI 239ce CMP.L #0x03,D7> {}
<MI 239d0 BLE 0x238cc> {}
<POP 239d4-239dc Epilogue> Σ0
@ 239dc
<POP 239dc-23b2a Body>
<POP 239dc-239f2 Prologue> Σ0 ↓
<POP 239f2-23a0a RegCacheLoad> Σ0 ↓
<POP 23a0a-23a30 Naked> Σ0 ↓
<MI 23a0a MOVEQ.L #0x05,D6> {}
<Blob 0x23a0c [14] @> Δ-14 {[«14""»]}
<POP 23a1c-23a1e StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x23a1e 13> {[«14""»]|[$$Module =_]}
<Call 0x23a2a 0x103d8> {[«14""»]|[$$Module =_]}
WriteConsoleString(str : String)
<POP 23a2c-23a2e StackAdj> Δ+18 {}
<MI 23a2e MOVEQ.L #0x01,D7> {}
<POP 23a30-23a4c Naked> Σ0 ↓ →0x23ae0 ←0x23b02
<MI 23a30 MOVE.L D6,D0> {}
<MI 23a32 SUBQ.L #0x1,D0> {}
<POP 0x23a34 LimitCheck 0x0 ≤ D0 ≤ 0x21> {}
<MI 23a3e LEA.L 0x2010a,A0> {}
<MI 23a40 MOVE.B (A0+D0.L),D1> {}
<MI 23a44 CMPI.B #0x2c,D1> {}
<MI 23a48 BNE 0x23ae0> {}
<POP 23a4c-23a6a Naked> Σ0 →0x23a70 →0x23a96 →0x23abc
<Call 0x23a4c 0x103dc> {}
WriteConsoleCrLf(void)
<MI 23a52 MOVE.B D7,D0> {}
<MI 23a54 EXTB.W D0> {}
<MI 23a56 SUBQ.W #0x1,D0> {}
<POP 0x23a58 LimitCheck 0x0 ≤ D0 ≤ 0x2> {}
<MI 23a60 ADD.W D0,D0> {}
<MI 23a62 SWITCH D0.W> {}
<POP 23a70-23a96 Naked> Σ0 →0x23ade ←0x23a4c
<Blob 0x23a70 [14] @> Δ-14 {[«14""»]}
<POP 23a80-23a82 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x23a82 13> {[«14""»]|[$$ Version =_]}
<Call 0x23a8e 0x103d8> {[«14""»]|[$$ Version =_]}
WriteConsoleString(str : String)
<POP 23a90-23a92 StackAdj> Δ+18 {}
<MI 23a92 MOVEQ.L #0x02,D7> {}
<MI 23a94 BRA 0x23ade> {}
<POP 23a96-23abc Naked> Σ0 →0x23ade ←0x23a4c
<Blob 0x23a96 [14] @> Δ-14 {[«14""»]}
<POP 23aa6-23aa8 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x23aa8 13> {[«14""»]|[$$ Date =_]}
<Call 0x23ab4 0x103d8> {[«14""»]|[$$ Date =_]}
WriteConsoleString(str : String)
<POP 23ab6-23ab8 StackAdj> Δ+18 {}
<MI 23ab8 MOVEQ.L #0x03,D7> {}
<MI 23aba BRA 0x23ade> {}
<POP 23abc-23ade Naked> Σ0 ↓ ←0x23a4c
<Blob 0x23abc [14] @> Δ-14 {[«14""»]}
<POP 23acc-23ace StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x23ace 13> {[«14""»]|[$$ Time =_]}
<Call 0x23ada 0x103d8> {[«14""»]|[$$ Time =_]}
WriteConsoleString(str : String)
<POP 23adc-23ade StackAdj> Δ+18 {}
<POP 23ade-23ae0 Naked> Σ0 →0x23b02 ←0x23a70 ←0x23a96
<MI 23ade BRA 0x23b02> {}
<POP 23ae0-23aec Naked> Σ0 ↓ →0x23af4 ←0x23a30
<MI 23ae0 LEA.L 0x2010a,A0> {}
<MI 23ae2 MOVE.B (A0+D0.L),D1> {}
<MI 23ae6 CMPI.B #0x5c,D1> {}
<MI 23aea BNE 0x23af4> {}
<POP 23aec-23af4 Naked> Σ0 →0x23b02
<Call 0x23aec 0x103dc> {}
WriteConsoleCrLf(void)
<MI 23af2 BRA 0x23b02> {}
<POP 23af4-23b02 Naked> Σ0 ↓ ←0x23ae0
<MI 23af4 LEA.L 0x2010a,A0> {}
<MI 23af6 MOVE.B (A0+D0.L),-(A7)> Δ-2 {[2, '(A0+D0.L)']}
<Call 0x23afa 0x103d0> {[2, '(A0+D0.L)']}
WriteConsoleChar(chr : char)
<POP 23b00-23b02 StackAdj> Δ+2 {}
<POP 23b02-23b22 Naked> Σ0 ↓ →0x23a30 ←0x23ade ←0x23aec
<MI 23b02 ADDQ.L #0x1,D6> {}
<MI 23b04 MOVE.L D6,D0> {}
<MI 23b06 SUBQ.L #0x1,D0> {}
<MI 23b08 SUBQ.L #0x1,D0> {}
<POP 0x23b0a LimitCheck 0x0 ≤ D0 ≤ 0x21> {}
<MI 23b14 LEA.L 0x2010a,A0> {}
<MI 23b16 MOVE.B (A0+D0.L),D0> {}
<MI 23b1a CMPI.B #0x5c,D0> {}
<MI 23b1e BNE 0x23a30> {}
<POP 23b22-23b2a Epilogue> Σ0
@ 23b2a
<POP 23b2a-23bbe Body>
<POP 23b2a-23b40 Prologue> Σ0 ↓
<POP 23b40-23b50 Naked> Σ0 ↓ →0x23b5c
<Call 0x23b40 0x239dc> {}
<POP 23b44-23b46 StackAdj> Δ-2 {[-2-]}
<Call 0x23b46 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 23b4c TST.B (A7)+> Δ+2 {}
<MI 23b4e BNE 0x23b5c> {}
<POP 23b50-23b5c Naked> Σ0 ↓ →0x23b8c
<POP 23b50-23b52 StackAdj> Δ-2 {[-2-]}
<Call 0x23b52 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 23b58 TST.B (A7)+> Δ+2 {}
<MI 23b5a BEQ 0x23b8c> {}
<POP 23b5c-23b8c Naked> Σ0 ↓ ←0x23b40
<Blob 0x23b5c [48] @> Δ-48 {[«48""»]}
<POP 23b6e-23b70 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x23b70 47> {[«48""»]|[$$This doesn't run on coprocessors or model 400's]}
<Call 0x23b84 0x20e3e> {[«48""»]|[$$This doesn't run on coprocessors or model 400's]}
<POP 23b88-23b8c StackAdj> Δ+52 {}
<POP 23b8c-23bb6 Naked> Σ0 ↓ ←0x23b50
<MI 23b8c LEA.L 0x2f78c,A0> {}
<MI 23b92 MOVE.L A0,0x2fb8e> {}
<MI 23b98 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23b9a MOVE.L (A7)+,0x2fb92> Δ+4 {}
<MI 23ba0 LEA.L 0x23f66,A0> {}
<MI 23ba6 LEA.L 0x20d92,A1> {}
<BlockMove 24,A1,A0> {}
<Call 0x23bb2 0x23524> {}
<POP 23bb6-23bbe Epilogue> Σ0
@ 23bbe
START
<POP 23bbe--0001 Body>
<POP 23bbe-23bc8 Prologue> Σ0
<POP 23bc8-23be0 RegCacheLoad> Σ0 ↓
<POP 23be0-23bea Naked> Σ0 ↓
<Call 0x23be0 0x10398> {}
FSCALL_10398
<Call 0x23be6 0x23b2a> {}
<POP 23bea-23cf4 Naked> Σ0 →0x23d02 →0x23d04 →0x23d0a →0x23d10 →0x23d16 →0x23d1c →0x23d22 ←0x23d26
<Blob 0x23bea [4] @> Δ-4 {[«4""»]}
<Blob 0x23bee [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x23bf2 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 23bf6-23bf8 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x23bf8 12> {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
<Call 0x23c04 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
WriteConsoleStringCrLf(str : String)
<POP 23c06-23c07 StackAdj> Δ+16 ↓ {}
<Blob 0x23c07 [14] @> Δ-14 {[«14""»]}
<POP 23c16-23c18 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x23c18 13> {[«14""»]|[$$ 0 => Exit]}
<Call 0x23c26 0x103e0> {[«14""»]|[$$ 0 => Exit]}
WriteConsoleStringCrLf(str : String)
<POP 23c28-23c29 StackAdj> Δ+18 ↓ {}
<Blob 0x23c29 [26] @> Δ-26 {[«26""»]}
<POP 23c38-23c3a StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x23c3a 25> {[«26""»]|[$$ 1 => rewrite one disk]}
<Call 0x23c48 0x103e0> {[«26""»]|[$$ 1 => rewrite one disk]}
WriteConsoleStringCrLf(str : String)
<POP 23c4a-23c4b StackAdj> Δ+30 ↓ {}
<Blob 0x23c4b [32] @> Δ-32 {[«32""»]}
<POP 23c5a-23c5c StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x23c5c 31> {[«32""»]|[$$ 2 => rewrite multiple disks]}
<Call 0x23c6a 0x103e0> {[«32""»]|[$$ 2 => rewrite multiple disks]}
WriteConsoleStringCrLf(str : String)
<POP 23c6c-23c70 StackAdj> Δ+36 {}
<Blob 0x23c70 [28] @> Δ-28 {[«28""»]}
<POP 23c7c-23c7e StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x23c7e 28> {[«28""»]|[$$ 3 => show_skipped buffer]}
<Call 0x23c8c 0x103e0> {[«28""»]|[$$ 3 => show_skipped buffer]}
WriteConsoleStringCrLf(str : String)
<POP 23c8e-23c92 StackAdj> Δ+32 {}
<MI 23c92 MOVE.L #0x3,0x2fd4a> {}
<Blob 0x23c9c [16] @> Δ-16 {[«16""»]}
<POP 23cae-23cb0 StackAdj> Δ-8 {[«16""»]|[-8-]}
<Lit 0x23cb0 15> {[«16""»]|[-4-]|[$$Enter option :_]}
<Const 0x23cbe 0x0.4> Δ-4 {[«16""»]|[-4-]|[$$Enter option :_]|[##0]}
<Blob 0x23cc2 [4] 0x2fd4a> Δ-4 {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[«4»]}
<Call 0x23cc8 0x103ec> {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[«4»]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 23cce-23cd0 StackAdj> Δ+12 {[«16""»]|[-4-]}
<MI 23cd0 MOVE.B (A7+0x3),D0> {[«16""»]|[-4-]}
<MI 23cd4 EXTB.W D0> {[«16""»]|[-4-]}
<POP 0x23cd6 LimitCheck 0x0 ≤ D0 ≤ 0x6> {[«16""»]|[-4-]}
<POP 23cd8-23cdc StackAdj> Δ+20 {}
<MI 23cdc MOVE.B D0,0x2fd48> {}
<MI 23cde CMP.B #0x06,D0> {}
<MI 23ce0 MOVE.B 0x2fd48,D0> {}
<MI 23ce2 EXTB.W D0> {}
<POP 0x23ce4 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 23cea ADD.W D0,D0> {}
<MI 23cec SWITCH D0.W> {}
<POP 23d02-23d04 Naked> Σ0 →0x23d26 ←0x23bea
<MI 23d02 BRA 0x23d26> {}
<POP 23d04-23d0a Naked> Σ0 →0x23d26 ←0x23bea
<Call 0x23d04 0x237bc> {}
<MI 23d08 BRA 0x23d26> {}
<POP 23d0a-23d10 Naked> Σ0 →0x23d26 ←0x23bea
<Call 0x23d0a 0x2380a> {}
<MI 23d0e BRA 0x23d26> {}
<POP 23d10-23d16 Naked> Σ0 →0x23d26 ←0x23bea
<Call 0x23d10 0x2310a> {}
<MI 23d14 BRA 0x23d26> {}
<POP 23d16-23d1c Naked> Σ0 →0x23d26 ←0x23bea
<Call 0x23d16 0x23710> {}
<MI 23d1a BRA 0x23d26> {}
<POP 23d1c-23d22 Naked> Σ0 →0x23d26 ←0x23bea
<Call 0x23d1c 0x23766> {}
<MI 23d20 BRA 0x23d26> {}
<POP 23d22-23d26 Naked> Σ0 ↓ ←0x23bea
<Call 0x23d22 0x20dee> {}
<POP 23d26-23d32 Naked> Σ0 ↓ →0x23bea ←0x23d02 ←0x23d04 ←0x23d0a ←0x23d10 ←0x23d16 ←0x23d1c
<Call 0x23d26 0x10398> {}
FSCALL_10398
<MI 23d2c TST.B 0x2fd48> {}
<MI 23d2e BNE 0x23bea> {}
<POP 23d32-23d40 Naked> Σ0 ↓
<MI 23d32 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x23d34 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x23d38 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 23d3e-23d40 StackAdj> Δ+6 {}
<POP 23d40-23d46 Naked> Σ0
<Call 0x23d40 0x10284> {}
?exit
@ 23d54
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 23d54-23dbc Body>
<POP 23d54-23d6a Prologue> Σ0 ↓
<POP 23d6a-23db4 Naked> Σ0 ↓
<Blob 0x23d6a [14] @> Δ-14 {[«14""»]}
<Const 0x23d76 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 23d7a-23d7c StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x23d7c 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 23d8e-23d90 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 23d90 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 23d94 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 23d96 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 23d98 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x23d9a 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 23da0-23da2 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x23da2 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 23da8-23daa StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x23daa 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 23db0-23db4 StackAdj> Δ+20 {}
<POP 23db4-23dbc Epilogue> Σ0
@ 23e10
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 23e10-23f4c Body>
<POP 23e10-23e26 Prologue> Σ0 ↓
<POP 23e26-23e3c RegCacheLoad> Σ0 ↓
<POP 23e3c-23e9c Naked> Σ0 ↓ →0x23ee4
<Call 0x23e3c 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x23e42 [18] @> Δ-18 {[«18""»]}
<POP 23e4e-23e50 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x23e50 18> {[«18""»]|[$$Experiment error :]}
<Call 0x23e5c 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 23e5e-23e5f StackAdj> Δ+22 ↓ {}
<Blob 0x23e5f [14] @> Δ-14 {[«14""»]}
<POP 23e6e-23e70 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x23e70 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 23e7a-23e7c StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 23e7c MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x23e80 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 23e86-23e88 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x23e88 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 23e8e-23e90 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x23e90 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23e92-23e94 StackAdj> Δ+18 {}
<MI 23e94 MOVEA.L (A6+0xa),A0> {}
<MI 23e98 CMPA.W #0x01,A0> {}
<MI 23e9a BEQ 0x23ee4> {}
<POP 23e9c-23ee4 Naked> Σ0 ↓
<Blob 0x23e9c [14] @> Δ-14 {[«14""»]}
<Blob 0x23eac [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 23ebc-23ebe StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x23ebe 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 23ec8-23eca StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x23eca> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x23eca 12> Δ-4
<Const 0x23ece 0x1.2> Δ-2
<Const 0x23ed0 0x1e.2> Δ-2
<Call 0x23ed2 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23ed4-23ed6 StackAdj> Δ+8
<Call 0x23ed6 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 23edc-23ede StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x23ede 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23ee0-23ee4 StackAdj> Δ+48 {}
<POP 23ee4-23f44 Naked> Σ0 ↓ ←0x23e3c
<Blob 0x23ee4 [14] @> Δ-14 {[«14""»]}
<POP 23ef4-23ef6 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x23ef6 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 23f00-23f02 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 23f02 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x23f06 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 23f0c-23f0e StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x23f0e 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 23f14-23f16 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x23f16 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23f18-23f19 StackAdj> Δ+18 ↓ {}
<Blob 0x23f19 [24] @> Δ-24 {[«24""»]}
<Const 0x23f28 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 23f2c-23f2e StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x23f2e 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x23f3c 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 23f42-23f44 StackAdj> Δ+30 {}
<POP 23f44-23f4c Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.0c8be771f5335d8b 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 3b be | ; | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 fd 64 | d | .PTR 0x2fd64 00020010 code.end: 00020010 00 02 3f 4c | ?L | .PTR 0x23f4c 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 3d 54 | =T | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 3e 10 | > | .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 31 2c 39 33 2f 30 31 2f |1,93/01/| 00020120 32 32 2c 30 39 3a 32 35 |22,09:25| 00020128 3a 33 31 5c 54 68 65 20 |:31\The | 00020130 74 72 61 63 65 20 62 75 |trace bu| 00020138 66 66 65 72 20 69 73 20 |ffer is | 00020140 65 6d 70 74 79 2e 54 72 |empty.Tr| 00020148 61 63 65 5f 42 75 66 66 |ace_Buff| 00020150 65 72 20 5b 6f 6c 64 65 |er [olde| 00020158 73 74 20 2e 2e 20 63 75 |st .. cu| 00020160 72 72 65 6e 74 5d 20 3a |rrent] :| 00020168 54 72 61 63 65 20 66 61 |Trace fa| .TXT 'Trace facility not bound into this version. ' 00020194 20 20 20 20 | | .TXT ' ' 00020198 20 20 20 5f | _ | .TXT ' _' 0002019c 45 6e 74 65 72 20 73 6c |Enter sl| .TXT 'Enter slot to display, [ 7:IOC .. 0:TERMINATOR ] :_ ' 000201d0 3d 3e |=> | .TXT '=>' 000201d2 20 4e | N | .TXT ' N' 000201d4 5f 20 |_ | .XXX[0x2] 000201d6 20 53 | S | .TXT ' S' 000201d8 5f 20 |_ | .XXX[0x2] 000201da 20 5f | _ | .TXT ' _' 000201dc 20 43 53 31 | CS1 | .XXX[0x4] 000201e0 3d 20 20 43 53 32 3d 20 |= CS2= | .XXX[0x30] 000201e8 20 44 53 3d 20 20 20 45 | DS= E| 000201f0 52 31 3d 20 20 45 52 32 |R1= ER2| 000201f8 3d 20 20 45 43 31 3d 20 |= EC1= | 00020200 20 45 43 32 3d 20 20 44 | EC2= D| 00020208 43 3d 20 20 20 44 41 3d |C= DA=| 00020210 20 20 | | .XXX[0x2] 00020212 2c 5f |,_ | .TXT ',_' 00020214 53 70 65 63 69 61 6c 20 |Special | .TXT 'Special condition ' 00020226 54 72 61 6e 73 66 65 72 |Transfer| .TXT 'Transfer error' 00020234 44 61 74 61 20 6c 61 74 |Data lat| .TXT 'Data late ' 0002023e 57 72 69 74 65 20 63 68 |Write ch| .TXT 'Write check error ' 00020250 55 4e 49 42 55 53 20 70 |UNIBUS p| .TXT 'UNIBUS parity error ' 00020264 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent drive' 00020276 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent memory ' 0002028a 50 72 6f 67 72 61 6d 20 |Program | .TXT 'Program error ' 00020298 4d 69 78 65 64 20 74 72 |Mixed tr| .TXT 'Mixed transfer' 000202a6 49 6e 70 75 74 20 6e 6f |Input no| .TXT 'Input not ready ' 000202b6 42 75 73 20 61 64 64 72 |Bus addr| .TXT 'Bus address inhibit ' 000202ca 41 74 74 65 |Atte | .TXT 'Atte' 000202ce 6e 74 69 6f |ntio | .TXT 'ntio' 000202d2 6e 20 41 63 |n Ac | .TXT 'n Ac' 000202d6 74 69 76 65 |tive | .TXT 'tive' 000202da 45 72 72 6f 72 20 |Error | .TXT 'Error ' 000202e0 50 6f 73 69 74 69 6f 6e |Position| .TXT 'Positioning in progress ' 000202f8 4d 65 64 69 75 6d 20 6f |Medium o| .TXT 'Medium on-line' 00020306 57 72 69 74 65 20 6c 6f |Write lo| .TXT 'Write lock' 00020310 4c 61 73 74 20 73 65 63 |Last sec| .TXT 'Last sector transfered' 00020326 50 72 6f 67 |Prog | .TXT 'Prog' 0002032a 72 61 6d 6d |ramm | .TXT 'ramm' 0002032e 61 62 6c 65 |able | .TXT 'able' 00020332 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not present ' 00020344 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not ready ' 00020354 56 6f 6c 75 |Volu | .TXT 'Volu' 00020358 6d 65 20 6e |me n | .TXT 'me n' 0002035c 6f 74 20 76 |ot v | .TXT 'ot v' 00020360 61 6c 69 64 |alid | .TXT 'alid' 00020364 48 65 61 64 |Head | .TXT 'Head' 00020368 73 20 61 72 |s ar | .TXT 's ar' 0002036c 65 20 6f 66 |e of | .TXT 'e of' 00020370 66 73 65 74 |fset | .TXT 'fset' 00020374 44 61 74 61 20 63 68 65 |Data che| .TXT 'Data check' 0002037e 55 6e |Un | .TXT 'Un' 00020380 73 61 |sa | .TXT 'sa' 00020382 66 65 |fe | .TXT 'fe' 00020384 4f 70 65 72 61 74 69 6f |Operatio| .TXT 'Operation Incomplete' 00020398 44 72 69 76 65 20 74 69 |Drive ti| .TXT 'Drive timing error' 000203aa 57 72 69 74 |Writ | .TXT 'Writ' 000203ae 65 20 6c 6f |e lo | .TXT 'e lo' 000203b2 63 6b 20 65 |ck e | .TXT 'ck e' 000203b6 72 72 6f 72 |rror | .TXT 'rror' 000203ba 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid address error ' 000203d0 41 64 64 72 |Addr | .TXT 'Addr' 000203d4 65 73 73 20 |ess | .TXT 'ess ' 000203d8 6f 76 65 72 |over | .TXT 'over' 000203dc 66 6c 6f 77 |flow | .TXT 'flow' 000203e0 48 65 61 64 |Head | .TXT 'Head' 000203e4 65 72 20 43 |er C | .TXT 'er C' 000203e8 52 43 20 65 |RC e | .TXT 'RC e' 000203ec 72 72 6f 72 |rror | .TXT 'rror' 000203f0 48 65 61 64 65 72 20 63 |Header c| .TXT 'Header compare error' 00020404 45 43 43 20 68 61 72 64 |ECC hard| .TXT 'ECC hard error' 00020412 57 72 69 74 |Writ | .TXT 'Writ' 00020416 65 20 63 6c |e cl | .TXT 'e cl' 0002041a 6f 63 6b 20 |ock | .TXT 'ock ' 0002041e 66 61 69 6c |fail | .TXT 'fail' 00020422 46 6f 72 6d |Form | .TXT 'Form' 00020426 61 74 20 65 |at e | .TXT 'at e' 0002042a 72 72 6f 72 |rror | .TXT 'rror' 0002042e 52 65 67 69 73 74 65 72 |Register| .TXT 'Register modification refused ' 0002044c 49 6c 6c 65 |Ille | .TXT 'Ille' 00020450 67 61 6c 20 |gal | .TXT 'gal ' 00020454 66 75 6e 63 |func | .TXT 'func' 00020458 74 69 6f 6e |tion | .TXT 'tion' 0002045c 42 61 64 20 73 65 63 74 |Bad sect| .TXT 'Bad sector' 00020466 53 65 65 6b 20 69 6e 63 |Seek inc| .TXT 'Seek incomplete ' 00020476 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid command ' 00020486 4c 6f 73 73 20 6f 66 20 |Loss of | .TXT 'Loss of system clock' 0002049a 4c 6f 73 73 20 6f 66 20 |Loss of | .TXT 'Loss of bit clock ' 000204ac 44 65 76 69 |Devi | .TXT 'Devi' 000204b0 63 65 20 63 |ce c | .TXT 'ce c' 000204b4 68 65 63 6b |heck | .TXT 'heck' 000204b8 53 6b 69 70 20 73 65 63 |Skip sec| .TXT 'Skip sector error ' 000204ca 64 69 73 6b 20 65 72 72 |disk err| .TXT 'disk error reading disk error status' 000204ee 45 72 72 6f 72 20 72 65 |Error re| .TXT 'Error reading disk controller EEPROM at location_ ' 00020520 45 6c 61 70 |Elap | .TXT 'Elap' 00020524 73 65 64 20 |sed | .TXT 'sed ' 00020528 74 69 6d 65 |time | .TXT 'time' 0002052c 20 69 73 5f | is_ | .TXT ' is_' 00020530 45 6e 74 65 72 20 75 6e |Enter un| .TXT 'Enter unit number of disk to rewrite :_ ' 00020558 43 61 6e 27 74 20 72 65 |Can't re| .TXT 'Can't retrieve labels due to disk errors. ' 00020582 44 69 73 6b 20 68 61 73 |Disk has| .TXT 'Disk has no labels. ' 00020596 44 69 73 6b 20 68 61 73 |Disk has| .TXT 'Disk has obsolete labels. ' 000205b0 54 68 61 74 20 64 69 73 |That dis| .TXT 'That disk unit does not exist.' 000205ce 44 72 69 76 65 20 6c 61 |Drive la| .TXT 'Drive label geometry disagrees with slew settings ' 00020600 54 68 65 20 72 65 77 72 |The rewr| .TXT 'The rewrite time for this drive is unknown' 0002062a 54 68 65 20 72 65 77 72 |The rewr| .TXT 'The rewrite time for a 2351 is unknown. ' 00020652 54 68 65 20 72 65 77 72 |The rewr| .TXT 'The rewrite time for a 2361 is unknown. ' 0002067a 54 68 65 20 72 65 77 72 |The rewr| .TXT 'The rewrite time for a 2333 is about 38 minutes.' 000206aa 54 68 65 20 72 65 77 72 |The rewr| .TXT 'The rewrite time for a 2344 is about 74 minutes.' 000206da 54 68 65 20 72 65 77 72 |The rewr| .TXT 'The rewrite time for a 2372 is about 82 minutes.' 0002070a 20 20 20 20 20 2d 2d 2d | ---| .TXT ' ------- WARNING ------- WARNING ------- WARNING -------' 00020752 50 6c 65 61 73 65 20 55 |Please U| .TXT 'Please UNPROTECT the drive before continuing' 0002077e 44 69 |Di | .XXX[0x2] 00020780 73 6b 20 63 6f 6e 74 72 |sk contr| .XXX[0x30] 00020788 6f 6c 6c 65 72 20 69 73 |oller is| 00020790 20 69 6e 20 73 6c 6f 74 | in slot| 00020798 20 5b 20 49 4f 43 2d 37 | [ IOC-7| 000207a0 2e 2e 30 2d 54 45 52 4d |..0-TERM| 000207a8 49 4e 41 54 4f 52 20 5d |INATOR ]| 000207b0 20 3a 5f 20 | :_ | .XXX[0x4] 000207b4 48 44 41 20 3d 3e 5f 20 |HDA =>_ | .TXT 'HDA =>_ ' 000207bc 54 68 65 20 63 6f 6e 74 |The cont| .TXT 'The controller is slewed as_' 000207d8 20 63 79 6c | cyl | .TXT ' cyl' 000207dc 69 6e 64 65 |inde | .TXT 'inde' 000207e0 72 73 2c 5f |rs,_ | .TXT 'rs,_' 000207e4 20 68 65 61 | hea | .TXT ' hea' 000207e8 64 73 2c 5f |ds,_ | .TXT 'ds,_' 000207ec 20 73 65 63 74 6f 72 73 | sectors| .TXT ' sectors, ' 000207f6 54 68 65 20 64 72 69 76 |The driv| .TXT 'The drive labels are_ ' 0002080c 20 63 79 6c | cyl | .TXT ' cyl' 00020810 69 6e 64 65 |inde | .TXT 'inde' 00020814 72 73 2c 5f |rs,_ | .TXT 'rs,_' 00020818 20 68 65 61 | hea | .TXT ' hea' 0002081c 64 73 2c 5f |ds,_ | .TXT 'ds,_' 00020820 20 73 65 63 74 6f 72 73 | sectors| .TXT ' sectors, ' 0002082a 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to- ' 0002083a 20 20 20 30 20 3d 3e 20 | 0 => | .TXT ' 0 => exit REWRITE' 0002084e 20 20 20 31 20 3d 3e 20 | 1 => | .TXT ' 1 => use slew settings ' 00020868 20 20 20 32 20 3d 3e 20 | 2 => | .TXT ' 2 => use label settings' 00020882 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option [0..2] :_' 00020898 54 68 69 73 20 64 72 69 |This dri| .TXT 'This drive has_ ' 000208a8 20 63 79 6c | cyl | .TXT ' cyl' 000208ac 69 6e 64 65 |inde | .TXT 'inde' 000208b0 72 73 2c 5f |rs,_ | .TXT 'rs,_' 000208b4 20 68 65 61 | hea | .TXT ' hea' 000208b8 64 73 2c 5f |ds,_ | .TXT 'ds,_' 000208bc 20 73 65 63 74 6f 72 73 | sectors| .TXT ' sectors, ' 000208c6 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you wish to rewrite the drive' 000208e6 64 6f |do | .XXX[0x2] 000208e8 5f 64 69 73 6b 5f 6f 70 |_disk_op| .XXX[0x28] 000208f0 28 64 63 5f 72 65 61 64 |(dc_read| 000208f8 29 20 64 6f 5f 64 69 73 |) do_dis| 00020900 6b 5f 6f 70 28 64 63 5f |k_op(dc_| 00020908 66 6f 72 6d 61 74 5f 68 |format_h| 00020910 61 6c 66 29 |alf) | .XXX[0x4] 00020914 55 6e 73 75 70 70 6f 72 |Unsuppor| .TXT 'Unsupported disk op ' 00020928 64 6f 5f 64 69 73 6b 5f |do_disk_| .XXX[0x128] 00020930 6f 70 20 72 65 74 75 72 |op retur| 00020938 6e 73 20 6f 6b 20 64 6f |ns ok do| 00020940 5f 64 69 73 6b 5f 6f 70 |_disk_op| 00020948 20 72 65 74 75 72 6e 73 | returns| 00020950 20 6e 6f 74 20 6f 6b 20 | not ok | 00020958 72 65 61 64 5f 66 75 6c |read_ful| 00020960 6c 5f 74 72 61 63 6b 20 |l_track | 00020968 63 2f 74 20 3d 3e 20 20 |c/t => | 00020970 5f 20 20 2f 5f 20 72 65 |_ /_ re| 00020978 61 64 5f 66 75 6c 6c 5f |ad_full_| 00020980 74 72 61 63 6b 20 72 65 |track re| 00020988 74 75 72 6e 73 20 6f 6b |turns ok| 00020990 72 65 61 64 5f 66 75 6c |read_ful| 00020998 6c 5f 74 72 61 63 6b 20 |l_track | 000209a0 72 65 74 75 72 6e 73 20 |returns | 000209a8 6e 6f 74 20 6f 6b 77 72 |not okwr| 000209b0 69 74 65 5f 66 75 6c 6c |ite_full| 000209b8 5f 74 72 61 63 6b 20 63 |_track c| 000209c0 2f 74 20 3d 3e 20 20 5f |/t => _| 000209c8 20 2f 5f 20 77 72 69 74 | /_ writ| 000209d0 65 5f 66 75 6c 6c 5f 74 |e_full_t| 000209d8 72 61 63 6b 20 72 65 74 |rack ret| 000209e0 75 72 6e 73 20 6f 6b 20 |urns ok | 000209e8 77 72 69 74 65 5f 66 75 |write_fu| 000209f0 6c 6c 5f 74 72 61 63 6b |ll_track| 000209f8 20 72 65 74 75 72 6e 73 | returns| 00020a00 20 6e 6f 74 20 6f 6b 20 | not ok | 00020a08 72 65 61 64 5f 73 65 63 |read_sec| 00020a10 74 6f 72 20 63 2f 74 2f |tor c/t/| 00020a18 73 20 3d 3e 20 5f 20 5f |s => _ _| 00020a20 72 65 61 64 5f 73 65 63 |read_sec| 00020a28 74 6f 72 20 72 65 74 75 |tor retu| 00020a30 72 6e 73 20 6f 6b 72 65 |rns okre| 00020a38 61 64 5f 73 65 63 74 6f |ad_secto| 00020a40 72 20 72 65 74 75 72 6e |r return| 00020a48 73 20 6e 6f 74 20 6f 6b |s not ok| 00020a50 53 74 61 74 75 73 2f 45 |Status/E| .TXT 'Status/Error bits indicate correction not possible or necessary ' 00020a90 66 69 78 69 74 20 |fixit | .XXX[0x6] 00020a96 53 6b 69 70 70 65 64 20 |Skipped | .TXT 'Skipped buffer overflow, REWRITE will procede normally but' 00020ad0 73 75 6d 6d 61 72 79 20 |summary | .TXT 'summary report information may be lost. ' 00020af8 4e 6f 20 73 6b 69 70 70 |No skipp| .TXT 'No skipped sectors are logged.' 00020b16 54 68 65 20 66 6f 6c 6c |The foll| .TXT 'The following sectors were skipped :' 00020b3a 53 6b 69 70 |Skip | .TXT 'Skip' 00020b3e 70 65 64 20 |ped | .TXT 'ped ' 00020b42 63 2f 74 2f |c/t/ | .TXT 'c/t/' 00020b46 73 20 20 5f |s _ | .TXT 's _' 00020b4a 20 2f | / | .TXT ' /' 00020b4c 5f 20 |_ | .XXX[0x2] 00020b4e 20 2f | / | .TXT ' /' 00020b50 5f 20 |_ | .XXX[0x2] 00020b52 41 20 63 6f 72 72 65 63 |A correc| .TXT 'A correctable read error was detected at c/t/s_ ' 00020b82 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want it corrected and re-written ' 00020baa 53 6b 69 70 70 69 6e 67 |Skipping| .TXT 'Skipping c/t/s_ ' 00020bba 20 5f | _ | .TXT ' _' 00020bbc 20 5f | _ | .TXT ' _' 00020bbe 72 65 |re | .XXX[0x2] 00020bc0 61 64 5f 77 72 69 74 65 |ad_write| .XXX[0x8] 00020bc8 5f 74 72 61 63 6b |_track | .XXX[0x6] 00020bce 20 5f | _ | .TXT ' _' 00020bd0 20 5f | _ | .TXT ' _' 00020bd2 66 6f 72 6d 61 74 20 73 |format s| .TXT 'format sector failed' 00020be6 53 74 72 69 6b 65 20 61 |Strike a| .TXT 'Strike any key to stop rewritting this drive. ' 00020c14 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder_ ' 00020c1e 5b 31 |[1 | .TXT '[1' 00020c20 41 20 |A | .XXX[0x2] 00020c22 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder_ ' 00020c2c 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you wish to rewrite drive _' 00020c4a 52 65 77 72 |Rewr | .TXT 'Rewr' 00020c4e 69 74 69 6e |itin | .TXT 'itin' 00020c52 67 20 64 72 |g dr | .TXT 'g dr' 00020c56 69 76 65 5f |ive_ | .TXT 'ive_' 00020c5a 4d 6f 64 75 6c 65 20 20 |Module | .TXT 'Module =_ ' 00020c68 20 20 20 56 65 72 73 69 | Versi| .TXT ' Version =_ ' 00020c76 20 20 20 44 61 74 65 20 | Date | .TXT ' Date =_ ' 00020c84 20 20 20 54 69 6d 65 20 | Time | .TXT ' Time =_ ' 00020c92 54 68 69 73 20 64 6f 65 |This doe| .TXT 'This doesn't run on coprocessors or model 400's ' 00020cc2 4f 70 74 69 |Opti | .TXT 'Opti' 00020cc6 6f 6e 73 20 |ons | .TXT 'ons ' 00020cca 61 72 65 3a |are: | .TXT 'are:' 00020cce 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => Exit ' 00020cdc 20 20 20 20 31 20 3d 3e | 1 =>| .TXT ' 1 => rewrite one disk ' 00020cf6 20 20 20 20 32 20 3d 3e | 2 =>| .TXT ' 2 => rewrite multiple disks ' 00020d16 20 20 20 20 33 20 3d 3e | 3 =>| .TXT ' 3 => show_skipped buffer' 00020d32 20 20 20 20 34 20 | 4 | .XXX[0x6] 00020d38 3d 3e 20 74 69 6d 65 20 |=> time | .XXX[0x48] 00020d40 31 30 20 63 79 6c 69 6e |10 cylin| 00020d48 64 65 72 73 20 20 20 20 |ders | 00020d50 35 20 3d 3e 20 74 69 6d |5 => tim| 00020d58 65 20 31 30 30 20 63 79 |e 100 cy| 00020d60 6c 69 6e 64 65 72 73 20 |linders | 00020d68 20 20 20 20 36 20 3d 3e | 6 =>| 00020d70 20 73 68 6f 77 20 74 72 | show tr| 00020d78 61 63 65 20 62 75 66 66 |ace buff| 00020d80 65 72 |er | .XXX[0x2] 00020d82 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option :_ ' 00020d92 00 00 00 00 03 4a | J | .XXX[0x6] 00020d98 14 30 03 4a 14 42 03 37 | 0 J B 7| .XXX[0x50] 00020da0 0a 42 02 70 1b 42 02 e9 | B p B | 00020da8 1b 42 20 43 53 31 3d 20 | B CS1= | 00020db0 43 53 32 3d 20 44 53 3d |CS2= DS=| 00020db8 20 20 45 52 31 3d 20 45 | ER1= E| 00020dc0 52 32 3d 20 45 43 31 3d |R2= EC1=| 00020dc8 20 45 43 32 3d 20 44 43 | EC2= DC| 00020dd0 3d 20 20 44 41 3d 20 00 |= DA= | 00020dd8 4e 56 ff fc bf d5 62 06 |NV b | 00020de0 44 fc 00 02 4e 76 de fc |D Nv | 00020de8 00 04 4e 5e 4e 75 | N^Nu | .XXX[0x6] 00020dee ; -------------------------------------------------------------------------------------- 00020dee ; OMSI PASCAL Function 00020dee ; -------------------------------------------------------------------------------------- 00020dee 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 00020df2 bf d5 | | CMPA.L (A5),A7 00020df4 62 06 |b | BHI 0x20dfc 00020df6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020dfa 4e 76 |Nv | TRAPV 00020dfc de fc 00 48 | H | ADDA.W #0x48,A7 00020e00 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020e04 9e fc 00 2c | , | SUBA.W #0x2c,A7 00020e08 20 4f | O | MOVEA.L A7,A0 00020e0a 43 fa f3 5c |C \ | LEA.L 0x20168,A1 00020e0e 70 2a |p* | MOVEQ.L #0x2a,D0 00020e10 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e12 51 c8 ff fc |Q | DBF D0,0x20e10 00020e16 59 4f |YO | SUBQ.L #0x4,A7 00020e18 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020e1c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020e20 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7) 00020e24 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020e2a 50 4f |PO | ADDQ.L #0x8,A7 00020e2c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020e32 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020e36 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020e3a 4e 5e |N^ | UNLK A6 00020e3c 4e 75 |Nu | RTS 00020e3e ; -------------------------------------------------------------------------------------- 00020e3e ; OMSI PASCAL Function 00020e3e ; <LVAR 0x008 4(r)> 00020e3e ; -------------------------------------------------------------------------------------- 00020e3e 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00020e42 bf d5 | | CMPA.L (A5),A7 00020e44 62 06 |b | BHI 0x20e4c 00020e46 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020e4a 4e 76 |Nv | TRAPV 00020e4c de fc 00 1e | | ADDA.W #0x1e,A7 00020e50 2f 3c 00 01 31 2c |/< 1, | MOVE.L #0x1312c,-(A7) 00020e56 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00020e5c 58 4f |XO | ADDQ.L #0x4,A7 00020e5e 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020e64 2f 3a f3 32 |/: 2 | MOVE.L 0x20198,-(A7) 00020e68 2f 3a f3 2a |/: * | MOVE.L 0x20194,-(A7) 00020e6c 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020e70 51 4f |QO | SUBQ.L #0x8,A7 00020e72 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020e76 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020e7a 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00020e7e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020e84 58 4f |XO | ADDQ.L #0x4,A7 00020e86 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00020e8a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020e90 50 4f |PO | ADDQ.L #0x8,A7 00020e92 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020e98 de fc 00 0e | | ADDA.W #0xe,A7 00020e9c 4e 5e |N^ | UNLK A6 00020e9e 4e 75 |Nu | RTS 00020ea0 ; -------------------------------------------------------------------------------------- 00020ea0 ; OMSI PASCAL Function 00020ea0 ; -------------------------------------------------------------------------------------- 00020ea0 4e 56 ff f6 |NV | LINK.W A6,#0xfff6 00020ea4 bf d5 | | CMPA.L (A5),A7 00020ea6 62 06 |b | BHI 0x20eae 00020ea8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020eac 4e 76 |Nv | TRAPV 00020eae de fc 00 0a | | ADDA.W #0xa,A7 00020eb2 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020eb8 42 27 |B' | CLR.B -(A7) 00020eba 48 78 00 01 |Hx | PEA.L 0x1 00020ebe 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020ec4 5c 4f |\O | ADDQ.L #0x6,A7 00020ec6 4e 5e |N^ | UNLK A6 00020ec8 4e 75 |Nu | RTS 00020eca ; -------------------------------------------------------------------------------------- 00020eca ; OMSI PASCAL Function 00020eca ; <LVAR 0x008 4(r)> 00020eca ; <LVAR -0x008 @ 4(r)> 00020eca ; -------------------------------------------------------------------------------------- 00020eca 4e 56 ff 74 |NV t | LINK.W A6,#0xff74 00020ece bf d5 | | CMPA.L (A5),A7 00020ed0 62 06 |b | BHI 0x20ed8 00020ed2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020ed6 4e 76 |Nv | TRAPV 00020ed8 de fc 00 7c | | | ADDA.W #0x7c,A7 00020edc 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020ee0 45 f9 00 01 03 d8 |E | LEA.L WriteConsoleString(str : String),A2 00020ee6 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020eec 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00020ef0 72 01 |r | MOVEQ.L #0x01,D1 00020ef2 74 34 |t4 | MOVEQ.L #0x34,D2 00020ef4 4a ae 00 08 |J | TST.L (A6+0x8) 00020ef8 6c 3a |l: | BGE 0x20f34 00020efa 9e c2 | | SUBA.W D2,A7 00020efc 20 4f | O | MOVEA.L A7,A0 00020efe 43 fa f2 9c |C | LEA.L 0x2019c,A1 00020f02 70 32 |p2 | MOVEQ.L #0x32,D0 00020f04 10 d9 | | MOVE.B (A1)+,(A0)+ 00020f06 51 c8 ff fc |Q | DBF D0,0x20f04 00020f0a 51 4f |QO | SUBQ.L #0x8,A7 00020f0c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020f10 3f 01 |? | MOVE.W D1,-(A7) 00020f12 3f 3c 00 33 |?< 3 | MOVE.W #0x33,-(A7) 00020f16 4e 93 |N | JSR (A3) 00020f18 50 4f |PO | ADDQ.L #0x8,A7 00020f1a 48 78 ff ff |Hx | PEA.L 0xffffffff 00020f1e 2f 3c 7f ff ff ff |/< | MOVE.L #0x7fffffff,-(A7) 00020f24 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00020f2a de fc 00 0c | | ADDA.W #0xc,A7 00020f2e 2a 1f |* | MOVE.L (A7)+,D5 00020f30 de c2 | | ADDA.W D2,A7 00020f32 60 04 |` | BRA 0x20f38 00020f34 2a 2e 00 08 |*. | MOVE.L (A6+0x8),D5 00020f38 7e 00 |~ | MOVEQ.L #0x00,D7 00020f3a 7c 00 || | MOVEQ.L #0x00,D6 00020f3c 78 04 |x | MOVEQ.L #0x04,D4 00020f3e 26 06 |& | MOVE.L D6,D3 00020f40 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00020f46 20 05 | | MOVE.L D5,D0 00020f48 e1 80 | | ASL.L #0x8,D0 00020f4a e5 80 | | ASL.L #0x2,D0 00020f4c 06 80 a1 00 00 00 | | ADDI.L #0xa1000000,D0 00020f52 d0 84 | | ADD.L D4,D0 00020f54 2f 00 |/ | MOVE.L D0,-(A7) 00020f56 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00020f5a 20 4c | L | MOVEA.L A4,A0 00020f5c 2f 08 |/ | MOVE.L A0,-(A7) 00020f5e 3f 01 |? | MOVE.W D1,-(A7) 00020f60 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020f64 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word 00020f6a de fc 00 0e | | ADDA.W #0xe,A7 00020f6e 20 14 | | MOVE.L (A4),D0 00020f70 02 80 40 00 00 00 | @ | ANDI.L #0x40000000,D0 00020f76 66 00 00 be |f | BNE 0x21036 00020f7a 59 4f |YO | SUBQ.L #0x4,A7 00020f7c 20 06 | | MOVE.L D6,D0 00020f7e e1 80 | | ASL.L #0x8,D0 00020f80 e5 80 | | ASL.L #0x2,D0 00020f82 2f 00 |/ | MOVE.L D0,-(A7) 00020f84 48 78 00 06 |Hx | PEA.L 0x6 00020f88 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 00020f8e 50 4f |PO | ADDQ.L #0x8,A7 00020f90 4e 92 |N | JSR (A2) 00020f92 54 4f |TO | ADDQ.L #0x2,A7 00020f94 3e ba f2 3a |> : | MOVE.W 0x201d0,(A7) 00020f98 59 4f |YO | SUBQ.L #0x4,A7 00020f9a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f9e 3f 01 |? | MOVE.W D1,-(A7) 00020fa0 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00020fa4 4e 93 |N | JSR (A3) 00020fa6 50 4f |PO | ADDQ.L #0x8,A7 00020fa8 4e 92 |N | JSR (A2) 00020faa 5c 4f |\O | ADDQ.L #0x6,A7 00020fac 20 14 | | MOVE.L (A4),D0 00020fae 02 80 80 00 00 00 | | ANDI.L #0x80000000,D0 00020fb4 66 14 |f | BNE 0x20fca 00020fb6 59 4f |YO | SUBQ.L #0x4,A7 00020fb8 1e ba f2 18 | | MOVE.B 0x201d2,(A7) 00020fbc 1f 7a f2 15 00 01 | z | MOVE.B 0x201d3,(A7+0x1) 00020fc2 1f 7a f2 10 00 02 | z | MOVE.B 0x201d4,(A7+0x2) 00020fc8 60 12 |` | BRA 0x20fdc 00020fca 59 4f |YO | SUBQ.L #0x4,A7 00020fcc 1e ba f2 08 | | MOVE.B 0x201d6,(A7) 00020fd0 1f 7a f2 05 00 01 | z | MOVE.B 0x201d7,(A7+0x1) 00020fd6 1f 7a f2 00 00 02 | z | MOVE.B 0x201d8,(A7+0x2) 00020fdc 59 4f |YO | SUBQ.L #0x4,A7 00020fde 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020fe2 3f 01 |? | MOVE.W D1,-(A7) 00020fe4 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00020fe8 4e 93 |N | JSR (A3) 00020fea 50 4f |PO | ADDQ.L #0x8,A7 00020fec 4e 92 |N | JSR (A2) 00020fee 50 4f |PO | ADDQ.L #0x8,A7 00020ff0 59 4f |YO | SUBQ.L #0x4,A7 00020ff2 2f 14 |/ | MOVE.L (A4),-(A7) 00020ff4 02 97 00 03 fc 00 | | ANDI.L #0x0003fc00,(A7) 00020ffa 48 78 00 06 |Hx | PEA.L 0x6 00020ffe 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 00021004 50 4f |PO | ADDQ.L #0x8,A7 00021006 4e 92 |N | JSR (A2) 00021008 58 4f |XO | ADDQ.L #0x4,A7 0002100a 0c 87 00 00 00 03 | | CMPI.L #0x00000003,D7 00021010 66 0a |f | BNE 0x2101c 00021012 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021018 7e 00 |~ | MOVEQ.L #0x00,D7 0002101a 60 1a |` | BRA 0x21036 0002101c 3f 3a f1 bc |?: | MOVE.W 0x201da,-(A7) 00021020 59 4f |YO | SUBQ.L #0x4,A7 00021022 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021026 3f 01 |? | MOVE.W D1,-(A7) 00021028 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 0002102c 4e 93 |N | JSR (A3) 0002102e 50 4f |PO | ADDQ.L #0x8,A7 00021030 4e 92 |N | JSR (A2) 00021032 5c 4f |\O | ADDQ.L #0x6,A7 00021034 52 87 |R | ADDQ.L #0x1,D7 00021036 52 86 |R | ADDQ.L #0x1,D6 00021038 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 0002103e 6f 00 fe fc |o | BLE 0x20f3c 00021042 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021046 4e 5e |N^ | UNLK A6 00021048 4e 75 |Nu | RTS 0002104a ; -------------------------------------------------------------------------------------- 0002104a ; OMSI PASCAL Function 0002104a ; <LVAR 0x008 4(r)> 0002104a ; -------------------------------------------------------------------------------------- 0002104a 4e 56 ff ce |NV | LINK.W A6,#0xffce 0002104e bf d5 | | CMPA.L (A5),A7 00021050 62 06 |b | BHI 0x21058 00021052 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021056 4e 76 |Nv | TRAPV 00021058 de fc 00 32 | 2 | ADDA.W #0x32,A7 0002105c 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 00021060 43 ec 00 04 |C | LEA.L (A4+0x4),A1 00021064 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00021068 20 51 | Q | MOVEA.L (A1),A0 0002106a 4a 50 |JP | TST.W (A0) 0002106c 66 12 |f | BNE 0x21080 0002106e 59 4f |YO | SUBQ.L #0x4,A7 00021070 2f 11 |/ | MOVE.L (A1),-(A7) 00021072 2f 12 |/ | MOVE.L (A2),-(A7) 00021074 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002107a 50 4f |PO | ADDQ.L #0x8,A7 0002107c 22 9f |" | MOVE.L (A7)+,(A1) 0002107e 60 52 |`R | BRA 0x210d2 00021080 30 10 |0 | MOVE.W (A0),D0 00021082 48 c0 |H | EXTW.L D0 00021084 54 80 |T | ADDQ.L #0x2,D0 00021086 20 52 | R | MOVEA.L (A2),A0 00021088 32 10 |2 | MOVE.W (A0),D1 0002108a 48 c1 |H | EXTW.L D1 0002108c d2 80 | | ADD.L D0,D1 0002108e 0c 81 00 00 00 50 | P | CMPI.L #0x00000050,D1 00021094 6e 30 |n0 | BGT 0x210c6 00021096 3f 3a f1 7a |?: z | MOVE.W 0x20212,-(A7) 0002109a 59 4f |YO | SUBQ.L #0x4,A7 0002109c 2f 11 |/ | MOVE.L (A1),-(A7) 0002109e 59 4f |YO | SUBQ.L #0x4,A7 000210a0 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000210a4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000210a8 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000210ac 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000210b2 58 4f |XO | ADDQ.L #0x4,A7 000210b4 2e 92 |. | MOVE.L (A2),(A7) 000210b6 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000210bc de fc 00 0c | | ADDA.W #0xc,A7 000210c0 22 9f |" | MOVE.L (A7)+,(A1) 000210c2 54 4f |TO | ADDQ.L #0x2,A7 000210c4 60 0c |` | BRA 0x210d2 000210c6 2f 11 |/ | MOVE.L (A1),-(A7) 000210c8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000210ce 58 4f |XO | ADDQ.L #0x4,A7 000210d0 22 92 |" | MOVE.L (A2),(A1) 000210d2 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 000210d6 4e 5e |N^ | UNLK A6 000210d8 4e 75 |Nu | RTS 000210da ; -------------------------------------------------------------------------------------- 000210da ; OMSI PASCAL Function 000210da ; <LVAR 0x008 1(r)> 000210da ; <LVAR -0x006 @ 4(r)> 000210da ; <LVAR -0x00a @> 000210da ; -------------------------------------------------------------------------------------- 000210da 4e 56 ff 92 |NV | LINK.W A6,#0xff92 000210de bf d5 | | CMPA.L (A5),A7 000210e0 62 06 |b | BHI 0x210e8 000210e2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000210e6 4e 76 |Nv | TRAPV 000210e8 de fc 00 64 | d | ADDA.W #0x64,A7 000210ec 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000210f0 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000210f6 47 ee ff f6 |G | LEA.L (A6-0xa),A3 000210fa 72 01 |r | MOVEQ.L #0x01,D1 000210fc 74 14 |t | MOVEQ.L #0x14,D2 000210fe 7a 10 |z | MOVEQ.L #0x10,D5 00021100 7c 12 || | MOVEQ.L #0x12,D6 00021102 7e 00 |~ | MOVEQ.L #0x00,D7 00021104 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7 0002110a 63 02 |c | BLS 0x2110e 0002110c 4e 4f |NO | TRAP #15 0002110e 28 07 |( | MOVE.L D7,D4 00021110 76 05 |v | MOVEQ.L #0x05,D3 00021112 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00021118 41 fa fc 90 |A | LEA.L 0x20daa,A0 0002111c 5d 4f |]O | SUBQ.L #0x6,A7 0002111e 22 4f |"O | MOVEA.L A7,A1 00021120 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00021124 70 04 |p | MOVEQ.L #0x04,D0 00021126 12 d8 | | MOVE.B (A0)+,(A1)+ 00021128 51 c8 ff fc |Q | DBF D0,0x21126 0002112c 51 4f |QO | SUBQ.L #0x8,A7 0002112e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021132 3f 01 |? | MOVE.W D1,-(A7) 00021134 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00021138 4e 92 |N | JSR (A2) 0002113a 58 4f |XO | ADDQ.L #0x4,A7 0002113c 0c 87 00 00 00 0a | | CMPI.L #0x0000000a,D7 00021142 63 02 |c | BLS 0x21146 00021144 4e 4f |NO | TRAP #15 00021146 20 07 | | MOVE.L D7,D0 00021148 e3 80 | | ASL.L #0x1,D0 0002114a 41 f9 00 02 3f 4c |A ?L | LEA.L 0x23f4c,A0 00021150 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00021154 d1 fc 00 00 bc 4a | J | ADDA.L #0xbc4a,A0 0002115a 42 80 |B | CLR.L D0 0002115c 30 10 |0 | MOVE.W (A0),D0 0002115e 2f 00 |/ | MOVE.L D0,-(A7) 00021160 48 78 00 04 |Hx | PEA.L 0x4 00021164 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 0002116a 50 4f |PO | ADDQ.L #0x8,A7 0002116c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021172 50 4f |PO | ADDQ.L #0x8,A7 00021174 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 0002117a de fc 00 0a | | ADDA.W #0xa,A7 0002117e 52 87 |R | ADDQ.L #0x1,D7 00021180 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7 00021186 6f 00 ff 7c |o | | BLE 0x21104 0002118a 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021190 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00021194 b0 01 | | CMP.B D1,D0 00021196 67 08 |g | BEQ 0x211a0 00021198 0c 00 00 02 | | CMPI.B #0x02,D0 0002119c 66 00 08 b2 |f | BNE 0x21a50 000211a0 48 6e ff fa |Hn | PEA.L (A6-0x6) 000211a4 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000211aa 58 4f |XO | ADDQ.L #0x4,A7 000211ac 30 39 00 02 fb 96 |09 | MOVE.W 0x2fb96,D0 000211b2 02 40 80 00 | @ | ANDI.W #0x8000,D0 000211b6 67 2a |g* | BEQ 0x211e2 000211b8 9e c6 | | SUBA.W D6,A7 000211ba 20 4f | O | MOVEA.L A7,A0 000211bc 43 fa f0 56 |C V | LEA.L 0x20214,A1 000211c0 70 10 |p | MOVEQ.L #0x10,D0 000211c2 10 d9 | | MOVE.B (A1)+,(A0)+ 000211c4 51 c8 ff fc |Q | DBF D0,0x211c2 000211c8 59 4f |YO | SUBQ.L #0x4,A7 000211ca 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000211ce 3f 01 |? | MOVE.W D1,-(A7) 000211d0 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 000211d4 4e 92 |N | JSR (A2) 000211d6 50 4f |PO | ADDQ.L #0x8,A7 000211d8 28 4b |(K | MOVEA.L A3,A4 000211da 4e ba fe 6e |N n | JSR 0x2104a 000211de de fc 00 16 | | ADDA.W #0x16,A7 000211e2 30 39 00 02 fb 96 |09 | MOVE.W 0x2fb96,D0 000211e8 02 40 40 00 | @@ | ANDI.W #0x4000,D0 000211ec 67 24 |g$ | BEQ 0x21212 000211ee 41 fa f0 44 |A D | LEA.L 0x20234,A0 000211f2 70 06 |p | MOVEQ.L #0x06,D0 000211f4 3f 20 |? | MOVE.W -(A0),-(A7) 000211f6 51 c8 ff fc |Q | DBF D0,0x211f4 000211fa 59 4f |YO | SUBQ.L #0x4,A7 000211fc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021200 3f 01 |? | MOVE.W D1,-(A7) 00021202 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00021206 4e 92 |N | JSR (A2) 00021208 50 4f |PO | ADDQ.L #0x8,A7 0002120a 28 4b |(K | MOVEA.L A3,A4 0002120c 4e ba fe 3c |N < | JSR 0x2104a 00021210 de c6 | | ADDA.W D6,A7 00021212 30 39 00 02 fb 98 |09 | MOVE.W 0x2fb98,D0 00021218 02 40 80 00 | @ | ANDI.W #0x8000,D0 0002121c 67 2c |g, | BEQ 0x2124a 0002121e 9e fc 00 0a | | SUBA.W #0xa,A7 00021222 20 4f | O | MOVEA.L A7,A0 00021224 43 fa f0 0e |C | LEA.L 0x20234,A1 00021228 70 08 |p | MOVEQ.L #0x08,D0 0002122a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002122c 51 c8 ff fc |Q | DBF D0,0x2122a 00021230 59 4f |YO | SUBQ.L #0x4,A7 00021232 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021236 3f 01 |? | MOVE.W D1,-(A7) 00021238 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002123c 4e 92 |N | JSR (A2) 0002123e 50 4f |PO | ADDQ.L #0x8,A7 00021240 28 4b |(K | MOVEA.L A3,A4 00021242 4e ba fe 06 |N | JSR 0x2104a 00021246 de fc 00 0e | | ADDA.W #0xe,A7 0002124a 30 39 00 02 fb 98 |09 | MOVE.W 0x2fb98,D0 00021250 02 40 40 00 | @@ | ANDI.W #0x4000,D0 00021254 67 2a |g* | BEQ 0x21280 00021256 9e c6 | | SUBA.W D6,A7 00021258 20 4f | O | MOVEA.L A7,A0 0002125a 43 fa ef e2 |C | LEA.L 0x2023e,A1 0002125e 70 10 |p | MOVEQ.L #0x10,D0 00021260 10 d9 | | MOVE.B (A1)+,(A0)+ 00021262 51 c8 ff fc |Q | DBF D0,0x21260 00021266 59 4f |YO | SUBQ.L #0x4,A7 00021268 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002126c 3f 01 |? | MOVE.W D1,-(A7) 0002126e 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00021272 4e 92 |N | JSR (A2) 00021274 50 4f |PO | ADDQ.L #0x8,A7 00021276 28 4b |(K | MOVEA.L A3,A4 00021278 4e ba fd d0 |N | JSR 0x2104a 0002127c de fc 00 16 | | ADDA.W #0x16,A7 00021280 30 39 00 02 fb 98 |09 | MOVE.W 0x2fb98,D0 00021286 02 40 20 00 | @ | ANDI.W #0x2000,D0 0002128a 67 2a |g* | BEQ 0x212b6 0002128c 9e c2 | | SUBA.W D2,A7 0002128e 20 4f | O | MOVEA.L A7,A0 00021290 43 fa ef be |C | LEA.L 0x20250,A1 00021294 70 12 |p | MOVEQ.L #0x12,D0 00021296 10 d9 | | MOVE.B (A1)+,(A0)+ 00021298 51 c8 ff fc |Q | DBF D0,0x21296 0002129c 59 4f |YO | SUBQ.L #0x4,A7 0002129e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212a2 3f 01 |? | MOVE.W D1,-(A7) 000212a4 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000212a8 4e 92 |N | JSR (A2) 000212aa 50 4f |PO | ADDQ.L #0x8,A7 000212ac 28 4b |(K | MOVEA.L A3,A4 000212ae 4e ba fd 9a |N | JSR 0x2104a 000212b2 de fc 00 18 | | ADDA.W #0x18,A7 000212b6 30 39 00 02 fb 98 |09 | MOVE.W 0x2fb98,D0 000212bc 02 40 10 00 | @ | ANDI.W #0x1000,D0 000212c0 67 24 |g$ | BEQ 0x212e6 000212c2 41 fa ef b2 |A | LEA.L 0x20276,A0 000212c6 70 08 |p | MOVEQ.L #0x08,D0 000212c8 3f 20 |? | MOVE.W -(A0),-(A7) 000212ca 51 c8 ff fc |Q | DBF D0,0x212c8 000212ce 59 4f |YO | SUBQ.L #0x4,A7 000212d0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212d4 3f 01 |? | MOVE.W D1,-(A7) 000212d6 3f 06 |? | MOVE.W D6,-(A7) 000212d8 4e 92 |N | JSR (A2) 000212da 50 4f |PO | ADDQ.L #0x8,A7 000212dc 28 4b |(K | MOVEA.L A3,A4 000212de 4e ba fd 6a |N j | JSR 0x2104a 000212e2 de fc 00 16 | | ADDA.W #0x16,A7 000212e6 30 39 00 02 fb 98 |09 | MOVE.W 0x2fb98,D0 000212ec 02 40 08 00 | @ | ANDI.W #0x0800,D0 000212f0 67 2a |g* | BEQ 0x2131c 000212f2 9e c2 | | SUBA.W D2,A7 000212f4 20 4f | O | MOVEA.L A7,A0 000212f6 43 fa ef 7e |C ~ | LEA.L 0x20276,A1 000212fa 70 12 |p | MOVEQ.L #0x12,D0 000212fc 10 d9 | | MOVE.B (A1)+,(A0)+ 000212fe 51 c8 ff fc |Q | DBF D0,0x212fc 00021302 59 4f |YO | SUBQ.L #0x4,A7 00021304 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021308 3f 01 |? | MOVE.W D1,-(A7) 0002130a 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 0002130e 4e 92 |N | JSR (A2) 00021310 50 4f |PO | ADDQ.L #0x8,A7 00021312 28 4b |(K | MOVEA.L A3,A4 00021314 4e ba fd 34 |N 4 | JSR 0x2104a 00021318 de fc 00 18 | | ADDA.W #0x18,A7 0002131c 30 39 00 02 fb 98 |09 | MOVE.W 0x2fb98,D0 00021322 02 40 04 00 | @ | ANDI.W #0x0400,D0 00021326 67 2a |g* | BEQ 0x21352 00021328 9e fc 00 0e | | SUBA.W #0xe,A7 0002132c 20 4f | O | MOVEA.L A7,A0 0002132e 43 fa ef 5a |C Z | LEA.L 0x2028a,A1 00021332 70 0c |p | MOVEQ.L #0x0c,D0 00021334 10 d9 | | MOVE.B (A1)+,(A0)+ 00021336 51 c8 ff fc |Q | DBF D0,0x21334 0002133a 59 4f |YO | SUBQ.L #0x4,A7 0002133c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021340 3f 01 |? | MOVE.W D1,-(A7) 00021342 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00021346 4e 92 |N | JSR (A2) 00021348 50 4f |PO | ADDQ.L #0x8,A7 0002134a 28 4b |(K | MOVEA.L A3,A4 0002134c 4e ba fc fc |N | JSR 0x2104a 00021350 de c6 | | ADDA.W D6,A7 00021352 30 39 00 02 fb 98 |09 | MOVE.W 0x2fb98,D0 00021358 02 40 02 00 | @ | ANDI.W #0x0200,D0 0002135c 67 24 |g$ | BEQ 0x21382 0002135e 41 fa ef 46 |A F | LEA.L 0x202a6,A0 00021362 70 06 |p | MOVEQ.L #0x06,D0 00021364 3f 20 |? | MOVE.W -(A0),-(A7) 00021366 51 c8 ff fc |Q | DBF D0,0x21364 0002136a 59 4f |YO | SUBQ.L #0x4,A7 0002136c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021370 3f 01 |? | MOVE.W D1,-(A7) 00021372 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00021376 4e 92 |N | JSR (A2) 00021378 50 4f |PO | ADDQ.L #0x8,A7 0002137a 28 4b |(K | MOVEA.L A3,A4 0002137c 4e ba fc cc |N | JSR 0x2104a 00021380 de c6 | | ADDA.W D6,A7 00021382 30 39 00 02 fb 98 |09 | MOVE.W 0x2fb98,D0 00021388 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 0002138c 66 28 |f( | BNE 0x213b6 0002138e 9e c5 | | SUBA.W D5,A7 00021390 20 4f | O | MOVEA.L A7,A0 00021392 43 fa ef 12 |C | LEA.L 0x202a6,A1 00021396 70 0e |p | MOVEQ.L #0x0e,D0 00021398 10 d9 | | MOVE.B (A1)+,(A0)+ 0002139a 51 c8 ff fc |Q | DBF D0,0x21398 0002139e 59 4f |YO | SUBQ.L #0x4,A7 000213a0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000213a4 3f 01 |? | MOVE.W D1,-(A7) 000213a6 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 000213aa 4e 92 |N | JSR (A2) 000213ac 50 4f |PO | ADDQ.L #0x8,A7 000213ae 28 4b |(K | MOVEA.L A3,A4 000213b0 4e ba fc 98 |N | JSR 0x2104a 000213b4 de c2 | | ADDA.W D2,A7 000213b6 30 39 00 02 fb 98 |09 | MOVE.W 0x2fb98,D0 000213bc 02 40 00 08 | @ | ANDI.W #0x0008,D0 000213c0 67 2a |g* | BEQ 0x213ec 000213c2 9e c2 | | SUBA.W D2,A7 000213c4 20 4f | O | MOVEA.L A7,A0 000213c6 43 fa ee ee |C | LEA.L 0x202b6,A1 000213ca 70 12 |p | MOVEQ.L #0x12,D0 000213cc 10 d9 | | MOVE.B (A1)+,(A0)+ 000213ce 51 c8 ff fc |Q | DBF D0,0x213cc 000213d2 59 4f |YO | SUBQ.L #0x4,A7 000213d4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000213d8 3f 01 |? | MOVE.W D1,-(A7) 000213da 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000213de 4e 92 |N | JSR (A2) 000213e0 50 4f |PO | ADDQ.L #0x8,A7 000213e2 28 4b |(K | MOVEA.L A3,A4 000213e4 4e ba fc 64 |N d | JSR 0x2104a 000213e8 de fc 00 18 | | ADDA.W #0x18,A7 000213ec 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 000213f2 02 40 80 00 | @ | ANDI.W #0x8000,D0 000213f6 67 26 |g& | BEQ 0x2141e 000213f8 2f 3a ee dc |/: | MOVE.L 0x202d6,-(A7) 000213fc 2f 3a ee d4 |/: | MOVE.L 0x202d2,-(A7) 00021400 2f 3a ee cc |/: | MOVE.L 0x202ce,-(A7) 00021404 2f 3a ee c4 |/: | MOVE.L 0x202ca,-(A7) 00021408 59 4f |YO | SUBQ.L #0x4,A7 0002140a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002140e 3f 01 |? | MOVE.W D1,-(A7) 00021410 3f 05 |? | MOVE.W D5,-(A7) 00021412 4e 92 |N | JSR (A2) 00021414 50 4f |PO | ADDQ.L #0x8,A7 00021416 28 4b |(K | MOVEA.L A3,A4 00021418 4e ba fc 30 |N 0 | JSR 0x2104a 0002141c de c2 | | ADDA.W D2,A7 0002141e 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 00021424 02 40 40 00 | @@ | ANDI.W #0x4000,D0 00021428 67 2a |g* | BEQ 0x21454 0002142a 5d 4f |]O | SUBQ.L #0x6,A7 0002142c 20 4f | O | MOVEA.L A7,A0 0002142e 43 fa ee aa |C | LEA.L 0x202da,A1 00021432 70 04 |p | MOVEQ.L #0x04,D0 00021434 10 d9 | | MOVE.B (A1)+,(A0)+ 00021436 51 c8 ff fc |Q | DBF D0,0x21434 0002143a 59 4f |YO | SUBQ.L #0x4,A7 0002143c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021440 3f 01 |? | MOVE.W D1,-(A7) 00021442 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00021446 4e 92 |N | JSR (A2) 00021448 50 4f |PO | ADDQ.L #0x8,A7 0002144a 28 4b |(K | MOVEA.L A3,A4 0002144c 4e ba fb fc |N | JSR 0x2104a 00021450 de fc 00 0a | | ADDA.W #0xa,A7 00021454 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 0002145a 02 40 20 00 | @ | ANDI.W #0x2000,D0 0002145e 67 2c |g, | BEQ 0x2148c 00021460 9e fc 00 18 | | SUBA.W #0x18,A7 00021464 20 4f | O | MOVEA.L A7,A0 00021466 43 fa ee 78 |C x | LEA.L 0x202e0,A1 0002146a 70 16 |p | MOVEQ.L #0x16,D0 0002146c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002146e 51 c8 ff fc |Q | DBF D0,0x2146c 00021472 59 4f |YO | SUBQ.L #0x4,A7 00021474 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021478 3f 01 |? | MOVE.W D1,-(A7) 0002147a 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 0002147e 4e 92 |N | JSR (A2) 00021480 50 4f |PO | ADDQ.L #0x8,A7 00021482 28 4b |(K | MOVEA.L A3,A4 00021484 4e ba fb c4 |N | JSR 0x2104a 00021488 de fc 00 1c | | ADDA.W #0x1c,A7 0002148c 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 00021492 02 40 10 00 | @ | ANDI.W #0x1000,D0 00021496 67 24 |g$ | BEQ 0x214bc 00021498 41 fa ee 6c |A l | LEA.L 0x20306,A0 0002149c 70 06 |p | MOVEQ.L #0x06,D0 0002149e 3f 20 |? | MOVE.W -(A0),-(A7) 000214a0 51 c8 ff fc |Q | DBF D0,0x2149e 000214a4 59 4f |YO | SUBQ.L #0x4,A7 000214a6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000214aa 3f 01 |? | MOVE.W D1,-(A7) 000214ac 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000214b0 4e 92 |N | JSR (A2) 000214b2 50 4f |PO | ADDQ.L #0x8,A7 000214b4 28 4b |(K | MOVEA.L A3,A4 000214b6 4e ba fb 92 |N | JSR 0x2104a 000214ba de c6 | | ADDA.W D6,A7 000214bc 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 000214c2 02 40 08 00 | @ | ANDI.W #0x0800,D0 000214c6 67 26 |g& | BEQ 0x214ee 000214c8 41 fa ee 46 |A F | LEA.L 0x20310,A0 000214cc 70 04 |p | MOVEQ.L #0x04,D0 000214ce 3f 20 |? | MOVE.W -(A0),-(A7) 000214d0 51 c8 ff fc |Q | DBF D0,0x214ce 000214d4 59 4f |YO | SUBQ.L #0x4,A7 000214d6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000214da 3f 01 |? | MOVE.W D1,-(A7) 000214dc 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000214e0 4e 92 |N | JSR (A2) 000214e2 50 4f |PO | ADDQ.L #0x8,A7 000214e4 28 4b |(K | MOVEA.L A3,A4 000214e6 4e ba fb 62 |N b | JSR 0x2104a 000214ea de fc 00 0e | | ADDA.W #0xe,A7 000214ee 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 000214f4 02 40 04 00 | @ | ANDI.W #0x0400,D0 000214f8 67 26 |g& | BEQ 0x21520 000214fa 41 fa ee 2a |A * | LEA.L 0x20326,A0 000214fe 70 0a |p | MOVEQ.L #0x0a,D0 00021500 3f 20 |? | MOVE.W -(A0),-(A7) 00021502 51 c8 ff fc |Q | DBF D0,0x21500 00021506 59 4f |YO | SUBQ.L #0x4,A7 00021508 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002150c 3f 01 |? | MOVE.W D1,-(A7) 0002150e 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00021512 4e 92 |N | JSR (A2) 00021514 50 4f |PO | ADDQ.L #0x8,A7 00021516 28 4b |(K | MOVEA.L A3,A4 00021518 4e ba fb 30 |N 0 | JSR 0x2104a 0002151c de fc 00 1a | | ADDA.W #0x1a,A7 00021520 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 00021526 02 40 02 00 | @ | ANDI.W #0x0200,D0 0002152a 67 24 |g$ | BEQ 0x21550 0002152c 2f 3a ee 00 |/: | MOVE.L 0x2032e,-(A7) 00021530 2f 3a ed f8 |/: | MOVE.L 0x2032a,-(A7) 00021534 2f 3a ed f0 |/: | MOVE.L 0x20326,-(A7) 00021538 59 4f |YO | SUBQ.L #0x4,A7 0002153a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002153e 3f 01 |? | MOVE.W D1,-(A7) 00021540 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 00021544 4e 92 |N | JSR (A2) 00021546 50 4f |PO | ADDQ.L #0x8,A7 00021548 28 4b |(K | MOVEA.L A3,A4 0002154a 4e ba fa fe |N | JSR 0x2104a 0002154e de c5 | | ADDA.W D5,A7 00021550 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 00021556 02 40 01 00 | @ | ANDI.W #0x0100,D0 0002155a 66 2a |f* | BNE 0x21586 0002155c 9e c6 | | SUBA.W D6,A7 0002155e 20 4f | O | MOVEA.L A7,A0 00021560 43 fa ed d0 |C | LEA.L 0x20332,A1 00021564 70 10 |p | MOVEQ.L #0x10,D0 00021566 10 d9 | | MOVE.B (A1)+,(A0)+ 00021568 51 c8 ff fc |Q | DBF D0,0x21566 0002156c 59 4f |YO | SUBQ.L #0x4,A7 0002156e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021572 3f 01 |? | MOVE.W D1,-(A7) 00021574 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00021578 4e 92 |N | JSR (A2) 0002157a 50 4f |PO | ADDQ.L #0x8,A7 0002157c 28 4b |(K | MOVEA.L A3,A4 0002157e 4e ba fa ca |N | JSR 0x2104a 00021582 de fc 00 16 | | ADDA.W #0x16,A7 00021586 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 0002158c 02 40 00 80 | @ | ANDI.W #0x0080,D0 00021590 66 28 |f( | BNE 0x215ba 00021592 9e c5 | | SUBA.W D5,A7 00021594 20 4f | O | MOVEA.L A7,A0 00021596 43 fa ed ac |C | LEA.L 0x20344,A1 0002159a 70 0e |p | MOVEQ.L #0x0e,D0 0002159c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002159e 51 c8 ff fc |Q | DBF D0,0x2159c 000215a2 59 4f |YO | SUBQ.L #0x4,A7 000215a4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215a8 3f 01 |? | MOVE.W D1,-(A7) 000215aa 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 000215ae 4e 92 |N | JSR (A2) 000215b0 50 4f |PO | ADDQ.L #0x8,A7 000215b2 28 4b |(K | MOVEA.L A3,A4 000215b4 4e ba fa 94 |N | JSR 0x2104a 000215b8 de c2 | | ADDA.W D2,A7 000215ba 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 000215c0 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 000215c4 66 26 |f& | BNE 0x215ec 000215c6 2f 3a ed 98 |/: | MOVE.L 0x20360,-(A7) 000215ca 2f 3a ed 90 |/: | MOVE.L 0x2035c,-(A7) 000215ce 2f 3a ed 88 |/: | MOVE.L 0x20358,-(A7) 000215d2 2f 3a ed 80 |/: | MOVE.L 0x20354,-(A7) 000215d6 59 4f |YO | SUBQ.L #0x4,A7 000215d8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215dc 3f 01 |? | MOVE.W D1,-(A7) 000215de 3f 05 |? | MOVE.W D5,-(A7) 000215e0 4e 92 |N | JSR (A2) 000215e2 50 4f |PO | ADDQ.L #0x8,A7 000215e4 28 4b |(K | MOVEA.L A3,A4 000215e6 4e ba fa 62 |N b | JSR 0x2104a 000215ea de c2 | | ADDA.W D2,A7 000215ec 30 39 00 02 fb 9a |09 | MOVE.W 0x2fb9a,D0 000215f2 c0 41 | A | AND.W D1,D0 000215f4 67 26 |g& | BEQ 0x2161c 000215f6 2f 3a ed 78 |/: x | MOVE.L 0x20370,-(A7) 000215fa 2f 3a ed 70 |/: p | MOVE.L 0x2036c,-(A7) 000215fe 2f 3a ed 68 |/: h | MOVE.L 0x20368,-(A7) 00021602 2f 3a ed 60 |/: ` | MOVE.L 0x20364,-(A7) 00021606 59 4f |YO | SUBQ.L #0x4,A7 00021608 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002160c 3f 01 |? | MOVE.W D1,-(A7) 0002160e 3f 05 |? | MOVE.W D5,-(A7) 00021610 4e 92 |N | JSR (A2) 00021612 50 4f |PO | ADDQ.L #0x8,A7 00021614 28 4b |(K | MOVEA.L A3,A4 00021616 4e ba fa 32 |N 2 | JSR 0x2104a 0002161a de c2 | | ADDA.W D2,A7 0002161c 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 00021622 02 40 80 00 | @ | ANDI.W #0x8000,D0 00021626 67 26 |g& | BEQ 0x2164e 00021628 41 fa ed 54 |A T | LEA.L 0x2037e,A0 0002162c 70 04 |p | MOVEQ.L #0x04,D0 0002162e 3f 20 |? | MOVE.W -(A0),-(A7) 00021630 51 c8 ff fc |Q | DBF D0,0x2162e 00021634 59 4f |YO | SUBQ.L #0x4,A7 00021636 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002163a 3f 01 |? | MOVE.W D1,-(A7) 0002163c 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00021640 4e 92 |N | JSR (A2) 00021642 50 4f |PO | ADDQ.L #0x8,A7 00021644 28 4b |(K | MOVEA.L A3,A4 00021646 4e ba fa 02 |N | JSR 0x2104a 0002164a de fc 00 0e | | ADDA.W #0xe,A7 0002164e 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 00021654 02 40 40 00 | @@ | ANDI.W #0x4000,D0 00021658 67 26 |g& | BEQ 0x21680 0002165a 3f 3a ed 26 |?: & | MOVE.W 0x20382,-(A7) 0002165e 3f 3a ed 20 |?: | MOVE.W 0x20380,-(A7) 00021662 3f 3a ed 1a |?: | MOVE.W 0x2037e,-(A7) 00021666 59 4f |YO | SUBQ.L #0x4,A7 00021668 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002166c 3f 01 |? | MOVE.W D1,-(A7) 0002166e 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00021672 4e 92 |N | JSR (A2) 00021674 50 4f |PO | ADDQ.L #0x8,A7 00021676 28 4b |(K | MOVEA.L A3,A4 00021678 4e ba f9 d0 |N | JSR 0x2104a 0002167c de fc 00 0a | | ADDA.W #0xa,A7 00021680 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 00021686 02 40 20 00 | @ | ANDI.W #0x2000,D0 0002168a 67 24 |g$ | BEQ 0x216b0 0002168c 41 fa ed 0a |A | LEA.L 0x20398,A0 00021690 70 04 |p | MOVEQ.L #0x04,D0 00021692 2f 20 |/ | MOVE.L -(A0),-(A7) 00021694 51 c8 ff fc |Q | DBF D0,0x21692 00021698 59 4f |YO | SUBQ.L #0x4,A7 0002169a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002169e 3f 01 |? | MOVE.W D1,-(A7) 000216a0 3f 02 |? | MOVE.W D2,-(A7) 000216a2 4e 92 |N | JSR (A2) 000216a4 50 4f |PO | ADDQ.L #0x8,A7 000216a6 28 4b |(K | MOVEA.L A3,A4 000216a8 4e ba f9 a0 |N | JSR 0x2104a 000216ac de fc 00 18 | | ADDA.W #0x18,A7 000216b0 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 000216b6 02 40 10 00 | @ | ANDI.W #0x1000,D0 000216ba 67 24 |g$ | BEQ 0x216e0 000216bc 41 fa ec ec |A | LEA.L 0x203aa,A0 000216c0 70 08 |p | MOVEQ.L #0x08,D0 000216c2 3f 20 |? | MOVE.W -(A0),-(A7) 000216c4 51 c8 ff fc |Q | DBF D0,0x216c2 000216c8 59 4f |YO | SUBQ.L #0x4,A7 000216ca 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216ce 3f 01 |? | MOVE.W D1,-(A7) 000216d0 3f 06 |? | MOVE.W D6,-(A7) 000216d2 4e 92 |N | JSR (A2) 000216d4 50 4f |PO | ADDQ.L #0x8,A7 000216d6 28 4b |(K | MOVEA.L A3,A4 000216d8 4e ba f9 70 |N p | JSR 0x2104a 000216dc de fc 00 16 | | ADDA.W #0x16,A7 000216e0 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 000216e6 02 40 08 00 | @ | ANDI.W #0x0800,D0 000216ea 67 26 |g& | BEQ 0x21712 000216ec 2f 3a ec c8 |/: | MOVE.L 0x203b6,-(A7) 000216f0 2f 3a ec c0 |/: | MOVE.L 0x203b2,-(A7) 000216f4 2f 3a ec b8 |/: | MOVE.L 0x203ae,-(A7) 000216f8 2f 3a ec b0 |/: | MOVE.L 0x203aa,-(A7) 000216fc 59 4f |YO | SUBQ.L #0x4,A7 000216fe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021702 3f 01 |? | MOVE.W D1,-(A7) 00021704 3f 05 |? | MOVE.W D5,-(A7) 00021706 4e 92 |N | JSR (A2) 00021708 50 4f |PO | ADDQ.L #0x8,A7 0002170a 28 4b |(K | MOVEA.L A3,A4 0002170c 4e ba f9 3c |N < | JSR 0x2104a 00021710 de c2 | | ADDA.W D2,A7 00021712 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 00021718 02 40 04 00 | @ | ANDI.W #0x0400,D0 0002171c 67 2c |g, | BEQ 0x2174a 0002171e 9e fc 00 16 | | SUBA.W #0x16,A7 00021722 20 4f | O | MOVEA.L A7,A0 00021724 43 fa ec 94 |C | LEA.L 0x203ba,A1 00021728 70 14 |p | MOVEQ.L #0x14,D0 0002172a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002172c 51 c8 ff fc |Q | DBF D0,0x2172a 00021730 59 4f |YO | SUBQ.L #0x4,A7 00021732 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021736 3f 01 |? | MOVE.W D1,-(A7) 00021738 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 0002173c 4e 92 |N | JSR (A2) 0002173e 50 4f |PO | ADDQ.L #0x8,A7 00021740 28 4b |(K | MOVEA.L A3,A4 00021742 4e ba f9 06 |N | JSR 0x2104a 00021746 de fc 00 1a | | ADDA.W #0x1a,A7 0002174a 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 00021750 02 40 02 00 | @ | ANDI.W #0x0200,D0 00021754 67 26 |g& | BEQ 0x2177c 00021756 2f 3a ec 84 |/: | MOVE.L 0x203dc,-(A7) 0002175a 2f 3a ec 7c |/: | | MOVE.L 0x203d8,-(A7) 0002175e 2f 3a ec 74 |/: t | MOVE.L 0x203d4,-(A7) 00021762 2f 3a ec 6c |/: l | MOVE.L 0x203d0,-(A7) 00021766 59 4f |YO | SUBQ.L #0x4,A7 00021768 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002176c 3f 01 |? | MOVE.W D1,-(A7) 0002176e 3f 05 |? | MOVE.W D5,-(A7) 00021770 4e 92 |N | JSR (A2) 00021772 50 4f |PO | ADDQ.L #0x8,A7 00021774 28 4b |(K | MOVEA.L A3,A4 00021776 4e ba f8 d2 |N | JSR 0x2104a 0002177a de c2 | | ADDA.W D2,A7 0002177c 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 00021782 02 40 01 00 | @ | ANDI.W #0x0100,D0 00021786 67 26 |g& | BEQ 0x217ae 00021788 2f 3a ec 62 |/: b | MOVE.L 0x203ec,-(A7) 0002178c 2f 3a ec 5a |/: Z | MOVE.L 0x203e8,-(A7) 00021790 2f 3a ec 52 |/: R | MOVE.L 0x203e4,-(A7) 00021794 2f 3a ec 4a |/: J | MOVE.L 0x203e0,-(A7) 00021798 59 4f |YO | SUBQ.L #0x4,A7 0002179a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002179e 3f 01 |? | MOVE.W D1,-(A7) 000217a0 3f 05 |? | MOVE.W D5,-(A7) 000217a2 4e 92 |N | JSR (A2) 000217a4 50 4f |PO | ADDQ.L #0x8,A7 000217a6 28 4b |(K | MOVEA.L A3,A4 000217a8 4e ba f8 a0 |N | JSR 0x2104a 000217ac de c2 | | ADDA.W D2,A7 000217ae 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 000217b4 02 40 00 80 | @ | ANDI.W #0x0080,D0 000217b8 67 24 |g$ | BEQ 0x217de 000217ba 41 fa ec 48 |A H | LEA.L 0x20404,A0 000217be 70 04 |p | MOVEQ.L #0x04,D0 000217c0 2f 20 |/ | MOVE.L -(A0),-(A7) 000217c2 51 c8 ff fc |Q | DBF D0,0x217c0 000217c6 59 4f |YO | SUBQ.L #0x4,A7 000217c8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000217cc 3f 01 |? | MOVE.W D1,-(A7) 000217ce 3f 02 |? | MOVE.W D2,-(A7) 000217d0 4e 92 |N | JSR (A2) 000217d2 50 4f |PO | ADDQ.L #0x8,A7 000217d4 28 4b |(K | MOVEA.L A3,A4 000217d6 4e ba f8 72 |N r | JSR 0x2104a 000217da de fc 00 18 | | ADDA.W #0x18,A7 000217de 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 000217e4 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 000217e8 67 24 |g$ | BEQ 0x2180e 000217ea 41 fa ec 26 |A & | LEA.L 0x20412,A0 000217ee 70 06 |p | MOVEQ.L #0x06,D0 000217f0 3f 20 |? | MOVE.W -(A0),-(A7) 000217f2 51 c8 ff fc |Q | DBF D0,0x217f0 000217f6 59 4f |YO | SUBQ.L #0x4,A7 000217f8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000217fc 3f 01 |? | MOVE.W D1,-(A7) 000217fe 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00021802 4e 92 |N | JSR (A2) 00021804 50 4f |PO | ADDQ.L #0x8,A7 00021806 28 4b |(K | MOVEA.L A3,A4 00021808 4e ba f8 40 |N @ | JSR 0x2104a 0002180c de c6 | | ADDA.W D6,A7 0002180e 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 00021814 02 40 00 20 | @ | ANDI.W #0x0020,D0 00021818 67 26 |g& | BEQ 0x21840 0002181a 2f 3a ec 02 |/: | MOVE.L 0x2041e,-(A7) 0002181e 2f 3a eb fa |/: | MOVE.L 0x2041a,-(A7) 00021822 2f 3a eb f2 |/: | MOVE.L 0x20416,-(A7) 00021826 2f 3a eb ea |/: | MOVE.L 0x20412,-(A7) 0002182a 59 4f |YO | SUBQ.L #0x4,A7 0002182c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021830 3f 01 |? | MOVE.W D1,-(A7) 00021832 3f 05 |? | MOVE.W D5,-(A7) 00021834 4e 92 |N | JSR (A2) 00021836 50 4f |PO | ADDQ.L #0x8,A7 00021838 28 4b |(K | MOVEA.L A3,A4 0002183a 4e ba f8 0e |N | JSR 0x2104a 0002183e de c2 | | ADDA.W D2,A7 00021840 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 00021846 c0 45 | E | AND.W D5,D0 00021848 67 24 |g$ | BEQ 0x2186e 0002184a 2f 3a eb de |/: | MOVE.L 0x2042a,-(A7) 0002184e 2f 3a eb d6 |/: | MOVE.L 0x20426,-(A7) 00021852 2f 3a eb ce |/: | MOVE.L 0x20422,-(A7) 00021856 59 4f |YO | SUBQ.L #0x4,A7 00021858 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002185c 3f 01 |? | MOVE.W D1,-(A7) 0002185e 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 00021862 4e 92 |N | JSR (A2) 00021864 50 4f |PO | ADDQ.L #0x8,A7 00021866 28 4b |(K | MOVEA.L A3,A4 00021868 4e ba f7 e0 |N | JSR 0x2104a 0002186c de c5 | | ADDA.W D5,A7 0002186e 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 00021874 02 40 00 04 | @ | ANDI.W #0x0004,D0 00021878 67 2c |g, | BEQ 0x218a6 0002187a 9e fc 00 1e | | SUBA.W #0x1e,A7 0002187e 20 4f | O | MOVEA.L A7,A0 00021880 43 fa eb ac |C | LEA.L 0x2042e,A1 00021884 70 1c |p | MOVEQ.L #0x1c,D0 00021886 10 d9 | | MOVE.B (A1)+,(A0)+ 00021888 51 c8 ff fc |Q | DBF D0,0x21886 0002188c 59 4f |YO | SUBQ.L #0x4,A7 0002188e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021892 3f 01 |? | MOVE.W D1,-(A7) 00021894 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00021898 4e 92 |N | JSR (A2) 0002189a 50 4f |PO | ADDQ.L #0x8,A7 0002189c 28 4b |(K | MOVEA.L A3,A4 0002189e 4e ba f7 aa |N | JSR 0x2104a 000218a2 de fc 00 22 | " | ADDA.W #0x22,A7 000218a6 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 000218ac c0 41 | A | AND.W D1,D0 000218ae 67 26 |g& | BEQ 0x218d6 000218b0 2f 3a eb a6 |/: | MOVE.L 0x20458,-(A7) 000218b4 2f 3a eb 9e |/: | MOVE.L 0x20454,-(A7) 000218b8 2f 3a eb 96 |/: | MOVE.L 0x20450,-(A7) 000218bc 2f 3a eb 8e |/: | MOVE.L 0x2044c,-(A7) 000218c0 59 4f |YO | SUBQ.L #0x4,A7 000218c2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000218c6 3f 01 |? | MOVE.W D1,-(A7) 000218c8 3f 05 |? | MOVE.W D5,-(A7) 000218ca 4e 92 |N | JSR (A2) 000218cc 50 4f |PO | ADDQ.L #0x8,A7 000218ce 28 4b |(K | MOVEA.L A3,A4 000218d0 4e ba f7 78 |N x | JSR 0x2104a 000218d4 de c2 | | ADDA.W D2,A7 000218d6 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 000218dc 02 40 80 00 | @ | ANDI.W #0x8000,D0 000218e0 67 26 |g& | BEQ 0x21908 000218e2 41 fa eb 82 |A | LEA.L 0x20466,A0 000218e6 70 04 |p | MOVEQ.L #0x04,D0 000218e8 3f 20 |? | MOVE.W -(A0),-(A7) 000218ea 51 c8 ff fc |Q | DBF D0,0x218e8 000218ee 59 4f |YO | SUBQ.L #0x4,A7 000218f0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000218f4 3f 01 |? | MOVE.W D1,-(A7) 000218f6 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000218fa 4e 92 |N | JSR (A2) 000218fc 50 4f |PO | ADDQ.L #0x8,A7 000218fe 28 4b |(K | MOVEA.L A3,A4 00021900 4e ba f7 48 |N H | JSR 0x2104a 00021904 de fc 00 0e | | ADDA.W #0xe,A7 00021908 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 0002190e 02 40 40 00 | @@ | ANDI.W #0x4000,D0 00021912 67 28 |g( | BEQ 0x2193c 00021914 9e c5 | | SUBA.W D5,A7 00021916 20 4f | O | MOVEA.L A7,A0 00021918 43 fa eb 4c |C L | LEA.L 0x20466,A1 0002191c 70 0e |p | MOVEQ.L #0x0e,D0 0002191e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021920 51 c8 ff fc |Q | DBF D0,0x2191e 00021924 59 4f |YO | SUBQ.L #0x4,A7 00021926 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002192a 3f 01 |? | MOVE.W D1,-(A7) 0002192c 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00021930 4e 92 |N | JSR (A2) 00021932 50 4f |PO | ADDQ.L #0x8,A7 00021934 28 4b |(K | MOVEA.L A3,A4 00021936 4e ba f7 12 |N | JSR 0x2104a 0002193a de c2 | | ADDA.W D2,A7 0002193c 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 00021942 02 40 10 00 | @ | ANDI.W #0x1000,D0 00021946 67 28 |g( | BEQ 0x21970 00021948 9e c5 | | SUBA.W D5,A7 0002194a 20 4f | O | MOVEA.L A7,A0 0002194c 43 fa eb 28 |C ( | LEA.L 0x20476,A1 00021950 70 0e |p | MOVEQ.L #0x0e,D0 00021952 10 d9 | | MOVE.B (A1)+,(A0)+ 00021954 51 c8 ff fc |Q | DBF D0,0x21952 00021958 59 4f |YO | SUBQ.L #0x4,A7 0002195a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002195e 3f 01 |? | MOVE.W D1,-(A7) 00021960 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00021964 4e 92 |N | JSR (A2) 00021966 50 4f |PO | ADDQ.L #0x8,A7 00021968 28 4b |(K | MOVEA.L A3,A4 0002196a 4e ba f6 de |N | JSR 0x2104a 0002196e de c2 | | ADDA.W D2,A7 00021970 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 00021976 02 40 08 00 | @ | ANDI.W #0x0800,D0 0002197a 67 24 |g$ | BEQ 0x219a0 0002197c 41 fa eb 1c |A | LEA.L 0x2049a,A0 00021980 70 04 |p | MOVEQ.L #0x04,D0 00021982 2f 20 |/ | MOVE.L -(A0),-(A7) 00021984 51 c8 ff fc |Q | DBF D0,0x21982 00021988 59 4f |YO | SUBQ.L #0x4,A7 0002198a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002198e 3f 01 |? | MOVE.W D1,-(A7) 00021990 3f 02 |? | MOVE.W D2,-(A7) 00021992 4e 92 |N | JSR (A2) 00021994 50 4f |PO | ADDQ.L #0x8,A7 00021996 28 4b |(K | MOVEA.L A3,A4 00021998 4e ba f6 b0 |N | JSR 0x2104a 0002199c de fc 00 18 | | ADDA.W #0x18,A7 000219a0 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 000219a6 02 40 04 00 | @ | ANDI.W #0x0400,D0 000219aa 67 2a |g* | BEQ 0x219d6 000219ac 9e c6 | | SUBA.W D6,A7 000219ae 20 4f | O | MOVEA.L A7,A0 000219b0 43 fa ea e8 |C | LEA.L 0x2049a,A1 000219b4 70 10 |p | MOVEQ.L #0x10,D0 000219b6 10 d9 | | MOVE.B (A1)+,(A0)+ 000219b8 51 c8 ff fc |Q | DBF D0,0x219b6 000219bc 59 4f |YO | SUBQ.L #0x4,A7 000219be 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000219c2 3f 01 |? | MOVE.W D1,-(A7) 000219c4 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 000219c8 4e 92 |N | JSR (A2) 000219ca 50 4f |PO | ADDQ.L #0x8,A7 000219cc 28 4b |(K | MOVEA.L A3,A4 000219ce 4e ba f6 7a |N z | JSR 0x2104a 000219d2 de fc 00 16 | | ADDA.W #0x16,A7 000219d6 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 000219dc 02 40 00 80 | @ | ANDI.W #0x0080,D0 000219e0 67 24 |g$ | BEQ 0x21a06 000219e2 2f 3a ea d0 |/: | MOVE.L 0x204b4,-(A7) 000219e6 2f 3a ea c8 |/: | MOVE.L 0x204b0,-(A7) 000219ea 2f 3a ea c0 |/: | MOVE.L 0x204ac,-(A7) 000219ee 59 4f |YO | SUBQ.L #0x4,A7 000219f0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000219f4 3f 01 |? | MOVE.W D1,-(A7) 000219f6 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 000219fa 4e 92 |N | JSR (A2) 000219fc 50 4f |PO | ADDQ.L #0x8,A7 000219fe 28 4b |(K | MOVEA.L A3,A4 00021a00 4e ba f6 48 |N H | JSR 0x2104a 00021a04 de c5 | | ADDA.W D5,A7 00021a06 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 00021a0c 02 40 00 20 | @ | ANDI.W #0x0020,D0 00021a10 67 2a |g* | BEQ 0x21a3c 00021a12 9e c6 | | SUBA.W D6,A7 00021a14 20 4f | O | MOVEA.L A7,A0 00021a16 43 fa ea a0 |C | LEA.L 0x204b8,A1 00021a1a 70 10 |p | MOVEQ.L #0x10,D0 00021a1c 10 d9 | | MOVE.B (A1)+,(A0)+ 00021a1e 51 c8 ff fc |Q | DBF D0,0x21a1c 00021a22 59 4f |YO | SUBQ.L #0x4,A7 00021a24 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021a28 3f 01 |? | MOVE.W D1,-(A7) 00021a2a 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00021a2e 4e 92 |N | JSR (A2) 00021a30 50 4f |PO | ADDQ.L #0x8,A7 00021a32 28 4b |(K | MOVEA.L A3,A4 00021a34 4e ba f6 14 |N | JSR 0x2104a 00021a38 de fc 00 16 | | ADDA.W #0x16,A7 00021a3c 20 6e ff fa | n | MOVEA.L (A6-0x6),A0 00021a40 4a 50 |JP | TST.W (A0) 00021a42 67 0c |g | BEQ 0x21a50 00021a44 2f 2e ff fa |/. | MOVE.L (A6-0x6),-(A7) 00021a48 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021a4e 58 4f |XO | ADDQ.L #0x4,A7 00021a50 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00021a54 0c 00 00 02 | | CMPI.B #0x02,D0 00021a58 66 0c |f | BNE 0x21a66 00021a5a 2f 39 00 02 c8 8e |/9 | MOVE.L 0x2c88e,-(A7) 00021a60 4e ba f4 68 |N h | JSR 0x20eca 00021a64 58 4f |XO | ADDQ.L #0x4,A7 00021a66 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021a6a 4e 5e |N^ | UNLK A6 00021a6c 4e 75 |Nu | RTS 00021a6e ; -------------------------------------------------------------------------------------- 00021a6e ; OMSI PASCAL Function 00021a6e ; <LVAR -0x004 2(r)> 00021a6e ; <LVAR -0x006 2(r)> 00021a6e ; <LVAR -0x008 2(r)> 00021a6e ; <LVAR -0x00a 2(r)> 00021a6e ; <LVAR -0x00e 2(r)> 00021a6e ; <LVAR -0x016 2(r)> 00021a6e ; <LVAR -0x01e 2(r)> 00021a6e ; <LVAR -0x020 2(r)> 00021a6e ; <LVAR -0x022 2(r)> 00021a6e ; <LVAR -0x024 2(r)> 00021a6e ; <LVAR -0x02a 2(r)> 00021a6e ; -------------------------------------------------------------------------------------- 00021a6e 4e 56 ff 96 |NV | LINK.W A6,#0xff96 00021a72 bf d5 | | CMPA.L (A5),A7 00021a74 62 06 |b | BHI 0x21a7c 00021a76 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021a7a 4e 76 |Nv | TRAPV 00021a7c de fc 00 36 | 6 | ADDA.W #0x36,A7 00021a80 48 e7 db 80 |H | MOVEM.L A0+D7+D6+D4+D3+D1+D0,-(A7) 00021a84 72 13 |r | MOVEQ.L #0x13,D1 00021a86 2e 3c 00 00 93 03 |.< | MOVE.L #0x9303,D7 00021a8c e1 87 | | ASL.L #0x8,D7 00021a8e e1 87 | | ASL.L #0x8,D7 00021a90 06 87 00 00 fd c0 | | ADDI.L #0x0000fdc0,D7 00021a96 7c 00 || | MOVEQ.L #0x00,D6 00021a98 78 02 |x | MOVEQ.L #0x02,D4 00021a9a 26 06 |& | MOVE.L D6,D3 00021a9c 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00021aa2 2f 07 |/ | MOVE.L D7,-(A7) 00021aa4 d9 97 | | ADD.L D4,(A7) 00021aa6 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00021aaa bc 81 | | CMP.L D1,D6 00021aac 63 02 |c | BLS 0x21ab0 00021aae 4e 4f |NO | TRAP #15 00021ab0 20 06 | | MOVE.L D6,D0 00021ab2 e3 80 | | ASL.L #0x1,D0 00021ab4 41 f6 08 d6 |A | LEA.L (A6+D0.L-#0x2a),A0 00021ab8 2f 08 |/ | MOVE.L A0,-(A7) 00021aba 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021abe 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00021ac2 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word 00021ac8 de fc 00 0e | | ADDA.W #0xe,A7 00021acc 52 86 |R | ADDQ.L #0x1,D6 00021ace bc 81 | | CMP.L D1,D6 00021ad0 6f c6 |o | BLE 0x21a98 00021ad2 33 ee ff d6 00 02 fb 96 |3 | MOVE.W (A6-0x2a),0x2fb96 00021ada 33 ee ff de 00 02 fb 98 |3 | MOVE.W (A6-0x22),0x2fb98 00021ae2 33 ee ff e0 00 02 fb 9a |3 | MOVE.W (A6-0x20),0x2fb9a 00021aea 33 ee ff e2 00 02 fb 9c |3 | MOVE.W (A6-0x1e),0x2fb9c 00021af2 33 ee ff f8 00 02 fb 9e |3 | MOVE.W (A6-0x8),0x2fb9e 00021afa 33 ee ff fa 00 02 fb a0 |3 | MOVE.W (A6-0x6),0x2fba0 00021b02 33 ee ff fc 00 02 fb a2 |3 | MOVE.W (A6-0x4),0x2fba2 00021b0a 33 ee ff f2 00 02 fb a4 |3 | MOVE.W (A6-0xe),0x2fba4 00021b12 33 ee ff dc 00 02 fb a6 |3 | MOVE.W (A6-0x24),0x2fba6 00021b1a 33 ee ff ea 00 02 fb a8 |3 | MOVE.W (A6-0x16),0x2fba8 00021b22 33 ee ff f6 00 02 fb aa |3 | MOVE.W (A6-0xa),0x2fbaa 00021b2a 4c df 01 db |L | MOVEM.L (A7)+,D0+D1+D3+D4+D6+D7+A0 00021b2e 4e 5e |N^ | UNLK A6 00021b30 4e 75 |Nu | RTS 00021b32 ; -------------------------------------------------------------------------------------- 00021b32 ; OMSI PASCAL Function 00021b32 ; <LVAR -0x008 2(w)> 00021b32 ; <LVAR -0x00e 2(w)> 00021b32 ; <LVAR -0x012 @> 00021b32 ; <LVAR -0x014 @ 1(r)> 00021b32 ; -------------------------------------------------------------------------------------- 00021b32 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 00021b36 bf d5 | | CMPA.L (A5),A7 00021b38 62 06 |b | BHI 0x21b40 00021b3a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021b3e 4e 76 |Nv | TRAPV 00021b40 de fc 00 3c | < | ADDA.W #0x3c,A7 00021b44 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021b48 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe) 00021b4e 30 39 00 02 fd 40 |09 @ | MOVE.W 0x2fd40,D0 00021b54 e1 40 | @ | ASL.W #0x8,D0 00021b56 52 40 |R@ | ADDQ.W #0x1,D0 00021b58 0c 40 ff ff | @ | CMPI.W #0xffff,D0 00021b5c 63 02 |c | BLS 0x21b60 00021b5e 4e 4f |NO | TRAP #15 00021b60 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00021b64 48 6e ff ee |Hn | PEA.L (A6-0x12) 00021b68 41 f9 00 02 fb 96 |A | LEA.L 0x2fb96,A0 00021b6e 2f 08 |/ | MOVE.L A0,-(A7) 00021b70 42 67 |Bg | CLR.W -(A7) 00021b72 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021b78 50 4f |PO | ADDQ.L #0x8,A7 00021b7a 42 57 |BW | CLR.W (A7) 00021b7c 48 6e ff ec |Hn | PEA.L (A6-0x14) 00021b80 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021b86 5c 4f |\O | ADDQ.L #0x6,A7 00021b88 4a 2e ff ec |J. | TST.B (A6-0x14) 00021b8c 66 2a |f* | BNE 0x21bb8 00021b8e 41 fa e9 5e |A ^ | LEA.L 0x204ee,A0 00021b92 70 08 |p | MOVEQ.L #0x08,D0 00021b94 2f 20 |/ | MOVE.L -(A0),-(A7) 00021b96 51 c8 ff fc |Q | DBF D0,0x21b94 00021b9a 59 4f |YO | SUBQ.L #0x4,A7 00021b9c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ba0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021ba4 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7) 00021ba8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021bae 50 4f |PO | ADDQ.L #0x8,A7 00021bb0 4e ba f2 8c |N | JSR 0x20e3e 00021bb4 de fc 00 28 | ( | ADDA.W #0x28,A7 00021bb8 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021bbc 4e 5e |N^ | UNLK A6 00021bbe 4e 75 |Nu | RTS 00021bc0 ; -------------------------------------------------------------------------------------- 00021bc0 ; OMSI PASCAL Function 00021bc0 ; <LVAR 0x00c 2(r)> 00021bc0 ; <LVAR 0x008 4(r)> 00021bc0 ; <LVAR -0x002 @ 1(r)> 00021bc0 ; <LVAR -0x006 2(w)> 00021bc0 ; <LVAR -0x008 2(w)> 00021bc0 ; <LVAR -0x00a 2(r)> 00021bc0 ; <LVAR -0x00c 2(r)> 00021bc0 ; <LVAR -0x00e 2(w)> 00021bc0 ; <LVAR -0x010 2(r)> 00021bc0 ; <LVAR -0x012 @ 2(r)> 00021bc0 ; -------------------------------------------------------------------------------------- 00021bc0 4e 56 ff 9c |NV | LINK.W A6,#0xff9c 00021bc4 bf d5 | | CMPA.L (A5),A7 00021bc6 62 06 |b | BHI 0x21bce 00021bc8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021bcc 4e 76 |Nv | TRAPV 00021bce de fc 00 52 | R | ADDA.W #0x52,A7 00021bd2 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00021bd6 42 6e ff ee |Bn | CLR.W (A6-0x12) 00021bda 42 6e ff f0 |Bn | CLR.W (A6-0x10) 00021bde 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe) 00021be4 42 6e ff f4 |Bn | CLR.W (A6-0xc) 00021be8 42 6e ff f6 |Bn | CLR.W (A6-0xa) 00021bec 30 39 00 02 fd 40 |09 @ | MOVE.W 0x2fd40,D0 00021bf2 e1 40 | @ | ASL.W #0x8,D0 00021bf4 06 40 00 0e | @ | ADDI.W #0x000e,D0 00021bf8 0c 40 ff ff | @ | CMPI.W #0xffff,D0 00021bfc 63 02 |c | BLS 0x21c00 00021bfe 4e 4f |NO | TRAP #15 00021c00 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00021c04 3d 6e 00 0c ff fa |=n | MOVE.W (A6+0xc),(A6-0x6) 00021c0a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021c0e 48 6e ff ee |Hn | PEA.L (A6-0x12) 00021c12 22 48 |"H | MOVEA.L A0,A1 00021c14 2f 09 |/ | MOVE.L A1,-(A7) 00021c16 42 67 |Bg | CLR.W -(A7) 00021c18 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021c1e 50 4f |PO | ADDQ.L #0x8,A7 00021c20 42 57 |BW | CLR.W (A7) 00021c22 48 6e ff fe |Hn | PEA.L (A6-0x2) 00021c26 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021c2c 5c 4f |\O | ADDQ.L #0x6,A7 00021c2e 02 50 00 ff | P | ANDI.W #0x00ff,(A0) 00021c32 4a 2e ff fe |J. | TST.B (A6-0x2) 00021c36 66 48 |fH | BNE 0x21c80 00021c38 9e fc 00 32 | 2 | SUBA.W #0x32,A7 00021c3c 20 4f | O | MOVEA.L A7,A0 00021c3e 43 fa e8 ae |C | LEA.L 0x204ee,A1 00021c42 70 30 |p0 | MOVEQ.L #0x30,D0 00021c44 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c46 51 c8 ff fc |Q | DBF D0,0x21c44 00021c4a 51 4f |QO | SUBQ.L #0x8,A7 00021c4c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021c50 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021c54 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 00021c58 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021c5e 58 4f |XO | ADDQ.L #0x4,A7 00021c60 42 80 |B | CLR.L D0 00021c62 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 00021c66 2f 00 |/ | MOVE.L D0,-(A7) 00021c68 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021c6e 58 4f |XO | ADDQ.L #0x4,A7 00021c70 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021c76 50 4f |PO | ADDQ.L #0x8,A7 00021c78 4e ba f1 c4 |N | JSR 0x20e3e 00021c7c de fc 00 36 | 6 | ADDA.W #0x36,A7 00021c80 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021c84 4e 5e |N^ | UNLK A6 00021c86 4e 75 |Nu | RTS 00021c88 ; -------------------------------------------------------------------------------------- 00021c88 ; OMSI PASCAL Function 00021c88 ; <LVAR 0x008 2(r)> 00021c88 ; <LVAR -0x004 2(rw)> 00021c88 ; <LVAR -0x006 2(rw)> 00021c88 ; <LVAR -0x008 2(rw)> 00021c88 ; <LVAR -0x482 @> 00021c88 ; <LVAR -0x486 @ 2(r)> 00021c88 ; <LVAR -0x8fe @> 00021c88 ; <LVAR -0x902 @> 00021c88 ; -------------------------------------------------------------------------------------- 00021c88 4e 56 f6 cc |NV | LINK.W A6,#0xf6cc 00021c8c bf d5 | | CMPA.L (A5),A7 00021c8e 62 06 |b | BHI 0x21c96 00021c90 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021c94 4e 76 |Nv | TRAPV 00021c96 de fc 00 32 | 2 | ADDA.W #0x32,A7 00021c9a 48 e7 c7 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00021c9e 45 ee ff fc |E | LEA.L (A6-0x4),A2 00021ca2 47 f9 00 02 fb 8c |G | LEA.L 0x2fb8c,A3 00021ca8 7e 00 |~ | MOVEQ.L #0x00,D7 00021caa 34 ae 00 08 |4 | MOVE.W (A6+0x8),(A2) 00021cae 02 52 00 03 | R | ANDI.W #0x0003,(A2) 00021cb2 0c 87 00 00 ff ff | | CMPI.L #0x0000ffff,D7 00021cb8 63 02 |c | BLS 0x21cbc 00021cba 4e 4f |NO | TRAP #15 00021cbc 3f 07 |? | MOVE.W D7,-(A7) 00021cbe 48 6e fb 7a |Hn z | PEA.L (A6-0x486) 00021cc2 4e ba fe fc |N | JSR 0x21bc0 00021cc6 5c 4f |\O | ADDQ.L #0x6,A7 00021cc8 0c 87 00 00 04 77 | w | CMPI.L #0x00000477,D7 00021cce 63 02 |c | BLS 0x21cd2 00021cd0 4e 4f |NO | TRAP #15 00021cd2 41 ee f6 fe |A | LEA.L (A6-0x902),A0 00021cd6 41 f0 78 00 |A x | LEA.L (A0+D7.L),A0 00021cda 30 2e fb 7a |0. z | MOVE.W (A6-0x486),D0 00021cde 41 bc 00 ff |A | CHK.W #0xff,D0 00021ce2 11 40 04 80 | @ | MOVE.B D0,(A0+0x480) 00021ce6 52 87 |R | ADDQ.L #0x1,D7 00021ce8 0c 87 00 00 04 00 | | CMPI.L #0x00000400,D7 00021cee 66 c2 |f | BNE 0x21cb2 00021cf0 41 ee f7 02 |A | LEA.L (A6-0x8fe),A0 00021cf4 43 ee fb 7e |C ~ | LEA.L (A6-0x482),A1 00021cf8 30 3c 01 1d |0< | MOVE.W #0x11d,D0 00021cfc 20 d9 | | MOVE.L (A1)+,(A0)+ 00021cfe 51 c8 ff fc |Q | DBF D0,0x21cfc 00021d02 41 ee f6 fe |A | LEA.L (A6-0x902),A0 00021d06 30 12 |0 | MOVE.W (A2),D0 00021d08 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00021d0c 42 80 |B | CLR.L D0 00021d0e 10 28 02 54 | ( T | MOVE.B (A0+0x254),D0 00021d12 e1 40 | @ | ASL.W #0x8,D0 00021d14 42 81 |B | CLR.L D1 00021d16 12 28 01 d4 | ( | MOVE.B (A0+0x1d4),D1 00021d1a d2 40 | @ | ADD.W D0,D1 00021d1c 3a 01 |: | MOVE.W D1,D5 00021d1e 42 80 |B | CLR.L D0 00021d20 10 28 03 54 | ( T | MOVE.B (A0+0x354),D0 00021d24 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00021d28 42 80 |B | CLR.L D0 00021d2a 10 28 02 d4 | ( | MOVE.B (A0+0x2d4),D0 00021d2e 3d 40 ff fa |=@ | MOVE.W D0,(A6-0x6) 00021d32 42 53 |BS | CLR.W (A3) 00021d34 7c 05 || | MOVEQ.L #0x05,D6 00021d36 30 06 |0 | MOVE.W D6,D0 00021d38 e5 40 | @ | ASL.W #0x2,D0 00021d3a 41 f9 00 02 3f 4c |A ?L | LEA.L 0x23f4c,A0 00021d40 ba 70 00 1a | p | CMP.W (A0+D0.W+#0x1a),D5 00021d44 66 1a |f | BNE 0x21d60 00021d46 42 81 |B | CLR.L D1 00021d48 12 30 00 1c | 0 | MOVE.B (A0+D0.W+#0x1c),D1 00021d4c b2 6e ff f8 | n | CMP.W (A6-0x8),D1 00021d50 66 0e |f | BNE 0x21d60 00021d52 42 81 |B | CLR.L D1 00021d54 12 30 00 1d | 0 | MOVE.B (A0+D0.W+#0x1d),D1 00021d58 b2 6e ff fa | n | CMP.W (A6-0x6),D1 00021d5c 66 02 |f | BNE 0x21d60 00021d5e 36 86 |6 | MOVE.W D6,(A3) 00021d60 53 46 |SF | SUBQ.W #0x1,D6 00021d62 6c d2 |l | BGE 0x21d36 00021d64 4c df 0f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3 00021d68 4e 5e |N^ | UNLK A6 00021d6a 4e 75 |Nu | RTS 00021d6c ; -------------------------------------------------------------------------------------- 00021d6c ; OMSI PASCAL Function 00021d6c ; <LVAR 0x00a 4(r)> 00021d6c ; <LVAR 0x008 1(r)> 00021d6c ; -------------------------------------------------------------------------------------- 00021d6c 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 ; Spelunked 00021d70 bf d5 | | CMPA.L (A5),A7 00021d72 62 06 |b | BHI 0x21d7a 00021d74 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021d78 4e 76 |Nv | TRAPV 00021d7a de fc 00 2a | * | ADDA.W #0x2a,A7 00021d7e 48 e7 d8 c0 |H | MOVEM.L A1+A0+D4+D3+D1+D0,-(A7) 00021d82 41 ec 00 0e |A | LEA.L (A4+0xe),A0 00021d86 43 f9 00 01 02 c0 |C | LEA.L AppendChar(MOD b : String; a : char),A1 00021d8c 72 30 |r0 | MOVEQ.L #0x30,D1 00021d8e 28 2e 00 0a |(. | MOVE.L (A6+0xa),D4 00021d92 76 0a |v | MOVEQ.L #0x0a,D3 00021d94 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00021d9a 2f 10 |/ | MOVE.L (A0),-(A7) 00021d9c 20 04 | | MOVE.L D4,D0 00021d9e d0 81 | | ADD.L D1,D0 00021da0 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 00021da6 63 02 |c | BLS 0x21daa 00021da8 4e 4f |NO | TRAP #15 00021daa 1f 00 | | MOVE.B D0,-(A7) 00021dac 4e 91 |N | JSR (A1) 00021dae 54 4f |TO | ADDQ.L #0x2,A7 00021db0 2e 90 |. | MOVE.L (A0),(A7) 00021db2 d6 41 | A | ADD.W D1,D3 00021db4 1f 03 | | MOVE.B D3,-(A7) 00021db6 4e 91 |N | JSR (A1) 00021db8 5c 4f |\O | ADDQ.L #0x6,A7 00021dba 4a 2e 00 08 |J. | TST.B (A6+0x8) 00021dbe 67 0a |g | BEQ 0x21dca 00021dc0 2f 10 |/ | MOVE.L (A0),-(A7) 00021dc2 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00021dc6 4e 91 |N | JSR (A1) 00021dc8 5c 4f |\O | ADDQ.L #0x6,A7 00021dca 4c df 03 1b |L | MOVEM.L (A7)+,D0+D1+D3+D4+A0+A1 00021dce 4e 5e |N^ | UNLK A6 00021dd0 4e 75 |Nu | RTS 00021dd2 ; -------------------------------------------------------------------------------------- 00021dd2 ; OMSI PASCAL Function 00021dd2 ; <LVAR 0x00c 2(r)> 00021dd2 ; <LVAR 0x008 2(r)> 00021dd2 ; <LVAR -0x006 4(rw)> 00021dd2 ; <LVAR -0x00a 4(rw)> 00021dd2 ; <LVAR -0x014 @> 00021dd2 ; -------------------------------------------------------------------------------------- 00021dd2 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00021dd6 bf d5 | | CMPA.L (A5),A7 00021dd8 62 06 |b | BHI 0x21de0 00021dda 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021dde 4e 76 |Nv | TRAPV 00021de0 de fc 00 44 | D | ADDA.W #0x44,A7 00021de4 48 e7 e7 c8 |H | MOVEM.L A4+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00021de8 41 ee ff ec |A | LEA.L (A6-0x14),A0 00021dec 43 fa ff 7e |C ~ | LEA.L 0x21d6c,A1 00021df0 74 3a |t: | MOVEQ.L #0x3a,D2 00021df2 42 80 |B | CLR.L D0 00021df4 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 00021df8 42 81 |B | CLR.L D1 00021dfa 32 2e 00 0c |2. | MOVE.W (A6+0xc),D1 00021dfe 44 81 |D | NEG.L D1 00021e00 d2 80 | | ADD.L D0,D1 00021e02 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 00021e08 63 02 |c | BLS 0x21e0c 00021e0a 4e 4f |NO | TRAP #15 00021e0c 3e 01 |> | MOVE.W D1,D7 00021e0e 42 80 |B | CLR.L D0 00021e10 30 07 |0 | MOVE.W D7,D0 00021e12 80 fc 07 08 | | DIVU.W #0x708,D0 00021e16 42 81 |B | CLR.L D1 00021e18 32 00 |2 | MOVE.W D0,D1 00021e1a 2c 01 |, | MOVE.L D1,D6 00021e1c 48 40 |H@ | SWAP.W D0 00021e1e 3e 00 |> | MOVE.W D0,D7 00021e20 42 80 |B | CLR.L D0 00021e22 30 07 |0 | MOVE.W D7,D0 00021e24 80 fc 00 1e | | DIVU.W #0x1e,D0 00021e28 42 81 |B | CLR.L D1 00021e2a 32 00 |2 | MOVE.W D0,D1 00021e2c 2a 01 |* | MOVE.L D1,D5 00021e2e 48 40 |H@ | SWAP.W D0 00021e30 3e 00 |> | MOVE.W D0,D7 00021e32 42 80 |B | CLR.L D0 00021e34 30 07 |0 | MOVE.W D7,D0 00021e36 e3 80 | | ASL.L #0x1,D0 00021e38 2d 40 ff f6 |-@ | MOVE.L D0,(A6-0xa) 00021e3c 2f 3a e6 ee |/: | MOVE.L 0x2052c,-(A7) 00021e40 2f 3a e6 e6 |/: | MOVE.L 0x20528,-(A7) 00021e44 2f 3a e6 de |/: | MOVE.L 0x20524,-(A7) 00021e48 2f 3a e6 d6 |/: | MOVE.L 0x20520,-(A7) 00021e4c 59 4f |YO | SUBQ.L #0x4,A7 00021e4e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021e52 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021e56 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 00021e5a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021e60 50 4f |PO | ADDQ.L #0x8,A7 00021e62 2d 5f ff fa |-_ | MOVE.L (A7)+,(A6-0x6) 00021e66 de fc 00 0c | | ADDA.W #0xc,A7 00021e6a 2e 86 |. | MOVE.L D6,(A7) 00021e6c 1f 02 | | MOVE.B D2,-(A7) 00021e6e 28 48 |(H | MOVEA.L A0,A4 00021e70 4e 91 |N | JSR (A1) 00021e72 54 4f |TO | ADDQ.L #0x2,A7 00021e74 2e 85 |. | MOVE.L D5,(A7) 00021e76 1f 02 | | MOVE.B D2,-(A7) 00021e78 28 48 |(H | MOVEA.L A0,A4 00021e7a 4e 91 |N | JSR (A1) 00021e7c 54 4f |TO | ADDQ.L #0x2,A7 00021e7e 2e ae ff f6 |. | MOVE.L (A6-0xa),(A7) 00021e82 42 27 |B' | CLR.B -(A7) 00021e84 28 48 |(H | MOVEA.L A0,A4 00021e86 4e 91 |N | JSR (A1) 00021e88 54 4f |TO | ADDQ.L #0x2,A7 00021e8a 2e ae ff fa |. | MOVE.L (A6-0x6),(A7) 00021e8e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021e94 58 4f |XO | ADDQ.L #0x4,A7 00021e96 4c df 13 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A4 00021e9a 4e 5e |N^ | UNLK A6 00021e9c 4e 75 |Nu | RTS 00021e9e ; -------------------------------------------------------------------------------------- 00021e9e ; OMSI PASCAL Function 00021e9e ; -------------------------------------------------------------------------------------- 00021e9e 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00021ea2 bf d5 | | CMPA.L (A5),A7 00021ea4 62 06 |b | BHI 0x21eac 00021ea6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021eaa 4e 76 |Nv | TRAPV 00021eac de fc 00 30 | 0 | ADDA.W #0x30,A7 00021eb0 48 e7 e3 80 |H | MOVEM.L A0+D7+D6+D2+D1+D0,-(A7) 00021eb4 74 1d |t | MOVEQ.L #0x1d,D2 00021eb6 7e 01 |~ | MOVEQ.L #0x01,D7 00021eb8 20 07 | | MOVE.L D7,D0 00021eba e3 80 | | ASL.L #0x1,D0 00021ebc 22 00 |" | MOVE.L D0,D1 00021ebe 53 81 |S | SUBQ.L #0x1,D1 00021ec0 b2 82 | | CMP.L D2,D1 00021ec2 63 02 |c | BLS 0x21ec6 00021ec4 4e 4f |NO | TRAP #15 00021ec6 41 f9 00 02 3f 4c |A ?L | LEA.L 0x23f4c,A0 00021ecc d1 fc 00 00 b8 40 | @ | ADDA.L #0xb840,A0 00021ed2 1c 30 18 36 | 0 6 | MOVE.B (A0+D1.L+#0x36),D6 00021ed6 53 80 |S | SUBQ.L #0x1,D0 00021ed8 53 80 |S | SUBQ.L #0x1,D0 00021eda b0 82 | | CMP.L D2,D0 00021edc 63 02 |c | BLS 0x21ee0 00021ede 4e 4f |NO | TRAP #15 00021ee0 11 b0 08 36 18 36 | 6 6 | MOVE.B (A0+D0.L+#0x36),(A0+D1.L+#0x36) 00021ee6 11 86 08 36 | 6 | MOVE.B D6,(A0+D0.L+#0x36) 00021eea 52 87 |R | ADDQ.L #0x1,D7 00021eec 0c 87 00 00 00 0f | | CMPI.L #0x0000000f,D7 00021ef2 6f c4 |o | BLE 0x21eb8 00021ef4 4c df 01 c7 |L | MOVEM.L (A7)+,D0+D1+D2+D6+D7+A0 00021ef8 4e 5e |N^ | UNLK A6 00021efa 4e 75 |Nu | RTS 00021efc ; -------------------------------------------------------------------------------------- 00021efc ; OMSI PASCAL Function 00021efc ; <LVAR 0x008 1(rw)> 00021efc ; <LVAR -0x018 2(r)> 00021efc ; -------------------------------------------------------------------------------------- 00021efc 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 00021f00 bf d5 | | CMPA.L (A5),A7 00021f02 62 06 |b | BHI 0x21f0a 00021f04 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021f08 4e 76 |Nv | TRAPV 00021f0a de fc 00 36 | 6 | ADDA.W #0x36,A7 00021f0e 48 e7 db 80 |H | MOVEM.L A0+D7+D6+D4+D3+D1+D0,-(A7) 00021f12 72 13 |r | MOVEQ.L #0x13,D1 00021f14 2e 3c 00 00 93 03 |.< | MOVE.L #0x9303,D7 00021f1a e1 87 | | ASL.L #0x8,D7 00021f1c e1 87 | | ASL.L #0x8,D7 00021f1e 30 39 00 02 fd 40 |09 @ | MOVE.W 0x2fd40,D0 00021f24 e4 40 | @ | ASR.W #0x2,D0 00021f26 0c 40 00 03 | @ | CMPI.W #0x0003,D0 00021f2a 63 02 |c | BLS 0x21f2e 00021f2c 4e 4e |NN | TRAP #14 00021f2e d0 40 | @ | ADD.W D0,D0 00021f30 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00021f38 00 08 | | .CONST 0x8 ; [0x0] -> 0x21f40 00021f3a 00 10 | | .CONST 0x10 ; [0x1] -> 0x21f48 00021f3c 00 18 | | .CONST 0x18 ; [0x2] -> 0x21f50 00021f3e 00 20 | | .CONST 0x20 ; [0x3] -> 0x21f58 00021f40 switch@0x21f30[0x0]: 00021f40 06 87 00 00 fd c0 | | ADDI.L #0x0000fdc0,D7 00021f46 60 16 |` | BRA 0x21f5e 00021f48 switch@0x21f30[0x1]: 00021f48 06 87 00 00 fc c0 | | ADDI.L #0x0000fcc0,D7 00021f4e 60 0e |` | BRA 0x21f5e 00021f50 switch@0x21f30[0x2]: 00021f50 06 87 00 00 fc 80 | | ADDI.L #0x0000fc80,D7 00021f56 60 06 |` | BRA 0x21f5e 00021f58 switch@0x21f30[0x3]: 00021f58 06 87 00 00 fc 40 | @ | ADDI.L #0x0000fc40,D7 00021f5e 7c 00 || | MOVEQ.L #0x00,D6 00021f60 78 02 |x | MOVEQ.L #0x02,D4 00021f62 26 06 |& | MOVE.L D6,D3 00021f64 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00021f6a 2f 07 |/ | MOVE.L D7,-(A7) 00021f6c d9 97 | | ADD.L D4,(A7) 00021f6e 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00021f72 bc 81 | | CMP.L D1,D6 00021f74 63 02 |c | BLS 0x21f78 00021f76 4e 4f |NO | TRAP #15 00021f78 20 06 | | MOVE.L D6,D0 00021f7a e3 80 | | ASL.L #0x1,D0 00021f7c 41 f6 08 d4 |A | LEA.L (A6+D0.L-#0x2c),A0 00021f80 2f 08 |/ | MOVE.L A0,-(A7) 00021f82 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021f86 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00021f8a 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word 00021f90 de fc 00 0e | | ADDA.W #0xe,A7 00021f94 52 86 |R | ADDQ.L #0x1,D6 00021f96 bc 81 | | CMP.L D1,D6 00021f98 6f c6 |o | BLE 0x21f60 00021f9a 42 2e 00 08 |B. | CLR.B (A6+0x8) 00021f9e 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0 00021fa2 02 40 00 10 | @ | ANDI.W #0x0010,D0 00021fa6 67 04 |g | BEQ 0x21fac 00021fa8 52 2e 00 08 |R. | ADDQ.B #0x1,(A6+0x8) 00021fac 4c df 01 db |L | MOVEM.L (A7)+,D0+D1+D3+D4+D6+D7+A0 00021fb0 4e 5e |N^ | UNLK A6 00021fb2 4e 75 |Nu | RTS 00021fb4 ; -------------------------------------------------------------------------------------- 00021fb4 ; OMSI PASCAL Function 00021fb4 ; <LVAR 0x008 4(r)> 00021fb4 ; <LVAR -0x008 4(rw)> 00021fb4 ; <LVAR -0x030 @ 1(r)> 00021fb4 ; <LVAR -0x03c @ 2(r)> 00021fb4 ; <LVAR -0x03e 2(r)> 00021fb4 ; <LVAR -0x040 2(r)> 00021fb4 ; <LVAR -0x042 2(w)> 00021fb4 ; <LVAR -0x044 2(r)> 00021fb4 ; <LVAR -0x046 2(r)> 00021fb4 ; <LVAR -0x048 2(w)> 00021fb4 ; <LVAR -0x04a 2(r)> 00021fb4 ; <LVAR -0x04c @ 2(r)> 00021fb4 ; -------------------------------------------------------------------------------------- 00021fb4 4e 56 ff 22 |NV " | LINK.W A6,#0xff22 00021fb8 bf d5 | | CMPA.L (A5),A7 00021fba 62 06 |b | BHI 0x21fc2 00021fbc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021fc0 4e 76 |Nv | TRAPV 00021fc2 de fc 00 8e | | ADDA.W #0x8e,A7 00021fc6 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021fca 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021fd0 74 01 |t | MOVEQ.L #0x01,D2 00021fd2 76 0c |v | MOVEQ.L #0x0c,D3 00021fd4 78 0f |x | MOVEQ.L #0x0f,D4 00021fd6 7a 1e |z | MOVEQ.L #0x1e,D5 00021fd8 42 27 |B' | CLR.B -(A7) 00021fda 4e b9 00 01 03 ac |N | JSR Set_is_open_ERROR_LOG(a : Bool) 00021fe0 54 4f |TO | ADDQ.L #0x2,A7 00021fe2 23 c2 00 02 00 20 |# | MOVE.L D2,0x20020 00021fe8 23 c2 00 01 00 26 |# & | MOVE.L D2,0x10026 00021fee 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 00021ff2 0c 80 00 00 00 63 | c | CMPI.L #0x00000063,D0 00021ff8 66 40 |f@ | BNE 0x2203a 00021ffa 9e fc 00 28 | ( | SUBA.W #0x28,A7 00021ffe 20 4f | O | MOVEA.L A7,A0 00022000 43 fa e5 2e |C . | LEA.L 0x20530,A1 00022004 70 26 |p& | MOVEQ.L #0x26,D0 00022006 10 d9 | | MOVE.B (A1)+,(A0)+ 00022008 51 c8 ff fc |Q | DBF D0,0x22006 0002200c 51 4f |QO | SUBQ.L #0x8,A7 0002200e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022012 3f 02 |? | MOVE.W D2,-(A7) 00022014 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00022018 4e 92 |N | JSR (A2) 0002201a 50 4f |PO | ADDQ.L #0x8,A7 0002201c 48 78 00 00 |Hx | PEA.L 0x0 00022020 48 78 00 0f |Hx | PEA.L 0xf 00022024 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 0002202a de c3 | | ADDA.W D3,A7 0002202c 20 1f | | MOVE.L (A7)+,D0 0002202e b0 84 | | CMP.L D4,D0 00022030 63 02 |c | BLS 0x22034 00022032 4e 4f |NO | TRAP #15 00022034 de fc 00 28 | ( | ADDA.W #0x28,A7 00022038 60 06 |` | BRA 0x22040 0002203a b0 84 | | CMP.L D4,D0 0002203c 63 02 |c | BLS 0x22040 0002203e 4e 4f |NO | TRAP #15 00022040 33 c0 00 02 fd 40 |3 @ | MOVE.W D0,0x2fd40 00022046 42 6e ff b4 |Bn | CLR.W (A6-0x4c) 0002204a 42 6e ff b6 |Bn | CLR.W (A6-0x4a) 0002204e 3d 7c 00 02 ff b8 |=| | MOVE.W #0x2,(A6-0x48) 00022054 42 6e ff ba |Bn | CLR.W (A6-0x46) 00022058 42 6e ff bc |Bn | CLR.W (A6-0x44) 0002205c 30 39 00 02 fd 40 |09 @ | MOVE.W 0x2fd40,D0 00022062 e1 40 | @ | ASL.W #0x8,D0 00022064 0c 40 ff ff | @ | CMPI.W #0xffff,D0 00022068 63 02 |c | BLS 0x2206c 0002206a 4e 4f |NO | TRAP #15 0002206c 3d 40 ff be |=@ | MOVE.W D0,(A6-0x42) 00022070 42 6e ff c0 |Bn | CLR.W (A6-0x40) 00022074 42 6e ff c2 |Bn | CLR.W (A6-0x3e) 00022078 48 6e ff b4 |Hn | PEA.L (A6-0x4c) 0002207c 41 ee ff c4 |A | LEA.L (A6-0x3c),A0 00022080 2f 08 |/ | MOVE.L A0,-(A7) 00022082 42 67 |Bg | CLR.W -(A7) 00022084 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 0002208a 50 4f |PO | ADDQ.L #0x8,A7 0002208c 42 57 |BW | CLR.W (A7) 0002208e 48 6e ff d0 |Hn | PEA.L (A6-0x30) 00022092 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00022098 5c 4f |\O | ADDQ.L #0x6,A7 0002209a 30 2e ff c4 |0. | MOVE.W (A6-0x3c),D0 0002209e b0 42 | B | CMP.W D2,D0 000220a0 67 22 |g" | BEQ 0x220c4 000220a2 41 fa e5 2a |A * | LEA.L 0x205ce,A0 000220a6 70 0e |p | MOVEQ.L #0x0e,D0 000220a8 3f 20 |? | MOVE.W -(A0),-(A7) 000220aa 51 c8 ff fc |Q | DBF D0,0x220a8 000220ae 59 4f |YO | SUBQ.L #0x4,A7 000220b0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000220b4 3f 02 |? | MOVE.W D2,-(A7) 000220b6 3f 05 |? | MOVE.W D5,-(A7) 000220b8 4e 92 |N | JSR (A2) 000220ba 50 4f |PO | ADDQ.L #0x8,A7 000220bc 4e ba ed 80 |N | JSR 0x20e3e 000220c0 de fc 00 22 | " | ADDA.W #0x22,A7 000220c4 30 39 00 02 fd 40 |09 @ | MOVE.W 0x2fd40,D0 000220ca 41 84 |A | CHK.W D4,D0 000220cc 33 c0 00 01 00 08 |3 | MOVE.W D0,0x10008 000220d2 33 fc 7f ff 00 01 00 0c |3 | MOVE.W #0x7fff,0x1000c 000220da 33 fc 7f ff 00 01 00 0a |3 | MOVE.W #0x7fff,0x1000a 000220e2 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000220e6 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000220ea 48 78 00 01 |Hx | PEA.L 0x1 000220ee 2f 39 00 02 fb 92 |/9 | MOVE.L 0x2fb92,-(A7) 000220f4 48 6e ff d0 |Hn | PEA.L (A6-0x30) 000220f8 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 000220fe de fc 00 10 | | ADDA.W #0x10,A7 00022102 4a 2e ff d0 |J. | TST.B (A6-0x30) 00022106 66 2a |f* | BNE 0x22132 00022108 9e fc 00 2a | * | SUBA.W #0x2a,A7 0002210c 20 4f | O | MOVEA.L A7,A0 0002210e 43 fa e4 48 |C H | LEA.L 0x20558,A1 00022112 70 28 |p( | MOVEQ.L #0x28,D0 00022114 10 d9 | | MOVE.B (A1)+,(A0)+ 00022116 51 c8 ff fc |Q | DBF D0,0x22114 0002211a 59 4f |YO | SUBQ.L #0x4,A7 0002211c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022120 3f 02 |? | MOVE.W D2,-(A7) 00022122 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 00022126 4e 92 |N | JSR (A2) 00022128 50 4f |PO | ADDQ.L #0x8,A7 0002212a 4e ba ed 12 |N | JSR 0x20e3e 0002212e de fc 00 2e | . | ADDA.W #0x2e,A7 00022132 30 39 00 02 f7 8e |09 | MOVE.W 0x2f78e,D0 00022138 0c 40 7f ed | @ | CMPI.W #0x7fed,D0 0002213c 67 2a |g* | BEQ 0x22168 0002213e 9e fc 00 14 | | SUBA.W #0x14,A7 00022142 20 4f | O | MOVEA.L A7,A0 00022144 43 fa e4 3c |C < | LEA.L 0x20582,A1 00022148 70 12 |p | MOVEQ.L #0x12,D0 0002214a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002214c 51 c8 ff fc |Q | DBF D0,0x2214a 00022150 59 4f |YO | SUBQ.L #0x4,A7 00022152 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022156 3f 02 |? | MOVE.W D2,-(A7) 00022158 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 0002215c 4e 92 |N | JSR (A2) 0002215e 50 4f |PO | ADDQ.L #0x8,A7 00022160 4e ba ec dc |N | JSR 0x20e3e 00022164 de fc 00 18 | | ADDA.W #0x18,A7 00022168 30 39 00 02 f7 90 |09 | MOVE.W 0x2f790,D0 0002216e 0c 40 00 03 | @ | CMPI.W #0x0003,D0 00022172 67 28 |g( | BEQ 0x2219c 00022174 9e fc 00 1a | | SUBA.W #0x1a,A7 00022178 20 4f | O | MOVEA.L A7,A0 0002217a 43 fa e4 1a |C | LEA.L 0x20596,A1 0002217e 70 18 |p | MOVEQ.L #0x18,D0 00022180 10 d9 | | MOVE.B (A1)+,(A0)+ 00022182 51 c8 ff fc |Q | DBF D0,0x22180 00022186 59 4f |YO | SUBQ.L #0x4,A7 00022188 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002218c 3f 02 |? | MOVE.W D2,-(A7) 0002218e 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00022192 4e 92 |N | JSR (A2) 00022194 50 4f |PO | ADDQ.L #0x8,A7 00022196 4e ba ec a6 |N | JSR 0x20e3e 0002219a de c5 | | ADDA.W D5,A7 0002219c 23 f9 00 02 f7 94 00 02 |# | MOVE.L 0x2f794,0x2fd42 000221a4 fd 42 | B | 000221a6 4e ba fc f6 |N | JSR 0x21e9e 000221aa 41 f9 00 02 f7 e0 |A | LEA.L 0x2f7e0,A0 000221b0 70 0e |p | MOVEQ.L #0x0e,D0 000221b2 3f 20 |? | MOVE.W -(A0),-(A7) 000221b4 51 c8 ff fc |Q | DBF D0,0x221b2 000221b8 51 4f |QO | SUBQ.L #0x8,A7 000221ba 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000221be 3f 02 |? | MOVE.W D2,-(A7) 000221c0 3f 05 |? | MOVE.W D5,-(A7) 000221c2 4e 92 |N | JSR (A2) 000221c4 50 4f |PO | ADDQ.L #0x8,A7 000221c6 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000221cc 58 4f |XO | ADDQ.L #0x4,A7 000221ce 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 000221d2 de c5 | | ADDA.W D5,A7 000221d4 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000221da 51 4f |QO | SUBQ.L #0x8,A7 000221dc 20 4f | O | MOVEA.L A7,A0 000221de 43 fa e5 d4 |C | LEA.L 0x207b4,A1 000221e2 70 06 |p | MOVEQ.L #0x06,D0 000221e4 10 d9 | | MOVE.B (A1)+,(A0)+ 000221e6 51 c8 ff fc |Q | DBF D0,0x221e4 000221ea 51 4f |QO | SUBQ.L #0x8,A7 000221ec 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000221f0 3f 02 |? | MOVE.W D2,-(A7) 000221f2 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000221f6 4e 92 |N | JSR (A2) 000221f8 2e ae ff f8 |. | MOVE.L (A6-0x8),(A7) 000221fc 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022202 58 4f |XO | ADDQ.L #0x4,A7 00022204 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002220a 50 4f |PO | ADDQ.L #0x8,A7 0002220c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022212 de c3 | | ADDA.W D3,A7 00022214 30 39 00 02 fd 40 |09 @ | MOVE.W 0x2fd40,D0 0002221a 41 84 |A | CHK.W D4,D0 0002221c 3f 00 |? | MOVE.W D0,-(A7) 0002221e 4e ba fa 68 |N h | JSR 0x21c88 00022222 54 4f |TO | ADDQ.L #0x2,A7 00022224 30 39 00 02 fb 8c |09 | MOVE.W 0x2fb8c,D0 0002222a e5 40 | @ | ASL.W #0x2,D0 0002222c 41 f9 00 02 3f 4c |A ?L | LEA.L 0x23f4c,A0 00022232 32 30 00 1a |20 | MOVE.W (A0+D0.W+#0x1a),D1 00022236 b2 79 00 02 fd 42 | y B | CMP.W 0x2fd42,D1 0002223c 66 1a |f | BNE 0x22258 0002223e 12 30 00 1c | 0 | MOVE.B (A0+D0.W+#0x1c),D1 00022242 b2 39 00 02 fd 44 | 9 D | CMP.B 0x2fd44,D1 00022248 66 0e |f | BNE 0x22258 0002224a 10 30 00 1d | 0 | MOVE.B (A0+D0.W+#0x1d),D0 0002224e b0 39 00 02 fd 45 | 9 E | CMP.B 0x2fd45,D0 00022254 67 00 03 34 |g 4 | BEQ 0x2258a 00022258 9e fc 00 32 | 2 | SUBA.W #0x32,A7 0002225c 20 4f | O | MOVEA.L A7,A0 0002225e 43 fa e3 6e |C n | LEA.L 0x205ce,A1 00022262 70 30 |p0 | MOVEQ.L #0x30,D0 00022264 10 d9 | | MOVE.B (A1)+,(A0)+ 00022266 51 c8 ff fc |Q | DBF D0,0x22264 0002226a 59 4f |YO | SUBQ.L #0x4,A7 0002226c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022270 3f 02 |? | MOVE.W D2,-(A7) 00022272 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 00022276 4e 92 |N | JSR (A2) 00022278 50 4f |PO | ADDQ.L #0x8,A7 0002227a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022280 de fc 00 36 | 6 | ADDA.W #0x36,A7 00022284 41 fa e5 52 |A R | LEA.L 0x207d8,A0 00022288 70 06 |p | MOVEQ.L #0x06,D0 0002228a 2f 20 |/ | MOVE.L -(A0),-(A7) 0002228c 51 c8 ff fc |Q | DBF D0,0x2228a 00022290 2f 3a e5 4e |/: N | MOVE.L 0x207e0,-(A7) 00022294 2f 3a e5 46 |/: F | MOVE.L 0x207dc,-(A7) 00022298 2f 3a e5 3e |/: > | MOVE.L 0x207d8,-(A7) 0002229c 2f 3a e5 4a |/: J | MOVE.L 0x207e8,-(A7) 000222a0 2f 3a e5 42 |/: B | MOVE.L 0x207e4,-(A7) 000222a4 51 4f |QO | SUBQ.L #0x8,A7 000222a6 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 000222aa 3f 02 |? | MOVE.W D2,-(A7) 000222ac 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 000222b0 4e 92 |N | JSR (A2) 000222b2 58 4f |XO | ADDQ.L #0x4,A7 000222b4 30 39 00 02 fb 8c |09 | MOVE.W 0x2fb8c,D0 000222ba e5 40 | @ | ASL.W #0x2,D0 000222bc 41 f9 00 02 3f 4c |A ?L | LEA.L 0x23f4c,A0 000222c2 42 81 |B | CLR.L D1 000222c4 32 30 00 1a |20 | MOVE.W (A0+D0.W+#0x1a),D1 000222c8 2f 01 |/ | MOVE.L D1,-(A7) 000222ca 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000222d0 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000222d4 3f 02 |? | MOVE.W D2,-(A7) 000222d6 3f 03 |? | MOVE.W D3,-(A7) 000222d8 4e 92 |N | JSR (A2) 000222da 58 4f |XO | ADDQ.L #0x4,A7 000222dc 30 39 00 02 fb 8c |09 | MOVE.W 0x2fb8c,D0 000222e2 e5 40 | @ | ASL.W #0x2,D0 000222e4 41 f9 00 02 3f 4c |A ?L | LEA.L 0x23f4c,A0 000222ea 42 81 |B | CLR.L D1 000222ec 12 30 00 1c | 0 | MOVE.B (A0+D0.W+#0x1c),D1 000222f0 2f 01 |/ | MOVE.L D1,-(A7) 000222f2 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000222f8 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000222fc 3f 02 |? | MOVE.W D2,-(A7) 000222fe 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00022302 4e 92 |N | JSR (A2) 00022304 58 4f |XO | ADDQ.L #0x4,A7 00022306 30 39 00 02 fb 8c |09 | MOVE.W 0x2fb8c,D0 0002230c e5 40 | @ | ASL.W #0x2,D0 0002230e 41 f9 00 02 3f 4c |A ?L | LEA.L 0x23f4c,A0 00022314 42 81 |B | CLR.L D1 00022316 12 30 00 1d | 0 | MOVE.B (A0+D0.W+#0x1d),D1 0002231a 2f 01 |/ | MOVE.L D1,-(A7) 0002231c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022322 58 4f |XO | ADDQ.L #0x4,A7 00022324 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 0002232a de fc 00 18 | | ADDA.W #0x18,A7 0002232e 28 5f |(_ | MOVEA.L (A7)+,A4 00022330 de fc 00 26 | & | ADDA.W #0x26,A7 00022334 20 4f | O | MOVEA.L A7,A0 00022336 43 fa e4 b4 |C | LEA.L 0x207ec,A1 0002233a 70 08 |p | MOVEQ.L #0x08,D0 0002233c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002233e 51 c8 ff fc |Q | DBF D0,0x2233c 00022342 59 4f |YO | SUBQ.L #0x4,A7 00022344 2f 0c |/ | MOVE.L A4,-(A7) 00022346 59 4f |YO | SUBQ.L #0x4,A7 00022348 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002234c 3f 02 |? | MOVE.W D2,-(A7) 0002234e 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00022352 4e 92 |N | JSR (A2) 00022354 50 4f |PO | ADDQ.L #0x8,A7 00022356 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002235c 50 4f |PO | ADDQ.L #0x8,A7 0002235e 28 5f |(_ | MOVEA.L (A7)+,A4 00022360 5c 4f |\O | ADDQ.L #0x6,A7 00022362 2e 8c |. | MOVE.L A4,(A7) 00022364 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002236a 9e fc 00 12 | | SUBA.W #0x12,A7 0002236e 20 4f | O | MOVEA.L A7,A0 00022370 43 fa e4 84 |C | LEA.L 0x207f6,A1 00022374 70 14 |p | MOVEQ.L #0x14,D0 00022376 10 d9 | | MOVE.B (A1)+,(A0)+ 00022378 51 c8 ff fc |Q | DBF D0,0x22376 0002237c 2f 3a e4 96 |/: | MOVE.L 0x20814,-(A7) 00022380 2f 3a e4 8e |/: | MOVE.L 0x20810,-(A7) 00022384 2f 3a e4 86 |/: | MOVE.L 0x2080c,-(A7) 00022388 2f 3a e4 92 |/: | MOVE.L 0x2081c,-(A7) 0002238c 2f 3a e4 8a |/: | MOVE.L 0x20818,-(A7) 00022390 51 4f |QO | SUBQ.L #0x8,A7 00022392 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 00022396 3f 02 |? | MOVE.W D2,-(A7) 00022398 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 0002239c 4e 92 |N | JSR (A2) 0002239e 58 4f |XO | ADDQ.L #0x4,A7 000223a0 42 80 |B | CLR.L D0 000223a2 30 39 00 02 fd 42 |09 B | MOVE.W 0x2fd42,D0 000223a8 2f 00 |/ | MOVE.L D0,-(A7) 000223aa 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000223b0 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000223b4 3f 02 |? | MOVE.W D2,-(A7) 000223b6 3f 03 |? | MOVE.W D3,-(A7) 000223b8 4e 92 |N | JSR (A2) 000223ba 58 4f |XO | ADDQ.L #0x4,A7 000223bc 42 80 |B | CLR.L D0 000223be 10 39 00 02 fd 44 | 9 D | MOVE.B 0x2fd44,D0 000223c4 2f 00 |/ | MOVE.L D0,-(A7) 000223c6 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000223cc 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000223d0 3f 02 |? | MOVE.W D2,-(A7) 000223d2 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 000223d6 4e 92 |N | JSR (A2) 000223d8 58 4f |XO | ADDQ.L #0x4,A7 000223da 42 80 |B | CLR.L D0 000223dc 10 39 00 02 fd 45 | 9 E | MOVE.B 0x2fd45,D0 000223e2 2f 00 |/ | MOVE.L D0,-(A7) 000223e4 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000223ea 58 4f |XO | ADDQ.L #0x4,A7 000223ec 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 000223f2 de fc 00 18 | | ADDA.W #0x18,A7 000223f6 28 5f |(_ | MOVEA.L (A7)+,A4 000223f8 de fc 00 20 | | ADDA.W #0x20,A7 000223fc 20 4f | O | MOVEA.L A7,A0 000223fe 43 fa e4 20 |C | LEA.L 0x20820,A1 00022402 70 08 |p | MOVEQ.L #0x08,D0 00022404 10 d9 | | MOVE.B (A1)+,(A0)+ 00022406 51 c8 ff fc |Q | DBF D0,0x22404 0002240a 59 4f |YO | SUBQ.L #0x4,A7 0002240c 2f 0c |/ | MOVE.L A4,-(A7) 0002240e 59 4f |YO | SUBQ.L #0x4,A7 00022410 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00022414 3f 02 |? | MOVE.W D2,-(A7) 00022416 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002241a 4e 92 |N | JSR (A2) 0002241c 50 4f |PO | ADDQ.L #0x8,A7 0002241e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022424 50 4f |PO | ADDQ.L #0x8,A7 00022426 28 5f |(_ | MOVEA.L (A7)+,A4 00022428 5c 4f |\O | ADDQ.L #0x6,A7 0002242a 2e 8c |. | MOVE.L A4,(A7) 0002242c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022432 9e c3 | | SUBA.W D3,A7 00022434 20 4f | O | MOVEA.L A7,A0 00022436 43 fa e3 f2 |C | LEA.L 0x2082a,A1 0002243a 70 0e |p | MOVEQ.L #0x0e,D0 0002243c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002243e 51 c8 ff fc |Q | DBF D0,0x2243c 00022442 59 4f |YO | SUBQ.L #0x4,A7 00022444 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022448 3f 02 |? | MOVE.W D2,-(A7) 0002244a 3f 04 |? | MOVE.W D4,-(A7) 0002244c 4e 92 |N | JSR (A2) 0002244e 50 4f |PO | ADDQ.L #0x8,A7 00022450 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022456 de fc 00 14 | | ADDA.W #0x14,A7 0002245a 41 fa e3 f2 |A | LEA.L 0x2084e,A0 0002245e 70 04 |p | MOVEQ.L #0x04,D0 00022460 2f 20 |/ | MOVE.L -(A0),-(A7) 00022462 51 c8 ff fc |Q | DBF D0,0x22460 00022466 59 4f |YO | SUBQ.L #0x4,A7 00022468 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002246c 3f 02 |? | MOVE.W D2,-(A7) 0002246e 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 00022472 4e 92 |N | JSR (A2) 00022474 50 4f |PO | ADDQ.L #0x8,A7 00022476 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002247c 55 4f |UO | SUBQ.L #0x2,A7 0002247e 20 4f | O | MOVEA.L A7,A0 00022480 43 fa e3 cc |C | LEA.L 0x2084e,A1 00022484 70 18 |p | MOVEQ.L #0x18,D0 00022486 10 d9 | | MOVE.B (A1)+,(A0)+ 00022488 51 c8 ff fc |Q | DBF D0,0x22486 0002248c 59 4f |YO | SUBQ.L #0x4,A7 0002248e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022492 3f 02 |? | MOVE.W D2,-(A7) 00022494 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00022498 4e 92 |N | JSR (A2) 0002249a 50 4f |PO | ADDQ.L #0x8,A7 0002249c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000224a2 de c5 | | ADDA.W D5,A7 000224a4 41 fa e3 dc |A | LEA.L 0x20882,A0 000224a8 70 0c |p | MOVEQ.L #0x0c,D0 000224aa 3f 20 |? | MOVE.W -(A0),-(A7) 000224ac 51 c8 ff fc |Q | DBF D0,0x224aa 000224b0 59 4f |YO | SUBQ.L #0x4,A7 000224b2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000224b6 3f 02 |? | MOVE.W D2,-(A7) 000224b8 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 000224bc 4e 92 |N | JSR (A2) 000224be 50 4f |PO | ADDQ.L #0x8,A7 000224c0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000224c6 de c5 | | ADDA.W D5,A7 000224c8 41 fa e3 ce |A | LEA.L 0x20898,A0 000224cc 70 0a |p | MOVEQ.L #0x0a,D0 000224ce 3f 20 |? | MOVE.W -(A0),-(A7) 000224d0 51 c8 ff fc |Q | DBF D0,0x224ce 000224d4 51 4f |QO | SUBQ.L #0x8,A7 000224d6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000224da 3f 02 |? | MOVE.W D2,-(A7) 000224dc 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 000224e0 4e 92 |N | JSR (A2) 000224e2 50 4f |PO | ADDQ.L #0x8,A7 000224e4 48 78 00 00 |Hx | PEA.L 0x0 000224e8 48 78 00 02 |Hx | PEA.L 0x2 000224ec 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000224f2 de c3 | | ADDA.W D3,A7 000224f4 2c 1f |, | MOVE.L (A7)+,D6 000224f6 de fc 00 16 | | ADDA.W #0x16,A7 000224fa 20 06 | | MOVE.L D6,D0 000224fc 0c 80 00 00 00 02 | | CMPI.L #0x00000002,D0 00022502 63 02 |c | BLS 0x22506 00022504 4e 4e |NN | TRAP #14 00022506 d0 40 | @ | ADD.W D0,D0 00022508 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00022510 00 06 | | .CONST 0x6 ; [0x0] -> 0x22516 00022512 00 0c | | .CONST 0xc ; [0x1] -> 0x2251c 00022514 00 34 | 4 | .CONST 0x34 ; [0x2] -> 0x22544 00022516 switch@0x22508[0x0]: 00022516 4e ba e9 88 |N | JSR 0x20ea0 0002251a 60 68 |`h | BRA 0x22584 0002251c switch@0x22508[0x1]: 0002251c 30 39 00 02 fb 8c |09 | MOVE.W 0x2fb8c,D0 00022522 e5 40 | @ | ASL.W #0x2,D0 00022524 41 f9 00 02 3f 4c |A ?L | LEA.L 0x23f4c,A0 0002252a 33 f0 00 1a 00 02 fd 42 |3 B| MOVE.W (A0+D0.W+#0x1a),0x2fd42 00022532 13 f0 00 1c 00 02 fd 44 | D| MOVE.B (A0+D0.W+#0x1c),0x2fd44 0002253a 13 f0 00 1d 00 02 fd 45 | E| MOVE.B (A0+D0.W+#0x1d),0x2fd45 00022542 60 40 |`@ | BRA 0x22584 00022544 switch@0x22508[0x2]: 00022544 42 79 00 02 fb 8c |By | CLR.W 0x2fb8c 0002254a 7e 05 |~ | MOVEQ.L #0x05,D7 0002254c 30 07 |0 | MOVE.W D7,D0 0002254e e5 40 | @ | ASL.W #0x2,D0 00022550 41 f9 00 02 3f 4c |A ?L | LEA.L 0x23f4c,A0 00022556 32 30 00 1a |20 | MOVE.W (A0+D0.W+#0x1a),D1 0002255a b2 79 00 02 fd 42 | y B | CMP.W 0x2fd42,D1 00022560 66 1e |f | BNE 0x22580 00022562 12 30 00 1c | 0 | MOVE.B (A0+D0.W+#0x1c),D1 00022566 b2 39 00 02 fd 44 | 9 D | CMP.B 0x2fd44,D1 0002256c 66 12 |f | BNE 0x22580 0002256e 10 30 00 1d | 0 | MOVE.B (A0+D0.W+#0x1d),D0 00022572 b0 39 00 02 fd 45 | 9 E | CMP.B 0x2fd45,D0 00022578 66 06 |f | BNE 0x22580 0002257a 33 c7 00 02 fb 8c |3 | MOVE.W D7,0x2fb8c 00022580 53 47 |SG | SUBQ.W #0x1,D7 00022582 6c c8 |l | BGE 0x2254c 00022584 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002258a 55 4f |UO | SUBQ.L #0x2,A7 0002258c 4e ba f9 6e |N n | JSR 0x21efc 00022590 4a 1f |J | TST.B (A7)+ 00022592 67 7e |g~ | BEQ 0x22612 00022594 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002259a 41 fa e1 b6 |A | LEA.L 0x20752,A0 0002259e 70 11 |p | MOVEQ.L #0x11,D0 000225a0 2f 20 |/ | MOVE.L -(A0),-(A7) 000225a2 51 c8 ff fc |Q | DBF D0,0x225a0 000225a6 59 4f |YO | SUBQ.L #0x4,A7 000225a8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000225ac 3f 02 |? | MOVE.W D2,-(A7) 000225ae 3f 3c 00 48 |?< H | MOVE.W #0x48,-(A7) 000225b2 4e 92 |N | JSR (A2) 000225b4 50 4f |PO | ADDQ.L #0x8,A7 000225b6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000225bc de fc 00 4c | L | ADDA.W #0x4c,A7 000225c0 41 fa e1 bc |A | LEA.L 0x2077e,A0 000225c4 70 0a |p | MOVEQ.L #0x0a,D0 000225c6 2f 20 |/ | MOVE.L -(A0),-(A7) 000225c8 51 c8 ff fc |Q | DBF D0,0x225c6 000225cc 59 4f |YO | SUBQ.L #0x4,A7 000225ce 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000225d2 3f 02 |? | MOVE.W D2,-(A7) 000225d4 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7) 000225d8 4e 92 |N | JSR (A2) 000225da 50 4f |PO | ADDQ.L #0x8,A7 000225dc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000225e2 de fc 00 30 | 0 | ADDA.W #0x30,A7 000225e6 41 fa e1 6a |A j | LEA.L 0x20752,A0 000225ea 70 11 |p | MOVEQ.L #0x11,D0 000225ec 2f 20 |/ | MOVE.L -(A0),-(A7) 000225ee 51 c8 ff fc |Q | DBF D0,0x225ec 000225f2 59 4f |YO | SUBQ.L #0x4,A7 000225f4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000225f8 3f 02 |? | MOVE.W D2,-(A7) 000225fa 3f 3c 00 48 |?< H | MOVE.W #0x48,-(A7) 000225fe 4e 92 |N | JSR (A2) 00022600 50 4f |PO | ADDQ.L #0x8,A7 00022602 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022608 de fc 00 4c | L | ADDA.W #0x4c,A7 0002260c 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00022612 9e fc 00 10 | | SUBA.W #0x10,A7 00022616 20 4f | O | MOVEA.L A7,A0 00022618 43 fa e2 7e |C ~ | LEA.L 0x20898,A1 0002261c 70 0e |p | MOVEQ.L #0x0e,D0 0002261e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022620 51 c8 ff fc |Q | DBF D0,0x2261e 00022624 2f 3a e2 8a |/: | MOVE.L 0x208b0,-(A7) 00022628 2f 3a e2 82 |/: | MOVE.L 0x208ac,-(A7) 0002262c 2f 3a e2 7a |/: z | MOVE.L 0x208a8,-(A7) 00022630 2f 3a e2 86 |/: | MOVE.L 0x208b8,-(A7) 00022634 2f 3a e2 7e |/: ~ | MOVE.L 0x208b4,-(A7) 00022638 51 4f |QO | SUBQ.L #0x8,A7 0002263a 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 0002263e 3f 02 |? | MOVE.W D2,-(A7) 00022640 3f 04 |? | MOVE.W D4,-(A7) 00022642 4e 92 |N | JSR (A2) 00022644 58 4f |XO | ADDQ.L #0x4,A7 00022646 42 80 |B | CLR.L D0 00022648 30 39 00 02 fd 42 |09 B | MOVE.W 0x2fd42,D0 0002264e 2f 00 |/ | MOVE.L D0,-(A7) 00022650 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022656 48 6f 00 18 |Ho | PEA.L (A7+0x18) 0002265a 3f 02 |? | MOVE.W D2,-(A7) 0002265c 3f 03 |? | MOVE.W D3,-(A7) 0002265e 4e 92 |N | JSR (A2) 00022660 58 4f |XO | ADDQ.L #0x4,A7 00022662 42 80 |B | CLR.L D0 00022664 10 39 00 02 fd 44 | 9 D | MOVE.B 0x2fd44,D0 0002266a 2f 00 |/ | MOVE.L D0,-(A7) 0002266c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022672 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00022676 3f 02 |? | MOVE.W D2,-(A7) 00022678 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 0002267c 4e 92 |N | JSR (A2) 0002267e 58 4f |XO | ADDQ.L #0x4,A7 00022680 42 80 |B | CLR.L D0 00022682 10 39 00 02 fd 45 | 9 E | MOVE.B 0x2fd45,D0 00022688 2f 00 |/ | MOVE.L D0,-(A7) 0002268a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022690 58 4f |XO | ADDQ.L #0x4,A7 00022692 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 00022698 de fc 00 18 | | ADDA.W #0x18,A7 0002269c 28 5f |(_ | MOVEA.L (A7)+,A4 0002269e de fc 00 1a | | ADDA.W #0x1a,A7 000226a2 20 4f | O | MOVEA.L A7,A0 000226a4 43 fa e2 16 |C | LEA.L 0x208bc,A1 000226a8 70 08 |p | MOVEQ.L #0x08,D0 000226aa 10 d9 | | MOVE.B (A1)+,(A0)+ 000226ac 51 c8 ff fc |Q | DBF D0,0x226aa 000226b0 59 4f |YO | SUBQ.L #0x4,A7 000226b2 2f 0c |/ | MOVE.L A4,-(A7) 000226b4 59 4f |YO | SUBQ.L #0x4,A7 000226b6 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000226ba 3f 02 |? | MOVE.W D2,-(A7) 000226bc 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 000226c0 4e 92 |N | JSR (A2) 000226c2 50 4f |PO | ADDQ.L #0x8,A7 000226c4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000226ca 50 4f |PO | ADDQ.L #0x8,A7 000226cc 28 5f |(_ | MOVEA.L (A7)+,A4 000226ce 5c 4f |\O | ADDQ.L #0x6,A7 000226d0 2e 8c |. | MOVE.L A4,(A7) 000226d2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000226d8 58 4f |XO | ADDQ.L #0x4,A7 000226da 30 39 00 02 fb 8c |09 | MOVE.W 0x2fb8c,D0 000226e0 0c 40 00 05 | @ | CMPI.W #0x0005,D0 000226e4 63 02 |c | BLS 0x226e8 000226e6 4e 4e |NN | TRAP #14 000226e8 d0 40 | @ | ADD.W D0,D0 000226ea 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000226f2 00 0c | | .CONST 0xc ; [0x0] -> 0x226fe 000226f4 00 36 | 6 | .CONST 0x36 ; [0x1] -> 0x22728 000226f6 00 64 | d | .CONST 0x64 ; [0x2] -> 0x22756 000226f8 00 78 | x | .CONST 0x78 ; [0x3] -> 0x2276a 000226fa 00 86 | | .CONST 0x86 ; [0x4] -> 0x22778 000226fc 00 94 | | .CONST 0x94 ; [0x5] -> 0x22786 000226fe switch@0x226ea[0x0]: 000226fe 41 fa df 2a |A * | LEA.L 0x2062a,A0 00022702 70 14 |p | MOVEQ.L #0x14,D0 00022704 3f 20 |? | MOVE.W -(A0),-(A7) 00022706 51 c8 ff fc |Q | DBF D0,0x22704 0002270a 59 4f |YO | SUBQ.L #0x4,A7 0002270c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022710 3f 02 |? | MOVE.W D2,-(A7) 00022712 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 00022716 4e 92 |N | JSR (A2) 00022718 50 4f |PO | ADDQ.L #0x8,A7 0002271a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022720 de fc 00 2e | . | ADDA.W #0x2e,A7 00022724 60 00 00 86 |` | BRA 0x227ac 00022728 switch@0x226ea[0x1]: 00022728 9e fc 00 28 | ( | SUBA.W #0x28,A7 0002272c 20 4f | O | MOVEA.L A7,A0 0002272e 43 fa de fa |C | LEA.L 0x2062a,A1 00022732 70 26 |p& | MOVEQ.L #0x26,D0 00022734 10 d9 | | MOVE.B (A1)+,(A0)+ 00022736 51 c8 ff fc |Q | DBF D0,0x22734 0002273a 59 4f |YO | SUBQ.L #0x4,A7 0002273c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022740 3f 02 |? | MOVE.W D2,-(A7) 00022742 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00022746 4e 92 |N | JSR (A2) 00022748 50 4f |PO | ADDQ.L #0x8,A7 0002274a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022750 de fc 00 2c | , | ADDA.W #0x2c,A7 00022754 60 56 |`V | BRA 0x227ac 00022756 switch@0x226ea[0x2]: 00022756 9e fc 00 28 | ( | SUBA.W #0x28,A7 0002275a 20 4f | O | MOVEA.L A7,A0 0002275c 43 fa de f4 |C | LEA.L 0x20652,A1 00022760 70 26 |p& | MOVEQ.L #0x26,D0 00022762 10 d9 | | MOVE.B (A1)+,(A0)+ 00022764 51 c8 ff fc |Q | DBF D0,0x22762 00022768 60 d0 |` | BRA 0x2273a 0002276a switch@0x226ea[0x3]: 0002276a 41 fa df 3e |A > | LEA.L 0x206aa,A0 0002276e 70 0b |p | MOVEQ.L #0x0b,D0 00022770 2f 20 |/ | MOVE.L -(A0),-(A7) 00022772 51 c8 ff fc |Q | DBF D0,0x22770 00022776 60 1a |` | BRA 0x22792 00022778 switch@0x226ea[0x4]: 00022778 41 fa df 60 |A ` | LEA.L 0x206da,A0 0002277c 70 0b |p | MOVEQ.L #0x0b,D0 0002277e 2f 20 |/ | MOVE.L -(A0),-(A7) 00022780 51 c8 ff fc |Q | DBF D0,0x2277e 00022784 60 0c |` | BRA 0x22792 00022786 switch@0x226ea[0x5]: 00022786 41 fa df 82 |A | LEA.L 0x2070a,A0 0002278a 70 0b |p | MOVEQ.L #0x0b,D0 0002278c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002278e 51 c8 ff fc |Q | DBF D0,0x2278c 00022792 59 4f |YO | SUBQ.L #0x4,A7 00022794 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022798 3f 02 |? | MOVE.W D2,-(A7) 0002279a 3f 3c 00 30 |?< 0 | MOVE.W #0x30,-(A7) 0002279e 4e 92 |N | JSR (A2) 000227a0 50 4f |PO | ADDQ.L #0x8,A7 000227a2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000227a8 de fc 00 34 | 4 | ADDA.W #0x34,A7 000227ac 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 000227b0 0c 80 00 00 00 63 | c | CMPI.L #0x00000063,D0 000227b6 66 32 |f2 | BNE 0x227ea 000227b8 41 fa e1 2c |A , | LEA.L 0x208e6,A0 000227bc 70 07 |p | MOVEQ.L #0x07,D0 000227be 2f 20 |/ | MOVE.L -(A0),-(A7) 000227c0 51 c8 ff fc |Q | DBF D0,0x227be 000227c4 5d 4f |]O | SUBQ.L #0x6,A7 000227c6 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000227ca 3f 02 |? | MOVE.W D2,-(A7) 000227cc 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 000227d0 4e 92 |N | JSR (A2) 000227d2 5c 4f |\O | ADDQ.L #0x6,A7 000227d4 1e 82 | | MOVE.B D2,(A7) 000227d6 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 000227dc 5c 4f |\O | ADDQ.L #0x6,A7 000227de 4a 1f |J | TST.B (A7)+ 000227e0 66 04 |f | BNE 0x227e6 000227e2 4e ba e6 bc |N | JSR 0x20ea0 000227e6 de fc 00 20 | | ADDA.W #0x20,A7 000227ea 42 80 |B | CLR.L D0 000227ec 10 39 00 02 fd 45 | 9 E | MOVE.B 0x2fd45,D0 000227f2 32 3c 01 02 |2< | MOVE.W #0x102,D1 000227f6 c2 c0 | | MULU.W D0,D1 000227f8 44 81 |D | NEG.L D1 000227fa 02 81 00 00 ff ff | | ANDI.L #0x0000ffff,D1 00022800 33 c1 00 02 fd 46 |3 F | MOVE.W D1,0x2fd46 00022806 41 f9 00 02 3f 7e |A ?~ | LEA.L 0x23f7e,A0 0002280c 26 48 |&H | MOVEA.L A0,A3 0002280e 2f 0b |/ | MOVE.L A3,-(A7) 00022810 22 1f |" | MOVE.L (A7)+,D1 00022812 02 81 00 00 03 ff | | ANDI.L #0x000003ff,D1 00022818 33 c1 00 02 3f 54 |3 ?T | MOVE.W D1,0x23f54 0002281e 32 39 00 02 fd 40 |29 @ | MOVE.W 0x2fd40,D1 00022824 0c 41 ff ff | A | CMPI.W #0xffff,D1 00022828 63 02 |c | BLS 0x2282c 0002282a 4e 4f |NO | TRAP #15 0002282c 33 c1 00 02 3f 64 |3 ?d | MOVE.W D1,0x23f64 00022832 33 fc 00 3b 00 02 3f 60 |3 ; ?`| MOVE.W #0x3b,0x23f60 0002283a 33 fc 00 33 00 02 3f 62 |3 3 ?b| MOVE.W #0x33,0x23f62 00022842 23 fc 00 00 93 03 00 02 |# | MOVE.L #0x9303,0x23f5c 0002284a 3f 5c |?\ | 0002284c 22 39 00 02 3f 5c |"9 ?\ | MOVE.L 0x23f5c,D1 00022852 e1 81 | | ASL.L #0x8,D1 00022854 e1 81 | | ASL.L #0x8,D1 00022856 23 c1 00 02 3f 5c |# ?\ | MOVE.L D1,0x23f5c 0002285c 06 81 00 00 fd c0 | | ADDI.L #0x0000fdc0,D1 00022862 23 c1 00 02 3f 5c |# ?\ | MOVE.L D1,0x23f5c 00022868 54 40 |T@ | ADDQ.W #0x2,D0 0002286a e2 40 | @ | ASR.W #0x1,D0 0002286c c1 fc 01 00 | | MULS.W #0x100,D0 00022870 33 c0 00 02 c8 94 |3 | MOVE.W D0,0x2c894 00022876 42 79 00 02 c8 96 |By | CLR.W 0x2c896 0002287c 33 fc 00 02 00 02 c8 98 |3 | MOVE.W #0x2,0x2c898 00022884 42 79 00 02 c8 9a |By | CLR.W 0x2c89a 0002288a 42 79 00 02 c8 9c |By | CLR.W 0x2c89c 00022890 30 39 00 02 fd 40 |09 @ | MOVE.W 0x2fd40,D0 00022896 e1 40 | @ | ASL.W #0x8,D0 00022898 54 40 |T@ | ADDQ.W #0x2,D0 0002289a 0c 40 ff ff | @ | CMPI.W #0xffff,D0 0002289e 63 02 |c | BLS 0x228a2 000228a0 4e 4f |NO | TRAP #15 000228a2 33 c0 00 02 c8 9e |3 | MOVE.W D0,0x2c89e 000228a8 42 79 00 02 c8 a0 |By | CLR.W 0x2c8a0 000228ae 42 79 00 02 c8 a2 |By | CLR.W 0x2c8a2 000228b4 41 f9 00 02 3f 7e |A ?~ | LEA.L 0x23f7e,A0 000228ba 2f 08 |/ | MOVE.L A0,-(A7) 000228bc 23 df 00 02 c8 a4 |# | MOVE.L (A7)+,0x2c8a4 000228c2 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000228c6 4e 5e |N^ | UNLK A6 000228c8 4e 75 |Nu | RTS 000228ca ; -------------------------------------------------------------------------------------- 000228ca ; OMSI PASCAL Function 000228ca ; <LVAR 0x016 4(r)> 000228ca ; <LVAR 0x012 4(r)> 000228ca ; <LVAR 0x00e 4(r)> 000228ca ; <LVAR 0x00c 1(r)> 000228ca ; <LVAR 0x008 4(r)> 000228ca ; <LVAR -0x008 2(w)> 000228ca ; <LVAR -0x00a 2(w)> 000228ca ; <LVAR -0x00c 2(w)> 000228ca ; <LVAR -0x00e 2(r)> 000228ca ; <LVAR -0x010 2(r)> 000228ca ; <LVAR -0x012 2(w)> 000228ca ; <LVAR -0x014 2(r)> 000228ca ; <LVAR -0x016 @ 2(w)> 000228ca ; -------------------------------------------------------------------------------------- 000228ca 4e 56 ff ae |NV | LINK.W A6,#0xffae 000228ce bf d5 | | CMPA.L (A5),A7 000228d0 62 06 |b | BHI 0x228d8 000228d2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000228d6 4e 76 |Nv | TRAPV 000228d8 de fc 00 3c | < | ADDA.W #0x3c,A7 000228dc 48 e7 e0 c8 |H | MOVEM.L A4+A1+A0+D2+D1+D0,-(A7) 000228e0 24 3c 00 00 ff ff |$< | MOVE.L #0xffff,D2 000228e6 42 6e ff ec |Bn | CLR.W (A6-0x14) 000228ea 3d 7c 00 02 ff ee |=| | MOVE.W #0x2,(A6-0x12) 000228f0 42 6e ff f0 |Bn | CLR.W (A6-0x10) 000228f4 42 6e ff f2 |Bn | CLR.W (A6-0xe) 000228f8 30 39 00 02 fd 40 |09 @ | MOVE.W 0x2fd40,D0 000228fe e1 40 | @ | ASL.W #0x8,D0 00022900 12 2e 00 0c | . | MOVE.B (A6+0xc),D1 00022904 48 81 |H | EXTB.W D1 00022906 d0 41 | A | ADD.W D1,D0 00022908 b0 42 | B | CMP.W D2,D0 0002290a 63 02 |c | BLS 0x2290e 0002290c 4e 4f |NO | TRAP #15 0002290e 3d 40 ff f4 |=@ | MOVE.W D0,(A6-0xc) 00022912 20 2e 00 16 | . | MOVE.L (A6+0x16),D0 00022916 b0 82 | | CMP.L D2,D0 00022918 63 02 |c | BLS 0x2291c 0002291a 4e 4f |NO | TRAP #15 0002291c 3d 40 ff f6 |=@ | MOVE.W D0,(A6-0xa) 00022920 20 2e 00 12 | . | MOVE.L (A6+0x12),D0 00022924 e1 80 | | ASL.L #0x8,D0 00022926 d0 ae 00 0e | | ADD.L (A6+0xe),D0 0002292a b0 82 | | CMP.L D2,D0 0002292c 63 02 |c | BLS 0x22930 0002292e 4e 4f |NO | TRAP #15 00022930 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00022934 55 41 |UA | SUBQ.W #0x2,D1 00022936 0c 41 00 06 | A | CMPI.W #0x0006,D1 0002293a 62 22 |b" | BHI switch@0x2293e[0x1] 0002293c d2 41 | A | ADD.W D1,D1 0002293e 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 00022946 00 0e | | .CONST 0xe ; [0x0] -> 0x22954 00022948 00 18 | | .CONST 0x18 ; [0x1] -> 0x2295e 0002294a 00 18 | | .CONST 0x18 ; [0x2] -> 0x2295e 0002294c 00 18 | | .CONST 0x18 ; [0x3] -> 0x2295e 0002294e 00 18 | | .CONST 0x18 ; [0x4] -> 0x2295e 00022950 00 18 | | .CONST 0x18 ; [0x5] -> 0x2295e 00022952 00 16 | | .CONST 0x16 ; [0x6] -> 0x2295c 00022954 switch@0x2293e[0x0]: 00022954 3d 7c 01 00 ff ea |=| | MOVE.W #0x100,(A6-0x16) 0002295a 60 32 |`2 | BRA 0x2298e 0002295c switch@0x2293e[0x6]: 0002295c 60 f6 |` | BRA switch@0x2293e[0x0] 0002295e switch@0x2293e[0x1]: 0002295e switch@0x2293e[0x2]: 0002295e switch@0x2293e[0x3]: 0002295e switch@0x2293e[0x4]: 0002295e switch@0x2293e[0x5]: 0002295e 9e fc 00 14 | | SUBA.W #0x14,A7 00022962 20 4f | O | MOVEA.L A7,A0 00022964 43 fa df ae |C | LEA.L 0x20914,A1 00022968 70 12 |p | MOVEQ.L #0x12,D0 0002296a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002296c 51 c8 ff fc |Q | DBF D0,0x2296a 00022970 59 4f |YO | SUBQ.L #0x4,A7 00022972 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022976 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002297a 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 0002297e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022984 50 4f |PO | ADDQ.L #0x8,A7 00022986 4e ba e4 b6 |N | JSR 0x20e3e 0002298a de fc 00 18 | | ADDA.W #0x18,A7 0002298e 41 f9 00 02 3f 7e |A ?~ | LEA.L 0x23f7e,A0 00022994 2f 08 |/ | MOVE.L A0,-(A7) 00022996 28 5f |(_ | MOVEA.L (A7)+,A4 00022998 48 6e ff ea |Hn | PEA.L (A6-0x16) 0002299c 2f 0c |/ | MOVE.L A4,-(A7) 0002299e 42 67 |Bg | CLR.W -(A7) 000229a0 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000229a6 de fc 00 0a | | ADDA.W #0xa,A7 000229aa 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000229ae 42 67 |Bg | CLR.W -(A7) 000229b0 48 50 |HP | PEA.L (A0) 000229b2 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000229b8 5c 4f |\O | ADDQ.L #0x6,A7 000229ba 4c df 13 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A4 000229be 4e 5e |N^ | UNLK A6 000229c0 4e 75 |Nu | RTS 000229c2 ; -------------------------------------------------------------------------------------- 000229c2 ; OMSI PASCAL Function 000229c2 ; <LVAR 0x008 4(r)> 000229c2 ; <LVAR -0x004 @ 2(r)> 000229c2 ; -------------------------------------------------------------------------------------- 000229c2 4e 56 ff c2 |NV | LINK.W A6,#0xffc2 000229c6 bf d5 | | CMPA.L (A5),A7 000229c8 62 06 |b | BHI 0x229d0 000229ca 44 fc 00 02 |D | MOVE.W #0x2,CCR 000229ce 4e 76 |Nv | TRAPV 000229d0 de fc 00 32 | 2 | ADDA.W #0x32,A7 000229d4 48 e7 f0 e0 |H | MOVEM.L A2+A1+A0+D3+D2+D1+D0,-(A7) 000229d8 45 f9 00 02 3f 5c |E ?\ | LEA.L 0x23f5c,A2 000229de 72 05 |r | MOVEQ.L #0x05,D1 000229e0 74 01 |t | MOVEQ.L #0x01,D2 000229e2 76 02 |v | MOVEQ.L #0x02,D3 000229e4 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000229e8 2f 12 |/ | MOVE.L (A2),-(A7) 000229ea 3f 01 |? | MOVE.W D1,-(A7) 000229ec 22 48 |"H | MOVEA.L A0,A1 000229ee 2f 09 |/ | MOVE.L A1,-(A7) 000229f0 3f 02 |? | MOVE.W D2,-(A7) 000229f2 3f 03 |? | MOVE.W D3,-(A7) 000229f4 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word 000229fa de fc 00 0a | | ADDA.W #0xa,A7 000229fe 2e 92 |. | MOVE.L (A2),(A7) 00022a00 3f 01 |? | MOVE.W D1,-(A7) 00022a02 43 ee ff fc |C | LEA.L (A6-0x4),A1 00022a06 2f 09 |/ | MOVE.L A1,-(A7) 00022a08 3f 02 |? | MOVE.W D2,-(A7) 00022a0a 3f 03 |? | MOVE.W D3,-(A7) 00022a0c 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word 00022a12 de fc 00 0e | | ADDA.W #0xe,A7 00022a16 30 2e ff fc |0. | MOVE.W (A6-0x4),D0 00022a1a b0 50 | P | CMP.W (A0),D0 00022a1c 66 c6 |f | BNE 0x229e4 00022a1e 4c df 07 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2 00022a22 4e 5e |N^ | UNLK A6 00022a24 4e 75 |Nu | RTS 00022a26 ; -------------------------------------------------------------------------------------- 00022a26 ; OMSI PASCAL Function 00022a26 ; <LVAR 0x010 4(r)> 00022a26 ; <LVAR 0x00c 4(r)> 00022a26 ; <LVAR 0x008 4(r)> 00022a26 ; <LVAR -0x006 4(w)> 00022a26 ; <LVAR -0x00a 4(w)> 00022a26 ; <LVAR -0x00e 4(w)> 00022a26 ; <LVAR -0x012 @ 4(w)> 00022a26 ; <LVAR -0x014 @ 2(w)> 00022a26 ; <LVAR -0x016 @ 2(w)> 00022a26 ; <LVAR -0x018 @ 2(rw)> 00022a26 ; -------------------------------------------------------------------------------------- 00022a26 4e 56 ff aa |NV | LINK.W A6,#0xffaa 00022a2a bf d5 | | CMPA.L (A5),A7 00022a2c 62 06 |b | BHI 0x22a34 00022a2e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022a32 4e 76 |Nv | TRAPV 00022a34 de fc 00 3e | > | ADDA.W #0x3e,A7 00022a38 48 e7 fe f0 |H | MOVEM.L A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022a3c 43 f9 00 02 3f 5c |C ?\ | LEA.L 0x23f5c,A1 00022a42 45 f9 00 01 02 3a |E : | LEA.L KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word,A2 00022a48 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00022a4c 72 01 |r | MOVEQ.L #0x01,D1 00022a4e 74 05 |t | MOVEQ.L #0x05,D2 00022a50 7a 02 |z | MOVEQ.L #0x02,D5 00022a52 7c 0e || | MOVEQ.L #0x0e,D6 00022a54 2d 79 00 02 c8 94 ff ee |-y | MOVE.L 0x2c894,(A6-0x12) 00022a5c 2d 79 00 02 c8 98 ff f2 |-y | MOVE.L 0x2c898,(A6-0xe) 00022a64 2d 79 00 02 c8 9c ff f6 |-y | MOVE.L 0x2c89c,(A6-0xa) 00022a6c 2d 79 00 02 c8 a0 ff fa |-y | MOVE.L 0x2c8a0,(A6-0x6) 00022a74 48 6e ff ee |Hn | PEA.L (A6-0x12) 00022a78 2f 39 00 02 c8 a4 |/9 | MOVE.L 0x2c8a4,-(A7) 00022a7e 42 67 |Bg | CLR.W -(A7) 00022a80 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00022a86 de fc 00 0a | | ADDA.W #0xa,A7 00022a8a 28 2e 00 10 |(. | MOVE.L (A6+0x10),D4 00022a8e 26 3c 00 01 00 00 |&< | MOVE.L #0x10000,D3 00022a94 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00022a9a 02 83 00 00 ff ff | | ANDI.L #0x0000ffff,D3 00022aa0 3d 43 ff ea |=C | MOVE.W D3,(A6-0x16) 00022aa4 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00022aa8 e1 80 | | ASL.L #0x8,D0 00022aaa 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022ab0 63 02 |c | BLS 0x22ab4 00022ab2 4e 4f |NO | TRAP #15 00022ab4 3d 40 ff ec |=@ | MOVE.W D0,(A6-0x14) 00022ab8 42 67 |Bg | CLR.W -(A7) 00022aba 20 53 | S | MOVEA.L (A3),A0 00022abc 48 50 |HP | PEA.L (A0) 00022abe 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00022ac4 5c 4f |\O | ADDQ.L #0x6,A7 00022ac6 41 f9 00 02 3f 64 |A ?d | LEA.L 0x23f64,A0 00022acc 2f 08 |/ | MOVE.L A0,-(A7) 00022ace 3f 01 |? | MOVE.W D1,-(A7) 00022ad0 2f 11 |/ | MOVE.L (A1),-(A7) 00022ad2 50 97 |P | ADDQ.L #0x8,(A7) 00022ad4 3f 02 |? | MOVE.W D2,-(A7) 00022ad6 3f 05 |? | MOVE.W D5,-(A7) 00022ad8 4e 92 |N | JSR (A2) 00022ada de c6 | | ADDA.W D6,A7 00022adc 41 ee ff ea |A | LEA.L (A6-0x16),A0 00022ae0 2f 08 |/ | MOVE.L A0,-(A7) 00022ae2 3f 01 |? | MOVE.W D1,-(A7) 00022ae4 2f 11 |/ | MOVE.L (A1),-(A7) 00022ae6 06 97 00 00 00 1c | | ADDI.L #0x0000001c,(A7) 00022aec 3f 02 |? | MOVE.W D2,-(A7) 00022aee 3f 05 |? | MOVE.W D5,-(A7) 00022af0 4e 92 |N | JSR (A2) 00022af2 de c6 | | ADDA.W D6,A7 00022af4 41 ee ff ec |A | LEA.L (A6-0x14),A0 00022af8 2f 08 |/ | MOVE.L A0,-(A7) 00022afa 3f 01 |? | MOVE.W D1,-(A7) 00022afc 2f 11 |/ | MOVE.L (A1),-(A7) 00022afe 5c 97 |\ | ADDQ.L #0x6,(A7) 00022b00 3f 02 |? | MOVE.W D2,-(A7) 00022b02 3f 05 |? | MOVE.W D5,-(A7) 00022b04 4e 92 |N | JSR (A2) 00022b06 de c6 | | ADDA.W D6,A7 00022b08 41 f9 00 02 3f 54 |A ?T | LEA.L 0x23f54,A0 00022b0e 2f 08 |/ | MOVE.L A0,-(A7) 00022b10 3f 01 |? | MOVE.W D1,-(A7) 00022b12 2f 11 |/ | MOVE.L (A1),-(A7) 00022b14 58 97 |X | ADDQ.L #0x4,(A7) 00022b16 3f 02 |? | MOVE.W D2,-(A7) 00022b18 3f 05 |? | MOVE.W D5,-(A7) 00022b1a 4e 92 |N | JSR (A2) 00022b1c de c6 | | ADDA.W D6,A7 00022b1e 41 f9 00 02 fd 46 |A F | LEA.L 0x2fd46,A0 00022b24 2f 08 |/ | MOVE.L A0,-(A7) 00022b26 3f 01 |? | MOVE.W D1,-(A7) 00022b28 2f 11 |/ | MOVE.L (A1),-(A7) 00022b2a 54 97 |T | ADDQ.L #0x2,(A7) 00022b2c 3f 02 |? | MOVE.W D2,-(A7) 00022b2e 3f 05 |? | MOVE.W D5,-(A7) 00022b30 4e 92 |N | JSR (A2) 00022b32 de c6 | | ADDA.W D6,A7 00022b34 41 f9 00 02 3f 60 |A ?` | LEA.L 0x23f60,A0 00022b3a 2f 08 |/ | MOVE.L A0,-(A7) 00022b3c 3f 01 |? | MOVE.W D1,-(A7) 00022b3e 2f 11 |/ | MOVE.L (A1),-(A7) 00022b40 3f 02 |? | MOVE.W D2,-(A7) 00022b42 3f 05 |? | MOVE.W D5,-(A7) 00022b44 4e 92 |N | JSR (A2) 00022b46 de c6 | | ADDA.W D6,A7 00022b48 48 78 01 86 |Hx | PEA.L 0x186 00022b4c 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00022b52 58 4f |XO | ADDQ.L #0x4,A7 00022b54 48 6e ff e8 |Hn | PEA.L (A6-0x18) 00022b58 4e ba fe 68 |N h | JSR 0x229c2 00022b5c 58 4f |XO | ADDQ.L #0x4,A7 00022b5e 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0 00022b62 02 40 00 80 | @ | ANDI.W #0x0080,D0 00022b66 67 ec |g | BEQ 0x22b54 00022b68 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0 00022b6c 02 40 80 00 | @ | ANDI.W #0x8000,D0 00022b70 67 36 |g6 | BEQ 0x22ba8 00022b72 4e ba ee fa |N | JSR 0x21a6e 00022b76 20 53 | S | MOVEA.L (A3),A0 00022b78 42 10 |B | CLR.B (A0) 00022b7a 3d 7c 40 09 ff e8 |=|@ | MOVE.W #0x4009,(A6-0x18) 00022b80 41 ee ff e8 |A | LEA.L (A6-0x18),A0 00022b84 2f 08 |/ | MOVE.L A0,-(A7) 00022b86 3f 01 |? | MOVE.W D1,-(A7) 00022b88 2f 11 |/ | MOVE.L (A1),-(A7) 00022b8a 3f 02 |? | MOVE.W D2,-(A7) 00022b8c 3f 05 |? | MOVE.W D5,-(A7) 00022b8e 4e 92 |N | JSR (A2) 00022b90 de c6 | | ADDA.W D6,A7 00022b92 48 6e ff e8 |Hn | PEA.L (A6-0x18) 00022b96 4e ba fe 2a |N * | JSR 0x229c2 00022b9a 58 4f |XO | ADDQ.L #0x4,A7 00022b9c 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0 00022ba0 02 40 00 80 | @ | ANDI.W #0x0080,D0 00022ba4 67 ec |g | BEQ 0x22b92 00022ba6 60 04 |` | BRA 0x22bac 00022ba8 20 53 | S | MOVEA.L (A3),A0 00022baa 10 81 | | MOVE.B D1,(A0) 00022bac 4c df 0f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3 00022bb0 4e 5e |N^ | UNLK A6 00022bb2 4e 75 |Nu | RTS 00022bb4 ; -------------------------------------------------------------------------------------- 00022bb4 ; OMSI PASCAL Function 00022bb4 ; <LVAR 0x010 4(r)> 00022bb4 ; <LVAR 0x00c 4(r)> 00022bb4 ; <LVAR 0x008 4(r)> 00022bb4 ; <LVAR -0x004 @ 2(w)> 00022bb4 ; <LVAR -0x006 @ 2(w)> 00022bb4 ; <LVAR -0x008 @ 2(rw)> 00022bb4 ; -------------------------------------------------------------------------------------- 00022bb4 4e 56 ff ba |NV | LINK.W A6,#0xffba 00022bb8 bf d5 | | CMPA.L (A5),A7 00022bba 62 06 |b | BHI 0x22bc2 00022bbc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022bc0 4e 76 |Nv | TRAPV 00022bc2 de fc 00 3e | > | ADDA.W #0x3e,A7 00022bc6 48 e7 fe f0 |H | MOVEM.L A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022bca 43 f9 00 02 3f 5c |C ?\ | LEA.L 0x23f5c,A1 00022bd0 45 f9 00 01 02 3a |E : | LEA.L KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word,A2 00022bd6 47 ee ff f8 |G | LEA.L (A6-0x8),A3 00022bda 72 01 |r | MOVEQ.L #0x01,D1 00022bdc 74 05 |t | MOVEQ.L #0x05,D2 00022bde 7a 02 |z | MOVEQ.L #0x02,D5 00022be0 7c 0e || | MOVEQ.L #0x0e,D6 00022be2 28 2e 00 10 |(. | MOVE.L (A6+0x10),D4 00022be6 26 3c 00 01 00 00 |&< | MOVE.L #0x10000,D3 00022bec 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00022bf2 02 83 00 00 ff ff | | ANDI.L #0x0000ffff,D3 00022bf8 3d 43 ff fa |=C | MOVE.W D3,(A6-0x6) 00022bfc 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00022c00 e1 80 | | ASL.L #0x8,D0 00022c02 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022c08 63 02 |c | BLS 0x22c0c 00022c0a 4e 4f |NO | TRAP #15 00022c0c 3d 40 ff fc |=@ | MOVE.W D0,(A6-0x4) 00022c10 41 f9 00 02 3f 64 |A ?d | LEA.L 0x23f64,A0 00022c16 2f 08 |/ | MOVE.L A0,-(A7) 00022c18 3f 01 |? | MOVE.W D1,-(A7) 00022c1a 2f 11 |/ | MOVE.L (A1),-(A7) 00022c1c 50 97 |P | ADDQ.L #0x8,(A7) 00022c1e 3f 02 |? | MOVE.W D2,-(A7) 00022c20 3f 05 |? | MOVE.W D5,-(A7) 00022c22 4e 92 |N | JSR (A2) 00022c24 de c6 | | ADDA.W D6,A7 00022c26 41 ee ff fa |A | LEA.L (A6-0x6),A0 00022c2a 2f 08 |/ | MOVE.L A0,-(A7) 00022c2c 3f 01 |? | MOVE.W D1,-(A7) 00022c2e 2f 11 |/ | MOVE.L (A1),-(A7) 00022c30 06 97 00 00 00 1c | | ADDI.L #0x0000001c,(A7) 00022c36 3f 02 |? | MOVE.W D2,-(A7) 00022c38 3f 05 |? | MOVE.W D5,-(A7) 00022c3a 4e 92 |N | JSR (A2) 00022c3c de c6 | | ADDA.W D6,A7 00022c3e 41 ee ff fc |A | LEA.L (A6-0x4),A0 00022c42 2f 08 |/ | MOVE.L A0,-(A7) 00022c44 3f 01 |? | MOVE.W D1,-(A7) 00022c46 2f 11 |/ | MOVE.L (A1),-(A7) 00022c48 5c 97 |\ | ADDQ.L #0x6,(A7) 00022c4a 3f 02 |? | MOVE.W D2,-(A7) 00022c4c 3f 05 |? | MOVE.W D5,-(A7) 00022c4e 4e 92 |N | JSR (A2) 00022c50 de c6 | | ADDA.W D6,A7 00022c52 41 f9 00 02 3f 54 |A ?T | LEA.L 0x23f54,A0 00022c58 2f 08 |/ | MOVE.L A0,-(A7) 00022c5a 3f 01 |? | MOVE.W D1,-(A7) 00022c5c 2f 11 |/ | MOVE.L (A1),-(A7) 00022c5e 58 97 |X | ADDQ.L #0x4,(A7) 00022c60 3f 02 |? | MOVE.W D2,-(A7) 00022c62 3f 05 |? | MOVE.W D5,-(A7) 00022c64 4e 92 |N | JSR (A2) 00022c66 de c6 | | ADDA.W D6,A7 00022c68 41 f9 00 02 fd 46 |A F | LEA.L 0x2fd46,A0 00022c6e 2f 08 |/ | MOVE.L A0,-(A7) 00022c70 3f 01 |? | MOVE.W D1,-(A7) 00022c72 2f 11 |/ | MOVE.L (A1),-(A7) 00022c74 54 97 |T | ADDQ.L #0x2,(A7) 00022c76 3f 02 |? | MOVE.W D2,-(A7) 00022c78 3f 05 |? | MOVE.W D5,-(A7) 00022c7a 4e 92 |N | JSR (A2) 00022c7c de c6 | | ADDA.W D6,A7 00022c7e 41 f9 00 02 3f 62 |A ?b | LEA.L 0x23f62,A0 00022c84 2f 08 |/ | MOVE.L A0,-(A7) 00022c86 3f 01 |? | MOVE.W D1,-(A7) 00022c88 2f 11 |/ | MOVE.L (A1),-(A7) 00022c8a 3f 02 |? | MOVE.W D2,-(A7) 00022c8c 3f 05 |? | MOVE.W D5,-(A7) 00022c8e 4e 92 |N | JSR (A2) 00022c90 de c6 | | ADDA.W D6,A7 00022c92 48 78 01 86 |Hx | PEA.L 0x186 00022c96 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00022c9c 58 4f |XO | ADDQ.L #0x4,A7 00022c9e 48 53 |HS | PEA.L (A3) 00022ca0 4e ba fd 20 |N | JSR 0x229c2 00022ca4 58 4f |XO | ADDQ.L #0x4,A7 00022ca6 30 13 |0 | MOVE.W (A3),D0 00022ca8 02 40 00 80 | @ | ANDI.W #0x0080,D0 00022cac 67 f0 |g | BEQ 0x22c9e 00022cae 30 13 |0 | MOVE.W (A3),D0 00022cb0 02 40 80 00 | @ | ANDI.W #0x8000,D0 00022cb4 67 30 |g0 | BEQ 0x22ce6 00022cb6 4e ba ed b6 |N | JSR 0x21a6e 00022cba 36 bc 40 09 |6 @ | MOVE.W #0x4009,(A3) 00022cbe 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022cc2 42 10 |B | CLR.B (A0) 00022cc4 20 4b | K | MOVEA.L A3,A0 00022cc6 2f 08 |/ | MOVE.L A0,-(A7) 00022cc8 3f 01 |? | MOVE.W D1,-(A7) 00022cca 2f 11 |/ | MOVE.L (A1),-(A7) 00022ccc 3f 02 |? | MOVE.W D2,-(A7) 00022cce 3f 05 |? | MOVE.W D5,-(A7) 00022cd0 4e 92 |N | JSR (A2) 00022cd2 de c6 | | ADDA.W D6,A7 00022cd4 48 53 |HS | PEA.L (A3) 00022cd6 4e ba fc ea |N | JSR 0x229c2 00022cda 58 4f |XO | ADDQ.L #0x4,A7 00022cdc 30 13 |0 | MOVE.W (A3),D0 00022cde 02 40 00 80 | @ | ANDI.W #0x0080,D0 00022ce2 67 f0 |g | BEQ 0x22cd4 00022ce4 60 06 |` | BRA 0x22cec 00022ce6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022cea 10 81 | | MOVE.B D1,(A0) 00022cec 4c df 0f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3 00022cf0 4e 5e |N^ | UNLK A6 00022cf2 4e 75 |Nu | RTS 00022cf4 ; -------------------------------------------------------------------------------------- 00022cf4 ; OMSI PASCAL Function 00022cf4 ; <LVAR 0x014 4(r)> 00022cf4 ; <LVAR 0x010 4(r)> 00022cf4 ; <LVAR 0x00c 4(r)> 00022cf4 ; <LVAR 0x008 4(r)> 00022cf4 ; <LVAR -0x002 @ 2(w)> 00022cf4 ; <LVAR -0x008 @ 2(w)> 00022cf4 ; <LVAR -0x00a @ 2(w)> 00022cf4 ; <LVAR -0x00c @ 2(rw)> 00022cf4 ; -------------------------------------------------------------------------------------- 00022cf4 4e 56 ff ae |NV | LINK.W A6,#0xffae 00022cf8 bf d5 | | CMPA.L (A5),A7 00022cfa 62 06 |b | BHI 0x22d02 00022cfc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022d00 4e 76 |Nv | TRAPV 00022d02 de fc 00 46 | F | ADDA.W #0x46,A7 00022d06 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022d0a 43 f9 00 02 3f 5c |C ?\ | LEA.L 0x23f5c,A1 00022d10 45 f9 00 01 02 3a |E : | LEA.L KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word,A2 00022d16 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00022d1a 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00022d1e 72 01 |r | MOVEQ.L #0x01,D1 00022d20 74 05 |t | MOVEQ.L #0x05,D2 00022d22 7a 02 |z | MOVEQ.L #0x02,D5 00022d24 7c 0e || | MOVEQ.L #0x0e,D6 00022d26 7e 00 |~ | MOVEQ.L #0x00,D7 00022d28 0c 87 00 00 00 0a | | CMPI.L #0x0000000a,D7 00022d2e 63 02 |c | BLS 0x22d32 00022d30 4e 4f |NO | TRAP #15 00022d32 20 07 | | MOVE.L D7,D0 00022d34 e3 80 | | ASL.L #0x1,D0 00022d36 41 f9 00 02 3f 4c |A ?L | LEA.L 0x23f4c,A0 00022d3c 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00022d40 d1 fc 00 00 bc 4a | J | ADDA.L #0xbc4a,A0 00022d46 42 50 |BP | CLR.W (A0) 00022d48 52 87 |R | ADDQ.L #0x1,D7 00022d4a 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7 00022d50 6f d6 |o | BLE 0x22d28 00022d52 28 2e 00 14 |(. | MOVE.L (A6+0x14),D4 00022d56 26 3c 00 01 00 00 |&< | MOVE.L #0x10000,D3 00022d5c 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00022d62 02 83 00 00 ff ff | | ANDI.L #0x0000ffff,D3 00022d68 3d 43 ff f8 |=C | MOVE.W D3,(A6-0x8) 00022d6c 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00022d70 e1 80 | | ASL.L #0x8,D0 00022d72 d0 ae 00 0c | | ADD.L (A6+0xc),D0 00022d76 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022d7c 63 02 |c | BLS 0x22d80 00022d7e 4e 4f |NO | TRAP #15 00022d80 3d 40 ff f6 |=@ | MOVE.W D0,(A6-0xa) 00022d84 3d 7c fe fe ff fe |=| | MOVE.W #0xfefe,(A6-0x2) 00022d8a 41 f9 00 02 3f 64 |A ?d | LEA.L 0x23f64,A0 00022d90 2f 08 |/ | MOVE.L A0,-(A7) 00022d92 3f 01 |? | MOVE.W D1,-(A7) 00022d94 2f 11 |/ | MOVE.L (A1),-(A7) 00022d96 50 97 |P | ADDQ.L #0x8,(A7) 00022d98 3f 02 |? | MOVE.W D2,-(A7) 00022d9a 3f 05 |? | MOVE.W D5,-(A7) 00022d9c 4e 92 |N | JSR (A2) 00022d9e de c6 | | ADDA.W D6,A7 00022da0 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00022da4 2f 08 |/ | MOVE.L A0,-(A7) 00022da6 3f 01 |? | MOVE.W D1,-(A7) 00022da8 2f 11 |/ | MOVE.L (A1),-(A7) 00022daa 06 97 00 00 00 1c | | ADDI.L #0x0000001c,(A7) 00022db0 3f 02 |? | MOVE.W D2,-(A7) 00022db2 3f 05 |? | MOVE.W D5,-(A7) 00022db4 4e 92 |N | JSR (A2) 00022db6 de c6 | | ADDA.W D6,A7 00022db8 41 ee ff f6 |A | LEA.L (A6-0xa),A0 00022dbc 2f 08 |/ | MOVE.L A0,-(A7) 00022dbe 3f 01 |? | MOVE.W D1,-(A7) 00022dc0 2f 11 |/ | MOVE.L (A1),-(A7) 00022dc2 5c 97 |\ | ADDQ.L #0x6,(A7) 00022dc4 3f 02 |? | MOVE.W D2,-(A7) 00022dc6 3f 05 |? | MOVE.W D5,-(A7) 00022dc8 4e 92 |N | JSR (A2) 00022dca de c6 | | ADDA.W D6,A7 00022dcc 41 f9 00 02 3f 54 |A ?T | LEA.L 0x23f54,A0 00022dd2 2f 08 |/ | MOVE.L A0,-(A7) 00022dd4 3f 01 |? | MOVE.W D1,-(A7) 00022dd6 2f 11 |/ | MOVE.L (A1),-(A7) 00022dd8 58 97 |X | ADDQ.L #0x4,(A7) 00022dda 3f 02 |? | MOVE.W D2,-(A7) 00022ddc 3f 05 |? | MOVE.W D5,-(A7) 00022dde 4e 92 |N | JSR (A2) 00022de0 de c6 | | ADDA.W D6,A7 00022de2 41 ee ff fe |A | LEA.L (A6-0x2),A0 00022de6 2f 08 |/ | MOVE.L A0,-(A7) 00022de8 3f 01 |? | MOVE.W D1,-(A7) 00022dea 2f 11 |/ | MOVE.L (A1),-(A7) 00022dec 54 97 |T | ADDQ.L #0x2,(A7) 00022dee 3f 02 |? | MOVE.W D2,-(A7) 00022df0 3f 05 |? | MOVE.W D5,-(A7) 00022df2 4e 92 |N | JSR (A2) 00022df4 de c6 | | ADDA.W D6,A7 00022df6 41 f9 00 02 3f 60 |A ?` | LEA.L 0x23f60,A0 00022dfc 2f 08 |/ | MOVE.L A0,-(A7) 00022dfe 3f 01 |? | MOVE.W D1,-(A7) 00022e00 2f 11 |/ | MOVE.L (A1),-(A7) 00022e02 3f 02 |? | MOVE.W D2,-(A7) 00022e04 3f 05 |? | MOVE.W D5,-(A7) 00022e06 4e 92 |N | JSR (A2) 00022e08 de c6 | | ADDA.W D6,A7 00022e0a 48 78 01 86 |Hx | PEA.L 0x186 00022e0e 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00022e14 58 4f |XO | ADDQ.L #0x4,A7 00022e16 48 53 |HS | PEA.L (A3) 00022e18 4e ba fb a8 |N | JSR 0x229c2 00022e1c 58 4f |XO | ADDQ.L #0x4,A7 00022e1e 30 13 |0 | MOVE.W (A3),D0 00022e20 02 40 00 80 | @ | ANDI.W #0x0080,D0 00022e24 67 f0 |g | BEQ 0x22e16 00022e26 30 13 |0 | MOVE.W (A3),D0 00022e28 02 40 80 00 | @ | ANDI.W #0x8000,D0 00022e2c 67 4c |gL | BEQ 0x22e7a 00022e2e 4e ba ec 3e |N > | JSR 0x21a6e 00022e32 36 bc 40 09 |6 @ | MOVE.W #0x4009,(A3) 00022e36 20 4b | K | MOVEA.L A3,A0 00022e38 2f 08 |/ | MOVE.L A0,-(A7) 00022e3a 3f 01 |? | MOVE.W D1,-(A7) 00022e3c 2f 11 |/ | MOVE.L (A1),-(A7) 00022e3e 3f 02 |? | MOVE.W D2,-(A7) 00022e40 3f 05 |? | MOVE.W D5,-(A7) 00022e42 4e 92 |N | JSR (A2) 00022e44 de c6 | | ADDA.W D6,A7 00022e46 48 53 |HS | PEA.L (A3) 00022e48 4e ba fb 78 |N x | JSR 0x229c2 00022e4c 58 4f |XO | ADDQ.L #0x4,A7 00022e4e 30 13 |0 | MOVE.W (A3),D0 00022e50 02 40 00 80 | @ | ANDI.W #0x0080,D0 00022e54 67 f0 |g | BEQ 0x22e46 00022e56 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 00022e5c 02 40 4f 00 | @O | ANDI.W #0x4f00,D0 00022e60 66 0c |f | BNE 0x22e6e 00022e62 30 39 00 02 fb 9c |09 | MOVE.W 0x2fb9c,D0 00022e68 02 40 df f0 | @ | ANDI.W #0xdff0,D0 00022e6c 67 06 |g | BEQ 0x22e74 00022e6e 20 54 | T | MOVEA.L (A4),A0 00022e70 42 10 |B | CLR.B (A0) 00022e72 60 04 |` | BRA 0x22e78 00022e74 20 54 | T | MOVEA.L (A4),A0 00022e76 10 81 | | MOVE.B D1,(A0) 00022e78 60 04 |` | BRA 0x22e7e 00022e7a 20 54 | T | MOVEA.L (A4),A0 00022e7c 10 81 | | MOVE.B D1,(A0) 00022e7e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022e82 4e 5e |N^ | UNLK A6 00022e84 4e 75 |Nu | RTS 00022e86 ; -------------------------------------------------------------------------------------- 00022e86 ; OMSI PASCAL Function 00022e86 ; <LVAR 0x008 1(rw)> 00022e86 ; -------------------------------------------------------------------------------------- 00022e86 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00022e8a bf d5 | | CMPA.L (A5),A7 00022e8c 62 06 |b | BHI 0x22e94 00022e8e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022e92 4e 76 |Nv | TRAPV 00022e94 de fc 00 10 | | ADDA.W #0x10,A7 00022e98 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00022e9c 41 f9 00 02 fb 9c |A | LEA.L 0x2fb9c,A0 00022ea2 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00022ea6 30 10 |0 | MOVE.W (A0),D0 00022ea8 02 40 80 00 | @ | ANDI.W #0x8000,D0 00022eac 66 04 |f | BNE 0x22eb2 00022eae 42 11 |B | CLR.B (A1) 00022eb0 60 12 |` | BRA 0x22ec4 00022eb2 30 10 |0 | MOVE.W (A0),D0 00022eb4 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 00022eb8 66 06 |f | BNE 0x22ec0 00022eba 12 bc 00 01 | | MOVE.B #0x01,(A1) 00022ebe 60 04 |` | BRA 0x22ec4 00022ec0 12 bc 00 02 | | MOVE.B #0x02,(A1) 00022ec4 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00022ec8 4e 5e |N^ | UNLK A6 00022eca 4e 75 |Nu | RTS 00022ecc ; -------------------------------------------------------------------------------------- 00022ecc ; OMSI PASCAL Function 00022ecc ; <LVAR 0x00c 4(w)> 00022ecc ; <LVAR 0x008 4(r)> 00022ecc ; -------------------------------------------------------------------------------------- 00022ecc 4e 56 ff e4 |NV | LINK.W A6,#0xffe4 00022ed0 bf d5 | | CMPA.L (A5),A7 00022ed2 62 06 |b | BHI 0x22eda 00022ed4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ed8 4e 76 |Nv | TRAPV 00022eda de fc 00 14 | | ADDA.W #0x14,A7 00022ede 48 e7 03 00 |H | MOVEM.L D7+D6,-(A7) 00022ee2 7e 01 |~ | MOVEQ.L #0x01,D7 00022ee4 4a ae 00 08 |J | TST.L (A6+0x8) 00022ee8 67 12 |g | BEQ 0x22efc 00022eea 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022eee 7c 01 || | MOVEQ.L #0x01,D6 00022ef0 bc 97 | | CMP.L (A7),D6 00022ef2 6e 06 |n | BGT 0x22efa 00022ef4 e3 87 | | ASL.L #0x1,D7 00022ef6 52 86 |R | ADDQ.L #0x1,D6 00022ef8 68 f6 |h | BVC 0x22ef0 00022efa 58 4f |XO | ADDQ.L #0x4,A7 00022efc 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc) 00022f00 4c df 00 c0 |L | MOVEM.L (A7)+,D6+D7 00022f04 4e 5e |N^ | UNLK A6 00022f06 4e 75 |Nu | RTS 00022f08 ; -------------------------------------------------------------------------------------- 00022f08 ; OMSI PASCAL Function 00022f08 ; <LVAR 0x008 4(r)> 00022f08 ; -------------------------------------------------------------------------------------- 00022f08 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 00022f0c bf d5 | | CMPA.L (A5),A7 00022f0e 62 06 |b | BHI 0x22f16 00022f10 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022f14 4e 76 |Nv | TRAPV 00022f16 de fc 00 30 | 0 | ADDA.W #0x30,A7 00022f1a 48 e7 ff 80 |H | MOVEM.L A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022f1e 2e 2e 00 08 |.. | MOVE.L (A6+0x8),D7 00022f22 53 87 |S | SUBQ.L #0x1,D7 00022f24 28 07 |( | MOVE.L D7,D4 00022f26 76 10 |v | MOVEQ.L #0x10,D3 00022f28 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00022f2e 2e 04 |. | MOVE.L D4,D7 00022f30 2c 03 |, | MOVE.L D3,D6 00022f32 59 4f |YO | SUBQ.L #0x4,A7 00022f34 2f 06 |/ | MOVE.L D6,-(A7) 00022f36 4e ba ff 94 |N | JSR 0x22ecc 00022f3a 58 4f |XO | ADDQ.L #0x4,A7 00022f3c 20 1f | | MOVE.L (A7)+,D0 00022f3e 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022f44 63 02 |c | BLS 0x22f48 00022f46 4e 4f |NO | TRAP #15 00022f48 3a 00 |: | MOVE.W D0,D5 00022f4a 0c 87 00 00 00 ff | | CMPI.L #0x000000ff,D7 00022f50 6e 50 |nP | BGT 0x22fa2 00022f52 0c 87 00 00 00 ff | | CMPI.L #0x000000ff,D7 00022f58 63 02 |c | BLS 0x22f5c 00022f5a 4e 4f |NO | TRAP #15 00022f5c 20 07 | | MOVE.L D7,D0 00022f5e e3 80 | | ASL.L #0x1,D0 00022f60 41 f9 00 02 3f 4c |A ?L | LEA.L 0x23f4c,A0 00022f66 32 30 08 36 |20 6 | MOVE.W (A0+D0.L+#0x36),D1 00022f6a c2 45 | E | AND.W D5,D1 00022f6c 66 18 |f | BNE 0x22f86 00022f6e 42 81 |B | CLR.L D1 00022f70 32 30 08 36 |20 6 | MOVE.W (A0+D0.L+#0x36),D1 00022f74 42 82 |B | CLR.L D2 00022f76 34 05 |4 | MOVE.W D5,D2 00022f78 d4 81 | | ADD.L D1,D2 00022f7a 0c 82 00 00 ff ff | | CMPI.L #0x0000ffff,D2 00022f80 63 02 |c | BLS 0x22f84 00022f82 4e 4f |NO | TRAP #15 00022f84 60 18 |` | BRA 0x22f9e 00022f86 42 81 |B | CLR.L D1 00022f88 32 30 08 36 |20 6 | MOVE.W (A0+D0.L+#0x36),D1 00022f8c 42 82 |B | CLR.L D2 00022f8e 34 05 |4 | MOVE.W D5,D2 00022f90 44 82 |D | NEG.L D2 00022f92 d4 81 | | ADD.L D1,D2 00022f94 0c 82 00 00 ff ff | | CMPI.L #0x0000ffff,D2 00022f9a 63 02 |c | BLS 0x22f9e 00022f9c 4e 4f |NO | TRAP #15 00022f9e 31 82 08 36 |1 6 | MOVE.W D2,(A0+D0.L+#0x36) 00022fa2 4c df 01 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0 00022fa6 4e 5e |N^ | UNLK A6 00022fa8 4e 75 |Nu | RTS 00022faa ; -------------------------------------------------------------------------------------- 00022faa ; OMSI PASCAL Function 00022faa ; -------------------------------------------------------------------------------------- 00022faa 4e 56 ff 94 |NV | LINK.W A6,#0xff94 00022fae bf d5 | | CMPA.L (A5),A7 00022fb0 62 06 |b | BHI 0x22fb8 00022fb2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022fb6 4e 76 |Nv | TRAPV 00022fb8 de fc 00 64 | d | ADDA.W #0x64,A7 00022fbc 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 00022fc0 72 01 |r | MOVEQ.L #0x01,D1 00022fc2 55 4f |UO | SUBQ.L #0x2,A7 00022fc4 4e ba fe c0 |N | JSR 0x22e86 00022fc8 10 1f | | MOVE.B (A7)+,D0 00022fca b0 01 | | CMP.B D1,D0 00022fcc 67 30 |g0 | BEQ 0x22ffe 00022fce 9e fc 00 40 | @ | SUBA.W #0x40,A7 00022fd2 20 4f | O | MOVEA.L A7,A0 00022fd4 43 fa da 7a |C z | LEA.L 0x20a50,A1 00022fd8 70 3e |p> | MOVEQ.L #0x3e,D0 00022fda 10 d9 | | MOVE.B (A1)+,(A0)+ 00022fdc 51 c8 ff fc |Q | DBF D0,0x22fda 00022fe0 59 4f |YO | SUBQ.L #0x4,A7 00022fe2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022fe6 3f 01 |? | MOVE.W D1,-(A7) 00022fe8 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 00022fec 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022ff2 50 4f |PO | ADDQ.L #0x8,A7 00022ff4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022ffa de fc 00 44 | D | ADDA.W #0x44,A7 00022ffe 7e 00 |~ | MOVEQ.L #0x00,D7 00023000 59 4f |YO | SUBQ.L #0x4,A7 00023002 2f 07 |/ | MOVE.L D7,-(A7) 00023004 4e ba fe c6 |N | JSR 0x22ecc 00023008 58 4f |XO | ADDQ.L #0x4,A7 0002300a 42 80 |B | CLR.L D0 0002300c 30 39 00 02 fb a2 |09 | MOVE.W 0x2fba2,D0 00023012 c0 9f | | AND.L (A7)+,D0 00023014 67 12 |g | BEQ 0x23028 00023016 42 80 |B | CLR.L D0 00023018 30 39 00 02 fb a0 |09 | MOVE.W 0x2fba0,D0 0002301e d0 87 | | ADD.L D7,D0 00023020 2f 00 |/ | MOVE.L D0,-(A7) 00023022 4e ba fe e4 |N | JSR 0x22f08 00023026 58 4f |XO | ADDQ.L #0x4,A7 00023028 52 87 |R | ADDQ.L #0x1,D7 0002302a 0c 87 00 00 00 0a | | CMPI.L #0x0000000a,D7 00023030 6f ce |o | BLE 0x23000 00023032 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 00023036 4e 5e |N^ | UNLK A6 00023038 4e 75 |Nu | RTS 0002303a ; -------------------------------------------------------------------------------------- 0002303a ; OMSI PASCAL Function 0002303a ; <LVAR 0x010 4(r)> 0002303a ; <LVAR 0x00c 4(r)> 0002303a ; <LVAR 0x008 4(r)> 0002303a ; -------------------------------------------------------------------------------------- 0002303a 4e 56 ff 92 |NV | LINK.W A6,#0xff92 0002303e bf d5 | | CMPA.L (A5),A7 00023040 62 06 |b | BHI 0x23048 00023042 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023046 4e 76 |Nv | TRAPV 00023048 de fc 00 6e | n | ADDA.W #0x6e,A7 0002304c 48 e7 f8 e0 |H | MOVEM.L A2+A1+A0+D4+D3+D2+D1+D0,-(A7) 00023050 45 f9 00 02 f7 88 |E | LEA.L 0x2f788,A2 00023056 74 01 |t | MOVEQ.L #0x01,D2 00023058 20 12 | | MOVE.L (A2),D0 0002305a 0c 80 00 00 03 e8 | | CMPI.L #0x000003e8,D0 00023060 6f 58 |oX | BLE 0x230ba 00023062 41 fa da 6c |A l | LEA.L 0x20ad0,A0 00023066 70 1c |p | MOVEQ.L #0x1c,D0 00023068 3f 20 |? | MOVE.W -(A0),-(A7) 0002306a 51 c8 ff fc |Q | DBF D0,0x23068 0002306e 59 4f |YO | SUBQ.L #0x4,A7 00023070 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023074 3f 02 |? | MOVE.W D2,-(A7) 00023076 3f 3c 00 3a |?< : | MOVE.W #0x3a,-(A7) 0002307a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023080 50 4f |PO | ADDQ.L #0x8,A7 00023082 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023088 de fc 00 16 | | ADDA.W #0x16,A7 0002308c 20 4f | O | MOVEA.L A7,A0 0002308e 43 fa da 40 |C @ | LEA.L 0x20ad0,A1 00023092 70 26 |p& | MOVEQ.L #0x26,D0 00023094 10 d9 | | MOVE.B (A1)+,(A0)+ 00023096 51 c8 ff fc |Q | DBF D0,0x23094 0002309a 59 4f |YO | SUBQ.L #0x4,A7 0002309c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000230a0 3f 02 |? | MOVE.W D2,-(A7) 000230a2 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 000230a6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000230ac 50 4f |PO | ADDQ.L #0x8,A7 000230ae 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000230b4 de fc 00 2c | , | ADDA.W #0x2c,A7 000230b8 60 48 |`H | BRA 0x23102 000230ba 22 00 |" | MOVE.L D0,D1 000230bc 53 81 |S | SUBQ.L #0x1,D1 000230be 0c 81 00 00 03 e7 | | CMPI.L #0x000003e7,D1 000230c4 63 02 |c | BLS 0x230c8 000230c6 4e 4f |NO | TRAP #15 000230c8 28 01 |( | MOVE.L D1,D4 000230ca 76 0c |v | MOVEQ.L #0x0c,D3 000230cc 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000230d2 41 f9 00 02 3f 4c |A ?L | LEA.L 0x23f4c,A0 000230d8 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 000230dc 22 48 |"H | MOVEA.L A0,A1 000230de d3 fc 00 00 89 5c | \ | ADDA.L #0x895c,A1 000230e4 22 ae 00 10 |" | MOVE.L (A6+0x10),(A1) 000230e8 22 48 |"H | MOVEA.L A0,A1 000230ea d3 fc 00 00 89 60 | ` | ADDA.L #0x8960,A1 000230f0 22 ae 00 0c |" | MOVE.L (A6+0xc),(A1) 000230f4 d1 fc 00 00 89 64 | d | ADDA.L #0x8964,A0 000230fa 20 ae 00 08 | | MOVE.L (A6+0x8),(A0) 000230fe 52 80 |R | ADDQ.L #0x1,D0 00023100 24 80 |$ | MOVE.L D0,(A2) 00023102 4c df 07 1f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+A0+A1+A2 00023106 4e 5e |N^ | UNLK A6 00023108 4e 75 |Nu | RTS 0002310a ; -------------------------------------------------------------------------------------- 0002310a ; OMSI PASCAL Function 0002310a ; -------------------------------------------------------------------------------------- 0002310a 4e 56 ff 80 |NV | LINK.W A6,#0xff80 0002310e bf d5 | | CMPA.L (A5),A7 00023110 62 06 |b | BHI 0x23118 00023112 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023116 4e 76 |Nv | TRAPV 00023118 de fc 00 7c | | | ADDA.W #0x7c,A7 0002311c 48 e7 fd f0 |H | MOVEM.L A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7) 00023120 43 f9 00 01 02 c4 |C | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A1 00023126 45 f9 00 01 03 e0 |E | LEA.L WriteConsoleStringCrLf(str : String),A2 0002312c 47 f9 00 01 02 e4 |G | LEA.L Long2String(a : Long) : String,A3 00023132 72 01 |r | MOVEQ.L #0x01,D1 00023134 74 24 |t$ | MOVEQ.L #0x24,D2 00023136 7a 03 |z | MOVEQ.L #0x03,D5 00023138 20 39 00 02 f7 88 | 9 | MOVE.L 0x2f788,D0 0002313e b0 81 | | CMP.L D1,D0 00023140 66 26 |f& | BNE 0x23168 00023142 41 fa d9 d2 |A | LEA.L 0x20b16,A0 00023146 70 0e |p | MOVEQ.L #0x0e,D0 00023148 3f 20 |? | MOVE.W -(A0),-(A7) 0002314a 51 c8 ff fc |Q | DBF D0,0x23148 0002314e 59 4f |YO | SUBQ.L #0x4,A7 00023150 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023154 3f 01 |? | MOVE.W D1,-(A7) 00023156 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 0002315a 4e 91 |N | JSR (A1) 0002315c 50 4f |PO | ADDQ.L #0x8,A7 0002315e 4e 92 |N | JSR (A2) 00023160 de fc 00 22 | " | ADDA.W #0x22,A7 00023164 60 00 00 f4 |` | BRA 0x2325a 00023168 53 80 |S | SUBQ.L #0x1,D0 0002316a 2f 00 |/ | MOVE.L D0,-(A7) 0002316c 7e 01 |~ | MOVEQ.L #0x01,D7 0002316e be 97 | | CMP.L (A7),D7 00023170 6e 00 00 e6 |n | BGT 0x23258 00023174 41 fa d9 c4 |A | LEA.L 0x20b3a,A0 00023178 70 08 |p | MOVEQ.L #0x08,D0 0002317a 2f 20 |/ | MOVE.L -(A0),-(A7) 0002317c 51 c8 ff fc |Q | DBF D0,0x2317a 00023180 59 4f |YO | SUBQ.L #0x4,A7 00023182 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023186 3f 01 |? | MOVE.W D1,-(A7) 00023188 3f 02 |? | MOVE.W D2,-(A7) 0002318a 4e 91 |N | JSR (A1) 0002318c 50 4f |PO | ADDQ.L #0x8,A7 0002318e 4e 92 |N | JSR (A2) 00023190 de c2 | | ADDA.W D2,A7 00023192 2e ba d9 b2 |. | MOVE.L 0x20b46,(A7) 00023196 2f 3a d9 aa |/: | MOVE.L 0x20b42,-(A7) 0002319a 2f 3a d9 a2 |/: | MOVE.L 0x20b3e,-(A7) 0002319e 2f 3a d9 9a |/: | MOVE.L 0x20b3a,-(A7) 000231a2 20 07 | | MOVE.L D7,D0 000231a4 53 80 |S | SUBQ.L #0x1,D0 000231a6 0c 80 00 00 03 e7 | | CMPI.L #0x000003e7,D0 000231ac 63 02 |c | BLS 0x231b0 000231ae 4e 4f |NO | TRAP #15 000231b0 28 00 |( | MOVE.L D0,D4 000231b2 76 0c |v | MOVEQ.L #0x0c,D3 000231b4 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000231ba 41 f9 00 02 3f 4c |A ?L | LEA.L 0x23f4c,A0 000231c0 2f 08 |/ | MOVE.L A0,-(A7) 000231c2 59 4f |YO | SUBQ.L #0x4,A7 000231c4 1e ba d9 84 | | MOVE.B 0x20b4a,(A7) 000231c8 1f 7a d9 81 00 01 | z | MOVE.B 0x20b4b,(A7+0x1) 000231ce 1f 7a d9 7c 00 02 | z | | MOVE.B 0x20b4c,(A7+0x2) 000231d4 59 4f |YO | SUBQ.L #0x4,A7 000231d6 1e ba d9 76 | v | MOVE.B 0x20b4e,(A7) 000231da 1f 7a d9 73 00 01 | z s | MOVE.B 0x20b4f,(A7+0x1) 000231e0 1f 7a d9 6e 00 02 | z n | MOVE.B 0x20b50,(A7+0x2) 000231e6 51 4f |QO | SUBQ.L #0x8,A7 000231e8 48 6f 00 14 |Ho | PEA.L (A7+0x14) 000231ec 3f 01 |? | MOVE.W D1,-(A7) 000231ee 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 000231f2 4e 91 |N | JSR (A1) 000231f4 58 4f |XO | ADDQ.L #0x4,A7 000231f6 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 000231fa d1 fc 00 00 89 5c | \ | ADDA.L #0x895c,A0 00023200 2f 10 |/ | MOVE.L (A0),-(A7) 00023202 4e 93 |N | JSR (A3) 00023204 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00023208 3f 01 |? | MOVE.W D1,-(A7) 0002320a 3f 05 |? | MOVE.W D5,-(A7) 0002320c 4e 91 |N | JSR (A1) 0002320e 58 4f |XO | ADDQ.L #0x4,A7 00023210 20 6f 00 1c | o | MOVEA.L (A7+0x1c),A0 00023214 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00023218 d1 fc 00 00 89 60 | ` | ADDA.L #0x8960,A0 0002321e 2f 10 |/ | MOVE.L (A0),-(A7) 00023220 4e 93 |N | JSR (A3) 00023222 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00023226 3f 01 |? | MOVE.W D1,-(A7) 00023228 3f 05 |? | MOVE.W D5,-(A7) 0002322a 4e 91 |N | JSR (A1) 0002322c 58 4f |XO | ADDQ.L #0x4,A7 0002322e 20 6f 00 24 | o $ | MOVEA.L (A7+0x24),A0 00023232 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00023236 d1 fc 00 00 89 64 | d | ADDA.L #0x8964,A0 0002323c 2f 10 |/ | MOVE.L (A0),-(A7) 0002323e 4e 93 |N | JSR (A3) 00023240 58 4f |XO | ADDQ.L #0x4,A7 00023242 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 00023248 de fc 00 18 | | ADDA.W #0x18,A7 0002324c 4e 92 |N | JSR (A2) 0002324e de fc 00 20 | | ADDA.W #0x20,A7 00023252 52 87 |R | ADDQ.L #0x1,D7 00023254 68 00 ff 18 |h | BVC 0x2316e 00023258 58 4f |XO | ADDQ.L #0x4,A7 0002325a 4c df 0f bf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3 0002325e 4e 5e |N^ | UNLK A6 00023260 4e 75 |Nu | RTS 00023262 ; -------------------------------------------------------------------------------------- 00023262 ; OMSI PASCAL Function 00023262 ; -------------------------------------------------------------------------------------- 00023262 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00023266 bf d5 | | CMPA.L (A5),A7 00023268 62 06 |b | BHI 0x23270 0002326a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002326e 4e 76 |Nv | TRAPV 00023270 de fc 00 58 | X | ADDA.W #0x58,A7 00023274 48 e7 f0 f0 |H | MOVEM.L A3+A2+A1+A0+D3+D2+D1+D0,-(A7) 00023278 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 0002327e 47 f9 00 01 02 e4 |G | LEA.L Long2String(a : Long) : String,A3 00023284 72 01 |r | MOVEQ.L #0x01,D1 00023286 74 02 |t | MOVEQ.L #0x02,D2 00023288 76 18 |v | MOVEQ.L #0x18,D3 0002328a 42 27 |B' | CLR.B -(A7) 0002328c 4e ba de 4c |N L | JSR 0x210da 00023290 9e fc 00 0e | | SUBA.W #0xe,A7 00023294 20 4f | O | MOVEA.L A7,A0 00023296 43 fa d9 12 |C | LEA.L 0x20baa,A1 0002329a 70 0e |p | MOVEQ.L #0x0e,D0 0002329c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002329e 51 c8 ff fc |Q | DBF D0,0x2329c 000232a2 3f 3a d9 16 |?: | MOVE.W 0x20bba,-(A7) 000232a6 3f 3a d9 14 |?: | MOVE.W 0x20bbc,-(A7) 000232aa 51 4f |QO | SUBQ.L #0x8,A7 000232ac 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000232b0 3f 01 |? | MOVE.W D1,-(A7) 000232b2 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 000232b6 4e 92 |N | JSR (A2) 000232b8 2e ac 00 18 |. | MOVE.L (A4+0x18),(A7) 000232bc 4e 93 |N | JSR (A3) 000232be 48 6f 00 12 |Ho | PEA.L (A7+0x12) 000232c2 3f 01 |? | MOVE.W D1,-(A7) 000232c4 3f 02 |? | MOVE.W D2,-(A7) 000232c6 4e 92 |N | JSR (A2) 000232c8 2e ac 00 14 |. | MOVE.L (A4+0x14),(A7) 000232cc 4e 93 |N | JSR (A3) 000232ce 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000232d2 3f 01 |? | MOVE.W D1,-(A7) 000232d4 3f 02 |? | MOVE.W D2,-(A7) 000232d6 4e 92 |N | JSR (A2) 000232d8 2e ac 00 04 |. | MOVE.L (A4+0x4),(A7) 000232dc 4e 93 |N | JSR (A3) 000232de 58 4f |XO | ADDQ.L #0x4,A7 000232e0 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 000232e6 de c3 | | ADDA.W D3,A7 000232e8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000232ee de c3 | | ADDA.W D3,A7 000232f0 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000232f6 48 78 4c 4b |HxLK | PEA.L 0x4c4b 000232fa 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00023300 2e ac 00 18 |. | MOVE.L (A4+0x18),(A7) 00023304 2f 2c 00 14 |/, | MOVE.L (A4+0x14),-(A7) 00023308 2f 2c 00 04 |/, | MOVE.L (A4+0x4),-(A7) 0002330c 4e ba fd 2c |N , | JSR 0x2303a 00023310 de fc 00 0c | | ADDA.W #0xc,A7 00023314 4c df 0f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3 00023318 4e 5e |N^ | UNLK A6 0002331a 4e 75 |Nu | RTS 0002331c ; -------------------------------------------------------------------------------------- 0002331c ; OMSI PASCAL Function 0002331c ; <LVAR 0x010 4(r)> 0002331c ; <LVAR 0x00c 4(r)> 0002331c ; <LVAR 0x008 4(r)> 0002331c ; <LVAR -0x004 4(w)> 0002331c ; <LVAR -0x008 @> 0002331c ; -------------------------------------------------------------------------------------- 0002331c 4e 56 ff 68 |NV h | LINK.W A6,#0xff68 00023320 bf d5 | | CMPA.L (A5),A7 00023322 62 06 |b | BHI 0x2332a 00023324 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023328 4e 76 |Nv | TRAPV 0002332a de fc 00 90 | | ADDA.W #0x90,A7 0002332e 48 e7 f9 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7) 00023332 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00023338 72 01 |r | MOVEQ.L #0x01,D1 0002333a 74 10 |t | MOVEQ.L #0x10,D2 0002333c 76 02 |v | MOVEQ.L #0x02,D3 0002333e 78 18 |x | MOVEQ.L #0x18,D4 00023340 42 80 |B | CLR.L D0 00023342 10 39 00 02 fd 45 | 9 E | MOVE.B 0x2fd45,D0 00023348 53 40 |S@ | SUBQ.W #0x1,D0 0002334a 48 c0 |H | EXTW.L D0 0002334c 2f 00 |/ | MOVE.L D0,-(A7) 0002334e 70 00 |p | MOVEQ.L #0x00,D0 00023350 b0 97 | | CMP.L (A7),D0 00023352 6e 00 01 7a |n z | BGT 0x234ce 00023356 2d 40 ff fc |-@ | MOVE.L D0,(A6-0x4) 0002335a 2f 00 |/ | MOVE.L D0,-(A7) 0002335c 7e 00 |~ | MOVEQ.L #0x00,D7 0002335e 52 87 |R | ADDQ.L #0x1,D7 00023360 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023364 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00023368 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002336c 20 2f 00 08 | / | MOVE.L (A7+0x8),D0 00023370 2f 00 |/ | MOVE.L D0,-(A7) 00023372 48 50 |HP | PEA.L (A0) 00023374 4e ba f9 7e |N ~ | JSR 0x22cf4 00023378 de c2 | | ADDA.W D2,A7 0002337a 4a 10 |J | TST.B (A0) 0002337c 66 08 |f | BNE 0x23386 0002337e 0c 87 00 00 00 05 | | CMPI.L #0x00000005,D7 00023384 6f d8 |o | BLE 0x2335e 00023386 4a 10 |J | TST.B (A0) 00023388 66 00 00 c8 |f | BNE 0x23452 0002338c 55 4f |UO | SUBQ.L #0x2,A7 0002338e 4e ba fa f6 |N | JSR 0x22e86 00023392 10 1f | | MOVE.B (A7)+,D0 00023394 b0 01 | | CMP.B D1,D0 00023396 66 00 00 ba |f | BNE 0x23452 0002339a 4a 39 00 02 c8 92 |J9 | TST.B 0x2c892 000233a0 66 00 00 aa |f | BNE 0x2344c 000233a4 9e fc 00 30 | 0 | SUBA.W #0x30,A7 000233a8 22 4f |"O | MOVEA.L A7,A1 000233aa 45 fa d7 a6 |E | LEA.L 0x20b52,A2 000233ae 70 2e |p. | MOVEQ.L #0x2e,D0 000233b0 12 da | | MOVE.B (A2)+,(A1)+ 000233b2 51 c8 ff fc |Q | DBF D0,0x233b0 000233b6 3f 3a d8 16 |?: | MOVE.W 0x20bce,-(A7) 000233ba 3f 3a d8 14 |?: | MOVE.W 0x20bd0,-(A7) 000233be 51 4f |QO | SUBQ.L #0x8,A7 000233c0 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000233c4 3f 01 |? | MOVE.W D1,-(A7) 000233c6 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 000233ca 4e 93 |N | JSR (A3) 000233cc 2e ae 00 10 |. | MOVE.L (A6+0x10),(A7) 000233d0 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000233d6 48 6f 00 12 |Ho | PEA.L (A7+0x12) 000233da 3f 01 |? | MOVE.W D1,-(A7) 000233dc 3f 03 |? | MOVE.W D3,-(A7) 000233de 4e 93 |N | JSR (A3) 000233e0 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 000233e4 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000233ea 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000233ee 3f 01 |? | MOVE.W D1,-(A7) 000233f0 3f 03 |? | MOVE.W D3,-(A7) 000233f2 4e 93 |N | JSR (A3) 000233f4 58 4f |XO | ADDQ.L #0x4,A7 000233f6 20 2f 00 50 | / P | MOVE.L (A7+0x50),D0 000233fa 2f 00 |/ | MOVE.L D0,-(A7) 000233fc 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00023402 58 4f |XO | ADDQ.L #0x4,A7 00023404 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 0002340a de c4 | | ADDA.W D4,A7 0002340c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023412 de c2 | | ADDA.W D2,A7 00023414 22 4f |"O | MOVEA.L A7,A1 00023416 45 fa d7 6a |E j | LEA.L 0x20b82,A2 0002341a 70 26 |p& | MOVEQ.L #0x26,D0 0002341c 12 da | | MOVE.B (A2)+,(A1)+ 0002341e 51 c8 ff fc |Q | DBF D0,0x2341c 00023422 5d 4f |]O | SUBQ.L #0x6,A7 00023424 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00023428 3f 01 |? | MOVE.W D1,-(A7) 0002342a 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 0002342e 4e 93 |N | JSR (A3) 00023430 5c 4f |\O | ADDQ.L #0x6,A7 00023432 1e 81 | | MOVE.B D1,(A7) 00023434 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 0002343a 5c 4f |\O | ADDQ.L #0x6,A7 0002343c 4a 1f |J | TST.B (A7)+ 0002343e 67 06 |g | BEQ 0x23446 00023440 4e ba fb 68 |N h | JSR 0x22faa 00023444 10 81 | | MOVE.B D1,(A0) 00023446 de fc 00 28 | ( | ADDA.W #0x28,A7 0002344a 60 06 |` | BRA 0x23452 0002344c 4e ba fb 5c |N \ | JSR 0x22faa 00023450 10 81 | | MOVE.B D1,(A0) 00023452 4a 10 |J | TST.B (A0) 00023454 67 68 |gh | BEQ 0x234be 00023456 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 0002345a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002345e 20 2f 00 08 | / | MOVE.L (A7+0x8),D0 00023462 2f 00 |/ | MOVE.L D0,-(A7) 00023464 1f 3c 00 08 | < | MOVE.B #0x08,-(A7) 00023468 48 50 |HP | PEA.L (A0) 0002346a 4e ba f4 5e |N ^ | JSR 0x228ca 0002346e de fc 00 12 | | ADDA.W #0x12,A7 00023472 4a 10 |J | TST.B (A0) 00023474 66 46 |fF | BNE 0x234bc 00023476 4e ba e6 ba |N | JSR 0x21b32 0002347a 30 39 00 02 fb 9e |09 | MOVE.W 0x2fb9e,D0 00023480 02 40 4f 00 | @O | ANDI.W #0x4f00,D0 00023484 66 08 |f | BNE 0x2348e 00023486 4a 79 00 02 fb 9c |Jy | TST.W 0x2fb9c 0002348c 67 2c |g, | BEQ 0x234ba 0002348e 1f 01 | | MOVE.B D1,-(A7) 00023490 4e ba dc 48 |N H | JSR 0x210da 00023494 54 4f |TO | ADDQ.L #0x2,A7 00023496 41 fa d7 4e |A N | LEA.L 0x20be6,A0 0002349a 70 04 |p | MOVEQ.L #0x04,D0 0002349c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002349e 51 c8 ff fc |Q | DBF D0,0x2349c 000234a2 59 4f |YO | SUBQ.L #0x4,A7 000234a4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000234a8 3f 01 |? | MOVE.W D1,-(A7) 000234aa 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 000234ae 4e 93 |N | JSR (A3) 000234b0 50 4f |PO | ADDQ.L #0x8,A7 000234b2 4e ba d9 8a |N | JSR 0x20e3e 000234b6 de c4 | | ADDA.W D4,A7 000234b8 60 02 |` | BRA 0x234bc 000234ba 10 81 | | MOVE.B D1,(A0) 000234bc 60 08 |` | BRA 0x234c6 000234be 49 ee ff f8 |I | LEA.L (A6-0x8),A4 000234c2 4e ba fd 9e |N | JSR 0x23262 000234c6 20 1f | | MOVE.L (A7)+,D0 000234c8 52 80 |R | ADDQ.L #0x1,D0 000234ca 68 00 fe 84 |h | BVC 0x23350 000234ce 58 4f |XO | ADDQ.L #0x4,A7 000234d0 4c df 1f 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4 000234d4 4e 5e |N^ | UNLK A6 000234d6 4e 75 |Nu | RTS 000234d8 ; -------------------------------------------------------------------------------------- 000234d8 ; OMSI PASCAL Function 000234d8 ; <LVAR 0x008 1(rw)> 000234d8 ; <LVAR -0x002 @ 1(r)> 000234d8 ; <LVAR -0x004 @> 000234d8 ; -------------------------------------------------------------------------------------- 000234d8 4e 56 ff ea |NV | LINK.W A6,#0xffea 000234dc bf d5 | | CMPA.L (A5),A7 000234de 62 06 |b | BHI 0x234e6 000234e0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000234e4 4e 76 |Nv | TRAPV 000234e6 de fc 00 12 | | ADDA.W #0x12,A7 000234ea 48 e7 c0 00 |H | MOVEM.L D1+D0,-(A7) 000234ee 72 01 |r | MOVEQ.L #0x01,D1 000234f0 42 2e 00 08 |B. | CLR.B (A6+0x8) 000234f4 3f 01 |? | MOVE.W D1,-(A7) 000234f6 48 6e ff fe |Hn | PEA.L (A6-0x2) 000234fa 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00023500 5c 4f |\O | ADDQ.L #0x6,A7 00023502 10 2e ff fe | . | MOVE.B (A6-0x2),D0 00023506 b0 01 | | CMP.B D1,D0 00023508 66 12 |f | BNE 0x2351c 0002350a 3f 01 |? | MOVE.W D1,-(A7) 0002350c 48 6e ff fc |Hn | PEA.L (A6-0x4) 00023510 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00023516 5c 4f |\O | ADDQ.L #0x6,A7 00023518 1d 41 00 08 | A | MOVE.B D1,(A6+0x8) 0002351c 4c df 00 03 |L | MOVEM.L (A7)+,D0+D1 00023520 4e 5e |N^ | UNLK A6 00023522 4e 75 |Nu | RTS 00023524 ; -------------------------------------------------------------------------------------- 00023524 ; OMSI PASCAL Function 00023524 ; -------------------------------------------------------------------------------------- 00023524 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 00023528 bf d5 | | CMPA.L (A5),A7 0002352a 62 06 |b | BHI 0x23532 0002352c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023530 4e 76 |Nv | TRAPV 00023532 de fc 00 2c | , | ADDA.W #0x2c,A7 00023536 48 e7 99 c0 |H | MOVEM.L A1+A0+D7+D4+D3+D0,-(A7) 0002353a 7e 01 |~ | MOVEQ.L #0x01,D7 0002353c 20 07 | | MOVE.L D7,D0 0002353e 53 80 |S | SUBQ.L #0x1,D0 00023540 0c 80 00 00 03 e7 | | CMPI.L #0x000003e7,D0 00023546 63 02 |c | BLS 0x2354a 00023548 4e 4f |NO | TRAP #15 0002354a 28 00 |( | MOVE.L D0,D4 0002354c 76 0c |v | MOVEQ.L #0x0c,D3 0002354e 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00023554 41 f9 00 02 3f 4c |A ?L | LEA.L 0x23f4c,A0 0002355a 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 0002355e 22 48 |"H | MOVEA.L A0,A1 00023560 d3 fc 00 00 89 5c | \ | ADDA.L #0x895c,A1 00023566 42 91 |B | CLR.L (A1) 00023568 22 48 |"H | MOVEA.L A0,A1 0002356a d3 fc 00 00 89 60 | ` | ADDA.L #0x8960,A1 00023570 42 91 |B | CLR.L (A1) 00023572 d1 fc 00 00 89 64 | d | ADDA.L #0x8964,A0 00023578 42 90 |B | CLR.L (A0) 0002357a 52 87 |R | ADDQ.L #0x1,D7 0002357c 0c 87 00 00 03 e8 | | CMPI.L #0x000003e8,D7 00023582 6f b8 |o | BLE 0x2353c 00023584 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x2f788 0002358c f7 88 | | 0002358e 4c df 03 99 |L | MOVEM.L (A7)+,D0+D3+D4+D7+A0+A1 00023592 4e 5e |N^ | UNLK A6 00023594 4e 75 |Nu | RTS 00023596 ; -------------------------------------------------------------------------------------- 00023596 ; OMSI PASCAL Function 00023596 ; <LVAR -0x010 @ 1(r)> 00023596 ; -------------------------------------------------------------------------------------- 00023596 4e 56 ff 7a |NV z | LINK.W A6,#0xff7a 0002359a bf d5 | | CMPA.L (A5),A7 0002359c 62 06 |b | BHI 0x235a4 0002359e 44 fc 00 02 |D | MOVE.W #0x2,CCR 000235a2 4e 76 |Nv | TRAPV 000235a4 de fc 00 72 | r | ADDA.W #0x72,A7 000235a8 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000235ac 45 f9 00 02 3f 5a |E ?Z | LEA.L 0x23f5a,A2 000235b2 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000235b8 49 ee ff f0 |I | LEA.L (A6-0x10),A4 000235bc 72 01 |r | MOVEQ.L #0x01,D1 000235be 74 0c |t | MOVEQ.L #0x0c,D2 000235c0 76 09 |v | MOVEQ.L #0x09,D3 000235c2 78 0e |x | MOVEQ.L #0x0e,D4 000235c4 7a 00 |z | MOVEQ.L #0x00,D5 000235c6 7c 00 || | MOVEQ.L #0x00,D6 000235c8 4e ba ff 5a |N Z | JSR 0x23524 000235cc 9e fc 00 2e | . | SUBA.W #0x2e,A7 000235d0 20 4f | O | MOVEA.L A7,A0 000235d2 43 fa d6 12 |C | LEA.L 0x20be6,A1 000235d6 70 2c |p, | MOVEQ.L #0x2c,D0 000235d8 10 d9 | | MOVE.B (A1)+,(A0)+ 000235da 51 c8 ff fc |Q | DBF D0,0x235d8 000235de 59 4f |YO | SUBQ.L #0x4,A7 000235e0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000235e4 3f 01 |? | MOVE.W D1,-(A7) 000235e6 3f 3c 00 2d |?< - | MOVE.W #0x2d,-(A7) 000235ea 4e 93 |N | JSR (A3) 000235ec 50 4f |PO | ADDQ.L #0x8,A7 000235ee 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000235f4 de fc 00 28 | ( | ADDA.W #0x28,A7 000235f8 20 4f | O | MOVEA.L A7,A0 000235fa 43 fa d6 18 |C | LEA.L 0x20c14,A1 000235fe 70 08 |p | MOVEQ.L #0x08,D0 00023600 10 d9 | | MOVE.B (A1)+,(A0)+ 00023602 51 c8 ff fc |Q | DBF D0,0x23600 00023606 51 4f |QO | SUBQ.L #0x8,A7 00023608 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002360c 3f 01 |? | MOVE.W D1,-(A7) 0002360e 3f 03 |? | MOVE.W D3,-(A7) 00023610 4e 93 |N | JSR (A3) 00023612 2e 85 |. | MOVE.L D5,(A7) 00023614 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002361a 58 4f |XO | ADDQ.L #0x4,A7 0002361c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023622 50 4f |PO | ADDQ.L #0x8,A7 00023624 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002362a de c4 | | ADDA.W D4,A7 0002362c 7e 00 |~ | MOVEQ.L #0x00,D7 0002362e 52 87 |R | ADDQ.L #0x1,D7 00023630 2f 05 |/ | MOVE.L D5,-(A7) 00023632 2f 06 |/ | MOVE.L D6,-(A7) 00023634 48 52 |HR | PEA.L (A2) 00023636 4e ba f3 ee |N | JSR 0x22a26 0002363a de c2 | | ADDA.W D2,A7 0002363c 4a 12 |J | TST.B (A2) 0002363e 66 08 |f | BNE 0x23648 00023640 0c 87 00 00 00 05 | | CMPI.L #0x00000005,D7 00023646 6f e6 |o | BLE 0x2362e 00023648 4a 12 |J | TST.B (A2) 0002364a 67 1e |g | BEQ 0x2366a 0002364c 2f 05 |/ | MOVE.L D5,-(A7) 0002364e 2f 06 |/ | MOVE.L D6,-(A7) 00023650 48 54 |HT | PEA.L (A4) 00023652 4e ba f5 60 |N ` | JSR 0x22bb4 00023656 de c2 | | ADDA.W D2,A7 00023658 4a 14 |J | TST.B (A4) 0002365a 66 0c |f | BNE 0x23668 0002365c 2f 05 |/ | MOVE.L D5,-(A7) 0002365e 2f 06 |/ | MOVE.L D6,-(A7) 00023660 48 54 |HT | PEA.L (A4) 00023662 4e ba fc b8 |N | JSR 0x2331c 00023666 de c2 | | ADDA.W D2,A7 00023668 60 0c |` | BRA 0x23676 0002366a 2f 05 |/ | MOVE.L D5,-(A7) 0002366c 2f 06 |/ | MOVE.L D6,-(A7) 0002366e 48 54 |HT | PEA.L (A4) 00023670 4e ba fc aa |N | JSR 0x2331c 00023674 de c2 | | ADDA.W D2,A7 00023676 52 86 |R | ADDQ.L #0x1,D6 00023678 42 80 |B | CLR.L D0 0002367a 10 39 00 02 fd 44 | 9 D | MOVE.B 0x2fd44,D0 00023680 bc 80 | | CMP.L D0,D6 00023682 65 6c |el | BCS 0x236f0 00023684 7c 00 || | MOVEQ.L #0x00,D6 00023686 52 85 |R | ADDQ.L #0x1,D5 00023688 1f 3c 00 1b | < | MOVE.B #0x1b,-(A7) 0002368c 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00023692 55 4f |UO | SUBQ.L #0x2,A7 00023694 1e ba d5 88 | | MOVE.B 0x20c1e,(A7) 00023698 1f 7a d5 85 00 01 | z | MOVE.B 0x20c1f,(A7+0x1) 0002369e 1f 7a d5 80 00 02 | z | MOVE.B 0x20c20,(A7+0x2) 000236a4 59 4f |YO | SUBQ.L #0x4,A7 000236a6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000236aa 3f 01 |? | MOVE.W D1,-(A7) 000236ac 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 000236b0 4e 93 |N | JSR (A3) 000236b2 50 4f |PO | ADDQ.L #0x8,A7 000236b4 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000236ba 55 4f |UO | SUBQ.L #0x2,A7 000236bc 20 4f | O | MOVEA.L A7,A0 000236be 43 fa d5 62 |C b | LEA.L 0x20c22,A1 000236c2 70 08 |p | MOVEQ.L #0x08,D0 000236c4 10 d9 | | MOVE.B (A1)+,(A0)+ 000236c6 51 c8 ff fc |Q | DBF D0,0x236c4 000236ca 51 4f |QO | SUBQ.L #0x8,A7 000236cc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000236d0 3f 01 |? | MOVE.W D1,-(A7) 000236d2 3f 03 |? | MOVE.W D3,-(A7) 000236d4 4e 93 |N | JSR (A3) 000236d6 2e 85 |. | MOVE.L D5,(A7) 000236d8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000236de 58 4f |XO | ADDQ.L #0x4,A7 000236e0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000236e6 50 4f |PO | ADDQ.L #0x8,A7 000236e8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000236ee de c4 | | ADDA.W D4,A7 000236f0 42 80 |B | CLR.L D0 000236f2 30 39 00 02 fd 42 |09 B | MOVE.W 0x2fd42,D0 000236f8 ba 80 | | CMP.L D0,D5 000236fa 64 0c |d | BCC 0x23708 000236fc 55 4f |UO | SUBQ.L #0x2,A7 000236fe 4e ba fd d8 |N | JSR 0x234d8 00023702 4a 1f |J | TST.B (A7)+ 00023704 67 00 ff 26 |g & | BEQ 0x2362c 00023708 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002370c 4e 5e |N^ | UNLK A6 0002370e 4e 75 |Nu | RTS 00023710 ; -------------------------------------------------------------------------------------- 00023710 ; OMSI PASCAL Function 00023710 ; <LVAR -0x004 @ 4(r)> 00023710 ; <LVAR -0x008 @ 4(r)> 00023710 ; -------------------------------------------------------------------------------------- 00023710 4e 56 ff ec |NV | LINK.W A6,#0xffec 00023714 bf d5 | | CMPA.L (A5),A7 00023716 62 06 |b | BHI 0x2371e 00023718 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002371c 4e 76 |Nv | TRAPV 0002371e de fc 00 0c | | ADDA.W #0xc,A7 00023722 48 78 00 63 |Hx c | PEA.L 0x63 00023726 4e ba e8 8c |N | JSR 0x21fb4 0002372a 58 4f |XO | ADDQ.L #0x4,A7 0002372c 33 fc 00 09 00 02 fd 42 |3 B| MOVE.W #0x9,0x2fd42 00023734 48 6e ff fc |Hn | PEA.L (A6-0x4) 00023738 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 0002373e 58 4f |XO | ADDQ.L #0x4,A7 00023740 42 39 00 02 c8 92 |B9 | CLR.B 0x2c892 00023746 4e ba fe 4e |N N | JSR 0x23596 0002374a 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002374e 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00023754 2e ae ff fc |. | MOVE.L (A6-0x4),(A7) 00023758 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 0002375c 4e ba e6 74 |N t | JSR 0x21dd2 00023760 50 4f |PO | ADDQ.L #0x8,A7 00023762 4e 5e |N^ | UNLK A6 00023764 4e 75 |Nu | RTS 00023766 ; -------------------------------------------------------------------------------------- 00023766 ; OMSI PASCAL Function 00023766 ; <LVAR -0x004 @ 4(r)> 00023766 ; <LVAR -0x008 @ 4(r)> 00023766 ; -------------------------------------------------------------------------------------- 00023766 4e 56 ff ec |NV | LINK.W A6,#0xffec 0002376a bf d5 | | CMPA.L (A5),A7 0002376c 62 06 |b | BHI 0x23774 0002376e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023772 4e 76 |Nv | TRAPV 00023774 de fc 00 0c | | ADDA.W #0xc,A7 00023778 48 78 00 63 |Hx c | PEA.L 0x63 0002377c 4e ba e8 36 |N 6 | JSR 0x21fb4 00023780 58 4f |XO | ADDQ.L #0x4,A7 00023782 33 fc 00 63 00 02 fd 42 |3 c B| MOVE.W #0x63,0x2fd42 0002378a 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002378e 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00023794 58 4f |XO | ADDQ.L #0x4,A7 00023796 42 39 00 02 c8 92 |B9 | CLR.B 0x2c892 0002379c 4e ba fd f8 |N | JSR 0x23596 000237a0 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000237a4 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000237aa 2e ae ff fc |. | MOVE.L (A6-0x4),(A7) 000237ae 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 000237b2 4e ba e6 1e |N | JSR 0x21dd2 000237b6 50 4f |PO | ADDQ.L #0x8,A7 000237b8 4e 5e |N^ | UNLK A6 000237ba 4e 75 |Nu | RTS 000237bc ; -------------------------------------------------------------------------------------- 000237bc ; OMSI PASCAL Function 000237bc ; <LVAR -0x004 @ 4(r)> 000237bc ; <LVAR -0x008 @ 4(r)> 000237bc ; -------------------------------------------------------------------------------------- 000237bc 4e 56 ff ec |NV | LINK.W A6,#0xffec 000237c0 bf d5 | | CMPA.L (A5),A7 000237c2 62 06 |b | BHI 0x237ca 000237c4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000237c8 4e 76 |Nv | TRAPV 000237ca de fc 00 0c | | ADDA.W #0xc,A7 000237ce 48 78 00 63 |Hx c | PEA.L 0x63 000237d2 4e ba e7 e0 |N | JSR 0x21fb4 000237d6 58 4f |XO | ADDQ.L #0x4,A7 000237d8 48 6e ff fc |Hn | PEA.L (A6-0x4) 000237dc 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000237e2 58 4f |XO | ADDQ.L #0x4,A7 000237e4 42 39 00 02 c8 92 |B9 | CLR.B 0x2c892 000237ea 4e ba fd aa |N | JSR 0x23596 000237ee 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000237f2 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000237f8 2e ae ff fc |. | MOVE.L (A6-0x4),(A7) 000237fc 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00023800 4e ba e5 d0 |N | JSR 0x21dd2 00023804 50 4f |PO | ADDQ.L #0x8,A7 00023806 4e 5e |N^ | UNLK A6 00023808 4e 75 |Nu | RTS 0002380a ; -------------------------------------------------------------------------------------- 0002380a ; OMSI PASCAL Function 0002380a ; <LVAR -0x004 @ 4(r)> 0002380a ; <LVAR -0x008 @ 4(r)> 0002380a ; -------------------------------------------------------------------------------------- 0002380a 4e 56 ff 70 |NV p | LINK.W A6,#0xff70 0002380e bf d5 | | CMPA.L (A5),A7 00023810 62 06 |b | BHI 0x23818 00023812 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023816 4e 76 |Nv | TRAPV 00023818 de fc 00 6c | l | ADDA.W #0x6c,A7 0002381c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023820 43 f9 00 02 fd 45 |C E | LEA.L 0x2fd45,A1 00023826 45 f9 00 02 fd 40 |E @ | LEA.L 0x2fd40,A2 0002382c 47 f9 00 01 02 8c |G | LEA.L ?muls_d3_d4,A3 00023832 49 f9 00 02 fd 42 |I B | LEA.L 0x2fd42,A4 00023838 74 01 |t | MOVEQ.L #0x01,D2 0002383a 7a 03 |z | MOVEQ.L #0x03,D5 0002383c 7c 1e || | MOVEQ.L #0x1e,D6 0002383e 7e 00 |~ | MOVEQ.L #0x00,D7 00023840 41 fa d4 08 |A | LEA.L 0x20c4a,A0 00023844 70 0e |p | MOVEQ.L #0x0e,D0 00023846 3f 20 |? | MOVE.W -(A0),-(A7) 00023848 51 c8 ff fc |Q | DBF D0,0x23846 0002384c 9e fc 00 0a | | SUBA.W #0xa,A7 00023850 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00023854 3f 02 |? | MOVE.W D2,-(A7) 00023856 3f 06 |? | MOVE.W D6,-(A7) 00023858 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002385e 2e 87 |. | MOVE.L D7,(A7) 00023860 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00023866 58 4f |XO | ADDQ.L #0x4,A7 00023868 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002386e 5c 4f |\O | ADDQ.L #0x6,A7 00023870 1e 82 | | MOVE.B D2,(A7) 00023872 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00023878 5c 4f |\O | ADDQ.L #0x6,A7 0002387a 4a 1f |J | TST.B (A7)+ 0002387c 67 32 |g2 | BEQ 0x238b0 0002387e 2f 07 |/ | MOVE.L D7,-(A7) 00023880 4e ba e7 32 |N 2 | JSR 0x21fb4 00023884 58 4f |XO | ADDQ.L #0x4,A7 00023886 be 85 | | CMP.L D5,D7 00023888 63 02 |c | BLS 0x2388c 0002388a 4e 4f |NO | TRAP #15 0002388c 28 07 |( | MOVE.L D7,D4 0002388e 76 06 |v | MOVEQ.L #0x06,D3 00023890 4e 93 |N | JSR (A3) 00023892 1d 82 48 dc | H | MOVE.B D2,(A6+D4.L-#0x24) 00023896 1d 94 48 de | H | MOVE.B (A4),(A6+D4.L-#0x22) 0002389a 1d b9 00 02 fd 43 48 df | CH | MOVE.B 0x2fd43,(A6+D4.L-#0x21) 000238a2 1d b9 00 02 fd 44 48 e0 | DH | MOVE.B 0x2fd44,(A6+D4.L-#0x20) 000238aa 1d 91 48 e1 | H | MOVE.B (A1),(A6+D4.L-#0x1f) 000238ae 60 10 |` | BRA 0x238c0 000238b0 be 85 | | CMP.L D5,D7 000238b2 63 02 |c | BLS 0x238b6 000238b4 4e 4f |NO | TRAP #15 000238b6 28 07 |( | MOVE.L D7,D4 000238b8 76 06 |v | MOVEQ.L #0x06,D3 000238ba 4e 93 |N | JSR (A3) 000238bc 42 36 48 dc |B6H | CLR.B (A6+D4.L-#0x24) 000238c0 de c6 | | ADDA.W D6,A7 000238c2 52 87 |R | ADDQ.L #0x1,D7 000238c4 be 85 | | CMP.L D5,D7 000238c6 6f 00 ff 78 |o x | BLE 0x23840 000238ca 7e 00 |~ | MOVEQ.L #0x00,D7 000238cc be 85 | | CMP.L D5,D7 000238ce 63 02 |c | BLS 0x238d2 000238d0 4e 4f |NO | TRAP #15 000238d2 28 07 |( | MOVE.L D7,D4 000238d4 76 06 |v | MOVEQ.L #0x06,D3 000238d6 4e 93 |N | JSR (A3) 000238d8 4a 36 48 dc |J6H | TST.B (A6+D4.L-#0x24) 000238dc 67 00 00 ea |g | BEQ 0x239c8 000238e0 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000238e6 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000238ec 2f 3a d3 68 |/: h | MOVE.L 0x20c56,-(A7) 000238f0 2f 3a d3 60 |/: ` | MOVE.L 0x20c52,-(A7) 000238f4 2f 3a d3 58 |/: X | MOVE.L 0x20c4e,-(A7) 000238f8 2f 3a d3 50 |/: P | MOVE.L 0x20c4a,-(A7) 000238fc 51 4f |QO | SUBQ.L #0x8,A7 000238fe 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023902 3f 02 |? | MOVE.W D2,-(A7) 00023904 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 00023908 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002390e 2e 87 |. | MOVE.L D7,(A7) 00023910 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00023916 58 4f |XO | ADDQ.L #0x4,A7 00023918 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002391e 50 4f |PO | ADDQ.L #0x8,A7 00023920 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023926 de fc 00 14 | | ADDA.W #0x14,A7 0002392a 18 b6 48 de | H | MOVE.B (A6+D4.L-#0x22),(A4) 0002392e 13 f6 48 df 00 02 fd 43 | H C| MOVE.B (A6+D4.L-#0x21),0x2fd43 00023936 13 f6 48 e0 00 02 fd 44 | H D| MOVE.B (A6+D4.L-#0x20),0x2fd44 0002393e 12 b6 48 e1 | H | MOVE.B (A6+D4.L-#0x1f),(A1) 00023942 0c 87 00 00 00 0f | | CMPI.L #0x0000000f,D7 00023948 63 02 |c | BLS 0x2394c 0002394a 4e 4f |NO | TRAP #15 0002394c 34 87 |4 | MOVE.W D7,(A2) 0002394e 42 80 |B | CLR.L D0 00023950 10 11 | | MOVE.B (A1),D0 00023952 32 3c 01 02 |2< | MOVE.W #0x102,D1 00023956 c2 c0 | | MULU.W D0,D1 00023958 44 81 |D | NEG.L D1 0002395a 02 81 00 00 ff ff | | ANDI.L #0x0000ffff,D1 00023960 33 c1 00 02 fd 46 |3 F | MOVE.W D1,0x2fd46 00023966 32 12 |2 | MOVE.W (A2),D1 00023968 0c 41 ff ff | A | CMPI.W #0xffff,D1 0002396c 63 02 |c | BLS 0x23970 0002396e 4e 4f |NO | TRAP #15 00023970 33 c1 00 02 3f 64 |3 ?d | MOVE.W D1,0x23f64 00023976 54 40 |T@ | ADDQ.W #0x2,D0 00023978 e2 40 | @ | ASR.W #0x1,D0 0002397a c1 fc 01 00 | | MULS.W #0x100,D0 0002397e 33 c0 00 02 c8 94 |3 | MOVE.W D0,0x2c894 00023984 30 12 |0 | MOVE.W (A2),D0 00023986 e1 40 | @ | ASL.W #0x8,D0 00023988 54 40 |T@ | ADDQ.W #0x2,D0 0002398a 0c 40 ff ff | @ | CMPI.W #0xffff,D0 0002398e 63 02 |c | BLS 0x23992 00023990 4e 4f |NO | TRAP #15 00023992 33 c0 00 02 c8 9e |3 | MOVE.W D0,0x2c89e 00023998 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002399c 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000239a2 58 4f |XO | ADDQ.L #0x4,A7 000239a4 13 c2 00 02 c8 92 | | MOVE.B D2,0x2c892 000239aa 4e ba fb ea |N | JSR 0x23596 000239ae 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000239b2 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000239b8 2e ae ff fc |. | MOVE.L (A6-0x4),(A7) 000239bc 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 000239c0 4e ba e4 10 |N | JSR 0x21dd2 000239c4 50 4f |PO | ADDQ.L #0x8,A7 000239c6 60 04 |` | BRA 0x239cc 000239c8 42 36 48 dc |B6H | CLR.B (A6+D4.L-#0x24) 000239cc 52 87 |R | ADDQ.L #0x1,D7 000239ce be 85 | | CMP.L D5,D7 000239d0 6f 00 fe fa |o | BLE 0x238cc 000239d4 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000239d8 4e 5e |N^ | UNLK A6 000239da 4e 75 |Nu | RTS 000239dc ; -------------------------------------------------------------------------------------- 000239dc ; OMSI PASCAL Function 000239dc ; -------------------------------------------------------------------------------------- 000239dc 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 000239e0 bf d5 | | CMPA.L (A5),A7 000239e2 62 06 |b | BHI 0x239ea 000239e4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000239e8 4e 76 |Nv | TRAPV 000239ea de fc 00 56 | V | ADDA.W #0x56,A7 000239ee 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000239f2 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000239f8 47 f9 00 01 03 d8 |G | LEA.L WriteConsoleString(str : String),A3 000239fe 49 fa c7 0a |I | LEA.L 0x2010a,A4 00023a02 74 0e |t | MOVEQ.L #0x0e,D2 00023a04 76 01 |v | MOVEQ.L #0x01,D3 00023a06 78 0d |x | MOVEQ.L #0x0d,D4 00023a08 7a 12 |z | MOVEQ.L #0x12,D5 00023a0a 7c 05 || | MOVEQ.L #0x05,D6 00023a0c 9e c2 | | SUBA.W D2,A7 00023a0e 20 4f | O | MOVEA.L A7,A0 00023a10 43 fa d2 48 |C H | LEA.L 0x20c5a,A1 00023a14 70 0c |p | MOVEQ.L #0x0c,D0 00023a16 10 d9 | | MOVE.B (A1)+,(A0)+ 00023a18 51 c8 ff fc |Q | DBF D0,0x23a16 00023a1c 59 4f |YO | SUBQ.L #0x4,A7 00023a1e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023a22 3f 03 |? | MOVE.W D3,-(A7) 00023a24 3f 04 |? | MOVE.W D4,-(A7) 00023a26 4e 92 |N | JSR (A2) 00023a28 50 4f |PO | ADDQ.L #0x8,A7 00023a2a 4e 93 |N | JSR (A3) 00023a2c de c5 | | ADDA.W D5,A7 00023a2e 7e 01 |~ | MOVEQ.L #0x01,D7 00023a30 20 06 | | MOVE.L D6,D0 00023a32 53 80 |S | SUBQ.L #0x1,D0 00023a34 0c 80 00 00 00 21 | ! | CMPI.L #0x00000021,D0 00023a3a 63 02 |c | BLS 0x23a3e 00023a3c 4e 4f |NO | TRAP #15 00023a3e 20 4c | L | MOVEA.L A4,A0 00023a40 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1 00023a44 0c 01 00 2c | , | CMPI.B #0x2c,D1 00023a48 66 00 00 96 |f | BNE 0x23ae0 00023a4c 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00023a52 10 07 | | MOVE.B D7,D0 00023a54 48 80 |H | EXTB.W D0 00023a56 53 40 |S@ | SUBQ.W #0x1,D0 00023a58 0c 40 00 02 | @ | CMPI.W #0x0002,D0 00023a5c 63 02 |c | BLS 0x23a60 00023a5e 4e 4e |NN | TRAP #14 00023a60 d0 40 | @ | ADD.W D0,D0 00023a62 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00023a6a 00 06 | | .CONST 0x6 ; [0x0] -> 0x23a70 00023a6c 00 2c | , | .CONST 0x2c ; [0x1] -> 0x23a96 00023a6e 00 52 | R | .CONST 0x52 ; [0x2] -> 0x23abc 00023a70 switch@0x23a62[0x0]: 00023a70 9e c2 | | SUBA.W D2,A7 00023a72 20 4f | O | MOVEA.L A7,A0 00023a74 43 fa d1 f2 |C | LEA.L 0x20c68,A1 00023a78 70 0c |p | MOVEQ.L #0x0c,D0 00023a7a 10 d9 | | MOVE.B (A1)+,(A0)+ 00023a7c 51 c8 ff fc |Q | DBF D0,0x23a7a 00023a80 59 4f |YO | SUBQ.L #0x4,A7 00023a82 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023a86 3f 03 |? | MOVE.W D3,-(A7) 00023a88 3f 04 |? | MOVE.W D4,-(A7) 00023a8a 4e 92 |N | JSR (A2) 00023a8c 50 4f |PO | ADDQ.L #0x8,A7 00023a8e 4e 93 |N | JSR (A3) 00023a90 de c5 | | ADDA.W D5,A7 00023a92 7e 02 |~ | MOVEQ.L #0x02,D7 00023a94 60 48 |`H | BRA 0x23ade 00023a96 switch@0x23a62[0x1]: 00023a96 9e c2 | | SUBA.W D2,A7 00023a98 20 4f | O | MOVEA.L A7,A0 00023a9a 43 fa d1 da |C | LEA.L 0x20c76,A1 00023a9e 70 0c |p | MOVEQ.L #0x0c,D0 00023aa0 10 d9 | | MOVE.B (A1)+,(A0)+ 00023aa2 51 c8 ff fc |Q | DBF D0,0x23aa0 00023aa6 59 4f |YO | SUBQ.L #0x4,A7 00023aa8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023aac 3f 03 |? | MOVE.W D3,-(A7) 00023aae 3f 04 |? | MOVE.W D4,-(A7) 00023ab0 4e 92 |N | JSR (A2) 00023ab2 50 4f |PO | ADDQ.L #0x8,A7 00023ab4 4e 93 |N | JSR (A3) 00023ab6 de c5 | | ADDA.W D5,A7 00023ab8 7e 03 |~ | MOVEQ.L #0x03,D7 00023aba 60 22 |`" | BRA 0x23ade 00023abc switch@0x23a62[0x2]: 00023abc 9e c2 | | SUBA.W D2,A7 00023abe 20 4f | O | MOVEA.L A7,A0 00023ac0 43 fa d1 c2 |C | LEA.L 0x20c84,A1 00023ac4 70 0c |p | MOVEQ.L #0x0c,D0 00023ac6 10 d9 | | MOVE.B (A1)+,(A0)+ 00023ac8 51 c8 ff fc |Q | DBF D0,0x23ac6 00023acc 59 4f |YO | SUBQ.L #0x4,A7 00023ace 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023ad2 3f 03 |? | MOVE.W D3,-(A7) 00023ad4 3f 04 |? | MOVE.W D4,-(A7) 00023ad6 4e 92 |N | JSR (A2) 00023ad8 50 4f |PO | ADDQ.L #0x8,A7 00023ada 4e 93 |N | JSR (A3) 00023adc de c5 | | ADDA.W D5,A7 00023ade 60 22 |`" | BRA 0x23b02 00023ae0 20 4c | L | MOVEA.L A4,A0 00023ae2 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1 00023ae6 0c 01 00 5c | \ | CMPI.B #0x5c,D1 00023aea 66 08 |f | BNE 0x23af4 00023aec 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00023af2 60 0e |` | BRA 0x23b02 00023af4 20 4c | L | MOVEA.L A4,A0 00023af6 1f 30 08 00 | 0 | MOVE.B (A0+D0.L),-(A7) 00023afa 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00023b00 54 4f |TO | ADDQ.L #0x2,A7 00023b02 52 86 |R | ADDQ.L #0x1,D6 00023b04 20 06 | | MOVE.L D6,D0 00023b06 53 80 |S | SUBQ.L #0x1,D0 00023b08 53 80 |S | SUBQ.L #0x1,D0 00023b0a 0c 80 00 00 00 21 | ! | CMPI.L #0x00000021,D0 00023b10 63 02 |c | BLS 0x23b14 00023b12 4e 4f |NO | TRAP #15 00023b14 20 4c | L | MOVEA.L A4,A0 00023b16 10 30 08 00 | 0 | MOVE.B (A0+D0.L),D0 00023b1a 0c 00 00 5c | \ | CMPI.B #0x5c,D0 00023b1e 66 00 ff 10 |f | BNE 0x23a30 00023b22 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00023b26 4e 5e |N^ | UNLK A6 00023b28 4e 75 |Nu | RTS 00023b2a ; -------------------------------------------------------------------------------------- 00023b2a ; OMSI PASCAL Function 00023b2a ; -------------------------------------------------------------------------------------- 00023b2a 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 00023b2e bf d5 | | CMPA.L (A5),A7 00023b30 62 06 |b | BHI 0x23b38 00023b32 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023b36 4e 76 |Nv | TRAPV 00023b38 de fc 00 4c | L | ADDA.W #0x4c,A7 00023b3c 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00023b40 4e ba fe 9a |N | JSR 0x239dc 00023b44 55 4f |UO | SUBQ.L #0x2,A7 00023b46 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool 00023b4c 4a 1f |J | TST.B (A7)+ 00023b4e 66 0c |f | BNE 0x23b5c 00023b50 55 4f |UO | SUBQ.L #0x2,A7 00023b52 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00023b58 4a 1f |J | TST.B (A7)+ 00023b5a 67 30 |g0 | BEQ 0x23b8c 00023b5c 9e fc 00 30 | 0 | SUBA.W #0x30,A7 00023b60 20 4f | O | MOVEA.L A7,A0 00023b62 43 fa d1 2e |C . | LEA.L 0x20c92,A1 00023b66 70 2e |p. | MOVEQ.L #0x2e,D0 00023b68 10 d9 | | MOVE.B (A1)+,(A0)+ 00023b6a 51 c8 ff fc |Q | DBF D0,0x23b68 00023b6e 59 4f |YO | SUBQ.L #0x4,A7 00023b70 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023b74 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00023b78 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 00023b7c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023b82 50 4f |PO | ADDQ.L #0x8,A7 00023b84 4e ba d2 b8 |N | JSR 0x20e3e 00023b88 de fc 00 34 | 4 | ADDA.W #0x34,A7 00023b8c 41 f9 00 02 f7 8c |A | LEA.L 0x2f78c,A0 00023b92 23 c8 00 02 fb 8e |# | MOVE.L A0,0x2fb8e 00023b98 2f 08 |/ | MOVE.L A0,-(A7) 00023b9a 23 df 00 02 fb 92 |# | MOVE.L (A7)+,0x2fb92 00023ba0 41 f9 00 02 3f 66 |A ?f | LEA.L 0x23f66,A0 00023ba6 43 fa d1 ea |C | LEA.L 0x20d92,A1 00023baa 70 05 |p | MOVEQ.L #0x05,D0 00023bac 20 d9 | | MOVE.L (A1)+,(A0)+ 00023bae 51 c8 ff fc |Q | DBF D0,0x23bac 00023bb2 4e ba f9 70 |N p | JSR 0x23524 00023bb6 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00023bba 4e 5e |N^ | UNLK A6 00023bbc 4e 75 |Nu | RTS 00023bbe ; -------------------------------------------------------------------------------------- 00023bbe ; OMSI PASCAL Function 00023bbe ; -------------------------------------------------------------------------------------- 00023bbe START: 00023bbe 4f fa 00 08 |O | LEA.L MAIN,A7 00023bc2 4e f9 00 01 02 80 |N | JMP ?start_program 00023bc8 MAIN: 00023bc8 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00023bce 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00023bd4 49 f9 00 02 fd 48 |I H | LEA.L 0x2fd48,A4 00023bda 72 01 |r | MOVEQ.L #0x01,D1 00023bdc 74 06 |t | MOVEQ.L #0x06,D2 00023bde 76 0c |v | MOVEQ.L #0x0c,D3 00023be0 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00023be6 4e ba ff 42 |N B | JSR 0x23b2a 00023bea 2f 3a d0 de |/: | MOVE.L 0x20cca,-(A7) 00023bee 2f 3a d0 d6 |/: | MOVE.L 0x20cc6,-(A7) 00023bf2 2f 3a d0 ce |/: | MOVE.L 0x20cc2,-(A7) 00023bf6 59 4f |YO | SUBQ.L #0x4,A7 00023bf8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023bfc 3f 01 |? | MOVE.W D1,-(A7) 00023bfe 3f 03 |? | MOVE.W D3,-(A7) 00023c00 4e 92 |N | JSR (A2) 00023c02 50 4f |PO | ADDQ.L #0x8,A7 00023c04 4e 93 |N | JSR (A3) 00023c06 54 4f |TO | ADDQ.L #0x2,A7 00023c08 20 4f | O | MOVEA.L A7,A0 00023c0a 43 fa d0 c2 |C | LEA.L 0x20cce,A1 00023c0e 70 0c |p | MOVEQ.L #0x0c,D0 00023c10 10 d9 | | MOVE.B (A1)+,(A0)+ 00023c12 51 c8 ff fc |Q | DBF D0,0x23c10 00023c16 59 4f |YO | SUBQ.L #0x4,A7 00023c18 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023c1c 3f 01 |? | MOVE.W D1,-(A7) 00023c1e 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00023c22 4e 92 |N | JSR (A2) 00023c24 50 4f |PO | ADDQ.L #0x8,A7 00023c26 4e 93 |N | JSR (A3) 00023c28 51 4f |QO | SUBQ.L #0x8,A7 00023c2a 20 4f | O | MOVEA.L A7,A0 00023c2c 43 fa d0 ae |C | LEA.L 0x20cdc,A1 00023c30 70 18 |p | MOVEQ.L #0x18,D0 00023c32 10 d9 | | MOVE.B (A1)+,(A0)+ 00023c34 51 c8 ff fc |Q | DBF D0,0x23c32 00023c38 59 4f |YO | SUBQ.L #0x4,A7 00023c3a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023c3e 3f 01 |? | MOVE.W D1,-(A7) 00023c40 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00023c44 4e 92 |N | JSR (A2) 00023c46 50 4f |PO | ADDQ.L #0x8,A7 00023c48 4e 93 |N | JSR (A3) 00023c4a 55 4f |UO | SUBQ.L #0x2,A7 00023c4c 20 4f | O | MOVEA.L A7,A0 00023c4e 43 fa d0 a6 |C | LEA.L 0x20cf6,A1 00023c52 70 1e |p | MOVEQ.L #0x1e,D0 00023c54 10 d9 | | MOVE.B (A1)+,(A0)+ 00023c56 51 c8 ff fc |Q | DBF D0,0x23c54 00023c5a 59 4f |YO | SUBQ.L #0x4,A7 00023c5c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023c60 3f 01 |? | MOVE.W D1,-(A7) 00023c62 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00023c66 4e 92 |N | JSR (A2) 00023c68 50 4f |PO | ADDQ.L #0x8,A7 00023c6a 4e 93 |N | JSR (A3) 00023c6c de fc 00 24 | $ | ADDA.W #0x24,A7 00023c70 41 fa d0 c0 |A | LEA.L 0x20d32,A0 00023c74 70 06 |p | MOVEQ.L #0x06,D0 00023c76 2f 20 |/ | MOVE.L -(A0),-(A7) 00023c78 51 c8 ff fc |Q | DBF D0,0x23c76 00023c7c 59 4f |YO | SUBQ.L #0x4,A7 00023c7e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023c82 3f 01 |? | MOVE.W D1,-(A7) 00023c84 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 00023c88 4e 92 |N | JSR (A2) 00023c8a 50 4f |PO | ADDQ.L #0x8,A7 00023c8c 4e 93 |N | JSR (A3) 00023c8e de fc 00 20 | | ADDA.W #0x20,A7 00023c92 23 fc 00 00 00 03 00 02 |# | MOVE.L #0x3,0x2fd4a 00023c9a fd 4a | J | 00023c9c 9e fc 00 10 | | SUBA.W #0x10,A7 00023ca0 20 4f | O | MOVEA.L A7,A0 00023ca2 43 fa d0 de |C | LEA.L 0x20d82,A1 00023ca6 70 0e |p | MOVEQ.L #0x0e,D0 00023ca8 10 d9 | | MOVE.B (A1)+,(A0)+ 00023caa 51 c8 ff fc |Q | DBF D0,0x23ca8 00023cae 51 4f |QO | SUBQ.L #0x8,A7 00023cb0 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023cb4 3f 01 |? | MOVE.W D1,-(A7) 00023cb6 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00023cba 4e 92 |N | JSR (A2) 00023cbc 50 4f |PO | ADDQ.L #0x8,A7 00023cbe 48 78 00 00 |Hx | PEA.L 0x0 00023cc2 2f 39 00 02 fd 4a |/9 J | MOVE.L 0x2fd4a,-(A7) 00023cc8 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00023cce de c3 | | ADDA.W D3,A7 00023cd0 10 2f 00 03 | / | MOVE.B (A7+0x3),D0 00023cd4 48 80 |H | EXTB.W D0 00023cd6 41 82 |A | CHK.W D2,D0 00023cd8 de fc 00 14 | | ADDA.W #0x14,A7 00023cdc 18 80 | | MOVE.B D0,(A4) 00023cde b0 02 | | CMP.B D2,D0 00023ce0 10 14 | | MOVE.B (A4),D0 00023ce2 48 80 |H | EXTB.W D0 00023ce4 b0 42 | B | CMP.W D2,D0 00023ce6 63 02 |c | BLS 0x23cea 00023ce8 4e 4e |NN | TRAP #14 00023cea d0 40 | @ | ADD.W D0,D0 00023cec 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00023cf4 00 0e | | .CONST 0xe ; [0x0] -> 0x23d02 00023cf6 00 10 | | .CONST 0x10 ; [0x1] -> 0x23d04 00023cf8 00 16 | | .CONST 0x16 ; [0x2] -> 0x23d0a 00023cfa 00 1c | | .CONST 0x1c ; [0x3] -> 0x23d10 00023cfc 00 22 | " | .CONST 0x22 ; [0x4] -> 0x23d16 00023cfe 00 28 | ( | .CONST 0x28 ; [0x5] -> 0x23d1c 00023d00 00 2e | . | .CONST 0x2e ; [0x6] -> 0x23d22 00023d02 switch@0x23cec[0x0]: 00023d02 60 22 |`" | BRA 0x23d26 00023d04 switch@0x23cec[0x1]: 00023d04 4e ba fa b6 |N | JSR 0x237bc 00023d08 60 1c |` | BRA 0x23d26 00023d0a switch@0x23cec[0x2]: 00023d0a 4e ba fa fe |N | JSR 0x2380a 00023d0e 60 16 |` | BRA 0x23d26 00023d10 switch@0x23cec[0x3]: 00023d10 4e ba f3 f8 |N | JSR 0x2310a 00023d14 60 10 |` | BRA 0x23d26 00023d16 switch@0x23cec[0x4]: 00023d16 4e ba f9 f8 |N | JSR 0x23710 00023d1a 60 0a |` | BRA 0x23d26 00023d1c switch@0x23cec[0x5]: 00023d1c 4e ba fa 48 |N H | JSR 0x23766 00023d20 60 04 |` | BRA 0x23d26 00023d22 switch@0x23cec[0x6]: 00023d22 4e ba d0 ca |N | JSR 0x20dee 00023d26 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00023d2c 4a 14 |J | TST.B (A4) 00023d2e 66 00 fe ba |f | BNE 0x23bea 00023d32 42 27 |B' | CLR.B -(A7) 00023d34 48 78 00 01 |Hx | PEA.L 0x1 00023d38 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00023d3e 5c 4f |\O | ADDQ.L #0x6,A7 00023d40 4e b9 00 01 02 84 |N | JSR ?exit 00023d46 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00023d54 ; -------------------------------------------------------------------------------------- 00023d54 ; OMSI PASCAL Function 00023d54 ; <LVAR 0x008 1(r)> 00023d54 ; -------------------------------------------------------------------------------------- 00023d54 PROG_FAIL: 00023d54 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00023d58 bf d5 | | CMPA.L (A5),A7 00023d5a 62 06 |b | BHI 0x23d62 00023d5c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023d60 4e 76 |Nv | TRAPV 00023d62 de fc 00 2c | , | ADDA.W #0x2c,A7 00023d66 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00023d6a 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00023d6e 70 06 |p | MOVEQ.L #0x06,D0 00023d70 3f 20 |? | MOVE.W -(A0),-(A7) 00023d72 51 c8 ff fc |Q | DBF D0,0x23d70 00023d76 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00023d7a 51 4f |QO | SUBQ.L #0x8,A7 00023d7c 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00023d80 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00023d84 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00023d88 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023d8e 58 4f |XO | ADDQ.L #0x4,A7 00023d90 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00023d94 48 80 |H | EXTB.W D0 00023d96 48 c0 |H | EXTW.L D0 00023d98 2f 00 |/ | MOVE.L D0,-(A7) 00023d9a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00023da0 58 4f |XO | ADDQ.L #0x4,A7 00023da2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023da8 50 4f |PO | ADDQ.L #0x8,A7 00023daa 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00023db0 de fc 00 14 | | ADDA.W #0x14,A7 00023db4 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00023db8 4e 5e |N^ | UNLK A6 00023dba 4e 75 |Nu | RTS 00023dbc 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00023dca 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00023dd8 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00023de6 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00023df8 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00023e10 ; -------------------------------------------------------------------------------------- 00023e10 ; OMSI PASCAL Function 00023e10 ; <LVAR 0x00e 1(r)> 00023e10 ; <LVAR 0x00a 4(r)> 00023e10 ; <LVAR 0x008 1(r)> 00023e10 ; -------------------------------------------------------------------------------------- 00023e10 EXP_FAIL: 00023e10 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00023e14 bf d5 | | CMPA.L (A5),A7 00023e16 62 06 |b | BHI 0x23e1e 00023e18 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e1c 4e 76 |Nv | TRAPV 00023e1e de fc 00 74 | t | ADDA.W #0x74,A7 00023e22 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00023e26 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00023e2c 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00023e32 72 01 |r | MOVEQ.L #0x01,D1 00023e34 74 0d |t | MOVEQ.L #0x0d,D2 00023e36 76 1e |v | MOVEQ.L #0x1e,D3 00023e38 78 12 |x | MOVEQ.L #0x12,D4 00023e3a 7a 0e |z | MOVEQ.L #0x0e,D5 00023e3c 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00023e42 41 fa ff b4 |A | LEA.L 0x23df8,A0 00023e46 70 08 |p | MOVEQ.L #0x08,D0 00023e48 3f 20 |? | MOVE.W -(A0),-(A7) 00023e4a 51 c8 ff fc |Q | DBF D0,0x23e48 00023e4e 59 4f |YO | SUBQ.L #0x4,A7 00023e50 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023e54 3f 01 |? | MOVE.W D1,-(A7) 00023e56 3f 04 |? | MOVE.W D4,-(A7) 00023e58 4e 93 |N | JSR (A3) 00023e5a 50 4f |PO | ADDQ.L #0x8,A7 00023e5c 4e 94 |N | JSR (A4) 00023e5e 50 4f |PO | ADDQ.L #0x8,A7 00023e60 20 4f | O | MOVEA.L A7,A0 00023e62 43 fa ff 58 |C X | LEA.L 0x23dbc,A1 00023e66 70 0c |p | MOVEQ.L #0x0c,D0 00023e68 10 d9 | | MOVE.B (A1)+,(A0)+ 00023e6a 51 c8 ff fc |Q | DBF D0,0x23e68 00023e6e 51 4f |QO | SUBQ.L #0x8,A7 00023e70 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023e74 3f 01 |? | MOVE.W D1,-(A7) 00023e76 3f 02 |? | MOVE.W D2,-(A7) 00023e78 4e 93 |N | JSR (A3) 00023e7a 54 4f |TO | ADDQ.L #0x2,A7 00023e7c 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00023e80 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00023e86 54 4f |TO | ADDQ.L #0x2,A7 00023e88 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023e8e 50 4f |PO | ADDQ.L #0x8,A7 00023e90 4e 94 |N | JSR (A4) 00023e92 de c4 | | ADDA.W D4,A7 00023e94 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00023e98 b0 c1 | | CMPA.W D1,A0 00023e9a 67 48 |gH | BEQ 0x23ee4 00023e9c 9e c5 | | SUBA.W D5,A7 00023e9e 22 4f |"O | MOVEA.L A7,A1 00023ea0 45 fa ff 28 |E ( | LEA.L 0x23dca,A2 00023ea4 70 0c |p | MOVEQ.L #0x0c,D0 00023ea6 12 da | | MOVE.B (A2)+,(A1)+ 00023ea8 51 c8 ff fc |Q | DBF D0,0x23ea6 00023eac 9e c3 | | SUBA.W D3,A7 00023eae 22 4f |"O | MOVEA.L A7,A1 00023eb0 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00023eb4 70 1d |p | MOVEQ.L #0x1d,D0 00023eb6 12 d8 | | MOVE.B (A0)+,(A1)+ 00023eb8 51 c8 ff fc |Q | DBF D0,0x23eb6 00023ebc 51 4f |QO | SUBQ.L #0x8,A7 00023ebe 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00023ec2 3f 01 |? | MOVE.W D1,-(A7) 00023ec4 3f 02 |? | MOVE.W D2,-(A7) 00023ec6 4e 93 |N | JSR (A3) 00023ec8 58 4f |XO | ADDQ.L #0x4,A7 00023eca 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00023ece 3f 01 |? | MOVE.W D1,-(A7) 00023ed0 3f 03 |? | MOVE.W D3,-(A7) 00023ed2 4e 93 |N | JSR (A3) 00023ed4 50 4f |PO | ADDQ.L #0x8,A7 00023ed6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023edc 50 4f |PO | ADDQ.L #0x8,A7 00023ede 4e 94 |N | JSR (A4) 00023ee0 de fc 00 30 | 0 | ADDA.W #0x30,A7 00023ee4 9e c5 | | SUBA.W D5,A7 00023ee6 20 4f | O | MOVEA.L A7,A0 00023ee8 43 fa fe ee |C | LEA.L 0x23dd8,A1 00023eec 70 0c |p | MOVEQ.L #0x0c,D0 00023eee 10 d9 | | MOVE.B (A1)+,(A0)+ 00023ef0 51 c8 ff fc |Q | DBF D0,0x23eee 00023ef4 51 4f |QO | SUBQ.L #0x8,A7 00023ef6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023efa 3f 01 |? | MOVE.W D1,-(A7) 00023efc 3f 02 |? | MOVE.W D2,-(A7) 00023efe 4e 93 |N | JSR (A3) 00023f00 54 4f |TO | ADDQ.L #0x2,A7 00023f02 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00023f06 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00023f0c 54 4f |TO | ADDQ.L #0x2,A7 00023f0e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023f14 50 4f |PO | ADDQ.L #0x8,A7 00023f16 4e 94 |N | JSR (A4) 00023f18 5d 4f |]O | SUBQ.L #0x6,A7 00023f1a 20 4f | O | MOVEA.L A7,A0 00023f1c 43 fa fe da |C | LEA.L 0x23df8,A1 00023f20 70 16 |p | MOVEQ.L #0x16,D0 00023f22 10 d9 | | MOVE.B (A1)+,(A0)+ 00023f24 51 c8 ff fc |Q | DBF D0,0x23f22 00023f28 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00023f2c 59 4f |YO | SUBQ.L #0x4,A7 00023f2e 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00023f32 3f 01 |? | MOVE.W D1,-(A7) 00023f34 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00023f38 4e 93 |N | JSR (A3) 00023f3a 50 4f |PO | ADDQ.L #0x8,A7 00023f3c 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00023f42 de c3 | | ADDA.W D3,A7 00023f44 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00023f48 4e 5e |N^ | UNLK A6 00023f4a 4e 75 |Nu | RTS