|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: M200
Notes: @(#)disk_geometry,1.1,90/12/04,9:02:00, M200_PROGRAM
Names: »DISK_GEOMETRY.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »DISK_GEOMETRY.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »DISK_GEOMETRY.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »DISK_GEOMETRY.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »DISK_GEOMETRY.M200«
└─ ⟦this⟧ »DISK_GEOMETRY.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »DISK_GEOMETRY.M200«
@ 202be
<LVAR 0x00a 1(rw)>
<LVAR 0x008 2(r)>
<LVAR -0x008 @ 2(r)>
<LVAR -0x00a @>
<LVAR -0x00c 2(r)>
<LVAR -0x00e 2(r)>
<LVAR -0x010 2(w)>
<LVAR -0x012 2(r)>
<LVAR -0x014 2(r)>
<LVAR -0x016 2(w)>
<LVAR -0x018 2(r)>
<LVAR -0x01a @ 2(r)>
<POP 202be-20338 Body>
<POP 202be-202d4 Prologue> Σ0 ↓
<POP 202d4-2032c Naked> Σ0 ↓ →0x20330
<MI 202d4 CLR.W (A6-0x1a)> {}
<MI 202d8 CLR.W (A6-0x18)> {}
<MI 202dc MOVE.W #0x2,(A6-0x16)> {}
<MI 202e2 CLR.W (A6-0x14)> {}
<MI 202e6 CLR.W (A6-0x12)> {}
<MI 202ea MOVE.W (A6+0x8),D0> {}
<MI 202ee ASL.W #0x8,D0> {}
<MI 202f0 MOVE.W D0,(A6-0x10)> {}
<MI 202f4 CLR.W (A6-0xe)> {}
<MI 202f8 CLR.W (A6-0xc)> {}
<Pointer.fp 0x202fc <LVAR -0x01a @ 2(r)>> Δ-4 {[@@-26]}
<MI 20300 LEA.L (A6-0x8),A0> {[@@-26]}
<MI 20304 MOVE.L A0,-(A7)> Δ-4 {[@@-26]|[4, 'A0']}
<MI 20306 CLR.W -(A7)> Δ-2 {[@@-26]|[4, 'A0']|[#0]}
<Call 0x20308 0x10204> {[@@-26]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 2030e-20310 StackAdj> Δ+8 {[-2-]}
<MI 20310 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x20312 <LVAR -0x00a @>> Δ-4 {[-2-]|[@@-10]}
<Call 0x20316 0x10206> {[-2-]|[@@-10]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 2031c-2031e StackAdj> Δ+6 {}
<MI 2031e CLR.B (A6+0xa)> {}
<MI 20322 MOVE.W (A6-0x8),D0> {}
<MI 20326 CMPI.W #0x0001,D0> {}
<MI 2032a BNE 0x20330> {}
<POP 2032c-20330 Naked> Σ0 ↓
<MI 2032c ADDQ.B #0x1,(A6+0xa)> {}
<POP 20330-20338 Epilogue> Σ0 ←0x202d4
@ 20338
<POP 20338-20390 Body>
<POP 20338-2034e Prologue> Σ0 ↓
<POP 2034e-20350 RegCacheLoad> Σ0 ↓
<POP 20350-20352 Naked> Σ0 ↓
<MI 20350 MOVEQ.L #0x01,D7> {}
<POP 20352-20388 Naked> Σ0 ↓ →0x20352 ←0x20352
<MI 20352 MOVE.L D7,D0> {}
<MI 20354 ASL.L #0x1,D0> {}
<MI 20356 MOVE.L D0,D1> {}
<MI 20358 SUBQ.L #0x1,D1> {}
<POP 0x2035a LimitCheck 0x0 ≤ D1 ≤ 0x1d> {}
<MI 20360 LEA.L 0x20a9c,A0> {}
<MI 20366 MOVE.B (A0+D1.L+#0x36),D6> {}
<MI 2036a SUBQ.L #0x1,D0> {}
<MI 2036c SUBQ.L #0x1,D0> {}
<POP 0x2036e LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 20374 MOVE.B (A0+D0.L+#0x36),(A0+D1.L+#0x36)> {}
<MI 2037a MOVE.B D6,(A0+D0.L+#0x36)> {}
<MI 2037e ADDQ.L #0x1,D7> {}
<MI 20380 CMPI.L #0x0000000f,D7> {}
<MI 20386 BLE 0x20352> {}
<POP 20388-20390 Epilogue> Σ0
@ 20390
<LVAR 0x008 2(r)>
<LVAR -0x006 2(w)>
<LVAR -0x00e 4(w)>
<LVAR -0x012 4(w)>
<LVAR -0x014 @ 1(r)>
<LVAR -0x018 4(w)>
<LVAR -0x01a 1(w)>
<POP 20390-207d4 Body>
<POP 20390-203a6 Prologue> Σ0 ↓
<POP 203a6-203b2 RegCacheLoad> Σ0 ↓
<POP 203b2-20432 Naked> Σ0 ↓ →0x2045e
<MI 203b2 MOVE.W 0x10008,D0> {}
<POP 0x203b8 LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 203bc MOVE.W D0,(A6-0x6)> {}
<MI 203c0 MOVE.W (A6+0x8),0x10008> {}
<Const 0x203c8 0x2.2> Δ-2 {[#2]}
<Const 0x203cc 0x2.2> Δ-2 {[#2]|[#2]}
<Const 0x203d0 0x1.4> Δ-4 {[#2]|[#2]|[##1]}
<MI 203d4 LEA.L 0x20a9c,A0> {[#2]|[#2]|[##1]}
<MI 203da MOVE.L A0,-(A7)> Δ-4 {[#2]|[#2]|[##1]|[4, 'A0']}
<Pointer.fp 0x203dc <LVAR -0x014 @ 1(r)>> Δ-4 {[#2]|[#2]|[##1]|[4, 'A0']|[@@-20]}
<Call 0x203e0 0x1036c> {[#2]|[#2]|[##1]|[4, 'A0']|[@@-20]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 203e6-203ea StackAdj> Δ+16 {}
<MI 203ea MOVE.W D0,0x10008> {}
<Blob 0x203f0 [4] @> Δ-4 {[«4""»]}
<Blob 0x203f4 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x203f8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 203fc-203fe StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x203fe 12> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Disk unit :_]}
<POP 2040c-2040e StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Disk unit :_]|[-4-]}
<MI 2040e MOVE.W (A6+0x8),D0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Disk unit :_]|[-4-]}
<MI 20412 EXTW.L D0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Disk unit :_]|[-4-]}
<MI 20414 MOVE.L D0,-(A7)> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Disk unit :_]|[-4-]|[4, 'D0']}
<Call 0x20416 0x102e4> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Disk unit :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2041c-2041e StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Disk unit :_]|[-4-]}
<Call 0x2041e 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Disk unit :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20424-20426 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x20426 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20428-2042c StackAdj> Δ+16 {}
<MI 2042c TST.B (A6-0x14)> {}
<MI 20430 BNE 0x2045e> {}
<POP 20432-2045e Naked> Σ0 →0x204cc
<Blob 0x20432 [46] @> Δ-46 {[«46""»]}
<POP 20444-20446 StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x20446 45> {[«46""»]|[$$ Can't retrieve labels due to disk errors.]}
<Call 0x20456 0x103e0> {[«46""»]|[$$ Can't retrieve labels due to disk errors.]}
WriteConsoleStringCrLf(str : String)
<POP 20458-2045c StackAdj> Δ+50 {}
<MI 2045c BRA 0x204cc> {}
<POP 2045e-2046a Naked> Σ0 ↓ →0x20496 ←0x203b2
<MI 2045e MOVE.W 0x20a9e,D0> {}
<MI 20464 CMPI.W #0x7fed,D0> {}
<MI 20468 BEQ 0x20496> {}
<POP 2046a-20496 Naked> Σ0 →0x204cc
<Blob 0x2046a [24] @> Δ-24 {[«24""»]}
<POP 2047c-2047e StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x2047e 23> {[«24""»]|[$$ Disk has no labels.]}
<Call 0x2048e 0x103e0> {[«24""»]|[$$ Disk has no labels.]}
WriteConsoleStringCrLf(str : String)
<POP 20490-20494 StackAdj> Δ+28 {}
<MI 20494 BRA 0x204cc> {}
<POP 20496-204a2 Naked> Σ0 ↓ →0x204d0 ←0x2045e
<MI 20496 MOVE.W 0x20aa0,D0> {}
<MI 2049c CMPI.W #0x0003,D0> {}
<MI 204a0 BEQ 0x204d0> {}
<POP 204a2-204cc Naked> Σ0 ↓
<Blob 0x204a2 [36] @> Δ-36 {[«36""»]}
<POP 204b4-204b6 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x204b6 35> {[«36""»]|[$$ Disk has cylinders :_]}
<Call 0x204c6 0x103e0> {[«36""»]|[$$ Disk has cylinders :_]}
WriteConsoleStringCrLf(str : String)
<POP 204c8-204cc StackAdj> Δ+40 {}
<POP 204cc-204d0 Naked> Σ0 →0x207cc ←0x20432 ←0x2046a
<MI 204cc BRA 0x207cc> {}
<POP 204d0-20626 Naked> Σ0 Δ-4 ↓ →0x206f4 ←0x20496
<Call 0x204d0 0x20338> {}
<Blob 0x204d4 [30] 0x20af0> Δ-30 {[«30»]}
<POP 204e2-204e4 StackAdj> Δ-8 {[«30»]|[-8-]}
<Lit 0x204e4> {[«30»]|[-4-]|[$$…]}
<Pointer.sp 0x204e4 8> Δ-4
<Const 0x204e8 0x1.2> Δ-2
<Const 0x204ec 0x1e.2> Δ-2
<Call 0x204f0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 204f2-204f4 StackAdj> Δ+8
<Call 0x204f4 0x102f0> {[«30»]|[-4-]|[$$…]}
ToUpper(a : String) : String
<POP 204fa-204fc StackAdj> Δ+4 {[«30»]|[-4-]}
<MI 204fc MOVEA.L (A7)+,A4> Δ+4 {[«30»]}
<POP 204fe-20502 StackAdj> Δ+26 {[-4-]}
<POP 20502-20503 StackAdj> Δ+4 {}
<Blob 0x20503 [4] @> Δ-4 {[«4""»]}
<Blob 0x20506 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2050a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2050e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 20512-20514 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x20514 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$ Volume ID :_]}
<POP 20522-20524 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$ Volume ID :_]|[-4-]}
<MI 20524 MOVE.L A4,(A7)> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$ Volume ID :_]|[4, 'A4']}
<Call 0x20526 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$ Volume ID :_]|[4, 'A4']}
StringCat2(a, b : String) : String
<POP 2052c-2052e StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x2052e 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20530-20534 StackAdj> Δ+20 {}
<MI 20534 CLR.L D0> {}
<MI 20536 MOVE.W 0x20acc,D0> {}
<MI 2053c ADDQ.L #0x1,D0> {}
<MI 2053e MOVE.L D0,D5> {}
<Blob 0x20540 [36] @> Δ-36 {[«36""»]}
<POP 20552-20554 StackAdj> Δ-8 {[«36""»]|[-8-]}
<Lit 0x20554 35> {[«36""»]|[-4-]|[$$ Disk has cylinders :_]}
<MI 20562 MOVE.L D5,(A7)> {[«36""»]|[-4-]|[4, 'D5']}
<POP 20560-20562 StackAdj> Δ-8 {[«36""»]|[-4-]|[4, 'D5']|[-8-]}
<Call 0x20564 0x102e4> {[«36""»]|[-4-]|[4, 'D5']|[-8-]}
Long2String(a : Long) : String
<POP 2056a-2056c StackAdj> Δ+4 {[«36""»]|[-4-]|[4, 'D5']|[-4-]}
<Call 0x2056c 0x102d0> {[«36""»]|[-4-]|[4, 'D5']|[-4-]}
StringCat2(a, b : String) : String
<POP 20572-20574 StackAdj> Δ+8 {[«36""»]|[-4-]}
<Call 0x20574 0x103e0> {[«36""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20576-2057a StackAdj> Δ+40 {}
<MI 2057a CLR.L D0> {}
<MI 2057c MOVE.B 0x20aa6,D0> {}
<MI 20582 MOVE.L D0,(A6-0x18)> {}
<Blob 0x20586 [36] @> Δ-36 {[«36""»]}
<POP 20598-2059a StackAdj> Δ-8 {[«36""»]|[-8-]}
<Lit 0x2059a 35> {[«36""»]|[-4-]|[$$ heads/cylinder :_]}
<MI 205a8 MOVE.L D0,(A7)> {[«36""»]|[-4-]|[4, 'D0']}
<POP 205a6-205a8 StackAdj> Δ-8 {[«36""»]|[-4-]|[4, 'D0']|[-8-]}
<Call 0x205aa 0x102e4> {[«36""»]|[-4-]|[4, 'D0']|[-8-]}
Long2String(a : Long) : String
<POP 205b0-205b2 StackAdj> Δ+4 {[«36""»]|[-4-]|[4, 'D0']|[-4-]}
<Call 0x205b2 0x102d0> {[«36""»]|[-4-]|[4, 'D0']|[-4-]}
StringCat2(a, b : String) : String
<POP 205b8-205ba StackAdj> Δ+8 {[«36""»]|[-4-]}
<Call 0x205ba 0x103e0> {[«36""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 205bc-205c0 StackAdj> Δ+40 {}
<MI 205c0 CLR.L D1> {}
<MI 205c2 MOVE.B 0x20aa7,D1> {}
<MI 205c8 ASR.W #0x1,D1> {}
<MI 205ca EXTW.L D1> {}
<MI 205cc MOVE.L D1,(A6-0x12)> {}
<Blob 0x205d0 [36] @> Δ-36 {[«36""»]}
<POP 205e2-205e4 StackAdj> Δ-8 {[«36""»]|[-8-]}
<Lit 0x205e4 35> {[«36""»]|[-4-]|[$$ pages/head :_]}
<MI 205f2 MOVE.L D1,(A7)> {[«36""»]|[-4-]|[4, 'D1']}
<POP 205f0-205f2 StackAdj> Δ-8 {[«36""»]|[-4-]|[4, 'D1']|[-8-]}
<Call 0x205f4 0x102e4> {[«36""»]|[-4-]|[4, 'D1']|[-8-]}
Long2String(a : Long) : String
<POP 205fa-205fc StackAdj> Δ+4 {[«36""»]|[-4-]|[4, 'D1']|[-4-]}
<Call 0x205fc 0x102d0> {[«36""»]|[-4-]|[4, 'D1']|[-4-]}
StringCat2(a, b : String) : String
<POP 20602-20604 StackAdj> Δ+8 {[«36""»]|[-4-]}
<Call 0x20604 0x103e0> {[«36""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20606-2060a StackAdj> Δ+40 {}
<MI 2060a MOVE.L D0,D4> {}
<MI 2060c MOVE.L D1,D3> {}
<Call 0x2060e 0x1028c> {}
?muls_d3_d4
<MI 20614 MOVE.L D4,(A6-0xe)> {}
<MI 20618 MOVE.L D4,-(A7)> Δ-4 {[4, 'D4']}
<MI 2061a MOVE.B 0x20ad0,(A6-0x1a)> {[4, 'D4']}
<MI 20622 BEQ 0x206f4> {[4, 'D4']}
<POP 20626-206f4 Naked> Σ-4 →0x20718
<Blob 0x20626 [4] @> Δ-4 {[-4-]|[«4""»]}
<Blob 0x2062a [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]}
<Blob 0x2062e [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20632 [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 20636-20638 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x20638 16> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$ Disk has DFS]}
<Call 0x20648 0x103e0> {[-4-]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$ Disk has DFS]}
WriteConsoleStringCrLf(str : String)
<POP 2064a-2064e StackAdj> Δ+20 {[-4-]}
<MI 2064e CLR.L D3> {[-4-]}
<MI 20650 MOVE.W 0x20abc,D3> {[-4-]}
<Call 0x20656 0x10290> {[-4-]}
?mulu_d3_d4
<MI 2065c MOVE.L D4,D7> {[-4-]}
<MI 2065e CLR.L D4> {[-4-]}
<MI 20660 MOVE.B 0x20abe,D4> {[-4-]}
<MI 20666 MOVE.L D1,D3> {[-4-]}
<Call 0x20668 0x10290> {[-4-]}
?mulu_d3_d4
<MI 2066e ADD.L D4,D7> {[-4-]}
<MI 20670 CLR.L D0> {[-4-]}
<MI 20672 MOVE.B 0x20abf,D0> {[-4-]}
<MI 20678 ASR.W #0x1,D0> {[-4-]}
<MI 2067a EXTW.L D0> {[-4-]}
<MI 2067c ADD.L D0,D7> {[-4-]}
<MI 2067e CLR.L D4> {[-4-]}
<MI 20680 MOVE.W 0x20ab8,D4> {[-4-]}
<MI 20686 MOVE.L (A7),D3> {[-4-]}
<Call 0x20688 0x10290> {[-4-]}
?mulu_d3_d4
<MI 2068e SUB.L D4,D7> {[-4-]}
<MI 20690 CLR.L D4> {[-4-]}
<MI 20692 MOVE.B 0x20aba,D4> {[-4-]}
<MI 20698 MOVE.L D1,D3> {[-4-]}
<Call 0x2069a 0x10290> {[-4-]}
?mulu_d3_d4
<MI 206a0 SUB.L D4,D7> {[-4-]}
<MI 206a2 CLR.L D0> {[-4-]}
<MI 206a4 MOVE.B 0x20abb,D0> {[-4-]}
<MI 206aa ASR.W #0x1,D0> {[-4-]}
<MI 206ac EXTW.L D0> {[-4-]}
<MI 206ae SUB.L D0,D7> {[-4-]}
<Blob 0x206b0 [36] @> Δ-36 {[-4-]|[«36""»]}
<POP 206c2-206c4 StackAdj> Δ-8 {[-4-]|[«36""»]|[-8-]}
<Lit 0x206c4 35> {[-4-]|[«36""»]|[-4-]|[$$ DFS size (in bytes) :_]}
<POP 206d2-206d4 StackAdj> Δ-4 {[-4-]|[«36""»]|[-4-]|[$$ DFS size (in bytes) :_]|[-4-]}
<MI 206d4 MOVE.L D7,D0> {[-4-]|[«36""»]|[-4-]|[$$ DFS size (in bytes) :_]|[-4-]}
<MI 206d6 ASL.L #0x8,D0> {[-4-]|[«36""»]|[-4-]|[$$ DFS size (in bytes) :_]|[-4-]}
<MI 206d8 ASL.L #0x2,D0> {[-4-]|[«36""»]|[-4-]|[$$ DFS size (in bytes) :_]|[-4-]}
<MI 206da MOVE.L D0,-(A7)> Δ-4 {[-4-]|[«36""»]|[-4-]|[$$ DFS size (in bytes) :_]|[-4-]|[4, 'D0']}
<Call 0x206dc 0x102e4> {[-4-]|[«36""»]|[-4-]|[$$ DFS size (in bytes) :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 206e2-206e4 StackAdj> Δ+4 {[-4-]|[«36""»]|[-4-]|[$$ DFS size (in bytes) :_]|[-4-]}
<Call 0x206e4 0x102d0> {[-4-]|[«36""»]|[-4-]|[$$ DFS size (in bytes) :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 206ea-206ec StackAdj> Δ+8 {[-4-]|[«36""»]|[-4-]}
<Call 0x206ec 0x103e0> {[-4-]|[«36""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 206ee-206f2 StackAdj> Δ+40 {[-4-]}
<MI 206f2 BRA 0x20718> {[-4-]}
<POP 206f4-20718 Naked> Σ-4 ↓ ←0x204d0
<Blob 0x206f4 [26] @> Δ-26 {[-4-]|[«26""»]}
<POP 20700-20702 StackAdj> Δ-4 {[-4-]|[«26""»]|[-4-]}
<Lit 0x20702 26> {[-4-]|[«26""»]|[$$ Disk does not have DFS]}
<Call 0x20712 0x103e0> {[-4-]|[«26""»]|[$$ Disk does not have DFS]}
WriteConsoleStringCrLf(str : String)
<POP 20714-20718 StackAdj> Δ+30 {[-4-]}
<POP 20718-207cc Naked> Σ-4 Δ+4 ↓ ←0x20626
<MI 20718 CLR.L D4> {[-4-]}
<MI 2071a MOVE.W 0x20ac4,D4> {[-4-]}
<MI 20720 MOVE.L (A7),D3> {[-4-]}
<Call 0x20722 0x10290> {[-4-]}
?mulu_d3_d4
<MI 20728 MOVE.L D4,D6> {[-4-]}
<MI 2072a CLR.L D4> {[-4-]}
<MI 2072c MOVE.B 0x20ac6,D4> {[-4-]}
<MI 20732 MOVE.L D1,D3> {[-4-]}
<Call 0x20734 0x10290> {[-4-]}
?mulu_d3_d4
<MI 2073a ADD.L D4,D6> {[-4-]}
<MI 2073c CLR.L D0> {[-4-]}
<MI 2073e MOVE.B 0x20ac7,D0> {[-4-]}
<MI 20744 ASR.W #0x1,D0> {[-4-]}
<MI 20746 EXTW.L D0> {[-4-]}
<MI 20748 ADD.L D0,D6> {[-4-]}
<MI 2074a CLR.L D4> {[-4-]}
<MI 2074c MOVE.W 0x20ac0,D4> {[-4-]}
<MI 20752 MOVE.L (A7)+,D0> Δ+4 {}
<MI 20754 MOVE.L D0,D3> {}
<Call 0x20756 0x10290> {}
?mulu_d3_d4
<MI 2075c SUB.L D4,D6> {}
<MI 2075e CLR.L D4> {}
<MI 20760 MOVE.B 0x20ac2,D4> {}
<MI 20766 MOVE.L D1,D3> {}
<Call 0x20768 0x10290> {}
?mulu_d3_d4
<MI 2076e SUB.L D4,D6> {}
<MI 20770 CLR.L D0> {}
<MI 20772 MOVE.B 0x20ac3,D0> {}
<MI 20778 ASR.W #0x1,D0> {}
<MI 2077a EXTW.L D0> {}
<MI 2077c SUB.L D0,D6> {}
<Blob 0x2077e [36] @> Δ-36 {[«36""»]}
<POP 20790-20792 StackAdj> Δ-8 {[«36""»]|[-8-]}
<Lit 0x20792 35> {[«36""»]|[-4-]|[$$ Environment size (in bytes) :_]}
<POP 207a0-207a2 StackAdj> Δ-4 {[«36""»]|[-4-]|[$$ Environment size (in bytes) :_]|[-4-]}
<MI 207a2 MOVE.L D6,D0> {[«36""»]|[-4-]|[$$ Environment size (in bytes) :_]|[-4-]}
<MI 207a4 ASL.L #0x8,D0> {[«36""»]|[-4-]|[$$ Environment size (in bytes) :_]|[-4-]}
<MI 207a6 ASL.L #0x2,D0> {[«36""»]|[-4-]|[$$ Environment size (in bytes) :_]|[-4-]}
<MI 207a8 MOVE.L D0,-(A7)> Δ-4 {[«36""»]|[-4-]|[$$ Environment size (in bytes) :_]|[-4-]|[4, 'D0']}
<Call 0x207aa 0x102e4> {[«36""»]|[-4-]|[$$ Environment size (in bytes) :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 207b0-207b2 StackAdj> Δ+4 {[«36""»]|[-4-]|[$$ Environment size (in bytes) :_]|[-4-]}
<Call 0x207b2 0x102d0> {[«36""»]|[-4-]|[$$ Environment size (in bytes) :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 207b8-207ba StackAdj> Δ+8 {[«36""»]|[-4-]}
<Call 0x207ba 0x103e0> {[«36""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 207bc-207c0 StackAdj> Δ+40 {}
<MI 207c0 ADD.L D6,0x20e9c> {}
<Call 0x207c6 0x103dc> {}
WriteConsoleCrLf(void)
<POP 207cc-207d4 Epilogue> Σ0 ←0x204cc
@ 207d4
<POP 207d4-20860 Body>
<POP 207d4-207ea Prologue> Σ0 ↓
<POP 207ea-207ec Naked> Σ0 ↓
<MI 207ea MOVEQ.L #0x00,D7> {}
<POP 207ec-207fa Naked> Σ0 ↓ →0x20802 ←0x20802
<POP 207ec-207ee StackAdj> Δ-2 {[-2-]}
<MI 207ee MOVE.W D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']}
<Call 0x207f0 0x202be> {[-2-]|[2, 'D7']}
<POP 207f4-207f6 StackAdj> Δ+2 {[-2-]}
<MI 207f6 TST.B (A7)+> Δ+2 {}
<MI 207f8 BEQ 0x20802> {}
<POP 207fa-20802 Naked> Σ0 ↓
<MI 207fa MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x207fc 0x20390> {[2, 'D7']}
<POP 20800-20802 StackAdj> Δ+2 {}
<POP 20802-2080a Naked> Σ0 ↓ →0x207ec ←0x207ec
<MI 20802 ADDQ.W #0x1,D7> {}
<MI 20804 CMPI.W #0x000f,D7> {}
<MI 20808 BLE 0x207ec> {}
<POP 2080a-20858 Naked> Σ0 ↓
<Blob 0x2080a [46] @> Δ-46 {[«46""»]}
<POP 2081c-2081e StackAdj> Δ-8 {[«46""»]|[-8-]}
<Lit 0x2081e 45> {[«46""»]|[-4-]|[$$Total available environment space (bytes) is_]}
<POP 20830-20832 StackAdj> Δ-4 {[«46""»]|[-4-]|[$$Total available environment space (bytes) is_]|[-4-]}
<MI 20832 MOVE.L 0x20e9c,D0> {[«46""»]|[-4-]|[$$Total available environment space (bytes) is_]|[-4-]}
<MI 20838 ASL.L #0x8,D0> {[«46""»]|[-4-]|[$$Total available environment space (bytes) is_]|[-4-]}
<MI 2083a ASL.L #0x2,D0> {[«46""»]|[-4-]|[$$Total available environment space (bytes) is_]|[-4-]}
<MI 2083c MOVE.L D0,-(A7)> Δ-4 {[«46""»]|[-4-]|[$$Total available environment space (bytes) is_]|[-4-]|[4, 'D0']}
<Call 0x2083e 0x102e4> {[«46""»]|[-4-]|[$$Total available environment space (bytes) is_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 20844-20846 StackAdj> Δ+4 {[«46""»]|[-4-]|[$$Total available environment space (bytes) is_]|[-4-]}
<Call 0x20846 0x102d0> {[«46""»]|[-4-]|[$$Total available environment space (bytes) is_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2084c-2084e StackAdj> Δ+8 {[«46""»]|[-4-]}
<Call 0x2084e 0x103e0> {[«46""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20854-20858 StackAdj> Δ+50 {}
<POP 20858-20860 Epilogue> Σ0
@ 20860
START
<POP 20860--0001 Body>
<POP 20860-2086a Prologue> Σ0
<POP 2086a-20888 Naked> Σ0 ↓
<Call 0x2086a 0x10398> {}
FSCALL_10398
<MI 20870 CLR.L 0x20e9c> {}
<Call 0x20876 0x207d4> {}
<MI 2087a CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2087c 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x20880 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20886-20888 StackAdj> Δ+6 {}
<POP 20888-2088e Naked> Σ0
<Call 0x20888 0x10284> {}
?exit
@ 2089c
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 2089c-20904 Body>
<POP 2089c-208b2 Prologue> Σ0 ↓
<POP 208b2-208fc Naked> Σ0 ↓
<Blob 0x208b2 [14] @> Δ-14 {[«14""»]}
<Const 0x208be 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 208c2-208c4 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x208c4 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 208d6-208d8 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 208d8 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 208dc EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 208de EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 208e0 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x208e2 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 208e8-208ea StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x208ea 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 208f0-208f2 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x208f2 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 208f8-208fc StackAdj> Δ+20 {}
<POP 208fc-20904 Epilogue> Σ0
@ 20958
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 20958-20a94 Body>
<POP 20958-2096e Prologue> Σ0 ↓
<POP 2096e-20984 RegCacheLoad> Σ0 ↓
<POP 20984-209e4 Naked> Σ0 ↓ →0x20a2c
<Call 0x20984 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2098a [18] @> Δ-18 {[«18""»]}
<POP 20996-20998 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20998 18> {[«18""»]|[$$Experiment error :]}
<Call 0x209a4 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 209a6-209a7 StackAdj> Δ+22 ↓ {}
<Blob 0x209a7 [14] @> Δ-14 {[«14""»]}
<POP 209b6-209b8 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x209b8 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 209c2-209c4 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 209c4 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x209c8 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 209ce-209d0 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x209d0 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 209d6-209d8 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x209d8 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 209da-209dc StackAdj> Δ+18 {}
<MI 209dc MOVEA.L (A6+0xa),A0> {}
<MI 209e0 CMPA.W #0x01,A0> {}
<MI 209e2 BEQ 0x20a2c> {}
<POP 209e4-20a2c Naked> Σ0 ↓
<Blob 0x209e4 [14] @> Δ-14 {[«14""»]}
<Blob 0x209f4 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 20a04-20a06 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x20a06 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 20a10-20a12 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x20a12> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x20a12 12> Δ-4
<Const 0x20a16 0x1.2> Δ-2
<Const 0x20a18 0x1e.2> Δ-2
<Call 0x20a1a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20a1c-20a1e StackAdj> Δ+8
<Call 0x20a1e 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20a24-20a26 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x20a26 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20a28-20a2c StackAdj> Δ+48 {}
<POP 20a2c-20a8c Naked> Σ0 ↓ ←0x20984
<Blob 0x20a2c [14] @> Δ-14 {[«14""»]}
<POP 20a3c-20a3e StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20a3e 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 20a48-20a4a StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 20a4a MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x20a4e 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 20a54-20a56 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x20a56 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20a5c-20a5e StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20a5e 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20a60-20a61 StackAdj> Δ+18 ↓ {}
<Blob 0x20a61 [24] @> Δ-24 {[«24""»]}
<Const 0x20a70 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 20a74-20a76 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x20a76 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x20a84 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 20a8a-20a8c StackAdj> Δ+30 {}
<POP 20a8c-20a94 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.dacd5d12d09f134c 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 08 60 | ` | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 0e b0 | | .PTR 0x20eb0 00020010 code.end: 00020010 00 02 0a 94 | | .PTR 0x20a94 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 08 9c | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 09 58 | X | .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 64 69 |@(#)di | .XXX[0x6] 00020110 73 6b 5f 67 65 6f 6d 65 |sk_geome| .XXX[0x20] 00020118 74 72 79 2c 31 2e 31 2c |try,1.1,| 00020120 39 30 2f 31 32 2f 30 34 |90/12/04| 00020128 2c 39 3a 30 32 3a 30 30 |,9:02:00| 00020130 5c 20 |\ | .XXX[0x2] 00020132 20 20 20 20 43 61 6e 27 | Can'| .TXT ' Can't retrieve labels due to disk errors. ' 00020160 20 20 20 20 44 69 73 6b | Disk| .TXT ' Disk has no labels. ' 00020178 20 20 20 20 44 69 73 6b | Disk| .XXX[0x18] 00020180 20 68 61 73 20 6f 62 73 | has obs| 00020188 6f 6c 65 74 65 20 6c 61 |olete la| 00020190 62 65 6c 73 2e 20 |bels. | .XXX[0x6] 00020196 44 69 73 6b |Disk | .TXT 'Disk' 0002019a 20 75 6e 69 | uni | .TXT ' uni' 0002019e 74 20 3a 5f |t :_ | .TXT 't :_' 000201a2 20 20 20 20 | | .TXT ' ' 000201a6 56 6f 6c 75 |Volu | .TXT 'Volu' 000201aa 6d 65 20 49 |me I | .TXT 'me I' 000201ae 44 20 3a 5f |D :_ | .TXT 'D :_' 000201b2 20 20 20 20 44 69 73 6b | Disk| .TXT ' Disk has cylinders :_ ' 000201d6 20 20 20 20 20 20 20 20 | | .TXT ' heads/cylinder :_ ' 000201fa 20 20 20 20 20 20 20 20 | | .TXT ' pages/head :_ ' 0002021e 20 20 20 20 | | .TXT ' ' 00020222 44 69 73 6b |Disk | .TXT 'Disk' 00020226 20 68 61 73 | has | .TXT ' has' 0002022a 20 44 46 53 | DFS | .TXT ' DFS' 0002022e 20 20 20 20 20 20 20 20 | | .TXT ' DFS size (in bytes) :_ ' 00020252 20 20 20 20 44 69 73 6b | Disk| .TXT ' Disk does not have DFS' 0002026c 20 20 20 20 45 6e 76 69 | Envi| .TXT ' Environment size (in bytes) :_ ' 00020290 54 6f 74 61 6c 20 61 76 |Total av| .TXT 'Total available environment space (bytes) is_ ' 000202be ; -------------------------------------------------------------------------------------- 000202be ; OMSI PASCAL Function 000202be ; <LVAR 0x00a 1(rw)> 000202be ; <LVAR 0x008 2(r)> 000202be ; <LVAR -0x008 @ 2(r)> 000202be ; <LVAR -0x00a @> 000202be ; <LVAR -0x00c 2(r)> 000202be ; <LVAR -0x00e 2(r)> 000202be ; <LVAR -0x010 2(w)> 000202be ; <LVAR -0x012 2(r)> 000202be ; <LVAR -0x014 2(r)> 000202be ; <LVAR -0x016 2(w)> 000202be ; <LVAR -0x018 2(r)> 000202be ; <LVAR -0x01a @ 2(r)> 000202be ; -------------------------------------------------------------------------------------- 000202be 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 000202c2 bf d5 | | CMPA.L (A5),A7 000202c4 62 06 |b | BHI 0x202cc 000202c6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000202ca 4e 76 |Nv | TRAPV 000202cc de fc 00 16 | | ADDA.W #0x16,A7 000202d0 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000202d4 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 000202d8 42 6e ff e8 |Bn | CLR.W (A6-0x18) 000202dc 3d 7c 00 02 ff ea |=| | MOVE.W #0x2,(A6-0x16) 000202e2 42 6e ff ec |Bn | CLR.W (A6-0x14) 000202e6 42 6e ff ee |Bn | CLR.W (A6-0x12) 000202ea 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 000202ee e1 40 | @ | ASL.W #0x8,D0 000202f0 3d 40 ff f0 |=@ | MOVE.W D0,(A6-0x10) 000202f4 42 6e ff f2 |Bn | CLR.W (A6-0xe) 000202f8 42 6e ff f4 |Bn | CLR.W (A6-0xc) 000202fc 48 6e ff e6 |Hn | PEA.L (A6-0x1a) 00020300 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00020304 2f 08 |/ | MOVE.L A0,-(A7) 00020306 42 67 |Bg | CLR.W -(A7) 00020308 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 0002030e 50 4f |PO | ADDQ.L #0x8,A7 00020310 42 57 |BW | CLR.W (A7) 00020312 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00020316 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 0002031c 5c 4f |\O | ADDQ.L #0x6,A7 0002031e 42 2e 00 0a |B. | CLR.B (A6+0xa) 00020322 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0 00020326 0c 40 00 01 | @ | CMPI.W #0x0001,D0 0002032a 66 04 |f | BNE 0x20330 0002032c 52 2e 00 0a |R. | ADDQ.B #0x1,(A6+0xa) 00020330 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020334 4e 5e |N^ | UNLK A6 00020336 4e 75 |Nu | RTS 00020338 ; -------------------------------------------------------------------------------------- 00020338 ; OMSI PASCAL Function 00020338 ; -------------------------------------------------------------------------------------- 00020338 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 0002033c bf d5 | | CMPA.L (A5),A7 0002033e 62 06 |b | BHI 0x20346 00020340 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020344 4e 76 |Nv | TRAPV 00020346 de fc 00 30 | 0 | ADDA.W #0x30,A7 0002034a 48 e7 e3 80 |H | MOVEM.L A0+D7+D6+D2+D1+D0,-(A7) 0002034e 74 1d |t | MOVEQ.L #0x1d,D2 00020350 7e 01 |~ | MOVEQ.L #0x01,D7 00020352 20 07 | | MOVE.L D7,D0 00020354 e3 80 | | ASL.L #0x1,D0 00020356 22 00 |" | MOVE.L D0,D1 00020358 53 81 |S | SUBQ.L #0x1,D1 0002035a b2 82 | | CMP.L D2,D1 0002035c 63 02 |c | BLS 0x20360 0002035e 4e 4f |NO | TRAP #15 00020360 41 f9 00 02 0a 9c |A | LEA.L 0x20a9c,A0 00020366 1c 30 18 36 | 0 6 | MOVE.B (A0+D1.L+#0x36),D6 0002036a 53 80 |S | SUBQ.L #0x1,D0 0002036c 53 80 |S | SUBQ.L #0x1,D0 0002036e b0 82 | | CMP.L D2,D0 00020370 63 02 |c | BLS 0x20374 00020372 4e 4f |NO | TRAP #15 00020374 11 b0 08 36 18 36 | 6 6 | MOVE.B (A0+D0.L+#0x36),(A0+D1.L+#0x36) 0002037a 11 86 08 36 | 6 | MOVE.B D6,(A0+D0.L+#0x36) 0002037e 52 87 |R | ADDQ.L #0x1,D7 00020380 0c 87 00 00 00 0f | | CMPI.L #0x0000000f,D7 00020386 6f ca |o | BLE 0x20352 00020388 4c df 01 c7 |L | MOVEM.L (A7)+,D0+D1+D2+D6+D7+A0 0002038c 4e 5e |N^ | UNLK A6 0002038e 4e 75 |Nu | RTS 00020390 ; -------------------------------------------------------------------------------------- 00020390 ; OMSI PASCAL Function 00020390 ; <LVAR 0x008 2(r)> 00020390 ; <LVAR -0x006 2(w)> 00020390 ; <LVAR -0x00e 4(w)> 00020390 ; <LVAR -0x012 4(w)> 00020390 ; <LVAR -0x014 @ 1(r)> 00020390 ; <LVAR -0x018 4(w)> 00020390 ; <LVAR -0x01a 1(w)> 00020390 ; -------------------------------------------------------------------------------------- 00020390 4e 56 ff 66 |NV f | LINK.W A6,#0xff66 00020394 bf d5 | | CMPA.L (A5),A7 00020396 62 06 |b | BHI 0x2039e 00020398 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002039c 4e 76 |Nv | TRAPV 0002039e de fc 00 78 | x | ADDA.W #0x78,A7 000203a2 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000203a6 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000203ac 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 000203b2 30 39 00 01 00 08 |09 | MOVE.W 0x10008,D0 000203b8 41 bc 00 0f |A | CHK.W #0xf,D0 000203bc 3d 40 ff fa |=@ | MOVE.W D0,(A6-0x6) 000203c0 33 ee 00 08 00 01 00 08 |3 | MOVE.W (A6+0x8),0x10008 000203c8 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000203cc 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000203d0 48 78 00 01 |Hx | PEA.L 0x1 000203d4 41 f9 00 02 0a 9c |A | LEA.L 0x20a9c,A0 000203da 2f 08 |/ | MOVE.L A0,-(A7) 000203dc 48 6e ff ec |Hn | PEA.L (A6-0x14) 000203e0 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 000203e6 de fc 00 10 | | ADDA.W #0x10,A7 000203ea 33 c0 00 01 00 08 |3 | MOVE.W D0,0x10008 000203f0 2f 3a fd ac |/: | MOVE.L 0x2019e,-(A7) 000203f4 2f 3a fd a4 |/: | MOVE.L 0x2019a,-(A7) 000203f8 2f 3a fd 9c |/: | MOVE.L 0x20196,-(A7) 000203fc 51 4f |QO | SUBQ.L #0x8,A7 000203fe 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020402 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020406 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 0002040a 4e 92 |N | JSR (A2) 0002040c 58 4f |XO | ADDQ.L #0x4,A7 0002040e 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 00020412 48 c0 |H | EXTW.L D0 00020414 2f 00 |/ | MOVE.L D0,-(A7) 00020416 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002041c 58 4f |XO | ADDQ.L #0x4,A7 0002041e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020424 50 4f |PO | ADDQ.L #0x8,A7 00020426 4e 93 |N | JSR (A3) 00020428 de fc 00 10 | | ADDA.W #0x10,A7 0002042c 4a 2e ff ec |J. | TST.B (A6-0x14) 00020430 66 2c |f, | BNE 0x2045e 00020432 9e fc 00 2e | . | SUBA.W #0x2e,A7 00020436 20 4f | O | MOVEA.L A7,A0 00020438 43 fa fc f8 |C | LEA.L 0x20132,A1 0002043c 70 2c |p, | MOVEQ.L #0x2c,D0 0002043e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020440 51 c8 ff fc |Q | DBF D0,0x2043e 00020444 59 4f |YO | SUBQ.L #0x4,A7 00020446 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002044a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002044e 3f 3c 00 2d |?< - | MOVE.W #0x2d,-(A7) 00020452 4e 92 |N | JSR (A2) 00020454 50 4f |PO | ADDQ.L #0x8,A7 00020456 4e 93 |N | JSR (A3) 00020458 de fc 00 32 | 2 | ADDA.W #0x32,A7 0002045c 60 6e |`n | BRA 0x204cc 0002045e 30 39 00 02 0a 9e |09 | MOVE.W 0x20a9e,D0 00020464 0c 40 7f ed | @ | CMPI.W #0x7fed,D0 00020468 67 2c |g, | BEQ 0x20496 0002046a 9e fc 00 18 | | SUBA.W #0x18,A7 0002046e 20 4f | O | MOVEA.L A7,A0 00020470 43 fa fc ee |C | LEA.L 0x20160,A1 00020474 70 16 |p | MOVEQ.L #0x16,D0 00020476 10 d9 | | MOVE.B (A1)+,(A0)+ 00020478 51 c8 ff fc |Q | DBF D0,0x20476 0002047c 59 4f |YO | SUBQ.L #0x4,A7 0002047e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020482 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020486 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 0002048a 4e 92 |N | JSR (A2) 0002048c 50 4f |PO | ADDQ.L #0x8,A7 0002048e 4e 93 |N | JSR (A3) 00020490 de fc 00 1c | | ADDA.W #0x1c,A7 00020494 60 36 |`6 | BRA 0x204cc 00020496 30 39 00 02 0a a0 |09 | MOVE.W 0x20aa0,D0 0002049c 0c 40 00 03 | @ | CMPI.W #0x0003,D0 000204a0 67 2e |g. | BEQ 0x204d0 000204a2 9e fc 00 24 | $ | SUBA.W #0x24,A7 000204a6 20 4f | O | MOVEA.L A7,A0 000204a8 43 fa fd 08 |C | LEA.L 0x201b2,A1 000204ac 70 22 |p" | MOVEQ.L #0x22,D0 000204ae 10 d9 | | MOVE.B (A1)+,(A0)+ 000204b0 51 c8 ff fc |Q | DBF D0,0x204ae 000204b4 59 4f |YO | SUBQ.L #0x4,A7 000204b6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000204ba 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000204be 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 000204c2 4e 92 |N | JSR (A2) 000204c4 50 4f |PO | ADDQ.L #0x8,A7 000204c6 4e 93 |N | JSR (A3) 000204c8 de fc 00 28 | ( | ADDA.W #0x28,A7 000204cc 60 00 02 fe |` | BRA 0x207cc 000204d0 4e ba fe 66 |N f | JSR 0x20338 000204d4 41 f9 00 02 0a f0 |A | LEA.L 0x20af0,A0 000204da 70 0e |p | MOVEQ.L #0x0e,D0 000204dc 3f 20 |? | MOVE.W -(A0),-(A7) 000204de 51 c8 ff fc |Q | DBF D0,0x204dc 000204e2 51 4f |QO | SUBQ.L #0x8,A7 000204e4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000204e8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000204ec 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 000204f0 4e 92 |N | JSR (A2) 000204f2 50 4f |PO | ADDQ.L #0x8,A7 000204f4 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000204fa 58 4f |XO | ADDQ.L #0x4,A7 000204fc 28 5f |(_ | MOVEA.L (A7)+,A4 000204fe de fc 00 1a | | ADDA.W #0x1a,A7 00020502 2e ba fc aa |. | MOVE.L 0x201ae,(A7) 00020506 2f 3a fc a2 |/: | MOVE.L 0x201aa,-(A7) 0002050a 2f 3a fc 9a |/: | MOVE.L 0x201a6,-(A7) 0002050e 2f 3a fc 92 |/: | MOVE.L 0x201a2,-(A7) 00020512 51 4f |QO | SUBQ.L #0x8,A7 00020514 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020518 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002051c 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 00020520 4e 92 |N | JSR (A2) 00020522 58 4f |XO | ADDQ.L #0x4,A7 00020524 2e 8c |. | MOVE.L A4,(A7) 00020526 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002052c 50 4f |PO | ADDQ.L #0x8,A7 0002052e 4e 93 |N | JSR (A3) 00020530 de fc 00 14 | | ADDA.W #0x14,A7 00020534 42 80 |B | CLR.L D0 00020536 30 39 00 02 0a cc |09 | MOVE.W 0x20acc,D0 0002053c 52 80 |R | ADDQ.L #0x1,D0 0002053e 2a 00 |* | MOVE.L D0,D5 00020540 9e fc 00 24 | $ | SUBA.W #0x24,A7 00020544 20 4f | O | MOVEA.L A7,A0 00020546 43 fa fc 6a |C j | LEA.L 0x201b2,A1 0002054a 70 22 |p" | MOVEQ.L #0x22,D0 0002054c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002054e 51 c8 ff fc |Q | DBF D0,0x2054c 00020552 51 4f |QO | SUBQ.L #0x8,A7 00020554 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020558 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002055c 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 00020560 4e 92 |N | JSR (A2) 00020562 2e 85 |. | MOVE.L D5,(A7) 00020564 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002056a 58 4f |XO | ADDQ.L #0x4,A7 0002056c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020572 50 4f |PO | ADDQ.L #0x8,A7 00020574 4e 93 |N | JSR (A3) 00020576 de fc 00 28 | ( | ADDA.W #0x28,A7 0002057a 42 80 |B | CLR.L D0 0002057c 10 39 00 02 0a a6 | 9 | MOVE.B 0x20aa6,D0 00020582 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 00020586 9e fc 00 24 | $ | SUBA.W #0x24,A7 0002058a 20 4f | O | MOVEA.L A7,A0 0002058c 43 fa fc 48 |C H | LEA.L 0x201d6,A1 00020590 72 22 |r" | MOVEQ.L #0x22,D1 00020592 10 d9 | | MOVE.B (A1)+,(A0)+ 00020594 51 c9 ff fc |Q | DBF D1,0x20592 00020598 51 4f |QO | SUBQ.L #0x8,A7 0002059a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002059e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000205a2 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 000205a6 4e 92 |N | JSR (A2) 000205a8 2e 80 |. | MOVE.L D0,(A7) 000205aa 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000205b0 58 4f |XO | ADDQ.L #0x4,A7 000205b2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000205b8 50 4f |PO | ADDQ.L #0x8,A7 000205ba 4e 93 |N | JSR (A3) 000205bc de fc 00 28 | ( | ADDA.W #0x28,A7 000205c0 42 81 |B | CLR.L D1 000205c2 12 39 00 02 0a a7 | 9 | MOVE.B 0x20aa7,D1 000205c8 e2 41 | A | ASR.W #0x1,D1 000205ca 48 c1 |H | EXTW.L D1 000205cc 2d 41 ff ee |-A | MOVE.L D1,(A6-0x12) 000205d0 9e fc 00 24 | $ | SUBA.W #0x24,A7 000205d4 20 4f | O | MOVEA.L A7,A0 000205d6 43 fa fc 22 |C " | LEA.L 0x201fa,A1 000205da 74 22 |t" | MOVEQ.L #0x22,D2 000205dc 10 d9 | | MOVE.B (A1)+,(A0)+ 000205de 51 ca ff fc |Q | DBF D2,0x205dc 000205e2 51 4f |QO | SUBQ.L #0x8,A7 000205e4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000205e8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000205ec 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 000205f0 4e 92 |N | JSR (A2) 000205f2 2e 81 |. | MOVE.L D1,(A7) 000205f4 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000205fa 58 4f |XO | ADDQ.L #0x4,A7 000205fc 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020602 50 4f |PO | ADDQ.L #0x8,A7 00020604 4e 93 |N | JSR (A3) 00020606 de fc 00 28 | ( | ADDA.W #0x28,A7 0002060a 28 00 |( | MOVE.L D0,D4 0002060c 26 01 |& | MOVE.L D1,D3 0002060e 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00020614 2d 44 ff f2 |-D | MOVE.L D4,(A6-0xe) 00020618 2f 04 |/ | MOVE.L D4,-(A7) 0002061a 1d 79 00 02 0a d0 ff e6 | y | MOVE.B 0x20ad0,(A6-0x1a) 00020622 67 00 00 d0 |g | BEQ 0x206f4 00020626 2f 3a fc 02 |/: | MOVE.L 0x2022a,-(A7) 0002062a 2f 3a fb fa |/: | MOVE.L 0x20226,-(A7) 0002062e 2f 3a fb f2 |/: | MOVE.L 0x20222,-(A7) 00020632 2f 3a fb ea |/: | MOVE.L 0x2021e,-(A7) 00020636 59 4f |YO | SUBQ.L #0x4,A7 00020638 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002063c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020640 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 00020644 4e 92 |N | JSR (A2) 00020646 50 4f |PO | ADDQ.L #0x8,A7 00020648 4e 93 |N | JSR (A3) 0002064a de fc 00 14 | | ADDA.W #0x14,A7 0002064e 42 83 |B | CLR.L D3 00020650 36 39 00 02 0a bc |69 | MOVE.W 0x20abc,D3 00020656 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 0002065c 2e 04 |. | MOVE.L D4,D7 0002065e 42 84 |B | CLR.L D4 00020660 18 39 00 02 0a be | 9 | MOVE.B 0x20abe,D4 00020666 26 01 |& | MOVE.L D1,D3 00020668 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 0002066e de 84 | | ADD.L D4,D7 00020670 42 80 |B | CLR.L D0 00020672 10 39 00 02 0a bf | 9 | MOVE.B 0x20abf,D0 00020678 e2 40 | @ | ASR.W #0x1,D0 0002067a 48 c0 |H | EXTW.L D0 0002067c de 80 | | ADD.L D0,D7 0002067e 42 84 |B | CLR.L D4 00020680 38 39 00 02 0a b8 |89 | MOVE.W 0x20ab8,D4 00020686 26 17 |& | MOVE.L (A7),D3 00020688 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 0002068e 9e 84 | | SUB.L D4,D7 00020690 42 84 |B | CLR.L D4 00020692 18 39 00 02 0a ba | 9 | MOVE.B 0x20aba,D4 00020698 26 01 |& | MOVE.L D1,D3 0002069a 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 000206a0 9e 84 | | SUB.L D4,D7 000206a2 42 80 |B | CLR.L D0 000206a4 10 39 00 02 0a bb | 9 | MOVE.B 0x20abb,D0 000206aa e2 40 | @ | ASR.W #0x1,D0 000206ac 48 c0 |H | EXTW.L D0 000206ae 9e 80 | | SUB.L D0,D7 000206b0 9e fc 00 24 | $ | SUBA.W #0x24,A7 000206b4 20 4f | O | MOVEA.L A7,A0 000206b6 43 fa fb 76 |C v | LEA.L 0x2022e,A1 000206ba 70 22 |p" | MOVEQ.L #0x22,D0 000206bc 10 d9 | | MOVE.B (A1)+,(A0)+ 000206be 51 c8 ff fc |Q | DBF D0,0x206bc 000206c2 51 4f |QO | SUBQ.L #0x8,A7 000206c4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000206c8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000206cc 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 000206d0 4e 92 |N | JSR (A2) 000206d2 58 4f |XO | ADDQ.L #0x4,A7 000206d4 20 07 | | MOVE.L D7,D0 000206d6 e1 80 | | ASL.L #0x8,D0 000206d8 e5 80 | | ASL.L #0x2,D0 000206da 2f 00 |/ | MOVE.L D0,-(A7) 000206dc 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000206e2 58 4f |XO | ADDQ.L #0x4,A7 000206e4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000206ea 50 4f |PO | ADDQ.L #0x8,A7 000206ec 4e 93 |N | JSR (A3) 000206ee de fc 00 28 | ( | ADDA.W #0x28,A7 000206f2 60 24 |`$ | BRA 0x20718 000206f4 41 fa fb 76 |A v | LEA.L 0x2026c,A0 000206f8 70 0c |p | MOVEQ.L #0x0c,D0 000206fa 3f 20 |? | MOVE.W -(A0),-(A7) 000206fc 51 c8 ff fc |Q | DBF D0,0x206fa 00020700 59 4f |YO | SUBQ.L #0x4,A7 00020702 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020706 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002070a 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 0002070e 4e 92 |N | JSR (A2) 00020710 50 4f |PO | ADDQ.L #0x8,A7 00020712 4e 93 |N | JSR (A3) 00020714 de fc 00 1e | | ADDA.W #0x1e,A7 00020718 42 84 |B | CLR.L D4 0002071a 38 39 00 02 0a c4 |89 | MOVE.W 0x20ac4,D4 00020720 26 17 |& | MOVE.L (A7),D3 00020722 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 00020728 2c 04 |, | MOVE.L D4,D6 0002072a 42 84 |B | CLR.L D4 0002072c 18 39 00 02 0a c6 | 9 | MOVE.B 0x20ac6,D4 00020732 26 01 |& | MOVE.L D1,D3 00020734 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 0002073a dc 84 | | ADD.L D4,D6 0002073c 42 80 |B | CLR.L D0 0002073e 10 39 00 02 0a c7 | 9 | MOVE.B 0x20ac7,D0 00020744 e2 40 | @ | ASR.W #0x1,D0 00020746 48 c0 |H | EXTW.L D0 00020748 dc 80 | | ADD.L D0,D6 0002074a 42 84 |B | CLR.L D4 0002074c 38 39 00 02 0a c0 |89 | MOVE.W 0x20ac0,D4 00020752 20 1f | | MOVE.L (A7)+,D0 00020754 26 00 |& | MOVE.L D0,D3 00020756 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 0002075c 9c 84 | | SUB.L D4,D6 0002075e 42 84 |B | CLR.L D4 00020760 18 39 00 02 0a c2 | 9 | MOVE.B 0x20ac2,D4 00020766 26 01 |& | MOVE.L D1,D3 00020768 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 0002076e 9c 84 | | SUB.L D4,D6 00020770 42 80 |B | CLR.L D0 00020772 10 39 00 02 0a c3 | 9 | MOVE.B 0x20ac3,D0 00020778 e2 40 | @ | ASR.W #0x1,D0 0002077a 48 c0 |H | EXTW.L D0 0002077c 9c 80 | | SUB.L D0,D6 0002077e 9e fc 00 24 | $ | SUBA.W #0x24,A7 00020782 20 4f | O | MOVEA.L A7,A0 00020784 43 fa fa e6 |C | LEA.L 0x2026c,A1 00020788 70 22 |p" | MOVEQ.L #0x22,D0 0002078a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002078c 51 c8 ff fc |Q | DBF D0,0x2078a 00020790 51 4f |QO | SUBQ.L #0x8,A7 00020792 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020796 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002079a 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 0002079e 4e 92 |N | JSR (A2) 000207a0 58 4f |XO | ADDQ.L #0x4,A7 000207a2 20 06 | | MOVE.L D6,D0 000207a4 e1 80 | | ASL.L #0x8,D0 000207a6 e5 80 | | ASL.L #0x2,D0 000207a8 2f 00 |/ | MOVE.L D0,-(A7) 000207aa 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000207b0 58 4f |XO | ADDQ.L #0x4,A7 000207b2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000207b8 50 4f |PO | ADDQ.L #0x8,A7 000207ba 4e 93 |N | JSR (A3) 000207bc de fc 00 28 | ( | ADDA.W #0x28,A7 000207c0 dd b9 00 02 0e 9c | | ADD.L D6,0x20e9c 000207c6 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000207cc 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000207d0 4e 5e |N^ | UNLK A6 000207d2 4e 75 |Nu | RTS 000207d4 ; -------------------------------------------------------------------------------------- 000207d4 ; OMSI PASCAL Function 000207d4 ; -------------------------------------------------------------------------------------- 000207d4 4e 56 ff aa |NV | LINK.W A6,#0xffaa 000207d8 bf d5 | | CMPA.L (A5),A7 000207da 62 06 |b | BHI 0x207e2 000207dc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000207e0 4e 76 |Nv | TRAPV 000207e2 de fc 00 52 | R | ADDA.W #0x52,A7 000207e6 48 e7 81 c0 |H | MOVEM.L A1+A0+D7+D0,-(A7) 000207ea 7e 00 |~ | MOVEQ.L #0x00,D7 000207ec 55 4f |UO | SUBQ.L #0x2,A7 000207ee 3f 07 |? | MOVE.W D7,-(A7) 000207f0 4e ba fa cc |N | JSR 0x202be 000207f4 54 4f |TO | ADDQ.L #0x2,A7 000207f6 4a 1f |J | TST.B (A7)+ 000207f8 67 08 |g | BEQ 0x20802 000207fa 3f 07 |? | MOVE.W D7,-(A7) 000207fc 4e ba fb 92 |N | JSR 0x20390 00020800 54 4f |TO | ADDQ.L #0x2,A7 00020802 52 47 |RG | ADDQ.W #0x1,D7 00020804 0c 47 00 0f | G | CMPI.W #0x000f,D7 00020808 6f e2 |o | BLE 0x207ec 0002080a 9e fc 00 2e | . | SUBA.W #0x2e,A7 0002080e 20 4f | O | MOVEA.L A7,A0 00020810 43 fa fa 7e |C ~ | LEA.L 0x20290,A1 00020814 70 2c |p, | MOVEQ.L #0x2c,D0 00020816 10 d9 | | MOVE.B (A1)+,(A0)+ 00020818 51 c8 ff fc |Q | DBF D0,0x20816 0002081c 51 4f |QO | SUBQ.L #0x8,A7 0002081e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020822 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020826 3f 3c 00 2d |?< - | MOVE.W #0x2d,-(A7) 0002082a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020830 58 4f |XO | ADDQ.L #0x4,A7 00020832 20 39 00 02 0e 9c | 9 | MOVE.L 0x20e9c,D0 00020838 e1 80 | | ASL.L #0x8,D0 0002083a e5 80 | | ASL.L #0x2,D0 0002083c 2f 00 |/ | MOVE.L D0,-(A7) 0002083e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020844 58 4f |XO | ADDQ.L #0x4,A7 00020846 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002084c 50 4f |PO | ADDQ.L #0x8,A7 0002084e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020854 de fc 00 32 | 2 | ADDA.W #0x32,A7 00020858 4c df 03 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1 0002085c 4e 5e |N^ | UNLK A6 0002085e 4e 75 |Nu | RTS 00020860 ; -------------------------------------------------------------------------------------- 00020860 ; OMSI PASCAL Function 00020860 ; -------------------------------------------------------------------------------------- 00020860 START: 00020860 4f fa 00 08 |O | LEA.L MAIN,A7 00020864 4e f9 00 01 02 80 |N | JMP ?start_program 0002086a MAIN: 0002086a 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020870 42 b9 00 02 0e 9c |B | CLR.L 0x20e9c 00020876 4e ba ff 5c |N \ | JSR 0x207d4 0002087a 42 27 |B' | CLR.B -(A7) 0002087c 48 78 00 01 |Hx | PEA.L 0x1 00020880 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020886 5c 4f |\O | ADDQ.L #0x6,A7 00020888 4e b9 00 01 02 84 |N | JSR ?exit 0002088e 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 0002089c ; -------------------------------------------------------------------------------------- 0002089c ; OMSI PASCAL Function 0002089c ; <LVAR 0x008 1(r)> 0002089c ; -------------------------------------------------------------------------------------- 0002089c PROG_FAIL: 0002089c 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 000208a0 bf d5 | | CMPA.L (A5),A7 000208a2 62 06 |b | BHI 0x208aa 000208a4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000208a8 4e 76 |Nv | TRAPV 000208aa de fc 00 2c | , | ADDA.W #0x2c,A7 000208ae 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000208b2 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 000208b6 70 06 |p | MOVEQ.L #0x06,D0 000208b8 3f 20 |? | MOVE.W -(A0),-(A7) 000208ba 51 c8 ff fc |Q | DBF D0,0x208b8 000208be 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000208c2 51 4f |QO | SUBQ.L #0x8,A7 000208c4 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000208c8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000208cc 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000208d0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000208d6 58 4f |XO | ADDQ.L #0x4,A7 000208d8 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000208dc 48 80 |H | EXTB.W D0 000208de 48 c0 |H | EXTW.L D0 000208e0 2f 00 |/ | MOVE.L D0,-(A7) 000208e2 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000208e8 58 4f |XO | ADDQ.L #0x4,A7 000208ea 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000208f0 50 4f |PO | ADDQ.L #0x8,A7 000208f2 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000208f8 de fc 00 14 | | ADDA.W #0x14,A7 000208fc 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020900 4e 5e |N^ | UNLK A6 00020902 4e 75 |Nu | RTS 00020904 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00020912 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00020920 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 0002092e 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00020940 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00020958 ; -------------------------------------------------------------------------------------- 00020958 ; OMSI PASCAL Function 00020958 ; <LVAR 0x00e 1(r)> 00020958 ; <LVAR 0x00a 4(r)> 00020958 ; <LVAR 0x008 1(r)> 00020958 ; -------------------------------------------------------------------------------------- 00020958 EXP_FAIL: 00020958 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 0002095c bf d5 | | CMPA.L (A5),A7 0002095e 62 06 |b | BHI 0x20966 00020960 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020964 4e 76 |Nv | TRAPV 00020966 de fc 00 74 | t | ADDA.W #0x74,A7 0002096a 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 0002096e 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020974 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 0002097a 72 01 |r | MOVEQ.L #0x01,D1 0002097c 74 0d |t | MOVEQ.L #0x0d,D2 0002097e 76 1e |v | MOVEQ.L #0x1e,D3 00020980 78 12 |x | MOVEQ.L #0x12,D4 00020982 7a 0e |z | MOVEQ.L #0x0e,D5 00020984 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002098a 41 fa ff b4 |A | LEA.L 0x20940,A0 0002098e 70 08 |p | MOVEQ.L #0x08,D0 00020990 3f 20 |? | MOVE.W -(A0),-(A7) 00020992 51 c8 ff fc |Q | DBF D0,0x20990 00020996 59 4f |YO | SUBQ.L #0x4,A7 00020998 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002099c 3f 01 |? | MOVE.W D1,-(A7) 0002099e 3f 04 |? | MOVE.W D4,-(A7) 000209a0 4e 93 |N | JSR (A3) 000209a2 50 4f |PO | ADDQ.L #0x8,A7 000209a4 4e 94 |N | JSR (A4) 000209a6 50 4f |PO | ADDQ.L #0x8,A7 000209a8 20 4f | O | MOVEA.L A7,A0 000209aa 43 fa ff 58 |C X | LEA.L 0x20904,A1 000209ae 70 0c |p | MOVEQ.L #0x0c,D0 000209b0 10 d9 | | MOVE.B (A1)+,(A0)+ 000209b2 51 c8 ff fc |Q | DBF D0,0x209b0 000209b6 51 4f |QO | SUBQ.L #0x8,A7 000209b8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000209bc 3f 01 |? | MOVE.W D1,-(A7) 000209be 3f 02 |? | MOVE.W D2,-(A7) 000209c0 4e 93 |N | JSR (A3) 000209c2 54 4f |TO | ADDQ.L #0x2,A7 000209c4 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000209c8 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000209ce 54 4f |TO | ADDQ.L #0x2,A7 000209d0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000209d6 50 4f |PO | ADDQ.L #0x8,A7 000209d8 4e 94 |N | JSR (A4) 000209da de c4 | | ADDA.W D4,A7 000209dc 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000209e0 b0 c1 | | CMPA.W D1,A0 000209e2 67 48 |gH | BEQ 0x20a2c 000209e4 9e c5 | | SUBA.W D5,A7 000209e6 22 4f |"O | MOVEA.L A7,A1 000209e8 45 fa ff 28 |E ( | LEA.L 0x20912,A2 000209ec 70 0c |p | MOVEQ.L #0x0c,D0 000209ee 12 da | | MOVE.B (A2)+,(A1)+ 000209f0 51 c8 ff fc |Q | DBF D0,0x209ee 000209f4 9e c3 | | SUBA.W D3,A7 000209f6 22 4f |"O | MOVEA.L A7,A1 000209f8 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000209fc 70 1d |p | MOVEQ.L #0x1d,D0 000209fe 12 d8 | | MOVE.B (A0)+,(A1)+ 00020a00 51 c8 ff fc |Q | DBF D0,0x209fe 00020a04 51 4f |QO | SUBQ.L #0x8,A7 00020a06 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020a0a 3f 01 |? | MOVE.W D1,-(A7) 00020a0c 3f 02 |? | MOVE.W D2,-(A7) 00020a0e 4e 93 |N | JSR (A3) 00020a10 58 4f |XO | ADDQ.L #0x4,A7 00020a12 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020a16 3f 01 |? | MOVE.W D1,-(A7) 00020a18 3f 03 |? | MOVE.W D3,-(A7) 00020a1a 4e 93 |N | JSR (A3) 00020a1c 50 4f |PO | ADDQ.L #0x8,A7 00020a1e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020a24 50 4f |PO | ADDQ.L #0x8,A7 00020a26 4e 94 |N | JSR (A4) 00020a28 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020a2c 9e c5 | | SUBA.W D5,A7 00020a2e 20 4f | O | MOVEA.L A7,A0 00020a30 43 fa fe ee |C | LEA.L 0x20920,A1 00020a34 70 0c |p | MOVEQ.L #0x0c,D0 00020a36 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a38 51 c8 ff fc |Q | DBF D0,0x20a36 00020a3c 51 4f |QO | SUBQ.L #0x8,A7 00020a3e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020a42 3f 01 |? | MOVE.W D1,-(A7) 00020a44 3f 02 |? | MOVE.W D2,-(A7) 00020a46 4e 93 |N | JSR (A3) 00020a48 54 4f |TO | ADDQ.L #0x2,A7 00020a4a 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00020a4e 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00020a54 54 4f |TO | ADDQ.L #0x2,A7 00020a56 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020a5c 50 4f |PO | ADDQ.L #0x8,A7 00020a5e 4e 94 |N | JSR (A4) 00020a60 5d 4f |]O | SUBQ.L #0x6,A7 00020a62 20 4f | O | MOVEA.L A7,A0 00020a64 43 fa fe da |C | LEA.L 0x20940,A1 00020a68 70 16 |p | MOVEQ.L #0x16,D0 00020a6a 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a6c 51 c8 ff fc |Q | DBF D0,0x20a6a 00020a70 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020a74 59 4f |YO | SUBQ.L #0x4,A7 00020a76 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020a7a 3f 01 |? | MOVE.W D1,-(A7) 00020a7c 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020a80 4e 93 |N | JSR (A3) 00020a82 50 4f |PO | ADDQ.L #0x8,A7 00020a84 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020a8a de c3 | | ADDA.W D3,A7 00020a8c 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00020a90 4e 5e |N^ | UNLK A6 00020a92 4e 75 |Nu | RTS