|
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: 6144 (0x1800)
Types: M200
Notes: @(#)STAT,1.1,92/07/09,12:00:00, M200_PROGRAM
Names: »STAT.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »STAT.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »STAT.M200«
@ 20582
<POP 20582-205e4 Body>
<POP 20582-20598 Prologue> Σ0 ↓
<POP 20598-205a0 RegCacheLoad> Σ0 ↓
<POP 205a0-205a2 Naked> Σ0 ↓
<MI 205a0 MOVEQ.L #0x00,D7> {}
<POP 205a2-205bc Naked> Σ0 ↓ →0x205a2 ←0x205a2
<POP 0x205a2 LimitCheck 0x0 ≤ D7 ≤ 0x10> {}
<MI 205a8 MOVE.L D7,D0> {}
<MI 205aa ASL.L #0x2,D0> {}
<MI 205ac LEA.L 0x2148c,A0> {}
<MI 205ae LEA.L (A0+D0.L),A0> {}
<MI 205b2 CLR.L (A0+0x500c)> {}
<MI 205b6 ADDQ.L #0x1,D7> {}
<MI 205b8 CMP.L #0x10,D7> {}
<MI 205ba BLE 0x205a2> {}
<POP 205bc-205be Naked> Σ0 ↓
<MI 205bc MOVEQ.L #0x00,D7> {}
<POP 205be-205dc Naked> Σ0 ↓ →0x205be ←0x205be
<POP 0x205be LimitCheck 0x0 ≤ D7 ≤ 0x1fff> {}
<MI 205c8 MOVE.L D7,D0> {}
<MI 205ca ASL.L #0x1,D0> {}
<MI 205cc LEA.L 0x2148c,A0> {}
<MI 205ce CLR.W (A0+D0.L+#0x8)> {}
<MI 205d2 ADDQ.L #0x1,D7> {}
<MI 205d4 CMPI.L #0x00001fff,D7> {}
<MI 205da BLE 0x205be> {}
<POP 205dc-205e4 Epilogue> Σ0
@ 205e4
<LVAR -0x002 2(rw)>
<LVAR -0x004 2(rw)>
<LVAR -0x3e1 1(r)>
<LVAR -0x3e2 1(r)>
<LVAR -0x3e4 2(r)>
<LVAR -0x3e5 1(r)>
<LVAR -0x3e6 1(r)>
<LVAR -0x3e8 2(r)>
<LVAR -0x404 @>
<POP 205e4-207d6 Body>
<POP 205e4-205fa Prologue> Σ0 ↓
<POP 205fa-2060c RegCacheLoad> Σ0 ↓
<POP 2060c-20640 Naked> Σ0 ↓
<Blob 0x2060c [26] @> Δ-26 {[«26""»]}
<POP 2061e-20620 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x20620 25> {[«26""»]|[$$Loading directory blocks.]}
<Call 0x20634 0x103e0> {[«26""»]|[$$Loading directory blocks.]}
WriteConsoleStringCrLf(str : String)
<POP 2063a-2063e StackAdj> Δ+30 {}
<MI 2063e MOVEQ.L #0x00,D6> {}
<POP 20640-20674 Naked> Σ0 Δ-4 ↓ →0x2067c ←0x206a2
<POP 0x20640 LimitCheck 0x0 ≤ D6 ≤ 0x7> {}
<MI 2064a MOVE.L D6,D0> {}
<MI 2064c ASL.L #0x1,D0> {}
<MI 2064e LEA.L 0x0,A0> {}
<MI 20652 LEA.L (A0+D0.L),A0> {}
<MI 20656 ADDA.L #0x10012,A0> {}
<MI 2065c MOVE.W (A0),D5> {}
<MI 2065e CLR.L D0> {}
<MI 20660 MOVE.W D5,D0> {}
<MI 20662 ADDI.L #0x000000ff,D0> {}
<MI 20668 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2066a CLR.L D0> {[4, 'D0']}
<MI 2066c MOVE.W D5,D0> {[4, 'D0']}
<MI 2066e MOVE.L D0,D7> {[4, 'D0']}
<MI 20670 CMP.L (A7),D7> {[4, 'D0']}
<MI 20672 BHI 0x2067c> {[4, 'D0']}
<POP 20674-2067a Naked> Σ-4 →0x2067c
<MI 20674 MOVE.L (A7),D0> {[-4-]}
<MI 20676 CMP.L D0,D7> {[-4-]}
<MI 20678 BLT 0x2067c> {[-4-]}
<POP 2067a-2067c Naked> Σ0
<MI 2067a TRAP #15> {}
<POP 2067c-20682 Naked> Σ-4 ↓ →0x206a2 ←0x20640 ←0x20674 ←0x20682
<MI 2067c CMP.W (A7+0x2),D7> {[-4-]}
<MI 20680 BHI 0x206a2> {[-4-]}
<POP 20682-206a2 Naked> Σ-4 ↓ →0x2067c
<MI 20682 MOVEA.L 0x25494,A0> {[-4-]}
<MI 20684 CLR.L D0> {[-4-]}
<MI 20686 MOVE.W D7,D0> {[-4-]}
<MI 20688 ROR.L #0x2,D0> {[-4-]}
<MI 2068a ADDA.W D0,A0> {[-4-]}
<MI 2068c SWAP.W D0> {[-4-]}
<MI 2068e ROL.W #0x3,D0> {[-4-]}
<MI 20690 MOVEQ.L #0x40,D1> {[-4-]}
<MI 20692 MOVE.W #0xff3f,D2> {[-4-]}
<MI 20696 ROR.W D0,D2> {[-4-]}
<MI 20698 AND.B D2,(A0)> {[-4-]}
<MI 2069a LSR.B D0,D1> {[-4-]}
<MI 2069c OR.B D1,(A0)> {[-4-]}
<MI 2069e ADDQ.W #0x1,D7> {[-4-]}
<MI 206a0 BCC 0x2067c> {[-4-]}
<POP 206a2-206ae Naked> Σ-4 Δ+4 ↓ →0x20640 ←0x2067c
<POP 206a2-206a4 StackAdj> Δ+4 {}
<MI 206a4 ADDQ.L #0x1,D6> {}
<MI 206a6 CMPI.L #0x00000007,D6> {}
<MI 206ac BLE 0x20640> {}
<POP 206ae-206d0 Naked> Σ0 ↓ →0x20706
<Const 0x206ae 0x2.2> Δ-2 {[#2]}
<Const 0x206b2 0x2.2> Δ-2 {[#2]|[#2]}
<Const 0x206b6 0x1.4> Δ-4 {[#2]|[#2]|[##1]}
<MI 206ba LEA.L (A6-0x404),A0> {[#2]|[#2]|[##1]}
<MI 206be MOVE.L A0,-(A7)> Δ-4 {[#2]|[#2]|[##1]|[4, 'A0']}
<Const 0x206c0 0x264dc.4> Δ-4 {[#2]|[#2]|[##1]|[4, 'A0']|[##156892]}
<Call 0x206c2 0x1036c> {[#2]|[#2]|[##1]|[4, 'A0']|[##156892]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 206c8-206cc StackAdj> Δ+16 {}
<MI 206cc TST.B 0x264dc> {}
<MI 206ce BNE 0x20706> {}
<POP 206d0-20706 Naked> Σ0 ↓
<Blob 0x206d0 [44] @> Δ-44 {[«44""»]}
<Const 0x206e2 0xe.2> Δ-2 {[«44""»]|[#14]}
<POP 206e6-206e8 StackAdj> Δ-4 {[«44""»]|[#14]|[-4-]}
<Lit 0x206e8 43> {[«44""»]|[#14]|[$$Can't read volume label due to disk errors.]}
<Call 0x206fc 0x103b8> {[«44""»]|[#14]|[$$Can't read volume label due to disk errors.]}
PopProgram(status : Byte; msg : String)
<POP 20702-20706 StackAdj> Δ+50 {}
<POP 20706-2076c Naked> Σ0 ↓ ←0x206ae
<MI 20706 MOVE.W 0x1000c,D0> {}
<MI 2070c MULU.W (A6-0x3e8),D0> {}
<MI 20710 CLR.L D1> {}
<MI 20712 MOVE.B (A6-0x3e6),D1> {}
<MI 20716 MULU.W 0x1000a,D1> {}
<MI 2071c ADD.L D0,D1> {}
<MI 2071e CLR.L D0> {}
<MI 20720 MOVE.B (A6-0x3e5),D0> {}
<MI 20724 ADDQ.W #0x1,D0> {}
<MI 20726 ASR.W #0x1,D0> {}
<MI 20728 EXTW.L D0> {}
<MI 2072a ADD.L D1,D0> {}
<POP 0x2072c LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20732 MOVE.W D0,(A6-0x4)> {}
<MI 20736 MOVE.W 0x1000c,D0> {}
<MI 2073c MULU.W (A6-0x3e4),D0> {}
<MI 20740 CLR.L D1> {}
<MI 20742 MOVE.B (A6-0x3e2),D1> {}
<MI 20746 MULU.W 0x1000a,D1> {}
<MI 2074c ADD.L D0,D1> {}
<MI 2074e CLR.L D0> {}
<MI 20750 MOVE.B (A6-0x3e1),D0> {}
<MI 20754 SUBQ.W #0x1,D0> {}
<MI 20756 EXTW.L D0> {}
<MI 20758 DIVS.W #0x2,D0> {}
<MI 2075c EXTW.L D0> {}
<MI 2075e ADD.L D1,D0> {}
<POP 0x20760 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20766 MOVE.W D0,(A6-0x2)> {}
<MI 2076a MOVEQ.L #0x01,D7> {}
<POP 2076c-20772 Naked> Σ0 ↓ →0x2079c ←0x20772
<MI 2076c CMP.W (A6-0x4),D7> {}
<MI 20770 BCC 0x2079c> {}
<POP 20772-2079c Naked> Σ0 →0x2076c
<MI 20772 MOVEA.L 0x25494,A0> {}
<MI 20774 CLR.L D0> {}
<MI 20776 MOVE.W D7,D0> {}
<MI 20778 MOVE.L D0,D1> {}
<MI 2077a ROR.L #0x2,D1> {}
<MI 2077c ADDA.W D1,A0> {}
<MI 2077e SWAP.W D1> {}
<MI 20780 ROL.W #0x3,D1> {}
<MI 20782 MOVEQ.L #0x40,D2> {}
<MI 20784 MOVE.W #0xff3f,D3> {}
<MI 20788 ROR.W D1,D3> {}
<MI 2078a AND.B D3,(A0)> {}
<MI 2078c LSR.B D1,D2> {}
<MI 2078e OR.B D2,(A0)> {}
<MI 20790 ADDQ.L #0x1,D0> {}
<POP 0x20792 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20798 MOVE.W D0,D7> {}
<MI 2079a BRA 0x2076c> {}
<POP 2079c-2079e Naked> Σ0 ↓ ←0x2076c
<MI 2079c MOVE.W #0xffff,D7> {}
<POP 2079e-207a4 Naked> Σ0 ↓ →0x207ce ←0x207a4
<MI 2079e CMP.W (A6-0x2),D7> {}
<MI 207a2 BLS 0x207ce> {}
<POP 207a4-207ce Naked> Σ0 →0x2079e
<MI 207a4 MOVEA.L 0x25494,A0> {}
<MI 207a6 CLR.L D0> {}
<MI 207a8 MOVE.W D7,D0> {}
<MI 207aa MOVE.L D0,D1> {}
<MI 207ac ROR.L #0x2,D1> {}
<MI 207ae ADDA.W D1,A0> {}
<MI 207b0 SWAP.W D1> {}
<MI 207b2 ROL.W #0x3,D1> {}
<MI 207b4 MOVEQ.L #0x40,D2> {}
<MI 207b6 MOVE.W #0xff3f,D3> {}
<MI 207ba ROR.W D1,D3> {}
<MI 207bc AND.B D3,(A0)> {}
<MI 207be LSR.B D1,D2> {}
<MI 207c0 OR.B D2,(A0)> {}
<MI 207c2 SUBQ.L #0x1,D0> {}
<POP 0x207c4 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 207ca MOVE.W D0,D7> {}
<MI 207cc BRA 0x2079e> {}
<POP 207ce-207d6 Epilogue> Σ0 ←0x2079e
@ 207d6
<LVAR 0x010 2(r)>
<LVAR 0x00e 2(r)>
<LVAR 0x00c 2(r)>
<LVAR 0x008 4(r)>
<POP 207d6-20926 Body>
<POP 207d6-207ec Prologue> Σ0 ↓
<POP 207ec-207fc RegCacheLoad> Σ0 ↓
<POP 207fc-20806 Naked> Σ0 ↓
<MI 207fc MOVEA.L (A6+0x8),A0> {}
<MI 20800 CLR.B (A0)> {}
<MI 20802 MOVE.W (A6+0xe),D7> {}
<POP 20806-20822 Naked> Σ0 ↓ →0x2091e ←0x2090c
<MI 20806 MOVEA.L (A6+0x8),A0> {}
<MI 2080a CLR.L D0> {}
<MI 2080c MOVE.W (A6+0xe),D0> {}
<MI 20810 CLR.L D1> {}
<MI 20812 MOVE.W (A6+0xc),D1> {}
<MI 20816 ADD.L D0,D1> {}
<MI 20818 CLR.L D0> {}
<MI 2081a MOVE.W D7,D0> {}
<MI 2081c CMP.L D1,D0> {}
<MI 2081e BCC 0x2091e> {}
<POP 20822-20828 Naked> Σ0 ↓ →0x2091e
<MI 20822 TST.B (A0)> {}
<MI 20824 BNE 0x2091e> {}
<POP 20828-2083c Naked> Σ0 ↓ →0x20856
<MI 20828 MOVEA.L 0x25494,A1> {}
<MI 2082a MOVE.L D0,D1> {}
<MI 2082c ROR.L #0x2,D1> {}
<MI 2082e ADDA.W D1,A1> {}
<MI 20830 SWAP.W D1> {}
<MI 20832 ROL.W #0x3,D1> {}
<MI 20834 MOVE.B (A1),D2> {}
<MI 20836 LSL.B D1,D2> {}
<MI 20838 LSR.B #0x6,D2> {}
<MI 2083a BNE 0x20856> {}
<POP 2083c-20856 Naked> Σ0 →0x2090c
<MI 2083c MOVE.W (A6+0x10),D2> {}
<MI 20840 MOVE.W #0xff3f,D3> {}
<MI 20844 ROR.W D1,D3> {}
<MI 20846 AND.B D3,(A1)> {}
<MI 20848 ANDI.B #0x03,D2> {}
<MI 2084c LSL.B #0x6,D2> {}
<MI 2084e LSR.B D1,D2> {}
<MI 20850 OR.B D2,(A1)> {}
<MI 20852 BRA 0x2090c> {}
<POP 20856-2090c Naked> Σ0 ↓ ←0x20828
<MI 20856 MOVEQ.L #0x14,D1> {}
<MI 20858 MULS.W (A6+0x10),D1> {}
<MI 2085c LEA.L 0x20450,A1> {}
<Blob 0x20860 [20] (A1+D1.W)> Δ-20 {[«20»]}
<Blob 0x20870 [34] @> Δ-34 {[«20»]|[«34""»]}
<MI 20882 MOVEA.L 0x25494,A1> {[«20»]|[«34""»]}
<MI 20884 MOVE.L D0,D1> {[«20»]|[«34""»]}
<MI 20886 ROR.L #0x2,D1> {[«20»]|[«34""»]}
<MI 20888 ADDA.W D1,A1> {[«20»]|[«34""»]}
<MI 2088a SWAP.W D1> {[«20»]|[«34""»]}
<MI 2088c ROL.W #0x3,D1> {[«20»]|[«34""»]}
<MI 2088e CLR.L D2> {[«20»]|[«34""»]}
<MI 20890 MOVE.B (A1),D2> {[«20»]|[«34""»]}
<MI 20892 LSL.B D1,D2> {[«20»]|[«34""»]}
<MI 20894 LSR.B #0x6,D2> {[«20»]|[«34""»]}
<MI 20896 MULU.W #0x14,D2> {[«20»]|[«34""»]}
<MI 20898 CLR.L D1> {[«20»]|[«34""»]}
<MI 2089a MOVE.W D2,D1> {[«20»]|[«34""»]}
<MI 2089c LEA.L 0x20450,A1> {[«20»]|[«34""»]}
<Blob 0x208a0 [20] (A1+D1.L)> Δ-20 {[«20»]|[«34""»]|[«20»]}
<Blob 0x208b0 [8] @> Δ-8 {[«20»]|[«34""»]|[«20»]|[«8""»]}
<POP 208c0-208c2 StackAdj> Δ-8 {[«20»]|[«34""»]|[«20»]|[«8""»]|[-8-]}
<Lit 0x208c2> {[«20»]|[«34""»]|[«20»]|[«8""»]|[-4-]|[$$…]}
<Pointer.sp 0x208c2 70> Δ-4
<Const 0x208c6 0x1.2> Δ-2
<Const 0x208c8 0x14.2> Δ-2
<Call 0x208ca 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 208cc-208ce StackAdj> Δ+8
<POP 208cc-208ce StackAdj> Δ-4 {[«20»]|[«34""»]|[«20»]|[«8""»]|[-4-]|[$$…]|[-4-]}
<Lit 0x208ce 33> {[«20»]|[«34""»]|[«20»]|[«8""»]|[-4-]|[$$…]|[$$ block is already allocated to a_]}
<POP 208da-208dc StackAdj> Δ-4 {[«20»]|[«34""»]|[«20»]|[«8""»]|[-4-]|[$$…]|[$$ block is already allocated to a_]|[-4-]}
<Lit 0x208dc> {[«20»]|[«34""»]|[«20»]|[«8""»]|[-4-]|[$$…]|[$$ block is already allocated to a_]|[$$…]}
<Pointer.sp 0x208dc 24> Δ-4
<Const 0x208e0 0x1.2> Δ-2
<Const 0x208e2 0x14.2> Δ-2
<Call 0x208e4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 208e6-208e8 StackAdj> Δ+8
<POP 208e6-208e8 StackAdj> Δ-4 {[«20»]|[«34""»]|[«20»]|[«8""»]|[-4-]|[$$…]|[$$ block is already allocated to a_]|[$$…]|[-4-]}
<Lit 0x208e8 7> {[«20»]|[«34""»]|[«20»]|[«8""»]|[-4-]|[$$…]|[$$ block is already allocated to a_]|[$$…]|[$$ block!]}
<Call 0x208f6 0x102d8> {[«20»]|[«34""»]|[«20»]|[«8""»]|[-4-]|[$$…]|[$$ block is already allocated to a_]|[$$…]|[$$ block!]}
StringCat4(a, b, c, d : String) : String
<POP 208fc-20900 StackAdj> Δ+16 {[«20»]|[«34""»]|[«20»]|[«8""»]|[-4-]}
<Call 0x20900 0x103e0> {[«20»]|[«34""»]|[«20»]|[«8""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20906-2090a StackAdj> Δ+86 {}
<MI 2090a MOVE.B #0x01,(A0)> {}
<POP 2090c-2091e Naked> Σ0 →0x20806 ←0x2083c
<MI 2090c ADDQ.L #0x1,D0> {}
<POP 0x2090e LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20918 MOVE.W D0,D7> {}
<MI 2091a BRA 0x20806> {}
<POP 2091e-20926 Epilogue> Σ0 ←0x20806 ←0x20822
@ 20926
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x408 2(r)>
<LVAR -0x40a @ 2(r)>
<POP 20926-20a98 Body>
<POP 20926-2093c Prologue> Σ0 ↓
<POP 2093c-2094c RegCacheLoad> Σ0 ↓
<POP 2094c-20990 Naked> Σ0 ↓
<Blob 0x2094c [18] @> Δ-18 {[«18""»]}
<POP 20958-2095a StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2095a 18> {[«18""»]|[$$Loading free list.]}
<Call 0x20968 0x103e0> {[«18""»]|[$$Loading free list.]}
WriteConsoleStringCrLf(str : String)
<POP 2096e-20972 StackAdj> Δ+22 {}
<MI 20972 MOVEA.L (A6+0xc),A0> {}
<MI 20976 CLR.W (A0)> {}
<MI 20978 MOVEA.L (A6+0x10),A0> {}
<MI 2097c CLR.W (A0)> {}
<MI 2097e MOVEA.L (A6+0x8),A0> {}
<MI 20982 CLR.W (A0)> {}
<MI 20984 LEA.L (A6-0x40a),A0> {}
<MI 20986 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20988 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 2098a MOVE.W 0x10010,D7> {}
<POP 20990-20996 Naked> Σ0 ↓ →0x20a90 ←0x20a88
<MI 20990 TST.W D7> {}
<MI 20992 BEQ 0x20a90> {}
<POP 20996-209cc Naked> Σ0 ↓ →0x209f8
<MI 20996 MOVEA.L (A6+0xc),A0> {}
<MI 2099a CLR.L D0> {}
<MI 2099c MOVE.W (A0),D0> {}
<MI 2099e ADDQ.L #0x1,D0> {}
<POP 0x209a0 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 209aa MOVE.W D0,(A0)> {}
<Const 0x209ac 0x2.2> Δ-2 {[#2]}
<MI 209b0 MOVE.W D7,-(A7)> Δ-2 {[#2]|[2, 'D7']}
<Const 0x209b2 0x1.4> Δ-4 {[#2]|[2, 'D7']|[##1]}
<MI 209b6 MOVE.L A4,-(A7)> Δ-4 {[#2]|[2, 'D7']|[##1]|[4, 'A4']}
<Pointer.fp 0x209b8 <LVAR -0x004 @ 1(r)>> Δ-4 {[#2]|[2, 'D7']|[##1]|[4, 'A4']|[@@-4]}
<Call 0x209bc 0x1036c> {[#2]|[2, 'D7']|[##1]|[4, 'A4']|[@@-4]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 209c2-209c6 StackAdj> Δ+16 {}
<MI 209c6 TST.B (A6-0x4)> {}
<MI 209ca BNE 0x209f8> {}
<POP 209cc-209f8 Naked> Σ0 ↓
<Blob 0x209cc [30] @> Δ-30 {[«30""»]}
<Const 0x209de 0xe.2> Δ-2 {[«30""»]|[#14]}
<POP 209e0-209e2 StackAdj> Δ-4 {[«30""»]|[#14]|[-4-]}
<Lit 0x209e2 29> {[«30""»]|[#14]|[$$Disk error on free list read!]}
<Call 0x209f0 0x103b8> {[«30""»]|[#14]|[$$Disk error on free list read!]}
PopProgram(status : Byte; msg : String)
<POP 209f6-209f8 StackAdj> Δ+36 {}
<POP 209f8-209fc Naked> Σ0 ↓ →0x20a24 ←0x20996
<MI 209f8 TST.W (A6-0x40a)> {}
<MI 209fa BNE 0x20a24> {}
<POP 209fc-20a24 Naked> Σ0 ↓
<Blob 0x209fc [32] @> Δ-32 {[«32""»]}
<Const 0x20a08 0xe.2> Δ-2 {[«32""»]|[#14]}
<POP 20a0a-20a0c StackAdj> Δ-4 {[«32""»]|[#14]|[-4-]}
<Lit 0x20a0c 32> {[«32""»]|[#14]|[$$Zero length extent on free list!]}
<Call 0x20a1a 0x103b8> {[«32""»]|[#14]|[$$Zero length extent on free list!]}
PopProgram(status : Byte; msg : String)
<POP 20a20-20a24 StackAdj> Δ+38 {}
<POP 20a24-20a46 Naked> Σ0 ↓ →0x20a48 ←0x209f8
<MI 20a24 MOVEA.L (A6+0x10),A0> {}
<MI 20a28 CLR.L D0> {}
<MI 20a2a MOVE.W (A0),D0> {}
<MI 20a2c CLR.L D1> {}
<MI 20a2e MOVE.W (A6-0x40a),D1> {}
<MI 20a30 ADD.L D1,D0> {}
<POP 0x20a32 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20a3c MOVE.W D0,(A0)> {}
<MI 20a3e MOVEA.L (A6+0x8),A0> {}
<MI 20a42 CMP.W (A0),D1> {}
<MI 20a44 BLS 0x20a48> {}
<POP 20a46-20a48 Naked> Σ0 ↓
<MI 20a46 MOVE.W D1,(A0)> {}
<POP 20a48-20a62 Naked> Σ0 ↓ →0x20a88 ←0x20a24
<Const 0x20a48 0x3.2> Δ-2 {[#3]}
<MI 20a4c MOVE.W D7,-(A7)> Δ-2 {[#3]|[2, 'D7']}
<MI 20a4e MOVE.W (A6-0x40a),-(A7)> Δ-2 {[#3]|[2, 'D7']|[2, '(A6-0x40a)']}
<Pointer.fp 0x20a50 <LVAR -0x003 @ 1(r)>> Δ-4 {[#3]|[2, 'D7']|[2, '(A6-0x40a)']|[@@-3]}
<Call 0x20a54 0x207d6> {[#3]|[2, 'D7']|[2, '(A6-0x40a)']|[@@-3]}
<POP 20a58-20a5c StackAdj> Δ+10 {}
<MI 20a5c TST.B (A6-0x3)> {}
<MI 20a60 BEQ 0x20a88> {}
<POP 20a62-20a88 Naked> Σ0 →0x20a90
<Blob 0x20a62 [36] @> Δ-36 {[«36""»]}
<POP 20a6e-20a70 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x20a70 36> {[«36""»]|[$$Remainder of list will not be loaded]}
<Call 0x20a7c 0x103e0> {[«36""»]|[$$Remainder of list will not be loaded]}
WriteConsoleStringCrLf(str : String)
<POP 20a82-20a86 StackAdj> Δ+40 {}
<MI 20a86 BRA 0x20a90> {}
<POP 20a88-20a90 Naked> Σ0 →0x20990 ←0x20a48
<MI 20a88 MOVE.W (A6-0x408),D7> {}
<MI 20a8c BRA 0x20990> {}
<POP 20a90-20a98 Epilogue> Σ0 ←0x20990 ←0x20a62
@ 20a98
<LVAR 0x008 4(r)>
<LVAR -0x004 4(rw)>
<LVAR -0x00b @ 1(r)>
<LVAR -0x00c @ 1(r)>
<LVAR -0x010 4(rw)>
<LVAR -0x020 4(w)>
<POP 20a98-20d6c Body> Δ-12
<POP 20a98-20aae Prologue> Σ0 ↓
<POP 20aae-20abe RegCacheLoad> Σ0 ↓
<POP 20abe-20af4 Naked> Σ0 ↓
<Blob 0x20abe [20] @> Δ-20 {[«20""»]}
<POP 20ad0-20ad2 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x20ad2 19> {[«20""»]|[$$Scanning directory.]}
<Call 0x20ae2 0x103e0> {[«20""»]|[$$Scanning directory.]}
WriteConsoleStringCrLf(str : String)
<POP 20ae4-20ae8 StackAdj> Δ+24 {}
<MI 20ae8 MOVEA.L (A6+0x8),A0> {}
<MI 20aec CLR.L (A0)> {}
<MI 20aee CLR.L (A6-0x4)> {}
<MI 20af2 MOVEQ.L #0x00,D0> {}
<POP 20af4-20b68 Naked> Σ0 Δ-4 ↓ →0x20b9a ←0x20d5c
<MI 20af4 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 20af6 MOVE.L D0,D1> {[4, 'D0']}
<MI 20af8 ASL.L #0x2,D1> {[4, 'D0']}
<MI 20afa MOVE.L D1,D4> {[4, 'D0']}
<MI 20afc MOVE.L #0x100,D3> {[4, 'D0']}
<Call 0x20b02 0x10294> {[4, 'D0']}
?divs_d3_d4
<MI 20b08 MOVE.L D3,-(A7)> Δ-4 {[4, 'D0']|[4, 'D3']}
<MI 20b0a MOVE.L D0,D4> {[4, 'D0']|[4, 'D3']}
<MI 20b0c MOVEQ.L #0x40,D3> {[4, 'D0']|[4, 'D3']}
<Call 0x20b0e 0x10294> {[4, 'D0']|[4, 'D3']}
?divs_d3_d4
<POP 0x20b14 LimitCheck 0x0 ≤ D4 ≤ 0x7> {[4, 'D0']|[4, 'D3']}
<MI 20b1e ASL.L #0x1,D4> {[4, 'D0']|[4, 'D3']}
<MI 20b20 LEA.L 0x0,A0> {[4, 'D0']|[4, 'D3']}
<MI 20b24 LEA.L (A0+D4.L),A0> {[4, 'D0']|[4, 'D3']}
<MI 20b28 ADDA.L #0x10012,A0> {[4, 'D0']|[4, 'D3']}
<MI 20b2e CLR.L D1> {[4, 'D0']|[4, 'D3']}
<MI 20b30 MOVE.W (A0),D1> {[4, 'D0']|[4, 'D3']}
<MI 20b32 MOVE.L (A7)+,D2> Δ+4 {[4, 'D0']}
<MI 20b34 ADD.L D1,D2> {[4, 'D0']}
<MI 20b36 MOVE.L D2,(A6-0x20)> {[4, 'D0']}
<Const 0x20b3a 0x2.2> Δ-2 {[4, 'D0']|[#2]}
<POP 0x20b3e LimitCheck 0x0 ≤ D2 ≤ 0xffff> {[4, 'D0']|[#2]}
<MI 20b48 MOVE.W D2,-(A7)> Δ-2 {[4, 'D0']|[#2]|[2, 'D2']}
<Const 0x20b4a 0x4.4> Δ-4 {[4, 'D0']|[#2]|[2, 'D2']|[##4]}
<Blob 0x20b4e [4] 0x264de> Δ-4 {[4, 'D0']|[#2]|[2, 'D2']|[##4]|[«4»]}
<Pointer.fp 0x20b54 <LVAR -0x00c @ 1(r)>> Δ-4 {[4, 'D0']|[#2]|[2, 'D2']|[##4]|[«4»]|[@@-12]}
<Call 0x20b58 0x1036c> {[4, 'D0']|[#2]|[2, 'D2']|[##4]|[«4»]|[@@-12]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 20b5e-20b62 StackAdj> Δ+16 {[4, 'D0']}
<MI 20b62 TST.B (A6-0xc)> {[4, 'D0']}
<MI 20b66 BNE 0x20b9a> {[4, 'D0']}
<POP 20b68-20b9a Naked> Σ-4 ↓
<Blob 0x20b68 [22] @> Δ-22 {[-4-]|[«22""»]}
<Const 0x20b7a 0xe.2> Δ-2 {[-4-]|[«22""»]|[#14]}
<POP 20b7e-20b80 StackAdj> Δ-4 {[-4-]|[«22""»]|[#14]|[-4-]}
<Lit 0x20b80 21> {[-4-]|[«22""»]|[#14]|[$$Directory read error!]}
<Call 0x20b90 0x103b8> {[-4-]|[«22""»]|[#14]|[$$Directory read error!]}
PopProgram(status : Byte; msg : String)
<POP 20b96-20b9a StackAdj> Δ+28 {[-4-]}
<POP 20b9a-20b9c Naked> Σ-4 ↓ ←0x20af4
<MI 20b9a MOVEQ.L #0x00,D1> {[-4-]}
<POP 20b9c-20ba2 Naked> Σ-4 Δ-4 ↓ ←0x20d48
<MI 20b9c MOVE.L D1,-(A7)> Δ-4 {[-4-]|[4, 'D1']}
<MI 20b9e CLR.L (A6-0x10)> {[-4-]|[4, 'D1']}
<MI 20ba0 MOVEQ.L #0x00,D5> {[-4-]|[4, 'D1']}
<POP 20ba2-20bd6 Naked> Σ-8 Δ-4 ↓ →0x20d02 ←0x20cf8
<MI 20ba2 MOVE.L (A7),D0> {[-8-]}
<POP 0x20ba4 LimitCheck 0x0 ≤ D0 ≤ 0x3> {[-8-]}
<MI 20bae ASL.L #0x8,D0> {[-8-]}
<MI 20bb0 ASL.L #0x2,D0> {[-8-]}
<MI 20bb2 LEA.L 0x2148c,A0> {[-8-]}
<POP 0x20bb8 LimitCheck 0x0 ≤ D5 ≤ 0xf> {[-8-]}
<MI 20bc2 MOVE.L D5,D1> {[-8-]}
<MI 20bc4 ASL.L #0x6,D1> {[-8-]}
<MI 20bc6 LEA.L (A0+D0.L),A0> {[-8-]}
<MI 20bca MOVE.L A0,-(A7)> Δ-4 {[-8-]|[4, 'A0']}
<MI 20bcc CMPI.L #0x00000010,D5> {[-8-]|[4, 'A0']}
<MI 20bd2 BGE 0x20d02> {[-8-]|[4, 'A0']}
<POP 20bd6-20be6 Naked> Σ-12 ↓ →0x20d02
<MI 20bd6 LEA.L (A0+D1.L),A0> {[-12-]}
<MI 20bda MOVE.B (A0+0x404b),D0> {[-12-]}
<MI 20bde LSL.B #0x4,D0> {[-12-]}
<MI 20be0 LSR.B #0x7,D0> {[-12-]}
<MI 20be2 BNE 0x20d02> {[-12-]}
<POP 20be6-20bf6 Naked> Σ-12 Δ-4 ↓
<MI 20be6 ADDQ.L #0x1,(A6-0x10)> {[-12-]}
<MI 20be8 MOVEA.L (A7),A0> {[-12-]}
<MI 20bea LEA.L (A0+D1.L),A0> {[-12-]}
<MI 20bee MOVE.L A0,-(A7)> Δ-4 {[-12-]|[4, 'A0']}
<MI 20bf0 MOVEQ.L #0x00,D7> {[-12-]|[4, 'A0']}
<MI 20bf2 MOVEQ.L #0x00,D6> {[-12-]|[4, 'A0']}
<MI 20bf4 MOVEQ.L #0x00,D0> {[-12-]|[4, 'A0']}
<POP 20bf6-20c10 Naked> Σ-16 ↓ →0x20c46 ←0x20c46
<POP 0x20bf6 LimitCheck 0x0 ≤ D0 ≤ 0x5> {[-16-]}
<MI 20c00 MOVE.L D0,D1> {[-16-]}
<MI 20c02 ASL.L #0x2,D1> {[-16-]}
<MI 20c04 MOVEA.L (A7),A0> {[-16-]}
<MI 20c06 LEA.L (A0+0x400c),A0> {[-16-]}
<MI 20c0a TST.W (A0+D1.L+#0x22)> {[-16-]}
<MI 20c0e BEQ 0x20c46> {[-16-]}
<POP 20c10-20c44 Naked> Σ-16 ↓ →0x20c46
<Const 0x20c10 0x2.2> Δ-2 {[-16-]|[#2]}
<MI 20c14 MOVE.W (A0+D1.L+#0x24),-(A7)> Δ-2 {[-16-]|[#2]|[2, '(A0+D1.L+#0x24)']}
<MI 20c18 MOVE.W (A0+D1.L+#0x22),D2> {[-16-]|[#2]|[2, '(A0+D1.L+#0x24)']}
<MI 20c1c EXTW.L D2> {[-16-]|[#2]|[2, '(A0+D1.L+#0x24)']}
<MI 20c1e SUB.L D7,D2> {[-16-]|[#2]|[2, '(A0+D1.L+#0x24)']}
<POP 0x20c20 LimitCheck 0x0 ≤ D2 ≤ 0xffff> {[-16-]|[#2]|[2, '(A0+D1.L+#0x24)']}
<MI 20c2a MOVE.W D2,-(A7)> Δ-2 {[-16-]|[#2]|[2, '(A0+D1.L+#0x24)']|[2, 'D2']}
<Pointer.fp 0x20c2c <LVAR -0x00b @ 1(r)>> Δ-4 {[-16-]|[#2]|[2, '(A0+D1.L+#0x24)']|[2, 'D2']|[@@-11]}
<Call 0x20c30 0x207d6> {[-16-]|[#2]|[2, '(A0+D1.L+#0x24)']|[2, 'D2']|[@@-11]}
<POP 20c34-20c38 StackAdj> Δ+10 {[-16-]}
<MI 20c38 MOVE.W (A0+D1.L+#0x22),D2> {[-16-]}
<MI 20c3c EXTW.L D2> {[-16-]}
<MI 20c3e MOVE.L D2,D7> {[-16-]}
<MI 20c40 TST.L D0> {[-16-]}
<MI 20c42 BLE 0x20c46> {[-16-]}
<POP 20c44-20c46 Naked> Σ-16 ↓
<MI 20c44 MOVEQ.L #0x01,D6> {[-16-]}
<POP 20c46-20c50 Naked> Σ-16 ↓ →0x20bf6 ←0x20bf6 ←0x20c10
<MI 20c46 ADDQ.L #0x1,D0> {[-16-]}
<MI 20c48 CMPI.L #0x00000005,D0> {[-16-]}
<MI 20c4e BLE 0x20bf6> {[-16-]}
<POP 20c50-20c54 Naked> Σ-16 ↓ →0x20ca6
<MI 20c50 TST.B D6> {[-16-]}
<MI 20c52 BEQ 0x20ca6> {[-16-]}
<POP 20c54-20ca6 Naked> Σ-16 ↓
<Blob 0x20c54 [26] @> Δ-26 {[-16-]|[«26""»]}
<MI 20c66 MOVEA.L (A7+0x1a),A0> {[-16-]|[«26""»]}
<Blob 0x20c6a [30] (A0+0x402a)> Δ-30 {[-16-]|[«26""»]|[«30»]}
<POP 20c76-20c78 StackAdj> Δ-8 {[-16-]|[«26""»]|[«30»]|[-8-]}
<Lit 0x20c78 25> {[-16-]|[«26""»]|[«30»]|[-4-]|[$$File is non-contiguous :_]}
<POP 20c86-20c88 StackAdj> Δ-4 {[-16-]|[«26""»]|[«30»]|[-4-]|[$$File is non-contiguous :_]|[-4-]}
<Lit 0x20c88> {[-16-]|[«26""»]|[«30»]|[-4-]|[$$File is non-contiguous :_]|[$$…]}
<Pointer.sp 0x20c88 12> Δ-4
<Const 0x20c8c 0x1.2> Δ-2
<Const 0x20c90 0x1e.2> Δ-2
<Call 0x20c94 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20c96-20c98 StackAdj> Δ+8
<Call 0x20c98 0x102d0> {[-16-]|[«26""»]|[«30»]|[-4-]|[$$File is non-contiguous :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20c9e-20ca0 StackAdj> Δ+8 {[-16-]|[«26""»]|[«30»]|[-4-]}
<Call 0x20ca0 0x103e0> {[-16-]|[«26""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20ca2-20ca6 StackAdj> Δ+60 {[-16-]}
<POP 20ca6-20cac Naked> Σ-16 ↓ →0x20cf8 ←0x20c50
<MI 20ca6 TST.B (A6-0xb)> {[-16-]}
<MI 20caa BEQ 0x20cf8> {[-16-]}
<POP 20cac-20cf8 Naked> Σ-16 ↓
<Blob 0x20cac [24] @> Δ-24 {[-16-]|[«24""»]}
<MI 20cb8 MOVEA.L (A7+0x18),A0> {[-16-]|[«24""»]}
<Blob 0x20cbc [30] (A0+0x402a)> Δ-30 {[-16-]|[«24""»]|[«30»]}
<POP 20cc8-20cca StackAdj> Δ-8 {[-16-]|[«24""»]|[«30»]|[-8-]}
<Lit 0x20cca 24> {[-16-]|[«24""»]|[«30»]|[-4-]|[$$Disk allocation error :_]}
<POP 20cd8-20cda StackAdj> Δ-4 {[-16-]|[«24""»]|[«30»]|[-4-]|[$$Disk allocation error :_]|[-4-]}
<Lit 0x20cda> {[-16-]|[«24""»]|[«30»]|[-4-]|[$$Disk allocation error :_]|[$$…]}
<Pointer.sp 0x20cda 12> Δ-4
<Const 0x20cde 0x1.2> Δ-2
<Const 0x20ce2 0x1e.2> Δ-2
<Call 0x20ce6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20ce8-20cea StackAdj> Δ+8
<Call 0x20cea 0x102d0> {[-16-]|[«24""»]|[«30»]|[-4-]|[$$Disk allocation error :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20cf0-20cf2 StackAdj> Δ+8 {[-16-]|[«24""»]|[«30»]|[-4-]}
<Call 0x20cf2 0x103e0> {[-16-]|[«24""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20cf4-20cf8 StackAdj> Δ+58 {[-16-]}
<POP 20cf8-20d02 Naked> Σ-16 Δ+8 →0x20ba2 ←0x20ca6
<POP 20cf8-20cfa StackAdj> Δ+4 {[-12-]}
<MI 20cfa ADDQ.L #0x1,D5> {[-12-]}
<POP 20cfc-20cfe StackAdj> Δ+4 {[-8-]}
<MI 20cfe BRA 0x20ba2> {[-8-]}
<POP 20d02-20d0c Naked> Σ-12 Δ+4 ↓ →0x20d20 ←0x20ba2 ←0x20bd6
<POP 20d02-20d04 StackAdj> Δ+4 {[-8-]}
<MI 20d04 MOVE.L (A6-0x10),D0> {[-8-]}
<MI 20d06 CMP.L (A6-0x4),D0> {[-8-]}
<MI 20d0a BLE 0x20d20> {[-8-]}
<POP 20d0c-20d20 Naked> Σ-8 ↓
<MI 20d0c MOVE.L D0,(A6-0x4)> {[-8-]}
<MI 20d10 MOVEA.L (A6+0x8),A0> {[-8-]}
<MI 20d14 MOVE.L (A7+0x4),D0> {[-8-]}
<MI 20d18 ASL.L #0x2,D0> {[-8-]}
<MI 20d1a MOVE.L (A7),D1> {[-8-]}
<MI 20d1c ADD.L D0,D1> {[-8-]}
<MI 20d1e MOVE.L D1,(A0)> {[-8-]}
<POP 20d20-20d48 Naked> Σ-8 ↓ →0x20d4e ←0x20d02
<MI 20d20 MOVE.L (A6-0x10),D0> {[-8-]}
<POP 0x20d22 LimitCheck 0x0 ≤ D0 ≤ 0x10> {[-8-]}
<MI 20d2c ASL.L #0x2,D0> {[-8-]}
<MI 20d2e LEA.L 0x2148c,A0> {[-8-]}
<MI 20d34 LEA.L (A0+D0.L),A0> {[-8-]}
<MI 20d38 ADDQ.L #0x1,(A0+0x500c)> {[-8-]}
<MI 20d3c MOVE.L (A7),D1> {[-8-]}
<MI 20d3e ADDQ.L #0x1,D1> {[-8-]}
<MI 20d40 CMPI.L #0x00000003,D1> {[-8-]}
<MI 20d46 BGT 0x20d4e> {[-8-]}
<POP 20d48-20d4e Naked> Σ-8 Δ+4 →0x20b9c
<POP 20d48-20d4a StackAdj> Δ+4 {[-4-]}
<MI 20d4a BRA 0x20b9c> {[-4-]}
<POP 20d4e-20d5c Naked> Σ-8 Δ+4 ↓ →0x20d62 ←0x20d20
<POP 20d4e-20d50 StackAdj> Δ+4 {[-4-]}
<MI 20d50 MOVE.L (A7),D0> {[-4-]}
<MI 20d52 ADDQ.L #0x1,D0> {[-4-]}
<MI 20d54 CMPI.L #0x000001ff,D0> {[-4-]}
<MI 20d5a BGT 0x20d62> {[-4-]}
<POP 20d5c-20d62 Naked> Σ-4 Δ+4 →0x20af4
<POP 20d5c-20d5e StackAdj> Δ+4 {}
<MI 20d5e BRA 0x20af4> {}
<POP 20d62-20d64 Naked> Σ-4 Δ+4 ↓ ←0x20d4e
<POP 20d62-20d64 StackAdj> Δ+4 {}
<POP 20d64-20d6c Epilogue> Σ0
@ 20d6c
<LVAR 0x008 4(r)>
<LVAR -0x002 @>
<LVAR -0x402 @>
<LVAR -0x408 @>
<POP 20d6c-20e94 Body>
<POP 20d6c-20d82 Prologue> Σ0 ↓
<POP 20d82-20d8c RegCacheLoad> Σ0 ↓
<POP 20d8c-20e40 Naked> Σ0 ↓
<MI 20d8c MOVE.L (A6+0x8),D4> {}
<MI 20d90 MOVE.L #0x100,D3> {}
<Call 0x20d96 0x10294> {}
?divs_d3_d4
<POP 0x20d9c LimitCheck 0x0 ≤ D4 ≤ 0x7> {}
<MI 20da6 ASL.L #0x1,D4> {}
<MI 20da8 LEA.L 0x0,A0> {}
<MI 20dac LEA.L (A0+D4.L),A0> {}
<MI 20db0 ADDA.L #0x10012,A0> {}
<MI 20db6 CLR.L D0> {}
<MI 20db8 MOVE.W (A0),D0> {}
<MI 20dba ADD.L D0,D3> {}
<POP 0x20dbc LimitCheck 0x0 ≤ D3 ≤ 0xffff> {}
<MI 20dc6 MOVE.W D3,D6> {}
<Const 0x20dc8 0x2.2> Δ-2 {[#2]}
<MI 20dcc MOVE.W D6,-(A7)> Δ-2 {[#2]|[2, 'D6']}
<Const 0x20dce 0x1.4> Δ-4 {[#2]|[2, 'D6']|[##1]}
<MI 20dd2 LEA.L (A6-0x402),A0> {[#2]|[2, 'D6']|[##1]}
<MI 20dd6 MOVE.L A0,-(A7)> Δ-4 {[#2]|[2, 'D6']|[##1]|[4, 'A0']}
<Pointer.fp 0x20dd8 <LVAR -0x002 @>> Δ-4 {[#2]|[2, 'D6']|[##1]|[4, 'A0']|[@@-2]}
<Call 0x20ddc 0x1036c> {[#2]|[2, 'D6']|[##1]|[4, 'A0']|[@@-2]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 20de2-20de4 StackAdj> Δ+12 {[#2]|[2, 'D6']}
<POP 20de4-20de5 StackAdj> Δ+4 {}
<Blob 0x20de5 [4] @> Δ-4 {[«4""»]}
<Blob 0x20de8 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20dec [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20df0 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20df4 [38] @> Δ-38 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«38""»]}
<POP 20e06-20e08 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«38""»]|[-8-]}
<Lit 0x20e08 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«38""»]|[-4-]|[$$Directory block_]}
<MI 20e14 MOVE.L (A6+0x8),(A7)> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«38""»]|[-4-]|[4, '(A6+0x8)']}
<POP 20e12-20e14 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«38""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Call 0x20e18 0x102e4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«38""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x20e1e 37> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«38""»]|[-4-]|[4, '(A6+0x8)']|[-4-]|[$$ contains the most files. Files are:]}
<Call 0x20e2c 0x102d4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«38""»]|[-4-]|[4, '(A6+0x8)']|[-4-]|[$$ contains the most files. Files are:]}
StringCat3(a, b, c : String) : String
<POP 20e32-20e34 StackAdj> Δ+12 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«38""»]|[-4-]}
<Call 0x20e34 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«38""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20e3a-20e3e StackAdj> Δ+58 {}
<MI 20e3e MOVEQ.L #0x00,D7> {}
<POP 20e40-20e5c Naked> Σ0 ↓ →0x20e82 ←0x20e82
<POP 0x20e40 LimitCheck 0x0 ≤ D7 ≤ 0xf> {}
<MI 20e4a MOVE.L D7,D0> {}
<MI 20e4c ASL.L #0x6,D0> {}
<MI 20e4e LEA.L (A6-0x408),A0> {}
<MI 20e52 MOVE.B (A0+D0.L+#0x45),D1> {}
<MI 20e56 LSL.B #0x4,D1> {}
<MI 20e58 LSR.B #0x7,D1> {}
<MI 20e5a BNE 0x20e82> {}
<POP 20e5c-20e82 Naked> Σ0 ↓
<Blob 0x20e5c [30] (A0+D0.L+#0x24)> Δ-30 {[«30»]}
<POP 20e68-20e6a StackAdj> Δ-4 {[«30»]|[-4-]}
<Lit 0x20e6a> {[«30»]|[$$…]}
<Pointer.sp 0x20e6a 4> Δ-4
<Const 0x20e6e 0x1.2> Δ-2
<Const 0x20e70 0x1e.2> Δ-2
<Call 0x20e74 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20e76-20e78 StackAdj> Δ+8
<Call 0x20e78 0x103e0> {[«30»]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 20e7e-20e82 StackAdj> Δ+34 {}
<POP 20e82-20e8c Naked> Σ0 ↓ →0x20e40 ←0x20e40
<MI 20e82 ADDQ.L #0x1,D7> {}
<MI 20e84 CMPI.L #0x0000000f,D7> {}
<MI 20e8a BLE 0x20e40> {}
<POP 20e8c-20e94 Epilogue> Σ0
@ 20e94
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x402 2(w)>
<LVAR -0x404 @ 2(w) 4(r)>
<LVAR -0x40a 2(rw)>
<LVAR -0x40b @ 1(r)>
<POP 20e94-20fe6 Body>
<POP 20e94-20eaa Prologue> Σ0 ↓
<POP 20eaa-20eba RegCacheLoad> Σ0 ↓
<POP 20eba-20ed4 Naked> Σ0 ↓
<MI 20eba MOVEA.L (A6+0xc),A0> {}
<MI 20ebe CLR.W (A0)> {}
<MI 20ec0 MOVEA.L (A6+0x10),A0> {}
<MI 20ec4 CLR.W (A0)> {}
<MI 20ec6 MOVEA.L (A6+0x8),A0> {}
<MI 20eca CLR.W (A0)> {}
<MI 20ecc MOVEQ.L #0x00,D7> {}
<MI 20ece MOVEQ.L #0x00,D5> {}
<MI 20ed0 MOVEQ.L #0x00,D6> {}
<MI 20ed2 MOVE.W #0xffff,(A6-0x40a)> {}
<POP 20ed4-20ef4 Naked> Σ0 ↓ →0x20f04 ←0x20fc2
<MI 20ed4 MOVEA.L 0x25494,A0> {}
<MI 20eda CLR.L D0> {}
<MI 20edc MOVE.W (A6-0x40a),D0> {}
<MI 20ede MOVE.L D0,D1> {}
<MI 20ee0 ROR.L #0x2,D1> {}
<MI 20ee2 ADDA.W D1,A0> {}
<MI 20ee4 SWAP.W D1> {}
<MI 20ee6 ROL.W #0x3,D1> {}
<MI 20ee8 CLR.L D2> {}
<MI 20eea MOVE.B (A0),D2> {}
<MI 20eec LSL.B D1,D2> {}
<MI 20eee LSR.B #0x6,D2> {}
<MI 20ef0 CMP.W #0x03,D2> {}
<MI 20ef2 BNE 0x20f04> {}
<POP 20ef4-20f04 Naked> Σ0 ↓
<MI 20ef4 CLR.L D1> {}
<MI 20ef6 MOVE.W D6,D1> {}
<MI 20ef8 ADDQ.L #0x1,D1> {}
<POP 0x20efa LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20f00 MOVE.W D1,D6> {}
<MI 20f02 MOVEQ.L #0x01,D7> {}
<POP 20f04-20f08 Naked> Σ0 ↓ →0x20f0c ←0x20ed4
<MI 20f04 CMP.W #0x03,D2> {}
<MI 20f06 BEQ 0x20f0c> {}
<POP 20f08-20f0c Naked> Σ0 ↓ →0x20f14
<MI 20f08 TST.B D7> {}
<MI 20f0a BNE 0x20f14> {}
<POP 20f0c-20f14 Naked> Σ0 ↓ →0x20fc2 ←0x20f04
<MI 20f0c CMPI.W #0x4000,D6> {}
<MI 20f10 BNE 0x20fc2> {}
<POP 20f14-20f44 Naked> Σ0 ↓ →0x20f46 ←0x20f08
<MI 20f14 MOVEA.L (A6+0xc),A0> {}
<MI 20f18 CLR.L D1> {}
<MI 20f1a MOVE.W (A0),D1> {}
<MI 20f1c ADDQ.L #0x1,D1> {}
<POP 0x20f1e LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20f24 MOVE.W D1,(A0)> {}
<MI 20f26 MOVEA.L (A6+0x10),A0> {}
<MI 20f2a CLR.L D1> {}
<MI 20f2c MOVE.W (A0),D1> {}
<MI 20f2e CLR.L D2> {}
<MI 20f30 MOVE.W D6,D2> {}
<MI 20f32 ADD.L D2,D1> {}
<POP 0x20f34 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20f3a MOVE.W D1,(A0)> {}
<MI 20f3c MOVEA.L (A6+0x8),A0> {}
<MI 20f40 CMP.W (A0),D2> {}
<MI 20f42 BLS 0x20f46> {}
<POP 20f44-20f46 Naked> Σ0 ↓
<MI 20f44 MOVE.W D2,(A0)> {}
<POP 20f46-20f58 Naked> Σ0 ↓ →0x20f5c ←0x20f14
<MI 20f46 MOVE.W D5,(A6-0x402)> {}
<MI 20f4a MOVE.W D2,(A6-0x404)> {}
<MI 20f4c MOVE.L (A6-0x404),0x10022> {}
<MI 20f52 CMPI.W #0x4000,D2> {}
<MI 20f56 BNE 0x20f5c> {}
<POP 20f58-20f5c Naked> Σ0 →0x20f68
<MI 20f58 MOVE.W D0,D5> {}
<MI 20f5a BRA 0x20f68> {}
<POP 20f5c-20f68 Naked> Σ0 ↓ ←0x20f46
<MI 20f5c MOVE.L D0,D1> {}
<MI 20f5e ADDQ.L #0x1,D1> {}
<POP 0x20f60 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 20f66 MOVE.W D1,D5> {}
<POP 20f68-20f88 Naked> Σ0 ↓ →0x20fbe ←0x20f58
<Const 0x20f68 0x3.2> Δ-2 {[#3]}
<MI 20f6a MOVE.W D5,-(A7)> Δ-2 {[#3]|[2, 'D5']}
<Const 0x20f6c 0x1.4> Δ-4 {[#3]|[2, 'D5']|[##1]}
<MI 20f70 LEA.L (A6-0x404),A0> {[#3]|[2, 'D5']|[##1]}
<MI 20f72 MOVE.L A0,-(A7)> Δ-4 {[#3]|[2, 'D5']|[##1]|[4, 'A0']}
<Pointer.fp 0x20f74 <LVAR -0x40b @ 1(r)>> Δ-4 {[#3]|[2, 'D5']|[##1]|[4, 'A0']|[@@-1035]}
<Call 0x20f78 0x1036c> {[#3]|[2, 'D5']|[##1]|[4, 'A0']|[@@-1035]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 20f7e-20f82 StackAdj> Δ+16 {}
<MI 20f82 TST.B (A6-0x40b)> {}
<MI 20f86 BNE 0x20fbe> {}
<POP 20f88-20fbe Naked> Σ0 ↓
<Blob 0x20f88 [56] @> Δ-56 {[«56""»]}
<Const 0x20f9a 0x1.2> Δ-2 {[«56""»]|[#1]}
<POP 20f9e-20fa0 StackAdj> Δ-4 {[«56""»]|[#1]|[-4-]}
<Lit 0x20fa0 55> {[«56""»]|[#1]|[$$Can't construct free list due to disk errors, aborting!]}
<Call 0x20fb4 0x103b8> {[«56""»]|[#1]|[$$Can't construct free list due to disk errors, aborting!]}
PopProgram(status : Byte; msg : String)
<POP 20fba-20fbe StackAdj> Δ+62 {}
<POP 20fbe-20fc2 Naked> Σ0 ↓ ←0x20f68
<MI 20fbe MOVEQ.L #0x00,D6> {}
<MI 20fc0 MOVEQ.L #0x00,D7> {}
<POP 20fc2-20fd2 Naked> Σ0 ↓ →0x20ed4 ←0x20f0c
<MI 20fc2 SUBQ.L #0x1,D0> {}
<POP 0x20fc4 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20fca MOVE.W D0,(A6-0x40a)> {}
<MI 20fcc TST.W D0> {}
<MI 20fce BNE 0x20ed4> {}
<POP 20fd2-20fde Naked> Σ0 ↓
<MI 20fd2 MOVE.W D5,0x10010> {}
<Call 0x20fd8 0x10390> {}
WriteFreeList(void)
<POP 20fde-20fe6 Epilogue> Σ0
@ 20fe6
START
<POP 20fe6--0001 Body>
<POP 20fe6-20ff0 Prologue> Σ0
<POP 20ff0-2100e RegCacheLoad> Σ0 ↓
<POP 2100e-2108a Naked> Σ0 ↓
<MI 2100e LEA.L 0x25498,A0> {}
<MI 21014 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21016 MOVE.L (A7)+,0x264de> Δ+4 {}
<MI 2101c LEA.L 0x21494,A0> {}
<MI 21022 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21024 MOVE.L (A7)+,0x25494> Δ+4 {}
<Call 0x2102a 0x10398> {}
FSCALL_10398
<Call 0x21030 0x20582> {}
<Call 0x21034 0x205e4> {}
<Const 0x21038 0x264e2.4> Δ-4 {[##156898]}
<Const 0x2103a 0x264e4.4> Δ-4 {[##156898]|[##156900]}
<Const 0x2103c 0x264e6.4> Δ-4 {[##156898]|[##156900]|[##156902]}
<Call 0x21042 0x20926> {[##156898]|[##156900]|[##156902]}
<POP 21046-21048 StackAdj> Δ+12 {}
<Const 0x21048 0x264ec.4> Δ-4 {[##156908]}
<Call 0x2104e 0x20a98> {[##156908]}
<POP 21052-21054 StackAdj> Δ+4 {}
<Call 0x21054 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2105a [24] @> Δ-24 {[«24""»]}
<POP 2106c-2106e StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x2106e 23> {[«24""»]|[$$Directory utilization :]}
<Call 0x21080 0x103e0> {[«24""»]|[$$Directory utilization :]}
WriteConsoleStringCrLf(str : String)
<POP 21086-21088 StackAdj> Δ+28 {}
<MI 21088 MOVEQ.L #0x01,D0> {}
<POP 2108a-210b2 Naked> Σ0 ↓ →0x2108a ←0x2108a
<MI 2108a MOVE.L D0,0x264e8> {}
<POP 21090-21092 StackAdj> Δ-8 {[-8-]}
<MI 21092 MOVE.L D0,-(A7)> Δ-4 {[-8-]|[4, 'D0']}
<Call 0x21094 0x102e4> {[-8-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21096-21098 StackAdj> Δ+4 {[-8-]}
<Const 0x21098 0x5.4> Δ-4 {[-8-]|[##5]}
<Call 0x2109c 0x102f4> {[-8-]|[##5]}
RightPad(a : String; b : Long) : String
<POP 210a2-210a4 StackAdj> Δ+8 {[-4-]}
<Call 0x210a4 0x103d8> {[-4-]}
WriteConsoleString(str : String)
<POP 210aa-210ac StackAdj> Δ+4 {}
<MI 210ac ADDQ.L #0x1,D0> {}
<MI 210ae CMP.L #0x10,D0> {}
<MI 210b0 BLE 0x2108a> {}
<POP 210b2-210ba Naked> Σ0 ↓
<Call 0x210b2 0x103dc> {}
WriteConsoleCrLf(void)
<MI 210b8 MOVEQ.L #0x01,D0> {}
<POP 210ba-210f8 Naked> Σ0 ↓ →0x210ba ←0x210ba
<MI 210ba MOVE.L D0,0x264e8> {}
<POP 210c0-210c2 StackAdj> Δ-8 {[-8-]}
<POP 0x210c2 LimitCheck 0x0 ≤ D0 ≤ 0x10> {[-8-]}
<MI 210c8 MOVE.L D0,D1> {[-8-]}
<MI 210ca ASL.L #0x2,D1> {[-8-]}
<MI 210cc LEA.L 0x2148c,A0> {[-8-]}
<MI 210d2 LEA.L (A0+D1.L),A0> {[-8-]}
<MI 210d6 MOVE.L (A0+0x500c),-(A7)> Δ-4 {[-8-]|[4, '(A0+0x500c)']}
<Call 0x210da 0x102e4> {[-8-]|[4, '(A0+0x500c)']}
Long2String(a : Long) : String
<POP 210dc-210de StackAdj> Δ+4 {[-8-]}
<Const 0x210de 0x5.4> Δ-4 {[-8-]|[##5]}
<Call 0x210e2 0x102f4> {[-8-]|[##5]}
RightPad(a : String; b : Long) : String
<POP 210e8-210ea StackAdj> Δ+8 {[-4-]}
<Call 0x210ea 0x103d8> {[-4-]}
WriteConsoleString(str : String)
<POP 210f0-210f2 StackAdj> Δ+4 {}
<MI 210f2 ADDQ.L #0x1,D0> {}
<MI 210f4 CMP.L #0x10,D0> {}
<MI 210f6 BLE 0x210ba> {}
<POP 210f8-211ec Naked> Σ0 Δ-32 ↓ →0x2126e
<Call 0x210f8 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x210fe [28] @> Δ-28 {[«28""»]}
<POP 2110e-21110 StackAdj> Δ-8 {[«28""»]|[-8-]}
<Blob 0x21110 [4] 0x26498> Δ-4 {[«28""»]|[-8-]|[«4»]}
<Call 0x21116 0x102e4> {[«28""»]|[-8-]|[«4»]}
Long2String(a : Long) : String
<Lit 0x21118 27> {[«28""»]|[-8-]|[$$ directory block are empty.]}
<Call 0x2112a 0x102d0> {[«28""»]|[-8-]|[$$ directory block are empty.]}
StringCat2(a, b : String) : String
<POP 21130-21132 StackAdj> Δ+8 {[«28""»]|[-4-]}
<Call 0x21132 0x103e0> {[«28""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21138-2113c StackAdj> Δ+32 {}
<Blob 0x2113c [18] @> Δ-18 {[«18""»]}
<Blob 0x21148 [36] @> Δ-36 {[«18""»]|[«36""»]}
<POP 21158-2115a StackAdj> Δ-8 {[«18""»]|[«36""»]|[-8-]}
<MI 2115a CLR.L D0> {[«18""»]|[«36""»]|[-8-]}
<MI 2115c MOVE.W 0x264e2,D0> {[«18""»]|[«36""»]|[-8-]}
<MI 2115e MOVE.L D0,-(A7)> Δ-4 {[«18""»]|[«36""»]|[-8-]|[4, 'D0']}
<Call 0x21160 0x102e4> {[«18""»]|[«36""»]|[-8-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x21162 18> {[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]}
<POP 21170-21172 StackAdj> Δ-4 {[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]}
<MI 21172 CLR.L D0> {[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]}
<MI 21174 MOVE.W 0x264e4,D0> {[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]}
<MI 21176 MOVE.L D0,-(A7)> Δ-4 {[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[4, 'D0']}
<Call 0x21178 0x102e4> {[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x2117a 35> {[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[$$ segments. Largest unused block =_]}
<POP 2118a-2118c StackAdj> Δ-4 {[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[$$ segments. Largest unused block =_]|[-4-]}
<MI 2118c CLR.L D0> {[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[$$ segments. Largest unused block =_]|[-4-]}
<MI 2118e MOVE.W 0x264e6,D0> {[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[$$ segments. Largest unused block =_]|[-4-]}
<MI 21194 MOVE.L D0,-(A7)> Δ-4 {[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[$$ segments. Largest unused block =_]|[-4-]|[4, 'D0']}
<Call 0x21196 0x102e4> {[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[$$ segments. Largest unused block =_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21198-2119a StackAdj> Δ+4 {[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[$$ segments. Largest unused block =_]|[-4-]}
<Call 0x2119a 0x102dc> {[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[$$ segments. Largest unused block =_]|[-4-]}
StringCat5(a, b, c, d, e : String) : String
<POP 211a0-211a4 StackAdj> Δ+20 {[«18""»]|[«36""»]|[-4-]}
<Call 0x211a4 0x103e0> {[«18""»]|[«36""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 211aa-211ae StackAdj> Δ+54 {[-4-]}
<POP 211ae-211af StackAdj> Δ+4 {}
<Blob 0x211af [4] 0x264ec> Δ-4 {[«4»]}
<Call 0x211b4 0x20d6c> {[«4»]}
<POP 211b8-211b9 StackAdj> Δ+4 ↓ {}
<Blob 0x211b9 [32] @> Δ-32 {[«32""»]}
<POP 211c8-211ca StackAdj> Δ-6 {[«32""»]|[-6-]}
<Lit 0x211ca 31> {[«32""»]|[-2-]|[$$Do you want to compact the disk]}
<POP 211da-211dc StackAdj> Δ-2 {[«32""»]|[-2-]|[$$Do you want to compact the disk]|[-2-]}
<MI 211dc CLR.B (A7)> {[«32""»]|[-2-]|[$$Do you want to compact the disk]|[-2-]}
<Call 0x211de 0x103f0> {[«32""»]|[-2-]|[$$Do you want to compact the disk]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 211e4-211e6 StackAdj> Δ+6 {[«32""»]|[-2-]}
<MI 211e6 TST.B (A7)+> Δ+2 {[«32""»]}
<MI 211e8 BEQ 0x2126e> {[«32""»]}
<POP 211ec-2126e Naked> Σ-32 ↓
<Const 0x211ec 0x264e2.4> Δ-4 {[-32-]|[##156898]}
<Const 0x211ee 0x264e4.4> Δ-4 {[-32-]|[##156898]|[##156900]}
<Const 0x211f0 0x264e6.4> Δ-4 {[-32-]|[##156898]|[##156900]|[##156902]}
<Call 0x211f6 0x20e94> {[-32-]|[##156898]|[##156900]|[##156902]}
<POP 211fa-211fc StackAdj> Δ+12 {[-32-]}
<Blob 0x211fc [18] @> Δ-18 {[-32-]|[«18""»]}
<Blob 0x21208 [36] @> Δ-36 {[-32-]|[«18""»]|[«36""»]}
<POP 21218-2121a StackAdj> Δ-8 {[-32-]|[«18""»]|[«36""»]|[-8-]}
<MI 2121a CLR.L D0> {[-32-]|[«18""»]|[«36""»]|[-8-]}
<MI 2121c MOVE.W 0x264e2,D0> {[-32-]|[«18""»]|[«36""»]|[-8-]}
<MI 2121e MOVE.L D0,-(A7)> Δ-4 {[-32-]|[«18""»]|[«36""»]|[-8-]|[4, 'D0']}
<Call 0x21220 0x102e4> {[-32-]|[«18""»]|[«36""»]|[-8-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x21222 18> {[-32-]|[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]}
<POP 21230-21232 StackAdj> Δ-4 {[-32-]|[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]}
<MI 21232 CLR.L D0> {[-32-]|[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]}
<MI 21234 MOVE.W 0x264e4,D0> {[-32-]|[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]}
<MI 21236 MOVE.L D0,-(A7)> Δ-4 {[-32-]|[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[4, 'D0']}
<Call 0x21238 0x102e4> {[-32-]|[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x2123a 35> {[-32-]|[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[$$ segments. Largest unused block =_]}
<POP 2124a-2124c StackAdj> Δ-4 {[-32-]|[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[$$ segments. Largest unused block =_]|[-4-]}
<MI 2124c CLR.L D0> {[-32-]|[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[$$ segments. Largest unused block =_]|[-4-]}
<MI 2124e MOVE.W 0x264e6,D0> {[-32-]|[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[$$ segments. Largest unused block =_]|[-4-]}
<MI 21254 MOVE.L D0,-(A7)> Δ-4 {[-32-]|[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[$$ segments. Largest unused block =_]|[-4-]|[4, 'D0']}
<Call 0x21256 0x102e4> {[-32-]|[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[$$ segments. Largest unused block =_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21258-2125a StackAdj> Δ+4 {[-32-]|[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[$$ segments. Largest unused block =_]|[-4-]}
<Call 0x2125a 0x102dc> {[-32-]|[«18""»]|[«36""»]|[-8-]|[$$ blocks unused in_]|[-4-]|[$$ segments. Largest unused block =_]|[-4-]}
StringCat5(a, b, c, d, e : String) : String
<POP 21260-21264 StackAdj> Δ+20 {[-32-]|[«18""»]|[«36""»]|[-4-]}
<Call 0x21264 0x103e0> {[-32-]|[«18""»]|[«36""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2126a-2126e StackAdj> Δ+58 {[-32-]}
<POP 2126e-21280 Naked> Σ-32 Δ+32 ↓ ←0x210f8
<POP 2126e-21272 StackAdj> Δ+30 {[-2-]}
<MI 21272 CLR.B (A7)> {[-2-]}
<Const 0x21274 0x1.4> Δ-4 {[-2-]|[##1]}
<Call 0x21278 0x103b8> {[-2-]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 2127e-21280 StackAdj> Δ+6 {}
<POP 21280-21286 Naked> Σ0
<Call 0x21280 0x10284> {}
?exit
@ 21294
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 21294-212fc Body>
<POP 21294-212aa Prologue> Σ0 ↓
<POP 212aa-212f4 Naked> Σ0 ↓
<Blob 0x212aa [14] @> Δ-14 {[«14""»]}
<Const 0x212b6 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 212ba-212bc StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x212bc 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 212ce-212d0 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 212d0 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 212d4 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 212d6 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 212d8 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x212da 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 212e0-212e2 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x212e2 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 212e8-212ea StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x212ea 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 212f0-212f4 StackAdj> Δ+20 {}
<POP 212f4-212fc Epilogue> Σ0
@ 21350
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 21350-2148c Body>
<POP 21350-21366 Prologue> Σ0 ↓
<POP 21366-2137c RegCacheLoad> Σ0 ↓
<POP 2137c-213dc Naked> Σ0 ↓ →0x21424
<Call 0x2137c 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21382 [18] @> Δ-18 {[«18""»]}
<POP 2138e-21390 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21390 18> {[«18""»]|[$$Experiment error :]}
<Call 0x2139c 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 2139e-2139f StackAdj> Δ+22 ↓ {}
<Blob 0x2139f [14] @> Δ-14 {[«14""»]}
<POP 213ae-213b0 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x213b0 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 213ba-213bc StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 213bc MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x213c0 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 213c6-213c8 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x213c8 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 213ce-213d0 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x213d0 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 213d2-213d4 StackAdj> Δ+18 {}
<MI 213d4 MOVEA.L (A6+0xa),A0> {}
<MI 213d8 CMPA.W #0x01,A0> {}
<MI 213da BEQ 0x21424> {}
<POP 213dc-21424 Naked> Σ0 ↓
<Blob 0x213dc [14] @> Δ-14 {[«14""»]}
<Blob 0x213ec [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 213fc-213fe StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x213fe 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 21408-2140a StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x2140a> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x2140a 12> Δ-4
<Const 0x2140e 0x1.2> Δ-2
<Const 0x21410 0x1e.2> Δ-2
<Call 0x21412 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21414-21416 StackAdj> Δ+8
<Call 0x21416 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 2141c-2141e StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x2141e 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21420-21424 StackAdj> Δ+48 {}
<POP 21424-21484 Naked> Σ0 ↓ ←0x2137c
<Blob 0x21424 [14] @> Δ-14 {[«14""»]}
<POP 21434-21436 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21436 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 21440-21442 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 21442 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x21446 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 2144c-2144e StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x2144e 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21454-21456 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21456 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21458-21459 StackAdj> Δ+18 ↓ {}
<Blob 0x21459 [24] @> Δ-24 {[«24""»]}
<Const 0x21468 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 2146c-2146e StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x2146e 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x2147c 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 21482-21484 StackAdj> Δ+30 {}
<POP 21484-2148c Epilogue> Σ0
00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ; import all
00020000 ; import kind.program
00020000 ; no ident.df95fe9f03978f17
00020000 ; --------------------------------------------------------------------------------------
00020000 stack.top:
00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END
00020004 00 02 0f e6 | | .CODE START
00020008 00 01 02 88 | | .CODE FSCALL_10288
0002000c heap.top:
0002000c 00 02 65 00 | e | .PTR 0x26500
00020010 code.end:
00020010 00 02 14 8c | | .PTR 0x2148c
00020014 00 00 00 00 | | .CONST 0x00000000
00020018 programfailurehandler:
00020018 00 02 12 94 | | .CODE PROG_FAIL
0002001c experimentfailurehandler:
0002001c 00 02 13 50 | P | .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 53 54 |@(#)ST | .XXX[0x6]
00020110 41 54 2c 31 2e 31 2c 39 |AT,1.1,9| .XXX[0x58]
00020118 32 2f 30 37 2f 30 39 2c |2/07/09,|
00020120 31 32 3a 30 30 3a 30 30 |12:00:00|
00020128 5c 20 4d 49 53 53 49 4e |\ MISSIN|
00020130 47 20 20 20 46 49 58 45 |G FIXE|
00020138 44 20 20 20 20 20 46 49 |D FI|
00020140 4c 45 20 20 20 20 20 20 |LE |
00020148 4c 49 53 54 20 20 20 20 |LIST |
00020150 20 20 20 72 65 2d 61 6c | re-al|
00020158 6c 6f 63 61 74 65 73 20 |locates |
00020160 61 5f 20 62 6c 6f 63 6b |a_ block|
00020168 2e 20 |. | .XXX[0x2]
0002016a 43 61 6e 27 74 20 72 65 |Can't re| .TXT 'Can't read volume label due to disk errors. '
00020196 4c 6f 61 64 69 6e 67 20 |Loading | .TXT 'Loading directory blocks. '
000201b0 55 6e 75 73 65 64 2f 6d |Unused/m| .XXX[0x38]
000201b8 69 73 73 69 6e 67 20 20 |issing |
000201c0 20 20 20 20 44 69 72 65 | Dire|
000201c8 63 74 6f 72 79 2f 6c 61 |ctory/la|
000201d0 62 65 6c 20 20 20 20 20 |bel |
000201d8 46 69 6c 65 20 20 20 20 |File |
000201e0 20 20 20 20 20 20 20 20 | |
000201e8 20 20 20 20 | | .XXX[0x4]
000201ec 46 72 65 65 |Free | .XXX[0x4]
000201f0 20 6c 69 73 74 20 20 20 | list | .XXX[0x10]
000201f8 20 20 20 20 20 20 20 20 | |
00020200 20 62 6c 6f 63 6b 20 69 | block i| .TXT ' block is already allocated to a_ '
00020222 20 62 6c 6f 63 6b 21 20 | block! | .TXT ' block! '
0002022a 44 69 73 6b 20 65 72 72 |Disk err| .TXT 'Disk error on free list read! '
00020248 5a 65 72 6f 20 6c 65 6e |Zero len| .TXT 'Zero length extent on free list!'
00020268 4c 6f 61 64 69 6e 67 20 |Loading | .TXT 'Loading free list.'
0002027a 52 65 6d 61 69 6e 64 65 |Remainde| .TXT 'Remainder of list will not be loaded'
0002029e 44 69 72 65 63 74 6f 72 |Director| .TXT 'Directory read error! '
000202b4 53 63 61 6e 6e 69 6e 67 |Scanning| .TXT 'Scanning directory. '
000202c8 46 69 6c 65 20 69 73 20 |File is | .TXT 'File is non-contiguous :_ '
000202e2 44 69 73 6b 20 61 6c 6c |Disk all| .TXT 'Disk allocation error :_'
000202fa 44 69 72 65 |Dire | .TXT 'Dire'
000202fe 63 74 6f 72 |ctor | .TXT 'ctor'
00020302 79 20 62 6c |y bl | .TXT 'y bl'
00020306 6f 63 6b 5f |ock_ | .TXT 'ock_'
0002030a 20 63 6f 6e 74 61 69 6e | contain| .TXT ' contains the most files. Files are: '
00020330 43 61 6e 27 74 20 63 6f |Can't co| .TXT 'Can't construct free list due to disk errors, aborting! '
00020368 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to compact the disk '
00020388 44 69 72 65 63 74 6f 72 |Director| .TXT 'Directory utilization : '
000203a0 20 64 69 72 65 63 74 6f | directo| .TXT ' directory block are empty. '
000203bc 20 62 6c 6f 63 6b 73 20 | blocks | .TXT ' blocks unused in_'
000203ce 20 73 65 67 6d 65 6e 74 | segment| .TXT ' segments. Largest unused block =_ '
000203f2 20 62 6c 6f 63 6b 73 20 | blocks | .TXT ' blocks unused in_'
00020404 20 73 65 67 6d 65 6e 74 | segment| .TXT ' segments. Largest unused block =_ '
00020428 4d 49 53 53 49 4e 47 20 |MISSING | .XXX[0x60]
00020430 20 20 46 49 58 45 44 20 | FIXED |
00020438 20 20 20 20 46 49 4c 45 | FILE|
00020440 20 20 20 20 20 20 4c 49 | LI|
00020448 53 54 20 20 20 20 20 20 |ST |
00020450 55 6e 75 73 65 64 2f 6d |Unused/m|
00020458 69 73 73 69 6e 67 20 20 |issing |
00020460 20 20 20 20 44 69 72 65 | Dire|
00020468 63 74 6f 72 79 2f 6c 61 |ctory/la|
00020470 62 65 6c 20 20 20 20 20 |bel |
00020478 46 69 6c 65 20 20 20 20 |File |
00020480 20 20 20 20 20 20 20 20 | |
00020488 20 20 20 20 | | .XXX[0x4]
0002048c 46 72 65 65 |Free | .XXX[0x4]
00020490 20 6c 69 73 74 20 20 20 | list | .XXX[0xf0]
00020498 20 20 20 20 20 20 20 20 | |
000204a0 4e 56 ff 8c bf d5 62 06 |NV b |
000204a8 44 fc 00 02 4e 76 de fc |D Nv |
000204b0 00 74 48 e7 fe e0 45 f9 | tH E |
000204b8 00 01 02 c4 72 0a 74 01 | r t |
000204c0 7a 03 7c 10 20 2e 00 08 |z | . |
000204c8 b0 85 63 02 4e 4f 28 00 | c NO( |
000204d0 76 0a 4e b9 00 01 02 8c |v N |
000204d8 41 fa ff 4e 9e c1 22 4f |A N "O|
000204e0 41 f0 48 00 70 09 12 d8 |A H p |
000204e8 51 c8 ff fc 2f 3a fc 70 |Q /: p|
000204f0 2f 3a fc 68 2f 3a fc 60 |/: h/: `|
000204f8 2f 3a fc 58 20 2e 00 0c |/: X . |
00020500 b0 85 63 02 4e 4f 28 00 | c NO( |
00020508 76 0a 4e b9 00 01 02 8c |v N |
00020510 41 fa ff 16 9e c1 22 4f |A "O|
00020518 41 f0 48 00 70 09 12 d8 |A H p |
00020520 51 c8 ff fc 51 4f 20 4f |Q QO O|
00020528 43 fa fc 38 70 06 10 d9 |C 8p |
00020530 51 c8 ff fc 51 4f 48 6f |Q QOHo|
00020538 00 2a 3f 02 3f 01 4e 92 | *? ? N |
00020540 58 4f 48 6f 00 1e 3f 02 |XOHo ? |
00020548 3f 06 4e 92 58 4f 48 6f |? N XOHo|
00020550 00 18 3f 02 3f 01 4e 92 | ? ? N |
00020558 58 4f 48 6f 00 14 3f 02 |XOHo ? |
00020560 3f 3c 00 07 4e 92 50 4f |?< N PO|
00020568 4e b9 00 01 02 d8 de c6 |N |
00020570 4e b9 00 01 03 e0 de fc |N |
00020578 00 30 4c df 07 7f 4e 5e | 0L N^|
00020580 4e 75 |Nu | .XXX[0x2]
00020582 ; --------------------------------------------------------------------------------------
00020582 ; OMSI PASCAL Function
00020582 ; --------------------------------------------------------------------------------------
00020582 4e 56 ff e0 |NV | LINK.W A6,#0xffe0
00020586 bf d5 | | CMPA.L (A5),A7
00020588 62 06 |b | BHI 0x20590
0002058a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002058e 4e 76 |Nv | TRAPV
00020590 de fc 00 1c | | ADDA.W #0x1c,A7
00020594 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7)
00020598 43 f9 00 02 14 8c |C | LEA.L 0x2148c,A1
0002059e 72 10 |r | MOVEQ.L #0x10,D1
000205a0 7e 00 |~ | MOVEQ.L #0x00,D7
000205a2 be 81 | | CMP.L D1,D7
000205a4 63 02 |c | BLS 0x205a8
000205a6 4e 4f |NO | TRAP #15
000205a8 20 07 | | MOVE.L D7,D0
000205aa e5 80 | | ASL.L #0x2,D0
000205ac 20 49 | I | MOVEA.L A1,A0
000205ae 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
000205b2 42 a8 50 0c |B P | CLR.L (A0+0x500c)
000205b6 52 87 |R | ADDQ.L #0x1,D7
000205b8 be 81 | | CMP.L D1,D7
000205ba 6f e6 |o | BLE 0x205a2
000205bc 7e 00 |~ | MOVEQ.L #0x00,D7
000205be 0c 87 00 00 1f ff | | CMPI.L #0x00001fff,D7
000205c4 63 02 |c | BLS 0x205c8
000205c6 4e 4f |NO | TRAP #15
000205c8 20 07 | | MOVE.L D7,D0
000205ca e3 80 | | ASL.L #0x1,D0
000205cc 20 49 | I | MOVEA.L A1,A0
000205ce 42 70 08 08 |Bp | CLR.W (A0+D0.L+#0x8)
000205d2 52 87 |R | ADDQ.L #0x1,D7
000205d4 0c 87 00 00 1f ff | | CMPI.L #0x00001fff,D7
000205da 6f e2 |o | BLE 0x205be
000205dc 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1
000205e0 4e 5e |N^ | UNLK A6
000205e2 4e 75 |Nu | RTS
000205e4 ; --------------------------------------------------------------------------------------
000205e4 ; OMSI PASCAL Function
000205e4 ; <LVAR -0x002 2(rw)>
000205e4 ; <LVAR -0x004 2(rw)>
000205e4 ; <LVAR -0x3e1 1(r)>
000205e4 ; <LVAR -0x3e2 1(r)>
000205e4 ; <LVAR -0x3e4 2(r)>
000205e4 ; <LVAR -0x3e5 1(r)>
000205e4 ; <LVAR -0x3e6 1(r)>
000205e4 ; <LVAR -0x3e8 2(r)>
000205e4 ; <LVAR -0x404 @>
000205e4 ; --------------------------------------------------------------------------------------
000205e4 4e 56 fb 86 |NV | LINK.W A6,#0xfb86
000205e8 bf d5 | | CMPA.L (A5),A7
000205ea 62 06 |b | BHI 0x205f2
000205ec 44 fc 00 02 |D | MOVE.W #0x2,CCR
000205f0 4e 76 |Nv | TRAPV
000205f2 de fc 00 6e | n | ADDA.W #0x6e,A7
000205f6 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000205fa 45 f9 00 02 54 94 |E T | LEA.L 0x25494,A2
00020600 47 f9 00 02 64 dc |G d | LEA.L 0x264dc,A3
00020606 28 3c 00 00 ff ff |(< | MOVE.L #0xffff,D4
0002060c 9e fc 00 1a | | SUBA.W #0x1a,A7
00020610 20 4f | O | MOVEA.L A7,A0
00020612 43 fa fb 82 |C | LEA.L 0x20196,A1
00020616 70 18 |p | MOVEQ.L #0x18,D0
00020618 10 d9 | | MOVE.B (A1)+,(A0)+
0002061a 51 c8 ff fc |Q | DBF D0,0x20618
0002061e 59 4f |YO | SUBQ.L #0x4,A7
00020620 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020624 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00020628 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
0002062c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020632 50 4f |PO | ADDQ.L #0x8,A7
00020634 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002063a de fc 00 1e | | ADDA.W #0x1e,A7
0002063e 7c 00 || | MOVEQ.L #0x00,D6
00020640 0c 86 00 00 00 07 | | CMPI.L #0x00000007,D6
00020646 63 02 |c | BLS 0x2064a
00020648 4e 4f |NO | TRAP #15
0002064a 20 06 | | MOVE.L D6,D0
0002064c e3 80 | | ASL.L #0x1,D0
0002064e 41 f8 00 00 |A | LEA.L 0x0,A0
00020652 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
00020656 d1 fc 00 01 00 12 | | ADDA.L #0x10012,A0
0002065c 3a 10 |: | MOVE.W (A0),D5
0002065e 42 80 |B | CLR.L D0
00020660 30 05 |0 | MOVE.W D5,D0
00020662 06 80 00 00 00 ff | | ADDI.L #0x000000ff,D0
00020668 2f 00 |/ | MOVE.L D0,-(A7)
0002066a 42 80 |B | CLR.L D0
0002066c 30 05 |0 | MOVE.W D5,D0
0002066e 2e 00 |. | MOVE.L D0,D7
00020670 be 97 | | CMP.L (A7),D7
00020672 62 08 |b | BHI 0x2067c
00020674 20 17 | | MOVE.L (A7),D0
00020676 be 80 | | CMP.L D0,D7
00020678 6d 02 |m | BLT 0x2067c
0002067a 4e 4f |NO | TRAP #15
0002067c be 6f 00 02 | o | CMP.W (A7+0x2),D7
00020680 62 20 |b | BHI 0x206a2
00020682 20 52 | R | MOVEA.L (A2),A0
00020684 42 80 |B | CLR.L D0
00020686 30 07 |0 | MOVE.W D7,D0
00020688 e4 98 | | ROR.L #0x2,D0
0002068a d0 c0 | | ADDA.W D0,A0
0002068c 48 40 |H@ | SWAP.W D0
0002068e e7 58 | X | ROL.W #0x3,D0
00020690 72 40 |r@ | MOVEQ.L #0x40,D1
00020692 34 3c ff 3f |4< ? | MOVE.W #0xff3f,D2
00020696 e0 7a | z | ROR.W D0,D2
00020698 c5 10 | | AND.B D2,(A0)
0002069a e0 29 | ) | LSR.B D0,D1
0002069c 83 10 | | OR.B D1,(A0)
0002069e 52 47 |RG | ADDQ.W #0x1,D7
000206a0 64 da |d | BCC 0x2067c
000206a2 58 4f |XO | ADDQ.L #0x4,A7
000206a4 52 86 |R | ADDQ.L #0x1,D6
000206a6 0c 86 00 00 00 07 | | CMPI.L #0x00000007,D6
000206ac 6f 92 |o | BLE 0x20640
000206ae 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
000206b2 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
000206b6 48 78 00 01 |Hx | PEA.L 0x1
000206ba 41 ee fb fc |A | LEA.L (A6-0x404),A0
000206be 2f 08 |/ | MOVE.L A0,-(A7)
000206c0 48 53 |HS | PEA.L (A3)
000206c2 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
000206c8 de fc 00 10 | | ADDA.W #0x10,A7
000206cc 4a 13 |J | TST.B (A3)
000206ce 66 36 |f6 | BNE 0x20706
000206d0 9e fc 00 2c | , | SUBA.W #0x2c,A7
000206d4 20 4f | O | MOVEA.L A7,A0
000206d6 43 fa fa 92 |C | LEA.L 0x2016a,A1
000206da 70 2a |p* | MOVEQ.L #0x2a,D0
000206dc 10 d9 | | MOVE.B (A1)+,(A0)+
000206de 51 c8 ff fc |Q | DBF D0,0x206dc
000206e2 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7)
000206e6 59 4f |YO | SUBQ.L #0x4,A7
000206e8 48 6f 00 06 |Ho | PEA.L (A7+0x6)
000206ec 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000206f0 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7)
000206f4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000206fa 50 4f |PO | ADDQ.L #0x8,A7
000206fc 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00020702 de fc 00 32 | 2 | ADDA.W #0x32,A7
00020706 30 39 00 01 00 0c |09 | MOVE.W 0x1000c,D0
0002070c c0 ee fc 18 | | MULU.W (A6-0x3e8),D0
00020710 42 81 |B | CLR.L D1
00020712 12 2e fc 1a | . | MOVE.B (A6-0x3e6),D1
00020716 c2 f9 00 01 00 0a | | MULU.W 0x1000a,D1
0002071c d2 80 | | ADD.L D0,D1
0002071e 42 80 |B | CLR.L D0
00020720 10 2e fc 1b | . | MOVE.B (A6-0x3e5),D0
00020724 52 40 |R@ | ADDQ.W #0x1,D0
00020726 e2 40 | @ | ASR.W #0x1,D0
00020728 48 c0 |H | EXTW.L D0
0002072a d0 81 | | ADD.L D1,D0
0002072c b0 84 | | CMP.L D4,D0
0002072e 63 02 |c | BLS 0x20732
00020730 4e 4f |NO | TRAP #15
00020732 3d 40 ff fc |=@ | MOVE.W D0,(A6-0x4)
00020736 30 39 00 01 00 0c |09 | MOVE.W 0x1000c,D0
0002073c c0 ee fc 1c | | MULU.W (A6-0x3e4),D0
00020740 42 81 |B | CLR.L D1
00020742 12 2e fc 1e | . | MOVE.B (A6-0x3e2),D1
00020746 c2 f9 00 01 00 0a | | MULU.W 0x1000a,D1
0002074c d2 80 | | ADD.L D0,D1
0002074e 42 80 |B | CLR.L D0
00020750 10 2e fc 1f | . | MOVE.B (A6-0x3e1),D0
00020754 53 40 |S@ | SUBQ.W #0x1,D0
00020756 48 c0 |H | EXTW.L D0
00020758 81 fc 00 02 | | DIVS.W #0x2,D0
0002075c 48 c0 |H | EXTW.L D0
0002075e d0 81 | | ADD.L D1,D0
00020760 b0 84 | | CMP.L D4,D0
00020762 63 02 |c | BLS 0x20766
00020764 4e 4f |NO | TRAP #15
00020766 3d 40 ff fe |=@ | MOVE.W D0,(A6-0x2)
0002076a 7e 01 |~ | MOVEQ.L #0x01,D7
0002076c be 6e ff fc | n | CMP.W (A6-0x4),D7
00020770 64 2a |d* | BCC 0x2079c
00020772 20 52 | R | MOVEA.L (A2),A0
00020774 42 80 |B | CLR.L D0
00020776 30 07 |0 | MOVE.W D7,D0
00020778 22 00 |" | MOVE.L D0,D1
0002077a e4 99 | | ROR.L #0x2,D1
0002077c d0 c1 | | ADDA.W D1,A0
0002077e 48 41 |HA | SWAP.W D1
00020780 e7 59 | Y | ROL.W #0x3,D1
00020782 74 40 |t@ | MOVEQ.L #0x40,D2
00020784 36 3c ff 3f |6< ? | MOVE.W #0xff3f,D3
00020788 e2 7b | { | ROR.W D1,D3
0002078a c7 10 | | AND.B D3,(A0)
0002078c e2 2a | * | LSR.B D1,D2
0002078e 85 10 | | OR.B D2,(A0)
00020790 52 80 |R | ADDQ.L #0x1,D0
00020792 b0 84 | | CMP.L D4,D0
00020794 63 02 |c | BLS 0x20798
00020796 4e 4f |NO | TRAP #15
00020798 3e 00 |> | MOVE.W D0,D7
0002079a 60 d0 |` | BRA 0x2076c
0002079c 3e 04 |> | MOVE.W D4,D7
0002079e be 6e ff fe | n | CMP.W (A6-0x2),D7
000207a2 63 2a |c* | BLS 0x207ce
000207a4 20 52 | R | MOVEA.L (A2),A0
000207a6 42 80 |B | CLR.L D0
000207a8 30 07 |0 | MOVE.W D7,D0
000207aa 22 00 |" | MOVE.L D0,D1
000207ac e4 99 | | ROR.L #0x2,D1
000207ae d0 c1 | | ADDA.W D1,A0
000207b0 48 41 |HA | SWAP.W D1
000207b2 e7 59 | Y | ROL.W #0x3,D1
000207b4 74 40 |t@ | MOVEQ.L #0x40,D2
000207b6 36 3c ff 3f |6< ? | MOVE.W #0xff3f,D3
000207ba e2 7b | { | ROR.W D1,D3
000207bc c7 10 | | AND.B D3,(A0)
000207be e2 2a | * | LSR.B D1,D2
000207c0 85 10 | | OR.B D2,(A0)
000207c2 53 80 |S | SUBQ.L #0x1,D0
000207c4 b0 84 | | CMP.L D4,D0
000207c6 63 02 |c | BLS 0x207ca
000207c8 4e 4f |NO | TRAP #15
000207ca 3e 00 |> | MOVE.W D0,D7
000207cc 60 d0 |` | BRA 0x2079e
000207ce 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
000207d2 4e 5e |N^ | UNLK A6
000207d4 4e 75 |Nu | RTS
000207d6 ; --------------------------------------------------------------------------------------
000207d6 ; OMSI PASCAL Function
000207d6 ; <LVAR 0x010 2(r)>
000207d6 ; <LVAR 0x00e 2(r)>
000207d6 ; <LVAR 0x00c 2(r)>
000207d6 ; <LVAR 0x008 4(r)>
000207d6 ; --------------------------------------------------------------------------------------
000207d6 4e 56 ff 4e |NV N | LINK.W A6,#0xff4e
000207da bf d5 | | CMPA.L (A5),A7
000207dc 62 06 |b | BHI 0x207e4
000207de 44 fc 00 02 |D | MOVE.W #0x2,CCR
000207e2 4e 76 |Nv | TRAPV
000207e4 de fc 00 b0 | | ADDA.W #0xb0,A7
000207e8 48 e7 fd f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7)
000207ec 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000207f2 49 f9 00 02 54 94 |I T | LEA.L 0x25494,A4
000207f8 78 14 |x | MOVEQ.L #0x14,D4
000207fa 7a 01 |z | MOVEQ.L #0x01,D5
000207fc 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00020800 42 10 |B | CLR.B (A0)
00020802 3e 2e 00 0e |>. | MOVE.W (A6+0xe),D7
00020806 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
0002080a 42 80 |B | CLR.L D0
0002080c 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
00020810 42 81 |B | CLR.L D1
00020812 32 2e 00 0c |2. | MOVE.W (A6+0xc),D1
00020816 d2 80 | | ADD.L D0,D1
00020818 42 80 |B | CLR.L D0
0002081a 30 07 |0 | MOVE.W D7,D0
0002081c b0 81 | | CMP.L D1,D0
0002081e 64 00 00 fe |d | BCC 0x2091e
00020822 4a 10 |J | TST.B (A0)
00020824 66 00 00 f8 |f | BNE 0x2091e
00020828 22 54 |"T | MOVEA.L (A4),A1
0002082a 22 00 |" | MOVE.L D0,D1
0002082c e4 99 | | ROR.L #0x2,D1
0002082e d2 c1 | | ADDA.W D1,A1
00020830 48 41 |HA | SWAP.W D1
00020832 e7 59 | Y | ROL.W #0x3,D1
00020834 14 11 | | MOVE.B (A1),D2
00020836 e3 2a | * | LSL.B D1,D2
00020838 ec 0a | | LSR.B #0x6,D2
0002083a 66 1a |f | BNE 0x20856
0002083c 34 2e 00 10 |4. | MOVE.W (A6+0x10),D2
00020840 36 3c ff 3f |6< ? | MOVE.W #0xff3f,D3
00020844 e2 7b | { | ROR.W D1,D3
00020846 c7 11 | | AND.B D3,(A1)
00020848 02 02 00 03 | | ANDI.B #0x03,D2
0002084c ed 0a | | LSL.B #0x6,D2
0002084e e2 2a | * | LSR.B D1,D2
00020850 85 11 | | OR.B D2,(A1)
00020852 60 00 00 b8 |` | BRA 0x2090c
00020856 72 14 |r | MOVEQ.L #0x14,D1
00020858 c3 ee 00 10 | | MULS.W (A6+0x10),D1
0002085c 43 fa fb f2 |C | LEA.L 0x20450,A1
00020860 9e c4 | | SUBA.W D4,A7
00020862 24 4f |$O | MOVEA.L A7,A2
00020864 43 f1 10 00 |C | LEA.L (A1+D1.W),A1
00020868 72 13 |r | MOVEQ.L #0x13,D1
0002086a 14 d9 | | MOVE.B (A1)+,(A2)+
0002086c 51 c9 ff fc |Q | DBF D1,0x2086a
00020870 9e fc 00 22 | " | SUBA.W #0x22,A7
00020874 22 4f |"O | MOVEA.L A7,A1
00020876 45 fa f9 88 |E | LEA.L 0x20200,A2
0002087a 72 20 |r | MOVEQ.L #0x20,D1
0002087c 12 da | | MOVE.B (A2)+,(A1)+
0002087e 51 c9 ff fc |Q | DBF D1,0x2087c
00020882 22 54 |"T | MOVEA.L (A4),A1
00020884 22 00 |" | MOVE.L D0,D1
00020886 e4 99 | | ROR.L #0x2,D1
00020888 d2 c1 | | ADDA.W D1,A1
0002088a 48 41 |HA | SWAP.W D1
0002088c e7 59 | Y | ROL.W #0x3,D1
0002088e 42 82 |B | CLR.L D2
00020890 14 11 | | MOVE.B (A1),D2
00020892 e3 2a | * | LSL.B D1,D2
00020894 ec 0a | | LSR.B #0x6,D2
00020896 c4 c4 | | MULU.W D4,D2
00020898 42 81 |B | CLR.L D1
0002089a 32 02 |2 | MOVE.W D2,D1
0002089c 43 fa fb b2 |C | LEA.L 0x20450,A1
000208a0 9e c4 | | SUBA.W D4,A7
000208a2 24 4f |$O | MOVEA.L A7,A2
000208a4 43 f1 18 00 |C | LEA.L (A1+D1.L),A1
000208a8 72 13 |r | MOVEQ.L #0x13,D1
000208aa 14 d9 | | MOVE.B (A1)+,(A2)+
000208ac 51 c9 ff fc |Q | DBF D1,0x208aa
000208b0 51 4f |QO | SUBQ.L #0x8,A7
000208b2 22 4f |"O | MOVEA.L A7,A1
000208b4 45 fa f9 6c |E l | LEA.L 0x20222,A2
000208b8 72 06 |r | MOVEQ.L #0x06,D1
000208ba 12 da | | MOVE.B (A2)+,(A1)+
000208bc 51 c9 ff fc |Q | DBF D1,0x208ba
000208c0 51 4f |QO | SUBQ.L #0x8,A7
000208c2 48 6f 00 46 |Ho F | PEA.L (A7+0x46)
000208c6 3f 05 |? | MOVE.W D5,-(A7)
000208c8 3f 04 |? | MOVE.W D4,-(A7)
000208ca 4e 93 |N | JSR (A3)
000208cc 58 4f |XO | ADDQ.L #0x4,A7
000208ce 48 6f 00 28 |Ho ( | PEA.L (A7+0x28)
000208d2 3f 05 |? | MOVE.W D5,-(A7)
000208d4 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7)
000208d8 4e 93 |N | JSR (A3)
000208da 58 4f |XO | ADDQ.L #0x4,A7
000208dc 48 6f 00 18 |Ho | PEA.L (A7+0x18)
000208e0 3f 05 |? | MOVE.W D5,-(A7)
000208e2 3f 04 |? | MOVE.W D4,-(A7)
000208e4 4e 93 |N | JSR (A3)
000208e6 58 4f |XO | ADDQ.L #0x4,A7
000208e8 48 6f 00 14 |Ho | PEA.L (A7+0x14)
000208ec 3f 05 |? | MOVE.W D5,-(A7)
000208ee 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7)
000208f2 4e 93 |N | JSR (A3)
000208f4 50 4f |PO | ADDQ.L #0x8,A7
000208f6 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String
000208fc de fc 00 10 | | ADDA.W #0x10,A7
00020900 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020906 de fc 00 56 | V | ADDA.W #0x56,A7
0002090a 10 85 | | MOVE.B D5,(A0)
0002090c 52 80 |R | ADDQ.L #0x1,D0
0002090e 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0
00020914 63 02 |c | BLS 0x20918
00020916 4e 4f |NO | TRAP #15
00020918 3e 00 |> | MOVE.W D0,D7
0002091a 60 00 fe ea |` | BRA 0x20806
0002091e 4c df 1f bf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3+A4
00020922 4e 5e |N^ | UNLK A6
00020924 4e 75 |Nu | RTS
00020926 ; --------------------------------------------------------------------------------------
00020926 ; OMSI PASCAL Function
00020926 ; <LVAR 0x010 4(r)>
00020926 ; <LVAR 0x00c 4(r)>
00020926 ; <LVAR 0x008 4(r)>
00020926 ; <LVAR -0x003 @ 1(r)>
00020926 ; <LVAR -0x004 @ 1(r)>
00020926 ; <LVAR -0x408 2(r)>
00020926 ; <LVAR -0x40a @ 2(r)>
00020926 ; --------------------------------------------------------------------------------------
00020926 4e 56 fb 94 |NV | LINK.W A6,#0xfb94
0002092a bf d5 | | CMPA.L (A5),A7
0002092c 62 06 |b | BHI 0x20934
0002092e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020932 4e 76 |Nv | TRAPV
00020934 de fc 00 60 | ` | ADDA.W #0x60,A7
00020938 48 e7 f9 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
0002093c 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020942 47 ee fb f6 |G | LEA.L (A6-0x40a),A3
00020946 74 01 |t | MOVEQ.L #0x01,D2
00020948 76 0e |v | MOVEQ.L #0x0e,D3
0002094a 78 24 |x$ | MOVEQ.L #0x24,D4
0002094c 41 fa f9 2c |A , | LEA.L 0x2027a,A0
00020950 70 08 |p | MOVEQ.L #0x08,D0
00020952 3f 20 |? | MOVE.W -(A0),-(A7)
00020954 51 c8 ff fc |Q | DBF D0,0x20952
00020958 59 4f |YO | SUBQ.L #0x4,A7
0002095a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002095e 3f 02 |? | MOVE.W D2,-(A7)
00020960 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00020964 4e 92 |N | JSR (A2)
00020966 50 4f |PO | ADDQ.L #0x8,A7
00020968 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002096e de fc 00 16 | | ADDA.W #0x16,A7
00020972 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00020976 42 50 |BP | CLR.W (A0)
00020978 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0
0002097c 42 50 |BP | CLR.W (A0)
0002097e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00020982 42 50 |BP | CLR.W (A0)
00020984 20 4b | K | MOVEA.L A3,A0
00020986 2f 08 |/ | MOVE.L A0,-(A7)
00020988 28 5f |(_ | MOVEA.L (A7)+,A4
0002098a 3e 39 00 01 00 10 |>9 | MOVE.W 0x10010,D7
00020990 4a 47 |JG | TST.W D7
00020992 67 00 00 fc |g | BEQ 0x20a90
00020996 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
0002099a 42 80 |B | CLR.L D0
0002099c 30 10 |0 | MOVE.W (A0),D0
0002099e 52 80 |R | ADDQ.L #0x1,D0
000209a0 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0
000209a6 63 02 |c | BLS 0x209aa
000209a8 4e 4f |NO | TRAP #15
000209aa 30 80 |0 | MOVE.W D0,(A0)
000209ac 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
000209b0 3f 07 |? | MOVE.W D7,-(A7)
000209b2 48 78 00 01 |Hx | PEA.L 0x1
000209b6 2f 0c |/ | MOVE.L A4,-(A7)
000209b8 48 6e ff fc |Hn | PEA.L (A6-0x4)
000209bc 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
000209c2 de fc 00 10 | | ADDA.W #0x10,A7
000209c6 4a 2e ff fc |J. | TST.B (A6-0x4)
000209ca 66 2c |f, | BNE 0x209f8
000209cc 9e fc 00 1e | | SUBA.W #0x1e,A7
000209d0 20 4f | O | MOVEA.L A7,A0
000209d2 43 fa f8 56 |C V | LEA.L 0x2022a,A1
000209d6 70 1c |p | MOVEQ.L #0x1c,D0
000209d8 10 d9 | | MOVE.B (A1)+,(A0)+
000209da 51 c8 ff fc |Q | DBF D0,0x209d8
000209de 1f 03 | | MOVE.B D3,-(A7)
000209e0 59 4f |YO | SUBQ.L #0x4,A7
000209e2 48 6f 00 06 |Ho | PEA.L (A7+0x6)
000209e6 3f 02 |? | MOVE.W D2,-(A7)
000209e8 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7)
000209ec 4e 92 |N | JSR (A2)
000209ee 50 4f |PO | ADDQ.L #0x8,A7
000209f0 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
000209f6 de c4 | | ADDA.W D4,A7
000209f8 4a 53 |JS | TST.W (A3)
000209fa 66 28 |f( | BNE 0x20a24
000209fc 41 fa f8 6a |A j | LEA.L 0x20268,A0
00020a00 70 07 |p | MOVEQ.L #0x07,D0
00020a02 2f 20 |/ | MOVE.L -(A0),-(A7)
00020a04 51 c8 ff fc |Q | DBF D0,0x20a02
00020a08 1f 03 | | MOVE.B D3,-(A7)
00020a0a 59 4f |YO | SUBQ.L #0x4,A7
00020a0c 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00020a10 3f 02 |? | MOVE.W D2,-(A7)
00020a12 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7)
00020a16 4e 92 |N | JSR (A2)
00020a18 50 4f |PO | ADDQ.L #0x8,A7
00020a1a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00020a20 de fc 00 26 | & | ADDA.W #0x26,A7
00020a24 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0
00020a28 42 80 |B | CLR.L D0
00020a2a 30 10 |0 | MOVE.W (A0),D0
00020a2c 42 81 |B | CLR.L D1
00020a2e 32 13 |2 | MOVE.W (A3),D1
00020a30 d0 81 | | ADD.L D1,D0
00020a32 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0
00020a38 63 02 |c | BLS 0x20a3c
00020a3a 4e 4f |NO | TRAP #15
00020a3c 30 80 |0 | MOVE.W D0,(A0)
00020a3e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00020a42 b2 50 | P | CMP.W (A0),D1
00020a44 63 02 |c | BLS 0x20a48
00020a46 30 81 |0 | MOVE.W D1,(A0)
00020a48 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7)
00020a4c 3f 07 |? | MOVE.W D7,-(A7)
00020a4e 3f 13 |? | MOVE.W (A3),-(A7)
00020a50 48 6e ff fd |Hn | PEA.L (A6-0x3)
00020a54 4e ba fd 80 |N | JSR 0x207d6
00020a58 de fc 00 0a | | ADDA.W #0xa,A7
00020a5c 4a 2e ff fd |J. | TST.B (A6-0x3)
00020a60 67 26 |g& | BEQ 0x20a88
00020a62 41 fa f8 3a |A : | LEA.L 0x2029e,A0
00020a66 70 08 |p | MOVEQ.L #0x08,D0
00020a68 2f 20 |/ | MOVE.L -(A0),-(A7)
00020a6a 51 c8 ff fc |Q | DBF D0,0x20a68
00020a6e 59 4f |YO | SUBQ.L #0x4,A7
00020a70 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020a74 3f 02 |? | MOVE.W D2,-(A7)
00020a76 3f 04 |? | MOVE.W D4,-(A7)
00020a78 4e 92 |N | JSR (A2)
00020a7a 50 4f |PO | ADDQ.L #0x8,A7
00020a7c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020a82 de fc 00 28 | ( | ADDA.W #0x28,A7
00020a86 60 08 |` | BRA 0x20a90
00020a88 3e 2e fb f8 |>. | MOVE.W (A6-0x408),D7
00020a8c 60 00 ff 02 |` | BRA 0x20990
00020a90 4c df 1f 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4
00020a94 4e 5e |N^ | UNLK A6
00020a96 4e 75 |Nu | RTS
00020a98 ; --------------------------------------------------------------------------------------
00020a98 ; OMSI PASCAL Function
00020a98 ; <LVAR 0x008 4(r)>
00020a98 ; <LVAR -0x004 4(rw)>
00020a98 ; <LVAR -0x00b @ 1(r)>
00020a98 ; <LVAR -0x00c @ 1(r)>
00020a98 ; <LVAR -0x010 4(rw)>
00020a98 ; <LVAR -0x020 4(w)>
00020a98 ; --------------------------------------------------------------------------------------
00020a98 4e 56 ff 3c |NV < | LINK.W A6,#0xff3c
00020a9c bf d5 | | CMPA.L (A5),A7
00020a9e 62 06 |b | BHI 0x20aa6
00020aa0 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020aa4 4e 76 |Nv | TRAPV
00020aa6 de fc 00 a0 | | ADDA.W #0xa0,A7
00020aaa 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020aae 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020ab4 47 ee ff f0 |G | LEA.L (A6-0x10),A3
00020ab8 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4
00020abe 9e fc 00 14 | | SUBA.W #0x14,A7
00020ac2 20 4f | O | MOVEA.L A7,A0
00020ac4 43 fa f7 ee |C | LEA.L 0x202b4,A1
00020ac8 70 12 |p | MOVEQ.L #0x12,D0
00020aca 10 d9 | | MOVE.B (A1)+,(A0)+
00020acc 51 c8 ff fc |Q | DBF D0,0x20aca
00020ad0 59 4f |YO | SUBQ.L #0x4,A7
00020ad2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020ad6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00020ada 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
00020ade 4e 92 |N | JSR (A2)
00020ae0 50 4f |PO | ADDQ.L #0x8,A7
00020ae2 4e 94 |N | JSR (A4)
00020ae4 de fc 00 18 | | ADDA.W #0x18,A7
00020ae8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00020aec 42 90 |B | CLR.L (A0)
00020aee 42 ae ff fc |B | CLR.L (A6-0x4)
00020af2 70 00 |p | MOVEQ.L #0x00,D0
00020af4 2f 00 |/ | MOVE.L D0,-(A7)
00020af6 22 00 |" | MOVE.L D0,D1
00020af8 e5 81 | | ASL.L #0x2,D1
00020afa 28 01 |( | MOVE.L D1,D4
00020afc 26 3c 00 00 01 00 |&< | MOVE.L #0x100,D3
00020b02 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00020b08 2f 03 |/ | MOVE.L D3,-(A7)
00020b0a 28 00 |( | MOVE.L D0,D4
00020b0c 76 40 |v@ | MOVEQ.L #0x40,D3
00020b0e 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00020b14 0c 84 00 00 00 07 | | CMPI.L #0x00000007,D4
00020b1a 63 02 |c | BLS 0x20b1e
00020b1c 4e 4f |NO | TRAP #15
00020b1e e3 84 | | ASL.L #0x1,D4
00020b20 41 f8 00 00 |A | LEA.L 0x0,A0
00020b24 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0
00020b28 d1 fc 00 01 00 12 | | ADDA.L #0x10012,A0
00020b2e 42 81 |B | CLR.L D1
00020b30 32 10 |2 | MOVE.W (A0),D1
00020b32 24 1f |$ | MOVE.L (A7)+,D2
00020b34 d4 81 | | ADD.L D1,D2
00020b36 2d 42 ff e0 |-B | MOVE.L D2,(A6-0x20)
00020b3a 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00020b3e 0c 82 00 00 ff ff | | CMPI.L #0x0000ffff,D2
00020b44 63 02 |c | BLS 0x20b48
00020b46 4e 4f |NO | TRAP #15
00020b48 3f 02 |? | MOVE.W D2,-(A7)
00020b4a 48 78 00 04 |Hx | PEA.L 0x4
00020b4e 2f 39 00 02 64 de |/9 d | MOVE.L 0x264de,-(A7)
00020b54 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00020b58 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00020b5e de fc 00 10 | | ADDA.W #0x10,A7
00020b62 4a 2e ff f4 |J. | TST.B (A6-0xc)
00020b66 66 32 |f2 | BNE 0x20b9a
00020b68 9e fc 00 16 | | SUBA.W #0x16,A7
00020b6c 20 4f | O | MOVEA.L A7,A0
00020b6e 43 fa f7 2e |C . | LEA.L 0x2029e,A1
00020b72 72 14 |r | MOVEQ.L #0x14,D1
00020b74 10 d9 | | MOVE.B (A1)+,(A0)+
00020b76 51 c9 ff fc |Q | DBF D1,0x20b74
00020b7a 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7)
00020b7e 59 4f |YO | SUBQ.L #0x4,A7
00020b80 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00020b84 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00020b88 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
00020b8c 4e 92 |N | JSR (A2)
00020b8e 50 4f |PO | ADDQ.L #0x8,A7
00020b90 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00020b96 de fc 00 1c | | ADDA.W #0x1c,A7
00020b9a 72 00 |r | MOVEQ.L #0x00,D1
00020b9c 2f 01 |/ | MOVE.L D1,-(A7)
00020b9e 42 93 |B | CLR.L (A3)
00020ba0 7a 00 |z | MOVEQ.L #0x00,D5
00020ba2 20 17 | | MOVE.L (A7),D0
00020ba4 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0
00020baa 63 02 |c | BLS 0x20bae
00020bac 4e 4f |NO | TRAP #15
00020bae e1 80 | | ASL.L #0x8,D0
00020bb0 e5 80 | | ASL.L #0x2,D0
00020bb2 41 f9 00 02 14 8c |A | LEA.L 0x2148c,A0
00020bb8 0c 85 00 00 00 0f | | CMPI.L #0x0000000f,D5
00020bbe 63 02 |c | BLS 0x20bc2
00020bc0 4e 4f |NO | TRAP #15
00020bc2 22 05 |" | MOVE.L D5,D1
00020bc4 ed 81 | | ASL.L #0x6,D1
00020bc6 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
00020bca 2f 08 |/ | MOVE.L A0,-(A7)
00020bcc 0c 85 00 00 00 10 | | CMPI.L #0x00000010,D5
00020bd2 6c 00 01 2e |l . | BGE 0x20d02
00020bd6 41 f0 18 00 |A | LEA.L (A0+D1.L),A0
00020bda 10 28 40 4b | (@K | MOVE.B (A0+0x404b),D0
00020bde e9 08 | | LSL.B #0x4,D0
00020be0 ee 08 | | LSR.B #0x7,D0
00020be2 66 00 01 1e |f | BNE 0x20d02
00020be6 52 93 |R | ADDQ.L #0x1,(A3)
00020be8 20 57 | W | MOVEA.L (A7),A0
00020bea 41 f0 18 00 |A | LEA.L (A0+D1.L),A0
00020bee 2f 08 |/ | MOVE.L A0,-(A7)
00020bf0 7e 00 |~ | MOVEQ.L #0x00,D7
00020bf2 7c 00 || | MOVEQ.L #0x00,D6
00020bf4 70 00 |p | MOVEQ.L #0x00,D0
00020bf6 0c 80 00 00 00 05 | | CMPI.L #0x00000005,D0
00020bfc 63 02 |c | BLS 0x20c00
00020bfe 4e 4f |NO | TRAP #15
00020c00 22 00 |" | MOVE.L D0,D1
00020c02 e5 81 | | ASL.L #0x2,D1
00020c04 20 57 | W | MOVEA.L (A7),A0
00020c06 41 e8 40 0c |A @ | LEA.L (A0+0x400c),A0
00020c0a 4a 70 18 22 |Jp " | TST.W (A0+D1.L+#0x22)
00020c0e 67 36 |g6 | BEQ 0x20c46
00020c10 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00020c14 3f 30 18 24 |?0 $ | MOVE.W (A0+D1.L+#0x24),-(A7)
00020c18 34 30 18 22 |40 " | MOVE.W (A0+D1.L+#0x22),D2
00020c1c 48 c2 |H | EXTW.L D2
00020c1e 94 87 | | SUB.L D7,D2
00020c20 0c 82 00 00 ff ff | | CMPI.L #0x0000ffff,D2
00020c26 63 02 |c | BLS 0x20c2a
00020c28 4e 4f |NO | TRAP #15
00020c2a 3f 02 |? | MOVE.W D2,-(A7)
00020c2c 48 6e ff f5 |Hn | PEA.L (A6-0xb)
00020c30 4e ba fb a4 |N | JSR 0x207d6
00020c34 de fc 00 0a | | ADDA.W #0xa,A7
00020c38 34 30 18 22 |40 " | MOVE.W (A0+D1.L+#0x22),D2
00020c3c 48 c2 |H | EXTW.L D2
00020c3e 2e 02 |. | MOVE.L D2,D7
00020c40 4a 80 |J | TST.L D0
00020c42 6f 02 |o | BLE 0x20c46
00020c44 7c 01 || | MOVEQ.L #0x01,D6
00020c46 52 80 |R | ADDQ.L #0x1,D0
00020c48 0c 80 00 00 00 05 | | CMPI.L #0x00000005,D0
00020c4e 6f a6 |o | BLE 0x20bf6
00020c50 4a 06 |J | TST.B D6
00020c52 67 52 |gR | BEQ 0x20ca6
00020c54 9e fc 00 1a | | SUBA.W #0x1a,A7
00020c58 20 4f | O | MOVEA.L A7,A0
00020c5a 43 fa f6 6c |C l | LEA.L 0x202c8,A1
00020c5e 70 18 |p | MOVEQ.L #0x18,D0
00020c60 10 d9 | | MOVE.B (A1)+,(A0)+
00020c62 51 c8 ff fc |Q | DBF D0,0x20c60
00020c66 20 6f 00 1a | o | MOVEA.L (A7+0x1a),A0
00020c6a 41 e8 40 2a |A @* | LEA.L (A0+0x402a),A0
00020c6e 70 0e |p | MOVEQ.L #0x0e,D0
00020c70 3f 20 |? | MOVE.W -(A0),-(A7)
00020c72 51 c8 ff fc |Q | DBF D0,0x20c70
00020c76 51 4f |QO | SUBQ.L #0x8,A7
00020c78 48 6f 00 26 |Ho & | PEA.L (A7+0x26)
00020c7c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00020c80 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
00020c84 4e 92 |N | JSR (A2)
00020c86 58 4f |XO | ADDQ.L #0x4,A7
00020c88 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00020c8c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00020c90 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7)
00020c94 4e 92 |N | JSR (A2)
00020c96 50 4f |PO | ADDQ.L #0x8,A7
00020c98 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020c9e 50 4f |PO | ADDQ.L #0x8,A7
00020ca0 4e 94 |N | JSR (A4)
00020ca2 de fc 00 3c | < | ADDA.W #0x3c,A7
00020ca6 4a 2e ff f5 |J. | TST.B (A6-0xb)
00020caa 67 4c |gL | BEQ 0x20cf8
00020cac 41 fa f6 4c |A L | LEA.L 0x202fa,A0
00020cb0 70 05 |p | MOVEQ.L #0x05,D0
00020cb2 2f 20 |/ | MOVE.L -(A0),-(A7)
00020cb4 51 c8 ff fc |Q | DBF D0,0x20cb2
00020cb8 20 6f 00 18 | o | MOVEA.L (A7+0x18),A0
00020cbc 41 e8 40 2a |A @* | LEA.L (A0+0x402a),A0
00020cc0 70 0e |p | MOVEQ.L #0x0e,D0
00020cc2 3f 20 |? | MOVE.W -(A0),-(A7)
00020cc4 51 c8 ff fc |Q | DBF D0,0x20cc2
00020cc8 51 4f |QO | SUBQ.L #0x8,A7
00020cca 48 6f 00 26 |Ho & | PEA.L (A7+0x26)
00020cce 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00020cd2 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7)
00020cd6 4e 92 |N | JSR (A2)
00020cd8 58 4f |XO | ADDQ.L #0x4,A7
00020cda 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00020cde 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00020ce2 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7)
00020ce6 4e 92 |N | JSR (A2)
00020ce8 50 4f |PO | ADDQ.L #0x8,A7
00020cea 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020cf0 50 4f |PO | ADDQ.L #0x8,A7
00020cf2 4e 94 |N | JSR (A4)
00020cf4 de fc 00 3a | : | ADDA.W #0x3a,A7
00020cf8 58 4f |XO | ADDQ.L #0x4,A7
00020cfa 52 85 |R | ADDQ.L #0x1,D5
00020cfc 58 4f |XO | ADDQ.L #0x4,A7
00020cfe 60 00 fe a2 |` | BRA 0x20ba2
00020d02 58 4f |XO | ADDQ.L #0x4,A7
00020d04 20 13 | | MOVE.L (A3),D0
00020d06 b0 ae ff fc | | CMP.L (A6-0x4),D0
00020d0a 6f 14 |o | BLE 0x20d20
00020d0c 2d 40 ff fc |-@ | MOVE.L D0,(A6-0x4)
00020d10 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00020d14 20 2f 00 04 | / | MOVE.L (A7+0x4),D0
00020d18 e5 80 | | ASL.L #0x2,D0
00020d1a 22 17 |" | MOVE.L (A7),D1
00020d1c d2 80 | | ADD.L D0,D1
00020d1e 20 81 | | MOVE.L D1,(A0)
00020d20 20 13 | | MOVE.L (A3),D0
00020d22 0c 80 00 00 00 10 | | CMPI.L #0x00000010,D0
00020d28 63 02 |c | BLS 0x20d2c
00020d2a 4e 4f |NO | TRAP #15
00020d2c e5 80 | | ASL.L #0x2,D0
00020d2e 41 f9 00 02 14 8c |A | LEA.L 0x2148c,A0
00020d34 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
00020d38 52 a8 50 0c |R P | ADDQ.L #0x1,(A0+0x500c)
00020d3c 22 17 |" | MOVE.L (A7),D1
00020d3e 52 81 |R | ADDQ.L #0x1,D1
00020d40 0c 81 00 00 00 03 | | CMPI.L #0x00000003,D1
00020d46 6e 06 |n | BGT 0x20d4e
00020d48 58 4f |XO | ADDQ.L #0x4,A7
00020d4a 60 00 fe 50 |` P | BRA 0x20b9c
00020d4e 58 4f |XO | ADDQ.L #0x4,A7
00020d50 20 17 | | MOVE.L (A7),D0
00020d52 52 80 |R | ADDQ.L #0x1,D0
00020d54 0c 80 00 00 01 ff | | CMPI.L #0x000001ff,D0
00020d5a 6e 06 |n | BGT 0x20d62
00020d5c 58 4f |XO | ADDQ.L #0x4,A7
00020d5e 60 00 fd 94 |` | BRA 0x20af4
00020d62 58 4f |XO | ADDQ.L #0x4,A7
00020d64 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020d68 4e 5e |N^ | UNLK A6
00020d6a 4e 75 |Nu | RTS
00020d6c ; --------------------------------------------------------------------------------------
00020d6c ; OMSI PASCAL Function
00020d6c ; <LVAR 0x008 4(r)>
00020d6c ; <LVAR -0x002 @>
00020d6c ; <LVAR -0x402 @>
00020d6c ; <LVAR -0x408 @>
00020d6c ; --------------------------------------------------------------------------------------
00020d6c 4e 56 fb 7a |NV z | LINK.W A6,#0xfb7a
00020d70 bf d5 | | CMPA.L (A5),A7
00020d72 62 06 |b | BHI 0x20d7a
00020d74 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020d78 4e 76 |Nv | TRAPV
00020d7a de fc 00 7e | ~ | ADDA.W #0x7e,A7
00020d7e 48 e7 ff e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020d82 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00020d88 74 01 |t | MOVEQ.L #0x01,D2
00020d8a 7a 0c |z | MOVEQ.L #0x0c,D5
00020d8c 28 2e 00 08 |(. | MOVE.L (A6+0x8),D4
00020d90 26 3c 00 00 01 00 |&< | MOVE.L #0x100,D3
00020d96 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00020d9c 0c 84 00 00 00 07 | | CMPI.L #0x00000007,D4
00020da2 63 02 |c | BLS 0x20da6
00020da4 4e 4f |NO | TRAP #15
00020da6 e3 84 | | ASL.L #0x1,D4
00020da8 41 f8 00 00 |A | LEA.L 0x0,A0
00020dac 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0
00020db0 d1 fc 00 01 00 12 | | ADDA.L #0x10012,A0
00020db6 42 80 |B | CLR.L D0
00020db8 30 10 |0 | MOVE.W (A0),D0
00020dba d6 80 | | ADD.L D0,D3
00020dbc 0c 83 00 00 ff ff | | CMPI.L #0x0000ffff,D3
00020dc2 63 02 |c | BLS 0x20dc6
00020dc4 4e 4f |NO | TRAP #15
00020dc6 3c 03 |< | MOVE.W D3,D6
00020dc8 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00020dcc 3f 06 |? | MOVE.W D6,-(A7)
00020dce 48 78 00 01 |Hx | PEA.L 0x1
00020dd2 41 ee fb fe |A | LEA.L (A6-0x402),A0
00020dd6 2f 08 |/ | MOVE.L A0,-(A7)
00020dd8 48 6e ff fe |Hn | PEA.L (A6-0x2)
00020ddc 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00020de2 de c5 | | ADDA.W D5,A7
00020de4 2e ba f5 20 |. | MOVE.L 0x20306,(A7)
00020de8 2f 3a f5 18 |/: | MOVE.L 0x20302,-(A7)
00020dec 2f 3a f5 10 |/: | MOVE.L 0x202fe,-(A7)
00020df0 2f 3a f5 08 |/: | MOVE.L 0x202fa,-(A7)
00020df4 9e fc 00 26 | & | SUBA.W #0x26,A7
00020df8 20 4f | O | MOVEA.L A7,A0
00020dfa 43 fa f5 0e |C | LEA.L 0x2030a,A1
00020dfe 70 24 |p$ | MOVEQ.L #0x24,D0
00020e00 10 d9 | | MOVE.B (A1)+,(A0)+
00020e02 51 c8 ff fc |Q | DBF D0,0x20e00
00020e06 51 4f |QO | SUBQ.L #0x8,A7
00020e08 48 6f 00 2e |Ho . | PEA.L (A7+0x2e)
00020e0c 3f 02 |? | MOVE.W D2,-(A7)
00020e0e 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
00020e12 4e 92 |N | JSR (A2)
00020e14 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
00020e18 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00020e1e 48 6f 00 10 |Ho | PEA.L (A7+0x10)
00020e22 3f 02 |? | MOVE.W D2,-(A7)
00020e24 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7)
00020e28 4e 92 |N | JSR (A2)
00020e2a 50 4f |PO | ADDQ.L #0x8,A7
00020e2c 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
00020e32 de c5 | | ADDA.W D5,A7
00020e34 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020e3a de fc 00 3a | : | ADDA.W #0x3a,A7
00020e3e 7e 00 |~ | MOVEQ.L #0x00,D7
00020e40 0c 87 00 00 00 0f | | CMPI.L #0x0000000f,D7
00020e46 63 02 |c | BLS 0x20e4a
00020e48 4e 4f |NO | TRAP #15
00020e4a 20 07 | | MOVE.L D7,D0
00020e4c ed 80 | | ASL.L #0x6,D0
00020e4e 41 ee fb f8 |A | LEA.L (A6-0x408),A0
00020e52 12 30 08 45 | 0 E | MOVE.B (A0+D0.L+#0x45),D1
00020e56 e9 09 | | LSL.B #0x4,D1
00020e58 ee 09 | | LSR.B #0x7,D1
00020e5a 66 26 |f& | BNE 0x20e82
00020e5c 41 f0 08 24 |A $ | LEA.L (A0+D0.L+#0x24),A0
00020e60 70 0e |p | MOVEQ.L #0x0e,D0
00020e62 3f 20 |? | MOVE.W -(A0),-(A7)
00020e64 51 c8 ff fc |Q | DBF D0,0x20e62
00020e68 59 4f |YO | SUBQ.L #0x4,A7
00020e6a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020e6e 3f 02 |? | MOVE.W D2,-(A7)
00020e70 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7)
00020e74 4e 92 |N | JSR (A2)
00020e76 50 4f |PO | ADDQ.L #0x8,A7
00020e78 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020e7e de fc 00 22 | " | ADDA.W #0x22,A7
00020e82 52 87 |R | ADDQ.L #0x1,D7
00020e84 0c 87 00 00 00 0f | | CMPI.L #0x0000000f,D7
00020e8a 6f b4 |o | BLE 0x20e40
00020e8c 4c df 07 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2
00020e90 4e 5e |N^ | UNLK A6
00020e92 4e 75 |Nu | RTS
00020e94 ; --------------------------------------------------------------------------------------
00020e94 ; OMSI PASCAL Function
00020e94 ; <LVAR 0x010 4(r)>
00020e94 ; <LVAR 0x00c 4(r)>
00020e94 ; <LVAR 0x008 4(r)>
00020e94 ; <LVAR -0x402 2(w)>
00020e94 ; <LVAR -0x404 @ 2(w) 4(r)>
00020e94 ; <LVAR -0x40a 2(rw)>
00020e94 ; <LVAR -0x40b @ 1(r)>
00020e94 ; --------------------------------------------------------------------------------------
00020e94 4e 56 fb 6e |NV n | LINK.W A6,#0xfb6e
00020e98 bf d5 | | CMPA.L (A5),A7
00020e9a 62 06 |b | BHI 0x20ea2
00020e9c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020ea0 4e 76 |Nv | TRAPV
00020ea2 de fc 00 86 | | ADDA.W #0x86,A7
00020ea6 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020eaa 45 ee fb f6 |E | LEA.L (A6-0x40a),A2
00020eae 47 ee fb fc |G | LEA.L (A6-0x404),A3
00020eb2 26 3c 00 00 ff ff |&< | MOVE.L #0xffff,D3
00020eb8 78 03 |x | MOVEQ.L #0x03,D4
00020eba 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00020ebe 42 50 |BP | CLR.W (A0)
00020ec0 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0
00020ec4 42 50 |BP | CLR.W (A0)
00020ec6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00020eca 42 50 |BP | CLR.W (A0)
00020ecc 7e 00 |~ | MOVEQ.L #0x00,D7
00020ece 7a 00 |z | MOVEQ.L #0x00,D5
00020ed0 7c 00 || | MOVEQ.L #0x00,D6
00020ed2 34 83 |4 | MOVE.W D3,(A2)
00020ed4 20 79 00 02 54 94 | y T | MOVEA.L 0x25494,A0
00020eda 42 80 |B | CLR.L D0
00020edc 30 12 |0 | MOVE.W (A2),D0
00020ede 22 00 |" | MOVE.L D0,D1
00020ee0 e4 99 | | ROR.L #0x2,D1
00020ee2 d0 c1 | | ADDA.W D1,A0
00020ee4 48 41 |HA | SWAP.W D1
00020ee6 e7 59 | Y | ROL.W #0x3,D1
00020ee8 42 82 |B | CLR.L D2
00020eea 14 10 | | MOVE.B (A0),D2
00020eec e3 2a | * | LSL.B D1,D2
00020eee ec 0a | | LSR.B #0x6,D2
00020ef0 b4 44 | D | CMP.W D4,D2
00020ef2 66 10 |f | BNE 0x20f04
00020ef4 42 81 |B | CLR.L D1
00020ef6 32 06 |2 | MOVE.W D6,D1
00020ef8 52 81 |R | ADDQ.L #0x1,D1
00020efa b2 83 | | CMP.L D3,D1
00020efc 63 02 |c | BLS 0x20f00
00020efe 4e 4f |NO | TRAP #15
00020f00 3c 01 |< | MOVE.W D1,D6
00020f02 7e 01 |~ | MOVEQ.L #0x01,D7
00020f04 b4 44 | D | CMP.W D4,D2
00020f06 67 04 |g | BEQ 0x20f0c
00020f08 4a 07 |J | TST.B D7
00020f0a 66 08 |f | BNE 0x20f14
00020f0c 0c 46 40 00 | F@ | CMPI.W #0x4000,D6
00020f10 66 00 00 b0 |f | BNE 0x20fc2
00020f14 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00020f18 42 81 |B | CLR.L D1
00020f1a 32 10 |2 | MOVE.W (A0),D1
00020f1c 52 81 |R | ADDQ.L #0x1,D1
00020f1e b2 83 | | CMP.L D3,D1
00020f20 63 02 |c | BLS 0x20f24
00020f22 4e 4f |NO | TRAP #15
00020f24 30 81 |0 | MOVE.W D1,(A0)
00020f26 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0
00020f2a 42 81 |B | CLR.L D1
00020f2c 32 10 |2 | MOVE.W (A0),D1
00020f2e 42 82 |B | CLR.L D2
00020f30 34 06 |4 | MOVE.W D6,D2
00020f32 d2 82 | | ADD.L D2,D1
00020f34 b2 83 | | CMP.L D3,D1
00020f36 63 02 |c | BLS 0x20f3a
00020f38 4e 4f |NO | TRAP #15
00020f3a 30 81 |0 | MOVE.W D1,(A0)
00020f3c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00020f40 b4 50 | P | CMP.W (A0),D2
00020f42 63 02 |c | BLS 0x20f46
00020f44 30 82 |0 | MOVE.W D2,(A0)
00020f46 3d 45 fb fe |=E | MOVE.W D5,(A6-0x402)
00020f4a 36 82 |6 | MOVE.W D2,(A3)
00020f4c 23 d3 00 01 00 22 |# " | MOVE.L (A3),0x10022
00020f52 0c 42 40 00 | B@ | CMPI.W #0x4000,D2
00020f56 66 04 |f | BNE 0x20f5c
00020f58 3a 00 |: | MOVE.W D0,D5
00020f5a 60 0c |` | BRA 0x20f68
00020f5c 22 00 |" | MOVE.L D0,D1
00020f5e 52 81 |R | ADDQ.L #0x1,D1
00020f60 b2 83 | | CMP.L D3,D1
00020f62 63 02 |c | BLS 0x20f66
00020f64 4e 4f |NO | TRAP #15
00020f66 3a 01 |: | MOVE.W D1,D5
00020f68 1f 04 | | MOVE.B D4,-(A7)
00020f6a 3f 05 |? | MOVE.W D5,-(A7)
00020f6c 48 78 00 01 |Hx | PEA.L 0x1
00020f70 20 4b | K | MOVEA.L A3,A0
00020f72 2f 08 |/ | MOVE.L A0,-(A7)
00020f74 48 6e fb f5 |Hn | PEA.L (A6-0x40b)
00020f78 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
00020f7e de fc 00 10 | | ADDA.W #0x10,A7
00020f82 4a 2e fb f5 |J. | TST.B (A6-0x40b)
00020f86 66 36 |f6 | BNE 0x20fbe
00020f88 9e fc 00 38 | 8 | SUBA.W #0x38,A7
00020f8c 20 4f | O | MOVEA.L A7,A0
00020f8e 43 fa f3 a0 |C | LEA.L 0x20330,A1
00020f92 72 36 |r6 | MOVEQ.L #0x36,D1
00020f94 10 d9 | | MOVE.B (A1)+,(A0)+
00020f96 51 c9 ff fc |Q | DBF D1,0x20f94
00020f9a 1f 3c 00 01 | < | MOVE.B #0x01,-(A7)
00020f9e 59 4f |YO | SUBQ.L #0x4,A7
00020fa0 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00020fa4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00020fa8 3f 3c 00 37 |?< 7 | MOVE.W #0x37,-(A7)
00020fac 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020fb2 50 4f |PO | ADDQ.L #0x8,A7
00020fb4 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00020fba de fc 00 3e | > | ADDA.W #0x3e,A7
00020fbe 7c 00 || | MOVEQ.L #0x00,D6
00020fc0 7e 00 |~ | MOVEQ.L #0x00,D7
00020fc2 53 80 |S | SUBQ.L #0x1,D0
00020fc4 b0 83 | | CMP.L D3,D0
00020fc6 63 02 |c | BLS 0x20fca
00020fc8 4e 4f |NO | TRAP #15
00020fca 34 80 |4 | MOVE.W D0,(A2)
00020fcc 4a 40 |J@ | TST.W D0
00020fce 66 00 ff 04 |f | BNE 0x20ed4
00020fd2 33 c5 00 01 00 10 |3 | MOVE.W D5,0x10010
00020fd8 4e b9 00 01 03 90 |N | JSR WriteFreeList(void)
00020fde 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00020fe2 4e 5e |N^ | UNLK A6
00020fe4 4e 75 |Nu | RTS
00020fe6 ; --------------------------------------------------------------------------------------
00020fe6 ; OMSI PASCAL Function
00020fe6 ; --------------------------------------------------------------------------------------
00020fe6 START:
00020fe6 4f fa 00 08 |O | LEA.L MAIN,A7
00020fea 4e f9 00 01 02 80 |N | JMP ?start_program
00020ff0 MAIN:
00020ff0 45 f9 00 01 02 e4 |E | LEA.L Long2String(a : Long) : String,A2
00020ff6 47 f9 00 02 64 e2 |G d | LEA.L 0x264e2,A3
00020ffc 49 f9 00 02 64 e4 |I d | LEA.L 0x264e4,A4
00021002 74 01 |t | MOVEQ.L #0x01,D2
00021004 76 1c |v | MOVEQ.L #0x1c,D3
00021006 78 10 |x | MOVEQ.L #0x10,D4
00021008 7a 0c |z | MOVEQ.L #0x0c,D5
0002100a 7c 24 ||$ | MOVEQ.L #0x24,D6
0002100c 7e 12 |~ | MOVEQ.L #0x12,D7
0002100e 41 f9 00 02 54 98 |A T | LEA.L 0x25498,A0
00021014 2f 08 |/ | MOVE.L A0,-(A7)
00021016 23 df 00 02 64 de |# d | MOVE.L (A7)+,0x264de
0002101c 41 f9 00 02 14 94 |A | LEA.L 0x21494,A0
00021022 2f 08 |/ | MOVE.L A0,-(A7)
00021024 23 df 00 02 54 94 |# T | MOVE.L (A7)+,0x25494
0002102a 4e b9 00 01 03 98 |N | JSR FSCALL_10398
00021030 4e ba f5 50 |N P | JSR 0x20582
00021034 4e ba f5 ae |N | JSR 0x205e4
00021038 48 53 |HS | PEA.L (A3)
0002103a 48 54 |HT | PEA.L (A4)
0002103c 48 79 00 02 64 e6 |Hy d | PEA.L 0x264e6
00021042 4e ba f8 e2 |N | JSR 0x20926
00021046 de c5 | | ADDA.W D5,A7
00021048 48 79 00 02 64 ec |Hy d | PEA.L 0x264ec
0002104e 4e ba fa 48 |N H | JSR 0x20a98
00021052 58 4f |XO | ADDQ.L #0x4,A7
00021054 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
0002105a 9e fc 00 18 | | SUBA.W #0x18,A7
0002105e 20 4f | O | MOVEA.L A7,A0
00021060 43 fa f3 26 |C & | LEA.L 0x20388,A1
00021064 70 16 |p | MOVEQ.L #0x16,D0
00021066 10 d9 | | MOVE.B (A1)+,(A0)+
00021068 51 c8 ff fc |Q | DBF D0,0x21066
0002106c 59 4f |YO | SUBQ.L #0x4,A7
0002106e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021072 3f 02 |? | MOVE.W D2,-(A7)
00021074 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00021078 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002107e 50 4f |PO | ADDQ.L #0x8,A7
00021080 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00021086 de c3 | | ADDA.W D3,A7
00021088 70 01 |p | MOVEQ.L #0x01,D0
0002108a 23 c0 00 02 64 e8 |# d | MOVE.L D0,0x264e8
00021090 51 4f |QO | SUBQ.L #0x8,A7
00021092 2f 00 |/ | MOVE.L D0,-(A7)
00021094 4e 92 |N | JSR (A2)
00021096 58 4f |XO | ADDQ.L #0x4,A7
00021098 48 78 00 05 |Hx | PEA.L 0x5
0002109c 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String
000210a2 50 4f |PO | ADDQ.L #0x8,A7
000210a4 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
000210aa 58 4f |XO | ADDQ.L #0x4,A7
000210ac 52 80 |R | ADDQ.L #0x1,D0
000210ae b0 84 | | CMP.L D4,D0
000210b0 6f d8 |o | BLE 0x2108a
000210b2 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
000210b8 70 01 |p | MOVEQ.L #0x01,D0
000210ba 23 c0 00 02 64 e8 |# d | MOVE.L D0,0x264e8
000210c0 51 4f |QO | SUBQ.L #0x8,A7
000210c2 b0 84 | | CMP.L D4,D0
000210c4 63 02 |c | BLS 0x210c8
000210c6 4e 4f |NO | TRAP #15
000210c8 22 00 |" | MOVE.L D0,D1
000210ca e5 81 | | ASL.L #0x2,D1
000210cc 41 f9 00 02 14 8c |A | LEA.L 0x2148c,A0
000210d2 41 f0 18 00 |A | LEA.L (A0+D1.L),A0
000210d6 2f 28 50 0c |/(P | MOVE.L (A0+0x500c),-(A7)
000210da 4e 92 |N | JSR (A2)
000210dc 58 4f |XO | ADDQ.L #0x4,A7
000210de 48 78 00 05 |Hx | PEA.L 0x5
000210e2 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String
000210e8 50 4f |PO | ADDQ.L #0x8,A7
000210ea 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
000210f0 58 4f |XO | ADDQ.L #0x4,A7
000210f2 52 80 |R | ADDQ.L #0x1,D0
000210f4 b0 84 | | CMP.L D4,D0
000210f6 6f c2 |o | BLE 0x210ba
000210f8 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
000210fe 9e c3 | | SUBA.W D3,A7
00021100 20 4f | O | MOVEA.L A7,A0
00021102 43 fa f2 9c |C | LEA.L 0x203a0,A1
00021106 70 1a |p | MOVEQ.L #0x1a,D0
00021108 10 d9 | | MOVE.B (A1)+,(A0)+
0002110a 51 c8 ff fc |Q | DBF D0,0x21108
0002110e 51 4f |QO | SUBQ.L #0x8,A7
00021110 2f 39 00 02 64 98 |/9 d | MOVE.L 0x26498,-(A7)
00021116 4e 92 |N | JSR (A2)
00021118 48 6f 00 0c |Ho | PEA.L (A7+0xc)
0002111c 3f 02 |? | MOVE.W D2,-(A7)
0002111e 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
00021122 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021128 50 4f |PO | ADDQ.L #0x8,A7
0002112a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021130 50 4f |PO | ADDQ.L #0x8,A7
00021132 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00021138 de fc 00 20 | | ADDA.W #0x20,A7
0002113c 41 fa f2 90 |A | LEA.L 0x203ce,A0
00021140 70 08 |p | MOVEQ.L #0x08,D0
00021142 3f 20 |? | MOVE.W -(A0),-(A7)
00021144 51 c8 ff fc |Q | DBF D0,0x21142
00021148 9e c6 | | SUBA.W D6,A7
0002114a 20 4f | O | MOVEA.L A7,A0
0002114c 43 fa f2 80 |C | LEA.L 0x203ce,A1
00021150 70 22 |p" | MOVEQ.L #0x22,D0
00021152 10 d9 | | MOVE.B (A1)+,(A0)+
00021154 51 c8 ff fc |Q | DBF D0,0x21152
00021158 51 4f |QO | SUBQ.L #0x8,A7
0002115a 42 80 |B | CLR.L D0
0002115c 30 13 |0 | MOVE.W (A3),D0
0002115e 2f 00 |/ | MOVE.L D0,-(A7)
00021160 4e 92 |N | JSR (A2)
00021162 48 6f 00 30 |Ho 0 | PEA.L (A7+0x30)
00021166 3f 02 |? | MOVE.W D2,-(A7)
00021168 3f 07 |? | MOVE.W D7,-(A7)
0002116a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021170 58 4f |XO | ADDQ.L #0x4,A7
00021172 42 80 |B | CLR.L D0
00021174 30 14 |0 | MOVE.W (A4),D0
00021176 2f 00 |/ | MOVE.L D0,-(A7)
00021178 4e 92 |N | JSR (A2)
0002117a 48 6f 00 14 |Ho | PEA.L (A7+0x14)
0002117e 3f 02 |? | MOVE.W D2,-(A7)
00021180 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7)
00021184 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002118a 58 4f |XO | ADDQ.L #0x4,A7
0002118c 42 80 |B | CLR.L D0
0002118e 30 39 00 02 64 e6 |09 d | MOVE.W 0x264e6,D0
00021194 2f 00 |/ | MOVE.L D0,-(A7)
00021196 4e 92 |N | JSR (A2)
00021198 58 4f |XO | ADDQ.L #0x4,A7
0002119a 4e b9 00 01 02 dc |N | JSR StringCat5(a, b, c, d, e : String) : String
000211a0 de fc 00 14 | | ADDA.W #0x14,A7
000211a4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000211aa de fc 00 36 | 6 | ADDA.W #0x36,A7
000211ae 2e b9 00 02 64 ec |. d | MOVE.L 0x264ec,(A7)
000211b4 4e ba fb b6 |N | JSR 0x20d6c
000211b8 9e c3 | | SUBA.W D3,A7
000211ba 20 4f | O | MOVEA.L A7,A0
000211bc 43 fa f1 aa |C | LEA.L 0x20368,A1
000211c0 70 1e |p | MOVEQ.L #0x1e,D0
000211c2 10 d9 | | MOVE.B (A1)+,(A0)+
000211c4 51 c8 ff fc |Q | DBF D0,0x211c2
000211c8 5d 4f |]O | SUBQ.L #0x6,A7
000211ca 48 6f 00 06 |Ho | PEA.L (A7+0x6)
000211ce 3f 02 |? | MOVE.W D2,-(A7)
000211d0 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7)
000211d4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000211da 5c 4f |\O | ADDQ.L #0x6,A7
000211dc 42 17 |B | CLR.B (A7)
000211de 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
000211e4 5c 4f |\O | ADDQ.L #0x6,A7
000211e6 4a 1f |J | TST.B (A7)+
000211e8 67 00 00 84 |g | BEQ 0x2126e
000211ec 48 53 |HS | PEA.L (A3)
000211ee 48 54 |HT | PEA.L (A4)
000211f0 48 79 00 02 64 e6 |Hy d | PEA.L 0x264e6
000211f6 4e ba fc 9c |N | JSR 0x20e94
000211fa de c5 | | ADDA.W D5,A7
000211fc 41 fa f2 06 |A | LEA.L 0x20404,A0
00021200 70 08 |p | MOVEQ.L #0x08,D0
00021202 3f 20 |? | MOVE.W -(A0),-(A7)
00021204 51 c8 ff fc |Q | DBF D0,0x21202
00021208 9e c6 | | SUBA.W D6,A7
0002120a 20 4f | O | MOVEA.L A7,A0
0002120c 43 fa f1 f6 |C | LEA.L 0x20404,A1
00021210 70 22 |p" | MOVEQ.L #0x22,D0
00021212 10 d9 | | MOVE.B (A1)+,(A0)+
00021214 51 c8 ff fc |Q | DBF D0,0x21212
00021218 51 4f |QO | SUBQ.L #0x8,A7
0002121a 42 80 |B | CLR.L D0
0002121c 30 13 |0 | MOVE.W (A3),D0
0002121e 2f 00 |/ | MOVE.L D0,-(A7)
00021220 4e 92 |N | JSR (A2)
00021222 48 6f 00 30 |Ho 0 | PEA.L (A7+0x30)
00021226 3f 02 |? | MOVE.W D2,-(A7)
00021228 3f 07 |? | MOVE.W D7,-(A7)
0002122a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021230 58 4f |XO | ADDQ.L #0x4,A7
00021232 42 80 |B | CLR.L D0
00021234 30 14 |0 | MOVE.W (A4),D0
00021236 2f 00 |/ | MOVE.L D0,-(A7)
00021238 4e 92 |N | JSR (A2)
0002123a 48 6f 00 14 |Ho | PEA.L (A7+0x14)
0002123e 3f 02 |? | MOVE.W D2,-(A7)
00021240 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7)
00021244 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002124a 58 4f |XO | ADDQ.L #0x4,A7
0002124c 42 80 |B | CLR.L D0
0002124e 30 39 00 02 64 e6 |09 d | MOVE.W 0x264e6,D0
00021254 2f 00 |/ | MOVE.L D0,-(A7)
00021256 4e 92 |N | JSR (A2)
00021258 58 4f |XO | ADDQ.L #0x4,A7
0002125a 4e b9 00 01 02 dc |N | JSR StringCat5(a, b, c, d, e : String) : String
00021260 de fc 00 14 | | ADDA.W #0x14,A7
00021264 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002126a de fc 00 3a | : | ADDA.W #0x3a,A7
0002126e de fc 00 1e | | ADDA.W #0x1e,A7
00021272 42 17 |B | CLR.B (A7)
00021274 48 78 00 01 |Hx | PEA.L 0x1
00021278 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
0002127e 5c 4f |\O | ADDQ.L #0x6,A7
00021280 4e b9 00 01 02 84 |N | JSR ?exit
00021286 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_'
00021294 ; --------------------------------------------------------------------------------------
00021294 ; OMSI PASCAL Function
00021294 ; <LVAR 0x008 1(r)>
00021294 ; --------------------------------------------------------------------------------------
00021294 PROG_FAIL:
00021294 4e 56 ff d2 |NV | LINK.W A6,#0xffd2
00021298 bf d5 | | CMPA.L (A5),A7
0002129a 62 06 |b | BHI 0x212a2
0002129c 44 fc 00 02 |D | MOVE.W #0x2,CCR
000212a0 4e 76 |Nv | TRAPV
000212a2 de fc 00 2c | , | ADDA.W #0x2c,A7
000212a6 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
000212aa 41 fa ff e8 |A | LEA.L PROG_FAIL,A0
000212ae 70 06 |p | MOVEQ.L #0x06,D0
000212b0 3f 20 |? | MOVE.W -(A0),-(A7)
000212b2 51 c8 ff fc |Q | DBF D0,0x212b0
000212b6 1f 3c 00 03 | < | MOVE.B #0x03,-(A7)
000212ba 51 4f |QO | SUBQ.L #0x8,A7
000212bc 48 6f 00 0a |Ho | PEA.L (A7+0xa)
000212c0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000212c4 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
000212c8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000212ce 58 4f |XO | ADDQ.L #0x4,A7
000212d0 10 2e 00 08 | . | MOVE.B (A6+0x8),D0
000212d4 48 80 |H | EXTB.W D0
000212d6 48 c0 |H | EXTW.L D0
000212d8 2f 00 |/ | MOVE.L D0,-(A7)
000212da 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
000212e0 58 4f |XO | ADDQ.L #0x4,A7
000212e2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000212e8 50 4f |PO | ADDQ.L #0x8,A7
000212ea 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
000212f0 de fc 00 14 | | ADDA.W #0x14,A7
000212f4 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
000212f8 4e 5e |N^ | UNLK A6
000212fa 4e 75 |Nu | RTS
000212fc 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ '
0002130a 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ '
00021318 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ '
00021326 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :'
00021338 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. '
00021350 ; --------------------------------------------------------------------------------------
00021350 ; OMSI PASCAL Function
00021350 ; <LVAR 0x00e 1(r)>
00021350 ; <LVAR 0x00a 4(r)>
00021350 ; <LVAR 0x008 1(r)>
00021350 ; --------------------------------------------------------------------------------------
00021350 EXP_FAIL:
00021350 4e 56 ff 8c |NV | LINK.W A6,#0xff8c
00021354 bf d5 | | CMPA.L (A5),A7
00021356 62 06 |b | BHI 0x2135e
00021358 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002135c 4e 76 |Nv | TRAPV
0002135e de fc 00 74 | t | ADDA.W #0x74,A7
00021362 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00021366 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
0002136c 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4
00021372 72 01 |r | MOVEQ.L #0x01,D1
00021374 74 0d |t | MOVEQ.L #0x0d,D2
00021376 76 1e |v | MOVEQ.L #0x1e,D3
00021378 78 12 |x | MOVEQ.L #0x12,D4
0002137a 7a 0e |z | MOVEQ.L #0x0e,D5
0002137c 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00021382 41 fa ff b4 |A | LEA.L 0x21338,A0
00021386 70 08 |p | MOVEQ.L #0x08,D0
00021388 3f 20 |? | MOVE.W -(A0),-(A7)
0002138a 51 c8 ff fc |Q | DBF D0,0x21388
0002138e 59 4f |YO | SUBQ.L #0x4,A7
00021390 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021394 3f 01 |? | MOVE.W D1,-(A7)
00021396 3f 04 |? | MOVE.W D4,-(A7)
00021398 4e 93 |N | JSR (A3)
0002139a 50 4f |PO | ADDQ.L #0x8,A7
0002139c 4e 94 |N | JSR (A4)
0002139e 50 4f |PO | ADDQ.L #0x8,A7
000213a0 20 4f | O | MOVEA.L A7,A0
000213a2 43 fa ff 58 |C X | LEA.L 0x212fc,A1
000213a6 70 0c |p | MOVEQ.L #0x0c,D0
000213a8 10 d9 | | MOVE.B (A1)+,(A0)+
000213aa 51 c8 ff fc |Q | DBF D0,0x213a8
000213ae 51 4f |QO | SUBQ.L #0x8,A7
000213b0 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000213b4 3f 01 |? | MOVE.W D1,-(A7)
000213b6 3f 02 |? | MOVE.W D2,-(A7)
000213b8 4e 93 |N | JSR (A3)
000213ba 54 4f |TO | ADDQ.L #0x2,A7
000213bc 1e ae 00 0e | | MOVE.B (A6+0xe),(A7)
000213c0 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String
000213c6 54 4f |TO | ADDQ.L #0x2,A7
000213c8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000213ce 50 4f |PO | ADDQ.L #0x8,A7
000213d0 4e 94 |N | JSR (A4)
000213d2 de c4 | | ADDA.W D4,A7
000213d4 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0
000213d8 b0 c1 | | CMPA.W D1,A0
000213da 67 48 |gH | BEQ 0x21424
000213dc 9e c5 | | SUBA.W D5,A7
000213de 22 4f |"O | MOVEA.L A7,A1
000213e0 45 fa ff 28 |E ( | LEA.L 0x2130a,A2
000213e4 70 0c |p | MOVEQ.L #0x0c,D0
000213e6 12 da | | MOVE.B (A2)+,(A1)+
000213e8 51 c8 ff fc |Q | DBF D0,0x213e6
000213ec 9e c3 | | SUBA.W D3,A7
000213ee 22 4f |"O | MOVEA.L A7,A1
000213f0 41 e8 00 fc |A | LEA.L (A0+0xfc),A0
000213f4 70 1d |p | MOVEQ.L #0x1d,D0
000213f6 12 d8 | | MOVE.B (A0)+,(A1)+
000213f8 51 c8 ff fc |Q | DBF D0,0x213f6
000213fc 51 4f |QO | SUBQ.L #0x8,A7
000213fe 48 6f 00 26 |Ho & | PEA.L (A7+0x26)
00021402 3f 01 |? | MOVE.W D1,-(A7)
00021404 3f 02 |? | MOVE.W D2,-(A7)
00021406 4e 93 |N | JSR (A3)
00021408 58 4f |XO | ADDQ.L #0x4,A7
0002140a 48 6f 00 0c |Ho | PEA.L (A7+0xc)
0002140e 3f 01 |? | MOVE.W D1,-(A7)
00021410 3f 03 |? | MOVE.W D3,-(A7)
00021412 4e 93 |N | JSR (A3)
00021414 50 4f |PO | ADDQ.L #0x8,A7
00021416 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002141c 50 4f |PO | ADDQ.L #0x8,A7
0002141e 4e 94 |N | JSR (A4)
00021420 de fc 00 30 | 0 | ADDA.W #0x30,A7
00021424 9e c5 | | SUBA.W D5,A7
00021426 20 4f | O | MOVEA.L A7,A0
00021428 43 fa fe ee |C | LEA.L 0x21318,A1
0002142c 70 0c |p | MOVEQ.L #0x0c,D0
0002142e 10 d9 | | MOVE.B (A1)+,(A0)+
00021430 51 c8 ff fc |Q | DBF D0,0x2142e
00021434 51 4f |QO | SUBQ.L #0x8,A7
00021436 48 6f 00 08 |Ho | PEA.L (A7+0x8)
0002143a 3f 01 |? | MOVE.W D1,-(A7)
0002143c 3f 02 |? | MOVE.W D2,-(A7)
0002143e 4e 93 |N | JSR (A3)
00021440 54 4f |TO | ADDQ.L #0x2,A7
00021442 1e ae 00 08 | | MOVE.B (A6+0x8),(A7)
00021446 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String)
0002144c 54 4f |TO | ADDQ.L #0x2,A7
0002144e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021454 50 4f |PO | ADDQ.L #0x8,A7
00021456 4e 94 |N | JSR (A4)
00021458 5d 4f |]O | SUBQ.L #0x6,A7
0002145a 20 4f | O | MOVEA.L A7,A0
0002145c 43 fa fe da |C | LEA.L 0x21338,A1
00021460 70 16 |p | MOVEQ.L #0x16,D0
00021462 10 d9 | | MOVE.B (A1)+,(A0)+
00021464 51 c8 ff fc |Q | DBF D0,0x21462
00021468 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
0002146c 59 4f |YO | SUBQ.L #0x4,A7
0002146e 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00021472 3f 01 |? | MOVE.W D1,-(A7)
00021474 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00021478 4e 93 |N | JSR (A3)
0002147a 50 4f |PO | ADDQ.L #0x8,A7
0002147c 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00021482 de c3 | | ADDA.W D3,A7
00021484 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00021488 4e 5e |N^ | UNLK A6
0002148a 4e 75 |Nu | RTS