|
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: 7680 (0x1e00)
Types: M200
Notes: @(#)CHECKDISK,1.1,92/07/09,12:00:00, M200_PROGRAM
Names: »CHECKDISK.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦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 ; --------------------------------------------------------------------------------------
00020000 stack.top:
00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END
00020004 00 02 19 b6 | | .CODE START
00020008 00 01 02 88 | | .CODE FSCALL_10288
0002000c heap.top:
0002000c 00 02 80 be | | .PTR 0x280be
00020010 code.end:
00020010 00 02 1c 92 | | .PTR 0x21c92
00020014 00 00 00 00 | | .CONST 0x00000000
00020018 programfailurehandler:
00020018 00 02 1a 9a | | .CODE PROG_FAIL
0002001c experimentfailurehandler:
0002001c 00 02 1b 56 | V | .CODE EXP_FAIL
00020020 00 00 00 00 | | .CONST 0x00000000
00020024 exp_init_done:
00020024 00 | | .CONST 0x00
00020025 00 | | .CONST 0x00
00020026 00 00 | | .CONST 0x0000
00020028 00 00 | | .CONST 0x0000
0002002a 00 00 | | .XXX[0x2]
0002002c 00 00 | | .CONST 0x0000
0002002e 00 00 | | .CONST 0x0000
00020030 00 00 | | .CONST 0x0000
00020032 00 00 00 00 00 00 | | .XXX[0x6]
00020038 00 00 00 00 00 00 00 00 | | .BLANK 00[0xb0]
000200e8 00 00 00 00 | | .XXX[0x4]
000200ec 00 00 00 00 | | .PTR 0x0
000200f0 is_open_ERROR_LOG:
000200f0 00 | | .CONST 0x0
000200f1 write_error_ERROR_LOG:
000200f1 00 | | .CONST 0x0
000200f2 00 00 00 00 | | .CONST 0x00000000
000200f6 00 00 00 00 | | .CONST 0x00000000
000200fa 00 | | .CONST 0x00
000200fb 00 | | .CONST 0x00
000200fc file_ERROR_LOG:
000200fc 00 00 00 00 | | .CONST 0x00000000
00020100 00 00 00 00 | | .CONST 0x00000000
00020104 00 00 | | .CONST 0x0000
00020106 00 00 | | .CONST 0x0000
00020108 somekindoffsflag:
00020108 00 | | .CONST 0x00
00020109 00 | | .CONST 0x00
0002010a 40 28 23 29 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 0x20682
0002067c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020680 4e 76 |Nv | TRAPV
00020682 de fc 00 10 | | ADDA.W #0x10,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 #0x1,A0
00020692 67 0a |g | BEQ 0x2069e
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 #0x0,A6
000206a6 4e f9 00 02 19 e4 |N | JMP 0x219e4
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 0x206c2
000206bc 44 fc 00 02 |D | MOVE.W #0x2,CCR
000206c0 4e 76 |Nv | TRAPV
000206c2 de fc 00 30 | 0 | ADDA.W #0x30,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 0x206dc
000206da 4e 4f |NO | TRAP #15
000206dc 41 f9 00 02 1c ae |A | LEA.L 0x21cae,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 0x206f0
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 0x206ce
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 0x2071a
00020714 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020718 4e 76 |Nv | TRAPV
0002071a de fc 00 6e | n | ADDA.W #0x6e,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 0x21c9e,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 0x2012e,A1
00020748 70 24 |p$ | MOVEQ.L #0x24,D0
0002074a 10 d9 | | MOVE.B (A1)+,(A0)+
0002074c 51 c8 ff fc |Q | DBF D0,0x2074a
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 #0x25,-(A7)
0002075c 4e 92 |N | JSR (A2)
0002075e 50 4f |PO | ADDQ.L #0x8,A7
00020760 48 78 00 00 |Hx | PEA.L 0x0
00020764 48 78 00 0f |Hx | PEA.L 0xf
00020768 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
0002076e de fc 00 0c | | ADDA.W #0xc,A7
00020772 20 1f | | MOVE.L (A7)+,D0
00020774 0c 80 00 00 00 0f | | CMPI.L #0x0000000f,D0
0002077a 63 02 |c | BLS 0x2077e
0002077c 4e 4f |NO | TRAP #15
0002077e de c3 | | ADDA.W D3,A7
00020780 33 c0 00 02 1c a0 |3 | MOVE.W D0,0x21ca0
00020786 33 c0 00 01 00 08 |3 | MOVE.W D0,0x10008
0002078c 33 fc 7f ff 00 01 00 0c |3 | MOVE.W #0x7fff,0x1000c
00020794 33 fc 7f ff 00 01 00 0a |3 | MOVE.W #0x7fff,0x1000a
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 0x1
000207a6 2f 39 00 02 1c aa |/9 | MOVE.L 0x21caa,-(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 #0x10,A7
000207ba 4a 2e ff fc |J. | TST.B (A6-0x4)
000207be 66 2c |f, | BNE 0x207ec
000207c0 9e fc 00 2a | * | SUBA.W #0x2a,A7
000207c4 20 4f | O | MOVEA.L A7,A0
000207c6 43 fa f9 8c |C | LEA.L 0x20154,A1
000207ca 70 28 |p( | MOVEQ.L #0x28,D0
000207cc 10 d9 | | MOVE.B (A1)+,(A0)+
000207ce 51 c8 ff fc |Q | DBF D0,0x207cc
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 #0x29,-(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 #0x2e,A7
000207e8 60 00 00 e0 |` | BRA 0x208ca
000207ec 30 39 00 02 1c b0 |09 | MOVE.W 0x21cb0,D0
000207f2 0c 40 7f ed | @ | CMPI.W #0x7fed,D0
000207f6 67 26 |g& | BEQ 0x2081e
000207f8 9e c5 | | SUBA.W D5,A7
000207fa 20 4f | O | MOVEA.L A7,A0
000207fc 43 fa f9 80 |C | LEA.L 0x2017e,A1
00020800 70 12 |p | MOVEQ.L #0x12,D0
00020802 10 d9 | | MOVE.B (A1)+,(A0)+
00020804 51 c8 ff fc |Q | DBF D0,0x20802
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 0x208ca
0002081e 30 39 00 02 1c b2 |09 | MOVE.W 0x21cb2,D0
00020824 0c 40 00 03 | @ | CMPI.W #0x0003,D0
00020828 67 2a |g* | BEQ 0x20854
0002082a 9e fc 00 1a | | SUBA.W #0x1a,A7
0002082e 20 4f | O | MOVEA.L A7,A0
00020830 43 fa f9 60 |C ` | LEA.L 0x20192,A1
00020834 70 18 |p | MOVEQ.L #0x18,D0
00020836 10 d9 | | MOVE.B (A1)+,(A0)+
00020838 51 c8 ff fc |Q | DBF D0,0x20836
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 #0x19,-(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 #0x1e,A7
00020852 60 76 |`v | BRA 0x208ca
00020854 23 f9 00 02 1c b6 00 02 |# | MOVE.L 0x21cb6,0x21ca2
0002085c 1c a2 | |
0002085e 4e ba fe 54 |N T | JSR 0x206b4
00020862 41 f9 00 02 1d 02 |A | LEA.L 0x21d02,A0
00020868 70 0e |p | MOVEQ.L #0x0e,D0
0002086a 3f 20 |? | MOVE.W -(A0),-(A7)
0002086c 51 c8 ff fc |Q | DBF D0,0x2086a
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 #0x1e,-(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)+,0x21c9a
0002088e de fc 00 1c | | ADDA.W #0x1c,A7
00020892 3e ba f9 1c |> | MOVE.W 0x201b0,(A7)
00020896 3f 3a f9 16 |?: | MOVE.W 0x201ae,-(A7)
0002089a 3f 3a f9 10 |?: | MOVE.W 0x201ac,-(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 #0x6,-(A7)
000208aa 4e 92 |N | JSR (A2)
000208ac 2e b9 00 02 1c 9a |. | MOVE.L 0x21c9a,(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 #0xa,A7
000208c8 16 82 | | MOVE.B D2,(A3)
000208ca 4a 13 |J | TST.B (A3)
000208cc 66 24 |f$ | BNE 0x208f2
000208ce 9e c5 | | SUBA.W D5,A7
000208d0 20 4f | O | MOVEA.L A7,A0
000208d2 43 fa f8 aa |C | LEA.L 0x2017e,A1
000208d6 70 12 |p | MOVEQ.L #0x12,D0
000208d8 10 d9 | | MOVE.B (A1)+,(A0)+
000208da 51 c8 ff fc |Q | DBF D0,0x208d8
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 0x20674
000208f0 de c7 | | ADDA.W D7,A7
000208f2 42 80 |B | CLR.L D0
000208f4 10 39 00 02 1c a5 | 9 | MOVE.B 0x21ca5,D0
000208fa e2 40 | @ | ASR.W #0x1,D0
000208fc 33 c0 00 01 00 0a |3 | MOVE.W D0,0x1000a
00020902 42 81 |B | CLR.L D1
00020904 12 39 00 02 1c a4 | 9 | MOVE.B 0x21ca4,D1
0002090a c2 c0 | | MULU.W D0,D1
0002090c 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1
00020912 63 02 |c | BLS 0x20916
00020914 4e 4f |NO | TRAP #15
00020916 33 c1 00 01 00 0c |3 | MOVE.W D1,0x1000c
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 0x20932
0002092c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020930 4e 76 |Nv | TRAPV
00020932 de fc 00 7e | ~ | ADDA.W #0x7e,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 0x21c92,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 0x20950
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 0x20946
00020972 42 80 |B | CLR.L D0
00020974 10 39 00 02 1c bc | 9 | MOVE.B 0x21cbc,D0
0002097a 42 81 |B | CLR.L D1
0002097c 12 39 00 02 1c a5 | 9 | MOVE.B 0x21ca5,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 0x21cbd,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 0x21cc0,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 0x21cc1,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 0x209d0
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 0x1
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 #0x10,A7
000209fa 4a 12 |J | TST.B (A2)
000209fc 66 00 00 8a |f | BNE 0x20a88
00020a00 41 fa f8 24 |A $ | LEA.L 0x20226,A0
00020a04 70 1c |p | MOVEQ.L #0x1c,D0
00020a06 3f 20 |? | MOVE.W -(A0),-(A7)
00020a08 51 c8 ff fc |Q | DBF D0,0x20a06
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 #0x1,-(A7)
00020a16 3f 3c 00 3a |?< : | MOVE.W #0x3a,-(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 #0x3c,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 0x20a40
00020a3e 4e 4f |NO | TRAP #15
00020a40 3f 00 |? | MOVE.W D0,-(A7)
00020a42 48 78 00 01 |Hx | PEA.L 0x1
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 #0x10,A7
00020a54 4a 12 |J | TST.B (A2)
00020a56 66 30 |f0 | BNE 0x20a88
00020a58 9e fc 00 3a | : | SUBA.W #0x3a,A7
00020a5c 20 4f | O | MOVEA.L A7,A0
00020a5e 43 fa f7 52 |C R | LEA.L 0x201b2,A1
00020a62 70 38 |p8 | MOVEQ.L #0x38,D0
00020a64 10 d9 | | MOVE.B (A1)+,(A0)+
00020a66 51 c8 ff fc |Q | DBF D0,0x20a64
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 #0x1,-(A7)
00020a74 3f 3c 00 39 |?< 9 | MOVE.W #0x39,-(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 0x20674
00020a84 de fc 00 3e | > | ADDA.W #0x3e,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 0x20a9e
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 0x209c6
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 0x20abe
00020ab8 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020abc 4e 76 |Nv | TRAPV
00020abe de fc 00 32 | 2 | ADDA.W #0x32,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 0x20ae6
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 0x20b38
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 0x20b2c
00020afc 3f 3a f9 fa |?: | MOVE.W 0x204f8,-(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 #0x1,-(A7)
00020b0e 3f 3c 00 02 |?< | MOVE.W #0x2,-(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 #0xc,A7
00020b26 22 9f |" | MOVE.L (A7)+,(A1)
00020b28 54 4f |TO | ADDQ.L #0x2,A7
00020b2a 60 0c |` | BRA 0x20b38
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 0x20b4e
00020b48 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020b4c 4e 76 |Nv | TRAPV
00020b4e de fc 00 82 | | ADDA.W #0x82,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 0x204fa,A1
00020b82 70 0a |p | MOVEQ.L #0x0a,D0
00020b84 10 d9 | | MOVE.B (A1)+,(A0)+
00020b86 51 c8 ff fc |Q | DBF D0,0x20b84
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 #0xb,-(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 0x4
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 0x20510,A0
00020bc4 70 04 |p | MOVEQ.L #0x04,D0
00020bc6 3f 20 |? | MOVE.W -(A0),-(A7)
00020bc8 51 c8 ff fc |Q | DBF D0,0x20bc6
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 #0xa,-(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 0x4
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 0x20510,A1
00020c08 70 0a |p | MOVEQ.L #0x0a,D0
00020c0a 10 d9 | | MOVE.B (A1)+,(A0)+
00020c0c 51 c8 ff fc |Q | DBF D0,0x20c0a
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 #0xb,-(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 0x4
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 0x20c58
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 0x20646,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,0x20c70
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 #0x5,-(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 0x20c90
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 0x4
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 #0xa,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 0x20c4e
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 0x20d00
00020cd4 9e fc 00 12 | | SUBA.W #0x12,A7
00020cd8 20 4f | O | MOVEA.L A7,A0
00020cda 43 fa f5 80 |C | LEA.L 0x2025c,A1
00020cde 70 10 |p | MOVEQ.L #0x10,D0
00020ce0 10 d9 | | MOVE.B (A1)+,(A0)+
00020ce2 51 c8 ff fc |Q | DBF D0,0x20ce0
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 #0x11,-(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 0x20ab0
00020cfc de fc 00 16 | | ADDA.W #0x16,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 0x20d30
00020d0a 41 fa f5 70 |A p | LEA.L 0x2027c,A0
00020d0e 70 06 |p | MOVEQ.L #0x06,D0
00020d10 3f 20 |? | MOVE.W -(A0),-(A7)
00020d12 51 c8 ff fc |Q | DBF D0,0x20d10
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 #0xe,-(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 0x20ab0
00020d2c de fc 00 12 | | ADDA.W #0x12,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 0x20d60
00020d3a 41 fa f5 56 |A V | LEA.L 0x20292,A0
00020d3e 70 0a |p | MOVEQ.L #0x0a,D0
00020d40 3f 20 |? | MOVE.W -(A0),-(A7)
00020d42 51 c8 ff fc |Q | DBF D0,0x20d40
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 #0x16,-(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 0x20ab0
00020d5c de fc 00 1a | | ADDA.W #0x1a,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 0x20d90
00020d6a 41 fa f5 38 |A 8 | LEA.L 0x202a4,A0
00020d6e 70 08 |p | MOVEQ.L #0x08,D0
00020d70 3f 20 |? | MOVE.W -(A0),-(A7)
00020d72 51 c8 ff fc |Q | DBF D0,0x20d70
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 #0x12,-(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 0x20ab0
00020d8c de fc 00 16 | | ADDA.W #0x16,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 0x20dc6
00020d9a 9e fc 00 0a | | SUBA.W #0xa,A7
00020d9e 20 4f | O | MOVEA.L A7,A0
00020da0 43 fa f5 02 |C | LEA.L 0x202a4,A1
00020da4 70 08 |p | MOVEQ.L #0x08,D0
00020da6 10 d9 | | MOVE.B (A1)+,(A0)+
00020da8 51 c8 ff fc |Q | DBF D0,0x20da6
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 #0x9,-(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 0x20ab0
00020dc2 de fc 00 0e | | ADDA.W #0xe,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 0x20dfc
00020dd0 9e fc 00 12 | | SUBA.W #0x12,A7
00020dd4 20 4f | O | MOVEA.L A7,A0
00020dd6 43 fa f4 d6 |C | LEA.L 0x202ae,A1
00020dda 70 10 |p | MOVEQ.L #0x10,D0
00020ddc 10 d9 | | MOVE.B (A1)+,(A0)+
00020dde 51 c8 ff fc |Q | DBF D0,0x20ddc
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 #0x11,-(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 0x20ab0
00020df8 de fc 00 16 | | ADDA.W #0x16,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 0x20e2c
00020e06 41 fa f4 ca |A | LEA.L 0x202d2,A0
00020e0a 70 08 |p | MOVEQ.L #0x08,D0
00020e0c 3f 20 |? | MOVE.W -(A0),-(A7)
00020e0e 51 c8 ff fc |Q | DBF D0,0x20e0c
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 #0x12,-(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 0x20ab0
00020e28 de fc 00 16 | | ADDA.W #0x16,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 0x20e60
00020e36 9e c6 | | SUBA.W D6,A7
00020e38 20 4f | O | MOVEA.L A7,A0
00020e3a 43 fa f4 96 |C | LEA.L 0x202d2,A1
00020e3e 70 12 |p | MOVEQ.L #0x12,D0
00020e40 10 d9 | | MOVE.B (A1)+,(A0)+
00020e42 51 c8 ff fc |Q | DBF D0,0x20e40
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 #0x13,-(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 0x20ab0
00020e5c de fc 00 18 | | ADDA.W #0x18,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 0x20e96
00020e6a 9e fc 00 0e | | SUBA.W #0xe,A7
00020e6e 20 4f | O | MOVEA.L A7,A0
00020e70 43 fa f4 74 |C t | LEA.L 0x202e6,A1
00020e74 70 0c |p | MOVEQ.L #0x0c,D0
00020e76 10 d9 | | MOVE.B (A1)+,(A0)+
00020e78 51 c8 ff fc |Q | DBF D0,0x20e76
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 #0xd,-(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 0x20ab0
00020e92 de fc 00 12 | | ADDA.W #0x12,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 0x20ec8
00020ea0 9e c5 | | SUBA.W D5,A7
00020ea2 20 4f | O | MOVEA.L A7,A0
00020ea4 43 fa f4 4e |C N | LEA.L 0x202f4,A1
00020ea8 70 0e |p | MOVEQ.L #0x0e,D0
00020eaa 10 d9 | | MOVE.B (A1)+,(A0)+
00020eac 51 c8 ff fc |Q | DBF D0,0x20eaa
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 #0xf,-(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 0x20ab0
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 0x20efa
00020ed2 9e c5 | | SUBA.W D5,A7
00020ed4 20 4f | O | MOVEA.L A7,A0
00020ed6 43 fa f4 2c |C , | LEA.L 0x20304,A1
00020eda 70 0e |p | MOVEQ.L #0x0e,D0
00020edc 10 d9 | | MOVE.B (A1)+,(A0)+
00020ede 51 c8 ff fc |Q | DBF D0,0x20edc
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 #0xf,-(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 0x20ab0
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 0x20f30
00020f04 9e fc 00 1e | | SUBA.W #0x1e,A7
00020f08 20 4f | O | MOVEA.L A7,A0
00020f0a 43 fa f4 08 |C | LEA.L 0x20314,A1
00020f0e 70 1c |p | MOVEQ.L #0x1c,D0
00020f10 10 d9 | | MOVE.B (A1)+,(A0)+
00020f12 51 c8 ff fc |Q | DBF D0,0x20f10
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 #0x1d,-(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 0x20ab0
00020f2c de fc 00 22 | " | ADDA.W #0x22,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 0x20f66
00020f3a 9e fc 00 18 | | SUBA.W #0x18,A7
00020f3e 20 4f | O | MOVEA.L A7,A0
00020f40 43 fa f3 f0 |C | LEA.L 0x20332,A1
00020f44 70 16 |p | MOVEQ.L #0x16,D0
00020f46 10 d9 | | MOVE.B (A1)+,(A0)+
00020f48 51 c8 ff fc |Q | DBF D0,0x20f46
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 #0x17,-(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 0x20ab0
00020f62 de fc 00 1c | | ADDA.W #0x1c,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 0x20f96
00020f70 41 fa f3 ea |A | LEA.L 0x2035c,A0
00020f74 70 08 |p | MOVEQ.L #0x08,D0
00020f76 3f 20 |? | MOVE.W -(A0),-(A7)
00020f78 51 c8 ff fc |Q | DBF D0,0x20f76
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 #0x12,-(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 0x20ab0
00020f92 de fc 00 16 | | ADDA.W #0x16,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 0x20fc4
00020fa0 2f 3a f3 c2 |/: | MOVE.L 0x20364,-(A7)
00020fa4 2f 3a f3 ba |/: | MOVE.L 0x20360,-(A7)
00020fa8 2f 3a f3 b2 |/: | MOVE.L 0x2035c,-(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 #0xc,-(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 0x20ab0
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 0x20ff4
00020fce 41 fa f3 ae |A | LEA.L 0x2037e,A0
00020fd2 70 0a |p | MOVEQ.L #0x0a,D0
00020fd4 3f 20 |? | MOVE.W -(A0),-(A7)
00020fd6 51 c8 ff fc |Q | DBF D0,0x20fd4
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 #0x16,-(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 0x20ab0
00020ff0 de fc 00 1a | | ADDA.W #0x1a,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 0x2102a
00020ffe 9e fc 00 12 | | SUBA.W #0x12,A7
00021002 20 4f | O | MOVEA.L A7,A0
00021004 43 fa f3 78 |C x | LEA.L 0x2037e,A1
00021008 70 10 |p | MOVEQ.L #0x10,D0
0002100a 10 d9 | | MOVE.B (A1)+,(A0)+
0002100c 51 c8 ff fc |Q | DBF D0,0x2100a
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 #0x11,-(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 0x20ab0
00021026 de fc 00 16 | | ADDA.W #0x16,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 0x2105c
00021034 9e c5 | | SUBA.W D5,A7
00021036 20 4f | O | MOVEA.L A7,A0
00021038 43 fa f3 56 |C V | LEA.L 0x20390,A1
0002103c 70 0e |p | MOVEQ.L #0x0e,D0
0002103e 10 d9 | | MOVE.B (A1)+,(A0)+
00021040 51 c8 ff fc |Q | DBF D0,0x2103e
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 #0xf,-(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 0x20ab0
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 0x2108c
00021066 2f 3a f3 44 |/: D | MOVE.L 0x203ac,-(A7)
0002106a 2f 3a f3 3c |/: < | MOVE.L 0x203a8,-(A7)
0002106e 2f 3a f3 34 |/: 4 | MOVE.L 0x203a4,-(A7)
00021072 2f 3a f3 2c |/: , | MOVE.L 0x203a0,-(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 0x20ab0
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 0x210bc
00021096 2f 3a f3 24 |/: $ | MOVE.L 0x203bc,-(A7)
0002109a 2f 3a f3 1c |/: | MOVE.L 0x203b8,-(A7)
0002109e 2f 3a f3 14 |/: | MOVE.L 0x203b4,-(A7)
000210a2 2f 3a f3 0c |/: | MOVE.L 0x203b0,-(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 0x20ab0
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 0x210ec
000210c6 3f 3a f2 fc |?: | MOVE.W 0x203c4,-(A7)
000210ca 3f 3a f2 f6 |?: | MOVE.W 0x203c2,-(A7)
000210ce 3f 3a f2 f0 |?: | MOVE.W 0x203c0,-(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 #0x6,-(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 0x20ab0
000210e8 de fc 00 0a | | ADDA.W #0xa,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 0x2111a
000210f6 41 fa f2 e2 |A | LEA.L 0x203da,A0
000210fa 70 04 |p | MOVEQ.L #0x04,D0
000210fc 2f 20 |/ | MOVE.L -(A0),-(A7)
000210fe 51 c8 ff fc |Q | DBF D0,0x210fc
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 0x20ab0
00021116 de fc 00 18 | | ADDA.W #0x18,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 0x2114a
00021124 41 fa f2 c6 |A | LEA.L 0x203ec,A0
00021128 70 08 |p | MOVEQ.L #0x08,D0
0002112a 3f 20 |? | MOVE.W -(A0),-(A7)
0002112c 51 c8 ff fc |Q | DBF D0,0x2112a
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 #0x12,-(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 0x20ab0
00021146 de fc 00 16 | | ADDA.W #0x16,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 0x2117a
00021154 2f 3a f2 a2 |/: | MOVE.L 0x203f8,-(A7)
00021158 2f 3a f2 9a |/: | MOVE.L 0x203f4,-(A7)
0002115c 2f 3a f2 92 |/: | MOVE.L 0x203f0,-(A7)
00021160 2f 3a f2 8a |/: | MOVE.L 0x203ec,-(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 0x20ab0
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 0x211b0
00021184 9e fc 00 16 | | SUBA.W #0x16,A7
00021188 20 4f | O | MOVEA.L A7,A0
0002118a 43 fa f2 70 |C p | LEA.L 0x203fc,A1
0002118e 70 14 |p | MOVEQ.L #0x14,D0
00021190 10 d9 | | MOVE.B (A1)+,(A0)+
00021192 51 c8 ff fc |Q | DBF D0,0x21190
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 #0x15,-(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 0x20ab0
000211ac de fc 00 1a | | ADDA.W #0x1a,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 0x211e0
000211ba 41 fa f2 6c |A l | LEA.L 0x20428,A0
000211be 70 0a |p | MOVEQ.L #0x0a,D0
000211c0 3f 20 |? | MOVE.W -(A0),-(A7)
000211c2 51 c8 ff fc |Q | DBF D0,0x211c0
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 #0x16,-(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 0x20ab0
000211dc de fc 00 1a | | ADDA.W #0x1a,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 0x21210
000211ea 2f 3a f2 48 |/: H | MOVE.L 0x20434,-(A7)
000211ee 2f 3a f2 40 |/: @ | MOVE.L 0x20430,-(A7)
000211f2 2f 3a f2 38 |/: 8 | MOVE.L 0x2042c,-(A7)
000211f6 2f 3a f2 30 |/: 0 | MOVE.L 0x20428,-(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 0x20ab0
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 0x2123e
0002121a 41 fa f2 30 |A 0 | LEA.L 0x2044c,A0
0002121e 70 04 |p | MOVEQ.L #0x04,D0
00021220 2f 20 |/ | MOVE.L -(A0),-(A7)
00021222 51 c8 ff fc |Q | DBF D0,0x21220
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 0x20ab0
0002123a de fc 00 18 | | ADDA.W #0x18,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 0x2126e
00021248 41 fa f2 10 |A | LEA.L 0x2045a,A0
0002124c 70 06 |p | MOVEQ.L #0x06,D0
0002124e 3f 20 |? | MOVE.W -(A0),-(A7)
00021250 51 c8 ff fc |Q | DBF D0,0x2124e
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 #0xe,-(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 0x20ab0
0002126a de fc 00 12 | | ADDA.W #0x12,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 0x2129a
00021276 2f 3a f1 ea |/: | MOVE.L 0x20462,-(A7)
0002127a 2f 3a f1 e2 |/: | MOVE.L 0x2045e,-(A7)
0002127e 2f 3a f1 da |/: | MOVE.L 0x2045a,-(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 #0xc,-(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 0x20ab0
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 0x212d0
000212a4 9e fc 00 1e | | SUBA.W #0x1e,A7
000212a8 20 4f | O | MOVEA.L A7,A0
000212aa 43 fa f1 ba |C | LEA.L 0x20466,A1
000212ae 70 1c |p | MOVEQ.L #0x1c,D0
000212b0 10 d9 | | MOVE.B (A1)+,(A0)+
000212b2 51 c8 ff fc |Q | DBF D0,0x212b0
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 #0x1d,-(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 0x20ab0
000212cc de fc 00 22 | " | ADDA.W #0x22,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 0x212fe
000212d8 2f 3a f1 b6 |/: | MOVE.L 0x20490,-(A7)
000212dc 2f 3a f1 ae |/: | MOVE.L 0x2048c,-(A7)
000212e0 2f 3a f1 a6 |/: | MOVE.L 0x20488,-(A7)
000212e4 2f 3a f1 9e |/: | MOVE.L 0x20484,-(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 0x20ab0
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 0x21334
00021308 9e fc 00 0a | | SUBA.W #0xa,A7
0002130c 20 4f | O | MOVEA.L A7,A0
0002130e 43 fa f1 84 |C | LEA.L 0x20494,A1
00021312 70 08 |p | MOVEQ.L #0x08,D0
00021314 10 d9 | | MOVE.B (A1)+,(A0)+
00021316 51 c8 ff fc |Q | DBF D0,0x21314
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 #0x9,-(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 0x20ab0
00021330 de fc 00 0e | | ADDA.W #0xe,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 0x21366
0002133e 9e c5 | | SUBA.W D5,A7
00021340 20 4f | O | MOVEA.L A7,A0
00021342 43 fa f1 5a |C Z | LEA.L 0x2049e,A1
00021346 70 0e |p | MOVEQ.L #0x0e,D0
00021348 10 d9 | | MOVE.B (A1)+,(A0)+
0002134a 51 c8 ff fc |Q | DBF D0,0x21348
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 #0xf,-(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 0x20ab0
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 0x2139c
00021370 9e fc 00 3e | > | SUBA.W #0x3e,A7
00021374 20 4f | O | MOVEA.L A7,A0
00021376 43 fa f1 36 |C 6 | LEA.L 0x204ae,A1
0002137a 70 3c |p< | MOVEQ.L #0x3c,D0
0002137c 10 d9 | | MOVE.B (A1)+,(A0)+
0002137e 51 c8 ff fc |Q | DBF D0,0x2137c
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 #0x3d,-(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 0x20ab0
00021398 de fc 00 42 | B | ADDA.W #0x42,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 0x213ca
000213a6 2f 3a f1 4c |/: L | MOVE.L 0x204f4,-(A7)
000213aa 2f 3a f1 44 |/: D | MOVE.L 0x204f0,-(A7)
000213ae 2f 3a f1 3c |/: < | MOVE.L 0x204ec,-(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 #0xc,-(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 0x20ab0
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 0x213ec
000213e6 44 fc 00 02 |D | MOVE.W #0x2,CCR
000213ea 4e 76 |Nv | TRAPV
000213ec de fc 00 42 | B | ADDA.W #0x42,A7
000213f0 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
000213f4 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe)
000213fa 30 39 00 02 1c a0 |09 | MOVE.W 0x21ca0,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 0x21460
00021430 9e fc 00 26 | & | SUBA.W #0x26,A7
00021434 20 4f | O | MOVEA.L A7,A0
00021436 43 fa f0 e4 |C | LEA.L 0x2051c,A1
0002143a 70 24 |p$ | MOVEQ.L #0x24,D0
0002143c 10 d9 | | MOVE.B (A1)+,(A0)+
0002143e 51 c8 ff fc |Q | DBF D0,0x2143c
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 #0x1,-(A7)
0002144c 3f 3c 00 25 |?< % | MOVE.W #0x25,-(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 0x20674
0002145c de fc 00 2a | * | ADDA.W #0x2a,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 0x21476
00021470 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021474 4e 76 |Nv | TRAPV
00021476 de fc 00 72 | r | ADDA.W #0x72,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 0x214ee
00021498 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7
0002149e 63 02 |c | BLS 0x214a2
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 0x21c92,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 0x214e0
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 0x214e0
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 0x214de
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 0x214e0
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 0x214ee
000214e6 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7
000214ec 6f aa |o | BLE 0x21498
000214ee 4a 06 |J | TST.B D6
000214f0 67 46 |gF | BEQ 0x21538
000214f2 4a 2e 00 08 |J. | TST.B (A6+0x8)
000214f6 67 3e |g> | BEQ 0x21536
000214f8 9e fc 00 22 | " | SUBA.W #0x22,A7
000214fc 20 4f | O | MOVEA.L A7,A0
000214fe 43 fa f0 42 |C B | LEA.L 0x20542,A1
00021502 70 20 |p | MOVEQ.L #0x20,D0
00021504 10 d9 | | MOVE.B (A1)+,(A0)+
00021506 51 c8 ff fc |Q | DBF D0,0x21504
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 #0x21,-(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,0x21528
0002152e 4e ba f6 10 |N | JSR 0x20b40
00021532 de fc 00 48 | H | ADDA.W #0x48,A7
00021536 60 3e |`> | BRA 0x21576
00021538 9e fc 00 24 | $ | SUBA.W #0x24,A7
0002153c 20 4f | O | MOVEA.L A7,A0
0002153e 43 fa f0 24 |C $ | LEA.L 0x20564,A1
00021542 70 22 |p" | MOVEQ.L #0x22,D0
00021544 10 d9 | | MOVE.B (A1)+,(A0)+
00021546 51 c8 ff fc |Q | DBF D0,0x21544
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 #0x23,-(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,0x21568
0002156e 4e ba f5 d0 |N | JSR 0x20b40
00021572 de fc 00 4a | J | ADDA.W #0x4a,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 0x2158c
00021586 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002158a 4e 76 |Nv | TRAPV
0002158c de fc 00 4c | L | ADDA.W #0x4c,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 0x21ca4,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 0x21ca5,D0
000215b8 2f 00 |/ | MOVE.L D0,-(A7)
000215ba b0 91 | | CMP.L (A1),D0
000215bc 62 24 |b$ | BHI 0x215e2
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 0x215e2
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 0x21ca2,D1
000215f2 b0 81 | | CMP.L D1,D0
000215f4 64 08 |d | BCC 0x215fe
000215f6 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
000215fa 20 82 | | MOVE.L D2,(A0)
000215fc 60 42 |`B | BRA 0x21640
000215fe b2 90 | | CMP.L (A0),D1
00021600 66 0a |f | BNE 0x2160c
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 0x21640
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 0x2163a
00021638 60 bc |` | BRA 0x215f6
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 #0xc,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 0x2165a
00021654 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021658 4e 76 |Nv | TRAPV
0002165a de fc 00 5c | \ | ADDA.W #0x5c,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 #0xffff,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 #0x8,(A6-0xa)
00021686 42 6e ff ce |Bn | CLR.W (A6-0x32)
0002168a 3d 7c 00 02 ff d0 |=| | MOVE.W #0x2,(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 0x21ca0,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 0x216b2
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 0x216be
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 0x216ce
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 0x240ae,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 0x2157e
00021702 de fc 00 14 | | ADDA.W #0x14,A7
00021706 be 93 | | CMP.L (A3),D7
00021708 67 74 |gt | BEQ 0x2177e
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 0x20588,A1
00021714 70 08 |p | MOVEQ.L #0x08,D0
00021716 10 d9 | | MOVE.B (A1)+,(A0)+
00021718 51 c8 ff fc |Q | DBF D0,0x21716
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 #0x1,-(A7)
00021726 3f 3c 00 09 |?< | MOVE.W #0x9,-(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 0x21764
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 0x21838
00021794 48 6e ff de |Hn | PEA.L (A6-0x22)
00021798 4e ba fc 44 |N D | JSR 0x213de
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 0x217cc
000217c6 53 82 |S | SUBQ.L #0x1,D2
000217c8 24 82 |$ | MOVE.L D2,(A2)
000217ca 60 2a |`* | BRA 0x217f6
000217cc 42 81 |B | CLR.L D1
000217ce 12 39 00 02 1c a5 | 9 | MOVE.B 0x21ca5,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 0x217e4
000217de 53 83 |S | SUBQ.L #0x1,D3
000217e0 28 83 |( | MOVE.L D3,(A4)
000217e2 60 12 |` | BRA 0x217f6
000217e4 42 81 |B | CLR.L D1
000217e6 12 39 00 02 1c a4 | 9 | MOVE.B 0x21ca4,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,0x21802
00021808 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7)
0002180c 4e ba fc 5a |N Z | JSR 0x21468
00021810 de fc 00 24 | $ | ADDA.W #0x24,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 0x21822
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 0x2157e
00021834 de fc 00 14 | | ADDA.W #0x14,A7
00021838 4a 2e ff dc |J. | TST.B (A6-0x24)
0002183c 67 00 fe 68 |g h | BEQ 0x216a6
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 0x21856
00021850 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021854 4e 76 |Nv | TRAPV
00021856 de fc 00 68 | h | ADDA.W #0x68,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 0x205c2,A0
0002186c 70 0b |p | MOVEQ.L #0x0b,D0
0002186e 2f 20 |/ | MOVE.L -(A0),-(A7)
00021870 51 c8 ff fc |Q | DBF D0,0x2186e
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 #0x30,-(A7)
00021880 4e 92 |N | JSR (A2)
00021882 50 4f |PO | ADDQ.L #0x8,A7
00021884 48 78 00 01 |Hx | PEA.L 0x1
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 0x205c2,A1
000218a0 70 30 |p0 | MOVEQ.L #0x30,D0
000218a2 10 d9 | | MOVE.B (A1)+,(A0)+
000218a4 51 c8 ff fc |Q | DBF D0,0x218a2
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 #0x31,-(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 #0x32,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 0x21932
000218d6 1f 05 | | MOVE.B D5,-(A7)
000218d8 4e ba fd 72 |N r | JSR 0x2164c
000218dc 59 4f |YO | SUBQ.L #0x4,A7
000218de 20 4f | O | MOVEA.L A7,A0
000218e0 43 fa ed 12 |C | LEA.L 0x205f4,A1
000218e4 70 04 |p | MOVEQ.L #0x04,D0
000218e6 10 d9 | | MOVE.B (A1)+,(A0)+
000218e8 51 c8 ff fc |Q | DBF D0,0x218e6
000218ec 41 fa ed 16 |A | LEA.L 0x20604,A0
000218f0 70 04 |p | MOVEQ.L #0x04,D0
000218f2 3f 20 |? | MOVE.W -(A0),-(A7)
000218f4 51 c8 ff fc |Q | DBF D0,0x218f2
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 #0x5,-(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 #0xa,-(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 #0x14,A7
0002192e 52 87 |R | ADDQ.L #0x1,D7
00021930 68 a0 |h | BVC 0x218d2
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 0x2194a
00021944 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021948 4e 76 |Nv | TRAPV
0002194a de fc 00 42 | B | ADDA.W #0x42,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 0x2199a
0002196c 41 fa ec c0 |A | LEA.L 0x2062e,A0
00021970 70 14 |p | MOVEQ.L #0x14,D0
00021972 3f 20 |? | MOVE.W -(A0),-(A7)
00021974 51 c8 ff fc |Q | DBF D0,0x21972
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 #0x1,-(A7)
00021982 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(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 #0x2e,A7
00021998 60 fe |` | BRA 0x21998
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 0x1
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 ; --------------------------------------------------------------------------------------
000219b6 START:
000219b6 4f fa 00 08 |O | LEA.L MAIN,A7
000219ba 4e f9 00 01 02 80 |N | JMP ?start_program
000219c0 MAIN:
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 0x21cae,A0
000219d6 23 c8 00 02 1c a6 |# | MOVE.L A0,0x21ca6
000219dc 2f 08 |/ | MOVE.L A0,-(A7)
000219de 23 df 00 02 1c aa |# | MOVE.L (A7)+,0x21caa
000219e4 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x20020
000219ec 00 20 | |
000219ee 23 fc 00 00 00 01 00 01 |# | MOVE.L #0x1,0x10026
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 0x2070c
00021a06 4e ba ef 1c |N | JSR 0x20924
00021a0a 4e ba fe 3c |N < | JSR 0x21848
00021a0e 48 79 00 02 1c 9a |Hy | PEA.L 0x21c9a
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 0x2062e,A1
00021a22 70 04 |p | MOVEQ.L #0x04,D0
00021a24 10 d9 | | MOVE.B (A1)+,(A0)+
00021a26 51 c8 ff fc |Q | DBF D0,0x21a24
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 #0x1,-(A7)
00021a34 3f 3c 00 05 |?< | MOVE.W #0x5,-(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 #0xa,A7
00021a4a 41 fa eb fa |A | LEA.L 0x20646,A0
00021a4e 70 08 |p | MOVEQ.L #0x08,D0
00021a50 3f 20 |? | MOVE.W -(A0),-(A7)
00021a52 51 c8 ff fc |Q | DBF D0,0x21a50
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 #0x1,-(A7)
00021a60 3f 3c 00 12 |?< | MOVE.W #0x12,-(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 0x21a7e
00021a7a 4e ba fe c0 |N | JSR 0x2193c
00021a7e de fc 00 12 | | ADDA.W #0x12,A7
00021a82 60 00 ff 60 |` ` | BRA 0x219e4
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 ; --------------------------------------------------------------------------------------
00021a9a PROG_FAIL:
00021a9a 4e 56 ff d2 |NV | LINK.W A6,#0xffd2
00021a9e bf d5 | | CMPA.L (A5),A7
00021aa0 62 06 |b | BHI 0x21aa8
00021aa2 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021aa6 4e 76 |Nv | TRAPV
00021aa8 de fc 00 2c | , | ADDA.W #0x2c,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,0x21ab6
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 #0x1,-(A7)
00021aca 3f 3c 00 0e |?< | MOVE.W #0xe,-(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 #0x14,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 ; --------------------------------------------------------------------------------------
00021b56 EXP_FAIL:
00021b56 4e 56 ff 8c |NV | LINK.W A6,#0xff8c
00021b5a bf d5 | | CMPA.L (A5),A7
00021b5c 62 06 |b | BHI 0x21b64
00021b5e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021b62 4e 76 |Nv | TRAPV
00021b64 de fc 00 74 | t | ADDA.W #0x74,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 0x21b3e,A0
00021b8c 70 08 |p | MOVEQ.L #0x08,D0
00021b8e 3f 20 |? | MOVE.W -(A0),-(A7)
00021b90 51 c8 ff fc |Q | DBF D0,0x21b8e
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 0x21b02,A1
00021bac 70 0c |p | MOVEQ.L #0x0c,D0
00021bae 10 d9 | | MOVE.B (A1)+,(A0)+
00021bb0 51 c8 ff fc |Q | DBF D0,0x21bae
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 0x21c2a
00021be2 9e c5 | | SUBA.W D5,A7
00021be4 22 4f |"O | MOVEA.L A7,A1
00021be6 45 fa ff 28 |E ( | LEA.L 0x21b10,A2
00021bea 70 0c |p | MOVEQ.L #0x0c,D0
00021bec 12 da | | MOVE.B (A2)+,(A1)+
00021bee 51 c8 ff fc |Q | DBF D0,0x21bec
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,0x21bfc
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 #0x30,A7
00021c2a 9e c5 | | SUBA.W D5,A7
00021c2c 20 4f | O | MOVEA.L A7,A0
00021c2e 43 fa fe ee |C | LEA.L 0x21b1e,A1
00021c32 70 0c |p | MOVEQ.L #0x0c,D0
00021c34 10 d9 | | MOVE.B (A1)+,(A0)+
00021c36 51 c8 ff fc |Q | DBF D0,0x21c34
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 0x21b3e,A1
00021c66 70 16 |p | MOVEQ.L #0x16,D0
00021c68 10 d9 | | MOVE.B (A1)+,(A0)+
00021c6a 51 c8 ff fc |Q | DBF D0,0x21c68
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 #0x17,-(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