|
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: 5120 (0x1400)
Types: M200
Notes: @(#)ERASEDISK,3.1,91/05/14,13:00:00, M200_PROGRAM
Names: »ERASEDISK.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »ERASEDISK.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »ERASEDISK.M200«
└─ ⟦this⟧ »ERASEDISK.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »ERASEDISK.M200«
@ 2043c
<LVAR 0x008 4(r)>
<POP 2043c--0001 Body>
<POP 2043c-20452 Prologue> Σ0 ↓
<POP 20452-20490 Naked> Σ0 ↓
<Blob 0x20452 [12] @> Δ-12 {[«12""»]}
<POP 20464-20466 StackAdj> Δ-8 {[«12""»]|[-8-]}
<Lit 0x20466 11> {[«12""»]|[-4-]|[$$*** ABORT:_]}
<POP 20478-2047a StackAdj> Δ-4 {[«12""»]|[-4-]|[$$*** ABORT:_]|[-4-]}
<MI 2047a MOVE.L (A6+0x8),(A7)> {[«12""»]|[-4-]|[$$*** ABORT:_]|[4, '(A6+0x8)']}
<Call 0x2047e 0x102d0> {[«12""»]|[-4-]|[$$*** ABORT:_]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 20484-20486 StackAdj> Δ+8 {[«12""»]|[-4-]}
<Call 0x20486 0x103e0> {[«12""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2048c-20490 StackAdj> Δ+16 {}
<POP 20490-2049e Naked> Σ0
<POP 20490-2049e Bailout> {}
<MI 20490 MOVEA.L (A5+0x8),A7>
<MI 20494 MOVEA.W #0x0,A6>
<MI 20498 JMP 0x20e5c>
@ 204a6
<LVAR 0x00e 2(r)>
<LVAR 0x00c 2(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 2(w)>
<LVAR -0x00a 2(w)>
<LVAR -0x00c 2(r)>
<LVAR -0x00e 2(r)>
<LVAR -0x010 2(w)>
<LVAR -0x012 2(r)>
<LVAR -0x014 @ 2(r)>
<POP 204a6-20564 Body>
<POP 204a6-204bc Prologue> Σ0 ↓
<POP 204bc-20514 Naked> Σ0 ↓ →0x2055c
<MI 204bc CLR.W (A6-0x14)> {}
<MI 204c0 CLR.W (A6-0x12)> {}
<MI 204c4 MOVE.W #0x2,(A6-0x10)> {}
<MI 204ca CLR.W (A6-0xe)> {}
<MI 204ce CLR.W (A6-0xc)> {}
<MI 204d2 MOVE.W (A6+0xe),D0> {}
<MI 204d6 ASL.W #0x8,D0> {}
<MI 204d8 ADDI.W #0x000e,D0> {}
<MI 204dc MOVE.W D0,(A6-0xa)> {}
<MI 204e0 MOVE.W (A6+0xc),(A6-0x8)> {}
<MI 204e6 MOVEA.L (A6+0x8),A0> {}
<Pointer.fp 0x204ea <LVAR -0x014 @ 2(r)>> Δ-4 {[@@-20]}
<MI 204ee MOVEA.L A0,A1> {[@@-20]}
<MI 204f0 MOVE.L A1,-(A7)> Δ-4 {[@@-20]|[4, 'A1']}
<MI 204f2 CLR.W -(A7)> Δ-2 {[@@-20]|[4, 'A1']|[#0]}
<Call 0x204f4 0x10204> {[@@-20]|[4, 'A1']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 204fa-204fc StackAdj> Δ+8 {[-2-]}
<MI 204fc CLR.W (A7)> {[-2-]}
<Pointer.fp 0x204fe <LVAR -0x004 @ 1(r)>> Δ-4 {[-2-]|[@@-4]}
<Call 0x20502 0x10206> {[-2-]|[@@-4]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 20508-2050a StackAdj> Δ+6 {}
<MI 2050a ANDI.W #0x00ff,(A0)> {}
<MI 2050e TST.B (A6-0x4)> {}
<MI 20512 BNE 0x2055c> {}
<POP 20514-2055c Naked> Σ0 ↓
<Blob 0x20514 [50] @> Δ-50 {[«50""»]}
<POP 20526-20528 StackAdj> Δ-8 {[«50""»]|[-8-]}
<Lit 0x20528 49> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]}
<POP 2053a-2053c StackAdj> Δ-4 {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<MI 2053c CLR.L D0> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<MI 2053e MOVE.W (A6+0xc),D0> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<MI 20542 MOVE.L D0,-(A7)> Δ-4 {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]|[4, 'D0']}
<Call 0x20544 0x102e4> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2054a-2054c StackAdj> Δ+4 {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<Call 0x2054c 0x102d0> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20552-20554 StackAdj> Δ+8 {[«50""»]|[-4-]}
<Call 0x20554 0x2043c> {[«50""»]|[-4-]}
<POP 20558-2055c StackAdj> Δ+54 {}
<POP 2055c-20564 Epilogue> Σ0 ←0x204bc
@ 20564
<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 20564-205de Body>
<POP 20564-2057a Prologue> Σ0 ↓
<POP 2057a-205d2 Naked> Σ0 ↓ →0x205d6
<MI 2057a CLR.W (A6-0x1a)> {}
<MI 2057e CLR.W (A6-0x18)> {}
<MI 20582 MOVE.W #0x2,(A6-0x16)> {}
<MI 20588 CLR.W (A6-0x14)> {}
<MI 2058c CLR.W (A6-0x12)> {}
<MI 20590 MOVE.W (A6+0x8),D0> {}
<MI 20594 ASL.W #0x8,D0> {}
<MI 20596 MOVE.W D0,(A6-0x10)> {}
<MI 2059a CLR.W (A6-0xe)> {}
<MI 2059e CLR.W (A6-0xc)> {}
<Pointer.fp 0x205a2 <LVAR -0x01a @ 2(r)>> Δ-4 {[@@-26]}
<MI 205a6 LEA.L (A6-0x8),A0> {[@@-26]}
<MI 205aa MOVE.L A0,-(A7)> Δ-4 {[@@-26]|[4, 'A0']}
<MI 205ac CLR.W -(A7)> Δ-2 {[@@-26]|[4, 'A0']|[#0]}
<Call 0x205ae 0x10204> {[@@-26]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 205b4-205b6 StackAdj> Δ+8 {[-2-]}
<MI 205b6 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x205b8 <LVAR -0x00a @>> Δ-4 {[-2-]|[@@-10]}
<Call 0x205bc 0x10206> {[-2-]|[@@-10]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 205c2-205c4 StackAdj> Δ+6 {}
<MI 205c4 CLR.B (A6+0xa)> {}
<MI 205c8 MOVE.W (A6-0x8),D0> {}
<MI 205cc CMPI.W #0x0001,D0> {}
<MI 205d0 BNE 0x205d6> {}
<POP 205d2-205d6 Naked> Σ0 ↓
<MI 205d2 ADDQ.B #0x1,(A6+0xa)> {}
<POP 205d6-205de Epilogue> Σ0 ←0x2057a
@ 205de
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 205de-206ac Body>
<POP 205de-205f4 Prologue> Σ0 ↓
<POP 205f4-20602 RegCacheLoad> Σ0 ↓
<POP 20602-2061e Naked> Σ0 Δ-12 ↓ →0x20642
<MI 20602 MOVEA.L (A6+0x8),A0> {}
<MI 20606 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20608 CLR.B (A0)> {[4, 'A0']}
<MI 2060a MOVEA.L (A6+0x10),A1> {[4, 'A0']}
<MI 2060e MOVE.L A1,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']}
<MI 20610 MOVE.W 0x25112,D0> {[4, 'A0']|[4, 'A1']}
<MI 20616 EXTW.L D0> {[4, 'A0']|[4, 'A1']}
<MI 20618 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']|[4, 'D0']}
<MI 2061a CMP.L (A1),D0> {[4, 'A0']|[4, 'A1']|[4, 'D0']}
<MI 2061c BGT 0x20642> {[4, 'A0']|[4, 'A1']|[4, 'D0']}
<POP 2061e-20634 Naked> Σ-12 ↓ →0x20642
<MI 2061e MOVEA.L (A6+0x14),A0> {[-12-]}
<MI 20622 MOVE.L (A1),D4> {[-12-]}
<MI 20624 MOVE.L D0,D3> {[-12-]}
<Call 0x20626 0x10294> {[-12-]}
?divs_d3_d4
<MI 20628 ADD.L D4,(A0)> {[-12-]}
<MI 2062a MOVE.L D3,(A1)> {[-12-]}
<MI 2062c MOVE.W 0x25110,D0> {[-12-]}
<MI 2062e EXTW.L D0> {[-12-]}
<MI 20630 CMP.L (A0),D0> {[-12-]}
<MI 20632 BGT 0x20642> {[-12-]}
<POP 20634-20642 Naked> Σ-12 ↓
<MI 20634 MOVEA.L (A6+0x18),A1> {[-12-]}
<MI 20638 MOVE.L (A0),D4> {[-12-]}
<MI 2063a MOVE.L D0,D3> {[-12-]}
<Call 0x2063c 0x10294> {[-12-]}
?divs_d3_d4
<MI 2063e ADD.L D4,(A1)> {[-12-]}
<MI 20640 MOVE.L D3,(A0)> {[-12-]}
<POP 20642-20656 Naked> Σ-12 ↓ →0x2065e ←0x20602 ←0x2061e
<MI 20642 MOVEA.L (A6+0x18),A0> {[-12-]}
<MI 20646 MOVE.L (A0),D0> {[-12-]}
<MI 20648 ADDQ.L #0x1,D0> {[-12-]}
<MI 2064a CLR.L D1> {[-12-]}
<MI 2064c MOVE.W 0x2510e,D1> {[-12-]}
<MI 20652 CMP.L D1,D0> {[-12-]}
<MI 20654 BCC 0x2065e> {[-12-]}
<POP 20656-2065e Naked> Σ-12 →0x206a0 ←0x20698
<MI 20656 MOVEA.L (A6+0xc),A0> {[-12-]}
<MI 2065a MOVE.L #0x08,(A0)> {[-12-]}
<MI 2065c BRA 0x206a0> {[-12-]}
<POP 2065e-20662 Naked> Σ-12 ↓ →0x2066c ←0x20642
<MI 2065e CMP.L (A0),D1> {[-12-]}
<MI 20660 BNE 0x2066c> {[-12-]}
<POP 20662-2066c Naked> Σ-12 →0x206a0
<MI 20662 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 20666 MOVE.B #0x01,(A0)> {[-12-]}
<MI 2066a BRA 0x206a0> {[-12-]}
<POP 2066c-20698 Naked> Σ-12 ↓ →0x2069a ←0x2065e
<MI 2066c MOVEA.L (A6+0x14),A0> {[-12-]}
<MI 20670 MOVE.W 0x25110,D0> {[-12-]}
<MI 20672 EXTW.L D0> {[-12-]}
<MI 20674 SUB.L (A0),D0> {[-12-]}
<MI 20676 SUBQ.L #0x1,D0> {[-12-]}
<MI 20678 MOVE.L D0,D4> {[-12-]}
<MI 2067a MOVE.L (A7),D3> {[-12-]}
<Call 0x2067c 0x1028c> {[-12-]}
?muls_d3_d4
<MI 20682 MOVE.L (A7),D0> {[-12-]}
<MI 20684 MOVEA.L (A7+0x4),A0> {[-12-]}
<MI 20688 SUB.L (A0),D0> {[-12-]}
<MI 2068a ADD.L D4,D0> {[-12-]}
<MI 2068c MOVE.L D0,D4> {[-12-]}
<MI 2068e MOVEQ.L #0x02,D3> {[-12-]}
<Call 0x20690 0x10294> {[-12-]}
?divs_d3_d4
<MI 20692 MOVE.L D4,D7> {[-12-]}
<MI 20694 CMP.L #0x08,D7> {[-12-]}
<MI 20696 BLT 0x2069a> {[-12-]}
<POP 20698-2069a Naked> Σ-12 →0x20656
<MI 20698 BRA 0x20656> {[-12-]}
<POP 2069a-206a0 Naked> Σ-12 ↓ ←0x2066c
<MI 2069a MOVEA.L (A6+0xc),A0> {[-12-]}
<MI 2069e MOVE.L D7,(A0)> {[-12-]}
<POP 206a0-206a4 Naked> Σ-12 Δ+12 ↓ ←0x20656 ←0x20662
<POP 206a0-206a4 StackAdj> Δ+12 {}
<POP 206a4-206ac Epilogue> Σ0
@ 206ac
<LVAR 0x00c 2(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(rw)>
<LVAR -0x016 @>
<LVAR -0x018 @ 2(r)>
<LVAR -0x01a @ 2(r)>
<LVAR -0x01c @ 2(r)>
<LVAR -0x01e @ 2(r)>
<LVAR -0x021 @ 1(r)>
<LVAR -0x022 @ 1(r)>
<LVAR -0x024 2(w)>
<LVAR -0x026 2(w)>
<LVAR -0x028 2(w)>
<LVAR -0x02a 2(r)>
<LVAR -0x02c 2(r)>
<LVAR -0x02e 2(w)>
<LVAR -0x030 2(r)>
<LVAR -0x032 @ 2(w)>
<POP 206ac-20886 Body>
<POP 206ac-206c2 Prologue> Σ0 ↓
<POP 206c2-206d4 RegCacheLoad> Σ0 ↓
<POP 206d4-206d6 Naked> Σ0 ↓
<MI 206d4 MOVEQ.L #0x00,D7> {}
<POP 206d6-20702 Naked> Σ0 ↓ →0x206d6 ←0x206d6
<POP 0x206d6 LimitCheck 0x0 ≤ D7 ≤ 0x1fff> {}
<MI 206e0 MOVE.L D7,D0> {}
<MI 206e2 ASL.L #0x1,D0> {}
<MI 206e4 LEA.L 0x21106,A0> {}
<MI 206ea MOVE.L (A6+0x8),D1> {}
<POP 0x206ee LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 206f4 MOVE.W D1,(A0+D0.L+#0x8)> {}
<MI 206f8 ADDQ.L #0x1,D7> {}
<MI 206fa CMPI.L #0x00001fff,D7> {}
<MI 20700 BLE 0x206d6> {}
<POP 20702-207be Naked> Σ0 ↓
<MI 20702 MOVE.W (A6+0xc),D6> {}
<MI 20706 ANDI.W #0x0003,D6> {}
<MI 2070a MOVE.W D6,-(A7)> Δ-2 {[2, 'D6']}
<Const 0x2070c 0x2d0.2> Δ-2 {[2, 'D6']|[#720]}
<MI 20710 ADD.W D6,(A7)> {[2, 'D6']|[-2-]}
<Pointer.fp 0x20712 <LVAR -0x01e @ 2(r)>> Δ-4 {[2, 'D6']|[-2-]|[@@-30]}
<Call 0x20716 0x204a6> {[2, 'D6']|[-2-]|[@@-30]}
<POP 20718-2071a StackAdj> Δ+6 {[2, 'D6']}
<MI 2071a MOVE.W D6,(A7)> {[2, 'D6']}
<Const 0x2071c 0x350.2> Δ-2 {[2, 'D6']|[#848]}
<MI 20720 ADD.W D6,(A7)> {[2, 'D6']|[-2-]}
<Pointer.fp 0x20722 <LVAR -0x01c @ 2(r)>> Δ-4 {[2, 'D6']|[-2-]|[@@-28]}
<Call 0x20726 0x204a6> {[2, 'D6']|[-2-]|[@@-28]}
<POP 20728-2072a StackAdj> Δ+6 {[2, 'D6']}
<MI 2072a MOVE.W D6,(A7)> {[2, 'D6']}
<Const 0x2072c 0x1d0.2> Δ-2 {[2, 'D6']|[#464]}
<MI 20730 ADD.W D6,(A7)> {[2, 'D6']|[-2-]}
<Pointer.fp 0x20732 <LVAR -0x01a @ 2(r)>> Δ-4 {[2, 'D6']|[-2-]|[@@-26]}
<Call 0x20736 0x204a6> {[2, 'D6']|[-2-]|[@@-26]}
<POP 20738-2073a StackAdj> Δ+6 {[2, 'D6']}
<MI 2073a MOVE.W D6,(A7)> {[2, 'D6']}
<Const 0x2073c 0x250.2> Δ-2 {[2, 'D6']|[#592]}
<MI 20740 ADD.W D6,(A7)> {[2, 'D6']|[-2-]}
<Pointer.fp 0x20742 <LVAR -0x018 @ 2(r)>> Δ-4 {[2, 'D6']|[-2-]|[@@-24]}
<Call 0x20746 0x204a6> {[2, 'D6']|[-2-]|[@@-24]}
<POP 20748-2074a StackAdj> Δ+6 {[2, 'D6']}
<MI 2074a MOVE.W D6,(A7)> {[2, 'D6']}
<Const 0x2074c 0x310.2> Δ-2 {[2, 'D6']|[#784]}
<MI 20750 ADD.W D6,(A7)> {[2, 'D6']|[-2-]}
<Pointer.fp 0x20752 <LVAR -0x016 @>> Δ-4 {[2, 'D6']|[-2-]|[@@-22]}
<Call 0x20756 0x204a6> {[2, 'D6']|[-2-]|[@@-22]}
<POP 20758-2075a StackAdj> Δ+8 {}
<MI 2075a CLR.L D0> {}
<MI 2075c MOVE.W (A6-0x18),D0> {}
<MI 20760 ASL.L #0x8,D0> {}
<MI 20762 CLR.L D1> {}
<MI 20764 MOVE.W (A6-0x1a),D1> {}
<MI 20768 ADD.L D1,D0> {}
<POP 0x2076a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20770 MOVE.W D0,0x2510e> {}
<MI 20776 MOVE.W (A6-0x1c),D0> {}
<POP 0x2077a LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 2077e MOVE.W D0,0x25110> {}
<MI 20784 MOVE.W (A6-0x1e),D0> {}
<POP 0x20788 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 2078c MOVE.W D0,0x25112> {}
<MI 20792 CLR.L (A6-0x10)> {}
<MI 20794 CLR.L (A6-0xc)> {}
<MI 20798 CLR.L (A6-0x8)> {}
<MI 2079c MOVE.L #0x8,(A6-0x4)> {}
<MI 207a2 CLR.W (A6-0x30)> {}
<MI 207a6 MOVE.W #0x2,(A6-0x2e)> {}
<MI 207ac CLR.W (A6-0x2c)> {}
<MI 207b0 CLR.W (A6-0x2a)> {}
<MI 207b4 MOVE.W D6,D0> {}
<MI 207b6 ASL.W #0x8,D0> {}
<MI 207b8 ADDQ.W #0x3,D0> {}
<MI 207ba MOVE.W D0,(A6-0x28)> {}
<POP 207be-20836 Naked> Σ0 ↓ →0x20876 ←0x20876
<MI 207be MOVE.L (A6-0x4),D0> {}
<MI 207c0 ASL.L #0x8,D0> {}
<POP 0x207c2 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 207c8 MOVE.W D0,(A6-0x32)> {}
<MI 207cc MOVE.L (A6-0x8),D0> {}
<POP 0x207d0 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 207d6 MOVE.W D0,(A6-0x26)> {}
<MI 207da MOVE.L (A6-0xc),D0> {}
<MI 207de ASL.L #0x8,D0> {}
<MI 207e0 ADD.L (A6-0x10),D0> {}
<POP 0x207e2 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 207e8 MOVE.W D0,(A6-0x24)> {}
<Pointer.fp 0x207ec <LVAR -0x032 @ 2(w)>> Δ-4 {[@@-50]}
<MI 207f0 LEA.L 0x2110e,A0> {[@@-50]}
<MI 207f6 MOVE.L A0,-(A7)> Δ-4 {[@@-50]|[4, 'A0']}
<MI 207f8 CLR.W -(A7)> Δ-2 {[@@-50]|[4, 'A0']|[#0]}
<Call 0x207fa 0x10204> {[@@-50]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20800-20804 StackAdj> Δ+10 {}
<MI 20804 MOVE.L (A6-0x4),D0> {}
<MI 20806 ASL.L #0x1,D0> {}
<MI 20808 ADD.L D0,(A6-0x10)> {}
<Pointer.fp 0x2080a <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x2080e <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-8]|[@@-12]}
<Pointer.fp 0x20812 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-8]|[@@-12]|[@@-16]}
<Pointer.fp 0x20814 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-8]|[@@-12]|[@@-16]|[@@-4]}
<Pointer.fp 0x20816 <LVAR -0x021 @ 1(r)>> Δ-4 {[@@-8]|[@@-12]|[@@-16]|[@@-4]|[@@-33]}
<Call 0x2081a 0x205de> {[@@-8]|[@@-12]|[@@-16]|[@@-4]|[@@-33]}
<POP 2081e-20822 StackAdj> Δ+18 {[-2-]}
<MI 20822 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x20824 <LVAR -0x022 @ 1(r)>> Δ-4 {[-2-]|[@@-34]}
<Call 0x20828 0x10206> {[-2-]|[@@-34]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 2082e-20830 StackAdj> Δ+6 {}
<MI 20830 TST.B (A6-0x22)> {}
<MI 20834 BNE 0x20876> {}
<POP 20836-20876 Naked> Σ0
<Blob 0x20836 [40] @> Δ-40 {[«40""»]}
<POP 20848-2084a StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x2084a 39> {[«40""»]|[$$Error during WRITE operation, aborting!]}
<Call 0x2085e 0x103e0> {[«40""»]|[$$Error during WRITE operation, aborting!]}
WriteConsoleStringCrLf(str : String)
<POP 20864-20868 StackAdj> Δ+44 {}
<POP 20868-20876 Bailout> {}
<MI 20868 MOVEA.L (A5+0x8),A7>
<MI 2086c MOVEA.W #0x0,A6>
<MI 20870 JMP 0x20e5c>
<POP 20876-2087e Naked> Σ0 ↓ →0x207be ←0x207be
<MI 20876 TST.B (A6-0x21)> {}
<MI 2087a BEQ 0x207be> {}
<POP 2087e-20886 Epilogue> Σ0
@ 20886
<LVAR 0x00c 2(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x004 2(r)>
<LVAR -0x006 2(w)>
<LVAR -0x008 2(w)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 2(r)>
<LVAR -0x00e 2(w)>
<LVAR -0x010 2(r)>
<LVAR -0x012 @ 2(r)>
<POP 20886-2093e Body>
<POP 20886-2089c Prologue> Σ0 ↓
<POP 2089c-208fc Naked> Σ0 ↓ →0x20936
<MI 2089c CLR.W (A6-0x12)> {}
<MI 208a0 CLR.W (A6-0x10)> {}
<MI 208a4 MOVE.W #0x2,(A6-0xe)> {}
<MI 208aa CLR.W (A6-0xc)> {}
<MI 208ae CLR.W (A6-0xa)> {}
<MI 208b2 MOVE.W (A6+0xc),D0> {}
<MI 208b6 ASL.W #0x8,D0> {}
<MI 208b8 ADDI.W #0x000d,D0> {}
<MI 208bc MOVE.W D0,(A6-0x8)> {}
<MI 208c0 MOVE.L (A6+0x8),D0> {}
<POP 0x208c4 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 208ce MOVE.W D0,(A6-0x6)> {}
<MI 208d2 CLR.W (A6-0x4)> {}
<Pointer.fp 0x208d6 <LVAR -0x012 @ 2(r)>> Δ-4 {[@@-18]}
<Const 0x208da 0x0.4> Δ-4 {[@@-18]|[##0]}
<MI 208de CLR.W -(A7)> Δ-2 {[@@-18]|[##0]|[#0]}
<Call 0x208e0 0x10204> {[@@-18]|[##0]|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 208e6-208e8 StackAdj> Δ+8 {[-2-]}
<MI 208e8 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x208ea <LVAR -0x002 @ 1(r)>> Δ-4 {[-2-]|[@@-2]}
<Call 0x208ee 0x10206> {[-2-]|[@@-2]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 208f4-208f6 StackAdj> Δ+6 {}
<MI 208f6 TST.B (A6-0x2)> {}
<MI 208fa BNE 0x20936> {}
<POP 208fc-20936 Naked> Σ0
<Blob 0x208fc [40] @> Δ-40 {[«40""»]}
<POP 20908-2090a StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x2090a 40> {[«40""»]|[$$Error during format operation, aborting!]}
<Call 0x2091e 0x103e0> {[«40""»]|[$$Error during format operation, aborting!]}
WriteConsoleStringCrLf(str : String)
<POP 20924-20928 StackAdj> Δ+44 {}
<POP 20928-20936 Bailout> {}
<MI 20928 MOVEA.L (A5+0x8),A7>
<MI 2092c MOVEA.W #0x0,A6>
<MI 20930 JMP 0x20e5c>
<POP 20936-2093e Epilogue> Σ0 ←0x2089c
@ 2093e
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<POP 2093e-20b1a Body>
<POP 2093e-20954 Prologue> Σ0 ↓
<POP 20954-2096e RegCacheLoad> Σ0 ↓
<POP 2096e-20a76 Naked> Σ0 ↓ →0x20a80
<Blob 0x2096e [40] @> Δ-40 {[«40""»]}
<POP 2097e-20980 StackAdj> Δ-8 {[«40""»]|[-8-]}
<Lit 0x20980 39> {[«40""»]|[-4-]|[$$Please provide a data pattern for pass_]}
<MI 2098c MOVE.L (A6+0xc),(A7)> {[«40""»]|[-4-]|[4, '(A6+0xc)']}
<POP 2098a-2098c StackAdj> Δ-8 {[«40""»]|[-4-]|[4, '(A6+0xc)']|[-8-]}
<Call 0x20990 0x102e4> {[«40""»]|[-4-]|[4, '(A6+0xc)']|[-8-]}
Long2String(a : Long) : String
<POP 20996-20998 StackAdj> Δ+4 {[«40""»]|[-4-]|[4, '(A6+0xc)']|[-4-]}
<Call 0x20998 0x102d0> {[«40""»]|[-4-]|[4, '(A6+0xc)']|[-4-]}
StringCat2(a, b : String) : String
<POP 2099e-209a0 StackAdj> Δ+8 {[«40""»]|[-4-]}
<Call 0x209a0 0x103e0> {[«40""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 209a2-209a6 StackAdj> Δ+44 {}
<Call 0x209a6 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x209ac [36] @> Δ-36 {[«36""»]}
<POP 209bc-209be StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x209be 35> {[«36""»]|[$$Enter one of the following options:]}
<Call 0x209cc 0x103e0> {[«36""»]|[$$Enter one of the following options:]}
WriteConsoleStringCrLf(str : String)
<POP 209ce-209d0 StackAdj> Δ+40 {}
<Blob 0x209d0 [34] @> Δ-34 {[«34""»]}
<POP 209dc-209de StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x209de 34> {[«34""»]|[$$ 0 -> data pattern of all zeros]}
<Call 0x209ec 0x103e0> {[«34""»]|[$$ 0 -> data pattern of all zeros]}
WriteConsoleStringCrLf(str : String)
<POP 209ee-209ef StackAdj> Δ+38 ↓ {}
<Blob 0x209ef [34] @> Δ-34 {[«34""»]}
<POP 209fe-20a00 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x20a00 33> {[«34""»]|[$$ 1 -> data pattern of all ones]}
<Call 0x20a0e 0x103e0> {[«34""»]|[$$ 1 -> data pattern of all ones]}
WriteConsoleStringCrLf(str : String)
<POP 20a10-20a14 StackAdj> Δ+38 {}
<Blob 0x20a14 [60] @> Δ-60 {[«60""»]}
<POP 20a20-20a22 StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x20a22 60> {[«60""»]|[$$ 2 -> you want to supply a character for the data pattern]}
<Call 0x20a30 0x103e0> {[«60""»]|[$$ 2 -> you want to supply a character for the data pattern]}
WriteConsoleStringCrLf(str : String)
<POP 20a32-20a36 StackAdj> Δ+64 {}
<Call 0x20a36 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x20a3c [28] @> Δ-28 {[«28""»]}
<POP 20a4c-20a4e StackAdj> Δ-8 {[«28""»]|[-8-]}
<Lit 0x20a4e 27> {[«28""»]|[-4-]|[$$Please enter your option :_]}
<Const 0x20a5c 0x0.4> Δ-4 {[«28""»]|[-4-]|[$$Please enter your option :_]|[##0]}
<Const 0x20a60 0x2.4> Δ-4 {[«28""»]|[-4-]|[$$Please enter your option :_]|[##0]|[##2]}
<Call 0x20a64 0x103ec> {[«28""»]|[-4-]|[$$Please enter your option :_]|[##0]|[##2]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 20a6a-20a6e StackAdj> Δ+12 {[«28""»]|[-4-]}
<MI 20a6e MOVE.L (A7)+,D7> Δ+4 {[«28""»]}
<POP 20a70-20a72 StackAdj> Δ+28 {}
<MI 20a72 TST.L D7> {}
<MI 20a74 BNE 0x20a80> {}
<POP 20a76-20a80 Naked> Σ0 →0x20b12
<MI 20a76 MOVEA.L (A6+0x8),A0> {}
<MI 20a7a CLR.L (A0)> {}
<MI 20a7c BRA 0x20b12> {}
<POP 20a80-20a84 Naked> Σ0 ↓ →0x20a92 ←0x2096e
<MI 20a80 CMP.L #0x01,D7> {}
<MI 20a82 BNE 0x20a92> {}
<POP 20a84-20a92 Naked> Σ0 →0x20b12
<MI 20a84 MOVEA.L (A6+0x8),A0> {}
<MI 20a88 MOVE.L #0xffff,(A0)> {}
<MI 20a8e BRA 0x20b12> {}
<POP 20a92-20a94 Naked> Σ0 ↓ ←0x20a80
<MI 20a92 MOVE.L #0x01,(A6-0x4)> {}
<POP 20a94-20a9a Naked> Σ0 ↓ →0x20aa4 ←0x20af8
<MI 20a94 MOVEA.L (A6-0x4),A0> {}
<MI 20a96 CMPA.W #0x01,A0> {}
<MI 20a98 BEQ 0x20aa4> {}
<POP 20a9a-20aa4 Naked> Σ0 ↓
<Pointer.fp 0x20a9a <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x20a9c 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 20aa2-20aa4 StackAdj> Δ+4 {}
<POP 20aa4-20ad8 Naked> Σ0 ↓ →0x20af8 ←0x20a94
<Blob 0x20aa4 [58] @> Δ-58 {[«58""»]}
<POP 20ab4-20ab6 StackAdj> Δ-8 {[«58""»]|[-8-]}
<Lit 0x20ab6 57> {[«58""»]|[-4-]|[$$Please enter the character to be used for this pattern :_]}
<Call 0x20ac4 0x103e4> {[«58""»]|[-4-]|[$$Please enter the character to be used for this pattern :_]}
AskConsoleString(prompt : String) : String
<POP 20aca-20acc StackAdj> Δ+4 {[«58""»]|[-4-]}
<MI 20acc MOVE.L (A7)+,(A6-0x4)> Δ+4 {[«58""»]}
<POP 20ace-20ad0 StackAdj> Δ+58 {}
<MI 20ad0 MOVEA.L (A6-0x4),A0> {}
<MI 20ad2 MOVE.W (A0),D0> {}
<MI 20ad4 CMP.W #0x01,D0> {}
<MI 20ad6 BEQ 0x20af8> {}
<POP 20ad8-20af8 Naked> Σ0 ↓
<Blob 0x20ad8 [32] @> Δ-32 {[«32""»]}
<POP 20ae4-20ae6 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x20ae6 32> {[«32""»]|[$$Please enter only one character!]}
<Call 0x20af4 0x103e0> {[«32""»]|[$$Please enter only one character!]}
WriteConsoleStringCrLf(str : String)
<POP 20af6-20af8 StackAdj> Δ+36 {}
<POP 20af8-20afe Naked> Σ0 ↓ →0x20a94 ←0x20aa4
<MI 20af8 MOVE.W (A0),D0> {}
<MI 20afa CMP.W #0x01,D0> {}
<MI 20afc BNE 0x20a94> {}
<POP 20afe-20b12 Naked> Σ0 ↓
<MI 20afe CLR.L D0> {}
<MI 20b00 MOVE.B (A0+0x2),D0> {}
<MI 20b04 MOVE.L D0,D6> {}
<MI 20b06 MOVEA.L (A6+0x8),A0> {}
<MI 20b0a MOVE.L D6,D0> {}
<MI 20b0c ASL.L #0x8,D0> {}
<MI 20b0e ADD.L D6,D0> {}
<MI 20b10 MOVE.L D0,(A0)> {}
<POP 20b12-20b1a Epilogue> Σ0 ←0x20a76 ←0x20a84
@ 20b1a
START
<POP 20b1a--0001 Body> Δ+6
<POP 20b1a-20b24 Prologue> Σ0
<POP 20b24-20b5a Naked> Σ0 Δ-34 ↓ →0x20b68
<Call 0x20b24 0x10398> {}
FSCALL_10398
<Blob 0x20b2a [34] @> Δ-34 {[«34""»]}
<POP 20b36-20b38 StackAdj> Δ-6 {[«34""»]|[-6-]}
<Lit 0x20b38 34> {[«34""»]|[-2-]|[$$Do you really want to erase a disk]}
<POP 20b4a-20b4c StackAdj> Δ-2 {[«34""»]|[-2-]|[$$Do you really want to erase a disk]|[-2-]}
<MI 20b4c CLR.B (A7)> {[«34""»]|[-2-]|[$$Do you really want to erase a disk]|[-2-]}
<Call 0x20b4e 0x103f0> {[«34""»]|[-2-]|[$$Do you really want to erase a disk]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20b54-20b56 StackAdj> Δ+6 {[«34""»]|[-2-]}
<MI 20b56 TST.B (A7)+> Δ+2 {[«34""»]}
<MI 20b58 BNE 0x20b68> {[«34""»]}
<POP 20b5a-20b68 Naked> Σ-34 ↓
<MI 20b5a CLR.B -(A7)> Δ-2 {[-34-]|[#0]}
<Const 0x20b5c 0x1.4> Δ-4 {[-34-]|[#0]|[##1]}
<Call 0x20b60 0x103b8> {[-34-]|[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20b66-20b68 StackAdj> Δ+6 {[-34-]}
<POP 20b68-20bc4 Naked> Σ-34 Δ+34 ↓ →0x20bf8 ←0x20b24
<POP 20b68-20b69 StackAdj> Δ+34 ↓ {}
<Blob 0x20b69 [42] @> Δ-42 {[«42""»]}
<POP 20b78-20b7a StackAdj> Δ-8 {[«42""»]|[-8-]}
<Lit 0x20b7a 41> {[«42""»]|[-4-]|[$$Enter unit number of disk to be erased :_]}
<Const 0x20b8e 0x0.4> Δ-4 {[«42""»]|[-4-]|[$$Enter unit number of disk to be erased :_]|[##0]}
<Const 0x20b92 0xf.4> Δ-4 {[«42""»]|[-4-]|[$$Enter unit number of disk to be erased :_]|[##0]|[##15]}
<Call 0x20b96 0x103ec> {[«42""»]|[-4-]|[$$Enter unit number of disk to be erased :_]|[##0]|[##15]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 20b9c-20ba0 StackAdj> Δ+12 {[«42""»]|[-4-]}
<MI 20ba0 MOVE.L (A7)+,D0> Δ+4 {[«42""»]}
<POP 0x20ba2 LimitCheck 0x0 ≤ D0 ≤ 0xf> {[«42""»]}
<POP 20bac-20bb0 StackAdj> Δ+42 {}
<MI 20bb0 MOVE.W D0,0x25138> {}
<POP 20bb6-20bb8 StackAdj> Δ-2 {[-2-]}
<MI 20bb8 MOVE.W D0,-(A7)> Δ-2 {[-2-]|[2, 'D0']}
<Call 0x20bba 0x20564> {[-2-]|[2, 'D0']}
<POP 20bbe-20bc0 StackAdj> Δ+2 {[-2-]}
<MI 20bc0 TST.B (A7)+> Δ+2 {}
<MI 20bc2 BNE 0x20bf8> {}
<POP 20bc4-20bf8 Naked> Σ0 ↓
<Blob 0x20bc4 [30] @> Δ-30 {[«30""»]}
<MI 20bd6 CLR.B -(A7)> Δ-2 {[«30""»]|[#0]}
<POP 20bd8-20bda StackAdj> Δ-4 {[«30""»]|[#0]|[-4-]}
<Lit 0x20bda 29> {[«30""»]|[#0]|[$$That disk unit does not exist]}
<Call 0x20bee 0x103b8> {[«30""»]|[#0]|[$$That disk unit does not exist]}
PopProgram(status : Byte; msg : String)
<POP 20bf4-20bf8 StackAdj> Δ+36 {}
<POP 20bf8-20c4a Naked> Σ0 Δ-34 ↓ →0x20c58 ←0x20b68
<Blob 0x20bf8 [34] @> Δ-34 {[«34""»]}
<POP 20c0a-20c0e StackAdj> Δ-10 {[«34""»]|[-10-]}
<Lit 0x20c0e 33> {[«34""»]|[-6-]|[$$Do you really want to erase unit_]}
<POP 20c20-20c22 StackAdj> Δ-4 {[«34""»]|[-6-]|[$$Do you really want to erase unit_]|[-4-]}
<MI 20c22 MOVE.W 0x25138,D0> {[«34""»]|[-6-]|[$$Do you really want to erase unit_]|[-4-]}
<MI 20c28 EXTW.L D0> {[«34""»]|[-6-]|[$$Do you really want to erase unit_]|[-4-]}
<MI 20c2a MOVE.L D0,-(A7)> Δ-4 {[«34""»]|[-6-]|[$$Do you really want to erase unit_]|[-4-]|[4, 'D0']}
<Call 0x20c2c 0x102e4> {[«34""»]|[-6-]|[$$Do you really want to erase unit_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 20c32-20c34 StackAdj> Δ+4 {[«34""»]|[-6-]|[$$Do you really want to erase unit_]|[-4-]}
<Call 0x20c34 0x102d0> {[«34""»]|[-6-]|[$$Do you really want to erase unit_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20c3a-20c3c StackAdj> Δ+6 {[«34""»]|[-6-]|[-2-]}
<MI 20c3c CLR.B (A7)> {[«34""»]|[-6-]|[-2-]}
<Call 0x20c3e 0x103f0> {[«34""»]|[-6-]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20c44-20c46 StackAdj> Δ+6 {[«34""»]|[-2-]}
<MI 20c46 TST.B (A7)+> Δ+2 {[«34""»]}
<MI 20c48 BNE 0x20c58> {[«34""»]}
<POP 20c4a-20c58 Naked> Σ-34 ↓
<MI 20c4a CLR.B -(A7)> Δ-2 {[-34-]|[#0]}
<Const 0x20c4c 0x1.4> Δ-4 {[-34-]|[#0]|[##1]}
<Call 0x20c50 0x103b8> {[-34-]|[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20c56-20c58 StackAdj> Δ+6 {[-34-]}
<POP 20c58-20ca2 Naked> Σ-34 Δ+30 ↓ ←0x20bf8
<POP 20c58-20c5c StackAdj> Δ+34 {}
<Blob 0x20c5c [40] @> Δ-40 {[«40""»]}
<POP 20c68-20c6a StackAdj> Δ-8 {[«40""»]|[-8-]}
<Lit 0x20c6a 40> {[«40""»]|[-4-]|[$$Enter number of erase passes [ 3..6 ] :_]}
<Const 0x20c7e 0x3.4> Δ-4 {[«40""»]|[-4-]|[$$Enter number of erase passes [ 3..6 ] :_]|[##3]}
<Const 0x20c82 0x6.4> Δ-4 {[«40""»]|[-4-]|[$$Enter number of erase passes [ 3..6 ] :_]|[##3]|[##6]}
<Call 0x20c86 0x103ec> {[«40""»]|[-4-]|[$$Enter number of erase passes [ 3..6 ] :_]|[##3]|[##6]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 20c8c-20c90 StackAdj> Δ+12 {[«40""»]|[-4-]}
<MI 20c90 MOVE.L (A7)+,0x25134> Δ+4 {[«40""»]}
<POP 20c96-20c9a StackAdj> Δ+36 {[-4-]}
<POP 20c9a-20c9b StackAdj> Δ+4 {}
<Blob 0x20c9b [4] 0x25134> Δ-4 {[«4»]}
<MI 20ca0 MOVEQ.L #0x01,D0> {[«4»]}
<POP 20ca2-20ca6 Naked> Σ-4 ↓ →0x20cd6 ←0x20ca6
<MI 20ca2 CMP.L (A7),D0> {[-4-]}
<MI 20ca4 BGT 0x20cd6> {[-4-]}
<POP 20ca6-20cd6 Naked> Σ-4 ↓ →0x20ca2
<MI 20ca6 MOVE.L D0,0x25130> {[-4-]}
<MI 20cac MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 20cae MOVE.L D0,D1> {[-4-]|[4, 'D0']}
<MI 20cb0 SUBQ.L #0x1,D1> {[-4-]|[4, 'D0']}
<POP 0x20cb2 LimitCheck 0x0 ≤ D1 ≤ 0x5> {[-4-]|[4, 'D0']}
<MI 20cbc ASL.L #0x2,D1> {[-4-]|[4, 'D0']}
<MI 20cbe LEA.L 0x21106,A0> {[-4-]|[4, 'D0']}
<MI 20cc4 LEA.L (A0+D1.L),A0> {[-4-]|[4, 'D0']}
<MI 20cc8 PEA.L (A0+0x4012)> Δ-4 {[-4-]|[4, 'D0']|[4, '^(A0+0x4012)']}
<Call 0x20ccc 0x2093e> {[-4-]|[4, 'D0']|[4, '^(A0+0x4012)']}
<POP 20cd0-20cd2 StackAdj> Δ+8 {[-4-]}
<MI 20cd2 ADDQ.L #0x1,D0> {[-4-]}
<MI 20cd4 BVC 0x20ca2> {[-4-]}
<POP 20cd6-20cde Naked> Σ-4 ↓ ←0x20ca2
<POP 20cd6-20cd7 StackAdj> Δ+4 {}
<Blob 0x20cd7 [4] 0x25134> Δ-4 {[«4»]}
<MI 20cdc MOVEQ.L #0x01,D0> {[«4»]}
<POP 20cde-20ce4 Naked> Σ-4 ↓ →0x20dee ←0x20d82
<MI 20cde CMP.L (A7),D0> {[-4-]}
<MI 20ce0 BGT 0x20dee> {[-4-]}
<POP 20ce4-20d30 Naked> Σ-4 ↓ →0x20d5a
<MI 20ce4 MOVE.L D0,0x25130> {[-4-]}
<Blob 0x20cea [14] @> Δ-14 {[-4-]|[«14""»]}
<POP 20cf6-20cf8 StackAdj> Δ-8 {[-4-]|[«14""»]|[-8-]}
<Lit 0x20cf8 14> {[-4-]|[«14""»]|[-4-]|[$$Starting pass_]}
<MI 20d0a MOVE.L D0,(A7)> {[-4-]|[«14""»]|[-4-]|[4, 'D0']}
<POP 20d04-20d0a StackAdj> Δ-8 {[-4-]|[«14""»]|[-4-]|[4, 'D0']|[-8-]}
<Call 0x20d0c 0x102e4> {[-4-]|[«14""»]|[-4-]|[4, 'D0']|[-8-]}
Long2String(a : Long) : String
<POP 20d12-20d14 StackAdj> Δ+4 {[-4-]|[«14""»]|[-4-]|[4, 'D0']|[-4-]}
<Call 0x20d14 0x102d0> {[-4-]|[«14""»]|[-4-]|[4, 'D0']|[-4-]}
StringCat2(a, b : String) : String
<POP 20d1a-20d1c StackAdj> Δ+8 {[-4-]|[«14""»]|[-4-]}
<Call 0x20d1c 0x103e0> {[-4-]|[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20d22-20d26 StackAdj> Δ+16 {[-4-]|[-2-]}
<Call 0x20d26 0x1060a> {[-4-]|[-2-]}
Is_machine_type_four() : Bool
<MI 20d2c TST.B (A7)+> Δ+2 {[-4-]}
<MI 20d2e BEQ 0x20d5a> {[-4-]}
<POP 20d30-20d5a Naked> Σ-4 Δ-6 →0x20d82
<Blob 0x20d30 [2] 0x25138> Δ-2 {[-4-]|[«2»]}
<MI 20d36 MOVE.L D0,D1> {[-4-]|[«2»]}
<MI 20d38 SUBQ.L #0x1,D1> {[-4-]|[«2»]}
<POP 0x20d3a LimitCheck 0x0 ≤ D1 ≤ 0x5> {[-4-]|[«2»]}
<MI 20d44 ASL.L #0x2,D1> {[-4-]|[«2»]}
<MI 20d46 LEA.L 0x21106,A0> {[-4-]|[«2»]}
<MI 20d4c LEA.L (A0+D1.L),A0> {[-4-]|[«2»]}
<MI 20d50 MOVE.L (A0+0x4012),-(A7)> Δ-4 {[-4-]|[«2»]|[4, '(A0+0x4012)']}
<Call 0x20d54 0x206ac> {[-4-]|[«2»]|[4, '(A0+0x4012)']}
<MI 20d58 BRA 0x20d82> {[-4-]|[«2»]|[4, '(A0+0x4012)']}
<POP 20d5a-20d82 Naked> Σ-4 Δ-6 ↓ ←0x20ce4
<Blob 0x20d5a [2] 0x25138> Δ-2 {[-4-]|[«2»]}
<MI 20d60 MOVE.L D0,D1> {[-4-]|[«2»]}
<MI 20d62 SUBQ.L #0x1,D1> {[-4-]|[«2»]}
<POP 0x20d64 LimitCheck 0x0 ≤ D1 ≤ 0x5> {[-4-]|[«2»]}
<MI 20d6e ASL.L #0x2,D1> {[-4-]|[«2»]}
<MI 20d70 LEA.L 0x21106,A0> {[-4-]|[«2»]}
<MI 20d76 LEA.L (A0+D1.L),A0> {[-4-]|[«2»]}
<MI 20d7a MOVE.L (A0+0x4012),-(A7)> Δ-4 {[-4-]|[«2»]|[4, '(A0+0x4012)']}
<Call 0x20d7e 0x20886> {[-4-]|[«2»]|[4, '(A0+0x4012)']}
<POP 20d82-20dee Naked> Σ-10 Δ+6 ↓ →0x20cde ←0x20d30
<POP 20d82-20d84 StackAdj> Δ+6 {[-4-]}
<Blob 0x20d84 [6] @> Δ-6 {[-4-]|[«6""»]}
<Blob 0x20d94 [6] @> Δ-6 {[-4-]|[«6""»]|[«6""»]}
<POP 20da4-20da6 StackAdj> Δ-8 {[-4-]|[«6""»]|[«6""»]|[-8-]}
<Lit 0x20da6 5> {[-4-]|[«6""»]|[«6""»]|[-4-]|[$$Pass_]}
<MI 20db8 MOVE.L D0,(A7)> {[-4-]|[«6""»]|[«6""»]|[-4-]|[4, 'D0']}
<POP 20db2-20db8 StackAdj> Δ-8 {[-4-]|[«6""»]|[«6""»]|[-4-]|[4, 'D0']|[-8-]}
<Call 0x20dba 0x102e4> {[-4-]|[«6""»]|[«6""»]|[-4-]|[4, 'D0']|[-8-]}
Long2String(a : Long) : String
<Lit 0x20dc0 5> {[-4-]|[«6""»]|[«6""»]|[-4-]|[4, 'D0']|[-4-]|[$$ done]}
<Call 0x20dd4 0x102d4> {[-4-]|[«6""»]|[«6""»]|[-4-]|[4, 'D0']|[-4-]|[$$ done]}
StringCat3(a, b, c : String) : String
<POP 20dda-20dde StackAdj> Δ+12 {[-4-]|[«6""»]|[«6""»]|[-4-]}
<Call 0x20dde 0x103e0> {[-4-]|[«6""»]|[«6""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20de4-20de8 StackAdj> Δ+16 {[-4-]}
<MI 20de8 ADDQ.L #0x1,D0> {[-4-]}
<MI 20dea BVC 0x20cde> {[-4-]}
<POP 20dee-20e7c Naked> Σ-4 Δ+4 ↓ →0x20eaa ←0x20cde
<POP 20dee-20df0 StackAdj> Δ+4 {}
<Blob 0x20df0 [10] @> Δ-10 {[«10""»]}
<Blob 0x20dfc [18] @> Δ-18 {[«10""»]|[«18""»]}
<POP 20e0e-20e10 StackAdj> Δ-8 {[«10""»]|[«18""»]|[-8-]}
<Lit 0x20e10 10> {[«10""»]|[«18""»]|[-4-]|[$$Disk unit_]}
<POP 20e22-20e24 StackAdj> Δ-4 {[«10""»]|[«18""»]|[-4-]|[$$Disk unit_]|[-4-]}
<MI 20e24 MOVE.W 0x25138,D0> {[«10""»]|[«18""»]|[-4-]|[$$Disk unit_]|[-4-]}
<MI 20e2a EXTW.L D0> {[«10""»]|[«18""»]|[-4-]|[$$Disk unit_]|[-4-]}
<MI 20e2c MOVE.L D0,-(A7)> Δ-4 {[«10""»]|[«18""»]|[-4-]|[$$Disk unit_]|[-4-]|[4, 'D0']}
<Call 0x20e2e 0x102e4> {[«10""»]|[«18""»]|[-4-]|[$$Disk unit_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x20e34 17> {[«10""»]|[«18""»]|[-4-]|[$$Disk unit_]|[-4-]|[$$ has been erased!]}
<Call 0x20e48 0x102d4> {[«10""»]|[«18""»]|[-4-]|[$$Disk unit_]|[-4-]|[$$ has been erased!]}
StringCat3(a, b, c : String) : String
<POP 20e4e-20e52 StackAdj> Δ+12 {[«10""»]|[«18""»]|[-4-]}
<Call 0x20e52 0x103e0> {[«10""»]|[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20e58-20e5c StackAdj> Δ+32 {}
<Const 0x20e5c 0x25114.4> Δ-4 {[##151828]}
<Const 0x20e62 0x25116.4> Δ-4 {[##151828]|[##151830]}
<Call 0x20e68 0x10200> {[##151828]|[##151830]}
KC00_GetBootDev(VAR a : Byte; VAR b : Word)
<POP 20e6e-20e70 StackAdj> Δ+8 {}
<MI 20e70 MOVE.B 0x25114,D0> {}
<MI 20e76 CMPI.B #0x02,D0> {}
<MI 20e7a BEQ 0x20eaa> {}
<POP 20e7c-20ea8 Naked> Σ0 ↓
<Blob 0x20e7c [26] @> Δ-26 {[«26""»]}
<POP 20e88-20e8a StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x20e8a 26> {[«26""»]|[$$Please re-boot your system]}
<Call 0x20e9e 0x103e0> {[«26""»]|[$$Please re-boot your system]}
WriteConsoleStringCrLf(str : String)
<POP 20ea4-20ea8 StackAdj> Δ+30 {}
<POP 20ea8-20eaa Naked> Σ0 →0x20ea8 ←0x20ea8
<MI 20ea8 BRA 0x20ea8> {}
<POP 20eaa-20eb8 Naked> Σ0 ↓ →0x20eec ←0x20dee
<MI 20eaa MOVE.W 0x25138,D0> {}
<MI 20eb0 CMP.W 0x25116,D0> {}
<MI 20eb6 BNE 0x20eec> {}
<POP 20eb8-20eea Naked> Σ0 ↓
<Blob 0x20eb8 [58] @> Δ-58 {[«58""»]}
<POP 20eca-20ecc StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x20ecc 57> {[«58""»]|[$$The boot disk has been erased, please re-boot your system]}
<Call 0x20ee0 0x103e0> {[«58""»]|[$$The boot disk has been erased, please re-boot your system]}
WriteConsoleStringCrLf(str : String)
<POP 20ee6-20eea StackAdj> Δ+62 {}
<POP 20eea-20eec Naked> Σ0 →0x20eea ←0x20eea
<MI 20eea BRA 0x20eea> {}
<POP 20eec-20efa Naked> Σ0 ↓ ←0x20eaa
<MI 20eec CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x20eee 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x20ef2 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20ef8-20efa StackAdj> Δ+6 {}
<POP 20efa-20f00 Naked> Σ0
<Call 0x20efa 0x10284> {}
?exit
@ 20f0e
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 20f0e-20f76 Body>
<POP 20f0e-20f24 Prologue> Σ0 ↓
<POP 20f24-20f6e Naked> Σ0 ↓
<Blob 0x20f24 [14] @> Δ-14 {[«14""»]}
<Const 0x20f30 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 20f34-20f36 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x20f36 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 20f48-20f4a StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20f4a MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20f4e EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20f50 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20f52 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x20f54 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 20f5a-20f5c StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x20f5c 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20f62-20f64 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x20f64 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20f6a-20f6e StackAdj> Δ+20 {}
<POP 20f6e-20f76 Epilogue> Σ0
@ 20fca
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 20fca-21106 Body>
<POP 20fca-20fe0 Prologue> Σ0 ↓
<POP 20fe0-20ff6 RegCacheLoad> Σ0 ↓
<POP 20ff6-21056 Naked> Σ0 ↓ →0x2109e
<Call 0x20ff6 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x20ffc [18] @> Δ-18 {[«18""»]}
<POP 21008-2100a StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2100a 18> {[«18""»]|[$$Experiment error :]}
<Call 0x21016 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 21018-21019 StackAdj> Δ+22 ↓ {}
<Blob 0x21019 [14] @> Δ-14 {[«14""»]}
<POP 21028-2102a StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2102a 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 21034-21036 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 21036 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x2103a 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 21040-21042 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x21042 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21048-2104a StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2104a 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2104c-2104e StackAdj> Δ+18 {}
<MI 2104e MOVEA.L (A6+0xa),A0> {}
<MI 21052 CMPA.W #0x01,A0> {}
<MI 21054 BEQ 0x2109e> {}
<POP 21056-2109e Naked> Σ0 ↓
<Blob 0x21056 [14] @> Δ-14 {[«14""»]}
<Blob 0x21066 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 21076-21078 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x21078 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 21082-21084 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x21084> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x21084 12> Δ-4
<Const 0x21088 0x1.2> Δ-2
<Const 0x2108a 0x1e.2> Δ-2
<Call 0x2108c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2108e-21090 StackAdj> Δ+8
<Call 0x21090 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 21096-21098 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x21098 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2109a-2109e StackAdj> Δ+48 {}
<POP 2109e-210fe Naked> Σ0 ↓ ←0x20ff6
<Blob 0x2109e [14] @> Δ-14 {[«14""»]}
<POP 210ae-210b0 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x210b0 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 210ba-210bc StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 210bc MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x210c0 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 210c6-210c8 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x210c8 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 210ce-210d0 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x210d0 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 210d2-210d3 StackAdj> Δ+18 ↓ {}
<Blob 0x210d3 [24] @> Δ-24 {[«24""»]}
<Const 0x210e2 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 210e6-210e8 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x210e8 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x210f6 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 210fc-210fe StackAdj> Δ+30 {}
<POP 210fe-21106 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.3d05c6d32e7db263 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 0b 1a | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 51 4a | QJ | .PTR 0x2514a 00020010 code.end: 00020010 00 02 11 06 | | .PTR 0x21106 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 0f 0e | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 0f ca | | .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 45 52 |@(#)ER | .XXX[0x6] 00020110 41 53 45 44 49 53 4b 2c |ASEDISK,| .XXX[0x18] 00020118 33 2e 31 2c 39 31 2f 30 |3.1,91/0| 00020120 35 2f 31 34 2c 31 33 3a |5/14,13:| 00020128 30 30 3a 30 30 5c |00:00\ | .XXX[0x6] 0002012e 2a 2a 2a 20 41 42 4f 52 |*** ABOR| .TXT '*** ABORT:_ ' 0002013a 45 72 72 6f 72 20 72 65 |Error re| .TXT 'Error reading disk controller EEPROM at location_ ' 0002016c 45 72 72 6f 72 20 64 75 |Error du| .TXT 'Error during WRITE operation, aborting! ' 00020194 45 72 72 6f 72 20 64 75 |Error du| .TXT 'Error during format operation, aborting!' 000201bc 50 6c 65 61 73 65 20 70 |Please p| .TXT 'Please provide a data pattern for pass_ ' 000201e4 45 6e 74 65 72 20 6f 6e |Enter on| .TXT 'Enter one of the following options: ' 00020208 20 20 20 20 30 20 2d 3e | 0 ->| .TXT ' 0 -> data pattern of all zeros' 0002022a 20 20 20 20 31 20 2d 3e | 1 ->| .TXT ' 1 -> data pattern of all ones ' 0002024c 20 20 20 20 32 20 2d 3e | 2 ->| .TXT ' 2 -> you want to supply a character for the data pattern' 00020288 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter your option :_ ' 000202a4 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter only one character!' 000202c4 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter the character to be used for this pattern :_ ' 000202fe 44 6f 20 79 6f 75 20 72 |Do you r| .TXT 'Do you really want to erase a disk' 00020320 45 6e 74 65 72 20 75 6e |Enter un| .TXT 'Enter unit number of disk to be erased :_ ' 0002034a 44 6f 20 79 6f 75 20 72 |Do you r| .TXT 'Do you really want to erase unit_ ' 0002036c 45 6e 74 65 72 20 6e 75 |Enter nu| .TXT 'Enter number of erase passes [ 3..6 ] :_' 00020394 54 68 61 74 20 64 69 73 |That dis| .TXT 'That disk unit does not exist ' 000203b2 54 68 65 20 62 6f 6f 74 |The boot| .TXT 'The boot disk has been erased, please re-boot your system ' 000203ec 53 74 61 72 74 69 6e 67 |Starting| .TXT 'Starting pass_' 000203fa 50 61 73 73 5f 20 |Pass_ | .TXT 'Pass_ ' 00020400 20 64 6f 6e 65 20 | done | .TXT ' done ' 00020406 44 69 73 6b 20 75 6e 69 |Disk uni| .TXT 'Disk unit_' 00020410 20 68 61 73 20 62 65 65 | has bee| .TXT ' has been erased! ' 00020422 50 6c 65 61 73 65 20 72 |Please r| .TXT 'Please re-boot your system' 0002043c ; -------------------------------------------------------------------------------------- 0002043c ; OMSI PASCAL Function 0002043c ; <LVAR 0x008 4(r)> 0002043c ; -------------------------------------------------------------------------------------- 0002043c 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00020440 bf d5 | | CMPA.L (A5),A7 00020442 62 06 |b | BHI 0x2044a 00020444 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020448 4e 76 |Nv | TRAPV 0002044a de fc 00 2c | , | ADDA.W #0x2c,A7 0002044e 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020452 9e fc 00 0c | | SUBA.W #0xc,A7 00020456 20 4f | O | MOVEA.L A7,A0 00020458 43 fa fc d4 |C | LEA.L 0x2012e,A1 0002045c 70 0a |p | MOVEQ.L #0x0a,D0 0002045e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020460 51 c8 ff fc |Q | DBF D0,0x2045e 00020464 51 4f |QO | SUBQ.L #0x8,A7 00020466 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002046a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002046e 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00020472 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020478 58 4f |XO | ADDQ.L #0x4,A7 0002047a 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 0002047e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020484 50 4f |PO | ADDQ.L #0x8,A7 00020486 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002048c de fc 00 10 | | ADDA.W #0x10,A7 00020490 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00020494 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 00020498 4e f9 00 02 0e 5c |N \ | JMP 0x20e5c 0002049e 4c df |L | .XXX[0x2] 000204a0 03 01 4e 5e 4e 75 | N^Nu | .XXX[0x6] 000204a6 ; -------------------------------------------------------------------------------------- 000204a6 ; OMSI PASCAL Function 000204a6 ; <LVAR 0x00e 2(r)> 000204a6 ; <LVAR 0x00c 2(r)> 000204a6 ; <LVAR 0x008 4(r)> 000204a6 ; <LVAR -0x004 @ 1(r)> 000204a6 ; <LVAR -0x008 2(w)> 000204a6 ; <LVAR -0x00a 2(w)> 000204a6 ; <LVAR -0x00c 2(r)> 000204a6 ; <LVAR -0x00e 2(r)> 000204a6 ; <LVAR -0x010 2(w)> 000204a6 ; <LVAR -0x012 2(r)> 000204a6 ; <LVAR -0x014 @ 2(r)> 000204a6 ; -------------------------------------------------------------------------------------- 000204a6 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 000204aa bf d5 | | CMPA.L (A5),A7 000204ac 62 06 |b | BHI 0x204b4 000204ae 44 fc 00 02 |D | MOVE.W #0x2,CCR 000204b2 4e 76 |Nv | TRAPV 000204b4 de fc 00 52 | R | ADDA.W #0x52,A7 000204b8 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 000204bc 42 6e ff ec |Bn | CLR.W (A6-0x14) 000204c0 42 6e ff ee |Bn | CLR.W (A6-0x12) 000204c4 3d 7c 00 02 ff f0 |=| | MOVE.W #0x2,(A6-0x10) 000204ca 42 6e ff f2 |Bn | CLR.W (A6-0xe) 000204ce 42 6e ff f4 |Bn | CLR.W (A6-0xc) 000204d2 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0 000204d6 e1 40 | @ | ASL.W #0x8,D0 000204d8 06 40 00 0e | @ | ADDI.W #0x000e,D0 000204dc 3d 40 ff f6 |=@ | MOVE.W D0,(A6-0xa) 000204e0 3d 6e 00 0c ff f8 |=n | MOVE.W (A6+0xc),(A6-0x8) 000204e6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000204ea 48 6e ff ec |Hn | PEA.L (A6-0x14) 000204ee 22 48 |"H | MOVEA.L A0,A1 000204f0 2f 09 |/ | MOVE.L A1,-(A7) 000204f2 42 67 |Bg | CLR.W -(A7) 000204f4 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000204fa 50 4f |PO | ADDQ.L #0x8,A7 000204fc 42 57 |BW | CLR.W (A7) 000204fe 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020502 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00020508 5c 4f |\O | ADDQ.L #0x6,A7 0002050a 02 50 00 ff | P | ANDI.W #0x00ff,(A0) 0002050e 4a 2e ff fc |J. | TST.B (A6-0x4) 00020512 66 48 |fH | BNE 0x2055c 00020514 9e fc 00 32 | 2 | SUBA.W #0x32,A7 00020518 20 4f | O | MOVEA.L A7,A0 0002051a 43 fa fc 1e |C | LEA.L 0x2013a,A1 0002051e 70 30 |p0 | MOVEQ.L #0x30,D0 00020520 10 d9 | | MOVE.B (A1)+,(A0)+ 00020522 51 c8 ff fc |Q | DBF D0,0x20520 00020526 51 4f |QO | SUBQ.L #0x8,A7 00020528 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002052c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020530 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 00020534 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002053a 58 4f |XO | ADDQ.L #0x4,A7 0002053c 42 80 |B | CLR.L D0 0002053e 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 00020542 2f 00 |/ | MOVE.L D0,-(A7) 00020544 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002054a 58 4f |XO | ADDQ.L #0x4,A7 0002054c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020552 50 4f |PO | ADDQ.L #0x8,A7 00020554 4e ba fe e6 |N | JSR 0x2043c 00020558 de fc 00 36 | 6 | ADDA.W #0x36,A7 0002055c 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020560 4e 5e |N^ | UNLK A6 00020562 4e 75 |Nu | RTS 00020564 ; -------------------------------------------------------------------------------------- 00020564 ; OMSI PASCAL Function 00020564 ; <LVAR 0x00a 1(rw)> 00020564 ; <LVAR 0x008 2(r)> 00020564 ; <LVAR -0x008 @ 2(r)> 00020564 ; <LVAR -0x00a @> 00020564 ; <LVAR -0x00c 2(r)> 00020564 ; <LVAR -0x00e 2(r)> 00020564 ; <LVAR -0x010 2(w)> 00020564 ; <LVAR -0x012 2(r)> 00020564 ; <LVAR -0x014 2(r)> 00020564 ; <LVAR -0x016 2(w)> 00020564 ; <LVAR -0x018 2(r)> 00020564 ; <LVAR -0x01a @ 2(r)> 00020564 ; -------------------------------------------------------------------------------------- 00020564 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 00020568 bf d5 | | CMPA.L (A5),A7 0002056a 62 06 |b | BHI 0x20572 0002056c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020570 4e 76 |Nv | TRAPV 00020572 de fc 00 16 | | ADDA.W #0x16,A7 00020576 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002057a 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 0002057e 42 6e ff e8 |Bn | CLR.W (A6-0x18) 00020582 3d 7c 00 02 ff ea |=| | MOVE.W #0x2,(A6-0x16) 00020588 42 6e ff ec |Bn | CLR.W (A6-0x14) 0002058c 42 6e ff ee |Bn | CLR.W (A6-0x12) 00020590 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 00020594 e1 40 | @ | ASL.W #0x8,D0 00020596 3d 40 ff f0 |=@ | MOVE.W D0,(A6-0x10) 0002059a 42 6e ff f2 |Bn | CLR.W (A6-0xe) 0002059e 42 6e ff f4 |Bn | CLR.W (A6-0xc) 000205a2 48 6e ff e6 |Hn | PEA.L (A6-0x1a) 000205a6 41 ee ff f8 |A | LEA.L (A6-0x8),A0 000205aa 2f 08 |/ | MOVE.L A0,-(A7) 000205ac 42 67 |Bg | CLR.W -(A7) 000205ae 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000205b4 50 4f |PO | ADDQ.L #0x8,A7 000205b6 42 57 |BW | CLR.W (A7) 000205b8 48 6e ff f6 |Hn | PEA.L (A6-0xa) 000205bc 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000205c2 5c 4f |\O | ADDQ.L #0x6,A7 000205c4 42 2e 00 0a |B. | CLR.B (A6+0xa) 000205c8 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0 000205cc 0c 40 00 01 | @ | CMPI.W #0x0001,D0 000205d0 66 04 |f | BNE 0x205d6 000205d2 52 2e 00 0a |R. | ADDQ.B #0x1,(A6+0xa) 000205d6 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000205da 4e 5e |N^ | UNLK A6 000205dc 4e 75 |Nu | RTS 000205de ; -------------------------------------------------------------------------------------- 000205de ; OMSI PASCAL Function 000205de ; <LVAR 0x018 4(r)> 000205de ; <LVAR 0x014 4(r)> 000205de ; <LVAR 0x010 4(r)> 000205de ; <LVAR 0x00c 4(r)> 000205de ; <LVAR 0x008 4(r)> 000205de ; -------------------------------------------------------------------------------------- 000205de 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 000205e2 bf d5 | | CMPA.L (A5),A7 000205e4 62 06 |b | BHI 0x205ec 000205e6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000205ea 4e 76 |Nv | TRAPV 000205ec de fc 00 4c | L | ADDA.W #0x4c,A7 000205f0 48 e7 f9 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7) 000205f4 45 f9 00 01 02 94 |E | LEA.L ?divs_d3_d4,A2 000205fa 47 f9 00 02 51 10 |G Q | LEA.L 0x25110,A3 00020600 74 08 |t | MOVEQ.L #0x08,D2 00020602 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020606 2f 08 |/ | MOVE.L A0,-(A7) 00020608 42 10 |B | CLR.B (A0) 0002060a 22 6e 00 10 |"n | MOVEA.L (A6+0x10),A1 0002060e 2f 09 |/ | MOVE.L A1,-(A7) 00020610 30 39 00 02 51 12 |09 Q | MOVE.W 0x25112,D0 00020616 48 c0 |H | EXTW.L D0 00020618 2f 00 |/ | MOVE.L D0,-(A7) 0002061a b0 91 | | CMP.L (A1),D0 0002061c 6e 24 |n$ | BGT 0x20642 0002061e 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0 00020622 28 11 |( | MOVE.L (A1),D4 00020624 26 00 |& | MOVE.L D0,D3 00020626 4e 92 |N | JSR (A2) 00020628 d9 90 | | ADD.L D4,(A0) 0002062a 22 83 |" | MOVE.L D3,(A1) 0002062c 30 13 |0 | MOVE.W (A3),D0 0002062e 48 c0 |H | EXTW.L D0 00020630 b0 90 | | CMP.L (A0),D0 00020632 6e 0e |n | BGT 0x20642 00020634 22 6e 00 18 |"n | MOVEA.L (A6+0x18),A1 00020638 28 10 |( | MOVE.L (A0),D4 0002063a 26 00 |& | MOVE.L D0,D3 0002063c 4e 92 |N | JSR (A2) 0002063e d9 91 | | ADD.L D4,(A1) 00020640 20 83 | | MOVE.L D3,(A0) 00020642 20 6e 00 18 | n | MOVEA.L (A6+0x18),A0 00020646 20 10 | | MOVE.L (A0),D0 00020648 52 80 |R | ADDQ.L #0x1,D0 0002064a 42 81 |B | CLR.L D1 0002064c 32 39 00 02 51 0e |29 Q | MOVE.W 0x2510e,D1 00020652 b0 81 | | CMP.L D1,D0 00020654 64 08 |d | BCC 0x2065e 00020656 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002065a 20 82 | | MOVE.L D2,(A0) 0002065c 60 42 |`B | BRA 0x206a0 0002065e b2 90 | | CMP.L (A0),D1 00020660 66 0a |f | BNE 0x2066c 00020662 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 00020666 10 bc 00 01 | | MOVE.B #0x01,(A0) 0002066a 60 34 |`4 | BRA 0x206a0 0002066c 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0 00020670 30 13 |0 | MOVE.W (A3),D0 00020672 48 c0 |H | EXTW.L D0 00020674 90 90 | | SUB.L (A0),D0 00020676 53 80 |S | SUBQ.L #0x1,D0 00020678 28 00 |( | MOVE.L D0,D4 0002067a 26 17 |& | MOVE.L (A7),D3 0002067c 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00020682 20 17 | | MOVE.L (A7),D0 00020684 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00020688 90 90 | | SUB.L (A0),D0 0002068a d0 84 | | ADD.L D4,D0 0002068c 28 00 |( | MOVE.L D0,D4 0002068e 76 02 |v | MOVEQ.L #0x02,D3 00020690 4e 92 |N | JSR (A2) 00020692 2e 04 |. | MOVE.L D4,D7 00020694 be 82 | | CMP.L D2,D7 00020696 6d 02 |m | BLT 0x2069a 00020698 60 bc |` | BRA 0x20656 0002069a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002069e 20 87 | | MOVE.L D7,(A0) 000206a0 de fc 00 0c | | ADDA.W #0xc,A7 000206a4 4c df 0f 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3 000206a8 4e 5e |N^ | UNLK A6 000206aa 4e 75 |Nu | RTS 000206ac ; -------------------------------------------------------------------------------------- 000206ac ; OMSI PASCAL Function 000206ac ; <LVAR 0x00c 2(r)> 000206ac ; <LVAR 0x008 4(r)> 000206ac ; <LVAR -0x004 @ 4(rw)> 000206ac ; <LVAR -0x008 @ 4(r)> 000206ac ; <LVAR -0x00c @ 4(r)> 000206ac ; <LVAR -0x010 @ 4(rw)> 000206ac ; <LVAR -0x016 @> 000206ac ; <LVAR -0x018 @ 2(r)> 000206ac ; <LVAR -0x01a @ 2(r)> 000206ac ; <LVAR -0x01c @ 2(r)> 000206ac ; <LVAR -0x01e @ 2(r)> 000206ac ; <LVAR -0x021 @ 1(r)> 000206ac ; <LVAR -0x022 @ 1(r)> 000206ac ; <LVAR -0x024 2(w)> 000206ac ; <LVAR -0x026 2(w)> 000206ac ; <LVAR -0x028 2(w)> 000206ac ; <LVAR -0x02a 2(r)> 000206ac ; <LVAR -0x02c 2(r)> 000206ac ; <LVAR -0x02e 2(w)> 000206ac ; <LVAR -0x030 2(r)> 000206ac ; <LVAR -0x032 @ 2(w)> 000206ac ; -------------------------------------------------------------------------------------- 000206ac 4e 56 ff 6e |NV n | LINK.W A6,#0xff6e 000206b0 bf d5 | | CMPA.L (A5),A7 000206b2 62 06 |b | BHI 0x206ba 000206b4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000206b8 4e 76 |Nv | TRAPV 000206ba de fc 00 60 | ` | ADDA.W #0x60,A7 000206be 48 e7 e3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D2+D1+D0,-(A7) 000206c2 45 fa fd e2 |E | LEA.L 0x204a6,A2 000206c6 47 ee ff f0 |G | LEA.L (A6-0x10),A3 000206ca 49 ee ff fc |I | LEA.L (A6-0x4),A4 000206ce 24 3c 00 00 ff ff |$< | MOVE.L #0xffff,D2 000206d4 7e 00 |~ | MOVEQ.L #0x00,D7 000206d6 0c 87 00 00 1f ff | | CMPI.L #0x00001fff,D7 000206dc 63 02 |c | BLS 0x206e0 000206de 4e 4f |NO | TRAP #15 000206e0 20 07 | | MOVE.L D7,D0 000206e2 e3 80 | | ASL.L #0x1,D0 000206e4 41 f9 00 02 11 06 |A | LEA.L 0x21106,A0 000206ea 22 2e 00 08 |". | MOVE.L (A6+0x8),D1 000206ee b2 82 | | CMP.L D2,D1 000206f0 63 02 |c | BLS 0x206f4 000206f2 4e 4f |NO | TRAP #15 000206f4 31 81 08 08 |1 | MOVE.W D1,(A0+D0.L+#0x8) 000206f8 52 87 |R | ADDQ.L #0x1,D7 000206fa 0c 87 00 00 1f ff | | CMPI.L #0x00001fff,D7 00020700 6f d4 |o | BLE 0x206d6 00020702 3c 2e 00 0c |<. | MOVE.W (A6+0xc),D6 00020706 02 46 00 03 | F | ANDI.W #0x0003,D6 0002070a 3f 06 |? | MOVE.W D6,-(A7) 0002070c 3f 3c 02 d0 |?< | MOVE.W #0x2d0,-(A7) 00020710 dd 57 | W | ADD.W D6,(A7) 00020712 48 6e ff e2 |Hn | PEA.L (A6-0x1e) 00020716 4e 92 |N | JSR (A2) 00020718 5c 4f |\O | ADDQ.L #0x6,A7 0002071a 3e 86 |> | MOVE.W D6,(A7) 0002071c 3f 3c 03 50 |?< P | MOVE.W #0x350,-(A7) 00020720 dd 57 | W | ADD.W D6,(A7) 00020722 48 6e ff e4 |Hn | PEA.L (A6-0x1c) 00020726 4e 92 |N | JSR (A2) 00020728 5c 4f |\O | ADDQ.L #0x6,A7 0002072a 3e 86 |> | MOVE.W D6,(A7) 0002072c 3f 3c 01 d0 |?< | MOVE.W #0x1d0,-(A7) 00020730 dd 57 | W | ADD.W D6,(A7) 00020732 48 6e ff e6 |Hn | PEA.L (A6-0x1a) 00020736 4e 92 |N | JSR (A2) 00020738 5c 4f |\O | ADDQ.L #0x6,A7 0002073a 3e 86 |> | MOVE.W D6,(A7) 0002073c 3f 3c 02 50 |?< P | MOVE.W #0x250,-(A7) 00020740 dd 57 | W | ADD.W D6,(A7) 00020742 48 6e ff e8 |Hn | PEA.L (A6-0x18) 00020746 4e 92 |N | JSR (A2) 00020748 5c 4f |\O | ADDQ.L #0x6,A7 0002074a 3e 86 |> | MOVE.W D6,(A7) 0002074c 3f 3c 03 10 |?< | MOVE.W #0x310,-(A7) 00020750 dd 57 | W | ADD.W D6,(A7) 00020752 48 6e ff ea |Hn | PEA.L (A6-0x16) 00020756 4e 92 |N | JSR (A2) 00020758 50 4f |PO | ADDQ.L #0x8,A7 0002075a 42 80 |B | CLR.L D0 0002075c 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0 00020760 e1 80 | | ASL.L #0x8,D0 00020762 42 81 |B | CLR.L D1 00020764 32 2e ff e6 |2. | MOVE.W (A6-0x1a),D1 00020768 d0 81 | | ADD.L D1,D0 0002076a b0 82 | | CMP.L D2,D0 0002076c 63 02 |c | BLS 0x20770 0002076e 4e 4f |NO | TRAP #15 00020770 33 c0 00 02 51 0e |3 Q | MOVE.W D0,0x2510e 00020776 30 2e ff e4 |0. | MOVE.W (A6-0x1c),D0 0002077a 41 bc 00 ff |A | CHK.W #0xff,D0 0002077e 33 c0 00 02 51 10 |3 Q | MOVE.W D0,0x25110 00020784 30 2e ff e2 |0. | MOVE.W (A6-0x1e),D0 00020788 41 bc 00 ff |A | CHK.W #0xff,D0 0002078c 33 c0 00 02 51 12 |3 Q | MOVE.W D0,0x25112 00020792 42 93 |B | CLR.L (A3) 00020794 42 ae ff f4 |B | CLR.L (A6-0xc) 00020798 42 ae ff f8 |B | CLR.L (A6-0x8) 0002079c 28 bc 00 00 00 08 |( | MOVE.L #0x8,(A4) 000207a2 42 6e ff d0 |Bn | CLR.W (A6-0x30) 000207a6 3d 7c 00 02 ff d2 |=| | MOVE.W #0x2,(A6-0x2e) 000207ac 42 6e ff d4 |Bn | CLR.W (A6-0x2c) 000207b0 42 6e ff d6 |Bn | CLR.W (A6-0x2a) 000207b4 30 06 |0 | MOVE.W D6,D0 000207b6 e1 40 | @ | ASL.W #0x8,D0 000207b8 56 40 |V@ | ADDQ.W #0x3,D0 000207ba 3d 40 ff d8 |=@ | MOVE.W D0,(A6-0x28) 000207be 20 14 | | MOVE.L (A4),D0 000207c0 e1 80 | | ASL.L #0x8,D0 000207c2 b0 82 | | CMP.L D2,D0 000207c4 63 02 |c | BLS 0x207c8 000207c6 4e 4f |NO | TRAP #15 000207c8 3d 40 ff ce |=@ | MOVE.W D0,(A6-0x32) 000207cc 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 000207d0 b0 82 | | CMP.L D2,D0 000207d2 63 02 |c | BLS 0x207d6 000207d4 4e 4f |NO | TRAP #15 000207d6 3d 40 ff da |=@ | MOVE.W D0,(A6-0x26) 000207da 20 2e ff f4 | . | MOVE.L (A6-0xc),D0 000207de e1 80 | | ASL.L #0x8,D0 000207e0 d0 93 | | ADD.L (A3),D0 000207e2 b0 82 | | CMP.L D2,D0 000207e4 63 02 |c | BLS 0x207e8 000207e6 4e 4f |NO | TRAP #15 000207e8 3d 40 ff dc |=@ | MOVE.W D0,(A6-0x24) 000207ec 48 6e ff ce |Hn | PEA.L (A6-0x32) 000207f0 41 f9 00 02 11 0e |A | LEA.L 0x2110e,A0 000207f6 2f 08 |/ | MOVE.L A0,-(A7) 000207f8 42 67 |Bg | CLR.W -(A7) 000207fa 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00020800 de fc 00 0a | | ADDA.W #0xa,A7 00020804 20 14 | | MOVE.L (A4),D0 00020806 e3 80 | | ASL.L #0x1,D0 00020808 d1 93 | | ADD.L D0,(A3) 0002080a 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002080e 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00020812 48 53 |HS | PEA.L (A3) 00020814 48 54 |HT | PEA.L (A4) 00020816 48 6e ff df |Hn | PEA.L (A6-0x21) 0002081a 4e ba fd c2 |N | JSR 0x205de 0002081e de fc 00 12 | | ADDA.W #0x12,A7 00020822 42 57 |BW | CLR.W (A7) 00020824 48 6e ff de |Hn | PEA.L (A6-0x22) 00020828 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 0002082e 5c 4f |\O | ADDQ.L #0x6,A7 00020830 4a 2e ff de |J. | TST.B (A6-0x22) 00020834 66 40 |f@ | BNE 0x20876 00020836 9e fc 00 28 | ( | SUBA.W #0x28,A7 0002083a 20 4f | O | MOVEA.L A7,A0 0002083c 43 fa f9 2e |C . | LEA.L 0x2016c,A1 00020840 70 26 |p& | MOVEQ.L #0x26,D0 00020842 10 d9 | | MOVE.B (A1)+,(A0)+ 00020844 51 c8 ff fc |Q | DBF D0,0x20842 00020848 59 4f |YO | SUBQ.L #0x4,A7 0002084a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002084e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020852 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00020856 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002085c 50 4f |PO | ADDQ.L #0x8,A7 0002085e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020864 de fc 00 2c | , | ADDA.W #0x2c,A7 00020868 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 0002086c 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 00020870 4e f9 00 02 0e 5c |N \ | JMP 0x20e5c 00020876 4a 2e ff df |J. | TST.B (A6-0x21) 0002087a 67 00 ff 42 |g B | BEQ 0x207be 0002087e 4c df 1f c7 |L | MOVEM.L (A7)+,D0+D1+D2+D6+D7+A0+A1+A2+A3+A4 00020882 4e 5e |N^ | UNLK A6 00020884 4e 75 |Nu | RTS 00020886 ; -------------------------------------------------------------------------------------- 00020886 ; OMSI PASCAL Function 00020886 ; <LVAR 0x00c 2(r)> 00020886 ; <LVAR 0x008 4(r)> 00020886 ; <LVAR -0x002 @ 1(r)> 00020886 ; <LVAR -0x004 2(r)> 00020886 ; <LVAR -0x006 2(w)> 00020886 ; <LVAR -0x008 2(w)> 00020886 ; <LVAR -0x00a 2(r)> 00020886 ; <LVAR -0x00c 2(r)> 00020886 ; <LVAR -0x00e 2(w)> 00020886 ; <LVAR -0x010 2(r)> 00020886 ; <LVAR -0x012 @ 2(r)> 00020886 ; -------------------------------------------------------------------------------------- 00020886 4e 56 ff ae |NV | LINK.W A6,#0xffae 0002088a bf d5 | | CMPA.L (A5),A7 0002088c 62 06 |b | BHI 0x20894 0002088e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020892 4e 76 |Nv | TRAPV 00020894 de fc 00 40 | @ | ADDA.W #0x40,A7 00020898 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002089c 42 6e ff ee |Bn | CLR.W (A6-0x12) 000208a0 42 6e ff f0 |Bn | CLR.W (A6-0x10) 000208a4 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe) 000208aa 42 6e ff f4 |Bn | CLR.W (A6-0xc) 000208ae 42 6e ff f6 |Bn | CLR.W (A6-0xa) 000208b2 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 000208b6 e1 40 | @ | ASL.W #0x8,D0 000208b8 06 40 00 0d | @ | ADDI.W #0x000d,D0 000208bc 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 000208c0 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 000208c4 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000208ca 63 02 |c | BLS 0x208ce 000208cc 4e 4f |NO | TRAP #15 000208ce 3d 40 ff fa |=@ | MOVE.W D0,(A6-0x6) 000208d2 42 6e ff fc |Bn | CLR.W (A6-0x4) 000208d6 48 6e ff ee |Hn | PEA.L (A6-0x12) 000208da 48 78 00 00 |Hx | PEA.L 0x0 000208de 42 67 |Bg | CLR.W -(A7) 000208e0 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000208e6 50 4f |PO | ADDQ.L #0x8,A7 000208e8 42 57 |BW | CLR.W (A7) 000208ea 48 6e ff fe |Hn | PEA.L (A6-0x2) 000208ee 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000208f4 5c 4f |\O | ADDQ.L #0x6,A7 000208f6 4a 2e ff fe |J. | TST.B (A6-0x2) 000208fa 66 3a |f: | BNE 0x20936 000208fc 41 fa f8 be |A | LEA.L 0x201bc,A0 00020900 70 09 |p | MOVEQ.L #0x09,D0 00020902 2f 20 |/ | MOVE.L -(A0),-(A7) 00020904 51 c8 ff fc |Q | DBF D0,0x20902 00020908 59 4f |YO | SUBQ.L #0x4,A7 0002090a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002090e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020912 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 00020916 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002091c 50 4f |PO | ADDQ.L #0x8,A7 0002091e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020924 de fc 00 2c | , | ADDA.W #0x2c,A7 00020928 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 0002092c 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 00020930 4e f9 00 02 0e 5c |N \ | JMP 0x20e5c 00020936 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 0002093a 4e 5e |N^ | UNLK A6 0002093c 4e 75 |Nu | RTS 0002093e ; -------------------------------------------------------------------------------------- 0002093e ; OMSI PASCAL Function 0002093e ; <LVAR 0x00c 4(r)> 0002093e ; <LVAR 0x008 4(r)> 0002093e ; <LVAR -0x004 @ 4(rw)> 0002093e ; -------------------------------------------------------------------------------------- 0002093e 4e 56 ff 72 |NV r | LINK.W A6,#0xff72 00020942 bf d5 | | CMPA.L (A5),A7 00020944 62 06 |b | BHI 0x2094c 00020946 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002094a 4e 76 |Nv | TRAPV 0002094c de fc 00 82 | | ADDA.W #0x82,A7 00020950 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020954 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 0002095a 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00020960 49 ee ff fc |I | LEA.L (A6-0x4),A4 00020964 72 01 |r | MOVEQ.L #0x01,D1 00020966 74 28 |t( | MOVEQ.L #0x28,D2 00020968 76 24 |v$ | MOVEQ.L #0x24,D3 0002096a 78 1c |x | MOVEQ.L #0x1c,D4 0002096c 7a 3a |z: | MOVEQ.L #0x3a,D5 0002096e 9e c2 | | SUBA.W D2,A7 00020970 20 4f | O | MOVEA.L A7,A0 00020972 43 fa f8 48 |C H | LEA.L 0x201bc,A1 00020976 70 26 |p& | MOVEQ.L #0x26,D0 00020978 10 d9 | | MOVE.B (A1)+,(A0)+ 0002097a 51 c8 ff fc |Q | DBF D0,0x20978 0002097e 51 4f |QO | SUBQ.L #0x8,A7 00020980 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020984 3f 01 |? | MOVE.W D1,-(A7) 00020986 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 0002098a 4e 92 |N | JSR (A2) 0002098c 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 00020990 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020996 58 4f |XO | ADDQ.L #0x4,A7 00020998 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002099e 50 4f |PO | ADDQ.L #0x8,A7 000209a0 4e 93 |N | JSR (A3) 000209a2 de fc 00 2c | , | ADDA.W #0x2c,A7 000209a6 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000209ac 9e c3 | | SUBA.W D3,A7 000209ae 20 4f | O | MOVEA.L A7,A0 000209b0 43 fa f8 32 |C 2 | LEA.L 0x201e4,A1 000209b4 70 22 |p" | MOVEQ.L #0x22,D0 000209b6 10 d9 | | MOVE.B (A1)+,(A0)+ 000209b8 51 c8 ff fc |Q | DBF D0,0x209b6 000209bc 59 4f |YO | SUBQ.L #0x4,A7 000209be 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000209c2 3f 01 |? | MOVE.W D1,-(A7) 000209c4 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 000209c8 4e 92 |N | JSR (A2) 000209ca 50 4f |PO | ADDQ.L #0x8,A7 000209cc 4e 93 |N | JSR (A3) 000209ce de c2 | | ADDA.W D2,A7 000209d0 41 fa f8 58 |A X | LEA.L 0x2022a,A0 000209d4 70 10 |p | MOVEQ.L #0x10,D0 000209d6 3f 20 |? | MOVE.W -(A0),-(A7) 000209d8 51 c8 ff fc |Q | DBF D0,0x209d6 000209dc 59 4f |YO | SUBQ.L #0x4,A7 000209de 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000209e2 3f 01 |? | MOVE.W D1,-(A7) 000209e4 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 000209e8 4e 92 |N | JSR (A2) 000209ea 50 4f |PO | ADDQ.L #0x8,A7 000209ec 4e 93 |N | JSR (A3) 000209ee 58 4f |XO | ADDQ.L #0x4,A7 000209f0 20 4f | O | MOVEA.L A7,A0 000209f2 43 fa f8 36 |C 6 | LEA.L 0x2022a,A1 000209f6 70 20 |p | MOVEQ.L #0x20,D0 000209f8 10 d9 | | MOVE.B (A1)+,(A0)+ 000209fa 51 c8 ff fc |Q | DBF D0,0x209f8 000209fe 59 4f |YO | SUBQ.L #0x4,A7 00020a00 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a04 3f 01 |? | MOVE.W D1,-(A7) 00020a06 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 00020a0a 4e 92 |N | JSR (A2) 00020a0c 50 4f |PO | ADDQ.L #0x8,A7 00020a0e 4e 93 |N | JSR (A3) 00020a10 de fc 00 26 | & | ADDA.W #0x26,A7 00020a14 41 fa f8 72 |A r | LEA.L 0x20288,A0 00020a18 70 0e |p | MOVEQ.L #0x0e,D0 00020a1a 2f 20 |/ | MOVE.L -(A0),-(A7) 00020a1c 51 c8 ff fc |Q | DBF D0,0x20a1a 00020a20 59 4f |YO | SUBQ.L #0x4,A7 00020a22 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a26 3f 01 |? | MOVE.W D1,-(A7) 00020a28 3f 3c 00 3c |?< < | MOVE.W #0x3c,-(A7) 00020a2c 4e 92 |N | JSR (A2) 00020a2e 50 4f |PO | ADDQ.L #0x8,A7 00020a30 4e 93 |N | JSR (A3) 00020a32 de fc 00 40 | @ | ADDA.W #0x40,A7 00020a36 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020a3c 9e c4 | | SUBA.W D4,A7 00020a3e 20 4f | O | MOVEA.L A7,A0 00020a40 43 fa f8 46 |C F | LEA.L 0x20288,A1 00020a44 70 1a |p | MOVEQ.L #0x1a,D0 00020a46 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a48 51 c8 ff fc |Q | DBF D0,0x20a46 00020a4c 51 4f |QO | SUBQ.L #0x8,A7 00020a4e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020a52 3f 01 |? | MOVE.W D1,-(A7) 00020a54 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00020a58 4e 92 |N | JSR (A2) 00020a5a 50 4f |PO | ADDQ.L #0x8,A7 00020a5c 48 78 00 00 |Hx | PEA.L 0x0 00020a60 48 78 00 02 |Hx | PEA.L 0x2 00020a64 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00020a6a de fc 00 0c | | ADDA.W #0xc,A7 00020a6e 2e 1f |. | MOVE.L (A7)+,D7 00020a70 de c4 | | ADDA.W D4,A7 00020a72 4a 87 |J | TST.L D7 00020a74 66 0a |f | BNE 0x20a80 00020a76 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020a7a 42 90 |B | CLR.L (A0) 00020a7c 60 00 00 94 |` | BRA 0x20b12 00020a80 be 81 | | CMP.L D1,D7 00020a82 66 0e |f | BNE 0x20a92 00020a84 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020a88 20 bc 00 00 ff ff | | MOVE.L #0xffff,(A0) 00020a8e 60 00 00 82 |` | BRA 0x20b12 00020a92 28 81 |( | MOVE.L D1,(A4) 00020a94 20 54 | T | MOVEA.L (A4),A0 00020a96 b0 c1 | | CMPA.W D1,A0 00020a98 67 0a |g | BEQ 0x20aa4 00020a9a 48 54 |HT | PEA.L (A4) 00020a9c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020aa2 58 4f |XO | ADDQ.L #0x4,A7 00020aa4 9e c5 | | SUBA.W D5,A7 00020aa6 20 4f | O | MOVEA.L A7,A0 00020aa8 43 fa f8 1a |C | LEA.L 0x202c4,A1 00020aac 70 38 |p8 | MOVEQ.L #0x38,D0 00020aae 10 d9 | | MOVE.B (A1)+,(A0)+ 00020ab0 51 c8 ff fc |Q | DBF D0,0x20aae 00020ab4 51 4f |QO | SUBQ.L #0x8,A7 00020ab6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020aba 3f 01 |? | MOVE.W D1,-(A7) 00020abc 3f 3c 00 39 |?< 9 | MOVE.W #0x39,-(A7) 00020ac0 4e 92 |N | JSR (A2) 00020ac2 50 4f |PO | ADDQ.L #0x8,A7 00020ac4 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00020aca 58 4f |XO | ADDQ.L #0x4,A7 00020acc 28 9f |( | MOVE.L (A7)+,(A4) 00020ace de c5 | | ADDA.W D5,A7 00020ad0 20 54 | T | MOVEA.L (A4),A0 00020ad2 30 10 |0 | MOVE.W (A0),D0 00020ad4 b0 41 | A | CMP.W D1,D0 00020ad6 67 20 |g | BEQ 0x20af8 00020ad8 43 fa f7 ea |C | LEA.L 0x202c4,A1 00020adc 70 07 |p | MOVEQ.L #0x07,D0 00020ade 2f 21 |/! | MOVE.L -(A1),-(A7) 00020ae0 51 c8 ff fc |Q | DBF D0,0x20ade 00020ae4 59 4f |YO | SUBQ.L #0x4,A7 00020ae6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020aea 3f 01 |? | MOVE.W D1,-(A7) 00020aec 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00020af0 4e 92 |N | JSR (A2) 00020af2 50 4f |PO | ADDQ.L #0x8,A7 00020af4 4e 93 |N | JSR (A3) 00020af6 de c3 | | ADDA.W D3,A7 00020af8 30 10 |0 | MOVE.W (A0),D0 00020afa b0 41 | A | CMP.W D1,D0 00020afc 66 96 |f | BNE 0x20a94 00020afe 42 80 |B | CLR.L D0 00020b00 10 28 00 02 | ( | MOVE.B (A0+0x2),D0 00020b04 2c 00 |, | MOVE.L D0,D6 00020b06 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020b0a 20 06 | | MOVE.L D6,D0 00020b0c e1 80 | | ASL.L #0x8,D0 00020b0e d0 86 | | ADD.L D6,D0 00020b10 20 80 | | MOVE.L D0,(A0) 00020b12 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020b16 4e 5e |N^ | UNLK A6 00020b18 4e 75 |Nu | RTS 00020b1a ; -------------------------------------------------------------------------------------- 00020b1a ; OMSI PASCAL Function 00020b1a ; -------------------------------------------------------------------------------------- 00020b1a START: 00020b1a 4f fa 00 08 |O | LEA.L MAIN,A7 00020b1e 4e f9 00 01 02 80 |N | JMP ?start_program 00020b24 MAIN: 00020b24 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020b2a 41 fa f7 f4 |A | LEA.L 0x20320,A0 00020b2e 70 10 |p | MOVEQ.L #0x10,D0 00020b30 3f 20 |? | MOVE.W -(A0),-(A7) 00020b32 51 c8 ff fc |Q | DBF D0,0x20b30 00020b36 5d 4f |]O | SUBQ.L #0x6,A7 00020b38 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020b3c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020b40 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00020b44 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020b4a 5c 4f |\O | ADDQ.L #0x6,A7 00020b4c 42 17 |B | CLR.B (A7) 00020b4e 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00020b54 5c 4f |\O | ADDQ.L #0x6,A7 00020b56 4a 1f |J | TST.B (A7)+ 00020b58 66 0e |f | BNE 0x20b68 00020b5a 42 27 |B' | CLR.B -(A7) 00020b5c 48 78 00 01 |Hx | PEA.L 0x1 00020b60 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020b66 5c 4f |\O | ADDQ.L #0x6,A7 00020b68 51 4f |QO | SUBQ.L #0x8,A7 00020b6a 20 4f | O | MOVEA.L A7,A0 00020b6c 43 fa f7 b2 |C | LEA.L 0x20320,A1 00020b70 70 28 |p( | MOVEQ.L #0x28,D0 00020b72 10 d9 | | MOVE.B (A1)+,(A0)+ 00020b74 51 c8 ff fc |Q | DBF D0,0x20b72 00020b78 51 4f |QO | SUBQ.L #0x8,A7 00020b7a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020b7e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020b82 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 00020b86 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020b8c 50 4f |PO | ADDQ.L #0x8,A7 00020b8e 48 78 00 00 |Hx | PEA.L 0x0 00020b92 48 78 00 0f |Hx | PEA.L 0xf 00020b96 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00020b9c de fc 00 0c | | ADDA.W #0xc,A7 00020ba0 20 1f | | MOVE.L (A7)+,D0 00020ba2 0c 80 00 00 00 0f | | CMPI.L #0x0000000f,D0 00020ba8 63 02 |c | BLS 0x20bac 00020baa 4e 4f |NO | TRAP #15 00020bac de fc 00 2a | * | ADDA.W #0x2a,A7 00020bb0 33 c0 00 02 51 38 |3 Q8 | MOVE.W D0,0x25138 00020bb6 55 4f |UO | SUBQ.L #0x2,A7 00020bb8 3f 00 |? | MOVE.W D0,-(A7) 00020bba 4e ba f9 a8 |N | JSR 0x20564 00020bbe 54 4f |TO | ADDQ.L #0x2,A7 00020bc0 4a 1f |J | TST.B (A7)+ 00020bc2 66 34 |f4 | BNE 0x20bf8 00020bc4 9e fc 00 1e | | SUBA.W #0x1e,A7 00020bc8 20 4f | O | MOVEA.L A7,A0 00020bca 43 fa f7 c8 |C | LEA.L 0x20394,A1 00020bce 70 1c |p | MOVEQ.L #0x1c,D0 00020bd0 10 d9 | | MOVE.B (A1)+,(A0)+ 00020bd2 51 c8 ff fc |Q | DBF D0,0x20bd0 00020bd6 42 27 |B' | CLR.B -(A7) 00020bd8 59 4f |YO | SUBQ.L #0x4,A7 00020bda 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020bde 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020be2 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00020be6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020bec 50 4f |PO | ADDQ.L #0x8,A7 00020bee 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020bf4 de fc 00 24 | $ | ADDA.W #0x24,A7 00020bf8 9e fc 00 22 | " | SUBA.W #0x22,A7 00020bfc 20 4f | O | MOVEA.L A7,A0 00020bfe 43 fa f7 4a |C J | LEA.L 0x2034a,A1 00020c02 70 20 |p | MOVEQ.L #0x20,D0 00020c04 10 d9 | | MOVE.B (A1)+,(A0)+ 00020c06 51 c8 ff fc |Q | DBF D0,0x20c04 00020c0a 9e fc 00 0a | | SUBA.W #0xa,A7 00020c0e 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020c12 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020c16 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 00020c1a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020c20 58 4f |XO | ADDQ.L #0x4,A7 00020c22 30 39 00 02 51 38 |09 Q8 | MOVE.W 0x25138,D0 00020c28 48 c0 |H | EXTW.L D0 00020c2a 2f 00 |/ | MOVE.L D0,-(A7) 00020c2c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020c32 58 4f |XO | ADDQ.L #0x4,A7 00020c34 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020c3a 5c 4f |\O | ADDQ.L #0x6,A7 00020c3c 42 17 |B | CLR.B (A7) 00020c3e 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00020c44 5c 4f |\O | ADDQ.L #0x6,A7 00020c46 4a 1f |J | TST.B (A7)+ 00020c48 66 0e |f | BNE 0x20c58 00020c4a 42 27 |B' | CLR.B -(A7) 00020c4c 48 78 00 01 |Hx | PEA.L 0x1 00020c50 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020c56 5c 4f |\O | ADDQ.L #0x6,A7 00020c58 de fc 00 22 | " | ADDA.W #0x22,A7 00020c5c 41 fa f7 36 |A 6 | LEA.L 0x20394,A0 00020c60 70 09 |p | MOVEQ.L #0x09,D0 00020c62 2f 20 |/ | MOVE.L -(A0),-(A7) 00020c64 51 c8 ff fc |Q | DBF D0,0x20c62 00020c68 51 4f |QO | SUBQ.L #0x8,A7 00020c6a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020c6e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020c72 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 00020c76 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020c7c 50 4f |PO | ADDQ.L #0x8,A7 00020c7e 48 78 00 03 |Hx | PEA.L 0x3 00020c82 48 78 00 06 |Hx | PEA.L 0x6 00020c86 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00020c8c de fc 00 0c | | ADDA.W #0xc,A7 00020c90 23 df 00 02 51 34 |# Q4 | MOVE.L (A7)+,0x25134 00020c96 de fc 00 24 | $ | ADDA.W #0x24,A7 00020c9a 2e b9 00 02 51 34 |. Q4 | MOVE.L 0x25134,(A7) 00020ca0 70 01 |p | MOVEQ.L #0x01,D0 00020ca2 b0 97 | | CMP.L (A7),D0 00020ca4 6e 30 |n0 | BGT 0x20cd6 00020ca6 23 c0 00 02 51 30 |# Q0 | MOVE.L D0,0x25130 00020cac 2f 00 |/ | MOVE.L D0,-(A7) 00020cae 22 00 |" | MOVE.L D0,D1 00020cb0 53 81 |S | SUBQ.L #0x1,D1 00020cb2 0c 81 00 00 00 05 | | CMPI.L #0x00000005,D1 00020cb8 63 02 |c | BLS 0x20cbc 00020cba 4e 4f |NO | TRAP #15 00020cbc e5 81 | | ASL.L #0x2,D1 00020cbe 41 f9 00 02 11 06 |A | LEA.L 0x21106,A0 00020cc4 41 f0 18 00 |A | LEA.L (A0+D1.L),A0 00020cc8 48 68 40 12 |Hh@ | PEA.L (A0+0x4012) 00020ccc 4e ba fc 70 |N p | JSR 0x2093e 00020cd0 50 4f |PO | ADDQ.L #0x8,A7 00020cd2 52 80 |R | ADDQ.L #0x1,D0 00020cd4 68 cc |h | BVC 0x20ca2 00020cd6 2e b9 00 02 51 34 |. Q4 | MOVE.L 0x25134,(A7) 00020cdc 70 01 |p | MOVEQ.L #0x01,D0 00020cde b0 97 | | CMP.L (A7),D0 00020ce0 6e 00 01 0c |n | BGT 0x20dee 00020ce4 23 c0 00 02 51 30 |# Q0 | MOVE.L D0,0x25130 00020cea 41 fa f7 0e |A | LEA.L 0x203fa,A0 00020cee 72 06 |r | MOVEQ.L #0x06,D1 00020cf0 3f 20 |? | MOVE.W -(A0),-(A7) 00020cf2 51 c9 ff fc |Q | DBF D1,0x20cf0 00020cf6 51 4f |QO | SUBQ.L #0x8,A7 00020cf8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020cfc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020d00 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00020d04 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020d0a 2e 80 |. | MOVE.L D0,(A7) 00020d0c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020d12 58 4f |XO | ADDQ.L #0x4,A7 00020d14 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020d1a 50 4f |PO | ADDQ.L #0x8,A7 00020d1c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020d22 de fc 00 10 | | ADDA.W #0x10,A7 00020d26 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00020d2c 4a 1f |J | TST.B (A7)+ 00020d2e 67 2a |g* | BEQ 0x20d5a 00020d30 3f 39 00 02 51 38 |?9 Q8 | MOVE.W 0x25138,-(A7) 00020d36 22 00 |" | MOVE.L D0,D1 00020d38 53 81 |S | SUBQ.L #0x1,D1 00020d3a 0c 81 00 00 00 05 | | CMPI.L #0x00000005,D1 00020d40 63 02 |c | BLS 0x20d44 00020d42 4e 4f |NO | TRAP #15 00020d44 e5 81 | | ASL.L #0x2,D1 00020d46 41 f9 00 02 11 06 |A | LEA.L 0x21106,A0 00020d4c 41 f0 18 00 |A | LEA.L (A0+D1.L),A0 00020d50 2f 28 40 12 |/(@ | MOVE.L (A0+0x4012),-(A7) 00020d54 4e ba f9 56 |N V | JSR 0x206ac 00020d58 60 28 |`( | BRA 0x20d82 00020d5a 3f 39 00 02 51 38 |?9 Q8 | MOVE.W 0x25138,-(A7) 00020d60 22 00 |" | MOVE.L D0,D1 00020d62 53 81 |S | SUBQ.L #0x1,D1 00020d64 0c 81 00 00 00 05 | | CMPI.L #0x00000005,D1 00020d6a 63 02 |c | BLS 0x20d6e 00020d6c 4e 4f |NO | TRAP #15 00020d6e e5 81 | | ASL.L #0x2,D1 00020d70 41 f9 00 02 11 06 |A | LEA.L 0x21106,A0 00020d76 41 f0 18 00 |A | LEA.L (A0+D1.L),A0 00020d7a 2f 28 40 12 |/(@ | MOVE.L (A0+0x4012),-(A7) 00020d7e 4e ba fb 06 |N | JSR 0x20886 00020d82 5c 4f |\O | ADDQ.L #0x6,A7 00020d84 5d 4f |]O | SUBQ.L #0x6,A7 00020d86 20 4f | O | MOVEA.L A7,A0 00020d88 43 fa f6 70 |C p | LEA.L 0x203fa,A1 00020d8c 72 04 |r | MOVEQ.L #0x04,D1 00020d8e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020d90 51 c9 ff fc |Q | DBF D1,0x20d8e 00020d94 5d 4f |]O | SUBQ.L #0x6,A7 00020d96 20 4f | O | MOVEA.L A7,A0 00020d98 43 fa f6 66 |C f | LEA.L 0x20400,A1 00020d9c 72 04 |r | MOVEQ.L #0x04,D1 00020d9e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020da0 51 c9 ff fc |Q | DBF D1,0x20d9e 00020da4 51 4f |QO | SUBQ.L #0x8,A7 00020da6 48 6f 00 0e |Ho | PEA.L (A7+0xe) 00020daa 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020dae 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00020db2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020db8 2e 80 |. | MOVE.L D0,(A7) 00020dba 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020dc0 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020dc4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020dc8 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00020dcc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020dd2 50 4f |PO | ADDQ.L #0x8,A7 00020dd4 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020dda de fc 00 0c | | ADDA.W #0xc,A7 00020dde 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020de4 de fc 00 10 | | ADDA.W #0x10,A7 00020de8 52 80 |R | ADDQ.L #0x1,D0 00020dea 68 00 fe f2 |h | BVC 0x20cde 00020dee 58 4f |XO | ADDQ.L #0x4,A7 00020df0 41 fa f6 1e |A | LEA.L 0x20410,A0 00020df4 70 04 |p | MOVEQ.L #0x04,D0 00020df6 3f 20 |? | MOVE.W -(A0),-(A7) 00020df8 51 c8 ff fc |Q | DBF D0,0x20df6 00020dfc 9e fc 00 12 | | SUBA.W #0x12,A7 00020e00 20 4f | O | MOVEA.L A7,A0 00020e02 43 fa f6 0c |C | LEA.L 0x20410,A1 00020e06 70 10 |p | MOVEQ.L #0x10,D0 00020e08 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e0a 51 c8 ff fc |Q | DBF D0,0x20e08 00020e0e 51 4f |QO | SUBQ.L #0x8,A7 00020e10 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 00020e14 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020e18 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00020e1c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020e22 58 4f |XO | ADDQ.L #0x4,A7 00020e24 30 39 00 02 51 38 |09 Q8 | MOVE.W 0x25138,D0 00020e2a 48 c0 |H | EXTW.L D0 00020e2c 2f 00 |/ | MOVE.L D0,-(A7) 00020e2e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020e34 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020e38 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020e3c 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00020e40 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020e46 50 4f |PO | ADDQ.L #0x8,A7 00020e48 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020e4e de fc 00 0c | | ADDA.W #0xc,A7 00020e52 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020e58 de fc 00 20 | | ADDA.W #0x20,A7 00020e5c 48 79 00 02 51 14 |Hy Q | PEA.L 0x25114 00020e62 48 79 00 02 51 16 |Hy Q | PEA.L 0x25116 00020e68 4e b9 00 01 02 00 |N | JSR KC00_GetBootDev(VAR a : Byte; VAR b : Word) 00020e6e 50 4f |PO | ADDQ.L #0x8,A7 00020e70 10 39 00 02 51 14 | 9 Q | MOVE.B 0x25114,D0 00020e76 0c 00 00 02 | | CMPI.B #0x02,D0 00020e7a 67 2e |g. | BEQ 0x20eaa 00020e7c 41 fa f5 be |A | LEA.L 0x2043c,A0 00020e80 70 0c |p | MOVEQ.L #0x0c,D0 00020e82 3f 20 |? | MOVE.W -(A0),-(A7) 00020e84 51 c8 ff fc |Q | DBF D0,0x20e82 00020e88 59 4f |YO | SUBQ.L #0x4,A7 00020e8a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020e8e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020e92 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 00020e96 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020e9c 50 4f |PO | ADDQ.L #0x8,A7 00020e9e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020ea4 de fc 00 1e | | ADDA.W #0x1e,A7 00020ea8 60 fe |` | BRA 0x20ea8 00020eaa 30 39 00 02 51 38 |09 Q8 | MOVE.W 0x25138,D0 00020eb0 b0 79 00 02 51 16 | y Q | CMP.W 0x25116,D0 00020eb6 66 34 |f4 | BNE 0x20eec 00020eb8 9e fc 00 3a | : | SUBA.W #0x3a,A7 00020ebc 20 4f | O | MOVEA.L A7,A0 00020ebe 43 fa f4 f2 |C | LEA.L 0x203b2,A1 00020ec2 70 38 |p8 | MOVEQ.L #0x38,D0 00020ec4 10 d9 | | MOVE.B (A1)+,(A0)+ 00020ec6 51 c8 ff fc |Q | DBF D0,0x20ec4 00020eca 59 4f |YO | SUBQ.L #0x4,A7 00020ecc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020ed0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020ed4 3f 3c 00 39 |?< 9 | MOVE.W #0x39,-(A7) 00020ed8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020ede 50 4f |PO | ADDQ.L #0x8,A7 00020ee0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020ee6 de fc 00 3e | > | ADDA.W #0x3e,A7 00020eea 60 fe |` | BRA 0x20eea 00020eec 42 27 |B' | CLR.B -(A7) 00020eee 48 78 00 01 |Hx | PEA.L 0x1 00020ef2 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020ef8 5c 4f |\O | ADDQ.L #0x6,A7 00020efa 4e b9 00 01 02 84 |N | JSR ?exit 00020f00 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00020f0e ; -------------------------------------------------------------------------------------- 00020f0e ; OMSI PASCAL Function 00020f0e ; <LVAR 0x008 1(r)> 00020f0e ; -------------------------------------------------------------------------------------- 00020f0e PROG_FAIL: 00020f0e 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00020f12 bf d5 | | CMPA.L (A5),A7 00020f14 62 06 |b | BHI 0x20f1c 00020f16 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020f1a 4e 76 |Nv | TRAPV 00020f1c de fc 00 2c | , | ADDA.W #0x2c,A7 00020f20 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020f24 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00020f28 70 06 |p | MOVEQ.L #0x06,D0 00020f2a 3f 20 |? | MOVE.W -(A0),-(A7) 00020f2c 51 c8 ff fc |Q | DBF D0,0x20f2a 00020f30 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00020f34 51 4f |QO | SUBQ.L #0x8,A7 00020f36 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020f3a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020f3e 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00020f42 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020f48 58 4f |XO | ADDQ.L #0x4,A7 00020f4a 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00020f4e 48 80 |H | EXTB.W D0 00020f50 48 c0 |H | EXTW.L D0 00020f52 2f 00 |/ | MOVE.L D0,-(A7) 00020f54 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020f5a 58 4f |XO | ADDQ.L #0x4,A7 00020f5c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020f62 50 4f |PO | ADDQ.L #0x8,A7 00020f64 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020f6a de fc 00 14 | | ADDA.W #0x14,A7 00020f6e 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020f72 4e 5e |N^ | UNLK A6 00020f74 4e 75 |Nu | RTS 00020f76 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00020f84 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00020f92 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00020fa0 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00020fb2 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00020fca ; -------------------------------------------------------------------------------------- 00020fca ; OMSI PASCAL Function 00020fca ; <LVAR 0x00e 1(r)> 00020fca ; <LVAR 0x00a 4(r)> 00020fca ; <LVAR 0x008 1(r)> 00020fca ; -------------------------------------------------------------------------------------- 00020fca EXP_FAIL: 00020fca 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00020fce bf d5 | | CMPA.L (A5),A7 00020fd0 62 06 |b | BHI 0x20fd8 00020fd2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020fd6 4e 76 |Nv | TRAPV 00020fd8 de fc 00 74 | t | ADDA.W #0x74,A7 00020fdc 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00020fe0 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020fe6 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00020fec 72 01 |r | MOVEQ.L #0x01,D1 00020fee 74 0d |t | MOVEQ.L #0x0d,D2 00020ff0 76 1e |v | MOVEQ.L #0x1e,D3 00020ff2 78 12 |x | MOVEQ.L #0x12,D4 00020ff4 7a 0e |z | MOVEQ.L #0x0e,D5 00020ff6 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020ffc 41 fa ff b4 |A | LEA.L 0x20fb2,A0 00021000 70 08 |p | MOVEQ.L #0x08,D0 00021002 3f 20 |? | MOVE.W -(A0),-(A7) 00021004 51 c8 ff fc |Q | DBF D0,0x21002 00021008 59 4f |YO | SUBQ.L #0x4,A7 0002100a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002100e 3f 01 |? | MOVE.W D1,-(A7) 00021010 3f 04 |? | MOVE.W D4,-(A7) 00021012 4e 93 |N | JSR (A3) 00021014 50 4f |PO | ADDQ.L #0x8,A7 00021016 4e 94 |N | JSR (A4) 00021018 50 4f |PO | ADDQ.L #0x8,A7 0002101a 20 4f | O | MOVEA.L A7,A0 0002101c 43 fa ff 58 |C X | LEA.L 0x20f76,A1 00021020 70 0c |p | MOVEQ.L #0x0c,D0 00021022 10 d9 | | MOVE.B (A1)+,(A0)+ 00021024 51 c8 ff fc |Q | DBF D0,0x21022 00021028 51 4f |QO | SUBQ.L #0x8,A7 0002102a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002102e 3f 01 |? | MOVE.W D1,-(A7) 00021030 3f 02 |? | MOVE.W D2,-(A7) 00021032 4e 93 |N | JSR (A3) 00021034 54 4f |TO | ADDQ.L #0x2,A7 00021036 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 0002103a 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00021040 54 4f |TO | ADDQ.L #0x2,A7 00021042 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021048 50 4f |PO | ADDQ.L #0x8,A7 0002104a 4e 94 |N | JSR (A4) 0002104c de c4 | | ADDA.W D4,A7 0002104e 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00021052 b0 c1 | | CMPA.W D1,A0 00021054 67 48 |gH | BEQ 0x2109e 00021056 9e c5 | | SUBA.W D5,A7 00021058 22 4f |"O | MOVEA.L A7,A1 0002105a 45 fa ff 28 |E ( | LEA.L 0x20f84,A2 0002105e 70 0c |p | MOVEQ.L #0x0c,D0 00021060 12 da | | MOVE.B (A2)+,(A1)+ 00021062 51 c8 ff fc |Q | DBF D0,0x21060 00021066 9e c3 | | SUBA.W D3,A7 00021068 22 4f |"O | MOVEA.L A7,A1 0002106a 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 0002106e 70 1d |p | MOVEQ.L #0x1d,D0 00021070 12 d8 | | MOVE.B (A0)+,(A1)+ 00021072 51 c8 ff fc |Q | DBF D0,0x21070 00021076 51 4f |QO | SUBQ.L #0x8,A7 00021078 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 0002107c 3f 01 |? | MOVE.W D1,-(A7) 0002107e 3f 02 |? | MOVE.W D2,-(A7) 00021080 4e 93 |N | JSR (A3) 00021082 58 4f |XO | ADDQ.L #0x4,A7 00021084 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021088 3f 01 |? | MOVE.W D1,-(A7) 0002108a 3f 03 |? | MOVE.W D3,-(A7) 0002108c 4e 93 |N | JSR (A3) 0002108e 50 4f |PO | ADDQ.L #0x8,A7 00021090 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021096 50 4f |PO | ADDQ.L #0x8,A7 00021098 4e 94 |N | JSR (A4) 0002109a de fc 00 30 | 0 | ADDA.W #0x30,A7 0002109e 9e c5 | | SUBA.W D5,A7 000210a0 20 4f | O | MOVEA.L A7,A0 000210a2 43 fa fe ee |C | LEA.L 0x20f92,A1 000210a6 70 0c |p | MOVEQ.L #0x0c,D0 000210a8 10 d9 | | MOVE.B (A1)+,(A0)+ 000210aa 51 c8 ff fc |Q | DBF D0,0x210a8 000210ae 51 4f |QO | SUBQ.L #0x8,A7 000210b0 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000210b4 3f 01 |? | MOVE.W D1,-(A7) 000210b6 3f 02 |? | MOVE.W D2,-(A7) 000210b8 4e 93 |N | JSR (A3) 000210ba 54 4f |TO | ADDQ.L #0x2,A7 000210bc 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 000210c0 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 000210c6 54 4f |TO | ADDQ.L #0x2,A7 000210c8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000210ce 50 4f |PO | ADDQ.L #0x8,A7 000210d0 4e 94 |N | JSR (A4) 000210d2 5d 4f |]O | SUBQ.L #0x6,A7 000210d4 20 4f | O | MOVEA.L A7,A0 000210d6 43 fa fe da |C | LEA.L 0x20fb2,A1 000210da 70 16 |p | MOVEQ.L #0x16,D0 000210dc 10 d9 | | MOVE.B (A1)+,(A0)+ 000210de 51 c8 ff fc |Q | DBF D0,0x210dc 000210e2 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000210e6 59 4f |YO | SUBQ.L #0x4,A7 000210e8 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000210ec 3f 01 |? | MOVE.W D1,-(A7) 000210ee 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000210f2 4e 93 |N | JSR (A3) 000210f4 50 4f |PO | ADDQ.L #0x8,A7 000210f6 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000210fc de c3 | | ADDA.W D3,A7 000210fe 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00021102 4e 5e |N^ | UNLK A6 00021104 4e 75 |Nu | RTS