|
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 - metrics - download
Length: 8192 (0x2000)
Types: M200
Notes: @(#)CHECKDISK,1.1,92/07/09,12:00:00, M200_PROGRAM
Names: »CHECKDISK.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─⟦this⟧ »CHECKDISK.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─⟦this⟧ »CHECKDISK.M200«
@ 20674
<LVAR 0x008 4(r)>
<POP 20674--0001 Body>
<POP 20674-2068a Prologue> Σ0 ↓
<POP 2068a-20694 Naked> Σ0 ↓ →0x2069e
<MI 2068a MOVEA.L (A6+0x8),A0> {}
<MI 2068e CMPA.W #0x1,A0> {}
<MI 20692 BEQ 0x2069e> {}
<POP 20694-2069e Naked> Σ0 ↓
<MI 20694 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Call 0x20696 0x103e0> {[4, 'A0']}
WriteConsoleStringCrLf(str : String)
<POP 2069c-2069e StackAdj> Δ+4 {}
<POP 2069e-206ac Naked> Σ0 ←0x2068a
<POP 2069e-206ac Bailout> {}
<MI 2069e MOVEA.L (A5+0x8),A7>
<MI 206a2 MOVEA.W #0x0,A6>
<MI 206a6 JMP 0x219e4>
@ 206b4
<POP 206b4-2070c Body>
<POP 206b4-206ca Prologue> Σ0 ↓
<POP 206ca-206cc RegCacheLoad> Σ0 ↓
<POP 206cc-206ce Naked> Σ0 ↓
<MI 206cc MOVEQ.L #0x01,D7> {}
<POP 206ce-20704 Naked> Σ0 ↓ →0x206ce ←0x206ce
<MI 206ce MOVE.L D7,D0> {}
<MI 206d0 ASL.L #0x1,D0> {}
<MI 206d2 MOVE.L D0,D1> {}
<MI 206d4 SUBQ.L #0x1,D1> {}
<POP 0x206d6 LimitCheck 0x0 ≤ D1 ≤ 0x1d> {}
<MI 206dc LEA.L 0x21cae,A0> {}
<MI 206e2 MOVE.B (A0+D1.L+#0x36),D6> {}
<MI 206e6 SUBQ.L #0x1,D0> {}
<MI 206e8 SUBQ.L #0x1,D0> {}
<POP 0x206ea LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 206f0 MOVE.B (A0+D0.L+#0x36),(A0+D1.L+#0x36)> {}
<MI 206f6 MOVE.B D6,(A0+D0.L+#0x36)> {}
<MI 206fa ADDQ.L #0x1,D7> {}
<MI 206fc CMPI.L #0x0000000f,D7> {}
<MI 20702 BLE 0x206ce> {}
<POP 20704-2070c Epilogue> Σ0
@ 2070c
<LVAR -0x004 @ 1(r)>
<POP 2070c-20924 Body>
<POP 2070c-20722 Prologue> Σ0 ↓
<POP 20722-20740 RegCacheLoad> Σ0 ↓
<POP 20740-207c0 Naked> Σ0 ↓ →0x207ec
<Blob 0x20740 [38] @> Δ-38 {[«38""»]}
<POP 20750-20752 StackAdj> Δ-8 {[«38""»]|[-8-]}
<Lit 0x20752 37> {[«38""»]|[-4-]|[$$Enter unit number of disk to check :_]}
<Const 0x20760 0x0.4> Δ-4 {[«38""»]|[-4-]|[$$Enter unit number of disk to check :_]|[##0]}
<Const 0x20764 0xf.4> Δ-4 {[«38""»]|[-4-]|[$$Enter unit number of disk to check :_]|[##0]|[##15]}
<Call 0x20768 0x103ec> {[«38""»]|[-4-]|[$$Enter unit number of disk to check :_]|[##0]|[##15]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 2076e-20772 StackAdj> Δ+12 {[«38""»]|[-4-]}
<MI 20772 MOVE.L (A7)+,D0> Δ+4 {[«38""»]}
<POP 0x20774 LimitCheck 0x0 ≤ D0 ≤ 0xf> {[«38""»]}
<POP 2077e-20780 StackAdj> Δ+38 {}
<MI 20780 MOVE.W D0,0x21ca0> {}
<MI 20786 MOVE.W D0,0x10008> {}
<MI 2078c MOVE.W #0x7fff,0x1000c> {}
<MI 20794 MOVE.W #0x7fff,0x1000a> {}
<MI 2079c CLR.B 0x21c9e> {}
<Const 0x2079e 0x2.2> Δ-2 {[#2]}
<Const 0x207a0 0x2.2> Δ-2 {[#2]|[#2]}
<Const 0x207a2 0x1.4> Δ-4 {[#2]|[#2]|[##1]}
<Blob 0x207a6 [4] 0x21caa> Δ-4 {[#2]|[#2]|[##1]|[«4»]}
<Pointer.fp 0x207ac <LVAR -0x004 @ 1(r)>> Δ-4 {[#2]|[#2]|[##1]|[«4»]|[@@-4]}
<Call 0x207b0 0x1036c> {[#2]|[#2]|[##1]|[«4»]|[@@-4]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 207b6-207ba StackAdj> Δ+16 {}
<MI 207ba TST.B (A6-0x4)> {}
<MI 207be BNE 0x207ec> {}
<POP 207c0-207ec Naked> Σ0 →0x208ca
<Blob 0x207c0 [42] @> Δ-42 {[«42""»]}
<POP 207d2-207d4 StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x207d4 41> {[«42""»]|[$$Can't retrieve labels due to disk errors.]}
<Call 0x207e2 0x103e0> {[«42""»]|[$$Can't retrieve labels due to disk errors.]}
WriteConsoleStringCrLf(str : String)
<POP 207e4-207e8 StackAdj> Δ+46 {}
<MI 207e8 BRA 0x208ca> {}
<POP 207ec-207f8 Naked> Σ0 ↓ →0x2081e ←0x20740
<MI 207ec MOVE.W 0x21cb0,D0> {}
<MI 207f2 CMPI.W #0x7fed,D0> {}
<MI 207f6 BEQ 0x2081e> {}
<POP 207f8-2081e Naked> Σ0 →0x208ca
<Blob 0x207f8 [20] @> Δ-20 {[«20""»]}
<POP 20808-2080a StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2080a 19> {[«20""»]|[$$Disk has no labels.]}
<Call 0x20816 0x103e0> {[«20""»]|[$$Disk has no labels.]}
WriteConsoleStringCrLf(str : String)
<POP 20818-2081a StackAdj> Δ+24 {}
<MI 2081a BRA 0x208ca> {}
<POP 2081e-2082a Naked> Σ0 ↓ →0x20854 ←0x207ec
<MI 2081e MOVE.W 0x21cb2,D0> {}
<MI 20824 CMPI.W #0x0003,D0> {}
<MI 20828 BEQ 0x20854> {}
<POP 2082a-20854 Naked> Σ0 →0x208ca
<Blob 0x2082a [26] @> Δ-26 {[«26""»]}
<POP 2083c-2083e StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x2083e 25> {[«26""»]|[$$Disk has obsolete labels.]}
<Call 0x2084c 0x103e0> {[«26""»]|[$$Disk has obsolete labels.]}
WriteConsoleStringCrLf(str : String)
<POP 2084e-20852 StackAdj> Δ+30 {}
<MI 20852 BRA 0x208ca> {}
<POP 20854-208ca Naked> Σ0 ↓ ←0x2081e
<MI 20854 MOVE.L 0x21cb6,0x21ca2> {}
<Call 0x2085e 0x206b4> {}
<Blob 0x20862 [30] 0x21d02> Δ-30 {[«30»]}
<POP 20870-20872 StackAdj> Δ-8 {[«30»]|[-8-]}
<Lit 0x20872> {[«30»]|[-4-]|[$$…]}
<Pointer.sp 0x20872 8> Δ-4
<Const 0x20876 0x1.2> Δ-2
<Const 0x20878 0x1e.2> Δ-2
<Call 0x2087c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2087e-20880 StackAdj> Δ+8
<Call 0x20880 0x102f0> {[«30»]|[-4-]|[$$…]}
ToUpper(a : String) : String
<POP 20886-20888 StackAdj> Δ+4 {[«30»]|[-4-]}
<MI 20888 MOVE.L (A7)+,0x21c9a> Δ+4 {[«30»]}
<POP 2088e-20892 StackAdj> Δ+28 {[-2-]}
<POP 20892-20893 StackAdj> Δ+2 {}
<Blob 0x20893 [2] @> Δ-2 {[«2""»]}
<Blob 0x20896 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x2089a [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 2089e-208a0 StackAdj> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[-8-]}
<Lit 0x208a0 6> {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]}
<POP 208ac-208ad StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]|[-4-]}
<Blob 0x208ad [4] 0x21c9a> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]|[-4-]|[«4»]}
<Call 0x208b2 0x102cc> {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]|[-4-]|[«4»]}
StringDup(a : String) : String
<POP 208b8-208ba StackAdj> Δ+4 {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]|[-4-]}
<Call 0x208ba 0x102d0> {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 208c0-208c2 StackAdj> Δ+8 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Call 0x208c2 0x103e0> {[«2""»]|[«2""»]|[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 208c4-208c8 StackAdj> Δ+10 {}
<MI 208c8 MOVE.B #0x01,0x21c9e> {}
<POP 208ca-208ce Naked> Σ0 ↓ →0x208f2 ←0x207c0 ←0x207f8 ←0x2082a
<MI 208ca TST.B 0x21c9e> {}
<MI 208cc BNE 0x208f2> {}
<POP 208ce-208f2 Naked> Σ0 ↓
<Blob 0x208ce [20] @> Δ-20 {[«20""»]}
<POP 208de-208e0 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x208e0 19> {[«20""»]|[$$Disk has no labels.]}
<Call 0x208ec 0x20674> {[«20""»]|[$$Disk has no labels.]}
<POP 208f0-208f2 StackAdj> Δ+24 {}
<POP 208f2-2091c Naked> Σ0 ↓ ←0x208ca
<MI 208f2 CLR.L D0> {}
<MI 208f4 MOVE.B 0x21ca5,D0> {}
<MI 208fa ASR.W #0x1,D0> {}
<MI 208fc MOVE.W D0,0x1000a> {}
<MI 20902 CLR.L D1> {}
<MI 20904 MOVE.B 0x21ca4,D1> {}
<MI 2090a MULU.W D0,D1> {}
<POP 0x2090c LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20916 MOVE.W D1,0x1000c> {}
<POP 2091c-20924 Epilogue> Σ0
@ 20924
<LVAR -0x002 2(rw)>
<LVAR -0x004 2(rw)>
<LVAR -0x010 @ 1(r)>
<POP 20924-20ab0 Body>
<POP 20924-2093a Prologue> Σ0 ↓
<POP 2093a-20944 RegCacheLoad> Σ0 ↓
<POP 20944-20946 Naked> Σ0 ↓
<MI 20944 MOVEQ.L #0x00,D5> {}
<POP 20946-20972 Naked> Σ0 ↓ →0x20946 ←0x20946
<POP 0x20946 LimitCheck 0x0 ≤ D5 ≤ 0x7ff> {}
<MI 20950 MOVE.L D5,D0> {}
<MI 20952 ASL.L #0x2,D0> {}
<MI 20954 LEA.L 0x21c92,A0> {}
<MI 20956 LEA.L (A0+D0.L),A0> {}
<MI 2095a ANDI.W #0xc000,(A0+0x41c)> {}
<MI 20960 CLR.B (A0+0x41e)> {}
<MI 20964 CLR.B (A0+0x41f)> {}
<MI 20968 ADDQ.L #0x1,D5> {}
<MI 2096a CMPI.L #0x000007ff,D5> {}
<MI 20970 BLE 0x20946> {}
<POP 20972-209c6 Naked> Σ0 ↓
<MI 20972 CLR.L D0> {}
<MI 20974 MOVE.B 0x21cbc,D0> {}
<MI 2097a CLR.L D1> {}
<MI 2097c MOVE.B 0x21ca5,D1> {}
<MI 20982 MULU.W D1,D0> {}
<MI 20984 CLR.L D2> {}
<MI 20986 MOVE.B 0x21cbd,D2> {}
<MI 2098c ADDQ.W #0x1,D2> {}
<MI 2098e ADD.W D0,D2> {}
<MI 20990 LSR.W #0x1,D2> {}
<MI 20992 MOVE.W D2,(A6-0x4)> {}
<MI 20996 CLR.L D0> {}
<MI 20998 MOVE.B 0x21cc0,D0> {}
<MI 2099e MULU.W D1,D0> {}
<MI 209a0 CLR.L D1> {}
<MI 209a2 MOVE.B 0x21cc1,D1> {}
<MI 209a8 SUBQ.W #0x1,D1> {}
<MI 209aa CLR.L D2> {}
<MI 209ac MOVE.W D0,D2> {}
<MI 209ae EXTW.L D1> {}
<MI 209b0 ADD.L D2,D1> {}
<MI 209b2 MOVE.L D1,D4> {}
<MI 209b4 MOVEQ.L #0x02,D3> {}
<Call 0x209b6 0x10294> {}
?divs_d3_d4
<MI 209bc MOVE.W D4,(A6-0x2)> {}
<MI 209c0 MOVEQ.L #0x00,D6> {}
<MI 209c2 MOVE.W (A6-0x4),D7> {}
<POP 209c6-20a00 Naked> Σ0 ↓ →0x20a88 ←0x20a88
<POP 0x209c6 LimitCheck 0x0 ≤ D6 ≤ 0x7ff> {}
<MI 209d0 MOVE.L D6,D0> {}
<MI 209d2 ASL.L #0x2,D0> {}
<MI 209d4 LEA.L 0x21c92,A0> {}
<MI 209d6 LEA.L (A0+D0.L),A0> {}
<MI 209da LEA.L (A0+0x41c),A0> {}
<MI 209de MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 209e0 MOVEA.L (A7)+,A4> Δ+4 {}
<Const 0x209e2 0x2.2> Δ-2 {[#2]}
<MI 209e6 MOVE.W D7,-(A7)> Δ-2 {[#2]|[2, 'D7']}
<Const 0x209e8 0x1.4> Δ-4 {[#2]|[2, 'D7']|[##1]}
<MI 209ec MOVE.L A4,-(A7)> Δ-4 {[#2]|[2, 'D7']|[##1]|[4, 'A4']}
<Pointer.fp 0x209ee <LVAR -0x010 @ 1(r)>> Δ-4 {[#2]|[2, 'D7']|[##1]|[4, 'A4']|[@@-16]}
<Call 0x209f0 0x1036c> {[#2]|[2, 'D7']|[##1]|[4, 'A4']|[@@-16]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 209f6-209fa StackAdj> Δ+16 {}
<MI 209fa TST.B (A6-0x10)> {}
<MI 209fc BNE 0x20a88> {}
<POP 20a00-20a58 Naked> Σ0 ↓ →0x20a88
<Blob 0x20a00 [58] @> Δ-58 {[«58""»]}
<POP 20a0c-20a0e StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x20a0e 58> {[«58""»]|[$$Primary Bad Block Area element un-readable, trying sibling]}
<Call 0x20a22 0x103e0> {[«58""»]|[$$Primary Bad Block Area element un-readable, trying sibling]}
WriteConsoleStringCrLf(str : String)
<POP 20a28-20a2c StackAdj> Δ+60 {[-2-]}
<POP 20a2c-20a2d StackAdj> Δ+2 {}
<Const 0x20a2d 0x2.2> Δ-2 {[#2]}
<MI 20a30 CLR.L D0> {[#2]}
<MI 20a32 MOVE.W D7,D0> {[#2]}
<MI 20a34 ADDQ.L #0x1,D0> {[#2]}
<POP 0x20a36 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[#2]}
<MI 20a40 MOVE.W D0,-(A7)> Δ-2 {[#2]|[2, 'D0']}
<Const 0x20a42 0x1.4> Δ-4 {[#2]|[2, 'D0']|[##1]}
<MI 20a46 MOVE.L A4,-(A7)> Δ-4 {[#2]|[2, 'D0']|[##1]|[4, 'A4']}
<Pointer.fp 0x20a48 <LVAR -0x010 @ 1(r)>> Δ-4 {[#2]|[2, 'D0']|[##1]|[4, 'A4']|[@@-16]}
<Call 0x20a4a 0x1036c> {[#2]|[2, 'D0']|[##1]|[4, 'A4']|[@@-16]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 20a50-20a54 StackAdj> Δ+16 {}
<MI 20a54 TST.B (A6-0x10)> {}
<MI 20a56 BNE 0x20a88> {}
<POP 20a58-20a88 Naked> Σ0 ↓
<Blob 0x20a58 [58] @> Δ-58 {[«58""»]}
<POP 20a6a-20a6c StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x20a6c 57> {[«58""»]|[$$Can't read bad block file from disk, disk errors in file!]}
<Call 0x20a80 0x20674> {[«58""»]|[$$Can't read bad block file from disk, disk errors in file!]}
<POP 20a84-20a88 StackAdj> Δ+62 {}
<POP 20a88-20aa8 Naked> Σ0 ↓ →0x209c6 ←0x209c6 ←0x20a00
<MI 20a88 ADDI.L #0x00000100,D6> {}
<MI 20a8e CLR.L D0> {}
<MI 20a90 MOVE.W D7,D0> {}
<MI 20a92 ADDQ.L #0x2,D0> {}
<POP 0x20a94 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20a9e MOVE.W D0,D7> {}
<MI 20aa0 CMP.W (A6-0x2),D7> {}
<MI 20aa4 BLS 0x209c6> {}
<POP 20aa8-20ab0 Epilogue> Σ0
@ 20ab0
<LVAR 0x008 4(r)>
<POP 20ab0-20b40 Body>
<POP 20ab0-20ac6 Prologue> Σ0 ↓
<POP 20ac6-20ace RegCacheLoad> Σ0 ↓
<POP 20ace-20ad4 Naked> Σ0 ↓ →0x20ae6
<MI 20ace MOVEA.L (A4+0x4),A0> {}
<MI 20ad0 TST.W (A0)> {}
<MI 20ad2 BNE 0x20ae6> {}
<POP 20ad4-20ae6 Naked> Σ0 →0x20b38
<POP 20ad4-20ad6 StackAdj> Δ-4 {[-4-]}
<MI 20ad6 MOVE.L (A4+0x4),-(A7)> Δ-4 {[-4-]|[4, '(A4+0x4)']}
<MI 20ad8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A4+0x4)']|[4, '(A6+0x8)']}
<Call 0x20ada 0x102d0> {[-4-]|[4, '(A4+0x4)']|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 20ae0-20ae2 StackAdj> Δ+8 {[-4-]}
<MI 20ae2 MOVE.L (A7)+,(A4+0x4)> Δ+4 {}
<MI 20ae4 BRA 0x20b38> {}
<POP 20ae6-20afc Naked> Σ0 ↓ →0x20b2c ←0x20ace
<MI 20ae6 MOVE.W (A0),D0> {}
<MI 20ae8 EXTW.L D0> {}
<MI 20aea ADDQ.L #0x2,D0> {}
<MI 20aec MOVEA.L (A6+0x8),A0> {}
<MI 20aee MOVE.W (A0),D1> {}
<MI 20af0 EXTW.L D1> {}
<MI 20af2 ADD.L D0,D1> {}
<MI 20af4 CMPI.L #0x00000050,D1> {}
<MI 20afa BGT 0x20b2c> {}
<POP 20afc-20b2c Naked> Σ0 →0x20b38
<Blob 0x20afc [2] @> Δ-2 {[«2""»]}
<POP 20b00-20b02 StackAdj> Δ-4 {[«2""»]|[-4-]}
<MI 20b02 MOVE.L (A4+0x4),-(A7)> Δ-4 {[«2""»]|[-4-]|[4, '(A4+0x4)']}
<POP 20b04-20b06 StackAdj> Δ-4 {[«2""»]|[-4-]|[4, '(A4+0x4)']|[-4-]}
<Lit 0x20b06 2> {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]}
<POP 20b18-20b1a StackAdj> Δ-4 {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]|[-4-]}
<MI 20b1a MOVE.L (A6+0x8),(A7)> {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]|[4, '(A6+0x8)']}
<Call 0x20b1c 0x102d4> {[«2""»]|[-4-]|[4, '(A4+0x4)']|[$$,_]|[4, '(A6+0x8)']}
StringCat3(a, b, c : String) : String
<POP 20b22-20b26 StackAdj> Δ+12 {[«2""»]|[-4-]}
<MI 20b26 MOVE.L (A7)+,(A4+0x4)> Δ+4 {[«2""»]}
<POP 20b28-20b2a StackAdj> Δ+2 {}
<MI 20b2a BRA 0x20b38> {}
<POP 20b2c-20b38 Naked> Σ0 ↓ ←0x20ae6
<MI 20b2c MOVE.L (A4+0x4),-(A7)> Δ-4 {[4, '(A4+0x4)']}
<Call 0x20b2e 0x103e0> {[4, '(A4+0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 20b34-20b36 StackAdj> Δ+4 {}
<MI 20b36 MOVE.L (A6+0x8),(A4+0x4)> {}
<POP 20b38-20b40 Epilogue> Σ0 ←0x20ad4 ←0x20afc
@ 20b40
<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 20b40-213de Body>
<POP 20b40-20b56 Prologue> Σ0 ↓
<POP 20b56-20b66 RegCacheLoad> Σ0 ↓
<POP 20b66-20c4e Naked> Σ0 ↓
<Pointer.fp 0x20b66 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x20b6a 0x102b8> {[@@-6]}
NewString(VAR a : String)
<MI 20b70 MOVE.L (A6+0x2a),(A7)> {[4, '(A6+0x2a)']}
<Call 0x20b74 0x103d8> {[4, '(A6+0x2a)']}
WriteConsoleString(str : String)
<POP 20b7a-20b7b StackAdj> Δ+4 ↓ {}
<Blob 0x20b7b [12] @> Δ-12 {[«12""»]}
<POP 20b8a-20b8c StackAdj> Δ-8 {[«12""»]|[-8-]}
<Lit 0x20b8c 11> {[«12""»]|[-4-]|[$$Cylinder =>]}
<MI 20b98 MOVE.L (A6+0x26),-(A7)> Δ-4 {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x26)']}
<POP 20b96-20b98 StackAdj> Δ-8 {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x26)']|[-8-]}
<Call 0x20b9c 0x102e4> {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x26)']|[-8-]}
Long2String(a : Long) : String
<POP 20ba2-20ba4 StackAdj> Δ+4 {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x26)']|[-4-]}
<Const 0x20ba4 0x4.4> Δ-4 {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x26)']|[-4-]|[##4]}
<Call 0x20ba8 0x102f4> {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x26)']|[-4-]|[##4]}
RightPad(a : String; b : Long) : String
<POP 20bae-20bb0 StackAdj> Δ+8 {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x26)']}
<Call 0x20bb0 0x102d0> {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x26)']}
StringCat2(a, b : String) : String
<POP 20bb6-20bb8 StackAdj> Δ+8 {[«12""»]|[-4-]}
<Call 0x20bb8 0x103d8> {[«12""»]|[-4-]}
WriteConsoleString(str : String)
<POP 20bbe-20bc0 StackAdj> Δ+16 {}
<Blob 0x20bc0 [10] @> Δ-10 {[«10""»]}
<POP 20bcc-20bce StackAdj> Δ-8 {[«10""»]|[-8-]}
<Lit 0x20bce 10> {[«10""»]|[-4-]|[$$, Track =>]}
<MI 20bda MOVE.L (A6+0x22),-(A7)> Δ-4 {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0x22)']}
<POP 20bd8-20bda StackAdj> Δ-8 {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0x22)']|[-8-]}
<Call 0x20bde 0x102e4> {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0x22)']|[-8-]}
Long2String(a : Long) : String
<POP 20be4-20be6 StackAdj> Δ+4 {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0x22)']|[-4-]}
<Const 0x20be6 0x4.4> Δ-4 {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0x22)']|[-4-]|[##4]}
<Call 0x20bea 0x102f4> {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0x22)']|[-4-]|[##4]}
RightPad(a : String; b : Long) : String
<POP 20bf0-20bf2 StackAdj> Δ+8 {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0x22)']}
<Call 0x20bf2 0x102d0> {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0x22)']}
StringCat2(a, b : String) : String
<POP 20bf8-20bfa StackAdj> Δ+8 {[«10""»]|[-4-]}
<Call 0x20bfa 0x103d8> {[«10""»]|[-4-]}
WriteConsoleString(str : String)
<POP 20c00-20c01 StackAdj> Δ+14 ↓ {}
<Blob 0x20c01 [12] @> Δ-12 {[«12""»]}
<POP 20c10-20c12 StackAdj> Δ-8 {[«12""»]|[-8-]}
<Lit 0x20c12 11> {[«12""»]|[-4-]|[$$, Sector =>]}
<MI 20c1e MOVE.L (A6+0x1e),-(A7)> Δ-4 {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x1e)']}
<POP 20c1c-20c1e StackAdj> Δ-8 {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x1e)']|[-8-]}
<Call 0x20c22 0x102e4> {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x1e)']|[-8-]}
Long2String(a : Long) : String
<POP 20c28-20c2a StackAdj> Δ+4 {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x1e)']|[-4-]}
<Const 0x20c2a 0x4.4> Δ-4 {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x1e)']|[-4-]|[##4]}
<Call 0x20c2e 0x102f4> {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x1e)']|[-4-]|[##4]}
RightPad(a : String; b : Long) : String
<POP 20c34-20c36 StackAdj> Δ+8 {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x1e)']}
<Call 0x20c36 0x102d0> {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x1e)']}
StringCat2(a, b : String) : String
<POP 20c3c-20c3e StackAdj> Δ+8 {[«12""»]|[-4-]}
<Call 0x20c3e 0x103d8> {[«12""»]|[-4-]}
WriteConsoleString(str : String)
<POP 20c44-20c46 StackAdj> Δ+16 {}
<Call 0x20c46 0x103dc> {}
WriteConsoleCrLf(void)
<MI 20c4c MOVEQ.L #0x00,D7> {}
<POP 20c4e-20cc4 Naked> Σ0 ↓ →0x20c4e ←0x20c4e
<POP 0x20c4e LimitCheck 0x0 ≤ D7 ≤ 0x8> {}
<MI 20c58 MOVE.L D7,D4> {}
<MI 20c5a MOVEQ.L #0x05,D3> {}
<Call 0x20c5c 0x1028c> {}
?muls_d3_d4
<MI 20c62 LEA.L 0x20646,A0> {}
<Blob 0x20c66 [6] (A0+D4.L)> Δ-6 {[«6»]}
<POP 20c76-20c78 StackAdj> Δ-8 {[«6»]|[-8-]}
<Lit 0x20c78> {[«6»]|[-4-]|[$$…]}
<Pointer.sp 0x20c78 8> Δ-4
<Const 0x20c7c 0x1.2> Δ-2
<Const 0x20c7e 0x5.2> Δ-2
<Call 0x20c82 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20c84-20c86 StackAdj> Δ+8
<POP 20c84-20c86 StackAdj> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]}
<POP 0x20c86 LimitCheck 0x0 ≤ D7 ≤ 0xa> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20c90 MOVE.L D7,D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20c92 ASL.L #0x1,D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20c94 CLR.L D1> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20c96 MOVE.W (A6+D0.L+#0x8),D1> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 20c9a MOVE.L D1,-(A7)> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']}
<Const 0x20c9c 0x4.4> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']|[##4]}
<Call 0x20ca0 0x102e8> {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 20ca6-20ca8 StackAdj> Δ+8 {[«6»]|[-4-]|[$$…]|[-4-]}
<Call 0x20ca8 0x102d0> {[«6»]|[-4-]|[$$…]|[-4-]}
StringCat2(a, b : String) : String
<POP 20cae-20cb0 StackAdj> Δ+8 {[«6»]|[-4-]}
<Call 0x20cb0 0x103d8> {[«6»]|[-4-]}
WriteConsoleString(str : String)
<POP 20cb6-20cba StackAdj> Δ+10 {}
<MI 20cba ADDQ.L #0x1,D7> {}
<MI 20cbc CMPI.L #0x00000008,D7> {}
<MI 20cc2 BLE 0x20c4e> {}
<POP 20cc4-20cd4 Naked> Σ0 ↓ →0x20d00
<Call 0x20cc4 0x103dc> {}
WriteConsoleCrLf(void)
<MI 20cca MOVE.W (A6+0x8),D0> {}
<MI 20cce ANDI.W #0x8000,D0> {}
<MI 20cd2 BEQ 0x20d00> {}
<POP 20cd4-20d00 Naked> Σ0 ↓
<Blob 0x20cd4 [18] @> Δ-18 {[«18""»]}
<POP 20ce6-20ce8 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20ce8 17> {[«18""»]|[$$Special condition]}
<MI 20cf6 LEA.L (A6-0xa),A4> {[«18""»]|[$$Special condition]}
<Call 0x20cf8 0x20ab0> {[«18""»]|[$$Special condition]}
<POP 20cfc-20d00 StackAdj> Δ+22 {}
<POP 20d00-20d0a Naked> Σ0 ↓ →0x20d30 ←0x20cc4
<MI 20d00 MOVE.W (A6+0x8),D0> {}
<MI 20d04 ANDI.W #0x4000,D0> {}
<MI 20d08 BEQ 0x20d30> {}
<POP 20d0a-20d30 Naked> Σ0 ↓
<Blob 0x20d0a [14] @> Δ-14 {[«14""»]}
<POP 20d16-20d18 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20d18 14> {[«14""»]|[$$Transfer error]}
<MI 20d26 LEA.L (A6-0xa),A4> {[«14""»]|[$$Transfer error]}
<Call 0x20d28 0x20ab0> {[«14""»]|[$$Transfer error]}
<POP 20d2c-20d30 StackAdj> Δ+18 {}
<POP 20d30-20d3a Naked> Σ0 ↓ →0x20d60 ←0x20d00
<MI 20d30 MOVE.W (A6+0x8),D0> {}
<MI 20d34 ANDI.W #0x0800,D0> {}
<MI 20d38 BNE 0x20d60> {}
<POP 20d3a-20d60 Naked> Σ0 ↓
<Blob 0x20d3a [22] @> Δ-22 {[«22""»]}
<POP 20d46-20d48 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x20d48 22> {[«22""»]|[$$Drive is not available]}
<MI 20d56 LEA.L (A6-0xa),A4> {[«22""»]|[$$Drive is not available]}
<Call 0x20d58 0x20ab0> {[«22""»]|[$$Drive is not available]}
<POP 20d5c-20d60 StackAdj> Δ+26 {}
<POP 20d60-20d6a Naked> Σ0 ↓ →0x20d90 ←0x20d30
<MI 20d60 MOVE.W (A6+0x8),D0> {}
<MI 20d64 ANDI.W #0x0080,D0> {}
<MI 20d68 BNE 0x20d90> {}
<POP 20d6a-20d90 Naked> Σ0 ↓
<Blob 0x20d6a [18] @> Δ-18 {[«18""»]}
<POP 20d76-20d78 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20d78 18> {[«18""»]|[$$Drive is not ready]}
<MI 20d86 LEA.L (A6-0xa),A4> {[«18""»]|[$$Drive is not ready]}
<Call 0x20d88 0x20ab0> {[«18""»]|[$$Drive is not ready]}
<POP 20d8c-20d90 StackAdj> Δ+22 {}
<POP 20d90-20d9a Naked> Σ0 ↓ →0x20dc6 ←0x20d60
<MI 20d90 MOVE.W (A6+0xa),D0> {}
<MI 20d94 ANDI.W #0x8000,D0> {}
<MI 20d98 BEQ 0x20dc6> {}
<POP 20d9a-20dc6 Naked> Σ0 ↓
<Blob 0x20d9a [10] @> Δ-10 {[«10""»]}
<POP 20dac-20dae StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x20dae 9> {[«10""»]|[$$Data late]}
<MI 20dbc LEA.L (A6-0xa),A4> {[«10""»]|[$$Data late]}
<Call 0x20dbe 0x20ab0> {[«10""»]|[$$Data late]}
<POP 20dc2-20dc6 StackAdj> Δ+14 {}
<POP 20dc6-20dd0 Naked> Σ0 ↓ →0x20dfc ←0x20d90
<MI 20dc6 MOVE.W (A6+0xa),D0> {}
<MI 20dca ANDI.W #0x4000,D0> {}
<MI 20dce BEQ 0x20dfc> {}
<POP 20dd0-20dfc Naked> Σ0 ↓
<Blob 0x20dd0 [18] @> Δ-18 {[«18""»]}
<POP 20de2-20de4 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20de4 17> {[«18""»]|[$$Write check error]}
<MI 20df2 LEA.L (A6-0xa),A4> {[«18""»]|[$$Write check error]}
<Call 0x20df4 0x20ab0> {[«18""»]|[$$Write check error]}
<POP 20df8-20dfc StackAdj> Δ+22 {}
<POP 20dfc-20e06 Naked> Σ0 ↓ →0x20e2c ←0x20dc6
<MI 20dfc MOVE.W (A6+0xa),D0> {}
<MI 20e00 ANDI.W #0x1000,D0> {}
<MI 20e04 BEQ 0x20e2c> {}
<POP 20e06-20e2c Naked> Σ0 ↓
<Blob 0x20e06 [18] @> Δ-18 {[«18""»]}
<POP 20e12-20e14 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20e14 18> {[«18""»]|[$$Non-existent drive]}
<MI 20e22 LEA.L (A6-0xa),A4> {[«18""»]|[$$Non-existent drive]}
<Call 0x20e24 0x20ab0> {[«18""»]|[$$Non-existent drive]}
<POP 20e28-20e2c StackAdj> Δ+22 {}
<POP 20e2c-20e36 Naked> Σ0 ↓ →0x20e60 ←0x20dfc
<MI 20e2c MOVE.W (A6+0xa),D0> {}
<MI 20e30 ANDI.W #0x0800,D0> {}
<MI 20e34 BEQ 0x20e60> {}
<POP 20e36-20e60 Naked> Σ0 ↓
<Blob 0x20e36 [20] @> Δ-20 {[«20""»]}
<POP 20e46-20e48 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x20e48 19> {[«20""»]|[$$Non-existent memory]}
<MI 20e56 LEA.L (A6-0xa),A4> {[«20""»]|[$$Non-existent memory]}
<Call 0x20e58 0x20ab0> {[«20""»]|[$$Non-existent memory]}
<POP 20e5c-20e60 StackAdj> Δ+24 {}
<POP 20e60-20e6a Naked> Σ0 ↓ →0x20e96 ←0x20e2c
<MI 20e60 MOVE.W (A6+0xa),D0> {}
<MI 20e64 ANDI.W #0x0400,D0> {}
<MI 20e68 BEQ 0x20e96> {}
<POP 20e6a-20e96 Naked> Σ0 ↓
<Blob 0x20e6a [14] @> Δ-14 {[«14""»]}
<POP 20e7c-20e7e StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20e7e 13> {[«14""»]|[$$Program error]}
<MI 20e8c LEA.L (A6-0xa),A4> {[«14""»]|[$$Program error]}
<Call 0x20e8e 0x20ab0> {[«14""»]|[$$Program error]}
<POP 20e92-20e96 StackAdj> Δ+18 {}
<POP 20e96-20ea0 Naked> Σ0 ↓ →0x20ec8 ←0x20e60
<MI 20e96 MOVE.W (A6+0xa),D0> {}
<MI 20e9a ANDI.W #0x0200,D0> {}
<MI 20e9e BEQ 0x20ec8> {}
<POP 20ea0-20ec8 Naked> Σ0 ↓
<Blob 0x20ea0 [16] @> Δ-16 {[«16""»]}
<POP 20eb0-20eb2 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x20eb2 15> {[«16""»]|[$$Missed transfer]}
<MI 20ec0 LEA.L (A6-0xa),A4> {[«16""»]|[$$Missed transfer]}
<Call 0x20ec2 0x20ab0> {[«16""»]|[$$Missed transfer]}
<POP 20ec6-20ec8 StackAdj> Δ+20 {}
<POP 20ec8-20ed2 Naked> Σ0 ↓ →0x20efa ←0x20e96
<MI 20ec8 MOVE.W (A6+0xa),D0> {}
<MI 20ecc ANDI.W #0x0040,D0> {}
<MI 20ed0 BNE 0x20efa> {}
<POP 20ed2-20efa Naked> Σ0 ↓
<Blob 0x20ed2 [16] @> Δ-16 {[«16""»]}
<POP 20ee2-20ee4 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x20ee4 15> {[«16""»]|[$$Input not ready]}
<MI 20ef2 LEA.L (A6-0xa),A4> {[«16""»]|[$$Input not ready]}
<Call 0x20ef4 0x20ab0> {[«16""»]|[$$Input not ready]}
<POP 20ef8-20efa StackAdj> Δ+20 {}
<POP 20efa-20f04 Naked> Σ0 ↓ →0x20f30 ←0x20ec8
<MI 20efa MOVE.W (A6+0xa),D0> {}
<MI 20efe ANDI.W #0x0004,D0> {}
<MI 20f02 BEQ 0x20f30> {}
<POP 20f04-20f30 Naked> Σ0 ↓
<Blob 0x20f04 [30] @> Δ-30 {[«30""»]}
<POP 20f16-20f18 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x20f18 29> {[«30""»]|[$$Bus address increment inhibit]}
<MI 20f26 LEA.L (A6-0xa),A4> {[«30""»]|[$$Bus address increment inhibit]}
<Call 0x20f28 0x20ab0> {[«30""»]|[$$Bus address increment inhibit]}
<POP 20f2c-20f30 StackAdj> Δ+34 {}
<POP 20f30-20f3a Naked> Σ0 ↓ →0x20f66 ←0x20efa
<MI 20f30 MOVE.W (A6+0xc),D0> {}
<MI 20f34 ANDI.W #0x2000,D0> {}
<MI 20f38 BEQ 0x20f66> {}
<POP 20f3a-20f66 Naked> Σ0 ↓
<Blob 0x20f3a [24] @> Δ-24 {[«24""»]}
<POP 20f4c-20f4e StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x20f4e 23> {[«24""»]|[$$Positioning in progress]}
<MI 20f5c LEA.L (A6-0xa),A4> {[«24""»]|[$$Positioning in progress]}
<Call 0x20f5e 0x20ab0> {[«24""»]|[$$Positioning in progress]}
<POP 20f62-20f66 StackAdj> Δ+28 {}
<POP 20f66-20f70 Naked> Σ0 ↓ →0x20f96 ←0x20f30
<MI 20f66 MOVE.W (A6+0xc),D0> {}
<MI 20f6a ANDI.W #0x1000,D0> {}
<MI 20f6e BNE 0x20f96> {}
<POP 20f70-20f96 Naked> Σ0 ↓
<Blob 0x20f70 [18] @> Δ-18 {[«18""»]}
<POP 20f7c-20f7e StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20f7e 18> {[«18""»]|[$$Medium not on-line]}
<MI 20f8c LEA.L (A6-0xa),A4> {[«18""»]|[$$Medium not on-line]}
<Call 0x20f8e 0x20ab0> {[«18""»]|[$$Medium not on-line]}
<POP 20f92-20f96 StackAdj> Δ+22 {}
<POP 20f96-20fa0 Naked> Σ0 ↓ →0x20fc4 ←0x20f66
<MI 20f96 MOVE.W (A6+0xc),D0> {}
<MI 20f9a ANDI.W #0x0800,D0> {}
<MI 20f9e BEQ 0x20fc4> {}
<POP 20fa0-20fc4 Naked> Σ0 ↓
<Blob 0x20fa0 [4] @> Δ-4 {[«4""»]}
<Blob 0x20fa4 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20fa8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 20fac-20fae StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x20fae 12> {[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
<MI 20fbc LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
<Call 0x20fbe 0x20ab0> {[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
<POP 20fc2-20fc4 StackAdj> Δ+16 {}
<POP 20fc4-20fce Naked> Σ0 ↓ →0x20ff4 ←0x20f96
<MI 20fc4 MOVE.W (A6+0xc),D0> {}
<MI 20fc8 ANDI.W #0x0400,D0> {}
<MI 20fcc BEQ 0x20ff4> {}
<POP 20fce-20ff4 Naked> Σ0 ↓
<Blob 0x20fce [22] @> Δ-22 {[«22""»]}
<POP 20fda-20fdc StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x20fdc 22> {[«22""»]|[$$Last sector transfered]}
<MI 20fea LEA.L (A6-0xa),A4> {[«22""»]|[$$Last sector transfered]}
<Call 0x20fec 0x20ab0> {[«22""»]|[$$Last sector transfered]}
<POP 20ff0-20ff4 StackAdj> Δ+26 {}
<POP 20ff4-20ffe Naked> Σ0 ↓ →0x2102a ←0x20fc4
<MI 20ff4 MOVE.W (A6+0xc),D0> {}
<MI 20ff8 ANDI.W #0x0100,D0> {}
<MI 20ffc BNE 0x2102a> {}
<POP 20ffe-2102a Naked> Σ0 ↓
<Blob 0x20ffe [18] @> Δ-18 {[«18""»]}
<POP 21010-21012 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21012 17> {[«18""»]|[$$Drive not present]}
<MI 21020 LEA.L (A6-0xa),A4> {[«18""»]|[$$Drive not present]}
<Call 0x21022 0x20ab0> {[«18""»]|[$$Drive not present]}
<POP 21026-2102a StackAdj> Δ+22 {}
<POP 2102a-21034 Naked> Σ0 ↓ →0x2105c ←0x20ff4
<MI 2102a MOVE.W (A6+0xc),D0> {}
<MI 2102e ANDI.W #0x0080,D0> {}
<MI 21032 BNE 0x2105c> {}
<POP 21034-2105c Naked> Σ0 ↓
<Blob 0x21034 [16] @> Δ-16 {[«16""»]}
<POP 21044-21046 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x21046 15> {[«16""»]|[$$Drive not ready]}
<MI 21054 LEA.L (A6-0xa),A4> {[«16""»]|[$$Drive not ready]}
<Call 0x21056 0x20ab0> {[«16""»]|[$$Drive not ready]}
<POP 2105a-2105c StackAdj> Δ+20 {}
<POP 2105c-21066 Naked> Σ0 ↓ →0x2108c ←0x2102a
<MI 2105c MOVE.W (A6+0xc),D0> {}
<MI 21060 ANDI.W #0x0040,D0> {}
<MI 21064 BNE 0x2108c> {}
<POP 21066-2108c Naked> Σ0 ↓
<Blob 0x21066 [4] @> Δ-4 {[«4""»]}
<Blob 0x2106a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2106e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21072 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21076-21078 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21078 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<MI 21084 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<Call 0x21086 0x20ab0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<POP 2108a-2108c StackAdj> Δ+20 {}
<POP 2108c-21096 Naked> Σ0 ↓ →0x210bc ←0x2105c
<MI 2108c MOVE.W (A6+0xe),D0> {}
<MI 21090 ANDI.W #0x8000,D0> {}
<MI 21094 BEQ 0x210bc> {}
<POP 21096-210bc Naked> Σ0 ↓
<Blob 0x21096 [4] @> Δ-4 {[«4""»]}
<Blob 0x2109a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2109e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x210a2 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 210a6-210a8 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x210a8 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
<MI 210b4 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
<Call 0x210b6 0x20ab0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
<POP 210ba-210bc StackAdj> Δ+20 {}
<POP 210bc-210c6 Naked> Σ0 ↓ →0x210ec ←0x2108c
<MI 210bc MOVE.W (A6+0xe),D0> {}
<MI 210c0 ANDI.W #0x4000,D0> {}
<MI 210c4 BEQ 0x210ec> {}
<POP 210c6-210ec Naked> Σ0 ↓
<Blob 0x210c6 [2] @> Δ-2 {[«2""»]}
<Blob 0x210ca [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x210ce [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 210d2-210d4 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x210d4 6> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<MI 210e2 LEA.L (A6-0xa),A4> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<Call 0x210e4 0x20ab0> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<POP 210e8-210ec StackAdj> Δ+10 {}
<POP 210ec-210f6 Naked> Σ0 ↓ →0x2111a ←0x210bc
<MI 210ec MOVE.W (A6+0xe),D0> {}
<MI 210f0 ANDI.W #0x2000,D0> {}
<MI 210f4 BEQ 0x2111a> {}
<POP 210f6-2111a Naked> Σ0 ↓
<Blob 0x210f6 [20] @> Δ-20 {[«20""»]}
<POP 21102-21104 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21104 20> {[«20""»]|[$$Operation incomplete]}
<MI 21110 LEA.L (A6-0xa),A4> {[«20""»]|[$$Operation incomplete]}
<Call 0x21112 0x20ab0> {[«20""»]|[$$Operation incomplete]}
<POP 21116-2111a StackAdj> Δ+24 {}
<POP 2111a-21124 Naked> Σ0 ↓ →0x2114a ←0x210ec
<MI 2111a MOVE.W (A6+0xe),D0> {}
<MI 2111e ANDI.W #0x1000,D0> {}
<MI 21122 BEQ 0x2114a> {}
<POP 21124-2114a Naked> Σ0 ↓
<Blob 0x21124 [18] @> Δ-18 {[«18""»]}
<POP 21130-21132 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21132 18> {[«18""»]|[$$Drive timing error]}
<MI 21140 LEA.L (A6-0xa),A4> {[«18""»]|[$$Drive timing error]}
<Call 0x21142 0x20ab0> {[«18""»]|[$$Drive timing error]}
<POP 21146-2114a StackAdj> Δ+22 {}
<POP 2114a-21154 Naked> Σ0 ↓ →0x2117a ←0x2111a
<MI 2114a MOVE.W (A6+0xe),D0> {}
<MI 2114e ANDI.W #0x0800,D0> {}
<MI 21152 BEQ 0x2117a> {}
<POP 21154-2117a Naked> Σ0 ↓
<Blob 0x21154 [4] @> Δ-4 {[«4""»]}
<Blob 0x21158 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2115c [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21160 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21164-21166 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21166 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<MI 21172 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<Call 0x21174 0x20ab0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<POP 21178-2117a StackAdj> Δ+20 {}
<POP 2117a-21184 Naked> Σ0 ↓ →0x211b0 ←0x2114a
<MI 2117a MOVE.W (A6+0xe),D0> {}
<MI 2117e ANDI.W #0x0400,D0> {}
<MI 21182 BEQ 0x211b0> {}
<POP 21184-211b0 Naked> Σ0 ↓
<Blob 0x21184 [22] @> Δ-22 {[«22""»]}
<POP 21196-21198 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x21198 21> {[«22""»]|[$$Invalid address error]}
<MI 211a6 LEA.L (A6-0xa),A4> {[«22""»]|[$$Invalid address error]}
<Call 0x211a8 0x20ab0> {[«22""»]|[$$Invalid address error]}
<POP 211ac-211b0 StackAdj> Δ+26 {}
<POP 211b0-211ba Naked> Σ0 ↓ →0x211e0 ←0x2117a
<MI 211b0 MOVE.W (A6+0xe),D0> {}
<MI 211b4 ANDI.W #0x0200,D0> {}
<MI 211b8 BEQ 0x211e0> {}
<POP 211ba-211e0 Naked> Σ0 ↓
<Blob 0x211ba [22] @> Δ-22 {[«22""»]}
<POP 211c6-211c8 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x211c8 22> {[«22""»]|[$$Address overflow error]}
<MI 211d6 LEA.L (A6-0xa),A4> {[«22""»]|[$$Address overflow error]}
<Call 0x211d8 0x20ab0> {[«22""»]|[$$Address overflow error]}
<POP 211dc-211e0 StackAdj> Δ+26 {}
<POP 211e0-211ea Naked> Σ0 ↓ →0x21210 ←0x211b0
<MI 211e0 MOVE.W (A6+0xe),D0> {}
<MI 211e4 ANDI.W #0x0100,D0> {}
<MI 211e8 BEQ 0x21210> {}
<POP 211ea-21210 Naked> Σ0 ↓
<Blob 0x211ea [4] @> Δ-4 {[«4""»]}
<Blob 0x211ee [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x211f2 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x211f6 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 211fa-211fc StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x211fc 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<MI 21208 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<Call 0x2120a 0x20ab0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<POP 2120e-21210 StackAdj> Δ+20 {}
<POP 21210-2121a Naked> Σ0 ↓ →0x2123e ←0x211e0
<MI 21210 MOVE.W (A6+0xe),D0> {}
<MI 21214 ANDI.W #0x0080,D0> {}
<MI 21218 BEQ 0x2123e> {}
<POP 2121a-2123e Naked> Σ0 ↓
<Blob 0x2121a [20] @> Δ-20 {[«20""»]}
<POP 21226-21228 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21228 20> {[«20""»]|[$$Header compare error]}
<MI 21234 LEA.L (A6-0xa),A4> {[«20""»]|[$$Header compare error]}
<Call 0x21236 0x20ab0> {[«20""»]|[$$Header compare error]}
<POP 2123a-2123e StackAdj> Δ+24 {}
<POP 2123e-21248 Naked> Σ0 ↓ →0x2126e ←0x21210
<MI 2123e MOVE.W (A6+0xe),D0> {}
<MI 21242 ANDI.W #0x0040,D0> {}
<MI 21246 BEQ 0x2126e> {}
<POP 21248-2126e Naked> Σ0 ↓
<Blob 0x21248 [14] @> Δ-14 {[«14""»]}
<POP 21254-21256 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21256 14> {[«14""»]|[$$Hard ECC error]}
<MI 21264 LEA.L (A6-0xa),A4> {[«14""»]|[$$Hard ECC error]}
<Call 0x21266 0x20ab0> {[«14""»]|[$$Hard ECC error]}
<POP 2126a-2126e StackAdj> Δ+18 {}
<POP 2126e-21276 Naked> Σ0 ↓ →0x2129a ←0x2123e
<MI 2126e MOVE.W (A6+0xe),D0> {}
<MI 21272 AND.W #0x10,D0> {}
<MI 21274 BEQ 0x2129a> {}
<POP 21276-2129a Naked> Σ0 ↓
<Blob 0x21276 [4] @> Δ-4 {[«4""»]}
<Blob 0x2127a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2127e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 21282-21284 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21284 12> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<MI 21292 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<Call 0x21294 0x20ab0> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<POP 21298-2129a StackAdj> Δ+16 {}
<POP 2129a-212a4 Naked> Σ0 ↓ →0x212d0 ←0x2126e
<MI 2129a MOVE.W (A6+0xe),D0> {}
<MI 2129e ANDI.W #0x0004,D0> {}
<MI 212a2 BEQ 0x212d0> {}
<POP 212a4-212d0 Naked> Σ0 ↓
<Blob 0x212a4 [30] @> Δ-30 {[«30""»]}
<POP 212b6-212b8 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x212b8 29> {[«30""»]|[$$Register modification refused]}
<MI 212c6 LEA.L (A6-0xa),A4> {[«30""»]|[$$Register modification refused]}
<Call 0x212c8 0x20ab0> {[«30""»]|[$$Register modification refused]}
<POP 212cc-212d0 StackAdj> Δ+34 {}
<POP 212d0-212d8 Naked> Σ0 ↓ →0x212fe ←0x2129a
<MI 212d0 MOVE.W (A6+0xe),D0> {}
<MI 212d4 AND.W #0x01,D0> {}
<MI 212d6 BEQ 0x212fe> {}
<POP 212d8-212fe Naked> Σ0 ↓
<Blob 0x212d8 [4] @> Δ-4 {[«4""»]}
<Blob 0x212dc [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x212e0 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x212e4 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 212e8-212ea StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x212ea 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<MI 212f6 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<Call 0x212f8 0x20ab0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<POP 212fc-212fe StackAdj> Δ+20 {}
<POP 212fe-21308 Naked> Σ0 ↓ →0x21334 ←0x212d0
<MI 212fe MOVE.W (A6+0x10),D0> {}
<MI 21302 ANDI.W #0x8000,D0> {}
<MI 21306 BEQ 0x21334> {}
<POP 21308-21334 Naked> Σ0 ↓
<Blob 0x21308 [10] @> Δ-10 {[«10""»]}
<POP 2131a-2131c StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x2131c 9> {[«10""»]|[$$Bad block]}
<MI 2132a LEA.L (A6-0xa),A4> {[«10""»]|[$$Bad block]}
<Call 0x2132c 0x20ab0> {[«10""»]|[$$Bad block]}
<POP 21330-21334 StackAdj> Δ+14 {}
<POP 21334-2133e Naked> Σ0 ↓ →0x21366 ←0x212fe
<MI 21334 MOVE.W (A6+0x10),D0> {}
<MI 21338 ANDI.W #0x4000,D0> {}
<MI 2133c BEQ 0x21366> {}
<POP 2133e-21366 Naked> Σ0 ↓
<Blob 0x2133e [16] @> Δ-16 {[«16""»]}
<POP 2134e-21350 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x21350 15> {[«16""»]|[$$Seek incomplete]}
<MI 2135e LEA.L (A6-0xa),A4> {[«16""»]|[$$Seek incomplete]}
<Call 0x21360 0x20ab0> {[«16""»]|[$$Seek incomplete]}
<POP 21364-21366 StackAdj> Δ+20 {}
<POP 21366-21370 Naked> Σ0 ↓ →0x2139c ←0x21334
<MI 21366 MOVE.W (A6+0x10),D0> {}
<MI 2136a ANDI.W #0x1000,D0> {}
<MI 2136e BEQ 0x2139c> {}
<POP 21370-2139c Naked> Σ0 ↓
<Blob 0x21370 [62] @> Δ-62 {[«62""»]}
<POP 21382-21384 StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x21384 61> {[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
<MI 21392 LEA.L (A6-0xa),A4> {[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
<Call 0x21394 0x20ab0> {[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
<POP 21398-2139c StackAdj> Δ+66 {}
<POP 2139c-213a6 Naked> Σ0 ↓ →0x213ca ←0x21366
<MI 2139c MOVE.W (A6+0x10),D0> {}
<MI 213a0 ANDI.W #0x0080,D0> {}
<MI 213a4 BEQ 0x213ca> {}
<POP 213a6-213ca Naked> Σ0 ↓
<Blob 0x213a6 [4] @> Δ-4 {[«4""»]}
<Blob 0x213aa [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x213ae [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 213b2-213b4 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x213b4 12> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<MI 213c2 LEA.L (A6-0xa),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<Call 0x213c4 0x20ab0> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<POP 213c8-213ca StackAdj> Δ+16 {}
<POP 213ca-213d6 Naked> Σ0 ↓ ←0x2139c
<MI 213ca MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x213ce 0x103e0> {[4, '(A6-0x6)']}
WriteConsoleStringCrLf(str : String)
<POP 213d4-213d6 StackAdj> Δ+4 {}
<POP 213d6-213de Epilogue> Σ0
@ 213de
<LVAR 0x008 4(r)>
<LVAR -0x008 2(w)>
<LVAR -0x00e 2(w)>
<LVAR -0x012 @>
<LVAR -0x014 @ 1(r)>
<POP 213de-21468 Body>
<POP 213de-213f4 Prologue> Σ0 ↓
<POP 213f4-21430 Naked> Σ0 ↓ →0x21460
<MI 213f4 MOVE.W #0x2,(A6-0xe)> {}
<MI 213fa MOVE.W 0x21ca0,D0> {}
<MI 21400 ASL.W #0x8,D0> {}
<MI 21402 ADDQ.W #0x1,D0> {}
<MI 21404 MOVE.W D0,(A6-0x8)> {}
<Pointer.fp 0x21408 <LVAR -0x012 @>> Δ-4 {[@@-18]}
<MI 2140c MOVEA.L (A6+0x8),A0> {[@@-18]}
<MI 21410 MOVE.L A0,-(A7)> Δ-4 {[@@-18]|[4, 'A0']}
<MI 21412 CLR.W -(A7)> Δ-2 {[@@-18]|[4, 'A0']|[#0]}
<Call 0x21414 0x10204> {[@@-18]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 2141a-2141c StackAdj> Δ+8 {[-2-]}
<MI 2141c CLR.W (A7)> {[-2-]}
<Pointer.fp 0x2141e <LVAR -0x014 @ 1(r)>> Δ-4 {[-2-]|[@@-20]}
<Call 0x21422 0x10206> {[-2-]|[@@-20]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21428-2142a StackAdj> Δ+6 {}
<MI 2142a TST.B (A6-0x14)> {}
<MI 2142e BNE 0x21460> {}
<POP 21430-21460 Naked> Σ0 ↓
<Blob 0x21430 [38] @> Δ-38 {[«38""»]}
<POP 21442-21444 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x21444 37> {[«38""»]|[$$Error while reading disk error status]}
<Call 0x21458 0x20674> {[«38""»]|[$$Error while reading disk error status]}
<POP 2145c-21460 StackAdj> Δ+42 {}
<POP 21460-21468 Epilogue> Σ0 ←0x213f4
@ 21468
<LVAR 0x028 4(r)>
<LVAR 0x024 4(r)>
<LVAR 0x020 4(r)>
<LVAR 0x008 1(r)>
<POP 21468-2157e Body>
<POP 21468-2147e Prologue> Σ0 ↓
<POP 2147e-2148c RegCacheLoad> Σ0 ↓
<POP 2148c-21498 Naked> Σ0 ↓ →0x214ee
<MI 2148c MOVEQ.L #0x00,D7> {}
<MI 2148e MOVEQ.L #0x00,D6> {}
<MI 21490 MOVE.L (A6+0x28),D0> {}
<MI 21492 OR.L (A6+0x24),D0> {}
<MI 21494 OR.L (A6+0x20),D0> {}
<MI 21496 BEQ 0x214ee> {}
<POP 21498-214be Naked> Σ0 ↓ →0x214e0 ←0x214e6
<POP 0x21498 LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {}
<MI 214a2 MOVE.L D7,D0> {}
<MI 214a4 ASL.L #0x2,D0> {}
<MI 214a6 LEA.L 0x21c92,A0> {}
<MI 214ac LEA.L (A0+D0.L),A0> {}
<MI 214b0 CLR.L D0> {}
<MI 214b2 MOVE.W (A0+0x41c),D0> {}
<MI 214b6 LSL.W #0x2,D0> {}
<MI 214b8 LSR.W #0x2,D0> {}
<MI 214ba CMP.L (A6+0x28),D0> {}
<MI 214bc BNE 0x214e0> {}
<POP 214be-214c8 Naked> Σ0 ↓ →0x214e0
<MI 214be CLR.L D0> {}
<MI 214c0 MOVE.B (A0+0x41e),D0> {}
<MI 214c4 CMP.L (A6+0x24),D0> {}
<MI 214c6 BNE 0x214e0> {}
<POP 214c8-214d2 Naked> Σ0 ↓ →0x214de
<MI 214c8 CLR.L D0> {}
<MI 214ca MOVE.B (A0+0x41f),D0> {}
<MI 214ce CMP.L (A6+0x20),D0> {}
<MI 214d0 BEQ 0x214de> {}
<POP 214d2-214de Naked> Σ0 ↓ →0x214e0
<MI 214d2 CLR.L D0> {}
<MI 214d4 MOVE.B (A0+0x41f),D0> {}
<MI 214d8 CMPI.W #0x00ff,D0> {}
<MI 214dc BNE 0x214e0> {}
<POP 214de-214e0 Naked> Σ0 ↓ ←0x214c8
<MI 214de MOVEQ.L #0x01,D6> {}
<POP 214e0-214e6 Naked> Σ0 ↓ →0x214ee ←0x21498 ←0x214be ←0x214d2
<MI 214e0 ADDQ.L #0x1,D7> {}
<MI 214e2 TST.B D6> {}
<MI 214e4 BNE 0x214ee> {}
<POP 214e6-214ee Naked> Σ0 ↓ →0x21498
<MI 214e6 CMPI.L #0x000007ff,D7> {}
<MI 214ec BLE 0x21498> {}
<POP 214ee-214f2 Naked> Σ0 ↓ →0x21538 ←0x2148c ←0x214e0
<MI 214ee TST.B D6> {}
<MI 214f0 BEQ 0x21538> {}
<POP 214f2-214f8 Naked> Σ0 ↓ →0x21536
<MI 214f2 TST.B (A6+0x8)> {}
<MI 214f6 BEQ 0x21536> {}
<POP 214f8-21536 Naked> Σ0 ↓
<Blob 0x214f8 [34] @> Δ-34 {[«34""»]}
<POP 2150a-2150c StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x2150c 33> {[«34""»]|[$$Previously detected bad block at_]}
<POP 2151c-2151e StackAdj> Δ-4 {[«34""»]|[$$Previously detected bad block at_]|[-4-]}
<MI 2151e MOVE.L (A6+0x28),(A7)> {[«34""»]|[$$Previously detected bad block at_]|[4, '(A6+0x28)']}
<MI 21520 MOVE.L (A6+0x24),-(A7)> Δ-4 {[«34""»]|[$$Previously detected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']}
<MI 21522 MOVE.L (A6+0x20),-(A7)> Δ-4 {[«34""»]|[$$Previously detected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']}
<Blob 0x21524 [22] (A6+0x20)> Δ-22 {[«34""»]|[$$Previously detected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']|[«22»]}
<Call 0x2152e 0x20b40> {[«34""»]|[$$Previously detected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']|[«22»]}
<POP 21532-21536 StackAdj> Δ+72 {}
<POP 21536-21538 Naked> Σ0 →0x21576 ←0x214f2
<MI 21536 BRA 0x21576> {}
<POP 21538-21576 Naked> Σ0 ↓ ←0x214ee
<Blob 0x21538 [36] @> Δ-36 {[«36""»]}
<POP 2154a-2154c StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x2154c 35> {[«36""»]|[$$Previously undetected bad block at_]}
<POP 2155c-2155e StackAdj> Δ-4 {[«36""»]|[$$Previously undetected bad block at_]|[-4-]}
<MI 2155e MOVE.L (A6+0x28),(A7)> {[«36""»]|[$$Previously undetected bad block at_]|[4, '(A6+0x28)']}
<MI 21560 MOVE.L (A6+0x24),-(A7)> Δ-4 {[«36""»]|[$$Previously undetected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']}
<MI 21562 MOVE.L (A6+0x20),-(A7)> Δ-4 {[«36""»]|[$$Previously undetected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']}
<Blob 0x21564 [22] (A6+0x20)> Δ-22 {[«36""»]|[$$Previously undetected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']|[«22»]}
<Call 0x2156e 0x20b40> {[«36""»]|[$$Previously undetected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']|[«22»]}
<POP 21572-21576 StackAdj> Δ+74 {}
<POP 21576-2157e Epilogue> Σ0 ←0x21536
@ 2157e
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2157e-2164c Body>
<POP 2157e-21594 Prologue> Σ0 ↓
<POP 21594-215a2 RegCacheLoad> Σ0 ↓
<POP 215a2-215be Naked> Σ0 Δ-12 ↓ →0x215e2
<MI 215a2 MOVEA.L (A6+0x8),A0> {}
<MI 215a6 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 215a8 CLR.B (A0)> {[4, 'A0']}
<MI 215aa MOVEA.L (A6+0x10),A1> {[4, 'A0']}
<MI 215ae MOVE.L A1,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']}
<MI 215b0 CLR.L D0> {[4, 'A0']|[4, 'A1']}
<MI 215b2 MOVE.B 0x21ca5,D0> {[4, 'A0']|[4, 'A1']}
<MI 215b8 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D0']}
<MI 215ba CMP.L (A1),D0> {[4, 'A0']|[4, 'A1']|[4, 'D0']}
<MI 215bc BHI 0x215e2> {[4, 'A0']|[4, 'A1']|[4, 'D0']}
<POP 215be-215d4 Naked> Σ-12 ↓ →0x215e2
<MI 215be MOVEA.L (A6+0x14),A0> {[-12-]}
<MI 215c2 MOVE.L (A1),D4> {[-12-]}
<MI 215c4 MOVE.L D0,D3> {[-12-]}
<Call 0x215c6 0x10294> {[-12-]}
?divs_d3_d4
<MI 215c8 ADD.L D4,(A0)> {[-12-]}
<MI 215ca MOVE.L D3,(A1)> {[-12-]}
<MI 215cc CLR.L D0> {[-12-]}
<MI 215ce MOVE.B 0x21ca4,D0> {[-12-]}
<MI 215d0 CMP.L (A0),D0> {[-12-]}
<MI 215d2 BHI 0x215e2> {[-12-]}
<POP 215d4-215e2 Naked> Σ-12 ↓
<MI 215d4 MOVEA.L (A6+0x18),A1> {[-12-]}
<MI 215d8 MOVE.L (A0),D4> {[-12-]}
<MI 215da MOVE.L D0,D3> {[-12-]}
<Call 0x215dc 0x10294> {[-12-]}
?divs_d3_d4
<MI 215de ADD.L D4,(A1)> {[-12-]}
<MI 215e0 MOVE.L D3,(A0)> {[-12-]}
<POP 215e2-215f6 Naked> Σ-12 ↓ →0x215fe ←0x215a2 ←0x215be
<MI 215e2 MOVEA.L (A6+0x18),A0> {[-12-]}
<MI 215e6 MOVE.L (A0),D0> {[-12-]}
<MI 215e8 ADDQ.L #0x1,D0> {[-12-]}
<MI 215ea CLR.L D1> {[-12-]}
<MI 215ec MOVE.W 0x21ca2,D1> {[-12-]}
<MI 215f2 CMP.L D1,D0> {[-12-]}
<MI 215f4 BCC 0x215fe> {[-12-]}
<POP 215f6-215fe Naked> Σ-12 →0x21640 ←0x21638
<MI 215f6 MOVEA.L (A6+0xc),A0> {[-12-]}
<MI 215fa MOVE.L #0x08,(A0)> {[-12-]}
<MI 215fc BRA 0x21640> {[-12-]}
<POP 215fe-21602 Naked> Σ-12 ↓ →0x2160c ←0x215e2
<MI 215fe CMP.L (A0),D1> {[-12-]}
<MI 21600 BNE 0x2160c> {[-12-]}
<POP 21602-2160c Naked> Σ-12 →0x21640
<MI 21602 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 21606 MOVE.B #0x01,(A0)> {[-12-]}
<MI 2160a BRA 0x21640> {[-12-]}
<POP 2160c-21638 Naked> Σ-12 ↓ →0x2163a ←0x215fe
<MI 2160c MOVEA.L (A6+0x14),A0> {[-12-]}
<MI 21610 CLR.L D0> {[-12-]}
<MI 21612 MOVE.B 0x21ca4,D0> {[-12-]}
<MI 21614 SUB.L (A0),D0> {[-12-]}
<MI 21616 SUBQ.L #0x1,D0> {[-12-]}
<MI 21618 MOVE.L D0,D4> {[-12-]}
<MI 2161a MOVE.L (A7),D3> {[-12-]}
<Call 0x2161c 0x1028c> {[-12-]}
?muls_d3_d4
<MI 21622 MOVE.L (A7),D0> {[-12-]}
<MI 21624 MOVEA.L (A7+0x4),A0> {[-12-]}
<MI 21628 SUB.L (A0),D0> {[-12-]}
<MI 2162a ADD.L D4,D0> {[-12-]}
<MI 2162c MOVE.L D0,D4> {[-12-]}
<MI 2162e MOVEQ.L #0x02,D3> {[-12-]}
<Call 0x21630 0x10294> {[-12-]}
?divs_d3_d4
<MI 21632 MOVE.L D4,D7> {[-12-]}
<MI 21634 CMP.L #0x08,D7> {[-12-]}
<MI 21636 BLT 0x2163a> {[-12-]}
<POP 21638-2163a Naked> Σ-12 →0x215f6
<MI 21638 BRA 0x215f6> {[-12-]}
<POP 2163a-21640 Naked> Σ-12 ↓ ←0x2160c
<MI 2163a MOVEA.L (A6+0xc),A0> {[-12-]}
<MI 2163e MOVE.L D7,(A0)> {[-12-]}
<POP 21640-21644 Naked> Σ-12 Δ+12 ↓ ←0x215f6 ←0x21602
<POP 21640-21644 StackAdj> Δ+12 {}
<POP 21644-2164c Epilogue> Σ0
@ 2164c
<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 2164c-21848 Body>
<POP 2164c-21662 Prologue> Σ0 ↓
<POP 21662-21676 RegCacheLoad> Σ0 ↓
<POP 21676-216a6 Naked> Σ0 ↓
<MI 21676 MOVEQ.L #-0x01,D7> {}
<MI 21678 CLR.L (A6-0x42)> {}
<MI 2167a CLR.L (A6-0x3e)> {}
<MI 2167c CLR.L (A6-0x3a)> {}
<MI 2167e MOVE.L #0x8,(A6-0xa)> {}
<MI 21686 CLR.W (A6-0x32)> {}
<MI 2168a MOVE.W #0x2,(A6-0x30)> {}
<MI 21690 CLR.W (A6-0x2e)> {}
<MI 21694 CLR.W (A6-0x2c)> {}
<MI 21698 MOVE.W 0x21ca0,D0> {}
<MI 2169e ASL.W #0x8,D0> {}
<MI 216a0 ADDQ.W #0x2,D0> {}
<MI 216a2 MOVE.W D0,(A6-0x2a)> {}
<POP 216a6-2170a Naked> Σ0 ↓ →0x2177e ←0x21838
<MI 216a6 MOVE.L (A6-0xa),D0> {}
<MI 216aa ASL.L #0x8,D0> {}
<POP 0x216ac LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 216b2 MOVE.W D0,(A6-0x34)> {}
<MI 216b6 MOVE.L (A6-0x42),D0> {}
<POP 0x216b8 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 216be MOVE.W D0,(A6-0x28)> {}
<MI 216c2 MOVE.L (A6-0x3e),D0> {}
<MI 216c4 ASL.L #0x8,D0> {}
<MI 216c6 ADD.L (A6-0x3a),D0> {}
<POP 0x216c8 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 216ce MOVE.W D0,(A6-0x26)> {}
<Pointer.fp 0x216d2 <LVAR -0x034 @ 2(w)>> Δ-4 {[@@-52]}
<MI 216d6 LEA.L 0x240ae,A0> {[@@-52]}
<MI 216dc MOVE.L A0,-(A7)> Δ-4 {[@@-52]|[4, 'A0']}
<MI 216de CLR.W -(A7)> Δ-2 {[@@-52]|[4, 'A0']|[#0]}
<Call 0x216e0 0x10204> {[@@-52]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 216e6-216e8 StackAdj> Δ+10 {}
<MI 216e8 MOVE.L (A6-0xa),D0> {}
<MI 216ec ASL.L #0x1,D0> {}
<MI 216ee ADD.L D0,(A6-0x3a)> {}
<Pointer.fp 0x216f0 <LVAR -0x042 @ 4(rw)>> Δ-4 {[@@-66]}
<Pointer.fp 0x216f2 <LVAR -0x03e @ 4(rw)>> Δ-4 {[@@-66]|[@@-62]}
<Pointer.fp 0x216f4 <LVAR -0x03a @ 4(rw)>> Δ-4 {[@@-66]|[@@-62]|[@@-58]}
<Pointer.fp 0x216f6 <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-66]|[@@-62]|[@@-58]|[@@-10]}
<Pointer.fp 0x216fa <LVAR -0x024 @ 1(r)>> Δ-4 {[@@-66]|[@@-62]|[@@-58]|[@@-10]|[@@-36]}
<Call 0x216fe 0x2157e> {[@@-66]|[@@-62]|[@@-58]|[@@-10]|[@@-36]}
<POP 21702-21706 StackAdj> Δ+20 {}
<MI 21706 CMP.L (A6-0x42),D7> {}
<MI 21708 BEQ 0x2177e> {}
<POP 2170a-2177e Naked> Σ0 ↓
<MI 2170a MOVE.L (A6-0x42),D7> {}
<Blob 0x2170c [10] @> Δ-10 {[«10""»]}
<POP 2171c-2171e StackAdj> Δ-8 {[«10""»]|[-8-]}
<Lit 0x2171e 9> {[«10""»]|[-4-]|[$$Cylinder_]}
<MI 21730 MOVE.L (A6-0x42),(A7)> {[«10""»]|[-4-]|[4, '(A6-0x42)']}
<POP 2172a-21730 StackAdj> Δ-8 {[«10""»]|[-4-]|[4, '(A6-0x42)']|[-8-]}
<Call 0x21732 0x102e4> {[«10""»]|[-4-]|[4, '(A6-0x42)']|[-8-]}
Long2String(a : Long) : String
<POP 21738-2173a StackAdj> Δ+4 {[«10""»]|[-4-]|[4, '(A6-0x42)']|[-4-]}
<Call 0x2173a 0x102d0> {[«10""»]|[-4-]|[4, '(A6-0x42)']|[-4-]}
StringCat2(a, b : String) : String
<POP 21740-21742 StackAdj> Δ+8 {[«10""»]|[-4-]}
<MI 21742 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«10""»]}
<POP 21746-21748 StackAdj> Δ+6 {[-4-]}
<MI 21748 MOVE.L (A6-0x6),(A7)> {[4, '(A6-0x6)']}
<Const 0x2174c 0xd.2> Δ-2 {[4, '(A6-0x6)']|[#13]}
<Call 0x21750 0x102c0> {[4, '(A6-0x6)']|[#13]}
AppendChar(MOD b : String; a : char)
<Call 0x21756 0x103f8> {[4, '(A6-0x6)']|[#13]}
GetConsoleConfig() : Long
<MI 2175c MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x2175e LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 21764 MOVE.W D0,(A7)> {[2, 'D0']}
<MI 21766 MOVE.L (A6-0x6),-(A7)> Δ-4 {[2, 'D0']|[4, '(A6-0x6)']}
<Call 0x2176a 0x1020a> {[2, 'D0']|[4, '(A6-0x6)']}
KC05_PortWriteString(port : Word ; str : String)
<POP 21770-21772 StackAdj> Δ+6 {}
<Pointer.fp 0x21772 <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x21776 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 2177c-2177e StackAdj> Δ+4 {}
<POP 2177e-21794 Naked> Σ0 ↓ →0x21838 ←0x216a6
<MI 2177e CLR.W -(A7)> Δ-2 {[#0]}
<Pointer.fp 0x21780 <LVAR -0x00c @ 1(r)>> Δ-4 {[#0]|[@@-12]}
<Call 0x21784 0x10206> {[#0]|[@@-12]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 2178a-2178c StackAdj> Δ+6 {}
<MI 2178c TST.B (A6-0xc)> {}
<MI 21790 BNE 0x21838> {}
<POP 21794-217c6 Naked> Σ0 ↓ →0x217cc
<Pointer.fp 0x21794 <LVAR -0x022 @>> Δ-4 {[@@-34]}
<Call 0x21798 0x213de> {[@@-34]}
<POP 2179c-2179e StackAdj> Δ+4 {}
<MI 2179e CLR.L D0> {}
<MI 217a0 MOVE.W (A6-0x14),D0> {}
<MI 217a4 MOVE.L D0,(A6-0x42)> {}
<MI 217a6 MOVE.W (A6-0x12),D1> {}
<MI 217aa ANDI.W #0x00ff,D1> {}
<MI 217ae CLR.L D2> {}
<MI 217b0 MOVE.W D1,D2> {}
<MI 217b2 MOVE.L D2,(A6-0x3a)> {}
<MI 217b4 MOVE.W (A6-0x12),D6> {}
<MI 217b8 MOVE.W D6,D1> {}
<MI 217ba LSR.W #0x8,D1> {}
<MI 217bc CLR.L D3> {}
<MI 217be MOVE.W D1,D3> {}
<MI 217c0 MOVE.L D3,(A6-0x3e)> {}
<MI 217c2 TST.L D2> {}
<MI 217c4 BEQ 0x217cc> {}
<POP 217c6-217cc Naked> Σ0 →0x217f6
<MI 217c6 SUBQ.L #0x1,D2> {}
<MI 217c8 MOVE.L D2,(A6-0x3a)> {}
<MI 217ca BRA 0x217f6> {}
<POP 217cc-217de Naked> Σ0 ↓ →0x217e4 ←0x21794
<MI 217cc CLR.L D1> {}
<MI 217ce MOVE.B 0x21ca5,D1> {}
<MI 217d4 SUBQ.W #0x1,D1> {}
<MI 217d6 EXTW.L D1> {}
<MI 217d8 MOVE.L D1,(A6-0x3a)> {}
<MI 217da TST.L D3> {}
<MI 217dc BEQ 0x217e4> {}
<POP 217de-217e4 Naked> Σ0 →0x217f6
<MI 217de SUBQ.L #0x1,D3> {}
<MI 217e0 MOVE.L D3,(A6-0x3e)> {}
<MI 217e2 BRA 0x217f6> {}
<POP 217e4-217f6 Naked> Σ0 ↓ ←0x217cc
<MI 217e4 CLR.L D1> {}
<MI 217e6 MOVE.B 0x21ca4,D1> {}
<MI 217ec SUBQ.W #0x1,D1> {}
<MI 217ee EXTW.L D1> {}
<MI 217f0 MOVE.L D1,(A6-0x3e)> {}
<MI 217f2 SUBQ.L #0x1,D0> {}
<MI 217f4 MOVE.L D0,(A6-0x42)> {}
<POP 217f6-21820 Naked> Σ0 ↓ →0x21822 ←0x217c6 ←0x217de
<MI 217f6 MOVE.L (A6-0x42),-(A7)> Δ-4 {[4, '(A6-0x42)']}
<MI 217f8 MOVE.L (A6-0x3e),-(A7)> Δ-4 {[4, '(A6-0x42)']|[4, '(A6-0x3e)']}
<MI 217fa MOVE.L (A6-0x3a),-(A7)> Δ-4 {[4, '(A6-0x42)']|[4, '(A6-0x3e)']|[4, '(A6-0x3a)']}
<Blob 0x217fc [22] (A6-0xc)> Δ-22 {[4, '(A6-0x42)']|[4, '(A6-0x3e)']|[4, '(A6-0x3a)']|[«22»]}
<MI 21808 MOVE.B (A6+0x8),-(A7)> Δ-2 {[4, '(A6-0x42)']|[4, '(A6-0x3e)']|[4, '(A6-0x3a)']|[«22»]|[2, '(A6+0x8)']}
<Call 0x2180c 0x21468> {[4, '(A6-0x42)']|[4, '(A6-0x3e)']|[4, '(A6-0x3a)']|[«22»]|[2, '(A6+0x8)']}
<POP 21810-21814 StackAdj> Δ+36 {}
<MI 21814 ADDQ.L #0x1,(A6-0x3a)> {}
<MI 21816 MOVE.L (A6-0x3a),D0> {}
<MI 21818 ANDI.L #0x00000001,D0> {}
<MI 2181e BEQ 0x21822> {}
<POP 21820-21822 Naked> Σ0 ↓
<MI 21820 ADDQ.L #0x1,(A6-0x3a)> {}
<POP 21822-21838 Naked> Σ0 ↓ ←0x217f6
<Pointer.fp 0x21822 <LVAR -0x042 @ 4(rw)>> Δ-4 {[@@-66]}
<Pointer.fp 0x21824 <LVAR -0x03e @ 4(rw)>> Δ-4 {[@@-66]|[@@-62]}
<Pointer.fp 0x21826 <LVAR -0x03a @ 4(rw)>> Δ-4 {[@@-66]|[@@-62]|[@@-58]}
<Pointer.fp 0x21828 <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-66]|[@@-62]|[@@-58]|[@@-10]}
<Pointer.fp 0x2182c <LVAR -0x024 @ 1(r)>> Δ-4 {[@@-66]|[@@-62]|[@@-58]|[@@-10]|[@@-36]}
<Call 0x21830 0x2157e> {[@@-66]|[@@-62]|[@@-58]|[@@-10]|[@@-36]}
<POP 21834-21838 StackAdj> Δ+20 {}
<POP 21838-21840 Naked> Σ0 ↓ →0x216a6 ←0x2177e
<MI 21838 TST.B (A6-0x24)> {}
<MI 2183c BEQ 0x216a6> {}
<POP 21840-21848 Epilogue> Σ0
@ 21848
<POP 21848-2193c Body>
<POP 21848-2185e Prologue> Σ0 ↓
<POP 2185e-21868 RegCacheLoad> Σ0 ↓
<POP 21868-218d2 Naked> Σ0 Δ-4 ↓
<Blob 0x21868 [48] @> Δ-48 {[«48""»]}
<POP 21874-21876 StackAdj> Δ-8 {[«48""»]|[-8-]}
<Lit 0x21876 48> {[«48""»]|[-4-]|[$$How many passes of read only surface analysis :_]}
<Const 0x21884 0x1.4> Δ-4 {[«48""»]|[-4-]|[$$How many passes of read only surface analysis :_]|[##1]}
<Const 0x21888 0x7fffffff.4> Δ-4 {[«48""»]|[-4-]|[$$How many passes of read only surface analysis :_]|[##1]|[##2147483647]}
<Call 0x2188e 0x103ec> {[«48""»]|[-4-]|[$$How many passes of read only surface analysis :_]|[##1]|[##2147483647]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 21894-21896 StackAdj> Δ+12 {[«48""»]|[-4-]}
<MI 21896 MOVE.L (A7)+,D6> Δ+4 {[«48""»]}
<POP 21898-21899 StackAdj> Δ+48 ↓ {}
<Blob 0x21899 [50] @> Δ-50 {[«50""»]}
<POP 218a8-218aa StackAdj> Δ-6 {[«50""»]|[-6-]}
<Lit 0x218aa 49> {[«50""»]|[-2-]|[$$Report all errors (as opposed to only new errors)]}
<POP 218b6-218b8 StackAdj> Δ-2 {[«50""»]|[-2-]|[$$Report all errors (as opposed to only new errors)]|[-2-]}
<MI 218b8 CLR.B (A7)> {[«50""»]|[-2-]|[$$Report all errors (as opposed to only new errors)]|[-2-]}
<Call 0x218ba 0x103f0> {[«50""»]|[-2-]|[$$Report all errors (as opposed to only new errors)]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 218c0-218c2 StackAdj> Δ+6 {[«50""»]|[-2-]}
<MI 218c2 MOVE.B (A7)+,D0> Δ+2 {[«50""»]}
<MI 218c4 EXTB.W D0> {[«50""»]}
<POP 0x218c6 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«50""»]}
<POP 218c8-218cc StackAdj> Δ+50 {}
<MI 218cc MOVE.B D0,D5> {}
<MI 218ce MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 218d0 MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 218d2-218d6 Naked> Σ-4 ↓ →0x21932 ←0x218d6
<MI 218d2 CMP.L (A7),D7> {[-4-]}
<MI 218d4 BGT 0x21932> {[-4-]}
<POP 218d6-21932 Naked> Σ-4 ↓ →0x218d2
<MI 218d6 MOVE.B D5,-(A7)> Δ-2 {[-4-]|[2, 'D5']}
<Call 0x218d8 0x2164c> {[-4-]|[2, 'D5']}
<POP 218dc-218dd StackAdj> Δ+2 ↓ {[-4-]}
<Blob 0x218dd [6] @> Δ-6 {[-4-]|[«6""»]}
<Blob 0x218ec [10] @> Δ-10 {[-4-]|[«6""»]|[«10""»]}
<POP 218f8-218fa StackAdj> Δ-8 {[-4-]|[«6""»]|[«10""»]|[-8-]}
<Lit 0x218fa 5> {[-4-]|[«6""»]|[«10""»]|[-4-]|[$$Pass_]}
<MI 21906 MOVE.L D7,(A7)> {[-4-]|[«6""»]|[«10""»]|[-4-]|[4, 'D7']}
<POP 21904-21906 StackAdj> Δ-8 {[-4-]|[«6""»]|[«10""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x21908 0x102e4> {[-4-]|[«6""»]|[«10""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x2190e 10> {[-4-]|[«6""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[$$ complete.]}
<Call 0x2191c 0x102d4> {[-4-]|[«6""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[$$ complete.]}
StringCat3(a, b, c : String) : String
<POP 21922-21924 StackAdj> Δ+12 {[-4-]|[«6""»]|[«10""»]|[-4-]}
<Call 0x21924 0x103e0> {[-4-]|[«6""»]|[«10""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2192a-2192e StackAdj> Δ+20 {[-4-]}
<MI 2192e ADDQ.L #0x1,D7> {[-4-]}
<MI 21930 BVC 0x218d2> {[-4-]}
<POP 21932-21934 Naked> Σ-4 Δ+4 ↓ ←0x218d2
<POP 21932-21934 StackAdj> Δ+4 {}
<POP 21934-2193c Epilogue> Σ0
@ 2193c
<LVAR -0x002 @>
<LVAR -0x004 @ 1(r)>
<POP 2193c-219b6 Body>
<POP 2193c-21952 Prologue> Σ0 ↓
<POP 21952-2196c Naked> Σ0 ↓ →0x2199a
<Pointer.fp 0x21952 <LVAR -0x004 @ 1(r)>> Δ-4 {[@@-4]}
<Pointer.fp 0x21956 <LVAR -0x002 @>> Δ-4 {[@@-4]|[@@-2]}
<Call 0x2195a 0x10200> {[@@-4]|[@@-2]}
KC00_GetBootDev(VAR a : Byte; VAR b : Word)
<POP 21960-21962 StackAdj> Δ+8 {}
<MI 21962 MOVE.B (A6-0x4),D0> {}
<MI 21966 CMPI.B #0x02,D0> {}
<MI 2196a BEQ 0x2199a> {}
<POP 2196c-21998 Naked> Σ0 ↓
<Blob 0x2196c [42] @> Δ-42 {[«42""»]}
<POP 21978-2197a StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x2197a 42> {[«42""»]|[$$Program not boot from disk, re-boot system]}
<Call 0x2198e 0x103e0> {[«42""»]|[$$Program not boot from disk, re-boot system]}
WriteConsoleStringCrLf(str : String)
<POP 21994-21998 StackAdj> Δ+46 {}
<POP 21998-2199a Naked> Σ0 →0x21998 ←0x21998
<MI 21998 BRA 0x21998> {}
<POP 2199a-219ae Naked> Σ0 ↓ ←0x21952
<Call 0x2199a 0x10398> {}
FSCALL_10398
<MI 219a0 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x219a2 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x219a6 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 219ac-219ae StackAdj> Δ+6 {}
<POP 219ae-219b6 Epilogue> Σ0
@ 219b6
START
<POP 219b6--0001 Body>
<POP 219b6-219c0 Prologue> Σ0
<POP 219c0-219e4 Naked> Σ0 ↓
<Call 0x219c0 0x10400> {}
FSCALL_10400
<MI 219c6 CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x219c8 0x10404> {[#0]}
SetSomeKindOfFlag(a : Byte)
<POP 219ce-219d0 StackAdj> Δ+2 {}
<MI 219d0 LEA.L 0x21cae,A0> {}
<MI 219d6 MOVE.L A0,0x21ca6> {}
<MI 219dc MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 219de MOVE.L (A7)+,0x21caa> Δ+4 {}
<POP 219e4-21a7a Naked> Σ0 Δ-18 ↓ →0x21a7e ←0x21a82
<MI 219e4 MOVE.L #0x1,0x20020> {}
<MI 219ee MOVE.L #0x1,0x10026> {}
<MI 219f8 CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x219fa 0x103ac> {[#0]}
Set_is_open_ERROR_LOG(a : Bool)
<POP 21a00-21a02 StackAdj> Δ+2 {}
<Call 0x21a02 0x2070c> {}
<Call 0x21a06 0x20924> {}
<Call 0x21a0a 0x21848> {}
<Const 0x21a0e 0x21c9a.4> Δ-4 {[##138394]}
<Call 0x21a14 0x102bc> {[##138394]}
FreeString(VAR a : String)
<POP 21a1a-21a1b StackAdj> Δ+4 ↓ {}
<Blob 0x21a1b [6] @> Δ-6 {[«6""»]}
<POP 21a2a-21a2c StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x21a2c 5> {[«6""»]|[$$Done!]}
<Call 0x21a40 0x103e0> {[«6""»]|[$$Done!]}
WriteConsoleStringCrLf(str : String)
<POP 21a46-21a4a StackAdj> Δ+10 {}
<Blob 0x21a4a [18] @> Δ-18 {[«18""»]}
<POP 21a56-21a58 StackAdj> Δ-6 {[«18""»]|[-6-]}
<Lit 0x21a58 18> {[«18""»]|[-2-]|[$$Check another disk]}
<POP 21a6a-21a6c StackAdj> Δ-2 {[«18""»]|[-2-]|[$$Check another disk]|[-2-]}
<MI 21a6c CLR.B (A7)> {[«18""»]|[-2-]|[$$Check another disk]|[-2-]}
<Call 0x21a6e 0x103f0> {[«18""»]|[-2-]|[$$Check another disk]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 21a74-21a76 StackAdj> Δ+6 {[«18""»]|[-2-]}
<MI 21a76 TST.B (A7)+> Δ+2 {[«18""»]}
<MI 21a78 BNE 0x21a7e> {[«18""»]}
<POP 21a7a-21a7e Naked> Σ-18 ↓
<Call 0x21a7a 0x2193c> {[-18-]}
<POP 21a7e-21a82 Naked> Σ-18 Δ+18 ↓ ←0x219e4
<POP 21a7e-21a82 StackAdj> Δ+18 {}
<POP 21a82-21a86 Naked> Σ0 →0x219e4
<MI 21a82 BRA 0x219e4> {}
@ 21a9a
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 21a9a-21b02 Body>
<POP 21a9a-21ab0 Prologue> Σ0 ↓
<POP 21ab0-21afa Naked> Σ0 ↓
<Blob 0x21ab0 [14] @> Δ-14 {[«14""»]}
<Const 0x21abc 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 21ac0-21ac2 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x21ac2 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 21ad4-21ad6 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21ad6 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21ada EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21adc EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21ade MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x21ae0 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21ae6-21ae8 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x21ae8 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21aee-21af0 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x21af0 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 21af6-21afa StackAdj> Δ+20 {}
<POP 21afa-21b02 Epilogue> Σ0
@ 21b56
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 21b56-21c92 Body>
<POP 21b56-21b6c Prologue> Σ0 ↓
<POP 21b6c-21b82 RegCacheLoad> Σ0 ↓
<POP 21b82-21be2 Naked> Σ0 ↓ →0x21c2a
<Call 0x21b82 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21b88 [18] @> Δ-18 {[«18""»]}
<POP 21b94-21b96 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21b96 18> {[«18""»]|[$$Experiment error :]}
<Call 0x21ba2 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 21ba4-21ba5 StackAdj> Δ+22 ↓ {}
<Blob 0x21ba5 [14] @> Δ-14 {[«14""»]}
<POP 21bb4-21bb6 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21bb6 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 21bc0-21bc2 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 21bc2 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x21bc6 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 21bcc-21bce StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x21bce 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21bd4-21bd6 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21bd6 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21bd8-21bda StackAdj> Δ+18 {}
<MI 21bda MOVEA.L (A6+0xa),A0> {}
<MI 21bde CMPA.W #0x01,A0> {}
<MI 21be0 BEQ 0x21c2a> {}
<POP 21be2-21c2a Naked> Σ0 ↓
<Blob 0x21be2 [14] @> Δ-14 {[«14""»]}
<Blob 0x21bf2 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 21c02-21c04 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x21c04 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 21c0e-21c10 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x21c10> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x21c10 12> Δ-4
<Const 0x21c14 0x1.2> Δ-2
<Const 0x21c16 0x1e.2> Δ-2
<Call 0x21c18 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21c1a-21c1c StackAdj> Δ+8
<Call 0x21c1c 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 21c22-21c24 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x21c24 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21c26-21c2a StackAdj> Δ+48 {}
<POP 21c2a-21c8a Naked> Σ0 ↓ ←0x21b82
<Blob 0x21c2a [14] @> Δ-14 {[«14""»]}
<POP 21c3a-21c3c StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21c3c 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 21c46-21c48 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 21c48 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x21c4c 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 21c52-21c54 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x21c54 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21c5a-21c5c StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21c5c 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21c5e-21c5f StackAdj> Δ+18 ↓ {}
<Blob 0x21c5f [24] @> Δ-24 {[«24""»]}
<Const 0x21c6e 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 21c72-21c74 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x21c74 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x21c82 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 21c88-21c8a StackAdj> Δ+30 {}
<POP 21c8a-21c92 Epilogue> Σ0
00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ; import all
00020000 ; import kind.program
00020000 ; no ident.a3257d8344e5f293
00020000 ; --------------------------------------------------------------------------------------
00020000stack.top:
00020000 00 04 00 00 | |.CODE 0x00040000; STACK.END
00020004 00 02 19 b6 | |.CODE START
00020008 00 01 02 88 | |.CODE FSCALL_10288
0002000cheap.top:
0002000c 00 02 80 be | |.PTR 0x000280be
00020010code.end:
00020010 00 02 1c 92 | |.PTR 0x00021c92
00020014 00 00 00 00 | |.CONST 0x00000000
00020018programfailurehandler:
00020018 00 02 1a 9a | |.CODE PROG_FAIL
0002001cexperimentfailurehandler:
0002001c 00 02 1b 56 | V |.CODE EXP_FAIL
00020020 00 00 00 00 | |.CONST 0x00000000
00020024exp_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 0x00000000
000200f0is_open_ERROR_LOG:
000200f0 00 | |.CONST 0x0
000200f1write_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
000200fcfile_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
00020108somekindoffsflag:
00020108 00 | |.CONST 0x00
00020109 00 | |.CONST 0x00
0002010a 40 28 23 29 43 48 |@(#)CH |.XXX[0x6]
00020110 45 43 4b 44 49 53 4b 2c |ECKDISK,|.XXX[0x18]
00020118 31 2e 31 2c 39 32 2f 30 |1.1,92/0|
00020120 37 2f 30 39 2c 31 32 3a |7/09,12:|
00020128 30 30 3a 30 30 5c |00:00\ |.XXX[0x6]
0002012e 45 6e 74 65 72 20 75 6e |Enter un|.TXT 'Enter unit number of disk to check :_ '
00020154 43 61 6e 27 74 20 72 65 |Can't re|.TXT 'Can't retrieve labels due to disk errors. '
0002017e 44 69 73 6b 20 68 61 73 |Disk has|.TXT 'Disk has no labels. '
00020192 44 69 73 6b 20 68 61 73 |Disk has|.TXT 'Disk has obsolete labels. '
000201ac 48 44 |HD |.TXT 'HD'
000201ae 41 20 |A |.TXT 'A '
000201b0 3a 5f |:_ |.TXT ':_'
000201b2 43 61 6e 27 74 20 72 65 |Can't re|.TXT 'Can't read bad block file from disk, disk errors in file! '
000201ec 50 72 69 6d 61 72 79 20 |Primary |.TXT 'Primary Bad Block Area element un-readable, trying sibling'
00020226 20 43 | C |.XXX[0x2]
00020228 53 31 3d 20 20 43 53 32 |S1= CS2|.XXX[0x30]
00020230 3d 20 20 44 53 3d 20 20 |= DS= |
00020238 20 45 52 31 3d 20 20 45 | ER1= E|
00020240 52 32 3d 20 20 45 43 31 |R2= EC1|
00020248 3d 20 20 45 43 32 3d 20 |= EC2= |
00020250 20 44 43 3d 20 20 20 44 | DC= D|
00020258 41 3d 20 20 |A= |.XXX[0x4]
0002025c 53 70 65 63 69 61 6c 20 |Special |.TXT 'Special condition '
0002026e 54 72 61 6e 73 66 65 72 |Transfer|.TXT 'Transfer error'
0002027c 44 72 69 76 65 20 69 73 |Drive is|.TXT 'Drive is not available'
00020292 44 72 69 76 65 20 69 73 |Drive is|.TXT 'Drive is not ready'
000202a4 44 61 74 61 20 6c 61 74 |Data lat|.TXT 'Data late '
000202ae 57 72 69 74 65 20 63 68 |Write ch|.TXT 'Write check error '
000202c0 4e 6f 6e 2d 65 78 69 73 |Non-exis|.TXT 'Non-existent drive'
000202d2 4e 6f 6e 2d 65 78 69 73 |Non-exis|.TXT 'Non-existent memory '
000202e6 50 72 6f 67 72 61 6d 20 |Program |.TXT 'Program error '
000202f4 4d 69 73 73 65 64 20 74 |Missed t|.TXT 'Missed transfer '
00020304 49 6e 70 75 74 20 6e 6f |Input no|.TXT 'Input not ready '
00020314 42 75 73 20 61 64 64 72 |Bus addr|.TXT 'Bus address increment inhibit '
00020332 50 6f 73 69 74 69 6f 6e |Position|.TXT 'Positioning in progress '
0002034a 4d 65 64 69 75 6d 20 6e |Medium n|.TXT 'Medium not on-line'
0002035c 57 72 69 74 |Writ |.TXT 'Writ'
00020360 65 20 6c 6f |e lo |.TXT 'e lo'
00020364 63 6b 65 64 |cked |.TXT 'cked'
00020368 4c 61 73 74 20 73 65 63 |Last sec|.TXT 'Last sector transfered'
0002037e 44 72 69 76 65 20 6e 6f |Drive no|.TXT 'Drive not present '
00020390 44 72 69 76 65 20 6e 6f |Drive no|.TXT 'Drive not ready '
000203a0 56 6f 6c 75 |Volu |.TXT 'Volu'
000203a4 6d 65 20 6e |me n |.TXT 'me n'
000203a8 6f 74 20 76 |ot v |.TXT 'ot v'
000203ac 61 6c 69 64 |alid |.TXT 'alid'
000203b0 44 61 74 61 |Data |.TXT 'Data'
000203b4 20 63 68 65 | che |.TXT ' che'
000203b8 63 6b 20 28 |ck ( |.TXT 'ck ('
000203bc 45 43 43 29 |ECC) |.TXT 'ECC)'
000203c0 55 6e |Un |.TXT 'Un'
000203c2 73 61 |sa |.TXT 'sa'
000203c4 66 65 |fe |.TXT 'fe'
000203c6 4f 70 65 72 61 74 69 6f |Operatio|.TXT 'Operation incomplete'
000203da 44 72 69 76 65 20 74 69 |Drive ti|.TXT 'Drive timing error'
000203ec 57 72 69 74 |Writ |.TXT 'Writ'
000203f0 65 20 6c 6f |e lo |.TXT 'e lo'
000203f4 63 6b 20 65 |ck e |.TXT 'ck e'
000203f8 72 72 6f 72 |rror |.TXT 'rror'
000203fc 49 6e 76 61 6c 69 64 20 |Invalid |.TXT 'Invalid address error '
00020412 41 64 64 72 65 73 73 20 |Address |.TXT 'Address overflow error'
00020428 48 65 61 64 |Head |.TXT 'Head'
0002042c 65 72 20 43 |er C |.TXT 'er C'
00020430 52 43 20 65 |RC e |.TXT 'RC e'
00020434 72 72 6f 72 |rror |.TXT 'rror'
00020438 48 65 61 64 65 72 20 63 |Header c|.TXT 'Header compare error'
0002044c 48 61 72 64 20 45 43 43 |Hard ECC|.TXT 'Hard ECC error'
0002045a 46 6f 72 6d |Form |.TXT 'Form'
0002045e 61 74 20 65 |at e |.TXT 'at e'
00020462 72 72 6f 72 |rror |.TXT 'rror'
00020466 52 65 67 69 73 74 65 72 |Register|.TXT 'Register modification refused '
00020484 49 6c 6c 65 |Ille |.TXT 'Ille'
00020488 67 61 6c 20 |gal |.TXT 'gal '
0002048c 66 75 6e 63 |func |.TXT 'func'
00020490 74 69 6f 6e |tion |.TXT 'tion'
00020494 42 61 64 20 62 6c 6f 63 |Bad bloc|.TXT 'Bad block '
0002049e 53 65 65 6b 20 69 6e 63 |Seek inc|.TXT 'Seek incomplete '
000204ae 49 6e 76 61 6c 69 64 20 |Invalid |.TXT 'Invalid command (volume not valid, off-line, or off cylinder) '
000204ec 44 65 76 69 |Devi |.TXT 'Devi'
000204f0 63 65 20 63 |ce c |.TXT 'ce c'
000204f4 68 65 63 6b |heck |.TXT 'heck'
000204f8 2c 5f |,_ |.TXT ',_'
000204fa 43 79 6c 69 6e 64 65 72 |Cylinder|.TXT 'Cylinder => '
00020506 2c 20 54 72 61 63 6b 20 |, Track |.TXT ', Track =>'
00020510 2c 20 53 65 63 74 6f 72 |, Sector|.TXT ', Sector => '
0002051c 45 72 72 6f 72 20 77 68 |Error wh|.TXT 'Error while reading disk error status '
00020542 50 72 65 76 69 6f 75 73 |Previous|.TXT 'Previously detected bad block at_ '
00020564 50 72 65 76 69 6f 75 73 |Previous|.TXT 'Previously undetected bad block at_ '
00020588 43 79 6c 69 6e 64 65 72 |Cylinder|.TXT 'Cylinder_ '
00020592 48 6f 77 20 6d 61 6e 79 |How many|.TXT 'How many passes of read only surface analysis :_'
000205c2 52 65 70 6f 72 74 20 61 |Report a|.TXT 'Report all errors (as opposed to only new errors) '
000205f4 50 61 73 73 5f 20 |Pass_ |.TXT 'Pass_ '
000205fa 20 63 6f 6d 70 6c 65 74 | complet|.TXT ' complete.'
00020604 50 72 6f 67 72 61 6d 20 |Program |.TXT 'Program not boot from disk, re-boot system'
0002062e 44 6f 6e 65 21 20 |Done! |.TXT 'Done! '
00020634 43 68 65 63 6b 20 61 6e |Check an|.TXT 'Check another disk'
00020646 20 43 | C |.XXX[0x2]
00020648 53 31 3d 20 43 53 32 3d |S1= CS2=|.XXX[0x28]
00020650 20 44 53 3d 20 20 45 52 | DS= ER|
00020658 31 3d 20 45 52 32 3d 20 |1= ER2= |
00020660 45 43 31 3d 20 45 43 32 |EC1= EC2|
00020668 3d 20 44 43 3d 20 20 44 |= DC= D|
00020670 41 3d 20 00 |A= |.XXX[0x4]
00020674 ; --------------------------------------------------------------------------------------
00020674 ; OMSI PASCAL Function
00020674 ; <LVAR 0x008 4(r)>
00020674 ; --------------------------------------------------------------------------------------
00020674 4e 56 ff f0 |NV |LINK.W A6,#0xfff0
00020678 bf d5 | |CMPA.L (A5),A7
0002067a 62 06 |b |BHI 0x00020682
0002067c 44 fc 00 02 |D |MOVE.W #0x00000002,CCR
00020680 4e 76 |Nv |TRAPV
00020682 de fc 00 10 | |ADDA.W #0x00000010,A7
00020686 48 e7 00 80 |H |MOVEM.L A0,-(A7)
0002068a 20 6e 00 08 | n |MOVEA.L (A6+0x8),A0
0002068e b0 fc 00 01 | |CMPA.W #0x00000001,A0
00020692 67 0a |g |BEQ 0x0002069e
00020694 2f 08 |/ |MOVE.L A0,-(A7)
00020696 4e b9 00 01 03 e0 |N |JSR WriteConsoleStringCrLf(str : String)
0002069c 58 4f |XO |ADDQ.L #0x4,A7
0002069e 2e 6d 00 08 |.m |MOVEA.L (A5+0x8),A7
000206a2 3c 7c 00 00 |<| |MOVEA.W #0x00000000,A6
000206a6 4e f9 00 02 19 e4 |N |JMP 0x000219e4
000206ac 4c df 01 00 |L |.XXX[0x4]
000206b0 4e 5e 4e 75 |N^Nu |.XXX[0x4]
000206b4 ; --------------------------------------------------------------------------------------
000206b4 ; OMSI PASCAL Function
000206b4 ; --------------------------------------------------------------------------------------
000206b4 4e 56 ff c8 |NV |LINK.W A6,#0xffc8
000206b8 bf d5 | |CMPA.L (A5),A7
000206ba 62 06 |b |BHI 0x000206c2
000206bc 44 fc 00 02 |D |MOVE.W #0x00000002,CCR
000206c0 4e 76 |Nv |TRAPV
000206c2 de fc 00 30 | 0 |ADDA.W #0x00000030,A7
000206c6 48 e7 e3 80 |H |MOVEM.L A0+D7+D6+D2+D1+D0,-(A7)
000206ca 74 1d |t |MOVEQ.L #0x1d,D2
000206cc 7e 01 |~ |MOVEQ.L #0x01,D7
000206ce 20 07 | |MOVE.L D7,D0
000206d0 e3 80 | |ASL.L #0x1,D0
000206d2 22 00 |" |MOVE.L D0,D1
000206d4 53 81 |S |SUBQ.L #0x1,D1
000206d6 b2 82 | |CMP.L D2,D1
000206d8 63 02 |c |BLS 0x000206dc
000206da 4e 4f |NO |TRAP #15
000206dc 41 f9 00 02 1c ae |A |LEA.L 0x00021cae,A0
000206e2 1c 30 18 36 | 0 6 |MOVE.B (A0+D1.L+#0x36),D6
000206e6 53 80 |S |SUBQ.L #0x1,D0
000206e8 53 80 |S |SUBQ.L #0x1,D0
000206ea b0 82 | |CMP.L D2,D0
000206ec 63 02 |c |BLS 0x000206f0
000206ee 4e 4f |NO |TRAP #15
000206f0 11 b0 08 36 18 36 | 6 6 |MOVE.B (A0+D0.L+#0x36),(A0+D1.L+#0x36)
000206f6 11 86 08 36 | 6 |MOVE.B D6,(A0+D0.L+#0x36)
000206fa 52 87 |R |ADDQ.L #0x1,D7
000206fc 0c 87 00 00 00 0f | |CMPI.L #0x0000000f,D7
00020702 6f ca |o |BLE 0x000206ce
00020704 4c df 01 c7 |L |MOVEM.L (A7)+,D0+D1+D2+D6+D7+A0
00020708 4e 5e |N^ |UNLK A6
0002070a 4e 75 |Nu |RTS
0002070c ; --------------------------------------------------------------------------------------
0002070c ; OMSI PASCAL Function
0002070c ; <LVAR -0x004 @ 1(r)>
0002070c ; --------------------------------------------------------------------------------------
0002070c 4e 56 ff 8e |NV |LINK.W A6,#0xff8e
00020710 bf d5 | |CMPA.L (A5),A7
00020712 62 06 |b |BHI 0x0002071a
00020714 44 fc 00 02 |D |MOVE.W #0x00000002,CCR
00020718 4e 76 |Nv |TRAPV
0002071a de fc 00 6e | n |ADDA.W #0x0000006e,A7
0002071e 48 e7 ff f8 |H |MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020722 45 f9 00 01 02 c4 |E |LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020728 47 f9 00 02 1c 9e |G |LEA.L 0x00021c9e,A3
0002072e 49 f9 00 01 03 e0 |I |LEA.L WriteConsoleStringCrLf(str : String),A4
00020734 74 01 |t |MOVEQ.L #0x01,D2
00020736 76 26 |v& |MOVEQ.L #0x26,D3
00020738 78 02 |x |MOVEQ.L #0x02,D4
0002073a 7a 14 |z |MOVEQ.L #0x14,D5
0002073c 7c 13 || |MOVEQ.L #0x13,D6
0002073e 7e 18 |~ |MOVEQ.L #0x18,D7
00020740 9e c3 | |SUBA.W D3,A7
00020742 20 4f | O |MOVEA.L A7,A0
00020744 43 fa f9 e8 |C |LEA.L 0x0002012e,A1
00020748 70 24 |p$ |MOVEQ.L #0x24,D0
0002074a 10 d9 | |MOVE.B (A1)+,(A0)+
0002074c 51 c8 ff fc |Q |DBF D0,0x0002074a
00020750 51 4f |QO |SUBQ.L #0x8,A7
00020752 48 6f 00 08 |Ho |PEA.L (A7+0x8)
00020756 3f 02 |? |MOVE.W D2,-(A7)
00020758 3f 3c 00 25 |?< % |MOVE.W #0x00000025,-(A7)
0002075c 4e 92 |N |JSR (A2)
0002075e 50 4f |PO |ADDQ.L #0x8,A7
00020760 48 78 00 00 |Hx |PEA.L 0x00000000
00020764 48 78 00 0f |Hx |PEA.L 0x0000000f
00020768 4e b9 00 01 03 ec |N |JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
0002076e de fc 00 0c | |ADDA.W #0x0000000c,A7
00020772 20 1f | |MOVE.L (A7)+,D0
00020774 0c 80 00 00 00 0f | |CMPI.L #0x0000000f,D0
0002077a 63 02 |c |BLS 0x0002077e
0002077c 4e 4f |NO |TRAP #15
0002077e de c3 | |ADDA.W D3,A7
00020780 33 c0 00 02 1c a0 |3 |MOVE.W D0,0x00021ca0
00020786 33 c0 00 01 00 08 |3 |MOVE.W D0,0x00010008
0002078c 33 fc 7f ff 00 01 00 0c |3 |MOVE.W #0x00007fff,0x0001000c
00020794 33 fc 7f ff 00 01 00 0a |3 |MOVE.W #0x00007fff,0x0001000a
0002079c 42 13 |B |CLR.B (A3)
0002079e 1f 04 | |MOVE.B D4,-(A7)
000207a0 3f 04 |? |MOVE.W D4,-(A7)
000207a2 48 78 00 01 |Hx |PEA.L 0x00000001
000207a6 2f 39 00 02 1c aa |/9 |MOVE.L 0x00021caa,-(A7)
000207ac 48 6e ff fc |Hn |PEA.L (A6-0x4)
000207b0 4e b9 00 01 03 6c |N l |JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
000207b6 de fc 00 10 | |ADDA.W #0x00000010,A7
000207ba 4a 2e ff fc |J. |TST.B (A6-0x4)
000207be 66 2c |f, |BNE 0x000207ec
000207c0 9e fc 00 2a | * |SUBA.W #0x0000002a,A7
000207c4 20 4f | O |MOVEA.L A7,A0
000207c6 43 fa f9 8c |C |LEA.L 0x00020154,A1
000207ca 70 28 |p( |MOVEQ.L #0x28,D0
000207cc 10 d9 | |MOVE.B (A1)+,(A0)+
000207ce 51 c8 ff fc |Q |DBF D0,0x000207cc
000207d2 59 4f |YO |SUBQ.L #0x4,A7
000207d4 48 6f 00 04 |Ho |PEA.L (A7+0x4)
000207d8 3f 02 |? |MOVE.W D2,-(A7)
000207da 3f 3c 00 29 |?< ) |MOVE.W #0x00000029,-(A7)
000207de 4e 92 |N |JSR (A2)
000207e0 50 4f |PO |ADDQ.L #0x8,A7
000207e2 4e 94 |N |JSR (A4)
000207e4 de fc 00 2e | . |ADDA.W #0x0000002e,A7
000207e8 60 00 00 e0 |` |BRA 0x000208ca
000207ec 30 39 00 02 1c b0 |09 |MOVE.W 0x00021cb0,D0
000207f2 0c 40 7f ed | @ |CMPI.W #0x7fed,D0
000207f6 67 26 |g& |BEQ 0x0002081e
000207f8 9e c5 | |SUBA.W D5,A7
000207fa 20 4f | O |MOVEA.L A7,A0
000207fc 43 fa f9 80 |C |LEA.L 0x0002017e,A1
00020800 70 12 |p |MOVEQ.L #0x12,D0
00020802 10 d9 | |MOVE.B (A1)+,(A0)+
00020804 51 c8 ff fc |Q |DBF D0,0x00020802
00020808 59 4f |YO |SUBQ.L #0x4,A7
0002080a 48 6f 00 04 |Ho |PEA.L (A7+0x4)
0002080e 3f 02 |? |MOVE.W D2,-(A7)
00020810 3f 06 |? |MOVE.W D6,-(A7)
00020812 4e 92 |N |JSR (A2)
00020814 50 4f |PO |ADDQ.L #0x8,A7
00020816 4e 94 |N |JSR (A4)
00020818 de c7 | |ADDA.W D7,A7
0002081a 60 00 00 ae |` |BRA 0x000208ca
0002081e 30 39 00 02 1c b2 |09 |MOVE.W 0x00021cb2,D0
00020824 0c 40 00 03 | @ |CMPI.W #0x0003,D0
00020828 67 2a |g* |BEQ 0x00020854
0002082a 9e fc 00 1a | |SUBA.W #0x0000001a,A7
0002082e 20 4f | O |MOVEA.L A7,A0
00020830 43 fa f9 60 |C ` |LEA.L 0x00020192,A1
00020834 70 18 |p |MOVEQ.L #0x18,D0
00020836 10 d9 | |MOVE.B (A1)+,(A0)+
00020838 51 c8 ff fc |Q |DBF D0,0x00020836
0002083c 59 4f |YO |SUBQ.L #0x4,A7
0002083e 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020842 3f 02 |? |MOVE.W D2,-(A7)
00020844 3f 3c 00 19 |?< |MOVE.W #0x00000019,-(A7)
00020848 4e 92 |N |JSR (A2)
0002084a 50 4f |PO |ADDQ.L #0x8,A7
0002084c 4e 94 |N |JSR (A4)
0002084e de fc 00 1e | |ADDA.W #0x0000001e,A7
00020852 60 76 |`v |BRA 0x000208ca
00020854 23 f9 00 02 1c b6 00 02 |# |MOVE.L 0x00021cb6,0x00021ca2
0002085c 1c a2 | |
0002085e 4e ba fe 54 |N T |JSR 0x000206b4
00020862 41 f9 00 02 1d 02 |A |LEA.L 0x00021d02,A0
00020868 70 0e |p |MOVEQ.L #0x0e,D0
0002086a 3f 20 |? |MOVE.W -(A0),-(A7)
0002086c 51 c8 ff fc |Q |DBF D0,0x0002086a
00020870 51 4f |QO |SUBQ.L #0x8,A7
00020872 48 6f 00 08 |Ho |PEA.L (A7+0x8)
00020876 3f 02 |? |MOVE.W D2,-(A7)
00020878 3f 3c 00 1e |?< |MOVE.W #0x0000001e,-(A7)
0002087c 4e 92 |N |JSR (A2)
0002087e 50 4f |PO |ADDQ.L #0x8,A7
00020880 4e b9 00 01 02 f0 |N |JSR ToUpper(a : String) : String
00020886 58 4f |XO |ADDQ.L #0x4,A7
00020888 23 df 00 02 1c 9a |# |MOVE.L (A7)+,0x00021c9a
0002088e de fc 00 1c | |ADDA.W #0x0000001c,A7
00020892 3e ba f9 1c |> |MOVE.W 0x000201b0,(A7)
00020896 3f 3a f9 16 |?: |MOVE.W 0x000201ae,-(A7)
0002089a 3f 3a f9 10 |?: |MOVE.W 0x000201ac,-(A7)
0002089e 51 4f |QO |SUBQ.L #0x8,A7
000208a0 48 6f 00 08 |Ho |PEA.L (A7+0x8)
000208a4 3f 02 |? |MOVE.W D2,-(A7)
000208a6 3f 3c 00 06 |?< |MOVE.W #0x00000006,-(A7)
000208aa 4e 92 |N |JSR (A2)
000208ac 2e b9 00 02 1c 9a |. |MOVE.L 0x00021c9a,(A7)
000208b2 4e b9 00 01 02 cc |N |JSR StringDup(a : String) : String
000208b8 58 4f |XO |ADDQ.L #0x4,A7
000208ba 4e b9 00 01 02 d0 |N |JSR StringCat2(a, b : String) : String
000208c0 50 4f |PO |ADDQ.L #0x8,A7
000208c2 4e 94 |N |JSR (A4)
000208c4 de fc 00 0a | |ADDA.W #0x0000000a,A7
000208c8 16 82 | |MOVE.B D2,(A3)
000208ca 4a 13 |J |TST.B (A3)
000208cc 66 24 |f$ |BNE 0x000208f2
000208ce 9e c5 | |SUBA.W D5,A7
000208d0 20 4f | O |MOVEA.L A7,A0
000208d2 43 fa f8 aa |C |LEA.L 0x0002017e,A1
000208d6 70 12 |p |MOVEQ.L #0x12,D0
000208d8 10 d9 | |MOVE.B (A1)+,(A0)+
000208da 51 c8 ff fc |Q |DBF D0,0x000208d8
000208de 59 4f |YO |SUBQ.L #0x4,A7
000208e0 48 6f 00 04 |Ho |PEA.L (A7+0x4)
000208e4 3f 02 |? |MOVE.W D2,-(A7)
000208e6 3f 06 |? |MOVE.W D6,-(A7)
000208e8 4e 92 |N |JSR (A2)
000208ea 50 4f |PO |ADDQ.L #0x8,A7
000208ec 4e ba fd 86 |N |JSR 0x00020674
000208f0 de c7 | |ADDA.W D7,A7
000208f2 42 80 |B |CLR.L D0
000208f4 10 39 00 02 1c a5 | 9 |MOVE.B 0x00021ca5,D0
000208fa e2 40 | @ |ASR.W #0x1,D0
000208fc 33 c0 00 01 00 0a |3 |MOVE.W D0,0x0001000a
00020902 42 81 |B |CLR.L D1
00020904 12 39 00 02 1c a4 | 9 |MOVE.B 0x00021ca4,D1
0002090a c2 c0 | |MULU.W D0,D1
0002090c 0c 81 00 00 ff ff | |CMPI.L #0x0000ffff,D1
00020912 63 02 |c |BLS 0x00020916
00020914 4e 4f |NO |TRAP #15
00020916 33 c1 00 01 00 0c |3 |MOVE.W D1,0x0001000c
0002091c 4c df 1f ff |L |MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020920 4e 5e |N^ |UNLK A6
00020922 4e 75 |Nu |RTS
00020924 ; --------------------------------------------------------------------------------------
00020924 ; OMSI PASCAL Function
00020924 ; <LVAR -0x002 2(rw)>
00020924 ; <LVAR -0x004 2(rw)>
00020924 ; <LVAR -0x010 @ 1(r)>
00020924 ; --------------------------------------------------------------------------------------
00020924 4e 56 ff 6e |NV n |LINK.W A6,#0xff6e
00020928 bf d5 | |CMPA.L (A5),A7
0002092a 62 06 |b |BHI 0x00020932
0002092c 44 fc 00 02 |D |MOVE.W #0x00000002,CCR
00020930 4e 76 |Nv |TRAPV
00020932 de fc 00 7e | ~ |ADDA.W #0x0000007e,A7
00020936 48 e7 ff f8 |H |MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002093a 45 ee ff f0 |E |LEA.L (A6-0x10),A2
0002093e 47 f9 00 02 1c 92 |G |LEA.L 0x00021c92,A3
00020944 7a 00 |z |MOVEQ.L #0x00,D5
00020946 0c 85 00 00 07 ff | |CMPI.L #0x000007ff,D5
0002094c 63 02 |c |BLS 0x00020950
0002094e 4e 4f |NO |TRAP #15
00020950 20 05 | |MOVE.L D5,D0
00020952 e5 80 | |ASL.L #0x2,D0
00020954 20 4b | K |MOVEA.L A3,A0
00020956 41 f0 08 00 |A |LEA.L (A0+D0.L),A0
0002095a 02 68 c0 00 04 1c | h |ANDI.W #0xc000,(A0+0x41c)
00020960 42 28 04 1e |B( |CLR.B (A0+0x41e)
00020964 42 28 04 1f |B( |CLR.B (A0+0x41f)
00020968 52 85 |R |ADDQ.L #0x1,D5
0002096a 0c 85 00 00 07 ff | |CMPI.L #0x000007ff,D5
00020970 6f d4 |o |BLE 0x00020946
00020972 42 80 |B |CLR.L D0
00020974 10 39 00 02 1c bc | 9 |MOVE.B 0x00021cbc,D0
0002097a 42 81 |B |CLR.L D1
0002097c 12 39 00 02 1c a5 | 9 |MOVE.B 0x00021ca5,D1
00020982 c0 c1 | |MULU.W D1,D0
00020984 42 82 |B |CLR.L D2
00020986 14 39 00 02 1c bd | 9 |MOVE.B 0x00021cbd,D2
0002098c 52 42 |RB |ADDQ.W #0x1,D2
0002098e d4 40 | @ |ADD.W D0,D2
00020990 e2 4a | J |LSR.W #0x1,D2
00020992 3d 42 ff fc |=B |MOVE.W D2,(A6-0x4)
00020996 42 80 |B |CLR.L D0
00020998 10 39 00 02 1c c0 | 9 |MOVE.B 0x00021cc0,D0
0002099e c0 c1 | |MULU.W D1,D0
000209a0 42 81 |B |CLR.L D1
000209a2 12 39 00 02 1c c1 | 9 |MOVE.B 0x00021cc1,D1
000209a8 53 41 |SA |SUBQ.W #0x1,D1
000209aa 42 82 |B |CLR.L D2
000209ac 34 00 |4 |MOVE.W D0,D2
000209ae 48 c1 |H |EXTW.L D1
000209b0 d2 82 | |ADD.L D2,D1
000209b2 28 01 |( |MOVE.L D1,D4
000209b4 76 02 |v |MOVEQ.L #0x02,D3
000209b6 4e b9 00 01 02 94 |N |JSR ?divs_d3_d4
000209bc 3d 44 ff fe |=D |MOVE.W D4,(A6-0x2)
000209c0 7c 00 || |MOVEQ.L #0x00,D6
000209c2 3e 2e ff fc |>. |MOVE.W (A6-0x4),D7
000209c6 0c 86 00 00 07 ff | |CMPI.L #0x000007ff,D6
000209cc 63 02 |c |BLS 0x000209d0
000209ce 4e 4f |NO |TRAP #15
000209d0 20 06 | |MOVE.L D6,D0
000209d2 e5 80 | |ASL.L #0x2,D0
000209d4 20 4b | K |MOVEA.L A3,A0
000209d6 41 f0 08 00 |A |LEA.L (A0+D0.L),A0
000209da 41 e8 04 1c |A |LEA.L (A0+0x41c),A0
000209de 2f 08 |/ |MOVE.L A0,-(A7)
000209e0 28 5f |(_ |MOVEA.L (A7)+,A4
000209e2 1f 3c 00 02 | < |MOVE.B #0x02,-(A7)
000209e6 3f 07 |? |MOVE.W D7,-(A7)
000209e8 48 78 00 01 |Hx |PEA.L 0x00000001
000209ec 2f 0c |/ |MOVE.L A4,-(A7)
000209ee 48 52 |HR |PEA.L (A2)
000209f0 4e b9 00 01 03 6c |N l |JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
000209f6 de fc 00 10 | |ADDA.W #0x00000010,A7
000209fa 4a 12 |J |TST.B (A2)
000209fc 66 00 00 8a |f |BNE 0x00020a88
00020a00 41 fa f8 24 |A $ |LEA.L 0x00020226,A0
00020a04 70 1c |p |MOVEQ.L #0x1c,D0
00020a06 3f 20 |? |MOVE.W -(A0),-(A7)
00020a08 51 c8 ff fc |Q |DBF D0,0x00020a06
00020a0c 59 4f |YO |SUBQ.L #0x4,A7
00020a0e 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020a12 3f 3c 00 01 |?< |MOVE.W #0x00000001,-(A7)
00020a16 3f 3c 00 3a |?< : |MOVE.W #0x0000003a,-(A7)
00020a1a 4e b9 00 01 02 c4 |N |JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020a20 50 4f |PO |ADDQ.L #0x8,A7
00020a22 4e b9 00 01 03 e0 |N |JSR WriteConsoleStringCrLf(str : String)
00020a28 de fc 00 3c | < |ADDA.W #0x0000003c,A7
00020a2c 1e bc 00 02 | |MOVE.B #0x02,(A7)
00020a30 42 80 |B |CLR.L D0
00020a32 30 07 |0 |MOVE.W D7,D0
00020a34 52 80 |R |ADDQ.L #0x1,D0
00020a36 0c 80 00 00 ff ff | |CMPI.L #0x0000ffff,D0
00020a3c 63 02 |c |BLS 0x00020a40
00020a3e 4e 4f |NO |TRAP #15
00020a40 3f 00 |? |MOVE.W D0,-(A7)
00020a42 48 78 00 01 |Hx |PEA.L 0x00000001
00020a46 2f 0c |/ |MOVE.L A4,-(A7)
00020a48 48 52 |HR |PEA.L (A2)
00020a4a 4e b9 00 01 03 6c |N l |JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00020a50 de fc 00 10 | |ADDA.W #0x00000010,A7
00020a54 4a 12 |J |TST.B (A2)
00020a56 66 30 |f0 |BNE 0x00020a88
00020a58 9e fc 00 3a | : |SUBA.W #0x0000003a,A7
00020a5c 20 4f | O |MOVEA.L A7,A0
00020a5e 43 fa f7 52 |C R |LEA.L 0x000201b2,A1
00020a62 70 38 |p8 |MOVEQ.L #0x38,D0
00020a64 10 d9 | |MOVE.B (A1)+,(A0)+
00020a66 51 c8 ff fc |Q |DBF D0,0x00020a64
00020a6a 59 4f |YO |SUBQ.L #0x4,A7
00020a6c 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020a70 3f 3c 00 01 |?< |MOVE.W #0x00000001,-(A7)
00020a74 3f 3c 00 39 |?< 9 |MOVE.W #0x00000039,-(A7)
00020a78 4e b9 00 01 02 c4 |N |JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020a7e 50 4f |PO |ADDQ.L #0x8,A7
00020a80 4e ba fb f2 |N |JSR 0x00020674
00020a84 de fc 00 3e | > |ADDA.W #0x0000003e,A7
00020a88 06 86 00 00 01 00 | |ADDI.L #0x00000100,D6
00020a8e 42 80 |B |CLR.L D0
00020a90 30 07 |0 |MOVE.W D7,D0
00020a92 54 80 |T |ADDQ.L #0x2,D0
00020a94 0c 80 00 00 ff ff | |CMPI.L #0x0000ffff,D0
00020a9a 63 02 |c |BLS 0x00020a9e
00020a9c 4e 4f |NO |TRAP #15
00020a9e 3e 00 |> |MOVE.W D0,D7
00020aa0 be 6e ff fe | n |CMP.W (A6-0x2),D7
00020aa4 63 00 ff 20 |c |BLS 0x000209c6
00020aa8 4c df 1f ff |L |MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020aac 4e 5e |N^ |UNLK A6
00020aae 4e 75 |Nu |RTS
00020ab0 ; --------------------------------------------------------------------------------------
00020ab0 ; OMSI PASCAL Function
00020ab0 ; <LVAR 0x008 4(r)>
00020ab0 ; --------------------------------------------------------------------------------------
00020ab0 4e 56 ff ce |NV |LINK.W A6,#0xffce
00020ab4 bf d5 | |CMPA.L (A5),A7
00020ab6 62 06 |b |BHI 0x00020abe
00020ab8 44 fc 00 02 |D |MOVE.W #0x00000002,CCR
00020abc 4e 76 |Nv |TRAPV
00020abe de fc 00 32 | 2 |ADDA.W #0x00000032,A7
00020ac2 48 e7 c0 e0 |H |MOVEM.L A2+A1+A0+D1+D0,-(A7)
00020ac6 43 ec 00 04 |C |LEA.L (A4+0x4),A1
00020aca 45 ee 00 08 |E |LEA.L (A6+0x8),A2
00020ace 20 51 | Q |MOVEA.L (A1),A0
00020ad0 4a 50 |JP |TST.W (A0)
00020ad2 66 12 |f |BNE 0x00020ae6
00020ad4 59 4f |YO |SUBQ.L #0x4,A7
00020ad6 2f 11 |/ |MOVE.L (A1),-(A7)
00020ad8 2f 12 |/ |MOVE.L (A2),-(A7)
00020ada 4e b9 00 01 02 d0 |N |JSR StringCat2(a, b : String) : String
00020ae0 50 4f |PO |ADDQ.L #0x8,A7
00020ae2 22 9f |" |MOVE.L (A7)+,(A1)
00020ae4 60 52 |`R |BRA 0x00020b38
00020ae6 30 10 |0 |MOVE.W (A0),D0
00020ae8 48 c0 |H |EXTW.L D0
00020aea 54 80 |T |ADDQ.L #0x2,D0
00020aec 20 52 | R |MOVEA.L (A2),A0
00020aee 32 10 |2 |MOVE.W (A0),D1
00020af0 48 c1 |H |EXTW.L D1
00020af2 d2 80 | |ADD.L D0,D1
00020af4 0c 81 00 00 00 50 | P |CMPI.L #0x00000050,D1
00020afa 6e 30 |n0 |BGT 0x00020b2c
00020afc 3f 3a f9 fa |?: |MOVE.W 0x000204f8,-(A7)
00020b00 59 4f |YO |SUBQ.L #0x4,A7
00020b02 2f 11 |/ |MOVE.L (A1),-(A7)
00020b04 59 4f |YO |SUBQ.L #0x4,A7
00020b06 48 6f 00 0c |Ho |PEA.L (A7+0xc)
00020b0a 3f 3c 00 01 |?< |MOVE.W #0x00000001,-(A7)
00020b0e 3f 3c 00 02 |?< |MOVE.W #0x00000002,-(A7)
00020b12 4e b9 00 01 02 c4 |N |JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020b18 58 4f |XO |ADDQ.L #0x4,A7
00020b1a 2e 92 |. |MOVE.L (A2),(A7)
00020b1c 4e b9 00 01 02 d4 |N |JSR StringCat3(a, b, c : String) : String
00020b22 de fc 00 0c | |ADDA.W #0x0000000c,A7
00020b26 22 9f |" |MOVE.L (A7)+,(A1)
00020b28 54 4f |TO |ADDQ.L #0x2,A7
00020b2a 60 0c |` |BRA 0x00020b38
00020b2c 2f 11 |/ |MOVE.L (A1),-(A7)
00020b2e 4e b9 00 01 03 e0 |N |JSR WriteConsoleStringCrLf(str : String)
00020b34 58 4f |XO |ADDQ.L #0x4,A7
00020b36 22 92 |" |MOVE.L (A2),(A1)
00020b38 4c df 07 03 |L |MOVEM.L (A7)+,D0+D1+A0+A1+A2
00020b3c 4e 5e |N^ |UNLK A6
00020b3e 4e 75 |Nu |RTS
00020b40 ; --------------------------------------------------------------------------------------
00020b40 ; OMSI PASCAL Function
00020b40 ; <LVAR 0x02a 4(r)>
00020b40 ; <LVAR 0x026 4(r)>
00020b40 ; <LVAR 0x022 4(r)>
00020b40 ; <LVAR 0x01e 4(r)>
00020b40 ; <LVAR 0x010 2(r)>
00020b40 ; <LVAR 0x00e 2(r)>
00020b40 ; <LVAR 0x00c 2(r)>
00020b40 ; <LVAR 0x00a 2(r)>
00020b40 ; <LVAR 0x008 2(r)>
00020b40 ; <LVAR -0x006 @ 4(r)>
00020b40 ; <LVAR -0x00a @>
00020b40 ; --------------------------------------------------------------------------------------
00020b40 4e 56 ff 74 |NV t |LINK.W A6,#0xff74
00020b44 bf d5 | |CMPA.L (A5),A7
00020b46 62 06 |b |BHI 0x00020b4e
00020b48 44 fc 00 02 |D |MOVE.W #0x00000002,CCR
00020b4c 4e 76 |Nv |TRAPV
00020b4e de fc 00 82 | |ADDA.W #0x00000082,A7
00020b52 48 e7 ff f8 |H |MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020b56 45 f9 00 01 02 c4 |E |LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020b5c 47 ee ff f6 |G |LEA.L (A6-0xa),A3
00020b60 74 01 |t |MOVEQ.L #0x01,D2
00020b62 7a 10 |z |MOVEQ.L #0x10,D5
00020b64 7c 14 || |MOVEQ.L #0x14,D6
00020b66 48 6e ff fa |Hn |PEA.L (A6-0x6)
00020b6a 4e b9 00 01 02 b8 |N |JSR NewString(VAR a : String)
00020b70 2e ae 00 2a |. * |MOVE.L (A6+0x2a),(A7)
00020b74 4e b9 00 01 03 d8 |N |JSR WriteConsoleString(str : String)
00020b7a 51 4f |QO |SUBQ.L #0x8,A7
00020b7c 20 4f | O |MOVEA.L A7,A0
00020b7e 43 fa f9 7a |C z |LEA.L 0x000204fa,A1
00020b82 70 0a |p |MOVEQ.L #0x0a,D0
00020b84 10 d9 | |MOVE.B (A1)+,(A0)+
00020b86 51 c8 ff fc |Q |DBF D0,0x00020b84
00020b8a 51 4f |QO |SUBQ.L #0x8,A7
00020b8c 48 6f 00 08 |Ho |PEA.L (A7+0x8)
00020b90 3f 02 |? |MOVE.W D2,-(A7)
00020b92 3f 3c 00 0b |?< |MOVE.W #0x0000000b,-(A7)
00020b96 4e 92 |N |JSR (A2)
00020b98 2f 2e 00 26 |/. & |MOVE.L (A6+0x26),-(A7)
00020b9c 4e b9 00 01 02 e4 |N |JSR Long2String(a : Long) : String
00020ba2 58 4f |XO |ADDQ.L #0x4,A7
00020ba4 48 78 00 04 |Hx |PEA.L 0x00000004
00020ba8 4e b9 00 01 02 f4 |N |JSR RightPad(a : String; b : Long) : String
00020bae 50 4f |PO |ADDQ.L #0x8,A7
00020bb0 4e b9 00 01 02 d0 |N |JSR StringCat2(a, b : String) : String
00020bb6 50 4f |PO |ADDQ.L #0x8,A7
00020bb8 4e b9 00 01 03 d8 |N |JSR WriteConsoleString(str : String)
00020bbe de c5 | |ADDA.W D5,A7
00020bc0 41 fa f9 4e |A N |LEA.L 0x00020510,A0
00020bc4 70 04 |p |MOVEQ.L #0x04,D0
00020bc6 3f 20 |? |MOVE.W -(A0),-(A7)
00020bc8 51 c8 ff fc |Q |DBF D0,0x00020bc6
00020bcc 51 4f |QO |SUBQ.L #0x8,A7
00020bce 48 6f 00 08 |Ho |PEA.L (A7+0x8)
00020bd2 3f 02 |? |MOVE.W D2,-(A7)
00020bd4 3f 3c 00 0a |?< |MOVE.W #0x0000000a,-(A7)
00020bd8 4e 92 |N |JSR (A2)
00020bda 2f 2e 00 22 |/. " |MOVE.L (A6+0x22),-(A7)
00020bde 4e b9 00 01 02 e4 |N |JSR Long2String(a : Long) : String
00020be4 58 4f |XO |ADDQ.L #0x4,A7
00020be6 48 78 00 04 |Hx |PEA.L 0x00000004
00020bea 4e b9 00 01 02 f4 |N |JSR RightPad(a : String; b : Long) : String
00020bf0 50 4f |PO |ADDQ.L #0x8,A7
00020bf2 4e b9 00 01 02 d0 |N |JSR StringCat2(a, b : String) : String
00020bf8 50 4f |PO |ADDQ.L #0x8,A7
00020bfa 4e b9 00 01 03 d8 |N |JSR WriteConsoleString(str : String)
00020c00 54 4f |TO |ADDQ.L #0x2,A7
00020c02 20 4f | O |MOVEA.L A7,A0
00020c04 43 fa f9 0a |C |LEA.L 0x00020510,A1
00020c08 70 0a |p |MOVEQ.L #0x0a,D0
00020c0a 10 d9 | |MOVE.B (A1)+,(A0)+
00020c0c 51 c8 ff fc |Q |DBF D0,0x00020c0a
00020c10 51 4f |QO |SUBQ.L #0x8,A7
00020c12 48 6f 00 08 |Ho |PEA.L (A7+0x8)
00020c16 3f 02 |? |MOVE.W D2,-(A7)
00020c18 3f 3c 00 0b |?< |MOVE.W #0x0000000b,-(A7)
00020c1c 4e 92 |N |JSR (A2)
00020c1e 2f 2e 00 1e |/. |MOVE.L (A6+0x1e),-(A7)
00020c22 4e b9 00 01 02 e4 |N |JSR Long2String(a : Long) : String
00020c28 58 4f |XO |ADDQ.L #0x4,A7
00020c2a 48 78 00 04 |Hx |PEA.L 0x00000004
00020c2e 4e b9 00 01 02 f4 |N |JSR RightPad(a : String; b : Long) : String
00020c34 50 4f |PO |ADDQ.L #0x8,A7
00020c36 4e b9 00 01 02 d0 |N |JSR StringCat2(a, b : String) : String
00020c3c 50 4f |PO |ADDQ.L #0x8,A7
00020c3e 4e b9 00 01 03 d8 |N |JSR WriteConsoleString(str : String)
00020c44 de c5 | |ADDA.W D5,A7
00020c46 4e b9 00 01 03 dc |N |JSR WriteConsoleCrLf(void)
00020c4c 7e 00 |~ |MOVEQ.L #0x00,D7
00020c4e 0c 87 00 00 00 08 | |CMPI.L #0x00000008,D7
00020c54 63 02 |c |BLS 0x00020c58
00020c56 4e 4f |NO |TRAP #15
00020c58 28 07 |( |MOVE.L D7,D4
00020c5a 76 05 |v |MOVEQ.L #0x05,D3
00020c5c 4e b9 00 01 02 8c |N |JSR ?muls_d3_d4
00020c62 41 fa f9 e2 |A |LEA.L 0x00020646,A0
00020c66 5d 4f |]O |SUBQ.L #0x6,A7
00020c68 22 4f |"O |MOVEA.L A7,A1
00020c6a 41 f0 48 00 |A H |LEA.L (A0+D4.L),A0
00020c6e 70 04 |p |MOVEQ.L #0x04,D0
00020c70 12 d8 | |MOVE.B (A0)+,(A1)+
00020c72 51 c8 ff fc |Q |DBF D0,0x00020c70
00020c76 51 4f |QO |SUBQ.L #0x8,A7
00020c78 48 6f 00 08 |Ho |PEA.L (A7+0x8)
00020c7c 3f 02 |? |MOVE.W D2,-(A7)
00020c7e 3f 3c 00 05 |?< |MOVE.W #0x00000005,-(A7)
00020c82 4e 92 |N |JSR (A2)
00020c84 58 4f |XO |ADDQ.L #0x4,A7
00020c86 0c 87 00 00 00 0a | |CMPI.L #0x0000000a,D7
00020c8c 63 02 |c |BLS 0x00020c90
00020c8e 4e 4f |NO |TRAP #15
00020c90 20 07 | |MOVE.L D7,D0
00020c92 e3 80 | |ASL.L #0x1,D0
00020c94 42 81 |B |CLR.L D1
00020c96 32 36 08 08 |26 |MOVE.W (A6+D0.L+#0x8),D1
00020c9a 2f 01 |/ |MOVE.L D1,-(A7)
00020c9c 48 78 00 04 |Hx |PEA.L 0x00000004
00020ca0 4e b9 00 01 02 e8 |N |JSR Long2HexString(val : Long; ndig : Long) : String
00020ca6 50 4f |PO |ADDQ.L #0x8,A7
00020ca8 4e b9 00 01 02 d0 |N |JSR StringCat2(a, b : String) : String
00020cae 50 4f |PO |ADDQ.L #0x8,A7
00020cb0 4e b9 00 01 03 d8 |N |JSR WriteConsoleString(str : String)
00020cb6 de fc 00 0a | |ADDA.W #0x0000000a,A7
00020cba 52 87 |R |ADDQ.L #0x1,D7
00020cbc 0c 87 00 00 00 08 | |CMPI.L #0x00000008,D7
00020cc2 6f 8a |o |BLE 0x00020c4e
00020cc4 4e b9 00 01 03 dc |N |JSR WriteConsoleCrLf(void)
00020cca 30 2e 00 08 |0. |MOVE.W (A6+0x8),D0
00020cce 02 40 80 00 | @ |ANDI.W #0x8000,D0
00020cd2 67 2c |g, |BEQ 0x00020d00
00020cd4 9e fc 00 12 | |SUBA.W #0x00000012,A7
00020cd8 20 4f | O |MOVEA.L A7,A0
00020cda 43 fa f5 80 |C |LEA.L 0x0002025c,A1
00020cde 70 10 |p |MOVEQ.L #0x10,D0
00020ce0 10 d9 | |MOVE.B (A1)+,(A0)+
00020ce2 51 c8 ff fc |Q |DBF D0,0x00020ce0
00020ce6 59 4f |YO |SUBQ.L #0x4,A7
00020ce8 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020cec 3f 02 |? |MOVE.W D2,-(A7)
00020cee 3f 3c 00 11 |?< |MOVE.W #0x00000011,-(A7)
00020cf2 4e 92 |N |JSR (A2)
00020cf4 50 4f |PO |ADDQ.L #0x8,A7
00020cf6 28 4b |(K |MOVEA.L A3,A4
00020cf8 4e ba fd b6 |N |JSR 0x00020ab0
00020cfc de fc 00 16 | |ADDA.W #0x00000016,A7
00020d00 30 2e 00 08 |0. |MOVE.W (A6+0x8),D0
00020d04 02 40 40 00 | @@ |ANDI.W #0x4000,D0
00020d08 67 26 |g& |BEQ 0x00020d30
00020d0a 41 fa f5 70 |A p |LEA.L 0x0002027c,A0
00020d0e 70 06 |p |MOVEQ.L #0x06,D0
00020d10 3f 20 |? |MOVE.W -(A0),-(A7)
00020d12 51 c8 ff fc |Q |DBF D0,0x00020d10
00020d16 59 4f |YO |SUBQ.L #0x4,A7
00020d18 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020d1c 3f 02 |? |MOVE.W D2,-(A7)
00020d1e 3f 3c 00 0e |?< |MOVE.W #0x0000000e,-(A7)
00020d22 4e 92 |N |JSR (A2)
00020d24 50 4f |PO |ADDQ.L #0x8,A7
00020d26 28 4b |(K |MOVEA.L A3,A4
00020d28 4e ba fd 86 |N |JSR 0x00020ab0
00020d2c de fc 00 12 | |ADDA.W #0x00000012,A7
00020d30 30 2e 00 08 |0. |MOVE.W (A6+0x8),D0
00020d34 02 40 08 00 | @ |ANDI.W #0x0800,D0
00020d38 66 26 |f& |BNE 0x00020d60
00020d3a 41 fa f5 56 |A V |LEA.L 0x00020292,A0
00020d3e 70 0a |p |MOVEQ.L #0x0a,D0
00020d40 3f 20 |? |MOVE.W -(A0),-(A7)
00020d42 51 c8 ff fc |Q |DBF D0,0x00020d40
00020d46 59 4f |YO |SUBQ.L #0x4,A7
00020d48 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020d4c 3f 02 |? |MOVE.W D2,-(A7)
00020d4e 3f 3c 00 16 |?< |MOVE.W #0x00000016,-(A7)
00020d52 4e 92 |N |JSR (A2)
00020d54 50 4f |PO |ADDQ.L #0x8,A7
00020d56 28 4b |(K |MOVEA.L A3,A4
00020d58 4e ba fd 56 |N V |JSR 0x00020ab0
00020d5c de fc 00 1a | |ADDA.W #0x0000001a,A7
00020d60 30 2e 00 08 |0. |MOVE.W (A6+0x8),D0
00020d64 02 40 00 80 | @ |ANDI.W #0x0080,D0
00020d68 66 26 |f& |BNE 0x00020d90
00020d6a 41 fa f5 38 |A 8 |LEA.L 0x000202a4,A0
00020d6e 70 08 |p |MOVEQ.L #0x08,D0
00020d70 3f 20 |? |MOVE.W -(A0),-(A7)
00020d72 51 c8 ff fc |Q |DBF D0,0x00020d70
00020d76 59 4f |YO |SUBQ.L #0x4,A7
00020d78 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020d7c 3f 02 |? |MOVE.W D2,-(A7)
00020d7e 3f 3c 00 12 |?< |MOVE.W #0x00000012,-(A7)
00020d82 4e 92 |N |JSR (A2)
00020d84 50 4f |PO |ADDQ.L #0x8,A7
00020d86 28 4b |(K |MOVEA.L A3,A4
00020d88 4e ba fd 26 |N & |JSR 0x00020ab0
00020d8c de fc 00 16 | |ADDA.W #0x00000016,A7
00020d90 30 2e 00 0a |0. |MOVE.W (A6+0xa),D0
00020d94 02 40 80 00 | @ |ANDI.W #0x8000,D0
00020d98 67 2c |g, |BEQ 0x00020dc6
00020d9a 9e fc 00 0a | |SUBA.W #0x0000000a,A7
00020d9e 20 4f | O |MOVEA.L A7,A0
00020da0 43 fa f5 02 |C |LEA.L 0x000202a4,A1
00020da4 70 08 |p |MOVEQ.L #0x08,D0
00020da6 10 d9 | |MOVE.B (A1)+,(A0)+
00020da8 51 c8 ff fc |Q |DBF D0,0x00020da6
00020dac 59 4f |YO |SUBQ.L #0x4,A7
00020dae 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020db2 3f 02 |? |MOVE.W D2,-(A7)
00020db4 3f 3c 00 09 |?< |MOVE.W #0x00000009,-(A7)
00020db8 4e 92 |N |JSR (A2)
00020dba 50 4f |PO |ADDQ.L #0x8,A7
00020dbc 28 4b |(K |MOVEA.L A3,A4
00020dbe 4e ba fc f0 |N |JSR 0x00020ab0
00020dc2 de fc 00 0e | |ADDA.W #0x0000000e,A7
00020dc6 30 2e 00 0a |0. |MOVE.W (A6+0xa),D0
00020dca 02 40 40 00 | @@ |ANDI.W #0x4000,D0
00020dce 67 2c |g, |BEQ 0x00020dfc
00020dd0 9e fc 00 12 | |SUBA.W #0x00000012,A7
00020dd4 20 4f | O |MOVEA.L A7,A0
00020dd6 43 fa f4 d6 |C |LEA.L 0x000202ae,A1
00020dda 70 10 |p |MOVEQ.L #0x10,D0
00020ddc 10 d9 | |MOVE.B (A1)+,(A0)+
00020dde 51 c8 ff fc |Q |DBF D0,0x00020ddc
00020de2 59 4f |YO |SUBQ.L #0x4,A7
00020de4 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020de8 3f 02 |? |MOVE.W D2,-(A7)
00020dea 3f 3c 00 11 |?< |MOVE.W #0x00000011,-(A7)
00020dee 4e 92 |N |JSR (A2)
00020df0 50 4f |PO |ADDQ.L #0x8,A7
00020df2 28 4b |(K |MOVEA.L A3,A4
00020df4 4e ba fc ba |N |JSR 0x00020ab0
00020df8 de fc 00 16 | |ADDA.W #0x00000016,A7
00020dfc 30 2e 00 0a |0. |MOVE.W (A6+0xa),D0
00020e00 02 40 10 00 | @ |ANDI.W #0x1000,D0
00020e04 67 26 |g& |BEQ 0x00020e2c
00020e06 41 fa f4 ca |A |LEA.L 0x000202d2,A0
00020e0a 70 08 |p |MOVEQ.L #0x08,D0
00020e0c 3f 20 |? |MOVE.W -(A0),-(A7)
00020e0e 51 c8 ff fc |Q |DBF D0,0x00020e0c
00020e12 59 4f |YO |SUBQ.L #0x4,A7
00020e14 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020e18 3f 02 |? |MOVE.W D2,-(A7)
00020e1a 3f 3c 00 12 |?< |MOVE.W #0x00000012,-(A7)
00020e1e 4e 92 |N |JSR (A2)
00020e20 50 4f |PO |ADDQ.L #0x8,A7
00020e22 28 4b |(K |MOVEA.L A3,A4
00020e24 4e ba fc 8a |N |JSR 0x00020ab0
00020e28 de fc 00 16 | |ADDA.W #0x00000016,A7
00020e2c 30 2e 00 0a |0. |MOVE.W (A6+0xa),D0
00020e30 02 40 08 00 | @ |ANDI.W #0x0800,D0
00020e34 67 2a |g* |BEQ 0x00020e60
00020e36 9e c6 | |SUBA.W D6,A7
00020e38 20 4f | O |MOVEA.L A7,A0
00020e3a 43 fa f4 96 |C |LEA.L 0x000202d2,A1
00020e3e 70 12 |p |MOVEQ.L #0x12,D0
00020e40 10 d9 | |MOVE.B (A1)+,(A0)+
00020e42 51 c8 ff fc |Q |DBF D0,0x00020e40
00020e46 59 4f |YO |SUBQ.L #0x4,A7
00020e48 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020e4c 3f 02 |? |MOVE.W D2,-(A7)
00020e4e 3f 3c 00 13 |?< |MOVE.W #0x00000013,-(A7)
00020e52 4e 92 |N |JSR (A2)
00020e54 50 4f |PO |ADDQ.L #0x8,A7
00020e56 28 4b |(K |MOVEA.L A3,A4
00020e58 4e ba fc 56 |N V |JSR 0x00020ab0
00020e5c de fc 00 18 | |ADDA.W #0x00000018,A7
00020e60 30 2e 00 0a |0. |MOVE.W (A6+0xa),D0
00020e64 02 40 04 00 | @ |ANDI.W #0x0400,D0
00020e68 67 2c |g, |BEQ 0x00020e96
00020e6a 9e fc 00 0e | |SUBA.W #0x0000000e,A7
00020e6e 20 4f | O |MOVEA.L A7,A0
00020e70 43 fa f4 74 |C t |LEA.L 0x000202e6,A1
00020e74 70 0c |p |MOVEQ.L #0x0c,D0
00020e76 10 d9 | |MOVE.B (A1)+,(A0)+
00020e78 51 c8 ff fc |Q |DBF D0,0x00020e76
00020e7c 59 4f |YO |SUBQ.L #0x4,A7
00020e7e 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020e82 3f 02 |? |MOVE.W D2,-(A7)
00020e84 3f 3c 00 0d |?< |MOVE.W #0x0000000d,-(A7)
00020e88 4e 92 |N |JSR (A2)
00020e8a 50 4f |PO |ADDQ.L #0x8,A7
00020e8c 28 4b |(K |MOVEA.L A3,A4
00020e8e 4e ba fc 20 |N |JSR 0x00020ab0
00020e92 de fc 00 12 | |ADDA.W #0x00000012,A7
00020e96 30 2e 00 0a |0. |MOVE.W (A6+0xa),D0
00020e9a 02 40 02 00 | @ |ANDI.W #0x0200,D0
00020e9e 67 28 |g( |BEQ 0x00020ec8
00020ea0 9e c5 | |SUBA.W D5,A7
00020ea2 20 4f | O |MOVEA.L A7,A0
00020ea4 43 fa f4 4e |C N |LEA.L 0x000202f4,A1
00020ea8 70 0e |p |MOVEQ.L #0x0e,D0
00020eaa 10 d9 | |MOVE.B (A1)+,(A0)+
00020eac 51 c8 ff fc |Q |DBF D0,0x00020eaa
00020eb0 59 4f |YO |SUBQ.L #0x4,A7
00020eb2 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020eb6 3f 02 |? |MOVE.W D2,-(A7)
00020eb8 3f 3c 00 0f |?< |MOVE.W #0x0000000f,-(A7)
00020ebc 4e 92 |N |JSR (A2)
00020ebe 50 4f |PO |ADDQ.L #0x8,A7
00020ec0 28 4b |(K |MOVEA.L A3,A4
00020ec2 4e ba fb ec |N |JSR 0x00020ab0
00020ec6 de c6 | |ADDA.W D6,A7
00020ec8 30 2e 00 0a |0. |MOVE.W (A6+0xa),D0
00020ecc 02 40 00 40 | @ @ |ANDI.W #0x0040,D0
00020ed0 66 28 |f( |BNE 0x00020efa
00020ed2 9e c5 | |SUBA.W D5,A7
00020ed4 20 4f | O |MOVEA.L A7,A0
00020ed6 43 fa f4 2c |C , |LEA.L 0x00020304,A1
00020eda 70 0e |p |MOVEQ.L #0x0e,D0
00020edc 10 d9 | |MOVE.B (A1)+,(A0)+
00020ede 51 c8 ff fc |Q |DBF D0,0x00020edc
00020ee2 59 4f |YO |SUBQ.L #0x4,A7
00020ee4 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020ee8 3f 02 |? |MOVE.W D2,-(A7)
00020eea 3f 3c 00 0f |?< |MOVE.W #0x0000000f,-(A7)
00020eee 4e 92 |N |JSR (A2)
00020ef0 50 4f |PO |ADDQ.L #0x8,A7
00020ef2 28 4b |(K |MOVEA.L A3,A4
00020ef4 4e ba fb ba |N |JSR 0x00020ab0
00020ef8 de c6 | |ADDA.W D6,A7
00020efa 30 2e 00 0a |0. |MOVE.W (A6+0xa),D0
00020efe 02 40 00 04 | @ |ANDI.W #0x0004,D0
00020f02 67 2c |g, |BEQ 0x00020f30
00020f04 9e fc 00 1e | |SUBA.W #0x0000001e,A7
00020f08 20 4f | O |MOVEA.L A7,A0
00020f0a 43 fa f4 08 |C |LEA.L 0x00020314,A1
00020f0e 70 1c |p |MOVEQ.L #0x1c,D0
00020f10 10 d9 | |MOVE.B (A1)+,(A0)+
00020f12 51 c8 ff fc |Q |DBF D0,0x00020f10
00020f16 59 4f |YO |SUBQ.L #0x4,A7
00020f18 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020f1c 3f 02 |? |MOVE.W D2,-(A7)
00020f1e 3f 3c 00 1d |?< |MOVE.W #0x0000001d,-(A7)
00020f22 4e 92 |N |JSR (A2)
00020f24 50 4f |PO |ADDQ.L #0x8,A7
00020f26 28 4b |(K |MOVEA.L A3,A4
00020f28 4e ba fb 86 |N |JSR 0x00020ab0
00020f2c de fc 00 22 | " |ADDA.W #0x00000022,A7
00020f30 30 2e 00 0c |0. |MOVE.W (A6+0xc),D0
00020f34 02 40 20 00 | @ |ANDI.W #0x2000,D0
00020f38 67 2c |g, |BEQ 0x00020f66
00020f3a 9e fc 00 18 | |SUBA.W #0x00000018,A7
00020f3e 20 4f | O |MOVEA.L A7,A0
00020f40 43 fa f3 f0 |C |LEA.L 0x00020332,A1
00020f44 70 16 |p |MOVEQ.L #0x16,D0
00020f46 10 d9 | |MOVE.B (A1)+,(A0)+
00020f48 51 c8 ff fc |Q |DBF D0,0x00020f46
00020f4c 59 4f |YO |SUBQ.L #0x4,A7
00020f4e 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020f52 3f 02 |? |MOVE.W D2,-(A7)
00020f54 3f 3c 00 17 |?< |MOVE.W #0x00000017,-(A7)
00020f58 4e 92 |N |JSR (A2)
00020f5a 50 4f |PO |ADDQ.L #0x8,A7
00020f5c 28 4b |(K |MOVEA.L A3,A4
00020f5e 4e ba fb 50 |N P |JSR 0x00020ab0
00020f62 de fc 00 1c | |ADDA.W #0x0000001c,A7
00020f66 30 2e 00 0c |0. |MOVE.W (A6+0xc),D0
00020f6a 02 40 10 00 | @ |ANDI.W #0x1000,D0
00020f6e 66 26 |f& |BNE 0x00020f96
00020f70 41 fa f3 ea |A |LEA.L 0x0002035c,A0
00020f74 70 08 |p |MOVEQ.L #0x08,D0
00020f76 3f 20 |? |MOVE.W -(A0),-(A7)
00020f78 51 c8 ff fc |Q |DBF D0,0x00020f76
00020f7c 59 4f |YO |SUBQ.L #0x4,A7
00020f7e 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020f82 3f 02 |? |MOVE.W D2,-(A7)
00020f84 3f 3c 00 12 |?< |MOVE.W #0x00000012,-(A7)
00020f88 4e 92 |N |JSR (A2)
00020f8a 50 4f |PO |ADDQ.L #0x8,A7
00020f8c 28 4b |(K |MOVEA.L A3,A4
00020f8e 4e ba fb 20 |N |JSR 0x00020ab0
00020f92 de fc 00 16 | |ADDA.W #0x00000016,A7
00020f96 30 2e 00 0c |0. |MOVE.W (A6+0xc),D0
00020f9a 02 40 08 00 | @ |ANDI.W #0x0800,D0
00020f9e 67 24 |g$ |BEQ 0x00020fc4
00020fa0 2f 3a f3 c2 |/: |MOVE.L 0x00020364,-(A7)
00020fa4 2f 3a f3 ba |/: |MOVE.L 0x00020360,-(A7)
00020fa8 2f 3a f3 b2 |/: |MOVE.L 0x0002035c,-(A7)
00020fac 59 4f |YO |SUBQ.L #0x4,A7
00020fae 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020fb2 3f 02 |? |MOVE.W D2,-(A7)
00020fb4 3f 3c 00 0c |?< |MOVE.W #0x0000000c,-(A7)
00020fb8 4e 92 |N |JSR (A2)
00020fba 50 4f |PO |ADDQ.L #0x8,A7
00020fbc 28 4b |(K |MOVEA.L A3,A4
00020fbe 4e ba fa f0 |N |JSR 0x00020ab0
00020fc2 de c5 | |ADDA.W D5,A7
00020fc4 30 2e 00 0c |0. |MOVE.W (A6+0xc),D0
00020fc8 02 40 04 00 | @ |ANDI.W #0x0400,D0
00020fcc 67 26 |g& |BEQ 0x00020ff4
00020fce 41 fa f3 ae |A |LEA.L 0x0002037e,A0
00020fd2 70 0a |p |MOVEQ.L #0x0a,D0
00020fd4 3f 20 |? |MOVE.W -(A0),-(A7)
00020fd6 51 c8 ff fc |Q |DBF D0,0x00020fd4
00020fda 59 4f |YO |SUBQ.L #0x4,A7
00020fdc 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00020fe0 3f 02 |? |MOVE.W D2,-(A7)
00020fe2 3f 3c 00 16 |?< |MOVE.W #0x00000016,-(A7)
00020fe6 4e 92 |N |JSR (A2)
00020fe8 50 4f |PO |ADDQ.L #0x8,A7
00020fea 28 4b |(K |MOVEA.L A3,A4
00020fec 4e ba fa c2 |N |JSR 0x00020ab0
00020ff0 de fc 00 1a | |ADDA.W #0x0000001a,A7
00020ff4 30 2e 00 0c |0. |MOVE.W (A6+0xc),D0
00020ff8 02 40 01 00 | @ |ANDI.W #0x0100,D0
00020ffc 66 2c |f, |BNE 0x0002102a
00020ffe 9e fc 00 12 | |SUBA.W #0x00000012,A7
00021002 20 4f | O |MOVEA.L A7,A0
00021004 43 fa f3 78 |C x |LEA.L 0x0002037e,A1
00021008 70 10 |p |MOVEQ.L #0x10,D0
0002100a 10 d9 | |MOVE.B (A1)+,(A0)+
0002100c 51 c8 ff fc |Q |DBF D0,0x0002100a
00021010 59 4f |YO |SUBQ.L #0x4,A7
00021012 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00021016 3f 02 |? |MOVE.W D2,-(A7)
00021018 3f 3c 00 11 |?< |MOVE.W #0x00000011,-(A7)
0002101c 4e 92 |N |JSR (A2)
0002101e 50 4f |PO |ADDQ.L #0x8,A7
00021020 28 4b |(K |MOVEA.L A3,A4
00021022 4e ba fa 8c |N |JSR 0x00020ab0
00021026 de fc 00 16 | |ADDA.W #0x00000016,A7
0002102a 30 2e 00 0c |0. |MOVE.W (A6+0xc),D0
0002102e 02 40 00 80 | @ |ANDI.W #0x0080,D0
00021032 66 28 |f( |BNE 0x0002105c
00021034 9e c5 | |SUBA.W D5,A7
00021036 20 4f | O |MOVEA.L A7,A0
00021038 43 fa f3 56 |C V |LEA.L 0x00020390,A1
0002103c 70 0e |p |MOVEQ.L #0x0e,D0
0002103e 10 d9 | |MOVE.B (A1)+,(A0)+
00021040 51 c8 ff fc |Q |DBF D0,0x0002103e
00021044 59 4f |YO |SUBQ.L #0x4,A7
00021046 48 6f 00 04 |Ho |PEA.L (A7+0x4)
0002104a 3f 02 |? |MOVE.W D2,-(A7)
0002104c 3f 3c 00 0f |?< |MOVE.W #0x0000000f,-(A7)
00021050 4e 92 |N |JSR (A2)
00021052 50 4f |PO |ADDQ.L #0x8,A7
00021054 28 4b |(K |MOVEA.L A3,A4
00021056 4e ba fa 58 |N X |JSR 0x00020ab0
0002105a de c6 | |ADDA.W D6,A7
0002105c 30 2e 00 0c |0. |MOVE.W (A6+0xc),D0
00021060 02 40 00 40 | @ @ |ANDI.W #0x0040,D0
00021064 66 26 |f& |BNE 0x0002108c
00021066 2f 3a f3 44 |/: D |MOVE.L 0x000203ac,-(A7)
0002106a 2f 3a f3 3c |/: < |MOVE.L 0x000203a8,-(A7)
0002106e 2f 3a f3 34 |/: 4 |MOVE.L 0x000203a4,-(A7)
00021072 2f 3a f3 2c |/: , |MOVE.L 0x000203a0,-(A7)
00021076 59 4f |YO |SUBQ.L #0x4,A7
00021078 48 6f 00 04 |Ho |PEA.L (A7+0x4)
0002107c 3f 02 |? |MOVE.W D2,-(A7)
0002107e 3f 05 |? |MOVE.W D5,-(A7)
00021080 4e 92 |N |JSR (A2)
00021082 50 4f |PO |ADDQ.L #0x8,A7
00021084 28 4b |(K |MOVEA.L A3,A4
00021086 4e ba fa 28 |N ( |JSR 0x00020ab0
0002108a de c6 | |ADDA.W D6,A7
0002108c 30 2e 00 0e |0. |MOVE.W (A6+0xe),D0
00021090 02 40 80 00 | @ |ANDI.W #0x8000,D0
00021094 67 26 |g& |BEQ 0x000210bc
00021096 2f 3a f3 24 |/: $ |MOVE.L 0x000203bc,-(A7)
0002109a 2f 3a f3 1c |/: |MOVE.L 0x000203b8,-(A7)
0002109e 2f 3a f3 14 |/: |MOVE.L 0x000203b4,-(A7)
000210a2 2f 3a f3 0c |/: |MOVE.L 0x000203b0,-(A7)
000210a6 59 4f |YO |SUBQ.L #0x4,A7
000210a8 48 6f 00 04 |Ho |PEA.L (A7+0x4)
000210ac 3f 02 |? |MOVE.W D2,-(A7)
000210ae 3f 05 |? |MOVE.W D5,-(A7)
000210b0 4e 92 |N |JSR (A2)
000210b2 50 4f |PO |ADDQ.L #0x8,A7
000210b4 28 4b |(K |MOVEA.L A3,A4
000210b6 4e ba f9 f8 |N |JSR 0x00020ab0
000210ba de c6 | |ADDA.W D6,A7
000210bc 30 2e 00 0e |0. |MOVE.W (A6+0xe),D0
000210c0 02 40 40 00 | @@ |ANDI.W #0x4000,D0
000210c4 67 26 |g& |BEQ 0x000210ec
000210c6 3f 3a f2 fc |?: |MOVE.W 0x000203c4,-(A7)
000210ca 3f 3a f2 f6 |?: |MOVE.W 0x000203c2,-(A7)
000210ce 3f 3a f2 f0 |?: |MOVE.W 0x000203c0,-(A7)
000210d2 59 4f |YO |SUBQ.L #0x4,A7
000210d4 48 6f 00 04 |Ho |PEA.L (A7+0x4)
000210d8 3f 02 |? |MOVE.W D2,-(A7)
000210da 3f 3c 00 06 |?< |MOVE.W #0x00000006,-(A7)
000210de 4e 92 |N |JSR (A2)
000210e0 50 4f |PO |ADDQ.L #0x8,A7
000210e2 28 4b |(K |MOVEA.L A3,A4
000210e4 4e ba f9 ca |N |JSR 0x00020ab0
000210e8 de fc 00 0a | |ADDA.W #0x0000000a,A7
000210ec 30 2e 00 0e |0. |MOVE.W (A6+0xe),D0
000210f0 02 40 20 00 | @ |ANDI.W #0x2000,D0
000210f4 67 24 |g$ |BEQ 0x0002111a
000210f6 41 fa f2 e2 |A |LEA.L 0x000203da,A0
000210fa 70 04 |p |MOVEQ.L #0x04,D0
000210fc 2f 20 |/ |MOVE.L -(A0),-(A7)
000210fe 51 c8 ff fc |Q |DBF D0,0x000210fc
00021102 59 4f |YO |SUBQ.L #0x4,A7
00021104 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00021108 3f 02 |? |MOVE.W D2,-(A7)
0002110a 3f 06 |? |MOVE.W D6,-(A7)
0002110c 4e 92 |N |JSR (A2)
0002110e 50 4f |PO |ADDQ.L #0x8,A7
00021110 28 4b |(K |MOVEA.L A3,A4
00021112 4e ba f9 9c |N |JSR 0x00020ab0
00021116 de fc 00 18 | |ADDA.W #0x00000018,A7
0002111a 30 2e 00 0e |0. |MOVE.W (A6+0xe),D0
0002111e 02 40 10 00 | @ |ANDI.W #0x1000,D0
00021122 67 26 |g& |BEQ 0x0002114a
00021124 41 fa f2 c6 |A |LEA.L 0x000203ec,A0
00021128 70 08 |p |MOVEQ.L #0x08,D0
0002112a 3f 20 |? |MOVE.W -(A0),-(A7)
0002112c 51 c8 ff fc |Q |DBF D0,0x0002112a
00021130 59 4f |YO |SUBQ.L #0x4,A7
00021132 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00021136 3f 02 |? |MOVE.W D2,-(A7)
00021138 3f 3c 00 12 |?< |MOVE.W #0x00000012,-(A7)
0002113c 4e 92 |N |JSR (A2)
0002113e 50 4f |PO |ADDQ.L #0x8,A7
00021140 28 4b |(K |MOVEA.L A3,A4
00021142 4e ba f9 6c |N l |JSR 0x00020ab0
00021146 de fc 00 16 | |ADDA.W #0x00000016,A7
0002114a 30 2e 00 0e |0. |MOVE.W (A6+0xe),D0
0002114e 02 40 08 00 | @ |ANDI.W #0x0800,D0
00021152 67 26 |g& |BEQ 0x0002117a
00021154 2f 3a f2 a2 |/: |MOVE.L 0x000203f8,-(A7)
00021158 2f 3a f2 9a |/: |MOVE.L 0x000203f4,-(A7)
0002115c 2f 3a f2 92 |/: |MOVE.L 0x000203f0,-(A7)
00021160 2f 3a f2 8a |/: |MOVE.L 0x000203ec,-(A7)
00021164 59 4f |YO |SUBQ.L #0x4,A7
00021166 48 6f 00 04 |Ho |PEA.L (A7+0x4)
0002116a 3f 02 |? |MOVE.W D2,-(A7)
0002116c 3f 05 |? |MOVE.W D5,-(A7)
0002116e 4e 92 |N |JSR (A2)
00021170 50 4f |PO |ADDQ.L #0x8,A7
00021172 28 4b |(K |MOVEA.L A3,A4
00021174 4e ba f9 3a |N : |JSR 0x00020ab0
00021178 de c6 | |ADDA.W D6,A7
0002117a 30 2e 00 0e |0. |MOVE.W (A6+0xe),D0
0002117e 02 40 04 00 | @ |ANDI.W #0x0400,D0
00021182 67 2c |g, |BEQ 0x000211b0
00021184 9e fc 00 16 | |SUBA.W #0x00000016,A7
00021188 20 4f | O |MOVEA.L A7,A0
0002118a 43 fa f2 70 |C p |LEA.L 0x000203fc,A1
0002118e 70 14 |p |MOVEQ.L #0x14,D0
00021190 10 d9 | |MOVE.B (A1)+,(A0)+
00021192 51 c8 ff fc |Q |DBF D0,0x00021190
00021196 59 4f |YO |SUBQ.L #0x4,A7
00021198 48 6f 00 04 |Ho |PEA.L (A7+0x4)
0002119c 3f 02 |? |MOVE.W D2,-(A7)
0002119e 3f 3c 00 15 |?< |MOVE.W #0x00000015,-(A7)
000211a2 4e 92 |N |JSR (A2)
000211a4 50 4f |PO |ADDQ.L #0x8,A7
000211a6 28 4b |(K |MOVEA.L A3,A4
000211a8 4e ba f9 06 |N |JSR 0x00020ab0
000211ac de fc 00 1a | |ADDA.W #0x0000001a,A7
000211b0 30 2e 00 0e |0. |MOVE.W (A6+0xe),D0
000211b4 02 40 02 00 | @ |ANDI.W #0x0200,D0
000211b8 67 26 |g& |BEQ 0x000211e0
000211ba 41 fa f2 6c |A l |LEA.L 0x00020428,A0
000211be 70 0a |p |MOVEQ.L #0x0a,D0
000211c0 3f 20 |? |MOVE.W -(A0),-(A7)
000211c2 51 c8 ff fc |Q |DBF D0,0x000211c0
000211c6 59 4f |YO |SUBQ.L #0x4,A7
000211c8 48 6f 00 04 |Ho |PEA.L (A7+0x4)
000211cc 3f 02 |? |MOVE.W D2,-(A7)
000211ce 3f 3c 00 16 |?< |MOVE.W #0x00000016,-(A7)
000211d2 4e 92 |N |JSR (A2)
000211d4 50 4f |PO |ADDQ.L #0x8,A7
000211d6 28 4b |(K |MOVEA.L A3,A4
000211d8 4e ba f8 d6 |N |JSR 0x00020ab0
000211dc de fc 00 1a | |ADDA.W #0x0000001a,A7
000211e0 30 2e 00 0e |0. |MOVE.W (A6+0xe),D0
000211e4 02 40 01 00 | @ |ANDI.W #0x0100,D0
000211e8 67 26 |g& |BEQ 0x00021210
000211ea 2f 3a f2 48 |/: H |MOVE.L 0x00020434,-(A7)
000211ee 2f 3a f2 40 |/: @ |MOVE.L 0x00020430,-(A7)
000211f2 2f 3a f2 38 |/: 8 |MOVE.L 0x0002042c,-(A7)
000211f6 2f 3a f2 30 |/: 0 |MOVE.L 0x00020428,-(A7)
000211fa 59 4f |YO |SUBQ.L #0x4,A7
000211fc 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00021200 3f 02 |? |MOVE.W D2,-(A7)
00021202 3f 05 |? |MOVE.W D5,-(A7)
00021204 4e 92 |N |JSR (A2)
00021206 50 4f |PO |ADDQ.L #0x8,A7
00021208 28 4b |(K |MOVEA.L A3,A4
0002120a 4e ba f8 a4 |N |JSR 0x00020ab0
0002120e de c6 | |ADDA.W D6,A7
00021210 30 2e 00 0e |0. |MOVE.W (A6+0xe),D0
00021214 02 40 00 80 | @ |ANDI.W #0x0080,D0
00021218 67 24 |g$ |BEQ 0x0002123e
0002121a 41 fa f2 30 |A 0 |LEA.L 0x0002044c,A0
0002121e 70 04 |p |MOVEQ.L #0x04,D0
00021220 2f 20 |/ |MOVE.L -(A0),-(A7)
00021222 51 c8 ff fc |Q |DBF D0,0x00021220
00021226 59 4f |YO |SUBQ.L #0x4,A7
00021228 48 6f 00 04 |Ho |PEA.L (A7+0x4)
0002122c 3f 02 |? |MOVE.W D2,-(A7)
0002122e 3f 06 |? |MOVE.W D6,-(A7)
00021230 4e 92 |N |JSR (A2)
00021232 50 4f |PO |ADDQ.L #0x8,A7
00021234 28 4b |(K |MOVEA.L A3,A4
00021236 4e ba f8 78 |N x |JSR 0x00020ab0
0002123a de fc 00 18 | |ADDA.W #0x00000018,A7
0002123e 30 2e 00 0e |0. |MOVE.W (A6+0xe),D0
00021242 02 40 00 40 | @ @ |ANDI.W #0x0040,D0
00021246 67 26 |g& |BEQ 0x0002126e
00021248 41 fa f2 10 |A |LEA.L 0x0002045a,A0
0002124c 70 06 |p |MOVEQ.L #0x06,D0
0002124e 3f 20 |? |MOVE.W -(A0),-(A7)
00021250 51 c8 ff fc |Q |DBF D0,0x0002124e
00021254 59 4f |YO |SUBQ.L #0x4,A7
00021256 48 6f 00 04 |Ho |PEA.L (A7+0x4)
0002125a 3f 02 |? |MOVE.W D2,-(A7)
0002125c 3f 3c 00 0e |?< |MOVE.W #0x0000000e,-(A7)
00021260 4e 92 |N |JSR (A2)
00021262 50 4f |PO |ADDQ.L #0x8,A7
00021264 28 4b |(K |MOVEA.L A3,A4
00021266 4e ba f8 48 |N H |JSR 0x00020ab0
0002126a de fc 00 12 | |ADDA.W #0x00000012,A7
0002126e 30 2e 00 0e |0. |MOVE.W (A6+0xe),D0
00021272 c0 45 | E |AND.W D5,D0
00021274 67 24 |g$ |BEQ 0x0002129a
00021276 2f 3a f1 ea |/: |MOVE.L 0x00020462,-(A7)
0002127a 2f 3a f1 e2 |/: |MOVE.L 0x0002045e,-(A7)
0002127e 2f 3a f1 da |/: |MOVE.L 0x0002045a,-(A7)
00021282 59 4f |YO |SUBQ.L #0x4,A7
00021284 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00021288 3f 02 |? |MOVE.W D2,-(A7)
0002128a 3f 3c 00 0c |?< |MOVE.W #0x0000000c,-(A7)
0002128e 4e 92 |N |JSR (A2)
00021290 50 4f |PO |ADDQ.L #0x8,A7
00021292 28 4b |(K |MOVEA.L A3,A4
00021294 4e ba f8 1a |N |JSR 0x00020ab0
00021298 de c5 | |ADDA.W D5,A7
0002129a 30 2e 00 0e |0. |MOVE.W (A6+0xe),D0
0002129e 02 40 00 04 | @ |ANDI.W #0x0004,D0
000212a2 67 2c |g, |BEQ 0x000212d0
000212a4 9e fc 00 1e | |SUBA.W #0x0000001e,A7
000212a8 20 4f | O |MOVEA.L A7,A0
000212aa 43 fa f1 ba |C |LEA.L 0x00020466,A1
000212ae 70 1c |p |MOVEQ.L #0x1c,D0
000212b0 10 d9 | |MOVE.B (A1)+,(A0)+
000212b2 51 c8 ff fc |Q |DBF D0,0x000212b0
000212b6 59 4f |YO |SUBQ.L #0x4,A7
000212b8 48 6f 00 04 |Ho |PEA.L (A7+0x4)
000212bc 3f 02 |? |MOVE.W D2,-(A7)
000212be 3f 3c 00 1d |?< |MOVE.W #0x0000001d,-(A7)
000212c2 4e 92 |N |JSR (A2)
000212c4 50 4f |PO |ADDQ.L #0x8,A7
000212c6 28 4b |(K |MOVEA.L A3,A4
000212c8 4e ba f7 e6 |N |JSR 0x00020ab0
000212cc de fc 00 22 | " |ADDA.W #0x00000022,A7
000212d0 30 2e 00 0e |0. |MOVE.W (A6+0xe),D0
000212d4 c0 42 | B |AND.W D2,D0
000212d6 67 26 |g& |BEQ 0x000212fe
000212d8 2f 3a f1 b6 |/: |MOVE.L 0x00020490,-(A7)
000212dc 2f 3a f1 ae |/: |MOVE.L 0x0002048c,-(A7)
000212e0 2f 3a f1 a6 |/: |MOVE.L 0x00020488,-(A7)
000212e4 2f 3a f1 9e |/: |MOVE.L 0x00020484,-(A7)
000212e8 59 4f |YO |SUBQ.L #0x4,A7
000212ea 48 6f 00 04 |Ho |PEA.L (A7+0x4)
000212ee 3f 02 |? |MOVE.W D2,-(A7)
000212f0 3f 05 |? |MOVE.W D5,-(A7)
000212f2 4e 92 |N |JSR (A2)
000212f4 50 4f |PO |ADDQ.L #0x8,A7
000212f6 28 4b |(K |MOVEA.L A3,A4
000212f8 4e ba f7 b6 |N |JSR 0x00020ab0
000212fc de c6 | |ADDA.W D6,A7
000212fe 30 2e 00 10 |0. |MOVE.W (A6+0x10),D0
00021302 02 40 80 00 | @ |ANDI.W #0x8000,D0
00021306 67 2c |g, |BEQ 0x00021334
00021308 9e fc 00 0a | |SUBA.W #0x0000000a,A7
0002130c 20 4f | O |MOVEA.L A7,A0
0002130e 43 fa f1 84 |C |LEA.L 0x00020494,A1
00021312 70 08 |p |MOVEQ.L #0x08,D0
00021314 10 d9 | |MOVE.B (A1)+,(A0)+
00021316 51 c8 ff fc |Q |DBF D0,0x00021314
0002131a 59 4f |YO |SUBQ.L #0x4,A7
0002131c 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00021320 3f 02 |? |MOVE.W D2,-(A7)
00021322 3f 3c 00 09 |?< |MOVE.W #0x00000009,-(A7)
00021326 4e 92 |N |JSR (A2)
00021328 50 4f |PO |ADDQ.L #0x8,A7
0002132a 28 4b |(K |MOVEA.L A3,A4
0002132c 4e ba f7 82 |N |JSR 0x00020ab0
00021330 de fc 00 0e | |ADDA.W #0x0000000e,A7
00021334 30 2e 00 10 |0. |MOVE.W (A6+0x10),D0
00021338 02 40 40 00 | @@ |ANDI.W #0x4000,D0
0002133c 67 28 |g( |BEQ 0x00021366
0002133e 9e c5 | |SUBA.W D5,A7
00021340 20 4f | O |MOVEA.L A7,A0
00021342 43 fa f1 5a |C Z |LEA.L 0x0002049e,A1
00021346 70 0e |p |MOVEQ.L #0x0e,D0
00021348 10 d9 | |MOVE.B (A1)+,(A0)+
0002134a 51 c8 ff fc |Q |DBF D0,0x00021348
0002134e 59 4f |YO |SUBQ.L #0x4,A7
00021350 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00021354 3f 02 |? |MOVE.W D2,-(A7)
00021356 3f 3c 00 0f |?< |MOVE.W #0x0000000f,-(A7)
0002135a 4e 92 |N |JSR (A2)
0002135c 50 4f |PO |ADDQ.L #0x8,A7
0002135e 28 4b |(K |MOVEA.L A3,A4
00021360 4e ba f7 4e |N N |JSR 0x00020ab0
00021364 de c6 | |ADDA.W D6,A7
00021366 30 2e 00 10 |0. |MOVE.W (A6+0x10),D0
0002136a 02 40 10 00 | @ |ANDI.W #0x1000,D0
0002136e 67 2c |g, |BEQ 0x0002139c
00021370 9e fc 00 3e | > |SUBA.W #0x0000003e,A7
00021374 20 4f | O |MOVEA.L A7,A0
00021376 43 fa f1 36 |C 6 |LEA.L 0x000204ae,A1
0002137a 70 3c |p< |MOVEQ.L #0x3c,D0
0002137c 10 d9 | |MOVE.B (A1)+,(A0)+
0002137e 51 c8 ff fc |Q |DBF D0,0x0002137c
00021382 59 4f |YO |SUBQ.L #0x4,A7
00021384 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00021388 3f 02 |? |MOVE.W D2,-(A7)
0002138a 3f 3c 00 3d |?< = |MOVE.W #0x0000003d,-(A7)
0002138e 4e 92 |N |JSR (A2)
00021390 50 4f |PO |ADDQ.L #0x8,A7
00021392 28 4b |(K |MOVEA.L A3,A4
00021394 4e ba f7 1a |N |JSR 0x00020ab0
00021398 de fc 00 42 | B |ADDA.W #0x00000042,A7
0002139c 30 2e 00 10 |0. |MOVE.W (A6+0x10),D0
000213a0 02 40 00 80 | @ |ANDI.W #0x0080,D0
000213a4 67 24 |g$ |BEQ 0x000213ca
000213a6 2f 3a f1 4c |/: L |MOVE.L 0x000204f4,-(A7)
000213aa 2f 3a f1 44 |/: D |MOVE.L 0x000204f0,-(A7)
000213ae 2f 3a f1 3c |/: < |MOVE.L 0x000204ec,-(A7)
000213b2 59 4f |YO |SUBQ.L #0x4,A7
000213b4 48 6f 00 04 |Ho |PEA.L (A7+0x4)
000213b8 3f 02 |? |MOVE.W D2,-(A7)
000213ba 3f 3c 00 0c |?< |MOVE.W #0x0000000c,-(A7)
000213be 4e 92 |N |JSR (A2)
000213c0 50 4f |PO |ADDQ.L #0x8,A7
000213c2 28 4b |(K |MOVEA.L A3,A4
000213c4 4e ba f6 ea |N |JSR 0x00020ab0
000213c8 de c5 | |ADDA.W D5,A7
000213ca 2f 2e ff fa |/. |MOVE.L (A6-0x6),-(A7)
000213ce 4e b9 00 01 03 e0 |N |JSR WriteConsoleStringCrLf(str : String)
000213d4 58 4f |XO |ADDQ.L #0x4,A7
000213d6 4c df 1f ff |L |MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000213da 4e 5e |N^ |UNLK A6
000213dc 4e 75 |Nu |RTS
000213de ; --------------------------------------------------------------------------------------
000213de ; OMSI PASCAL Function
000213de ; <LVAR 0x008 4(r)>
000213de ; <LVAR -0x008 2(w)>
000213de ; <LVAR -0x00e 2(w)>
000213de ; <LVAR -0x012 @>
000213de ; <LVAR -0x014 @ 1(r)>
000213de ; --------------------------------------------------------------------------------------
000213de 4e 56 ff aa |NV |LINK.W A6,#0xffaa
000213e2 bf d5 | |CMPA.L (A5),A7
000213e4 62 06 |b |BHI 0x000213ec
000213e6 44 fc 00 02 |D |MOVE.W #0x00000002,CCR
000213ea 4e 76 |Nv |TRAPV
000213ec de fc 00 42 | B |ADDA.W #0x00000042,A7
000213f0 48 e7 80 c0 |H |MOVEM.L A1+A0+D0,-(A7)
000213f4 3d 7c 00 02 ff f2 |=| |MOVE.W #0x00000002,(A6-0xe)
000213fa 30 39 00 02 1c a0 |09 |MOVE.W 0x00021ca0,D0
00021400 e1 40 | @ |ASL.W #0x8,D0
00021402 52 40 |R@ |ADDQ.W #0x1,D0
00021404 3d 40 ff f8 |=@ |MOVE.W D0,(A6-0x8)
00021408 48 6e ff ee |Hn |PEA.L (A6-0x12)
0002140c 20 6e 00 08 | n |MOVEA.L (A6+0x8),A0
00021410 2f 08 |/ |MOVE.L A0,-(A7)
00021412 42 67 |Bg |CLR.W -(A7)
00021414 4e b9 00 01 02 04 |N |JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
0002141a 50 4f |PO |ADDQ.L #0x8,A7
0002141c 42 57 |BW |CLR.W (A7)
0002141e 48 6e ff ec |Hn |PEA.L (A6-0x14)
00021422 4e b9 00 01 02 06 |N |JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00021428 5c 4f |\O |ADDQ.L #0x6,A7
0002142a 4a 2e ff ec |J. |TST.B (A6-0x14)
0002142e 66 30 |f0 |BNE 0x00021460
00021430 9e fc 00 26 | & |SUBA.W #0x00000026,A7
00021434 20 4f | O |MOVEA.L A7,A0
00021436 43 fa f0 e4 |C |LEA.L 0x0002051c,A1
0002143a 70 24 |p$ |MOVEQ.L #0x24,D0
0002143c 10 d9 | |MOVE.B (A1)+,(A0)+
0002143e 51 c8 ff fc |Q |DBF D0,0x0002143c
00021442 59 4f |YO |SUBQ.L #0x4,A7
00021444 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00021448 3f 3c 00 01 |?< |MOVE.W #0x00000001,-(A7)
0002144c 3f 3c 00 25 |?< % |MOVE.W #0x00000025,-(A7)
00021450 4e b9 00 01 02 c4 |N |JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021456 50 4f |PO |ADDQ.L #0x8,A7
00021458 4e ba f2 1a |N |JSR 0x00020674
0002145c de fc 00 2a | * |ADDA.W #0x0000002a,A7
00021460 4c df 03 01 |L |MOVEM.L (A7)+,D0+A0+A1
00021464 4e 5e |N^ |UNLK A6
00021466 4e 75 |Nu |RTS
00021468 ; --------------------------------------------------------------------------------------
00021468 ; OMSI PASCAL Function
00021468 ; <LVAR 0x028 4(r)>
00021468 ; <LVAR 0x024 4(r)>
00021468 ; <LVAR 0x020 4(r)>
00021468 ; <LVAR 0x008 1(r)>
00021468 ; --------------------------------------------------------------------------------------
00021468 4e 56 ff 86 |NV |LINK.W A6,#0xff86
0002146c bf d5 | |CMPA.L (A5),A7
0002146e 62 06 |b |BHI 0x00021476
00021470 44 fc 00 02 |D |MOVE.W #0x00000002,CCR
00021474 4e 76 |Nv |TRAPV
00021476 de fc 00 72 | r |ADDA.W #0x00000072,A7
0002147a 48 e7 c3 f8 |H |MOVEM.L A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7)
0002147e 45 ee 00 20 |E |LEA.L (A6+0x20),A2
00021482 47 ee 00 28 |G ( |LEA.L (A6+0x28),A3
00021486 49 ee 00 24 |I $ |LEA.L (A6+0x24),A4
0002148a 72 01 |r |MOVEQ.L #0x01,D1
0002148c 7e 00 |~ |MOVEQ.L #0x00,D7
0002148e 7c 00 || |MOVEQ.L #0x00,D6
00021490 20 13 | |MOVE.L (A3),D0
00021492 80 94 | |OR.L (A4),D0
00021494 80 92 | |OR.L (A2),D0
00021496 67 56 |gV |BEQ 0x000214ee
00021498 0c 87 00 00 07 ff | |CMPI.L #0x000007ff,D7
0002149e 63 02 |c |BLS 0x000214a2
000214a0 4e 4f |NO |TRAP #15
000214a2 20 07 | |MOVE.L D7,D0
000214a4 e5 80 | |ASL.L #0x2,D0
000214a6 41 f9 00 02 1c 92 |A |LEA.L 0x00021c92,A0
000214ac 41 f0 08 00 |A |LEA.L (A0+D0.L),A0
000214b0 42 80 |B |CLR.L D0
000214b2 30 28 04 1c |0( |MOVE.W (A0+0x41c),D0
000214b6 e5 48 | H |LSL.W #0x2,D0
000214b8 e4 48 | H |LSR.W #0x2,D0
000214ba b0 93 | |CMP.L (A3),D0
000214bc 66 22 |f" |BNE 0x000214e0
000214be 42 80 |B |CLR.L D0
000214c0 10 28 04 1e | ( |MOVE.B (A0+0x41e),D0
000214c4 b0 94 | |CMP.L (A4),D0
000214c6 66 18 |f |BNE 0x000214e0
000214c8 42 80 |B |CLR.L D0
000214ca 10 28 04 1f | ( |MOVE.B (A0+0x41f),D0
000214ce b0 92 | |CMP.L (A2),D0
000214d0 67 0c |g |BEQ 0x000214de
000214d2 42 80 |B |CLR.L D0
000214d4 10 28 04 1f | ( |MOVE.B (A0+0x41f),D0
000214d8 0c 40 00 ff | @ |CMPI.W #0x00ff,D0
000214dc 66 02 |f |BNE 0x000214e0
000214de 7c 01 || |MOVEQ.L #0x01,D6
000214e0 52 87 |R |ADDQ.L #0x1,D7
000214e2 4a 06 |J |TST.B D6
000214e4 66 08 |f |BNE 0x000214ee
000214e6 0c 87 00 00 07 ff | |CMPI.L #0x000007ff,D7
000214ec 6f aa |o |BLE 0x00021498
000214ee 4a 06 |J |TST.B D6
000214f0 67 46 |gF |BEQ 0x00021538
000214f2 4a 2e 00 08 |J. |TST.B (A6+0x8)
000214f6 67 3e |g> |BEQ 0x00021536
000214f8 9e fc 00 22 | " |SUBA.W #0x00000022,A7
000214fc 20 4f | O |MOVEA.L A7,A0
000214fe 43 fa f0 42 |C B |LEA.L 0x00020542,A1
00021502 70 20 |p |MOVEQ.L #0x20,D0
00021504 10 d9 | |MOVE.B (A1)+,(A0)+
00021506 51 c8 ff fc |Q |DBF D0,0x00021504
0002150a 59 4f |YO |SUBQ.L #0x4,A7
0002150c 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00021510 3f 01 |? |MOVE.W D1,-(A7)
00021512 3f 3c 00 21 |?< ! |MOVE.W #0x00000021,-(A7)
00021516 4e b9 00 01 02 c4 |N |JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002151c 58 4f |XO |ADDQ.L #0x4,A7
0002151e 2e 93 |. |MOVE.L (A3),(A7)
00021520 2f 14 |/ |MOVE.L (A4),-(A7)
00021522 2f 12 |/ |MOVE.L (A2),-(A7)
00021524 20 4a | J |MOVEA.L A2,A0
00021526 70 0a |p |MOVEQ.L #0x0a,D0
00021528 3f 20 |? |MOVE.W -(A0),-(A7)
0002152a 51 c8 ff fc |Q |DBF D0,0x00021528
0002152e 4e ba f6 10 |N |JSR 0x00020b40
00021532 de fc 00 48 | H |ADDA.W #0x00000048,A7
00021536 60 3e |`> |BRA 0x00021576
00021538 9e fc 00 24 | $ |SUBA.W #0x00000024,A7
0002153c 20 4f | O |MOVEA.L A7,A0
0002153e 43 fa f0 24 |C $ |LEA.L 0x00020564,A1
00021542 70 22 |p" |MOVEQ.L #0x22,D0
00021544 10 d9 | |MOVE.B (A1)+,(A0)+
00021546 51 c8 ff fc |Q |DBF D0,0x00021544
0002154a 59 4f |YO |SUBQ.L #0x4,A7
0002154c 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00021550 3f 01 |? |MOVE.W D1,-(A7)
00021552 3f 3c 00 23 |?< # |MOVE.W #0x00000023,-(A7)
00021556 4e b9 00 01 02 c4 |N |JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002155c 58 4f |XO |ADDQ.L #0x4,A7
0002155e 2e 93 |. |MOVE.L (A3),(A7)
00021560 2f 14 |/ |MOVE.L (A4),-(A7)
00021562 2f 12 |/ |MOVE.L (A2),-(A7)
00021564 20 4a | J |MOVEA.L A2,A0
00021566 70 0a |p |MOVEQ.L #0x0a,D0
00021568 3f 20 |? |MOVE.W -(A0),-(A7)
0002156a 51 c8 ff fc |Q |DBF D0,0x00021568
0002156e 4e ba f5 d0 |N |JSR 0x00020b40
00021572 de fc 00 4a | J |ADDA.W #0x0000004a,A7
00021576 4c df 1f c3 |L |MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4
0002157a 4e 5e |N^ |UNLK A6
0002157c 4e 75 |Nu |RTS
0002157e ; --------------------------------------------------------------------------------------
0002157e ; OMSI PASCAL Function
0002157e ; <LVAR 0x018 4(r)>
0002157e ; <LVAR 0x014 4(r)>
0002157e ; <LVAR 0x010 4(r)>
0002157e ; <LVAR 0x00c 4(r)>
0002157e ; <LVAR 0x008 4(r)>
0002157e ; --------------------------------------------------------------------------------------
0002157e 4e 56 ff b0 |NV |LINK.W A6,#0xffb0
00021582 bf d5 | |CMPA.L (A5),A7
00021584 62 06 |b |BHI 0x0002158c
00021586 44 fc 00 02 |D |MOVE.W #0x00000002,CCR
0002158a 4e 76 |Nv |TRAPV
0002158c de fc 00 4c | L |ADDA.W #0x0000004c,A7
00021590 48 e7 f9 f0 |H |MOVEM.L A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00021594 45 f9 00 01 02 94 |E |LEA.L ?divs_d3_d4,A2
0002159a 47 f9 00 02 1c a4 |G |LEA.L 0x00021ca4,A3
000215a0 74 08 |t |MOVEQ.L #0x08,D2
000215a2 20 6e 00 08 | n |MOVEA.L (A6+0x8),A0
000215a6 2f 08 |/ |MOVE.L A0,-(A7)
000215a8 42 10 |B |CLR.B (A0)
000215aa 22 6e 00 10 |"n |MOVEA.L (A6+0x10),A1
000215ae 2f 09 |/ |MOVE.L A1,-(A7)
000215b0 42 80 |B |CLR.L D0
000215b2 10 39 00 02 1c a5 | 9 |MOVE.B 0x00021ca5,D0
000215b8 2f 00 |/ |MOVE.L D0,-(A7)
000215ba b0 91 | |CMP.L (A1),D0
000215bc 62 24 |b$ |BHI 0x000215e2
000215be 20 6e 00 14 | n |MOVEA.L (A6+0x14),A0
000215c2 28 11 |( |MOVE.L (A1),D4
000215c4 26 00 |& |MOVE.L D0,D3
000215c6 4e 92 |N |JSR (A2)
000215c8 d9 90 | |ADD.L D4,(A0)
000215ca 22 83 |" |MOVE.L D3,(A1)
000215cc 42 80 |B |CLR.L D0
000215ce 10 13 | |MOVE.B (A3),D0
000215d0 b0 90 | |CMP.L (A0),D0
000215d2 62 0e |b |BHI 0x000215e2
000215d4 22 6e 00 18 |"n |MOVEA.L (A6+0x18),A1
000215d8 28 10 |( |MOVE.L (A0),D4
000215da 26 00 |& |MOVE.L D0,D3
000215dc 4e 92 |N |JSR (A2)
000215de d9 91 | |ADD.L D4,(A1)
000215e0 20 83 | |MOVE.L D3,(A0)
000215e2 20 6e 00 18 | n |MOVEA.L (A6+0x18),A0
000215e6 20 10 | |MOVE.L (A0),D0
000215e8 52 80 |R |ADDQ.L #0x1,D0
000215ea 42 81 |B |CLR.L D1
000215ec 32 39 00 02 1c a2 |29 |MOVE.W 0x00021ca2,D1
000215f2 b0 81 | |CMP.L D1,D0
000215f4 64 08 |d |BCC 0x000215fe
000215f6 20 6e 00 0c | n |MOVEA.L (A6+0xc),A0
000215fa 20 82 | |MOVE.L D2,(A0)
000215fc 60 42 |`B |BRA 0x00021640
000215fe b2 90 | |CMP.L (A0),D1
00021600 66 0a |f |BNE 0x0002160c
00021602 20 6f 00 08 | o |MOVEA.L (A7+0x8),A0
00021606 10 bc 00 01 | |MOVE.B #0x01,(A0)
0002160a 60 34 |`4 |BRA 0x00021640
0002160c 20 6e 00 14 | n |MOVEA.L (A6+0x14),A0
00021610 42 80 |B |CLR.L D0
00021612 10 13 | |MOVE.B (A3),D0
00021614 90 90 | |SUB.L (A0),D0
00021616 53 80 |S |SUBQ.L #0x1,D0
00021618 28 00 |( |MOVE.L D0,D4
0002161a 26 17 |& |MOVE.L (A7),D3
0002161c 4e b9 00 01 02 8c |N |JSR ?muls_d3_d4
00021622 20 17 | |MOVE.L (A7),D0
00021624 20 6f 00 04 | o |MOVEA.L (A7+0x4),A0
00021628 90 90 | |SUB.L (A0),D0
0002162a d0 84 | |ADD.L D4,D0
0002162c 28 00 |( |MOVE.L D0,D4
0002162e 76 02 |v |MOVEQ.L #0x02,D3
00021630 4e 92 |N |JSR (A2)
00021632 2e 04 |. |MOVE.L D4,D7
00021634 be 82 | |CMP.L D2,D7
00021636 6d 02 |m |BLT 0x0002163a
00021638 60 bc |` |BRA 0x000215f6
0002163a 20 6e 00 0c | n |MOVEA.L (A6+0xc),A0
0002163e 20 87 | |MOVE.L D7,(A0)
00021640 de fc 00 0c | |ADDA.W #0x0000000c,A7
00021644 4c df 0f 9f |L |MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3
00021648 4e 5e |N^ |UNLK A6
0002164a 4e 75 |Nu |RTS
0002164c ; --------------------------------------------------------------------------------------
0002164c ; OMSI PASCAL Function
0002164c ; <LVAR 0x008 1(r)>
0002164c ; <LVAR -0x006 @ 4(rw)>
0002164c ; <LVAR -0x00a @ 4(rw)>
0002164c ; <LVAR -0x00c @ 1(r)>
0002164c ; <LVAR -0x012 2(r)>
0002164c ; <LVAR -0x014 2(r)>
0002164c ; <LVAR -0x022 @>
0002164c ; <LVAR -0x024 @ 1(r)>
0002164c ; <LVAR -0x026 2(w)>
0002164c ; <LVAR -0x028 2(w)>
0002164c ; <LVAR -0x02a 2(w)>
0002164c ; <LVAR -0x02c 2(r)>
0002164c ; <LVAR -0x02e 2(r)>
0002164c ; <LVAR -0x030 2(w)>
0002164c ; <LVAR -0x032 2(r)>
0002164c ; <LVAR -0x034 @ 2(w)>
0002164c ; <LVAR -0x03a @ 4(rw)>
0002164c ; <LVAR -0x03e @ 4(rw)>
0002164c ; <LVAR -0x042 @ 4(rw)>
0002164c ; --------------------------------------------------------------------------------------
0002164c 4e 56 ff 5e |NV ^ |LINK.W A6,#0xff5e
00021650 bf d5 | |CMPA.L (A5),A7
00021652 62 06 |b |BHI 0x0002165a
00021654 44 fc 00 02 |D |MOVE.W #0x00000002,CCR
00021658 4e 76 |Nv |TRAPV
0002165a de fc 00 5c | \ |ADDA.W #0x0000005c,A7
0002165e 48 e7 ff f8 |H |MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021662 45 ee ff c6 |E |LEA.L (A6-0x3a),A2
00021666 47 ee ff be |G |LEA.L (A6-0x42),A3
0002166a 49 ee ff c2 |I |LEA.L (A6-0x3e),A4
0002166e 28 3c 00 00 ff ff |(< |MOVE.L #0x0000ffff,D4
00021674 7a 0a |z |MOVEQ.L #0x0a,D5
00021676 7e ff |~ |MOVEQ.L #-0x01,D7
00021678 42 93 |B |CLR.L (A3)
0002167a 42 94 |B |CLR.L (A4)
0002167c 42 92 |B |CLR.L (A2)
0002167e 2d 7c 00 00 00 08 ff f6 |-| |MOVE.L #0x00000008,(A6-0xa)
00021686 42 6e ff ce |Bn |CLR.W (A6-0x32)
0002168a 3d 7c 00 02 ff d0 |=| |MOVE.W #0x00000002,(A6-0x30)
00021690 42 6e ff d2 |Bn |CLR.W (A6-0x2e)
00021694 42 6e ff d4 |Bn |CLR.W (A6-0x2c)
00021698 30 39 00 02 1c a0 |09 |MOVE.W 0x00021ca0,D0
0002169e e1 40 | @ |ASL.W #0x8,D0
000216a0 54 40 |T@ |ADDQ.W #0x2,D0
000216a2 3d 40 ff d6 |=@ |MOVE.W D0,(A6-0x2a)
000216a6 20 2e ff f6 | . |MOVE.L (A6-0xa),D0
000216aa e1 80 | |ASL.L #0x8,D0
000216ac b0 84 | |CMP.L D4,D0
000216ae 63 02 |c |BLS 0x000216b2
000216b0 4e 4f |NO |TRAP #15
000216b2 3d 40 ff cc |=@ |MOVE.W D0,(A6-0x34)
000216b6 20 13 | |MOVE.L (A3),D0
000216b8 b0 84 | |CMP.L D4,D0
000216ba 63 02 |c |BLS 0x000216be
000216bc 4e 4f |NO |TRAP #15
000216be 3d 40 ff d8 |=@ |MOVE.W D0,(A6-0x28)
000216c2 20 14 | |MOVE.L (A4),D0
000216c4 e1 80 | |ASL.L #0x8,D0
000216c6 d0 92 | |ADD.L (A2),D0
000216c8 b0 84 | |CMP.L D4,D0
000216ca 63 02 |c |BLS 0x000216ce
000216cc 4e 4f |NO |TRAP #15
000216ce 3d 40 ff da |=@ |MOVE.W D0,(A6-0x26)
000216d2 48 6e ff cc |Hn |PEA.L (A6-0x34)
000216d6 41 f9 00 02 40 ae |A @ |LEA.L 0x000240ae,A0
000216dc 2f 08 |/ |MOVE.L A0,-(A7)
000216de 42 67 |Bg |CLR.W -(A7)
000216e0 4e b9 00 01 02 04 |N |JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
000216e6 de c5 | |ADDA.W D5,A7
000216e8 20 2e ff f6 | . |MOVE.L (A6-0xa),D0
000216ec e3 80 | |ASL.L #0x1,D0
000216ee d1 92 | |ADD.L D0,(A2)
000216f0 48 53 |HS |PEA.L (A3)
000216f2 48 54 |HT |PEA.L (A4)
000216f4 48 52 |HR |PEA.L (A2)
000216f6 48 6e ff f6 |Hn |PEA.L (A6-0xa)
000216fa 48 6e ff dc |Hn |PEA.L (A6-0x24)
000216fe 4e ba fe 7e |N ~ |JSR 0x0002157e
00021702 de fc 00 14 | |ADDA.W #0x00000014,A7
00021706 be 93 | |CMP.L (A3),D7
00021708 67 74 |gt |BEQ 0x0002177e
0002170a 2e 13 |. |MOVE.L (A3),D7
0002170c 9e c5 | |SUBA.W D5,A7
0002170e 20 4f | O |MOVEA.L A7,A0
00021710 43 fa ee 76 |C v |LEA.L 0x00020588,A1
00021714 70 08 |p |MOVEQ.L #0x08,D0
00021716 10 d9 | |MOVE.B (A1)+,(A0)+
00021718 51 c8 ff fc |Q |DBF D0,0x00021716
0002171c 51 4f |QO |SUBQ.L #0x8,A7
0002171e 48 6f 00 08 |Ho |PEA.L (A7+0x8)
00021722 3f 3c 00 01 |?< |MOVE.W #0x00000001,-(A7)
00021726 3f 3c 00 09 |?< |MOVE.W #0x00000009,-(A7)
0002172a 4e b9 00 01 02 c4 |N |JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021730 2e 93 |. |MOVE.L (A3),(A7)
00021732 4e b9 00 01 02 e4 |N |JSR Long2String(a : Long) : String
00021738 58 4f |XO |ADDQ.L #0x4,A7
0002173a 4e b9 00 01 02 d0 |N |JSR StringCat2(a, b : String) : String
00021740 50 4f |PO |ADDQ.L #0x8,A7
00021742 2d 5f ff fa |-_ |MOVE.L (A7)+,(A6-0x6)
00021746 5c 4f |\O |ADDQ.L #0x6,A7
00021748 2e ae ff fa |. |MOVE.L (A6-0x6),(A7)
0002174c 1f 3c 00 0d | < |MOVE.B #0x0d,-(A7)
00021750 4e b9 00 01 02 c0 |N |JSR AppendChar(MOD b : String; a : char)
00021756 4e b9 00 01 03 f8 |N |JSR GetConsoleConfig() : Long
0002175c 20 1f | |MOVE.L (A7)+,D0
0002175e b0 84 | |CMP.L D4,D0
00021760 63 02 |c |BLS 0x00021764
00021762 4e 4f |NO |TRAP #15
00021764 3e 80 |> |MOVE.W D0,(A7)
00021766 2f 2e ff fa |/. |MOVE.L (A6-0x6),-(A7)
0002176a 4e b9 00 01 02 0a |N |JSR KC05_PortWriteString(port : Word ; str : String)
00021770 5c 4f |\O |ADDQ.L #0x6,A7
00021772 48 6e ff fa |Hn |PEA.L (A6-0x6)
00021776 4e b9 00 01 02 bc |N |JSR FreeString(VAR a : String)
0002177c 58 4f |XO |ADDQ.L #0x4,A7
0002177e 42 67 |Bg |CLR.W -(A7)
00021780 48 6e ff f4 |Hn |PEA.L (A6-0xc)
00021784 4e b9 00 01 02 06 |N |JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
0002178a 5c 4f |\O |ADDQ.L #0x6,A7
0002178c 4a 2e ff f4 |J. |TST.B (A6-0xc)
00021790 66 00 00 a6 |f |BNE 0x00021838
00021794 48 6e ff de |Hn |PEA.L (A6-0x22)
00021798 4e ba fc 44 |N D |JSR 0x000213de
0002179c 58 4f |XO |ADDQ.L #0x4,A7
0002179e 42 80 |B |CLR.L D0
000217a0 30 2e ff ec |0. |MOVE.W (A6-0x14),D0
000217a4 26 80 |& |MOVE.L D0,(A3)
000217a6 32 2e ff ee |2. |MOVE.W (A6-0x12),D1
000217aa 02 41 00 ff | A |ANDI.W #0x00ff,D1
000217ae 42 82 |B |CLR.L D2
000217b0 34 01 |4 |MOVE.W D1,D2
000217b2 24 82 |$ |MOVE.L D2,(A2)
000217b4 3c 2e ff ee |<. |MOVE.W (A6-0x12),D6
000217b8 32 06 |2 |MOVE.W D6,D1
000217ba e0 49 | I |LSR.W #0x8,D1
000217bc 42 83 |B |CLR.L D3
000217be 36 01 |6 |MOVE.W D1,D3
000217c0 28 83 |( |MOVE.L D3,(A4)
000217c2 4a 82 |J |TST.L D2
000217c4 67 06 |g |BEQ 0x000217cc
000217c6 53 82 |S |SUBQ.L #0x1,D2
000217c8 24 82 |$ |MOVE.L D2,(A2)
000217ca 60 2a |`* |BRA 0x000217f6
000217cc 42 81 |B |CLR.L D1
000217ce 12 39 00 02 1c a5 | 9 |MOVE.B 0x00021ca5,D1
000217d4 53 41 |SA |SUBQ.W #0x1,D1
000217d6 48 c1 |H |EXTW.L D1
000217d8 24 81 |$ |MOVE.L D1,(A2)
000217da 4a 83 |J |TST.L D3
000217dc 67 06 |g |BEQ 0x000217e4
000217de 53 83 |S |SUBQ.L #0x1,D3
000217e0 28 83 |( |MOVE.L D3,(A4)
000217e2 60 12 |` |BRA 0x000217f6
000217e4 42 81 |B |CLR.L D1
000217e6 12 39 00 02 1c a4 | 9 |MOVE.B 0x00021ca4,D1
000217ec 53 41 |SA |SUBQ.W #0x1,D1
000217ee 48 c1 |H |EXTW.L D1
000217f0 28 81 |( |MOVE.L D1,(A4)
000217f2 53 80 |S |SUBQ.L #0x1,D0
000217f4 26 80 |& |MOVE.L D0,(A3)
000217f6 2f 13 |/ |MOVE.L (A3),-(A7)
000217f8 2f 14 |/ |MOVE.L (A4),-(A7)
000217fa 2f 12 |/ |MOVE.L (A2),-(A7)
000217fc 41 ee ff f4 |A |LEA.L (A6-0xc),A0
00021800 70 0a |p |MOVEQ.L #0x0a,D0
00021802 3f 20 |? |MOVE.W -(A0),-(A7)
00021804 51 c8 ff fc |Q |DBF D0,0x00021802
00021808 1f 2e 00 08 | . |MOVE.B (A6+0x8),-(A7)
0002180c 4e ba fc 5a |N Z |JSR 0x00021468
00021810 de fc 00 24 | $ |ADDA.W #0x00000024,A7
00021814 52 92 |R |ADDQ.L #0x1,(A2)
00021816 20 12 | |MOVE.L (A2),D0
00021818 02 80 00 00 00 01 | |ANDI.L #0x00000001,D0
0002181e 67 02 |g |BEQ 0x00021822
00021820 52 92 |R |ADDQ.L #0x1,(A2)
00021822 48 53 |HS |PEA.L (A3)
00021824 48 54 |HT |PEA.L (A4)
00021826 48 52 |HR |PEA.L (A2)
00021828 48 6e ff f6 |Hn |PEA.L (A6-0xa)
0002182c 48 6e ff dc |Hn |PEA.L (A6-0x24)
00021830 4e ba fd 4c |N L |JSR 0x0002157e
00021834 de fc 00 14 | |ADDA.W #0x00000014,A7
00021838 4a 2e ff dc |J. |TST.B (A6-0x24)
0002183c 67 00 fe 68 |g h |BEQ 0x000216a6
00021840 4c df 1f ff |L |MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021844 4e 5e |N^ |UNLK A6
00021846 4e 75 |Nu |RTS
00021848 ; --------------------------------------------------------------------------------------
00021848 ; OMSI PASCAL Function
00021848 ; --------------------------------------------------------------------------------------
00021848 4e 56 ff 8c |NV |LINK.W A6,#0xff8c
0002184c bf d5 | |CMPA.L (A5),A7
0002184e 62 06 |b |BHI 0x00021856
00021850 44 fc 00 02 |D |MOVE.W #0x00000002,CCR
00021854 4e 76 |Nv |TRAPV
00021856 de fc 00 68 | h |ADDA.W #0x00000068,A7
0002185a 48 e7 e7 e0 |H |MOVEM.L A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
0002185e 45 f9 00 01 02 c4 |E |LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021864 72 01 |r |MOVEQ.L #0x01,D1
00021866 74 0c |t |MOVEQ.L #0x0c,D2
00021868 41 fa ed 58 |A X |LEA.L 0x000205c2,A0
0002186c 70 0b |p |MOVEQ.L #0x0b,D0
0002186e 2f 20 |/ |MOVE.L -(A0),-(A7)
00021870 51 c8 ff fc |Q |DBF D0,0x0002186e
00021874 51 4f |QO |SUBQ.L #0x8,A7
00021876 48 6f 00 08 |Ho |PEA.L (A7+0x8)
0002187a 3f 01 |? |MOVE.W D1,-(A7)
0002187c 3f 3c 00 30 |?< 0 |MOVE.W #0x00000030,-(A7)
00021880 4e 92 |N |JSR (A2)
00021882 50 4f |PO |ADDQ.L #0x8,A7
00021884 48 78 00 01 |Hx |PEA.L 0x00000001
00021888 2f 3c 7f ff ff ff |/< |MOVE.L #0x7fffffff,-(A7)
0002188e 4e b9 00 01 03 ec |N |JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00021894 de c2 | |ADDA.W D2,A7
00021896 2c 1f |, |MOVE.L (A7)+,D6
00021898 55 4f |UO |SUBQ.L #0x2,A7
0002189a 20 4f | O |MOVEA.L A7,A0
0002189c 43 fa ed 24 |C $ |LEA.L 0x000205c2,A1
000218a0 70 30 |p0 |MOVEQ.L #0x30,D0
000218a2 10 d9 | |MOVE.B (A1)+,(A0)+
000218a4 51 c8 ff fc |Q |DBF D0,0x000218a2
000218a8 5d 4f |]O |SUBQ.L #0x6,A7
000218aa 48 6f 00 06 |Ho |PEA.L (A7+0x6)
000218ae 3f 01 |? |MOVE.W D1,-(A7)
000218b0 3f 3c 00 31 |?< 1 |MOVE.W #0x00000031,-(A7)
000218b4 4e 92 |N |JSR (A2)
000218b6 5c 4f |\O |ADDQ.L #0x6,A7
000218b8 42 17 |B |CLR.B (A7)
000218ba 4e b9 00 01 03 f0 |N |JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
000218c0 5c 4f |\O |ADDQ.L #0x6,A7
000218c2 10 1f | |MOVE.B (A7)+,D0
000218c4 48 80 |H |EXTB.W D0
000218c6 41 81 |A |CHK.W D1,D0
000218c8 de fc 00 32 | 2 |ADDA.W #0x00000032,A7
000218cc 1a 00 | |MOVE.B D0,D5
000218ce 2f 06 |/ |MOVE.L D6,-(A7)
000218d0 7e 01 |~ |MOVEQ.L #0x01,D7
000218d2 be 97 | |CMP.L (A7),D7
000218d4 6e 5c |n\ |BGT 0x00021932
000218d6 1f 05 | |MOVE.B D5,-(A7)
000218d8 4e ba fd 72 |N r |JSR 0x0002164c
000218dc 59 4f |YO |SUBQ.L #0x4,A7
000218de 20 4f | O |MOVEA.L A7,A0
000218e0 43 fa ed 12 |C |LEA.L 0x000205f4,A1
000218e4 70 04 |p |MOVEQ.L #0x04,D0
000218e6 10 d9 | |MOVE.B (A1)+,(A0)+
000218e8 51 c8 ff fc |Q |DBF D0,0x000218e6
000218ec 41 fa ed 16 |A |LEA.L 0x00020604,A0
000218f0 70 04 |p |MOVEQ.L #0x04,D0
000218f2 3f 20 |? |MOVE.W -(A0),-(A7)
000218f4 51 c8 ff fc |Q |DBF D0,0x000218f2
000218f8 51 4f |QO |SUBQ.L #0x8,A7
000218fa 48 6f 00 12 |Ho |PEA.L (A7+0x12)
000218fe 3f 01 |? |MOVE.W D1,-(A7)
00021900 3f 3c 00 05 |?< |MOVE.W #0x00000005,-(A7)
00021904 4e 92 |N |JSR (A2)
00021906 2e 87 |. |MOVE.L D7,(A7)
00021908 4e b9 00 01 02 e4 |N |JSR Long2String(a : Long) : String
0002190e 48 6f 00 10 |Ho |PEA.L (A7+0x10)
00021912 3f 01 |? |MOVE.W D1,-(A7)
00021914 3f 3c 00 0a |?< |MOVE.W #0x0000000a,-(A7)
00021918 4e 92 |N |JSR (A2)
0002191a 50 4f |PO |ADDQ.L #0x8,A7
0002191c 4e b9 00 01 02 d4 |N |JSR StringCat3(a, b, c : String) : String
00021922 de c2 | |ADDA.W D2,A7
00021924 4e b9 00 01 03 e0 |N |JSR WriteConsoleStringCrLf(str : String)
0002192a de fc 00 14 | |ADDA.W #0x00000014,A7
0002192e 52 87 |R |ADDQ.L #0x1,D7
00021930 68 a0 |h |BVC 0x000218d2
00021932 58 4f |XO |ADDQ.L #0x4,A7
00021934 4c df 07 e7 |L |MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2
00021938 4e 5e |N^ |UNLK A6
0002193a 4e 75 |Nu |RTS
0002193c ; --------------------------------------------------------------------------------------
0002193c ; OMSI PASCAL Function
0002193c ; <LVAR -0x002 @>
0002193c ; <LVAR -0x004 @ 1(r)>
0002193c ; --------------------------------------------------------------------------------------
0002193c 4e 56 ff ba |NV |LINK.W A6,#0xffba
00021940 bf d5 | |CMPA.L (A5),A7
00021942 62 06 |b |BHI 0x0002194a
00021944 44 fc 00 02 |D |MOVE.W #0x00000002,CCR
00021948 4e 76 |Nv |TRAPV
0002194a de fc 00 42 | B |ADDA.W #0x00000042,A7
0002194e 48 e7 80 80 |H |MOVEM.L A0+D0,-(A7)
00021952 48 6e ff fc |Hn |PEA.L (A6-0x4)
00021956 48 6e ff fe |Hn |PEA.L (A6-0x2)
0002195a 4e b9 00 01 02 00 |N |JSR KC00_GetBootDev(VAR a : Byte; VAR b : Word)
00021960 50 4f |PO |ADDQ.L #0x8,A7
00021962 10 2e ff fc | . |MOVE.B (A6-0x4),D0
00021966 0c 00 00 02 | |CMPI.B #0x02,D0
0002196a 67 2e |g. |BEQ 0x0002199a
0002196c 41 fa ec c0 |A |LEA.L 0x0002062e,A0
00021970 70 14 |p |MOVEQ.L #0x14,D0
00021972 3f 20 |? |MOVE.W -(A0),-(A7)
00021974 51 c8 ff fc |Q |DBF D0,0x00021972
00021978 59 4f |YO |SUBQ.L #0x4,A7
0002197a 48 6f 00 04 |Ho |PEA.L (A7+0x4)
0002197e 3f 3c 00 01 |?< |MOVE.W #0x00000001,-(A7)
00021982 3f 3c 00 2a |?< * |MOVE.W #0x0000002a,-(A7)
00021986 4e b9 00 01 02 c4 |N |JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002198c 50 4f |PO |ADDQ.L #0x8,A7
0002198e 4e b9 00 01 03 e0 |N |JSR WriteConsoleStringCrLf(str : String)
00021994 de fc 00 2e | . |ADDA.W #0x0000002e,A7
00021998 60 fe |` |BRA 0x00021998
0002199a 4e b9 00 01 03 98 |N |JSR FSCALL_10398
000219a0 42 27 |B' |CLR.B -(A7)
000219a2 48 78 00 01 |Hx |PEA.L 0x00000001
000219a6 4e b9 00 01 03 b8 |N |JSR PopProgram(status : Byte; msg : String)
000219ac 5c 4f |\O |ADDQ.L #0x6,A7
000219ae 4c df 01 01 |L |MOVEM.L (A7)+,D0+A0
000219b2 4e 5e |N^ |UNLK A6
000219b4 4e 75 |Nu |RTS
000219b6 ; --------------------------------------------------------------------------------------
000219b6 ; OMSI PASCAL Function
000219b6 ; --------------------------------------------------------------------------------------
000219b6START:
000219b6 4f fa 00 08 |O |LEA.L MAIN,A7
000219ba 4e f9 00 01 02 80 |N |JMP ?start_program
000219c0MAIN:
000219c0 4e b9 00 01 04 00 |N |JSR FSCALL_10400
000219c6 42 27 |B' |CLR.B -(A7)
000219c8 4e b9 00 01 04 04 |N |JSR SetSomeKindOfFlag(a : Byte)
000219ce 54 4f |TO |ADDQ.L #0x2,A7
000219d0 41 f9 00 02 1c ae |A |LEA.L 0x00021cae,A0
000219d6 23 c8 00 02 1c a6 |# |MOVE.L A0,0x00021ca6
000219dc 2f 08 |/ |MOVE.L A0,-(A7)
000219de 23 df 00 02 1c aa |# |MOVE.L (A7)+,0x00021caa
000219e4 23 fc 00 00 00 01 00 02 |# |MOVE.L #0x00000001,0x00020020
000219ec 00 20 | |
000219ee 23 fc 00 00 00 01 00 01 |# |MOVE.L #0x00000001,0x00010026
000219f6 00 26 | & |
000219f8 42 27 |B' |CLR.B -(A7)
000219fa 4e b9 00 01 03 ac |N |JSR Set_is_open_ERROR_LOG(a : Bool)
00021a00 54 4f |TO |ADDQ.L #0x2,A7
00021a02 4e ba ed 08 |N |JSR 0x0002070c
00021a06 4e ba ef 1c |N |JSR 0x00020924
00021a0a 4e ba fe 3c |N < |JSR 0x00021848
00021a0e 48 79 00 02 1c 9a |Hy |PEA.L 0x00021c9a
00021a14 4e b9 00 01 02 bc |N |JSR FreeString(VAR a : String)
00021a1a 55 4f |UO |SUBQ.L #0x2,A7
00021a1c 20 4f | O |MOVEA.L A7,A0
00021a1e 43 fa ec 0e |C |LEA.L 0x0002062e,A1
00021a22 70 04 |p |MOVEQ.L #0x04,D0
00021a24 10 d9 | |MOVE.B (A1)+,(A0)+
00021a26 51 c8 ff fc |Q |DBF D0,0x00021a24
00021a2a 59 4f |YO |SUBQ.L #0x4,A7
00021a2c 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00021a30 3f 3c 00 01 |?< |MOVE.W #0x00000001,-(A7)
00021a34 3f 3c 00 05 |?< |MOVE.W #0x00000005,-(A7)
00021a38 4e b9 00 01 02 c4 |N |JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a3e 50 4f |PO |ADDQ.L #0x8,A7
00021a40 4e b9 00 01 03 e0 |N |JSR WriteConsoleStringCrLf(str : String)
00021a46 de fc 00 0a | |ADDA.W #0x0000000a,A7
00021a4a 41 fa eb fa |A |LEA.L 0x00020646,A0
00021a4e 70 08 |p |MOVEQ.L #0x08,D0
00021a50 3f 20 |? |MOVE.W -(A0),-(A7)
00021a52 51 c8 ff fc |Q |DBF D0,0x00021a50
00021a56 5d 4f |]O |SUBQ.L #0x6,A7
00021a58 48 6f 00 06 |Ho |PEA.L (A7+0x6)
00021a5c 3f 3c 00 01 |?< |MOVE.W #0x00000001,-(A7)
00021a60 3f 3c 00 12 |?< |MOVE.W #0x00000012,-(A7)
00021a64 4e b9 00 01 02 c4 |N |JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a6a 5c 4f |\O |ADDQ.L #0x6,A7
00021a6c 42 17 |B |CLR.B (A7)
00021a6e 4e b9 00 01 03 f0 |N |JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00021a74 5c 4f |\O |ADDQ.L #0x6,A7
00021a76 4a 1f |J |TST.B (A7)+
00021a78 66 04 |f |BNE 0x00021a7e
00021a7a 4e ba fe c0 |N |JSR 0x0002193c
00021a7e de fc 00 12 | |ADDA.W #0x00000012,A7
00021a82 60 00 ff 60 |` ` |BRA 0x000219e4
00021a86 4e b9 |N |.XXX[0x2]
00021a88 00 01 02 84 | |.XXX[0x4]
00021a8c 57 6f 72 64 73 20 65 72 |Words er|.TXT 'Words error :_'
00021a9a ; --------------------------------------------------------------------------------------
00021a9a ; OMSI PASCAL Function
00021a9a ; <LVAR 0x008 1(r)>
00021a9a ; --------------------------------------------------------------------------------------
00021a9aPROG_FAIL:
00021a9a 4e 56 ff d2 |NV |LINK.W A6,#0xffd2
00021a9e bf d5 | |CMPA.L (A5),A7
00021aa0 62 06 |b |BHI 0x00021aa8
00021aa2 44 fc 00 02 |D |MOVE.W #0x00000002,CCR
00021aa6 4e 76 |Nv |TRAPV
00021aa8 de fc 00 2c | , |ADDA.W #0x0000002c,A7
00021aac 48 e7 80 80 |H |MOVEM.L A0+D0,-(A7)
00021ab0 41 fa ff e8 |A |LEA.L PROG_FAIL,A0
00021ab4 70 06 |p |MOVEQ.L #0x06,D0
00021ab6 3f 20 |? |MOVE.W -(A0),-(A7)
00021ab8 51 c8 ff fc |Q |DBF D0,0x00021ab6
00021abc 1f 3c 00 03 | < |MOVE.B #0x03,-(A7)
00021ac0 51 4f |QO |SUBQ.L #0x8,A7
00021ac2 48 6f 00 0a |Ho |PEA.L (A7+0xa)
00021ac6 3f 3c 00 01 |?< |MOVE.W #0x00000001,-(A7)
00021aca 3f 3c 00 0e |?< |MOVE.W #0x0000000e,-(A7)
00021ace 4e b9 00 01 02 c4 |N |JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021ad4 58 4f |XO |ADDQ.L #0x4,A7
00021ad6 10 2e 00 08 | . |MOVE.B (A6+0x8),D0
00021ada 48 80 |H |EXTB.W D0
00021adc 48 c0 |H |EXTW.L D0
00021ade 2f 00 |/ |MOVE.L D0,-(A7)
00021ae0 4e b9 00 01 02 e4 |N |JSR Long2String(a : Long) : String
00021ae6 58 4f |XO |ADDQ.L #0x4,A7
00021ae8 4e b9 00 01 02 d0 |N |JSR StringCat2(a, b : String) : String
00021aee 50 4f |PO |ADDQ.L #0x8,A7
00021af0 4e b9 00 01 03 b8 |N |JSR PopProgram(status : Byte; msg : String)
00021af6 de fc 00 14 | |ADDA.W #0x00000014,A7
00021afa 4c df 01 01 |L |MOVEM.L (A7)+,D0+A0
00021afe 4e 5e |N^ |UNLK A6
00021b00 4e 75 |Nu |RTS
00021b02 42 6f 61 72 64 20 20 20 |Board |.TXT 'Board :_ '
00021b10 45 78 70 65 72 69 6d 65 |Experime|.TXT 'Experiment :_ '
00021b1e 53 74 61 74 75 73 20 20 |Status |.TXT 'Status :_ '
00021b2c 45 78 70 65 72 69 6d 65 |Experime|.TXT 'Experiment error :'
00021b3e 46 61 74 61 6c 20 65 78 |Fatal ex|.TXT 'Fatal experiment error. '
00021b56 ; --------------------------------------------------------------------------------------
00021b56 ; OMSI PASCAL Function
00021b56 ; <LVAR 0x00e 1(r)>
00021b56 ; <LVAR 0x00a 4(r)>
00021b56 ; <LVAR 0x008 1(r)>
00021b56 ; --------------------------------------------------------------------------------------
00021b56EXP_FAIL:
00021b56 4e 56 ff 8c |NV |LINK.W A6,#0xff8c
00021b5a bf d5 | |CMPA.L (A5),A7
00021b5c 62 06 |b |BHI 0x00021b64
00021b5e 44 fc 00 02 |D |MOVE.W #0x00000002,CCR
00021b62 4e 76 |Nv |TRAPV
00021b64 de fc 00 74 | t |ADDA.W #0x00000074,A7
00021b68 48 e7 fc f8 |H |MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00021b6c 47 f9 00 01 02 c4 |G |LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00021b72 49 f9 00 01 03 e0 |I |LEA.L WriteConsoleStringCrLf(str : String),A4
00021b78 72 01 |r |MOVEQ.L #0x01,D1
00021b7a 74 0d |t |MOVEQ.L #0x0d,D2
00021b7c 76 1e |v |MOVEQ.L #0x1e,D3
00021b7e 78 12 |x |MOVEQ.L #0x12,D4
00021b80 7a 0e |z |MOVEQ.L #0x0e,D5
00021b82 4e b9 00 01 03 dc |N |JSR WriteConsoleCrLf(void)
00021b88 41 fa ff b4 |A |LEA.L 0x00021b3e,A0
00021b8c 70 08 |p |MOVEQ.L #0x08,D0
00021b8e 3f 20 |? |MOVE.W -(A0),-(A7)
00021b90 51 c8 ff fc |Q |DBF D0,0x00021b8e
00021b94 59 4f |YO |SUBQ.L #0x4,A7
00021b96 48 6f 00 04 |Ho |PEA.L (A7+0x4)
00021b9a 3f 01 |? |MOVE.W D1,-(A7)
00021b9c 3f 04 |? |MOVE.W D4,-(A7)
00021b9e 4e 93 |N |JSR (A3)
00021ba0 50 4f |PO |ADDQ.L #0x8,A7
00021ba2 4e 94 |N |JSR (A4)
00021ba4 50 4f |PO |ADDQ.L #0x8,A7
00021ba6 20 4f | O |MOVEA.L A7,A0
00021ba8 43 fa ff 58 |C X |LEA.L 0x00021b02,A1
00021bac 70 0c |p |MOVEQ.L #0x0c,D0
00021bae 10 d9 | |MOVE.B (A1)+,(A0)+
00021bb0 51 c8 ff fc |Q |DBF D0,0x00021bae
00021bb4 51 4f |QO |SUBQ.L #0x8,A7
00021bb6 48 6f 00 08 |Ho |PEA.L (A7+0x8)
00021bba 3f 01 |? |MOVE.W D1,-(A7)
00021bbc 3f 02 |? |MOVE.W D2,-(A7)
00021bbe 4e 93 |N |JSR (A3)
00021bc0 54 4f |TO |ADDQ.L #0x2,A7
00021bc2 1e ae 00 0e | |MOVE.B (A6+0xe),(A7)
00021bc6 4e b9 00 01 04 9c |N |JSR BoardName(address : B) : String
00021bcc 54 4f |TO |ADDQ.L #0x2,A7
00021bce 4e b9 00 01 02 d0 |N |JSR StringCat2(a, b : String) : String
00021bd4 50 4f |PO |ADDQ.L #0x8,A7
00021bd6 4e 94 |N |JSR (A4)
00021bd8 de c4 | |ADDA.W D4,A7
00021bda 20 6e 00 0a | n |MOVEA.L (A6+0xa),A0
00021bde b0 c1 | |CMPA.W D1,A0
00021be0 67 48 |gH |BEQ 0x00021c2a
00021be2 9e c5 | |SUBA.W D5,A7
00021be4 22 4f |"O |MOVEA.L A7,A1
00021be6 45 fa ff 28 |E ( |LEA.L 0x00021b10,A2
00021bea 70 0c |p |MOVEQ.L #0x0c,D0
00021bec 12 da | |MOVE.B (A2)+,(A1)+
00021bee 51 c8 ff fc |Q |DBF D0,0x00021bec
00021bf2 9e c3 | |SUBA.W D3,A7
00021bf4 22 4f |"O |MOVEA.L A7,A1
00021bf6 41 e8 00 fc |A |LEA.L (A0+0xfc),A0
00021bfa 70 1d |p |MOVEQ.L #0x1d,D0
00021bfc 12 d8 | |MOVE.B (A0)+,(A1)+
00021bfe 51 c8 ff fc |Q |DBF D0,0x00021bfc
00021c02 51 4f |QO |SUBQ.L #0x8,A7
00021c04 48 6f 00 26 |Ho & |PEA.L (A7+0x26)
00021c08 3f 01 |? |MOVE.W D1,-(A7)
00021c0a 3f 02 |? |MOVE.W D2,-(A7)
00021c0c 4e 93 |N |JSR (A3)
00021c0e 58 4f |XO |ADDQ.L #0x4,A7
00021c10 48 6f 00 0c |Ho |PEA.L (A7+0xc)
00021c14 3f 01 |? |MOVE.W D1,-(A7)
00021c16 3f 03 |? |MOVE.W D3,-(A7)
00021c18 4e 93 |N |JSR (A3)
00021c1a 50 4f |PO |ADDQ.L #0x8,A7
00021c1c 4e b9 00 01 02 d0 |N |JSR StringCat2(a, b : String) : String
00021c22 50 4f |PO |ADDQ.L #0x8,A7
00021c24 4e 94 |N |JSR (A4)
00021c26 de fc 00 30 | 0 |ADDA.W #0x00000030,A7
00021c2a 9e c5 | |SUBA.W D5,A7
00021c2c 20 4f | O |MOVEA.L A7,A0
00021c2e 43 fa fe ee |C |LEA.L 0x00021b1e,A1
00021c32 70 0c |p |MOVEQ.L #0x0c,D0
00021c34 10 d9 | |MOVE.B (A1)+,(A0)+
00021c36 51 c8 ff fc |Q |DBF D0,0x00021c34
00021c3a 51 4f |QO |SUBQ.L #0x8,A7
00021c3c 48 6f 00 08 |Ho |PEA.L (A7+0x8)
00021c40 3f 01 |? |MOVE.W D1,-(A7)
00021c42 3f 02 |? |MOVE.W D2,-(A7)
00021c44 4e 93 |N |JSR (A3)
00021c46 54 4f |TO |ADDQ.L #0x2,A7
00021c48 1e ae 00 08 | |MOVE.B (A6+0x8),(A7)
00021c4c 4e b9 00 01 04 a2 |N |JSR ExpStatus2Text(status.B, &String)
00021c52 54 4f |TO |ADDQ.L #0x2,A7
00021c54 4e b9 00 01 02 d0 |N |JSR StringCat2(a, b : String) : String
00021c5a 50 4f |PO |ADDQ.L #0x8,A7
00021c5c 4e 94 |N |JSR (A4)
00021c5e 5d 4f |]O |SUBQ.L #0x6,A7
00021c60 20 4f | O |MOVEA.L A7,A0
00021c62 43 fa fe da |C |LEA.L 0x00021b3e,A1
00021c66 70 16 |p |MOVEQ.L #0x16,D0
00021c68 10 d9 | |MOVE.B (A1)+,(A0)+
00021c6a 51 c8 ff fc |Q |DBF D0,0x00021c68
00021c6e 1f 3c 00 02 | < |MOVE.B #0x02,-(A7)
00021c72 59 4f |YO |SUBQ.L #0x4,A7
00021c74 48 6f 00 06 |Ho |PEA.L (A7+0x6)
00021c78 3f 01 |? |MOVE.W D1,-(A7)
00021c7a 3f 3c 00 17 |?< |MOVE.W #0x00000017,-(A7)
00021c7e 4e 93 |N |JSR (A3)
00021c80 50 4f |PO |ADDQ.L #0x8,A7
00021c82 4e b9 00 01 03 b8 |N |JSR PopProgram(status : Byte; msg : String)
00021c88 de c3 | |ADDA.W D3,A7
00021c8a 4c df 1f 3f |L ? |MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00021c8e 4e 5e |N^ |UNLK A6
00021c90 4e 75 |Nu |RTS
PyReveng3/R1000.Disassembly disass_dfs.py /tmp/_aa_r1k_dfs/r1k_dfs/06/065a5e0a3.tmp.0.28121 /tmp/_aa_r1k_dfs/r1k_dfs/06/065a5e0a3.tmp.1.28122
IDENT /tmp/_aa_r1k_dfs/r1k_dfs/06/065a5e0a3.tmp.0.28121 0x20000 program a3257d8344e5f293
No Memory m68020 0x00040000 None ('0x40000:Unmapped memory @0x40000',)
No Memory m68020 FSCALL_10288 None ('0x10288:Unmapped memory @0x10288',)
MMM 0x0 0x100000000 <MemMapper Memory 0x0-0x100000000>
PFX /tmp/_aa_r1k_dfs/r1k_dfs/06/065a5e0a3.tmp