|
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: 7168 (0x1c00)
Types: M200
Notes: @(#)RDM,1.1,92/07/09,12:00:00, M200_PROGRAM
Names: »RDM.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »RDM.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »RDM.M200«
@ 20588
<POP 20588-205e6 Body>
<POP 20588-2059e Prologue> Σ0 ↓
<POP 2059e-205a0 Naked> Σ0 ↓
<MI 2059e MOVEQ.L #0x00,D7> {}
<POP 205a0-205d8 Naked> Σ0 ↓ →0x205a0 ←0x205a0
<POP 0x205a0 LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {}
<MI 205aa MOVE.L D7,D0> {}
<MI 205ac ASL.L #0x2,D0> {}
<MI 205ae LEA.L 0x21862,A0> {}
<MI 205b4 ORI.B #0x80,(A0+D0.L+#0x8)> {}
<MI 205ba ANDI.B #0xbf,(A0+D0.L+#0x8)> {}
<MI 205c0 ANDI.W #0xc000,(A0+D0.L+#0x8)> {}
<MI 205c6 CLR.B (A0+D0.L+#0xa)> {}
<MI 205ca CLR.B (A0+D0.L+#0xb)> {}
<MI 205ce ADDQ.L #0x1,D7> {}
<MI 205d0 CMPI.L #0x000007ff,D7> {}
<MI 205d6 BLE 0x205a0> {}
<POP 205d8-205de Naked> Σ0 ↓
<MI 205d8 CLR.L 0x2386a> {}
<POP 205de-205e6 Epilogue> Σ0
@ 205e6
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 205e6-20774 Body> Δ-4
<POP 205e6-205fc Prologue> Σ0 ↓
<POP 205fc-20612 RegCacheLoad> Σ0 ↓
<POP 20612-2061c Naked> Σ0 ↓ →0x2064c
<MI 20612 MOVE.L 0x2386a,D0> {}
<MI 20614 CMPI.L #0x00000800,D0> {}
<MI 2061a BNE 0x2064c> {}
<POP 2061c-2064c Naked> Σ0 ↓
<Blob 0x2061c [34] @> Δ-34 {[«34""»]}
<Const 0x2062e 0xe.2> Δ-2 {[«34""»]|[#14]}
<POP 20632-20634 StackAdj> Δ-4 {[«34""»]|[#14]|[-4-]}
<Lit 0x20634 33> {[«34""»]|[#14]|[$$Too many defects (2048) to handle]}
<Call 0x20642 0x103b8> {[«34""»]|[#14]|[$$Too many defects (2048) to handle]}
PopProgram(status : Byte; msg : String)
<POP 20648-2064c StackAdj> Δ+40 {}
<POP 2064c-20652 Naked> Σ0 Δ-4 ↓ ←0x20612
<Blob 0x2064c [4] 0x2386a> Δ-4 {[«4»]}
<MI 2064e SUBQ.L #0x1,(A7)> {[-4-]}
<MI 20650 MOVEQ.L #0x00,D7> {[-4-]}
<POP 20652-20656 Naked> Σ-4 ↓ →0x20698 ←0x20694
<MI 20652 CMP.L (A7),D7> {[-4-]}
<MI 20654 BGT 0x20698> {[-4-]}
<POP 20656-20676 Naked> Σ-4 ↓ →0x20694
<POP 0x20656 LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {[-4-]}
<MI 20660 MOVE.L D7,D0> {[-4-]}
<MI 20662 ASL.L #0x2,D0> {[-4-]}
<MI 20664 LEA.L 0x21862,A0> {[-4-]}
<MI 20666 CLR.L D1> {[-4-]}
<MI 20668 MOVE.W (A0+D0.L+#0x8),D1> {[-4-]}
<MI 2066c LSL.W #0x2,D1> {[-4-]}
<MI 2066e LSR.W #0x2,D1> {[-4-]}
<MI 20670 CMP.L (A6+0x10),D1> {[-4-]}
<MI 20674 BNE 0x20694> {[-4-]}
<POP 20676-20682 Naked> Σ-4 ↓ →0x20694
<MI 20676 CLR.L D1> {[-4-]}
<MI 20678 MOVE.B (A0+D0.L+#0xa),D1> {[-4-]}
<MI 2067c CMP.L (A6+0xc),D1> {[-4-]}
<MI 20680 BNE 0x20694> {[-4-]}
<POP 20682-2068e Naked> Σ-4 ↓ →0x20694
<MI 20682 CLR.L D1> {[-4-]}
<MI 20684 MOVE.B (A0+D0.L+#0xb),D1> {[-4-]}
<MI 20688 CMP.L (A6+0x8),D1> {[-4-]}
<MI 2068c BNE 0x20694> {[-4-]}
<POP 2068e-20694 Naked> Σ-4 Δ+4 →0x2076c
<POP 2068e-20690 StackAdj> Δ+4 {}
<MI 20690 BRA 0x2076c> {}
<POP 20694-20698 Naked> Σ-4 ↓ →0x20652 ←0x20656 ←0x20676 ←0x20682
<MI 20694 ADDQ.L #0x1,D7> {[-4-]}
<MI 20696 BVC 0x20652> {[-4-]}
<POP 20698-2076c Naked> Σ-4 Δ+4 ↓ ←0x20652
<POP 20698-20699 StackAdj> Δ+4 ↓ {}
<Blob 0x20699 [30] @> Δ-30 {[«30""»]}
<Blob 0x206aa [12] @> Δ-12 {[«30""»]|[«12""»]}
<Blob 0x206ba [4] @> Δ-4 {[«30""»]|[«12""»]|[«4""»]}
<Blob 0x206be [4] @> Δ-4 {[«30""»]|[«12""»]|[«4""»]|[«4""»]}
<Blob 0x206c2 [4] @> Δ-4 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 206c6-206c8 StackAdj> Δ-8 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x206c8 29> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Adding defect at cylinder =>_]}
<MI 206d4 MOVE.L (A6+0x10),(A7)> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']}
<POP 206d2-206d4 StackAdj> Δ-8 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-8-]}
<Call 0x206d8 0x102e4> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x206de 11> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[$$, track =>_]}
<MI 206ea MOVE.L (A6+0xc),(A7)> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']}
<POP 206e8-206ea StackAdj> Δ-8 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-8-]}
<Call 0x206ee 0x102e4> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x206f4 12> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$, sector =>_]}
<MI 206fe MOVE.L (A6+0x8),(A7)> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']}
<POP 206fc-206fe StackAdj> Δ-8 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Call 0x20702 0x102e4> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-8-]}
Long2String(a : Long) : String
<POP 20708-2070a StackAdj> Δ+4 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x2070a 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 20710-20714 StackAdj> Δ+24 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x20714 0x103e0> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2071a-2071e StackAdj> Δ+58 {}
<MI 2071e MOVE.L 0x2386a,D0> {}
<POP 0x20720 LimitCheck 0x0 ≤ D0 ≤ 0x7ff> {}
<MI 2072a ASL.L #0x2,D0> {}
<MI 2072c LEA.L 0x21862,A0> {}
<MI 2072e MOVE.L (A6+0x10),D1> {}
<POP 0x20732 LimitCheck 0x0 ≤ D1 ≤ 0x3fff> {}
<MI 2073c ANDI.W #0xc000,(A0+D0.L+#0x8)> {}
<MI 20742 OR.W D1,(A0+D0.L+#0x8)> {}
<MI 20746 MOVE.L (A6+0xc),D1> {}
<POP 0x2074a LimitCheck 0x0 ≤ D1 ≤ 0xff> {}
<MI 20754 MOVE.B D1,(A0+D0.L+#0xa)> {}
<MI 20758 MOVE.L (A6+0x8),D1> {}
<POP 0x2075c LimitCheck 0x0 ≤ D1 ≤ 0xff> {}
<MI 20766 MOVE.B D1,(A0+D0.L+#0xb)> {}
<MI 2076a ADDQ.L #0x1,0x2386a> {}
<POP 2076c-20774 Epilogue> Σ0 ←0x2068e
@ 20774
<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 20774-207f0 Body>
<POP 20774-2078a Prologue> Σ0 ↓
<POP 2078a-2078c RegCacheLoad> Σ0 ↓
<POP 2078c-207e4 Naked> Σ0 ↓ →0x207e8
<MI 2078c CLR.W (A6-0x1a)> {}
<MI 20790 CLR.W (A6-0x18)> {}
<MI 20794 MOVE.W #0x2,(A6-0x16)> {}
<MI 2079a CLR.W (A6-0x14)> {}
<MI 2079e CLR.W (A6-0x12)> {}
<MI 207a2 MOVE.W (A6+0x8),D0> {}
<MI 207a6 ASL.W #0x8,D0> {}
<MI 207a8 MOVE.W D0,(A6-0x10)> {}
<MI 207ac CLR.W (A6-0xe)> {}
<MI 207b0 CLR.W (A6-0xc)> {}
<Pointer.fp 0x207b4 <LVAR -0x01a @ 2(r)>> Δ-4 {[@@-26]}
<MI 207b8 LEA.L (A6-0x8),A0> {[@@-26]}
<MI 207bc MOVE.L A0,-(A7)> Δ-4 {[@@-26]|[4, 'A0']}
<Const 0x207be 0x3.2> Δ-2 {[@@-26]|[4, 'A0']|[#3]}
<Call 0x207c0 0x10204> {[@@-26]|[4, 'A0']|[#3]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 207c6-207c8 StackAdj> Δ+8 {[-2-]}
<POP 207c8-207c9 StackAdj> Δ+2 {}
<Const 0x207c9 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x207ca <LVAR -0x00a @>> Δ-4 {[#3]|[@@-10]}
<Call 0x207ce 0x10206> {[#3]|[@@-10]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 207d4-207d6 StackAdj> Δ+6 {}
<MI 207d6 CLR.B (A6+0xa)> {}
<MI 207da MOVE.W (A6-0x8),D0> {}
<MI 207de CMPI.W #0x0001,D0> {}
<MI 207e2 BNE 0x207e8> {}
<POP 207e4-207e8 Naked> Σ0 ↓
<MI 207e4 ADDQ.B #0x1,(A6+0xa)> {}
<POP 207e8-207f0 Epilogue> Σ0 ←0x2078c
@ 207f0
<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 207f0-208d0 Body>
<POP 207f0-20806 Prologue> Σ0 ↓
<POP 20806-20808 RegCacheLoad> Σ0 ↓
<POP 20808-20876 Naked> Σ0 ↓ →0x208b6
<MI 20808 CLR.W (A6-0x14)> {}
<MI 2080c CLR.W (A6-0x12)> {}
<MI 20810 MOVE.W #0x2,(A6-0x10)> {}
<MI 20816 CLR.W (A6-0xe)> {}
<MI 2081a CLR.W (A6-0xc)> {}
<MI 2081e MOVE.L (A6+0x10),D0> {}
<MI 20822 ASL.L #0x8,D0> {}
<MI 20824 ADDI.L #0x0000000e,D0> {}
<POP 0x2082a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20834 MOVE.W D0,(A6-0xa)> {}
<MI 20838 MOVE.L (A6+0xc),D0> {}
<POP 0x2083c LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20846 MOVE.W D0,(A6-0x8)> {}
<MI 2084a CLR.W (A6-0x6)> {}
<Pointer.fp 0x2084e <LVAR -0x014 @ 2(r)>> Δ-4 {[@@-20]}
<MI 20852 LEA.L (A6-0x4),A0> {[@@-20]}
<MI 20856 MOVE.L A0,-(A7)> Δ-4 {[@@-20]|[4, 'A0']}
<Const 0x20858 0x3.2> Δ-2 {[@@-20]|[4, 'A0']|[#3]}
<Call 0x2085a 0x10204> {[@@-20]|[4, 'A0']|[#3]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20860-20862 StackAdj> Δ+8 {[-2-]}
<POP 20862-20863 StackAdj> Δ+2 {}
<Const 0x20863 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20864 <LVAR -0x002 @ 1(r)>> Δ-4 {[#3]|[@@-2]}
<Call 0x20868 0x10206> {[#3]|[@@-2]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 2086e-20870 StackAdj> Δ+6 {}
<MI 20870 TST.B (A6-0x2)> {}
<MI 20874 BNE 0x208b6> {}
<POP 20876-208b6 Naked> Σ0 ↓
<Blob 0x20876 [42] @> Δ-42 {[«42""»]}
<MI 20882 CLR.B -(A7)> Δ-2 {[«42""»]|[#0]}
<POP 20884-20886 StackAdj> Δ-8 {[«42""»]|[#0]|[-8-]}
<Lit 0x20886 42> {[«42""»]|[#0]|[-4-]|[$$Can't read controller EEPROM at address :_]}
<MI 20898 MOVE.L (A6+0xc),(A7)> {[«42""»]|[#0]|[-4-]|[4, '(A6+0xc)']}
<POP 20892-20898 StackAdj> Δ-8 {[«42""»]|[#0]|[-4-]|[4, '(A6+0xc)']|[-8-]}
<Call 0x2089c 0x102e4> {[«42""»]|[#0]|[-4-]|[4, '(A6+0xc)']|[-8-]}
Long2String(a : Long) : String
<POP 208a2-208a4 StackAdj> Δ+4 {[«42""»]|[#0]|[-4-]|[4, '(A6+0xc)']|[-4-]}
<Call 0x208a4 0x102d0> {[«42""»]|[#0]|[-4-]|[4, '(A6+0xc)']|[-4-]}
StringCat2(a, b : String) : String
<POP 208aa-208ac StackAdj> Δ+8 {[«42""»]|[#0]|[-4-]}
<Call 0x208ac 0x103b8> {[«42""»]|[#0]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 208b2-208b6 StackAdj> Δ+48 {}
<POP 208b6-208c8 Naked> Σ0 ↓ ←0x20808
<MI 208b6 MOVEA.L (A6+0x8),A0> {}
<MI 208ba MOVE.W (A6-0x4),D0> {}
<MI 208be ANDI.W #0x00ff,D0> {}
<MI 208c2 CLR.L D1> {}
<MI 208c4 MOVE.W D0,D1> {}
<MI 208c6 MOVE.L D1,(A0)> {}
<POP 208c8-208d0 Epilogue> Σ0
@ 208d0
<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 208d0-20c66 Body>
<POP 208d0-208e6 Prologue> Σ0 ↓
<POP 208e6-208ee RegCacheLoad> Σ0 ↓
<POP 208ee-2094a Naked> Σ0 ↓ →0x209ac ←0x209ac
<MI 208ee MOVEA.L (A6+0x20),A0> {}
<Blob 0x208f2 [36] @> Δ-36 {[«36""»]}
<POP 20902-20904 StackAdj> Δ-8 {[«36""»]|[-8-]}
<Lit 0x20904 35> {[«36""»]|[-4-]|[$$Enter unit number of virgin disk :_]}
<Const 0x20916 0x0.4> Δ-4 {[«36""»]|[-4-]|[$$Enter unit number of virgin disk :_]|[##0]}
<Const 0x2091a 0xf.4> Δ-4 {[«36""»]|[-4-]|[$$Enter unit number of virgin disk :_]|[##0]|[##15]}
<Call 0x2091e 0x103ec> {[«36""»]|[-4-]|[$$Enter unit number of virgin disk :_]|[##0]|[##15]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 20924-20926 StackAdj> Δ+12 {[«36""»]|[-4-]}
<MI 20926 MOVE.L (A7)+,D0> Δ+4 {[«36""»]}
<POP 0x20928 LimitCheck 0x0 ≤ D0 ≤ 0xf> {[«36""»]}
<POP 20932-20934 StackAdj> Δ+36 {}
<MI 20934 MOVE.W D0,(A0)> {}
<POP 20936-20938 StackAdj> Δ-2 {[-2-]}
<MI 20938 MOVE.W D0,-(A7)> Δ-2 {[-2-]|[2, 'D0']}
<Call 0x2093a 0x20774> {[-2-]|[2, 'D0']}
<POP 2093e-20940 StackAdj> Δ+2 {[-2-]}
<MI 20940 MOVE.B (A7)+,D1> Δ+2 {}
<MI 20942 EXTB.W D1> {}
<POP 0x20944 LimitCheck 0x0 ≤ D1 ≤ 0x1> {}
<MI 20946 MOVE.B D1,D7> {}
<MI 20948 BNE 0x209ac> {}
<POP 2094a-209ac Naked> Σ0 ↓
<Blob 0x2094a [6] @> Δ-6 {[«6""»]}
<Blob 0x2095a [4] @> Δ-4 {[«6""»]|[«4""»]}
<Blob 0x2095e [4] @> Δ-4 {[«6""»]|[«4""»]|[«4""»]}
<Blob 0x20962 [4] @> Δ-4 {[«6""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20966 [4] @> Δ-4 {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2096a-2096c StackAdj> Δ-8 {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x2096c 5> {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unit_]}
<POP 2097c-2097e StackAdj> Δ-4 {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unit_]|[-4-]}
<MI 2097e MOVE.W D0,D1> {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unit_]|[-4-]}
<MI 20980 EXTW.L D1> {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unit_]|[-4-]}
<MI 20982 MOVE.L D1,-(A7)> Δ-4 {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unit_]|[-4-]|[4, 'D1']}
<Call 0x20984 0x102e4> {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unit_]|[-4-]|[4, 'D1']}
Long2String(a : Long) : String
<Lit 0x2098a 16> {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unit_]|[-4-]|[$$ does not exist.]}
<Call 0x2099a 0x102d4> {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Unit_]|[-4-]|[$$ does not exist.]}
StringCat3(a, b, c : String) : String
<POP 209a0-209a2 StackAdj> Δ+12 {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x209a2 0x103e0> {[«6""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 209a8-209ac StackAdj> Δ+26 {}
<POP 209ac-209b2 Naked> Σ0 ↓ →0x208ee ←0x208ee
<MI 209ac TST.B D7> {}
<MI 209ae BEQ 0x208ee> {}
<POP 209b2-20a8a Naked> Σ0 Δ-8 ↓ →0x20a8c
<MI 209b2 MOVEA.L (A6+0x1c),A0> {}
<Blob 0x209b6 [42] @> Δ-42 {[«42""»]}
<POP 209c2-209c4 StackAdj> Δ-8 {[«42""»]|[-8-]}
<Lit 0x209c4 42> {[«42""»]|[-4-]|[$$Enter HDA serial number as shown on HDA :_]}
<Call 0x209d6 0x103e4> {[«42""»]|[-4-]|[$$Enter HDA serial number as shown on HDA :_]}
AskConsoleString(prompt : String) : String
<POP 209dc-209de StackAdj> Δ+4 {[«42""»]|[-4-]}
<MI 209de MOVE.L (A7)+,(A0)> Δ+4 {[«42""»]}
<POP 209e0-209e4 StackAdj> Δ+42 {}
<MI 209e4 MOVE.W D0,D1> {}
<MI 209e6 ANDI.W #0x0003,D1> {}
<MI 209ea MOVEA.L (A6+0x10),A0> {}
<MI 209ee MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 209f0 MOVE.W D0,D2> {[4, 'A0']}
<MI 209f2 EXTW.L D2> {[4, 'A0']}
<MI 209f4 MOVE.L D2,-(A7)> Δ-4 {[4, 'A0']|[4, 'D2']}
<MI 209f6 MOVE.W #0x2d0,D2> {[4, 'A0']|[4, 'D2']}
<MI 209fa ADD.W D1,D2> {[4, 'A0']|[4, 'D2']}
<MI 209fc EXTW.L D2> {[4, 'A0']|[4, 'D2']}
<MI 209fe MOVE.L D2,-(A7)> Δ-4 {[4, 'A0']|[4, 'D2']|[4, 'D2']}
<MI 20a00 PEA.L (A0)> Δ-4 {[4, 'A0']|[4, 'D2']|[4, 'D2']|[4, '^(A0)']}
<Call 0x20a02 0x207f0> {[4, 'A0']|[4, 'D2']|[4, 'D2']|[4, '^(A0)']}
<POP 20a06-20a08 StackAdj> Δ+12 {[4, 'A0']}
<MI 20a08 MOVEA.L (A6+0x14),A1> {[4, 'A0']}
<MI 20a0c MOVE.L A1,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']}
<MI 20a0e MOVE.W D0,D2> {[4, 'A0']|[4, 'A1']}
<MI 20a10 EXTW.L D2> {[4, 'A0']|[4, 'A1']}
<MI 20a12 MOVE.L D2,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a14 MOVE.W #0x350,D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a18 ADD.W D1,D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a1a EXTW.L D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a1c MOVE.L D2,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']}
<MI 20a1e PEA.L (A1)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']|[4, '^(A1)']}
<Call 0x20a20 0x207f0> {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']|[4, '^(A1)']}
<POP 20a24-20a26 StackAdj> Δ+12 {[4, 'A0']|[4, 'A1']}
<MI 20a26 MOVEA.L (A6+0x18),A2> {[4, 'A0']|[4, 'A1']}
<MI 20a2a MOVE.W D0,D2> {[4, 'A0']|[4, 'A1']}
<MI 20a2c EXTW.L D2> {[4, 'A0']|[4, 'A1']}
<MI 20a2e MOVE.L D2,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a30 MOVE.W #0x1d0,D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a34 ADD.W D1,D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a36 EXTW.L D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a38 MOVE.L D2,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']}
<MI 20a3a PEA.L (A2)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']|[4, '^(A2)']}
<Call 0x20a3c 0x207f0> {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']|[4, '^(A2)']}
<POP 20a40-20a42 StackAdj> Δ+12 {[4, 'A0']|[4, 'A1']}
<MI 20a42 MOVE.W D0,D2> {[4, 'A0']|[4, 'A1']}
<MI 20a44 EXTW.L D2> {[4, 'A0']|[4, 'A1']}
<MI 20a46 MOVE.L D2,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a48 MOVE.W #0x250,D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a4c ADD.W D1,D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a4e EXTW.L D2> {[4, 'A0']|[4, 'A1']|[4, 'D2']}
<MI 20a50 MOVE.L D2,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']}
<Pointer.fp 0x20a52 <LVAR -0x006 @ 4(r)>> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']|[@@-6]}
<Call 0x20a56 0x207f0> {[4, 'A0']|[4, 'A1']|[4, 'D2']|[4, 'D2']|[@@-6]}
<POP 20a5a-20a5c StackAdj> Δ+12 {[4, 'A0']|[4, 'A1']}
<MI 20a5c MOVE.L (A6-0x6),D2> {[4, 'A0']|[4, 'A1']}
<MI 20a60 ASL.L #0x8,D2> {[4, 'A0']|[4, 'A1']}
<MI 20a62 ADD.L D2,(A2)> {[4, 'A0']|[4, 'A1']}
<MI 20a64 EXTW.L D0> {[4, 'A0']|[4, 'A1']}
<MI 20a66 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D0']}
<MI 20a68 ADDQ.W #0x8,D1> {[4, 'A0']|[4, 'A1']|[4, 'D0']}
<MI 20a6a EXTW.L D1> {[4, 'A0']|[4, 'A1']|[4, 'D0']}
<MI 20a6c MOVE.L D1,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D0']|[4, 'D1']}
<Pointer.fp 0x20a6e <LVAR -0x006 @ 4(r)>> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D0']|[4, 'D1']|[@@-6]}
<Call 0x20a72 0x207f0> {[4, 'A0']|[4, 'A1']|[4, 'D0']|[4, 'D1']|[@@-6]}
<POP 20a76-20a78 StackAdj> Δ+12 {[4, 'A0']|[4, 'A1']}
<MI 20a78 MOVEA.L (A6+0x8),A3> {[4, 'A0']|[4, 'A1']}
<MI 20a7c CLR.B (A3)> {[4, 'A0']|[4, 'A1']}
<MI 20a7e MOVE.L (A6-0x6),D0> {[4, 'A0']|[4, 'A1']}
<MI 20a82 ANDI.L #0x00000004,D0> {[4, 'A0']|[4, 'A1']}
<MI 20a88 BEQ 0x20a8c> {[4, 'A0']|[4, 'A1']}
<POP 20a8a-20a8c Naked> Σ-8 ↓
<MI 20a8a ADDQ.B #0x1,(A3)> {[-8-]}
<POP 20a8c-20b18 Naked> Σ-8 ↓ →0x20b4c ←0x209b2
<Blob 0x20a8c [16] @> Δ-16 {[-8-]|[«16""»]}
<Blob 0x20a9c [4] @> Δ-4 {[-8-]|[«16""»]|[«4""»]}
<Blob 0x20aa0 [4] @> Δ-4 {[-8-]|[«16""»]|[«4""»]|[«4""»]}
<Blob 0x20aa4 [4] @> Δ-4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20aa8 [4] @> Δ-4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20aac [4] @> Δ-4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 20ab0-20ab2 StackAdj> Δ-8 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x20ab2 15> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]}
<MI 20ac2 MOVE.L (A2),(A7)> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']}
<POP 20abc-20ac2 StackAdj> Δ-8 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-8-]}
<Call 0x20ac4 0x102e4> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x20aca 12> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]}
<POP 20ad8-20ada StackAdj> Δ-4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 20ada MOVEA.L (A7+0x38),A0> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]}
<MI 20ade MOVE.L (A0),-(A7)> Δ-4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[4, '(A0)']}
<Call 0x20ae0 0x102e4> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[4, '(A0)']}
Long2String(a : Long) : String
<Lit 0x20ae6 8> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]}
<POP 20af6-20af8 StackAdj> Δ-4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 20af8 MOVEA.L (A7+0x44),A0> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<MI 20afc MOVE.L (A0),-(A7)> Δ-4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]|[4, '(A0)']}
<Call 0x20afe 0x102e4> {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]|[4, '(A0)']}
Long2String(a : Long) : String
<POP 20b04-20b06 StackAdj> Δ+4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A2)']|[-4-]|[$$ cylinders,_]|[-4-]|[$$ heads,_]|[-4-]}
<Call 0x20b06 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 20b0c-20b10 StackAdj> Δ+24 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 20b10 MOVEA.L (A7)+,A4> Δ+4 {[-8-]|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 20b12-20b14 StackAdj> Δ+36 {[-8-]}
<MI 20b14 TST.B (A3)> {[-8-]}
<MI 20b16 BEQ 0x20b4c> {[-8-]}
<POP 20b18-20b4c Naked> Σ-8 →0x20b7e
<Blob 0x20b18 [34] @> Δ-34 {[-8-]|[«34""»]}
<POP 20b24-20b26 StackAdj> Δ-4 {[-8-]|[«34""»]|[-4-]}
<MI 20b26 MOVE.L A4,-(A7)> Δ-4 {[-8-]|[«34""»]|[-4-]|[4, 'A4']}
<POP 20b28-20b2a StackAdj> Δ-4 {[-8-]|[«34""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x20b2a 34> {[-8-]|[«34""»]|[-4-]|[4, 'A4']|[$$ sectors and is sector interleaved]}
<Call 0x20b3c 0x102d0> {[-8-]|[«34""»]|[-4-]|[4, 'A4']|[$$ sectors and is sector interleaved]}
StringCat2(a, b : String) : String
<POP 20b42-20b44 StackAdj> Δ+8 {[-8-]|[«34""»]|[-4-]}
<MI 20b44 MOVEA.L (A7)+,A4> Δ+4 {[-8-]|[«34""»]}
<POP 20b46-20b4a StackAdj> Δ+34 {[-8-]}
<MI 20b4a BRA 0x20b7e> {[-8-]}
<POP 20b4c-20b7e Naked> Σ-8 ↓ ←0x20a8c
<Blob 0x20b4c [38] @> Δ-38 {[-8-]|[«38""»]}
<POP 20b58-20b5a StackAdj> Δ-4 {[-8-]|[«38""»]|[-4-]}
<MI 20b5a MOVE.L A4,-(A7)> Δ-4 {[-8-]|[«38""»]|[-4-]|[4, 'A4']}
<POP 20b5c-20b5e StackAdj> Δ-4 {[-8-]|[«38""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x20b5e 38> {[-8-]|[«38""»]|[-4-]|[4, 'A4']|[$$ sectors and is not sector interleaved]}
<Call 0x20b70 0x102d0> {[-8-]|[«38""»]|[-4-]|[4, 'A4']|[$$ sectors and is not sector interleaved]}
StringCat2(a, b : String) : String
<POP 20b76-20b78 StackAdj> Δ+8 {[-8-]|[«38""»]|[-4-]}
<MI 20b78 MOVEA.L (A7)+,A4> Δ+4 {[-8-]|[«38""»]}
<POP 20b7a-20b7e StackAdj> Δ+38 {[-8-]}
<POP 20b7e-20bbc Naked> Σ-8 Δ-20 ↓ →0x20c1a ←0x20b18
<POP 20b7e-20b80 StackAdj> Δ+4 {[-4-]}
<MI 20b80 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x20b82 0x103e0> {[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 20b88-20b89 StackAdj> Δ+4 ↓ {}
<Blob 0x20b89 [28] @> Δ-28 {[«28""»]}
<POP 20b9a-20b9c StackAdj> Δ-6 {[«28""»]|[-6-]}
<Lit 0x20b9c 27> {[«28""»]|[-2-]|[$$Is this information correct]}
<POP 20bac-20bae StackAdj> Δ-2 {[«28""»]|[-2-]|[$$Is this information correct]|[-2-]}
<POP 20bae-20baf StackAdj> Δ+2 {[«28""»]|[-2-]|[$$Is this information correct]}
<Const 0x20baf 0x1.2> Δ-2 {[«28""»]|[-2-]|[$$Is this information correct]|[#1]}
<Call 0x20bb0 0x103f0> {[«28""»]|[-2-]|[$$Is this information correct]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20bb6-20bb8 StackAdj> Δ+6 {[«28""»]|[-2-]}
<MI 20bb8 TST.B (A7)+> Δ+2 {[«28""»]}
<MI 20bba BNE 0x20c1a> {[«28""»]}
<POP 20bbc-20c1a Naked> Σ-28 ↓
<Blob 0x20bbc [44] @> Δ-44 {[-28-]|[«44""»]}
<POP 20bce-20bd0 StackAdj> Δ-4 {[-28-]|[«44""»]|[-4-]}
<Lit 0x20bd0 43> {[-28-]|[«44""»]|[$$Controller must be reconfigured. Run SLEW.]}
<Call 0x20be2 0x103e0> {[-28-]|[«44""»]|[$$Controller must be reconfigured. Run SLEW.]}
WriteConsoleStringCrLf(str : String)
<POP 20be8-20be9 StackAdj> Δ+48 ↓ {[-28-]}
<Blob 0x20be9 [32] @> Δ-32 {[-28-]|[«32""»]}
<Const 0x20bf8 0xe.2> Δ-2 {[-28-]|[«32""»]|[#14]}
<POP 20bfc-20bfe StackAdj> Δ-4 {[-28-]|[«32""»]|[#14]|[-4-]}
<Lit 0x20bfe 31> {[-28-]|[«32""»]|[#14]|[$$Controller must be reconfigured]}
<Call 0x20c10 0x103b8> {[-28-]|[«32""»]|[#14]|[$$Controller must be reconfigured]}
PopProgram(status : Byte; msg : String)
<POP 20c16-20c1a StackAdj> Δ+38 {[-28-]}
<POP 20c1a-20c5e Naked> Σ-28 Δ+28 ↓ ←0x20b7e
<POP 20c1a-20c1e StackAdj> Δ+28 {}
<MI 20c1e MOVEA.L (A6+0xc),A0> {}
<Blob 0x20c22 [64] @> Δ-64 {[«64""»]}
<POP 20c34-20c36 StackAdj> Δ-8 {[«64""»]|[-8-]}
<Lit 0x20c36 63> {[«64""»]|[-4-]|[$$Enter the number of bytes-per-sector as jumpered at the disk :_]}
<Const 0x20c48 0x20c.4> Δ-4 {[«64""»]|[-4-]|[$$Enter the number of bytes-per-sector as jumpered at the disk :_]|[##524]}
<Const 0x20c4c 0x7ff.4> Δ-4 {[«64""»]|[-4-]|[$$Enter the number of bytes-per-sector as jumpered at the disk :_]|[##524]|[##2047]}
<Call 0x20c50 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 20c56-20c58 StackAdj> Δ+12 {[«64""»]|[-4-]}
<MI 20c58 MOVE.L (A7)+,(A0)> Δ+4 {[«64""»]}
<POP 20c5a-20c5e StackAdj> Δ+64 {}
<POP 20c5e-20c66 Epilogue> Σ0
@ 20c66
<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 20c66-21046 Body> Δ+4
<POP 20c66-20c7c Prologue> Σ0 ↓
<POP 20c7c-20c8a RegCacheLoad> Σ0 ↓
<POP 20c8a-20cb8 Naked> Σ0 Δ-4 ↓ →0x20cc4
<MI 20c8a CLR.W (A6-0xba)> {}
<MI 20c8e CLR.W (A6-0xb8)> {}
<MI 20c92 MOVE.W #0x2,(A6-0xb6)> {}
<MI 20c98 CLR.W (A6-0xb4)> {}
<MI 20c9c CLR.W (A6-0xb2)> {}
<MI 20ca0 MOVE.W (A6+0x1a),D0> {}
<MI 20ca4 ASL.W #0x8,D0> {}
<MI 20ca6 ADDI.W #0x000a,D0> {}
<MI 20caa MOVE.W D0,(A6-0xb0)> {}
<MI 20cac MOVE.L (A6+0x16),-(A7)> Δ-4 {[4, '(A6+0x16)']}
<MI 20cb0 SUBQ.L #0x1,(A7)> {[-4-]}
<MI 20cb2 MOVEQ.L #0x00,D0> {[-4-]}
<MI 20cb4 CMP.L (A7),D0> {[-4-]}
<MI 20cb6 BHI 0x20cc4> {[-4-]}
<POP 20cb8-20cc4 Naked> Σ-4 ↓
<MI 20cb8 MOVE.L (A7),D1> {[-4-]}
<POP 0x20cba LimitCheck 0x0 ≤ D1 ≤ 0xffff> {[-4-]}
<POP 20cc4-20cca Naked> Σ-4 ↓ →0x20cd0 ←0x20c8a ←0x20ff6
<MI 20cc4 CMP.W (A7+0x2),D0> {[-4-]}
<MI 20cc8 BLS 0x20cd0> {[-4-]}
<POP 20cca-20cd0 Naked> Σ-4 Δ-2 →0x20ffc
<POP 20cca-20ccc StackAdj> Δ-2 {[-6-]}
<MI 20ccc BRA 0x20ffc> {[-6-]}
<POP 20cd0-20ce2 Naked> Σ-4 Δ-6 ↓ →0x20cee ←0x20cc4
<MI 20cd0 MOVE.W D0,-(A7)> Δ-2 {[-4-]|[2, 'D0']}
<MI 20cd2 MOVE.W D0,(A6-0xae)> {[-4-]|[2, 'D0']}
<MI 20cd6 MOVE.L (A6+0x12),-(A7)> Δ-4 {[-4-]|[2, 'D0']|[4, '(A6+0x12)']}
<MI 20cda SUBQ.L #0x1,(A7)> {[-4-]|[2, 'D0']|[-4-]}
<MI 20cdc MOVEQ.L #0x00,D1> {[-4-]|[2, 'D0']|[-4-]}
<MI 20cde CMP.L (A7),D1> {[-4-]|[2, 'D0']|[-4-]}
<MI 20ce0 BHI 0x20cee> {[-4-]|[2, 'D0']|[-4-]}
<POP 20ce2-20cee Naked> Σ-10 ↓
<MI 20ce2 MOVE.L (A7),D2> {[-10-]}
<POP 0x20ce4 LimitCheck 0x0 ≤ D2 ≤ 0xffff> {[-10-]}
<POP 20cee-20cf4 Naked> Σ-10 ↓ →0x20cfa ←0x20cd0 ←0x20fe8
<MI 20cee CMP.W (A7+0x2),D1> {[-10-]}
<MI 20cf2 BLS 0x20cfa> {[-10-]}
<POP 20cf4-20cfa Naked> Σ-10 Δ-2 →0x20fee
<POP 20cf4-20cf6 StackAdj> Δ-2 {[-12-]}
<MI 20cf6 BRA 0x20fee> {[-12-]}
<POP 20cfa-20cfc Naked> Σ-10 Δ-2 ↓ ←0x20cee
<MI 20cfa MOVE.W D1,-(A7)> Δ-2 {[-10-]|[2, 'D1']}
<POP 20cfc-20d3a Naked> Σ-12 ↓ →0x20d94 ←0x20d94
<MI 20cfc MOVE.W (A7),D0> {[-12-]}
<MI 20cfe CLR.L D1> {[-12-]}
<MI 20d00 MOVE.W D0,D1> {[-12-]}
<MI 20d02 ASL.L #0x8,D1> {[-12-]}
<POP 0x20d04 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {[-12-]}
<MI 20d0e MOVE.W D1,(A6-0xac)> {[-12-]}
<Pointer.fp 0x20d12 <LVAR -0x0ba @ 2(r)>> Δ-4 {[-12-]|[@@-186]}
<MI 20d16 LEA.L (A6-0xaa),A0> {[-12-]|[@@-186]}
<MI 20d1a MOVE.L A0,-(A7)> Δ-4 {[-12-]|[@@-186]|[4, 'A0']}
<Const 0x20d1c 0x3.2> Δ-2 {[-12-]|[@@-186]|[4, 'A0']|[#3]}
<Call 0x20d20 0x10204> {[-12-]|[@@-186]|[4, 'A0']|[#3]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20d26-20d28 StackAdj> Δ+8 {[-12-]|[-2-]}
<POP 20d28-20d29 StackAdj> Δ+2 {[-12-]}
<Const 0x20d29 0x3.2> Δ-2 {[-12-]|[#3]}
<Pointer.fp 0x20d2c <LVAR -0x0bc @ 1(r)>> Δ-4 {[-12-]|[#3]|[@@-188]}
<Call 0x20d2e 0x10206> {[-12-]|[#3]|[@@-188]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 20d34-20d36 StackAdj> Δ+6 {[-12-]}
<MI 20d36 TST.B (A6-0xbc)> {[-12-]}
<MI 20d38 BNE 0x20d94> {[-12-]}
<POP 20d3a-20d94 Naked> Σ-12 ↓
<MI 20d3a MOVE.W (A6+0x1a),D0> {[-12-]}
<MI 20d3e ASL.W #0x8,D0> {[-12-]}
<MI 20d40 MOVE.W D0,(A6-0xb0)> {[-12-]}
<MI 20d42 ADDQ.W #0x1,(A6-0xb0)> {[-12-]}
<Pointer.fp 0x20d44 <LVAR -0x0ba @ 2(r)>> Δ-4 {[-12-]|[@@-186]}
<MI 20d48 LEA.L (A6-0x7e),A0> {[-12-]|[@@-186]}
<MI 20d4c MOVE.L A0,-(A7)> Δ-4 {[-12-]|[@@-186]|[4, 'A0']}
<Const 0x20d4e 0x3.2> Δ-2 {[-12-]|[@@-186]|[4, 'A0']|[#3]}
<Call 0x20d52 0x10204> {[-12-]|[@@-186]|[4, 'A0']|[#3]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20d58-20d5a StackAdj> Δ+8 {[-12-]|[-2-]}
<POP 20d5a-20d5b StackAdj> Δ+2 {[-12-]}
<Const 0x20d5b 0x3.2> Δ-2 {[-12-]|[#3]}
<Pointer.fp 0x20d5e <LVAR -0x0bb @>> Δ-4 {[-12-]|[#3]|[@@-187]}
<Call 0x20d62 0x10206> {[-12-]|[#3]|[@@-187]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 20d68-20d6a StackAdj> Δ+4 {[-12-]|[#3]}
<MI 20d6a CLR.B (A7)> {[-12-]|[#3]}
<Call 0x20d6c 0x103ac> {[-12-]|[#3]}
Set_is_open_ERROR_LOG(a : Bool)
<MI 20d72 CLR.B (A7)> {[-12-]|[#3]}
<MI 20d74 LEA.L (A6-0x7e),A0> {[-12-]|[#3]}
<MI 20d78 MOVE.L A0,-(A7)> Δ-4 {[-12-]|[#3]|[4, 'A0']}
<Call 0x20d7a 0x103a8> {[-12-]|[#3]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 20d80-20d82 StackAdj> Δ+4 {[-12-]|[#3]}
<POP 20d82-20d83 StackAdj> Δ+2 {[-12-]}
<Const 0x20d83 0x1.2> Δ-2 {[-12-]|[#1]}
<Call 0x20d86 0x103ac> {[-12-]|[#1]}
Set_is_open_ERROR_LOG(a : Bool)
<POP 20d8c-20d8e StackAdj> Δ+2 {[-12-]}
<MI 20d8e ADDI.W #0x000a,D0> {[-12-]}
<MI 20d92 MOVE.W D0,(A6-0xb0)> {[-12-]}
<POP 20d94-20d9a Naked> Σ-12 ↓ →0x20cfc ←0x20cfc
<MI 20d94 TST.B (A6-0xbc)> {[-12-]}
<MI 20d96 BEQ 0x20cfc> {[-12-]}
<POP 20d9a-20da4 Naked> Σ-12 ↓ →0x20dd0
<MI 20d9a MOVE.W (A6-0xaa),D0> {[-12-]}
<MI 20d9e CMPI.W #0x0019,D0> {[-12-]}
<MI 20da2 BEQ 0x20dd0> {[-12-]}
<POP 20da4-20dd0 Naked> Σ-12 ↓
<Blob 0x20da4 [34] @> Δ-34 {[-12-]|[«34""»]}
<Const 0x20db0 0xe.2> Δ-2 {[-12-]|[«34""»]|[#14]}
<POP 20db4-20db6 StackAdj> Δ-4 {[-12-]|[«34""»]|[#14]|[-4-]}
<Lit 0x20db6 34> {[-12-]|[«34""»]|[#14]|[$$Sync byte incorrect in defect map.]}
<Call 0x20dc6 0x103b8> {[-12-]|[«34""»]|[#14]|[$$Sync byte incorrect in defect map.]}
PopProgram(status : Byte; msg : String)
<POP 20dcc-20dd0 StackAdj> Δ+40 {[-12-]}
<POP 20dd0-20de0 Naked> Σ-12 ↓ →0x20e0c ←0x20d9a
<MI 20dd0 MOVE.W (A6-0xa8),D0> {[-12-]}
<MI 20dd4 LSL.W #0x1,D0> {[-12-]}
<MI 20dd6 LSR.W #0x1,D0> {[-12-]}
<MI 20dd8 MOVE.W (A7+0x6),D1> {[-12-]}
<MI 20ddc CMP.W D1,D0> {[-12-]}
<MI 20dde BEQ 0x20e0c> {[-12-]}
<POP 20de0-20e0c Naked> Σ-12 ↓
<Blob 0x20de0 [40] @> Δ-40 {[-12-]|[«40""»]}
<Const 0x20dec 0xe.2> Δ-2 {[-12-]|[«40""»]|[#14]}
<POP 20df0-20df2 StackAdj> Δ-4 {[-12-]|[«40""»]|[#14]|[-4-]}
<Lit 0x20df2 40> {[-12-]|[«40""»]|[#14]|[$$Cylinder number incorrect in defect map.]}
<Call 0x20e02 0x103b8> {[-12-]|[«40""»]|[#14]|[$$Cylinder number incorrect in defect map.]}
PopProgram(status : Byte; msg : String)
<POP 20e08-20e0c StackAdj> Δ+46 {[-12-]}
<POP 20e0c-20e18 Naked> Σ-12 ↓ →0x20e4a ←0x20dd0
<MI 20e0c CLR.L D0> {[-12-]}
<MI 20e0e MOVE.B (A6-0xa6),D0> {[-12-]}
<MI 20e12 MOVE.W (A7),D2> {[-12-]}
<MI 20e14 CMP.W D2,D0> {[-12-]}
<MI 20e16 BEQ 0x20e4a> {[-12-]}
<POP 20e18-20e4a Naked> Σ-12 ↓
<Blob 0x20e18 [38] @> Δ-38 {[-12-]|[«38""»]}
<Const 0x20e2a 0xe.2> Δ-2 {[-12-]|[«38""»]|[#14]}
<POP 20e2e-20e30 StackAdj> Δ-4 {[-12-]|[«38""»]|[#14]|[-4-]}
<Lit 0x20e30 37> {[-12-]|[«38""»]|[#14]|[$$Track number incorrect in defect map.]}
<Call 0x20e40 0x103b8> {[-12-]|[«38""»]|[#14]|[$$Track number incorrect in defect map.]}
PopProgram(status : Byte; msg : String)
<POP 20e46-20e4a StackAdj> Δ+44 {[-12-]}
<POP 20e4a-20e54 Naked> Σ-12 ↓ →0x20e80 ←0x20e0c
<MI 20e4a MOVE.W (A6-0x94),D0> {[-12-]}
<MI 20e4e CMPI.W #0xf000,D0> {[-12-]}
<MI 20e52 BEQ 0x20e80> {[-12-]}
<POP 20e54-20e80 Naked> Σ-12 ↓
<Blob 0x20e54 [34] @> Δ-34 {[-12-]|[«34""»]}
<Const 0x20e60 0xe.2> Δ-2 {[-12-]|[«34""»]|[#14]}
<POP 20e64-20e66 StackAdj> Δ-4 {[-12-]|[«34""»]|[#14]|[-4-]}
<Lit 0x20e66 34> {[-12-]|[«34""»]|[#14]|[$$Last word incorrect in defect map.]}
<Call 0x20e76 0x103b8> {[-12-]|[«34""»]|[#14]|[$$Last word incorrect in defect map.]}
PopProgram(status : Byte; msg : String)
<POP 20e7c-20e80 StackAdj> Δ+40 {[-12-]}
<POP 20e80-20e88 Naked> Σ-12 ↓ →0x20ea4 ←0x20e4a
<MI 20e80 MOVE.B (A6-0xa8),D0> {[-12-]}
<MI 20e84 LSR.B #0x7,D0> {[-12-]}
<MI 20e86 BEQ 0x20ea4> {[-12-]}
<POP 20e88-20ea4 Naked> Σ-12 →0x20fe2
<MI 20e88 CLR.L D0> {[-12-]}
<MI 20e8a MOVE.W D1,D0> {[-12-]}
<MI 20e8c MOVE.L D0,-(A7)> Δ-4 {[-12-]|[4, 'D0']}
<MI 20e8e CLR.L D0> {[-12-]|[4, 'D0']}
<MI 20e90 MOVE.W D2,D0> {[-12-]|[4, 'D0']}
<MI 20e92 MOVE.L D0,-(A7)> Δ-4 {[-12-]|[4, 'D0']|[4, 'D0']}
<Const 0x20e94 0xff.4> Δ-4 {[-12-]|[4, 'D0']|[4, 'D0']|[##255]}
<Call 0x20e98 0x205e6> {[-12-]|[4, 'D0']|[4, 'D0']|[##255]}
<POP 20e9c-20ea0 StackAdj> Δ+12 {[-12-]}
<MI 20ea0 BRA 0x20fe2> {[-12-]}
<POP 20ea4-20ea6 Naked> Σ-12 ↓ ←0x20e80
<MI 20ea4 MOVEQ.L #0x00,D0> {[-12-]}
<POP 20ea6-20ecc Naked> Σ-12 Δ-4 ↓ →0x20fce ←0x20fda
<MI 20ea6 MOVE.L D0,-(A7)> Δ-4 {[-12-]|[4, 'D0']}
<POP 0x20ea8 LimitCheck 0x0 ≤ D0 ≤ 0x3> {[-12-]|[4, 'D0']}
<MI 20eb2 MOVE.L D0,D1> {[-12-]|[4, 'D0']}
<MI 20eb4 ASL.L #0x2,D1> {[-12-]|[4, 'D0']}
<MI 20eb6 LEA.L (A6-0xbc),A0> {[-12-]|[4, 'D0']}
<MI 20eb8 MOVE.W (A0+D1.L+#0x1a),(A6-0x2)> {[-12-]|[4, 'D0']}
<MI 20ebe MOVE.W (A0+D1.L+#0x18),(A6-0x4)> {[-12-]|[4, 'D0']}
<MI 20ec4 TST.W (A6-0x2)> {[-12-]|[4, 'D0']}
<MI 20ec8 BEQ 0x20fce> {[-12-]|[4, 'D0']}
<POP 20ecc-20f2c Naked> Σ-16 Δ-6 ↓
<MI 20ecc CLR.L D1> {[-16-]}
<MI 20ece MOVE.W (A6-0x4),D1> {[-16-]}
<MI 20ed2 MOVE.L D1,D2> {[-16-]}
<MI 20ed4 SUBQ.L #0x1,D2> {[-16-]}
<MI 20ed6 MOVE.L D2,D4> {[-16-]}
<MI 20ed8 MOVE.L (A6+0xa),D3> {[-16-]}
<Call 0x20edc 0x10294> {[-16-]}
?divs_d3_d4
<POP 0x20ee2 LimitCheck 0x0 ≤ D4 ≤ 0xffff> {[-16-]}
<MI 20eec MOVE.W D4,(A6-0x84)> {[-16-]}
<MI 20ef0 MOVE.L D4,-(A7)> Δ-4 {[-16-]|[4, 'D4']}
<MI 20ef2 CLR.L D2> {[-16-]|[4, 'D4']}
<MI 20ef4 MOVE.W (A6-0x2),D2> {[-16-]|[4, 'D4']}
<MI 20ef8 ADDI.L #0x00000011,D2> {[-16-]|[4, 'D4']}
<MI 20efe ASR.L #0x3,D2> {[-16-]|[4, 'D4']}
<MI 20f00 MOVE.W D2,(A6-0x86)> {[-16-]|[4, 'D4']}
<MI 20f04 CLR.L D3> {[-16-]|[4, 'D4']}
<MI 20f06 MOVE.W D2,D3> {[-16-]|[4, 'D4']}
<MI 20f08 ADD.L D1,D3> {[-16-]|[4, 'D4']}
<MI 20f0a MOVE.L D3,D4> {[-16-]|[4, 'D4']}
<MI 20f0c MOVE.L (A6+0xa),D3> {[-16-]|[4, 'D4']}
<Call 0x20f10 0x10294> {[-16-]|[4, 'D4']}
?divs_d3_d4
<POP 0x20f16 LimitCheck 0x0 ≤ D4 ≤ 0xffff> {[-16-]|[4, 'D4']}
<MI 20f20 MOVE.W D4,(A6-0x82)> {[-16-]|[4, 'D4']}
<MI 20f24 MOVE.W D4,-(A7)> Δ-2 {[-16-]|[4, 'D4']|[2, 'D4']}
<MI 20f26 MOVE.L (A7+0x2),D1> {[-16-]|[4, 'D4']|[2, 'D4']}
<MI 20f2a MOVE.W D1,D6> {[-16-]|[4, 'D4']|[2, 'D4']}
<POP 20f2c-20f32 Naked> Σ-22 ↓ →0x20fcc ←0x20fbc
<MI 20f2c CMP.W (A7),D6> {[-22-]}
<MI 20f2e BHI 0x20fcc> {[-22-]}
<POP 20f32-20f3c Naked> Σ-22 ↓ →0x20f40
<MI 20f32 CLR.L D0> {[-22-]}
<MI 20f34 MOVE.W D6,D0> {[-22-]}
<MI 20f36 CMP.L (A6+0xe),D0> {[-22-]}
<MI 20f3a BCC 0x20f40> {[-22-]}
<POP 20f3c-20f40 Naked> Σ-22 →0x20f52
<MI 20f3c MOVE.W D6,D7> {[-22-]}
<MI 20f3e BRA 0x20f52> {[-22-]}
<POP 20f40-20f52 Naked> Σ-22 ↓ ←0x20f32
<MI 20f40 MOVE.L (A6+0xe),D0> {[-22-]}
<MI 20f44 SUBQ.L #0x1,D0> {[-22-]}
<POP 0x20f46 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-22-]}
<MI 20f50 MOVE.W D0,D7> {[-22-]}
<POP 20f52-20f58 Naked> Σ-22 ↓ →0x20f72 ←0x20f3c
<MI 20f52 TST.B (A6+0x8)> {[-22-]}
<MI 20f56 BNE 0x20f72> {[-22-]}
<POP 20f58-20f72 Naked> Σ-22 Δ-8 →0x20fbc
<MI 20f58 MOVE.W (A7+0x10),D0> {[-22-]}
<MI 20f5c CLR.L D1> {[-22-]}
<MI 20f5e MOVE.W D0,D1> {[-22-]}
<MI 20f60 MOVE.L D1,-(A7)> Δ-4 {[-22-]|[4, 'D1']}
<MI 20f62 MOVE.W (A7+0xe),D0> {[-22-]|[4, 'D1']}
<MI 20f66 CLR.L D1> {[-22-]|[4, 'D1']}
<MI 20f68 MOVE.W D0,D1> {[-22-]|[4, 'D1']}
<MI 20f6a MOVE.L D1,-(A7)> Δ-4 {[-22-]|[4, 'D1']|[4, 'D1']}
<MI 20f6c CLR.L D0> {[-22-]|[4, 'D1']|[4, 'D1']}
<MI 20f6e MOVE.W D7,D0> {[-22-]|[4, 'D1']|[4, 'D1']}
<MI 20f70 BRA 0x20fbc> {[-22-]|[4, 'D1']|[4, 'D1']}
<POP 20f72-20fbc Naked> Σ-22 Δ-8 ↓ ←0x20f52
<MI 20f72 MOVE.W D7,D0> {[-22-]}
<MI 20f74 ANDI.W #0x0001,D0> {[-22-]}
<MI 20f78 MOVE.L (A6+0xe),D4> {[-22-]}
<MI 20f7c MOVEQ.L #0x02,D3> {[-22-]}
<Call 0x20f7e 0x10294> {[-22-]}
?divs_d3_d4
<MI 20f84 CLR.L D3> {[-22-]}
<MI 20f86 MOVE.W D0,D3> {[-22-]}
<Call 0x20f88 0x10290> {[-22-]}
?mulu_d3_d4
<MI 20f8e MOVE.W D7,D0> {[-22-]}
<MI 20f90 LSR.W #0x1,D0> {[-22-]}
<MI 20f92 CLR.L D1> {[-22-]}
<MI 20f94 MOVE.W D0,D1> {[-22-]}
<MI 20f96 ADD.L D4,D1> {[-22-]}
<POP 0x20f98 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {[-22-]}
<MI 20fa2 MOVE.W D1,D5> {[-22-]}
<MI 20fa4 MOVE.W (A7+0x10),D0> {[-22-]}
<MI 20fa8 CLR.L D1> {[-22-]}
<MI 20faa MOVE.W D0,D1> {[-22-]}
<MI 20fac MOVE.L D1,-(A7)> Δ-4 {[-22-]|[4, 'D1']}
<MI 20fae MOVE.W (A7+0xe),D0> {[-22-]|[4, 'D1']}
<MI 20fb2 CLR.L D1> {[-22-]|[4, 'D1']}
<MI 20fb4 MOVE.W D0,D1> {[-22-]|[4, 'D1']}
<MI 20fb6 MOVE.L D1,-(A7)> Δ-4 {[-22-]|[4, 'D1']|[4, 'D1']}
<MI 20fb8 CLR.L D0> {[-22-]|[4, 'D1']|[4, 'D1']}
<MI 20fba MOVE.W D5,D0> {[-22-]|[4, 'D1']|[4, 'D1']}
<POP 20fbc-20fcc Naked> Σ-30 Δ+8 ↓ →0x20f2c ←0x20f58
<MI 20fbc MOVE.L D0,-(A7)> Δ-4 {[-30-]|[4, 'D0']}
<Call 0x20fbe 0x205e6> {[-30-]|[4, 'D0']}
<POP 20fc2-20fc6 StackAdj> Δ+12 {[-22-]}
<MI 20fc6 ADDQ.W #0x1,D6> {[-22-]}
<MI 20fc8 BCC 0x20f2c> {[-22-]}
<POP 20fcc-20fce Naked> Σ-22 Δ+6 ↓ ←0x20f2c
<POP 20fcc-20fce StackAdj> Δ+6 {[-16-]}
<POP 20fce-20fda Naked> Σ-16 ↓ →0x20fe0 ←0x20ea6
<MI 20fce MOVE.L (A7),D0> {[-16-]}
<MI 20fd0 ADDQ.L #0x1,D0> {[-16-]}
<MI 20fd2 CMPI.L #0x00000003,D0> {[-16-]}
<MI 20fd8 BGT 0x20fe0> {[-16-]}
<POP 20fda-20fe0 Naked> Σ-16 Δ+4 →0x20ea6
<POP 20fda-20fdc StackAdj> Δ+4 {[-12-]}
<MI 20fdc BRA 0x20ea6> {[-12-]}
<POP 20fe0-20fe2 Naked> Σ-16 Δ+4 ↓ ←0x20fce
<POP 20fe0-20fe2 StackAdj> Δ+4 {[-12-]}
<POP 20fe2-20fe8 Naked> Σ-12 ↓ →0x20fee ←0x20e88
<MI 20fe2 MOVE.W (A7),D1> {[-12-]}
<MI 20fe4 ADDQ.W #0x1,D1> {[-12-]}
<MI 20fe6 BCS 0x20fee> {[-12-]}
<POP 20fe8-20fee Naked> Σ-12 Δ+2 →0x20cee
<POP 20fe8-20fea StackAdj> Δ+2 {[-10-]}
<MI 20fea BRA 0x20cee> {[-10-]}
<POP 20fee-20ff6 Naked> Σ-12 Δ+6 ↓ →0x20ffc ←0x20cf4 ←0x20fe2
<POP 20fee-20ff0 StackAdj> Δ+6 {[-6-]}
<MI 20ff0 MOVE.W (A7),D0> {[-6-]}
<MI 20ff2 ADDQ.W #0x1,D0> {[-6-]}
<MI 20ff4 BCS 0x20ffc> {[-6-]}
<POP 20ff6-20ffc Naked> Σ-6 Δ+2 →0x20cc4
<POP 20ff6-20ff8 StackAdj> Δ+2 {[-4-]}
<MI 20ff8 BRA 0x20cc4> {[-4-]}
<POP 20ffc-2103e Naked> Σ-6 Δ+6 ↓ ←0x20cca ←0x20fee
<POP 20ffc-20ffd StackAdj> Δ+6 ↓ {}
<Blob 0x20ffd [16] @> Δ-16 {[«16""»]}
<POP 2100e-21010 StackAdj> Δ-8 {[«16""»]|[-8-]}
<Blob 0x21010 [4] 0x2386a> Δ-4 {[«16""»]|[-8-]|[«4»]}
<Call 0x21016 0x102e4> {[«16""»]|[-8-]|[«4»]}
Long2String(a : Long) : String
<Lit 0x2101c 15> {[«16""»]|[-8-]|[$$ Defects found.]}
<Call 0x2102c 0x102d0> {[«16""»]|[-8-]|[$$ Defects found.]}
StringCat2(a, b : String) : String
<POP 21032-21034 StackAdj> Δ+8 {[«16""»]|[-4-]}
<Call 0x21034 0x103e0> {[«16""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2103a-2103e StackAdj> Δ+20 {}
<POP 2103e-21046 Epilogue> Σ0
@ 21046
<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 21046-211dc Body>
<POP 21046-2105c Prologue> Σ0 ↓
<POP 2105c-21070 RegCacheLoad> Σ0 ↓
<POP 21070-21088 Naked> Σ0 ↓ →0x21092
<Pointer.fp 0x21070 <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-20]}
<Pointer.fp 0x21074 <LVAR -0x012 @ 2(w)>> Δ-4 {[@@-20]|[@@-18]}
<Call 0x21078 0x10200> {[@@-20]|[@@-18]}
KC00_GetBootDev(VAR a : Byte; VAR b : Word)
<POP 2107e-21080 StackAdj> Δ+8 {}
<MI 21080 MOVE.B (A6-0x14),D0> {}
<MI 21084 CMP.B #0x02,D0> {}
<MI 21086 BNE 0x21092> {}
<POP 21088-21092 Naked> Σ0 →0x21114
<Call 0x21088 0x10398> {}
FSCALL_10398
<MI 2108e BRA 0x21114> {}
<POP 21092-210ec Naked> Σ0 ↓ →0x21114 ←0x21070
<Blob 0x21092 [62] @> Δ-62 {[«62""»]}
<POP 210a2-210a4 StackAdj> Δ-8 {[«62""»]|[-8-]}
<Lit 0x210a4 61> {[«62""»]|[-4-]|[$$Enter unit number of disk with DFS to write defect info to :_]}
<Const 0x210b6 0x0.4> Δ-4 {[«62""»]|[-4-]|[$$Enter unit number of disk with DFS to write defect info to :_]|[##0]}
<Const 0x210ba 0xf.4> Δ-4 {[«62""»]|[-4-]|[$$Enter unit number of disk with DFS to write defect info to :_]|[##0]|[##15]}
<Call 0x210be 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 210c4-210c8 StackAdj> Δ+12 {[«62""»]|[-4-]}
<MI 210c8 MOVE.L (A7)+,D0> Δ+4 {[«62""»]}
<POP 0x210ca LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[«62""»]}
<POP 210d4-210d6 StackAdj> Δ+62 {}
<MI 210d6 MOVE.W D0,(A6-0x12)> {}
<POP 0x210da LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 210dc MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x210de <LVAR -0x00c @ 1(r)>> Δ-4 {[2, 'D0']|[@@-12]}
<Call 0x210e0 0x10394> {[2, 'D0']|[@@-12]}
MountDisk(drive : Word ; VAR status : Byte)
<POP 210e6-210e8 StackAdj> Δ+6 {}
<MI 210e8 TST.B (A6-0xc)> {}
<MI 210ea BEQ 0x21114> {}
<POP 210ec-21114 Naked> Σ0
<POP 210ec-210ee StackAdj> Δ-4 {[-4-]}
<MI 210ee MOVE.B (A6-0xc),D0> {[-4-]}
<MI 210f0 EXTB.W D0> {[-4-]}
<POP 0x210f2 LimitCheck 0x0 ≤ D0 ≤ 0xf> {[-4-]}
<MI 210f4 MOVE.B D0,-(A7)> Δ-2 {[-4-]|[2, 'D0']}
<Call 0x210f6 0x103a0> {[-4-]|[2, 'D0']}
FsErrMsgStr(err: Byte) : String
<POP 210fc-210fe StackAdj> Δ+2 {[-4-]}
<Call 0x210fe 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21104-21106 StackAdj> Δ+4 {}
<POP 21106-21114 Bailout> {}
<MI 21106 MOVEA.L (A5+0x8),A7>
<MI 2110a MOVEA.W #0x0,A6>
<MI 2110e JMP 0x21604>
<POP 21114-21160 Naked> Σ0 ↓ ←0x21088 ←0x21092
<Blob 0x21114 [4] @> Δ-4 {[«4""»]}
<Blob 0x21118 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 2111c-2111e StackAdj> Δ-8 {[«4""»]|[«4""»]|[-8-]}
<MI 2111e MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[«4""»]|[-8-]|[4, '(A6+0x8)']}
<Call 0x21122 0x102cc> {[«4""»]|[«4""»]|[-8-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<Lit 0x21128 8> {[«4""»]|[«4""»]|[-8-]|[$$.DEFECTS]}
<Call 0x2113a 0x102d0> {[«4""»]|[«4""»]|[-8-]|[$$.DEFECTS]}
StringCat2(a, b : String) : String
<POP 21140-21142 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 21142 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«4""»]|[«4""»]}
<POP 21144-21146 StackAdj> Δ+4 {[«4""»]}
<MI 21146 MOVE.L (A6-0x6),(A7)> {[4, '(A6-0x6)']}
<Const 0x21148 0x1.2> Δ-2 {[4, '(A6-0x6)']|[#1]}
<Const 0x2114a 0x2.2> Δ-2 {[4, '(A6-0x6)']|[#1]|[#2]}
<Const 0x2114c 0x8.4> Δ-4 {[4, '(A6-0x6)']|[#1]|[#2]|[##8]}
<Pointer.fp 0x21150 <LVAR -0x00c @ 1(r)>> Δ-4 {[4, '(A6-0x6)']|[#1]|[#2]|[##8]|[@@-12]}
<Pointer.fp 0x21152 <LVAR -0x010 @ 4(r)>> Δ-4 {[4, '(A6-0x6)']|[#1]|[#2]|[##8]|[@@-12]|[@@-16]}
<Call 0x21154 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 2115a-2115e StackAdj> Δ+20 {}
<MI 2115e MOVEQ.L #0x00,D7> {}
<POP 21160-211b4 Naked> Σ0 ↓ →0x21160 ←0x21160
<MI 21160 MOVE.L #0x100,D4> {}
<MI 21166 MOVE.L D7,D3> {}
<Call 0x21168 0x1028c> {}
?muls_d3_d4
<MI 2116e MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 0x21170 LimitCheck 0x0 ≤ D7 ≤ 0x4000> {[4, '(A6-0x10)']}
<MI 2117a MOVE.W D7,-(A7)> Δ-2 {[4, '(A6-0x10)']|[2, 'D7']}
<MI 2117c CLR.W -(A7)> Δ-2 {[4, '(A6-0x10)']|[2, 'D7']|[#0]}
<Const 0x2117e 0x200.2> Δ-2 {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]}
<Const 0x21182 0x2.2> Δ-2 {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<POP 0x21184 LimitCheck 0x0 ≤ D4 ≤ 0x7ff> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 2118e MOVE.L D4,D0> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21190 ASL.L #0x2,D0> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21192 LEA.L 0x21862,A0> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21198 LEA.L (A0+D0.L+#0x8),A0> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 2119c MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x2119e <LVAR -0x00c @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-12]}
<Call 0x211a0 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 211a6-211aa StackAdj> Δ+20 {}
<MI 211aa ADDQ.L #0x1,D7> {}
<MI 211ac CMPI.L #0x00000007,D7> {}
<MI 211b2 BLE 0x21160> {}
<POP 211b4-211d4 Naked> Σ0 ↓
<MI 211b4 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x211b6 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x211b8 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x211bc <LVAR -0x00c @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-12]}
<Pointer.fp 0x211be <LVAR -0x010 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-12]|[@@-16]}
<Call 0x211c0 0x1038c> {[#0]|[#2]|[##1]|[@@-12]|[@@-16]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 211c6-211ca StackAdj> Δ+16 {}
<Pointer.fp 0x211ca <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x211cc 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 211d2-211d4 StackAdj> Δ+4 {}
<POP 211d4-211dc Epilogue> Σ0
@ 211dc
<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 211dc-21426 Body>
<POP 211dc-211f2 Prologue> Σ0 ↓
<POP 211f2-21200 RegCacheLoad> Σ0 ↓
<POP 21200-21264 Naked> Σ0 ↓ →0x21278
<Blob 0x21200 [32] @> Δ-32 {[«32""»]}
<POP 21212-21214 StackAdj> Δ-8 {[«32""»]|[-8-]}
<Lit 0x21214 31> {[«32""»]|[-4-]|[$$Enter tape drive unit number :_]}
<Const 0x21226 0x0.4> Δ-4 {[«32""»]|[-4-]|[$$Enter tape drive unit number :_]|[##0]}
<Const 0x2122a 0x3.4> Δ-4 {[«32""»]|[-4-]|[$$Enter tape drive unit number :_]|[##0]|[##3]}
<Call 0x2122e 0x103ec> {[«32""»]|[-4-]|[$$Enter tape drive unit number :_]|[##0]|[##3]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 21234-21238 StackAdj> Δ+12 {[«32""»]|[-4-]}
<MI 21238 MOVE.L (A7)+,D0> Δ+4 {[«32""»]}
<POP 0x2123a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[«32""»]}
<POP 21244-21248 StackAdj> Δ+32 {}
<MI 21248 MOVE.W D0,D6> {}
<POP 0x2124a LimitCheck 0x0 ≤ D6 ≤ 0x3> {}
<MI 2124e MOVE.W D6,-(A7)> Δ-2 {[2, 'D6']}
<Const 0x21250 0x1.2> Δ-2 {[2, 'D6']|[#1]}
<Const 0x21252 0x1.2> Δ-2 {[2, 'D6']|[#1]|[#1]}
<Pointer.fp 0x21254 <LVAR -0x052 @ 1(r)>> Δ-4 {[2, 'D6']|[#1]|[#1]|[@@-82]}
<Call 0x21256 0x1040c> {[2, 'D6']|[#1]|[#1]|[@@-82]}
FSCALL_1040c
<POP 2125c-21260 StackAdj> Δ+10 {}
<MI 21260 TST.B (A6-0x52)> {}
<MI 21262 BEQ 0x21278> {}
<POP 21264-21278 Naked> Σ0
<Const 0x21264 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x21266 <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x21268 0x10428> {[#1]|[@@-82]}
FSCALL_10428
<POP 2126a-2126c StackAdj> Δ+6 {}
<POP 2126c-21278 Bailout> {}
<MI 2126c MOVEA.L (A5+0x8),A7>
<MI 21270 MOVEA.W #0x00,A6>
<MI 21272 JMP 0x21604>
<POP 21278-212a8 Naked> Σ0 ↓ ←0x21200
<Blob 0x21278 [4] @> Δ-4 {[«4""»]}
<Blob 0x2127c [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 21280-21282 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<MI 21282 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']}
<POP 21286-21288 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x21288 8> {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']|[$$.DEFECTS]}
<Call 0x2129a 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']|[$$.DEFECTS]}
StringCat2(a, b : String) : String
<POP 212a0-212a2 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 212a2 MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]}
<POP 212a4-212a6 StackAdj> Δ+8 {}
<MI 212a6 MOVEQ.L #0x01,D7> {}
<POP 212a8-212b0 Naked> Σ0 ↓ →0x212c4 ←0x212e6
<MI 212a8 MOVE.W (A4),D0> {}
<MI 212aa EXTW.L D0> {}
<MI 212ac CMP.L D0,D7> {}
<MI 212ae BLE 0x212c4> {}
<POP 212b0-212c4 Naked> Σ0 →0x212e6
<MI 212b0 MOVE.L D7,D0> {}
<MI 212b2 SUBQ.L #0x1,D0> {}
<POP 0x212b4 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 212be CLR.B (A6+D0.L-#0x50)> {}
<MI 212c2 BRA 0x212e6> {}
<POP 212c4-212e6 Naked> Σ0 ↓ ←0x212a8
<MI 212c4 MOVE.L D7,D0> {}
<MI 212c6 SUBQ.L #0x1,D0> {}
<POP 0x212c8 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 212d2 MOVE.L D7,D1> {}
<MI 212d4 SUBQ.L #0x1,D1> {}
<POP 0x212d6 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 212e0 MOVE.B (A4+D1.L+#0x2),(A6+D0.L-#0x50)> {}
<POP 212e6-212f0 Naked> Σ0 ↓ →0x212a8 ←0x212b0
<MI 212e6 ADDQ.L #0x1,D7> {}
<MI 212e8 CMPI.L #0x0000001e,D7> {}
<MI 212ee BLE 0x212a8> {}
<POP 212f0-2133a Naked> Σ0 ↓ →0x21352
<MI 212f0 MOVE.W #0x8,(A6-0x32)> {}
<MI 212f6 MOVE.W #0x400,(A6-0x30)> {}
<MI 212fc CLR.B (A6-0x2d)> {}
<MI 21300 CLR.B (A6-0x2e)> {}
<Pointer.fp 0x21304 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x21308 0x10304> {[@@-12]}
GetRtc() : TimeStamp
<POP 2130e-21310 StackAdj> Δ+4 {}
<MI 21310 MOVE.L (A6-0xc),(A6-0x2c)> {}
<MI 21316 MOVE.W #0x01,(A6-0x28)> {}
<MI 2131a LEA.L (A6-0x50),A0> {}
<MI 2131e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x21320 0x40.2> Δ-2 {[4, 'A0']|[#64]}
<Call 0x21324 0x1041c> {[4, 'A0']|[#64]}
FSCALL_1041c
<POP 2132a-2132c StackAdj> Δ+6 {}
<Pointer.fp 0x2132c <LVAR -0x052 @ 1(r)>> Δ-4 {[@@-82]}
<Call 0x2132e 0x10408> {[@@-82]}
FSCALL_10408
<POP 21334-21336 StackAdj> Δ+4 {}
<MI 21336 TST.B (A6-0x52)> {}
<MI 21338 BEQ 0x21352> {}
<POP 2133a-21346 Naked> Σ0 ↓ →0x21352
<Const 0x2133a 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2133c <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x2133e 0x10428> {[#1]|[@@-82]}
FSCALL_10428
<POP 21340-21342 StackAdj> Δ+6 {}
<MI 21342 TST.B (A6-0x52)> {}
<MI 21344 BEQ 0x21352> {}
<POP 21346-21352 Naked> Σ0
<POP 21346-21352 Bailout> {}
<MI 21346 MOVEA.L (A5+0x8),A7>
<MI 2134a MOVEA.W #0x00,A6>
<MI 2134c JMP 0x21604>
<POP 21352-21354 Naked> Σ0 ↓ ←0x212f0 ←0x2133a
<MI 21352 MOVEQ.L #0x00,D7> {}
<POP 21354-21396 Naked> Σ0 ↓ →0x213ae ←0x213ae
<MI 21354 MOVE.L #0x100,D4> {}
<MI 2135a MOVE.L D7,D3> {}
<Call 0x2135c 0x1028c> {}
?muls_d3_d4
<POP 0x21362 LimitCheck 0x0 ≤ D4 ≤ 0x7ff> {}
<MI 2136c MOVE.L D4,D0> {}
<MI 2136e ASL.L #0x2,D0> {}
<MI 21370 LEA.L 0x21862,A0> {}
<MI 21376 LEA.L (A0+D0.L+#0x8),A0> {}
<MI 2137a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x2137c 0x400.2> Δ-2 {[4, 'A0']|[#1024]}
<Call 0x21380 0x1041c> {[4, 'A0']|[#1024]}
FSCALL_1041c
<POP 21386-21388 StackAdj> Δ+6 {}
<Pointer.fp 0x21388 <LVAR -0x052 @ 1(r)>> Δ-4 {[@@-82]}
<Call 0x2138a 0x10408> {[@@-82]}
FSCALL_10408
<POP 21390-21392 StackAdj> Δ+4 {}
<MI 21392 TST.B (A6-0x52)> {}
<MI 21394 BEQ 0x213ae> {}
<POP 21396-213a2 Naked> Σ0 ↓ →0x213ae
<Const 0x21396 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x21398 <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x2139a 0x10428> {[#1]|[@@-82]}
FSCALL_10428
<POP 2139c-2139e StackAdj> Δ+6 {}
<MI 2139e TST.B (A6-0x52)> {}
<MI 213a0 BEQ 0x213ae> {}
<POP 213a2-213ae Naked> Σ0
<POP 213a2-213ae Bailout> {}
<MI 213a2 MOVEA.L (A5+0x8),A7>
<MI 213a6 MOVEA.W #0x00,A6>
<MI 213a8 JMP 0x21604>
<POP 213ae-213b8 Naked> Σ0 ↓ →0x21354 ←0x21354 ←0x21396
<MI 213ae ADDQ.L #0x1,D7> {}
<MI 213b0 CMPI.L #0x00000007,D7> {}
<MI 213b6 BLE 0x21354> {}
<POP 213b8-213ba Naked> Σ0 ↓
<MI 213b8 MOVEQ.L #0x01,D7> {}
<POP 213ba-213ce Naked> Σ0 ↓ →0x213e6 ←0x213e6
<Call 0x213ba 0x10420> {}
FSCALL_10420
<Pointer.fp 0x213c0 <LVAR -0x052 @ 1(r)>> Δ-4 {[@@-82]}
<Call 0x213c2 0x10408> {[@@-82]}
FSCALL_10408
<POP 213c8-213ca StackAdj> Δ+4 {}
<MI 213ca TST.B (A6-0x52)> {}
<MI 213cc BEQ 0x213e6> {}
<POP 213ce-213da Naked> Σ0 ↓ →0x213e6
<Const 0x213ce 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x213d0 <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x213d2 0x10428> {[#1]|[@@-82]}
FSCALL_10428
<POP 213d4-213d6 StackAdj> Δ+6 {}
<MI 213d6 TST.B (A6-0x52)> {}
<MI 213d8 BEQ 0x213e6> {}
<POP 213da-213e6 Naked> Σ0
<POP 213da-213e6 Bailout> {}
<MI 213da MOVEA.L (A5+0x8),A7>
<MI 213de MOVEA.W #0x00,A6>
<MI 213e0 JMP 0x21604>
<POP 213e6-213f0 Naked> Σ0 ↓ →0x213ba ←0x213ba ←0x213ce
<MI 213e6 ADDQ.L #0x1,D7> {}
<MI 213e8 CMPI.L #0x00000002,D7> {}
<MI 213ee BLE 0x213ba> {}
<POP 213f0-21400 Naked> Σ0 ↓ →0x21418
<Const 0x213f0 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x213f2 <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x213f4 0x10414> {[#1]|[@@-82]}
FSCALL_10414
<POP 213fa-213fc StackAdj> Δ+6 {}
<MI 213fc TST.B (A6-0x52)> {}
<MI 213fe BEQ 0x21418> {}
<POP 21400-2140c Naked> Σ0 ↓ →0x21418
<Const 0x21400 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x21402 <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x21404 0x10428> {[#1]|[@@-82]}
FSCALL_10428
<POP 21406-21408 StackAdj> Δ+6 {}
<MI 21408 TST.B (A6-0x52)> {}
<MI 2140a BEQ 0x21418> {}
<POP 2140c-21418 Naked> Σ0
<POP 2140c-21418 Bailout> {}
<MI 2140c MOVEA.L (A5+0x8),A7>
<MI 21410 MOVEA.W #0x00,A6>
<MI 21412 JMP 0x21604>
<POP 21418-2141e Naked> Σ0 ↓ ←0x213f0 ←0x21400
<Call 0x21418 0x10410> {}
FSCALL_10410
<POP 2141e-21426 Epilogue> Σ0
@ 21426
<LVAR 0x008 4(r)>
<POP 21426-2150a Body> Δ+4
<POP 21426-2143c Prologue> Σ0 ↓
<POP 2143c-2144a RegCacheLoad> Σ0 ↓
<POP 2144a-214ee Naked> Σ0 ↓ →0x214f8
<Blob 0x2144a [48] @> Δ-48 {[«48""»]}
<POP 2145c-2145e StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x2145e 47> {[«48""»]|[$$Do you want to save this defect information on:]}
<Call 0x2146c 0x103e0> {[«48""»]|[$$Do you want to save this defect information on:]}
WriteConsoleStringCrLf(str : String)
<POP 2146e-2146f StackAdj> Δ+52 ↓ {}
<Blob 0x2146f [16] @> Δ-16 {[«16""»]}
<POP 21480-21482 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x21482 15> {[«16""»]|[$$ 0 => A tape]}
<Call 0x21490 0x103e0> {[«16""»]|[$$ 0 => A tape]}
WriteConsoleStringCrLf(str : String)
<MI 21492 MOVEA.L A7,A0> {[«16""»]|[$$ 0 => A tape]}
<MI 21494 LEA.L 0x20500,A1> {[«16""»]|[$$ 0 => A tape]}
<BlockMove 19,A1,A0> {[«16""»]|[$$ 0 => A tape]}
<POP 214a0-214a2 StackAdj> Δ-4 {[«16""»]|[$$ 0 => A tape]|[-4-]}
<Lit 0x214a2> {[«16""»]|[$$ 0 => A tape]|[$$…]}
<Pointer.sp 0x214a2 4> Δ-4
<Const 0x214a6 0x1.2> Δ-2
<Const 0x214a8 0x13.2> Δ-2
<Call 0x214ac 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 214ae-214b0 StackAdj> Δ+8
<Call 0x214b0 0x103e0> {[«16""»]|[$$ 0 => A tape]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 214b2-214b3 StackAdj> Δ+24 ↓ {}
<Blob 0x214b3 [22] @> Δ-22 {[«22""»]}
<POP 214c2-214c4 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x214c4 21> {[«22""»]|[-4-]|[$$Please enter 0 or 1:_]}
<Const 0x214d2 0x0.4> Δ-4 {[«22""»]|[-4-]|[$$Please enter 0 or 1:_]|[##0]}
<Const 0x214d6 0x1.4> Δ-4 {[«22""»]|[-4-]|[$$Please enter 0 or 1:_]|[##0]|[##1]}
<Call 0x214da 0x103ec> {[«22""»]|[-4-]|[$$Please enter 0 or 1:_]|[##0]|[##1]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 214e0-214e4 StackAdj> Δ+12 {[«22""»]|[-4-]}
<MI 214e4 MOVE.L (A7)+,D7> Δ+4 {[«22""»]}
<POP 214e6-214ea StackAdj> Δ+22 {}
<MI 214ea TST.L D7> {}
<MI 214ec BNE 0x214f8> {}
<POP 214ee-214f8 Naked> Σ0 Δ-4 →0x21500
<MI 214ee MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x214f2 0x211dc> {[4, '(A6+0x8)']}
<MI 214f6 BRA 0x21500> {[4, '(A6+0x8)']}
<POP 214f8-21500 Naked> Σ0 Δ-4 ↓ ←0x2144a
<MI 214f8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x214fc 0x21046> {[4, '(A6+0x8)']}
<POP 21500-21502 Naked> Σ-4 Δ+4 ↓ ←0x214ee
<POP 21500-21502 StackAdj> Δ+4 {}
<POP 21502-2150a Epilogue> Σ0
@ 2150a
START
<POP 2150a--0001 Body>
<POP 2150a-21514 Prologue> Σ0
<POP 21514-2151a Naked> Σ0 ↓
<Call 0x21514 0x10400> {}
FSCALL_10400
<POP 2151a-21526 Naked> Σ0 ↓ →0x2155a ←0x21526 ←0x21566 ←0x21652
<POP 2151a-2151c StackAdj> Δ-2 {[-2-]}
<Call 0x2151c 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 21522 TST.B (A7)+> Δ+2 {}
<MI 21524 BEQ 0x2155a> {}
<POP 21526-2155a Naked> Σ0 →0x2151a
<Blob 0x21526 [48] @> Δ-48 {[«48""»]}
<POP 21538-2153a StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x2153a 47> {[«48""»]|[$$This program will not operate on a Coprocessor.]}
<Call 0x2154e 0x103e0> {[«48""»]|[$$This program will not operate on a Coprocessor.]}
WriteConsoleStringCrLf(str : String)
<POP 21554-21558 StackAdj> Δ+52 {}
<MI 21558 BRA 0x2151a> {}
<POP 2155a-21566 Naked> Σ0 ↓ →0x21594 ←0x2151a
<POP 2155a-2155c StackAdj> Δ-2 {[-2-]}
<Call 0x2155c 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 21562 TST.B (A7)+> Δ+2 {}
<MI 21564 BEQ 0x21594> {}
<POP 21566-21594 Naked> Σ0 →0x2151a
<Blob 0x21566 [46] @> Δ-46 {[«46""»]}
<POP 21572-21574 StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x21574 46> {[«46""»]|[$$This program will not operate on a 400 system.]}
<Call 0x21588 0x103e0> {[«46""»]|[$$This program will not operate on a 400 system.]}
WriteConsoleStringCrLf(str : String)
<POP 2158e-21592 StackAdj> Δ+50 {}
<MI 21592 BRA 0x2151a> {}
<POP 21594-2163e Naked> Σ0 ↓ →0x21652 ←0x2155a
<Call 0x21594 0x20588> {}
<Const 0x21598 0x2386e.4> Δ-4 {[##145518]}
<Const 0x2159e 0x23870.4> Δ-4 {[##145518]|[##145520]}
<Const 0x215a4 0x23874.4> Δ-4 {[##145518]|[##145520]|[##145524]}
<Const 0x215aa 0x23878.4> Δ-4 {[##145518]|[##145520]|[##145524]|[##145528]}
<Const 0x215b0 0x2387c.4> Δ-4 {[##145518]|[##145520]|[##145524]|[##145528]|[##145532]}
<Const 0x215b6 0x23882.4> Δ-4 {[##145518]|[##145520]|[##145524]|[##145528]|[##145532]|[##145538]}
<Const 0x215bc 0x23880.4> Δ-4 {[##145518]|[##145520]|[##145524]|[##145528]|[##145532]|[##145538]|[##145536]}
<Call 0x215c2 0x208d0> {[##145518]|[##145520]|[##145524]|[##145528]|[##145532]|[##145538]|[##145536]}
<POP 215c6-215ca StackAdj> Δ+28 {}
<MI 215ca MOVE.W 0x2386e,D0> {}
<POP 0x215d0 LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 215d4 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Blob 0x215d6 [4] 0x23874> Δ-4 {[2, 'D0']|[«4»]}
<Blob 0x215dc [4] 0x23878> Δ-4 {[2, 'D0']|[«4»]|[«4»]}
<Blob 0x215e2 [4] 0x2387c> Δ-4 {[2, 'D0']|[«4»]|[«4»]|[«4»]}
<Blob 0x215e8 [4] 0x23882> Δ-4 {[2, 'D0']|[«4»]|[«4»]|[«4»]|[«4»]}
<MI 215ee MOVE.B 0x23880,D0> {[2, 'D0']|[«4»]|[«4»]|[«4»]|[«4»]}
<MI 215f4 EXTB.W D0> {[2, 'D0']|[«4»]|[«4»]|[«4»]|[«4»]}
<POP 0x215f6 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D0']|[«4»]|[«4»]|[«4»]|[«4»]}
<MI 215fa MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']|[«4»]|[«4»]|[«4»]|[«4»]|[2, 'D0']}
<Call 0x215fc 0x20c66> {[2, 'D0']|[«4»]|[«4»]|[«4»]|[«4»]|[2, 'D0']}
<POP 21600-21604 StackAdj> Δ+20 {}
<Blob 0x21604 [4] 0x23870> Δ-4 {[«4»]}
<Call 0x2160a 0x21426> {[«4»]}
<POP 2160e-21610 StackAdj> Δ+4 {}
<Const 0x21610 0x23870.4> Δ-4 {[##145520]}
<Call 0x21616 0x102bc> {[##145520]}
FreeString(VAR a : String)
<POP 2161c-2161e StackAdj> Δ+4 {}
<Const 0x2161e 0x23886.4> Δ-4 {[##145542]}
<Const 0x21624 0x23888.4> Δ-4 {[##145542]|[##145544]}
<Call 0x2162a 0x10200> {[##145542]|[##145544]}
KC00_GetBootDev(VAR a : Byte; VAR b : Word)
<POP 21630-21632 StackAdj> Δ+8 {}
<MI 21632 MOVE.B 0x23886,D0> {}
<MI 21638 CMPI.B #0x02,D0> {}
<MI 2163c BNE 0x21652> {}
<POP 2163e-21652 Naked> Σ0 ↓
<Call 0x2163e 0x10398> {}
FSCALL_10398
<MI 21644 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x21646 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x2164a 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 21650-21652 StackAdj> Δ+6 {}
<POP 21652-21656 Naked> Σ0 →0x2151a ←0x21594
<MI 21652 BRA 0x2151a> {}
@ 2166a
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 2166a-216d2 Body>
<POP 2166a-21680 Prologue> Σ0 ↓
<POP 21680-216ca Naked> Σ0 ↓
<Blob 0x21680 [14] @> Δ-14 {[«14""»]}
<Const 0x2168c 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 21690-21692 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x21692 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 216a4-216a6 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 216a6 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 216aa EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 216ac EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 216ae MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x216b0 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 216b6-216b8 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x216b8 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 216be-216c0 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x216c0 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 216c6-216ca StackAdj> Δ+20 {}
<POP 216ca-216d2 Epilogue> Σ0
@ 21726
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 21726-21862 Body>
<POP 21726-2173c Prologue> Σ0 ↓
<POP 2173c-21752 RegCacheLoad> Σ0 ↓
<POP 21752-217b2 Naked> Σ0 ↓ →0x217fa
<Call 0x21752 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21758 [18] @> Δ-18 {[«18""»]}
<POP 21764-21766 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21766 18> {[«18""»]|[$$Experiment error :]}
<Call 0x21772 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 21774-21775 StackAdj> Δ+22 ↓ {}
<Blob 0x21775 [14] @> Δ-14 {[«14""»]}
<POP 21784-21786 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21786 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 21790-21792 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 21792 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x21796 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 2179c-2179e StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x2179e 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 217a4-217a6 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x217a6 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 217a8-217aa StackAdj> Δ+18 {}
<MI 217aa MOVEA.L (A6+0xa),A0> {}
<MI 217ae CMPA.W #0x01,A0> {}
<MI 217b0 BEQ 0x217fa> {}
<POP 217b2-217fa Naked> Σ0 ↓
<Blob 0x217b2 [14] @> Δ-14 {[«14""»]}
<Blob 0x217c2 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 217d2-217d4 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x217d4 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 217de-217e0 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x217e0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x217e0 12> Δ-4
<Const 0x217e4 0x1.2> Δ-2
<Const 0x217e6 0x1e.2> Δ-2
<Call 0x217e8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 217ea-217ec StackAdj> Δ+8
<Call 0x217ec 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 217f2-217f4 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x217f4 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 217f6-217fa StackAdj> Δ+48 {}
<POP 217fa-2185a Naked> Σ0 ↓ ←0x21752
<Blob 0x217fa [14] @> Δ-14 {[«14""»]}
<POP 2180a-2180c StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2180c 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 21816-21818 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 21818 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x2181c 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 21822-21824 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x21824 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2182a-2182c StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2182c 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2182e-2182f StackAdj> Δ+18 ↓ {}
<Blob 0x2182f [24] @> Δ-24 {[«24""»]}
<Const 0x2183e 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 21842-21844 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x21844 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x21852 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 21858-2185a StackAdj> Δ+30 {}
<POP 2185a-21862 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.32f2562c29c68d1e 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 15 0a | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 38 9a | 8 | .PTR 0x2389a 00020010 code.end: 00020010 00 02 18 62 | b | .PTR 0x21862 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 16 6a | j | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 17 26 | & | .CODE EXP_FAIL 00020020 00 00 00 00 | | .CONST 0x00000000 00020024 exp_init_done: 00020024 00 | | .CONST 0x00 00020025 00 | | .CONST 0x00 00020026 00 00 | | .CONST 0x0000 00020028 00 00 | | .CONST 0x0000 0002002a 00 00 | | .XXX[0x2] 0002002c 00 00 | | .CONST 0x0000 0002002e 00 00 | | .CONST 0x0000 00020030 00 00 | | .CONST 0x0000 00020032 00 00 00 00 00 00 | | .XXX[0x6] 00020038 00 00 00 00 00 00 00 00 | | .BLANK 00[0xb0] 000200e8 00 00 00 00 | | .XXX[0x4] 000200ec 00 00 00 00 | | .PTR 0x0 000200f0 is_open_ERROR_LOG: 000200f0 00 | | .CONST 0x0 000200f1 write_error_ERROR_LOG: 000200f1 00 | | .CONST 0x0 000200f2 00 00 00 00 | | .CONST 0x00000000 000200f6 00 00 00 00 | | .CONST 0x00000000 000200fa 00 | | .CONST 0x00 000200fb 00 | | .CONST 0x00 000200fc file_ERROR_LOG: 000200fc 00 00 00 00 | | .CONST 0x00000000 00020100 00 00 00 00 | | .CONST 0x00000000 00020104 00 00 | | .CONST 0x0000 00020106 00 00 | | .CONST 0x0000 00020108 somekindoffsflag: 00020108 00 | | .CONST 0x00 00020109 00 | | .CONST 0x00 0002010a 40 28 23 29 52 44 |@(#)RD | .XXX[0x6] 00020110 4d 2c 31 2e 31 2c 39 32 |M,1.1,92| .XXX[0x18] 00020118 2f 30 37 2f 30 39 2c 31 |/07/09,1| 00020120 32 3a 30 30 3a 30 30 5c |2:00:00\| 00020128 54 6f 6f 20 6d 61 6e 79 |Too many| .TXT 'Too many defects (2048) to handle ' 0002014a 41 64 64 69 6e 67 20 64 |Adding d| .TXT 'Adding defect at cylinder =>_ ' 00020168 2c 20 74 72 61 63 6b 20 |, track | .TXT ', track =>_ ' 00020174 2c 20 73 65 |, se | .TXT ', se' 00020178 63 74 6f 72 |ctor | .TXT 'ctor' 0002017c 20 3d 3e 5f | =>_ | .TXT ' =>_' 00020180 43 61 6e 27 74 20 72 65 |Can't re| .TXT 'Can't read controller EEPROM at address :_' 000201aa 45 6e 74 65 72 20 75 6e |Enter un| .TXT 'Enter unit number of virgin disk :_ ' 000201ce 45 6e 74 65 72 20 48 44 |Enter HD| .TXT 'Enter HDA serial number as shown on HDA :_' 000201f8 45 6e 74 65 72 20 74 68 |Enter th| .TXT 'Enter the number of bytes-per-sector as jumpered at the disk :_ ' 00020238 20 73 65 63 74 6f 72 73 | sectors| .TXT ' sectors and is sector interleaved' 0002025a 20 73 65 63 74 6f 72 73 | sectors| .TXT ' sectors and is not sector interleaved' 00020280 49 73 20 74 68 69 73 20 |Is this | .TXT 'Is this information correct ' 0002029c 55 6e 69 74 5f 20 |Unit_ | .TXT 'Unit_ ' 000202a2 20 64 6f 65 | doe | .TXT ' doe' 000202a6 73 20 6e 6f |s no | .TXT 's no' 000202aa 74 20 65 78 |t ex | .TXT 't ex' 000202ae 69 73 74 2e |ist. | .TXT 'ist.' 000202b2 54 68 69 73 20 64 72 69 |This dri| .TXT 'This drive has_ ' 000202c2 20 63 79 6c | cyl | .TXT ' cyl' 000202c6 69 6e 64 65 |inde | .TXT 'inde' 000202ca 72 73 2c 5f |rs,_ | .TXT 'rs,_' 000202ce 20 68 65 61 | hea | .TXT ' hea' 000202d2 64 73 2c 5f |ds,_ | .TXT 'ds,_' 000202d6 43 6f 6e 74 72 6f 6c 6c |Controll| .TXT 'Controller must be reconfigured. Run SLEW. ' 00020302 43 6f 6e 74 72 6f 6c 6c |Controll| .TXT 'Controller must be reconfigured ' 00020322 44 69 73 6b 20 65 |Disk e | .XXX[0x6] 00020328 72 72 6f 72 20 6f 6e 20 |rror on | .XXX[0x18] 00020330 64 65 66 65 63 74 20 6d |defect m| 00020338 61 70 20 72 65 61 64 2e |ap read.| 00020340 53 79 6e 63 20 62 79 74 |Sync byt| .TXT 'Sync byte incorrect in defect map.' 00020362 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder number incorrect in defect map.' 0002038a 54 72 61 63 6b 20 6e 75 |Track nu| .TXT 'Track number incorrect in defect map. ' 000203b0 4c 61 73 74 20 77 6f 72 |Last wor| .TXT 'Last word incorrect in defect map.' 000203d2 43 61 6e 27 74 20 |Can't | .XXX[0x6] 000203d8 72 65 61 64 20 64 65 66 |read def| .XXX[0x68] 000203e0 65 63 74 20 6d 61 70 20 |ect map | 000203e8 6f 6e 20 74 72 61 63 6b |on track| 000203f0 20 30 20 6f 72 20 74 72 | 0 or tr| 000203f8 61 63 6b 20 31 2e 20 54 |ack 1. T| 00020400 68 69 73 20 69 73 20 6e |his is n| 00020408 6f 6e 2d 66 61 74 61 6c |on-fatal| 00020410 43 61 6e 27 74 20 72 65 |Can't re| 00020418 61 64 20 64 65 66 65 63 |ad defec| 00020420 74 20 6d 61 70 20 61 74 |t map at| 00020428 20 63 79 6c 69 6e 64 65 | cylinde| 00020430 72 20 3d 3e 5f 20 20 2c |r =>_ ,| 00020438 74 72 61 63 6b 20 3d 3e |track =>| 00020440 5f 20 |_ | .XXX[0x2] 00020442 20 44 65 66 65 63 74 73 | Defects| .TXT ' Defects found. ' 00020452 45 6e 74 65 72 20 75 6e |Enter un| .TXT 'Enter unit number of disk with DFS to write defect info to :_ ' 00020490 2e 44 45 46 |.DEF | .TXT '.DEF' 00020494 45 43 54 53 |ECTS | .TXT 'ECTS' 00020498 45 6e 74 65 72 20 74 61 |Enter ta| .TXT 'Enter tape drive unit number :_ ' 000204b8 2e 44 45 46 |.DEF | .TXT '.DEF' 000204bc 45 43 54 53 |ECTS | .TXT 'ECTS' 000204c0 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to save this defect information on: ' 000204f0 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => A tape ' 00020500 20 20 20 20 31 20 3d 3e | 1 =>| .XXX[0x10] 00020508 20 41 20 44 46 53 20 64 | A DFS d| 00020510 69 73 6b 20 |isk | .XXX[0x4] 00020514 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter 0 or 1:_ ' 0002052a 54 68 69 73 20 70 72 6f |This pro| .TXT 'This program will not operate on a Coprocessor. ' 0002055a 54 68 69 73 20 70 72 6f |This pro| .TXT 'This program will not operate on a 400 system.' 00020588 ; -------------------------------------------------------------------------------------- 00020588 ; OMSI PASCAL Function 00020588 ; -------------------------------------------------------------------------------------- 00020588 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 0002058c bf d5 | | CMPA.L (A5),A7 0002058e 62 06 |b | BHI 0x20596 00020590 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020594 4e 76 |Nv | TRAPV 00020596 de fc 00 1c | | ADDA.W #0x1c,A7 0002059a 48 e7 81 80 |H | MOVEM.L A0+D7+D0,-(A7) 0002059e 7e 00 |~ | MOVEQ.L #0x00,D7 000205a0 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 000205a6 63 02 |c | BLS 0x205aa 000205a8 4e 4f |NO | TRAP #15 000205aa 20 07 | | MOVE.L D7,D0 000205ac e5 80 | | ASL.L #0x2,D0 000205ae 41 f9 00 02 18 62 |A b | LEA.L 0x21862,A0 000205b4 00 30 00 80 08 08 | 0 | ORI.B #0x80,(A0+D0.L+#0x8) 000205ba 02 30 00 bf 08 08 | 0 | ANDI.B #0xbf,(A0+D0.L+#0x8) 000205c0 02 70 c0 00 08 08 | p | ANDI.W #0xc000,(A0+D0.L+#0x8) 000205c6 42 30 08 0a |B0 | CLR.B (A0+D0.L+#0xa) 000205ca 42 30 08 0b |B0 | CLR.B (A0+D0.L+#0xb) 000205ce 52 87 |R | ADDQ.L #0x1,D7 000205d0 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 000205d6 6f c8 |o | BLE 0x205a0 000205d8 42 b9 00 02 38 6a |B 8j | CLR.L 0x2386a 000205de 4c df 01 81 |L | MOVEM.L (A7)+,D0+D7+A0 000205e2 4e 5e |N^ | UNLK A6 000205e4 4e 75 |Nu | RTS 000205e6 ; -------------------------------------------------------------------------------------- 000205e6 ; OMSI PASCAL Function 000205e6 ; <LVAR 0x010 4(r)> 000205e6 ; <LVAR 0x00c 4(r)> 000205e6 ; <LVAR 0x008 4(r)> 000205e6 ; -------------------------------------------------------------------------------------- 000205e6 4e 56 ff 7a |NV z | LINK.W A6,#0xff7a 000205ea bf d5 | | CMPA.L (A5),A7 000205ec 62 06 |b | BHI 0x205f4 000205ee 44 fc 00 02 |D | MOVE.W #0x2,CCR 000205f2 4e 76 |Nv | TRAPV 000205f4 de fc 00 82 | | ADDA.W #0x82,A7 000205f8 48 e7 f1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7) 000205fc 45 f9 00 02 38 6a |E 8j | LEA.L 0x2386a,A2 00020602 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020608 49 f9 00 02 18 62 |I b | LEA.L 0x21862,A4 0002060e 74 01 |t | MOVEQ.L #0x01,D2 00020610 76 0c |v | MOVEQ.L #0x0c,D3 00020612 20 12 | | MOVE.L (A2),D0 00020614 0c 80 00 00 08 00 | | CMPI.L #0x00000800,D0 0002061a 66 30 |f0 | BNE 0x2064c 0002061c 9e fc 00 22 | " | SUBA.W #0x22,A7 00020620 20 4f | O | MOVEA.L A7,A0 00020622 43 fa fb 04 |C | LEA.L 0x20128,A1 00020626 70 20 |p | MOVEQ.L #0x20,D0 00020628 10 d9 | | MOVE.B (A1)+,(A0)+ 0002062a 51 c8 ff fc |Q | DBF D0,0x20628 0002062e 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020632 59 4f |YO | SUBQ.L #0x4,A7 00020634 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020638 3f 02 |? | MOVE.W D2,-(A7) 0002063a 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 0002063e 4e 93 |N | JSR (A3) 00020640 50 4f |PO | ADDQ.L #0x8,A7 00020642 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020648 de fc 00 28 | ( | ADDA.W #0x28,A7 0002064c 2f 12 |/ | MOVE.L (A2),-(A7) 0002064e 53 97 |S | SUBQ.L #0x1,(A7) 00020650 7e 00 |~ | MOVEQ.L #0x00,D7 00020652 be 97 | | CMP.L (A7),D7 00020654 6e 42 |nB | BGT 0x20698 00020656 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 0002065c 63 02 |c | BLS 0x20660 0002065e 4e 4f |NO | TRAP #15 00020660 20 07 | | MOVE.L D7,D0 00020662 e5 80 | | ASL.L #0x2,D0 00020664 20 4c | L | MOVEA.L A4,A0 00020666 42 81 |B | CLR.L D1 00020668 32 30 08 08 |20 | MOVE.W (A0+D0.L+#0x8),D1 0002066c e5 49 | I | LSL.W #0x2,D1 0002066e e4 49 | I | LSR.W #0x2,D1 00020670 b2 ae 00 10 | | CMP.L (A6+0x10),D1 00020674 66 1e |f | BNE 0x20694 00020676 42 81 |B | CLR.L D1 00020678 12 30 08 0a | 0 | MOVE.B (A0+D0.L+#0xa),D1 0002067c b2 ae 00 0c | | CMP.L (A6+0xc),D1 00020680 66 12 |f | BNE 0x20694 00020682 42 81 |B | CLR.L D1 00020684 12 30 08 0b | 0 | MOVE.B (A0+D0.L+#0xb),D1 00020688 b2 ae 00 08 | | CMP.L (A6+0x8),D1 0002068c 66 06 |f | BNE 0x20694 0002068e 58 4f |XO | ADDQ.L #0x4,A7 00020690 60 00 00 da |` | BRA 0x2076c 00020694 52 87 |R | ADDQ.L #0x1,D7 00020696 68 ba |h | BVC 0x20652 00020698 9e fc 00 1a | | SUBA.W #0x1a,A7 0002069c 20 4f | O | MOVEA.L A7,A0 0002069e 43 fa fa aa |C | LEA.L 0x2014a,A1 000206a2 70 1c |p | MOVEQ.L #0x1c,D0 000206a4 10 d9 | | MOVE.B (A1)+,(A0)+ 000206a6 51 c8 ff fc |Q | DBF D0,0x206a4 000206aa 9e c3 | | SUBA.W D3,A7 000206ac 20 4f | O | MOVEA.L A7,A0 000206ae 43 fa fa b8 |C | LEA.L 0x20168,A1 000206b2 70 0a |p | MOVEQ.L #0x0a,D0 000206b4 10 d9 | | MOVE.B (A1)+,(A0)+ 000206b6 51 c8 ff fc |Q | DBF D0,0x206b4 000206ba 2f 3a fa c0 |/: | MOVE.L 0x2017c,-(A7) 000206be 2f 3a fa b8 |/: | MOVE.L 0x20178,-(A7) 000206c2 2f 3a fa b0 |/: | MOVE.L 0x20174,-(A7) 000206c6 51 4f |QO | SUBQ.L #0x8,A7 000206c8 48 6f 00 20 |Ho | PEA.L (A7+0x20) 000206cc 3f 02 |? | MOVE.W D2,-(A7) 000206ce 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 000206d2 4e 93 |N | JSR (A3) 000206d4 2e ae 00 10 |. | MOVE.L (A6+0x10),(A7) 000206d8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000206de 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 000206e2 3f 02 |? | MOVE.W D2,-(A7) 000206e4 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 000206e8 4e 93 |N | JSR (A3) 000206ea 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 000206ee 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000206f4 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000206f8 3f 02 |? | MOVE.W D2,-(A7) 000206fa 3f 03 |? | MOVE.W D3,-(A7) 000206fc 4e 93 |N | JSR (A3) 000206fe 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00020702 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020708 58 4f |XO | ADDQ.L #0x4,A7 0002070a 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 00020710 de fc 00 18 | | ADDA.W #0x18,A7 00020714 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002071a de fc 00 3a | : | ADDA.W #0x3a,A7 0002071e 20 12 | | MOVE.L (A2),D0 00020720 0c 80 00 00 07 ff | | CMPI.L #0x000007ff,D0 00020726 63 02 |c | BLS 0x2072a 00020728 4e 4f |NO | TRAP #15 0002072a e5 80 | | ASL.L #0x2,D0 0002072c 20 4c | L | MOVEA.L A4,A0 0002072e 22 2e 00 10 |". | MOVE.L (A6+0x10),D1 00020732 0c 81 00 00 3f ff | ? | CMPI.L #0x00003fff,D1 00020738 63 02 |c | BLS 0x2073c 0002073a 4e 4f |NO | TRAP #15 0002073c 02 70 c0 00 08 08 | p | ANDI.W #0xc000,(A0+D0.L+#0x8) 00020742 83 70 08 08 | p | OR.W D1,(A0+D0.L+#0x8) 00020746 22 2e 00 0c |". | MOVE.L (A6+0xc),D1 0002074a 0c 81 00 00 00 ff | | CMPI.L #0x000000ff,D1 00020750 63 02 |c | BLS 0x20754 00020752 4e 4f |NO | TRAP #15 00020754 11 81 08 0a | | MOVE.B D1,(A0+D0.L+#0xa) 00020758 22 2e 00 08 |". | MOVE.L (A6+0x8),D1 0002075c 0c 81 00 00 00 ff | | CMPI.L #0x000000ff,D1 00020762 63 02 |c | BLS 0x20766 00020764 4e 4f |NO | TRAP #15 00020766 11 81 08 0b | | MOVE.B D1,(A0+D0.L+#0xb) 0002076a 52 92 |R | ADDQ.L #0x1,(A2) 0002076c 4c df 1f 8f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3+A4 00020770 4e 5e |N^ | UNLK A6 00020772 4e 75 |Nu | RTS 00020774 ; -------------------------------------------------------------------------------------- 00020774 ; OMSI PASCAL Function 00020774 ; <LVAR 0x00a 1(rw)> 00020774 ; <LVAR 0x008 2(r)> 00020774 ; <LVAR -0x008 @ 2(r)> 00020774 ; <LVAR -0x00a @> 00020774 ; <LVAR -0x00c 2(r)> 00020774 ; <LVAR -0x00e 2(r)> 00020774 ; <LVAR -0x010 2(w)> 00020774 ; <LVAR -0x012 2(r)> 00020774 ; <LVAR -0x014 2(r)> 00020774 ; <LVAR -0x016 2(w)> 00020774 ; <LVAR -0x018 2(r)> 00020774 ; <LVAR -0x01a @ 2(r)> 00020774 ; -------------------------------------------------------------------------------------- 00020774 4e 56 ff cc |NV | LINK.W A6,#0xffcc 00020778 bf d5 | | CMPA.L (A5),A7 0002077a 62 06 |b | BHI 0x20782 0002077c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020780 4e 76 |Nv | TRAPV 00020782 de fc 00 1a | | ADDA.W #0x1a,A7 00020786 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 0002078a 72 03 |r | MOVEQ.L #0x03,D1 0002078c 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 00020790 42 6e ff e8 |Bn | CLR.W (A6-0x18) 00020794 3d 7c 00 02 ff ea |=| | MOVE.W #0x2,(A6-0x16) 0002079a 42 6e ff ec |Bn | CLR.W (A6-0x14) 0002079e 42 6e ff ee |Bn | CLR.W (A6-0x12) 000207a2 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 000207a6 e1 40 | @ | ASL.W #0x8,D0 000207a8 3d 40 ff f0 |=@ | MOVE.W D0,(A6-0x10) 000207ac 42 6e ff f2 |Bn | CLR.W (A6-0xe) 000207b0 42 6e ff f4 |Bn | CLR.W (A6-0xc) 000207b4 48 6e ff e6 |Hn | PEA.L (A6-0x1a) 000207b8 41 ee ff f8 |A | LEA.L (A6-0x8),A0 000207bc 2f 08 |/ | MOVE.L A0,-(A7) 000207be 3f 01 |? | MOVE.W D1,-(A7) 000207c0 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000207c6 50 4f |PO | ADDQ.L #0x8,A7 000207c8 3e 81 |> | MOVE.W D1,(A7) 000207ca 48 6e ff f6 |Hn | PEA.L (A6-0xa) 000207ce 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000207d4 5c 4f |\O | ADDQ.L #0x6,A7 000207d6 42 2e 00 0a |B. | CLR.B (A6+0xa) 000207da 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0 000207de 0c 40 00 01 | @ | CMPI.W #0x0001,D0 000207e2 66 04 |f | BNE 0x207e8 000207e4 52 2e 00 0a |R. | ADDQ.B #0x1,(A6+0xa) 000207e8 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 000207ec 4e 5e |N^ | UNLK A6 000207ee 4e 75 |Nu | RTS 000207f0 ; -------------------------------------------------------------------------------------- 000207f0 ; OMSI PASCAL Function 000207f0 ; <LVAR 0x010 4(r)> 000207f0 ; <LVAR 0x00c 4(r)> 000207f0 ; <LVAR 0x008 4(r)> 000207f0 ; <LVAR -0x002 @ 1(r)> 000207f0 ; <LVAR -0x004 @ 2(r)> 000207f0 ; <LVAR -0x006 2(r)> 000207f0 ; <LVAR -0x008 2(w)> 000207f0 ; <LVAR -0x00a 2(w)> 000207f0 ; <LVAR -0x00c 2(r)> 000207f0 ; <LVAR -0x00e 2(r)> 000207f0 ; <LVAR -0x010 2(w)> 000207f0 ; <LVAR -0x012 2(r)> 000207f0 ; <LVAR -0x014 @ 2(r)> 000207f0 ; -------------------------------------------------------------------------------------- 000207f0 4e 56 ff 9c |NV | LINK.W A6,#0xff9c 000207f4 bf d5 | | CMPA.L (A5),A7 000207f6 62 06 |b | BHI 0x207fe 000207f8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000207fc 4e 76 |Nv | TRAPV 000207fe de fc 00 50 | P | ADDA.W #0x50,A7 00020802 48 e7 e0 80 |H | MOVEM.L A0+D2+D1+D0,-(A7) 00020806 74 03 |t | MOVEQ.L #0x03,D2 00020808 42 6e ff ec |Bn | CLR.W (A6-0x14) 0002080c 42 6e ff ee |Bn | CLR.W (A6-0x12) 00020810 3d 7c 00 02 ff f0 |=| | MOVE.W #0x2,(A6-0x10) 00020816 42 6e ff f2 |Bn | CLR.W (A6-0xe) 0002081a 42 6e ff f4 |Bn | CLR.W (A6-0xc) 0002081e 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00020822 e1 80 | | ASL.L #0x8,D0 00020824 06 80 00 00 00 0e | | ADDI.L #0x0000000e,D0 0002082a 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00020830 63 02 |c | BLS 0x20834 00020832 4e 4f |NO | TRAP #15 00020834 3d 40 ff f6 |=@ | MOVE.W D0,(A6-0xa) 00020838 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 0002083c 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00020842 63 02 |c | BLS 0x20846 00020844 4e 4f |NO | TRAP #15 00020846 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 0002084a 42 6e ff fa |Bn | CLR.W (A6-0x6) 0002084e 48 6e ff ec |Hn | PEA.L (A6-0x14) 00020852 41 ee ff fc |A | LEA.L (A6-0x4),A0 00020856 2f 08 |/ | MOVE.L A0,-(A7) 00020858 3f 02 |? | MOVE.W D2,-(A7) 0002085a 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00020860 50 4f |PO | ADDQ.L #0x8,A7 00020862 3e 82 |> | MOVE.W D2,(A7) 00020864 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020868 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 0002086e 5c 4f |\O | ADDQ.L #0x6,A7 00020870 4a 2e ff fe |J. | TST.B (A6-0x2) 00020874 66 40 |f@ | BNE 0x208b6 00020876 41 fa f9 32 |A 2 | LEA.L 0x201aa,A0 0002087a 70 14 |p | MOVEQ.L #0x14,D0 0002087c 3f 20 |? | MOVE.W -(A0),-(A7) 0002087e 51 c8 ff fc |Q | DBF D0,0x2087c 00020882 42 27 |B' | CLR.B -(A7) 00020884 51 4f |QO | SUBQ.L #0x8,A7 00020886 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002088a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002088e 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 00020892 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020898 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 0002089c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000208a2 58 4f |XO | ADDQ.L #0x4,A7 000208a4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000208aa 50 4f |PO | ADDQ.L #0x8,A7 000208ac 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000208b2 de fc 00 30 | 0 | ADDA.W #0x30,A7 000208b6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000208ba 30 2e ff fc |0. | MOVE.W (A6-0x4),D0 000208be 02 40 00 ff | @ | ANDI.W #0x00ff,D0 000208c2 42 81 |B | CLR.L D1 000208c4 32 00 |2 | MOVE.W D0,D1 000208c6 20 81 | | MOVE.L D1,(A0) 000208c8 4c df 01 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0 000208cc 4e 5e |N^ | UNLK A6 000208ce 4e 75 |Nu | RTS 000208d0 ; -------------------------------------------------------------------------------------- 000208d0 ; OMSI PASCAL Function 000208d0 ; <LVAR 0x020 4(r)> 000208d0 ; <LVAR 0x01c 4(r)> 000208d0 ; <LVAR 0x018 4(r)> 000208d0 ; <LVAR 0x014 4(r)> 000208d0 ; <LVAR 0x010 4(r)> 000208d0 ; <LVAR 0x00c 4(r)> 000208d0 ; <LVAR 0x008 4(r)> 000208d0 ; <LVAR -0x006 @ 4(r)> 000208d0 ; -------------------------------------------------------------------------------------- 000208d0 4e 56 ff 5e |NV ^ | LINK.W A6,#0xff5e 000208d4 bf d5 | | CMPA.L (A5),A7 000208d6 62 06 |b | BHI 0x208de 000208d8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000208dc 4e 76 |Nv | TRAPV 000208de de fc 00 96 | | ADDA.W #0x96,A7 000208e2 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000208e6 76 01 |v | MOVEQ.L #0x01,D3 000208e8 78 0c |x | MOVEQ.L #0x0c,D4 000208ea 7a 24 |z$ | MOVEQ.L #0x24,D5 000208ec 7c 10 || | MOVEQ.L #0x10,D6 000208ee 20 6e 00 20 | n | MOVEA.L (A6+0x20),A0 000208f2 9e c5 | | SUBA.W D5,A7 000208f4 22 4f |"O | MOVEA.L A7,A1 000208f6 45 fa f8 b2 |E | LEA.L 0x201aa,A2 000208fa 70 22 |p" | MOVEQ.L #0x22,D0 000208fc 12 da | | MOVE.B (A2)+,(A1)+ 000208fe 51 c8 ff fc |Q | DBF D0,0x208fc 00020902 51 4f |QO | SUBQ.L #0x8,A7 00020904 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020908 3f 03 |? | MOVE.W D3,-(A7) 0002090a 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 0002090e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020914 50 4f |PO | ADDQ.L #0x8,A7 00020916 48 78 00 00 |Hx | PEA.L 0x0 0002091a 48 78 00 0f |Hx | PEA.L 0xf 0002091e 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00020924 de c4 | | ADDA.W D4,A7 00020926 20 1f | | MOVE.L (A7)+,D0 00020928 0c 80 00 00 00 0f | | CMPI.L #0x0000000f,D0 0002092e 63 02 |c | BLS 0x20932 00020930 4e 4f |NO | TRAP #15 00020932 de c5 | | ADDA.W D5,A7 00020934 30 80 |0 | MOVE.W D0,(A0) 00020936 55 4f |UO | SUBQ.L #0x2,A7 00020938 3f 00 |? | MOVE.W D0,-(A7) 0002093a 4e ba fe 38 |N 8 | JSR 0x20774 0002093e 54 4f |TO | ADDQ.L #0x2,A7 00020940 12 1f | | MOVE.B (A7)+,D1 00020942 48 81 |H | EXTB.W D1 00020944 43 83 |C | CHK.W D3,D1 00020946 1e 01 | | MOVE.B D1,D7 00020948 66 62 |fb | BNE 0x209ac 0002094a 5d 4f |]O | SUBQ.L #0x6,A7 0002094c 20 4f | O | MOVEA.L A7,A0 0002094e 43 fa f9 4c |C L | LEA.L 0x2029c,A1 00020952 72 04 |r | MOVEQ.L #0x04,D1 00020954 10 d9 | | MOVE.B (A1)+,(A0)+ 00020956 51 c9 ff fc |Q | DBF D1,0x20954 0002095a 2f 3a f9 52 |/: R | MOVE.L 0x202ae,-(A7) 0002095e 2f 3a f9 4a |/: J | MOVE.L 0x202aa,-(A7) 00020962 2f 3a f9 42 |/: B | MOVE.L 0x202a6,-(A7) 00020966 2f 3a f9 3a |/: : | MOVE.L 0x202a2,-(A7) 0002096a 51 4f |QO | SUBQ.L #0x8,A7 0002096c 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00020970 3f 03 |? | MOVE.W D3,-(A7) 00020972 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00020976 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002097c 58 4f |XO | ADDQ.L #0x4,A7 0002097e 32 00 |2 | MOVE.W D0,D1 00020980 48 c1 |H | EXTW.L D1 00020982 2f 01 |/ | MOVE.L D1,-(A7) 00020984 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002098a 48 6f 00 10 |Ho | PEA.L (A7+0x10) 0002098e 3f 03 |? | MOVE.W D3,-(A7) 00020990 3f 06 |? | MOVE.W D6,-(A7) 00020992 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020998 50 4f |PO | ADDQ.L #0x8,A7 0002099a 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000209a0 de c4 | | ADDA.W D4,A7 000209a2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000209a8 de fc 00 1a | | ADDA.W #0x1a,A7 000209ac 4a 07 |J | TST.B D7 000209ae 67 00 ff 3e |g > | BEQ 0x208ee 000209b2 20 6e 00 1c | n | MOVEA.L (A6+0x1c),A0 000209b6 43 fa f8 40 |C @ | LEA.L 0x201f8,A1 000209ba 72 14 |r | MOVEQ.L #0x14,D1 000209bc 3f 21 |?! | MOVE.W -(A1),-(A7) 000209be 51 c9 ff fc |Q | DBF D1,0x209bc 000209c2 51 4f |QO | SUBQ.L #0x8,A7 000209c4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000209c8 3f 03 |? | MOVE.W D3,-(A7) 000209ca 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 000209ce 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000209d4 50 4f |PO | ADDQ.L #0x8,A7 000209d6 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 000209dc 58 4f |XO | ADDQ.L #0x4,A7 000209de 20 9f | | MOVE.L (A7)+,(A0) 000209e0 de fc 00 2a | * | ADDA.W #0x2a,A7 000209e4 32 00 |2 | MOVE.W D0,D1 000209e6 02 41 00 03 | A | ANDI.W #0x0003,D1 000209ea 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 000209ee 2f 08 |/ | MOVE.L A0,-(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 02 d0 |4< | MOVE.W #0x2d0,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 50 |HP | PEA.L (A0) 00020a02 4e ba fd ec |N | JSR 0x207f0 00020a06 de c4 | | ADDA.W D4,A7 00020a08 22 6e 00 14 |"n | MOVEA.L (A6+0x14),A1 00020a0c 2f 09 |/ | MOVE.L A1,-(A7) 00020a0e 34 00 |4 | MOVE.W D0,D2 00020a10 48 c2 |H | EXTW.L D2 00020a12 2f 02 |/ | MOVE.L D2,-(A7) 00020a14 34 3c 03 50 |4< P | MOVE.W #0x350,D2 00020a18 d4 41 | A | ADD.W D1,D2 00020a1a 48 c2 |H | EXTW.L D2 00020a1c 2f 02 |/ | MOVE.L D2,-(A7) 00020a1e 48 51 |HQ | PEA.L (A1) 00020a20 4e ba fd ce |N | JSR 0x207f0 00020a24 de c4 | | ADDA.W D4,A7 00020a26 24 6e 00 18 |$n | MOVEA.L (A6+0x18),A2 00020a2a 34 00 |4 | MOVE.W D0,D2 00020a2c 48 c2 |H | EXTW.L D2 00020a2e 2f 02 |/ | MOVE.L D2,-(A7) 00020a30 34 3c 01 d0 |4< | MOVE.W #0x1d0,D2 00020a34 d4 41 | A | ADD.W D1,D2 00020a36 48 c2 |H | EXTW.L D2 00020a38 2f 02 |/ | MOVE.L D2,-(A7) 00020a3a 48 52 |HR | PEA.L (A2) 00020a3c 4e ba fd b2 |N | JSR 0x207f0 00020a40 de c4 | | ADDA.W D4,A7 00020a42 34 00 |4 | MOVE.W D0,D2 00020a44 48 c2 |H | EXTW.L D2 00020a46 2f 02 |/ | MOVE.L D2,-(A7) 00020a48 34 3c 02 50 |4< P | MOVE.W #0x250,D2 00020a4c d4 41 | A | ADD.W D1,D2 00020a4e 48 c2 |H | EXTW.L D2 00020a50 2f 02 |/ | MOVE.L D2,-(A7) 00020a52 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020a56 4e ba fd 98 |N | JSR 0x207f0 00020a5a de c4 | | ADDA.W D4,A7 00020a5c 24 2e ff fa |$. | MOVE.L (A6-0x6),D2 00020a60 e1 82 | | ASL.L #0x8,D2 00020a62 d5 92 | | ADD.L D2,(A2) 00020a64 48 c0 |H | EXTW.L D0 00020a66 2f 00 |/ | MOVE.L D0,-(A7) 00020a68 50 41 |PA | ADDQ.W #0x8,D1 00020a6a 48 c1 |H | EXTW.L D1 00020a6c 2f 01 |/ | MOVE.L D1,-(A7) 00020a6e 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020a72 4e ba fd 7c |N | | JSR 0x207f0 00020a76 de c4 | | ADDA.W D4,A7 00020a78 26 6e 00 08 |&n | MOVEA.L (A6+0x8),A3 00020a7c 42 13 |B | CLR.B (A3) 00020a7e 20 2e ff fa | . | MOVE.L (A6-0x6),D0 00020a82 02 80 00 00 00 04 | | ANDI.L #0x00000004,D0 00020a88 67 02 |g | BEQ 0x20a8c 00020a8a 52 13 |R | ADDQ.B #0x1,(A3) 00020a8c 9e c6 | | SUBA.W D6,A7 00020a8e 20 4f | O | MOVEA.L A7,A0 00020a90 43 fa f8 20 |C | LEA.L 0x202b2,A1 00020a94 70 0e |p | MOVEQ.L #0x0e,D0 00020a96 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a98 51 c8 ff fc |Q | DBF D0,0x20a96 00020a9c 2f 3a f8 2c |/: , | MOVE.L 0x202ca,-(A7) 00020aa0 2f 3a f8 24 |/: $ | MOVE.L 0x202c6,-(A7) 00020aa4 2f 3a f8 1c |/: | MOVE.L 0x202c2,-(A7) 00020aa8 2f 3a f8 28 |/: ( | MOVE.L 0x202d2,-(A7) 00020aac 2f 3a f8 20 |/: | MOVE.L 0x202ce,-(A7) 00020ab0 51 4f |QO | SUBQ.L #0x8,A7 00020ab2 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 00020ab6 3f 03 |? | MOVE.W D3,-(A7) 00020ab8 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00020abc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020ac2 2e 92 |. | MOVE.L (A2),(A7) 00020ac4 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020aca 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00020ace 3f 03 |? | MOVE.W D3,-(A7) 00020ad0 3f 04 |? | MOVE.W D4,-(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 38 | o 8 | MOVEA.L (A7+0x38),A0 00020ade 2f 10 |/ | MOVE.L (A0),-(A7) 00020ae0 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020ae6 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00020aea 3f 03 |? | MOVE.W D3,-(A7) 00020aec 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00020af0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020af6 58 4f |XO | ADDQ.L #0x4,A7 00020af8 20 6f 00 44 | o D | MOVEA.L (A7+0x44),A0 00020afc 2f 10 |/ | MOVE.L (A0),-(A7) 00020afe 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020b04 58 4f |XO | ADDQ.L #0x4,A7 00020b06 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 00020b0c de fc 00 18 | | ADDA.W #0x18,A7 00020b10 28 5f |(_ | MOVEA.L (A7)+,A4 00020b12 de c5 | | ADDA.W D5,A7 00020b14 4a 13 |J | TST.B (A3) 00020b16 67 34 |g4 | BEQ 0x20b4c 00020b18 41 fa f7 40 |A @ | LEA.L 0x2025a,A0 00020b1c 70 10 |p | MOVEQ.L #0x10,D0 00020b1e 3f 20 |? | MOVE.W -(A0),-(A7) 00020b20 51 c8 ff fc |Q | DBF D0,0x20b1e 00020b24 59 4f |YO | SUBQ.L #0x4,A7 00020b26 2f 0c |/ | MOVE.L A4,-(A7) 00020b28 59 4f |YO | SUBQ.L #0x4,A7 00020b2a 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020b2e 3f 03 |? | MOVE.W D3,-(A7) 00020b30 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00020b34 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020b3a 50 4f |PO | ADDQ.L #0x8,A7 00020b3c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020b42 50 4f |PO | ADDQ.L #0x8,A7 00020b44 28 5f |(_ | MOVEA.L (A7)+,A4 00020b46 de fc 00 22 | " | ADDA.W #0x22,A7 00020b4a 60 32 |`2 | BRA 0x20b7e 00020b4c 41 fa f7 32 |A 2 | LEA.L 0x20280,A0 00020b50 70 12 |p | MOVEQ.L #0x12,D0 00020b52 3f 20 |? | MOVE.W -(A0),-(A7) 00020b54 51 c8 ff fc |Q | DBF D0,0x20b52 00020b58 59 4f |YO | SUBQ.L #0x4,A7 00020b5a 2f 0c |/ | MOVE.L A4,-(A7) 00020b5c 59 4f |YO | SUBQ.L #0x4,A7 00020b5e 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020b62 3f 03 |? | MOVE.W D3,-(A7) 00020b64 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 00020b68 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020b6e 50 4f |PO | ADDQ.L #0x8,A7 00020b70 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020b76 50 4f |PO | ADDQ.L #0x8,A7 00020b78 28 5f |(_ | MOVEA.L (A7)+,A4 00020b7a de fc 00 26 | & | ADDA.W #0x26,A7 00020b7e 58 4f |XO | ADDQ.L #0x4,A7 00020b80 2e 8c |. | MOVE.L A4,(A7) 00020b82 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020b88 9e fc 00 18 | | SUBA.W #0x18,A7 00020b8c 20 4f | O | MOVEA.L A7,A0 00020b8e 43 fa f6 f0 |C | LEA.L 0x20280,A1 00020b92 70 1a |p | MOVEQ.L #0x1a,D0 00020b94 10 d9 | | MOVE.B (A1)+,(A0)+ 00020b96 51 c8 ff fc |Q | DBF D0,0x20b94 00020b9a 5d 4f |]O | SUBQ.L #0x6,A7 00020b9c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020ba0 3f 03 |? | MOVE.W D3,-(A7) 00020ba2 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00020ba6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020bac 5c 4f |\O | ADDQ.L #0x6,A7 00020bae 1e 83 | | MOVE.B D3,(A7) 00020bb0 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00020bb6 5c 4f |\O | ADDQ.L #0x6,A7 00020bb8 4a 1f |J | TST.B (A7)+ 00020bba 66 5e |f^ | BNE 0x20c1a 00020bbc 9e fc 00 2c | , | SUBA.W #0x2c,A7 00020bc0 20 4f | O | MOVEA.L A7,A0 00020bc2 43 fa f7 12 |C | LEA.L 0x202d6,A1 00020bc6 70 2a |p* | MOVEQ.L #0x2a,D0 00020bc8 10 d9 | | MOVE.B (A1)+,(A0)+ 00020bca 51 c8 ff fc |Q | DBF D0,0x20bc8 00020bce 59 4f |YO | SUBQ.L #0x4,A7 00020bd0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020bd4 3f 03 |? | MOVE.W D3,-(A7) 00020bd6 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7) 00020bda 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020be0 50 4f |PO | ADDQ.L #0x8,A7 00020be2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020be8 de c6 | | ADDA.W D6,A7 00020bea 20 4f | O | MOVEA.L A7,A0 00020bec 43 fa f7 14 |C | LEA.L 0x20302,A1 00020bf0 70 1e |p | MOVEQ.L #0x1e,D0 00020bf2 10 d9 | | MOVE.B (A1)+,(A0)+ 00020bf4 51 c8 ff fc |Q | DBF D0,0x20bf2 00020bf8 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020bfc 59 4f |YO | SUBQ.L #0x4,A7 00020bfe 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020c02 3f 03 |? | MOVE.W D3,-(A7) 00020c04 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00020c08 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020c0e 50 4f |PO | ADDQ.L #0x8,A7 00020c10 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020c16 de fc 00 26 | & | ADDA.W #0x26,A7 00020c1a de fc 00 1c | | ADDA.W #0x1c,A7 00020c1e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020c22 9e fc 00 40 | @ | SUBA.W #0x40,A7 00020c26 22 4f |"O | MOVEA.L A7,A1 00020c28 45 fa f5 ce |E | LEA.L 0x201f8,A2 00020c2c 70 3e |p> | MOVEQ.L #0x3e,D0 00020c2e 12 da | | MOVE.B (A2)+,(A1)+ 00020c30 51 c8 ff fc |Q | DBF D0,0x20c2e 00020c34 51 4f |QO | SUBQ.L #0x8,A7 00020c36 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020c3a 3f 03 |? | MOVE.W D3,-(A7) 00020c3c 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 00020c40 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020c46 50 4f |PO | ADDQ.L #0x8,A7 00020c48 48 78 02 0c |Hx | PEA.L 0x20c 00020c4c 48 78 07 ff |Hx | PEA.L 0x7ff 00020c50 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00020c56 de c4 | | ADDA.W D4,A7 00020c58 20 9f | | MOVE.L (A7)+,(A0) 00020c5a de fc 00 40 | @ | ADDA.W #0x40,A7 00020c5e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020c62 4e 5e |N^ | UNLK A6 00020c64 4e 75 |Nu | RTS 00020c66 ; -------------------------------------------------------------------------------------- 00020c66 ; OMSI PASCAL Function 00020c66 ; <LVAR 0x01a 2(r)> 00020c66 ; <LVAR 0x016 4(r)> 00020c66 ; <LVAR 0x012 4(r)> 00020c66 ; <LVAR 0x00e 4(r)> 00020c66 ; <LVAR 0x00a 4(r)> 00020c66 ; <LVAR 0x008 1(r)> 00020c66 ; <LVAR -0x002 2(rw)> 00020c66 ; <LVAR -0x004 2(rw)> 00020c66 ; <LVAR -0x07e @> 00020c66 ; <LVAR -0x082 2(w)> 00020c66 ; <LVAR -0x084 2(w)> 00020c66 ; <LVAR -0x086 2(w)> 00020c66 ; <LVAR -0x094 2(r)> 00020c66 ; <LVAR -0x0a6 1(r)> 00020c66 ; <LVAR -0x0a8 1(r) 2(r)> 00020c66 ; <LVAR -0x0aa @ 2(r)> 00020c66 ; <LVAR -0x0ac 2(w)> 00020c66 ; <LVAR -0x0ae 2(w)> 00020c66 ; <LVAR -0x0b0 2(w)> 00020c66 ; <LVAR -0x0b2 2(r)> 00020c66 ; <LVAR -0x0b4 2(r)> 00020c66 ; <LVAR -0x0b6 2(w)> 00020c66 ; <LVAR -0x0b8 2(r)> 00020c66 ; <LVAR -0x0ba @ 2(r)> 00020c66 ; <LVAR -0x0bb @> 00020c66 ; <LVAR -0x0bc @ 1(r)> 00020c66 ; -------------------------------------------------------------------------------------- 00020c66 4e 56 fe c2 |NV | LINK.W A6,#0xfec2 00020c6a bf d5 | | CMPA.L (A5),A7 00020c6c 62 06 |b | BHI 0x20c74 00020c6e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020c72 4e 76 |Nv | TRAPV 00020c74 de fc 00 82 | | ADDA.W #0x82,A7 00020c78 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020c7c 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020c82 47 ee ff 50 |G P | LEA.L (A6-0xb0),A3 00020c86 49 ee ff 44 |I D | LEA.L (A6-0xbc),A4 00020c8a 42 6e ff 46 |Bn F | CLR.W (A6-0xba) 00020c8e 42 6e ff 48 |Bn H | CLR.W (A6-0xb8) 00020c92 3d 7c 00 02 ff 4a |=| J | MOVE.W #0x2,(A6-0xb6) 00020c98 42 6e ff 4c |Bn L | CLR.W (A6-0xb4) 00020c9c 42 6e ff 4e |Bn N | CLR.W (A6-0xb2) 00020ca0 30 2e 00 1a |0. | MOVE.W (A6+0x1a),D0 00020ca4 e1 40 | @ | ASL.W #0x8,D0 00020ca6 06 40 00 0a | @ | ADDI.W #0x000a,D0 00020caa 36 80 |6 | MOVE.W D0,(A3) 00020cac 2f 2e 00 16 |/. | MOVE.L (A6+0x16),-(A7) 00020cb0 53 97 |S | SUBQ.L #0x1,(A7) 00020cb2 70 00 |p | MOVEQ.L #0x00,D0 00020cb4 b0 97 | | CMP.L (A7),D0 00020cb6 62 0c |b | BHI 0x20cc4 00020cb8 22 17 |" | MOVE.L (A7),D1 00020cba 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 00020cc0 63 02 |c | BLS 0x20cc4 00020cc2 4e 4f |NO | TRAP #15 00020cc4 b0 6f 00 02 | o | CMP.W (A7+0x2),D0 00020cc8 63 06 |c | BLS 0x20cd0 00020cca 55 4f |UO | SUBQ.L #0x2,A7 00020ccc 60 00 03 2e |` . | BRA 0x20ffc 00020cd0 3f 00 |? | MOVE.W D0,-(A7) 00020cd2 3d 40 ff 52 |=@ R | MOVE.W D0,(A6-0xae) 00020cd6 2f 2e 00 12 |/. | MOVE.L (A6+0x12),-(A7) 00020cda 53 97 |S | SUBQ.L #0x1,(A7) 00020cdc 72 00 |r | MOVEQ.L #0x00,D1 00020cde b2 97 | | CMP.L (A7),D1 00020ce0 62 0c |b | BHI 0x20cee 00020ce2 24 17 |$ | MOVE.L (A7),D2 00020ce4 0c 82 00 00 ff ff | | CMPI.L #0x0000ffff,D2 00020cea 63 02 |c | BLS 0x20cee 00020cec 4e 4f |NO | TRAP #15 00020cee b2 6f 00 02 | o | CMP.W (A7+0x2),D1 00020cf2 63 06 |c | BLS 0x20cfa 00020cf4 55 4f |UO | SUBQ.L #0x2,A7 00020cf6 60 00 02 f6 |` | BRA 0x20fee 00020cfa 3f 01 |? | MOVE.W D1,-(A7) 00020cfc 30 17 |0 | MOVE.W (A7),D0 00020cfe 42 81 |B | CLR.L D1 00020d00 32 00 |2 | MOVE.W D0,D1 00020d02 e1 81 | | ASL.L #0x8,D1 00020d04 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 00020d0a 63 02 |c | BLS 0x20d0e 00020d0c 4e 4f |NO | TRAP #15 00020d0e 3d 41 ff 54 |=A T | MOVE.W D1,(A6-0xac) 00020d12 48 6e ff 46 |Hn F | PEA.L (A6-0xba) 00020d16 41 ee ff 56 |A V | LEA.L (A6-0xaa),A0 00020d1a 2f 08 |/ | MOVE.L A0,-(A7) 00020d1c 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00020d20 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00020d26 50 4f |PO | ADDQ.L #0x8,A7 00020d28 3e bc 00 03 |> | MOVE.W #0x3,(A7) 00020d2c 48 54 |HT | PEA.L (A4) 00020d2e 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00020d34 5c 4f |\O | ADDQ.L #0x6,A7 00020d36 4a 14 |J | TST.B (A4) 00020d38 66 5a |fZ | BNE 0x20d94 00020d3a 30 2e 00 1a |0. | MOVE.W (A6+0x1a),D0 00020d3e e1 40 | @ | ASL.W #0x8,D0 00020d40 36 80 |6 | MOVE.W D0,(A3) 00020d42 52 53 |RS | ADDQ.W #0x1,(A3) 00020d44 48 6e ff 46 |Hn F | PEA.L (A6-0xba) 00020d48 41 ee ff 82 |A | LEA.L (A6-0x7e),A0 00020d4c 2f 08 |/ | MOVE.L A0,-(A7) 00020d4e 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00020d52 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00020d58 50 4f |PO | ADDQ.L #0x8,A7 00020d5a 3e bc 00 03 |> | MOVE.W #0x3,(A7) 00020d5e 48 6e ff 45 |Hn E | PEA.L (A6-0xbb) 00020d62 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00020d68 58 4f |XO | ADDQ.L #0x4,A7 00020d6a 42 17 |B | CLR.B (A7) 00020d6c 4e b9 00 01 03 ac |N | JSR Set_is_open_ERROR_LOG(a : Bool) 00020d72 42 17 |B | CLR.B (A7) 00020d74 41 ee ff 82 |A | LEA.L (A6-0x7e),A0 00020d78 2f 08 |/ | MOVE.L A0,-(A7) 00020d7a 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 00020d80 58 4f |XO | ADDQ.L #0x4,A7 00020d82 1e bc 00 01 | | MOVE.B #0x01,(A7) 00020d86 4e b9 00 01 03 ac |N | JSR Set_is_open_ERROR_LOG(a : Bool) 00020d8c 54 4f |TO | ADDQ.L #0x2,A7 00020d8e 06 40 00 0a | @ | ADDI.W #0x000a,D0 00020d92 36 80 |6 | MOVE.W D0,(A3) 00020d94 4a 14 |J | TST.B (A4) 00020d96 67 00 ff 64 |g d | BEQ 0x20cfc 00020d9a 30 2e ff 56 |0. V | MOVE.W (A6-0xaa),D0 00020d9e 0c 40 00 19 | @ | CMPI.W #0x0019,D0 00020da2 67 2c |g, | BEQ 0x20dd0 00020da4 41 fa f5 bc |A | LEA.L 0x20362,A0 00020da8 70 10 |p | MOVEQ.L #0x10,D0 00020daa 3f 20 |? | MOVE.W -(A0),-(A7) 00020dac 51 c8 ff fc |Q | DBF D0,0x20daa 00020db0 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020db4 59 4f |YO | SUBQ.L #0x4,A7 00020db6 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020dba 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020dbe 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00020dc2 4e 92 |N | JSR (A2) 00020dc4 50 4f |PO | ADDQ.L #0x8,A7 00020dc6 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020dcc de fc 00 28 | ( | ADDA.W #0x28,A7 00020dd0 30 2e ff 58 |0. X | MOVE.W (A6-0xa8),D0 00020dd4 e3 48 | H | LSL.W #0x1,D0 00020dd6 e2 48 | H | LSR.W #0x1,D0 00020dd8 32 2f 00 06 |2/ | MOVE.W (A7+0x6),D1 00020ddc b0 41 | A | CMP.W D1,D0 00020dde 67 2c |g, | BEQ 0x20e0c 00020de0 41 fa f5 a8 |A | LEA.L 0x2038a,A0 00020de4 70 09 |p | MOVEQ.L #0x09,D0 00020de6 2f 20 |/ | MOVE.L -(A0),-(A7) 00020de8 51 c8 ff fc |Q | DBF D0,0x20de6 00020dec 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020df0 59 4f |YO | SUBQ.L #0x4,A7 00020df2 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020df6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020dfa 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 00020dfe 4e 92 |N | JSR (A2) 00020e00 50 4f |PO | ADDQ.L #0x8,A7 00020e02 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020e08 de fc 00 2e | . | ADDA.W #0x2e,A7 00020e0c 42 80 |B | CLR.L D0 00020e0e 10 2e ff 5a | . Z | MOVE.B (A6-0xa6),D0 00020e12 34 17 |4 | MOVE.W (A7),D2 00020e14 b0 42 | B | CMP.W D2,D0 00020e16 67 32 |g2 | BEQ 0x20e4a 00020e18 9e fc 00 26 | & | SUBA.W #0x26,A7 00020e1c 20 4f | O | MOVEA.L A7,A0 00020e1e 43 fa f5 6a |C j | LEA.L 0x2038a,A1 00020e22 70 24 |p$ | MOVEQ.L #0x24,D0 00020e24 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e26 51 c8 ff fc |Q | DBF D0,0x20e24 00020e2a 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020e2e 59 4f |YO | SUBQ.L #0x4,A7 00020e30 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020e34 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020e38 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7) 00020e3c 4e 92 |N | JSR (A2) 00020e3e 50 4f |PO | ADDQ.L #0x8,A7 00020e40 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020e46 de fc 00 2c | , | ADDA.W #0x2c,A7 00020e4a 30 2e ff 6c |0. l | MOVE.W (A6-0x94),D0 00020e4e 0c 40 f0 00 | @ | CMPI.W #0xf000,D0 00020e52 67 2c |g, | BEQ 0x20e80 00020e54 41 fa f5 7c |A | | LEA.L 0x203d2,A0 00020e58 70 10 |p | MOVEQ.L #0x10,D0 00020e5a 3f 20 |? | MOVE.W -(A0),-(A7) 00020e5c 51 c8 ff fc |Q | DBF D0,0x20e5a 00020e60 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020e64 59 4f |YO | SUBQ.L #0x4,A7 00020e66 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020e6a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020e6e 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00020e72 4e 92 |N | JSR (A2) 00020e74 50 4f |PO | ADDQ.L #0x8,A7 00020e76 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020e7c de fc 00 28 | ( | ADDA.W #0x28,A7 00020e80 10 2e ff 58 | . X | MOVE.B (A6-0xa8),D0 00020e84 ee 08 | | LSR.B #0x7,D0 00020e86 67 1c |g | BEQ 0x20ea4 00020e88 42 80 |B | CLR.L D0 00020e8a 30 01 |0 | MOVE.W D1,D0 00020e8c 2f 00 |/ | MOVE.L D0,-(A7) 00020e8e 42 80 |B | CLR.L D0 00020e90 30 02 |0 | MOVE.W D2,D0 00020e92 2f 00 |/ | MOVE.L D0,-(A7) 00020e94 48 78 00 ff |Hx | PEA.L 0xff 00020e98 4e ba f7 4c |N L | JSR 0x205e6 00020e9c de fc 00 0c | | ADDA.W #0xc,A7 00020ea0 60 00 01 40 |` @ | BRA 0x20fe2 00020ea4 70 00 |p | MOVEQ.L #0x00,D0 00020ea6 2f 00 |/ | MOVE.L D0,-(A7) 00020ea8 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 00020eae 63 02 |c | BLS 0x20eb2 00020eb0 4e 4f |NO | TRAP #15 00020eb2 22 00 |" | MOVE.L D0,D1 00020eb4 e5 81 | | ASL.L #0x2,D1 00020eb6 20 4c | L | MOVEA.L A4,A0 00020eb8 3d 70 18 1a ff fe |=p | MOVE.W (A0+D1.L+#0x1a),(A6-0x2) 00020ebe 3d 70 18 18 ff fc |=p | MOVE.W (A0+D1.L+#0x18),(A6-0x4) 00020ec4 4a 6e ff fe |Jn | TST.W (A6-0x2) 00020ec8 67 00 01 04 |g | BEQ 0x20fce 00020ecc 42 81 |B | CLR.L D1 00020ece 32 2e ff fc |2. | MOVE.W (A6-0x4),D1 00020ed2 24 01 |$ | MOVE.L D1,D2 00020ed4 53 82 |S | SUBQ.L #0x1,D2 00020ed6 28 02 |( | MOVE.L D2,D4 00020ed8 26 2e 00 0a |&. | MOVE.L (A6+0xa),D3 00020edc 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00020ee2 0c 84 00 00 ff ff | | CMPI.L #0x0000ffff,D4 00020ee8 63 02 |c | BLS 0x20eec 00020eea 4e 4f |NO | TRAP #15 00020eec 3d 44 ff 7c |=D | | MOVE.W D4,(A6-0x84) 00020ef0 2f 04 |/ | MOVE.L D4,-(A7) 00020ef2 42 82 |B | CLR.L D2 00020ef4 34 2e ff fe |4. | MOVE.W (A6-0x2),D2 00020ef8 06 82 00 00 00 11 | | ADDI.L #0x00000011,D2 00020efe e6 82 | | ASR.L #0x3,D2 00020f00 3d 42 ff 7a |=B z | MOVE.W D2,(A6-0x86) 00020f04 42 83 |B | CLR.L D3 00020f06 36 02 |6 | MOVE.W D2,D3 00020f08 d6 81 | | ADD.L D1,D3 00020f0a 28 03 |( | MOVE.L D3,D4 00020f0c 26 2e 00 0a |&. | MOVE.L (A6+0xa),D3 00020f10 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00020f16 0c 84 00 00 ff ff | | CMPI.L #0x0000ffff,D4 00020f1c 63 02 |c | BLS 0x20f20 00020f1e 4e 4f |NO | TRAP #15 00020f20 3d 44 ff 7e |=D ~ | MOVE.W D4,(A6-0x82) 00020f24 3f 04 |? | MOVE.W D4,-(A7) 00020f26 22 2f 00 02 |"/ | MOVE.L (A7+0x2),D1 00020f2a 3c 01 |< | MOVE.W D1,D6 00020f2c bc 57 | W | CMP.W (A7),D6 00020f2e 62 00 00 9c |b | BHI 0x20fcc 00020f32 42 80 |B | CLR.L D0 00020f34 30 06 |0 | MOVE.W D6,D0 00020f36 b0 ae 00 0e | | CMP.L (A6+0xe),D0 00020f3a 64 04 |d | BCC 0x20f40 00020f3c 3e 06 |> | MOVE.W D6,D7 00020f3e 60 12 |` | BRA 0x20f52 00020f40 20 2e 00 0e | . | MOVE.L (A6+0xe),D0 00020f44 53 80 |S | SUBQ.L #0x1,D0 00020f46 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00020f4c 63 02 |c | BLS 0x20f50 00020f4e 4e 4f |NO | TRAP #15 00020f50 3e 00 |> | MOVE.W D0,D7 00020f52 4a 2e 00 08 |J. | TST.B (A6+0x8) 00020f56 66 1a |f | BNE 0x20f72 00020f58 30 2f 00 10 |0/ | MOVE.W (A7+0x10),D0 00020f5c 42 81 |B | CLR.L D1 00020f5e 32 00 |2 | MOVE.W D0,D1 00020f60 2f 01 |/ | MOVE.L D1,-(A7) 00020f62 30 2f 00 0e |0/ | MOVE.W (A7+0xe),D0 00020f66 42 81 |B | CLR.L D1 00020f68 32 00 |2 | MOVE.W D0,D1 00020f6a 2f 01 |/ | MOVE.L D1,-(A7) 00020f6c 42 80 |B | CLR.L D0 00020f6e 30 07 |0 | MOVE.W D7,D0 00020f70 60 4a |`J | BRA 0x20fbc 00020f72 30 07 |0 | MOVE.W D7,D0 00020f74 02 40 00 01 | @ | ANDI.W #0x0001,D0 00020f78 28 2e 00 0e |(. | MOVE.L (A6+0xe),D4 00020f7c 76 02 |v | MOVEQ.L #0x02,D3 00020f7e 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00020f84 42 83 |B | CLR.L D3 00020f86 36 00 |6 | MOVE.W D0,D3 00020f88 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 00020f8e 30 07 |0 | MOVE.W D7,D0 00020f90 e2 48 | H | LSR.W #0x1,D0 00020f92 42 81 |B | CLR.L D1 00020f94 32 00 |2 | MOVE.W D0,D1 00020f96 d2 84 | | ADD.L D4,D1 00020f98 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 00020f9e 63 02 |c | BLS 0x20fa2 00020fa0 4e 4f |NO | TRAP #15 00020fa2 3a 01 |: | MOVE.W D1,D5 00020fa4 30 2f 00 10 |0/ | MOVE.W (A7+0x10),D0 00020fa8 42 81 |B | CLR.L D1 00020faa 32 00 |2 | MOVE.W D0,D1 00020fac 2f 01 |/ | MOVE.L D1,-(A7) 00020fae 30 2f 00 0e |0/ | MOVE.W (A7+0xe),D0 00020fb2 42 81 |B | CLR.L D1 00020fb4 32 00 |2 | MOVE.W D0,D1 00020fb6 2f 01 |/ | MOVE.L D1,-(A7) 00020fb8 42 80 |B | CLR.L D0 00020fba 30 05 |0 | MOVE.W D5,D0 00020fbc 2f 00 |/ | MOVE.L D0,-(A7) 00020fbe 4e ba f6 26 |N & | JSR 0x205e6 00020fc2 de fc 00 0c | | ADDA.W #0xc,A7 00020fc6 52 46 |RF | ADDQ.W #0x1,D6 00020fc8 64 00 ff 62 |d b | BCC 0x20f2c 00020fcc 5c 4f |\O | ADDQ.L #0x6,A7 00020fce 20 17 | | MOVE.L (A7),D0 00020fd0 52 80 |R | ADDQ.L #0x1,D0 00020fd2 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 00020fd8 6e 06 |n | BGT 0x20fe0 00020fda 58 4f |XO | ADDQ.L #0x4,A7 00020fdc 60 00 fe c8 |` | BRA 0x20ea6 00020fe0 58 4f |XO | ADDQ.L #0x4,A7 00020fe2 32 17 |2 | MOVE.W (A7),D1 00020fe4 52 41 |RA | ADDQ.W #0x1,D1 00020fe6 65 06 |e | BCS 0x20fee 00020fe8 54 4f |TO | ADDQ.L #0x2,A7 00020fea 60 00 fd 02 |` | BRA 0x20cee 00020fee 5c 4f |\O | ADDQ.L #0x6,A7 00020ff0 30 17 |0 | MOVE.W (A7),D0 00020ff2 52 40 |R@ | ADDQ.W #0x1,D0 00020ff4 65 06 |e | BCS 0x20ffc 00020ff6 54 4f |TO | ADDQ.L #0x2,A7 00020ff8 60 00 fc ca |` | BRA 0x20cc4 00020ffc 9e fc 00 0a | | SUBA.W #0xa,A7 00021000 20 4f | O | MOVEA.L A7,A0 00021002 43 fa f4 3e |C > | LEA.L 0x20442,A1 00021006 70 0e |p | MOVEQ.L #0x0e,D0 00021008 10 d9 | | MOVE.B (A1)+,(A0)+ 0002100a 51 c8 ff fc |Q | DBF D0,0x21008 0002100e 51 4f |QO | SUBQ.L #0x8,A7 00021010 2f 39 00 02 38 6a |/9 8j | MOVE.L 0x2386a,-(A7) 00021016 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002101c 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021020 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021024 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00021028 4e 92 |N | JSR (A2) 0002102a 50 4f |PO | ADDQ.L #0x8,A7 0002102c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021032 50 4f |PO | ADDQ.L #0x8,A7 00021034 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002103a de fc 00 14 | | ADDA.W #0x14,A7 0002103e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021042 4e 5e |N^ | UNLK A6 00021044 4e 75 |Nu | RTS 00021046 ; -------------------------------------------------------------------------------------- 00021046 ; OMSI PASCAL Function 00021046 ; <LVAR 0x008 4(r)> 00021046 ; <LVAR -0x006 @ 4(rw)> 00021046 ; <LVAR -0x00c @ 1(r)> 00021046 ; <LVAR -0x010 @ 4(r)> 00021046 ; <LVAR -0x012 @ 2(w)> 00021046 ; <LVAR -0x014 @ 1(r)> 00021046 ; -------------------------------------------------------------------------------------- 00021046 4e 56 ff 66 |NV f | LINK.W A6,#0xff66 0002104a bf d5 | | CMPA.L (A5),A7 0002104c 62 06 |b | BHI 0x21054 0002104e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021052 4e 76 |Nv | TRAPV 00021054 de fc 00 86 | | ADDA.W #0x86,A7 00021058 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002105c 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00021060 47 ee ff fa |G | LEA.L (A6-0x6),A3 00021064 49 ee ff f0 |I | LEA.L (A6-0x10),A4 00021068 72 02 |r | MOVEQ.L #0x02,D1 0002106a 74 01 |t | MOVEQ.L #0x01,D2 0002106c 7a 3e |z> | MOVEQ.L #0x3e,D5 0002106e 7c 0f || | MOVEQ.L #0x0f,D6 00021070 48 6e ff ec |Hn | PEA.L (A6-0x14) 00021074 48 6e ff ee |Hn | PEA.L (A6-0x12) 00021078 4e b9 00 01 02 00 |N | JSR KC00_GetBootDev(VAR a : Byte; VAR b : Word) 0002107e 50 4f |PO | ADDQ.L #0x8,A7 00021080 10 2e ff ec | . | MOVE.B (A6-0x14),D0 00021084 b0 01 | | CMP.B D1,D0 00021086 66 0a |f | BNE 0x21092 00021088 4e b9 00 01 03 98 |N | JSR FSCALL_10398 0002108e 60 00 00 84 |` | BRA 0x21114 00021092 9e c5 | | SUBA.W D5,A7 00021094 20 4f | O | MOVEA.L A7,A0 00021096 43 fa f3 ba |C | LEA.L 0x20452,A1 0002109a 70 3c |p< | MOVEQ.L #0x3c,D0 0002109c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002109e 51 c8 ff fc |Q | DBF D0,0x2109c 000210a2 51 4f |QO | SUBQ.L #0x8,A7 000210a4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000210a8 3f 02 |? | MOVE.W D2,-(A7) 000210aa 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 000210ae 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000210b4 50 4f |PO | ADDQ.L #0x8,A7 000210b6 48 78 00 00 |Hx | PEA.L 0x0 000210ba 48 78 00 0f |Hx | PEA.L 0xf 000210be 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000210c4 de fc 00 0c | | ADDA.W #0xc,A7 000210c8 20 1f | | MOVE.L (A7)+,D0 000210ca 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000210d0 63 02 |c | BLS 0x210d4 000210d2 4e 4f |NO | TRAP #15 000210d4 de c5 | | ADDA.W D5,A7 000210d6 3d 40 ff ee |=@ | MOVE.W D0,(A6-0x12) 000210da 41 86 |A | CHK.W D6,D0 000210dc 3f 00 |? | MOVE.W D0,-(A7) 000210de 48 52 |HR | PEA.L (A2) 000210e0 4e b9 00 01 03 94 |N | JSR MountDisk(drive : Word ; VAR status : Byte) 000210e6 5c 4f |\O | ADDQ.L #0x6,A7 000210e8 4a 12 |J | TST.B (A2) 000210ea 67 28 |g( | BEQ 0x21114 000210ec 59 4f |YO | SUBQ.L #0x4,A7 000210ee 10 12 | | MOVE.B (A2),D0 000210f0 48 80 |H | EXTB.W D0 000210f2 41 86 |A | CHK.W D6,D0 000210f4 1f 00 | | MOVE.B D0,-(A7) 000210f6 4e b9 00 01 03 a0 |N | JSR FsErrMsgStr(err: Byte) : String 000210fc 54 4f |TO | ADDQ.L #0x2,A7 000210fe 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021104 58 4f |XO | ADDQ.L #0x4,A7 00021106 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 0002110a 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 0002110e 4e f9 00 02 16 04 |N | JMP 0x21604 00021114 2f 3a f3 7e |/: ~ | MOVE.L 0x20494,-(A7) 00021118 2f 3a f3 76 |/: v | MOVE.L 0x20490,-(A7) 0002111c 51 4f |QO | SUBQ.L #0x8,A7 0002111e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021122 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00021128 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002112c 3f 02 |? | MOVE.W D2,-(A7) 0002112e 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00021132 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021138 50 4f |PO | ADDQ.L #0x8,A7 0002113a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021140 50 4f |PO | ADDQ.L #0x8,A7 00021142 26 9f |& | MOVE.L (A7)+,(A3) 00021144 58 4f |XO | ADDQ.L #0x4,A7 00021146 2e 93 |. | MOVE.L (A3),(A7) 00021148 1f 02 | | MOVE.B D2,-(A7) 0002114a 1f 01 | | MOVE.B D1,-(A7) 0002114c 48 78 00 08 |Hx | PEA.L 0x8 00021150 48 52 |HR | PEA.L (A2) 00021152 48 54 |HT | PEA.L (A4) 00021154 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 0002115a de fc 00 14 | | ADDA.W #0x14,A7 0002115e 7e 00 |~ | MOVEQ.L #0x00,D7 00021160 28 3c 00 00 01 00 |(< | MOVE.L #0x100,D4 00021166 26 07 |& | MOVE.L D7,D3 00021168 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 0002116e 2f 14 |/ | MOVE.L (A4),-(A7) 00021170 0c 87 00 00 40 00 | @ | CMPI.L #0x00004000,D7 00021176 63 02 |c | BLS 0x2117a 00021178 4e 4f |NO | TRAP #15 0002117a 3f 07 |? | MOVE.W D7,-(A7) 0002117c 42 67 |Bg | CLR.W -(A7) 0002117e 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00021182 1f 01 | | MOVE.B D1,-(A7) 00021184 0c 84 00 00 07 ff | | CMPI.L #0x000007ff,D4 0002118a 63 02 |c | BLS 0x2118e 0002118c 4e 4f |NO | TRAP #15 0002118e 20 04 | | MOVE.L D4,D0 00021190 e5 80 | | ASL.L #0x2,D0 00021192 41 f9 00 02 18 62 |A b | LEA.L 0x21862,A0 00021198 41 f0 08 08 |A | LEA.L (A0+D0.L+#0x8),A0 0002119c 2f 08 |/ | MOVE.L A0,-(A7) 0002119e 48 52 |HR | PEA.L (A2) 000211a0 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 000211a6 de fc 00 14 | | ADDA.W #0x14,A7 000211aa 52 87 |R | ADDQ.L #0x1,D7 000211ac 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 000211b2 6f ac |o | BLE 0x21160 000211b4 42 27 |B' | CLR.B -(A7) 000211b6 1f 01 | | MOVE.B D1,-(A7) 000211b8 48 78 00 01 |Hx | PEA.L 0x1 000211bc 48 52 |HR | PEA.L (A2) 000211be 48 54 |HT | PEA.L (A4) 000211c0 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000211c6 de fc 00 10 | | ADDA.W #0x10,A7 000211ca 48 53 |HS | PEA.L (A3) 000211cc 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000211d2 58 4f |XO | ADDQ.L #0x4,A7 000211d4 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000211d8 4e 5e |N^ | UNLK A6 000211da 4e 75 |Nu | RTS 000211dc ; -------------------------------------------------------------------------------------- 000211dc ; OMSI PASCAL Function 000211dc ; <LVAR 0x008 4(r)> 000211dc ; <LVAR -0x00c @ 4(r)> 000211dc ; <LVAR -0x028 2(w)> 000211dc ; <LVAR -0x02c 4(w)> 000211dc ; <LVAR -0x02d 1(r)> 000211dc ; <LVAR -0x02e 1(r)> 000211dc ; <LVAR -0x030 2(w)> 000211dc ; <LVAR -0x032 2(w)> 000211dc ; <LVAR -0x050 @> 000211dc ; <LVAR -0x052 @ 1(r)> 000211dc ; -------------------------------------------------------------------------------------- 000211dc 4e 56 ff 44 |NV D | LINK.W A6,#0xff44 000211e0 bf d5 | | CMPA.L (A5),A7 000211e2 62 06 |b | BHI 0x211ea 000211e4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000211e8 4e 76 |Nv | TRAPV 000211ea de fc 00 68 | h | ADDA.W #0x68,A7 000211ee 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000211f2 45 ee ff ae |E | LEA.L (A6-0x52),A2 000211f6 47 f9 00 01 04 28 |G ( | LEA.L FSCALL_10428,A3 000211fc 74 01 |t | MOVEQ.L #0x01,D2 000211fe 7a 00 |z | MOVEQ.L #0x00,D5 00021200 9e fc 00 20 | | SUBA.W #0x20,A7 00021204 20 4f | O | MOVEA.L A7,A0 00021206 43 fa f2 90 |C | LEA.L 0x20498,A1 0002120a 70 1e |p | MOVEQ.L #0x1e,D0 0002120c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002120e 51 c8 ff fc |Q | DBF D0,0x2120c 00021212 51 4f |QO | SUBQ.L #0x8,A7 00021214 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021218 3f 02 |? | MOVE.W D2,-(A7) 0002121a 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 0002121e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021224 50 4f |PO | ADDQ.L #0x8,A7 00021226 48 78 00 00 |Hx | PEA.L 0x0 0002122a 48 78 00 03 |Hx | PEA.L 0x3 0002122e 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00021234 de fc 00 0c | | ADDA.W #0xc,A7 00021238 20 1f | | MOVE.L (A7)+,D0 0002123a 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00021240 63 02 |c | BLS 0x21244 00021242 4e 4f |NO | TRAP #15 00021244 de fc 00 20 | | ADDA.W #0x20,A7 00021248 3c 00 |< | MOVE.W D0,D6 0002124a 4d bc 00 03 |M | CHK.W #0x3,D6 0002124e 3f 06 |? | MOVE.W D6,-(A7) 00021250 1f 02 | | MOVE.B D2,-(A7) 00021252 1f 02 | | MOVE.B D2,-(A7) 00021254 48 52 |HR | PEA.L (A2) 00021256 4e b9 00 01 04 0c |N | JSR FSCALL_1040c 0002125c de fc 00 0a | | ADDA.W #0xa,A7 00021260 4a 12 |J | TST.B (A2) 00021262 67 14 |g | BEQ 0x21278 00021264 1f 02 | | MOVE.B D2,-(A7) 00021266 48 52 |HR | PEA.L (A2) 00021268 4e 93 |N | JSR (A3) 0002126a 5c 4f |\O | ADDQ.L #0x6,A7 0002126c 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00021270 3c 45 |<E | MOVEA.W D5,A6 00021272 4e f9 00 02 16 04 |N | JMP 0x21604 00021278 2f 3a f2 42 |/: B | MOVE.L 0x204bc,-(A7) 0002127c 2f 3a f2 3a |/: : | MOVE.L 0x204b8,-(A7) 00021280 59 4f |YO | SUBQ.L #0x4,A7 00021282 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021286 59 4f |YO | SUBQ.L #0x4,A7 00021288 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002128c 3f 02 |? | MOVE.W D2,-(A7) 0002128e 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00021292 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021298 50 4f |PO | ADDQ.L #0x8,A7 0002129a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000212a0 50 4f |PO | ADDQ.L #0x8,A7 000212a2 28 5f |(_ | MOVEA.L (A7)+,A4 000212a4 50 4f |PO | ADDQ.L #0x8,A7 000212a6 7e 01 |~ | MOVEQ.L #0x01,D7 000212a8 30 14 |0 | MOVE.W (A4),D0 000212aa 48 c0 |H | EXTW.L D0 000212ac be 80 | | CMP.L D0,D7 000212ae 6f 14 |o | BLE 0x212c4 000212b0 20 07 | | MOVE.L D7,D0 000212b2 53 80 |S | SUBQ.L #0x1,D0 000212b4 0c 80 00 00 00 1d | | CMPI.L #0x0000001d,D0 000212ba 63 02 |c | BLS 0x212be 000212bc 4e 4f |NO | TRAP #15 000212be 42 36 08 b0 |B6 | CLR.B (A6+D0.L-#0x50) 000212c2 60 22 |`" | BRA 0x212e6 000212c4 20 07 | | MOVE.L D7,D0 000212c6 53 80 |S | SUBQ.L #0x1,D0 000212c8 0c 80 00 00 00 1d | | CMPI.L #0x0000001d,D0 000212ce 63 02 |c | BLS 0x212d2 000212d0 4e 4f |NO | TRAP #15 000212d2 22 07 |" | MOVE.L D7,D1 000212d4 53 81 |S | SUBQ.L #0x1,D1 000212d6 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000212dc 63 02 |c | BLS 0x212e0 000212de 4e 4f |NO | TRAP #15 000212e0 1d b4 18 02 08 b0 | | MOVE.B (A4+D1.L+#0x2),(A6+D0.L-#0x50) 000212e6 52 87 |R | ADDQ.L #0x1,D7 000212e8 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7 000212ee 6f b8 |o | BLE 0x212a8 000212f0 3d 7c 00 08 ff ce |=| | MOVE.W #0x8,(A6-0x32) 000212f6 3d 7c 04 00 ff d0 |=| | MOVE.W #0x400,(A6-0x30) 000212fc 42 2e ff d3 |B. | CLR.B (A6-0x2d) 00021300 42 2e ff d2 |B. | CLR.B (A6-0x2e) 00021304 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00021308 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 0002130e 58 4f |XO | ADDQ.L #0x4,A7 00021310 2d 6e ff f4 ff d4 |-n | MOVE.L (A6-0xc),(A6-0x2c) 00021316 3d 42 ff d8 |=B | MOVE.W D2,(A6-0x28) 0002131a 41 ee ff b0 |A | LEA.L (A6-0x50),A0 0002131e 2f 08 |/ | MOVE.L A0,-(A7) 00021320 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 00021324 4e b9 00 01 04 1c |N | JSR FSCALL_1041c 0002132a 5c 4f |\O | ADDQ.L #0x6,A7 0002132c 48 52 |HR | PEA.L (A2) 0002132e 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00021334 58 4f |XO | ADDQ.L #0x4,A7 00021336 4a 12 |J | TST.B (A2) 00021338 67 18 |g | BEQ 0x21352 0002133a 1f 02 | | MOVE.B D2,-(A7) 0002133c 48 52 |HR | PEA.L (A2) 0002133e 4e 93 |N | JSR (A3) 00021340 5c 4f |\O | ADDQ.L #0x6,A7 00021342 4a 12 |J | TST.B (A2) 00021344 67 0c |g | BEQ 0x21352 00021346 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 0002134a 3c 45 |<E | MOVEA.W D5,A6 0002134c 4e f9 00 02 16 04 |N | JMP 0x21604 00021352 7e 00 |~ | MOVEQ.L #0x00,D7 00021354 28 3c 00 00 01 00 |(< | MOVE.L #0x100,D4 0002135a 26 07 |& | MOVE.L D7,D3 0002135c 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00021362 0c 84 00 00 07 ff | | CMPI.L #0x000007ff,D4 00021368 63 02 |c | BLS 0x2136c 0002136a 4e 4f |NO | TRAP #15 0002136c 20 04 | | MOVE.L D4,D0 0002136e e5 80 | | ASL.L #0x2,D0 00021370 41 f9 00 02 18 62 |A b | LEA.L 0x21862,A0 00021376 41 f0 08 08 |A | LEA.L (A0+D0.L+#0x8),A0 0002137a 2f 08 |/ | MOVE.L A0,-(A7) 0002137c 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7) 00021380 4e b9 00 01 04 1c |N | JSR FSCALL_1041c 00021386 5c 4f |\O | ADDQ.L #0x6,A7 00021388 48 52 |HR | PEA.L (A2) 0002138a 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00021390 58 4f |XO | ADDQ.L #0x4,A7 00021392 4a 12 |J | TST.B (A2) 00021394 67 18 |g | BEQ 0x213ae 00021396 1f 02 | | MOVE.B D2,-(A7) 00021398 48 52 |HR | PEA.L (A2) 0002139a 4e 93 |N | JSR (A3) 0002139c 5c 4f |\O | ADDQ.L #0x6,A7 0002139e 4a 12 |J | TST.B (A2) 000213a0 67 0c |g | BEQ 0x213ae 000213a2 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 000213a6 3c 45 |<E | MOVEA.W D5,A6 000213a8 4e f9 00 02 16 04 |N | JMP 0x21604 000213ae 52 87 |R | ADDQ.L #0x1,D7 000213b0 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 000213b6 6f 9c |o | BLE 0x21354 000213b8 7e 01 |~ | MOVEQ.L #0x01,D7 000213ba 4e b9 00 01 04 20 |N | JSR FSCALL_10420 000213c0 48 52 |HR | PEA.L (A2) 000213c2 4e b9 00 01 04 08 |N | JSR FSCALL_10408 000213c8 58 4f |XO | ADDQ.L #0x4,A7 000213ca 4a 12 |J | TST.B (A2) 000213cc 67 18 |g | BEQ 0x213e6 000213ce 1f 02 | | MOVE.B D2,-(A7) 000213d0 48 52 |HR | PEA.L (A2) 000213d2 4e 93 |N | JSR (A3) 000213d4 5c 4f |\O | ADDQ.L #0x6,A7 000213d6 4a 12 |J | TST.B (A2) 000213d8 67 0c |g | BEQ 0x213e6 000213da 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 000213de 3c 45 |<E | MOVEA.W D5,A6 000213e0 4e f9 00 02 16 04 |N | JMP 0x21604 000213e6 52 87 |R | ADDQ.L #0x1,D7 000213e8 0c 87 00 00 00 02 | | CMPI.L #0x00000002,D7 000213ee 6f ca |o | BLE 0x213ba 000213f0 1f 02 | | MOVE.B D2,-(A7) 000213f2 48 52 |HR | PEA.L (A2) 000213f4 4e b9 00 01 04 14 |N | JSR FSCALL_10414 000213fa 5c 4f |\O | ADDQ.L #0x6,A7 000213fc 4a 12 |J | TST.B (A2) 000213fe 67 18 |g | BEQ 0x21418 00021400 1f 02 | | MOVE.B D2,-(A7) 00021402 48 52 |HR | PEA.L (A2) 00021404 4e 93 |N | JSR (A3) 00021406 5c 4f |\O | ADDQ.L #0x6,A7 00021408 4a 12 |J | TST.B (A2) 0002140a 67 0c |g | BEQ 0x21418 0002140c 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00021410 3c 45 |<E | MOVEA.W D5,A6 00021412 4e f9 00 02 16 04 |N | JMP 0x21604 00021418 4e b9 00 01 04 10 |N | JSR FSCALL_10410 0002141e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021422 4e 5e |N^ | UNLK A6 00021424 4e 75 |Nu | RTS 00021426 ; -------------------------------------------------------------------------------------- 00021426 ; OMSI PASCAL Function 00021426 ; <LVAR 0x008 4(r)> 00021426 ; -------------------------------------------------------------------------------------- 00021426 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 0002142a bf d5 | | CMPA.L (A5),A7 0002142c 62 06 |b | BHI 0x21434 0002142e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021432 4e 76 |Nv | TRAPV 00021434 de fc 00 5c | \ | ADDA.W #0x5c,A7 00021438 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7) 0002143c 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021442 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00021448 72 01 |r | MOVEQ.L #0x01,D1 0002144a 9e fc 00 30 | 0 | SUBA.W #0x30,A7 0002144e 20 4f | O | MOVEA.L A7,A0 00021450 43 fa f0 6e |C n | LEA.L 0x204c0,A1 00021454 70 2e |p. | MOVEQ.L #0x2e,D0 00021456 10 d9 | | MOVE.B (A1)+,(A0)+ 00021458 51 c8 ff fc |Q | DBF D0,0x21456 0002145c 59 4f |YO | SUBQ.L #0x4,A7 0002145e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021462 3f 01 |? | MOVE.W D1,-(A7) 00021464 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 00021468 4e 92 |N | JSR (A2) 0002146a 50 4f |PO | ADDQ.L #0x8,A7 0002146c 4e 93 |N | JSR (A3) 0002146e de fc 00 24 | $ | ADDA.W #0x24,A7 00021472 20 4f | O | MOVEA.L A7,A0 00021474 43 fa f0 7a |C z | LEA.L 0x204f0,A1 00021478 70 0e |p | MOVEQ.L #0x0e,D0 0002147a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002147c 51 c8 ff fc |Q | DBF D0,0x2147a 00021480 59 4f |YO | SUBQ.L #0x4,A7 00021482 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021486 3f 01 |? | MOVE.W D1,-(A7) 00021488 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 0002148c 4e 92 |N | JSR (A2) 0002148e 50 4f |PO | ADDQ.L #0x8,A7 00021490 4e 93 |N | JSR (A3) 00021492 20 4f | O | MOVEA.L A7,A0 00021494 43 fa f0 6a |C j | LEA.L 0x20500,A1 00021498 70 12 |p | MOVEQ.L #0x12,D0 0002149a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002149c 51 c8 ff fc |Q | DBF D0,0x2149a 000214a0 59 4f |YO | SUBQ.L #0x4,A7 000214a2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000214a6 3f 01 |? | MOVE.W D1,-(A7) 000214a8 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000214ac 4e 92 |N | JSR (A2) 000214ae 50 4f |PO | ADDQ.L #0x8,A7 000214b0 4e 93 |N | JSR (A3) 000214b2 54 4f |TO | ADDQ.L #0x2,A7 000214b4 20 4f | O | MOVEA.L A7,A0 000214b6 43 fa f0 5c |C \ | LEA.L 0x20514,A1 000214ba 70 14 |p | MOVEQ.L #0x14,D0 000214bc 10 d9 | | MOVE.B (A1)+,(A0)+ 000214be 51 c8 ff fc |Q | DBF D0,0x214bc 000214c2 51 4f |QO | SUBQ.L #0x8,A7 000214c4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000214c8 3f 01 |? | MOVE.W D1,-(A7) 000214ca 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 000214ce 4e 92 |N | JSR (A2) 000214d0 50 4f |PO | ADDQ.L #0x8,A7 000214d2 48 78 00 00 |Hx | PEA.L 0x0 000214d6 48 78 00 01 |Hx | PEA.L 0x1 000214da 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000214e0 de fc 00 0c | | ADDA.W #0xc,A7 000214e4 2e 1f |. | MOVE.L (A7)+,D7 000214e6 de fc 00 16 | | ADDA.W #0x16,A7 000214ea 4a 87 |J | TST.L D7 000214ec 66 0a |f | BNE 0x214f8 000214ee 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000214f2 4e ba fc e8 |N | JSR 0x211dc 000214f6 60 08 |` | BRA 0x21500 000214f8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000214fc 4e ba fb 48 |N H | JSR 0x21046 00021500 58 4f |XO | ADDQ.L #0x4,A7 00021502 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3 00021506 4e 5e |N^ | UNLK A6 00021508 4e 75 |Nu | RTS 0002150a ; -------------------------------------------------------------------------------------- 0002150a ; OMSI PASCAL Function 0002150a ; -------------------------------------------------------------------------------------- 0002150a START: 0002150a 4f fa 00 08 |O | LEA.L MAIN,A7 0002150e 4e f9 00 01 02 80 |N | JMP ?start_program 00021514 MAIN: 00021514 4e b9 00 01 04 00 |N | JSR FSCALL_10400 0002151a 55 4f |UO | SUBQ.L #0x2,A7 0002151c 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool 00021522 4a 1f |J | TST.B (A7)+ 00021524 67 34 |g4 | BEQ 0x2155a 00021526 9e fc 00 30 | 0 | SUBA.W #0x30,A7 0002152a 20 4f | O | MOVEA.L A7,A0 0002152c 43 fa ef fc |C | LEA.L 0x2052a,A1 00021530 70 2e |p. | MOVEQ.L #0x2e,D0 00021532 10 d9 | | MOVE.B (A1)+,(A0)+ 00021534 51 c8 ff fc |Q | DBF D0,0x21532 00021538 59 4f |YO | SUBQ.L #0x4,A7 0002153a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002153e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021542 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 00021546 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002154c 50 4f |PO | ADDQ.L #0x8,A7 0002154e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021554 de fc 00 34 | 4 | ADDA.W #0x34,A7 00021558 60 c0 |` | BRA 0x2151a 0002155a 55 4f |UO | SUBQ.L #0x2,A7 0002155c 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00021562 4a 1f |J | TST.B (A7)+ 00021564 67 2e |g. | BEQ 0x21594 00021566 41 fa f0 20 |A | LEA.L 0x20588,A0 0002156a 70 16 |p | MOVEQ.L #0x16,D0 0002156c 3f 20 |? | MOVE.W -(A0),-(A7) 0002156e 51 c8 ff fc |Q | DBF D0,0x2156c 00021572 59 4f |YO | SUBQ.L #0x4,A7 00021574 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021578 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002157c 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00021580 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021586 50 4f |PO | ADDQ.L #0x8,A7 00021588 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002158e de fc 00 32 | 2 | ADDA.W #0x32,A7 00021592 60 86 |` | BRA 0x2151a 00021594 4e ba ef f2 |N | JSR 0x20588 00021598 48 79 00 02 38 6e |Hy 8n | PEA.L 0x2386e 0002159e 48 79 00 02 38 70 |Hy 8p | PEA.L 0x23870 000215a4 48 79 00 02 38 74 |Hy 8t | PEA.L 0x23874 000215aa 48 79 00 02 38 78 |Hy 8x | PEA.L 0x23878 000215b0 48 79 00 02 38 7c |Hy 8| | PEA.L 0x2387c 000215b6 48 79 00 02 38 82 |Hy 8 | PEA.L 0x23882 000215bc 48 79 00 02 38 80 |Hy 8 | PEA.L 0x23880 000215c2 4e ba f3 0c |N | JSR 0x208d0 000215c6 de fc 00 1c | | ADDA.W #0x1c,A7 000215ca 30 39 00 02 38 6e |09 8n | MOVE.W 0x2386e,D0 000215d0 41 bc 00 0f |A | CHK.W #0xf,D0 000215d4 3f 00 |? | MOVE.W D0,-(A7) 000215d6 2f 39 00 02 38 74 |/9 8t | MOVE.L 0x23874,-(A7) 000215dc 2f 39 00 02 38 78 |/9 8x | MOVE.L 0x23878,-(A7) 000215e2 2f 39 00 02 38 7c |/9 8| | MOVE.L 0x2387c,-(A7) 000215e8 2f 39 00 02 38 82 |/9 8 | MOVE.L 0x23882,-(A7) 000215ee 10 39 00 02 38 80 | 9 8 | MOVE.B 0x23880,D0 000215f4 48 80 |H | EXTB.W D0 000215f6 41 bc 00 01 |A | CHK.W #0x1,D0 000215fa 1f 00 | | MOVE.B D0,-(A7) 000215fc 4e ba f6 68 |N h | JSR 0x20c66 00021600 de fc 00 14 | | ADDA.W #0x14,A7 00021604 2f 39 00 02 38 70 |/9 8p | MOVE.L 0x23870,-(A7) 0002160a 4e ba fe 1a |N | JSR 0x21426 0002160e 58 4f |XO | ADDQ.L #0x4,A7 00021610 48 79 00 02 38 70 |Hy 8p | PEA.L 0x23870 00021616 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002161c 58 4f |XO | ADDQ.L #0x4,A7 0002161e 48 79 00 02 38 86 |Hy 8 | PEA.L 0x23886 00021624 48 79 00 02 38 88 |Hy 8 | PEA.L 0x23888 0002162a 4e b9 00 01 02 00 |N | JSR KC00_GetBootDev(VAR a : Byte; VAR b : Word) 00021630 50 4f |PO | ADDQ.L #0x8,A7 00021632 10 39 00 02 38 86 | 9 8 | MOVE.B 0x23886,D0 00021638 0c 00 00 02 | | CMPI.B #0x02,D0 0002163c 66 14 |f | BNE 0x21652 0002163e 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00021644 42 27 |B' | CLR.B -(A7) 00021646 48 78 00 01 |Hx | PEA.L 0x1 0002164a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021650 5c 4f |\O | ADDQ.L #0x6,A7 00021652 60 00 fe c6 |` | BRA 0x2151a 00021656 4e b9 |N | .XXX[0x2] 00021658 00 01 02 84 | | .XXX[0x4] 0002165c 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 0002166a ; -------------------------------------------------------------------------------------- 0002166a ; OMSI PASCAL Function 0002166a ; <LVAR 0x008 1(r)> 0002166a ; -------------------------------------------------------------------------------------- 0002166a PROG_FAIL: 0002166a 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 0002166e bf d5 | | CMPA.L (A5),A7 00021670 62 06 |b | BHI 0x21678 00021672 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021676 4e 76 |Nv | TRAPV 00021678 de fc 00 2c | , | ADDA.W #0x2c,A7 0002167c 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021680 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00021684 70 06 |p | MOVEQ.L #0x06,D0 00021686 3f 20 |? | MOVE.W -(A0),-(A7) 00021688 51 c8 ff fc |Q | DBF D0,0x21686 0002168c 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00021690 51 4f |QO | SUBQ.L #0x8,A7 00021692 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00021696 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002169a 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 0002169e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000216a4 58 4f |XO | ADDQ.L #0x4,A7 000216a6 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000216aa 48 80 |H | EXTB.W D0 000216ac 48 c0 |H | EXTW.L D0 000216ae 2f 00 |/ | MOVE.L D0,-(A7) 000216b0 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000216b6 58 4f |XO | ADDQ.L #0x4,A7 000216b8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000216be 50 4f |PO | ADDQ.L #0x8,A7 000216c0 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000216c6 de fc 00 14 | | ADDA.W #0x14,A7 000216ca 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000216ce 4e 5e |N^ | UNLK A6 000216d0 4e 75 |Nu | RTS 000216d2 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000216e0 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 000216ee 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 000216fc 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 0002170e 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00021726 ; -------------------------------------------------------------------------------------- 00021726 ; OMSI PASCAL Function 00021726 ; <LVAR 0x00e 1(r)> 00021726 ; <LVAR 0x00a 4(r)> 00021726 ; <LVAR 0x008 1(r)> 00021726 ; -------------------------------------------------------------------------------------- 00021726 EXP_FAIL: 00021726 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 0002172a bf d5 | | CMPA.L (A5),A7 0002172c 62 06 |b | BHI 0x21734 0002172e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021732 4e 76 |Nv | TRAPV 00021734 de fc 00 74 | t | ADDA.W #0x74,A7 00021738 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 0002173c 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00021742 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00021748 72 01 |r | MOVEQ.L #0x01,D1 0002174a 74 0d |t | MOVEQ.L #0x0d,D2 0002174c 76 1e |v | MOVEQ.L #0x1e,D3 0002174e 78 12 |x | MOVEQ.L #0x12,D4 00021750 7a 0e |z | MOVEQ.L #0x0e,D5 00021752 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021758 41 fa ff b4 |A | LEA.L 0x2170e,A0 0002175c 70 08 |p | MOVEQ.L #0x08,D0 0002175e 3f 20 |? | MOVE.W -(A0),-(A7) 00021760 51 c8 ff fc |Q | DBF D0,0x2175e 00021764 59 4f |YO | SUBQ.L #0x4,A7 00021766 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002176a 3f 01 |? | MOVE.W D1,-(A7) 0002176c 3f 04 |? | MOVE.W D4,-(A7) 0002176e 4e 93 |N | JSR (A3) 00021770 50 4f |PO | ADDQ.L #0x8,A7 00021772 4e 94 |N | JSR (A4) 00021774 50 4f |PO | ADDQ.L #0x8,A7 00021776 20 4f | O | MOVEA.L A7,A0 00021778 43 fa ff 58 |C X | LEA.L 0x216d2,A1 0002177c 70 0c |p | MOVEQ.L #0x0c,D0 0002177e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021780 51 c8 ff fc |Q | DBF D0,0x2177e 00021784 51 4f |QO | SUBQ.L #0x8,A7 00021786 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002178a 3f 01 |? | MOVE.W D1,-(A7) 0002178c 3f 02 |? | MOVE.W D2,-(A7) 0002178e 4e 93 |N | JSR (A3) 00021790 54 4f |TO | ADDQ.L #0x2,A7 00021792 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00021796 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 0002179c 54 4f |TO | ADDQ.L #0x2,A7 0002179e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000217a4 50 4f |PO | ADDQ.L #0x8,A7 000217a6 4e 94 |N | JSR (A4) 000217a8 de c4 | | ADDA.W D4,A7 000217aa 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000217ae b0 c1 | | CMPA.W D1,A0 000217b0 67 48 |gH | BEQ 0x217fa 000217b2 9e c5 | | SUBA.W D5,A7 000217b4 22 4f |"O | MOVEA.L A7,A1 000217b6 45 fa ff 28 |E ( | LEA.L 0x216e0,A2 000217ba 70 0c |p | MOVEQ.L #0x0c,D0 000217bc 12 da | | MOVE.B (A2)+,(A1)+ 000217be 51 c8 ff fc |Q | DBF D0,0x217bc 000217c2 9e c3 | | SUBA.W D3,A7 000217c4 22 4f |"O | MOVEA.L A7,A1 000217c6 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000217ca 70 1d |p | MOVEQ.L #0x1d,D0 000217cc 12 d8 | | MOVE.B (A0)+,(A1)+ 000217ce 51 c8 ff fc |Q | DBF D0,0x217cc 000217d2 51 4f |QO | SUBQ.L #0x8,A7 000217d4 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 000217d8 3f 01 |? | MOVE.W D1,-(A7) 000217da 3f 02 |? | MOVE.W D2,-(A7) 000217dc 4e 93 |N | JSR (A3) 000217de 58 4f |XO | ADDQ.L #0x4,A7 000217e0 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000217e4 3f 01 |? | MOVE.W D1,-(A7) 000217e6 3f 03 |? | MOVE.W D3,-(A7) 000217e8 4e 93 |N | JSR (A3) 000217ea 50 4f |PO | ADDQ.L #0x8,A7 000217ec 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000217f2 50 4f |PO | ADDQ.L #0x8,A7 000217f4 4e 94 |N | JSR (A4) 000217f6 de fc 00 30 | 0 | ADDA.W #0x30,A7 000217fa 9e c5 | | SUBA.W D5,A7 000217fc 20 4f | O | MOVEA.L A7,A0 000217fe 43 fa fe ee |C | LEA.L 0x216ee,A1 00021802 70 0c |p | MOVEQ.L #0x0c,D0 00021804 10 d9 | | MOVE.B (A1)+,(A0)+ 00021806 51 c8 ff fc |Q | DBF D0,0x21804 0002180a 51 4f |QO | SUBQ.L #0x8,A7 0002180c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021810 3f 01 |? | MOVE.W D1,-(A7) 00021812 3f 02 |? | MOVE.W D2,-(A7) 00021814 4e 93 |N | JSR (A3) 00021816 54 4f |TO | ADDQ.L #0x2,A7 00021818 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 0002181c 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00021822 54 4f |TO | ADDQ.L #0x2,A7 00021824 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002182a 50 4f |PO | ADDQ.L #0x8,A7 0002182c 4e 94 |N | JSR (A4) 0002182e 5d 4f |]O | SUBQ.L #0x6,A7 00021830 20 4f | O | MOVEA.L A7,A0 00021832 43 fa fe da |C | LEA.L 0x2170e,A1 00021836 70 16 |p | MOVEQ.L #0x16,D0 00021838 10 d9 | | MOVE.B (A1)+,(A0)+ 0002183a 51 c8 ff fc |Q | DBF D0,0x21838 0002183e 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00021842 59 4f |YO | SUBQ.L #0x4,A7 00021844 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021848 3f 01 |? | MOVE.W D1,-(A7) 0002184a 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 0002184e 4e 93 |N | JSR (A3) 00021850 50 4f |PO | ADDQ.L #0x8,A7 00021852 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021858 de c3 | | ADDA.W D3,A7 0002185a 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 0002185e 4e 5e |N^ | UNLK A6 00021860 4e 75 |Nu | RTS