|
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: 8192 (0x2000)
Types: M200
Notes: M200_PROGRAM
Names: »CHECKDISK.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »CHECKDISK.M200«
└─ ⟦this⟧ »CHECKDISK.M200«
@ 20650
<LVAR 0x008 4(r)>
<POP 20650--0001 Body>
<POP 20650-20666 Prologue> Σ0 ↓
<POP 20666-20670 Naked> Σ0 ↓ →0x2067a
<MI 20666 MOVEA.L (A6+0x8),A0> {}
<MI 2066a CMPA.W #0x1,A0> {}
<MI 2066e BEQ 0x2067a> {}
<POP 20670-2067a Naked> Σ0 ↓
<MI 20670 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Call 0x20672 0x103e0> {[4, 'A0']}
WriteConsoleStringCrLf(str : String)
<POP 20678-2067a StackAdj> Δ+4 {}
<POP 2067a-20688 Naked> Σ0 ←0x20666
<POP 2067a-20688 Bailout> {}
<MI 2067a MOVEA.L (A5+0x8),A7>
<MI 2067e MOVEA.W #0x0,A6>
<MI 20682 JMP 0x219c0>
@ 20690
<POP 20690-206e8 Body>
<POP 20690-206a6 Prologue> Σ0 ↓
<POP 206a6-206a8 RegCacheLoad> Σ0 ↓
<POP 206a8-206aa Naked> Σ0 ↓
<MI 206a8 MOVEQ.L #0x01,D7> {}
<POP 206aa-206e0 Naked> Σ0 ↓ →0x206aa ←0x206aa
<MI 206aa MOVE.L D7,D0> {}
<MI 206ac ASL.L #0x1,D0> {}
<MI 206ae MOVE.L D0,D1> {}
<MI 206b0 SUBQ.L #0x1,D1> {}
<POP 0x206b2 LimitCheck 0x0 ≤ D1 ≤ 0x1d> {}
<MI 206b8 LEA.L 0x21c8a,A0> {}
<MI 206be MOVE.B (A0+D1.L+#0x36),D6> {}
<MI 206c2 SUBQ.L #0x1,D0> {}
<MI 206c4 SUBQ.L #0x1,D0> {}
<POP 0x206c6 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 206cc MOVE.B (A0+D0.L+#0x36),(A0+D1.L+#0x36)> {}
<MI 206d2 MOVE.B D6,(A0+D0.L+#0x36)> {}
<MI 206d6 ADDQ.L #0x1,D7> {}
<MI 206d8 CMPI.L #0x0000000f,D7> {}
<MI 206de BLE 0x206aa> {}
<POP 206e0-206e8 Epilogue> Σ0
@ 206e8
<LVAR -0x004 @ 1(r)>
<POP 206e8-20900 Body>
<POP 206e8-206fe Prologue> Σ0 ↓
<POP 206fe-2071c RegCacheLoad> Σ0 ↓
<POP 2071c-2079c Naked> Σ0 ↓ →0x207c8
<Blob 0x2071c [38] @> Δ-38 {[«38""»]}
<POP 2072c-2072e StackAdj> Δ-8 {[«38""»]|[-8-]}
<Lit 0x2072e 37> {[«38""»]|[-4-]|[$$Enter unit number of disk to check :_]}
<Const 0x2073c 0x0.4> Δ-4 {[«38""»]|[-4-]|[$$Enter unit number of disk to check :_]|[##0]}
<Const 0x20740 0xf.4> Δ-4 {[«38""»]|[-4-]|[$$Enter unit number of disk to check :_]|[##0]|[##15]}
<Call 0x20744 0x103ec> {[«38""»]|[-4-]|[$$Enter unit number of disk to check :_]|[##0]|[##15]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 2074a-2074e StackAdj> Δ+12 {[«38""»]|[-4-]}
<MI 2074e MOVE.L (A7)+,D0> Δ+4 {[«38""»]}
<POP 0x20750 LimitCheck 0x0 ≤ D0 ≤ 0xf> {[«38""»]}
<POP 2075a-2075c StackAdj> Δ+38 {}
<MI 2075c MOVE.W D0,0x21c7c> {}
<MI 20762 MOVE.W D0,0x10008> {}
<MI 20768 MOVE.W #0x7fff,0x1000c> {}
<MI 20770 MOVE.W #0x7fff,0x1000a> {}
<MI 20778 CLR.B 0x21c7a> {}
<Const 0x2077a 0x2.2> Δ-2 {[#2]}
<Const 0x2077c 0x2.2> Δ-2 {[#2]|[#2]}
<Const 0x2077e 0x1.4> Δ-4 {[#2]|[#2]|[##1]}
<Blob 0x20782 [4] 0x21c86> Δ-4 {[#2]|[#2]|[##1]|[«4»]}
<Pointer.fp 0x20788 <LVAR -0x004 @ 1(r)>> Δ-4 {[#2]|[#2]|[##1]|[«4»]|[@@-4]}
<Call 0x2078c 0x1036c> {[#2]|[#2]|[##1]|[«4»]|[@@-4]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 20792-20796 StackAdj> Δ+16 {}
<MI 20796 TST.B (A6-0x4)> {}
<MI 2079a BNE 0x207c8> {}
<POP 2079c-207c8 Naked> Σ0 →0x208a6
<Blob 0x2079c [42] @> Δ-42 {[«42""»]}
<POP 207ae-207b0 StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x207b0 41> {[«42""»]|[$$Can't retrieve labels due to disk errors.]}
<Call 0x207be 0x103e0> {[«42""»]|[$$Can't retrieve labels due to disk errors.]}
WriteConsoleStringCrLf(str : String)
<POP 207c0-207c4 StackAdj> Δ+46 {}
<MI 207c4 BRA 0x208a6> {}
<POP 207c8-207d4 Naked> Σ0 ↓ →0x207fa ←0x2071c
<MI 207c8 MOVE.W 0x21c8c,D0> {}
<MI 207ce CMPI.W #0x7fed,D0> {}
<MI 207d2 BEQ 0x207fa> {}
<POP 207d4-207fa Naked> Σ0 →0x208a6
<Blob 0x207d4 [20] @> Δ-20 {[«20""»]}
<POP 207e4-207e6 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x207e6 19> {[«20""»]|[$$Disk has no labels.]}
<Call 0x207f2 0x103e0> {[«20""»]|[$$Disk has no labels.]}
WriteConsoleStringCrLf(str : String)
<POP 207f4-207f6 StackAdj> Δ+24 {}
<MI 207f6 BRA 0x208a6> {}
<POP 207fa-20806 Naked> Σ0 ↓ →0x20830 ←0x207c8
<MI 207fa MOVE.W 0x21c8e,D0> {}
<MI 20800 CMPI.W #0x0003,D0> {}
<MI 20804 BEQ 0x20830> {}
<POP 20806-20830 Naked> Σ0 →0x208a6
<Blob 0x20806 [26] @> Δ-26 {[«26""»]}
<POP 20818-2081a StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x2081a 25> {[«26""»]|[$$Disk has obsolete labels.]}
<Call 0x20828 0x103e0> {[«26""»]|[$$Disk has obsolete labels.]}
WriteConsoleStringCrLf(str : String)
<POP 2082a-2082e StackAdj> Δ+30 {}
<MI 2082e BRA 0x208a6> {}
<POP 20830-208a6 Naked> Σ0 ↓ ←0x207fa
<MI 20830 MOVE.L 0x21c92,0x21c7e> {}
<Call 0x2083a 0x20690> {}
<Blob 0x2083e [30] 0x21cde> Δ-30 {[«30»]}
<POP 2084c-2084e StackAdj> Δ-8 {[«30»]|[-8-]}
<Lit 0x2084e> {[«30»]|[-4-]|[$$…]}
<Pointer.sp 0x2084e 8> Δ-4
<Const 0x20852 0x1.2> Δ-2
<Const 0x20854 0x1e.2> Δ-2
<Call 0x20858 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2085a-2085c StackAdj> Δ+8
<Call 0x2085c 0x102f0> {[«30»]|[-4-]|[$$…]}
ToUpper(a : String) : String
<POP 20862-20864 StackAdj> Δ+4 {[«30»]|[-4-]}
<MI 20864 MOVE.L (A7)+,0x21c76> Δ+4 {[«30»]}
<POP 2086a-2086e StackAdj> Δ+28 {[-2-]}
<POP 2086e-2086f StackAdj> Δ+2 {}
<Blob 0x2086f [2] @> Δ-2 {[«2""»]}
<Blob 0x20872 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x20876 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 2087a-2087c StackAdj> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[-8-]}
<Lit 0x2087c 6> {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]}
<POP 20888-20889 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]|[-4-]}
<Blob 0x20889 [4] 0x21c76> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]|[-4-]|[«4»]}
<Call 0x2088e 0x102cc> {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]|[-4-]|[«4»]}
StringDup(a : String) : String
<POP 20894-20896 StackAdj> Δ+4 {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]|[-4-]}
<Call 0x20896 0x102d0> {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2089c-2089e StackAdj> Δ+8 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Call 0x2089e 0x103e0> {[«2""»]|[«2""»]|[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 208a0-208a4 StackAdj> Δ+10 {}
<MI 208a4 MOVE.B #0x01,0x21c7a> {}
<POP 208a6-208aa Naked> Σ0 ↓ →0x208ce ←0x2079c ←0x207d4 ←0x20806
<MI 208a6 TST.B 0x21c7a> {}
<MI 208a8 BNE 0x208ce> {}
<POP 208aa-208ce Naked> Σ0 ↓
<Blob 0x208aa [20] @> Δ-20 {[«20""»]}
<POP 208ba-208bc StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x208bc 19> {[«20""»]|[$$Disk has no labels.]}
<Call 0x208c8 0x20650> {[«20""»]|[$$Disk has no labels.]}
<POP 208cc-208ce StackAdj> Δ+24 {}
<POP 208ce-208f8 Naked> Σ0 ↓ ←0x208a6
<MI 208ce CLR.L D0> {}
<MI 208d0 MOVE.B 0x21c81,D0> {}
<MI 208d6 ASR.W #0x1,D0> {}
<MI 208d8 MOVE.W D0,0x1000a> {}
<MI 208de CLR.L D1> {}
<MI 208e0 MOVE.B 0x21c80,D1> {}
<MI 208e6 MULU.W D0,D1> {}
<POP 0x208e8 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 208f2 MOVE.W D1,0x1000c> {}
<POP 208f8-20900 Epilogue> Σ0
@ 20900
<LVAR -0x002 2(rw)>
<LVAR -0x004 2(rw)>
<LVAR -0x010 @ 1(r)>
<POP 20900-20a8c Body>
<POP 20900-20916 Prologue> Σ0 ↓
<POP 20916-20920 RegCacheLoad> Σ0 ↓
<POP 20920-20922 Naked> Σ0 ↓
<MI 20920 MOVEQ.L #0x00,D5> {}
<POP 20922-2094e Naked> Σ0 ↓ →0x20922 ←0x20922
<POP 0x20922 LimitCheck 0x0 ≤ D5 ≤ 0x7ff> {}
<MI 2092c MOVE.L D5,D0> {}
<MI 2092e ASL.L #0x2,D0> {}
<MI 20930 LEA.L 0x21c6e,A0> {}
<MI 20932 LEA.L (A0+D0.L),A0> {}
<MI 20936 ANDI.W #0xc000,(A0+0x41c)> {}
<MI 2093c CLR.B (A0+0x41e)> {}
<MI 20940 CLR.B (A0+0x41f)> {}
<MI 20944 ADDQ.L #0x1,D5> {}
<MI 20946 CMPI.L #0x000007ff,D5> {}
<MI 2094c BLE 0x20922> {}
<POP 2094e-209a2 Naked> Σ0 ↓
<MI 2094e CLR.L D0> {}
<MI 20950 MOVE.B 0x21c98,D0> {}
<MI 20956 CLR.L D1> {}
<MI 20958 MOVE.B 0x21c81,D1> {}
<MI 2095e MULU.W D1,D0> {}
<MI 20960 CLR.L D2> {}
<MI 20962 MOVE.B 0x21c99,D2> {}
<MI 20968 ADDQ.W #0x1,D2> {}
<MI 2096a ADD.W D0,D2> {}
<MI 2096c LSR.W #0x1,D2> {}
<MI 2096e MOVE.W D2,(A6-0x4)> {}
<MI 20972 CLR.L D0> {}
<MI 20974 MOVE.B 0x21c9c,D0> {}
<MI 2097a MULU.W D1,D0> {}
<MI 2097c CLR.L D1> {}
<MI 2097e MOVE.B 0x21c9d,D1> {}
<MI 20984 SUBQ.W #0x1,D1> {}
<MI 20986 CLR.L D2> {}
<MI 20988 MOVE.W D0,D2> {}
<MI 2098a EXTW.L D1> {}
<MI 2098c ADD.L D2,D1> {}
<MI 2098e MOVE.L D1,D4> {}
<MI 20990 MOVEQ.L #0x02,D3> {}
<Call 0x20992 0x10294> {}
?divs_d3_d4
<MI 20998 MOVE.W D4,(A6-0x2)> {}
<MI 2099c MOVEQ.L #0x00,D6> {}
<MI 2099e MOVE.W (A6-0x4),D7> {}
<POP 209a2-209dc Naked> Σ0 ↓ →0x20a64 ←0x20a64
<POP 0x209a2 LimitCheck 0x0 ≤ D6 ≤ 0x7ff> {}
<MI 209ac MOVE.L D6,D0> {}
<MI 209ae ASL.L #0x2,D0> {}
<MI 209b0 LEA.L 0x21c6e,A0> {}
<MI 209b2 LEA.L (A0+D0.L),A0> {}
<MI 209b6 LEA.L (A0+0x41c),A0> {}
<MI 209ba MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 209bc MOVEA.L (A7)+,A4> Δ+4 {}
<Const 0x209be 0x2.2> Δ-2 {[#2]}
<MI 209c2 MOVE.W D7,-(A7)> Δ-2 {[#2]|[2, 'D7']}
<Const 0x209c4 0x1.4> Δ-4 {[#2]|[2, 'D7']|[##1]}
<MI 209c8 MOVE.L A4,-(A7)> Δ-4 {[#2]|[2, 'D7']|[##1]|[4, 'A4']}
<Pointer.fp 0x209ca <LVAR -0x010 @ 1(r)>> Δ-4 {[#2]|[2, 'D7']|[##1]|[4, 'A4']|[@@-16]}
<Call 0x209cc 0x1036c> {[#2]|[2, 'D7']|[##1]|[4, 'A4']|[@@-16]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 209d2-209d6 StackAdj> Δ+16 {}
<MI 209d6 TST.B (A6-0x10)> {}
<MI 209d8 BNE 0x20a64> {}
<POP 209dc-20a34 Naked> Σ0 ↓ →0x20a64
<Blob 0x209dc [58] @> Δ-58 {[«58""»]}
<POP 209e8-209ea StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x209ea 58> {[«58""»]|[$$Primary Bad Block Area element un-readable, trying sibling]}
<Call 0x209fe 0x103e0> {[«58""»]|[$$Primary Bad Block Area element un-readable, trying sibling]}
WriteConsoleStringCrLf(str : String)
<POP 20a04-20a08 StackAdj> Δ+60 {[-2-]}
<POP 20a08-20a09 StackAdj> Δ+2 {}
<Const 0x20a09 0x2.2> Δ-2 {[#2]}
<MI 20a0c CLR.L D0> {[#2]}
<MI 20a0e MOVE.W D7,D0> {[#2]}
<MI 20a10 ADDQ.L #0x1,D0> {[#2]}
<POP 0x20a12 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[#2]}
<MI 20a1c MOVE.W D0,-(A7)> Δ-2 {[#2]|[2, 'D0']}
<Const 0x20a1e 0x1.4> Δ-4 {[#2]|[2, 'D0']|[##1]}
<MI 20a22 MOVE.L A4,-(A7)> Δ-4 {[#2]|[2, 'D0']|[##1]|[4, 'A4']}
<Pointer.fp 0x20a24 <LVAR -0x010 @ 1(r)>> Δ-4 {[#2]|[2, 'D0']|[##1]|[4, 'A4']|[@@-16]}
<Call 0x20a26 0x1036c> {[#2]|[2, 'D0']|[##1]|[4, 'A4']|[@@-16]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 20a2c-20a30 StackAdj> Δ+16 {}
<MI 20a30 TST.B (A6-0x10)> {}
<MI 20a32 BNE 0x20a64> {}
<POP 20a34-20a64 Naked> Σ0 ↓
<Blob 0x20a34 [58] @> Δ-58 {[«58""»]}
<POP 20a46-20a48 StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x20a48 57> {[«58""»]|[$$Can't read bad block file from disk, disk errors in file!]}
<Call 0x20a5c 0x20650> {[«58""»]|[$$Can't read bad block file from disk, disk errors in file!]}
<POP 20a60-20a64 StackAdj> Δ+62 {}
<POP 20a64-20a84 Naked> Σ0 ↓ →0x209a2 ←0x209a2 ←0x209dc
<MI 20a64 ADDI.L #0x00000100,D6> {}
<MI 20a6a CLR.L D0> {}
<MI 20a6c MOVE.W D7,D0> {}
<MI 20a6e ADDQ.L #0x2,D0> {}
<POP 0x20a70 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20a7a MOVE.W D0,D7> {}
<MI 20a7c CMP.W (A6-0x2),D7> {}
<MI 20a80 BLS 0x209a2> {}
<POP 20a84-20a8c Epilogue> Σ0
@ 20a8c
<LVAR 0x008 4(r)>
<POP 20a8c-20b1c Body>
<POP 20a8c-20aa2 Prologue> Σ0 ↓
<POP 20aa2-20aaa RegCacheLoad> Σ0 ↓
<POP 20aaa-20ab0 Naked> Σ0 ↓ →0x20ac2
<MI 20aaa MOVEA.L (A4+0x4),A0> {}
<MI 20aac TST.W (A0)> {}
<MI 20aae BNE 0x20ac2> {}
<POP 20ab0-20ac2 Naked> Σ0 →0x20b14
<POP 20ab0-20ab2 StackAdj> Δ-4 {[-4-]}
<MI 20ab2 MOVE.L (A4+0x4),-(A7)> Δ-4 {[-4-]|[4, '(A4+0x4)']}
<MI 20ab4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A4+0x4)']|[4, '(A6+0x8)']}
<Call 0x20ab6 0x102d0> {[-4-]|[4, '(A4+0x4)']|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 20abc-20abe StackAdj> Δ+8 {[-4-]}
<MI 20abe MOVE.L (A7)+,(A4+0x4)> Δ+4 {}
<MI 20ac0 BRA 0x20b14> {}
<POP 20ac2-20ad8 Naked> Σ0 ↓ →0x20b08 ←0x20aaa
<MI 20ac2 MOVE.W (A0),D0> {}
<MI 20ac4 EXTW.L D0> {}
<MI 20ac6 ADDQ.L #0x2,D0> {}
<MI 20ac8 MOVEA.L (A6+0x8),A0> {}
<MI 20aca MOVE.W (A0),D1> {}
<MI 20acc EXTW.L D1> {}
<MI 20ace ADD.L D0,D1> {}
<MI 20ad0 CMPI.L #0x00000050,D1> {}
<MI 20ad6 BGT 0x20b08> {}
<POP 20ad8-20b08 Naked> Σ0 →0x20b14
<Blob 0x20ad8 [2] @> Δ-2 {[«2""»]}
<POP 20adc-20ade StackAdj> Δ-4 {[«2""»]|[-4-]}
<MI 20ade MOVE.L (A4+0x4),-(A7)> Δ-4 {[«2""»]|[-4-]|[4, '(A4+0x4)']}
<POP 20ae0-20ae2 StackAdj> Δ-4 {[«2""»]|[-4-]|[4, '(A4+0x4)']|[-4-]}
<Lit 0x20ae2 2> {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]}
<POP 20af4-20af6 StackAdj> Δ-4 {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]|[-4-]}
<MI 20af6 MOVE.L (A6+0x8),(A7)> {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]|[4, '(A6+0x8)']}
<Call 0x20af8 0x102d4> {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]|[4, '(A6+0x8)']}
StringCat3(a, b, c : String) : String
<POP 20afe-20b02 StackAdj> Δ+12 {[«2""»]|[-4-]}
<MI 20b02 MOVE.L (A7)+,(A4+0x4)> Δ+4 {[«2""»]}
<POP 20b04-20b06 StackAdj> Δ+2 {}
<MI 20b06 BRA 0x20b14> {}
<POP 20b08-20b14 Naked> Σ0 ↓ ←0x20ac2
<MI 20b08 MOVE.L (A4+0x4),-(A7)> Δ-4 {[4, '(A4+0x4)']}
<Call 0x20b0a 0x103e0> {[4, '(A4+0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 20b10-20b12 StackAdj> Δ+4 {}
<MI 20b12 MOVE.L (A6+0x8),(A4+0x4)> {}
<POP 20b14-20b1c Epilogue> Σ0 ←0x20ab0 ←0x20ad8
@ 20b1c
<LVAR 0x02a 4(r)>
<LVAR 0x026 4(r)>
<LVAR 0x022 4(r)>
<LVAR 0x01e 4(r)>
<LVAR 0x010 2(r)>
<LVAR 0x00e 2(r)>
<LVAR 0x00c 2(r)>
<LVAR 0x00a 2(r)>
<LVAR 0x008 2(r)>
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @>
<POP 20b1c-213ba Body>
<POP 20b1c-20b32 Prologue> Σ0 ↓
<POP 20b32-20b42 RegCacheLoad> Σ0 ↓
<POP 20b42-20c2a Naked> Σ0 ↓
<Pointer.fp 0x20b42 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x20b46 0x102b8> {[@@-6]}
NewString(VAR a : String)
<MI 20b4c MOVE.L (A6+0x2a),(A7)> {[4, '(A6+0x2a)']}
<Call 0x20b50 0x103d8> {[4, '(A6+0x2a)']}
WriteConsoleString(str : String)
<POP 20b56-20b57 StackAdj> Δ+4 ↓ {}
<Blob 0x20b57 [12] @> Δ-12 {[«12""»]}
<POP 20b66-20b68 StackAdj> Δ-8 {[«12""»]|[-8-]}
<Lit 0x20b68 11> {[«12""»]|[-4-]|[$$Cylinder =>]}
<MI 20b74 MOVE.L (A6+0x26),-(A7)> Δ-4 {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x26)']}
<POP 20b72-20b74 StackAdj> Δ-8 {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x26)']|[-8-]}
<Call 0x20b78 0x102e4> {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x26)']|[-8-]}
Long2String(a : Long) : String
<POP 20b7e-20b80 StackAdj> Δ+4 {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x26)']|[-4-]}
<Const 0x20b80 0x4.4> Δ-4 {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x26)']|[-4-]|[##4]}
<Call 0x20b84 0x102f4> {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x26)']|[-4-]|[##4]}
RightPad(a : String; b : Long) : String
<POP 20b8a-20b8c StackAdj> Δ+8 {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x26)']}
<Call 0x20b8c 0x102d0> {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x26)']}
StringCat2(a, b : String) : String
<POP 20b92-20b94 StackAdj> Δ+8 {[«12""»]|[-4-]}
<Call 0x20b94 0x103d8> {[«12""»]|[-4-]}
WriteConsoleString(str : String)
<POP 20b9a-20b9c StackAdj> Δ+16 {}
<Blob 0x20b9c [10] @> Δ-10 {[«10""»]}
<POP 20ba8-20baa StackAdj> Δ-8 {[«10""»]|[-8-]}
<Lit 0x20baa 10> {[«10""»]|[-4-]|[$$, Track =>]}
<MI 20bb6 MOVE.L (A6+0x22),-(A7)> Δ-4 {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0x22)']}
<POP 20bb4-20bb6 StackAdj> Δ-8 {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0x22)']|[-8-]}
<Call 0x20bba 0x102e4> {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0x22)']|[-8-]}
Long2String(a : Long) : String
<POP 20bc0-20bc2 StackAdj> Δ+4 {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0x22)']|[-4-]}
<Const 0x20bc2 0x4.4> Δ-4 {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0x22)']|[-4-]|[##4]}
<Call 0x20bc6 0x102f4> {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0x22)']|[-4-]|[##4]}
RightPad(a : String; b : Long) : String
<POP 20bcc-20bce StackAdj> Δ+8 {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0x22)']}
<Call 0x20bce 0x102d0> {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0x22)']}
StringCat2(a, b : String) : String
<POP 20bd4-20bd6 StackAdj> Δ+8 {[«10""»]|[-4-]}
<Call 0x20bd6 0x103d8> {[«10""»]|[-4-]}
WriteConsoleString(str : String)
<POP 20bdc-20bdd StackAdj> Δ+14 ↓ {}
<Blob 0x20bdd [12] @> Δ-12 {[«12""»]}
<POP 20bec-20bee StackAdj> Δ-8 {[«12""»]|[-8-]}
<Lit 0x20bee 11> {[«12""»]|[-4-]|[$$, Sector =>]}
<MI 20bfa MOVE.L (A6+0x1e),-(A7)> Δ-4 {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x1e)']}
<POP 20bf8-20bfa StackAdj> Δ-8 {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x1e)']|[-8-]}
<Call 0x20bfe 0x102e4> {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x1e)']|[-8-]}
Long2String(a : Long) : String
<POP 20c04-20c06 StackAdj> Δ+4 {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x1e)']|[-4-]}
<Const 0x20c06 0x4.4> Δ-4 {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x1e)']|[-4-]|[##4]}
<Call 0x20c0a 0x102f4> {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x1e)']|[-4-]|[##4]}
RightPad(a : String; b : Long) : String
<POP 20c10-20c12 StackAdj> Δ+8 {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x1e)']}
<Call 0x20c12 0x102d0> {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x1e)']}
StringCat2(a, b : String) : String
<POP 20c18-20c1a StackAdj> Δ+8 {[«12""»]|[-4-]}
<Call 0x20c1a 0x103d8> {[«12""»]|[-4-]}
WriteConsoleString(str : String)
<POP 20c20-20c22 StackAdj> Δ+16 {}
<Call 0x20c22 0x103dc> {}
WriteConsoleCrLf(void)
<MI 20c28 MOVEQ.L #0x00,D7> {}
<POP 20c2a-20ca0 Naked> Σ0 ↓ →0x20c2a ←0x20c2a
<POP 0x20c2a LimitCheck 0x0 ≤ D7 ≤ 0x8> {}
<MI 20c34 MOVE.L D7,D4> {}
<MI 20c36 MOVEQ.L #0x05,D3> {}
<Call 0x20c38 0x1028c> {}
?muls_d3_d4
<MI 20c3e LEA.L 0x20622,A0> {}
<Blob 0x20c42 [6] (A0+D4.L)> Δ-6 {[«6»]}
<POP 20c52-20c54 StackAdj> Δ-8 {[«6»]|[-8-]}
<Lit 0x20c54> {[«6»]|[-4-]|[$$…]}
<Pointer.sp 0x20c54 8> Δ-4
<Const 0x20c58 0x1.2> Δ-2
<Const 0x20c5a 0x5.2> Δ-2
<Call 0x20c5e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20c60-20c62 StackAdj> Δ+8
<POP 20c60-20c62 StackAdj> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]}
<POP 0x20c62 LimitCheck 0x0 ≤ D7 ≤ 0xa> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20c6c MOVE.L D7,D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20c6e ASL.L #0x1,D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20c70 CLR.L D1> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20c72 MOVE.W (A6+D0.L+#0x8),D1> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20c76 MOVE.L D1,-(A7)> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']}
<Const 0x20c78 0x4.4> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']|[##4]}
<Call 0x20c7c 0x102e8> {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 20c82-20c84 StackAdj> Δ+8 {[«6»]|[-4-]|[$$…]|[-4-]}
<Call 0x20c84 0x102d0> {[«6»]|[-4-]|[$$…]|[-4-]}
StringCat2(a, b : String) : String
<POP 20c8a-20c8c StackAdj> Δ+8 {[«6»]|[-4-]}
<Call 0x20c8c 0x103d8> {[«6»]|[-4-]}
WriteConsoleString(str : String)
<POP 20c92-20c96 StackAdj> Δ+10 {}
<MI 20c96 ADDQ.L #0x1,D7> {}
<MI 20c98 CMPI.L #0x00000008,D7> {}
<MI 20c9e BLE 0x20c2a> {}
<POP 20ca0-20cb0 Naked> Σ0 ↓ →0x20cdc
<Call 0x20ca0 0x103dc> {}
WriteConsoleCrLf(void)
<MI 20ca6 MOVE.W (A6+0x8),D0> {}
<MI 20caa ANDI.W #0x8000,D0> {}
<MI 20cae BEQ 0x20cdc> {}
<POP 20cb0-20cdc Naked> Σ0 ↓
<Blob 0x20cb0 [18] @> Δ-18 {[«18""»]}
<POP 20cc2-20cc4 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20cc4 17> {[«18""»]|[$$Special condition]}
<MI 20cd2 LEA.L (A6-0xa),A4> {[«18""»]|[$$Special condition]}
<Call 0x20cd4 0x20a8c> {[«18""»]|[$$Special condition]}
<POP 20cd8-20cdc StackAdj> Δ+22 {}
<POP 20cdc-20ce6 Naked> Σ0 ↓ →0x20d0c ←0x20ca0
<MI 20cdc MOVE.W (A6+0x8),D0> {}
<MI 20ce0 ANDI.W #0x4000,D0> {}
<MI 20ce4 BEQ 0x20d0c> {}
<POP 20ce6-20d0c Naked> Σ0 ↓
<Blob 0x20ce6 [14] @> Δ-14 {[«14""»]}
<POP 20cf2-20cf4 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20cf4 14> {[«14""»]|[$$Transfer error]}
<MI 20d02 LEA.L (A6-0xa),A4> {[«14""»]|[$$Transfer error]}
<Call 0x20d04 0x20a8c> {[«14""»]|[$$Transfer error]}
<POP 20d08-20d0c StackAdj> Δ+18 {}
<POP 20d0c-20d16 Naked> Σ0 ↓ →0x20d3c ←0x20cdc
<MI 20d0c MOVE.W (A6+0x8),D0> {}
<MI 20d10 ANDI.W #0x0800,D0> {}
<MI 20d14 BNE 0x20d3c> {}
<POP 20d16-20d3c Naked> Σ0 ↓
<Blob 0x20d16 [22] @> Δ-22 {[«22""»]}
<POP 20d22-20d24 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x20d24 22> {[«22""»]|[$$Drive is not available]}
<MI 20d32 LEA.L (A6-0xa),A4> {[«22""»]|[$$Drive is not available]}
<Call 0x20d34 0x20a8c> {[«22""»]|[$$Drive is not available]}
<POP 20d38-20d3c StackAdj> Δ+26 {}
<POP 20d3c-20d46 Naked> Σ0 ↓ →0x20d6c ←0x20d0c
<MI 20d3c MOVE.W (A6+0x8),D0> {}
<MI 20d40 ANDI.W #0x0080,D0> {}
<MI 20d44 BNE 0x20d6c> {}
<POP 20d46-20d6c Naked> Σ0 ↓
<Blob 0x20d46 [18] @> Δ-18 {[«18""»]}
<POP 20d52-20d54 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20d54 18> {[«18""»]|[$$Drive is not ready]}
<MI 20d62 LEA.L (A6-0xa),A4> {[«18""»]|[$$Drive is not ready]}
<Call 0x20d64 0x20a8c> {[«18""»]|[$$Drive is not ready]}
<POP 20d68-20d6c StackAdj> Δ+22 {}
<POP 20d6c-20d76 Naked> Σ0 ↓ →0x20da2 ←0x20d3c
<MI 20d6c MOVE.W (A6+0xa),D0> {}
<MI 20d70 ANDI.W #0x8000,D0> {}
<MI 20d74 BEQ 0x20da2> {}
<POP 20d76-20da2 Naked> Σ0 ↓
<Blob 0x20d76 [10] @> Δ-10 {[«10""»]}
<POP 20d88-20d8a StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x20d8a 9> {[«10""»]|[$$Data late]}
<MI 20d98 LEA.L (A6-0xa),A4> {[«10""»]|[$$Data late]}
<Call 0x20d9a 0x20a8c> {[«10""»]|[$$Data late]}
<POP 20d9e-20da2 StackAdj> Δ+14 {}
<POP 20da2-20dac Naked> Σ0 ↓ →0x20dd8 ←0x20d6c
<MI 20da2 MOVE.W (A6+0xa),D0> {}
<MI 20da6 ANDI.W #0x4000,D0> {}
<MI 20daa BEQ 0x20dd8> {}
<POP 20dac-20dd8 Naked> Σ0 ↓
<Blob 0x20dac [18] @> Δ-18 {[«18""»]}
<POP 20dbe-20dc0 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20dc0 17> {[«18""»]|[$$Write check error]}
<MI 20dce LEA.L (A6-0xa),A4> {[«18""»]|[$$Write check error]}
<Call 0x20dd0 0x20a8c> {[«18""»]|[$$Write check error]}
<POP 20dd4-20dd8 StackAdj> Δ+22 {}
<POP 20dd8-20de2 Naked> Σ0 ↓ →0x20e08 ←0x20da2
<MI 20dd8 MOVE.W (A6+0xa),D0> {}
<MI 20ddc ANDI.W #0x1000,D0> {}
<MI 20de0 BEQ 0x20e08> {}
<POP 20de2-20e08 Naked> Σ0 ↓
<Blob 0x20de2 [18] @> Δ-18 {[«18""»]}
<POP 20dee-20df0 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20df0 18> {[«18""»]|[$$Non-existent drive]}
<MI 20dfe LEA.L (A6-0xa),A4> {[«18""»]|[$$Non-existent drive]}
<Call 0x20e00 0x20a8c> {[«18""»]|[$$Non-existent drive]}
<POP 20e04-20e08 StackAdj> Δ+22 {}
<POP 20e08-20e12 Naked> Σ0 ↓ →0x20e3c ←0x20dd8
<MI 20e08 MOVE.W (A6+0xa),D0> {}
<MI 20e0c ANDI.W #0x0800,D0> {}
<MI 20e10 BEQ 0x20e3c> {}
<POP 20e12-20e3c Naked> Σ0 ↓
<Blob 0x20e12 [20] @> Δ-20 {[«20""»]}
<POP 20e22-20e24 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x20e24 19> {[«20""»]|[$$Non-existent memory]}
<MI 20e32 LEA.L (A6-0xa),A4> {[«20""»]|[$$Non-existent memory]}
<Call 0x20e34 0x20a8c> {[«20""»]|[$$Non-existent memory]}
<POP 20e38-20e3c StackAdj> Δ+24 {}
<POP 20e3c-20e46 Naked> Σ0 ↓ →0x20e72 ←0x20e08
<MI 20e3c MOVE.W (A6+0xa),D0> {}
<MI 20e40 ANDI.W #0x0400,D0> {}
<MI 20e44 BEQ 0x20e72> {}
<POP 20e46-20e72 Naked> Σ0 ↓
<Blob 0x20e46 [14] @> Δ-14 {[«14""»]}
<POP 20e58-20e5a StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20e5a 13> {[«14""»]|[$$Program error]}
<MI 20e68 LEA.L (A6-0xa),A4> {[«14""»]|[$$Program error]}
<Call 0x20e6a 0x20a8c> {[«14""»]|[$$Program error]}
<POP 20e6e-20e72 StackAdj> Δ+18 {}
<POP 20e72-20e7c Naked> Σ0 ↓ →0x20ea4 ←0x20e3c
<MI 20e72 MOVE.W (A6+0xa),D0> {}
<MI 20e76 ANDI.W #0x0200,D0> {}
<MI 20e7a BEQ 0x20ea4> {}
<POP 20e7c-20ea4 Naked> Σ0 ↓
<Blob 0x20e7c [16] @> Δ-16 {[«16""»]}
<POP 20e8c-20e8e StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x20e8e 15> {[«16""»]|[$$Missed transfer]}
<MI 20e9c LEA.L (A6-0xa),A4> {[«16""»]|[$$Missed transfer]}
<Call 0x20e9e 0x20a8c> {[«16""»]|[$$Missed transfer]}
<POP 20ea2-20ea4 StackAdj> Δ+20 {}
<POP 20ea4-20eae Naked> Σ0 ↓ →0x20ed6 ←0x20e72
<MI 20ea4 MOVE.W (A6+0xa),D0> {}
<MI 20ea8 ANDI.W #0x0040,D0> {}
<MI 20eac BNE 0x20ed6> {}
<POP 20eae-20ed6 Naked> Σ0 ↓
<Blob 0x20eae [16] @> Δ-16 {[«16""»]}
<POP 20ebe-20ec0 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x20ec0 15> {[«16""»]|[$$Input not ready]}
<MI 20ece LEA.L (A6-0xa),A4> {[«16""»]|[$$Input not ready]}
<Call 0x20ed0 0x20a8c> {[«16""»]|[$$Input not ready]}
<POP 20ed4-20ed6 StackAdj> Δ+20 {}
<POP 20ed6-20ee0 Naked> Σ0 ↓ →0x20f0c ←0x20ea4
<MI 20ed6 MOVE.W (A6+0xa),D0> {}
<MI 20eda ANDI.W #0x0004,D0> {}
<MI 20ede BEQ 0x20f0c> {}
<POP 20ee0-20f0c Naked> Σ0 ↓
<Blob 0x20ee0 [30] @> Δ-30 {[«30""»]}
<POP 20ef2-20ef4 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x20ef4 29> {[«30""»]|[$$Bus address increment inhibit]}
<MI 20f02 LEA.L (A6-0xa),A4> {[«30""»]|[$$Bus address increment inhibit]}
<Call 0x20f04 0x20a8c> {[«30""»]|[$$Bus address increment inhibit]}
<POP 20f08-20f0c StackAdj> Δ+34 {}
<POP 20f0c-20f16 Naked> Σ0 ↓ →0x20f42 ←0x20ed6
<MI 20f0c MOVE.W (A6+0xc),D0> {}
<MI 20f10 ANDI.W #0x2000,D0> {}
<MI 20f14 BEQ 0x20f42> {}
<POP 20f16-20f42 Naked> Σ0 ↓
<Blob 0x20f16 [24] @> Δ-24 {[«24""»]}
<POP 20f28-20f2a StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x20f2a 23> {[«24""»]|[$$Positioning in progress]}
<MI 20f38 LEA.L (A6-0xa),A4> {[«24""»]|[$$Positioning in progress]}
<Call 0x20f3a 0x20a8c> {[«24""»]|[$$Positioning in progress]}
<POP 20f3e-20f42 StackAdj> Δ+28 {}
<POP 20f42-20f4c Naked> Σ0 ↓ →0x20f72 ←0x20f0c
<MI 20f42 MOVE.W (A6+0xc),D0> {}
<MI 20f46 ANDI.W #0x1000,D0> {}
<MI 20f4a BNE 0x20f72> {}
<POP 20f4c-20f72 Naked> Σ0 ↓
<Blob 0x20f4c [18] @> Δ-18 {[«18""»]}
<POP 20f58-20f5a StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20f5a 18> {[«18""»]|[$$Medium not on-line]}
<MI 20f68 LEA.L (A6-0xa),A4> {[«18""»]|[$$Medium not on-line]}
<Call 0x20f6a 0x20a8c> {[«18""»]|[$$Medium not on-line]}
<POP 20f6e-20f72 StackAdj> Δ+22 {}
<POP 20f72-20f7c Naked> Σ0 ↓ →0x20fa0 ←0x20f42
<MI 20f72 MOVE.W (A6+0xc),D0> {}
<MI 20f76 ANDI.W #0x0800,D0> {}
<MI 20f7a BEQ 0x20fa0> {}
<POP 20f7c-20fa0 Naked> Σ0 ↓
<Blob 0x20f7c [4] @> Δ-4 {[«4""»]}
<Blob 0x20f80 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20f84 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 20f88-20f8a StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x20f8a 12> {[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
<MI 20f98 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
<Call 0x20f9a 0x20a8c> {[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
<POP 20f9e-20fa0 StackAdj> Δ+16 {}
<POP 20fa0-20faa Naked> Σ0 ↓ →0x20fd0 ←0x20f72
<MI 20fa0 MOVE.W (A6+0xc),D0> {}
<MI 20fa4 ANDI.W #0x0400,D0> {}
<MI 20fa8 BEQ 0x20fd0> {}
<POP 20faa-20fd0 Naked> Σ0 ↓
<Blob 0x20faa [22] @> Δ-22 {[«22""»]}
<POP 20fb6-20fb8 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x20fb8 22> {[«22""»]|[$$Last sector transfered]}
<MI 20fc6 LEA.L (A6-0xa),A4> {[«22""»]|[$$Last sector transfered]}
<Call 0x20fc8 0x20a8c> {[«22""»]|[$$Last sector transfered]}
<POP 20fcc-20fd0 StackAdj> Δ+26 {}
<POP 20fd0-20fda Naked> Σ0 ↓ →0x21006 ←0x20fa0
<MI 20fd0 MOVE.W (A6+0xc),D0> {}
<MI 20fd4 ANDI.W #0x0100,D0> {}
<MI 20fd8 BNE 0x21006> {}
<POP 20fda-21006 Naked> Σ0 ↓
<Blob 0x20fda [18] @> Δ-18 {[«18""»]}
<POP 20fec-20fee StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20fee 17> {[«18""»]|[$$Drive not present]}
<MI 20ffc LEA.L (A6-0xa),A4> {[«18""»]|[$$Drive not present]}
<Call 0x20ffe 0x20a8c> {[«18""»]|[$$Drive not present]}
<POP 21002-21006 StackAdj> Δ+22 {}
<POP 21006-21010 Naked> Σ0 ↓ →0x21038 ←0x20fd0
<MI 21006 MOVE.W (A6+0xc),D0> {}
<MI 2100a ANDI.W #0x0080,D0> {}
<MI 2100e BNE 0x21038> {}
<POP 21010-21038 Naked> Σ0 ↓
<Blob 0x21010 [16] @> Δ-16 {[«16""»]}
<POP 21020-21022 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x21022 15> {[«16""»]|[$$Drive not ready]}
<MI 21030 LEA.L (A6-0xa),A4> {[«16""»]|[$$Drive not ready]}
<Call 0x21032 0x20a8c> {[«16""»]|[$$Drive not ready]}
<POP 21036-21038 StackAdj> Δ+20 {}
<POP 21038-21042 Naked> Σ0 ↓ →0x21068 ←0x21006
<MI 21038 MOVE.W (A6+0xc),D0> {}
<MI 2103c ANDI.W #0x0040,D0> {}
<MI 21040 BNE 0x21068> {}
<POP 21042-21068 Naked> Σ0 ↓
<Blob 0x21042 [4] @> Δ-4 {[«4""»]}
<Blob 0x21046 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2104a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2104e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21052-21054 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21054 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<MI 21060 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<Call 0x21062 0x20a8c> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<POP 21066-21068 StackAdj> Δ+20 {}
<POP 21068-21072 Naked> Σ0 ↓ →0x21098 ←0x21038
<MI 21068 MOVE.W (A6+0xe),D0> {}
<MI 2106c ANDI.W #0x8000,D0> {}
<MI 21070 BEQ 0x21098> {}
<POP 21072-21098 Naked> Σ0 ↓
<Blob 0x21072 [4] @> Δ-4 {[«4""»]}
<Blob 0x21076 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2107a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2107e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21082-21084 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21084 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
<MI 21090 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
<Call 0x21092 0x20a8c> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
<POP 21096-21098 StackAdj> Δ+20 {}
<POP 21098-210a2 Naked> Σ0 ↓ →0x210c8 ←0x21068
<MI 21098 MOVE.W (A6+0xe),D0> {}
<MI 2109c ANDI.W #0x4000,D0> {}
<MI 210a0 BEQ 0x210c8> {}
<POP 210a2-210c8 Naked> Σ0 ↓
<Blob 0x210a2 [2] @> Δ-2 {[«2""»]}
<Blob 0x210a6 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x210aa [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 210ae-210b0 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x210b0 6> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<MI 210be LEA.L (A6-0xa),A4> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<Call 0x210c0 0x20a8c> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<POP 210c4-210c8 StackAdj> Δ+10 {}
<POP 210c8-210d2 Naked> Σ0 ↓ →0x210f6 ←0x21098
<MI 210c8 MOVE.W (A6+0xe),D0> {}
<MI 210cc ANDI.W #0x2000,D0> {}
<MI 210d0 BEQ 0x210f6> {}
<POP 210d2-210f6 Naked> Σ0 ↓
<Blob 0x210d2 [20] @> Δ-20 {[«20""»]}
<POP 210de-210e0 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x210e0 20> {[«20""»]|[$$Operation incomplete]}
<MI 210ec LEA.L (A6-0xa),A4> {[«20""»]|[$$Operation incomplete]}
<Call 0x210ee 0x20a8c> {[«20""»]|[$$Operation incomplete]}
<POP 210f2-210f6 StackAdj> Δ+24 {}
<POP 210f6-21100 Naked> Σ0 ↓ →0x21126 ←0x210c8
<MI 210f6 MOVE.W (A6+0xe),D0> {}
<MI 210fa ANDI.W #0x1000,D0> {}
<MI 210fe BEQ 0x21126> {}
<POP 21100-21126 Naked> Σ0 ↓
<Blob 0x21100 [18] @> Δ-18 {[«18""»]}
<POP 2110c-2110e StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2110e 18> {[«18""»]|[$$Drive timing error]}
<MI 2111c LEA.L (A6-0xa),A4> {[«18""»]|[$$Drive timing error]}
<Call 0x2111e 0x20a8c> {[«18""»]|[$$Drive timing error]}
<POP 21122-21126 StackAdj> Δ+22 {}
<POP 21126-21130 Naked> Σ0 ↓ →0x21156 ←0x210f6
<MI 21126 MOVE.W (A6+0xe),D0> {}
<MI 2112a ANDI.W #0x0800,D0> {}
<MI 2112e BEQ 0x21156> {}
<POP 21130-21156 Naked> Σ0 ↓
<Blob 0x21130 [4] @> Δ-4 {[«4""»]}
<Blob 0x21134 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21138 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2113c [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21140-21142 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21142 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<MI 2114e LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<Call 0x21150 0x20a8c> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<POP 21154-21156 StackAdj> Δ+20 {}
<POP 21156-21160 Naked> Σ0 ↓ →0x2118c ←0x21126
<MI 21156 MOVE.W (A6+0xe),D0> {}
<MI 2115a ANDI.W #0x0400,D0> {}
<MI 2115e BEQ 0x2118c> {}
<POP 21160-2118c Naked> Σ0 ↓
<Blob 0x21160 [22] @> Δ-22 {[«22""»]}
<POP 21172-21174 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x21174 21> {[«22""»]|[$$Invalid address error]}
<MI 21182 LEA.L (A6-0xa),A4> {[«22""»]|[$$Invalid address error]}
<Call 0x21184 0x20a8c> {[«22""»]|[$$Invalid address error]}
<POP 21188-2118c StackAdj> Δ+26 {}
<POP 2118c-21196 Naked> Σ0 ↓ →0x211bc ←0x21156
<MI 2118c MOVE.W (A6+0xe),D0> {}
<MI 21190 ANDI.W #0x0200,D0> {}
<MI 21194 BEQ 0x211bc> {}
<POP 21196-211bc Naked> Σ0 ↓
<Blob 0x21196 [22] @> Δ-22 {[«22""»]}
<POP 211a2-211a4 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x211a4 22> {[«22""»]|[$$Address overflow error]}
<MI 211b2 LEA.L (A6-0xa),A4> {[«22""»]|[$$Address overflow error]}
<Call 0x211b4 0x20a8c> {[«22""»]|[$$Address overflow error]}
<POP 211b8-211bc StackAdj> Δ+26 {}
<POP 211bc-211c6 Naked> Σ0 ↓ →0x211ec ←0x2118c
<MI 211bc MOVE.W (A6+0xe),D0> {}
<MI 211c0 ANDI.W #0x0100,D0> {}
<MI 211c4 BEQ 0x211ec> {}
<POP 211c6-211ec Naked> Σ0 ↓
<Blob 0x211c6 [4] @> Δ-4 {[«4""»]}
<Blob 0x211ca [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x211ce [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x211d2 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 211d6-211d8 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x211d8 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<MI 211e4 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<Call 0x211e6 0x20a8c> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<POP 211ea-211ec StackAdj> Δ+20 {}
<POP 211ec-211f6 Naked> Σ0 ↓ →0x2121a ←0x211bc
<MI 211ec MOVE.W (A6+0xe),D0> {}
<MI 211f0 ANDI.W #0x0080,D0> {}
<MI 211f4 BEQ 0x2121a> {}
<POP 211f6-2121a Naked> Σ0 ↓
<Blob 0x211f6 [20] @> Δ-20 {[«20""»]}
<POP 21202-21204 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21204 20> {[«20""»]|[$$Header compare error]}
<MI 21210 LEA.L (A6-0xa),A4> {[«20""»]|[$$Header compare error]}
<Call 0x21212 0x20a8c> {[«20""»]|[$$Header compare error]}
<POP 21216-2121a StackAdj> Δ+24 {}
<POP 2121a-21224 Naked> Σ0 ↓ →0x2124a ←0x211ec
<MI 2121a MOVE.W (A6+0xe),D0> {}
<MI 2121e ANDI.W #0x0040,D0> {}
<MI 21222 BEQ 0x2124a> {}
<POP 21224-2124a Naked> Σ0 ↓
<Blob 0x21224 [14] @> Δ-14 {[«14""»]}
<POP 21230-21232 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21232 14> {[«14""»]|[$$Hard ECC error]}
<MI 21240 LEA.L (A6-0xa),A4> {[«14""»]|[$$Hard ECC error]}
<Call 0x21242 0x20a8c> {[«14""»]|[$$Hard ECC error]}
<POP 21246-2124a StackAdj> Δ+18 {}
<POP 2124a-21252 Naked> Σ0 ↓ →0x21276 ←0x2121a
<MI 2124a MOVE.W (A6+0xe),D0> {}
<MI 2124e AND.W #0x10,D0> {}
<MI 21250 BEQ 0x21276> {}
<POP 21252-21276 Naked> Σ0 ↓
<Blob 0x21252 [4] @> Δ-4 {[«4""»]}
<Blob 0x21256 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2125a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2125e-21260 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21260 12> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<MI 2126e LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<Call 0x21270 0x20a8c> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<POP 21274-21276 StackAdj> Δ+16 {}
<POP 21276-21280 Naked> Σ0 ↓ →0x212ac ←0x2124a
<MI 21276 MOVE.W (A6+0xe),D0> {}
<MI 2127a ANDI.W #0x0004,D0> {}
<MI 2127e BEQ 0x212ac> {}
<POP 21280-212ac Naked> Σ0 ↓
<Blob 0x21280 [30] @> Δ-30 {[«30""»]}
<POP 21292-21294 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x21294 29> {[«30""»]|[$$Register modification refused]}
<MI 212a2 LEA.L (A6-0xa),A4> {[«30""»]|[$$Register modification refused]}
<Call 0x212a4 0x20a8c> {[«30""»]|[$$Register modification refused]}
<POP 212a8-212ac StackAdj> Δ+34 {}
<POP 212ac-212b4 Naked> Σ0 ↓ →0x212da ←0x21276
<MI 212ac MOVE.W (A6+0xe),D0> {}
<MI 212b0 AND.W #0x01,D0> {}
<MI 212b2 BEQ 0x212da> {}
<POP 212b4-212da Naked> Σ0 ↓
<Blob 0x212b4 [4] @> Δ-4 {[«4""»]}
<Blob 0x212b8 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x212bc [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x212c0 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 212c4-212c6 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x212c6 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<MI 212d2 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<Call 0x212d4 0x20a8c> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<POP 212d8-212da StackAdj> Δ+20 {}
<POP 212da-212e4 Naked> Σ0 ↓ →0x21310 ←0x212ac
<MI 212da MOVE.W (A6+0x10),D0> {}
<MI 212de ANDI.W #0x8000,D0> {}
<MI 212e2 BEQ 0x21310> {}
<POP 212e4-21310 Naked> Σ0 ↓
<Blob 0x212e4 [10] @> Δ-10 {[«10""»]}
<POP 212f6-212f8 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x212f8 9> {[«10""»]|[$$Bad block]}
<MI 21306 LEA.L (A6-0xa),A4> {[«10""»]|[$$Bad block]}
<Call 0x21308 0x20a8c> {[«10""»]|[$$Bad block]}
<POP 2130c-21310 StackAdj> Δ+14 {}
<POP 21310-2131a Naked> Σ0 ↓ →0x21342 ←0x212da
<MI 21310 MOVE.W (A6+0x10),D0> {}
<MI 21314 ANDI.W #0x4000,D0> {}
<MI 21318 BEQ 0x21342> {}
<POP 2131a-21342 Naked> Σ0 ↓
<Blob 0x2131a [16] @> Δ-16 {[«16""»]}
<POP 2132a-2132c StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x2132c 15> {[«16""»]|[$$Seek incomplete]}
<MI 2133a LEA.L (A6-0xa),A4> {[«16""»]|[$$Seek incomplete]}
<Call 0x2133c 0x20a8c> {[«16""»]|[$$Seek incomplete]}
<POP 21340-21342 StackAdj> Δ+20 {}
<POP 21342-2134c Naked> Σ0 ↓ →0x21378 ←0x21310
<MI 21342 MOVE.W (A6+0x10),D0> {}
<MI 21346 ANDI.W #0x1000,D0> {}
<MI 2134a BEQ 0x21378> {}
<POP 2134c-21378 Naked> Σ0 ↓
<Blob 0x2134c [62] @> Δ-62 {[«62""»]}
<POP 2135e-21360 StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x21360 61> {[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
<MI 2136e LEA.L (A6-0xa),A4> {[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
<Call 0x21370 0x20a8c> {[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
<POP 21374-21378 StackAdj> Δ+66 {}
<POP 21378-21382 Naked> Σ0 ↓ →0x213a6 ←0x21342
<MI 21378 MOVE.W (A6+0x10),D0> {}
<MI 2137c ANDI.W #0x0080,D0> {}
<MI 21380 BEQ 0x213a6> {}
<POP 21382-213a6 Naked> Σ0 ↓
<Blob 0x21382 [4] @> Δ-4 {[«4""»]}
<Blob 0x21386 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2138a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2138e-21390 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21390 12> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<MI 2139e LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<Call 0x213a0 0x20a8c> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<POP 213a4-213a6 StackAdj> Δ+16 {}
<POP 213a6-213b2 Naked> Σ0 ↓ ←0x21378
<MI 213a6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x213aa 0x103e0> {[4, '(A6-0x6)']}
WriteConsoleStringCrLf(str : String)
<POP 213b0-213b2 StackAdj> Δ+4 {}
<POP 213b2-213ba Epilogue> Σ0
@ 213ba
<LVAR 0x008 4(r)>
<LVAR -0x008 2(w)>
<LVAR -0x00e 2(w)>
<LVAR -0x012 @>
<LVAR -0x014 @ 1(r)>
<POP 213ba-21444 Body>
<POP 213ba-213d0 Prologue> Σ0 ↓
<POP 213d0-2140c Naked> Σ0 ↓ →0x2143c
<MI 213d0 MOVE.W #0x2,(A6-0xe)> {}
<MI 213d6 MOVE.W 0x21c7c,D0> {}
<MI 213dc ASL.W #0x8,D0> {}
<MI 213de ADDQ.W #0x1,D0> {}
<MI 213e0 MOVE.W D0,(A6-0x8)> {}
<Pointer.fp 0x213e4 <LVAR -0x012 @>> Δ-4 {[@@-18]}
<MI 213e8 MOVEA.L (A6+0x8),A0> {[@@-18]}
<MI 213ec MOVE.L A0,-(A7)> Δ-4 {[@@-18]|[4, 'A0']}
<MI 213ee CLR.W -(A7)> Δ-2 {[@@-18]|[4, 'A0']|[#0]}
<Call 0x213f0 0x10204> {[@@-18]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 213f6-213f8 StackAdj> Δ+8 {[-2-]}
<MI 213f8 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x213fa <LVAR -0x014 @ 1(r)>> Δ-4 {[-2-]|[@@-20]}
<Call 0x213fe 0x10206> {[-2-]|[@@-20]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21404-21406 StackAdj> Δ+6 {}
<MI 21406 TST.B (A6-0x14)> {}
<MI 2140a BNE 0x2143c> {}
<POP 2140c-2143c Naked> Σ0 ↓
<Blob 0x2140c [38] @> Δ-38 {[«38""»]}
<POP 2141e-21420 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x21420 37> {[«38""»]|[$$Error while reading disk error status]}
<Call 0x21434 0x20650> {[«38""»]|[$$Error while reading disk error status]}
<POP 21438-2143c StackAdj> Δ+42 {}
<POP 2143c-21444 Epilogue> Σ0 ←0x213d0
@ 21444
<LVAR 0x028 4(r)>
<LVAR 0x024 4(r)>
<LVAR 0x020 4(r)>
<LVAR 0x008 1(r)>
<POP 21444-2155a Body>
<POP 21444-2145a Prologue> Σ0 ↓
<POP 2145a-21468 RegCacheLoad> Σ0 ↓
<POP 21468-21474 Naked> Σ0 ↓ →0x214ca
<MI 21468 MOVEQ.L #0x00,D7> {}
<MI 2146a MOVEQ.L #0x00,D6> {}
<MI 2146c MOVE.L (A6+0x28),D0> {}
<MI 2146e OR.L (A6+0x24),D0> {}
<MI 21470 OR.L (A6+0x20),D0> {}
<MI 21472 BEQ 0x214ca> {}
<POP 21474-2149a Naked> Σ0 ↓ →0x214bc ←0x214c2
<POP 0x21474 LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {}
<MI 2147e MOVE.L D7,D0> {}
<MI 21480 ASL.L #0x2,D0> {}
<MI 21482 LEA.L 0x21c6e,A0> {}
<MI 21488 LEA.L (A0+D0.L),A0> {}
<MI 2148c CLR.L D0> {}
<MI 2148e MOVE.W (A0+0x41c),D0> {}
<MI 21492 LSL.W #0x2,D0> {}
<MI 21494 LSR.W #0x2,D0> {}
<MI 21496 CMP.L (A6+0x28),D0> {}
<MI 21498 BNE 0x214bc> {}
<POP 2149a-214a4 Naked> Σ0 ↓ →0x214bc
<MI 2149a CLR.L D0> {}
<MI 2149c MOVE.B (A0+0x41e),D0> {}
<MI 214a0 CMP.L (A6+0x24),D0> {}
<MI 214a2 BNE 0x214bc> {}
<POP 214a4-214ae Naked> Σ0 ↓ →0x214ba
<MI 214a4 CLR.L D0> {}
<MI 214a6 MOVE.B (A0+0x41f),D0> {}
<MI 214aa CMP.L (A6+0x20),D0> {}
<MI 214ac BEQ 0x214ba> {}
<POP 214ae-214ba Naked> Σ0 ↓ →0x214bc
<MI 214ae CLR.L D0> {}
<MI 214b0 MOVE.B (A0+0x41f),D0> {}
<MI 214b4 CMPI.W #0x00ff,D0> {}
<MI 214b8 BNE 0x214bc> {}
<POP 214ba-214bc Naked> Σ0 ↓ ←0x214a4
<MI 214ba MOVEQ.L #0x01,D6> {}
<POP 214bc-214c2 Naked> Σ0 ↓ →0x214ca ←0x21474 ←0x2149a ←0x214ae
<MI 214bc ADDQ.L #0x1,D7> {}
<MI 214be TST.B D6> {}
<MI 214c0 BNE 0x214ca> {}
<POP 214c2-214ca Naked> Σ0 ↓ →0x21474
<MI 214c2 CMPI.L #0x000007ff,D7> {}
<MI 214c8 BLE 0x21474> {}
<POP 214ca-214ce Naked> Σ0 ↓ →0x21514 ←0x21468 ←0x214bc
<MI 214ca TST.B D6> {}
<MI 214cc BEQ 0x21514> {}
<POP 214ce-214d4 Naked> Σ0 ↓ →0x21512
<MI 214ce TST.B (A6+0x8)> {}
<MI 214d2 BEQ 0x21512> {}
<POP 214d4-21512 Naked> Σ0 ↓
<Blob 0x214d4 [34] @> Δ-34 {[«34""»]}
<POP 214e6-214e8 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x214e8 33> {[«34""»]|[$$Previously detected bad block at_]}
<POP 214f8-214fa StackAdj> Δ-4 {[«34""»]|[$$Previously detected bad block at_]|[-4-]}
<MI 214fa MOVE.L (A6+0x28),(A7)> {[«34""»]|[$$Previously detected bad block at_]|[4, '(A6+0x28)']}
<MI 214fc MOVE.L (A6+0x24),-(A7)> Δ-4 {[«34""»]|[$$Previously detected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']}
<MI 214fe MOVE.L (A6+0x20),-(A7)> Δ-4 {[«34""»]|[$$Previously detected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']}
<Blob 0x21500 [22] (A6+0x20)> Δ-22 {[«34""»]|[$$Previously detected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']|[«22»]}
<Call 0x2150a 0x20b1c> {[«34""»]|[$$Previously detected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']|[«22»]}
<POP 2150e-21512 StackAdj> Δ+72 {}
<POP 21512-21514 Naked> Σ0 →0x21552 ←0x214ce
<MI 21512 BRA 0x21552> {}
<POP 21514-21552 Naked> Σ0 ↓ ←0x214ca
<Blob 0x21514 [36] @> Δ-36 {[«36""»]}
<POP 21526-21528 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x21528 35> {[«36""»]|[$$Previously undetected bad block at_]}
<POP 21538-2153a StackAdj> Δ-4 {[«36""»]|[$$Previously undetected bad block at_]|[-4-]}
<MI 2153a MOVE.L (A6+0x28),(A7)> {[«36""»]|[$$Previously undetected bad block at_]|[4, '(A6+0x28)']}
<MI 2153c MOVE.L (A6+0x24),-(A7)> Δ-4 {[«36""»]|[$$Previously undetected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']}
<MI 2153e MOVE.L (A6+0x20),-(A7)> Δ-4 {[«36""»]|[$$Previously undetected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']}
<Blob 0x21540 [22] (A6+0x20)> Δ-22 {[«36""»]|[$$Previously undetected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']|[«22»]}
<Call 0x2154a 0x20b1c> {[«36""»]|[$$Previously undetected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']|[«22»]}
<POP 2154e-21552 StackAdj> Δ+74 {}
<POP 21552-2155a Epilogue> Σ0 ←0x21512
@ 2155a
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2155a-21628 Body>
<POP 2155a-21570 Prologue> Σ0 ↓
<POP 21570-2157e RegCacheLoad> Σ0 ↓
<POP 2157e-2159a Naked> Σ0 Δ-12 ↓ →0x215be
<MI 2157e MOVEA.L (A6+0x8),A0> {}
<MI 21582 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21584 CLR.B (A0)> {[4, 'A0']}
<MI 21586 MOVEA.L (A6+0x10),A1> {[4, 'A0']}
<MI 2158a MOVE.L A1,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']}
<MI 2158c CLR.L D0> {[4, 'A0']|[4, 'A1']}
<MI 2158e MOVE.B 0x21c81,D0> {[4, 'A0']|[4, 'A1']}
<MI 21594 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D0']}
<MI 21596 CMP.L (A1),D0> {[4, 'A0']|[4, 'A1']|[4, 'D0']}
<MI 21598 BHI 0x215be> {[4, 'A0']|[4, 'A1']|[4, 'D0']}
<POP 2159a-215b0 Naked> Σ-12 ↓ →0x215be
<MI 2159a MOVEA.L (A6+0x14),A0> {[-12-]}
<MI 2159e MOVE.L (A1),D4> {[-12-]}
<MI 215a0 MOVE.L D0,D3> {[-12-]}
<Call 0x215a2 0x10294> {[-12-]}
?divs_d3_d4
<MI 215a4 ADD.L D4,(A0)> {[-12-]}
<MI 215a6 MOVE.L D3,(A1)> {[-12-]}
<MI 215a8 CLR.L D0> {[-12-]}
<MI 215aa MOVE.B 0x21c80,D0> {[-12-]}
<MI 215ac CMP.L (A0),D0> {[-12-]}
<MI 215ae BHI 0x215be> {[-12-]}
<POP 215b0-215be Naked> Σ-12 ↓
<MI 215b0 MOVEA.L (A6+0x18),A1> {[-12-]}
<MI 215b4 MOVE.L (A0),D4> {[-12-]}
<MI 215b6 MOVE.L D0,D3> {[-12-]}
<Call 0x215b8 0x10294> {[-12-]}
?divs_d3_d4
<MI 215ba ADD.L D4,(A1)> {[-12-]}
<MI 215bc MOVE.L D3,(A0)> {[-12-]}
<POP 215be-215d2 Naked> Σ-12 ↓ →0x215da ←0x2157e ←0x2159a
<MI 215be MOVEA.L (A6+0x18),A0> {[-12-]}
<MI 215c2 MOVE.L (A0),D0> {[-12-]}
<MI 215c4 ADDQ.L #0x1,D0> {[-12-]}
<MI 215c6 CLR.L D1> {[-12-]}
<MI 215c8 MOVE.W 0x21c7e,D1> {[-12-]}
<MI 215ce CMP.L D1,D0> {[-12-]}
<MI 215d0 BCC 0x215da> {[-12-]}
<POP 215d2-215da Naked> Σ-12 →0x2161c ←0x21614
<MI 215d2 MOVEA.L (A6+0xc),A0> {[-12-]}
<MI 215d6 MOVE.L #0x08,(A0)> {[-12-]}
<MI 215d8 BRA 0x2161c> {[-12-]}
<POP 215da-215de Naked> Σ-12 ↓ →0x215e8 ←0x215be
<MI 215da CMP.L (A0),D1> {[-12-]}
<MI 215dc BNE 0x215e8> {[-12-]}
<POP 215de-215e8 Naked> Σ-12 →0x2161c
<MI 215de MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 215e2 MOVE.B #0x01,(A0)> {[-12-]}
<MI 215e6 BRA 0x2161c> {[-12-]}
<POP 215e8-21614 Naked> Σ-12 ↓ →0x21616 ←0x215da
<MI 215e8 MOVEA.L (A6+0x14),A0> {[-12-]}
<MI 215ec CLR.L D0> {[-12-]}
<MI 215ee MOVE.B 0x21c80,D0> {[-12-]}
<MI 215f0 SUB.L (A0),D0> {[-12-]}
<MI 215f2 SUBQ.L #0x1,D0> {[-12-]}
<MI 215f4 MOVE.L D0,D4> {[-12-]}
<MI 215f6 MOVE.L (A7),D3> {[-12-]}
<Call 0x215f8 0x1028c> {[-12-]}
?muls_d3_d4
<MI 215fe MOVE.L (A7),D0> {[-12-]}
<MI 21600 MOVEA.L (A7+0x4),A0> {[-12-]}
<MI 21604 SUB.L (A0),D0> {[-12-]}
<MI 21606 ADD.L D4,D0> {[-12-]}
<MI 21608 MOVE.L D0,D4> {[-12-]}
<MI 2160a MOVEQ.L #0x02,D3> {[-12-]}
<Call 0x2160c 0x10294> {[-12-]}
?divs_d3_d4
<MI 2160e MOVE.L D4,D7> {[-12-]}
<MI 21610 CMP.L #0x08,D7> {[-12-]}
<MI 21612 BLT 0x21616> {[-12-]}
<POP 21614-21616 Naked> Σ-12 →0x215d2
<MI 21614 BRA 0x215d2> {[-12-]}
<POP 21616-2161c Naked> Σ-12 ↓ ←0x215e8
<MI 21616 MOVEA.L (A6+0xc),A0> {[-12-]}
<MI 2161a MOVE.L D7,(A0)> {[-12-]}
<POP 2161c-21620 Naked> Σ-12 Δ+12 ↓ ←0x215d2 ←0x215de
<POP 2161c-21620 StackAdj> Δ+12 {}
<POP 21620-21628 Epilogue> Σ0
@ 21628
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00c @ 1(r)>
<LVAR -0x012 2(r)>
<LVAR -0x014 2(r)>
<LVAR -0x022 @>
<LVAR -0x024 @ 1(r)>
<LVAR -0x026 2(w)>
<LVAR -0x028 2(w)>
<LVAR -0x02a 2(w)>
<LVAR -0x02c 2(r)>
<LVAR -0x02e 2(r)>
<LVAR -0x030 2(w)>
<LVAR -0x032 2(r)>
<LVAR -0x034 @ 2(w)>
<LVAR -0x03a @ 4(rw)>
<LVAR -0x03e @ 4(rw)>
<LVAR -0x042 @ 4(rw)>
<POP 21628-21824 Body>
<POP 21628-2163e Prologue> Σ0 ↓
<POP 2163e-21652 RegCacheLoad> Σ0 ↓
<POP 21652-21682 Naked> Σ0 ↓
<MI 21652 MOVEQ.L #-0x01,D7> {}
<MI 21654 CLR.L (A6-0x42)> {}
<MI 21656 CLR.L (A6-0x3e)> {}
<MI 21658 CLR.L (A6-0x3a)> {}
<MI 2165a MOVE.L #0x8,(A6-0xa)> {}
<MI 21662 CLR.W (A6-0x32)> {}
<MI 21666 MOVE.W #0x2,(A6-0x30)> {}
<MI 2166c CLR.W (A6-0x2e)> {}
<MI 21670 CLR.W (A6-0x2c)> {}
<MI 21674 MOVE.W 0x21c7c,D0> {}
<MI 2167a ASL.W #0x8,D0> {}
<MI 2167c ADDQ.W #0x2,D0> {}
<MI 2167e MOVE.W D0,(A6-0x2a)> {}
<POP 21682-216e6 Naked> Σ0 ↓ →0x2175a ←0x21814
<MI 21682 MOVE.L (A6-0xa),D0> {}
<MI 21686 ASL.L #0x8,D0> {}
<POP 0x21688 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 2168e MOVE.W D0,(A6-0x34)> {}
<MI 21692 MOVE.L (A6-0x42),D0> {}
<POP 0x21694 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 2169a MOVE.W D0,(A6-0x28)> {}
<MI 2169e MOVE.L (A6-0x3e),D0> {}
<MI 216a0 ASL.L #0x8,D0> {}
<MI 216a2 ADD.L (A6-0x3a),D0> {}
<POP 0x216a4 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 216aa MOVE.W D0,(A6-0x26)> {}
<Pointer.fp 0x216ae <LVAR -0x034 @ 2(w)>> Δ-4 {[@@-52]}
<MI 216b2 LEA.L 0x2408a,A0> {[@@-52]}
<MI 216b8 MOVE.L A0,-(A7)> Δ-4 {[@@-52]|[4, 'A0']}
<MI 216ba CLR.W -(A7)> Δ-2 {[@@-52]|[4, 'A0']|[#0]}
<Call 0x216bc 0x10204> {[@@-52]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 216c2-216c4 StackAdj> Δ+10 {}
<MI 216c4 MOVE.L (A6-0xa),D0> {}
<MI 216c8 ASL.L #0x1,D0> {}
<MI 216ca ADD.L D0,(A6-0x3a)> {}
<Pointer.fp 0x216cc <LVAR -0x042 @ 4(rw)>> Δ-4 {[@@-66]}
<Pointer.fp 0x216ce <LVAR -0x03e @ 4(rw)>> Δ-4 {[@@-66]|[@@-62]}
<Pointer.fp 0x216d0 <LVAR -0x03a @ 4(rw)>> Δ-4 {[@@-66]|[@@-62]|[@@-58]}
<Pointer.fp 0x216d2 <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-66]|[@@-62]|[@@-58]|[@@-10]}
<Pointer.fp 0x216d6 <LVAR -0x024 @ 1(r)>> Δ-4 {[@@-66]|[@@-62]|[@@-58]|[@@-10]|[@@-36]}
<Call 0x216da 0x2155a> {[@@-66]|[@@-62]|[@@-58]|[@@-10]|[@@-36]}
<POP 216de-216e2 StackAdj> Δ+20 {}
<MI 216e2 CMP.L (A6-0x42),D7> {}
<MI 216e4 BEQ 0x2175a> {}
<POP 216e6-2175a Naked> Σ0 ↓
<MI 216e6 MOVE.L (A6-0x42),D7> {}
<Blob 0x216e8 [10] @> Δ-10 {[«10""»]}
<POP 216f8-216fa StackAdj> Δ-8 {[«10""»]|[-8-]}
<Lit 0x216fa 9> {[«10""»]|[-4-]|[$$Cylinder_]}
<MI 2170c MOVE.L (A6-0x42),(A7)> {[«10""»]|[-4-]|[4, '(A6-0x42)']}
<POP 21706-2170c StackAdj> Δ-8 {[«10""»]|[-4-]|[4, '(A6-0x42)']|[-8-]}
<Call 0x2170e 0x102e4> {[«10""»]|[-4-]|[4, '(A6-0x42)']|[-8-]}
Long2String(a : Long) : String
<POP 21714-21716 StackAdj> Δ+4 {[«10""»]|[-4-]|[4, '(A6-0x42)']|[-4-]}
<Call 0x21716 0x102d0> {[«10""»]|[-4-]|[4, '(A6-0x42)']|[-4-]}
StringCat2(a, b : String) : String
<POP 2171c-2171e StackAdj> Δ+8 {[«10""»]|[-4-]}
<MI 2171e MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«10""»]}
<POP 21722-21724 StackAdj> Δ+6 {[-4-]}
<MI 21724 MOVE.L (A6-0x6),(A7)> {[4, '(A6-0x6)']}
<Const 0x21728 0xd.2> Δ-2 {[4, '(A6-0x6)']|[#13]}
<Call 0x2172c 0x102c0> {[4, '(A6-0x6)']|[#13]}
AppendChar(MOD b : String; a : char)
<Call 0x21732 0x103f8> {[4, '(A6-0x6)']|[#13]}
GetConsoleConfig() : Long
<MI 21738 MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x2173a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 21740 MOVE.W D0,(A7)> {[2, 'D0']}
<MI 21742 MOVE.L (A6-0x6),-(A7)> Δ-4 {[2, 'D0']|[4, '(A6-0x6)']}
<Call 0x21746 0x1020a> {[2, 'D0']|[4, '(A6-0x6)']}
KC05_PortWriteString(port : Word ; str : String)
<POP 2174c-2174e StackAdj> Δ+6 {}
<Pointer.fp 0x2174e <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x21752 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 21758-2175a StackAdj> Δ+4 {}
<POP 2175a-21770 Naked> Σ0 ↓ →0x21814 ←0x21682
<MI 2175a CLR.W -(A7)> Δ-2 {[#0]}
<Pointer.fp 0x2175c <LVAR -0x00c @ 1(r)>> Δ-4 {[#0]|[@@-12]}
<Call 0x21760 0x10206> {[#0]|[@@-12]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21766-21768 StackAdj> Δ+6 {}
<MI 21768 TST.B (A6-0xc)> {}
<MI 2176c BNE 0x21814> {}
<POP 21770-217a2 Naked> Σ0 ↓ →0x217a8
<Pointer.fp 0x21770 <LVAR -0x022 @>> Δ-4 {[@@-34]}
<Call 0x21774 0x213ba> {[@@-34]}
<POP 21778-2177a StackAdj> Δ+4 {}
<MI 2177a CLR.L D0> {}
<MI 2177c MOVE.W (A6-0x14),D0> {}
<MI 21780 MOVE.L D0,(A6-0x42)> {}
<MI 21782 MOVE.W (A6-0x12),D1> {}
<MI 21786 ANDI.W #0x00ff,D1> {}
<MI 2178a CLR.L D2> {}
<MI 2178c MOVE.W D1,D2> {}
<MI 2178e MOVE.L D2,(A6-0x3a)> {}
<MI 21790 MOVE.W (A6-0x12),D6> {}
<MI 21794 MOVE.W D6,D1> {}
<MI 21796 LSR.W #0x8,D1> {}
<MI 21798 CLR.L D3> {}
<MI 2179a MOVE.W D1,D3> {}
<MI 2179c MOVE.L D3,(A6-0x3e)> {}
<MI 2179e TST.L D2> {}
<MI 217a0 BEQ 0x217a8> {}
<POP 217a2-217a8 Naked> Σ0 →0x217d2
<MI 217a2 SUBQ.L #0x1,D2> {}
<MI 217a4 MOVE.L D2,(A6-0x3a)> {}
<MI 217a6 BRA 0x217d2> {}
<POP 217a8-217ba Naked> Σ0 ↓ →0x217c0 ←0x21770
<MI 217a8 CLR.L D1> {}
<MI 217aa MOVE.B 0x21c81,D1> {}
<MI 217b0 SUBQ.W #0x1,D1> {}
<MI 217b2 EXTW.L D1> {}
<MI 217b4 MOVE.L D1,(A6-0x3a)> {}
<MI 217b6 TST.L D3> {}
<MI 217b8 BEQ 0x217c0> {}
<POP 217ba-217c0 Naked> Σ0 →0x217d2
<MI 217ba SUBQ.L #0x1,D3> {}
<MI 217bc MOVE.L D3,(A6-0x3e)> {}
<MI 217be BRA 0x217d2> {}
<POP 217c0-217d2 Naked> Σ0 ↓ ←0x217a8
<MI 217c0 CLR.L D1> {}
<MI 217c2 MOVE.B 0x21c80,D1> {}
<MI 217c8 SUBQ.W #0x1,D1> {}
<MI 217ca EXTW.L D1> {}
<MI 217cc MOVE.L D1,(A6-0x3e)> {}
<MI 217ce SUBQ.L #0x1,D0> {}
<MI 217d0 MOVE.L D0,(A6-0x42)> {}
<POP 217d2-217fc Naked> Σ0 ↓ →0x217fe ←0x217a2 ←0x217ba
<MI 217d2 MOVE.L (A6-0x42),-(A7)> Δ-4 {[4, '(A6-0x42)']}
<MI 217d4 MOVE.L (A6-0x3e),-(A7)> Δ-4 {[4, '(A6-0x42)']|[4, '(A6-0x3e)']}
<MI 217d6 MOVE.L (A6-0x3a),-(A7)> Δ-4 {[4, '(A6-0x42)']|[4, '(A6-0x3e)']|[4, '(A6-0x3a)']}
<Blob 0x217d8 [22] (A6-0xc)> Δ-22 {[4, '(A6-0x42)']|[4, '(A6-0x3e)']|[4, '(A6-0x3a)']|[«22»]}
<MI 217e4 MOVE.B (A6+0x8),-(A7)> Δ-2 {[4, '(A6-0x42)']|[4, '(A6-0x3e)']|[4, '(A6-0x3a)']|[«22»]|[2, '(A6+0x8)']}
<Call 0x217e8 0x21444> {[4, '(A6-0x42)']|[4, '(A6-0x3e)']|[4, '(A6-0x3a)']|[«22»]|[2, '(A6+0x8)']}
<POP 217ec-217f0 StackAdj> Δ+36 {}
<MI 217f0 ADDQ.L #0x1,(A6-0x3a)> {}
<MI 217f2 MOVE.L (A6-0x3a),D0> {}
<MI 217f4 ANDI.L #0x00000001,D0> {}
<MI 217fa BEQ 0x217fe> {}
<POP 217fc-217fe Naked> Σ0 ↓
<MI 217fc ADDQ.L #0x1,(A6-0x3a)> {}
<POP 217fe-21814 Naked> Σ0 ↓ ←0x217d2
<Pointer.fp 0x217fe <LVAR -0x042 @ 4(rw)>> Δ-4 {[@@-66]}
<Pointer.fp 0x21800 <LVAR -0x03e @ 4(rw)>> Δ-4 {[@@-66]|[@@-62]}
<Pointer.fp 0x21802 <LVAR -0x03a @ 4(rw)>> Δ-4 {[@@-66]|[@@-62]|[@@-58]}
<Pointer.fp 0x21804 <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-66]|[@@-62]|[@@-58]|[@@-10]}
<Pointer.fp 0x21808 <LVAR -0x024 @ 1(r)>> Δ-4 {[@@-66]|[@@-62]|[@@-58]|[@@-10]|[@@-36]}
<Call 0x2180c 0x2155a> {[@@-66]|[@@-62]|[@@-58]|[@@-10]|[@@-36]}
<POP 21810-21814 StackAdj> Δ+20 {}
<POP 21814-2181c Naked> Σ0 ↓ →0x21682 ←0x2175a
<MI 21814 TST.B (A6-0x24)> {}
<MI 21818 BEQ 0x21682> {}
<POP 2181c-21824 Epilogue> Σ0
@ 21824
<POP 21824-21918 Body>
<POP 21824-2183a Prologue> Σ0 ↓
<POP 2183a-21844 RegCacheLoad> Σ0 ↓
<POP 21844-218ae Naked> Σ0 Δ-4 ↓
<Blob 0x21844 [48] @> Δ-48 {[«48""»]}
<POP 21850-21852 StackAdj> Δ-8 {[«48""»]|[-8-]}
<Lit 0x21852 48> {[«48""»]|[-4-]|[$$How many passes of read only surface analysis :_]}
<Const 0x21860 0x1.4> Δ-4 {[«48""»]|[-4-]|[$$How many passes of read only surface analysis :_]|[##1]}
<Const 0x21864 0x7fffffff.4> Δ-4 {[«48""»]|[-4-]|[$$How many passes of read only surface analysis :_]|[##1]|[##2147483647]}
<Call 0x2186a 0x103ec> {[«48""»]|[-4-]|[$$How many passes of read only surface analysis :_]|[##1]|[##2147483647]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 21870-21872 StackAdj> Δ+12 {[«48""»]|[-4-]}
<MI 21872 MOVE.L (A7)+,D6> Δ+4 {[«48""»]}
<POP 21874-21875 StackAdj> Δ+48 ↓ {}
<Blob 0x21875 [50] @> Δ-50 {[«50""»]}
<POP 21884-21886 StackAdj> Δ-6 {[«50""»]|[-6-]}
<Lit 0x21886 49> {[«50""»]|[-2-]|[$$Report all errors (as opposed to only new errors)]}
<POP 21892-21894 StackAdj> Δ-2 {[«50""»]|[-2-]|[$$Report all errors (as opposed to only new errors)]|[-2-]}
<MI 21894 CLR.B (A7)> {[«50""»]|[-2-]|[$$Report all errors (as opposed to only new errors)]|[-2-]}
<Call 0x21896 0x103f0> {[«50""»]|[-2-]|[$$Report all errors (as opposed to only new errors)]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 2189c-2189e StackAdj> Δ+6 {[«50""»]|[-2-]}
<MI 2189e MOVE.B (A7)+,D0> Δ+2 {[«50""»]}
<MI 218a0 EXTB.W D0> {[«50""»]}
<POP 0x218a2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«50""»]}
<POP 218a4-218a8 StackAdj> Δ+50 {}
<MI 218a8 MOVE.B D0,D5> {}
<MI 218aa MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 218ac MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 218ae-218b2 Naked> Σ-4 ↓ →0x2190e ←0x218b2
<MI 218ae CMP.L (A7),D7> {[-4-]}
<MI 218b0 BGT 0x2190e> {[-4-]}
<POP 218b2-2190e Naked> Σ-4 ↓ →0x218ae
<MI 218b2 MOVE.B D5,-(A7)> Δ-2 {[-4-]|[2, 'D5']}
<Call 0x218b4 0x21628> {[-4-]|[2, 'D5']}
<POP 218b8-218b9 StackAdj> Δ+2 ↓ {[-4-]}
<Blob 0x218b9 [6] @> Δ-6 {[-4-]|[«6""»]}
<Blob 0x218c8 [10] @> Δ-10 {[-4-]|[«6""»]|[«10""»]}
<POP 218d4-218d6 StackAdj> Δ-8 {[-4-]|[«6""»]|[«10""»]|[-8-]}
<Lit 0x218d6 5> {[-4-]|[«6""»]|[«10""»]|[-4-]|[$$Pass_]}
<MI 218e2 MOVE.L D7,(A7)> {[-4-]|[«6""»]|[«10""»]|[-4-]|[4, 'D7']}
<POP 218e0-218e2 StackAdj> Δ-8 {[-4-]|[«6""»]|[«10""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x218e4 0x102e4> {[-4-]|[«6""»]|[«10""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x218ea 10> {[-4-]|[«6""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[$$ complete.]}
<Call 0x218f8 0x102d4> {[-4-]|[«6""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[$$ complete.]}
StringCat3(a, b, c : String) : String
<POP 218fe-21900 StackAdj> Δ+12 {[-4-]|[«6""»]|[«10""»]|[-4-]}
<Call 0x21900 0x103e0> {[-4-]|[«6""»]|[«10""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21906-2190a StackAdj> Δ+20 {[-4-]}
<MI 2190a ADDQ.L #0x1,D7> {[-4-]}
<MI 2190c BVC 0x218ae> {[-4-]}
<POP 2190e-21910 Naked> Σ-4 Δ+4 ↓ ←0x218ae
<POP 2190e-21910 StackAdj> Δ+4 {}
<POP 21910-21918 Epilogue> Σ0
@ 21918
<LVAR -0x002 @>
<LVAR -0x004 @ 1(r)>
<POP 21918-21992 Body>
<POP 21918-2192e Prologue> Σ0 ↓
<POP 2192e-21948 Naked> Σ0 ↓ →0x21976
<Pointer.fp 0x2192e <LVAR -0x004 @ 1(r)>> Δ-4 {[@@-4]}
<Pointer.fp 0x21932 <LVAR -0x002 @>> Δ-4 {[@@-4]|[@@-2]}
<Call 0x21936 0x10200> {[@@-4]|[@@-2]}
KC00_GetBootDev(VAR a : Byte; VAR b : Word)
<POP 2193c-2193e StackAdj> Δ+8 {}
<MI 2193e MOVE.B (A6-0x4),D0> {}
<MI 21942 CMPI.B #0x02,D0> {}
<MI 21946 BEQ 0x21976> {}
<POP 21948-21974 Naked> Σ0 ↓
<Blob 0x21948 [42] @> Δ-42 {[«42""»]}
<POP 21954-21956 StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x21956 42> {[«42""»]|[$$Program not boot from disk, re-boot system]}
<Call 0x2196a 0x103e0> {[«42""»]|[$$Program not boot from disk, re-boot system]}
WriteConsoleStringCrLf(str : String)
<POP 21970-21974 StackAdj> Δ+46 {}
<POP 21974-21976 Naked> Σ0 →0x21974 ←0x21974
<MI 21974 BRA 0x21974> {}
<POP 21976-2198a Naked> Σ0 ↓ ←0x2192e
<Call 0x21976 0x10398> {}
FSCALL_10398
<MI 2197c CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2197e 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x21982 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 21988-2198a StackAdj> Δ+6 {}
<POP 2198a-21992 Epilogue> Σ0
@ 21992
START
<POP 21992--0001 Body>
<POP 21992-2199c Prologue> Σ0
<POP 2199c-219c0 Naked> Σ0 ↓
<Call 0x2199c 0x10400> {}
FSCALL_10400
<MI 219a2 CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x219a4 0x10404> {[#0]}
SetSomeKindOfFlag(a : Byte)
<POP 219aa-219ac StackAdj> Δ+2 {}
<MI 219ac LEA.L 0x21c8a,A0> {}
<MI 219b2 MOVE.L A0,0x21c82> {}
<MI 219b8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 219ba MOVE.L (A7)+,0x21c86> Δ+4 {}
<POP 219c0-21a56 Naked> Σ0 Δ-18 ↓ →0x21a5a ←0x21a5e
<MI 219c0 MOVE.L #0x1,0x20020> {}
<MI 219ca MOVE.L #0x1,0x10026> {}
<MI 219d4 CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x219d6 0x103ac> {[#0]}
Set_is_open_ERROR_LOG(a : Bool)
<POP 219dc-219de StackAdj> Δ+2 {}
<Call 0x219de 0x206e8> {}
<Call 0x219e2 0x20900> {}
<Call 0x219e6 0x21824> {}
<Const 0x219ea 0x21c76.4> Δ-4 {[##138358]}
<Call 0x219f0 0x102bc> {[##138358]}
FreeString(VAR a : String)
<POP 219f6-219f7 StackAdj> Δ+4 ↓ {}
<Blob 0x219f7 [6] @> Δ-6 {[«6""»]}
<POP 21a06-21a08 StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x21a08 5> {[«6""»]|[$$Done!]}
<Call 0x21a1c 0x103e0> {[«6""»]|[$$Done!]}
WriteConsoleStringCrLf(str : String)
<POP 21a22-21a26 StackAdj> Δ+10 {}
<Blob 0x21a26 [18] @> Δ-18 {[«18""»]}
<POP 21a32-21a34 StackAdj> Δ-6 {[«18""»]|[-6-]}
<Lit 0x21a34 18> {[«18""»]|[-2-]|[$$Check another disk]}
<POP 21a46-21a48 StackAdj> Δ-2 {[«18""»]|[-2-]|[$$Check another disk]|[-2-]}
<MI 21a48 CLR.B (A7)> {[«18""»]|[-2-]|[$$Check another disk]|[-2-]}
<Call 0x21a4a 0x103f0> {[«18""»]|[-2-]|[$$Check another disk]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 21a50-21a52 StackAdj> Δ+6 {[«18""»]|[-2-]}
<MI 21a52 TST.B (A7)+> Δ+2 {[«18""»]}
<MI 21a54 BNE 0x21a5a> {[«18""»]}
<POP 21a56-21a5a Naked> Σ-18 ↓
<Call 0x21a56 0x21918> {[-18-]}
<POP 21a5a-21a5e Naked> Σ-18 Δ+18 ↓ ←0x219c0
<POP 21a5a-21a5e StackAdj> Δ+18 {}
<POP 21a5e-21a62 Naked> Σ0 →0x219c0
<MI 21a5e BRA 0x219c0> {}
@ 21a76
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 21a76-21ade Body>
<POP 21a76-21a8c Prologue> Σ0 ↓
<POP 21a8c-21ad6 Naked> Σ0 ↓
<Blob 0x21a8c [14] @> Δ-14 {[«14""»]}
<Const 0x21a98 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 21a9c-21a9e StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x21a9e 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 21ab0-21ab2 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21ab2 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21ab6 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21ab8 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21aba MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x21abc 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21ac2-21ac4 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x21ac4 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21aca-21acc StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x21acc 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 21ad2-21ad6 StackAdj> Δ+20 {}
<POP 21ad6-21ade Epilogue> Σ0
@ 21b32
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 21b32-21c6e Body>
<POP 21b32-21b48 Prologue> Σ0 ↓
<POP 21b48-21b5e RegCacheLoad> Σ0 ↓
<POP 21b5e-21bbe Naked> Σ0 ↓ →0x21c06
<Call 0x21b5e 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21b64 [18] @> Δ-18 {[«18""»]}
<POP 21b70-21b72 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21b72 18> {[«18""»]|[$$Experiment error :]}
<Call 0x21b7e 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 21b80-21b81 StackAdj> Δ+22 ↓ {}
<Blob 0x21b81 [14] @> Δ-14 {[«14""»]}
<POP 21b90-21b92 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21b92 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 21b9c-21b9e StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 21b9e MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x21ba2 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 21ba8-21baa StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x21baa 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21bb0-21bb2 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21bb2 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21bb4-21bb6 StackAdj> Δ+18 {}
<MI 21bb6 MOVEA.L (A6+0xa),A0> {}
<MI 21bba CMPA.W #0x01,A0> {}
<MI 21bbc BEQ 0x21c06> {}
<POP 21bbe-21c06 Naked> Σ0 ↓
<Blob 0x21bbe [14] @> Δ-14 {[«14""»]}
<Blob 0x21bce [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 21bde-21be0 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x21be0 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 21bea-21bec StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x21bec> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x21bec 12> Δ-4
<Const 0x21bf0 0x1.2> Δ-2
<Const 0x21bf2 0x1e.2> Δ-2
<Call 0x21bf4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21bf6-21bf8 StackAdj> Δ+8
<Call 0x21bf8 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 21bfe-21c00 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x21c00 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21c02-21c06 StackAdj> Δ+48 {}
<POP 21c06-21c66 Naked> Σ0 ↓ ←0x21b5e
<Blob 0x21c06 [14] @> Δ-14 {[«14""»]}
<POP 21c16-21c18 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21c18 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 21c22-21c24 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 21c24 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x21c28 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 21c2e-21c30 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x21c30 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21c36-21c38 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21c38 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21c3a-21c3b StackAdj> Δ+18 ↓ {}
<Blob 0x21c3b [24] @> Δ-24 {[«24""»]}
<Const 0x21c4a 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 21c4e-21c50 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x21c50 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x21c5e 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 21c64-21c66 StackAdj> Δ+30 {}
<POP 21c66-21c6e Epilogue> Σ0
00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ; import all
00020000 ; import kind.program
00020000 ; no ident.4bed6b9fb3704d49
00020000 ; --------------------------------------------------------------------------------------
00020000 stack.top:
00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END
00020004 00 02 19 92 | | .CODE START
00020008 00 01 02 88 | | .CODE FSCALL_10288
0002000c heap.top:
0002000c 00 02 80 9a | | .PTR 0x2809a
00020010 code.end:
00020010 00 02 1c 6e | n | .PTR 0x21c6e
00020014 00 00 00 00 | | .CONST 0x00000000
00020018 programfailurehandler:
00020018 00 02 1a 76 | v | .CODE PROG_FAIL
0002001c experimentfailurehandler:
0002001c 00 02 1b 32 | 2 | .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 45 6e 74 65 72 20 75 6e |Enter un| .TXT 'Enter unit number of disk to check :_ '
00020130 43 61 6e 27 74 20 72 65 |Can't re| .TXT 'Can't retrieve labels due to disk errors. '
0002015a 44 69 73 6b 20 68 61 73 |Disk has| .TXT 'Disk has no labels. '
0002016e 44 69 73 6b 20 68 61 73 |Disk has| .TXT 'Disk has obsolete labels. '
00020188 48 44 |HD | .TXT 'HD'
0002018a 41 20 |A | .TXT 'A '
0002018c 3a 5f |:_ | .TXT ':_'
0002018e 43 61 6e 27 74 20 72 65 |Can't re| .TXT 'Can't read bad block file from disk, disk errors in file! '
000201c8 50 72 69 6d 61 72 79 20 |Primary | .TXT 'Primary Bad Block Area element un-readable, trying sibling'
00020202 20 43 53 31 3d 20 | CS1= | .XXX[0x6]
00020208 20 43 53 32 3d 20 20 44 | CS2= D| .XXX[0x30]
00020210 53 3d 20 20 20 45 52 31 |S= ER1|
00020218 3d 20 20 45 52 32 3d 20 |= ER2= |
00020220 20 45 43 31 3d 20 20 45 | EC1= E|
00020228 43 32 3d 20 20 44 43 3d |C2= DC=|
00020230 20 20 20 44 41 3d 20 20 | DA= |
00020238 53 70 65 63 69 61 6c 20 |Special | .TXT 'Special condition '
0002024a 54 72 61 6e 73 66 65 72 |Transfer| .TXT 'Transfer error'
00020258 44 72 69 76 65 20 69 73 |Drive is| .TXT 'Drive is not available'
0002026e 44 72 69 76 65 20 69 73 |Drive is| .TXT 'Drive is not ready'
00020280 44 61 74 61 20 6c 61 74 |Data lat| .TXT 'Data late '
0002028a 57 72 69 74 65 20 63 68 |Write ch| .TXT 'Write check error '
0002029c 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent drive'
000202ae 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent memory '
000202c2 50 72 6f 67 72 61 6d 20 |Program | .TXT 'Program error '
000202d0 4d 69 73 73 65 64 20 74 |Missed t| .TXT 'Missed transfer '
000202e0 49 6e 70 75 74 20 6e 6f |Input no| .TXT 'Input not ready '
000202f0 42 75 73 20 61 64 64 72 |Bus addr| .TXT 'Bus address increment inhibit '
0002030e 50 6f 73 69 74 69 6f 6e |Position| .TXT 'Positioning in progress '
00020326 4d 65 64 69 75 6d 20 6e |Medium n| .TXT 'Medium not on-line'
00020338 57 72 69 74 |Writ | .TXT 'Writ'
0002033c 65 20 6c 6f |e lo | .TXT 'e lo'
00020340 63 6b 65 64 |cked | .TXT 'cked'
00020344 4c 61 73 74 20 73 65 63 |Last sec| .TXT 'Last sector transfered'
0002035a 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not present '
0002036c 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not ready '
0002037c 56 6f 6c 75 |Volu | .TXT 'Volu'
00020380 6d 65 20 6e |me n | .TXT 'me n'
00020384 6f 74 20 76 |ot v | .TXT 'ot v'
00020388 61 6c 69 64 |alid | .TXT 'alid'
0002038c 44 61 74 61 |Data | .TXT 'Data'
00020390 20 63 68 65 | che | .TXT ' che'
00020394 63 6b 20 28 |ck ( | .TXT 'ck ('
00020398 45 43 43 29 |ECC) | .TXT 'ECC)'
0002039c 55 6e |Un | .TXT 'Un'
0002039e 73 61 |sa | .TXT 'sa'
000203a0 66 65 |fe | .TXT 'fe'
000203a2 4f 70 65 72 61 74 69 6f |Operatio| .TXT 'Operation incomplete'
000203b6 44 72 69 76 65 20 74 69 |Drive ti| .TXT 'Drive timing error'
000203c8 57 72 69 74 |Writ | .TXT 'Writ'
000203cc 65 20 6c 6f |e lo | .TXT 'e lo'
000203d0 63 6b 20 65 |ck e | .TXT 'ck e'
000203d4 72 72 6f 72 |rror | .TXT 'rror'
000203d8 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid address error '
000203ee 41 64 64 72 65 73 73 20 |Address | .TXT 'Address overflow error'
00020404 48 65 61 64 |Head | .TXT 'Head'
00020408 65 72 20 43 |er C | .TXT 'er C'
0002040c 52 43 20 65 |RC e | .TXT 'RC e'
00020410 72 72 6f 72 |rror | .TXT 'rror'
00020414 48 65 61 64 65 72 20 63 |Header c| .TXT 'Header compare error'
00020428 48 61 72 64 20 45 43 43 |Hard ECC| .TXT 'Hard ECC error'
00020436 46 6f 72 6d |Form | .TXT 'Form'
0002043a 61 74 20 65 |at e | .TXT 'at e'
0002043e 72 72 6f 72 |rror | .TXT 'rror'
00020442 52 65 67 69 73 74 65 72 |Register| .TXT 'Register modification refused '
00020460 49 6c 6c 65 |Ille | .TXT 'Ille'
00020464 67 61 6c 20 |gal | .TXT 'gal '
00020468 66 75 6e 63 |func | .TXT 'func'
0002046c 74 69 6f 6e |tion | .TXT 'tion'
00020470 42 61 64 20 62 6c 6f 63 |Bad bloc| .TXT 'Bad block '
0002047a 53 65 65 6b 20 69 6e 63 |Seek inc| .TXT 'Seek incomplete '
0002048a 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid command (volume not valid, off-line, or off cylinder) '
000204c8 44 65 76 69 |Devi | .TXT 'Devi'
000204cc 63 65 20 63 |ce c | .TXT 'ce c'
000204d0 68 65 63 6b |heck | .TXT 'heck'
000204d4 2c 5f |,_ | .TXT ',_'
000204d6 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder => '
000204e2 2c 20 54 72 61 63 6b 20 |, Track | .TXT ', Track =>'
000204ec 2c 20 53 65 63 74 6f 72 |, Sector| .TXT ', Sector => '
000204f8 45 72 72 6f 72 20 77 68 |Error wh| .TXT 'Error while reading disk error status '
0002051e 50 72 65 76 69 6f 75 73 |Previous| .TXT 'Previously detected bad block at_ '
00020540 50 72 65 76 69 6f 75 73 |Previous| .TXT 'Previously undetected bad block at_ '
00020564 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder_ '
0002056e 48 6f 77 20 6d 61 6e 79 |How many| .TXT 'How many passes of read only surface analysis :_'
0002059e 52 65 70 6f 72 74 20 61 |Report a| .TXT 'Report all errors (as opposed to only new errors) '
000205d0 50 61 73 73 5f 20 |Pass_ | .TXT 'Pass_ '
000205d6 20 63 6f 6d 70 6c 65 74 | complet| .TXT ' complete.'
000205e0 50 72 6f 67 72 61 6d 20 |Program | .TXT 'Program not boot from disk, re-boot system'
0002060a 44 6f 6e 65 21 20 |Done! | .TXT 'Done! '
00020610 43 68 65 63 6b 20 61 6e |Check an| .TXT 'Check another disk'
00020622 20 43 53 31 3d 20 | CS1= | .XXX[0x6]
00020628 43 53 32 3d 20 44 53 3d |CS2= DS=| .XXX[0x28]
00020630 20 20 45 52 31 3d 20 45 | ER1= E|
00020638 52 32 3d 20 45 43 31 3d |R2= EC1=|
00020640 20 45 43 32 3d 20 44 43 | EC2= DC|
00020648 3d 20 20 44 41 3d 20 00 |= DA= |
00020650 ; --------------------------------------------------------------------------------------
00020650 ; OMSI PASCAL Function
00020650 ; <LVAR 0x008 4(r)>
00020650 ; --------------------------------------------------------------------------------------
00020650 4e 56 ff f0 |NV | LINK.W A6,#0xfff0
00020654 bf d5 | | CMPA.L (A5),A7
00020656 62 06 |b | BHI 0x2065e
00020658 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002065c 4e 76 |Nv | TRAPV
0002065e de fc 00 10 | | ADDA.W #0x10,A7
00020662 48 e7 00 80 |H | MOVEM.L A0,-(A7)
00020666 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
0002066a b0 fc 00 01 | | CMPA.W #0x1,A0
0002066e 67 0a |g | BEQ 0x2067a
00020670 2f 08 |/ | MOVE.L A0,-(A7)
00020672 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020678 58 4f |XO | ADDQ.L #0x4,A7
0002067a 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7
0002067e 3c 7c 00 00 |<| | MOVEA.W #0x0,A6
00020682 4e f9 00 02 19 c0 |N | JMP 0x219c0
00020688 4c df 01 00 4e 5e 4e 75 |L N^Nu| .XXX[0x8]
00020690 ; --------------------------------------------------------------------------------------
00020690 ; OMSI PASCAL Function
00020690 ; --------------------------------------------------------------------------------------
00020690 4e 56 ff c8 |NV | LINK.W A6,#0xffc8
00020694 bf d5 | | CMPA.L (A5),A7
00020696 62 06 |b | BHI 0x2069e
00020698 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002069c 4e 76 |Nv | TRAPV
0002069e de fc 00 30 | 0 | ADDA.W #0x30,A7
000206a2 48 e7 e3 80 |H | MOVEM.L A0+D7+D6+D2+D1+D0,-(A7)
000206a6 74 1d |t | MOVEQ.L #0x1d,D2
000206a8 7e 01 |~ | MOVEQ.L #0x01,D7
000206aa 20 07 | | MOVE.L D7,D0
000206ac e3 80 | | ASL.L #0x1,D0
000206ae 22 00 |" | MOVE.L D0,D1
000206b0 53 81 |S | SUBQ.L #0x1,D1
000206b2 b2 82 | | CMP.L D2,D1
000206b4 63 02 |c | BLS 0x206b8
000206b6 4e 4f |NO | TRAP #15
000206b8 41 f9 00 02 1c 8a |A | LEA.L 0x21c8a,A0
000206be 1c 30 18 36 | 0 6 | MOVE.B (A0+D1.L+#0x36),D6
000206c2 53 80 |S | SUBQ.L #0x1,D0
000206c4 53 80 |S | SUBQ.L #0x1,D0
000206c6 b0 82 | | CMP.L D2,D0
000206c8 63 02 |c | BLS 0x206cc
000206ca 4e 4f |NO | TRAP #15
000206cc 11 b0 08 36 18 36 | 6 6 | MOVE.B (A0+D0.L+#0x36),(A0+D1.L+#0x36)
000206d2 11 86 08 36 | 6 | MOVE.B D6,(A0+D0.L+#0x36)
000206d6 52 87 |R | ADDQ.L #0x1,D7
000206d8 0c 87 00 00 00 0f | | CMPI.L #0x0000000f,D7
000206de 6f ca |o | BLE 0x206aa
000206e0 4c df 01 c7 |L | MOVEM.L (A7)+,D0+D1+D2+D6+D7+A0
000206e4 4e 5e |N^ | UNLK A6
000206e6 4e 75 |Nu | RTS
000206e8 ; --------------------------------------------------------------------------------------
000206e8 ; OMSI PASCAL Function
000206e8 ; <LVAR -0x004 @ 1(r)>
000206e8 ; --------------------------------------------------------------------------------------
000206e8 4e 56 ff 8e |NV | LINK.W A6,#0xff8e
000206ec bf d5 | | CMPA.L (A5),A7
000206ee 62 06 |b | BHI 0x206f6
000206f0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000206f4 4e 76 |Nv | TRAPV
000206f6 de fc 00 6e | n | ADDA.W #0x6e,A7
000206fa 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000206fe 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020704 47 f9 00 02 1c 7a |G z | LEA.L 0x21c7a,A3
0002070a 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4
00020710 74 01 |t | MOVEQ.L #0x01,D2
00020712 76 26 |v& | MOVEQ.L #0x26,D3
00020714 78 02 |x | MOVEQ.L #0x02,D4
00020716 7a 14 |z | MOVEQ.L #0x14,D5
00020718 7c 13 || | MOVEQ.L #0x13,D6
0002071a 7e 18 |~ | MOVEQ.L #0x18,D7
0002071c 9e c3 | | SUBA.W D3,A7
0002071e 20 4f | O | MOVEA.L A7,A0
00020720 43 fa f9 e8 |C | LEA.L 0x2010a,A1
00020724 70 24 |p$ | MOVEQ.L #0x24,D0
00020726 10 d9 | | MOVE.B (A1)+,(A0)+
00020728 51 c8 ff fc |Q | DBF D0,0x20726
0002072c 51 4f |QO | SUBQ.L #0x8,A7
0002072e 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020732 3f 02 |? | MOVE.W D2,-(A7)
00020734 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7)
00020738 4e 92 |N | JSR (A2)
0002073a 50 4f |PO | ADDQ.L #0x8,A7
0002073c 48 78 00 00 |Hx | PEA.L 0x0
00020740 48 78 00 0f |Hx | PEA.L 0xf
00020744 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
0002074a de fc 00 0c | | ADDA.W #0xc,A7
0002074e 20 1f | | MOVE.L (A7)+,D0
00020750 0c 80 00 00 00 0f | | CMPI.L #0x0000000f,D0
00020756 63 02 |c | BLS 0x2075a
00020758 4e 4f |NO | TRAP #15
0002075a de c3 | | ADDA.W D3,A7
0002075c 33 c0 00 02 1c 7c |3 | | MOVE.W D0,0x21c7c
00020762 33 c0 00 01 00 08 |3 | MOVE.W D0,0x10008
00020768 33 fc 7f ff 00 01 00 0c |3 | MOVE.W #0x7fff,0x1000c
00020770 33 fc 7f ff 00 01 00 0a |3 | MOVE.W #0x7fff,0x1000a
00020778 42 13 |B | CLR.B (A3)
0002077a 1f 04 | | MOVE.B D4,-(A7)
0002077c 3f 04 |? | MOVE.W D4,-(A7)
0002077e 48 78 00 01 |Hx | PEA.L 0x1
00020782 2f 39 00 02 1c 86 |/9 | MOVE.L 0x21c86,-(A7)
00020788 48 6e ff fc |Hn | PEA.L (A6-0x4)
0002078c 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00020792 de fc 00 10 | | ADDA.W #0x10,A7
00020796 4a 2e ff fc |J. | TST.B (A6-0x4)
0002079a 66 2c |f, | BNE 0x207c8
0002079c 9e fc 00 2a | * | SUBA.W #0x2a,A7
000207a0 20 4f | O | MOVEA.L A7,A0
000207a2 43 fa f9 8c |C | LEA.L 0x20130,A1
000207a6 70 28 |p( | MOVEQ.L #0x28,D0
000207a8 10 d9 | | MOVE.B (A1)+,(A0)+
000207aa 51 c8 ff fc |Q | DBF D0,0x207a8
000207ae 59 4f |YO | SUBQ.L #0x4,A7
000207b0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000207b4 3f 02 |? | MOVE.W D2,-(A7)
000207b6 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7)
000207ba 4e 92 |N | JSR (A2)
000207bc 50 4f |PO | ADDQ.L #0x8,A7
000207be 4e 94 |N | JSR (A4)
000207c0 de fc 00 2e | . | ADDA.W #0x2e,A7
000207c4 60 00 00 e0 |` | BRA 0x208a6
000207c8 30 39 00 02 1c 8c |09 | MOVE.W 0x21c8c,D0
000207ce 0c 40 7f ed | @ | CMPI.W #0x7fed,D0
000207d2 67 26 |g& | BEQ 0x207fa
000207d4 9e c5 | | SUBA.W D5,A7
000207d6 20 4f | O | MOVEA.L A7,A0
000207d8 43 fa f9 80 |C | LEA.L 0x2015a,A1
000207dc 70 12 |p | MOVEQ.L #0x12,D0
000207de 10 d9 | | MOVE.B (A1)+,(A0)+
000207e0 51 c8 ff fc |Q | DBF D0,0x207de
000207e4 59 4f |YO | SUBQ.L #0x4,A7
000207e6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000207ea 3f 02 |? | MOVE.W D2,-(A7)
000207ec 3f 06 |? | MOVE.W D6,-(A7)
000207ee 4e 92 |N | JSR (A2)
000207f0 50 4f |PO | ADDQ.L #0x8,A7
000207f2 4e 94 |N | JSR (A4)
000207f4 de c7 | | ADDA.W D7,A7
000207f6 60 00 00 ae |` | BRA 0x208a6
000207fa 30 39 00 02 1c 8e |09 | MOVE.W 0x21c8e,D0
00020800 0c 40 00 03 | @ | CMPI.W #0x0003,D0
00020804 67 2a |g* | BEQ 0x20830
00020806 9e fc 00 1a | | SUBA.W #0x1a,A7
0002080a 20 4f | O | MOVEA.L A7,A0
0002080c 43 fa f9 60 |C ` | LEA.L 0x2016e,A1
00020810 70 18 |p | MOVEQ.L #0x18,D0
00020812 10 d9 | | MOVE.B (A1)+,(A0)+
00020814 51 c8 ff fc |Q | DBF D0,0x20812
00020818 59 4f |YO | SUBQ.L #0x4,A7
0002081a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002081e 3f 02 |? | MOVE.W D2,-(A7)
00020820 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
00020824 4e 92 |N | JSR (A2)
00020826 50 4f |PO | ADDQ.L #0x8,A7
00020828 4e 94 |N | JSR (A4)
0002082a de fc 00 1e | | ADDA.W #0x1e,A7
0002082e 60 76 |`v | BRA 0x208a6
00020830 23 f9 00 02 1c 92 00 02 |# | MOVE.L 0x21c92,0x21c7e
00020838 1c 7e | ~ |
0002083a 4e ba fe 54 |N T | JSR 0x20690
0002083e 41 f9 00 02 1c de |A | LEA.L 0x21cde,A0
00020844 70 0e |p | MOVEQ.L #0x0e,D0
00020846 3f 20 |? | MOVE.W -(A0),-(A7)
00020848 51 c8 ff fc |Q | DBF D0,0x20846
0002084c 51 4f |QO | SUBQ.L #0x8,A7
0002084e 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020852 3f 02 |? | MOVE.W D2,-(A7)
00020854 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7)
00020858 4e 92 |N | JSR (A2)
0002085a 50 4f |PO | ADDQ.L #0x8,A7
0002085c 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String
00020862 58 4f |XO | ADDQ.L #0x4,A7
00020864 23 df 00 02 1c 76 |# v | MOVE.L (A7)+,0x21c76
0002086a de fc 00 1c | | ADDA.W #0x1c,A7
0002086e 3e ba f9 1c |> | MOVE.W 0x2018c,(A7)
00020872 3f 3a f9 16 |?: | MOVE.W 0x2018a,-(A7)
00020876 3f 3a f9 10 |?: | MOVE.W 0x20188,-(A7)
0002087a 51 4f |QO | SUBQ.L #0x8,A7
0002087c 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020880 3f 02 |? | MOVE.W D2,-(A7)
00020882 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
00020886 4e 92 |N | JSR (A2)
00020888 2e b9 00 02 1c 76 |. v | MOVE.L 0x21c76,(A7)
0002088e 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
00020894 58 4f |XO | ADDQ.L #0x4,A7
00020896 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002089c 50 4f |PO | ADDQ.L #0x8,A7
0002089e 4e 94 |N | JSR (A4)
000208a0 de fc 00 0a | | ADDA.W #0xa,A7
000208a4 16 82 | | MOVE.B D2,(A3)
000208a6 4a 13 |J | TST.B (A3)
000208a8 66 24 |f$ | BNE 0x208ce
000208aa 9e c5 | | SUBA.W D5,A7
000208ac 20 4f | O | MOVEA.L A7,A0
000208ae 43 fa f8 aa |C | LEA.L 0x2015a,A1
000208b2 70 12 |p | MOVEQ.L #0x12,D0
000208b4 10 d9 | | MOVE.B (A1)+,(A0)+
000208b6 51 c8 ff fc |Q | DBF D0,0x208b4
000208ba 59 4f |YO | SUBQ.L #0x4,A7
000208bc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000208c0 3f 02 |? | MOVE.W D2,-(A7)
000208c2 3f 06 |? | MOVE.W D6,-(A7)
000208c4 4e 92 |N | JSR (A2)
000208c6 50 4f |PO | ADDQ.L #0x8,A7
000208c8 4e ba fd 86 |N | JSR 0x20650
000208cc de c7 | | ADDA.W D7,A7
000208ce 42 80 |B | CLR.L D0
000208d0 10 39 00 02 1c 81 | 9 | MOVE.B 0x21c81,D0
000208d6 e2 40 | @ | ASR.W #0x1,D0
000208d8 33 c0 00 01 00 0a |3 | MOVE.W D0,0x1000a
000208de 42 81 |B | CLR.L D1
000208e0 12 39 00 02 1c 80 | 9 | MOVE.B 0x21c80,D1
000208e6 c2 c0 | | MULU.W D0,D1
000208e8 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1
000208ee 63 02 |c | BLS 0x208f2
000208f0 4e 4f |NO | TRAP #15
000208f2 33 c1 00 01 00 0c |3 | MOVE.W D1,0x1000c
000208f8 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000208fc 4e 5e |N^ | UNLK A6
000208fe 4e 75 |Nu | RTS
00020900 ; --------------------------------------------------------------------------------------
00020900 ; OMSI PASCAL Function
00020900 ; <LVAR -0x002 2(rw)>
00020900 ; <LVAR -0x004 2(rw)>
00020900 ; <LVAR -0x010 @ 1(r)>
00020900 ; --------------------------------------------------------------------------------------
00020900 4e 56 ff 6e |NV n | LINK.W A6,#0xff6e
00020904 bf d5 | | CMPA.L (A5),A7
00020906 62 06 |b | BHI 0x2090e
00020908 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002090c 4e 76 |Nv | TRAPV
0002090e de fc 00 7e | ~ | ADDA.W #0x7e,A7
00020912 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020916 45 ee ff f0 |E | LEA.L (A6-0x10),A2
0002091a 47 f9 00 02 1c 6e |G n | LEA.L 0x21c6e,A3
00020920 7a 00 |z | MOVEQ.L #0x00,D5
00020922 0c 85 00 00 07 ff | | CMPI.L #0x000007ff,D5
00020928 63 02 |c | BLS 0x2092c
0002092a 4e 4f |NO | TRAP #15
0002092c 20 05 | | MOVE.L D5,D0
0002092e e5 80 | | ASL.L #0x2,D0
00020930 20 4b | K | MOVEA.L A3,A0
00020932 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
00020936 02 68 c0 00 04 1c | h | ANDI.W #0xc000,(A0+0x41c)
0002093c 42 28 04 1e |B( | CLR.B (A0+0x41e)
00020940 42 28 04 1f |B( | CLR.B (A0+0x41f)
00020944 52 85 |R | ADDQ.L #0x1,D5
00020946 0c 85 00 00 07 ff | | CMPI.L #0x000007ff,D5
0002094c 6f d4 |o | BLE 0x20922
0002094e 42 80 |B | CLR.L D0
00020950 10 39 00 02 1c 98 | 9 | MOVE.B 0x21c98,D0
00020956 42 81 |B | CLR.L D1
00020958 12 39 00 02 1c 81 | 9 | MOVE.B 0x21c81,D1
0002095e c0 c1 | | MULU.W D1,D0
00020960 42 82 |B | CLR.L D2
00020962 14 39 00 02 1c 99 | 9 | MOVE.B 0x21c99,D2
00020968 52 42 |RB | ADDQ.W #0x1,D2
0002096a d4 40 | @ | ADD.W D0,D2
0002096c e2 4a | J | LSR.W #0x1,D2
0002096e 3d 42 ff fc |=B | MOVE.W D2,(A6-0x4)
00020972 42 80 |B | CLR.L D0
00020974 10 39 00 02 1c 9c | 9 | MOVE.B 0x21c9c,D0
0002097a c0 c1 | | MULU.W D1,D0
0002097c 42 81 |B | CLR.L D1
0002097e 12 39 00 02 1c 9d | 9 | MOVE.B 0x21c9d,D1
00020984 53 41 |SA | SUBQ.W #0x1,D1
00020986 42 82 |B | CLR.L D2
00020988 34 00 |4 | MOVE.W D0,D2
0002098a 48 c1 |H | EXTW.L D1
0002098c d2 82 | | ADD.L D2,D1
0002098e 28 01 |( | MOVE.L D1,D4
00020990 76 02 |v | MOVEQ.L #0x02,D3
00020992 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00020998 3d 44 ff fe |=D | MOVE.W D4,(A6-0x2)
0002099c 7c 00 || | MOVEQ.L #0x00,D6
0002099e 3e 2e ff fc |>. | MOVE.W (A6-0x4),D7
000209a2 0c 86 00 00 07 ff | | CMPI.L #0x000007ff,D6
000209a8 63 02 |c | BLS 0x209ac
000209aa 4e 4f |NO | TRAP #15
000209ac 20 06 | | MOVE.L D6,D0
000209ae e5 80 | | ASL.L #0x2,D0
000209b0 20 4b | K | MOVEA.L A3,A0
000209b2 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
000209b6 41 e8 04 1c |A | LEA.L (A0+0x41c),A0
000209ba 2f 08 |/ | MOVE.L A0,-(A7)
000209bc 28 5f |(_ | MOVEA.L (A7)+,A4
000209be 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
000209c2 3f 07 |? | MOVE.W D7,-(A7)
000209c4 48 78 00 01 |Hx | PEA.L 0x1
000209c8 2f 0c |/ | MOVE.L A4,-(A7)
000209ca 48 52 |HR | PEA.L (A2)
000209cc 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
000209d2 de fc 00 10 | | ADDA.W #0x10,A7
000209d6 4a 12 |J | TST.B (A2)
000209d8 66 00 00 8a |f | BNE 0x20a64
000209dc 41 fa f8 24 |A $ | LEA.L 0x20202,A0
000209e0 70 1c |p | MOVEQ.L #0x1c,D0
000209e2 3f 20 |? | MOVE.W -(A0),-(A7)
000209e4 51 c8 ff fc |Q | DBF D0,0x209e2
000209e8 59 4f |YO | SUBQ.L #0x4,A7
000209ea 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000209ee 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000209f2 3f 3c 00 3a |?< : | MOVE.W #0x3a,-(A7)
000209f6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000209fc 50 4f |PO | ADDQ.L #0x8,A7
000209fe 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020a04 de fc 00 3c | < | ADDA.W #0x3c,A7
00020a08 1e bc 00 02 | | MOVE.B #0x02,(A7)
00020a0c 42 80 |B | CLR.L D0
00020a0e 30 07 |0 | MOVE.W D7,D0
00020a10 52 80 |R | ADDQ.L #0x1,D0
00020a12 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0
00020a18 63 02 |c | BLS 0x20a1c
00020a1a 4e 4f |NO | TRAP #15
00020a1c 3f 00 |? | MOVE.W D0,-(A7)
00020a1e 48 78 00 01 |Hx | PEA.L 0x1
00020a22 2f 0c |/ | MOVE.L A4,-(A7)
00020a24 48 52 |HR | PEA.L (A2)
00020a26 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00020a2c de fc 00 10 | | ADDA.W #0x10,A7
00020a30 4a 12 |J | TST.B (A2)
00020a32 66 30 |f0 | BNE 0x20a64
00020a34 9e fc 00 3a | : | SUBA.W #0x3a,A7
00020a38 20 4f | O | MOVEA.L A7,A0
00020a3a 43 fa f7 52 |C R | LEA.L 0x2018e,A1
00020a3e 70 38 |p8 | MOVEQ.L #0x38,D0
00020a40 10 d9 | | MOVE.B (A1)+,(A0)+
00020a42 51 c8 ff fc |Q | DBF D0,0x20a40
00020a46 59 4f |YO | SUBQ.L #0x4,A7
00020a48 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020a4c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00020a50 3f 3c 00 39 |?< 9 | MOVE.W #0x39,-(A7)
00020a54 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020a5a 50 4f |PO | ADDQ.L #0x8,A7
00020a5c 4e ba fb f2 |N | JSR 0x20650
00020a60 de fc 00 3e | > | ADDA.W #0x3e,A7
00020a64 06 86 00 00 01 00 | | ADDI.L #0x00000100,D6
00020a6a 42 80 |B | CLR.L D0
00020a6c 30 07 |0 | MOVE.W D7,D0
00020a6e 54 80 |T | ADDQ.L #0x2,D0
00020a70 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0
00020a76 63 02 |c | BLS 0x20a7a
00020a78 4e 4f |NO | TRAP #15
00020a7a 3e 00 |> | MOVE.W D0,D7
00020a7c be 6e ff fe | n | CMP.W (A6-0x2),D7
00020a80 63 00 ff 20 |c | BLS 0x209a2
00020a84 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020a88 4e 5e |N^ | UNLK A6
00020a8a 4e 75 |Nu | RTS
00020a8c ; --------------------------------------------------------------------------------------
00020a8c ; OMSI PASCAL Function
00020a8c ; <LVAR 0x008 4(r)>
00020a8c ; --------------------------------------------------------------------------------------
00020a8c 4e 56 ff ce |NV | LINK.W A6,#0xffce
00020a90 bf d5 | | CMPA.L (A5),A7
00020a92 62 06 |b | BHI 0x20a9a
00020a94 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020a98 4e 76 |Nv | TRAPV
00020a9a de fc 00 32 | 2 | ADDA.W #0x32,A7
00020a9e 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7)
00020aa2 43 ec 00 04 |C | LEA.L (A4+0x4),A1
00020aa6 45 ee 00 08 |E | LEA.L (A6+0x8),A2
00020aaa 20 51 | Q | MOVEA.L (A1),A0
00020aac 4a 50 |JP | TST.W (A0)
00020aae 66 12 |f | BNE 0x20ac2
00020ab0 59 4f |YO | SUBQ.L #0x4,A7
00020ab2 2f 11 |/ | MOVE.L (A1),-(A7)
00020ab4 2f 12 |/ | MOVE.L (A2),-(A7)
00020ab6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020abc 50 4f |PO | ADDQ.L #0x8,A7
00020abe 22 9f |" | MOVE.L (A7)+,(A1)
00020ac0 60 52 |`R | BRA 0x20b14
00020ac2 30 10 |0 | MOVE.W (A0),D0
00020ac4 48 c0 |H | EXTW.L D0
00020ac6 54 80 |T | ADDQ.L #0x2,D0
00020ac8 20 52 | R | MOVEA.L (A2),A0
00020aca 32 10 |2 | MOVE.W (A0),D1
00020acc 48 c1 |H | EXTW.L D1
00020ace d2 80 | | ADD.L D0,D1
00020ad0 0c 81 00 00 00 50 | P | CMPI.L #0x00000050,D1
00020ad6 6e 30 |n0 | BGT 0x20b08
00020ad8 3f 3a f9 fa |?: | MOVE.W 0x204d4,-(A7)
00020adc 59 4f |YO | SUBQ.L #0x4,A7
00020ade 2f 11 |/ | MOVE.L (A1),-(A7)
00020ae0 59 4f |YO | SUBQ.L #0x4,A7
00020ae2 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00020ae6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00020aea 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00020aee 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020af4 58 4f |XO | ADDQ.L #0x4,A7
00020af6 2e 92 |. | MOVE.L (A2),(A7)
00020af8 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
00020afe de fc 00 0c | | ADDA.W #0xc,A7
00020b02 22 9f |" | MOVE.L (A7)+,(A1)
00020b04 54 4f |TO | ADDQ.L #0x2,A7
00020b06 60 0c |` | BRA 0x20b14
00020b08 2f 11 |/ | MOVE.L (A1),-(A7)
00020b0a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020b10 58 4f |XO | ADDQ.L #0x4,A7
00020b12 22 92 |" | MOVE.L (A2),(A1)
00020b14 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2
00020b18 4e 5e |N^ | UNLK A6
00020b1a 4e 75 |Nu | RTS
00020b1c ; --------------------------------------------------------------------------------------
00020b1c ; OMSI PASCAL Function
00020b1c ; <LVAR 0x02a 4(r)>
00020b1c ; <LVAR 0x026 4(r)>
00020b1c ; <LVAR 0x022 4(r)>
00020b1c ; <LVAR 0x01e 4(r)>
00020b1c ; <LVAR 0x010 2(r)>
00020b1c ; <LVAR 0x00e 2(r)>
00020b1c ; <LVAR 0x00c 2(r)>
00020b1c ; <LVAR 0x00a 2(r)>
00020b1c ; <LVAR 0x008 2(r)>
00020b1c ; <LVAR -0x006 @ 4(r)>
00020b1c ; <LVAR -0x00a @>
00020b1c ; --------------------------------------------------------------------------------------
00020b1c 4e 56 ff 74 |NV t | LINK.W A6,#0xff74
00020b20 bf d5 | | CMPA.L (A5),A7
00020b22 62 06 |b | BHI 0x20b2a
00020b24 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020b28 4e 76 |Nv | TRAPV
00020b2a de fc 00 82 | | ADDA.W #0x82,A7
00020b2e 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020b32 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020b38 47 ee ff f6 |G | LEA.L (A6-0xa),A3
00020b3c 74 01 |t | MOVEQ.L #0x01,D2
00020b3e 7a 10 |z | MOVEQ.L #0x10,D5
00020b40 7c 14 || | MOVEQ.L #0x14,D6
00020b42 48 6e ff fa |Hn | PEA.L (A6-0x6)
00020b46 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00020b4c 2e ae 00 2a |. * | MOVE.L (A6+0x2a),(A7)
00020b50 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00020b56 51 4f |QO | SUBQ.L #0x8,A7
00020b58 20 4f | O | MOVEA.L A7,A0
00020b5a 43 fa f9 7a |C z | LEA.L 0x204d6,A1
00020b5e 70 0a |p | MOVEQ.L #0x0a,D0
00020b60 10 d9 | | MOVE.B (A1)+,(A0)+
00020b62 51 c8 ff fc |Q | DBF D0,0x20b60
00020b66 51 4f |QO | SUBQ.L #0x8,A7
00020b68 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020b6c 3f 02 |? | MOVE.W D2,-(A7)
00020b6e 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7)
00020b72 4e 92 |N | JSR (A2)
00020b74 2f 2e 00 26 |/. & | MOVE.L (A6+0x26),-(A7)
00020b78 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00020b7e 58 4f |XO | ADDQ.L #0x4,A7
00020b80 48 78 00 04 |Hx | PEA.L 0x4
00020b84 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String
00020b8a 50 4f |PO | ADDQ.L #0x8,A7
00020b8c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020b92 50 4f |PO | ADDQ.L #0x8,A7
00020b94 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00020b9a de c5 | | ADDA.W D5,A7
00020b9c 41 fa f9 4e |A N | LEA.L 0x204ec,A0
00020ba0 70 04 |p | MOVEQ.L #0x04,D0
00020ba2 3f 20 |? | MOVE.W -(A0),-(A7)
00020ba4 51 c8 ff fc |Q | DBF D0,0x20ba2
00020ba8 51 4f |QO | SUBQ.L #0x8,A7
00020baa 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020bae 3f 02 |? | MOVE.W D2,-(A7)
00020bb0 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7)
00020bb4 4e 92 |N | JSR (A2)
00020bb6 2f 2e 00 22 |/. " | MOVE.L (A6+0x22),-(A7)
00020bba 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00020bc0 58 4f |XO | ADDQ.L #0x4,A7
00020bc2 48 78 00 04 |Hx | PEA.L 0x4
00020bc6 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String
00020bcc 50 4f |PO | ADDQ.L #0x8,A7
00020bce 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020bd4 50 4f |PO | ADDQ.L #0x8,A7
00020bd6 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00020bdc 54 4f |TO | ADDQ.L #0x2,A7
00020bde 20 4f | O | MOVEA.L A7,A0
00020be0 43 fa f9 0a |C | LEA.L 0x204ec,A1
00020be4 70 0a |p | MOVEQ.L #0x0a,D0
00020be6 10 d9 | | MOVE.B (A1)+,(A0)+
00020be8 51 c8 ff fc |Q | DBF D0,0x20be6
00020bec 51 4f |QO | SUBQ.L #0x8,A7
00020bee 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020bf2 3f 02 |? | MOVE.W D2,-(A7)
00020bf4 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7)
00020bf8 4e 92 |N | JSR (A2)
00020bfa 2f 2e 00 1e |/. | MOVE.L (A6+0x1e),-(A7)
00020bfe 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00020c04 58 4f |XO | ADDQ.L #0x4,A7
00020c06 48 78 00 04 |Hx | PEA.L 0x4
00020c0a 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String
00020c10 50 4f |PO | ADDQ.L #0x8,A7
00020c12 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020c18 50 4f |PO | ADDQ.L #0x8,A7
00020c1a 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00020c20 de c5 | | ADDA.W D5,A7
00020c22 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00020c28 7e 00 |~ | MOVEQ.L #0x00,D7
00020c2a 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7
00020c30 63 02 |c | BLS 0x20c34
00020c32 4e 4f |NO | TRAP #15
00020c34 28 07 |( | MOVE.L D7,D4
00020c36 76 05 |v | MOVEQ.L #0x05,D3
00020c38 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
00020c3e 41 fa f9 e2 |A | LEA.L 0x20622,A0
00020c42 5d 4f |]O | SUBQ.L #0x6,A7
00020c44 22 4f |"O | MOVEA.L A7,A1
00020c46 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0
00020c4a 70 04 |p | MOVEQ.L #0x04,D0
00020c4c 12 d8 | | MOVE.B (A0)+,(A1)+
00020c4e 51 c8 ff fc |Q | DBF D0,0x20c4c
00020c52 51 4f |QO | SUBQ.L #0x8,A7
00020c54 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020c58 3f 02 |? | MOVE.W D2,-(A7)
00020c5a 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00020c5e 4e 92 |N | JSR (A2)
00020c60 58 4f |XO | ADDQ.L #0x4,A7
00020c62 0c 87 00 00 00 0a | | CMPI.L #0x0000000a,D7
00020c68 63 02 |c | BLS 0x20c6c
00020c6a 4e 4f |NO | TRAP #15
00020c6c 20 07 | | MOVE.L D7,D0
00020c6e e3 80 | | ASL.L #0x1,D0
00020c70 42 81 |B | CLR.L D1
00020c72 32 36 08 08 |26 | MOVE.W (A6+D0.L+#0x8),D1
00020c76 2f 01 |/ | MOVE.L D1,-(A7)
00020c78 48 78 00 04 |Hx | PEA.L 0x4
00020c7c 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00020c82 50 4f |PO | ADDQ.L #0x8,A7
00020c84 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020c8a 50 4f |PO | ADDQ.L #0x8,A7
00020c8c 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00020c92 de fc 00 0a | | ADDA.W #0xa,A7
00020c96 52 87 |R | ADDQ.L #0x1,D7
00020c98 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7
00020c9e 6f 8a |o | BLE 0x20c2a
00020ca0 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00020ca6 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0
00020caa 02 40 80 00 | @ | ANDI.W #0x8000,D0
00020cae 67 2c |g, | BEQ 0x20cdc
00020cb0 9e fc 00 12 | | SUBA.W #0x12,A7
00020cb4 20 4f | O | MOVEA.L A7,A0
00020cb6 43 fa f5 80 |C | LEA.L 0x20238,A1
00020cba 70 10 |p | MOVEQ.L #0x10,D0
00020cbc 10 d9 | | MOVE.B (A1)+,(A0)+
00020cbe 51 c8 ff fc |Q | DBF D0,0x20cbc
00020cc2 59 4f |YO | SUBQ.L #0x4,A7
00020cc4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020cc8 3f 02 |? | MOVE.W D2,-(A7)
00020cca 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00020cce 4e 92 |N | JSR (A2)
00020cd0 50 4f |PO | ADDQ.L #0x8,A7
00020cd2 28 4b |(K | MOVEA.L A3,A4
00020cd4 4e ba fd b6 |N | JSR 0x20a8c
00020cd8 de fc 00 16 | | ADDA.W #0x16,A7
00020cdc 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0
00020ce0 02 40 40 00 | @@ | ANDI.W #0x4000,D0
00020ce4 67 26 |g& | BEQ 0x20d0c
00020ce6 41 fa f5 70 |A p | LEA.L 0x20258,A0
00020cea 70 06 |p | MOVEQ.L #0x06,D0
00020cec 3f 20 |? | MOVE.W -(A0),-(A7)
00020cee 51 c8 ff fc |Q | DBF D0,0x20cec
00020cf2 59 4f |YO | SUBQ.L #0x4,A7
00020cf4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020cf8 3f 02 |? | MOVE.W D2,-(A7)
00020cfa 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00020cfe 4e 92 |N | JSR (A2)
00020d00 50 4f |PO | ADDQ.L #0x8,A7
00020d02 28 4b |(K | MOVEA.L A3,A4
00020d04 4e ba fd 86 |N | JSR 0x20a8c
00020d08 de fc 00 12 | | ADDA.W #0x12,A7
00020d0c 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0
00020d10 02 40 08 00 | @ | ANDI.W #0x0800,D0
00020d14 66 26 |f& | BNE 0x20d3c
00020d16 41 fa f5 56 |A V | LEA.L 0x2026e,A0
00020d1a 70 0a |p | MOVEQ.L #0x0a,D0
00020d1c 3f 20 |? | MOVE.W -(A0),-(A7)
00020d1e 51 c8 ff fc |Q | DBF D0,0x20d1c
00020d22 59 4f |YO | SUBQ.L #0x4,A7
00020d24 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020d28 3f 02 |? | MOVE.W D2,-(A7)
00020d2a 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
00020d2e 4e 92 |N | JSR (A2)
00020d30 50 4f |PO | ADDQ.L #0x8,A7
00020d32 28 4b |(K | MOVEA.L A3,A4
00020d34 4e ba fd 56 |N V | JSR 0x20a8c
00020d38 de fc 00 1a | | ADDA.W #0x1a,A7
00020d3c 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0
00020d40 02 40 00 80 | @ | ANDI.W #0x0080,D0
00020d44 66 26 |f& | BNE 0x20d6c
00020d46 41 fa f5 38 |A 8 | LEA.L 0x20280,A0
00020d4a 70 08 |p | MOVEQ.L #0x08,D0
00020d4c 3f 20 |? | MOVE.W -(A0),-(A7)
00020d4e 51 c8 ff fc |Q | DBF D0,0x20d4c
00020d52 59 4f |YO | SUBQ.L #0x4,A7
00020d54 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020d58 3f 02 |? | MOVE.W D2,-(A7)
00020d5a 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00020d5e 4e 92 |N | JSR (A2)
00020d60 50 4f |PO | ADDQ.L #0x8,A7
00020d62 28 4b |(K | MOVEA.L A3,A4
00020d64 4e ba fd 26 |N & | JSR 0x20a8c
00020d68 de fc 00 16 | | ADDA.W #0x16,A7
00020d6c 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0
00020d70 02 40 80 00 | @ | ANDI.W #0x8000,D0
00020d74 67 2c |g, | BEQ 0x20da2
00020d76 9e fc 00 0a | | SUBA.W #0xa,A7
00020d7a 20 4f | O | MOVEA.L A7,A0
00020d7c 43 fa f5 02 |C | LEA.L 0x20280,A1
00020d80 70 08 |p | MOVEQ.L #0x08,D0
00020d82 10 d9 | | MOVE.B (A1)+,(A0)+
00020d84 51 c8 ff fc |Q | DBF D0,0x20d82
00020d88 59 4f |YO | SUBQ.L #0x4,A7
00020d8a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020d8e 3f 02 |? | MOVE.W D2,-(A7)
00020d90 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
00020d94 4e 92 |N | JSR (A2)
00020d96 50 4f |PO | ADDQ.L #0x8,A7
00020d98 28 4b |(K | MOVEA.L A3,A4
00020d9a 4e ba fc f0 |N | JSR 0x20a8c
00020d9e de fc 00 0e | | ADDA.W #0xe,A7
00020da2 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0
00020da6 02 40 40 00 | @@ | ANDI.W #0x4000,D0
00020daa 67 2c |g, | BEQ 0x20dd8
00020dac 9e fc 00 12 | | SUBA.W #0x12,A7
00020db0 20 4f | O | MOVEA.L A7,A0
00020db2 43 fa f4 d6 |C | LEA.L 0x2028a,A1
00020db6 70 10 |p | MOVEQ.L #0x10,D0
00020db8 10 d9 | | MOVE.B (A1)+,(A0)+
00020dba 51 c8 ff fc |Q | DBF D0,0x20db8
00020dbe 59 4f |YO | SUBQ.L #0x4,A7
00020dc0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020dc4 3f 02 |? | MOVE.W D2,-(A7)
00020dc6 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00020dca 4e 92 |N | JSR (A2)
00020dcc 50 4f |PO | ADDQ.L #0x8,A7
00020dce 28 4b |(K | MOVEA.L A3,A4
00020dd0 4e ba fc ba |N | JSR 0x20a8c
00020dd4 de fc 00 16 | | ADDA.W #0x16,A7
00020dd8 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0
00020ddc 02 40 10 00 | @ | ANDI.W #0x1000,D0
00020de0 67 26 |g& | BEQ 0x20e08
00020de2 41 fa f4 ca |A | LEA.L 0x202ae,A0
00020de6 70 08 |p | MOVEQ.L #0x08,D0
00020de8 3f 20 |? | MOVE.W -(A0),-(A7)
00020dea 51 c8 ff fc |Q | DBF D0,0x20de8
00020dee 59 4f |YO | SUBQ.L #0x4,A7
00020df0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020df4 3f 02 |? | MOVE.W D2,-(A7)
00020df6 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00020dfa 4e 92 |N | JSR (A2)
00020dfc 50 4f |PO | ADDQ.L #0x8,A7
00020dfe 28 4b |(K | MOVEA.L A3,A4
00020e00 4e ba fc 8a |N | JSR 0x20a8c
00020e04 de fc 00 16 | | ADDA.W #0x16,A7
00020e08 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0
00020e0c 02 40 08 00 | @ | ANDI.W #0x0800,D0
00020e10 67 2a |g* | BEQ 0x20e3c
00020e12 9e c6 | | SUBA.W D6,A7
00020e14 20 4f | O | MOVEA.L A7,A0
00020e16 43 fa f4 96 |C | LEA.L 0x202ae,A1
00020e1a 70 12 |p | MOVEQ.L #0x12,D0
00020e1c 10 d9 | | MOVE.B (A1)+,(A0)+
00020e1e 51 c8 ff fc |Q | DBF D0,0x20e1c
00020e22 59 4f |YO | SUBQ.L #0x4,A7
00020e24 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020e28 3f 02 |? | MOVE.W D2,-(A7)
00020e2a 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
00020e2e 4e 92 |N | JSR (A2)
00020e30 50 4f |PO | ADDQ.L #0x8,A7
00020e32 28 4b |(K | MOVEA.L A3,A4
00020e34 4e ba fc 56 |N V | JSR 0x20a8c
00020e38 de fc 00 18 | | ADDA.W #0x18,A7
00020e3c 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0
00020e40 02 40 04 00 | @ | ANDI.W #0x0400,D0
00020e44 67 2c |g, | BEQ 0x20e72
00020e46 9e fc 00 0e | | SUBA.W #0xe,A7
00020e4a 20 4f | O | MOVEA.L A7,A0
00020e4c 43 fa f4 74 |C t | LEA.L 0x202c2,A1
00020e50 70 0c |p | MOVEQ.L #0x0c,D0
00020e52 10 d9 | | MOVE.B (A1)+,(A0)+
00020e54 51 c8 ff fc |Q | DBF D0,0x20e52
00020e58 59 4f |YO | SUBQ.L #0x4,A7
00020e5a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020e5e 3f 02 |? | MOVE.W D2,-(A7)
00020e60 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7)
00020e64 4e 92 |N | JSR (A2)
00020e66 50 4f |PO | ADDQ.L #0x8,A7
00020e68 28 4b |(K | MOVEA.L A3,A4
00020e6a 4e ba fc 20 |N | JSR 0x20a8c
00020e6e de fc 00 12 | | ADDA.W #0x12,A7
00020e72 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0
00020e76 02 40 02 00 | @ | ANDI.W #0x0200,D0
00020e7a 67 28 |g( | BEQ 0x20ea4
00020e7c 9e c5 | | SUBA.W D5,A7
00020e7e 20 4f | O | MOVEA.L A7,A0
00020e80 43 fa f4 4e |C N | LEA.L 0x202d0,A1
00020e84 70 0e |p | MOVEQ.L #0x0e,D0
00020e86 10 d9 | | MOVE.B (A1)+,(A0)+
00020e88 51 c8 ff fc |Q | DBF D0,0x20e86
00020e8c 59 4f |YO | SUBQ.L #0x4,A7
00020e8e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020e92 3f 02 |? | MOVE.W D2,-(A7)
00020e94 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00020e98 4e 92 |N | JSR (A2)
00020e9a 50 4f |PO | ADDQ.L #0x8,A7
00020e9c 28 4b |(K | MOVEA.L A3,A4
00020e9e 4e ba fb ec |N | JSR 0x20a8c
00020ea2 de c6 | | ADDA.W D6,A7
00020ea4 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0
00020ea8 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
00020eac 66 28 |f( | BNE 0x20ed6
00020eae 9e c5 | | SUBA.W D5,A7
00020eb0 20 4f | O | MOVEA.L A7,A0
00020eb2 43 fa f4 2c |C , | LEA.L 0x202e0,A1
00020eb6 70 0e |p | MOVEQ.L #0x0e,D0
00020eb8 10 d9 | | MOVE.B (A1)+,(A0)+
00020eba 51 c8 ff fc |Q | DBF D0,0x20eb8
00020ebe 59 4f |YO | SUBQ.L #0x4,A7
00020ec0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020ec4 3f 02 |? | MOVE.W D2,-(A7)
00020ec6 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00020eca 4e 92 |N | JSR (A2)
00020ecc 50 4f |PO | ADDQ.L #0x8,A7
00020ece 28 4b |(K | MOVEA.L A3,A4
00020ed0 4e ba fb ba |N | JSR 0x20a8c
00020ed4 de c6 | | ADDA.W D6,A7
00020ed6 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0
00020eda 02 40 00 04 | @ | ANDI.W #0x0004,D0
00020ede 67 2c |g, | BEQ 0x20f0c
00020ee0 9e fc 00 1e | | SUBA.W #0x1e,A7
00020ee4 20 4f | O | MOVEA.L A7,A0
00020ee6 43 fa f4 08 |C | LEA.L 0x202f0,A1
00020eea 70 1c |p | MOVEQ.L #0x1c,D0
00020eec 10 d9 | | MOVE.B (A1)+,(A0)+
00020eee 51 c8 ff fc |Q | DBF D0,0x20eec
00020ef2 59 4f |YO | SUBQ.L #0x4,A7
00020ef4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020ef8 3f 02 |? | MOVE.W D2,-(A7)
00020efa 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7)
00020efe 4e 92 |N | JSR (A2)
00020f00 50 4f |PO | ADDQ.L #0x8,A7
00020f02 28 4b |(K | MOVEA.L A3,A4
00020f04 4e ba fb 86 |N | JSR 0x20a8c
00020f08 de fc 00 22 | " | ADDA.W #0x22,A7
00020f0c 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0
00020f10 02 40 20 00 | @ | ANDI.W #0x2000,D0
00020f14 67 2c |g, | BEQ 0x20f42
00020f16 9e fc 00 18 | | SUBA.W #0x18,A7
00020f1a 20 4f | O | MOVEA.L A7,A0
00020f1c 43 fa f3 f0 |C | LEA.L 0x2030e,A1
00020f20 70 16 |p | MOVEQ.L #0x16,D0
00020f22 10 d9 | | MOVE.B (A1)+,(A0)+
00020f24 51 c8 ff fc |Q | DBF D0,0x20f22
00020f28 59 4f |YO | SUBQ.L #0x4,A7
00020f2a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020f2e 3f 02 |? | MOVE.W D2,-(A7)
00020f30 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00020f34 4e 92 |N | JSR (A2)
00020f36 50 4f |PO | ADDQ.L #0x8,A7
00020f38 28 4b |(K | MOVEA.L A3,A4
00020f3a 4e ba fb 50 |N P | JSR 0x20a8c
00020f3e de fc 00 1c | | ADDA.W #0x1c,A7
00020f42 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0
00020f46 02 40 10 00 | @ | ANDI.W #0x1000,D0
00020f4a 66 26 |f& | BNE 0x20f72
00020f4c 41 fa f3 ea |A | LEA.L 0x20338,A0
00020f50 70 08 |p | MOVEQ.L #0x08,D0
00020f52 3f 20 |? | MOVE.W -(A0),-(A7)
00020f54 51 c8 ff fc |Q | DBF D0,0x20f52
00020f58 59 4f |YO | SUBQ.L #0x4,A7
00020f5a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020f5e 3f 02 |? | MOVE.W D2,-(A7)
00020f60 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00020f64 4e 92 |N | JSR (A2)
00020f66 50 4f |PO | ADDQ.L #0x8,A7
00020f68 28 4b |(K | MOVEA.L A3,A4
00020f6a 4e ba fb 20 |N | JSR 0x20a8c
00020f6e de fc 00 16 | | ADDA.W #0x16,A7
00020f72 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0
00020f76 02 40 08 00 | @ | ANDI.W #0x0800,D0
00020f7a 67 24 |g$ | BEQ 0x20fa0
00020f7c 2f 3a f3 c2 |/: | MOVE.L 0x20340,-(A7)
00020f80 2f 3a f3 ba |/: | MOVE.L 0x2033c,-(A7)
00020f84 2f 3a f3 b2 |/: | MOVE.L 0x20338,-(A7)
00020f88 59 4f |YO | SUBQ.L #0x4,A7
00020f8a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020f8e 3f 02 |? | MOVE.W D2,-(A7)
00020f90 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
00020f94 4e 92 |N | JSR (A2)
00020f96 50 4f |PO | ADDQ.L #0x8,A7
00020f98 28 4b |(K | MOVEA.L A3,A4
00020f9a 4e ba fa f0 |N | JSR 0x20a8c
00020f9e de c5 | | ADDA.W D5,A7
00020fa0 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0
00020fa4 02 40 04 00 | @ | ANDI.W #0x0400,D0
00020fa8 67 26 |g& | BEQ 0x20fd0
00020faa 41 fa f3 ae |A | LEA.L 0x2035a,A0
00020fae 70 0a |p | MOVEQ.L #0x0a,D0
00020fb0 3f 20 |? | MOVE.W -(A0),-(A7)
00020fb2 51 c8 ff fc |Q | DBF D0,0x20fb0
00020fb6 59 4f |YO | SUBQ.L #0x4,A7
00020fb8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020fbc 3f 02 |? | MOVE.W D2,-(A7)
00020fbe 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
00020fc2 4e 92 |N | JSR (A2)
00020fc4 50 4f |PO | ADDQ.L #0x8,A7
00020fc6 28 4b |(K | MOVEA.L A3,A4
00020fc8 4e ba fa c2 |N | JSR 0x20a8c
00020fcc de fc 00 1a | | ADDA.W #0x1a,A7
00020fd0 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0
00020fd4 02 40 01 00 | @ | ANDI.W #0x0100,D0
00020fd8 66 2c |f, | BNE 0x21006
00020fda 9e fc 00 12 | | SUBA.W #0x12,A7
00020fde 20 4f | O | MOVEA.L A7,A0
00020fe0 43 fa f3 78 |C x | LEA.L 0x2035a,A1
00020fe4 70 10 |p | MOVEQ.L #0x10,D0
00020fe6 10 d9 | | MOVE.B (A1)+,(A0)+
00020fe8 51 c8 ff fc |Q | DBF D0,0x20fe6
00020fec 59 4f |YO | SUBQ.L #0x4,A7
00020fee 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020ff2 3f 02 |? | MOVE.W D2,-(A7)
00020ff4 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00020ff8 4e 92 |N | JSR (A2)
00020ffa 50 4f |PO | ADDQ.L #0x8,A7
00020ffc 28 4b |(K | MOVEA.L A3,A4
00020ffe 4e ba fa 8c |N | JSR 0x20a8c
00021002 de fc 00 16 | | ADDA.W #0x16,A7
00021006 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0
0002100a 02 40 00 80 | @ | ANDI.W #0x0080,D0
0002100e 66 28 |f( | BNE 0x21038
00021010 9e c5 | | SUBA.W D5,A7
00021012 20 4f | O | MOVEA.L A7,A0
00021014 43 fa f3 56 |C V | LEA.L 0x2036c,A1
00021018 70 0e |p | MOVEQ.L #0x0e,D0
0002101a 10 d9 | | MOVE.B (A1)+,(A0)+
0002101c 51 c8 ff fc |Q | DBF D0,0x2101a
00021020 59 4f |YO | SUBQ.L #0x4,A7
00021022 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021026 3f 02 |? | MOVE.W D2,-(A7)
00021028 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
0002102c 4e 92 |N | JSR (A2)
0002102e 50 4f |PO | ADDQ.L #0x8,A7
00021030 28 4b |(K | MOVEA.L A3,A4
00021032 4e ba fa 58 |N X | JSR 0x20a8c
00021036 de c6 | | ADDA.W D6,A7
00021038 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0
0002103c 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
00021040 66 26 |f& | BNE 0x21068
00021042 2f 3a f3 44 |/: D | MOVE.L 0x20388,-(A7)
00021046 2f 3a f3 3c |/: < | MOVE.L 0x20384,-(A7)
0002104a 2f 3a f3 34 |/: 4 | MOVE.L 0x20380,-(A7)
0002104e 2f 3a f3 2c |/: , | MOVE.L 0x2037c,-(A7)
00021052 59 4f |YO | SUBQ.L #0x4,A7
00021054 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021058 3f 02 |? | MOVE.W D2,-(A7)
0002105a 3f 05 |? | MOVE.W D5,-(A7)
0002105c 4e 92 |N | JSR (A2)
0002105e 50 4f |PO | ADDQ.L #0x8,A7
00021060 28 4b |(K | MOVEA.L A3,A4
00021062 4e ba fa 28 |N ( | JSR 0x20a8c
00021066 de c6 | | ADDA.W D6,A7
00021068 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
0002106c 02 40 80 00 | @ | ANDI.W #0x8000,D0
00021070 67 26 |g& | BEQ 0x21098
00021072 2f 3a f3 24 |/: $ | MOVE.L 0x20398,-(A7)
00021076 2f 3a f3 1c |/: | MOVE.L 0x20394,-(A7)
0002107a 2f 3a f3 14 |/: | MOVE.L 0x20390,-(A7)
0002107e 2f 3a f3 0c |/: | MOVE.L 0x2038c,-(A7)
00021082 59 4f |YO | SUBQ.L #0x4,A7
00021084 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021088 3f 02 |? | MOVE.W D2,-(A7)
0002108a 3f 05 |? | MOVE.W D5,-(A7)
0002108c 4e 92 |N | JSR (A2)
0002108e 50 4f |PO | ADDQ.L #0x8,A7
00021090 28 4b |(K | MOVEA.L A3,A4
00021092 4e ba f9 f8 |N | JSR 0x20a8c
00021096 de c6 | | ADDA.W D6,A7
00021098 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
0002109c 02 40 40 00 | @@ | ANDI.W #0x4000,D0
000210a0 67 26 |g& | BEQ 0x210c8
000210a2 3f 3a f2 fc |?: | MOVE.W 0x203a0,-(A7)
000210a6 3f 3a f2 f6 |?: | MOVE.W 0x2039e,-(A7)
000210aa 3f 3a f2 f0 |?: | MOVE.W 0x2039c,-(A7)
000210ae 59 4f |YO | SUBQ.L #0x4,A7
000210b0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000210b4 3f 02 |? | MOVE.W D2,-(A7)
000210b6 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
000210ba 4e 92 |N | JSR (A2)
000210bc 50 4f |PO | ADDQ.L #0x8,A7
000210be 28 4b |(K | MOVEA.L A3,A4
000210c0 4e ba f9 ca |N | JSR 0x20a8c
000210c4 de fc 00 0a | | ADDA.W #0xa,A7
000210c8 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
000210cc 02 40 20 00 | @ | ANDI.W #0x2000,D0
000210d0 67 24 |g$ | BEQ 0x210f6
000210d2 41 fa f2 e2 |A | LEA.L 0x203b6,A0
000210d6 70 04 |p | MOVEQ.L #0x04,D0
000210d8 2f 20 |/ | MOVE.L -(A0),-(A7)
000210da 51 c8 ff fc |Q | DBF D0,0x210d8
000210de 59 4f |YO | SUBQ.L #0x4,A7
000210e0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000210e4 3f 02 |? | MOVE.W D2,-(A7)
000210e6 3f 06 |? | MOVE.W D6,-(A7)
000210e8 4e 92 |N | JSR (A2)
000210ea 50 4f |PO | ADDQ.L #0x8,A7
000210ec 28 4b |(K | MOVEA.L A3,A4
000210ee 4e ba f9 9c |N | JSR 0x20a8c
000210f2 de fc 00 18 | | ADDA.W #0x18,A7
000210f6 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
000210fa 02 40 10 00 | @ | ANDI.W #0x1000,D0
000210fe 67 26 |g& | BEQ 0x21126
00021100 41 fa f2 c6 |A | LEA.L 0x203c8,A0
00021104 70 08 |p | MOVEQ.L #0x08,D0
00021106 3f 20 |? | MOVE.W -(A0),-(A7)
00021108 51 c8 ff fc |Q | DBF D0,0x21106
0002110c 59 4f |YO | SUBQ.L #0x4,A7
0002110e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021112 3f 02 |? | MOVE.W D2,-(A7)
00021114 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00021118 4e 92 |N | JSR (A2)
0002111a 50 4f |PO | ADDQ.L #0x8,A7
0002111c 28 4b |(K | MOVEA.L A3,A4
0002111e 4e ba f9 6c |N l | JSR 0x20a8c
00021122 de fc 00 16 | | ADDA.W #0x16,A7
00021126 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
0002112a 02 40 08 00 | @ | ANDI.W #0x0800,D0
0002112e 67 26 |g& | BEQ 0x21156
00021130 2f 3a f2 a2 |/: | MOVE.L 0x203d4,-(A7)
00021134 2f 3a f2 9a |/: | MOVE.L 0x203d0,-(A7)
00021138 2f 3a f2 92 |/: | MOVE.L 0x203cc,-(A7)
0002113c 2f 3a f2 8a |/: | MOVE.L 0x203c8,-(A7)
00021140 59 4f |YO | SUBQ.L #0x4,A7
00021142 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021146 3f 02 |? | MOVE.W D2,-(A7)
00021148 3f 05 |? | MOVE.W D5,-(A7)
0002114a 4e 92 |N | JSR (A2)
0002114c 50 4f |PO | ADDQ.L #0x8,A7
0002114e 28 4b |(K | MOVEA.L A3,A4
00021150 4e ba f9 3a |N : | JSR 0x20a8c
00021154 de c6 | | ADDA.W D6,A7
00021156 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
0002115a 02 40 04 00 | @ | ANDI.W #0x0400,D0
0002115e 67 2c |g, | BEQ 0x2118c
00021160 9e fc 00 16 | | SUBA.W #0x16,A7
00021164 20 4f | O | MOVEA.L A7,A0
00021166 43 fa f2 70 |C p | LEA.L 0x203d8,A1
0002116a 70 14 |p | MOVEQ.L #0x14,D0
0002116c 10 d9 | | MOVE.B (A1)+,(A0)+
0002116e 51 c8 ff fc |Q | DBF D0,0x2116c
00021172 59 4f |YO | SUBQ.L #0x4,A7
00021174 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021178 3f 02 |? | MOVE.W D2,-(A7)
0002117a 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
0002117e 4e 92 |N | JSR (A2)
00021180 50 4f |PO | ADDQ.L #0x8,A7
00021182 28 4b |(K | MOVEA.L A3,A4
00021184 4e ba f9 06 |N | JSR 0x20a8c
00021188 de fc 00 1a | | ADDA.W #0x1a,A7
0002118c 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
00021190 02 40 02 00 | @ | ANDI.W #0x0200,D0
00021194 67 26 |g& | BEQ 0x211bc
00021196 41 fa f2 6c |A l | LEA.L 0x20404,A0
0002119a 70 0a |p | MOVEQ.L #0x0a,D0
0002119c 3f 20 |? | MOVE.W -(A0),-(A7)
0002119e 51 c8 ff fc |Q | DBF D0,0x2119c
000211a2 59 4f |YO | SUBQ.L #0x4,A7
000211a4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000211a8 3f 02 |? | MOVE.W D2,-(A7)
000211aa 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
000211ae 4e 92 |N | JSR (A2)
000211b0 50 4f |PO | ADDQ.L #0x8,A7
000211b2 28 4b |(K | MOVEA.L A3,A4
000211b4 4e ba f8 d6 |N | JSR 0x20a8c
000211b8 de fc 00 1a | | ADDA.W #0x1a,A7
000211bc 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
000211c0 02 40 01 00 | @ | ANDI.W #0x0100,D0
000211c4 67 26 |g& | BEQ 0x211ec
000211c6 2f 3a f2 48 |/: H | MOVE.L 0x20410,-(A7)
000211ca 2f 3a f2 40 |/: @ | MOVE.L 0x2040c,-(A7)
000211ce 2f 3a f2 38 |/: 8 | MOVE.L 0x20408,-(A7)
000211d2 2f 3a f2 30 |/: 0 | MOVE.L 0x20404,-(A7)
000211d6 59 4f |YO | SUBQ.L #0x4,A7
000211d8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000211dc 3f 02 |? | MOVE.W D2,-(A7)
000211de 3f 05 |? | MOVE.W D5,-(A7)
000211e0 4e 92 |N | JSR (A2)
000211e2 50 4f |PO | ADDQ.L #0x8,A7
000211e4 28 4b |(K | MOVEA.L A3,A4
000211e6 4e ba f8 a4 |N | JSR 0x20a8c
000211ea de c6 | | ADDA.W D6,A7
000211ec 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
000211f0 02 40 00 80 | @ | ANDI.W #0x0080,D0
000211f4 67 24 |g$ | BEQ 0x2121a
000211f6 41 fa f2 30 |A 0 | LEA.L 0x20428,A0
000211fa 70 04 |p | MOVEQ.L #0x04,D0
000211fc 2f 20 |/ | MOVE.L -(A0),-(A7)
000211fe 51 c8 ff fc |Q | DBF D0,0x211fc
00021202 59 4f |YO | SUBQ.L #0x4,A7
00021204 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021208 3f 02 |? | MOVE.W D2,-(A7)
0002120a 3f 06 |? | MOVE.W D6,-(A7)
0002120c 4e 92 |N | JSR (A2)
0002120e 50 4f |PO | ADDQ.L #0x8,A7
00021210 28 4b |(K | MOVEA.L A3,A4
00021212 4e ba f8 78 |N x | JSR 0x20a8c
00021216 de fc 00 18 | | ADDA.W #0x18,A7
0002121a 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
0002121e 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
00021222 67 26 |g& | BEQ 0x2124a
00021224 41 fa f2 10 |A | LEA.L 0x20436,A0
00021228 70 06 |p | MOVEQ.L #0x06,D0
0002122a 3f 20 |? | MOVE.W -(A0),-(A7)
0002122c 51 c8 ff fc |Q | DBF D0,0x2122a
00021230 59 4f |YO | SUBQ.L #0x4,A7
00021232 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021236 3f 02 |? | MOVE.W D2,-(A7)
00021238 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
0002123c 4e 92 |N | JSR (A2)
0002123e 50 4f |PO | ADDQ.L #0x8,A7
00021240 28 4b |(K | MOVEA.L A3,A4
00021242 4e ba f8 48 |N H | JSR 0x20a8c
00021246 de fc 00 12 | | ADDA.W #0x12,A7
0002124a 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
0002124e c0 45 | E | AND.W D5,D0
00021250 67 24 |g$ | BEQ 0x21276
00021252 2f 3a f1 ea |/: | MOVE.L 0x2043e,-(A7)
00021256 2f 3a f1 e2 |/: | MOVE.L 0x2043a,-(A7)
0002125a 2f 3a f1 da |/: | MOVE.L 0x20436,-(A7)
0002125e 59 4f |YO | SUBQ.L #0x4,A7
00021260 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021264 3f 02 |? | MOVE.W D2,-(A7)
00021266 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
0002126a 4e 92 |N | JSR (A2)
0002126c 50 4f |PO | ADDQ.L #0x8,A7
0002126e 28 4b |(K | MOVEA.L A3,A4
00021270 4e ba f8 1a |N | JSR 0x20a8c
00021274 de c5 | | ADDA.W D5,A7
00021276 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
0002127a 02 40 00 04 | @ | ANDI.W #0x0004,D0
0002127e 67 2c |g, | BEQ 0x212ac
00021280 9e fc 00 1e | | SUBA.W #0x1e,A7
00021284 20 4f | O | MOVEA.L A7,A0
00021286 43 fa f1 ba |C | LEA.L 0x20442,A1
0002128a 70 1c |p | MOVEQ.L #0x1c,D0
0002128c 10 d9 | | MOVE.B (A1)+,(A0)+
0002128e 51 c8 ff fc |Q | DBF D0,0x2128c
00021292 59 4f |YO | SUBQ.L #0x4,A7
00021294 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021298 3f 02 |? | MOVE.W D2,-(A7)
0002129a 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7)
0002129e 4e 92 |N | JSR (A2)
000212a0 50 4f |PO | ADDQ.L #0x8,A7
000212a2 28 4b |(K | MOVEA.L A3,A4
000212a4 4e ba f7 e6 |N | JSR 0x20a8c
000212a8 de fc 00 22 | " | ADDA.W #0x22,A7
000212ac 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
000212b0 c0 42 | B | AND.W D2,D0
000212b2 67 26 |g& | BEQ 0x212da
000212b4 2f 3a f1 b6 |/: | MOVE.L 0x2046c,-(A7)
000212b8 2f 3a f1 ae |/: | MOVE.L 0x20468,-(A7)
000212bc 2f 3a f1 a6 |/: | MOVE.L 0x20464,-(A7)
000212c0 2f 3a f1 9e |/: | MOVE.L 0x20460,-(A7)
000212c4 59 4f |YO | SUBQ.L #0x4,A7
000212c6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000212ca 3f 02 |? | MOVE.W D2,-(A7)
000212cc 3f 05 |? | MOVE.W D5,-(A7)
000212ce 4e 92 |N | JSR (A2)
000212d0 50 4f |PO | ADDQ.L #0x8,A7
000212d2 28 4b |(K | MOVEA.L A3,A4
000212d4 4e ba f7 b6 |N | JSR 0x20a8c
000212d8 de c6 | | ADDA.W D6,A7
000212da 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0
000212de 02 40 80 00 | @ | ANDI.W #0x8000,D0
000212e2 67 2c |g, | BEQ 0x21310
000212e4 9e fc 00 0a | | SUBA.W #0xa,A7
000212e8 20 4f | O | MOVEA.L A7,A0
000212ea 43 fa f1 84 |C | LEA.L 0x20470,A1
000212ee 70 08 |p | MOVEQ.L #0x08,D0
000212f0 10 d9 | | MOVE.B (A1)+,(A0)+
000212f2 51 c8 ff fc |Q | DBF D0,0x212f0
000212f6 59 4f |YO | SUBQ.L #0x4,A7
000212f8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000212fc 3f 02 |? | MOVE.W D2,-(A7)
000212fe 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
00021302 4e 92 |N | JSR (A2)
00021304 50 4f |PO | ADDQ.L #0x8,A7
00021306 28 4b |(K | MOVEA.L A3,A4
00021308 4e ba f7 82 |N | JSR 0x20a8c
0002130c de fc 00 0e | | ADDA.W #0xe,A7
00021310 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0
00021314 02 40 40 00 | @@ | ANDI.W #0x4000,D0
00021318 67 28 |g( | BEQ 0x21342
0002131a 9e c5 | | SUBA.W D5,A7
0002131c 20 4f | O | MOVEA.L A7,A0
0002131e 43 fa f1 5a |C Z | LEA.L 0x2047a,A1
00021322 70 0e |p | MOVEQ.L #0x0e,D0
00021324 10 d9 | | MOVE.B (A1)+,(A0)+
00021326 51 c8 ff fc |Q | DBF D0,0x21324
0002132a 59 4f |YO | SUBQ.L #0x4,A7
0002132c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021330 3f 02 |? | MOVE.W D2,-(A7)
00021332 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00021336 4e 92 |N | JSR (A2)
00021338 50 4f |PO | ADDQ.L #0x8,A7
0002133a 28 4b |(K | MOVEA.L A3,A4
0002133c 4e ba f7 4e |N N | JSR 0x20a8c
00021340 de c6 | | ADDA.W D6,A7
00021342 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0
00021346 02 40 10 00 | @ | ANDI.W #0x1000,D0
0002134a 67 2c |g, | BEQ 0x21378
0002134c 9e fc 00 3e | > | SUBA.W #0x3e,A7
00021350 20 4f | O | MOVEA.L A7,A0
00021352 43 fa f1 36 |C 6 | LEA.L 0x2048a,A1
00021356 70 3c |p< | MOVEQ.L #0x3c,D0
00021358 10 d9 | | MOVE.B (A1)+,(A0)+
0002135a 51 c8 ff fc |Q | DBF D0,0x21358
0002135e 59 4f |YO | SUBQ.L #0x4,A7
00021360 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021364 3f 02 |? | MOVE.W D2,-(A7)
00021366 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7)
0002136a 4e 92 |N | JSR (A2)
0002136c 50 4f |PO | ADDQ.L #0x8,A7
0002136e 28 4b |(K | MOVEA.L A3,A4
00021370 4e ba f7 1a |N | JSR 0x20a8c
00021374 de fc 00 42 | B | ADDA.W #0x42,A7
00021378 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0
0002137c 02 40 00 80 | @ | ANDI.W #0x0080,D0
00021380 67 24 |g$ | BEQ 0x213a6
00021382 2f 3a f1 4c |/: L | MOVE.L 0x204d0,-(A7)
00021386 2f 3a f1 44 |/: D | MOVE.L 0x204cc,-(A7)
0002138a 2f 3a f1 3c |/: < | MOVE.L 0x204c8,-(A7)
0002138e 59 4f |YO | SUBQ.L #0x4,A7
00021390 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021394 3f 02 |? | MOVE.W D2,-(A7)
00021396 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
0002139a 4e 92 |N | JSR (A2)
0002139c 50 4f |PO | ADDQ.L #0x8,A7
0002139e 28 4b |(K | MOVEA.L A3,A4
000213a0 4e ba f6 ea |N | JSR 0x20a8c
000213a4 de c5 | | ADDA.W D5,A7
000213a6 2f 2e ff fa |/. | MOVE.L (A6-0x6),-(A7)
000213aa 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000213b0 58 4f |XO | ADDQ.L #0x4,A7
000213b2 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000213b6 4e 5e |N^ | UNLK A6
000213b8 4e 75 |Nu | RTS
000213ba ; --------------------------------------------------------------------------------------
000213ba ; OMSI PASCAL Function
000213ba ; <LVAR 0x008 4(r)>
000213ba ; <LVAR -0x008 2(w)>
000213ba ; <LVAR -0x00e 2(w)>
000213ba ; <LVAR -0x012 @>
000213ba ; <LVAR -0x014 @ 1(r)>
000213ba ; --------------------------------------------------------------------------------------
000213ba 4e 56 ff aa |NV | LINK.W A6,#0xffaa
000213be bf d5 | | CMPA.L (A5),A7
000213c0 62 06 |b | BHI 0x213c8
000213c2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000213c6 4e 76 |Nv | TRAPV
000213c8 de fc 00 42 | B | ADDA.W #0x42,A7
000213cc 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
000213d0 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe)
000213d6 30 39 00 02 1c 7c |09 | | MOVE.W 0x21c7c,D0
000213dc e1 40 | @ | ASL.W #0x8,D0
000213de 52 40 |R@ | ADDQ.W #0x1,D0
000213e0 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8)
000213e4 48 6e ff ee |Hn | PEA.L (A6-0x12)
000213e8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
000213ec 2f 08 |/ | MOVE.L A0,-(A7)
000213ee 42 67 |Bg | CLR.W -(A7)
000213f0 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
000213f6 50 4f |PO | ADDQ.L #0x8,A7
000213f8 42 57 |BW | CLR.W (A7)
000213fa 48 6e ff ec |Hn | PEA.L (A6-0x14)
000213fe 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00021404 5c 4f |\O | ADDQ.L #0x6,A7
00021406 4a 2e ff ec |J. | TST.B (A6-0x14)
0002140a 66 30 |f0 | BNE 0x2143c
0002140c 9e fc 00 26 | & | SUBA.W #0x26,A7
00021410 20 4f | O | MOVEA.L A7,A0
00021412 43 fa f0 e4 |C | LEA.L 0x204f8,A1
00021416 70 24 |p$ | MOVEQ.L #0x24,D0
00021418 10 d9 | | MOVE.B (A1)+,(A0)+
0002141a 51 c8 ff fc |Q | DBF D0,0x21418
0002141e 59 4f |YO | SUBQ.L #0x4,A7
00021420 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021424 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021428 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7)
0002142c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021432 50 4f |PO | ADDQ.L #0x8,A7
00021434 4e ba f2 1a |N | JSR 0x20650
00021438 de fc 00 2a | * | ADDA.W #0x2a,A7
0002143c 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
00021440 4e 5e |N^ | UNLK A6
00021442 4e 75 |Nu | RTS
00021444 ; --------------------------------------------------------------------------------------
00021444 ; OMSI PASCAL Function
00021444 ; <LVAR 0x028 4(r)>
00021444 ; <LVAR 0x024 4(r)>
00021444 ; <LVAR 0x020 4(r)>
00021444 ; <LVAR 0x008 1(r)>
00021444 ; --------------------------------------------------------------------------------------
00021444 4e 56 ff 86 |NV | LINK.W A6,#0xff86
00021448 bf d5 | | CMPA.L (A5),A7
0002144a 62 06 |b | BHI 0x21452
0002144c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021450 4e 76 |Nv | TRAPV
00021452 de fc 00 72 | r | ADDA.W #0x72,A7
00021456 48 e7 c3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7)
0002145a 45 ee 00 20 |E | LEA.L (A6+0x20),A2
0002145e 47 ee 00 28 |G ( | LEA.L (A6+0x28),A3
00021462 49 ee 00 24 |I $ | LEA.L (A6+0x24),A4
00021466 72 01 |r | MOVEQ.L #0x01,D1
00021468 7e 00 |~ | MOVEQ.L #0x00,D7
0002146a 7c 00 || | MOVEQ.L #0x00,D6
0002146c 20 13 | | MOVE.L (A3),D0
0002146e 80 94 | | OR.L (A4),D0
00021470 80 92 | | OR.L (A2),D0
00021472 67 56 |gV | BEQ 0x214ca
00021474 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7
0002147a 63 02 |c | BLS 0x2147e
0002147c 4e 4f |NO | TRAP #15
0002147e 20 07 | | MOVE.L D7,D0
00021480 e5 80 | | ASL.L #0x2,D0
00021482 41 f9 00 02 1c 6e |A n | LEA.L 0x21c6e,A0
00021488 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
0002148c 42 80 |B | CLR.L D0
0002148e 30 28 04 1c |0( | MOVE.W (A0+0x41c),D0
00021492 e5 48 | H | LSL.W #0x2,D0
00021494 e4 48 | H | LSR.W #0x2,D0
00021496 b0 93 | | CMP.L (A3),D0
00021498 66 22 |f" | BNE 0x214bc
0002149a 42 80 |B | CLR.L D0
0002149c 10 28 04 1e | ( | MOVE.B (A0+0x41e),D0
000214a0 b0 94 | | CMP.L (A4),D0
000214a2 66 18 |f | BNE 0x214bc
000214a4 42 80 |B | CLR.L D0
000214a6 10 28 04 1f | ( | MOVE.B (A0+0x41f),D0
000214aa b0 92 | | CMP.L (A2),D0
000214ac 67 0c |g | BEQ 0x214ba
000214ae 42 80 |B | CLR.L D0
000214b0 10 28 04 1f | ( | MOVE.B (A0+0x41f),D0
000214b4 0c 40 00 ff | @ | CMPI.W #0x00ff,D0
000214b8 66 02 |f | BNE 0x214bc
000214ba 7c 01 || | MOVEQ.L #0x01,D6
000214bc 52 87 |R | ADDQ.L #0x1,D7
000214be 4a 06 |J | TST.B D6
000214c0 66 08 |f | BNE 0x214ca
000214c2 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7
000214c8 6f aa |o | BLE 0x21474
000214ca 4a 06 |J | TST.B D6
000214cc 67 46 |gF | BEQ 0x21514
000214ce 4a 2e 00 08 |J. | TST.B (A6+0x8)
000214d2 67 3e |g> | BEQ 0x21512
000214d4 9e fc 00 22 | " | SUBA.W #0x22,A7
000214d8 20 4f | O | MOVEA.L A7,A0
000214da 43 fa f0 42 |C B | LEA.L 0x2051e,A1
000214de 70 20 |p | MOVEQ.L #0x20,D0
000214e0 10 d9 | | MOVE.B (A1)+,(A0)+
000214e2 51 c8 ff fc |Q | DBF D0,0x214e0
000214e6 59 4f |YO | SUBQ.L #0x4,A7
000214e8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000214ec 3f 01 |? | MOVE.W D1,-(A7)
000214ee 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7)
000214f2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000214f8 58 4f |XO | ADDQ.L #0x4,A7
000214fa 2e 93 |. | MOVE.L (A3),(A7)
000214fc 2f 14 |/ | MOVE.L (A4),-(A7)
000214fe 2f 12 |/ | MOVE.L (A2),-(A7)
00021500 20 4a | J | MOVEA.L A2,A0
00021502 70 0a |p | MOVEQ.L #0x0a,D0
00021504 3f 20 |? | MOVE.W -(A0),-(A7)
00021506 51 c8 ff fc |Q | DBF D0,0x21504
0002150a 4e ba f6 10 |N | JSR 0x20b1c
0002150e de fc 00 48 | H | ADDA.W #0x48,A7
00021512 60 3e |`> | BRA 0x21552
00021514 9e fc 00 24 | $ | SUBA.W #0x24,A7
00021518 20 4f | O | MOVEA.L A7,A0
0002151a 43 fa f0 24 |C $ | LEA.L 0x20540,A1
0002151e 70 22 |p" | MOVEQ.L #0x22,D0
00021520 10 d9 | | MOVE.B (A1)+,(A0)+
00021522 51 c8 ff fc |Q | DBF D0,0x21520
00021526 59 4f |YO | SUBQ.L #0x4,A7
00021528 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002152c 3f 01 |? | MOVE.W D1,-(A7)
0002152e 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7)
00021532 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021538 58 4f |XO | ADDQ.L #0x4,A7
0002153a 2e 93 |. | MOVE.L (A3),(A7)
0002153c 2f 14 |/ | MOVE.L (A4),-(A7)
0002153e 2f 12 |/ | MOVE.L (A2),-(A7)
00021540 20 4a | J | MOVEA.L A2,A0
00021542 70 0a |p | MOVEQ.L #0x0a,D0
00021544 3f 20 |? | MOVE.W -(A0),-(A7)
00021546 51 c8 ff fc |Q | DBF D0,0x21544
0002154a 4e ba f5 d0 |N | JSR 0x20b1c
0002154e de fc 00 4a | J | ADDA.W #0x4a,A7
00021552 4c df 1f c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4
00021556 4e 5e |N^ | UNLK A6
00021558 4e 75 |Nu | RTS
0002155a ; --------------------------------------------------------------------------------------
0002155a ; OMSI PASCAL Function
0002155a ; <LVAR 0x018 4(r)>
0002155a ; <LVAR 0x014 4(r)>
0002155a ; <LVAR 0x010 4(r)>
0002155a ; <LVAR 0x00c 4(r)>
0002155a ; <LVAR 0x008 4(r)>
0002155a ; --------------------------------------------------------------------------------------
0002155a 4e 56 ff b0 |NV | LINK.W A6,#0xffb0
0002155e bf d5 | | CMPA.L (A5),A7
00021560 62 06 |b | BHI 0x21568
00021562 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021566 4e 76 |Nv | TRAPV
00021568 de fc 00 4c | L | ADDA.W #0x4c,A7
0002156c 48 e7 f9 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00021570 45 f9 00 01 02 94 |E | LEA.L ?divs_d3_d4,A2
00021576 47 f9 00 02 1c 80 |G | LEA.L 0x21c80,A3
0002157c 74 08 |t | MOVEQ.L #0x08,D2
0002157e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00021582 2f 08 |/ | MOVE.L A0,-(A7)
00021584 42 10 |B | CLR.B (A0)
00021586 22 6e 00 10 |"n | MOVEA.L (A6+0x10),A1
0002158a 2f 09 |/ | MOVE.L A1,-(A7)
0002158c 42 80 |B | CLR.L D0
0002158e 10 39 00 02 1c 81 | 9 | MOVE.B 0x21c81,D0
00021594 2f 00 |/ | MOVE.L D0,-(A7)
00021596 b0 91 | | CMP.L (A1),D0
00021598 62 24 |b$ | BHI 0x215be
0002159a 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0
0002159e 28 11 |( | MOVE.L (A1),D4
000215a0 26 00 |& | MOVE.L D0,D3
000215a2 4e 92 |N | JSR (A2)
000215a4 d9 90 | | ADD.L D4,(A0)
000215a6 22 83 |" | MOVE.L D3,(A1)
000215a8 42 80 |B | CLR.L D0
000215aa 10 13 | | MOVE.B (A3),D0
000215ac b0 90 | | CMP.L (A0),D0
000215ae 62 0e |b | BHI 0x215be
000215b0 22 6e 00 18 |"n | MOVEA.L (A6+0x18),A1
000215b4 28 10 |( | MOVE.L (A0),D4
000215b6 26 00 |& | MOVE.L D0,D3
000215b8 4e 92 |N | JSR (A2)
000215ba d9 91 | | ADD.L D4,(A1)
000215bc 20 83 | | MOVE.L D3,(A0)
000215be 20 6e 00 18 | n | MOVEA.L (A6+0x18),A0
000215c2 20 10 | | MOVE.L (A0),D0
000215c4 52 80 |R | ADDQ.L #0x1,D0
000215c6 42 81 |B | CLR.L D1
000215c8 32 39 00 02 1c 7e |29 ~ | MOVE.W 0x21c7e,D1
000215ce b0 81 | | CMP.L D1,D0
000215d0 64 08 |d | BCC 0x215da
000215d2 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
000215d6 20 82 | | MOVE.L D2,(A0)
000215d8 60 42 |`B | BRA 0x2161c
000215da b2 90 | | CMP.L (A0),D1
000215dc 66 0a |f | BNE 0x215e8
000215de 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0
000215e2 10 bc 00 01 | | MOVE.B #0x01,(A0)
000215e6 60 34 |`4 | BRA 0x2161c
000215e8 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0
000215ec 42 80 |B | CLR.L D0
000215ee 10 13 | | MOVE.B (A3),D0
000215f0 90 90 | | SUB.L (A0),D0
000215f2 53 80 |S | SUBQ.L #0x1,D0
000215f4 28 00 |( | MOVE.L D0,D4
000215f6 26 17 |& | MOVE.L (A7),D3
000215f8 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
000215fe 20 17 | | MOVE.L (A7),D0
00021600 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0
00021604 90 90 | | SUB.L (A0),D0
00021606 d0 84 | | ADD.L D4,D0
00021608 28 00 |( | MOVE.L D0,D4
0002160a 76 02 |v | MOVEQ.L #0x02,D3
0002160c 4e 92 |N | JSR (A2)
0002160e 2e 04 |. | MOVE.L D4,D7
00021610 be 82 | | CMP.L D2,D7
00021612 6d 02 |m | BLT 0x21616
00021614 60 bc |` | BRA 0x215d2
00021616 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
0002161a 20 87 | | MOVE.L D7,(A0)
0002161c de fc 00 0c | | ADDA.W #0xc,A7
00021620 4c df 0f 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3
00021624 4e 5e |N^ | UNLK A6
00021626 4e 75 |Nu | RTS
00021628 ; --------------------------------------------------------------------------------------
00021628 ; OMSI PASCAL Function
00021628 ; <LVAR 0x008 1(r)>
00021628 ; <LVAR -0x006 @ 4(rw)>
00021628 ; <LVAR -0x00a @ 4(rw)>
00021628 ; <LVAR -0x00c @ 1(r)>
00021628 ; <LVAR -0x012 2(r)>
00021628 ; <LVAR -0x014 2(r)>
00021628 ; <LVAR -0x022 @>
00021628 ; <LVAR -0x024 @ 1(r)>
00021628 ; <LVAR -0x026 2(w)>
00021628 ; <LVAR -0x028 2(w)>
00021628 ; <LVAR -0x02a 2(w)>
00021628 ; <LVAR -0x02c 2(r)>
00021628 ; <LVAR -0x02e 2(r)>
00021628 ; <LVAR -0x030 2(w)>
00021628 ; <LVAR -0x032 2(r)>
00021628 ; <LVAR -0x034 @ 2(w)>
00021628 ; <LVAR -0x03a @ 4(rw)>
00021628 ; <LVAR -0x03e @ 4(rw)>
00021628 ; <LVAR -0x042 @ 4(rw)>
00021628 ; --------------------------------------------------------------------------------------
00021628 4e 56 ff 5e |NV ^ | LINK.W A6,#0xff5e
0002162c bf d5 | | CMPA.L (A5),A7
0002162e 62 06 |b | BHI 0x21636
00021630 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021634 4e 76 |Nv | TRAPV
00021636 de fc 00 5c | \ | ADDA.W #0x5c,A7
0002163a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002163e 45 ee ff c6 |E | LEA.L (A6-0x3a),A2
00021642 47 ee ff be |G | LEA.L (A6-0x42),A3
00021646 49 ee ff c2 |I | LEA.L (A6-0x3e),A4
0002164a 28 3c 00 00 ff ff |(< | MOVE.L #0xffff,D4
00021650 7a 0a |z | MOVEQ.L #0x0a,D5
00021652 7e ff |~ | MOVEQ.L #-0x01,D7
00021654 42 93 |B | CLR.L (A3)
00021656 42 94 |B | CLR.L (A4)
00021658 42 92 |B | CLR.L (A2)
0002165a 2d 7c 00 00 00 08 ff f6 |-| | MOVE.L #0x8,(A6-0xa)
00021662 42 6e ff ce |Bn | CLR.W (A6-0x32)
00021666 3d 7c 00 02 ff d0 |=| | MOVE.W #0x2,(A6-0x30)
0002166c 42 6e ff d2 |Bn | CLR.W (A6-0x2e)
00021670 42 6e ff d4 |Bn | CLR.W (A6-0x2c)
00021674 30 39 00 02 1c 7c |09 | | MOVE.W 0x21c7c,D0
0002167a e1 40 | @ | ASL.W #0x8,D0
0002167c 54 40 |T@ | ADDQ.W #0x2,D0
0002167e 3d 40 ff d6 |=@ | MOVE.W D0,(A6-0x2a)
00021682 20 2e ff f6 | . | MOVE.L (A6-0xa),D0
00021686 e1 80 | | ASL.L #0x8,D0
00021688 b0 84 | | CMP.L D4,D0
0002168a 63 02 |c | BLS 0x2168e
0002168c 4e 4f |NO | TRAP #15
0002168e 3d 40 ff cc |=@ | MOVE.W D0,(A6-0x34)
00021692 20 13 | | MOVE.L (A3),D0
00021694 b0 84 | | CMP.L D4,D0
00021696 63 02 |c | BLS 0x2169a
00021698 4e 4f |NO | TRAP #15
0002169a 3d 40 ff d8 |=@ | MOVE.W D0,(A6-0x28)
0002169e 20 14 | | MOVE.L (A4),D0
000216a0 e1 80 | | ASL.L #0x8,D0
000216a2 d0 92 | | ADD.L (A2),D0
000216a4 b0 84 | | CMP.L D4,D0
000216a6 63 02 |c | BLS 0x216aa
000216a8 4e 4f |NO | TRAP #15
000216aa 3d 40 ff da |=@ | MOVE.W D0,(A6-0x26)
000216ae 48 6e ff cc |Hn | PEA.L (A6-0x34)
000216b2 41 f9 00 02 40 8a |A @ | LEA.L 0x2408a,A0
000216b8 2f 08 |/ | MOVE.L A0,-(A7)
000216ba 42 67 |Bg | CLR.W -(A7)
000216bc 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
000216c2 de c5 | | ADDA.W D5,A7
000216c4 20 2e ff f6 | . | MOVE.L (A6-0xa),D0
000216c8 e3 80 | | ASL.L #0x1,D0
000216ca d1 92 | | ADD.L D0,(A2)
000216cc 48 53 |HS | PEA.L (A3)
000216ce 48 54 |HT | PEA.L (A4)
000216d0 48 52 |HR | PEA.L (A2)
000216d2 48 6e ff f6 |Hn | PEA.L (A6-0xa)
000216d6 48 6e ff dc |Hn | PEA.L (A6-0x24)
000216da 4e ba fe 7e |N ~ | JSR 0x2155a
000216de de fc 00 14 | | ADDA.W #0x14,A7
000216e2 be 93 | | CMP.L (A3),D7
000216e4 67 74 |gt | BEQ 0x2175a
000216e6 2e 13 |. | MOVE.L (A3),D7
000216e8 9e c5 | | SUBA.W D5,A7
000216ea 20 4f | O | MOVEA.L A7,A0
000216ec 43 fa ee 76 |C v | LEA.L 0x20564,A1
000216f0 70 08 |p | MOVEQ.L #0x08,D0
000216f2 10 d9 | | MOVE.B (A1)+,(A0)+
000216f4 51 c8 ff fc |Q | DBF D0,0x216f2
000216f8 51 4f |QO | SUBQ.L #0x8,A7
000216fa 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000216fe 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021702 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
00021706 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002170c 2e 93 |. | MOVE.L (A3),(A7)
0002170e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021714 58 4f |XO | ADDQ.L #0x4,A7
00021716 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002171c 50 4f |PO | ADDQ.L #0x8,A7
0002171e 2d 5f ff fa |-_ | MOVE.L (A7)+,(A6-0x6)
00021722 5c 4f |\O | ADDQ.L #0x6,A7
00021724 2e ae ff fa |. | MOVE.L (A6-0x6),(A7)
00021728 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7)
0002172c 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00021732 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long
00021738 20 1f | | MOVE.L (A7)+,D0
0002173a b0 84 | | CMP.L D4,D0
0002173c 63 02 |c | BLS 0x21740
0002173e 4e 4f |NO | TRAP #15
00021740 3e 80 |> | MOVE.W D0,(A7)
00021742 2f 2e ff fa |/. | MOVE.L (A6-0x6),-(A7)
00021746 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String)
0002174c 5c 4f |\O | ADDQ.L #0x6,A7
0002174e 48 6e ff fa |Hn | PEA.L (A6-0x6)
00021752 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00021758 58 4f |XO | ADDQ.L #0x4,A7
0002175a 42 67 |Bg | CLR.W -(A7)
0002175c 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00021760 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00021766 5c 4f |\O | ADDQ.L #0x6,A7
00021768 4a 2e ff f4 |J. | TST.B (A6-0xc)
0002176c 66 00 00 a6 |f | BNE 0x21814
00021770 48 6e ff de |Hn | PEA.L (A6-0x22)
00021774 4e ba fc 44 |N D | JSR 0x213ba
00021778 58 4f |XO | ADDQ.L #0x4,A7
0002177a 42 80 |B | CLR.L D0
0002177c 30 2e ff ec |0. | MOVE.W (A6-0x14),D0
00021780 26 80 |& | MOVE.L D0,(A3)
00021782 32 2e ff ee |2. | MOVE.W (A6-0x12),D1
00021786 02 41 00 ff | A | ANDI.W #0x00ff,D1
0002178a 42 82 |B | CLR.L D2
0002178c 34 01 |4 | MOVE.W D1,D2
0002178e 24 82 |$ | MOVE.L D2,(A2)
00021790 3c 2e ff ee |<. | MOVE.W (A6-0x12),D6
00021794 32 06 |2 | MOVE.W D6,D1
00021796 e0 49 | I | LSR.W #0x8,D1
00021798 42 83 |B | CLR.L D3
0002179a 36 01 |6 | MOVE.W D1,D3
0002179c 28 83 |( | MOVE.L D3,(A4)
0002179e 4a 82 |J | TST.L D2
000217a0 67 06 |g | BEQ 0x217a8
000217a2 53 82 |S | SUBQ.L #0x1,D2
000217a4 24 82 |$ | MOVE.L D2,(A2)
000217a6 60 2a |`* | BRA 0x217d2
000217a8 42 81 |B | CLR.L D1
000217aa 12 39 00 02 1c 81 | 9 | MOVE.B 0x21c81,D1
000217b0 53 41 |SA | SUBQ.W #0x1,D1
000217b2 48 c1 |H | EXTW.L D1
000217b4 24 81 |$ | MOVE.L D1,(A2)
000217b6 4a 83 |J | TST.L D3
000217b8 67 06 |g | BEQ 0x217c0
000217ba 53 83 |S | SUBQ.L #0x1,D3
000217bc 28 83 |( | MOVE.L D3,(A4)
000217be 60 12 |` | BRA 0x217d2
000217c0 42 81 |B | CLR.L D1
000217c2 12 39 00 02 1c 80 | 9 | MOVE.B 0x21c80,D1
000217c8 53 41 |SA | SUBQ.W #0x1,D1
000217ca 48 c1 |H | EXTW.L D1
000217cc 28 81 |( | MOVE.L D1,(A4)
000217ce 53 80 |S | SUBQ.L #0x1,D0
000217d0 26 80 |& | MOVE.L D0,(A3)
000217d2 2f 13 |/ | MOVE.L (A3),-(A7)
000217d4 2f 14 |/ | MOVE.L (A4),-(A7)
000217d6 2f 12 |/ | MOVE.L (A2),-(A7)
000217d8 41 ee ff f4 |A | LEA.L (A6-0xc),A0
000217dc 70 0a |p | MOVEQ.L #0x0a,D0
000217de 3f 20 |? | MOVE.W -(A0),-(A7)
000217e0 51 c8 ff fc |Q | DBF D0,0x217de
000217e4 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7)
000217e8 4e ba fc 5a |N Z | JSR 0x21444
000217ec de fc 00 24 | $ | ADDA.W #0x24,A7
000217f0 52 92 |R | ADDQ.L #0x1,(A2)
000217f2 20 12 | | MOVE.L (A2),D0
000217f4 02 80 00 00 00 01 | | ANDI.L #0x00000001,D0
000217fa 67 02 |g | BEQ 0x217fe
000217fc 52 92 |R | ADDQ.L #0x1,(A2)
000217fe 48 53 |HS | PEA.L (A3)
00021800 48 54 |HT | PEA.L (A4)
00021802 48 52 |HR | PEA.L (A2)
00021804 48 6e ff f6 |Hn | PEA.L (A6-0xa)
00021808 48 6e ff dc |Hn | PEA.L (A6-0x24)
0002180c 4e ba fd 4c |N L | JSR 0x2155a
00021810 de fc 00 14 | | ADDA.W #0x14,A7
00021814 4a 2e ff dc |J. | TST.B (A6-0x24)
00021818 67 00 fe 68 |g h | BEQ 0x21682
0002181c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021820 4e 5e |N^ | UNLK A6
00021822 4e 75 |Nu | RTS
00021824 ; --------------------------------------------------------------------------------------
00021824 ; OMSI PASCAL Function
00021824 ; --------------------------------------------------------------------------------------
00021824 4e 56 ff 8c |NV | LINK.W A6,#0xff8c
00021828 bf d5 | | CMPA.L (A5),A7
0002182a 62 06 |b | BHI 0x21832
0002182c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021830 4e 76 |Nv | TRAPV
00021832 de fc 00 68 | h | ADDA.W #0x68,A7
00021836 48 e7 e7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
0002183a 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021840 72 01 |r | MOVEQ.L #0x01,D1
00021842 74 0c |t | MOVEQ.L #0x0c,D2
00021844 41 fa ed 58 |A X | LEA.L 0x2059e,A0
00021848 70 0b |p | MOVEQ.L #0x0b,D0
0002184a 2f 20 |/ | MOVE.L -(A0),-(A7)
0002184c 51 c8 ff fc |Q | DBF D0,0x2184a
00021850 51 4f |QO | SUBQ.L #0x8,A7
00021852 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021856 3f 01 |? | MOVE.W D1,-(A7)
00021858 3f 3c 00 30 |?< 0 | MOVE.W #0x30,-(A7)
0002185c 4e 92 |N | JSR (A2)
0002185e 50 4f |PO | ADDQ.L #0x8,A7
00021860 48 78 00 01 |Hx | PEA.L 0x1
00021864 2f 3c 7f ff ff ff |/< | MOVE.L #0x7fffffff,-(A7)
0002186a 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00021870 de c2 | | ADDA.W D2,A7
00021872 2c 1f |, | MOVE.L (A7)+,D6
00021874 55 4f |UO | SUBQ.L #0x2,A7
00021876 20 4f | O | MOVEA.L A7,A0
00021878 43 fa ed 24 |C $ | LEA.L 0x2059e,A1
0002187c 70 30 |p0 | MOVEQ.L #0x30,D0
0002187e 10 d9 | | MOVE.B (A1)+,(A0)+
00021880 51 c8 ff fc |Q | DBF D0,0x2187e
00021884 5d 4f |]O | SUBQ.L #0x6,A7
00021886 48 6f 00 06 |Ho | PEA.L (A7+0x6)
0002188a 3f 01 |? | MOVE.W D1,-(A7)
0002188c 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7)
00021890 4e 92 |N | JSR (A2)
00021892 5c 4f |\O | ADDQ.L #0x6,A7
00021894 42 17 |B | CLR.B (A7)
00021896 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
0002189c 5c 4f |\O | ADDQ.L #0x6,A7
0002189e 10 1f | | MOVE.B (A7)+,D0
000218a0 48 80 |H | EXTB.W D0
000218a2 41 81 |A | CHK.W D1,D0
000218a4 de fc 00 32 | 2 | ADDA.W #0x32,A7
000218a8 1a 00 | | MOVE.B D0,D5
000218aa 2f 06 |/ | MOVE.L D6,-(A7)
000218ac 7e 01 |~ | MOVEQ.L #0x01,D7
000218ae be 97 | | CMP.L (A7),D7
000218b0 6e 5c |n\ | BGT 0x2190e
000218b2 1f 05 | | MOVE.B D5,-(A7)
000218b4 4e ba fd 72 |N r | JSR 0x21628
000218b8 59 4f |YO | SUBQ.L #0x4,A7
000218ba 20 4f | O | MOVEA.L A7,A0
000218bc 43 fa ed 12 |C | LEA.L 0x205d0,A1
000218c0 70 04 |p | MOVEQ.L #0x04,D0
000218c2 10 d9 | | MOVE.B (A1)+,(A0)+
000218c4 51 c8 ff fc |Q | DBF D0,0x218c2
000218c8 41 fa ed 16 |A | LEA.L 0x205e0,A0
000218cc 70 04 |p | MOVEQ.L #0x04,D0
000218ce 3f 20 |? | MOVE.W -(A0),-(A7)
000218d0 51 c8 ff fc |Q | DBF D0,0x218ce
000218d4 51 4f |QO | SUBQ.L #0x8,A7
000218d6 48 6f 00 12 |Ho | PEA.L (A7+0x12)
000218da 3f 01 |? | MOVE.W D1,-(A7)
000218dc 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
000218e0 4e 92 |N | JSR (A2)
000218e2 2e 87 |. | MOVE.L D7,(A7)
000218e4 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
000218ea 48 6f 00 10 |Ho | PEA.L (A7+0x10)
000218ee 3f 01 |? | MOVE.W D1,-(A7)
000218f0 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7)
000218f4 4e 92 |N | JSR (A2)
000218f6 50 4f |PO | ADDQ.L #0x8,A7
000218f8 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
000218fe de c2 | | ADDA.W D2,A7
00021900 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00021906 de fc 00 14 | | ADDA.W #0x14,A7
0002190a 52 87 |R | ADDQ.L #0x1,D7
0002190c 68 a0 |h | BVC 0x218ae
0002190e 58 4f |XO | ADDQ.L #0x4,A7
00021910 4c df 07 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2
00021914 4e 5e |N^ | UNLK A6
00021916 4e 75 |Nu | RTS
00021918 ; --------------------------------------------------------------------------------------
00021918 ; OMSI PASCAL Function
00021918 ; <LVAR -0x002 @>
00021918 ; <LVAR -0x004 @ 1(r)>
00021918 ; --------------------------------------------------------------------------------------
00021918 4e 56 ff ba |NV | LINK.W A6,#0xffba
0002191c bf d5 | | CMPA.L (A5),A7
0002191e 62 06 |b | BHI 0x21926
00021920 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021924 4e 76 |Nv | TRAPV
00021926 de fc 00 42 | B | ADDA.W #0x42,A7
0002192a 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
0002192e 48 6e ff fc |Hn | PEA.L (A6-0x4)
00021932 48 6e ff fe |Hn | PEA.L (A6-0x2)
00021936 4e b9 00 01 02 00 |N | JSR KC00_GetBootDev(VAR a : Byte; VAR b : Word)
0002193c 50 4f |PO | ADDQ.L #0x8,A7
0002193e 10 2e ff fc | . | MOVE.B (A6-0x4),D0
00021942 0c 00 00 02 | | CMPI.B #0x02,D0
00021946 67 2e |g. | BEQ 0x21976
00021948 41 fa ec c0 |A | LEA.L 0x2060a,A0
0002194c 70 14 |p | MOVEQ.L #0x14,D0
0002194e 3f 20 |? | MOVE.W -(A0),-(A7)
00021950 51 c8 ff fc |Q | DBF D0,0x2194e
00021954 59 4f |YO | SUBQ.L #0x4,A7
00021956 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002195a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002195e 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7)
00021962 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021968 50 4f |PO | ADDQ.L #0x8,A7
0002196a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00021970 de fc 00 2e | . | ADDA.W #0x2e,A7
00021974 60 fe |` | BRA 0x21974
00021976 4e b9 00 01 03 98 |N | JSR FSCALL_10398
0002197c 42 27 |B' | CLR.B -(A7)
0002197e 48 78 00 01 |Hx | PEA.L 0x1
00021982 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00021988 5c 4f |\O | ADDQ.L #0x6,A7
0002198a 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
0002198e 4e 5e |N^ | UNLK A6
00021990 4e 75 |Nu | RTS
00021992 ; --------------------------------------------------------------------------------------
00021992 ; OMSI PASCAL Function
00021992 ; --------------------------------------------------------------------------------------
00021992 START:
00021992 4f fa 00 08 |O | LEA.L MAIN,A7
00021996 4e f9 00 01 02 80 |N | JMP ?start_program
0002199c MAIN:
0002199c 4e b9 00 01 04 00 |N | JSR FSCALL_10400
000219a2 42 27 |B' | CLR.B -(A7)
000219a4 4e b9 00 01 04 04 |N | JSR SetSomeKindOfFlag(a : Byte)
000219aa 54 4f |TO | ADDQ.L #0x2,A7
000219ac 41 f9 00 02 1c 8a |A | LEA.L 0x21c8a,A0
000219b2 23 c8 00 02 1c 82 |# | MOVE.L A0,0x21c82
000219b8 2f 08 |/ | MOVE.L A0,-(A7)
000219ba 23 df 00 02 1c 86 |# | MOVE.L (A7)+,0x21c86
000219c0 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x20020
000219c8 00 20 | |
000219ca 23 fc 00 00 00 01 00 01 |# | MOVE.L #0x1,0x10026
000219d2 00 26 | & |
000219d4 42 27 |B' | CLR.B -(A7)
000219d6 4e b9 00 01 03 ac |N | JSR Set_is_open_ERROR_LOG(a : Bool)
000219dc 54 4f |TO | ADDQ.L #0x2,A7
000219de 4e ba ed 08 |N | JSR 0x206e8
000219e2 4e ba ef 1c |N | JSR 0x20900
000219e6 4e ba fe 3c |N < | JSR 0x21824
000219ea 48 79 00 02 1c 76 |Hy v | PEA.L 0x21c76
000219f0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
000219f6 55 4f |UO | SUBQ.L #0x2,A7
000219f8 20 4f | O | MOVEA.L A7,A0
000219fa 43 fa ec 0e |C | LEA.L 0x2060a,A1
000219fe 70 04 |p | MOVEQ.L #0x04,D0
00021a00 10 d9 | | MOVE.B (A1)+,(A0)+
00021a02 51 c8 ff fc |Q | DBF D0,0x21a00
00021a06 59 4f |YO | SUBQ.L #0x4,A7
00021a08 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021a0c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021a10 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00021a14 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a1a 50 4f |PO | ADDQ.L #0x8,A7
00021a1c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00021a22 de fc 00 0a | | ADDA.W #0xa,A7
00021a26 41 fa eb fa |A | LEA.L 0x20622,A0
00021a2a 70 08 |p | MOVEQ.L #0x08,D0
00021a2c 3f 20 |? | MOVE.W -(A0),-(A7)
00021a2e 51 c8 ff fc |Q | DBF D0,0x21a2c
00021a32 5d 4f |]O | SUBQ.L #0x6,A7
00021a34 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00021a38 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021a3c 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00021a40 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a46 5c 4f |\O | ADDQ.L #0x6,A7
00021a48 42 17 |B | CLR.B (A7)
00021a4a 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00021a50 5c 4f |\O | ADDQ.L #0x6,A7
00021a52 4a 1f |J | TST.B (A7)+
00021a54 66 04 |f | BNE 0x21a5a
00021a56 4e ba fe c0 |N | JSR 0x21918
00021a5a de fc 00 12 | | ADDA.W #0x12,A7
00021a5e 60 00 ff 60 |` ` | BRA 0x219c0
00021a62 4e b9 00 01 02 84 |N | .XXX[0x6]
00021a68 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_'
00021a76 ; --------------------------------------------------------------------------------------
00021a76 ; OMSI PASCAL Function
00021a76 ; <LVAR 0x008 1(r)>
00021a76 ; --------------------------------------------------------------------------------------
00021a76 PROG_FAIL:
00021a76 4e 56 ff d2 |NV | LINK.W A6,#0xffd2
00021a7a bf d5 | | CMPA.L (A5),A7
00021a7c 62 06 |b | BHI 0x21a84
00021a7e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021a82 4e 76 |Nv | TRAPV
00021a84 de fc 00 2c | , | ADDA.W #0x2c,A7
00021a88 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
00021a8c 41 fa ff e8 |A | LEA.L PROG_FAIL,A0
00021a90 70 06 |p | MOVEQ.L #0x06,D0
00021a92 3f 20 |? | MOVE.W -(A0),-(A7)
00021a94 51 c8 ff fc |Q | DBF D0,0x21a92
00021a98 1f 3c 00 03 | < | MOVE.B #0x03,-(A7)
00021a9c 51 4f |QO | SUBQ.L #0x8,A7
00021a9e 48 6f 00 0a |Ho | PEA.L (A7+0xa)
00021aa2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021aa6 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00021aaa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021ab0 58 4f |XO | ADDQ.L #0x4,A7
00021ab2 10 2e 00 08 | . | MOVE.B (A6+0x8),D0
00021ab6 48 80 |H | EXTB.W D0
00021ab8 48 c0 |H | EXTW.L D0
00021aba 2f 00 |/ | MOVE.L D0,-(A7)
00021abc 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021ac2 58 4f |XO | ADDQ.L #0x4,A7
00021ac4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021aca 50 4f |PO | ADDQ.L #0x8,A7
00021acc 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00021ad2 de fc 00 14 | | ADDA.W #0x14,A7
00021ad6 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
00021ada 4e 5e |N^ | UNLK A6
00021adc 4e 75 |Nu | RTS
00021ade 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ '
00021aec 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ '
00021afa 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ '
00021b08 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :'
00021b1a 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. '
00021b32 ; --------------------------------------------------------------------------------------
00021b32 ; OMSI PASCAL Function
00021b32 ; <LVAR 0x00e 1(r)>
00021b32 ; <LVAR 0x00a 4(r)>
00021b32 ; <LVAR 0x008 1(r)>
00021b32 ; --------------------------------------------------------------------------------------
00021b32 EXP_FAIL:
00021b32 4e 56 ff 8c |NV | LINK.W A6,#0xff8c
00021b36 bf d5 | | CMPA.L (A5),A7
00021b38 62 06 |b | BHI 0x21b40
00021b3a 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021b3e 4e 76 |Nv | TRAPV
00021b40 de fc 00 74 | t | ADDA.W #0x74,A7
00021b44 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00021b48 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00021b4e 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4
00021b54 72 01 |r | MOVEQ.L #0x01,D1
00021b56 74 0d |t | MOVEQ.L #0x0d,D2
00021b58 76 1e |v | MOVEQ.L #0x1e,D3
00021b5a 78 12 |x | MOVEQ.L #0x12,D4
00021b5c 7a 0e |z | MOVEQ.L #0x0e,D5
00021b5e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00021b64 41 fa ff b4 |A | LEA.L 0x21b1a,A0
00021b68 70 08 |p | MOVEQ.L #0x08,D0
00021b6a 3f 20 |? | MOVE.W -(A0),-(A7)
00021b6c 51 c8 ff fc |Q | DBF D0,0x21b6a
00021b70 59 4f |YO | SUBQ.L #0x4,A7
00021b72 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021b76 3f 01 |? | MOVE.W D1,-(A7)
00021b78 3f 04 |? | MOVE.W D4,-(A7)
00021b7a 4e 93 |N | JSR (A3)
00021b7c 50 4f |PO | ADDQ.L #0x8,A7
00021b7e 4e 94 |N | JSR (A4)
00021b80 50 4f |PO | ADDQ.L #0x8,A7
00021b82 20 4f | O | MOVEA.L A7,A0
00021b84 43 fa ff 58 |C X | LEA.L 0x21ade,A1
00021b88 70 0c |p | MOVEQ.L #0x0c,D0
00021b8a 10 d9 | | MOVE.B (A1)+,(A0)+
00021b8c 51 c8 ff fc |Q | DBF D0,0x21b8a
00021b90 51 4f |QO | SUBQ.L #0x8,A7
00021b92 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021b96 3f 01 |? | MOVE.W D1,-(A7)
00021b98 3f 02 |? | MOVE.W D2,-(A7)
00021b9a 4e 93 |N | JSR (A3)
00021b9c 54 4f |TO | ADDQ.L #0x2,A7
00021b9e 1e ae 00 0e | | MOVE.B (A6+0xe),(A7)
00021ba2 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String
00021ba8 54 4f |TO | ADDQ.L #0x2,A7
00021baa 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021bb0 50 4f |PO | ADDQ.L #0x8,A7
00021bb2 4e 94 |N | JSR (A4)
00021bb4 de c4 | | ADDA.W D4,A7
00021bb6 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0
00021bba b0 c1 | | CMPA.W D1,A0
00021bbc 67 48 |gH | BEQ 0x21c06
00021bbe 9e c5 | | SUBA.W D5,A7
00021bc0 22 4f |"O | MOVEA.L A7,A1
00021bc2 45 fa ff 28 |E ( | LEA.L 0x21aec,A2
00021bc6 70 0c |p | MOVEQ.L #0x0c,D0
00021bc8 12 da | | MOVE.B (A2)+,(A1)+
00021bca 51 c8 ff fc |Q | DBF D0,0x21bc8
00021bce 9e c3 | | SUBA.W D3,A7
00021bd0 22 4f |"O | MOVEA.L A7,A1
00021bd2 41 e8 00 fc |A | LEA.L (A0+0xfc),A0
00021bd6 70 1d |p | MOVEQ.L #0x1d,D0
00021bd8 12 d8 | | MOVE.B (A0)+,(A1)+
00021bda 51 c8 ff fc |Q | DBF D0,0x21bd8
00021bde 51 4f |QO | SUBQ.L #0x8,A7
00021be0 48 6f 00 26 |Ho & | PEA.L (A7+0x26)
00021be4 3f 01 |? | MOVE.W D1,-(A7)
00021be6 3f 02 |? | MOVE.W D2,-(A7)
00021be8 4e 93 |N | JSR (A3)
00021bea 58 4f |XO | ADDQ.L #0x4,A7
00021bec 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021bf0 3f 01 |? | MOVE.W D1,-(A7)
00021bf2 3f 03 |? | MOVE.W D3,-(A7)
00021bf4 4e 93 |N | JSR (A3)
00021bf6 50 4f |PO | ADDQ.L #0x8,A7
00021bf8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021bfe 50 4f |PO | ADDQ.L #0x8,A7
00021c00 4e 94 |N | JSR (A4)
00021c02 de fc 00 30 | 0 | ADDA.W #0x30,A7
00021c06 9e c5 | | SUBA.W D5,A7
00021c08 20 4f | O | MOVEA.L A7,A0
00021c0a 43 fa fe ee |C | LEA.L 0x21afa,A1
00021c0e 70 0c |p | MOVEQ.L #0x0c,D0
00021c10 10 d9 | | MOVE.B (A1)+,(A0)+
00021c12 51 c8 ff fc |Q | DBF D0,0x21c10
00021c16 51 4f |QO | SUBQ.L #0x8,A7
00021c18 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021c1c 3f 01 |? | MOVE.W D1,-(A7)
00021c1e 3f 02 |? | MOVE.W D2,-(A7)
00021c20 4e 93 |N | JSR (A3)
00021c22 54 4f |TO | ADDQ.L #0x2,A7
00021c24 1e ae 00 08 | | MOVE.B (A6+0x8),(A7)
00021c28 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String)
00021c2e 54 4f |TO | ADDQ.L #0x2,A7
00021c30 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021c36 50 4f |PO | ADDQ.L #0x8,A7
00021c38 4e 94 |N | JSR (A4)
00021c3a 5d 4f |]O | SUBQ.L #0x6,A7
00021c3c 20 4f | O | MOVEA.L A7,A0
00021c3e 43 fa fe da |C | LEA.L 0x21b1a,A1
00021c42 70 16 |p | MOVEQ.L #0x16,D0
00021c44 10 d9 | | MOVE.B (A1)+,(A0)+
00021c46 51 c8 ff fc |Q | DBF D0,0x21c44
00021c4a 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00021c4e 59 4f |YO | SUBQ.L #0x4,A7
00021c50 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00021c54 3f 01 |? | MOVE.W D1,-(A7)
00021c56 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00021c5a 4e 93 |N | JSR (A3)
00021c5c 50 4f |PO | ADDQ.L #0x8,A7
00021c5e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00021c64 de c3 | | ADDA.W D3,A7
00021c66 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00021c6a 4e 5e |N^ | UNLK A6
00021c6c 4e 75 |Nu | RTS