|
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: 6656 (0x1a00)
Types: M200
Notes: M200_PROGRAM
Names: »RDM.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »RDM.M200«
@ 2056a
<POP 2056a-205c8 Body>
<POP 2056a-20580 Prologue> Σ0 ↓
<POP 20580-20582 Naked> Σ0 ↓
<MI 20580 MOVEQ.L #0x00,D7> {}
<POP 20582-205ba Naked> Σ0 ↓ →0x20582 ←0x20582
<POP 0x20582 LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {}
<MI 2058c MOVE.L D7,D0> {}
<MI 2058e ASL.L #0x2,D0> {}
<MI 20590 LEA.L 0x21844,A0> {}
<MI 20596 ORI.B #0x80,(A0+D0.L+#0x8)> {}
<MI 2059c ANDI.B #0xbf,(A0+D0.L+#0x8)> {}
<MI 205a2 ANDI.W #0xc000,(A0+D0.L+#0x8)> {}
<MI 205a8 CLR.B (A0+D0.L+#0xa)> {}
<MI 205ac CLR.B (A0+D0.L+#0xb)> {}
<MI 205b0 ADDQ.L #0x1,D7> {}
<MI 205b2 CMPI.L #0x000007ff,D7> {}
<MI 205b8 BLE 0x20582> {}
<POP 205ba-205c0 Naked> Σ0 ↓
<MI 205ba CLR.L 0x2384c> {}
<POP 205c0-205c8 Epilogue> Σ0
@ 205c8
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 205c8-20756 Body> Δ-4
<POP 205c8-205de Prologue> Σ0 ↓
<POP 205de-205f4 RegCacheLoad> Σ0 ↓
<POP 205f4-205fe Naked> Σ0 ↓ →0x2062e
<MI 205f4 MOVE.L 0x2384c,D0> {}
<MI 205f6 CMPI.L #0x00000800,D0> {}
<MI 205fc BNE 0x2062e> {}
<POP 205fe-2062e Naked> Σ0 ↓
<Blob 0x205fe [34] @> Δ-34 {[«34""»]}
<Const 0x20610 0xe.2> Δ-2 {[«34""»]|[#14]}
<POP 20614-20616 StackAdj> Δ-4 {[«34""»]|[#14]|[-4-]}
<Lit 0x20616 33> {[«34""»]|[#14]|[$$Too many defects (2048) to handle]}
<Call 0x20624 0x103b8> {[«34""»]|[#14]|[$$Too many defects (2048) to handle]}
PopProgram(status : Byte; msg : String)
<POP 2062a-2062e StackAdj> Δ+40 {}
<POP 2062e-20634 Naked> Σ0 Δ-4 ↓ ←0x205f4
<Blob 0x2062e [4] 0x2384c> Δ-4 {[«4»]}
<MI 20630 SUBQ.L #0x1,(A7)> {[-4-]}
<MI 20632 MOVEQ.L #0x00,D7> {[-4-]}
<POP 20634-20638 Naked> Σ-4 ↓ →0x2067a ←0x20676
<MI 20634 CMP.L (A7),D7> {[-4-]}
<MI 20636 BGT 0x2067a> {[-4-]}
<POP 20638-20658 Naked> Σ-4 ↓ →0x20676
<POP 0x20638 LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {[-4-]}
<MI 20642 MOVE.L D7,D0> {[-4-]}
<MI 20644 ASL.L #0x2,D0> {[-4-]}
<MI 20646 LEA.L 0x21844,A0> {[-4-]}
<MI 20648 CLR.L D1> {[-4-]}
<MI 2064a MOVE.W (A0+D0.L+#0x8),D1> {[-4-]}
<MI 2064e LSL.W #0x2,D1> {[-4-]}
<MI 20650 LSR.W #0x2,D1> {[-4-]}
<MI 20652 CMP.L (A6+0x10),D1> {[-4-]}
<MI 20656 BNE 0x20676> {[-4-]}
<POP 20658-20664 Naked> Σ-4 ↓ →0x20676
<MI 20658 CLR.L D1> {[-4-]}
<MI 2065a MOVE.B (A0+D0.L+#0xa),D1> {[-4-]}
<MI 2065e CMP.L (A6+0xc),D1> {[-4-]}
<MI 20662 BNE 0x20676> {[-4-]}
<POP 20664-20670 Naked> Σ-4 ↓ →0x20676
<MI 20664 CLR.L D1> {[-4-]}
<MI 20666 MOVE.B (A0+D0.L+#0xb),D1> {[-4-]}
<MI 2066a CMP.L (A6+0x8),D1> {[-4-]}
<MI 2066e BNE 0x20676> {[-4-]}
<POP 20670-20676 Naked> Σ-4 Δ+4 →0x2074e
<POP 20670-20672 StackAdj> Δ+4 {}
<MI 20672 BRA 0x2074e> {}
<POP 20676-2067a Naked> Σ-4 ↓ →0x20634 ←0x20638 ←0x20658 ←0x20664
<MI 20676 ADDQ.L #0x1,D7> {[-4-]}
<MI 20678 BVC 0x20634> {[-4-]}
<POP 2067a-2074e Naked> Σ-4 Δ+4 ↓ ←0x20634
<POP 2067a-2067b StackAdj> Δ+4 ↓ {}
<Blob 0x2067b [30] @> Δ-30 {[«30""»]}
<Blob 0x2068c [12] @> Δ-12 {[«30""»]|[«12""»]}
<Blob 0x2069c [4] @> Δ-4 {[«30""»]|[«12""»]|[«4""»]}
<Blob 0x206a0 [4] @> Δ-4 {[«30""»]|[«12""»]|[«4""»]|[«4""»]}
<Blob 0x206a4 [4] @> Δ-4 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 206a8-206aa StackAdj> Δ-8 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x206aa 29> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Adding defect at cylinder =>_]}
<MI 206b6 MOVE.L (A6+0x10),(A7)> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']}
<POP 206b4-206b6 StackAdj> Δ-8 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-8-]}
<Call 0x206ba 0x102e4> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x206c0 11> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[$$, track =>_]}
<MI 206cc MOVE.L (A6+0xc),(A7)> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']}
<POP 206ca-206cc StackAdj> Δ-8 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-8-]}
<Call 0x206d0 0x102e4> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x206d6 12> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$, sector =>_]}
<MI 206e0 MOVE.L (A6+0x8),(A7)> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']}
<POP 206de-206e0 StackAdj> Δ-8 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Call 0x206e4 0x102e4> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-8-]}
Long2String(a : Long) : String
<POP 206ea-206ec StackAdj> Δ+4 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x206ec 0x102e0> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 206f2-206f6 StackAdj> Δ+24 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x206f6 0x103e0> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 206fc-20700 StackAdj> Δ+58 {}
<MI 20700 MOVE.L 0x2384c,D0> {}
<POP 0x20702 LimitCheck 0x0 ≤ D0 ≤ 0x7ff> {}
<MI 2070c ASL.L #0x2,D0> {}
<MI 2070e LEA.L 0x21844,A0> {}
<MI 20710 MOVE.L (A6+0x10),D1> {}
<POP 0x20714 LimitCheck 0x0 ≤ D1 ≤ 0x3fff> {}
<MI 2071e ANDI.W #0xc000,(A0+D0.L+#0x8)> {}
<MI 20724 OR.W D1,(A0+D0.L+#0x8)> {}
<MI 20728 MOVE.L (A6+0xc),D1> {}
<POP 0x2072c LimitCheck 0x0 ≤ D1 ≤ 0xff> {}
<MI 20736 MOVE.B D1,(A0+D0.L+#0xa)> {}
<MI 2073a MOVE.L (A6+0x8),D1> {}
<POP 0x2073e LimitCheck 0x0 ≤ D1 ≤ 0xff> {}
<MI 20748 MOVE.B D1,(A0+D0.L+#0xb)> {}
<MI 2074c ADDQ.L #0x1,0x2384c> {}
<POP 2074e-20756 Epilogue> Σ0 ←0x20670
@ 20756
<LVAR 0x00a 1(rw)>
<LVAR 0x008 2(r)>
<LVAR -0x008 @ 2(r)>
<LVAR -0x00a @>
<LVAR -0x00c 2(r)>
<LVAR -0x00e 2(r)>
<LVAR -0x010 2(w)>
<LVAR -0x012 2(r)>
<LVAR -0x014 2(r)>
<LVAR -0x016 2(w)>
<LVAR -0x018 2(r)>
<LVAR -0x01a @ 2(r)>
<POP 20756-207d2 Body>
<POP 20756-2076c Prologue> Σ0 ↓
<POP 2076c-2076e RegCacheLoad> Σ0 ↓
<POP 2076e-207c6 Naked> Σ0 ↓ →0x207ca
<MI 2076e CLR.W (A6-0x1a)> {}
<MI 20772 CLR.W (A6-0x18)> {}
<MI 20776 MOVE.W #0x2,(A6-0x16)> {}
<MI 2077c CLR.W (A6-0x14)> {}
<MI 20780 CLR.W (A6-0x12)> {}
<MI 20784 MOVE.W (A6+0x8),D0> {}
<MI 20788 ASL.W #0x8,D0> {}
<MI 2078a MOVE.W D0,(A6-0x10)> {}
<MI 2078e CLR.W (A6-0xe)> {}
<MI 20792 CLR.W (A6-0xc)> {}
<Pointer.fp 0x20796 <LVAR -0x01a @ 2(r)>> Δ-4 {[@@-26]}
<MI 2079a LEA.L (A6-0x8),A0> {[@@-26]}
<MI 2079e MOVE.L A0,-(A7)> Δ-4 {[@@-26]|[4, 'A0']}
<Const 0x207a0 0x3.2> Δ-2 {[@@-26]|[4, 'A0']|[#3]}
<Call 0x207a2 0x10204> {[@@-26]|[4, 'A0']|[#3]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 207a8-207aa StackAdj> Δ+8 {[-2-]}
<POP 207aa-207ab StackAdj> Δ+2 {}
<Const 0x207ab 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x207ac <LVAR -0x00a @>> Δ-4 {[#3]|[@@-10]}
<Call 0x207b0 0x10206> {[#3]|[@@-10]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 207b6-207b8 StackAdj> Δ+6 {}
<MI 207b8 CLR.B (A6+0xa)> {}
<MI 207bc MOVE.W (A6-0x8),D0> {}
<MI 207c0 CMPI.W #0x0001,D0> {}
<MI 207c4 BNE 0x207ca> {}
<POP 207c6-207ca Naked> Σ0 ↓
<MI 207c6 ADDQ.B #0x1,(A6+0xa)> {}
<POP 207ca-207d2 Epilogue> Σ0 ←0x2076e
@ 207d2
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x004 @ 2(r)>
<LVAR -0x006 2(r)>
<LVAR -0x008 2(w)>
<LVAR -0x00a 2(w)>
<LVAR -0x00c 2(r)>
<LVAR -0x00e 2(r)>
<LVAR -0x010 2(w)>
<LVAR -0x012 2(r)>
<LVAR -0x014 @ 2(r)>
<POP 207d2-208b2 Body>
<POP 207d2-207e8 Prologue> Σ0 ↓
<POP 207e8-207ea RegCacheLoad> Σ0 ↓
<POP 207ea-20858 Naked> Σ0 ↓ →0x20898
<MI 207ea CLR.W (A6-0x14)> {}
<MI 207ee CLR.W (A6-0x12)> {}
<MI 207f2 MOVE.W #0x2,(A6-0x10)> {}
<MI 207f8 CLR.W (A6-0xe)> {}
<MI 207fc CLR.W (A6-0xc)> {}
<MI 20800 MOVE.L (A6+0x10),D0> {}
<MI 20804 ASL.L #0x8,D0> {}
<MI 20806 ADDI.L #0x0000000e,D0> {}
<POP 0x2080c LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20816 MOVE.W D0,(A6-0xa)> {}
<MI 2081a MOVE.L (A6+0xc),D0> {}
<POP 0x2081e LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20828 MOVE.W D0,(A6-0x8)> {}
<MI 2082c CLR.W (A6-0x6)> {}
<Pointer.fp 0x20830 <LVAR -0x014 @ 2(r)>> Δ-4 {[@@-20]}
<MI 20834 LEA.L (A6-0x4),A0> {[@@-20]}
<MI 20838 MOVE.L A0,-(A7)> Δ-4 {[@@-20]|[4, 'A0']}
<Const 0x2083a 0x3.2> Δ-2 {[@@-20]|[4, 'A0']|[#3]}
<Call 0x2083c 0x10204> {[@@-20]|[4, 'A0']|[#3]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20842-20844 StackAdj> Δ+8 {[-2-]}
<POP 20844-20845 StackAdj> Δ+2 {}
<Const 0x20845 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20846 <LVAR -0x002 @ 1(r)>> Δ-4 {[#3]|[@@-2]}
<Call 0x2084a 0x10206> {[#3]|[@@-2]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 20850-20852 StackAdj> Δ+6 {}
<MI 20852 TST.B (A6-0x2)> {}
<MI 20856 BNE 0x20898> {}
<POP 20858-20898 Naked> Σ0 ↓
<Blob 0x20858 [42] @> Δ-42 {[«42""»]}
<MI 20864 CLR.B -(A7)> Δ-2 {[«42""»]|[#0]}
<POP 20866-20868 StackAdj> Δ-8 {[«42""»]|[#0]|[-8-]}
<Lit 0x20868 42> {[«42""»]|[#0]|[-4-]|[$$Can't read controller EEPROM at address :_]}
<MI 2087a MOVE.L (A6+0xc),(A7)> {[«42""»]|[#0]|[-4-]|[4, '(A6+0xc)']}
<POP 20874-2087a StackAdj> Δ-8 {[«42""»]|[#0]|[-4-]|[4, '(A6+0xc)']|[-8-]}
<Call 0x2087e 0x102e4> {[«42""»]|[#0]|[-4-]|[4, '(A6+0xc)']|[-8-]}
Long2String(a : Long) : String
<POP 20884-20886 StackAdj> Δ+4 {[«42""»]|[#0]|[-4-]|[4, '(A6+0xc)']|[-4-]}
<Call 0x20886 0x102d0> {[«42""»]|[#0]|[-4-]|[4, '(A6+0xc)']|[-4-]}
StringCat2(a, b : String) : String
<POP 2088c-2088e StackAdj> Δ+8 {[«42""»]|[#0]|[-4-]}
<Call 0x2088e 0x103b8> {[«42""»]|[#0]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20894-20898 StackAdj> Δ+48 {}
<POP 20898-208aa Naked> Σ0 ↓ ←0x207ea
<MI 20898 MOVEA.L (A6+0x8),A0> {}
<MI 2089c MOVE.W (A6-0x4),D0> {}
<MI 208a0 ANDI.W #0x00ff,D0> {}
<MI 208a4 CLR.L D1> {}
<MI 208a6 MOVE.W D0,D1> {}
<MI 208a8 MOVE.L D1,(A0)> {}
<POP 208aa-208b2 Epilogue> Σ0
@ 208b2
<LVAR 0x020 4(r)>
<LVAR 0x01c 4(r)>
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(r)>
<POP 208b2-20c48 Body>
<POP 208b2-208c8 Prologue> Σ0 ↓
<POP 208c8-208d0 RegCacheLoad> Σ0 ↓
<POP 208d0-2092c Naked> Σ0 ↓ →0x2098e ←0x2098e
<MI 208d0 MOVEA.L (A6+0x20),A0> {}
<Blob 0x208d4 [36] @> Δ-36 {[«36""»]}
<POP 208e4-208e6 StackAdj> Δ-8 {[«36""»]|[-8-]}
<Lit 0x208e6 35> {[«36""»]|[-4-]|[$$Enter unit number of virgin disk :_]}
<Const 0x208f8 0x0.4> Δ-4 {[«36""»]|[-4-]|[$$Enter unit number of virgin disk :_]|[##0]}
<Const 0x208fc 0xf.4> Δ-4 {[«36""»]|[-4-]|[$$Enter unit number of virgin disk :_]|[##0]|[##15]}
<Call 0x20900 0x103ec> {[«36""»]|[-4-]|[$$Enter unit number of virgin disk :_]|[##0]|[##15]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 20906-20908 StackAdj> Δ+12 {[«36""»]|[-4-]}
<MI 20908 MOVE.L (A7)+,D0> Δ+4 {[«36""»]}
<POP 0x2090a LimitCheck 0x0 ≤ D0 ≤ 0xf> {[«36""»]}
<POP 20914-20916 StackAdj> Δ+36 {}
<MI 20916 MOVE.W D0,(A0)> {}
<POP 20918-2091a StackAdj> Δ-2 {[-2-]}
<MI 2091a MOVE.W D0,-(A7)> Δ-2 {[-2-]|[2, 'D0']}
<Call 0x2091c 0x20756> {[-2-]|[2, 'D0']}
<POP 20920-20922 StackAdj> Δ+2 {[-2-]}
<MI 20922 MOVE.B (A7)+,D1> Δ+2 {}
<MI 20924 EXTB.W D1> {}
<POP 0x20926 LimitCheck 0x0 ≤ D1 ≤ 0x1> {}
<MI 20928 MOVE.B D1,D7> {}
<MI 2092a BNE 0x2098e> {}
<POP 2092c-2098e Naked> Σ0 ↓
<Blob 0x2092c [6] @> Δ-6 {[«6""»]}
<Blob 0x2093c [4] @> Δ-4 {[«6""»]|[«4""»]}
<Blob 0x20940 [4] @> Δ-4 {[«6""»]|[«4""»]|[«4""»]}
<Blob 0x20944 [4] @> Δ-4 {[«6""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20948 [4] @> Δ-4 {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2094c-2094e StackAdj> Δ-8 {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x2094e 5> {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unit_]}
<POP 2095e-20960 StackAdj> Δ-4 {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unit_]|[-4-]}
<MI 20960 MOVE.W D0,D1> {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unit_]|[-4-]}
<MI 20962 EXTW.L D1> {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unit_]|[-4-]}
<MI 20964 MOVE.L D1,-(A7)> Δ-4 {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unit_]|[-4-]|[4, 'D1']}
<Call 0x20966 0x102e4> {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unit_]|[-4-]|[4, 'D1']}
Long2String(a : Long) : String
<Lit 0x2096c 16> {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unit_]|[-4-]|[$$ does not exist.]}
<Call 0x2097c 0x102d4> {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unit_]|[-4-]|[$$ does not exist.]}
StringCat3(a, b, c : String) : String
<POP 20982-20984 StackAdj> Δ+12 {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x20984 0x103e0> {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2098a-2098e StackAdj> Δ+26 {}
<POP 2098e-20994 Naked> Σ0 ↓ →0x208d0 ←0x208d0
<MI 2098e TST.B D7> {}
<MI 20990 BEQ 0x208d0> {}
<POP 20994-20a6c Naked> Σ0 Δ-8 ↓ →0x20a6e
<MI 20994 MOVEA.L (A6+0x1c),A0> {}
<Blob 0x20998 [42] @> Δ-42 {[«42""»]}
<POP 209a4-209a6 StackAdj> Δ-8 {[«42""»]|[-8-]}
<Lit 0x209a6 42> {[«42""»]|[-4-]|[$$Enter HDA serial number as shown on HDA :_]}
<Call 0x209b8 0x103e4> {[«42""»]|[-4-]|[$$Enter HDA serial number as shown on HDA :_]}
AskConsoleString(prompt : String) : String
<POP 209be-209c0 StackAdj> Δ+4 {[«42""»]|[-4-]}
<MI 209c0 MOVE.L (A7)+,(A0)> Δ+4 {[«42""»]}
<POP 209c2-209c6 StackAdj> Δ+42 {}
<MI 209c6 MOVE.W D0,D1> {}
<MI 209c8 ANDI.W #0x0003,D1> {}
<MI 209cc MOVEA.L (A6+0x10),A0> {}
<MI 209d0 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 209d2 MOVE.W D0,D2> {[4, 'A0']}
<MI 209d4 EXTW.L D2> {[4, 'A0']}
<MI 209d6 MOVE.L D2,-(A7)> Δ-4 {[4, 'A0']|[4, 'D2']}
<MI 209d8 MOVE.W #0x2d0,D2> {[4, 'A0']|[4, 'D2']}
<MI 209dc ADD.W D1,D2> {[4, 'A0']|[4, 'D2']}
<MI 209de EXTW.L D2> {[4, 'A0']|[4, 'D2']}
<MI 209e0 MOVE.L D2,-(A7)> Δ-4 {[4, 'A0']|[4, 'D2']|[4, 'D2']}
<MI 209e2 PEA.L (A0)> Δ-4 {[4, 'A0']|[4, 'D2']|[4, 'D2']|[4, '^(A0)']}
<Call 0x209e4 0x207d2> {[4, 'A0']|[4, 'D2']|[4, 'D2']|[4, '^(A0)']}
<POP 209e8-209ea StackAdj> Δ+12 {[4, 'A0']}
<MI 209ea MOVEA.L (A6+0x14),A1> {[4, 'A0']}
<MI 209ee MOVE.L A1,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']}
<MI 209f0 MOVE.W D0,D2> {[4, 'A0']|[4, 'A1']}
<MI 209f2 EXTW.L D2> {[4, 'A0']|[4, 'A1']}
<MI 209f4 MOVE.L D2,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 209f6 MOVE.W #0x350,D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 209fa ADD.W D1,D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 209fc EXTW.L D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 209fe MOVE.L D2,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']}
<MI 20a00 PEA.L (A1)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']|[4, '^(A1)']}
<Call 0x20a02 0x207d2> {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']|[4, '^(A1)']}
<POP 20a06-20a08 StackAdj> Δ+12 {[4, 'A0']|[4, 'A1']}
<MI 20a08 MOVEA.L (A6+0x18),A2> {[4, 'A0']|[4, 'A1']}
<MI 20a0c MOVE.W D0,D2> {[4, 'A0']|[4, 'A1']}
<MI 20a0e EXTW.L D2> {[4, 'A0']|[4, 'A1']}
<MI 20a10 MOVE.L D2,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a12 MOVE.W #0x1d0,D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a16 ADD.W D1,D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a18 EXTW.L D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a1a MOVE.L D2,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']}
<MI 20a1c PEA.L (A2)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']|[4, '^(A2)']}
<Call 0x20a1e 0x207d2> {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']|[4, '^(A2)']}
<POP 20a22-20a24 StackAdj> Δ+12 {[4, 'A0']|[4, 'A1']}
<MI 20a24 MOVE.W D0,D2> {[4, 'A0']|[4, 'A1']}
<MI 20a26 EXTW.L D2> {[4, 'A0']|[4, 'A1']}
<MI 20a28 MOVE.L D2,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a2a MOVE.W #0x250,D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a2e ADD.W D1,D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a30 EXTW.L D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a32 MOVE.L D2,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']}
<Pointer.fp 0x20a34 <LVAR -0x006 @ 4(r)>> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']|[@@-6]}
<Call 0x20a38 0x207d2> {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']|[@@-6]}
<POP 20a3c-20a3e StackAdj> Δ+12 {[4, 'A0']|[4, 'A1']}
<MI 20a3e MOVE.L (A6-0x6),D2> {[4, 'A0']|[4, 'A1']}
<MI 20a42 ASL.L #0x8,D2> {[4, 'A0']|[4, 'A1']}
<MI 20a44 ADD.L D2,(A2)> {[4, 'A0']|[4, 'A1']}
<MI 20a46 EXTW.L D0> {[4, 'A0']|[4, 'A1']}
<MI 20a48 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D0']}
<MI 20a4a ADDQ.W #0x8,D1> {[4, 'A0']|[4, 'A1']|[4, 'D0']}
<MI 20a4c EXTW.L D1> {[4, 'A0']|[4, 'A1']|[4, 'D0']}
<MI 20a4e MOVE.L D1,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D0']|[4, 'D1']}
<Pointer.fp 0x20a50 <LVAR -0x006 @ 4(r)>> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D0']|[4, 'D1']|[@@-6]}
<Call 0x20a54 0x207d2> {[4, 'A0']|[4, 'A1']|[4, 'D0']|[4, 'D1']|[@@-6]}
<POP 20a58-20a5a StackAdj> Δ+12 {[4, 'A0']|[4, 'A1']}
<MI 20a5a MOVEA.L (A6+0x8),A3> {[4, 'A0']|[4, 'A1']}
<MI 20a5e CLR.B (A3)> {[4, 'A0']|[4, 'A1']}
<MI 20a60 MOVE.L (A6-0x6),D0> {[4, 'A0']|[4, 'A1']}
<MI 20a64 ANDI.L #0x00000004,D0> {[4, 'A0']|[4, 'A1']}
<MI 20a6a BEQ 0x20a6e> {[4, 'A0']|[4, 'A1']}
<POP 20a6c-20a6e Naked> Σ-8 ↓
<MI 20a6c ADDQ.B #0x1,(A3)> {[-8-]}
<POP 20a6e-20afa Naked> Σ-8 ↓ →0x20b2e ←0x20994
<Blob 0x20a6e [16] @> Δ-16 {[-8-]|[«16""»]}
<Blob 0x20a7e [4] @> Δ-4 {[-8-]|[«16""»]|[«4""»]}
<Blob 0x20a82 [4] @> Δ-4 {[-8-]|[«16""»]|[«4""»]|[«4""»]}
<Blob 0x20a86 [4] @> Δ-4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20a8a [4] @> Δ-4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20a8e [4] @> Δ-4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 20a92-20a94 StackAdj> Δ-8 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x20a94 15> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]}
<MI 20aa4 MOVE.L (A2),(A7)> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']}
<POP 20a9e-20aa4 StackAdj> Δ-8 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-8-]}
<Call 0x20aa6 0x102e4> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x20aac 12> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]}
<POP 20aba-20abc StackAdj> Δ-4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 20abc MOVEA.L (A7+0x38),A0> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 20ac0 MOVE.L (A0),-(A7)> Δ-4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[4, '(A0)']}
<Call 0x20ac2 0x102e4> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[4, '(A0)']}
Long2String(a : Long) : String
<Lit 0x20ac8 8> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]}
<POP 20ad8-20ada StackAdj> Δ-4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 20ada MOVEA.L (A7+0x44),A0> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 20ade MOVE.L (A0),-(A7)> Δ-4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]|[4, '(A0)']}
<Call 0x20ae0 0x102e4> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]|[4, '(A0)']}
Long2String(a : Long) : String
<POP 20ae6-20ae8 StackAdj> Δ+4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<Call 0x20ae8 0x102e0> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 20aee-20af2 StackAdj> Δ+24 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 20af2 MOVEA.L (A7)+,A4> Δ+4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 20af4-20af6 StackAdj> Δ+36 {[-8-]}
<MI 20af6 TST.B (A3)> {[-8-]}
<MI 20af8 BEQ 0x20b2e> {[-8-]}
<POP 20afa-20b2e Naked> Σ-8 →0x20b60
<Blob 0x20afa [34] @> Δ-34 {[-8-]|[«34""»]}
<POP 20b06-20b08 StackAdj> Δ-4 {[-8-]|[«34""»]|[-4-]}
<MI 20b08 MOVE.L A4,-(A7)> Δ-4 {[-8-]|[«34""»]|[-4-]|[4, 'A4']}
<POP 20b0a-20b0c StackAdj> Δ-4 {[-8-]|[«34""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x20b0c 34> {[-8-]|[«34""»]|[-4-]|[4, 'A4']|[$$ sectors and is sector interleaved]}
<Call 0x20b1e 0x102d0> {[-8-]|[«34""»]|[-4-]|[4, 'A4']|[$$ sectors and is sector interleaved]}
StringCat2(a, b : String) : String
<POP 20b24-20b26 StackAdj> Δ+8 {[-8-]|[«34""»]|[-4-]}
<MI 20b26 MOVEA.L (A7)+,A4> Δ+4 {[-8-]|[«34""»]}
<POP 20b28-20b2c StackAdj> Δ+34 {[-8-]}
<MI 20b2c BRA 0x20b60> {[-8-]}
<POP 20b2e-20b60 Naked> Σ-8 ↓ ←0x20a6e
<Blob 0x20b2e [38] @> Δ-38 {[-8-]|[«38""»]}
<POP 20b3a-20b3c StackAdj> Δ-4 {[-8-]|[«38""»]|[-4-]}
<MI 20b3c MOVE.L A4,-(A7)> Δ-4 {[-8-]|[«38""»]|[-4-]|[4, 'A4']}
<POP 20b3e-20b40 StackAdj> Δ-4 {[-8-]|[«38""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x20b40 38> {[-8-]|[«38""»]|[-4-]|[4, 'A4']|[$$ sectors and is not sector interleaved]}
<Call 0x20b52 0x102d0> {[-8-]|[«38""»]|[-4-]|[4, 'A4']|[$$ sectors and is not sector interleaved]}
StringCat2(a, b : String) : String
<POP 20b58-20b5a StackAdj> Δ+8 {[-8-]|[«38""»]|[-4-]}
<MI 20b5a MOVEA.L (A7)+,A4> Δ+4 {[-8-]|[«38""»]}
<POP 20b5c-20b60 StackAdj> Δ+38 {[-8-]}
<POP 20b60-20b9e Naked> Σ-8 Δ-20 ↓ →0x20bfc ←0x20afa
<POP 20b60-20b62 StackAdj> Δ+4 {[-4-]}
<MI 20b62 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x20b64 0x103e0> {[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 20b6a-20b6b StackAdj> Δ+4 ↓ {}
<Blob 0x20b6b [28] @> Δ-28 {[«28""»]}
<POP 20b7c-20b7e StackAdj> Δ-6 {[«28""»]|[-6-]}
<Lit 0x20b7e 27> {[«28""»]|[-2-]|[$$Is this information correct]}
<POP 20b8e-20b90 StackAdj> Δ-2 {[«28""»]|[-2-]|[$$Is this information correct]|[-2-]}
<POP 20b90-20b91 StackAdj> Δ+2 {[«28""»]|[-2-]|[$$Is this information correct]}
<Const 0x20b91 0x1.2> Δ-2 {[«28""»]|[-2-]|[$$Is this information correct]|[#1]}
<Call 0x20b92 0x103f0> {[«28""»]|[-2-]|[$$Is this information correct]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20b98-20b9a StackAdj> Δ+6 {[«28""»]|[-2-]}
<MI 20b9a TST.B (A7)+> Δ+2 {[«28""»]}
<MI 20b9c BNE 0x20bfc> {[«28""»]}
<POP 20b9e-20bfc Naked> Σ-28 ↓
<Blob 0x20b9e [44] @> Δ-44 {[-28-]|[«44""»]}
<POP 20bb0-20bb2 StackAdj> Δ-4 {[-28-]|[«44""»]|[-4-]}
<Lit 0x20bb2 43> {[-28-]|[«44""»]|[$$Controller must be reconfigured. Run SLEW.]}
<Call 0x20bc4 0x103e0> {[-28-]|[«44""»]|[$$Controller must be reconfigured. Run SLEW.]}
WriteConsoleStringCrLf(str : String)
<POP 20bca-20bcb StackAdj> Δ+48 ↓ {[-28-]}
<Blob 0x20bcb [32] @> Δ-32 {[-28-]|[«32""»]}
<Const 0x20bda 0xe.2> Δ-2 {[-28-]|[«32""»]|[#14]}
<POP 20bde-20be0 StackAdj> Δ-4 {[-28-]|[«32""»]|[#14]|[-4-]}
<Lit 0x20be0 31> {[-28-]|[«32""»]|[#14]|[$$Controller must be reconfigured]}
<Call 0x20bf2 0x103b8> {[-28-]|[«32""»]|[#14]|[$$Controller must be reconfigured]}
PopProgram(status : Byte; msg : String)
<POP 20bf8-20bfc StackAdj> Δ+38 {[-28-]}
<POP 20bfc-20c40 Naked> Σ-28 Δ+28 ↓ ←0x20b60
<POP 20bfc-20c00 StackAdj> Δ+28 {}
<MI 20c00 MOVEA.L (A6+0xc),A0> {}
<Blob 0x20c04 [64] @> Δ-64 {[«64""»]}
<POP 20c16-20c18 StackAdj> Δ-8 {[«64""»]|[-8-]}
<Lit 0x20c18 63> {[«64""»]|[-4-]|[$$Enter the number of bytes-per-sector as jumpered at the disk :_]}
<Const 0x20c2a 0x20c.4> Δ-4 {[«64""»]|[-4-]|[$$Enter the number of bytes-per-sector as jumpered at the disk :_]|[##524]}
<Const 0x20c2e 0x7ff.4> Δ-4 {[«64""»]|[-4-]|[$$Enter the number of bytes-per-sector as jumpered at the disk :_]|[##524]|[##2047]}
<Call 0x20c32 0x103ec> {[«64""»]|[-4-]|[$$Enter the number of bytes-per-sector as jumpered at the disk :_]|[##524]|[##2047]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 20c38-20c3a StackAdj> Δ+12 {[«64""»]|[-4-]}
<MI 20c3a MOVE.L (A7)+,(A0)> Δ+4 {[«64""»]}
<POP 20c3c-20c40 StackAdj> Δ+64 {}
<POP 20c40-20c48 Epilogue> Σ0
@ 20c48
<LVAR 0x01a 2(r)>
<LVAR 0x016 4(r)>
<LVAR 0x012 4(r)>
<LVAR 0x00e 4(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<LVAR -0x002 2(rw)>
<LVAR -0x004 2(rw)>
<LVAR -0x07e @>
<LVAR -0x082 2(w)>
<LVAR -0x084 2(w)>
<LVAR -0x086 2(w)>
<LVAR -0x094 2(r)>
<LVAR -0x0a6 1(r)>
<LVAR -0x0a8 1(r) 2(r)>
<LVAR -0x0aa @ 2(r)>
<LVAR -0x0ac 2(w)>
<LVAR -0x0ae 2(w)>
<LVAR -0x0b0 2(w)>
<LVAR -0x0b2 2(r)>
<LVAR -0x0b4 2(r)>
<LVAR -0x0b6 2(w)>
<LVAR -0x0b8 2(r)>
<LVAR -0x0ba @ 2(r)>
<LVAR -0x0bb @>
<LVAR -0x0bc @ 1(r)>
<POP 20c48-21028 Body> Δ+4
<POP 20c48-20c5e Prologue> Σ0 ↓
<POP 20c5e-20c6c RegCacheLoad> Σ0 ↓
<POP 20c6c-20c9a Naked> Σ0 Δ-4 ↓ →0x20ca6
<MI 20c6c CLR.W (A6-0xba)> {}
<MI 20c70 CLR.W (A6-0xb8)> {}
<MI 20c74 MOVE.W #0x2,(A6-0xb6)> {}
<MI 20c7a CLR.W (A6-0xb4)> {}
<MI 20c7e CLR.W (A6-0xb2)> {}
<MI 20c82 MOVE.W (A6+0x1a),D0> {}
<MI 20c86 ASL.W #0x8,D0> {}
<MI 20c88 ADDI.W #0x000a,D0> {}
<MI 20c8c MOVE.W D0,(A6-0xb0)> {}
<MI 20c8e MOVE.L (A6+0x16),-(A7)> Δ-4 {[4, '(A6+0x16)']}
<MI 20c92 SUBQ.L #0x1,(A7)> {[-4-]}
<MI 20c94 MOVEQ.L #0x00,D0> {[-4-]}
<MI 20c96 CMP.L (A7),D0> {[-4-]}
<MI 20c98 BHI 0x20ca6> {[-4-]}
<POP 20c9a-20ca6 Naked> Σ-4 ↓
<MI 20c9a MOVE.L (A7),D1> {[-4-]}
<POP 0x20c9c LimitCheck 0x0 ≤ D1 ≤ 0xffff> {[-4-]}
<POP 20ca6-20cac Naked> Σ-4 ↓ →0x20cb2 ←0x20c6c ←0x20fd8
<MI 20ca6 CMP.W (A7+0x2),D0> {[-4-]}
<MI 20caa BLS 0x20cb2> {[-4-]}
<POP 20cac-20cb2 Naked> Σ-4 Δ-2 →0x20fde
<POP 20cac-20cae StackAdj> Δ-2 {[-6-]}
<MI 20cae BRA 0x20fde> {[-6-]}
<POP 20cb2-20cc4 Naked> Σ-4 Δ-6 ↓ →0x20cd0 ←0x20ca6
<MI 20cb2 MOVE.W D0,-(A7)> Δ-2 {[-4-]|[2, 'D0']}
<MI 20cb4 MOVE.W D0,(A6-0xae)> {[-4-]|[2, 'D0']}
<MI 20cb8 MOVE.L (A6+0x12),-(A7)> Δ-4 {[-4-]|[2, 'D0']|[4, '(A6+0x12)']}
<MI 20cbc SUBQ.L #0x1,(A7)> {[-4-]|[2, 'D0']|[-4-]}
<MI 20cbe MOVEQ.L #0x00,D1> {[-4-]|[2, 'D0']|[-4-]}
<MI 20cc0 CMP.L (A7),D1> {[-4-]|[2, 'D0']|[-4-]}
<MI 20cc2 BHI 0x20cd0> {[-4-]|[2, 'D0']|[-4-]}
<POP 20cc4-20cd0 Naked> Σ-10 ↓
<MI 20cc4 MOVE.L (A7),D2> {[-10-]}
<POP 0x20cc6 LimitCheck 0x0 ≤ D2 ≤ 0xffff> {[-10-]}
<POP 20cd0-20cd6 Naked> Σ-10 ↓ →0x20cdc ←0x20cb2 ←0x20fca
<MI 20cd0 CMP.W (A7+0x2),D1> {[-10-]}
<MI 20cd4 BLS 0x20cdc> {[-10-]}
<POP 20cd6-20cdc Naked> Σ-10 Δ-2 →0x20fd0
<POP 20cd6-20cd8 StackAdj> Δ-2 {[-12-]}
<MI 20cd8 BRA 0x20fd0> {[-12-]}
<POP 20cdc-20cde Naked> Σ-10 Δ-2 ↓ ←0x20cd0
<MI 20cdc MOVE.W D1,-(A7)> Δ-2 {[-10-]|[2, 'D1']}
<POP 20cde-20d1c Naked> Σ-12 ↓ →0x20d76 ←0x20d76
<MI 20cde MOVE.W (A7),D0> {[-12-]}
<MI 20ce0 CLR.L D1> {[-12-]}
<MI 20ce2 MOVE.W D0,D1> {[-12-]}
<MI 20ce4 ASL.L #0x8,D1> {[-12-]}
<POP 0x20ce6 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {[-12-]}
<MI 20cf0 MOVE.W D1,(A6-0xac)> {[-12-]}
<Pointer.fp 0x20cf4 <LVAR -0x0ba @ 2(r)>> Δ-4 {[-12-]|[@@-186]}
<MI 20cf8 LEA.L (A6-0xaa),A0> {[-12-]|[@@-186]}
<MI 20cfc MOVE.L A0,-(A7)> Δ-4 {[-12-]|[@@-186]|[4, 'A0']}
<Const 0x20cfe 0x3.2> Δ-2 {[-12-]|[@@-186]|[4, 'A0']|[#3]}
<Call 0x20d02 0x10204> {[-12-]|[@@-186]|[4, 'A0']|[#3]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20d08-20d0a StackAdj> Δ+8 {[-12-]|[-2-]}
<POP 20d0a-20d0b StackAdj> Δ+2 {[-12-]}
<Const 0x20d0b 0x3.2> Δ-2 {[-12-]|[#3]}
<Pointer.fp 0x20d0e <LVAR -0x0bc @ 1(r)>> Δ-4 {[-12-]|[#3]|[@@-188]}
<Call 0x20d10 0x10206> {[-12-]|[#3]|[@@-188]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 20d16-20d18 StackAdj> Δ+6 {[-12-]}
<MI 20d18 TST.B (A6-0xbc)> {[-12-]}
<MI 20d1a BNE 0x20d76> {[-12-]}
<POP 20d1c-20d76 Naked> Σ-12 ↓
<MI 20d1c MOVE.W (A6+0x1a),D0> {[-12-]}
<MI 20d20 ASL.W #0x8,D0> {[-12-]}
<MI 20d22 MOVE.W D0,(A6-0xb0)> {[-12-]}
<MI 20d24 ADDQ.W #0x1,(A6-0xb0)> {[-12-]}
<Pointer.fp 0x20d26 <LVAR -0x0ba @ 2(r)>> Δ-4 {[-12-]|[@@-186]}
<MI 20d2a LEA.L (A6-0x7e),A0> {[-12-]|[@@-186]}
<MI 20d2e MOVE.L A0,-(A7)> Δ-4 {[-12-]|[@@-186]|[4, 'A0']}
<Const 0x20d30 0x3.2> Δ-2 {[-12-]|[@@-186]|[4, 'A0']|[#3]}
<Call 0x20d34 0x10204> {[-12-]|[@@-186]|[4, 'A0']|[#3]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20d3a-20d3c StackAdj> Δ+8 {[-12-]|[-2-]}
<POP 20d3c-20d3d StackAdj> Δ+2 {[-12-]}
<Const 0x20d3d 0x3.2> Δ-2 {[-12-]|[#3]}
<Pointer.fp 0x20d40 <LVAR -0x0bb @>> Δ-4 {[-12-]|[#3]|[@@-187]}
<Call 0x20d44 0x10206> {[-12-]|[#3]|[@@-187]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 20d4a-20d4c StackAdj> Δ+4 {[-12-]|[#3]}
<MI 20d4c CLR.B (A7)> {[-12-]|[#3]}
<Call 0x20d4e 0x103ac> {[-12-]|[#3]}
Set_is_open_ERROR_LOG(a : Bool)
<MI 20d54 CLR.B (A7)> {[-12-]|[#3]}
<MI 20d56 LEA.L (A6-0x7e),A0> {[-12-]|[#3]}
<MI 20d5a MOVE.L A0,-(A7)> Δ-4 {[-12-]|[#3]|[4, 'A0']}
<Call 0x20d5c 0x103a8> {[-12-]|[#3]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 20d62-20d64 StackAdj> Δ+4 {[-12-]|[#3]}
<POP 20d64-20d65 StackAdj> Δ+2 {[-12-]}
<Const 0x20d65 0x1.2> Δ-2 {[-12-]|[#1]}
<Call 0x20d68 0x103ac> {[-12-]|[#1]}
Set_is_open_ERROR_LOG(a : Bool)
<POP 20d6e-20d70 StackAdj> Δ+2 {[-12-]}
<MI 20d70 ADDI.W #0x000a,D0> {[-12-]}
<MI 20d74 MOVE.W D0,(A6-0xb0)> {[-12-]}
<POP 20d76-20d7c Naked> Σ-12 ↓ →0x20cde ←0x20cde
<MI 20d76 TST.B (A6-0xbc)> {[-12-]}
<MI 20d78 BEQ 0x20cde> {[-12-]}
<POP 20d7c-20d86 Naked> Σ-12 ↓ →0x20db2
<MI 20d7c MOVE.W (A6-0xaa),D0> {[-12-]}
<MI 20d80 CMPI.W #0x0019,D0> {[-12-]}
<MI 20d84 BEQ 0x20db2> {[-12-]}
<POP 20d86-20db2 Naked> Σ-12 ↓
<Blob 0x20d86 [34] @> Δ-34 {[-12-]|[«34""»]}
<Const 0x20d92 0xe.2> Δ-2 {[-12-]|[«34""»]|[#14]}
<POP 20d96-20d98 StackAdj> Δ-4 {[-12-]|[«34""»]|[#14]|[-4-]}
<Lit 0x20d98 34> {[-12-]|[«34""»]|[#14]|[$$Sync byte incorrect in defect map.]}
<Call 0x20da8 0x103b8> {[-12-]|[«34""»]|[#14]|[$$Sync byte incorrect in defect map.]}
PopProgram(status : Byte; msg : String)
<POP 20dae-20db2 StackAdj> Δ+40 {[-12-]}
<POP 20db2-20dc2 Naked> Σ-12 ↓ →0x20dee ←0x20d7c
<MI 20db2 MOVE.W (A6-0xa8),D0> {[-12-]}
<MI 20db6 LSL.W #0x1,D0> {[-12-]}
<MI 20db8 LSR.W #0x1,D0> {[-12-]}
<MI 20dba MOVE.W (A7+0x6),D1> {[-12-]}
<MI 20dbe CMP.W D1,D0> {[-12-]}
<MI 20dc0 BEQ 0x20dee> {[-12-]}
<POP 20dc2-20dee Naked> Σ-12 ↓
<Blob 0x20dc2 [40] @> Δ-40 {[-12-]|[«40""»]}
<Const 0x20dce 0xe.2> Δ-2 {[-12-]|[«40""»]|[#14]}
<POP 20dd2-20dd4 StackAdj> Δ-4 {[-12-]|[«40""»]|[#14]|[-4-]}
<Lit 0x20dd4 40> {[-12-]|[«40""»]|[#14]|[$$Cylinder number incorrect in defect map.]}
<Call 0x20de4 0x103b8> {[-12-]|[«40""»]|[#14]|[$$Cylinder number incorrect in defect map.]}
PopProgram(status : Byte; msg : String)
<POP 20dea-20dee StackAdj> Δ+46 {[-12-]}
<POP 20dee-20dfa Naked> Σ-12 ↓ →0x20e2c ←0x20db2
<MI 20dee CLR.L D0> {[-12-]}
<MI 20df0 MOVE.B (A6-0xa6),D0> {[-12-]}
<MI 20df4 MOVE.W (A7),D2> {[-12-]}
<MI 20df6 CMP.W D2,D0> {[-12-]}
<MI 20df8 BEQ 0x20e2c> {[-12-]}
<POP 20dfa-20e2c Naked> Σ-12 ↓
<Blob 0x20dfa [38] @> Δ-38 {[-12-]|[«38""»]}
<Const 0x20e0c 0xe.2> Δ-2 {[-12-]|[«38""»]|[#14]}
<POP 20e10-20e12 StackAdj> Δ-4 {[-12-]|[«38""»]|[#14]|[-4-]}
<Lit 0x20e12 37> {[-12-]|[«38""»]|[#14]|[$$Track number incorrect in defect map.]}
<Call 0x20e22 0x103b8> {[-12-]|[«38""»]|[#14]|[$$Track number incorrect in defect map.]}
PopProgram(status : Byte; msg : String)
<POP 20e28-20e2c StackAdj> Δ+44 {[-12-]}
<POP 20e2c-20e36 Naked> Σ-12 ↓ →0x20e62 ←0x20dee
<MI 20e2c MOVE.W (A6-0x94),D0> {[-12-]}
<MI 20e30 CMPI.W #0xf000,D0> {[-12-]}
<MI 20e34 BEQ 0x20e62> {[-12-]}
<POP 20e36-20e62 Naked> Σ-12 ↓
<Blob 0x20e36 [34] @> Δ-34 {[-12-]|[«34""»]}
<Const 0x20e42 0xe.2> Δ-2 {[-12-]|[«34""»]|[#14]}
<POP 20e46-20e48 StackAdj> Δ-4 {[-12-]|[«34""»]|[#14]|[-4-]}
<Lit 0x20e48 34> {[-12-]|[«34""»]|[#14]|[$$Last word incorrect in defect map.]}
<Call 0x20e58 0x103b8> {[-12-]|[«34""»]|[#14]|[$$Last word incorrect in defect map.]}
PopProgram(status : Byte; msg : String)
<POP 20e5e-20e62 StackAdj> Δ+40 {[-12-]}
<POP 20e62-20e6a Naked> Σ-12 ↓ →0x20e86 ←0x20e2c
<MI 20e62 MOVE.B (A6-0xa8),D0> {[-12-]}
<MI 20e66 LSR.B #0x7,D0> {[-12-]}
<MI 20e68 BEQ 0x20e86> {[-12-]}
<POP 20e6a-20e86 Naked> Σ-12 →0x20fc4
<MI 20e6a CLR.L D0> {[-12-]}
<MI 20e6c MOVE.W D1,D0> {[-12-]}
<MI 20e6e MOVE.L D0,-(A7)> Δ-4 {[-12-]|[4, 'D0']}
<MI 20e70 CLR.L D0> {[-12-]|[4, 'D0']}
<MI 20e72 MOVE.W D2,D0> {[-12-]|[4, 'D0']}
<MI 20e74 MOVE.L D0,-(A7)> Δ-4 {[-12-]|[4, 'D0']|[4, 'D0']}
<Const 0x20e76 0xff.4> Δ-4 {[-12-]|[4, 'D0']|[4, 'D0']|[##255]}
<Call 0x20e7a 0x205c8> {[-12-]|[4, 'D0']|[4, 'D0']|[##255]}
<POP 20e7e-20e82 StackAdj> Δ+12 {[-12-]}
<MI 20e82 BRA 0x20fc4> {[-12-]}
<POP 20e86-20e88 Naked> Σ-12 ↓ ←0x20e62
<MI 20e86 MOVEQ.L #0x00,D0> {[-12-]}
<POP 20e88-20eae Naked> Σ-12 Δ-4 ↓ →0x20fb0 ←0x20fbc
<MI 20e88 MOVE.L D0,-(A7)> Δ-4 {[-12-]|[4, 'D0']}
<POP 0x20e8a LimitCheck 0x0 ≤ D0 ≤ 0x3> {[-12-]|[4, 'D0']}
<MI 20e94 MOVE.L D0,D1> {[-12-]|[4, 'D0']}
<MI 20e96 ASL.L #0x2,D1> {[-12-]|[4, 'D0']}
<MI 20e98 LEA.L (A6-0xbc),A0> {[-12-]|[4, 'D0']}
<MI 20e9a MOVE.W (A0+D1.L+#0x1a),(A6-0x2)> {[-12-]|[4, 'D0']}
<MI 20ea0 MOVE.W (A0+D1.L+#0x18),(A6-0x4)> {[-12-]|[4, 'D0']}
<MI 20ea6 TST.W (A6-0x2)> {[-12-]|[4, 'D0']}
<MI 20eaa BEQ 0x20fb0> {[-12-]|[4, 'D0']}
<POP 20eae-20f0e Naked> Σ-16 Δ-6 ↓
<MI 20eae CLR.L D1> {[-16-]}
<MI 20eb0 MOVE.W (A6-0x4),D1> {[-16-]}
<MI 20eb4 MOVE.L D1,D2> {[-16-]}
<MI 20eb6 SUBQ.L #0x1,D2> {[-16-]}
<MI 20eb8 MOVE.L D2,D4> {[-16-]}
<MI 20eba MOVE.L (A6+0xa),D3> {[-16-]}
<Call 0x20ebe 0x10294> {[-16-]}
?divs_d3_d4
<POP 0x20ec4 LimitCheck 0x0 ≤ D4 ≤ 0xffff> {[-16-]}
<MI 20ece MOVE.W D4,(A6-0x84)> {[-16-]}
<MI 20ed2 MOVE.L D4,-(A7)> Δ-4 {[-16-]|[4, 'D4']}
<MI 20ed4 CLR.L D2> {[-16-]|[4, 'D4']}
<MI 20ed6 MOVE.W (A6-0x2),D2> {[-16-]|[4, 'D4']}
<MI 20eda ADDI.L #0x00000011,D2> {[-16-]|[4, 'D4']}
<MI 20ee0 ASR.L #0x3,D2> {[-16-]|[4, 'D4']}
<MI 20ee2 MOVE.W D2,(A6-0x86)> {[-16-]|[4, 'D4']}
<MI 20ee6 CLR.L D3> {[-16-]|[4, 'D4']}
<MI 20ee8 MOVE.W D2,D3> {[-16-]|[4, 'D4']}
<MI 20eea ADD.L D1,D3> {[-16-]|[4, 'D4']}
<MI 20eec MOVE.L D3,D4> {[-16-]|[4, 'D4']}
<MI 20eee MOVE.L (A6+0xa),D3> {[-16-]|[4, 'D4']}
<Call 0x20ef2 0x10294> {[-16-]|[4, 'D4']}
?divs_d3_d4
<POP 0x20ef8 LimitCheck 0x0 ≤ D4 ≤ 0xffff> {[-16-]|[4, 'D4']}
<MI 20f02 MOVE.W D4,(A6-0x82)> {[-16-]|[4, 'D4']}
<MI 20f06 MOVE.W D4,-(A7)> Δ-2 {[-16-]|[4, 'D4']|[2, 'D4']}
<MI 20f08 MOVE.L (A7+0x2),D1> {[-16-]|[4, 'D4']|[2, 'D4']}
<MI 20f0c MOVE.W D1,D6> {[-16-]|[4, 'D4']|[2, 'D4']}
<POP 20f0e-20f14 Naked> Σ-22 ↓ →0x20fae ←0x20f9e
<MI 20f0e CMP.W (A7),D6> {[-22-]}
<MI 20f10 BHI 0x20fae> {[-22-]}
<POP 20f14-20f1e Naked> Σ-22 ↓ →0x20f22
<MI 20f14 CLR.L D0> {[-22-]}
<MI 20f16 MOVE.W D6,D0> {[-22-]}
<MI 20f18 CMP.L (A6+0xe),D0> {[-22-]}
<MI 20f1c BCC 0x20f22> {[-22-]}
<POP 20f1e-20f22 Naked> Σ-22 →0x20f34
<MI 20f1e MOVE.W D6,D7> {[-22-]}
<MI 20f20 BRA 0x20f34> {[-22-]}
<POP 20f22-20f34 Naked> Σ-22 ↓ ←0x20f14
<MI 20f22 MOVE.L (A6+0xe),D0> {[-22-]}
<MI 20f26 SUBQ.L #0x1,D0> {[-22-]}
<POP 0x20f28 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-22-]}
<MI 20f32 MOVE.W D0,D7> {[-22-]}
<POP 20f34-20f3a Naked> Σ-22 ↓ →0x20f54 ←0x20f1e
<MI 20f34 TST.B (A6+0x8)> {[-22-]}
<MI 20f38 BNE 0x20f54> {[-22-]}
<POP 20f3a-20f54 Naked> Σ-22 Δ-8 →0x20f9e
<MI 20f3a MOVE.W (A7+0x10),D0> {[-22-]}
<MI 20f3e CLR.L D1> {[-22-]}
<MI 20f40 MOVE.W D0,D1> {[-22-]}
<MI 20f42 MOVE.L D1,-(A7)> Δ-4 {[-22-]|[4, 'D1']}
<MI 20f44 MOVE.W (A7+0xe),D0> {[-22-]|[4, 'D1']}
<MI 20f48 CLR.L D1> {[-22-]|[4, 'D1']}
<MI 20f4a MOVE.W D0,D1> {[-22-]|[4, 'D1']}
<MI 20f4c MOVE.L D1,-(A7)> Δ-4 {[-22-]|[4, 'D1']|[4, 'D1']}
<MI 20f4e CLR.L D0> {[-22-]|[4, 'D1']|[4, 'D1']}
<MI 20f50 MOVE.W D7,D0> {[-22-]|[4, 'D1']|[4, 'D1']}
<MI 20f52 BRA 0x20f9e> {[-22-]|[4, 'D1']|[4, 'D1']}
<POP 20f54-20f9e Naked> Σ-22 Δ-8 ↓ ←0x20f34
<MI 20f54 MOVE.W D7,D0> {[-22-]}
<MI 20f56 ANDI.W #0x0001,D0> {[-22-]}
<MI 20f5a MOVE.L (A6+0xe),D4> {[-22-]}
<MI 20f5e MOVEQ.L #0x02,D3> {[-22-]}
<Call 0x20f60 0x10294> {[-22-]}
?divs_d3_d4
<MI 20f66 CLR.L D3> {[-22-]}
<MI 20f68 MOVE.W D0,D3> {[-22-]}
<Call 0x20f6a 0x10290> {[-22-]}
?mulu_d3_d4
<MI 20f70 MOVE.W D7,D0> {[-22-]}
<MI 20f72 LSR.W #0x1,D0> {[-22-]}
<MI 20f74 CLR.L D1> {[-22-]}
<MI 20f76 MOVE.W D0,D1> {[-22-]}
<MI 20f78 ADD.L D4,D1> {[-22-]}
<POP 0x20f7a LimitCheck 0x0 ≤ D1 ≤ 0xffff> {[-22-]}
<MI 20f84 MOVE.W D1,D5> {[-22-]}
<MI 20f86 MOVE.W (A7+0x10),D0> {[-22-]}
<MI 20f8a CLR.L D1> {[-22-]}
<MI 20f8c MOVE.W D0,D1> {[-22-]}
<MI 20f8e MOVE.L D1,-(A7)> Δ-4 {[-22-]|[4, 'D1']}
<MI 20f90 MOVE.W (A7+0xe),D0> {[-22-]|[4, 'D1']}
<MI 20f94 CLR.L D1> {[-22-]|[4, 'D1']}
<MI 20f96 MOVE.W D0,D1> {[-22-]|[4, 'D1']}
<MI 20f98 MOVE.L D1,-(A7)> Δ-4 {[-22-]|[4, 'D1']|[4, 'D1']}
<MI 20f9a CLR.L D0> {[-22-]|[4, 'D1']|[4, 'D1']}
<MI 20f9c MOVE.W D5,D0> {[-22-]|[4, 'D1']|[4, 'D1']}
<POP 20f9e-20fae Naked> Σ-30 Δ+8 ↓ →0x20f0e ←0x20f3a
<MI 20f9e MOVE.L D0,-(A7)> Δ-4 {[-30-]|[4, 'D0']}
<Call 0x20fa0 0x205c8> {[-30-]|[4, 'D0']}
<POP 20fa4-20fa8 StackAdj> Δ+12 {[-22-]}
<MI 20fa8 ADDQ.W #0x1,D6> {[-22-]}
<MI 20faa BCC 0x20f0e> {[-22-]}
<POP 20fae-20fb0 Naked> Σ-22 Δ+6 ↓ ←0x20f0e
<POP 20fae-20fb0 StackAdj> Δ+6 {[-16-]}
<POP 20fb0-20fbc Naked> Σ-16 ↓ →0x20fc2 ←0x20e88
<MI 20fb0 MOVE.L (A7),D0> {[-16-]}
<MI 20fb2 ADDQ.L #0x1,D0> {[-16-]}
<MI 20fb4 CMPI.L #0x00000003,D0> {[-16-]}
<MI 20fba BGT 0x20fc2> {[-16-]}
<POP 20fbc-20fc2 Naked> Σ-16 Δ+4 →0x20e88
<POP 20fbc-20fbe StackAdj> Δ+4 {[-12-]}
<MI 20fbe BRA 0x20e88> {[-12-]}
<POP 20fc2-20fc4 Naked> Σ-16 Δ+4 ↓ ←0x20fb0
<POP 20fc2-20fc4 StackAdj> Δ+4 {[-12-]}
<POP 20fc4-20fca Naked> Σ-12 ↓ →0x20fd0 ←0x20e6a
<MI 20fc4 MOVE.W (A7),D1> {[-12-]}
<MI 20fc6 ADDQ.W #0x1,D1> {[-12-]}
<MI 20fc8 BCS 0x20fd0> {[-12-]}
<POP 20fca-20fd0 Naked> Σ-12 Δ+2 →0x20cd0
<POP 20fca-20fcc StackAdj> Δ+2 {[-10-]}
<MI 20fcc BRA 0x20cd0> {[-10-]}
<POP 20fd0-20fd8 Naked> Σ-12 Δ+6 ↓ →0x20fde ←0x20cd6 ←0x20fc4
<POP 20fd0-20fd2 StackAdj> Δ+6 {[-6-]}
<MI 20fd2 MOVE.W (A7),D0> {[-6-]}
<MI 20fd4 ADDQ.W #0x1,D0> {[-6-]}
<MI 20fd6 BCS 0x20fde> {[-6-]}
<POP 20fd8-20fde Naked> Σ-6 Δ+2 →0x20ca6
<POP 20fd8-20fda StackAdj> Δ+2 {[-4-]}
<MI 20fda BRA 0x20ca6> {[-4-]}
<POP 20fde-21020 Naked> Σ-6 Δ+6 ↓ ←0x20cac ←0x20fd0
<POP 20fde-20fdf StackAdj> Δ+6 ↓ {}
<Blob 0x20fdf [16] @> Δ-16 {[«16""»]}
<POP 20ff0-20ff2 StackAdj> Δ-8 {[«16""»]|[-8-]}
<Blob 0x20ff2 [4] 0x2384c> Δ-4 {[«16""»]|[-8-]|[«4»]}
<Call 0x20ff8 0x102e4> {[«16""»]|[-8-]|[«4»]}
Long2String(a : Long) : String
<Lit 0x20ffe 15> {[«16""»]|[-8-]|[$$ Defects found.]}
<Call 0x2100e 0x102d0> {[«16""»]|[-8-]|[$$ Defects found.]}
StringCat2(a, b : String) : String
<POP 21014-21016 StackAdj> Δ+8 {[«16""»]|[-4-]}
<Call 0x21016 0x103e0> {[«16""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2101c-21020 StackAdj> Δ+20 {}
<POP 21020-21028 Epilogue> Σ0
@ 21028
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x00c @ 1(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x012 @ 2(w)>
<LVAR -0x014 @ 1(r)>
<POP 21028-211be Body>
<POP 21028-2103e Prologue> Σ0 ↓
<POP 2103e-21052 RegCacheLoad> Σ0 ↓
<POP 21052-2106a Naked> Σ0 ↓ →0x21074
<Pointer.fp 0x21052 <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-20]}
<Pointer.fp 0x21056 <LVAR -0x012 @ 2(w)>> Δ-4 {[@@-20]|[@@-18]}
<Call 0x2105a 0x10200> {[@@-20]|[@@-18]}
KC00_GetBootDev(VAR a : Byte; VAR b : Word)
<POP 21060-21062 StackAdj> Δ+8 {}
<MI 21062 MOVE.B (A6-0x14),D0> {}
<MI 21066 CMP.B #0x02,D0> {}
<MI 21068 BNE 0x21074> {}
<POP 2106a-21074 Naked> Σ0 →0x210f6
<Call 0x2106a 0x10398> {}
FSCALL_10398
<MI 21070 BRA 0x210f6> {}
<POP 21074-210ce Naked> Σ0 ↓ →0x210f6 ←0x21052
<Blob 0x21074 [62] @> Δ-62 {[«62""»]}
<POP 21084-21086 StackAdj> Δ-8 {[«62""»]|[-8-]}
<Lit 0x21086 61> {[«62""»]|[-4-]|[$$Enter unit number of disk with DFS to write defect info to :_]}
<Const 0x21098 0x0.4> Δ-4 {[«62""»]|[-4-]|[$$Enter unit number of disk with DFS to write defect info to :_]|[##0]}
<Const 0x2109c 0xf.4> Δ-4 {[«62""»]|[-4-]|[$$Enter unit number of disk with DFS to write defect info to :_]|[##0]|[##15]}
<Call 0x210a0 0x103ec> {[«62""»]|[-4-]|[$$Enter unit number of disk with DFS to write defect info to :_]|[##0]|[##15]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 210a6-210aa StackAdj> Δ+12 {[«62""»]|[-4-]}
<MI 210aa MOVE.L (A7)+,D0> Δ+4 {[«62""»]}
<POP 0x210ac LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[«62""»]}
<POP 210b6-210b8 StackAdj> Δ+62 {}
<MI 210b8 MOVE.W D0,(A6-0x12)> {}
<POP 0x210bc LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 210be MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x210c0 <LVAR -0x00c @ 1(r)>> Δ-4 {[2, 'D0']|[@@-12]}
<Call 0x210c2 0x10394> {[2, 'D0']|[@@-12]}
MountDisk(drive : Word ; VAR status : Byte)
<POP 210c8-210ca StackAdj> Δ+6 {}
<MI 210ca TST.B (A6-0xc)> {}
<MI 210cc BEQ 0x210f6> {}
<POP 210ce-210f6 Naked> Σ0
<POP 210ce-210d0 StackAdj> Δ-4 {[-4-]}
<MI 210d0 MOVE.B (A6-0xc),D0> {[-4-]}
<MI 210d2 EXTB.W D0> {[-4-]}
<POP 0x210d4 LimitCheck 0x0 ≤ D0 ≤ 0xf> {[-4-]}
<MI 210d6 MOVE.B D0,-(A7)> Δ-2 {[-4-]|[2, 'D0']}
<Call 0x210d8 0x103a0> {[-4-]|[2, 'D0']}
FsErrMsgStr(err: Byte) : String
<POP 210de-210e0 StackAdj> Δ+2 {[-4-]}
<Call 0x210e0 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 210e6-210e8 StackAdj> Δ+4 {}
<POP 210e8-210f6 Bailout> {}
<MI 210e8 MOVEA.L (A5+0x8),A7>
<MI 210ec MOVEA.W #0x0,A6>
<MI 210f0 JMP 0x215e6>
<POP 210f6-21142 Naked> Σ0 ↓ ←0x2106a ←0x21074
<Blob 0x210f6 [4] @> Δ-4 {[«4""»]}
<Blob 0x210fa [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 210fe-21100 StackAdj> Δ-8 {[«4""»]|[«4""»]|[-8-]}
<MI 21100 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[«4""»]|[-8-]|[4, '(A6+0x8)']}
<Call 0x21104 0x102cc> {[«4""»]|[«4""»]|[-8-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<Lit 0x2110a 8> {[«4""»]|[«4""»]|[-8-]|[$$.DEFECTS]}
<Call 0x2111c 0x102d0> {[«4""»]|[«4""»]|[-8-]|[$$.DEFECTS]}
StringCat2(a, b : String) : String
<POP 21122-21124 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 21124 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«4""»]|[«4""»]}
<POP 21126-21128 StackAdj> Δ+4 {[«4""»]}
<MI 21128 MOVE.L (A6-0x6),(A7)> {[4, '(A6-0x6)']}
<Const 0x2112a 0x1.2> Δ-2 {[4, '(A6-0x6)']|[#1]}
<Const 0x2112c 0x2.2> Δ-2 {[4, '(A6-0x6)']|[#1]|[#2]}
<Const 0x2112e 0x8.4> Δ-4 {[4, '(A6-0x6)']|[#1]|[#2]|[##8]}
<Pointer.fp 0x21132 <LVAR -0x00c @ 1(r)>> Δ-4 {[4, '(A6-0x6)']|[#1]|[#2]|[##8]|[@@-12]}
<Pointer.fp 0x21134 <LVAR -0x010 @ 4(r)>> Δ-4 {[4, '(A6-0x6)']|[#1]|[#2]|[##8]|[@@-12]|[@@-16]}
<Call 0x21136 0x10380> {[4, '(A6-0x6)']|[#1]|[#2]|[##8]|[@@-12]|[@@-16]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 2113c-21140 StackAdj> Δ+20 {}
<MI 21140 MOVEQ.L #0x00,D7> {}
<POP 21142-21196 Naked> Σ0 ↓ →0x21142 ←0x21142
<MI 21142 MOVE.L #0x100,D4> {}
<MI 21148 MOVE.L D7,D3> {}
<Call 0x2114a 0x1028c> {}
?muls_d3_d4
<MI 21150 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 0x21152 LimitCheck 0x0 ≤ D7 ≤ 0x4000> {[4, '(A6-0x10)']}
<MI 2115c MOVE.W D7,-(A7)> Δ-2 {[4, '(A6-0x10)']|[2, 'D7']}
<MI 2115e CLR.W -(A7)> Δ-2 {[4, '(A6-0x10)']|[2, 'D7']|[#0]}
<Const 0x21160 0x200.2> Δ-2 {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]}
<Const 0x21164 0x2.2> Δ-2 {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<POP 0x21166 LimitCheck 0x0 ≤ D4 ≤ 0x7ff> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21170 MOVE.L D4,D0> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21172 ASL.L #0x2,D0> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21174 LEA.L 0x21844,A0> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 2117a LEA.L (A0+D0.L+#0x8),A0> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 2117e MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x21180 <LVAR -0x00c @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-12]}
<Call 0x21182 0x10388> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-12]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 21188-2118c StackAdj> Δ+20 {}
<MI 2118c ADDQ.L #0x1,D7> {}
<MI 2118e CMPI.L #0x00000007,D7> {}
<MI 21194 BLE 0x21142> {}
<POP 21196-211b6 Naked> Σ0 ↓
<MI 21196 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x21198 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x2119a 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x2119e <LVAR -0x00c @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-12]}
<Pointer.fp 0x211a0 <LVAR -0x010 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-12]|[@@-16]}
<Call 0x211a2 0x1038c> {[#0]|[#2]|[##1]|[@@-12]|[@@-16]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 211a8-211ac StackAdj> Δ+16 {}
<Pointer.fp 0x211ac <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x211ae 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 211b4-211b6 StackAdj> Δ+4 {}
<POP 211b6-211be Epilogue> Σ0
@ 211be
<LVAR 0x008 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x028 2(w)>
<LVAR -0x02c 4(w)>
<LVAR -0x02d 1(r)>
<LVAR -0x02e 1(r)>
<LVAR -0x030 2(w)>
<LVAR -0x032 2(w)>
<LVAR -0x050 @>
<LVAR -0x052 @ 1(r)>
<POP 211be-21408 Body>
<POP 211be-211d4 Prologue> Σ0 ↓
<POP 211d4-211e2 RegCacheLoad> Σ0 ↓
<POP 211e2-21246 Naked> Σ0 ↓ →0x2125a
<Blob 0x211e2 [32] @> Δ-32 {[«32""»]}
<POP 211f4-211f6 StackAdj> Δ-8 {[«32""»]|[-8-]}
<Lit 0x211f6 31> {[«32""»]|[-4-]|[$$Enter tape drive unit number :_]}
<Const 0x21208 0x0.4> Δ-4 {[«32""»]|[-4-]|[$$Enter tape drive unit number :_]|[##0]}
<Const 0x2120c 0x3.4> Δ-4 {[«32""»]|[-4-]|[$$Enter tape drive unit number :_]|[##0]|[##3]}
<Call 0x21210 0x103ec> {[«32""»]|[-4-]|[$$Enter tape drive unit number :_]|[##0]|[##3]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 21216-2121a StackAdj> Δ+12 {[«32""»]|[-4-]}
<MI 2121a MOVE.L (A7)+,D0> Δ+4 {[«32""»]}
<POP 0x2121c LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[«32""»]}
<POP 21226-2122a StackAdj> Δ+32 {}
<MI 2122a MOVE.W D0,D6> {}
<POP 0x2122c LimitCheck 0x0 ≤ D6 ≤ 0x3> {}
<MI 21230 MOVE.W D6,-(A7)> Δ-2 {[2, 'D6']}
<Const 0x21232 0x1.2> Δ-2 {[2, 'D6']|[#1]}
<Const 0x21234 0x1.2> Δ-2 {[2, 'D6']|[#1]|[#1]}
<Pointer.fp 0x21236 <LVAR -0x052 @ 1(r)>> Δ-4 {[2, 'D6']|[#1]|[#1]|[@@-82]}
<Call 0x21238 0x1040c> {[2, 'D6']|[#1]|[#1]|[@@-82]}
FSCALL_1040c
<POP 2123e-21242 StackAdj> Δ+10 {}
<MI 21242 TST.B (A6-0x52)> {}
<MI 21244 BEQ 0x2125a> {}
<POP 21246-2125a Naked> Σ0
<Const 0x21246 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x21248 <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x2124a 0x10428> {[#1]|[@@-82]}
FSCALL_10428
<POP 2124c-2124e StackAdj> Δ+6 {}
<POP 2124e-2125a Bailout> {}
<MI 2124e MOVEA.L (A5+0x8),A7>
<MI 21252 MOVEA.W #0x00,A6>
<MI 21254 JMP 0x215e6>
<POP 2125a-2128a Naked> Σ0 ↓ ←0x211e2
<Blob 0x2125a [4] @> Δ-4 {[«4""»]}
<Blob 0x2125e [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 21262-21264 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<MI 21264 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']}
<POP 21268-2126a StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x2126a 8> {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']|[$$.DEFECTS]}
<Call 0x2127c 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']|[$$.DEFECTS]}
StringCat2(a, b : String) : String
<POP 21282-21284 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 21284 MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]}
<POP 21286-21288 StackAdj> Δ+8 {}
<MI 21288 MOVEQ.L #0x01,D7> {}
<POP 2128a-21292 Naked> Σ0 ↓ →0x212a6 ←0x212c8
<MI 2128a MOVE.W (A4),D0> {}
<MI 2128c EXTW.L D0> {}
<MI 2128e CMP.L D0,D7> {}
<MI 21290 BLE 0x212a6> {}
<POP 21292-212a6 Naked> Σ0 →0x212c8
<MI 21292 MOVE.L D7,D0> {}
<MI 21294 SUBQ.L #0x1,D0> {}
<POP 0x21296 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 212a0 CLR.B (A6+D0.L-#0x50)> {}
<MI 212a4 BRA 0x212c8> {}
<POP 212a6-212c8 Naked> Σ0 ↓ ←0x2128a
<MI 212a6 MOVE.L D7,D0> {}
<MI 212a8 SUBQ.L #0x1,D0> {}
<POP 0x212aa LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 212b4 MOVE.L D7,D1> {}
<MI 212b6 SUBQ.L #0x1,D1> {}
<POP 0x212b8 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 212c2 MOVE.B (A4+D1.L+#0x2),(A6+D0.L-#0x50)> {}
<POP 212c8-212d2 Naked> Σ0 ↓ →0x2128a ←0x21292
<MI 212c8 ADDQ.L #0x1,D7> {}
<MI 212ca CMPI.L #0x0000001e,D7> {}
<MI 212d0 BLE 0x2128a> {}
<POP 212d2-2131c Naked> Σ0 ↓ →0x21334
<MI 212d2 MOVE.W #0x8,(A6-0x32)> {}
<MI 212d8 MOVE.W #0x400,(A6-0x30)> {}
<MI 212de CLR.B (A6-0x2d)> {}
<MI 212e2 CLR.B (A6-0x2e)> {}
<Pointer.fp 0x212e6 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x212ea 0x10304> {[@@-12]}
GetRtc() : TimeStamp
<POP 212f0-212f2 StackAdj> Δ+4 {}
<MI 212f2 MOVE.L (A6-0xc),(A6-0x2c)> {}
<MI 212f8 MOVE.W #0x01,(A6-0x28)> {}
<MI 212fc LEA.L (A6-0x50),A0> {}
<MI 21300 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x21302 0x40.2> Δ-2 {[4, 'A0']|[#64]}
<Call 0x21306 0x1041c> {[4, 'A0']|[#64]}
FSCALL_1041c
<POP 2130c-2130e StackAdj> Δ+6 {}
<Pointer.fp 0x2130e <LVAR -0x052 @ 1(r)>> Δ-4 {[@@-82]}
<Call 0x21310 0x10408> {[@@-82]}
FSCALL_10408
<POP 21316-21318 StackAdj> Δ+4 {}
<MI 21318 TST.B (A6-0x52)> {}
<MI 2131a BEQ 0x21334> {}
<POP 2131c-21328 Naked> Σ0 ↓ →0x21334
<Const 0x2131c 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2131e <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x21320 0x10428> {[#1]|[@@-82]}
FSCALL_10428
<POP 21322-21324 StackAdj> Δ+6 {}
<MI 21324 TST.B (A6-0x52)> {}
<MI 21326 BEQ 0x21334> {}
<POP 21328-21334 Naked> Σ0
<POP 21328-21334 Bailout> {}
<MI 21328 MOVEA.L (A5+0x8),A7>
<MI 2132c MOVEA.W #0x00,A6>
<MI 2132e JMP 0x215e6>
<POP 21334-21336 Naked> Σ0 ↓ ←0x212d2 ←0x2131c
<MI 21334 MOVEQ.L #0x00,D7> {}
<POP 21336-21378 Naked> Σ0 ↓ →0x21390 ←0x21390
<MI 21336 MOVE.L #0x100,D4> {}
<MI 2133c MOVE.L D7,D3> {}
<Call 0x2133e 0x1028c> {}
?muls_d3_d4
<POP 0x21344 LimitCheck 0x0 ≤ D4 ≤ 0x7ff> {}
<MI 2134e MOVE.L D4,D0> {}
<MI 21350 ASL.L #0x2,D0> {}
<MI 21352 LEA.L 0x21844,A0> {}
<MI 21358 LEA.L (A0+D0.L+#0x8),A0> {}
<MI 2135c MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x2135e 0x400.2> Δ-2 {[4, 'A0']|[#1024]}
<Call 0x21362 0x1041c> {[4, 'A0']|[#1024]}
FSCALL_1041c
<POP 21368-2136a StackAdj> Δ+6 {}
<Pointer.fp 0x2136a <LVAR -0x052 @ 1(r)>> Δ-4 {[@@-82]}
<Call 0x2136c 0x10408> {[@@-82]}
FSCALL_10408
<POP 21372-21374 StackAdj> Δ+4 {}
<MI 21374 TST.B (A6-0x52)> {}
<MI 21376 BEQ 0x21390> {}
<POP 21378-21384 Naked> Σ0 ↓ →0x21390
<Const 0x21378 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2137a <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x2137c 0x10428> {[#1]|[@@-82]}
FSCALL_10428
<POP 2137e-21380 StackAdj> Δ+6 {}
<MI 21380 TST.B (A6-0x52)> {}
<MI 21382 BEQ 0x21390> {}
<POP 21384-21390 Naked> Σ0
<POP 21384-21390 Bailout> {}
<MI 21384 MOVEA.L (A5+0x8),A7>
<MI 21388 MOVEA.W #0x00,A6>
<MI 2138a JMP 0x215e6>
<POP 21390-2139a Naked> Σ0 ↓ →0x21336 ←0x21336 ←0x21378
<MI 21390 ADDQ.L #0x1,D7> {}
<MI 21392 CMPI.L #0x00000007,D7> {}
<MI 21398 BLE 0x21336> {}
<POP 2139a-2139c Naked> Σ0 ↓
<MI 2139a MOVEQ.L #0x01,D7> {}
<POP 2139c-213b0 Naked> Σ0 ↓ →0x213c8 ←0x213c8
<Call 0x2139c 0x10420> {}
FSCALL_10420
<Pointer.fp 0x213a2 <LVAR -0x052 @ 1(r)>> Δ-4 {[@@-82]}
<Call 0x213a4 0x10408> {[@@-82]}
FSCALL_10408
<POP 213aa-213ac StackAdj> Δ+4 {}
<MI 213ac TST.B (A6-0x52)> {}
<MI 213ae BEQ 0x213c8> {}
<POP 213b0-213bc Naked> Σ0 ↓ →0x213c8
<Const 0x213b0 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x213b2 <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x213b4 0x10428> {[#1]|[@@-82]}
FSCALL_10428
<POP 213b6-213b8 StackAdj> Δ+6 {}
<MI 213b8 TST.B (A6-0x52)> {}
<MI 213ba BEQ 0x213c8> {}
<POP 213bc-213c8 Naked> Σ0
<POP 213bc-213c8 Bailout> {}
<MI 213bc MOVEA.L (A5+0x8),A7>
<MI 213c0 MOVEA.W #0x00,A6>
<MI 213c2 JMP 0x215e6>
<POP 213c8-213d2 Naked> Σ0 ↓ →0x2139c ←0x2139c ←0x213b0
<MI 213c8 ADDQ.L #0x1,D7> {}
<MI 213ca CMPI.L #0x00000002,D7> {}
<MI 213d0 BLE 0x2139c> {}
<POP 213d2-213e2 Naked> Σ0 ↓ →0x213fa
<Const 0x213d2 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x213d4 <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x213d6 0x10414> {[#1]|[@@-82]}
FSCALL_10414
<POP 213dc-213de StackAdj> Δ+6 {}
<MI 213de TST.B (A6-0x52)> {}
<MI 213e0 BEQ 0x213fa> {}
<POP 213e2-213ee Naked> Σ0 ↓ →0x213fa
<Const 0x213e2 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x213e4 <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x213e6 0x10428> {[#1]|[@@-82]}
FSCALL_10428
<POP 213e8-213ea StackAdj> Δ+6 {}
<MI 213ea TST.B (A6-0x52)> {}
<MI 213ec BEQ 0x213fa> {}
<POP 213ee-213fa Naked> Σ0
<POP 213ee-213fa Bailout> {}
<MI 213ee MOVEA.L (A5+0x8),A7>
<MI 213f2 MOVEA.W #0x00,A6>
<MI 213f4 JMP 0x215e6>
<POP 213fa-21400 Naked> Σ0 ↓ ←0x213d2 ←0x213e2
<Call 0x213fa 0x10410> {}
FSCALL_10410
<POP 21400-21408 Epilogue> Σ0
@ 21408
<LVAR 0x008 4(r)>
<POP 21408-214ec Body> Δ+4
<POP 21408-2141e Prologue> Σ0 ↓
<POP 2141e-2142c RegCacheLoad> Σ0 ↓
<POP 2142c-214d0 Naked> Σ0 ↓ →0x214da
<Blob 0x2142c [48] @> Δ-48 {[«48""»]}
<POP 2143e-21440 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x21440 47> {[«48""»]|[$$Do you want to save this defect information on:]}
<Call 0x2144e 0x103e0> {[«48""»]|[$$Do you want to save this defect information on:]}
WriteConsoleStringCrLf(str : String)
<POP 21450-21451 StackAdj> Δ+52 ↓ {}
<Blob 0x21451 [16] @> Δ-16 {[«16""»]}
<POP 21462-21464 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x21464 15> {[«16""»]|[$$ 0 => A tape]}
<Call 0x21472 0x103e0> {[«16""»]|[$$ 0 => A tape]}
WriteConsoleStringCrLf(str : String)
<MI 21474 MOVEA.L A7,A0> {[«16""»]|[$$ 0 => A tape]}
<MI 21476 LEA.L 0x204e2,A1> {[«16""»]|[$$ 0 => A tape]}
<BlockMove 19,A1,A0> {[«16""»]|[$$ 0 => A tape]}
<POP 21482-21484 StackAdj> Δ-4 {[«16""»]|[$$ 0 => A tape]|[-4-]}
<Lit 0x21484> {[«16""»]|[$$ 0 => A tape]|[$$…]}
<Pointer.sp 0x21484 4> Δ-4
<Const 0x21488 0x1.2> Δ-2
<Const 0x2148a 0x13.2> Δ-2
<Call 0x2148e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21490-21492 StackAdj> Δ+8
<Call 0x21492 0x103e0> {[«16""»]|[$$ 0 => A tape]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 21494-21495 StackAdj> Δ+24 ↓ {}
<Blob 0x21495 [22] @> Δ-22 {[«22""»]}
<POP 214a4-214a6 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x214a6 21> {[«22""»]|[-4-]|[$$Please enter 0 or 1:_]}
<Const 0x214b4 0x0.4> Δ-4 {[«22""»]|[-4-]|[$$Please enter 0 or 1:_]|[##0]}
<Const 0x214b8 0x1.4> Δ-4 {[«22""»]|[-4-]|[$$Please enter 0 or 1:_]|[##0]|[##1]}
<Call 0x214bc 0x103ec> {[«22""»]|[-4-]|[$$Please enter 0 or 1:_]|[##0]|[##1]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 214c2-214c6 StackAdj> Δ+12 {[«22""»]|[-4-]}
<MI 214c6 MOVE.L (A7)+,D7> Δ+4 {[«22""»]}
<POP 214c8-214cc StackAdj> Δ+22 {}
<MI 214cc TST.L D7> {}
<MI 214ce BNE 0x214da> {}
<POP 214d0-214da Naked> Σ0 Δ-4 →0x214e2
<MI 214d0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x214d4 0x211be> {[4, '(A6+0x8)']}
<MI 214d8 BRA 0x214e2> {[4, '(A6+0x8)']}
<POP 214da-214e2 Naked> Σ0 Δ-4 ↓ ←0x2142c
<MI 214da MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x214de 0x21028> {[4, '(A6+0x8)']}
<POP 214e2-214e4 Naked> Σ-4 Δ+4 ↓ ←0x214d0
<POP 214e2-214e4 StackAdj> Δ+4 {}
<POP 214e4-214ec Epilogue> Σ0
@ 214ec
START
<POP 214ec--0001 Body>
<POP 214ec-214f6 Prologue> Σ0
<POP 214f6-214fc Naked> Σ0 ↓
<Call 0x214f6 0x10400> {}
FSCALL_10400
<POP 214fc-21508 Naked> Σ0 ↓ →0x2153c ←0x21508 ←0x21548 ←0x21634
<POP 214fc-214fe StackAdj> Δ-2 {[-2-]}
<Call 0x214fe 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 21504 TST.B (A7)+> Δ+2 {}
<MI 21506 BEQ 0x2153c> {}
<POP 21508-2153c Naked> Σ0 →0x214fc
<Blob 0x21508 [48] @> Δ-48 {[«48""»]}
<POP 2151a-2151c StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x2151c 47> {[«48""»]|[$$This program will not operate on a Coprocessor.]}
<Call 0x21530 0x103e0> {[«48""»]|[$$This program will not operate on a Coprocessor.]}
WriteConsoleStringCrLf(str : String)
<POP 21536-2153a StackAdj> Δ+52 {}
<MI 2153a BRA 0x214fc> {}
<POP 2153c-21548 Naked> Σ0 ↓ →0x21576 ←0x214fc
<POP 2153c-2153e StackAdj> Δ-2 {[-2-]}
<Call 0x2153e 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 21544 TST.B (A7)+> Δ+2 {}
<MI 21546 BEQ 0x21576> {}
<POP 21548-21576 Naked> Σ0 →0x214fc
<Blob 0x21548 [46] @> Δ-46 {[«46""»]}
<POP 21554-21556 StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x21556 46> {[«46""»]|[$$This program will not operate on a 400 system.]}
<Call 0x2156a 0x103e0> {[«46""»]|[$$This program will not operate on a 400 system.]}
WriteConsoleStringCrLf(str : String)
<POP 21570-21574 StackAdj> Δ+50 {}
<MI 21574 BRA 0x214fc> {}
<POP 21576-21620 Naked> Σ0 ↓ →0x21634 ←0x2153c
<Call 0x21576 0x2056a> {}
<Const 0x2157a 0x23850.4> Δ-4 {[##145488]}
<Const 0x21580 0x23852.4> Δ-4 {[##145488]|[##145490]}
<Const 0x21586 0x23856.4> Δ-4 {[##145488]|[##145490]|[##145494]}
<Const 0x2158c 0x2385a.4> Δ-4 {[##145488]|[##145490]|[##145494]|[##145498]}
<Const 0x21592 0x2385e.4> Δ-4 {[##145488]|[##145490]|[##145494]|[##145498]|[##145502]}
<Const 0x21598 0x23864.4> Δ-4 {[##145488]|[##145490]|[##145494]|[##145498]|[##145502]|[##145508]}
<Const 0x2159e 0x23862.4> Δ-4 {[##145488]|[##145490]|[##145494]|[##145498]|[##145502]|[##145508]|[##145506]}
<Call 0x215a4 0x208b2> {[##145488]|[##145490]|[##145494]|[##145498]|[##145502]|[##145508]|[##145506]}
<POP 215a8-215ac StackAdj> Δ+28 {}
<MI 215ac MOVE.W 0x23850,D0> {}
<POP 0x215b2 LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 215b6 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Blob 0x215b8 [4] 0x23856> Δ-4 {[2, 'D0']|[«4»]}
<Blob 0x215be [4] 0x2385a> Δ-4 {[2, 'D0']|[«4»]|[«4»]}
<Blob 0x215c4 [4] 0x2385e> Δ-4 {[2, 'D0']|[«4»]|[«4»]|[«4»]}
<Blob 0x215ca [4] 0x23864> Δ-4 {[2, 'D0']|[«4»]|[«4»]|[«4»]|[«4»]}
<MI 215d0 MOVE.B 0x23862,D0> {[2, 'D0']|[«4»]|[«4»]|[«4»]|[«4»]}
<MI 215d6 EXTB.W D0> {[2, 'D0']|[«4»]|[«4»]|[«4»]|[«4»]}
<POP 0x215d8 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D0']|[«4»]|[«4»]|[«4»]|[«4»]}
<MI 215dc MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']|[«4»]|[«4»]|[«4»]|[«4»]|[2, 'D0']}
<Call 0x215de 0x20c48> {[2, 'D0']|[«4»]|[«4»]|[«4»]|[«4»]|[2, 'D0']}
<POP 215e2-215e6 StackAdj> Δ+20 {}
<Blob 0x215e6 [4] 0x23852> Δ-4 {[«4»]}
<Call 0x215ec 0x21408> {[«4»]}
<POP 215f0-215f2 StackAdj> Δ+4 {}
<Const 0x215f2 0x23852.4> Δ-4 {[##145490]}
<Call 0x215f8 0x102bc> {[##145490]}
FreeString(VAR a : String)
<POP 215fe-21600 StackAdj> Δ+4 {}
<Const 0x21600 0x23868.4> Δ-4 {[##145512]}
<Const 0x21606 0x2386a.4> Δ-4 {[##145512]|[##145514]}
<Call 0x2160c 0x10200> {[##145512]|[##145514]}
KC00_GetBootDev(VAR a : Byte; VAR b : Word)
<POP 21612-21614 StackAdj> Δ+8 {}
<MI 21614 MOVE.B 0x23868,D0> {}
<MI 2161a CMPI.B #0x02,D0> {}
<MI 2161e BNE 0x21634> {}
<POP 21620-21634 Naked> Σ0 ↓
<Call 0x21620 0x10398> {}
FSCALL_10398
<MI 21626 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x21628 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x2162c 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 21632-21634 StackAdj> Δ+6 {}
<POP 21634-21638 Naked> Σ0 →0x214fc ←0x21576
<MI 21634 BRA 0x214fc> {}
@ 2164c
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 2164c-216b4 Body>
<POP 2164c-21662 Prologue> Σ0 ↓
<POP 21662-216ac Naked> Σ0 ↓
<Blob 0x21662 [14] @> Δ-14 {[«14""»]}
<Const 0x2166e 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 21672-21674 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x21674 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 21686-21688 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21688 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2168c EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2168e EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21690 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x21692 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21698-2169a StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x2169a 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 216a0-216a2 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x216a2 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 216a8-216ac StackAdj> Δ+20 {}
<POP 216ac-216b4 Epilogue> Σ0
@ 21708
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 21708-21844 Body>
<POP 21708-2171e Prologue> Σ0 ↓
<POP 2171e-21734 RegCacheLoad> Σ0 ↓
<POP 21734-21794 Naked> Σ0 ↓ →0x217dc
<Call 0x21734 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2173a [18] @> Δ-18 {[«18""»]}
<POP 21746-21748 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21748 18> {[«18""»]|[$$Experiment error :]}
<Call 0x21754 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 21756-21757 StackAdj> Δ+22 ↓ {}
<Blob 0x21757 [14] @> Δ-14 {[«14""»]}
<POP 21766-21768 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21768 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 21772-21774 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 21774 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x21778 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 2177e-21780 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x21780 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21786-21788 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21788 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2178a-2178c StackAdj> Δ+18 {}
<MI 2178c MOVEA.L (A6+0xa),A0> {}
<MI 21790 CMPA.W #0x01,A0> {}
<MI 21792 BEQ 0x217dc> {}
<POP 21794-217dc Naked> Σ0 ↓
<Blob 0x21794 [14] @> Δ-14 {[«14""»]}
<Blob 0x217a4 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 217b4-217b6 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x217b6 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 217c0-217c2 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x217c2> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x217c2 12> Δ-4
<Const 0x217c6 0x1.2> Δ-2
<Const 0x217c8 0x1e.2> Δ-2
<Call 0x217ca 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 217cc-217ce StackAdj> Δ+8
<Call 0x217ce 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 217d4-217d6 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x217d6 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 217d8-217dc StackAdj> Δ+48 {}
<POP 217dc-2183c Naked> Σ0 ↓ ←0x21734
<Blob 0x217dc [14] @> Δ-14 {[«14""»]}
<POP 217ec-217ee StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x217ee 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 217f8-217fa StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 217fa MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x217fe 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 21804-21806 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x21806 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2180c-2180e StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2180e 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21810-21811 StackAdj> Δ+18 ↓ {}
<Blob 0x21811 [24] @> Δ-24 {[«24""»]}
<Const 0x21820 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 21824-21826 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x21826 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x21834 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 2183a-2183c StackAdj> Δ+30 {}
<POP 2183c-21844 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.e567cc9e6a598774 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 14 ec | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 38 7c | 8| | .PTR 0x2387c 00020010 code.end: 00020010 00 02 18 44 | D | .PTR 0x21844 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 16 4c | L | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 17 08 | | .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 54 6f 6f 20 6d 61 6e 79 |Too many| .TXT 'Too many defects (2048) to handle ' 0002012c 41 64 64 69 6e 67 20 64 |Adding d| .TXT 'Adding defect at cylinder =>_ ' 0002014a 2c 20 74 72 61 63 6b 20 |, track | .TXT ', track =>_ ' 00020156 2c 20 73 65 |, se | .TXT ', se' 0002015a 63 74 6f 72 |ctor | .TXT 'ctor' 0002015e 20 3d 3e 5f | =>_ | .TXT ' =>_' 00020162 43 61 6e 27 74 20 72 65 |Can't re| .TXT 'Can't read controller EEPROM at address :_' 0002018c 45 6e 74 65 72 20 75 6e |Enter un| .TXT 'Enter unit number of virgin disk :_ ' 000201b0 45 6e 74 65 72 20 48 44 |Enter HD| .TXT 'Enter HDA serial number as shown on HDA :_' 000201da 45 6e 74 65 72 20 74 68 |Enter th| .TXT 'Enter the number of bytes-per-sector as jumpered at the disk :_ ' 0002021a 20 73 65 63 74 6f 72 73 | sectors| .TXT ' sectors and is sector interleaved' 0002023c 20 73 65 63 74 6f 72 73 | sectors| .TXT ' sectors and is not sector interleaved' 00020262 49 73 20 74 68 69 73 20 |Is this | .TXT 'Is this information correct ' 0002027e 55 6e 69 74 5f 20 |Unit_ | .TXT 'Unit_ ' 00020284 20 64 6f 65 | doe | .TXT ' doe' 00020288 73 20 6e 6f |s no | .TXT 's no' 0002028c 74 20 65 78 |t ex | .TXT 't ex' 00020290 69 73 74 2e |ist. | .TXT 'ist.' 00020294 54 68 69 73 20 64 72 69 |This dri| .TXT 'This drive has_ ' 000202a4 20 63 79 6c | cyl | .TXT ' cyl' 000202a8 69 6e 64 65 |inde | .TXT 'inde' 000202ac 72 73 2c 5f |rs,_ | .TXT 'rs,_' 000202b0 20 68 65 61 | hea | .TXT ' hea' 000202b4 64 73 2c 5f |ds,_ | .TXT 'ds,_' 000202b8 43 6f 6e 74 72 6f 6c 6c |Controll| .TXT 'Controller must be reconfigured. Run SLEW. ' 000202e4 43 6f 6e 74 72 6f 6c 6c |Controll| .TXT 'Controller must be reconfigured ' 00020304 44 69 73 6b |Disk | .XXX[0x4] 00020308 20 65 72 72 6f 72 20 6f | error o| .XXX[0x18] 00020310 6e 20 64 65 66 65 63 74 |n defect| 00020318 20 6d 61 70 20 72 65 61 | map rea| 00020320 64 2e |d. | .XXX[0x2] 00020322 53 79 6e 63 20 62 79 74 |Sync byt| .TXT 'Sync byte incorrect in defect map.' 00020344 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder number incorrect in defect map.' 0002036c 54 72 61 63 6b 20 6e 75 |Track nu| .TXT 'Track number incorrect in defect map. ' 00020392 4c 61 73 74 20 77 6f 72 |Last wor| .TXT 'Last word incorrect in defect map.' 000203b4 43 61 6e 27 |Can' | .XXX[0x4] 000203b8 74 20 72 65 61 64 20 64 |t read d| .XXX[0x68] 000203c0 65 66 65 63 74 20 6d 61 |efect ma| 000203c8 70 20 6f 6e 20 74 72 61 |p on tra| 000203d0 63 6b 20 30 20 6f 72 20 |ck 0 or | 000203d8 74 72 61 63 6b 20 31 2e |track 1.| 000203e0 20 54 68 69 73 20 69 73 | This is| 000203e8 20 6e 6f 6e 2d 66 61 74 | non-fat| 000203f0 61 6c 43 61 6e 27 74 20 |alCan't | 000203f8 72 65 61 64 20 64 65 66 |read def| 00020400 65 63 74 20 6d 61 70 20 |ect map | 00020408 61 74 20 63 79 6c 69 6e |at cylin| 00020410 64 65 72 20 3d 3e 5f 20 |der =>_ | 00020418 20 2c 74 72 61 63 6b 20 | ,track | 00020420 3d 3e 5f 20 |=>_ | .XXX[0x4] 00020424 20 44 65 66 65 63 74 73 | Defects| .TXT ' Defects found. ' 00020434 45 6e 74 65 72 20 75 6e |Enter un| .TXT 'Enter unit number of disk with DFS to write defect info to :_ ' 00020472 2e 44 45 46 |.DEF | .TXT '.DEF' 00020476 45 43 54 53 |ECTS | .TXT 'ECTS' 0002047a 45 6e 74 65 72 20 74 61 |Enter ta| .TXT 'Enter tape drive unit number :_ ' 0002049a 2e 44 45 46 |.DEF | .TXT '.DEF' 0002049e 45 43 54 53 |ECTS | .TXT 'ECTS' 000204a2 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to save this defect information on: ' 000204d2 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => A tape ' 000204e2 20 20 20 20 31 20 | 1 | .XXX[0x6] 000204e8 3d 3e 20 41 20 44 46 53 |=> A DFS| .XXX[0x8] 000204f0 20 64 69 73 6b 20 | disk | .XXX[0x6] 000204f6 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter 0 or 1:_ ' 0002050c 54 68 69 73 20 70 72 6f |This pro| .TXT 'This program will not operate on a Coprocessor. ' 0002053c 54 68 69 73 20 70 72 6f |This pro| .TXT 'This program will not operate on a 400 system.' 0002056a ; -------------------------------------------------------------------------------------- 0002056a ; OMSI PASCAL Function 0002056a ; -------------------------------------------------------------------------------------- 0002056a 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 0002056e bf d5 | | CMPA.L (A5),A7 00020570 62 06 |b | BHI 0x20578 00020572 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020576 4e 76 |Nv | TRAPV 00020578 de fc 00 1c | | ADDA.W #0x1c,A7 0002057c 48 e7 81 80 |H | MOVEM.L A0+D7+D0,-(A7) 00020580 7e 00 |~ | MOVEQ.L #0x00,D7 00020582 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 00020588 63 02 |c | BLS 0x2058c 0002058a 4e 4f |NO | TRAP #15 0002058c 20 07 | | MOVE.L D7,D0 0002058e e5 80 | | ASL.L #0x2,D0 00020590 41 f9 00 02 18 44 |A D | LEA.L 0x21844,A0 00020596 00 30 00 80 08 08 | 0 | ORI.B #0x80,(A0+D0.L+#0x8) 0002059c 02 30 00 bf 08 08 | 0 | ANDI.B #0xbf,(A0+D0.L+#0x8) 000205a2 02 70 c0 00 08 08 | p | ANDI.W #0xc000,(A0+D0.L+#0x8) 000205a8 42 30 08 0a |B0 | CLR.B (A0+D0.L+#0xa) 000205ac 42 30 08 0b |B0 | CLR.B (A0+D0.L+#0xb) 000205b0 52 87 |R | ADDQ.L #0x1,D7 000205b2 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 000205b8 6f c8 |o | BLE 0x20582 000205ba 42 b9 00 02 38 4c |B 8L | CLR.L 0x2384c 000205c0 4c df 01 81 |L | MOVEM.L (A7)+,D0+D7+A0 000205c4 4e 5e |N^ | UNLK A6 000205c6 4e 75 |Nu | RTS 000205c8 ; -------------------------------------------------------------------------------------- 000205c8 ; OMSI PASCAL Function 000205c8 ; <LVAR 0x010 4(r)> 000205c8 ; <LVAR 0x00c 4(r)> 000205c8 ; <LVAR 0x008 4(r)> 000205c8 ; -------------------------------------------------------------------------------------- 000205c8 4e 56 ff 7a |NV z | LINK.W A6,#0xff7a 000205cc bf d5 | | CMPA.L (A5),A7 000205ce 62 06 |b | BHI 0x205d6 000205d0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000205d4 4e 76 |Nv | TRAPV 000205d6 de fc 00 82 | | ADDA.W #0x82,A7 000205da 48 e7 f1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7) 000205de 45 f9 00 02 38 4c |E 8L | LEA.L 0x2384c,A2 000205e4 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000205ea 49 f9 00 02 18 44 |I D | LEA.L 0x21844,A4 000205f0 74 01 |t | MOVEQ.L #0x01,D2 000205f2 76 0c |v | MOVEQ.L #0x0c,D3 000205f4 20 12 | | MOVE.L (A2),D0 000205f6 0c 80 00 00 08 00 | | CMPI.L #0x00000800,D0 000205fc 66 30 |f0 | BNE 0x2062e 000205fe 9e fc 00 22 | " | SUBA.W #0x22,A7 00020602 20 4f | O | MOVEA.L A7,A0 00020604 43 fa fb 04 |C | LEA.L 0x2010a,A1 00020608 70 20 |p | MOVEQ.L #0x20,D0 0002060a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002060c 51 c8 ff fc |Q | DBF D0,0x2060a 00020610 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020614 59 4f |YO | SUBQ.L #0x4,A7 00020616 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002061a 3f 02 |? | MOVE.W D2,-(A7) 0002061c 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 00020620 4e 93 |N | JSR (A3) 00020622 50 4f |PO | ADDQ.L #0x8,A7 00020624 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002062a de fc 00 28 | ( | ADDA.W #0x28,A7 0002062e 2f 12 |/ | MOVE.L (A2),-(A7) 00020630 53 97 |S | SUBQ.L #0x1,(A7) 00020632 7e 00 |~ | MOVEQ.L #0x00,D7 00020634 be 97 | | CMP.L (A7),D7 00020636 6e 42 |nB | BGT 0x2067a 00020638 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 0002063e 63 02 |c | BLS 0x20642 00020640 4e 4f |NO | TRAP #15 00020642 20 07 | | MOVE.L D7,D0 00020644 e5 80 | | ASL.L #0x2,D0 00020646 20 4c | L | MOVEA.L A4,A0 00020648 42 81 |B | CLR.L D1 0002064a 32 30 08 08 |20 | MOVE.W (A0+D0.L+#0x8),D1 0002064e e5 49 | I | LSL.W #0x2,D1 00020650 e4 49 | I | LSR.W #0x2,D1 00020652 b2 ae 00 10 | | CMP.L (A6+0x10),D1 00020656 66 1e |f | BNE 0x20676 00020658 42 81 |B | CLR.L D1 0002065a 12 30 08 0a | 0 | MOVE.B (A0+D0.L+#0xa),D1 0002065e b2 ae 00 0c | | CMP.L (A6+0xc),D1 00020662 66 12 |f | BNE 0x20676 00020664 42 81 |B | CLR.L D1 00020666 12 30 08 0b | 0 | MOVE.B (A0+D0.L+#0xb),D1 0002066a b2 ae 00 08 | | CMP.L (A6+0x8),D1 0002066e 66 06 |f | BNE 0x20676 00020670 58 4f |XO | ADDQ.L #0x4,A7 00020672 60 00 00 da |` | BRA 0x2074e 00020676 52 87 |R | ADDQ.L #0x1,D7 00020678 68 ba |h | BVC 0x20634 0002067a 9e fc 00 1a | | SUBA.W #0x1a,A7 0002067e 20 4f | O | MOVEA.L A7,A0 00020680 43 fa fa aa |C | LEA.L 0x2012c,A1 00020684 70 1c |p | MOVEQ.L #0x1c,D0 00020686 10 d9 | | MOVE.B (A1)+,(A0)+ 00020688 51 c8 ff fc |Q | DBF D0,0x20686 0002068c 9e c3 | | SUBA.W D3,A7 0002068e 20 4f | O | MOVEA.L A7,A0 00020690 43 fa fa b8 |C | LEA.L 0x2014a,A1 00020694 70 0a |p | MOVEQ.L #0x0a,D0 00020696 10 d9 | | MOVE.B (A1)+,(A0)+ 00020698 51 c8 ff fc |Q | DBF D0,0x20696 0002069c 2f 3a fa c0 |/: | MOVE.L 0x2015e,-(A7) 000206a0 2f 3a fa b8 |/: | MOVE.L 0x2015a,-(A7) 000206a4 2f 3a fa b0 |/: | MOVE.L 0x20156,-(A7) 000206a8 51 4f |QO | SUBQ.L #0x8,A7 000206aa 48 6f 00 20 |Ho | PEA.L (A7+0x20) 000206ae 3f 02 |? | MOVE.W D2,-(A7) 000206b0 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 000206b4 4e 93 |N | JSR (A3) 000206b6 2e ae 00 10 |. | MOVE.L (A6+0x10),(A7) 000206ba 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000206c0 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 000206c4 3f 02 |? | MOVE.W D2,-(A7) 000206c6 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 000206ca 4e 93 |N | JSR (A3) 000206cc 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 000206d0 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000206d6 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000206da 3f 02 |? | MOVE.W D2,-(A7) 000206dc 3f 03 |? | MOVE.W D3,-(A7) 000206de 4e 93 |N | JSR (A3) 000206e0 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000206e4 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000206ea 58 4f |XO | ADDQ.L #0x4,A7 000206ec 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 000206f2 de fc 00 18 | | ADDA.W #0x18,A7 000206f6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000206fc de fc 00 3a | : | ADDA.W #0x3a,A7 00020700 20 12 | | MOVE.L (A2),D0 00020702 0c 80 00 00 07 ff | | CMPI.L #0x000007ff,D0 00020708 63 02 |c | BLS 0x2070c 0002070a 4e 4f |NO | TRAP #15 0002070c e5 80 | | ASL.L #0x2,D0 0002070e 20 4c | L | MOVEA.L A4,A0 00020710 22 2e 00 10 |". | MOVE.L (A6+0x10),D1 00020714 0c 81 00 00 3f ff | ? | CMPI.L #0x00003fff,D1 0002071a 63 02 |c | BLS 0x2071e 0002071c 4e 4f |NO | TRAP #15 0002071e 02 70 c0 00 08 08 | p | ANDI.W #0xc000,(A0+D0.L+#0x8) 00020724 83 70 08 08 | p | OR.W D1,(A0+D0.L+#0x8) 00020728 22 2e 00 0c |". | MOVE.L (A6+0xc),D1 0002072c 0c 81 00 00 00 ff | | CMPI.L #0x000000ff,D1 00020732 63 02 |c | BLS 0x20736 00020734 4e 4f |NO | TRAP #15 00020736 11 81 08 0a | | MOVE.B D1,(A0+D0.L+#0xa) 0002073a 22 2e 00 08 |". | MOVE.L (A6+0x8),D1 0002073e 0c 81 00 00 00 ff | | CMPI.L #0x000000ff,D1 00020744 63 02 |c | BLS 0x20748 00020746 4e 4f |NO | TRAP #15 00020748 11 81 08 0b | | MOVE.B D1,(A0+D0.L+#0xb) 0002074c 52 92 |R | ADDQ.L #0x1,(A2) 0002074e 4c df 1f 8f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3+A4 00020752 4e 5e |N^ | UNLK A6 00020754 4e 75 |Nu | RTS 00020756 ; -------------------------------------------------------------------------------------- 00020756 ; OMSI PASCAL Function 00020756 ; <LVAR 0x00a 1(rw)> 00020756 ; <LVAR 0x008 2(r)> 00020756 ; <LVAR -0x008 @ 2(r)> 00020756 ; <LVAR -0x00a @> 00020756 ; <LVAR -0x00c 2(r)> 00020756 ; <LVAR -0x00e 2(r)> 00020756 ; <LVAR -0x010 2(w)> 00020756 ; <LVAR -0x012 2(r)> 00020756 ; <LVAR -0x014 2(r)> 00020756 ; <LVAR -0x016 2(w)> 00020756 ; <LVAR -0x018 2(r)> 00020756 ; <LVAR -0x01a @ 2(r)> 00020756 ; -------------------------------------------------------------------------------------- 00020756 4e 56 ff cc |NV | LINK.W A6,#0xffcc 0002075a bf d5 | | CMPA.L (A5),A7 0002075c 62 06 |b | BHI 0x20764 0002075e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020762 4e 76 |Nv | TRAPV 00020764 de fc 00 1a | | ADDA.W #0x1a,A7 00020768 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 0002076c 72 03 |r | MOVEQ.L #0x03,D1 0002076e 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 00020772 42 6e ff e8 |Bn | CLR.W (A6-0x18) 00020776 3d 7c 00 02 ff ea |=| | MOVE.W #0x2,(A6-0x16) 0002077c 42 6e ff ec |Bn | CLR.W (A6-0x14) 00020780 42 6e ff ee |Bn | CLR.W (A6-0x12) 00020784 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 00020788 e1 40 | @ | ASL.W #0x8,D0 0002078a 3d 40 ff f0 |=@ | MOVE.W D0,(A6-0x10) 0002078e 42 6e ff f2 |Bn | CLR.W (A6-0xe) 00020792 42 6e ff f4 |Bn | CLR.W (A6-0xc) 00020796 48 6e ff e6 |Hn | PEA.L (A6-0x1a) 0002079a 41 ee ff f8 |A | LEA.L (A6-0x8),A0 0002079e 2f 08 |/ | MOVE.L A0,-(A7) 000207a0 3f 01 |? | MOVE.W D1,-(A7) 000207a2 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000207a8 50 4f |PO | ADDQ.L #0x8,A7 000207aa 3e 81 |> | MOVE.W D1,(A7) 000207ac 48 6e ff f6 |Hn | PEA.L (A6-0xa) 000207b0 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000207b6 5c 4f |\O | ADDQ.L #0x6,A7 000207b8 42 2e 00 0a |B. | CLR.B (A6+0xa) 000207bc 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0 000207c0 0c 40 00 01 | @ | CMPI.W #0x0001,D0 000207c4 66 04 |f | BNE 0x207ca 000207c6 52 2e 00 0a |R. | ADDQ.B #0x1,(A6+0xa) 000207ca 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 000207ce 4e 5e |N^ | UNLK A6 000207d0 4e 75 |Nu | RTS 000207d2 ; -------------------------------------------------------------------------------------- 000207d2 ; OMSI PASCAL Function 000207d2 ; <LVAR 0x010 4(r)> 000207d2 ; <LVAR 0x00c 4(r)> 000207d2 ; <LVAR 0x008 4(r)> 000207d2 ; <LVAR -0x002 @ 1(r)> 000207d2 ; <LVAR -0x004 @ 2(r)> 000207d2 ; <LVAR -0x006 2(r)> 000207d2 ; <LVAR -0x008 2(w)> 000207d2 ; <LVAR -0x00a 2(w)> 000207d2 ; <LVAR -0x00c 2(r)> 000207d2 ; <LVAR -0x00e 2(r)> 000207d2 ; <LVAR -0x010 2(w)> 000207d2 ; <LVAR -0x012 2(r)> 000207d2 ; <LVAR -0x014 @ 2(r)> 000207d2 ; -------------------------------------------------------------------------------------- 000207d2 4e 56 ff 9c |NV | LINK.W A6,#0xff9c 000207d6 bf d5 | | CMPA.L (A5),A7 000207d8 62 06 |b | BHI 0x207e0 000207da 44 fc 00 02 |D | MOVE.W #0x2,CCR 000207de 4e 76 |Nv | TRAPV 000207e0 de fc 00 50 | P | ADDA.W #0x50,A7 000207e4 48 e7 e0 80 |H | MOVEM.L A0+D2+D1+D0,-(A7) 000207e8 74 03 |t | MOVEQ.L #0x03,D2 000207ea 42 6e ff ec |Bn | CLR.W (A6-0x14) 000207ee 42 6e ff ee |Bn | CLR.W (A6-0x12) 000207f2 3d 7c 00 02 ff f0 |=| | MOVE.W #0x2,(A6-0x10) 000207f8 42 6e ff f2 |Bn | CLR.W (A6-0xe) 000207fc 42 6e ff f4 |Bn | CLR.W (A6-0xc) 00020800 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00020804 e1 80 | | ASL.L #0x8,D0 00020806 06 80 00 00 00 0e | | ADDI.L #0x0000000e,D0 0002080c 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00020812 63 02 |c | BLS 0x20816 00020814 4e 4f |NO | TRAP #15 00020816 3d 40 ff f6 |=@ | MOVE.W D0,(A6-0xa) 0002081a 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 0002081e 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00020824 63 02 |c | BLS 0x20828 00020826 4e 4f |NO | TRAP #15 00020828 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 0002082c 42 6e ff fa |Bn | CLR.W (A6-0x6) 00020830 48 6e ff ec |Hn | PEA.L (A6-0x14) 00020834 41 ee ff fc |A | LEA.L (A6-0x4),A0 00020838 2f 08 |/ | MOVE.L A0,-(A7) 0002083a 3f 02 |? | MOVE.W D2,-(A7) 0002083c 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00020842 50 4f |PO | ADDQ.L #0x8,A7 00020844 3e 82 |> | MOVE.W D2,(A7) 00020846 48 6e ff fe |Hn | PEA.L (A6-0x2) 0002084a 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00020850 5c 4f |\O | ADDQ.L #0x6,A7 00020852 4a 2e ff fe |J. | TST.B (A6-0x2) 00020856 66 40 |f@ | BNE 0x20898 00020858 41 fa f9 32 |A 2 | LEA.L 0x2018c,A0 0002085c 70 14 |p | MOVEQ.L #0x14,D0 0002085e 3f 20 |? | MOVE.W -(A0),-(A7) 00020860 51 c8 ff fc |Q | DBF D0,0x2085e 00020864 42 27 |B' | CLR.B -(A7) 00020866 51 4f |QO | SUBQ.L #0x8,A7 00020868 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002086c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020870 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 00020874 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002087a 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 0002087e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020884 58 4f |XO | ADDQ.L #0x4,A7 00020886 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002088c 50 4f |PO | ADDQ.L #0x8,A7 0002088e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020894 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020898 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002089c 30 2e ff fc |0. | MOVE.W (A6-0x4),D0 000208a0 02 40 00 ff | @ | ANDI.W #0x00ff,D0 000208a4 42 81 |B | CLR.L D1 000208a6 32 00 |2 | MOVE.W D0,D1 000208a8 20 81 | | MOVE.L D1,(A0) 000208aa 4c df 01 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0 000208ae 4e 5e |N^ | UNLK A6 000208b0 4e 75 |Nu | RTS 000208b2 ; -------------------------------------------------------------------------------------- 000208b2 ; OMSI PASCAL Function 000208b2 ; <LVAR 0x020 4(r)> 000208b2 ; <LVAR 0x01c 4(r)> 000208b2 ; <LVAR 0x018 4(r)> 000208b2 ; <LVAR 0x014 4(r)> 000208b2 ; <LVAR 0x010 4(r)> 000208b2 ; <LVAR 0x00c 4(r)> 000208b2 ; <LVAR 0x008 4(r)> 000208b2 ; <LVAR -0x006 @ 4(r)> 000208b2 ; -------------------------------------------------------------------------------------- 000208b2 4e 56 ff 5e |NV ^ | LINK.W A6,#0xff5e 000208b6 bf d5 | | CMPA.L (A5),A7 000208b8 62 06 |b | BHI 0x208c0 000208ba 44 fc 00 02 |D | MOVE.W #0x2,CCR 000208be 4e 76 |Nv | TRAPV 000208c0 de fc 00 96 | | ADDA.W #0x96,A7 000208c4 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000208c8 76 01 |v | MOVEQ.L #0x01,D3 000208ca 78 0c |x | MOVEQ.L #0x0c,D4 000208cc 7a 24 |z$ | MOVEQ.L #0x24,D5 000208ce 7c 10 || | MOVEQ.L #0x10,D6 000208d0 20 6e 00 20 | n | MOVEA.L (A6+0x20),A0 000208d4 9e c5 | | SUBA.W D5,A7 000208d6 22 4f |"O | MOVEA.L A7,A1 000208d8 45 fa f8 b2 |E | LEA.L 0x2018c,A2 000208dc 70 22 |p" | MOVEQ.L #0x22,D0 000208de 12 da | | MOVE.B (A2)+,(A1)+ 000208e0 51 c8 ff fc |Q | DBF D0,0x208de 000208e4 51 4f |QO | SUBQ.L #0x8,A7 000208e6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000208ea 3f 03 |? | MOVE.W D3,-(A7) 000208ec 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 000208f0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000208f6 50 4f |PO | ADDQ.L #0x8,A7 000208f8 48 78 00 00 |Hx | PEA.L 0x0 000208fc 48 78 00 0f |Hx | PEA.L 0xf 00020900 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00020906 de c4 | | ADDA.W D4,A7 00020908 20 1f | | MOVE.L (A7)+,D0 0002090a 0c 80 00 00 00 0f | | CMPI.L #0x0000000f,D0 00020910 63 02 |c | BLS 0x20914 00020912 4e 4f |NO | TRAP #15 00020914 de c5 | | ADDA.W D5,A7 00020916 30 80 |0 | MOVE.W D0,(A0) 00020918 55 4f |UO | SUBQ.L #0x2,A7 0002091a 3f 00 |? | MOVE.W D0,-(A7) 0002091c 4e ba fe 38 |N 8 | JSR 0x20756 00020920 54 4f |TO | ADDQ.L #0x2,A7 00020922 12 1f | | MOVE.B (A7)+,D1 00020924 48 81 |H | EXTB.W D1 00020926 43 83 |C | CHK.W D3,D1 00020928 1e 01 | | MOVE.B D1,D7 0002092a 66 62 |fb | BNE 0x2098e 0002092c 5d 4f |]O | SUBQ.L #0x6,A7 0002092e 20 4f | O | MOVEA.L A7,A0 00020930 43 fa f9 4c |C L | LEA.L 0x2027e,A1 00020934 72 04 |r | MOVEQ.L #0x04,D1 00020936 10 d9 | | MOVE.B (A1)+,(A0)+ 00020938 51 c9 ff fc |Q | DBF D1,0x20936 0002093c 2f 3a f9 52 |/: R | MOVE.L 0x20290,-(A7) 00020940 2f 3a f9 4a |/: J | MOVE.L 0x2028c,-(A7) 00020944 2f 3a f9 42 |/: B | MOVE.L 0x20288,-(A7) 00020948 2f 3a f9 3a |/: : | MOVE.L 0x20284,-(A7) 0002094c 51 4f |QO | SUBQ.L #0x8,A7 0002094e 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00020952 3f 03 |? | MOVE.W D3,-(A7) 00020954 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00020958 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002095e 58 4f |XO | ADDQ.L #0x4,A7 00020960 32 00 |2 | MOVE.W D0,D1 00020962 48 c1 |H | EXTW.L D1 00020964 2f 01 |/ | MOVE.L D1,-(A7) 00020966 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002096c 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020970 3f 03 |? | MOVE.W D3,-(A7) 00020972 3f 06 |? | MOVE.W D6,-(A7) 00020974 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002097a 50 4f |PO | ADDQ.L #0x8,A7 0002097c 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020982 de c4 | | ADDA.W D4,A7 00020984 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002098a de fc 00 1a | | ADDA.W #0x1a,A7 0002098e 4a 07 |J | TST.B D7 00020990 67 00 ff 3e |g > | BEQ 0x208d0 00020994 20 6e 00 1c | n | MOVEA.L (A6+0x1c),A0 00020998 43 fa f8 40 |C @ | LEA.L 0x201da,A1 0002099c 72 14 |r | MOVEQ.L #0x14,D1 0002099e 3f 21 |?! | MOVE.W -(A1),-(A7) 000209a0 51 c9 ff fc |Q | DBF D1,0x2099e 000209a4 51 4f |QO | SUBQ.L #0x8,A7 000209a6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000209aa 3f 03 |? | MOVE.W D3,-(A7) 000209ac 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 000209b0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000209b6 50 4f |PO | ADDQ.L #0x8,A7 000209b8 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 000209be 58 4f |XO | ADDQ.L #0x4,A7 000209c0 20 9f | | MOVE.L (A7)+,(A0) 000209c2 de fc 00 2a | * | ADDA.W #0x2a,A7 000209c6 32 00 |2 | MOVE.W D0,D1 000209c8 02 41 00 03 | A | ANDI.W #0x0003,D1 000209cc 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 000209d0 2f 08 |/ | MOVE.L A0,-(A7) 000209d2 34 00 |4 | MOVE.W D0,D2 000209d4 48 c2 |H | EXTW.L D2 000209d6 2f 02 |/ | MOVE.L D2,-(A7) 000209d8 34 3c 02 d0 |4< | MOVE.W #0x2d0,D2 000209dc d4 41 | A | ADD.W D1,D2 000209de 48 c2 |H | EXTW.L D2 000209e0 2f 02 |/ | MOVE.L D2,-(A7) 000209e2 48 50 |HP | PEA.L (A0) 000209e4 4e ba fd ec |N | JSR 0x207d2 000209e8 de c4 | | ADDA.W D4,A7 000209ea 22 6e 00 14 |"n | MOVEA.L (A6+0x14),A1 000209ee 2f 09 |/ | MOVE.L A1,-(A7) 000209f0 34 00 |4 | MOVE.W D0,D2 000209f2 48 c2 |H | EXTW.L D2 000209f4 2f 02 |/ | MOVE.L D2,-(A7) 000209f6 34 3c 03 50 |4< P | MOVE.W #0x350,D2 000209fa d4 41 | A | ADD.W D1,D2 000209fc 48 c2 |H | EXTW.L D2 000209fe 2f 02 |/ | MOVE.L D2,-(A7) 00020a00 48 51 |HQ | PEA.L (A1) 00020a02 4e ba fd ce |N | JSR 0x207d2 00020a06 de c4 | | ADDA.W D4,A7 00020a08 24 6e 00 18 |$n | MOVEA.L (A6+0x18),A2 00020a0c 34 00 |4 | MOVE.W D0,D2 00020a0e 48 c2 |H | EXTW.L D2 00020a10 2f 02 |/ | MOVE.L D2,-(A7) 00020a12 34 3c 01 d0 |4< | MOVE.W #0x1d0,D2 00020a16 d4 41 | A | ADD.W D1,D2 00020a18 48 c2 |H | EXTW.L D2 00020a1a 2f 02 |/ | MOVE.L D2,-(A7) 00020a1c 48 52 |HR | PEA.L (A2) 00020a1e 4e ba fd b2 |N | JSR 0x207d2 00020a22 de c4 | | ADDA.W D4,A7 00020a24 34 00 |4 | MOVE.W D0,D2 00020a26 48 c2 |H | EXTW.L D2 00020a28 2f 02 |/ | MOVE.L D2,-(A7) 00020a2a 34 3c 02 50 |4< P | MOVE.W #0x250,D2 00020a2e d4 41 | A | ADD.W D1,D2 00020a30 48 c2 |H | EXTW.L D2 00020a32 2f 02 |/ | MOVE.L D2,-(A7) 00020a34 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020a38 4e ba fd 98 |N | JSR 0x207d2 00020a3c de c4 | | ADDA.W D4,A7 00020a3e 24 2e ff fa |$. | MOVE.L (A6-0x6),D2 00020a42 e1 82 | | ASL.L #0x8,D2 00020a44 d5 92 | | ADD.L D2,(A2) 00020a46 48 c0 |H | EXTW.L D0 00020a48 2f 00 |/ | MOVE.L D0,-(A7) 00020a4a 50 41 |PA | ADDQ.W #0x8,D1 00020a4c 48 c1 |H | EXTW.L D1 00020a4e 2f 01 |/ | MOVE.L D1,-(A7) 00020a50 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020a54 4e ba fd 7c |N | | JSR 0x207d2 00020a58 de c4 | | ADDA.W D4,A7 00020a5a 26 6e 00 08 |&n | MOVEA.L (A6+0x8),A3 00020a5e 42 13 |B | CLR.B (A3) 00020a60 20 2e ff fa | . | MOVE.L (A6-0x6),D0 00020a64 02 80 00 00 00 04 | | ANDI.L #0x00000004,D0 00020a6a 67 02 |g | BEQ 0x20a6e 00020a6c 52 13 |R | ADDQ.B #0x1,(A3) 00020a6e 9e c6 | | SUBA.W D6,A7 00020a70 20 4f | O | MOVEA.L A7,A0 00020a72 43 fa f8 20 |C | LEA.L 0x20294,A1 00020a76 70 0e |p | MOVEQ.L #0x0e,D0 00020a78 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a7a 51 c8 ff fc |Q | DBF D0,0x20a78 00020a7e 2f 3a f8 2c |/: , | MOVE.L 0x202ac,-(A7) 00020a82 2f 3a f8 24 |/: $ | MOVE.L 0x202a8,-(A7) 00020a86 2f 3a f8 1c |/: | MOVE.L 0x202a4,-(A7) 00020a8a 2f 3a f8 28 |/: ( | MOVE.L 0x202b4,-(A7) 00020a8e 2f 3a f8 20 |/: | MOVE.L 0x202b0,-(A7) 00020a92 51 4f |QO | SUBQ.L #0x8,A7 00020a94 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 00020a98 3f 03 |? | MOVE.W D3,-(A7) 00020a9a 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00020a9e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020aa4 2e 92 |. | MOVE.L (A2),(A7) 00020aa6 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020aac 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00020ab0 3f 03 |? | MOVE.W D3,-(A7) 00020ab2 3f 04 |? | MOVE.W D4,-(A7) 00020ab4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020aba 58 4f |XO | ADDQ.L #0x4,A7 00020abc 20 6f 00 38 | o 8 | MOVEA.L (A7+0x38),A0 00020ac0 2f 10 |/ | MOVE.L (A0),-(A7) 00020ac2 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020ac8 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00020acc 3f 03 |? | MOVE.W D3,-(A7) 00020ace 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00020ad2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020ad8 58 4f |XO | ADDQ.L #0x4,A7 00020ada 20 6f 00 44 | o D | MOVEA.L (A7+0x44),A0 00020ade 2f 10 |/ | MOVE.L (A0),-(A7) 00020ae0 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020ae6 58 4f |XO | ADDQ.L #0x4,A7 00020ae8 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 00020aee de fc 00 18 | | ADDA.W #0x18,A7 00020af2 28 5f |(_ | MOVEA.L (A7)+,A4 00020af4 de c5 | | ADDA.W D5,A7 00020af6 4a 13 |J | TST.B (A3) 00020af8 67 34 |g4 | BEQ 0x20b2e 00020afa 41 fa f7 40 |A @ | LEA.L 0x2023c,A0 00020afe 70 10 |p | MOVEQ.L #0x10,D0 00020b00 3f 20 |? | MOVE.W -(A0),-(A7) 00020b02 51 c8 ff fc |Q | DBF D0,0x20b00 00020b06 59 4f |YO | SUBQ.L #0x4,A7 00020b08 2f 0c |/ | MOVE.L A4,-(A7) 00020b0a 59 4f |YO | SUBQ.L #0x4,A7 00020b0c 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020b10 3f 03 |? | MOVE.W D3,-(A7) 00020b12 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00020b16 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020b1c 50 4f |PO | ADDQ.L #0x8,A7 00020b1e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020b24 50 4f |PO | ADDQ.L #0x8,A7 00020b26 28 5f |(_ | MOVEA.L (A7)+,A4 00020b28 de fc 00 22 | " | ADDA.W #0x22,A7 00020b2c 60 32 |`2 | BRA 0x20b60 00020b2e 41 fa f7 32 |A 2 | LEA.L 0x20262,A0 00020b32 70 12 |p | MOVEQ.L #0x12,D0 00020b34 3f 20 |? | MOVE.W -(A0),-(A7) 00020b36 51 c8 ff fc |Q | DBF D0,0x20b34 00020b3a 59 4f |YO | SUBQ.L #0x4,A7 00020b3c 2f 0c |/ | MOVE.L A4,-(A7) 00020b3e 59 4f |YO | SUBQ.L #0x4,A7 00020b40 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020b44 3f 03 |? | MOVE.W D3,-(A7) 00020b46 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 00020b4a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020b50 50 4f |PO | ADDQ.L #0x8,A7 00020b52 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020b58 50 4f |PO | ADDQ.L #0x8,A7 00020b5a 28 5f |(_ | MOVEA.L (A7)+,A4 00020b5c de fc 00 26 | & | ADDA.W #0x26,A7 00020b60 58 4f |XO | ADDQ.L #0x4,A7 00020b62 2e 8c |. | MOVE.L A4,(A7) 00020b64 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020b6a 9e fc 00 18 | | SUBA.W #0x18,A7 00020b6e 20 4f | O | MOVEA.L A7,A0 00020b70 43 fa f6 f0 |C | LEA.L 0x20262,A1 00020b74 70 1a |p | MOVEQ.L #0x1a,D0 00020b76 10 d9 | | MOVE.B (A1)+,(A0)+ 00020b78 51 c8 ff fc |Q | DBF D0,0x20b76 00020b7c 5d 4f |]O | SUBQ.L #0x6,A7 00020b7e 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020b82 3f 03 |? | MOVE.W D3,-(A7) 00020b84 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00020b88 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020b8e 5c 4f |\O | ADDQ.L #0x6,A7 00020b90 1e 83 | | MOVE.B D3,(A7) 00020b92 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00020b98 5c 4f |\O | ADDQ.L #0x6,A7 00020b9a 4a 1f |J | TST.B (A7)+ 00020b9c 66 5e |f^ | BNE 0x20bfc 00020b9e 9e fc 00 2c | , | SUBA.W #0x2c,A7 00020ba2 20 4f | O | MOVEA.L A7,A0 00020ba4 43 fa f7 12 |C | LEA.L 0x202b8,A1 00020ba8 70 2a |p* | MOVEQ.L #0x2a,D0 00020baa 10 d9 | | MOVE.B (A1)+,(A0)+ 00020bac 51 c8 ff fc |Q | DBF D0,0x20baa 00020bb0 59 4f |YO | SUBQ.L #0x4,A7 00020bb2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020bb6 3f 03 |? | MOVE.W D3,-(A7) 00020bb8 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7) 00020bbc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020bc2 50 4f |PO | ADDQ.L #0x8,A7 00020bc4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020bca de c6 | | ADDA.W D6,A7 00020bcc 20 4f | O | MOVEA.L A7,A0 00020bce 43 fa f7 14 |C | LEA.L 0x202e4,A1 00020bd2 70 1e |p | MOVEQ.L #0x1e,D0 00020bd4 10 d9 | | MOVE.B (A1)+,(A0)+ 00020bd6 51 c8 ff fc |Q | DBF D0,0x20bd4 00020bda 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020bde 59 4f |YO | SUBQ.L #0x4,A7 00020be0 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020be4 3f 03 |? | MOVE.W D3,-(A7) 00020be6 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00020bea 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020bf0 50 4f |PO | ADDQ.L #0x8,A7 00020bf2 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020bf8 de fc 00 26 | & | ADDA.W #0x26,A7 00020bfc de fc 00 1c | | ADDA.W #0x1c,A7 00020c00 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020c04 9e fc 00 40 | @ | SUBA.W #0x40,A7 00020c08 22 4f |"O | MOVEA.L A7,A1 00020c0a 45 fa f5 ce |E | LEA.L 0x201da,A2 00020c0e 70 3e |p> | MOVEQ.L #0x3e,D0 00020c10 12 da | | MOVE.B (A2)+,(A1)+ 00020c12 51 c8 ff fc |Q | DBF D0,0x20c10 00020c16 51 4f |QO | SUBQ.L #0x8,A7 00020c18 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020c1c 3f 03 |? | MOVE.W D3,-(A7) 00020c1e 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 00020c22 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020c28 50 4f |PO | ADDQ.L #0x8,A7 00020c2a 48 78 02 0c |Hx | PEA.L 0x20c 00020c2e 48 78 07 ff |Hx | PEA.L 0x7ff 00020c32 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00020c38 de c4 | | ADDA.W D4,A7 00020c3a 20 9f | | MOVE.L (A7)+,(A0) 00020c3c de fc 00 40 | @ | ADDA.W #0x40,A7 00020c40 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020c44 4e 5e |N^ | UNLK A6 00020c46 4e 75 |Nu | RTS 00020c48 ; -------------------------------------------------------------------------------------- 00020c48 ; OMSI PASCAL Function 00020c48 ; <LVAR 0x01a 2(r)> 00020c48 ; <LVAR 0x016 4(r)> 00020c48 ; <LVAR 0x012 4(r)> 00020c48 ; <LVAR 0x00e 4(r)> 00020c48 ; <LVAR 0x00a 4(r)> 00020c48 ; <LVAR 0x008 1(r)> 00020c48 ; <LVAR -0x002 2(rw)> 00020c48 ; <LVAR -0x004 2(rw)> 00020c48 ; <LVAR -0x07e @> 00020c48 ; <LVAR -0x082 2(w)> 00020c48 ; <LVAR -0x084 2(w)> 00020c48 ; <LVAR -0x086 2(w)> 00020c48 ; <LVAR -0x094 2(r)> 00020c48 ; <LVAR -0x0a6 1(r)> 00020c48 ; <LVAR -0x0a8 1(r) 2(r)> 00020c48 ; <LVAR -0x0aa @ 2(r)> 00020c48 ; <LVAR -0x0ac 2(w)> 00020c48 ; <LVAR -0x0ae 2(w)> 00020c48 ; <LVAR -0x0b0 2(w)> 00020c48 ; <LVAR -0x0b2 2(r)> 00020c48 ; <LVAR -0x0b4 2(r)> 00020c48 ; <LVAR -0x0b6 2(w)> 00020c48 ; <LVAR -0x0b8 2(r)> 00020c48 ; <LVAR -0x0ba @ 2(r)> 00020c48 ; <LVAR -0x0bb @> 00020c48 ; <LVAR -0x0bc @ 1(r)> 00020c48 ; -------------------------------------------------------------------------------------- 00020c48 4e 56 fe c2 |NV | LINK.W A6,#0xfec2 00020c4c bf d5 | | CMPA.L (A5),A7 00020c4e 62 06 |b | BHI 0x20c56 00020c50 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020c54 4e 76 |Nv | TRAPV 00020c56 de fc 00 82 | | ADDA.W #0x82,A7 00020c5a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020c5e 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020c64 47 ee ff 50 |G P | LEA.L (A6-0xb0),A3 00020c68 49 ee ff 44 |I D | LEA.L (A6-0xbc),A4 00020c6c 42 6e ff 46 |Bn F | CLR.W (A6-0xba) 00020c70 42 6e ff 48 |Bn H | CLR.W (A6-0xb8) 00020c74 3d 7c 00 02 ff 4a |=| J | MOVE.W #0x2,(A6-0xb6) 00020c7a 42 6e ff 4c |Bn L | CLR.W (A6-0xb4) 00020c7e 42 6e ff 4e |Bn N | CLR.W (A6-0xb2) 00020c82 30 2e 00 1a |0. | MOVE.W (A6+0x1a),D0 00020c86 e1 40 | @ | ASL.W #0x8,D0 00020c88 06 40 00 0a | @ | ADDI.W #0x000a,D0 00020c8c 36 80 |6 | MOVE.W D0,(A3) 00020c8e 2f 2e 00 16 |/. | MOVE.L (A6+0x16),-(A7) 00020c92 53 97 |S | SUBQ.L #0x1,(A7) 00020c94 70 00 |p | MOVEQ.L #0x00,D0 00020c96 b0 97 | | CMP.L (A7),D0 00020c98 62 0c |b | BHI 0x20ca6 00020c9a 22 17 |" | MOVE.L (A7),D1 00020c9c 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 00020ca2 63 02 |c | BLS 0x20ca6 00020ca4 4e 4f |NO | TRAP #15 00020ca6 b0 6f 00 02 | o | CMP.W (A7+0x2),D0 00020caa 63 06 |c | BLS 0x20cb2 00020cac 55 4f |UO | SUBQ.L #0x2,A7 00020cae 60 00 03 2e |` . | BRA 0x20fde 00020cb2 3f 00 |? | MOVE.W D0,-(A7) 00020cb4 3d 40 ff 52 |=@ R | MOVE.W D0,(A6-0xae) 00020cb8 2f 2e 00 12 |/. | MOVE.L (A6+0x12),-(A7) 00020cbc 53 97 |S | SUBQ.L #0x1,(A7) 00020cbe 72 00 |r | MOVEQ.L #0x00,D1 00020cc0 b2 97 | | CMP.L (A7),D1 00020cc2 62 0c |b | BHI 0x20cd0 00020cc4 24 17 |$ | MOVE.L (A7),D2 00020cc6 0c 82 00 00 ff ff | | CMPI.L #0x0000ffff,D2 00020ccc 63 02 |c | BLS 0x20cd0 00020cce 4e 4f |NO | TRAP #15 00020cd0 b2 6f 00 02 | o | CMP.W (A7+0x2),D1 00020cd4 63 06 |c | BLS 0x20cdc 00020cd6 55 4f |UO | SUBQ.L #0x2,A7 00020cd8 60 00 02 f6 |` | BRA 0x20fd0 00020cdc 3f 01 |? | MOVE.W D1,-(A7) 00020cde 30 17 |0 | MOVE.W (A7),D0 00020ce0 42 81 |B | CLR.L D1 00020ce2 32 00 |2 | MOVE.W D0,D1 00020ce4 e1 81 | | ASL.L #0x8,D1 00020ce6 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 00020cec 63 02 |c | BLS 0x20cf0 00020cee 4e 4f |NO | TRAP #15 00020cf0 3d 41 ff 54 |=A T | MOVE.W D1,(A6-0xac) 00020cf4 48 6e ff 46 |Hn F | PEA.L (A6-0xba) 00020cf8 41 ee ff 56 |A V | LEA.L (A6-0xaa),A0 00020cfc 2f 08 |/ | MOVE.L A0,-(A7) 00020cfe 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00020d02 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00020d08 50 4f |PO | ADDQ.L #0x8,A7 00020d0a 3e bc 00 03 |> | MOVE.W #0x3,(A7) 00020d0e 48 54 |HT | PEA.L (A4) 00020d10 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00020d16 5c 4f |\O | ADDQ.L #0x6,A7 00020d18 4a 14 |J | TST.B (A4) 00020d1a 66 5a |fZ | BNE 0x20d76 00020d1c 30 2e 00 1a |0. | MOVE.W (A6+0x1a),D0 00020d20 e1 40 | @ | ASL.W #0x8,D0 00020d22 36 80 |6 | MOVE.W D0,(A3) 00020d24 52 53 |RS | ADDQ.W #0x1,(A3) 00020d26 48 6e ff 46 |Hn F | PEA.L (A6-0xba) 00020d2a 41 ee ff 82 |A | LEA.L (A6-0x7e),A0 00020d2e 2f 08 |/ | MOVE.L A0,-(A7) 00020d30 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00020d34 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00020d3a 50 4f |PO | ADDQ.L #0x8,A7 00020d3c 3e bc 00 03 |> | MOVE.W #0x3,(A7) 00020d40 48 6e ff 45 |Hn E | PEA.L (A6-0xbb) 00020d44 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00020d4a 58 4f |XO | ADDQ.L #0x4,A7 00020d4c 42 17 |B | CLR.B (A7) 00020d4e 4e b9 00 01 03 ac |N | JSR Set_is_open_ERROR_LOG(a : Bool) 00020d54 42 17 |B | CLR.B (A7) 00020d56 41 ee ff 82 |A | LEA.L (A6-0x7e),A0 00020d5a 2f 08 |/ | MOVE.L A0,-(A7) 00020d5c 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 00020d62 58 4f |XO | ADDQ.L #0x4,A7 00020d64 1e bc 00 01 | | MOVE.B #0x01,(A7) 00020d68 4e b9 00 01 03 ac |N | JSR Set_is_open_ERROR_LOG(a : Bool) 00020d6e 54 4f |TO | ADDQ.L #0x2,A7 00020d70 06 40 00 0a | @ | ADDI.W #0x000a,D0 00020d74 36 80 |6 | MOVE.W D0,(A3) 00020d76 4a 14 |J | TST.B (A4) 00020d78 67 00 ff 64 |g d | BEQ 0x20cde 00020d7c 30 2e ff 56 |0. V | MOVE.W (A6-0xaa),D0 00020d80 0c 40 00 19 | @ | CMPI.W #0x0019,D0 00020d84 67 2c |g, | BEQ 0x20db2 00020d86 41 fa f5 bc |A | LEA.L 0x20344,A0 00020d8a 70 10 |p | MOVEQ.L #0x10,D0 00020d8c 3f 20 |? | MOVE.W -(A0),-(A7) 00020d8e 51 c8 ff fc |Q | DBF D0,0x20d8c 00020d92 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020d96 59 4f |YO | SUBQ.L #0x4,A7 00020d98 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020d9c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020da0 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00020da4 4e 92 |N | JSR (A2) 00020da6 50 4f |PO | ADDQ.L #0x8,A7 00020da8 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020dae de fc 00 28 | ( | ADDA.W #0x28,A7 00020db2 30 2e ff 58 |0. X | MOVE.W (A6-0xa8),D0 00020db6 e3 48 | H | LSL.W #0x1,D0 00020db8 e2 48 | H | LSR.W #0x1,D0 00020dba 32 2f 00 06 |2/ | MOVE.W (A7+0x6),D1 00020dbe b0 41 | A | CMP.W D1,D0 00020dc0 67 2c |g, | BEQ 0x20dee 00020dc2 41 fa f5 a8 |A | LEA.L 0x2036c,A0 00020dc6 70 09 |p | MOVEQ.L #0x09,D0 00020dc8 2f 20 |/ | MOVE.L -(A0),-(A7) 00020dca 51 c8 ff fc |Q | DBF D0,0x20dc8 00020dce 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020dd2 59 4f |YO | SUBQ.L #0x4,A7 00020dd4 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020dd8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020ddc 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 00020de0 4e 92 |N | JSR (A2) 00020de2 50 4f |PO | ADDQ.L #0x8,A7 00020de4 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020dea de fc 00 2e | . | ADDA.W #0x2e,A7 00020dee 42 80 |B | CLR.L D0 00020df0 10 2e ff 5a | . Z | MOVE.B (A6-0xa6),D0 00020df4 34 17 |4 | MOVE.W (A7),D2 00020df6 b0 42 | B | CMP.W D2,D0 00020df8 67 32 |g2 | BEQ 0x20e2c 00020dfa 9e fc 00 26 | & | SUBA.W #0x26,A7 00020dfe 20 4f | O | MOVEA.L A7,A0 00020e00 43 fa f5 6a |C j | LEA.L 0x2036c,A1 00020e04 70 24 |p$ | MOVEQ.L #0x24,D0 00020e06 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e08 51 c8 ff fc |Q | DBF D0,0x20e06 00020e0c 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020e10 59 4f |YO | SUBQ.L #0x4,A7 00020e12 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020e16 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020e1a 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7) 00020e1e 4e 92 |N | JSR (A2) 00020e20 50 4f |PO | ADDQ.L #0x8,A7 00020e22 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020e28 de fc 00 2c | , | ADDA.W #0x2c,A7 00020e2c 30 2e ff 6c |0. l | MOVE.W (A6-0x94),D0 00020e30 0c 40 f0 00 | @ | CMPI.W #0xf000,D0 00020e34 67 2c |g, | BEQ 0x20e62 00020e36 41 fa f5 7c |A | | LEA.L 0x203b4,A0 00020e3a 70 10 |p | MOVEQ.L #0x10,D0 00020e3c 3f 20 |? | MOVE.W -(A0),-(A7) 00020e3e 51 c8 ff fc |Q | DBF D0,0x20e3c 00020e42 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020e46 59 4f |YO | SUBQ.L #0x4,A7 00020e48 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020e4c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020e50 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00020e54 4e 92 |N | JSR (A2) 00020e56 50 4f |PO | ADDQ.L #0x8,A7 00020e58 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020e5e de fc 00 28 | ( | ADDA.W #0x28,A7 00020e62 10 2e ff 58 | . X | MOVE.B (A6-0xa8),D0 00020e66 ee 08 | | LSR.B #0x7,D0 00020e68 67 1c |g | BEQ 0x20e86 00020e6a 42 80 |B | CLR.L D0 00020e6c 30 01 |0 | MOVE.W D1,D0 00020e6e 2f 00 |/ | MOVE.L D0,-(A7) 00020e70 42 80 |B | CLR.L D0 00020e72 30 02 |0 | MOVE.W D2,D0 00020e74 2f 00 |/ | MOVE.L D0,-(A7) 00020e76 48 78 00 ff |Hx | PEA.L 0xff 00020e7a 4e ba f7 4c |N L | JSR 0x205c8 00020e7e de fc 00 0c | | ADDA.W #0xc,A7 00020e82 60 00 01 40 |` @ | BRA 0x20fc4 00020e86 70 00 |p | MOVEQ.L #0x00,D0 00020e88 2f 00 |/ | MOVE.L D0,-(A7) 00020e8a 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 00020e90 63 02 |c | BLS 0x20e94 00020e92 4e 4f |NO | TRAP #15 00020e94 22 00 |" | MOVE.L D0,D1 00020e96 e5 81 | | ASL.L #0x2,D1 00020e98 20 4c | L | MOVEA.L A4,A0 00020e9a 3d 70 18 1a ff fe |=p | MOVE.W (A0+D1.L+#0x1a),(A6-0x2) 00020ea0 3d 70 18 18 ff fc |=p | MOVE.W (A0+D1.L+#0x18),(A6-0x4) 00020ea6 4a 6e ff fe |Jn | TST.W (A6-0x2) 00020eaa 67 00 01 04 |g | BEQ 0x20fb0 00020eae 42 81 |B | CLR.L D1 00020eb0 32 2e ff fc |2. | MOVE.W (A6-0x4),D1 00020eb4 24 01 |$ | MOVE.L D1,D2 00020eb6 53 82 |S | SUBQ.L #0x1,D2 00020eb8 28 02 |( | MOVE.L D2,D4 00020eba 26 2e 00 0a |&. | MOVE.L (A6+0xa),D3 00020ebe 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00020ec4 0c 84 00 00 ff ff | | CMPI.L #0x0000ffff,D4 00020eca 63 02 |c | BLS 0x20ece 00020ecc 4e 4f |NO | TRAP #15 00020ece 3d 44 ff 7c |=D | | MOVE.W D4,(A6-0x84) 00020ed2 2f 04 |/ | MOVE.L D4,-(A7) 00020ed4 42 82 |B | CLR.L D2 00020ed6 34 2e ff fe |4. | MOVE.W (A6-0x2),D2 00020eda 06 82 00 00 00 11 | | ADDI.L #0x00000011,D2 00020ee0 e6 82 | | ASR.L #0x3,D2 00020ee2 3d 42 ff 7a |=B z | MOVE.W D2,(A6-0x86) 00020ee6 42 83 |B | CLR.L D3 00020ee8 36 02 |6 | MOVE.W D2,D3 00020eea d6 81 | | ADD.L D1,D3 00020eec 28 03 |( | MOVE.L D3,D4 00020eee 26 2e 00 0a |&. | MOVE.L (A6+0xa),D3 00020ef2 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00020ef8 0c 84 00 00 ff ff | | CMPI.L #0x0000ffff,D4 00020efe 63 02 |c | BLS 0x20f02 00020f00 4e 4f |NO | TRAP #15 00020f02 3d 44 ff 7e |=D ~ | MOVE.W D4,(A6-0x82) 00020f06 3f 04 |? | MOVE.W D4,-(A7) 00020f08 22 2f 00 02 |"/ | MOVE.L (A7+0x2),D1 00020f0c 3c 01 |< | MOVE.W D1,D6 00020f0e bc 57 | W | CMP.W (A7),D6 00020f10 62 00 00 9c |b | BHI 0x20fae 00020f14 42 80 |B | CLR.L D0 00020f16 30 06 |0 | MOVE.W D6,D0 00020f18 b0 ae 00 0e | | CMP.L (A6+0xe),D0 00020f1c 64 04 |d | BCC 0x20f22 00020f1e 3e 06 |> | MOVE.W D6,D7 00020f20 60 12 |` | BRA 0x20f34 00020f22 20 2e 00 0e | . | MOVE.L (A6+0xe),D0 00020f26 53 80 |S | SUBQ.L #0x1,D0 00020f28 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00020f2e 63 02 |c | BLS 0x20f32 00020f30 4e 4f |NO | TRAP #15 00020f32 3e 00 |> | MOVE.W D0,D7 00020f34 4a 2e 00 08 |J. | TST.B (A6+0x8) 00020f38 66 1a |f | BNE 0x20f54 00020f3a 30 2f 00 10 |0/ | MOVE.W (A7+0x10),D0 00020f3e 42 81 |B | CLR.L D1 00020f40 32 00 |2 | MOVE.W D0,D1 00020f42 2f 01 |/ | MOVE.L D1,-(A7) 00020f44 30 2f 00 0e |0/ | MOVE.W (A7+0xe),D0 00020f48 42 81 |B | CLR.L D1 00020f4a 32 00 |2 | MOVE.W D0,D1 00020f4c 2f 01 |/ | MOVE.L D1,-(A7) 00020f4e 42 80 |B | CLR.L D0 00020f50 30 07 |0 | MOVE.W D7,D0 00020f52 60 4a |`J | BRA 0x20f9e 00020f54 30 07 |0 | MOVE.W D7,D0 00020f56 02 40 00 01 | @ | ANDI.W #0x0001,D0 00020f5a 28 2e 00 0e |(. | MOVE.L (A6+0xe),D4 00020f5e 76 02 |v | MOVEQ.L #0x02,D3 00020f60 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00020f66 42 83 |B | CLR.L D3 00020f68 36 00 |6 | MOVE.W D0,D3 00020f6a 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 00020f70 30 07 |0 | MOVE.W D7,D0 00020f72 e2 48 | H | LSR.W #0x1,D0 00020f74 42 81 |B | CLR.L D1 00020f76 32 00 |2 | MOVE.W D0,D1 00020f78 d2 84 | | ADD.L D4,D1 00020f7a 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 00020f80 63 02 |c | BLS 0x20f84 00020f82 4e 4f |NO | TRAP #15 00020f84 3a 01 |: | MOVE.W D1,D5 00020f86 30 2f 00 10 |0/ | MOVE.W (A7+0x10),D0 00020f8a 42 81 |B | CLR.L D1 00020f8c 32 00 |2 | MOVE.W D0,D1 00020f8e 2f 01 |/ | MOVE.L D1,-(A7) 00020f90 30 2f 00 0e |0/ | MOVE.W (A7+0xe),D0 00020f94 42 81 |B | CLR.L D1 00020f96 32 00 |2 | MOVE.W D0,D1 00020f98 2f 01 |/ | MOVE.L D1,-(A7) 00020f9a 42 80 |B | CLR.L D0 00020f9c 30 05 |0 | MOVE.W D5,D0 00020f9e 2f 00 |/ | MOVE.L D0,-(A7) 00020fa0 4e ba f6 26 |N & | JSR 0x205c8 00020fa4 de fc 00 0c | | ADDA.W #0xc,A7 00020fa8 52 46 |RF | ADDQ.W #0x1,D6 00020faa 64 00 ff 62 |d b | BCC 0x20f0e 00020fae 5c 4f |\O | ADDQ.L #0x6,A7 00020fb0 20 17 | | MOVE.L (A7),D0 00020fb2 52 80 |R | ADDQ.L #0x1,D0 00020fb4 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 00020fba 6e 06 |n | BGT 0x20fc2 00020fbc 58 4f |XO | ADDQ.L #0x4,A7 00020fbe 60 00 fe c8 |` | BRA 0x20e88 00020fc2 58 4f |XO | ADDQ.L #0x4,A7 00020fc4 32 17 |2 | MOVE.W (A7),D1 00020fc6 52 41 |RA | ADDQ.W #0x1,D1 00020fc8 65 06 |e | BCS 0x20fd0 00020fca 54 4f |TO | ADDQ.L #0x2,A7 00020fcc 60 00 fd 02 |` | BRA 0x20cd0 00020fd0 5c 4f |\O | ADDQ.L #0x6,A7 00020fd2 30 17 |0 | MOVE.W (A7),D0 00020fd4 52 40 |R@ | ADDQ.W #0x1,D0 00020fd6 65 06 |e | BCS 0x20fde 00020fd8 54 4f |TO | ADDQ.L #0x2,A7 00020fda 60 00 fc ca |` | BRA 0x20ca6 00020fde 9e fc 00 0a | | SUBA.W #0xa,A7 00020fe2 20 4f | O | MOVEA.L A7,A0 00020fe4 43 fa f4 3e |C > | LEA.L 0x20424,A1 00020fe8 70 0e |p | MOVEQ.L #0x0e,D0 00020fea 10 d9 | | MOVE.B (A1)+,(A0)+ 00020fec 51 c8 ff fc |Q | DBF D0,0x20fea 00020ff0 51 4f |QO | SUBQ.L #0x8,A7 00020ff2 2f 39 00 02 38 4c |/9 8L | MOVE.L 0x2384c,-(A7) 00020ff8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020ffe 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021002 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021006 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 0002100a 4e 92 |N | JSR (A2) 0002100c 50 4f |PO | ADDQ.L #0x8,A7 0002100e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021014 50 4f |PO | ADDQ.L #0x8,A7 00021016 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002101c de fc 00 14 | | ADDA.W #0x14,A7 00021020 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021024 4e 5e |N^ | UNLK A6 00021026 4e 75 |Nu | RTS 00021028 ; -------------------------------------------------------------------------------------- 00021028 ; OMSI PASCAL Function 00021028 ; <LVAR 0x008 4(r)> 00021028 ; <LVAR -0x006 @ 4(rw)> 00021028 ; <LVAR -0x00c @ 1(r)> 00021028 ; <LVAR -0x010 @ 4(r)> 00021028 ; <LVAR -0x012 @ 2(w)> 00021028 ; <LVAR -0x014 @ 1(r)> 00021028 ; -------------------------------------------------------------------------------------- 00021028 4e 56 ff 66 |NV f | LINK.W A6,#0xff66 0002102c bf d5 | | CMPA.L (A5),A7 0002102e 62 06 |b | BHI 0x21036 00021030 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021034 4e 76 |Nv | TRAPV 00021036 de fc 00 86 | | ADDA.W #0x86,A7 0002103a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002103e 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00021042 47 ee ff fa |G | LEA.L (A6-0x6),A3 00021046 49 ee ff f0 |I | LEA.L (A6-0x10),A4 0002104a 72 02 |r | MOVEQ.L #0x02,D1 0002104c 74 01 |t | MOVEQ.L #0x01,D2 0002104e 7a 3e |z> | MOVEQ.L #0x3e,D5 00021050 7c 0f || | MOVEQ.L #0x0f,D6 00021052 48 6e ff ec |Hn | PEA.L (A6-0x14) 00021056 48 6e ff ee |Hn | PEA.L (A6-0x12) 0002105a 4e b9 00 01 02 00 |N | JSR KC00_GetBootDev(VAR a : Byte; VAR b : Word) 00021060 50 4f |PO | ADDQ.L #0x8,A7 00021062 10 2e ff ec | . | MOVE.B (A6-0x14),D0 00021066 b0 01 | | CMP.B D1,D0 00021068 66 0a |f | BNE 0x21074 0002106a 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00021070 60 00 00 84 |` | BRA 0x210f6 00021074 9e c5 | | SUBA.W D5,A7 00021076 20 4f | O | MOVEA.L A7,A0 00021078 43 fa f3 ba |C | LEA.L 0x20434,A1 0002107c 70 3c |p< | MOVEQ.L #0x3c,D0 0002107e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021080 51 c8 ff fc |Q | DBF D0,0x2107e 00021084 51 4f |QO | SUBQ.L #0x8,A7 00021086 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002108a 3f 02 |? | MOVE.W D2,-(A7) 0002108c 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 00021090 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021096 50 4f |PO | ADDQ.L #0x8,A7 00021098 48 78 00 00 |Hx | PEA.L 0x0 0002109c 48 78 00 0f |Hx | PEA.L 0xf 000210a0 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000210a6 de fc 00 0c | | ADDA.W #0xc,A7 000210aa 20 1f | | MOVE.L (A7)+,D0 000210ac 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000210b2 63 02 |c | BLS 0x210b6 000210b4 4e 4f |NO | TRAP #15 000210b6 de c5 | | ADDA.W D5,A7 000210b8 3d 40 ff ee |=@ | MOVE.W D0,(A6-0x12) 000210bc 41 86 |A | CHK.W D6,D0 000210be 3f 00 |? | MOVE.W D0,-(A7) 000210c0 48 52 |HR | PEA.L (A2) 000210c2 4e b9 00 01 03 94 |N | JSR MountDisk(drive : Word ; VAR status : Byte) 000210c8 5c 4f |\O | ADDQ.L #0x6,A7 000210ca 4a 12 |J | TST.B (A2) 000210cc 67 28 |g( | BEQ 0x210f6 000210ce 59 4f |YO | SUBQ.L #0x4,A7 000210d0 10 12 | | MOVE.B (A2),D0 000210d2 48 80 |H | EXTB.W D0 000210d4 41 86 |A | CHK.W D6,D0 000210d6 1f 00 | | MOVE.B D0,-(A7) 000210d8 4e b9 00 01 03 a0 |N | JSR FsErrMsgStr(err: Byte) : String 000210de 54 4f |TO | ADDQ.L #0x2,A7 000210e0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000210e6 58 4f |XO | ADDQ.L #0x4,A7 000210e8 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 000210ec 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 000210f0 4e f9 00 02 15 e6 |N | JMP 0x215e6 000210f6 2f 3a f3 7e |/: ~ | MOVE.L 0x20476,-(A7) 000210fa 2f 3a f3 76 |/: v | MOVE.L 0x20472,-(A7) 000210fe 51 4f |QO | SUBQ.L #0x8,A7 00021100 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021104 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 0002110a 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002110e 3f 02 |? | MOVE.W D2,-(A7) 00021110 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00021114 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002111a 50 4f |PO | ADDQ.L #0x8,A7 0002111c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021122 50 4f |PO | ADDQ.L #0x8,A7 00021124 26 9f |& | MOVE.L (A7)+,(A3) 00021126 58 4f |XO | ADDQ.L #0x4,A7 00021128 2e 93 |. | MOVE.L (A3),(A7) 0002112a 1f 02 | | MOVE.B D2,-(A7) 0002112c 1f 01 | | MOVE.B D1,-(A7) 0002112e 48 78 00 08 |Hx | PEA.L 0x8 00021132 48 52 |HR | PEA.L (A2) 00021134 48 54 |HT | PEA.L (A4) 00021136 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 0002113c de fc 00 14 | | ADDA.W #0x14,A7 00021140 7e 00 |~ | MOVEQ.L #0x00,D7 00021142 28 3c 00 00 01 00 |(< | MOVE.L #0x100,D4 00021148 26 07 |& | MOVE.L D7,D3 0002114a 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00021150 2f 14 |/ | MOVE.L (A4),-(A7) 00021152 0c 87 00 00 40 00 | @ | CMPI.L #0x00004000,D7 00021158 63 02 |c | BLS 0x2115c 0002115a 4e 4f |NO | TRAP #15 0002115c 3f 07 |? | MOVE.W D7,-(A7) 0002115e 42 67 |Bg | CLR.W -(A7) 00021160 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00021164 1f 01 | | MOVE.B D1,-(A7) 00021166 0c 84 00 00 07 ff | | CMPI.L #0x000007ff,D4 0002116c 63 02 |c | BLS 0x21170 0002116e 4e 4f |NO | TRAP #15 00021170 20 04 | | MOVE.L D4,D0 00021172 e5 80 | | ASL.L #0x2,D0 00021174 41 f9 00 02 18 44 |A D | LEA.L 0x21844,A0 0002117a 41 f0 08 08 |A | LEA.L (A0+D0.L+#0x8),A0 0002117e 2f 08 |/ | MOVE.L A0,-(A7) 00021180 48 52 |HR | PEA.L (A2) 00021182 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 00021188 de fc 00 14 | | ADDA.W #0x14,A7 0002118c 52 87 |R | ADDQ.L #0x1,D7 0002118e 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 00021194 6f ac |o | BLE 0x21142 00021196 42 27 |B' | CLR.B -(A7) 00021198 1f 01 | | MOVE.B D1,-(A7) 0002119a 48 78 00 01 |Hx | PEA.L 0x1 0002119e 48 52 |HR | PEA.L (A2) 000211a0 48 54 |HT | PEA.L (A4) 000211a2 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000211a8 de fc 00 10 | | ADDA.W #0x10,A7 000211ac 48 53 |HS | PEA.L (A3) 000211ae 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000211b4 58 4f |XO | ADDQ.L #0x4,A7 000211b6 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000211ba 4e 5e |N^ | UNLK A6 000211bc 4e 75 |Nu | RTS 000211be ; -------------------------------------------------------------------------------------- 000211be ; OMSI PASCAL Function 000211be ; <LVAR 0x008 4(r)> 000211be ; <LVAR -0x00c @ 4(r)> 000211be ; <LVAR -0x028 2(w)> 000211be ; <LVAR -0x02c 4(w)> 000211be ; <LVAR -0x02d 1(r)> 000211be ; <LVAR -0x02e 1(r)> 000211be ; <LVAR -0x030 2(w)> 000211be ; <LVAR -0x032 2(w)> 000211be ; <LVAR -0x050 @> 000211be ; <LVAR -0x052 @ 1(r)> 000211be ; -------------------------------------------------------------------------------------- 000211be 4e 56 ff 44 |NV D | LINK.W A6,#0xff44 000211c2 bf d5 | | CMPA.L (A5),A7 000211c4 62 06 |b | BHI 0x211cc 000211c6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000211ca 4e 76 |Nv | TRAPV 000211cc de fc 00 68 | h | ADDA.W #0x68,A7 000211d0 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000211d4 45 ee ff ae |E | LEA.L (A6-0x52),A2 000211d8 47 f9 00 01 04 28 |G ( | LEA.L FSCALL_10428,A3 000211de 74 01 |t | MOVEQ.L #0x01,D2 000211e0 7a 00 |z | MOVEQ.L #0x00,D5 000211e2 9e fc 00 20 | | SUBA.W #0x20,A7 000211e6 20 4f | O | MOVEA.L A7,A0 000211e8 43 fa f2 90 |C | LEA.L 0x2047a,A1 000211ec 70 1e |p | MOVEQ.L #0x1e,D0 000211ee 10 d9 | | MOVE.B (A1)+,(A0)+ 000211f0 51 c8 ff fc |Q | DBF D0,0x211ee 000211f4 51 4f |QO | SUBQ.L #0x8,A7 000211f6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000211fa 3f 02 |? | MOVE.W D2,-(A7) 000211fc 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00021200 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021206 50 4f |PO | ADDQ.L #0x8,A7 00021208 48 78 00 00 |Hx | PEA.L 0x0 0002120c 48 78 00 03 |Hx | PEA.L 0x3 00021210 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00021216 de fc 00 0c | | ADDA.W #0xc,A7 0002121a 20 1f | | MOVE.L (A7)+,D0 0002121c 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00021222 63 02 |c | BLS 0x21226 00021224 4e 4f |NO | TRAP #15 00021226 de fc 00 20 | | ADDA.W #0x20,A7 0002122a 3c 00 |< | MOVE.W D0,D6 0002122c 4d bc 00 03 |M | CHK.W #0x3,D6 00021230 3f 06 |? | MOVE.W D6,-(A7) 00021232 1f 02 | | MOVE.B D2,-(A7) 00021234 1f 02 | | MOVE.B D2,-(A7) 00021236 48 52 |HR | PEA.L (A2) 00021238 4e b9 00 01 04 0c |N | JSR FSCALL_1040c 0002123e de fc 00 0a | | ADDA.W #0xa,A7 00021242 4a 12 |J | TST.B (A2) 00021244 67 14 |g | BEQ 0x2125a 00021246 1f 02 | | MOVE.B D2,-(A7) 00021248 48 52 |HR | PEA.L (A2) 0002124a 4e 93 |N | JSR (A3) 0002124c 5c 4f |\O | ADDQ.L #0x6,A7 0002124e 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00021252 3c 45 |<E | MOVEA.W D5,A6 00021254 4e f9 00 02 15 e6 |N | JMP 0x215e6 0002125a 2f 3a f2 42 |/: B | MOVE.L 0x2049e,-(A7) 0002125e 2f 3a f2 3a |/: : | MOVE.L 0x2049a,-(A7) 00021262 59 4f |YO | SUBQ.L #0x4,A7 00021264 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021268 59 4f |YO | SUBQ.L #0x4,A7 0002126a 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002126e 3f 02 |? | MOVE.W D2,-(A7) 00021270 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00021274 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002127a 50 4f |PO | ADDQ.L #0x8,A7 0002127c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021282 50 4f |PO | ADDQ.L #0x8,A7 00021284 28 5f |(_ | MOVEA.L (A7)+,A4 00021286 50 4f |PO | ADDQ.L #0x8,A7 00021288 7e 01 |~ | MOVEQ.L #0x01,D7 0002128a 30 14 |0 | MOVE.W (A4),D0 0002128c 48 c0 |H | EXTW.L D0 0002128e be 80 | | CMP.L D0,D7 00021290 6f 14 |o | BLE 0x212a6 00021292 20 07 | | MOVE.L D7,D0 00021294 53 80 |S | SUBQ.L #0x1,D0 00021296 0c 80 00 00 00 1d | | CMPI.L #0x0000001d,D0 0002129c 63 02 |c | BLS 0x212a0 0002129e 4e 4f |NO | TRAP #15 000212a0 42 36 08 b0 |B6 | CLR.B (A6+D0.L-#0x50) 000212a4 60 22 |`" | BRA 0x212c8 000212a6 20 07 | | MOVE.L D7,D0 000212a8 53 80 |S | SUBQ.L #0x1,D0 000212aa 0c 80 00 00 00 1d | | CMPI.L #0x0000001d,D0 000212b0 63 02 |c | BLS 0x212b4 000212b2 4e 4f |NO | TRAP #15 000212b4 22 07 |" | MOVE.L D7,D1 000212b6 53 81 |S | SUBQ.L #0x1,D1 000212b8 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000212be 63 02 |c | BLS 0x212c2 000212c0 4e 4f |NO | TRAP #15 000212c2 1d b4 18 02 08 b0 | | MOVE.B (A4+D1.L+#0x2),(A6+D0.L-#0x50) 000212c8 52 87 |R | ADDQ.L #0x1,D7 000212ca 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7 000212d0 6f b8 |o | BLE 0x2128a 000212d2 3d 7c 00 08 ff ce |=| | MOVE.W #0x8,(A6-0x32) 000212d8 3d 7c 04 00 ff d0 |=| | MOVE.W #0x400,(A6-0x30) 000212de 42 2e ff d3 |B. | CLR.B (A6-0x2d) 000212e2 42 2e ff d2 |B. | CLR.B (A6-0x2e) 000212e6 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000212ea 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000212f0 58 4f |XO | ADDQ.L #0x4,A7 000212f2 2d 6e ff f4 ff d4 |-n | MOVE.L (A6-0xc),(A6-0x2c) 000212f8 3d 42 ff d8 |=B | MOVE.W D2,(A6-0x28) 000212fc 41 ee ff b0 |A | LEA.L (A6-0x50),A0 00021300 2f 08 |/ | MOVE.L A0,-(A7) 00021302 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 00021306 4e b9 00 01 04 1c |N | JSR FSCALL_1041c 0002130c 5c 4f |\O | ADDQ.L #0x6,A7 0002130e 48 52 |HR | PEA.L (A2) 00021310 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00021316 58 4f |XO | ADDQ.L #0x4,A7 00021318 4a 12 |J | TST.B (A2) 0002131a 67 18 |g | BEQ 0x21334 0002131c 1f 02 | | MOVE.B D2,-(A7) 0002131e 48 52 |HR | PEA.L (A2) 00021320 4e 93 |N | JSR (A3) 00021322 5c 4f |\O | ADDQ.L #0x6,A7 00021324 4a 12 |J | TST.B (A2) 00021326 67 0c |g | BEQ 0x21334 00021328 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 0002132c 3c 45 |<E | MOVEA.W D5,A6 0002132e 4e f9 00 02 15 e6 |N | JMP 0x215e6 00021334 7e 00 |~ | MOVEQ.L #0x00,D7 00021336 28 3c 00 00 01 00 |(< | MOVE.L #0x100,D4 0002133c 26 07 |& | MOVE.L D7,D3 0002133e 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00021344 0c 84 00 00 07 ff | | CMPI.L #0x000007ff,D4 0002134a 63 02 |c | BLS 0x2134e 0002134c 4e 4f |NO | TRAP #15 0002134e 20 04 | | MOVE.L D4,D0 00021350 e5 80 | | ASL.L #0x2,D0 00021352 41 f9 00 02 18 44 |A D | LEA.L 0x21844,A0 00021358 41 f0 08 08 |A | LEA.L (A0+D0.L+#0x8),A0 0002135c 2f 08 |/ | MOVE.L A0,-(A7) 0002135e 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7) 00021362 4e b9 00 01 04 1c |N | JSR FSCALL_1041c 00021368 5c 4f |\O | ADDQ.L #0x6,A7 0002136a 48 52 |HR | PEA.L (A2) 0002136c 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00021372 58 4f |XO | ADDQ.L #0x4,A7 00021374 4a 12 |J | TST.B (A2) 00021376 67 18 |g | BEQ 0x21390 00021378 1f 02 | | MOVE.B D2,-(A7) 0002137a 48 52 |HR | PEA.L (A2) 0002137c 4e 93 |N | JSR (A3) 0002137e 5c 4f |\O | ADDQ.L #0x6,A7 00021380 4a 12 |J | TST.B (A2) 00021382 67 0c |g | BEQ 0x21390 00021384 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00021388 3c 45 |<E | MOVEA.W D5,A6 0002138a 4e f9 00 02 15 e6 |N | JMP 0x215e6 00021390 52 87 |R | ADDQ.L #0x1,D7 00021392 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 00021398 6f 9c |o | BLE 0x21336 0002139a 7e 01 |~ | MOVEQ.L #0x01,D7 0002139c 4e b9 00 01 04 20 |N | JSR FSCALL_10420 000213a2 48 52 |HR | PEA.L (A2) 000213a4 4e b9 00 01 04 08 |N | JSR FSCALL_10408 000213aa 58 4f |XO | ADDQ.L #0x4,A7 000213ac 4a 12 |J | TST.B (A2) 000213ae 67 18 |g | BEQ 0x213c8 000213b0 1f 02 | | MOVE.B D2,-(A7) 000213b2 48 52 |HR | PEA.L (A2) 000213b4 4e 93 |N | JSR (A3) 000213b6 5c 4f |\O | ADDQ.L #0x6,A7 000213b8 4a 12 |J | TST.B (A2) 000213ba 67 0c |g | BEQ 0x213c8 000213bc 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 000213c0 3c 45 |<E | MOVEA.W D5,A6 000213c2 4e f9 00 02 15 e6 |N | JMP 0x215e6 000213c8 52 87 |R | ADDQ.L #0x1,D7 000213ca 0c 87 00 00 00 02 | | CMPI.L #0x00000002,D7 000213d0 6f ca |o | BLE 0x2139c 000213d2 1f 02 | | MOVE.B D2,-(A7) 000213d4 48 52 |HR | PEA.L (A2) 000213d6 4e b9 00 01 04 14 |N | JSR FSCALL_10414 000213dc 5c 4f |\O | ADDQ.L #0x6,A7 000213de 4a 12 |J | TST.B (A2) 000213e0 67 18 |g | BEQ 0x213fa 000213e2 1f 02 | | MOVE.B D2,-(A7) 000213e4 48 52 |HR | PEA.L (A2) 000213e6 4e 93 |N | JSR (A3) 000213e8 5c 4f |\O | ADDQ.L #0x6,A7 000213ea 4a 12 |J | TST.B (A2) 000213ec 67 0c |g | BEQ 0x213fa 000213ee 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 000213f2 3c 45 |<E | MOVEA.W D5,A6 000213f4 4e f9 00 02 15 e6 |N | JMP 0x215e6 000213fa 4e b9 00 01 04 10 |N | JSR FSCALL_10410 00021400 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021404 4e 5e |N^ | UNLK A6 00021406 4e 75 |Nu | RTS 00021408 ; -------------------------------------------------------------------------------------- 00021408 ; OMSI PASCAL Function 00021408 ; <LVAR 0x008 4(r)> 00021408 ; -------------------------------------------------------------------------------------- 00021408 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 0002140c bf d5 | | CMPA.L (A5),A7 0002140e 62 06 |b | BHI 0x21416 00021410 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021414 4e 76 |Nv | TRAPV 00021416 de fc 00 5c | \ | ADDA.W #0x5c,A7 0002141a 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7) 0002141e 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021424 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 0002142a 72 01 |r | MOVEQ.L #0x01,D1 0002142c 9e fc 00 30 | 0 | SUBA.W #0x30,A7 00021430 20 4f | O | MOVEA.L A7,A0 00021432 43 fa f0 6e |C n | LEA.L 0x204a2,A1 00021436 70 2e |p. | MOVEQ.L #0x2e,D0 00021438 10 d9 | | MOVE.B (A1)+,(A0)+ 0002143a 51 c8 ff fc |Q | DBF D0,0x21438 0002143e 59 4f |YO | SUBQ.L #0x4,A7 00021440 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021444 3f 01 |? | MOVE.W D1,-(A7) 00021446 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 0002144a 4e 92 |N | JSR (A2) 0002144c 50 4f |PO | ADDQ.L #0x8,A7 0002144e 4e 93 |N | JSR (A3) 00021450 de fc 00 24 | $ | ADDA.W #0x24,A7 00021454 20 4f | O | MOVEA.L A7,A0 00021456 43 fa f0 7a |C z | LEA.L 0x204d2,A1 0002145a 70 0e |p | MOVEQ.L #0x0e,D0 0002145c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002145e 51 c8 ff fc |Q | DBF D0,0x2145c 00021462 59 4f |YO | SUBQ.L #0x4,A7 00021464 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021468 3f 01 |? | MOVE.W D1,-(A7) 0002146a 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 0002146e 4e 92 |N | JSR (A2) 00021470 50 4f |PO | ADDQ.L #0x8,A7 00021472 4e 93 |N | JSR (A3) 00021474 20 4f | O | MOVEA.L A7,A0 00021476 43 fa f0 6a |C j | LEA.L 0x204e2,A1 0002147a 70 12 |p | MOVEQ.L #0x12,D0 0002147c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002147e 51 c8 ff fc |Q | DBF D0,0x2147c 00021482 59 4f |YO | SUBQ.L #0x4,A7 00021484 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021488 3f 01 |? | MOVE.W D1,-(A7) 0002148a 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 0002148e 4e 92 |N | JSR (A2) 00021490 50 4f |PO | ADDQ.L #0x8,A7 00021492 4e 93 |N | JSR (A3) 00021494 54 4f |TO | ADDQ.L #0x2,A7 00021496 20 4f | O | MOVEA.L A7,A0 00021498 43 fa f0 5c |C \ | LEA.L 0x204f6,A1 0002149c 70 14 |p | MOVEQ.L #0x14,D0 0002149e 10 d9 | | MOVE.B (A1)+,(A0)+ 000214a0 51 c8 ff fc |Q | DBF D0,0x2149e 000214a4 51 4f |QO | SUBQ.L #0x8,A7 000214a6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000214aa 3f 01 |? | MOVE.W D1,-(A7) 000214ac 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 000214b0 4e 92 |N | JSR (A2) 000214b2 50 4f |PO | ADDQ.L #0x8,A7 000214b4 48 78 00 00 |Hx | PEA.L 0x0 000214b8 48 78 00 01 |Hx | PEA.L 0x1 000214bc 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000214c2 de fc 00 0c | | ADDA.W #0xc,A7 000214c6 2e 1f |. | MOVE.L (A7)+,D7 000214c8 de fc 00 16 | | ADDA.W #0x16,A7 000214cc 4a 87 |J | TST.L D7 000214ce 66 0a |f | BNE 0x214da 000214d0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000214d4 4e ba fc e8 |N | JSR 0x211be 000214d8 60 08 |` | BRA 0x214e2 000214da 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000214de 4e ba fb 48 |N H | JSR 0x21028 000214e2 58 4f |XO | ADDQ.L #0x4,A7 000214e4 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3 000214e8 4e 5e |N^ | UNLK A6 000214ea 4e 75 |Nu | RTS 000214ec ; -------------------------------------------------------------------------------------- 000214ec ; OMSI PASCAL Function 000214ec ; -------------------------------------------------------------------------------------- 000214ec START: 000214ec 4f fa 00 08 |O | LEA.L MAIN,A7 000214f0 4e f9 00 01 02 80 |N | JMP ?start_program 000214f6 MAIN: 000214f6 4e b9 00 01 04 00 |N | JSR FSCALL_10400 000214fc 55 4f |UO | SUBQ.L #0x2,A7 000214fe 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool 00021504 4a 1f |J | TST.B (A7)+ 00021506 67 34 |g4 | BEQ 0x2153c 00021508 9e fc 00 30 | 0 | SUBA.W #0x30,A7 0002150c 20 4f | O | MOVEA.L A7,A0 0002150e 43 fa ef fc |C | LEA.L 0x2050c,A1 00021512 70 2e |p. | MOVEQ.L #0x2e,D0 00021514 10 d9 | | MOVE.B (A1)+,(A0)+ 00021516 51 c8 ff fc |Q | DBF D0,0x21514 0002151a 59 4f |YO | SUBQ.L #0x4,A7 0002151c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021520 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021524 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 00021528 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002152e 50 4f |PO | ADDQ.L #0x8,A7 00021530 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021536 de fc 00 34 | 4 | ADDA.W #0x34,A7 0002153a 60 c0 |` | BRA 0x214fc 0002153c 55 4f |UO | SUBQ.L #0x2,A7 0002153e 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00021544 4a 1f |J | TST.B (A7)+ 00021546 67 2e |g. | BEQ 0x21576 00021548 41 fa f0 20 |A | LEA.L 0x2056a,A0 0002154c 70 16 |p | MOVEQ.L #0x16,D0 0002154e 3f 20 |? | MOVE.W -(A0),-(A7) 00021550 51 c8 ff fc |Q | DBF D0,0x2154e 00021554 59 4f |YO | SUBQ.L #0x4,A7 00021556 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002155a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002155e 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00021562 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021568 50 4f |PO | ADDQ.L #0x8,A7 0002156a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021570 de fc 00 32 | 2 | ADDA.W #0x32,A7 00021574 60 86 |` | BRA 0x214fc 00021576 4e ba ef f2 |N | JSR 0x2056a 0002157a 48 79 00 02 38 50 |Hy 8P | PEA.L 0x23850 00021580 48 79 00 02 38 52 |Hy 8R | PEA.L 0x23852 00021586 48 79 00 02 38 56 |Hy 8V | PEA.L 0x23856 0002158c 48 79 00 02 38 5a |Hy 8Z | PEA.L 0x2385a 00021592 48 79 00 02 38 5e |Hy 8^ | PEA.L 0x2385e 00021598 48 79 00 02 38 64 |Hy 8d | PEA.L 0x23864 0002159e 48 79 00 02 38 62 |Hy 8b | PEA.L 0x23862 000215a4 4e ba f3 0c |N | JSR 0x208b2 000215a8 de fc 00 1c | | ADDA.W #0x1c,A7 000215ac 30 39 00 02 38 50 |09 8P | MOVE.W 0x23850,D0 000215b2 41 bc 00 0f |A | CHK.W #0xf,D0 000215b6 3f 00 |? | MOVE.W D0,-(A7) 000215b8 2f 39 00 02 38 56 |/9 8V | MOVE.L 0x23856,-(A7) 000215be 2f 39 00 02 38 5a |/9 8Z | MOVE.L 0x2385a,-(A7) 000215c4 2f 39 00 02 38 5e |/9 8^ | MOVE.L 0x2385e,-(A7) 000215ca 2f 39 00 02 38 64 |/9 8d | MOVE.L 0x23864,-(A7) 000215d0 10 39 00 02 38 62 | 9 8b | MOVE.B 0x23862,D0 000215d6 48 80 |H | EXTB.W D0 000215d8 41 bc 00 01 |A | CHK.W #0x1,D0 000215dc 1f 00 | | MOVE.B D0,-(A7) 000215de 4e ba f6 68 |N h | JSR 0x20c48 000215e2 de fc 00 14 | | ADDA.W #0x14,A7 000215e6 2f 39 00 02 38 52 |/9 8R | MOVE.L 0x23852,-(A7) 000215ec 4e ba fe 1a |N | JSR 0x21408 000215f0 58 4f |XO | ADDQ.L #0x4,A7 000215f2 48 79 00 02 38 52 |Hy 8R | PEA.L 0x23852 000215f8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000215fe 58 4f |XO | ADDQ.L #0x4,A7 00021600 48 79 00 02 38 68 |Hy 8h | PEA.L 0x23868 00021606 48 79 00 02 38 6a |Hy 8j | PEA.L 0x2386a 0002160c 4e b9 00 01 02 00 |N | JSR KC00_GetBootDev(VAR a : Byte; VAR b : Word) 00021612 50 4f |PO | ADDQ.L #0x8,A7 00021614 10 39 00 02 38 68 | 9 8h | MOVE.B 0x23868,D0 0002161a 0c 00 00 02 | | CMPI.B #0x02,D0 0002161e 66 14 |f | BNE 0x21634 00021620 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00021626 42 27 |B' | CLR.B -(A7) 00021628 48 78 00 01 |Hx | PEA.L 0x1 0002162c 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021632 5c 4f |\O | ADDQ.L #0x6,A7 00021634 60 00 fe c6 |` | BRA 0x214fc 00021638 4e b9 00 01 02 84 |N | .XXX[0x6] 0002163e 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 0002164c ; -------------------------------------------------------------------------------------- 0002164c ; OMSI PASCAL Function 0002164c ; <LVAR 0x008 1(r)> 0002164c ; -------------------------------------------------------------------------------------- 0002164c PROG_FAIL: 0002164c 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00021650 bf d5 | | CMPA.L (A5),A7 00021652 62 06 |b | BHI 0x2165a 00021654 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021658 4e 76 |Nv | TRAPV 0002165a de fc 00 2c | , | ADDA.W #0x2c,A7 0002165e 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021662 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00021666 70 06 |p | MOVEQ.L #0x06,D0 00021668 3f 20 |? | MOVE.W -(A0),-(A7) 0002166a 51 c8 ff fc |Q | DBF D0,0x21668 0002166e 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00021672 51 4f |QO | SUBQ.L #0x8,A7 00021674 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00021678 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002167c 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00021680 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021686 58 4f |XO | ADDQ.L #0x4,A7 00021688 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 0002168c 48 80 |H | EXTB.W D0 0002168e 48 c0 |H | EXTW.L D0 00021690 2f 00 |/ | MOVE.L D0,-(A7) 00021692 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021698 58 4f |XO | ADDQ.L #0x4,A7 0002169a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000216a0 50 4f |PO | ADDQ.L #0x8,A7 000216a2 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000216a8 de fc 00 14 | | ADDA.W #0x14,A7 000216ac 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000216b0 4e 5e |N^ | UNLK A6 000216b2 4e 75 |Nu | RTS 000216b4 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000216c2 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 000216d0 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 000216de 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 000216f0 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00021708 ; -------------------------------------------------------------------------------------- 00021708 ; OMSI PASCAL Function 00021708 ; <LVAR 0x00e 1(r)> 00021708 ; <LVAR 0x00a 4(r)> 00021708 ; <LVAR 0x008 1(r)> 00021708 ; -------------------------------------------------------------------------------------- 00021708 EXP_FAIL: 00021708 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 0002170c bf d5 | | CMPA.L (A5),A7 0002170e 62 06 |b | BHI 0x21716 00021710 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021714 4e 76 |Nv | TRAPV 00021716 de fc 00 74 | t | ADDA.W #0x74,A7 0002171a 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 0002171e 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00021724 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 0002172a 72 01 |r | MOVEQ.L #0x01,D1 0002172c 74 0d |t | MOVEQ.L #0x0d,D2 0002172e 76 1e |v | MOVEQ.L #0x1e,D3 00021730 78 12 |x | MOVEQ.L #0x12,D4 00021732 7a 0e |z | MOVEQ.L #0x0e,D5 00021734 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002173a 41 fa ff b4 |A | LEA.L 0x216f0,A0 0002173e 70 08 |p | MOVEQ.L #0x08,D0 00021740 3f 20 |? | MOVE.W -(A0),-(A7) 00021742 51 c8 ff fc |Q | DBF D0,0x21740 00021746 59 4f |YO | SUBQ.L #0x4,A7 00021748 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002174c 3f 01 |? | MOVE.W D1,-(A7) 0002174e 3f 04 |? | MOVE.W D4,-(A7) 00021750 4e 93 |N | JSR (A3) 00021752 50 4f |PO | ADDQ.L #0x8,A7 00021754 4e 94 |N | JSR (A4) 00021756 50 4f |PO | ADDQ.L #0x8,A7 00021758 20 4f | O | MOVEA.L A7,A0 0002175a 43 fa ff 58 |C X | LEA.L 0x216b4,A1 0002175e 70 0c |p | MOVEQ.L #0x0c,D0 00021760 10 d9 | | MOVE.B (A1)+,(A0)+ 00021762 51 c8 ff fc |Q | DBF D0,0x21760 00021766 51 4f |QO | SUBQ.L #0x8,A7 00021768 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002176c 3f 01 |? | MOVE.W D1,-(A7) 0002176e 3f 02 |? | MOVE.W D2,-(A7) 00021770 4e 93 |N | JSR (A3) 00021772 54 4f |TO | ADDQ.L #0x2,A7 00021774 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00021778 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 0002177e 54 4f |TO | ADDQ.L #0x2,A7 00021780 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021786 50 4f |PO | ADDQ.L #0x8,A7 00021788 4e 94 |N | JSR (A4) 0002178a de c4 | | ADDA.W D4,A7 0002178c 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00021790 b0 c1 | | CMPA.W D1,A0 00021792 67 48 |gH | BEQ 0x217dc 00021794 9e c5 | | SUBA.W D5,A7 00021796 22 4f |"O | MOVEA.L A7,A1 00021798 45 fa ff 28 |E ( | LEA.L 0x216c2,A2 0002179c 70 0c |p | MOVEQ.L #0x0c,D0 0002179e 12 da | | MOVE.B (A2)+,(A1)+ 000217a0 51 c8 ff fc |Q | DBF D0,0x2179e 000217a4 9e c3 | | SUBA.W D3,A7 000217a6 22 4f |"O | MOVEA.L A7,A1 000217a8 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000217ac 70 1d |p | MOVEQ.L #0x1d,D0 000217ae 12 d8 | | MOVE.B (A0)+,(A1)+ 000217b0 51 c8 ff fc |Q | DBF D0,0x217ae 000217b4 51 4f |QO | SUBQ.L #0x8,A7 000217b6 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 000217ba 3f 01 |? | MOVE.W D1,-(A7) 000217bc 3f 02 |? | MOVE.W D2,-(A7) 000217be 4e 93 |N | JSR (A3) 000217c0 58 4f |XO | ADDQ.L #0x4,A7 000217c2 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000217c6 3f 01 |? | MOVE.W D1,-(A7) 000217c8 3f 03 |? | MOVE.W D3,-(A7) 000217ca 4e 93 |N | JSR (A3) 000217cc 50 4f |PO | ADDQ.L #0x8,A7 000217ce 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000217d4 50 4f |PO | ADDQ.L #0x8,A7 000217d6 4e 94 |N | JSR (A4) 000217d8 de fc 00 30 | 0 | ADDA.W #0x30,A7 000217dc 9e c5 | | SUBA.W D5,A7 000217de 20 4f | O | MOVEA.L A7,A0 000217e0 43 fa fe ee |C | LEA.L 0x216d0,A1 000217e4 70 0c |p | MOVEQ.L #0x0c,D0 000217e6 10 d9 | | MOVE.B (A1)+,(A0)+ 000217e8 51 c8 ff fc |Q | DBF D0,0x217e6 000217ec 51 4f |QO | SUBQ.L #0x8,A7 000217ee 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000217f2 3f 01 |? | MOVE.W D1,-(A7) 000217f4 3f 02 |? | MOVE.W D2,-(A7) 000217f6 4e 93 |N | JSR (A3) 000217f8 54 4f |TO | ADDQ.L #0x2,A7 000217fa 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 000217fe 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00021804 54 4f |TO | ADDQ.L #0x2,A7 00021806 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002180c 50 4f |PO | ADDQ.L #0x8,A7 0002180e 4e 94 |N | JSR (A4) 00021810 5d 4f |]O | SUBQ.L #0x6,A7 00021812 20 4f | O | MOVEA.L A7,A0 00021814 43 fa fe da |C | LEA.L 0x216f0,A1 00021818 70 16 |p | MOVEQ.L #0x16,D0 0002181a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002181c 51 c8 ff fc |Q | DBF D0,0x2181a 00021820 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00021824 59 4f |YO | SUBQ.L #0x4,A7 00021826 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002182a 3f 01 |? | MOVE.W D1,-(A7) 0002182c 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00021830 4e 93 |N | JSR (A3) 00021832 50 4f |PO | ADDQ.L #0x8,A7 00021834 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002183a de c3 | | ADDA.W D3,A7 0002183c 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00021840 4e 5e |N^ | UNLK A6 00021842 4e 75 |Nu | RTS