|
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: 38400 (0x9600)
Types: M200
Notes: @(#)RECOVERY,14.01,92/05/03,10:00:00, M200_PROGRAM
Names: »RECOVERY.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »RECOVERY.M200«
└─ ⟦this⟧ »RECOVERY.M200«
@ 224cc
<LVAR 0x008 4(r)>
<POP 224cc--0001 Body>
<POP 224cc-224e2 Prologue> Σ0 ↓
<POP 224e2-224e4 RegCacheLoad> Σ0 ↓
<POP 224e4-22522 Naked> Σ0 ↓ →0x22556
<Blob 0x224e4 [10] @> Δ-10 {[«10""»]}
<POP 224f0-224f2 StackAdj> Δ-8 {[«10""»]|[-8-]}
<Lit 0x224f2 10> {[«10""»]|[-4-]|[$$** ABORT:_]}
<POP 22502-22504 StackAdj> Δ-4 {[«10""»]|[-4-]|[$$** ABORT:_]|[-4-]}
<MI 22504 MOVE.L (A6+0x8),(A7)> {[«10""»]|[-4-]|[$$** ABORT:_]|[4, '(A6+0x8)']}
<Call 0x22508 0x102d0> {[«10""»]|[-4-]|[$$** ABORT:_]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 2250e-22510 StackAdj> Δ+8 {[«10""»]|[-4-]}
<Call 0x22510 0x103e0> {[«10""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22516-2251a StackAdj> Δ+14 {}
<MI 2251a TST.B 0x2ee1a> {}
<MI 22520 BEQ 0x22556> {}
<POP 22522-22552 Naked> Σ0 ↓
<Blob 0x22522 [46] @> Δ-46 {[«46""»]}
<POP 22534-22536 StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x22536 45> {[«46""»]|[$$INSTALL failed: you have to reboot the system]}
<Call 0x22548 0x103e0> {[«46""»]|[$$INSTALL failed: you have to reboot the system]}
WriteConsoleStringCrLf(str : String)
<POP 2254e-22552 StackAdj> Δ+50 {}
<POP 22552-22554 Naked> Σ0 →0x22552 ←0x22552
<MI 22552 BRA 0x22552> {}
<POP 22556-22564 Naked> Σ0 ←0x224e4
<POP 22556-22564 Bailout> {}
<MI 22556 MOVEA.L (A5+0x8),A7>
<MI 2255a MOVEA.W #0x0,A6>
<MI 2255e JMP 0x290c8>
@ 2256c
<LVAR 0x00c @ 4(r)>
<LVAR 0x008 @ 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x404 @>
<LVAR -0x410 @ 4(r)>
<LVAR -0x414 @ 4(r)>
<POP 2256c-226da Body> Δ-8
<POP 2256c-22582 Prologue> Σ0 ↓
<POP 22582-22594 RegCacheLoad> Σ0 ↓
<POP 22594-225ba Naked> Σ0 ↓ →0x225be
<MI 22594 LEA.L (A6-0x404),A0> {}
<MI 22598 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 2259a MOVE.L (A7)+,D6> Δ+4 {}
<MI 2259c MOVEQ.L #0x01,D5> {}
<MI 2259e MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 225a2 CLR.B -(A7)> Δ-2 {[4, '(A6+0xc)']|[#0]}
<Const 0x225a4 0x1.2> Δ-2 {[4, '(A6+0xc)']|[#0]|[#1]}
<Const 0x225a6 0x0.4> Δ-4 {[4, '(A6+0xc)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x225aa <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6+0xc)']|[#0]|[#1]|[##0]|[@@-4]}
<Pointer.fp 0x225ac <LVAR -0x414 @ 4(r)>> Δ-4 {[4, '(A6+0xc)']|[#0]|[#1]|[##0]|[@@-4]|[@@-1044]}
<Call 0x225ae 0x10380> {[4, '(A6+0xc)']|[#0]|[#1]|[##0]|[@@-4]|[@@-1044]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 225b4-225b6 StackAdj> Δ+20 {}
<MI 225b6 TST.B (A6-0x4)> {}
<MI 225b8 BEQ 0x225be> {}
<POP 225ba-225be Naked> Σ0 →0x226ba
<MI 225ba BRA 0x226ba> {}
<POP 225be-225e0 Naked> Σ0 ↓ →0x225e4 ←0x22594
<MI 225be MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 225c2 MOVE.B D5,-(A7)> Δ-2 {[4, '(A6+0x8)']|[2, 'D5']}
<Const 0x225c4 0x1.2> Δ-2 {[4, '(A6+0x8)']|[2, 'D5']|[#1]}
<MI 225c6 MOVEA.L (A6-0x414),A0> {[4, '(A6+0x8)']|[2, 'D5']|[#1]}
<MI 225c8 MOVE.W (A0+0x20),D0> {[4, '(A6+0x8)']|[2, 'D5']|[#1]}
<MI 225cc EXTW.L D0> {[4, '(A6+0x8)']|[2, 'D5']|[#1]}
<MI 225ce MOVE.L D0,-(A7)> Δ-4 {[4, '(A6+0x8)']|[2, 'D5']|[#1]|[4, 'D0']}
<Pointer.fp 0x225d0 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[2, 'D5']|[#1]|[4, 'D0']|[@@-4]}
<Pointer.fp 0x225d2 <LVAR -0x410 @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[2, 'D5']|[#1]|[4, 'D0']|[@@-4]|[@@-1040]}
<Call 0x225d4 0x10380> {[4, '(A6+0x8)']|[2, 'D5']|[#1]|[4, 'D0']|[@@-4]|[@@-1040]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 225da-225dc StackAdj> Δ+20 {}
<MI 225dc TST.B (A6-0x4)> {}
<MI 225de BEQ 0x225e4> {}
<POP 225e0-225e4 Naked> Σ0 →0x226a6
<MI 225e0 BRA 0x226a6> {}
<POP 225e4-22634 Naked> Σ0 Δ-4 ↓ ←0x225be
<MI 225e4 MOVEA.L (A6-0x410),A0> {}
<MI 225e6 MOVEA.L (A6-0x414),A1> {}
<MI 225e8 MOVE.B (A1+0x3a),(A0+0x3a)> {}
<MI 225ee MOVE.B (A1+0x3b),(A0+0x3b)> {}
<MI 225f4 MOVE.B (A1+0x3c),(A0+0x3c)> {}
<MI 225fa MOVE.B (A1+0x3d),(A0+0x3d)> {}
<MI 22600 MOVE.B (A1+0x3f),D0> {}
<MI 22604 ANDI.B #0xfd,(A0+0x3f)> {}
<MI 2260a ANDI.B #0x02,D0> {}
<MI 2260e OR.B D0,(A0+0x3f)> {}
<MI 22612 MOVE.B (A1+0x3f),D0> {}
<MI 22616 ANDI.B #0xfb,(A0+0x3f)> {}
<MI 2261c ANDI.B #0x04,D0> {}
<MI 22620 OR.B D0,(A0+0x3f)> {}
<MI 22624 MOVE.B #0x01,(A0+0x4c)> {}
<MI 22628 MOVE.W (A0+0x20),D0> {}
<MI 2262c SUBQ.W #0x1,D0> {}
<MI 2262e EXTW.L D0> {}
<MI 22630 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 22632 MOVEQ.L #0x00,D7> {[4, 'D0']}
<POP 22634-22638 Naked> Σ-4 ↓ →0x22690 ←0x2268c
<MI 22634 CMP.L (A7),D7> {[-4-]}
<MI 22636 BGT 0x22690> {[-4-]}
<POP 22638-2265e Naked> Σ-4 ↓ →0x22662
<MI 22638 MOVE.L (A6-0x414),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x414)']}
<POP 0x2263a LimitCheck 0x0 ≤ D7 ≤ 0x4000> {[-4-]|[4, '(A6-0x414)']}
<MI 22644 MOVE.W D7,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']}
<MI 22646 CLR.W -(A7)> Δ-2 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]}
<Const 0x22648 0x200.2> Δ-2 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]}
<Const 0x2264c 0x1.2> Δ-2 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]|[#1]}
<MI 2264e MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D6']}
<Pointer.fp 0x22650 <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D6']|[@@-4]}
<Call 0x22652 0x10384> {[-4-]|[4, '(A6-0x414)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D6']|[@@-4]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 22658-2265a StackAdj> Δ+20 {[-4-]}
<MI 2265a TST.B (A6-0x4)> {[-4-]}
<MI 2265c BEQ 0x22662> {[-4-]}
<POP 2265e-22662 Naked> Σ-4 Δ+4 →0x22692
<POP 2265e-22660 StackAdj> Δ+4 {}
<MI 22660 BRA 0x22692> {}
<POP 22662-22688 Naked> Σ-4 ↓ →0x2268c ←0x22638
<MI 22662 MOVE.L (A6-0x410),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x410)']}
<POP 0x22664 LimitCheck 0x0 ≤ D7 ≤ 0x4000> {[-4-]|[4, '(A6-0x410)']}
<MI 2266e MOVE.W D7,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']}
<MI 22670 CLR.W -(A7)> Δ-2 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]}
<Const 0x22672 0x200.2> Δ-2 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]}
<Const 0x22676 0x1.2> Δ-2 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]|[#1]}
<MI 22678 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D6']}
<Pointer.fp 0x2267a <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D6']|[@@-4]}
<Call 0x2267c 0x10388> {[-4-]|[4, '(A6-0x410)']|[2, 'D7']|[#0]|[#512]|[#1]|[4, 'D6']|[@@-4]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 22682-22684 StackAdj> Δ+20 {[-4-]}
<MI 22684 TST.B (A6-0x4)> {[-4-]}
<MI 22686 BEQ 0x2268c> {[-4-]}
<POP 22688-2268c Naked> Σ-4 Δ+4 →0x22692
<POP 22688-2268a StackAdj> Δ+4 {}
<MI 2268a BRA 0x22692> {}
<POP 2268c-22690 Naked> Σ-4 ↓ →0x22634 ←0x22662
<MI 2268c ADDQ.L #0x1,D7> {[-4-]}
<MI 2268e BVC 0x22634> {[-4-]}
<POP 22690-22692 Naked> Σ-4 Δ+4 ↓ ←0x22634
<POP 22690-22692 StackAdj> Δ+4 {}
<POP 22692-226a6 Naked> Σ0 ↓ ←0x2265e ←0x22688
<MI 22692 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x22694 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x22696 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x2269a <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-4]}
<Pointer.fp 0x2269c <LVAR -0x410 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-4]|[@@-1040]}
<Call 0x2269e 0x1038c> {[#0]|[#1]|[##1]|[@@-4]|[@@-1040]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 226a4-226a6 StackAdj> Δ+16 {}
<POP 226a6-226ba Naked> Σ0 ↓ ←0x225e0
<MI 226a6 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x226a8 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x226aa 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x226ae <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-4]}
<Pointer.fp 0x226b0 <LVAR -0x414 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-4]|[@@-1044]}
<Call 0x226b2 0x1038c> {[#0]|[#1]|[##1]|[@@-4]|[@@-1044]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 226b8-226ba StackAdj> Δ+16 {}
<POP 226ba-226d2 Naked> Σ0 ↓ ←0x225ba
<Pointer.fp 0x226ba <LVAR 0x00c @ 4(r)>> Δ-4 {[@@12]}
<Call 0x226be 0x102bc> {[@@12]}
FreeString(VAR a : String)
<POP 226c4-226c6 StackAdj> Δ+4 {}
<Pointer.fp 0x226c6 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x226ca 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 226d0-226d2 StackAdj> Δ+4 {}
<POP 226d2-226da Epilogue> Σ0
@ 226da
<LVAR 0x00c 2(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x006 2(w)>
<LVAR -0x008 2(w)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 2(r)>
<LVAR -0x00e 2(w)>
<LVAR -0x010 2(r)>
<LVAR -0x012 @ 2(r)>
<POP 226da-227a2 Body>
<POP 226da-226f0 Prologue> Σ0 ↓
<POP 226f0-22752 Naked> Σ0 ↓ →0x2279a
<MI 226f0 CLR.W (A6-0x12)> {}
<MI 226f4 CLR.W (A6-0x10)> {}
<MI 226f8 MOVE.W #0x2,(A6-0xe)> {}
<MI 226fe CLR.W (A6-0xc)> {}
<MI 22702 CLR.W (A6-0xa)> {}
<MI 22706 MOVE.W 0x295f6,D0> {}
<MI 2270c ASL.W #0x8,D0> {}
<MI 2270e ADDI.W #0x000e,D0> {}
<POP 0x22712 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 2271a MOVE.W D0,(A6-0x8)> {}
<MI 2271e MOVE.W (A6+0xc),(A6-0x6)> {}
<MI 22724 MOVEA.L (A6+0x8),A0> {}
<Pointer.fp 0x22728 <LVAR -0x012 @ 2(r)>> Δ-4 {[@@-18]}
<MI 2272c MOVEA.L A0,A1> {[@@-18]}
<MI 2272e MOVE.L A1,-(A7)> Δ-4 {[@@-18]|[4, 'A1']}
<MI 22730 CLR.W -(A7)> Δ-2 {[@@-18]|[4, 'A1']|[#0]}
<Call 0x22732 0x10204> {[@@-18]|[4, 'A1']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 22738-2273a StackAdj> Δ+8 {[-2-]}
<MI 2273a CLR.W (A7)> {[-2-]}
<Pointer.fp 0x2273c <LVAR -0x002 @ 1(r)>> Δ-4 {[-2-]|[@@-2]}
<Call 0x22740 0x10206> {[-2-]|[@@-2]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 22746-22748 StackAdj> Δ+6 {}
<MI 22748 ANDI.W #0x00ff,(A0)> {}
<MI 2274c TST.B (A6-0x2)> {}
<MI 22750 BNE 0x2279a> {}
<POP 22752-2279a Naked> Σ0 ↓
<Blob 0x22752 [50] @> Δ-50 {[«50""»]}
<POP 22764-22766 StackAdj> Δ-8 {[«50""»]|[-8-]}
<Lit 0x22766 49> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]}
<POP 22778-2277a StackAdj> Δ-4 {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<MI 2277a CLR.L D0> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<MI 2277c MOVE.W (A6+0xc),D0> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<MI 22780 MOVE.L D0,-(A7)> Δ-4 {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]|[4, 'D0']}
<Call 0x22782 0x102e4> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 22788-2278a StackAdj> Δ+4 {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
<Call 0x2278a 0x102d0> {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
StringCat2(a, b : String) : String
<POP 22790-22792 StackAdj> Δ+8 {[«50""»]|[-4-]}
<Call 0x22792 0x224cc> {[«50""»]|[-4-]}
<POP 22796-2279a StackAdj> Δ+54 {}
<POP 2279a-227a2 Epilogue> Σ0 ←0x226f0
@ 227a2
<LVAR 0x008 2(r)>
<LVAR -0x004 @ 2(r)>
<LVAR -0x006 @ 2(r)>
<LVAR -0x008 @ 2(r)>
<LVAR -0x00a @ 2(r)>
<LVAR -0x00c @ 2(r)>
<LVAR -0x00e 2(rw)>
<LVAR -0x48a @>
<LVAR -0x48e @ 2(r)>
<LVAR -0x906 @>
<LVAR -0x90a @>
<POP 227a2-22a8c Body>
<POP 227a2-227b8 Prologue> Σ0 ↓
<POP 227b8-227d2 RegCacheLoad> Σ0 ↓
<POP 227d2-227e0 Naked> Σ0 ↓ →0x228e2
<POP 227d2-227d4 StackAdj> Δ-2 {[-2-]}
<Call 0x227d4 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 227da TST.B (A7)+> Δ+2 {}
<MI 227dc BEQ 0x228e2> {}
<POP 227e0-2288c Naked> Σ0 ↓
<MI 227e0 MOVE.W (A6+0x8),(A6-0xe)> {}
<MI 227e4 AND.W #0x03,(A6-0xe)> {}
<MI 227e6 MOVE.W #0x2d0,D0> {}
<MI 227ea ADD.W (A6-0xe),D0> {}
<POP 0x227ec LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 227f2 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x227f4 <LVAR -0x00c @ 2(r)>> Δ-4 {[2, 'D0']|[@@-12]}
<Call 0x227f8 0x226da> {[2, 'D0']|[@@-12]}
<POP 227fa-227fc StackAdj> Δ+6 {}
<MI 227fc MOVE.W #0x350,D0> {}
<MI 22800 ADD.W (A6-0xe),D0> {}
<POP 0x22802 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22808 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x2280a <LVAR -0x00a @ 2(r)>> Δ-4 {[2, 'D0']|[@@-10]}
<Call 0x2280e 0x226da> {[2, 'D0']|[@@-10]}
<POP 22810-22812 StackAdj> Δ+6 {}
<MI 22812 MOVE.W #0x1d0,D0> {}
<MI 22816 ADD.W (A6-0xe),D0> {}
<POP 0x22818 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 2281e MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x22820 <LVAR -0x008 @ 2(r)>> Δ-4 {[2, 'D0']|[@@-8]}
<Call 0x22824 0x226da> {[2, 'D0']|[@@-8]}
<POP 22826-22828 StackAdj> Δ+6 {}
<MI 22828 MOVE.W #0x250,D0> {}
<MI 2282c ADD.W (A6-0xe),D0> {}
<POP 0x2282e LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22834 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x22836 <LVAR -0x006 @ 2(r)>> Δ-4 {[2, 'D0']|[@@-6]}
<Call 0x2283a 0x226da> {[2, 'D0']|[@@-6]}
<POP 2283c-2283e StackAdj> Δ+6 {}
<MI 2283e MOVE.W #0x310,D0> {}
<MI 22842 ADD.W (A6-0xe),D0> {}
<POP 0x22844 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 2284a MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x2284c <LVAR -0x004 @ 2(r)>> Δ-4 {[2, 'D0']|[@@-4]}
<Call 0x22850 0x226da> {[2, 'D0']|[@@-4]}
<POP 22852-22854 StackAdj> Δ+6 {}
<MI 22854 CLR.W 0x295e2> {}
<MI 2285a CLR.L D0> {}
<MI 2285c MOVE.W (A6-0x6),D0> {}
<MI 22860 ASL.L #0x8,D0> {}
<MI 22862 CLR.L D1> {}
<MI 22864 MOVE.W (A6-0x8),D1> {}
<MI 22868 ADD.L D1,D0> {}
<POP 0x2286a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22870 MOVE.W D0,0x295e4> {}
<MI 22876 MOVE.W (A6-0xa),D0> {}
<POP 0x2287a LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 2287c MOVE.W D0,0x295e6> {}
<MI 22882 MOVE.W (A6-0xc),D0> {}
<POP 0x22886 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22888 MOVE.W D0,0x295e8> {}
<MI 2288a MOVEQ.L #0x03,D6> {}
<POP 2288c-228a2 Naked> Σ0 ↓ →0x228da ←0x228da
<MI 2288c MOVE.W D6,D0> {}
<MI 2288e ASL.W #0x2,D0> {}
<MI 22890 LEA.L 0x295b8,A0> {}
<MI 22896 MOVE.W (A0+D0.W+#0x10),D1> {}
<MI 2289a CMP.W 0x295e4,D1> {}
<MI 228a0 BNE 0x228da> {}
<POP 228a2-228b0 Naked> Σ0 ↓ →0x228da
<MI 228a2 CLR.L D1> {}
<MI 228a4 MOVE.B (A0+D0.W+#0x12),D1> {}
<MI 228a8 CMP.W 0x295e6,D1> {}
<MI 228ae BNE 0x228da> {}
<POP 228b0-228ba Naked> Σ0 ↓ →0x228d4
<MI 228b0 CLR.L D1> {}
<MI 228b2 MOVE.B (A0+D0.W+#0x13),D1> {}
<MI 228b6 CMP.W 0x295e8,D1> {}
<MI 228b8 BEQ 0x228d4> {}
<POP 228ba-228c4 Naked> Σ0 ↓ →0x228da
<MI 228ba MOVE.W (A6-0x4),D0> {}
<MI 228be CMPI.W #0x0001,D0> {}
<MI 228c2 BNE 0x228da> {}
<POP 228c4-228d4 Naked> Σ0 ↓ →0x228da
<MI 228c4 MOVE.W D6,D0> {}
<MI 228c6 ASL.W #0x1,D0> {}
<MI 228c8 LEA.L 0x22326,A0> {}
<MI 228cc MOVE.W 0x295e8,D1> {}
<MI 228ce CMP.W (A0+D0.W),D1> {}
<MI 228d2 BNE 0x228da> {}
<POP 228d4-228da Naked> Σ0 ↓ ←0x228b0
<MI 228d4 MOVE.W D6,0x295e2> {}
<POP 228da-228de Naked> Σ0 ↓ →0x2288c ←0x2288c ←0x228a2 ←0x228ba ←0x228c4
<MI 228da SUBQ.W #0x1,D6> {}
<MI 228dc BGE 0x2288c> {}
<POP 228de-228e2 Naked> Σ0 →0x22a84
<MI 228de BRA 0x22a84> {}
<POP 228e2-228ea Naked> Σ0 ↓ ←0x227d2
<MI 228e2 MOVEQ.L #0x00,D7> {}
<MI 228e4 MOVE.W (A6+0x8),(A6-0xe)> {}
<MI 228e8 AND.W #0x03,(A6-0xe)> {}
<POP 228ea-22920 Naked> Σ0 ↓ →0x228ea ←0x228ea
<POP 0x228ea LimitCheck 0x0 ≤ D7 ≤ 0xffff> {}
<MI 228f0 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Pointer.fp 0x228f2 <LVAR -0x48e @ 2(r)>> Δ-4 {[2, 'D7']|[@@-1166]}
<Call 0x228f6 0x226da> {[2, 'D7']|[@@-1166]}
<POP 228f8-228fa StackAdj> Δ+6 {}
<POP 0x228fa LimitCheck 0x0 ≤ D7 ≤ 0x477> {}
<MI 22904 LEA.L (A6-0x90a),A0> {}
<MI 22908 LEA.L (A0+D7.L),A0> {}
<MI 2290c MOVE.W (A6-0x48e),D0> {}
<POP 0x22910 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22912 MOVE.B D0,(A0+0x480)> {}
<MI 22916 ADDQ.L #0x1,D7> {}
<MI 22918 CMPI.L #0x00000400,D7> {}
<MI 2291e BNE 0x228ea> {}
<POP 22920-2292c Naked> Σ0 ↓ →0x22962
<POP 22920-22922 StackAdj> Δ-2 {[-2-]}
<Call 0x22922 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 22928 TST.B (A7)+> Δ+2 {}
<MI 2292a BEQ 0x22962> {}
<POP 2292c-22962 Naked> Σ0 ↓ →0x2292c ←0x2292c
<POP 0x2292c LimitCheck 0x0 ≤ D7 ≤ 0xffff> {}
<MI 22932 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Pointer.fp 0x22934 <LVAR -0x48e @ 2(r)>> Δ-4 {[2, 'D7']|[@@-1166]}
<Call 0x22938 0x226da> {[2, 'D7']|[@@-1166]}
<POP 2293a-2293c StackAdj> Δ+6 {}
<POP 0x2293c LimitCheck 0x0 ≤ D7 ≤ 0x477> {}
<MI 22946 LEA.L (A6-0x90a),A0> {}
<MI 2294a LEA.L (A0+D7.L),A0> {}
<MI 2294e MOVE.W (A6-0x48e),D0> {}
<POP 0x22952 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22954 MOVE.B D0,(A0+0x480)> {}
<MI 22958 ADDQ.L #0x1,D7> {}
<MI 2295a CMPI.L #0x00000478,D7> {}
<MI 22960 BNE 0x2292c> {}
<POP 22962-229c0 Naked> Σ0 ↓ →0x22a4a ←0x22920
<MI 22962 LEA.L (A6-0x906),A0> {}
<MI 22966 LEA.L (A6-0x48a),A1> {}
<BlockMove 1144,A1,A0> {}
<MI 22974 MOVE.W (A6-0xe),D0> {}
<POP 0x22976 LimitCheck 0x0 ≤ D0 ≤ 0x7f> {}
<MI 2297a LEA.L (A6-0x90a),A0> {}
<MI 2297e LEA.L (A0+D0.W),A0> {}
<MI 22982 CLR.L D0> {}
<MI 22984 MOVE.B (A0+0x254),D0> {}
<MI 22988 ASL.W #0x8,D0> {}
<MI 2298a CLR.L D1> {}
<MI 2298c MOVE.B (A0+0x1d4),D1> {}
<MI 22990 ADD.W D0,D1> {}
<MI 22992 MOVE.W D1,0x295e4> {}
<MI 22998 CLR.L D0> {}
<MI 2299a MOVE.B (A0+0x354),D0> {}
<MI 2299e MOVE.W D0,0x295e6> {}
<MI 229a4 CLR.L D0> {}
<MI 229a6 MOVE.B (A0+0x2d4),D0> {}
<MI 229aa MOVE.W D0,0x295e8> {}
<MI 229ac CLR.W 0x295e2> {}
<POP 229b2-229b4 StackAdj> Δ-2 {[-2-]}
<Call 0x229b4 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 229ba TST.B (A7)+> Δ+2 {}
<MI 229bc BEQ 0x22a4a> {}
<POP 229c0-229ee Naked> Σ0 ↓
<Blob 0x229c0 [30] @> Δ-30 {[«30""»]}
<POP 229cc-229ce StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x229ce 30> {[«30""»]|[$$123456789012345678901234567890]}
<MI 229e2 MOVE.L (A7)+,0x295ea> Δ+4 {[«30""»]}
<POP 229e8-229ec StackAdj> Δ+30 {}
<MI 229ec MOVEQ.L #0x00,D5> {}
<POP 229ee-22a32 Naked> Σ0 ↓ →0x229ee ←0x229ee
<MI 229ee MOVEA.L 0x295ea,A0> {}
<MI 229f4 MOVE.L D5,D0> {}
<MI 229f6 ADDQ.L #0x1,D0> {}
<MI 229f8 SUBQ.L #0x1,D0> {}
<POP 0x229fa LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 22a04 MOVE.W (A6-0xe),D1> {}
<POP 0x22a06 LimitCheck 0x0 ≤ D1 ≤ 0x3> {}
<MI 22a08 MULS.W #0x1e,D1> {}
<MI 22a0c LEA.L (A6-0x90a),A1> {}
<POP 0x22a10 LimitCheck 0x0 ≤ D5 ≤ 0x1d> {}
<MI 22a1a LEA.L (A1+D1.W),A1> {}
<MI 22a1e LEA.L (A1+D5.L),A1> {}
<MI 22a22 MOVE.B (A1+0x404),(A0+D0.L+#0x2)> {}
<MI 22a28 ADDQ.L #0x1,D5> {}
<MI 22a2a CMPI.L #0x0000001d,D5> {}
<MI 22a30 BLE 0x229ee> {}
<POP 22a32-22a4a Naked> Σ0 →0x22a84
<POP 22a32-22a34 StackAdj> Δ-4 {[-4-]}
<Blob 0x22a34 [4] 0x295ea> Δ-4 {[-4-]|[«4»]}
<Call 0x22a3a 0x102f0> {[-4-]|[«4»]}
ToUpper(a : String) : String
<POP 22a40-22a42 StackAdj> Δ+4 {[-4-]}
<MI 22a42 MOVE.L (A7)+,0x295ea> Δ+4 {}
<MI 22a48 BRA 0x22a84> {}
<POP 22a4a-22a4c Naked> Σ0 ↓ ←0x22962
<MI 22a4a MOVEQ.L #0x05,D6> {}
<POP 22a4c-22a62 Naked> Σ0 ↓ →0x22a80 ←0x22a80
<MI 22a4c MOVE.W D6,D0> {}
<MI 22a4e ASL.W #0x2,D0> {}
<MI 22a50 LEA.L 0x295b8,A0> {}
<MI 22a56 MOVE.W (A0+D0.W+#0x10),D1> {}
<MI 22a5a CMP.W 0x295e4,D1> {}
<MI 22a60 BNE 0x22a80> {}
<POP 22a62-22a70 Naked> Σ0 ↓ →0x22a80
<MI 22a62 CLR.L D1> {}
<MI 22a64 MOVE.B (A0+D0.W+#0x12),D1> {}
<MI 22a68 CMP.W 0x295e6,D1> {}
<MI 22a6e BNE 0x22a80> {}
<POP 22a70-22a7a Naked> Σ0 ↓ →0x22a80
<MI 22a70 CLR.L D1> {}
<MI 22a72 MOVE.B (A0+D0.W+#0x13),D1> {}
<MI 22a76 CMP.W 0x295e8,D1> {}
<MI 22a78 BNE 0x22a80> {}
<POP 22a7a-22a80 Naked> Σ0 ↓
<MI 22a7a MOVE.W D6,0x295e2> {}
<POP 22a80-22a84 Naked> Σ0 ↓ →0x22a4c ←0x22a4c ←0x22a62 ←0x22a70
<MI 22a80 SUBQ.W #0x1,D6> {}
<MI 22a82 BGE 0x22a4c> {}
<POP 22a84-22a8c Epilogue> Σ0 ←0x228de ←0x22a32
@ 22a8c
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 22a8c-22af2 Body>
<POP 22a8c-22aa2 Prologue> Σ0 ↓
<POP 22aa2-22aae RegCacheLoad> Σ0 ↓
<POP 22aae-22ae0 Naked> Σ0 ↓ →0x22aea
<MI 22aae MOVE.L (A6+0xa),D4> {}
<MI 22ab2 MOVEQ.L #0x0a,D3> {}
<Call 0x22ab4 0x10294> {}
?divs_d3_d4
<MI 22aba MOVE.L (A4+0xe),-(A7)> Δ-4 {[4, '(A4+0xe)']}
<MI 22abc MOVE.L D4,D0> {[4, '(A4+0xe)']}
<MI 22abe ADD.L #0x30,D0> {[4, '(A4+0xe)']}
<POP 0x22ac0 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[4, '(A4+0xe)']}
<MI 22aca MOVE.B D0,-(A7)> Δ-2 {[4, '(A4+0xe)']|[2, 'D0']}
<Call 0x22acc 0x102c0> {[4, '(A4+0xe)']|[2, 'D0']}
AppendChar(MOD b : String; a : char)
<POP 22ace-22ad0 StackAdj> Δ+2 {[4, '(A4+0xe)']}
<MI 22ad0 MOVE.L (A4+0xe),(A7)> {[4, '(A4+0xe)']}
<MI 22ad2 ADD.W #0x30,D3> {[4, '(A4+0xe)']}
<MI 22ad4 MOVE.B D3,-(A7)> Δ-2 {[4, '(A4+0xe)']|[2, 'D3']}
<Call 0x22ad6 0x102c0> {[4, '(A4+0xe)']|[2, 'D3']}
AppendChar(MOD b : String; a : char)
<POP 22ad8-22ada StackAdj> Δ+6 {}
<MI 22ada TST.B (A6+0x8)> {}
<MI 22ade BEQ 0x22aea> {}
<POP 22ae0-22aea Naked> Σ0 ↓
<MI 22ae0 MOVE.L (A4+0xe),-(A7)> Δ-4 {[4, '(A4+0xe)']}
<MI 22ae2 MOVE.B (A6+0x8),-(A7)> Δ-2 {[4, '(A4+0xe)']|[2, '(A6+0x8)']}
<Call 0x22ae6 0x102c0> {[4, '(A4+0xe)']|[2, '(A6+0x8)']}
AppendChar(MOD b : String; a : char)
<POP 22ae8-22aea StackAdj> Δ+6 {}
<POP 22aea-22af2 Epilogue> Σ0 ←0x22aae
@ 22af2
<LVAR 0x00c 2(r)>
<LVAR 0x008 2(r)>
<LVAR -0x006 4(rw)>
<LVAR -0x00a 4(rw)>
<LVAR -0x014 @>
<POP 22af2-22bbe Body>
<POP 22af2-22b08 Prologue> Σ0 ↓
<POP 22b08-22b12 RegCacheLoad> Σ0 ↓
<POP 22b12-22bb6 Naked> Σ0 ↓
<MI 22b12 CLR.L D0> {}
<MI 22b14 MOVE.W (A6+0x8),D0> {}
<MI 22b18 CLR.L D1> {}
<MI 22b1a MOVE.W (A6+0xc),D1> {}
<MI 22b1e NEG.L D1> {}
<MI 22b20 ADD.L D0,D1> {}
<POP 0x22b22 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 22b2c MOVE.W D1,D7> {}
<MI 22b2e CLR.L D0> {}
<MI 22b30 MOVE.W D7,D0> {}
<MI 22b32 DIVU.W #0x708,D0> {}
<MI 22b36 CLR.L D1> {}
<MI 22b38 MOVE.W D0,D1> {}
<MI 22b3a MOVE.L D1,D6> {}
<MI 22b3c SWAP.W D0> {}
<MI 22b3e MOVE.W D0,D7> {}
<MI 22b40 CLR.L D0> {}
<MI 22b42 MOVE.W D7,D0> {}
<MI 22b44 DIVU.W #0x1e,D0> {}
<MI 22b48 CLR.L D1> {}
<MI 22b4a MOVE.W D0,D1> {}
<MI 22b4c MOVE.L D1,D5> {}
<MI 22b4e SWAP.W D0> {}
<MI 22b50 MOVE.W D0,D7> {}
<MI 22b52 CLR.L D0> {}
<MI 22b54 MOVE.W D7,D0> {}
<MI 22b56 ASL.L #0x1,D0> {}
<MI 22b58 MOVE.L D0,(A6-0xa)> {}
<Blob 0x22b5c [4] @> Δ-4 {[«4""»]}
<Blob 0x22b60 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x22b64 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x22b68 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 22b6c-22b6e StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x22b6e 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Elapsed time is_]}
<MI 22b82 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 22b86-22b8a StackAdj> Δ+12 {[«4""»]}
<MI 22b8a MOVE.L D6,(A7)> {[4, 'D6']}
<Const 0x22b8c 0x3a.2> Δ-2 {[4, 'D6']|[#58]}
<MI 22b8e LEA.L (A6-0x14),A4> {[4, 'D6']|[#58]}
<Call 0x22b90 0x22a8c> {[4, 'D6']|[#58]}
<POP 22b92-22b94 StackAdj> Δ+2 {[4, 'D6']}
<MI 22b94 MOVE.L D5,(A7)> {[4, 'D5']}
<Const 0x22b96 0x3a.2> Δ-2 {[4, 'D5']|[#58]}
<MI 22b98 LEA.L (A6-0x14),A4> {[4, 'D5']|[#58]}
<Call 0x22b9a 0x22a8c> {[4, 'D5']|[#58]}
<POP 22b9c-22b9e StackAdj> Δ+2 {[4, 'D5']}
<MI 22b9e MOVE.L (A6-0xa),(A7)> {[4, '(A6-0xa)']}
<MI 22ba2 CLR.B -(A7)> Δ-2 {[4, '(A6-0xa)']|[#0]}
<MI 22ba4 LEA.L (A6-0x14),A4> {[4, '(A6-0xa)']|[#0]}
<Call 0x22ba6 0x22a8c> {[4, '(A6-0xa)']|[#0]}
<POP 22ba8-22baa StackAdj> Δ+2 {[4, '(A6-0xa)']}
<MI 22baa MOVE.L (A6-0x6),(A7)> {[4, '(A6-0x6)']}
<Call 0x22bae 0x103e0> {[4, '(A6-0x6)']}
WriteConsoleStringCrLf(str : String)
<POP 22bb4-22bb6 StackAdj> Δ+4 {}
<POP 22bb6-22bbe Epilogue> Σ0
@ 22bbe
<POP 22bbe-22c16 Body>
<POP 22bbe-22bd4 Prologue> Σ0 ↓
<POP 22bd4-22bd6 RegCacheLoad> Σ0 ↓
<POP 22bd6-22bd8 Naked> Σ0 ↓
<MI 22bd6 MOVEQ.L #0x01,D7> {}
<POP 22bd8-22c0e Naked> Σ0 ↓ →0x22bd8 ←0x22bd8
<MI 22bd8 MOVE.L D7,D0> {}
<MI 22bda ASL.L #0x1,D0> {}
<MI 22bdc MOVE.L D0,D1> {}
<MI 22bde SUBQ.L #0x1,D1> {}
<POP 0x22be0 LimitCheck 0x0 ≤ D1 ≤ 0x1d> {}
<MI 22be6 LEA.L 0x29604,A0> {}
<MI 22bec MOVE.B (A0+D1.L+#0x36),D6> {}
<MI 22bf0 SUBQ.L #0x1,D0> {}
<MI 22bf2 SUBQ.L #0x1,D0> {}
<POP 0x22bf4 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 22bfa MOVE.B (A0+D0.L+#0x36),(A0+D1.L+#0x36)> {}
<MI 22c00 MOVE.B D6,(A0+D0.L+#0x36)> {}
<MI 22c04 ADDQ.L #0x1,D7> {}
<MI 22c06 CMPI.L #0x0000000f,D7> {}
<MI 22c0c BLE 0x22bd8> {}
<POP 22c0e-22c16 Epilogue> Σ0
@ 22c16
<LVAR 0x008 1(rw)>
<LVAR -0x004 @ 2(r)>
<LVAR -0x01c 2(r)>
<POP 22c16-22d1a Body>
<POP 22c16-22c2c Prologue> Σ0 ↓
<POP 22c2c-22c36 RegCacheLoad> Σ0 ↓
<POP 22c36-22c42 Naked> Σ0 ↓ →0x22c7c
<POP 22c36-22c38 StackAdj> Δ-2 {[-2-]}
<Call 0x22c38 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 22c3e TST.B (A7)+> Δ+2 {}
<MI 22c40 BEQ 0x22c7c> {}
<POP 22c42-22c76 Naked> Σ0 ↓ →0x22c78
<MI 22c42 MOVE.L #0x9303,D7> {}
<MI 22c48 ASL.L #0x8,D7> {}
<MI 22c4a ASL.L #0x8,D7> {}
<MI 22c4c ADDI.L #0x0000e000,D7> {}
<MI 22c52 MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<Const 0x22c54 0x5.2> Δ-2 {[4, 'D7']|[#5]}
<MI 22c56 LEA.L (A6-0x4),A0> {[4, 'D7']|[#5]}
<MI 22c5a MOVE.L A0,-(A7)> Δ-4 {[4, 'D7']|[#5]|[4, 'A0']}
<Const 0x22c5c 0x1.2> Δ-2 {[4, 'D7']|[#5]|[4, 'A0']|[#1]}
<Const 0x22c5e 0x2.2> Δ-2 {[4, 'D7']|[#5]|[4, 'A0']|[#1]|[#2]}
<Call 0x22c60 0x1023a> {[4, 'D7']|[#5]|[4, 'A0']|[#1]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22c66-22c6a StackAdj> Δ+14 {}
<MI 22c6a CLR.B (A6+0x8)> {}
<MI 22c6c MOVE.W (A6-0x4),D0> {}
<MI 22c70 ANDI.W #0x0080,D0> {}
<MI 22c74 BNE 0x22c78> {}
<POP 22c76-22c78 Naked> Σ0 ↓
<MI 22c76 ADDQ.B #0x1,(A6+0x8)> {}
<POP 22c78-22c7c Naked> Σ0 →0x22d12 ←0x22c42
<MI 22c78 BRA 0x22d12> {}
<POP 22c7c-22ca0 Naked> Σ0 →0x22ca8 →0x22cb0 →0x22cb8 →0x22cc0 ←0x22c36
<MI 22c7c MOVE.L #0x9303,D7> {}
<MI 22c82 ASL.L #0x8,D7> {}
<MI 22c84 ASL.L #0x8,D7> {}
<MI 22c86 MOVE.W 0x295f6,D0> {}
<MI 22c8c ASR.W #0x2,D0> {}
<POP 0x22c8e LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 22c96 ADD.W D0,D0> {}
<MI 22c98 SWITCH D0.W> {}
<POP 22ca8-22cb0 Naked> Σ0 →0x22cc6 ←0x22c7c
<MI 22ca8 ADDI.L #0x0000fdc0,D7> {}
<MI 22cae BRA 0x22cc6> {}
<POP 22cb0-22cb8 Naked> Σ0 →0x22cc6 ←0x22c7c
<MI 22cb0 ADDI.L #0x0000fcc0,D7> {}
<MI 22cb6 BRA 0x22cc6> {}
<POP 22cb8-22cc0 Naked> Σ0 →0x22cc6 ←0x22c7c
<MI 22cb8 ADDI.L #0x0000fc80,D7> {}
<MI 22cbe BRA 0x22cc6> {}
<POP 22cc0-22cc6 Naked> Σ0 ↓ ←0x22c7c
<MI 22cc0 ADDI.L #0x0000fc40,D7> {}
<POP 22cc6-22cc8 Naked> Σ0 ↓ ←0x22ca8 ←0x22cb0 ←0x22cb8
<MI 22cc6 MOVEQ.L #0x00,D6> {}
<POP 22cc8-22d04 Naked> Σ0 ↓ →0x22cc8 ←0x22cc8
<MI 22cc8 MOVEQ.L #0x02,D4> {}
<MI 22cca MOVE.L D6,D3> {}
<Call 0x22ccc 0x1028c> {}
?muls_d3_d4
<MI 22cd2 MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 22cd4 ADD.L D4,(A7)> {[-4-]}
<Const 0x22cd6 0x5.2> Δ-2 {[-4-]|[#5]}
<POP 0x22cd8 LimitCheck 0x0 ≤ D6 ≤ 0x13> {[-4-]|[#5]}
<MI 22ce2 MOVE.L D6,D0> {[-4-]|[#5]}
<MI 22ce4 ASL.L #0x1,D0> {[-4-]|[#5]}
<MI 22ce6 LEA.L (A6+D0.L-#0x30),A0> {[-4-]|[#5]}
<MI 22cea MOVE.L A0,-(A7)> Δ-4 {[-4-]|[#5]|[4, 'A0']}
<Const 0x22cec 0x1.2> Δ-2 {[-4-]|[#5]|[4, 'A0']|[#1]}
<Const 0x22cee 0x2.2> Δ-2 {[-4-]|[#5]|[4, 'A0']|[#1]|[#2]}
<Call 0x22cf0 0x1023a> {[-4-]|[#5]|[4, 'A0']|[#1]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22cf6-22cfa StackAdj> Δ+14 {}
<MI 22cfa ADDQ.L #0x1,D6> {}
<MI 22cfc CMPI.L #0x00000013,D6> {}
<MI 22d02 BLE 0x22cc8> {}
<POP 22d04-22d10 Naked> Σ0 ↓ →0x22d12
<MI 22d04 CLR.B (A6+0x8)> {}
<MI 22d06 MOVE.W (A6-0x1c),D0> {}
<MI 22d0a ANDI.W #0x0010,D0> {}
<MI 22d0e BEQ 0x22d12> {}
<POP 22d10-22d12 Naked> Σ0 ↓
<MI 22d10 ADDQ.B #0x1,(A6+0x8)> {}
<POP 22d12-22d1a Epilogue> Σ0 ←0x22c78 ←0x22d04
@ 22d1a
<LVAR 0x008 1(r)>
<LVAR -0x01c @ 1(r)>
<LVAR -0x028 @ 2(r)>
<LVAR -0x02a 2(r)>
<LVAR -0x02c 2(r)>
<LVAR -0x02e 2(w)>
<LVAR -0x030 2(r)>
<LVAR -0x032 2(r)>
<LVAR -0x034 2(w)>
<LVAR -0x036 2(r)>
<LVAR -0x038 @ 2(r)>
<POP 22d1a-238f0 Body> Δ+124
<POP 22d1a-22d30 Prologue> Σ0 ↓
<POP 22d30-22d4e RegCacheLoad> Σ0 ↓
<POP 22d4e-22df6 Naked> Σ0 ↓ →0x22e1a
<MI 22d4e CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x22d50 0x103ac> {[#0]}
Set_is_open_ERROR_LOG(a : Bool)
<POP 22d56-22d58 StackAdj> Δ+2 {}
<MI 22d58 MOVE.L #0x01,0x20020> {}
<MI 22d5e MOVE.L #0x01,0x10026> {}
<Blob 0x22d64 [62] @> Δ-62 {[«62""»]}
<POP 22d76-22d78 StackAdj> Δ-8 {[«62""»]|[-8-]}
<Lit 0x22d78 61> {[«62""»]|[-4-]|[$$Enter unit number of disk to format/build/scan (usually 0) :_]}
<Const 0x22d86 0x0.4> Δ-4 {[«62""»]|[-4-]|[$$Enter unit number of disk to format/build/scan (usually 0) :_]|[##0]}
<Const 0x22d8a 0xf.4> Δ-4 {[«62""»]|[-4-]|[$$Enter unit number of disk to format/build/scan (usually 0) :_]|[##0]|[##15]}
<Call 0x22d8e 0x103ec> {[«62""»]|[-4-]|[$$Enter unit number of disk to format/build/scan (usually 0) :_]|[##0]|[##15]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 22d94-22d96 StackAdj> Δ+12 {[«62""»]|[-4-]}
<MI 22d96 MOVE.L (A7)+,D0> Δ+4 {[«62""»]}
<POP 0x22d98 LimitCheck 0x0 ≤ D0 ≤ 0xf> {[«62""»]}
<POP 22da2-22da6 StackAdj> Δ+62 {}
<MI 22da6 MOVE.W D0,0x295f6> {}
<MI 22da8 CLR.W (A6-0x38)> {}
<MI 22dac CLR.W (A6-0x36)> {}
<MI 22db0 MOVE.W #0x2,(A6-0x34)> {}
<MI 22db6 CLR.W (A6-0x32)> {}
<MI 22dba CLR.W (A6-0x30)> {}
<MI 22dbe ASL.W #0x8,D0> {}
<MI 22dc0 MOVE.W D0,(A6-0x2e)> {}
<MI 22dc4 CLR.W (A6-0x2c)> {}
<MI 22dc8 CLR.W (A6-0x2a)> {}
<Pointer.fp 0x22dcc <LVAR -0x038 @ 2(r)>> Δ-4 {[@@-56]}
<MI 22dd0 LEA.L (A6-0x28),A0> {[@@-56]}
<MI 22dd4 MOVE.L A0,-(A7)> Δ-4 {[@@-56]|[4, 'A0']}
<MI 22dd6 CLR.W -(A7)> Δ-2 {[@@-56]|[4, 'A0']|[#0]}
<Call 0x22dd8 0x10204> {[@@-56]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 22dde-22de0 StackAdj> Δ+8 {[-2-]}
<MI 22de0 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x22de2 <LVAR -0x01c @ 1(r)>> Δ-4 {[-2-]|[@@-28]}
<Call 0x22de6 0x10206> {[-2-]|[@@-28]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 22dec-22dee StackAdj> Δ+6 {}
<MI 22dee MOVE.W (A6-0x28),D0> {}
<MI 22df2 CMP.W #0x01,D0> {}
<MI 22df4 BEQ 0x22e1a> {}
<POP 22df6-22e1a Naked> Σ0 ↓
<Blob 0x22df6 [30] @> Δ-30 {[«30""»]}
<POP 22e02-22e04 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x22e04 30> {[«30""»]|[$$That disk unit does not exist.]}
<Call 0x22e12 0x224cc> {[«30""»]|[$$That disk unit does not exist.]}
<POP 22e16-22e1a StackAdj> Δ+34 {}
<POP 22e1a-22e56 Naked> Σ0 ↓ →0x22eb4 ←0x22d4e
<MI 22e1a MOVE.W 0x295f6,0x10008> {}
<MI 22e20 MOVE.W #0x7fff,0x1000c> {}
<MI 22e28 MOVE.W #0x7fff,0x1000a> {}
<MI 22e30 CLR.B 0x295ee> {}
<Const 0x22e32 0x2.2> Δ-2 {[#2]}
<Const 0x22e36 0x2.2> Δ-2 {[#2]|[#2]}
<Const 0x22e3a 0x1.4> Δ-4 {[#2]|[#2]|[##1]}
<Blob 0x22e3e [4] 0x29600> Δ-4 {[#2]|[#2]|[##1]|[«4»]}
<Pointer.fp 0x22e44 <LVAR -0x01c @ 1(r)>> Δ-4 {[#2]|[#2]|[##1]|[«4»]|[@@-28]}
<Call 0x22e48 0x1036c> {[#2]|[#2]|[##1]|[«4»]|[@@-28]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 22e4e-22e50 StackAdj> Δ+16 {}
<MI 22e50 TST.B (A6-0x1c)> {}
<MI 22e54 BNE 0x22eb4> {}
<POP 22e56-22e5c Naked> Σ0 ↓ →0x22e84
<MI 22e56 TST.B (A6+0x8)> {}
<MI 22e5a BEQ 0x22e84> {}
<POP 22e5c-22e84 Naked> Σ0 Δ-46 →0x22eac
<Blob 0x22e5c [42] @> Δ-42 {[«42""»]}
<POP 22e6e-22e70 StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x22e70 41> {[«42""»]|[$$Can't retrieve labels due to disk errors.]}
<Call 0x22e7e 0x224cc> {[«42""»]|[$$Can't retrieve labels due to disk errors.]}
<MI 22e82 BRA 0x22eac> {[«42""»]|[$$Can't retrieve labels due to disk errors.]}
<POP 22e84-22eac Naked> Σ0 Δ-46 ↓ ←0x22e56
<Blob 0x22e84 [42] @> Δ-42 {[«42""»]}
<POP 22e96-22e98 StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x22e98 41> {[«42""»]|[$$Can't retrieve labels due to disk errors.]}
<Call 0x22ea6 0x103e0> {[«42""»]|[$$Can't retrieve labels due to disk errors.]}
WriteConsoleStringCrLf(str : String)
<POP 22eac-22eb4 Naked> Σ-46 Δ+46 →0x23032 ←0x22e5c
<POP 22eac-22eb0 StackAdj> Δ+46 {}
<MI 22eb0 BRA 0x23032> {}
<POP 22eb4-22ec0 Naked> Σ0 ↓ →0x22f18 ←0x22e1a
<MI 22eb4 MOVE.W 0x29606,D0> {}
<MI 22eba CMPI.W #0x7fed,D0> {}
<MI 22ebe BEQ 0x22f18> {}
<POP 22ec0-22ec6 Naked> Σ0 ↓ →0x22eec
<MI 22ec0 TST.B (A6+0x8)> {}
<MI 22ec4 BEQ 0x22eec> {}
<POP 22ec6-22eec Naked> Σ0 Δ-24 →0x22f12
<Blob 0x22ec6 [20] @> Δ-20 {[«20""»]}
<POP 22ed6-22ed8 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22ed8 19> {[«20""»]|[$$Disk has no labels.]}
<Call 0x22ee6 0x224cc> {[«20""»]|[$$Disk has no labels.]}
<MI 22eea BRA 0x22f12> {[«20""»]|[$$Disk has no labels.]}
<POP 22eec-22f12 Naked> Σ0 Δ-24 ↓ ←0x22ec0
<Blob 0x22eec [20] @> Δ-20 {[«20""»]}
<POP 22efc-22efe StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22efe 19> {[«20""»]|[$$Disk has no labels.]}
<Call 0x22f0c 0x103e0> {[«20""»]|[$$Disk has no labels.]}
WriteConsoleStringCrLf(str : String)
<POP 22f12-22f18 Naked> Σ-24 Δ+24 →0x23032 ←0x22ec6
<POP 22f12-22f14 StackAdj> Δ+24 {}
<MI 22f14 BRA 0x23032> {}
<POP 22f18-22f24 Naked> Σ0 ↓ →0x22f7e ←0x22eb4
<MI 22f18 MOVE.W 0x29608,D0> {}
<MI 22f1e CMPI.W #0x0003,D0> {}
<MI 22f22 BEQ 0x22f7e> {}
<POP 22f24-22f2a Naked> Σ0 ↓ →0x22f50
<MI 22f24 TST.B (A6+0x8)> {}
<MI 22f28 BEQ 0x22f50> {}
<POP 22f2a-22f50 Naked> Σ0 Δ-30 →0x22f76
<Blob 0x22f2a [26] @> Δ-26 {[«26""»]}
<POP 22f3a-22f3c StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x22f3c 25> {[«26""»]|[$$Disk has obsolete labels.]}
<Call 0x22f4a 0x224cc> {[«26""»]|[$$Disk has obsolete labels.]}
<MI 22f4e BRA 0x22f76> {[«26""»]|[$$Disk has obsolete labels.]}
<POP 22f50-22f76 Naked> Σ0 Δ-30 ↓ ←0x22f24
<Blob 0x22f50 [26] @> Δ-26 {[«26""»]}
<POP 22f60-22f62 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x22f62 25> {[«26""»]|[$$Disk has obsolete labels.]}
<Call 0x22f70 0x103e0> {[«26""»]|[$$Disk has obsolete labels.]}
WriteConsoleStringCrLf(str : String)
<POP 22f76-22f7e Naked> Σ-30 Δ+30 →0x23032 ←0x22f2a
<POP 22f76-22f7a StackAdj> Δ+30 {}
<MI 22f7a BRA 0x23032> {}
<POP 22f7e-22ffc Naked> Σ0 ↓ →0x23000 ←0x22f18
<MI 22f7e MOVE.L 0x2960c,0x295f8> {}
<Call 0x22f88 0x22bbe> {}
<Blob 0x22f8c [30] 0x29658> Δ-30 {[«30»]}
<POP 22f9a-22f9c StackAdj> Δ-8 {[«30»]|[-8-]}
<Lit 0x22f9c> {[«30»]|[-4-]|[$$…]}
<Pointer.sp 0x22f9c 8> Δ-4
<Const 0x22fa0 0x1.2> Δ-2
<Const 0x22fa2 0x1e.2> Δ-2
<Call 0x22fa6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22fa8-22faa StackAdj> Δ+8
<Call 0x22faa 0x102f0> {[«30»]|[-4-]|[$$…]}
ToUpper(a : String) : String
<POP 22fb0-22fb2 StackAdj> Δ+4 {[«30»]|[-4-]}
<MI 22fb2 MOVE.L (A7)+,0x295ea> Δ+4 {[«30»]}
<POP 22fb8-22fbc StackAdj> Δ+28 {[-2-]}
<POP 22fbc-22fbd StackAdj> Δ+2 {}
<Blob 0x22fbd [2] @> Δ-2 {[«2""»]}
<Blob 0x22fc0 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x22fc4 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 22fc8-22fca StackAdj> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[-8-]}
<Lit 0x22fca 6> {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]}
<POP 22fd6-22fd7 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]|[-4-]}
<Blob 0x22fd7 [4] 0x295ea> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]|[-4-]|[«4»]}
<Call 0x22fdc 0x102cc> {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]|[-4-]|[«4»]}
StringDup(a : String) : String
<POP 22fe2-22fe4 StackAdj> Δ+4 {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]|[-4-]}
<Call 0x22fe4 0x102d0> {[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$HDA :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 22fea-22fec StackAdj> Δ+8 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Call 0x22fec 0x103e0> {[«2""»]|[«2""»]|[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22ff2-22ff6 StackAdj> Δ+10 {}
<MI 22ff6 TST.B (A6+0x8)> {}
<MI 22ffa BEQ 0x23000> {}
<POP 22ffc-23000 Naked> Σ0 →0x23032
<MI 22ffc MOVE.B #0x01,0x295ee> {}
<MI 22ffe BRA 0x23032> {}
<POP 23000-23032 Naked> Σ0 ↓ ←0x22f7e
<Blob 0x23000 [58] @> Δ-58 {[«58""»]}
<POP 2300c-2300e StackAdj> Δ-6 {[«58""»]|[-6-]}
<Lit 0x2300e 58> {[«58""»]|[-2-]|[$$Disk appears intact. Should the information on it be used]}
<POP 2301a-2301c StackAdj> Δ-2 {[«58""»]|[-2-]|[$$Disk appears intact. Should the information on it be used]|[-2-]}
<POP 2301c-2301d StackAdj> Δ+2 {[«58""»]|[-2-]|[$$Disk appears intact. Should the information on it be used]}
<Const 0x2301d 0x1.2> Δ-2 {[«58""»]|[-2-]|[$$Disk appears intact. Should the information on it be used]|[#1]}
<Call 0x2301e 0x103f0> {[«58""»]|[-2-]|[$$Disk appears intact. Should the information on it be used]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 23024-23026 StackAdj> Δ+6 {[«58""»]|[-2-]}
<MI 23026 MOVE.B (A7)+,D0> Δ+2 {[«58""»]}
<MI 23028 EXTB.W D0> {[«58""»]}
<POP 0x2302a LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«58""»]}
<POP 2302c-23030 StackAdj> Δ+58 {}
<MI 23030 MOVE.B D0,0x295ee> {}
<POP 23032-23036 Naked> Σ0 ↓ →0x23042 ←0x22eac ←0x22f12 ←0x22f76 ←0x22ffc
<MI 23032 TST.B 0x295ee> {}
<MI 23034 BEQ 0x23042> {}
<POP 23036-23042 Naked> Σ0 →0x23048
<MI 23036 MOVE.B 0x29638,0x295ef> {}
<MI 23040 BRA 0x23048> {}
<POP 23042-23048 Naked> Σ0 ↓ ←0x23032
<MI 23042 CLR.B 0x295ef> {}
<POP 23048-23054 Naked> Σ0 ↓ →0x23426 ←0x23036
<MI 23048 CLR.W 0x295e0> {}
<MI 2304e TST.B 0x295ee> {}
<MI 23050 BNE 0x23426> {}
<POP 23054-23062 Naked> Σ0 ↓ →0x23426
<POP 23054-23056 StackAdj> Δ-2 {[-2-]}
<Call 0x23056 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 2305c TST.B (A7)+> Δ+2 {}
<MI 2305e BNE 0x23426> {}
<POP 23062-23070 Naked> Σ0 ↓ →0x23166
<POP 23062-23064 StackAdj> Δ-2 {[-2-]}
<Call 0x23064 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 2306a TST.B (A7)+> Δ+2 {}
<MI 2306c BEQ 0x23166> {}
<POP 23070-23166 Naked> Σ0 Δ-24 →0x232a0
<Blob 0x23070 [4] @> Δ-4 {[«4""»]}
<Blob 0x23074 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x23078 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2307c [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 23080-23082 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x23082 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Drive types are:]}
<Call 0x2308e 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Drive types are:]}
WriteConsoleStringCrLf(str : String)
<POP 23094-23095 StackAdj> Δ+20 ↓ {}
<Blob 0x23095 [22] @> Δ-22 {[«22""»]}
<POP 230a4-230a6 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x230a6 21> {[«22""»]|[$$ 1 - Fujitsu 2263 ]}
<Call 0x230b4 0x103e0> {[«22""»]|[$$ 1 - Fujitsu 2263 ]}
WriteConsoleStringCrLf(str : String)
<POP 230ba-230bb StackAdj> Δ+26 ↓ {}
<Blob 0x230bb [22] @> Δ-22 {[«22""»]}
<POP 230ca-230cc StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x230cc 21> {[«22""»]|[$$ 2 - Fujitsu 2266 ]}
<Call 0x230da 0x103e0> {[«22""»]|[$$ 2 - Fujitsu 2266 ]}
WriteConsoleStringCrLf(str : String)
<POP 230e0-230e2 StackAdj> Δ+26 {}
<Blob 0x230e2 [24] @> Δ-24 {[«24""»]}
<POP 230ee-230f0 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x230f0 24> {[«24""»]|[$$ 3 - SEGATE ST41200N ]}
<Call 0x230fc 0x103e0> {[«24""»]|[$$ 3 - SEGATE ST41200N ]}
WriteConsoleStringCrLf(str : String)
<POP 23102-23103 StackAdj> Δ+28 ↓ {}
<Blob 0x23103 [14] @> Δ-14 {[«14""»]}
<POP 23114-23116 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x23116 13> {[«14""»]|[$$ 0 - Other]}
<Call 0x23124 0x103e0> {[«14""»]|[$$ 0 - Other]}
WriteConsoleStringCrLf(str : String)
<POP 2312a-2312b StackAdj> Δ+18 ↓ {}
<Blob 0x2312b [20] @> Δ-20 {[«20""»]}
<POP 2313a-2313c StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x2313c 19> {[«20""»]|[-4-]|[$$Enter drive type :_]}
<Const 0x2314a 0x0.4> Δ-4 {[«20""»]|[-4-]|[$$Enter drive type :_]|[##0]}
<Const 0x2314e 0x3.4> Δ-4 {[«20""»]|[-4-]|[$$Enter drive type :_]|[##0]|[##3]}
<Call 0x23152 0x103ec> {[«20""»]|[-4-]|[$$Enter drive type :_]|[##0]|[##3]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 23158-2315a StackAdj> Δ+12 {[«20""»]|[-4-]}
<MI 2315a MOVE.W (A7+0x2),D0> {[«20""»]|[-4-]}
<POP 0x2315e LimitCheck 0x0 ≤ D0 ≤ 0x5> {[«20""»]|[-4-]}
<MI 23162 BRA 0x232a0> {[«20""»]|[-4-]}
<POP 23166-232a0 Naked> Σ0 Δ-24 ↓ ←0x23062
<Blob 0x23166 [4] @> Δ-4 {[«4""»]}
<Blob 0x2316a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2316e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x23172 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 23176-23178 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x23178 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Drive types are:]}
<Call 0x23184 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Drive types are:]}
WriteConsoleStringCrLf(str : String)
<POP 2318a-2318b StackAdj> Δ+20 ↓ {}
<Blob 0x2318b [54] @> Δ-54 {[«54""»]}
<POP 2319c-2319e StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x2319e 53> {[«54""»]|[$$ 1 - Fujitsu 2351 (Eagle) with sector interleaving]}
<Call 0x231ac 0x103e0> {[«54""»]|[$$ 1 - Fujitsu 2351 (Eagle) with sector interleaving]}
WriteConsoleStringCrLf(str : String)
<POP 231b2-231b3 StackAdj> Δ+58 ↓ {}
<Blob 0x231b3 [32] @> Δ-32 {[«32""»]}
<POP 231c2-231c4 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x231c4 31> {[«32""»]|[$$ 2 - Fujitsu 2361 (Eagle XP)]}
<Call 0x231d2 0x103e0> {[«32""»]|[$$ 2 - Fujitsu 2361 (Eagle XP)]}
WriteConsoleStringCrLf(str : String)
<POP 231d8-231dc StackAdj> Δ+36 {}
<Blob 0x231dc [20] @> Δ-20 {[«20""»]}
<POP 231e8-231ea StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x231ea 20> {[«20""»]|[$$ 3 - Fujitsu 2333]}
<Call 0x231f6 0x103e0> {[«20""»]|[$$ 3 - Fujitsu 2333]}
WriteConsoleStringCrLf(str : String)
<POP 231fc-231fe StackAdj> Δ+24 {}
<Blob 0x231fe [20] @> Δ-20 {[«20""»]}
<POP 2320a-2320c StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2320c 20> {[«20""»]|[$$ 4 - Fujitsu 2344]}
<Call 0x23218 0x103e0> {[«20""»]|[$$ 4 - Fujitsu 2344]}
WriteConsoleStringCrLf(str : String)
<POP 2321e-23220 StackAdj> Δ+24 {}
<Blob 0x23220 [20] @> Δ-20 {[«20""»]}
<POP 2322c-2322e StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2322e 20> {[«20""»]|[$$ 5 - Fujitsu 2372]}
<Call 0x2323a 0x103e0> {[«20""»]|[$$ 5 - Fujitsu 2372]}
WriteConsoleStringCrLf(str : String)
<POP 23240-23241 StackAdj> Δ+24 ↓ {}
<Blob 0x23241 [14] @> Δ-14 {[«14""»]}
<POP 23252-23254 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x23254 13> {[«14""»]|[$$ 0 - Other]}
<Call 0x23262 0x103e0> {[«14""»]|[$$ 0 - Other]}
WriteConsoleStringCrLf(str : String)
<POP 23268-23269 StackAdj> Δ+18 ↓ {}
<Blob 0x23269 [20] @> Δ-20 {[«20""»]}
<POP 23278-2327a StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x2327a 19> {[«20""»]|[-4-]|[$$Enter drive type :_]}
<Const 0x23288 0x0.4> Δ-4 {[«20""»]|[-4-]|[$$Enter drive type :_]|[##0]}
<Const 0x2328c 0x5.4> Δ-4 {[«20""»]|[-4-]|[$$Enter drive type :_]|[##0]|[##5]}
<Call 0x23290 0x103ec> {[«20""»]|[-4-]|[$$Enter drive type :_]|[##0]|[##5]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 23296-23298 StackAdj> Δ+12 {[«20""»]|[-4-]}
<MI 23298 MOVE.W (A7+0x2),D0> {[«20""»]|[-4-]}
<POP 0x2329c LimitCheck 0x0 ≤ D0 ≤ 0x5> {[«20""»]|[-4-]}
<POP 232a0-232b0 Naked> Σ-24 Δ+24 ↓ →0x232da ←0x23070
<POP 232a0-232a2 StackAdj> Δ+24 {}
<MI 232a2 MOVE.W D0,0x295e0> {}
<MI 232a8 TST.W 0x295e0> {}
<MI 232ae BEQ 0x232da> {}
<POP 232b0-232da Naked> Σ0 →0x233f4
<MI 232b0 MOVE.W 0x295e0,D0> {}
<MI 232b6 ASL.W #0x2,D0> {}
<MI 232b8 LEA.L 0x295b8,A0> {}
<MI 232be MOVE.W (A0+D0.W+#0x10),0x295f8> {}
<MI 232c6 MOVE.B (A0+D0.W+#0x12),0x295fa> {}
<MI 232ce MOVE.B (A0+D0.W+#0x13),0x295fb> {}
<MI 232d6 BRA 0x233f4> {}
<POP 232da-2336a Naked> Σ0 ↓ ←0x232a0
<Blob 0x232da [42] @> Δ-42 {[«42""»]}
<POP 232ec-232ee StackAdj> Δ-8 {[«42""»]|[-8-]}
<Lit 0x232ee 41> {[«42""»]|[-4-]|[$$How many cylinders does this disk have ?_]}
<Const 0x232fc 0x1.4> Δ-4 {[«42""»]|[-4-]|[$$How many cylinders does this disk have ?_]|[##1]}
<Const 0x23300 0xfff.4> Δ-4 {[«42""»]|[-4-]|[$$How many cylinders does this disk have ?_]|[##1]|[##4095]}
<Call 0x23304 0x103ec> {[«42""»]|[-4-]|[$$How many cylinders does this disk have ?_]|[##1]|[##4095]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 2330a-2330c StackAdj> Δ+12 {[«42""»]|[-4-]}
<MI 2330c MOVE.L (A7)+,D0> Δ+4 {[«42""»]}
<POP 0x2330e LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[«42""»]}
<POP 23318-2331c StackAdj> Δ+42 {}
<MI 2331c MOVE.W D0,0x295f8> {}
<Blob 0x23322 [52] @> Δ-52 {[«52""»]}
<POP 23334-23336 StackAdj> Δ-8 {[«52""»]|[-8-]}
<Lit 0x23336 51> {[«52""»]|[-4-]|[$$How many tracks per cylinder does this disk have ?_]}
<Const 0x23344 0x1.4> Δ-4 {[«52""»]|[-4-]|[$$How many tracks per cylinder does this disk have ?_]|[##1]}
<Const 0x23348 0xfe.4> Δ-4 {[«52""»]|[-4-]|[$$How many tracks per cylinder does this disk have ?_]|[##1]|[##254]}
<Call 0x2334c 0x103ec> {[«52""»]|[-4-]|[$$How many tracks per cylinder does this disk have ?_]|[##1]|[##254]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 23352-23354 StackAdj> Δ+12 {[«52""»]|[-4-]}
<MI 23354 MOVE.L (A7)+,D0> Δ+4 {[«52""»]}
<POP 0x23356 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[«52""»]}
<POP 23360-23364 StackAdj> Δ+52 {}
<MI 23364 MOVE.B D0,0x295fa> {}
<POP 2336a-233ba Naked> Σ0 ↓ →0x233e6 ←0x233e6
<Blob 0x2336a [50] @> Δ-50 {[«50""»]}
<POP 2337c-2337e StackAdj> Δ-8 {[«50""»]|[-8-]}
<Lit 0x2337e 49> {[«50""»]|[-4-]|[$$How many sectors per track does this disk have ?_]}
<Const 0x2338c 0x1.4> Δ-4 {[«50""»]|[-4-]|[$$How many sectors per track does this disk have ?_]|[##1]}
<Const 0x23390 0xfe.4> Δ-4 {[«50""»]|[-4-]|[$$How many sectors per track does this disk have ?_]|[##1]|[##254]}
<Call 0x23394 0x103ec> {[«50""»]|[-4-]|[$$How many sectors per track does this disk have ?_]|[##1]|[##254]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 2339a-2339c StackAdj> Δ+12 {[«50""»]|[-4-]}
<MI 2339c MOVE.L (A7)+,D0> Δ+4 {[«50""»]}
<POP 0x2339e LimitCheck 0x0 ≤ D0 ≤ 0xff> {[«50""»]}
<POP 233a8-233ac StackAdj> Δ+50 {}
<MI 233ac MOVE.B D0,0x295fb> {}
<MI 233b2 CLR.L D1> {}
<MI 233b4 MOVE.B D0,D1> {}
<MI 233b6 AND.W #0x01,D1> {}
<MI 233b8 BEQ 0x233e6> {}
<POP 233ba-233e6 Naked> Σ0 ↓
<Blob 0x233ba [32] @> Δ-32 {[«32""»]}
<POP 233cc-233ce StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x233ce 31> {[«32""»]|[$$Sectors per track must be even!]}
<Call 0x233dc 0x103e0> {[«32""»]|[$$Sectors per track must be even!]}
WriteConsoleStringCrLf(str : String)
<POP 233e2-233e6 StackAdj> Δ+36 {}
<POP 233e6-233f4 Naked> Σ0 ↓ →0x2336a ←0x2336a
<MI 233e6 CLR.L D0> {}
<MI 233e8 MOVE.B 0x295fb,D0> {}
<MI 233ee AND.W #0x01,D0> {}
<MI 233f0 BNE 0x2336a> {}
<POP 233f4-23426 Naked> Σ0 ↓ ←0x232b0
<Blob 0x233f4 [26] @> Δ-26 {[«26""»]}
<POP 23400-23402 StackAdj> Δ-12 {[«26""»]|[-12-]}
<Lit 0x23402 26> {[«26""»]|[-8-]|[$$Enter HDA serial number :_]}
<Call 0x2340e 0x103e4> {[«26""»]|[-8-]|[$$Enter HDA serial number :_]}
AskConsoleString(prompt : String) : String
<POP 23414-23416 StackAdj> Δ+4 {[«26""»]|[-8-]}
<Call 0x23416 0x102f0> {[«26""»]|[-8-]}
ToUpper(a : String) : String
<POP 2341c-2341e StackAdj> Δ+4 {[«26""»]|[-4-]}
<MI 2341e MOVE.L (A7)+,0x295ea> Δ+4 {[«26""»]}
<POP 23424-23426 StackAdj> Δ+26 {}
<POP 23426-23436 Naked> Σ0 ↓ →0x23446 ←0x23048 ←0x23054
<Blob 0x23426 [2] 0x295f6> Δ-2 {[«2»]}
<Call 0x23428 0x227a2> {[«2»]}
<POP 2342c-2342e StackAdj> Δ+2 {}
<MI 2342e TST.W 0x295e0> {}
<MI 23434 BNE 0x23446> {}
<POP 23436-23446 Naked> Σ0 ↓
<MI 23436 MOVE.W 0x295e2,D0> {}
<POP 0x2343c LimitCheck 0x0 ≤ D0 ≤ 0x5> {}
<MI 23440 MOVE.W D0,0x295e0> {}
<POP 23446-23454 Naked> Σ0 ↓ →0x235ec ←0x23426
<POP 23446-23448 StackAdj> Δ-2 {[-2-]}
<Call 0x23448 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 2344e TST.B (A7)+> Δ+2 {}
<MI 23450 BEQ 0x235ec> {}
<POP 23454-235ec Naked> Σ0 →0x23824
<MI 23454 MOVE.W 0x295e4,0x295f8> {}
<MI 2345e MOVE.W 0x295e6,D0> {}
<POP 0x23464 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 23468 MOVE.B D0,0x295fa> {}
<MI 2346e MOVE.W 0x295e8,D0> {}
<POP 0x23474 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 23478 MOVE.B D0,0x295fb> {}
<MI 2347e CLR.B 0x2da04> {}
<MI 23484 CLR.B 0x2da05> {}
<Call 0x2348a 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x23490 [34] @> Δ-34 {[«34""»]}
<Blob 0x234a2 [2] @> Δ-2 {[«34""»]|[«2""»]}
<Blob 0x234a6 [2] @> Δ-2 {[«34""»]|[«2""»]|[«2""»]}
<Blob 0x234aa [2] @> Δ-2 {[«34""»]|[«2""»]|[«2""»]|[«2""»]}
<POP 234ae-234b0 StackAdj> Δ-8 {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-8-]}
<Lit 0x234b0 33> {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$The server name for logical disk_]}
<POP 234bc-234be StackAdj> Δ-4 {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$The server name for logical disk_]|[-4-]}
<MI 234be MOVE.W 0x295f6,D0> {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$The server name for logical disk_]|[-4-]}
<MI 234c0 EXTW.L D0> {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$The server name for logical disk_]|[-4-]}
<MI 234c2 MOVE.L D0,-(A7)> Δ-4 {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$The server name for logical disk_]|[-4-]|[4, 'D0']}
<Const 0x234c4 0x1.4> Δ-4 {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$The server name for logical disk_]|[-4-]|[4, 'D0']|[##1]}
<Call 0x234c8 0x102e8> {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$The server name for logical disk_]|[-4-]|[4, 'D0']|[##1]}
Long2HexString(val : Long; ndig : Long) : String
<POP 234ce-234d0 StackAdj> Δ+4 {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$The server name for logical disk_]|[-4-]|[4, 'D0']}
<Lit 0x234d0 6> {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$The server name for logical disk_]|[-4-]|[$$ is :_]}
<POP 234dc-234dd StackAdj> Δ-4 {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$The server name for logical disk_]|[-4-]|[$$ is :_]|[-4-]}
<Blob 0x234dd [4] 0x295ea> Δ-4 {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$The server name for logical disk_]|[-4-]|[$$ is :_]|[-4-]|[«4»]}
<Call 0x234e2 0x102cc> {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$The server name for logical disk_]|[-4-]|[$$ is :_]|[-4-]|[«4»]}
StringDup(a : String) : String
<POP 234e8-234ea StackAdj> Δ+4 {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$The server name for logical disk_]|[-4-]|[$$ is :_]|[-4-]}
<Call 0x234ea 0x102d8> {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$The server name for logical disk_]|[-4-]|[$$ is :_]|[-4-]}
StringCat4(a, b, c, d : String) : String
<POP 234f0-234f2 StackAdj> Δ+16 {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Call 0x234f2 0x103e0> {[«34""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 234f8-234f9 StackAdj> Δ+44 ↓ {}
<Blob 0x234f9 [36] @> Δ-36 {[«36""»]}
<POP 23508-2350a StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x2350a 35> {[«36""»]|[$$The disk geometry (in decimal) is :]}
<Call 0x23518 0x103e0> {[«36""»]|[$$The disk geometry (in decimal) is :]}
WriteConsoleStringCrLf(str : String)
<POP 2351e-2351f StackAdj> Δ+40 ↓ {}
<Blob 0x2351f [14] @> Δ-14 {[«14""»]}
<POP 2352e-23530 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x23530 13> {[«14""»]|[-4-]|[$$Cylinders =>_]}
<POP 2353c-2353e StackAdj> Δ-4 {[«14""»]|[-4-]|[$$Cylinders =>_]|[-4-]}
<MI 2353e CLR.L D0> {[«14""»]|[-4-]|[$$Cylinders =>_]|[-4-]}
<MI 23540 MOVE.W 0x295e4,D0> {[«14""»]|[-4-]|[$$Cylinders =>_]|[-4-]}
<MI 23546 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[-4-]|[$$Cylinders =>_]|[-4-]|[4, 'D0']}
<Call 0x23548 0x102e4> {[«14""»]|[-4-]|[$$Cylinders =>_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2354e-23550 StackAdj> Δ+4 {[«14""»]|[-4-]|[$$Cylinders =>_]|[-4-]}
<Call 0x23550 0x102d0> {[«14""»]|[-4-]|[$$Cylinders =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 23556-23558 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x23558 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2355e-2355f StackAdj> Δ+18 ↓ {}
<Blob 0x2355f [14] @> Δ-14 {[«14""»]}
<POP 2356e-23570 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x23570 13> {[«14""»]|[-4-]|[$$ Tracks =>_]}
<POP 2357c-2357e StackAdj> Δ-4 {[«14""»]|[-4-]|[$$ Tracks =>_]|[-4-]}
<MI 2357e MOVE.W 0x295e6,D0> {[«14""»]|[-4-]|[$$ Tracks =>_]|[-4-]}
<MI 23584 EXTW.L D0> {[«14""»]|[-4-]|[$$ Tracks =>_]|[-4-]}
<MI 23586 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[-4-]|[$$ Tracks =>_]|[-4-]|[4, 'D0']}
<Call 0x23588 0x102e4> {[«14""»]|[-4-]|[$$ Tracks =>_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2358e-23590 StackAdj> Δ+4 {[«14""»]|[-4-]|[$$ Tracks =>_]|[-4-]}
<Call 0x23590 0x102d0> {[«14""»]|[-4-]|[$$ Tracks =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 23596-23598 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x23598 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2359e-2359f StackAdj> Δ+18 ↓ {}
<Blob 0x2359f [14] @> Δ-14 {[«14""»]}
<POP 235ae-235b0 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x235b0 13> {[«14""»]|[-4-]|[$$ Sectors =>_]}
<POP 235bc-235be StackAdj> Δ-4 {[«14""»]|[-4-]|[$$ Sectors =>_]|[-4-]}
<MI 235be MOVE.W 0x295e8,D0> {[«14""»]|[-4-]|[$$ Sectors =>_]|[-4-]}
<MI 235c4 EXTW.L D0> {[«14""»]|[-4-]|[$$ Sectors =>_]|[-4-]}
<MI 235c6 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[-4-]|[$$ Sectors =>_]|[-4-]|[4, 'D0']}
<Call 0x235c8 0x102e4> {[«14""»]|[-4-]|[$$ Sectors =>_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 235ce-235d0 StackAdj> Δ+4 {[«14""»]|[-4-]|[$$ Sectors =>_]|[-4-]}
<Call 0x235d0 0x102d0> {[«14""»]|[-4-]|[$$ Sectors =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 235d6-235d8 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x235d8 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 235de-235e2 StackAdj> Δ+18 {}
<Call 0x235e2 0x103dc> {}
WriteConsoleCrLf(void)
<MI 235e8 BRA 0x23824> {}
<POP 235ec-2360a Naked> Σ0 ↓ →0x23624 ←0x23446
<MI 235ec MOVE.W 0x295e2,D0> {}
<POP 0x235f2 LimitCheck 0x0 ≤ D0 ≤ 0x5> {}
<MI 235f6 ASL.W #0x2,D0> {}
<MI 235f8 LEA.L 0x295b8,A0> {}
<MI 235fe MOVE.W (A0+D0.W+#0x10),D1> {}
<MI 23602 CMP.W 0x295f8,D1> {}
<MI 23608 BNE 0x23624> {}
<POP 2360a-23616 Naked> Σ0 ↓ →0x23624
<MI 2360a MOVE.B (A0+D0.W+#0x12),D1> {}
<MI 2360e CMP.B 0x295fa,D1> {}
<MI 23614 BNE 0x23624> {}
<POP 23616-23624 Naked> Σ0 ↓ →0x23818
<MI 23616 MOVE.B (A0+D0.W+#0x13),D0> {}
<MI 2361a CMP.B 0x295fb,D0> {}
<MI 23620 BEQ 0x23818> {}
<POP 23624-2362a Naked> Σ0 ↓ →0x23654 ←0x235ec ←0x2360a
<MI 23624 TST.B (A6+0x8)> {}
<MI 23628 BEQ 0x23654> {}
<POP 2362a-23654 Naked> Σ0 ↓
<Blob 0x2362a [50] @> Δ-50 {[«50""»]}
<POP 2363c-2363e StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x2363e 49> {[«50""»]|[$$Drive label geometry disagrees with slew settings]}
<Call 0x2364c 0x224cc> {[«50""»]|[$$Drive label geometry disagrees with slew settings]}
<POP 23650-23654 StackAdj> Δ+54 {}
<POP 23654-23672 Naked> Σ0 ↓ →0x2368c ←0x23624
<MI 23654 MOVE.W 0x295e2,D0> {}
<POP 0x2365a LimitCheck 0x0 ≤ D0 ≤ 0x5> {}
<MI 2365e ASL.W #0x2,D0> {}
<MI 23660 LEA.L 0x295b8,A0> {}
<MI 23666 MOVE.W (A0+D0.W+#0x10),D1> {}
<MI 2366a CMP.W 0x295f8,D1> {}
<MI 23670 BHI 0x2368c> {}
<POP 23672-2367e Naked> Σ0 ↓ →0x2368c
<MI 23672 MOVE.B (A0+D0.W+#0x12),D1> {}
<MI 23676 CMP.B 0x295fa,D1> {}
<MI 2367c BHI 0x2368c> {}
<POP 2367e-2368c Naked> Σ0 ↓ →0x23768
<MI 2367e MOVE.B (A0+D0.W+#0x13),D0> {}
<MI 23682 CMP.B 0x295fb,D0> {}
<MI 23688 BLS 0x23768> {}
<POP 2368c-23768 Naked> Σ0 ↓ ←0x23654 ←0x23672
<MI 2368c MOVE.B #0x01,0x2da04> {}
<Call 0x23692 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x23698 [72] @> Δ-72 {[«72""»]}
<POP 236a4-236a6 StackAdj> Δ-4 {[«72""»]|[-4-]}
<Lit 0x236a6 72> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
<Call 0x236b4 0x103e0> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
WriteConsoleStringCrLf(str : String)
<POP 236ba-236be StackAdj> Δ+76 {}
<Blob 0x236be [72] @> Δ-72 {[«72""»]}
<POP 236ca-236cc StackAdj> Δ-4 {[«72""»]|[-4-]}
<Lit 0x236cc 72> {[«72""»]|[$$Drive geometry has grown, the defect data from drive are insufficient to]}
<Call 0x236da 0x103e0> {[«72""»]|[$$Drive geometry has grown, the defect data from drive are insufficient to]}
WriteConsoleStringCrLf(str : String)
<POP 236e0-236e4 StackAdj> Δ+76 {}
<Blob 0x236e4 [70] @> Δ-70 {[«70""»]}
<POP 236f0-236f2 StackAdj> Δ-4 {[«70""»]|[-4-]}
<Lit 0x236f2 70> {[«70""»]|[$$reconstruct a proper defect representation, a defect tape is required.]}
<Call 0x23700 0x103e0> {[«70""»]|[$$reconstruct a proper defect representation, a defect tape is required.]}
WriteConsoleStringCrLf(str : String)
<POP 23706-2370a StackAdj> Δ+74 {}
<Blob 0x2370a [72] @> Δ-72 {[«72""»]}
<POP 23716-23718 StackAdj> Δ-4 {[«72""»]|[-4-]}
<Lit 0x23718 72> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
<Call 0x23726 0x103e0> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
WriteConsoleStringCrLf(str : String)
<POP 2372c-23730 StackAdj> Δ+76 {}
<Call 0x23730 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x23736 [26] @> Δ-26 {[«26""»]}
<POP 23742-23744 StackAdj> Δ-12 {[«26""»]|[-12-]}
<Lit 0x23744 26> {[«26""»]|[-8-]|[$$Enter HDA serial number :_]}
<Call 0x23750 0x103e4> {[«26""»]|[-8-]|[$$Enter HDA serial number :_]}
AskConsoleString(prompt : String) : String
<POP 23756-23758 StackAdj> Δ+4 {[«26""»]|[-8-]}
<Call 0x23758 0x102f0> {[«26""»]|[-8-]}
ToUpper(a : String) : String
<POP 2375e-23760 StackAdj> Δ+4 {[«26""»]|[-4-]}
<MI 23760 MOVE.L (A7)+,0x295ea> Δ+4 {[«26""»]}
<POP 23766-23768 StackAdj> Δ+26 {}
<POP 23768-23818 Naked> Σ0 →0x23824 ←0x2367e
<MI 23768 MOVE.W 0x295e2,D0> {}
<POP 0x2376e LimitCheck 0x0 ≤ D0 ≤ 0x5> {}
<MI 23772 ASL.W #0x2,D0> {}
<MI 23774 LEA.L 0x295b8,A0> {}
<MI 2377a MOVE.W (A0+D0.W+#0x10),0x295f8> {}
<MI 23782 MOVE.B (A0+D0.W+#0x12),0x295fa> {}
<MI 2378a MOVE.B (A0+D0.W+#0x13),0x295fb> {}
<Call 0x23792 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x23798 [72] @> Δ-72 {[«72""»]}
<POP 237a4-237a6 StackAdj> Δ-4 {[«72""»]|[-4-]}
<Lit 0x237a6 72> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
<Call 0x237b4 0x103e0> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
WriteConsoleStringCrLf(str : String)
<POP 237ba-237bb StackAdj> Δ+76 ↓ {}
<Blob 0x237bb [70] @> Δ-70 {[«70""»]}
<POP 237ca-237cc StackAdj> Δ-4 {[«70""»]|[-4-]}
<Lit 0x237cc 69> {[«70""»]|[$$SLEW settings differ from drive settings, SLEW settings will prevail.]}
<Call 0x237da 0x103e0> {[«70""»]|[$$SLEW settings differ from drive settings, SLEW settings will prevail.]}
WriteConsoleStringCrLf(str : String)
<POP 237e0-237e4 StackAdj> Δ+74 {}
<Blob 0x237e4 [72] @> Δ-72 {[«72""»]}
<POP 237f0-237f2 StackAdj> Δ-4 {[«72""»]|[-4-]}
<Lit 0x237f2 72> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
<Call 0x23800 0x103e0> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
WriteConsoleStringCrLf(str : String)
<POP 23806-2380a StackAdj> Δ+76 {}
<Call 0x2380a 0x103dc> {}
WriteConsoleCrLf(void)
<MI 23810 MOVE.B #0x01,0x2da05> {}
<MI 23816 BRA 0x23824> {}
<POP 23818-23824 Naked> Σ0 ↓ ←0x23616
<MI 23818 CLR.B 0x2da04> {}
<MI 2381e CLR.B 0x2da05> {}
<POP 23824-23860 Naked> Σ0 ↓ →0x238e8 ←0x23454 ←0x23768
<MI 23824 CLR.L D0> {}
<MI 23826 MOVE.B 0x295fb,D0> {}
<MI 2382c ASR.W #0x1,D0> {}
<MI 2382e MOVE.W D0,0x1000a> {}
<MI 23834 CLR.L D0> {}
<MI 23836 MOVE.B 0x295fa,D0> {}
<MI 2383c MULU.W 0x1000a,D0> {}
<POP 0x23842 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 2384c MOVE.W D0,0x1000c> {}
<POP 23852-23854 StackAdj> Δ-2 {[-2-]}
<Call 0x23854 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 2385a TST.B (A7)+> Δ+2 {}
<MI 2385c BNE 0x238e8> {}
<POP 23860-2386a Naked> Σ0 ↓ →0x238e8
<POP 23860-23862 StackAdj> Δ-2 {[-2-]}
<Call 0x23862 0x22c16> {[-2-]}
<MI 23866 TST.B (A7)+> Δ+2 {}
<MI 23868 BEQ 0x238e8> {}
<POP 2386a-238e8 Naked> Σ0 ↓
<Call 0x2386a 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x23870 [72] @> Δ-72 {[«72""»]}
<POP 2387c-2387e StackAdj> Δ-4 {[«72""»]|[-4-]}
<Lit 0x2387e 72> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
<Call 0x2388c 0x103e0> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
WriteConsoleStringCrLf(str : String)
<POP 23892-23896 StackAdj> Δ+76 {}
<Blob 0x23896 [44] @> Δ-44 {[«44""»]}
<POP 238a2-238a4 StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x238a4 44> {[«44""»]|[$$Please UNPROTECT the drive before continuing]}
<Call 0x238b2 0x103e0> {[«44""»]|[$$Please UNPROTECT the drive before continuing]}
WriteConsoleStringCrLf(str : String)
<POP 238b8-238bc StackAdj> Δ+48 {}
<Blob 0x238bc [72] @> Δ-72 {[«72""»]}
<POP 238c8-238ca StackAdj> Δ-4 {[«72""»]|[-4-]}
<Lit 0x238ca 72> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
<Call 0x238d8 0x103e0> {[«72""»]|[$$ ------- WARNING ------- WARNING ------- WARNING -------]}
WriteConsoleStringCrLf(str : String)
<POP 238de-238e2 StackAdj> Δ+76 {}
<Call 0x238e2 0x103dc> {}
WriteConsoleCrLf(void)
<POP 238e8-238f0 Epilogue> Σ0 ←0x23824 ←0x23860
@ 238f0
<LVAR 0x008 4(r)>
<LVAR -0x002 2(rw)>
<LVAR -0x010 @ 1(r)>
<POP 238f0-23a4c Body>
<POP 238f0-23906 Prologue> Σ0 ↓
<POP 23906-2390e RegCacheLoad> Σ0 ↓
<POP 2390e-23970 Naked> Σ0 ↓ →0x239a2
<MI 2390e MOVEA.L (A6+0x8),A0> {}
<MI 23912 CLR.B (A0)> {}
<MI 23914 CLR.L D0> {}
<MI 23916 MOVE.B 0x29612,D0> {}
<MI 2391c CLR.L D1> {}
<MI 2391e MOVE.B 0x295fb,D1> {}
<MI 23924 MULU.W D1,D0> {}
<MI 23926 CLR.L D2> {}
<MI 23928 MOVE.B 0x29613,D2> {}
<MI 2392e ADDQ.W #0x1,D2> {}
<MI 23930 ADD.W D0,D2> {}
<MI 23932 LSR.W #0x1,D2> {}
<MI 23934 MOVE.W D2,D5> {}
<MI 23936 CLR.L D0> {}
<MI 23938 MOVE.B 0x29616,D0> {}
<MI 2393e MULU.W D1,D0> {}
<MI 23940 CLR.L D1> {}
<MI 23942 MOVE.B 0x29617,D1> {}
<MI 23948 SUBQ.W #0x1,D1> {}
<MI 2394a CLR.L D2> {}
<MI 2394c MOVE.W D0,D2> {}
<MI 2394e EXTW.L D1> {}
<MI 23950 ADD.L D2,D1> {}
<MI 23952 MOVE.L D1,D4> {}
<MI 23954 MOVEQ.L #0x02,D3> {}
<Call 0x23956 0x10294> {}
?divs_d3_d4
<MI 2395c MOVE.W D4,(A6-0x2)> {}
<MI 2395e CLR.L D0> {}
<MI 23960 MOVE.W (A6-0x2),D0> {}
<MI 23962 CLR.L D1> {}
<MI 23964 MOVE.W D5,D1> {}
<MI 23966 SUB.L D1,D0> {}
<MI 23968 CMPI.L #0x0000000f,D0> {}
<MI 2396e BEQ 0x239a2> {}
<POP 23970-239a2 Naked> Σ0 ↓
<Blob 0x23970 [50] @> Δ-50 {[«50""»]}
<POP 23982-23984 StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x23984 49> {[«50""»]|[$$--- WARNING: bad block area is not 16 blocks long]}
<Call 0x23998 0x103e0> {[«50""»]|[$$--- WARNING: bad block area is not 16 blocks long]}
WriteConsoleStringCrLf(str : String)
<POP 2399e-239a2 StackAdj> Δ+54 {}
<POP 239a2-239a6 Naked> Σ0 ↓ ←0x2390e
<MI 239a2 MOVEQ.L #0x00,D6> {}
<MI 239a4 MOVE.W D1,D7> {}
<POP 239a6-239e2 Naked> Σ0 ↓ →0x23a16 ←0x23a32
<POP 0x239a6 LimitCheck 0x0 ≤ D6 ≤ 0x7ff> {}
<MI 239b0 MOVE.L D6,D0> {}
<MI 239b2 ASL.L #0x2,D0> {}
<MI 239b4 LEA.L 0x295b8,A0> {}
<MI 239ba LEA.L (A0+D0.L),A0> {}
<MI 239be LEA.L (A0+0x44c),A0> {}
<MI 239c2 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 239c4 MOVEA.L (A7)+,A4> Δ+4 {}
<Const 0x239c6 0x2.2> Δ-2 {[#2]}
<MI 239ca MOVE.W D7,-(A7)> Δ-2 {[#2]|[2, 'D7']}
<Const 0x239cc 0x1.4> Δ-4 {[#2]|[2, 'D7']|[##1]}
<MI 239d0 MOVE.L A4,-(A7)> Δ-4 {[#2]|[2, 'D7']|[##1]|[4, 'A4']}
<Pointer.fp 0x239d2 <LVAR -0x010 @ 1(r)>> Δ-4 {[#2]|[2, 'D7']|[##1]|[4, 'A4']|[@@-16]}
<Call 0x239d4 0x1036c> {[#2]|[2, 'D7']|[##1]|[4, 'A4']|[@@-16]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 239da-239de StackAdj> Δ+16 {}
<MI 239de TST.B (A6-0x10)> {}
<MI 239e0 BNE 0x23a16> {}
<POP 239e2-23a16 Naked> Σ0 →0x23a2e
<Blob 0x239e2 [58] @> Δ-58 {[«58""»]}
<POP 239f4-239f6 StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x239f6 57> {[«58""»]|[$$Can't read bad block list area on disk due to disk errors]}
<Call 0x23a0a 0x103e0> {[«58""»]|[$$Can't read bad block list area on disk due to disk errors]}
WriteConsoleStringCrLf(str : String)
<POP 23a10-23a14 StackAdj> Δ+62 {}
<MI 23a14 BRA 0x23a2e> {}
<POP 23a16-23a2e Naked> Σ0 ↓ ←0x239a6
<MI 23a16 ADDI.L #0x00000100,D6> {}
<MI 23a1c CLR.L D0> {}
<MI 23a1e MOVE.W D7,D0> {}
<MI 23a20 ADDQ.L #0x2,D0> {}
<POP 0x23a22 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 23a2c MOVE.W D0,D7> {}
<POP 23a2e-23a32 Naked> Σ0 ↓ →0x23a38 ←0x239e2
<MI 23a2e CMP.W (A6-0x2),D7> {}
<MI 23a30 BHI 0x23a38> {}
<POP 23a32-23a38 Naked> Σ0 ↓ →0x239a6
<MI 23a32 TST.B (A6-0x10)> {}
<MI 23a34 BNE 0x239a6> {}
<POP 23a38-23a3c Naked> Σ0 ↓ →0x23a44 ←0x23a2e
<MI 23a38 TST.B (A6-0x10)> {}
<MI 23a3a BEQ 0x23a44> {}
<POP 23a3c-23a44 Naked> Σ0 ↓
<MI 23a3c MOVEA.L (A6+0x8),A0> {}
<MI 23a40 MOVE.B #0x01,(A0)> {}
<POP 23a44-23a4c Epilogue> Σ0 ←0x23a38
@ 23a4c
<LVAR 0x008 4(r)>
<LVAR -0x002 2(rw)>
<LVAR -0x010 @ 1(r)>
<POP 23a4c-23b5e Body>
<POP 23a4c-23a62 Prologue> Σ0 ↓
<POP 23a62-23a66 RegCacheLoad> Σ0 ↓
<POP 23a66-23abc Naked> Σ0 ↓
<MI 23a66 MOVEA.L (A6+0x8),A0> {}
<MI 23a6a CLR.B (A0)> {}
<MI 23a6c CLR.L D0> {}
<MI 23a6e MOVE.B 0x2961a,D0> {}
<MI 23a74 CLR.L D1> {}
<MI 23a76 MOVE.B 0x295fb,D1> {}
<MI 23a7c MULU.W D1,D0> {}
<MI 23a7e CLR.L D2> {}
<MI 23a80 MOVE.B 0x2961b,D2> {}
<MI 23a86 ADDQ.W #0x1,D2> {}
<MI 23a88 ADD.W D0,D2> {}
<MI 23a8a LSR.W #0x1,D2> {}
<MI 23a8c MOVE.W D2,D5> {}
<MI 23a8e CLR.L D0> {}
<MI 23a90 MOVE.B 0x2961e,D0> {}
<MI 23a96 MULU.W D1,D0> {}
<MI 23a98 CLR.L D1> {}
<MI 23a9a MOVE.B 0x2961f,D1> {}
<MI 23aa0 SUBQ.W #0x1,D1> {}
<MI 23aa2 CLR.L D2> {}
<MI 23aa4 MOVE.W D0,D2> {}
<MI 23aa6 EXTW.L D1> {}
<MI 23aa8 ADD.L D2,D1> {}
<MI 23aaa MOVE.L D1,D4> {}
<MI 23aac MOVEQ.L #0x02,D3> {}
<Call 0x23aae 0x10294> {}
?divs_d3_d4
<MI 23ab4 MOVE.W D4,(A6-0x2)> {}
<MI 23ab8 MOVEQ.L #0x00,D6> {}
<MI 23aba MOVE.W D5,D7> {}
<POP 23abc-23af8 Naked> Σ0 ↓ →0x23b26 ←0x23b44
<POP 0x23abc LimitCheck 0x0 ≤ D6 ≤ 0x7ff> {}
<MI 23ac6 MOVE.L D6,D0> {}
<MI 23ac8 ASL.L #0x2,D0> {}
<MI 23aca LEA.L 0x295b8,A0> {}
<MI 23ad0 LEA.L (A0+D0.L),A0> {}
<MI 23ad4 LEA.L (A0+0x244c),A0> {}
<MI 23ad8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23ada MOVEA.L (A7)+,A4> Δ+4 {}
<Const 0x23adc 0x2.2> Δ-2 {[#2]}
<MI 23ae0 MOVE.W D7,-(A7)> Δ-2 {[#2]|[2, 'D7']}
<Const 0x23ae2 0x1.4> Δ-4 {[#2]|[2, 'D7']|[##1]}
<MI 23ae6 MOVE.L A4,-(A7)> Δ-4 {[#2]|[2, 'D7']|[##1]|[4, 'A4']}
<Pointer.fp 0x23ae8 <LVAR -0x010 @ 1(r)>> Δ-4 {[#2]|[2, 'D7']|[##1]|[4, 'A4']|[@@-16]}
<Call 0x23aea 0x1036c> {[#2]|[2, 'D7']|[##1]|[4, 'A4']|[@@-16]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 23af0-23af4 StackAdj> Δ+16 {}
<MI 23af4 TST.B (A6-0x10)> {}
<MI 23af6 BNE 0x23b26> {}
<POP 23af8-23b26 Naked> Σ0 →0x23b3e
<Blob 0x23af8 [62] @> Δ-62 {[«62""»]}
<POP 23b04-23b06 StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x23b06 62> {[«62""»]|[$$Can't read retarget block list area on disk due to disk errors]}
<Call 0x23b1a 0x103e0> {[«62""»]|[$$Can't read retarget block list area on disk due to disk errors]}
WriteConsoleStringCrLf(str : String)
<POP 23b20-23b24 StackAdj> Δ+66 {}
<MI 23b24 BRA 0x23b3e> {}
<POP 23b26-23b3e Naked> Σ0 ↓ ←0x23abc
<MI 23b26 ADDI.L #0x00000100,D6> {}
<MI 23b2c CLR.L D0> {}
<MI 23b2e MOVE.W D7,D0> {}
<MI 23b30 ADDQ.L #0x2,D0> {}
<POP 0x23b32 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 23b3c MOVE.W D0,D7> {}
<POP 23b3e-23b44 Naked> Σ0 ↓ →0x23b4a ←0x23af8
<MI 23b3e CMP.W (A6-0x2),D7> {}
<MI 23b42 BHI 0x23b4a> {}
<POP 23b44-23b4a Naked> Σ0 ↓ →0x23abc
<MI 23b44 TST.B (A6-0x10)> {}
<MI 23b46 BNE 0x23abc> {}
<POP 23b4a-23b4e Naked> Σ0 ↓ →0x23b56 ←0x23b3e
<MI 23b4a TST.B (A6-0x10)> {}
<MI 23b4c BEQ 0x23b56> {}
<POP 23b4e-23b56 Naked> Σ0 ↓
<MI 23b4e MOVEA.L (A6+0x8),A0> {}
<MI 23b52 MOVE.B #0x01,(A0)> {}
<POP 23b56-23b5e Epilogue> Σ0 ←0x23b4a
@ 23b5e
<LVAR 0x008 4(r)>
<LVAR -0x004 1(rw)>
<LVAR -0x01c 2(r)>
<LVAR -0x026 2(r)>
<LVAR -0x044 @>
<LVAR -0x04a @ 4(rw)>
<LVAR -0x04e @ 4(rw)>
<LVAR -0x05e 4(rw)>
<LVAR -0x060 @ 1(r)>
<POP 23b5e-23ed2 Body>
<POP 23b5e-23b74 Prologue> Σ0 ↓
<POP 23b74-23b84 RegCacheLoad> Σ0 ↓
<POP 23b84-23b90 Naked> Σ0 ↓ →0x23b94
<POP 23b84-23b86 StackAdj> Δ-2 {[-2-]}
<Call 0x23b86 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 23b8c TST.B (A7)+> Δ+2 {}
<MI 23b8e BEQ 0x23b94> {}
<POP 23b90-23b94 Naked> Σ0 →0x23ec4
<MI 23b90 BRA 0x23ec4> {}
<POP 23b94-23bcc Naked> Σ0 ↓ ←0x23b84
<MI 23b94 MOVEA.L (A6+0x8),A0> {}
<MI 23b98 CLR.B (A0)> {}
<Blob 0x23b9a [4] @> Δ-4 {[«4""»]}
<Blob 0x23b9e [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 23ba2-23ba4 StackAdj> Δ-8 {[«4""»]|[«4""»]|[-8-]}
<Blob 0x23ba4 [4] 0x295ea> Δ-4 {[«4""»]|[«4""»]|[-8-]|[«4»]}
<Call 0x23baa 0x102cc> {[«4""»]|[«4""»]|[-8-]|[«4»]}
StringDup(a : String) : String
<Lit 0x23bb0 8> {[«4""»]|[«4""»]|[-8-]|[$$.DEFECTS]}
<Call 0x23bbe 0x102d0> {[«4""»]|[«4""»]|[-8-]|[$$.DEFECTS]}
StringCat2(a, b : String) : String
<POP 23bc4-23bc6 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 23bc6 MOVE.L (A7)+,(A6-0x4a)> Δ+4 {[«4""»]|[«4""»]}
<POP 23bca-23bcc StackAdj> Δ+8 {}
<POP 23bcc-23c22 Naked> Σ0 ↓ →0x23c2e ←0x23c2e
<Blob 0x23bcc [62] @> Δ-62 {[«62""»]}
<POP 23bdc-23bde StackAdj> Δ-8 {[«62""»]|[-8-]}
<Lit 0x23bde 61> {[«62""»]|[-4-]|[$$Enter unit number of tape drive with bad block information :_]}
<Const 0x23bec 0x0.4> Δ-4 {[«62""»]|[-4-]|[$$Enter unit number of tape drive with bad block information :_]|[##0]}
<Const 0x23bf0 0x3.4> Δ-4 {[«62""»]|[-4-]|[$$Enter unit number of tape drive with bad block information :_]|[##0]|[##3]}
<Call 0x23bf4 0x103ec> {[«62""»]|[-4-]|[$$Enter unit number of tape drive with bad block information :_]|[##0]|[##3]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 23bfa-23bfe StackAdj> Δ+12 {[«62""»]|[-4-]}
<MI 23bfe MOVE.L (A7)+,D0> Δ+4 {[«62""»]}
<POP 0x23c00 LimitCheck 0x0 ≤ D0 ≤ 0x3> {[«62""»]}
<POP 23c06-23c08 StackAdj> Δ+62 {}
<MI 23c08 MOVE.W D0,D5> {}
<POP 0x23c0a LimitCheck 0x0 ≤ D5 ≤ 0x3> {}
<MI 23c0c MOVE.W D5,-(A7)> Δ-2 {[2, 'D5']}
<MI 23c0e CLR.B -(A7)> Δ-2 {[2, 'D5']|[#0]}
<Const 0x23c10 0x1.2> Δ-2 {[2, 'D5']|[#0]|[#1]}
<Pointer.fp 0x23c12 <LVAR -0x060 @ 1(r)>> Δ-4 {[2, 'D5']|[#0]|[#1]|[@@-96]}
<Call 0x23c14 0x1040c> {[2, 'D5']|[#0]|[#1]|[@@-96]}
FSCALL_1040c
<POP 23c1a-23c1e StackAdj> Δ+10 {}
<MI 23c1e TST.B (A6-0x60)> {}
<MI 23c20 BEQ 0x23c2e> {}
<POP 23c22-23c2e Naked> Σ0 ↓
<Const 0x23c22 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x23c24 <LVAR -0x060 @ 1(r)>> Δ-4 {[#1]|[@@-96]}
<Call 0x23c26 0x10428> {[#1]|[@@-96]}
FSCALL_10428
<POP 23c2c-23c2e StackAdj> Δ+6 {}
<POP 23c2e-23c32 Naked> Σ0 ↓ →0x23bcc ←0x23bcc
<MI 23c2e TST.B (A6-0x60)> {}
<MI 23c30 BNE 0x23bcc> {}
<POP 23c32-23c40 Naked> Σ0 ↓
<MI 23c32 LEA.L (A6-0x44),A0> {}
<MI 23c36 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23c38 MOVE.L (A7)+,(A6-0x5e)> Δ+4 {}
<MI 23c3c MOVEA.L (A6-0x5e),A4> {}
<POP 23c40-23c62 Naked> Σ0 ↓ →0x23c7c ←0x23e14
<MI 23c40 MOVE.L (A6-0x5e),-(A7)> Δ-4 {[4, '(A6-0x5e)']}
<Const 0x23c44 0x40.2> Δ-2 {[4, '(A6-0x5e)']|[#64]}
<Call 0x23c48 0x10418> {[4, '(A6-0x5e)']|[#64]}
FSCALL_10418
<POP 23c4e-23c50 StackAdj> Δ+6 {}
<Pointer.fp 0x23c50 <LVAR -0x060 @ 1(r)>> Δ-4 {[@@-96]}
<Call 0x23c52 0x10408> {[@@-96]}
FSCALL_10408
<POP 23c58-23c5a StackAdj> Δ+4 {}
<MI 23c5a MOVE.B (A6-0x60),D0> {}
<MI 23c5c CMPI.B #0x06,D0> {}
<MI 23c60 BNE 0x23c7c> {}
<POP 23c62-23c7c Naked> Σ0 ↓
<MI 23c62 MOVE.L (A6-0x5e),-(A7)> Δ-4 {[4, '(A6-0x5e)']}
<Const 0x23c66 0x40.2> Δ-2 {[4, '(A6-0x5e)']|[#64]}
<Call 0x23c6a 0x10418> {[4, '(A6-0x5e)']|[#64]}
FSCALL_10418
<POP 23c70-23c72 StackAdj> Δ+6 {}
<Pointer.fp 0x23c72 <LVAR -0x060 @ 1(r)>> Δ-4 {[@@-96]}
<Call 0x23c74 0x10408> {[@@-96]}
FSCALL_10408
<POP 23c7a-23c7c StackAdj> Δ+4 {}
<POP 23c7c-23c84 Naked> Σ0 ↓ →0x23cba ←0x23c40
<MI 23c7c MOVE.B (A6-0x60),D0> {}
<MI 23c7e CMPI.B #0x06,D0> {}
<MI 23c82 BNE 0x23cba> {}
<POP 23c84-23cba Naked> Σ0 ↓
<Call 0x23c84 0x10410> {}
FSCALL_10410
<Pointer.fp 0x23c8a <LVAR -0x04a @ 4(rw)>> Δ-4 {[@@-74]}
<Call 0x23c8e 0x102bc> {[@@-74]}
FreeString(VAR a : String)
<POP 23c94-23c96 StackAdj> Δ+4 {}
<Blob 0x23c96 [20] @> Δ-20 {[«20""»]}
<POP 23ca2-23ca4 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x23ca4 20> {[«20""»]|[$$Found EOT, Aborting!]}
<Call 0x23cb2 0x224cc> {[«20""»]|[$$Found EOT, Aborting!]}
<POP 23cb6-23cba StackAdj> Δ+24 {}
<POP 23cba-23cbe Naked> Σ0 ↓ →0x23d04 ←0x23c7c
<MI 23cba TST.B D0> {}
<MI 23cbc BEQ 0x23d04> {}
<POP 23cbe-23d04 Naked> Σ0 ↓
<Const 0x23cbe 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x23cc0 <LVAR -0x060 @ 1(r)>> Δ-4 {[#1]|[@@-96]}
<Call 0x23cc2 0x10428> {[#1]|[@@-96]}
FSCALL_10428
<POP 23cc8-23cca StackAdj> Δ+6 {}
<Call 0x23cca 0x10410> {}
FSCALL_10410
<Pointer.fp 0x23cd0 <LVAR -0x04a @ 4(rw)>> Δ-4 {[@@-74]}
<Call 0x23cd4 0x102bc> {[@@-74]}
FreeString(VAR a : String)
<POP 23cda-23cdb StackAdj> Δ+4 ↓ {}
<Blob 0x23cdb [44] @> Δ-44 {[«44""»]}
<POP 23cec-23cee StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x23cee 43> {[«44""»]|[$$Can't read tape. Bad tape or wrong format.]}
<Call 0x23cfc 0x224cc> {[«44""»]|[$$Can't read tape. Bad tape or wrong format.]}
<POP 23d00-23d04 StackAdj> Δ+48 {}
<POP 23d04-23d0c Naked> Σ0 ↓ →0x23d46 ←0x23cba
<MI 23d04 MOVE.W (A6-0x1c),D0> {}
<MI 23d08 CMP.W #0x01,D0> {}
<MI 23d0a BEQ 0x23d46> {}
<POP 23d0c-23d46 Naked> Σ0 ↓
<Call 0x23d0c 0x10410> {}
FSCALL_10410
<Pointer.fp 0x23d12 <LVAR -0x04a @ 4(rw)>> Δ-4 {[@@-74]}
<Call 0x23d16 0x102bc> {[@@-74]}
FreeString(VAR a : String)
<POP 23d1c-23d1d StackAdj> Δ+4 ↓ {}
<Blob 0x23d1d [40] @> Δ-40 {[«40""»]}
<POP 23d2e-23d30 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x23d30 39> {[«40""»]|[$$Obsolete tape header version, aborting!]}
<Call 0x23d3e 0x224cc> {[«40""»]|[$$Obsolete tape header version, aborting!]}
<POP 23d42-23d46 StackAdj> Δ+44 {}
<POP 23d46-23d9c Naked> Σ0 ↓ →0x23e14 ←0x23d04
<Blob 0x23d46 [30] (A6-0x26)> Δ-30 {[«30»]}
<POP 23d52-23d54 StackAdj> Δ-8 {[«30»]|[-8-]}
<Lit 0x23d54> {[«30»]|[-4-]|[$$…]}
<Pointer.sp 0x23d54 8> Δ-4
<Const 0x23d58 0x1.2> Δ-2
<Const 0x23d5a 0x1e.2> Δ-2
<Call 0x23d5e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23d60-23d62 StackAdj> Δ+8
<Call 0x23d62 0x102f0> {[«30»]|[-4-]|[$$…]}
ToUpper(a : String) : String
<POP 23d68-23d6a StackAdj> Δ+4 {[«30»]|[-4-]}
<MI 23d6a MOVE.L (A7)+,(A6-0x4e)> Δ+4 {[«30»]}
<POP 23d6e-23d72 StackAdj> Δ+24 {[-6-]}
<MI 23d72 MOVE.L (A6-0x4e),(A7)> {[-2-]|[4, '(A6-0x4e)']}
<MI 23d76 MOVE.L (A6-0x4a),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x4e)']|[4, '(A6-0x4a)']}
<Call 0x23d7a 0x102c8> {[-2-]|[4, '(A6-0x4e)']|[4, '(A6-0x4a)']}
StringEqual(a, b : String) : Byte
<POP 23d80-23d82 StackAdj> Δ+8 {[-2-]}
<MI 23d82 MOVE.B (A7)+,D0> Δ+2 {}
<MI 23d84 EXTB.W D0> {}
<POP 0x23d86 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 23d88 MOVE.B D0,(A6-0x4)> {}
<Pointer.fp 0x23d8c <LVAR -0x04e @ 4(rw)>> Δ-4 {[@@-78]}
<Call 0x23d90 0x102bc> {[@@-78]}
FreeString(VAR a : String)
<POP 23d96-23d98 StackAdj> Δ+4 {}
<MI 23d98 TST.B D0> {}
<MI 23d9a BNE 0x23e14> {}
<POP 23d9c-23da8 Naked> Σ0 Δ-4 ↓
<MI 23d9c MOVE.W (A6-0x26),D0> {}
<MI 23da0 SUBQ.W #0x1,D0> {}
<MI 23da2 EXTW.L D0> {}
<MI 23da4 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23da6 MOVEQ.L #0x00,D6> {[4, 'D0']}
<POP 23da8-23dac Naked> Σ-4 ↓ →0x23e12 ←0x23e0e
<MI 23da8 CMP.L (A7),D6> {[-4-]}
<MI 23daa BGT 0x23e12> {[-4-]}
<POP 23dac-23dd2 Naked> Σ-4 ↓ →0x23e0e
<MI 23dac LEA.L 0x29a04,A0> {[-4-]}
<MI 23db2 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<MI 23db4 MOVE.L (A7)+,D7> Δ+4 {[-4-]}
<MI 23db6 MOVE.L D7,-(A7)> Δ-4 {[-4-]|[4, 'D7']}
<Const 0x23db8 0x400.2> Δ-2 {[-4-]|[4, 'D7']|[#1024]}
<Call 0x23dbc 0x10418> {[-4-]|[4, 'D7']|[#1024]}
FSCALL_10418
<POP 23dc2-23dc4 StackAdj> Δ+6 {[-4-]}
<Pointer.fp 0x23dc4 <LVAR -0x060 @ 1(r)>> Δ-4 {[-4-]|[@@-96]}
<Call 0x23dc6 0x10408> {[-4-]|[@@-96]}
FSCALL_10408
<POP 23dcc-23dce StackAdj> Δ+4 {[-4-]}
<MI 23dce TST.B (A6-0x60)> {[-4-]}
<MI 23dd0 BEQ 0x23e0e> {[-4-]}
<POP 23dd2-23e0e Naked> Σ-4 ↓
<Const 0x23dd2 0x1.2> Δ-2 {[-4-]|[#1]}
<Pointer.fp 0x23dd4 <LVAR -0x060 @ 1(r)>> Δ-4 {[-4-]|[#1]|[@@-96]}
<Call 0x23dd6 0x10428> {[-4-]|[#1]|[@@-96]}
FSCALL_10428
<POP 23ddc-23dde StackAdj> Δ+6 {[-4-]}
<Call 0x23dde 0x10410> {[-4-]}
FSCALL_10410
<Blob 0x23de4 [42] @> Δ-42 {[-4-]|[«42""»]}
<POP 23df6-23df8 StackAdj> Δ-4 {[-4-]|[«42""»]|[-4-]}
<Lit 0x23df8 41> {[-4-]|[«42""»]|[$$Record read failed while skipping a file.]}
<Call 0x23e06 0x224cc> {[-4-]|[«42""»]|[$$Record read failed while skipping a file.]}
<POP 23e0a-23e0e StackAdj> Δ+46 {[-4-]}
<POP 23e0e-23e12 Naked> Σ-4 ↓ →0x23da8 ←0x23dac
<MI 23e0e ADDQ.L #0x1,D6> {[-4-]}
<MI 23e10 BVC 0x23da8> {[-4-]}
<POP 23e12-23e14 Naked> Σ-4 Δ+4 ↓ ←0x23da8
<POP 23e12-23e14 StackAdj> Δ+4 {}
<POP 23e14-23e1c Naked> Σ0 ↓ →0x23c40 ←0x23d46
<MI 23e14 TST.B (A6-0x4)> {}
<MI 23e18 BEQ 0x23c40> {}
<POP 23e1c-23e34 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x23e1c <LVAR -0x04a @ 4(rw)>> Δ-4 {[@@-74]}
<Call 0x23e20 0x102bc> {[@@-74]}
FreeString(VAR a : String)
<POP 23e26-23e28 StackAdj> Δ+4 {}
<MI 23e28 MOVE.W (A6-0x26),D0> {}
<MI 23e2c SUBQ.W #0x1,D0> {}
<MI 23e2e EXTW.L D0> {}
<MI 23e30 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23e32 MOVEQ.L #0x00,D6> {[4, 'D0']}
<POP 23e34-23e38 Naked> Σ-4 ↓ →0x23eb0 ←0x23eac
<MI 23e34 CMP.L (A7),D6> {[-4-]}
<MI 23e36 BGT 0x23eb0> {[-4-]}
<POP 23e38-23e76 Naked> Σ-4 ↓ →0x23eac
<MI 23e38 MOVE.L D6,D0> {[-4-]}
<MI 23e3a ASL.L #0x8,D0> {[-4-]}
<POP 0x23e3c LimitCheck 0x0 ≤ D0 ≤ 0x7ff> {[-4-]}
<MI 23e46 ASL.L #0x2,D0> {[-4-]}
<MI 23e48 LEA.L 0x295b8,A0> {[-4-]}
<MI 23e4e LEA.L (A0+D0.L),A0> {[-4-]}
<MI 23e52 LEA.L (A0+0x44c),A0> {[-4-]}
<MI 23e56 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<MI 23e58 MOVE.L (A7)+,D7> Δ+4 {[-4-]}
<MI 23e5a MOVE.L D7,-(A7)> Δ-4 {[-4-]|[4, 'D7']}
<Const 0x23e5c 0x400.2> Δ-2 {[-4-]|[4, 'D7']|[#1024]}
<Call 0x23e60 0x10418> {[-4-]|[4, 'D7']|[#1024]}
FSCALL_10418
<POP 23e66-23e68 StackAdj> Δ+6 {[-4-]}
<Pointer.fp 0x23e68 <LVAR -0x060 @ 1(r)>> Δ-4 {[-4-]|[@@-96]}
<Call 0x23e6a 0x10408> {[-4-]|[@@-96]}
FSCALL_10408
<POP 23e70-23e72 StackAdj> Δ+4 {[-4-]}
<MI 23e72 TST.B (A6-0x60)> {[-4-]}
<MI 23e74 BEQ 0x23eac> {[-4-]}
<POP 23e76-23eac Naked> Σ-4 ↓
<Const 0x23e76 0x1.2> Δ-2 {[-4-]|[#1]}
<Pointer.fp 0x23e78 <LVAR -0x060 @ 1(r)>> Δ-4 {[-4-]|[#1]|[@@-96]}
<Call 0x23e7a 0x10428> {[-4-]|[#1]|[@@-96]}
FSCALL_10428
<POP 23e80-23e82 StackAdj> Δ+6 {[-4-]}
<Call 0x23e82 0x10410> {[-4-]}
FSCALL_10410
<Blob 0x23e88 [26] @> Δ-26 {[-4-]|[«26""»]}
<POP 23e94-23e96 StackAdj> Δ-4 {[-4-]|[«26""»]|[-4-]}
<Lit 0x23e96 26> {[-4-]|[«26""»]|[$$Found data, can't read it.]}
<Call 0x23ea4 0x224cc> {[-4-]|[«26""»]|[$$Found data, can't read it.]}
<POP 23ea8-23eac StackAdj> Δ+30 {[-4-]}
<POP 23eac-23eb0 Naked> Σ-4 ↓ →0x23e34 ←0x23e38
<MI 23eac ADDQ.L #0x1,D6> {[-4-]}
<MI 23eae BVC 0x23e34> {[-4-]}
<POP 23eb0-23ec4 Naked> Σ-4 Δ+4 ↓ ←0x23e34
<POP 23eb0-23eb2 StackAdj> Δ+2 {[-2-]}
<MI 23eb2 CLR.B (A7)> {[-2-]}
<Pointer.fp 0x23eb4 <LVAR -0x060 @ 1(r)>> Δ-4 {[-2-]|[@@-96]}
<Call 0x23eb6 0x10414> {[-2-]|[@@-96]}
FSCALL_10414
<POP 23ebc-23ebe StackAdj> Δ+6 {}
<Call 0x23ebe 0x10410> {}
FSCALL_10410
<POP 23ec4-23eca Naked> Σ0 ↓ ←0x23b90
<MI 23ec4 MOVEA.L (A6+0x8),A0> {}
<MI 23ec8 MOVE.B #0x01,(A0)> {}
<POP 23eca-23ed2 Epilogue> Σ0
@ 23ed2
<LVAR -0x003 1(r)>
<LVAR -0x004 1(r)>
<LVAR -0x006 1(w) 2(w) 4(r)>
<LVAR -0x008 @ 1(rw)>
<POP 23ed2-24116 Body> Δ+4
<POP 23ed2-23ee8 Prologue> Σ0 ↓
<POP 23ee8-23f04 RegCacheLoad> Σ0 ↓
<POP 23f04-23f20 Naked> Σ0 ↓
<MI 23f04 ORI.B #0x80,(A6-0x6)> {}
<MI 23f0a ANDI.B #0xbf,(A6-0x6)> {}
<MI 23f10 ANDI.W #0xc000,(A6-0x6)> {}
<MI 23f16 CLR.B (A6-0x4)> {}
<MI 23f1a CLR.B (A6-0x3)> {}
<MI 23f1e MOVEQ.L #0x00,D6> {}
<POP 23f20-23f48 Naked> Σ0 ↓ →0x23f20 ←0x23f20
<POP 0x23f20 LimitCheck 0x0 ≤ D6 ≤ 0x7ff> {}
<MI 23f2a MOVE.L D6,D0> {}
<MI 23f2c ASL.L #0x2,D0> {}
<MI 23f2e LEA.L 0x295b8,A0> {}
<MI 23f34 LEA.L (A0+D0.L),A0> {}
<MI 23f38 MOVE.L (A6-0x6),(A0+0x44c)> {}
<MI 23f3e ADDQ.L #0x1,D6> {}
<MI 23f40 CMPI.L #0x000007ff,D6> {}
<MI 23f46 BLE 0x23f20> {}
<POP 23f48-23f50 Naked> Σ0 ↓ →0x23f88 ←0x24106
<MI 23f48 TST.B 0x295ee> {}
<MI 23f4e BEQ 0x23f88> {}
<POP 23f50-23f58 Naked> Σ0 ↓ →0x23f88
<MI 23f50 TST.B 0x2da04> {}
<MI 23f56 BNE 0x23f88> {}
<POP 23f58-23f88 Naked> Σ0 →0x23fac
<Blob 0x23f58 [30] @> Δ-30 {[«30""»]}
<POP 23f64-23f66 StackAdj> Δ-6 {[«30""»]|[-6-]}
<Lit 0x23f66 30> {[«30""»]|[-2-]|[$$Do you want to format the disk]}
<POP 23f70-23f72 StackAdj> Δ-2 {[«30""»]|[-2-]|[$$Do you want to format the disk]|[-2-]}
<MI 23f72 CLR.B (A7)> {[«30""»]|[-2-]|[$$Do you want to format the disk]|[-2-]}
<Call 0x23f74 0x103f0> {[«30""»]|[-2-]|[$$Do you want to format the disk]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 23f7a-23f7c StackAdj> Δ+6 {[«30""»]|[-2-]}
<MI 23f7c MOVE.B (A7)+,D0> Δ+2 {[«30""»]}
<MI 23f7e EXTB.W D0> {[«30""»]}
<POP 0x23f80 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«30""»]}
<POP 23f82-23f84 StackAdj> Δ+30 {}
<MI 23f84 MOVE.B D0,0x295f1> {}
<MI 23f86 BRA 0x23fac> {}
<POP 23f88-23fac Naked> Σ0 ↓ ←0x23f48 ←0x23f50
<MI 23f88 MOVE.B #0x01,0x295f1> {}
<Blob 0x23f8a [22] @> Δ-22 {[«22""»]}
<POP 23f96-23f98 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x23f98 22> {[«22""»]|[$$Disk must be formated.]}
<Call 0x23fa6 0x103e0> {[«22""»]|[$$Disk must be formated.]}
WriteConsoleStringCrLf(str : String)
<POP 23fa8-23fac StackAdj> Δ+26 {}
<POP 23fac-23fb8 Naked> Σ0 ↓ →0x23fbe ←0x23f58
<POP 23fac-23fae StackAdj> Δ-2 {[-2-]}
<Call 0x23fae 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 23fb4 TST.B (A7)+> Δ+2 {}
<MI 23fb6 BEQ 0x23fbe> {}
<POP 23fb8-23fbe Naked> Σ0 →0x240d2
<MI 23fb8 MOVEQ.L #0x02,D7> {}
<MI 23fba BRA 0x240d2> {}
<POP 23fbe-23fc2 Naked> Σ0 ↓ →0x23fc8 ←0x23fac
<MI 23fbe TST.B 0x295f1> {}
<MI 23fc0 BNE 0x23fc8> {}
<POP 23fc2-23fc8 Naked> Σ0 →0x240d2
<MI 23fc2 MOVEQ.L #0x00,D7> {}
<MI 23fc4 BRA 0x240d2> {}
<POP 23fc8-23fd0 Naked> Σ0 ↓ →0x23fd8 ←0x23fbe
<MI 23fc8 TST.B 0x295ee> {}
<MI 23fce BEQ 0x23fd8> {}
<POP 23fd0-23fd8 Naked> Σ0 ↓ →0x23fde
<MI 23fd0 TST.B 0x2da04> {}
<MI 23fd6 BEQ 0x23fde> {}
<POP 23fd8-23fde Naked> Σ0 →0x240d2 ←0x23fc8
<MI 23fd8 MOVEQ.L #0x01,D7> {}
<MI 23fda BRA 0x240d2> {}
<POP 23fde-24008 Naked> Σ0 ↓ →0x2404e ←0x23fd0
<Blob 0x23fde [44] @> Δ-44 {[«44""»]}
<POP 23fea-23fec StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x23fec 44> {[«44""»]|[$$From where should I get the bad block list :]}
<Call 0x23ffa 0x103e0> {[«44""»]|[$$From where should I get the bad block list :]}
WriteConsoleStringCrLf(str : String)
<POP 23ffc-23ffe StackAdj> Δ+46 {[-2-]}
<Call 0x23ffe 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 24004 TST.B (A7)+> Δ+2 {}
<MI 24006 BEQ 0x2404e> {}
<POP 24008-2404e Naked> Σ0 →0x24092
<Blob 0x24008 [48] @> Δ-48 {[«48""»]}
<POP 24014-24016 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x24016 48> {[«48""»]|[$$ 0 => Get it from the disk label area]}
<Call 0x24024 0x103e0> {[«48""»]|[$$ 0 => Get it from the disk label area]}
WriteConsoleStringCrLf(str : String)
<POP 24026-24027 StackAdj> Δ+52 ↓ {}
<Blob 0x24027 [50] @> Δ-50 {[«50""»]}
<POP 24036-24038 StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x24038 49> {[«50""»]|[$$ 1 => Get it from the disk system area]}
<Call 0x24046 0x103e0> {[«50""»]|[$$ 1 => Get it from the disk system area]}
WriteConsoleStringCrLf(str : String)
<POP 24048-2404c StackAdj> Δ+54 {}
<MI 2404c BRA 0x24092> {}
<POP 2404e-24092 Naked> Σ0 ↓ ←0x23fde
<Blob 0x2404e [38] @> Δ-38 {[«38""»]}
<POP 24060-24062 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x24062 37> {[«38""»]|[$$ 0 => Get it from the disk]}
<Call 0x24070 0x103e0> {[«38""»]|[$$ 0 => Get it from the disk]}
WriteConsoleStringCrLf(str : String)
<POP 24072-24074 StackAdj> Δ+42 {}
<Blob 0x24074 [42] @> Δ-42 {[«42""»]}
<POP 24080-24082 StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x24082 42> {[«42""»]|[$$ 1 => Get it from a backup tape]}
<Call 0x2408e 0x103e0> {[«42""»]|[$$ 1 => Get it from a backup tape]}
WriteConsoleStringCrLf(str : String)
<POP 24090-24092 StackAdj> Δ+46 {}
<POP 24092-240d2 Naked> Σ0 ↓ ←0x24008
<Blob 0x24092 [4] @> Δ-4 {[«4""»]}
<Blob 0x24096 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2409a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2409e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 240a2-240a4 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x240a4 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Answer 0 or 1 :_]}
<Const 0x240b2 0x0.4> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Answer 0 or 1 :_]|[##0]}
<Const 0x240b6 0x1.4> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Answer 0 or 1 :_]|[##0]|[##1]}
<Call 0x240ba 0x103ec> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Answer 0 or 1 :_]|[##0]|[##1]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 240c0-240c4 StackAdj> Δ+12 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 240c4 MOVE.B (A7+0x3),D0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 240c8 EXTB.W D0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<POP 0x240ca LimitCheck 0x0 ≤ D0 ≤ 0x2> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<POP 240cc-240d0 StackAdj> Δ+20 {}
<MI 240d0 MOVE.B D0,D7> {}
<POP 240d2-240e6 Naked> Σ0 →0x240ec →0x240f8 →0x24102 ←0x23fb8 ←0x23fc2 ←0x23fd8
<MI 240d2 MOVE.B D7,D0> {}
<MI 240d4 EXTB.W D0> {}
<POP 0x240d6 LimitCheck 0x0 ≤ D0 ≤ 0x2> {}
<MI 240dc ADD.W D0,D0> {}
<MI 240de SWITCH D0.W> {}
<POP 240ec-240f4 Naked> Σ0 Δ-4 ↓ ←0x240d2
<Pointer.fp 0x240ec <LVAR -0x008 @ 1(rw)>> Δ-4 {[@@-8]}
<Call 0x240f0 0x238f0> {[@@-8]}
<POP 240f4-240f8 Naked> Σ-4 Δ+4 →0x24106 ←0x240f8
<POP 240f4-240f6 StackAdj> Δ+4 {}
<MI 240f6 BRA 0x24106> {}
<POP 240f8-24102 Naked> Σ0 Δ-4 →0x240f4 ←0x240d2
<Pointer.fp 0x240f8 <LVAR -0x008 @ 1(rw)>> Δ-4 {[@@-8]}
<Call 0x240fc 0x23b5e> {[@@-8]}
<MI 24100 BRA 0x240f4> {[@@-8]}
<POP 24102-24106 Naked> Σ0 ↓ ←0x240d2
<MI 24102 MOVE.B #0x01,(A6-0x8)> {}
<POP 24106-2410e Naked> Σ0 ↓ →0x23f48 ←0x240f4
<MI 24106 TST.B (A6-0x8)> {}
<MI 2410a BEQ 0x23f48> {}
<POP 2410e-24116 Epilogue> Σ0
@ 24116
<LVAR -0x001 1(r)>
<LVAR -0x002 1(r)>
<LVAR -0x004 1(w) 2(w) 4(r)>
<POP 24116-24192 Body>
<POP 24116-2412c Prologue> Σ0 ↓
<POP 2412c-24130 RegCacheLoad> Σ0 ↓
<POP 24130-2413c Naked> Σ0 ↓ →0x24144
<POP 24130-24132 StackAdj> Δ-2 {[-2-]}
<Call 0x24132 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 24138 TST.B (A7)+> Δ+2 {}
<MI 2413a BEQ 0x24144> {}
<POP 2413c-24144 Naked> Σ0 ↓
<MI 2413c MOVE.B #0x01,0x2ea18> {}
<POP 24144-2415a Naked> Σ0 ↓ ←0x24130
<MI 24144 ORI.B #0x80,(A6-0x4)> {}
<MI 24148 ANDI.B #0xbf,(A6-0x4)> {}
<MI 2414c ANDI.W #0xc000,(A6-0x4)> {}
<MI 24150 CLR.B (A6-0x2)> {}
<MI 24154 CLR.B (A6-0x1)> {}
<MI 24158 MOVEQ.L #0x00,D7> {}
<POP 2415a-2417c Naked> Σ0 ↓ →0x24180 ←0x24180
<POP 0x2415a LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {}
<MI 24164 MOVE.L D7,D0> {}
<MI 24166 ASL.L #0x2,D0> {}
<MI 24168 LEA.L 0x295b8,A0> {}
<MI 2416e LEA.L (A0+D0.L),A0> {}
<MI 24172 MOVE.B (A0+0x44c),D0> {}
<MI 24176 LSL.B #0x1,D0> {}
<MI 24178 LSR.B #0x7,D0> {}
<MI 2417a BEQ 0x24180> {}
<POP 2417c-24180 Naked> Σ0 ↓
<MI 2417c MOVE.L (A6-0x4),(A0+0x44c)> {}
<POP 24180-2418a Naked> Σ0 ↓ →0x2415a ←0x2415a
<MI 24180 ADDQ.L #0x1,D7> {}
<MI 24182 CMPI.L #0x000007ff,D7> {}
<MI 24188 BLE 0x2415a> {}
<POP 2418a-24192 Epilogue> Σ0
@ 24192
<LVAR 0x008 4(r)>
<POP 24192-2421e Body>
<POP 24192-241a8 Prologue> Σ0 ↓
<POP 241a8-241ac RegCacheLoad> Σ0 ↓
<POP 241ac-241b2 Naked> Σ0 ↓ →0x241c4
<MI 241ac MOVEA.L (A4),A0> {}
<MI 241ae TST.W (A0)> {}
<MI 241b0 BNE 0x241c4> {}
<POP 241b2-241c4 Naked> Σ0 →0x24216
<POP 241b2-241b4 StackAdj> Δ-4 {[-4-]}
<MI 241b4 MOVE.L (A4),-(A7)> Δ-4 {[-4-]|[4, '(A4)']}
<MI 241b6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A4)']|[4, '(A6+0x8)']}
<Call 0x241b8 0x102d0> {[-4-]|[4, '(A4)']|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 241be-241c0 StackAdj> Δ+8 {[-4-]}
<MI 241c0 MOVE.L (A7)+,(A4)> Δ+4 {}
<MI 241c2 BRA 0x24216> {}
<POP 241c4-241da Naked> Σ0 ↓ →0x2420a ←0x241ac
<MI 241c4 MOVE.W (A0),D0> {}
<MI 241c6 EXTW.L D0> {}
<MI 241c8 ADDQ.L #0x2,D0> {}
<MI 241ca MOVEA.L (A6+0x8),A0> {}
<MI 241cc MOVE.W (A0),D1> {}
<MI 241ce EXTW.L D1> {}
<MI 241d0 ADD.L D0,D1> {}
<MI 241d2 CMPI.L #0x00000050,D1> {}
<MI 241d8 BGT 0x2420a> {}
<POP 241da-2420a Naked> Σ0 →0x24216
<Blob 0x241da [2] @> Δ-2 {[«2""»]}
<POP 241de-241e0 StackAdj> Δ-4 {[«2""»]|[-4-]}
<MI 241e0 MOVE.L (A4),-(A7)> Δ-4 {[«2""»]|[-4-]|[4, '(A4)']}
<POP 241e2-241e4 StackAdj> Δ-4 {[«2""»]|[-4-]|[4, '(A4)']|[-4-]}
<Lit 0x241e4 2> {[«2""»]|[-4-]|[4, '(A4)']|[$$,_]}
<POP 241f6-241f8 StackAdj> Δ-4 {[«2""»]|[-4-]|[4, '(A4)']|[$$,_]|[-4-]}
<MI 241f8 MOVE.L (A6+0x8),(A7)> {[«2""»]|[-4-]|[4, '(A4)']|[$$,_]|[4, '(A6+0x8)']}
<Call 0x241fa 0x102d4> {[«2""»]|[-4-]|[4, '(A4)']|[$$,_]|[4, '(A6+0x8)']}
StringCat3(a, b, c : String) : String
<POP 24200-24204 StackAdj> Δ+12 {[«2""»]|[-4-]}
<MI 24204 MOVE.L (A7)+,(A4)> Δ+4 {[«2""»]}
<POP 24206-24208 StackAdj> Δ+2 {}
<MI 24208 BRA 0x24216> {}
<POP 2420a-24216 Naked> Σ0 ↓ ←0x241c4
<MI 2420a MOVE.L (A4),-(A7)> Δ-4 {[4, '(A4)']}
<Call 0x2420c 0x103e0> {[4, '(A4)']}
WriteConsoleStringCrLf(str : String)
<POP 24212-24214 StackAdj> Δ+4 {}
<MI 24214 MOVE.L (A6+0x8),(A4)> {}
<POP 24216-2421e Epilogue> Σ0 ←0x241b2 ←0x241da
@ 2421e
<LVAR 0x010 2(r)>
<LVAR 0x00e 2(r)>
<LVAR 0x00c 2(r)>
<LVAR 0x00a 2(r)>
<LVAR 0x008 2(r)>
<LVAR -0x006 @>
<POP 2421e-24a66 Body>
<POP 2421e-24234 Prologue> Σ0 ↓
<POP 24234-2424c RegCacheLoad> Σ0 ↓
<POP 2424c-24260 Naked> Σ0 ↓ →0x24288
<Pointer.fp 0x2424c <LVAR -0x006 @>> Δ-4 {[@@-6]}
<Call 0x2424e 0x102b8> {[@@-6]}
NewString(VAR a : String)
<POP 24254-24256 StackAdj> Δ+4 {}
<MI 24256 MOVE.W (A6+0x8),D0> {}
<MI 2425a ANDI.W #0x8000,D0> {}
<MI 2425e BEQ 0x24288> {}
<POP 24260-24288 Naked> Σ0 ↓
<Blob 0x24260 [18] @> Δ-18 {[«18""»]}
<POP 24270-24272 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x24272 17> {[«18""»]|[$$Special condition]}
<MI 24280 LEA.L (A6-0x6),A4> {[«18""»]|[$$Special condition]}
<Call 0x24282 0x24192> {[«18""»]|[$$Special condition]}
<POP 24286-24288 StackAdj> Δ+22 {}
<POP 24288-24292 Naked> Σ0 ↓ →0x242b4 ←0x2424c
<MI 24288 MOVE.W (A6+0x8),D0> {}
<MI 2428c ANDI.W #0x4000,D0> {}
<MI 24290 BEQ 0x242b4> {}
<POP 24292-242b4 Naked> Σ0 ↓
<Blob 0x24292 [14] @> Δ-14 {[«14""»]}
<POP 2429e-242a0 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x242a0 14> {[«14""»]|[$$Transfer error]}
<MI 242ac LEA.L (A6-0x6),A4> {[«14""»]|[$$Transfer error]}
<Call 0x242ae 0x24192> {[«14""»]|[$$Transfer error]}
<POP 242b2-242b4 StackAdj> Δ+18 {}
<POP 242b4-242be Naked> Σ0 ↓ →0x242e8 ←0x24288
<MI 242b4 MOVE.W (A6+0xa),D0> {}
<MI 242b8 ANDI.W #0x8000,D0> {}
<MI 242bc BEQ 0x242e8> {}
<POP 242be-242e8 Naked> Σ0 ↓
<Blob 0x242be [10] @> Δ-10 {[«10""»]}
<POP 242d0-242d2 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x242d2 9> {[«10""»]|[$$Data late]}
<MI 242e0 LEA.L (A6-0x6),A4> {[«10""»]|[$$Data late]}
<Call 0x242e2 0x24192> {[«10""»]|[$$Data late]}
<POP 242e6-242e8 StackAdj> Δ+14 {}
<POP 242e8-242f2 Naked> Σ0 ↓ →0x2431a ←0x242b4
<MI 242e8 MOVE.W (A6+0xa),D0> {}
<MI 242ec ANDI.W #0x4000,D0> {}
<MI 242f0 BEQ 0x2431a> {}
<POP 242f2-2431a Naked> Σ0 ↓
<Blob 0x242f2 [18] @> Δ-18 {[«18""»]}
<POP 24302-24304 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x24304 17> {[«18""»]|[$$Write check error]}
<MI 24312 LEA.L (A6-0x6),A4> {[«18""»]|[$$Write check error]}
<Call 0x24314 0x24192> {[«18""»]|[$$Write check error]}
<POP 24318-2431a StackAdj> Δ+22 {}
<POP 2431a-24324 Naked> Σ0 ↓ →0x2434c ←0x242e8
<MI 2431a MOVE.W (A6+0xa),D0> {}
<MI 2431e ANDI.W #0x2000,D0> {}
<MI 24322 BEQ 0x2434c> {}
<POP 24324-2434c Naked> Σ0 ↓
<Blob 0x24324 [20] @> Δ-20 {[«20""»]}
<POP 24334-24336 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x24336 19> {[«20""»]|[$$UNIBUS parity error]}
<MI 24344 LEA.L (A6-0x6),A4> {[«20""»]|[$$UNIBUS parity error]}
<Call 0x24346 0x24192> {[«20""»]|[$$UNIBUS parity error]}
<POP 2434a-2434c StackAdj> Δ+24 {}
<POP 2434c-24356 Naked> Σ0 ↓ →0x24378 ←0x2431a
<MI 2434c MOVE.W (A6+0xa),D0> {}
<MI 24350 ANDI.W #0x1000,D0> {}
<MI 24354 BEQ 0x24378> {}
<POP 24356-24378 Naked> Σ0 ↓
<Blob 0x24356 [18] @> Δ-18 {[«18""»]}
<POP 24362-24364 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x24364 18> {[«18""»]|[$$Non-existent drive]}
<MI 24370 LEA.L (A6-0x6),A4> {[«18""»]|[$$Non-existent drive]}
<Call 0x24372 0x24192> {[«18""»]|[$$Non-existent drive]}
<POP 24376-24378 StackAdj> Δ+22 {}
<POP 24378-24382 Naked> Σ0 ↓ →0x243aa ←0x2434c
<MI 24378 MOVE.W (A6+0xa),D0> {}
<MI 2437c ANDI.W #0x0800,D0> {}
<MI 24380 BEQ 0x243aa> {}
<POP 24382-243aa Naked> Σ0 ↓
<Blob 0x24382 [20] @> Δ-20 {[«20""»]}
<POP 24392-24394 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x24394 19> {[«20""»]|[$$Non-existent memory]}
<MI 243a2 LEA.L (A6-0x6),A4> {[«20""»]|[$$Non-existent memory]}
<Call 0x243a4 0x24192> {[«20""»]|[$$Non-existent memory]}
<POP 243a8-243aa StackAdj> Δ+24 {}
<POP 243aa-243b4 Naked> Σ0 ↓ →0x243dc ←0x24378
<MI 243aa MOVE.W (A6+0xa),D0> {}
<MI 243ae ANDI.W #0x0400,D0> {}
<MI 243b2 BEQ 0x243dc> {}
<POP 243b4-243dc Naked> Σ0 ↓
<Blob 0x243b4 [14] @> Δ-14 {[«14""»]}
<POP 243c4-243c6 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x243c6 13> {[«14""»]|[$$Program error]}
<MI 243d4 LEA.L (A6-0x6),A4> {[«14""»]|[$$Program error]}
<Call 0x243d6 0x24192> {[«14""»]|[$$Program error]}
<POP 243da-243dc StackAdj> Δ+18 {}
<POP 243dc-243e6 Naked> Σ0 ↓ →0x24408 ←0x243aa
<MI 243dc MOVE.W (A6+0xa),D0> {}
<MI 243e0 ANDI.W #0x0200,D0> {}
<MI 243e4 BEQ 0x24408> {}
<POP 243e6-24408 Naked> Σ0 ↓
<Blob 0x243e6 [14] @> Δ-14 {[«14""»]}
<POP 243f2-243f4 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x243f4 14> {[«14""»]|[$$Mixed transfer]}
<MI 24400 LEA.L (A6-0x6),A4> {[«14""»]|[$$Mixed transfer]}
<Call 0x24402 0x24192> {[«14""»]|[$$Mixed transfer]}
<POP 24406-24408 StackAdj> Δ+18 {}
<POP 24408-24412 Naked> Σ0 ↓ →0x2443a ←0x243dc
<MI 24408 MOVE.W (A6+0xa),D0> {}
<MI 2440c ANDI.W #0x0040,D0> {}
<MI 24410 BNE 0x2443a> {}
<POP 24412-2443a Naked> Σ0 ↓
<Blob 0x24412 [16] @> Δ-16 {[«16""»]}
<POP 24422-24424 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x24424 15> {[«16""»]|[$$Input not ready]}
<MI 24432 LEA.L (A6-0x6),A4> {[«16""»]|[$$Input not ready]}
<Call 0x24434 0x24192> {[«16""»]|[$$Input not ready]}
<POP 24438-2443a StackAdj> Δ+20 {}
<POP 2443a-24444 Naked> Σ0 ↓ →0x2446c ←0x24408
<MI 2443a MOVE.W (A6+0xa),D0> {}
<MI 2443e ANDI.W #0x0008,D0> {}
<MI 24442 BEQ 0x2446c> {}
<POP 24444-2446c Naked> Σ0 ↓
<Blob 0x24444 [20] @> Δ-20 {[«20""»]}
<POP 24454-24456 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x24456 19> {[«20""»]|[$$Bus address inhibit]}
<MI 24464 LEA.L (A6-0x6),A4> {[«20""»]|[$$Bus address inhibit]}
<Call 0x24466 0x24192> {[«20""»]|[$$Bus address inhibit]}
<POP 2446a-2446c StackAdj> Δ+24 {}
<POP 2446c-24476 Naked> Σ0 ↓ →0x2449c ←0x2443a
<MI 2446c MOVE.W (A6+0xc),D0> {}
<MI 24470 ANDI.W #0x8000,D0> {}
<MI 24474 BEQ 0x2449c> {}
<POP 24476-2449c Naked> Σ0 ↓
<Blob 0x24476 [4] @> Δ-4 {[«4""»]}
<Blob 0x2447a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2447e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x24482 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 24486-24488 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x24488 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Attention Active]}
<MI 24494 LEA.L (A6-0x6),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Attention Active]}
<Call 0x24496 0x24192> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Attention Active]}
<POP 2449a-2449c StackAdj> Δ+20 {}
<POP 2449c-244a6 Naked> Σ0 ↓ →0x244d0 ←0x2446c
<MI 2449c MOVE.W (A6+0xc),D0> {}
<MI 244a0 ANDI.W #0x4000,D0> {}
<MI 244a4 BEQ 0x244d0> {}
<POP 244a6-244d0 Naked> Σ0 ↓
<Blob 0x244a6 [6] @> Δ-6 {[«6""»]}
<POP 244b6-244b8 StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x244b8 5> {[«6""»]|[$$Error]}
<MI 244c6 LEA.L (A6-0x6),A4> {[«6""»]|[$$Error]}
<Call 0x244c8 0x24192> {[«6""»]|[$$Error]}
<POP 244cc-244d0 StackAdj> Δ+10 {}
<POP 244d0-244da Naked> Σ0 ↓ →0x24504 ←0x2449c
<MI 244d0 MOVE.W (A6+0xc),D0> {}
<MI 244d4 ANDI.W #0x2000,D0> {}
<MI 244d8 BEQ 0x24504> {}
<POP 244da-24504 Naked> Σ0 ↓
<Blob 0x244da [24] @> Δ-24 {[«24""»]}
<POP 244ea-244ec StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x244ec 23> {[«24""»]|[$$Positioning in progress]}
<MI 244fa LEA.L (A6-0x6),A4> {[«24""»]|[$$Positioning in progress]}
<Call 0x244fc 0x24192> {[«24""»]|[$$Positioning in progress]}
<POP 24500-24504 StackAdj> Δ+28 {}
<POP 24504-2450e Naked> Σ0 ↓ →0x24530 ←0x244d0
<MI 24504 MOVE.W (A6+0xc),D0> {}
<MI 24508 ANDI.W #0x1000,D0> {}
<MI 2450c BEQ 0x24530> {}
<POP 2450e-24530 Naked> Σ0 ↓
<Blob 0x2450e [14] @> Δ-14 {[«14""»]}
<POP 2451a-2451c StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x2451c 14> {[«14""»]|[$$Medium on-line]}
<MI 24528 LEA.L (A6-0x6),A4> {[«14""»]|[$$Medium on-line]}
<Call 0x2452a 0x24192> {[«14""»]|[$$Medium on-line]}
<POP 2452e-24530 StackAdj> Δ+18 {}
<POP 24530-2453a Naked> Σ0 ↓ →0x2455e ←0x24504
<MI 24530 MOVE.W (A6+0xc),D0> {}
<MI 24534 ANDI.W #0x0800,D0> {}
<MI 24538 BEQ 0x2455e> {}
<POP 2453a-2455e Naked> Σ0 ↓
<Blob 0x2453a [10] @> Δ-10 {[«10""»]}
<POP 24546-24548 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x24548 10> {[«10""»]|[$$Write lock]}
<MI 24556 LEA.L (A6-0x6),A4> {[«10""»]|[$$Write lock]}
<Call 0x24558 0x24192> {[«10""»]|[$$Write lock]}
<POP 2455c-2455e StackAdj> Δ+14 {}
<POP 2455e-24568 Naked> Σ0 ↓ →0x2458c ←0x24530
<MI 2455e MOVE.W (A6+0xc),D0> {}
<MI 24562 ANDI.W #0x0400,D0> {}
<MI 24566 BEQ 0x2458c> {}
<POP 24568-2458c Naked> Σ0 ↓
<Blob 0x24568 [22] @> Δ-22 {[«22""»]}
<POP 24574-24576 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x24576 22> {[«22""»]|[$$Last sector transfered]}
<MI 24582 LEA.L (A6-0x6),A4> {[«22""»]|[$$Last sector transfered]}
<Call 0x24584 0x24192> {[«22""»]|[$$Last sector transfered]}
<POP 24588-2458c StackAdj> Δ+26 {}
<POP 2458c-24596 Naked> Σ0 ↓ →0x245ba ←0x2455e
<MI 2458c MOVE.W (A6+0xc),D0> {}
<MI 24590 ANDI.W #0x0200,D0> {}
<MI 24594 BEQ 0x245ba> {}
<POP 24596-245ba Naked> Σ0 ↓
<Blob 0x24596 [4] @> Δ-4 {[«4""»]}
<Blob 0x2459a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2459e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 245a2-245a4 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x245a4 12> {[«4""»]|[«4""»]|[«4""»]|[$$Programmable]}
<MI 245b2 LEA.L (A6-0x6),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Programmable]}
<Call 0x245b4 0x24192> {[«4""»]|[«4""»]|[«4""»]|[$$Programmable]}
<POP 245b8-245ba StackAdj> Δ+16 {}
<POP 245ba-245c4 Naked> Σ0 ↓ →0x245ec ←0x2458c
<MI 245ba MOVE.W (A6+0xc),D0> {}
<MI 245be ANDI.W #0x0100,D0> {}
<MI 245c2 BNE 0x245ec> {}
<POP 245c4-245ec Naked> Σ0 ↓
<Blob 0x245c4 [18] @> Δ-18 {[«18""»]}
<POP 245d4-245d6 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x245d6 17> {[«18""»]|[$$Drive not present]}
<MI 245e4 LEA.L (A6-0x6),A4> {[«18""»]|[$$Drive not present]}
<Call 0x245e6 0x24192> {[«18""»]|[$$Drive not present]}
<POP 245ea-245ec StackAdj> Δ+22 {}
<POP 245ec-245f6 Naked> Σ0 ↓ →0x2461e ←0x245ba
<MI 245ec MOVE.W (A6+0xc),D0> {}
<MI 245f0 ANDI.W #0x0080,D0> {}
<MI 245f4 BNE 0x2461e> {}
<POP 245f6-2461e Naked> Σ0 ↓
<Blob 0x245f6 [16] @> Δ-16 {[«16""»]}
<POP 24606-24608 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x24608 15> {[«16""»]|[$$Drive not ready]}
<MI 24616 LEA.L (A6-0x6),A4> {[«16""»]|[$$Drive not ready]}
<Call 0x24618 0x24192> {[«16""»]|[$$Drive not ready]}
<POP 2461c-2461e StackAdj> Δ+20 {}
<POP 2461e-24628 Naked> Σ0 ↓ →0x2464e ←0x245ec
<MI 2461e MOVE.W (A6+0xc),D0> {}
<MI 24622 ANDI.W #0x0040,D0> {}
<MI 24626 BNE 0x2464e> {}
<POP 24628-2464e Naked> Σ0 ↓
<Blob 0x24628 [4] @> Δ-4 {[«4""»]}
<Blob 0x2462c [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x24630 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x24634 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 24638-2463a StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2463a 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<MI 24646 LEA.L (A6-0x6),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<Call 0x24648 0x24192> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<POP 2464c-2464e StackAdj> Δ+20 {}
<POP 2464e-24656 Naked> Σ0 ↓ →0x2467c ←0x2461e
<MI 2464e MOVE.W (A6+0xc),D0> {}
<MI 24652 AND.W #0x01,D0> {}
<MI 24654 BEQ 0x2467c> {}
<POP 24656-2467c Naked> Σ0 ↓
<Blob 0x24656 [4] @> Δ-4 {[«4""»]}
<Blob 0x2465a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2465e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x24662 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 24666-24668 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x24668 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Heads are offset]}
<MI 24674 LEA.L (A6-0x6),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Heads are offset]}
<Call 0x24676 0x24192> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Heads are offset]}
<POP 2467a-2467c StackAdj> Δ+20 {}
<POP 2467c-24686 Naked> Σ0 ↓ →0x246aa ←0x2464e
<MI 2467c MOVE.W (A6+0xe),D0> {}
<MI 24680 ANDI.W #0x8000,D0> {}
<MI 24684 BEQ 0x246aa> {}
<POP 24686-246aa Naked> Σ0 ↓
<Blob 0x24686 [10] @> Δ-10 {[«10""»]}
<POP 24692-24694 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x24694 10> {[«10""»]|[$$Data check]}
<MI 246a2 LEA.L (A6-0x6),A4> {[«10""»]|[$$Data check]}
<Call 0x246a4 0x24192> {[«10""»]|[$$Data check]}
<POP 246a8-246aa StackAdj> Δ+14 {}
<POP 246aa-246b4 Naked> Σ0 ↓ →0x246da ←0x2467c
<MI 246aa MOVE.W (A6+0xe),D0> {}
<MI 246ae ANDI.W #0x4000,D0> {}
<MI 246b2 BEQ 0x246da> {}
<POP 246b4-246da Naked> Σ0 ↓
<Blob 0x246b4 [2] @> Δ-2 {[«2""»]}
<Blob 0x246b8 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x246bc [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 246c0-246c2 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x246c2 6> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<MI 246d0 LEA.L (A6-0x6),A4> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<Call 0x246d2 0x24192> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<POP 246d6-246da StackAdj> Δ+10 {}
<POP 246da-246e4 Naked> Σ0 ↓ →0x24706 ←0x246aa
<MI 246da MOVE.W (A6+0xe),D0> {}
<MI 246de ANDI.W #0x2000,D0> {}
<MI 246e2 BEQ 0x24706> {}
<POP 246e4-24706 Naked> Σ0 ↓
<Blob 0x246e4 [20] @> Δ-20 {[«20""»]}
<POP 246f0-246f2 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x246f2 20> {[«20""»]|[$$Operation Incomplete]}
<MI 246fe LEA.L (A6-0x6),A4> {[«20""»]|[$$Operation Incomplete]}
<Call 0x24700 0x24192> {[«20""»]|[$$Operation Incomplete]}
<POP 24704-24706 StackAdj> Δ+24 {}
<POP 24706-24710 Naked> Σ0 ↓ →0x24732 ←0x246da
<MI 24706 MOVE.W (A6+0xe),D0> {}
<MI 2470a ANDI.W #0x1000,D0> {}
<MI 2470e BEQ 0x24732> {}
<POP 24710-24732 Naked> Σ0 ↓
<Blob 0x24710 [18] @> Δ-18 {[«18""»]}
<POP 2471c-2471e StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2471e 18> {[«18""»]|[$$Drive timing error]}
<MI 2472a LEA.L (A6-0x6),A4> {[«18""»]|[$$Drive timing error]}
<Call 0x2472c 0x24192> {[«18""»]|[$$Drive timing error]}
<POP 24730-24732 StackAdj> Δ+22 {}
<POP 24732-2473c Naked> Σ0 ↓ →0x24762 ←0x24706
<MI 24732 MOVE.W (A6+0xe),D0> {}
<MI 24736 ANDI.W #0x0800,D0> {}
<MI 2473a BEQ 0x24762> {}
<POP 2473c-24762 Naked> Σ0 ↓
<Blob 0x2473c [4] @> Δ-4 {[«4""»]}
<Blob 0x24740 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x24744 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x24748 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2474c-2474e StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2474e 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<MI 2475a LEA.L (A6-0x6),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<Call 0x2475c 0x24192> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<POP 24760-24762 StackAdj> Δ+20 {}
<POP 24762-2476c Naked> Σ0 ↓ →0x24796 ←0x24732
<MI 24762 MOVE.W (A6+0xe),D0> {}
<MI 24766 ANDI.W #0x0400,D0> {}
<MI 2476a BEQ 0x24796> {}
<POP 2476c-24796 Naked> Σ0 ↓
<Blob 0x2476c [22] @> Δ-22 {[«22""»]}
<POP 2477c-2477e StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x2477e 21> {[«22""»]|[$$Invalid address error]}
<MI 2478c LEA.L (A6-0x6),A4> {[«22""»]|[$$Invalid address error]}
<Call 0x2478e 0x24192> {[«22""»]|[$$Invalid address error]}
<POP 24792-24796 StackAdj> Δ+26 {}
<POP 24796-247a0 Naked> Σ0 ↓ →0x247c6 ←0x24762
<MI 24796 MOVE.W (A6+0xe),D0> {}
<MI 2479a ANDI.W #0x0200,D0> {}
<MI 2479e BEQ 0x247c6> {}
<POP 247a0-247c6 Naked> Σ0 ↓
<Blob 0x247a0 [4] @> Δ-4 {[«4""»]}
<Blob 0x247a4 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x247a8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x247ac [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 247b0-247b2 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x247b2 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Address overflow]}
<MI 247be LEA.L (A6-0x6),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Address overflow]}
<Call 0x247c0 0x24192> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Address overflow]}
<POP 247c4-247c6 StackAdj> Δ+20 {}
<POP 247c6-247d0 Naked> Σ0 ↓ →0x247f6 ←0x24796
<MI 247c6 MOVE.W (A6+0xe),D0> {}
<MI 247ca ANDI.W #0x0100,D0> {}
<MI 247ce BEQ 0x247f6> {}
<POP 247d0-247f6 Naked> Σ0 ↓
<Blob 0x247d0 [4] @> Δ-4 {[«4""»]}
<Blob 0x247d4 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x247d8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x247dc [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 247e0-247e2 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x247e2 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<MI 247ee LEA.L (A6-0x6),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<Call 0x247f0 0x24192> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<POP 247f4-247f6 StackAdj> Δ+20 {}
<POP 247f6-24800 Naked> Σ0 ↓ →0x24822 ←0x247c6
<MI 247f6 MOVE.W (A6+0xe),D0> {}
<MI 247fa ANDI.W #0x0080,D0> {}
<MI 247fe BEQ 0x24822> {}
<POP 24800-24822 Naked> Σ0 ↓
<Blob 0x24800 [20] @> Δ-20 {[«20""»]}
<POP 2480c-2480e StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2480e 20> {[«20""»]|[$$Header compare error]}
<MI 2481a LEA.L (A6-0x6),A4> {[«20""»]|[$$Header compare error]}
<Call 0x2481c 0x24192> {[«20""»]|[$$Header compare error]}
<POP 24820-24822 StackAdj> Δ+24 {}
<POP 24822-2482c Naked> Σ0 ↓ →0x2484e ←0x247f6
<MI 24822 MOVE.W (A6+0xe),D0> {}
<MI 24826 ANDI.W #0x0040,D0> {}
<MI 2482a BEQ 0x2484e> {}
<POP 2482c-2484e Naked> Σ0 ↓
<Blob 0x2482c [14] @> Δ-14 {[«14""»]}
<POP 24838-2483a StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x2483a 14> {[«14""»]|[$$ECC hard error]}
<MI 24846 LEA.L (A6-0x6),A4> {[«14""»]|[$$ECC hard error]}
<Call 0x24848 0x24192> {[«14""»]|[$$ECC hard error]}
<POP 2484c-2484e StackAdj> Δ+18 {}
<POP 2484e-24858 Naked> Σ0 ↓ →0x2487e ←0x24822
<MI 2484e MOVE.W (A6+0xe),D0> {}
<MI 24852 ANDI.W #0x0020,D0> {}
<MI 24856 BEQ 0x2487e> {}
<POP 24858-2487e Naked> Σ0 ↓
<Blob 0x24858 [4] @> Δ-4 {[«4""»]}
<Blob 0x2485c [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x24860 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x24864 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 24868-2486a StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2486a 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write clock fail]}
<MI 24876 LEA.L (A6-0x6),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write clock fail]}
<Call 0x24878 0x24192> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write clock fail]}
<POP 2487c-2487e StackAdj> Δ+20 {}
<POP 2487e-24886 Naked> Σ0 ↓ →0x248aa ←0x2484e
<MI 2487e MOVE.W (A6+0xe),D0> {}
<MI 24882 AND.W #0x10,D0> {}
<MI 24884 BEQ 0x248aa> {}
<POP 24886-248aa Naked> Σ0 ↓
<Blob 0x24886 [4] @> Δ-4 {[«4""»]}
<Blob 0x2488a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2488e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 24892-24894 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x24894 12> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<MI 248a2 LEA.L (A6-0x6),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<Call 0x248a4 0x24192> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<POP 248a8-248aa StackAdj> Δ+16 {}
<POP 248aa-248b4 Naked> Σ0 ↓ →0x248e0 ←0x2487e
<MI 248aa MOVE.W (A6+0xe),D0> {}
<MI 248ae ANDI.W #0x0004,D0> {}
<MI 248b2 BEQ 0x248e0> {}
<POP 248b4-248e0 Naked> Σ0 ↓
<Blob 0x248b4 [30] @> Δ-30 {[«30""»]}
<POP 248c6-248c8 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x248c8 29> {[«30""»]|[$$Register modification refused]}
<MI 248d6 LEA.L (A6-0x6),A4> {[«30""»]|[$$Register modification refused]}
<Call 0x248d8 0x24192> {[«30""»]|[$$Register modification refused]}
<POP 248dc-248e0 StackAdj> Δ+34 {}
<POP 248e0-248e8 Naked> Σ0 ↓ →0x2490e ←0x248aa
<MI 248e0 MOVE.W (A6+0xe),D0> {}
<MI 248e4 AND.W #0x01,D0> {}
<MI 248e6 BEQ 0x2490e> {}
<POP 248e8-2490e Naked> Σ0 ↓
<Blob 0x248e8 [4] @> Δ-4 {[«4""»]}
<Blob 0x248ec [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x248f0 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x248f4 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 248f8-248fa StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x248fa 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<MI 24906 LEA.L (A6-0x6),A4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<Call 0x24908 0x24192> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<POP 2490c-2490e StackAdj> Δ+20 {}
<POP 2490e-24918 Naked> Σ0 ↓ →0x2493c ←0x248e0
<MI 2490e MOVE.W (A6+0x10),D0> {}
<MI 24912 ANDI.W #0x8000,D0> {}
<MI 24916 BEQ 0x2493c> {}
<POP 24918-2493c Naked> Σ0 ↓
<Blob 0x24918 [10] @> Δ-10 {[«10""»]}
<POP 24924-24926 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x24926 10> {[«10""»]|[$$Bad sector]}
<MI 24934 LEA.L (A6-0x6),A4> {[«10""»]|[$$Bad sector]}
<Call 0x24936 0x24192> {[«10""»]|[$$Bad sector]}
<POP 2493a-2493c StackAdj> Δ+14 {}
<POP 2493c-24946 Naked> Σ0 ↓ →0x2496e ←0x2490e
<MI 2493c MOVE.W (A6+0x10),D0> {}
<MI 24940 ANDI.W #0x4000,D0> {}
<MI 24944 BEQ 0x2496e> {}
<POP 24946-2496e Naked> Σ0 ↓
<Blob 0x24946 [16] @> Δ-16 {[«16""»]}
<POP 24956-24958 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x24958 15> {[«16""»]|[$$Seek incomplete]}
<MI 24966 LEA.L (A6-0x6),A4> {[«16""»]|[$$Seek incomplete]}
<Call 0x24968 0x24192> {[«16""»]|[$$Seek incomplete]}
<POP 2496c-2496e StackAdj> Δ+20 {}
<POP 2496e-24978 Naked> Σ0 ↓ →0x249a0 ←0x2493c
<MI 2496e MOVE.W (A6+0x10),D0> {}
<MI 24972 ANDI.W #0x1000,D0> {}
<MI 24976 BEQ 0x249a0> {}
<POP 24978-249a0 Naked> Σ0 ↓
<Blob 0x24978 [16] @> Δ-16 {[«16""»]}
<POP 24988-2498a StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x2498a 15> {[«16""»]|[$$Invalid command]}
<MI 24998 LEA.L (A6-0x6),A4> {[«16""»]|[$$Invalid command]}
<Call 0x2499a 0x24192> {[«16""»]|[$$Invalid command]}
<POP 2499e-249a0 StackAdj> Δ+20 {}
<POP 249a0-249aa Naked> Σ0 ↓ →0x249cc ←0x2496e
<MI 249a0 MOVE.W (A6+0x10),D0> {}
<MI 249a4 ANDI.W #0x0800,D0> {}
<MI 249a8 BEQ 0x249cc> {}
<POP 249aa-249cc Naked> Σ0 ↓
<Blob 0x249aa [20] @> Δ-20 {[«20""»]}
<POP 249b6-249b8 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x249b8 20> {[«20""»]|[$$Loss of system clock]}
<MI 249c4 LEA.L (A6-0x6),A4> {[«20""»]|[$$Loss of system clock]}
<Call 0x249c6 0x24192> {[«20""»]|[$$Loss of system clock]}
<POP 249ca-249cc StackAdj> Δ+24 {}
<POP 249cc-249d6 Naked> Σ0 ↓ →0x249fe ←0x249a0
<MI 249cc MOVE.W (A6+0x10),D0> {}
<MI 249d0 ANDI.W #0x0400,D0> {}
<MI 249d4 BEQ 0x249fe> {}
<POP 249d6-249fe Naked> Σ0 ↓
<Blob 0x249d6 [18] @> Δ-18 {[«18""»]}
<POP 249e6-249e8 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x249e8 17> {[«18""»]|[$$Loss of bit clock]}
<MI 249f6 LEA.L (A6-0x6),A4> {[«18""»]|[$$Loss of bit clock]}
<Call 0x249f8 0x24192> {[«18""»]|[$$Loss of bit clock]}
<POP 249fc-249fe StackAdj> Δ+22 {}
<POP 249fe-24a08 Naked> Σ0 ↓ →0x24a2c ←0x249cc
<MI 249fe MOVE.W (A6+0x10),D0> {}
<MI 24a02 ANDI.W #0x0080,D0> {}
<MI 24a06 BEQ 0x24a2c> {}
<POP 24a08-24a2c Naked> Σ0 ↓
<Blob 0x24a08 [4] @> Δ-4 {[«4""»]}
<Blob 0x24a0c [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x24a10 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 24a14-24a16 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x24a16 12> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<MI 24a24 LEA.L (A6-0x6),A4> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<Call 0x24a26 0x24192> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<POP 24a2a-24a2c StackAdj> Δ+16 {}
<POP 24a2c-24a36 Naked> Σ0 ↓ →0x24a5e ←0x249fe
<MI 24a2c MOVE.W (A6+0x10),D0> {}
<MI 24a30 ANDI.W #0x0020,D0> {}
<MI 24a34 BEQ 0x24a5e> {}
<POP 24a36-24a5e Naked> Σ0 ↓
<Blob 0x24a36 [18] @> Δ-18 {[«18""»]}
<POP 24a46-24a48 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x24a48 17> {[«18""»]|[$$Skip sector error]}
<MI 24a56 LEA.L (A6-0x6),A4> {[«18""»]|[$$Skip sector error]}
<Call 0x24a58 0x24192> {[«18""»]|[$$Skip sector error]}
<POP 24a5c-24a5e StackAdj> Δ+22 {}
<POP 24a5e-24a66 Epilogue> Σ0 ←0x24a2c
@ 24a66
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24a66-24b58 Body>
<POP 24a66-24a7c Prologue> Σ0 ↓
<POP 24a7c-24a94 RegCacheLoad> Σ0 ↓
<POP 24a94-24b50 Naked> Σ0 ↓
<MI 24a94 MOVE.L (A6+0x14),-(A7)> Δ-4 {[4, '(A6+0x14)']}
<Call 0x24a98 0x103d8> {[4, '(A6+0x14)']}
WriteConsoleString(str : String)
<POP 24a9a-24a9b StackAdj> Δ+4 ↓ {}
<Blob 0x24a9b [12] @> Δ-12 {[«12""»]}
<POP 24aaa-24aac StackAdj> Δ-8 {[«12""»]|[-8-]}
<Lit 0x24aac 11> {[«12""»]|[-4-]|[$$Cylinder =>]}
<MI 24ab6 MOVE.L (A6+0x10),-(A7)> Δ-4 {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x10)']}
<POP 24ab4-24ab6 StackAdj> Δ-8 {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x10)']|[-8-]}
<Call 0x24aba 0x102e4> {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x10)']|[-8-]}
Long2String(a : Long) : String
<POP 24abc-24abe StackAdj> Δ+4 {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x10)']|[-4-]}
<Const 0x24abe 0x4.4> Δ-4 {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x10)']|[-4-]|[##4]}
<Call 0x24ac2 0x102f4> {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x10)']|[-4-]|[##4]}
RightPad(a : String; b : Long) : String
<POP 24ac8-24aca StackAdj> Δ+8 {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x10)']}
<Call 0x24aca 0x102d0> {[«12""»]|[-4-]|[$$Cylinder =>]|[4, '(A6+0x10)']}
StringCat2(a, b : String) : String
<POP 24ad0-24ad2 StackAdj> Δ+8 {[«12""»]|[-4-]}
<Call 0x24ad2 0x103d8> {[«12""»]|[-4-]}
WriteConsoleString(str : String)
<POP 24ad4-24ad6 StackAdj> Δ+16 {}
<Blob 0x24ad6 [10] @> Δ-10 {[«10""»]}
<POP 24ae2-24ae4 StackAdj> Δ-8 {[«10""»]|[-8-]}
<Lit 0x24ae4 10> {[«10""»]|[-4-]|[$$, Track =>]}
<MI 24af0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0xc)']}
<POP 24aee-24af0 StackAdj> Δ-8 {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0xc)']|[-8-]}
<Call 0x24af4 0x102e4> {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0xc)']|[-8-]}
Long2String(a : Long) : String
<POP 24af6-24af8 StackAdj> Δ+4 {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0xc)']|[-4-]}
<Const 0x24af8 0x4.4> Δ-4 {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0xc)']|[-4-]|[##4]}
<Call 0x24afc 0x102f4> {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0xc)']|[-4-]|[##4]}
RightPad(a : String; b : Long) : String
<POP 24b02-24b04 StackAdj> Δ+8 {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0xc)']}
<Call 0x24b04 0x102d0> {[«10""»]|[-4-]|[$$, Track =>]|[4, '(A6+0xc)']}
StringCat2(a, b : String) : String
<POP 24b0a-24b0c StackAdj> Δ+8 {[«10""»]|[-4-]}
<Call 0x24b0c 0x103d8> {[«10""»]|[-4-]}
WriteConsoleString(str : String)
<POP 24b0e-24b0f StackAdj> Δ+14 ↓ {}
<Blob 0x24b0f [12] @> Δ-12 {[«12""»]}
<POP 24b1e-24b20 StackAdj> Δ-8 {[«12""»]|[-8-]}
<Lit 0x24b20 11> {[«12""»]|[-4-]|[$$, Sector =>]}
<MI 24b2a MOVE.L (A6+0x8),-(A7)> Δ-4 {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x8)']}
<POP 24b28-24b2a StackAdj> Δ-8 {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x8)']|[-8-]}
<Call 0x24b2e 0x102e4> {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x8)']|[-8-]}
Long2String(a : Long) : String
<POP 24b30-24b32 StackAdj> Δ+4 {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x8)']|[-4-]}
<Const 0x24b32 0x4.4> Δ-4 {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x8)']|[-4-]|[##4]}
<Call 0x24b36 0x102f4> {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x8)']|[-4-]|[##4]}
RightPad(a : String; b : Long) : String
<POP 24b3c-24b3e StackAdj> Δ+8 {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x8)']}
<Call 0x24b3e 0x102d0> {[«12""»]|[-4-]|[$$, Sector =>]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 24b44-24b46 StackAdj> Δ+8 {[«12""»]|[-4-]}
<Call 0x24b46 0x103d8> {[«12""»]|[-4-]}
WriteConsoleString(str : String)
<POP 24b48-24b4a StackAdj> Δ+16 {}
<Call 0x24b4a 0x103dc> {}
WriteConsoleCrLf(void)
<POP 24b50-24b58 Epilogue> Σ0
@ 24b58
<LVAR 0x008 4(r)>
<LVAR -0x008 2(w)>
<LVAR -0x00e 2(w)>
<LVAR -0x012 @>
<LVAR -0x014 @ 1(r)>
<POP 24b58-24be2 Body>
<POP 24b58-24b6e Prologue> Σ0 ↓
<POP 24b6e-24baa Naked> Σ0 ↓ →0x24bda
<MI 24b6e MOVE.W #0x2,(A6-0xe)> {}
<MI 24b74 MOVE.W 0x295f6,D0> {}
<MI 24b7a ASL.W #0x8,D0> {}
<MI 24b7c ADDQ.W #0x1,D0> {}
<MI 24b7e MOVE.W D0,(A6-0x8)> {}
<Pointer.fp 0x24b82 <LVAR -0x012 @>> Δ-4 {[@@-18]}
<MI 24b86 MOVEA.L (A6+0x8),A0> {[@@-18]}
<MI 24b8a MOVE.L A0,-(A7)> Δ-4 {[@@-18]|[4, 'A0']}
<MI 24b8c CLR.W -(A7)> Δ-2 {[@@-18]|[4, 'A0']|[#0]}
<Call 0x24b8e 0x10204> {[@@-18]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 24b94-24b96 StackAdj> Δ+8 {[-2-]}
<MI 24b96 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x24b98 <LVAR -0x014 @ 1(r)>> Δ-4 {[-2-]|[@@-20]}
<Call 0x24b9c 0x10206> {[-2-]|[@@-20]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 24ba2-24ba4 StackAdj> Δ+6 {}
<MI 24ba4 TST.B (A6-0x14)> {}
<MI 24ba8 BNE 0x24bda> {}
<POP 24baa-24bda Naked> Σ0 ↓
<Blob 0x24baa [38] @> Δ-38 {[«38""»]}
<POP 24bbc-24bbe StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x24bbe 37> {[«38""»]|[$$Error while reading disk error status]}
<Call 0x24bd2 0x224cc> {[«38""»]|[$$Error while reading disk error status]}
<POP 24bd6-24bda StackAdj> Δ+42 {}
<POP 24bda-24be2 Epilogue> Σ0 ←0x24b6e
@ 24be2
<LVAR 0x00c 2(r)>
<LVAR 0x008 4(r)>
<POP 24be2-24c3c Body>
<POP 24be2-24bf8 Prologue> Σ0 ↓
<POP 24bf8-24c34 Naked> Σ0 ↓
<MI 24bf8 MOVEA.L (A6+0x8),A0> {}
<MI 24bfc CLR.L D0> {}
<MI 24bfe MOVE.W (A6+0xc),D0> {}
<MI 24c02 CLR.L D1> {}
<MI 24c04 MOVE.B 0x295fb,D1> {}
<MI 24c0a DIVU.W D1,D0> {}
<MI 24c0c MOVE.L D0,D2> {}
<MI 24c0e SWAP.W D2> {}
<MI 24c10 MOVE.B D2,(A0+0x3)> {}
<MI 24c14 CLR.L D2> {}
<MI 24c16 MOVE.W D0,D2> {}
<MI 24c18 CLR.L D0> {}
<MI 24c1a MOVE.B 0x295fa,D0> {}
<MI 24c20 DIVU.W D0,D2> {}
<MI 24c22 SWAP.W D2> {}
<MI 24c24 MOVE.B D2,(A0+0x2)> {}
<MI 24c28 MULS.W D0,D1> {}
<MI 24c2a CLR.L D0> {}
<MI 24c2c MOVE.W (A6+0xc),D0> {}
<MI 24c30 DIVU.W D1,D0> {}
<MI 24c32 MOVE.W D0,(A0)> {}
<POP 24c34-24c3c Epilogue> Σ0
@ 24c3c
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24c3c-24cb4 Body>
<POP 24c3c-24c52 Prologue> Σ0 ↓
<POP 24c52-24cac Naked> Σ0 ↓
<MI 24c52 MOVEA.L (A6+0x8),A0> {}
<MI 24c56 MOVE.L (A6+0xc),D4> {}
<MI 24c5a CLR.L D3> {}
<MI 24c5c MOVE.B 0x295fb,D3> {}
<MI 24c62 MOVE.L D3,-(A7)> Δ-4 {[4, 'D3']}
<Call 0x24c64 0x10298> {[4, 'D3']}
?divu_d3_d4
<MI 24c6a MOVE.B D3,(A0+0x3)> {[4, 'D3']}
<MI 24c6e CLR.L D3> {[4, 'D3']}
<MI 24c70 MOVE.B 0x295fa,D3> {[4, 'D3']}
<MI 24c76 MOVE.L D3,-(A7)> Δ-4 {[4, 'D3']|[4, 'D3']}
<Call 0x24c78 0x10298> {[4, 'D3']|[4, 'D3']}
?divu_d3_d4
<MI 24c7e MOVE.B D3,(A0+0x2)> {[4, 'D3']|[4, 'D3']}
<MI 24c82 MOVE.L (A7+0x4),D4> {[4, 'D3']|[4, 'D3']}
<MI 24c86 MOVE.L (A7)+,D0> Δ+4 {[4, 'D3']}
<MI 24c88 MOVE.L D0,D3> {[4, 'D3']}
<Call 0x24c8a 0x1028c> {[4, 'D3']}
?muls_d3_d4
<POP 24c90-24c92 StackAdj> Δ+4 {}
<MI 24c92 MOVE.W D4,D3> {}
<MI 24c94 EXTW.L D3> {}
<MI 24c96 MOVE.L (A6+0xc),D4> {}
<Call 0x24c9a 0x10294> {}
?divs_d3_d4
<POP 0x24ca0 LimitCheck 0x0 ≤ D4 ≤ 0xffff> {}
<MI 24caa MOVE.W D4,(A0)> {}
<POP 24cac-24cb4 Epilogue> Σ0
@ 24cb4
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24cb4-24dba Body> Δ-4
<POP 24cb4-24cca Prologue> Σ0 ↓
<POP 24cca-24cd6 RegCacheLoad> Σ0 ↓
<POP 24cd6-24ce0 Naked> Σ0 ↓ →0x24d10
<MI 24cd6 MOVE.L 0x295f2,D0> {}
<MI 24cd8 CMPI.L #0x00000800,D0> {}
<MI 24cde BNE 0x24d10> {}
<POP 24ce0-24d10 Naked> Σ0 ↓
<Blob 0x24ce0 [34] @> Δ-34 {[«34""»]}
<POP 24cf2-24cf4 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x24cf4 33> {[«34""»]|[$$Too many defects (2048) to handle]}
<Call 0x24d08 0x224cc> {[«34""»]|[$$Too many defects (2048) to handle]}
<POP 24d0c-24d10 StackAdj> Δ+38 {}
<POP 24d10-24d16 Naked> Σ0 Δ-4 ↓ ←0x24cd6
<Blob 0x24d10 [4] 0x295f2> Δ-4 {[«4»]}
<MI 24d12 SUBQ.L #0x1,(A7)> {[-4-]}
<MI 24d14 MOVEQ.L #0x00,D7> {[-4-]}
<POP 24d16-24d1a Naked> Σ-4 ↓ →0x24d5e ←0x24d5a
<MI 24d16 CMP.L (A7),D7> {[-4-]}
<MI 24d18 BGT 0x24d5e> {[-4-]}
<POP 24d1a-24d3e Naked> Σ-4 ↓ →0x24d5a
<POP 0x24d1a LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {[-4-]}
<MI 24d24 MOVE.L D7,D0> {[-4-]}
<MI 24d26 ASL.L #0x2,D0> {[-4-]}
<MI 24d28 LEA.L 0x295b8,A0> {[-4-]}
<MI 24d2a LEA.L (A0+D0.L),A0> {[-4-]}
<MI 24d2e CLR.L D0> {[-4-]}
<MI 24d30 MOVE.W (A0+0x44c),D0> {[-4-]}
<MI 24d34 LSL.W #0x2,D0> {[-4-]}
<MI 24d36 LSR.W #0x2,D0> {[-4-]}
<MI 24d38 CMP.L (A6+0x10),D0> {[-4-]}
<MI 24d3c BNE 0x24d5a> {[-4-]}
<POP 24d3e-24d4a Naked> Σ-4 ↓ →0x24d5a
<MI 24d3e CLR.L D0> {[-4-]}
<MI 24d40 MOVE.B (A0+0x44e),D0> {[-4-]}
<MI 24d44 CMP.L (A6+0xc),D0> {[-4-]}
<MI 24d48 BNE 0x24d5a> {[-4-]}
<POP 24d4a-24d56 Naked> Σ-4 ↓ →0x24d5a
<MI 24d4a CLR.L D0> {[-4-]}
<MI 24d4c MOVE.B (A0+0x44f),D0> {[-4-]}
<MI 24d50 CMP.L (A6+0x8),D0> {[-4-]}
<MI 24d54 BNE 0x24d5a> {[-4-]}
<POP 24d56-24d5a Naked> Σ-4 Δ+4 →0x24db2
<POP 24d56-24d58 StackAdj> Δ+4 {}
<MI 24d58 BRA 0x24db2> {}
<POP 24d5a-24d5e Naked> Σ-4 ↓ →0x24d16 ←0x24d1a ←0x24d3e ←0x24d4a
<MI 24d5a ADDQ.L #0x1,D7> {[-4-]}
<MI 24d5c BVC 0x24d16> {[-4-]}
<POP 24d5e-24db2 Naked> Σ-4 Δ+4 ↓ ←0x24d16
<POP 24d5e-24d60 StackAdj> Δ+4 {}
<MI 24d60 MOVE.L 0x295f2,D0> {}
<POP 0x24d62 LimitCheck 0x0 ≤ D0 ≤ 0x7ff> {}
<MI 24d6c ASL.L #0x2,D0> {}
<MI 24d6e LEA.L 0x295b8,A0> {}
<MI 24d70 LEA.L (A0+D0.L),A0> {}
<MI 24d74 MOVE.L (A6+0x10),D0> {}
<POP 0x24d78 LimitCheck 0x0 ≤ D0 ≤ 0x3fff> {}
<MI 24d82 ANDI.W #0xc000,(A0+0x44c)> {}
<MI 24d88 OR.W D0,(A0+0x44c)> {}
<MI 24d8c MOVE.L (A6+0xc),D0> {}
<POP 0x24d90 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 24d9a MOVE.B D0,(A0+0x44e)> {}
<MI 24d9e MOVE.L (A6+0x8),D0> {}
<POP 0x24da2 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 24dac MOVE.B D0,(A0+0x44f)> {}
<MI 24db0 ADDQ.L #0x1,0x295f2> {}
<POP 24db2-24dba Epilogue> Σ0 ←0x24d56
@ 24dba
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x21b 1(w)>
<LVAR -0x21c 1(w)>
<LVAR -0x21e @ 1(w) 2(w)>
<LVAR -0x220 2(w)>
<LVAR -0x222 2(w)>
<LVAR -0x224 2(w)>
<LVAR -0x226 2(r)>
<LVAR -0x228 2(r)>
<LVAR -0x22a 2(w)>
<LVAR -0x22c 2(r)>
<LVAR -0x22e @ 2(r)>
<LVAR -0x230 @>
<LVAR -0x234 @>
<POP 24dba-24eb2 Body>
<POP 24dba-24dd0 Prologue> Σ0 ↓
<POP 24dd0-24dda RegCacheLoad> Σ0 ↓
<POP 24dda-24e30 Naked> Σ0 ↓
<MI 24dda LEA.L (A6-0x21e),A0> {}
<MI 24ddc MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 24dde MOVE.L (A7)+,D6> Δ+4 {}
<MI 24de0 CLR.W (A6-0x22e)> {}
<MI 24de4 CLR.W (A6-0x22c)> {}
<MI 24de8 MOVE.W #0x2,(A6-0x22a)> {}
<MI 24dee CLR.W (A6-0x228)> {}
<MI 24df2 CLR.W (A6-0x226)> {}
<MI 24df6 MOVE.W 0x295f6,D0> {}
<MI 24dfc ASL.W #0x8,D0> {}
<MI 24dfe ADDQ.W #0x8,D0> {}
<MI 24e00 MOVE.W D0,(A6-0x224)> {}
<MI 24e04 MOVE.L (A6+0x10),D0> {}
<POP 0x24e08 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 24e12 MOVE.W D0,(A6-0x222)> {}
<MI 24e16 MOVE.L (A6+0xc),D0> {}
<MI 24e1a ASL.L #0x8,D0> {}
<MI 24e1c ADD.L (A6+0x8),D0> {}
<POP 0x24e20 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 24e2a MOVE.W D0,(A6-0x220)> {}
<MI 24e2e MOVEQ.L #0x00,D7> {}
<POP 24e30-24e4c Naked> Σ0 ↓ →0x24e30 ←0x24e30
<POP 0x24e30 LimitCheck 0x0 ≤ D7 ≤ 0xff> {}
<MI 24e36 MOVE.L D7,D0> {}
<MI 24e38 ASL.L #0x1,D0> {}
<MI 24e3a LEA.L (A6-0x234),A0> {}
<MI 24e3e MOVE.W 0x295c6,(A0+D0.L+#0x1a)> {}
<MI 24e46 ADDQ.L #0x1,D7> {}
<MI 24e48 CMP.L #0xff,D7> {}
<MI 24e4a BLE 0x24e30> {}
<POP 24e4c-24eaa Naked> Σ0 ↓
<MI 24e4c ORI.B #0x10,(A6-0x21e)> {}
<MI 24e50 ANDI.B #0xbf,(A6-0x21e)> {}
<MI 24e54 ANDI.B #0x7f,(A6-0x21e)> {}
<MI 24e58 ANDI.B #0xdf,(A6-0x21e)> {}
<MI 24e5c MOVE.L (A6+0x10),D0> {}
<POP 0x24e60 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 24e6a ANDI.W #0xf000,(A6-0x21e)> {}
<MI 24e6e OR.W D0,(A6-0x21e)> {}
<MI 24e70 MOVE.L (A6+0xc),D0> {}
<POP 0x24e74 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 24e7a MOVE.B D0,(A6-0x21c)> {}
<MI 24e7e MOVE.L (A6+0x8),D0> {}
<POP 0x24e82 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 24e88 MOVE.B D0,(A6-0x21b)> {}
<Pointer.fp 0x24e8c <LVAR -0x22e @ 2(r)>> Δ-4 {[@@-558]}
<MI 24e90 MOVE.L D6,-(A7)> Δ-4 {[@@-558]|[4, 'D6']}
<MI 24e92 CLR.W -(A7)> Δ-2 {[@@-558]|[4, 'D6']|[#0]}
<Call 0x24e94 0x10204> {[@@-558]|[4, 'D6']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 24e9a-24e9c StackAdj> Δ+8 {[-2-]}
<MI 24e9c CLR.W (A7)> {[-2-]}
<Pointer.fp 0x24e9e <LVAR -0x230 @>> Δ-4 {[-2-]|[@@-560]}
<Call 0x24ea2 0x10206> {[-2-]|[@@-560]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 24ea8-24eaa StackAdj> Δ+6 {}
<POP 24eaa-24eb2 Epilogue> Σ0
@ 24eb2
<LVAR -0x006 4(rw)>
<LVAR -0x01e 4(rw)>
<LVAR -0x022 4(rw)>
<LVAR -0x026 4(rw)>
<LVAR -0x028 @ 1(r)>
<LVAR -0x02c 2(w)>
<LVAR -0x02e 2(w)>
<LVAR -0x030 2(r)>
<LVAR -0x032 2(r)>
<LVAR -0x034 2(w)>
<LVAR -0x036 2(r)>
<LVAR -0x038 @ 2(r)>
<LVAR -0x03c 4(w)>
<LVAR -0x03d 1(r)>
<LVAR -0x03e 1(r)>
<LVAR -0x040 @ 2(r)>
<POP 24eb2-2528c Body> Δ-4
<POP 24eb2-24ec8 Prologue> Σ0 ↓
<POP 24ec8-24eda RegCacheLoad> Σ0 ↓
<POP 24eda-24eea Naked> Σ0 ↓ →0x25022
<MI 24eda CLR.L (A6-0x6)> {}
<POP 24edc-24ede StackAdj> Δ-2 {[-2-]}
<Call 0x24ede 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 24ee4 TST.B (A7)+> Δ+2 {}
<MI 24ee6 BEQ 0x25022> {}
<POP 24eea-24f3e Naked> Σ0 ↓ →0x24f62
<MI 24eea CLR.W (A6-0x38)> {}
<MI 24eee CLR.W (A6-0x36)> {}
<MI 24ef2 MOVE.W #0x2,(A6-0x34)> {}
<MI 24ef8 CLR.W (A6-0x32)> {}
<MI 24efc CLR.W (A6-0x30)> {}
<MI 24f00 MOVE.W 0x295f6,D0> {}
<MI 24f06 ASL.W #0x8,D0> {}
<MI 24f08 ADDI.W #0x000a,D0> {}
<MI 24f0c MOVE.W D0,(A6-0x2e)> {}
<MI 24f10 MOVE.W #0x18,(A6-0x2c)> {}
<Pointer.fp 0x24f14 <LVAR -0x038 @ 2(r)>> Δ-4 {[@@-56]}
<MI 24f18 LEA.L 0x2e1ec,A0> {[@@-56]}
<MI 24f1e MOVE.L A0,-(A7)> Δ-4 {[@@-56]|[4, 'A0']}
<MI 24f20 CLR.W -(A7)> Δ-2 {[@@-56]|[4, 'A0']|[#0]}
<Call 0x24f22 0x10204> {[@@-56]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 24f28-24f2a StackAdj> Δ+8 {[-2-]}
<MI 24f2a CLR.W (A7)> {[-2-]}
<Pointer.fp 0x24f2c <LVAR -0x028 @ 1(r)>> Δ-4 {[-2-]|[@@-40]}
<Call 0x24f30 0x10206> {[-2-]|[@@-40]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 24f36-24f38 StackAdj> Δ+6 {}
<MI 24f38 TST.B (A6-0x28)> {}
<MI 24f3c BNE 0x24f62> {}
<POP 24f3e-24f62 Naked> Σ0 ↓
<Blob 0x24f3e [36] @> Δ-36 {[«36""»]}
<POP 24f4a-24f4c StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x24f4c 36> {[«36""»]|[$$failure reading defect map from disk]}
<Call 0x24f5a 0x224cc> {[«36""»]|[$$failure reading defect map from disk]}
<POP 24f5e-24f62 StackAdj> Δ+40 {}
<POP 24f62-24f7e Naked> Σ0 Δ-4 ↓ ←0x24eea
<MI 24f62 MOVE.W 0x2e1ee,D0> {}
<MI 24f68 LSR.W #0x2,D0> {}
<MI 24f6a CLR.L D1> {}
<MI 24f6c MOVE.W D0,D1> {}
<MI 24f6e MOVE.L D1,(A6-0x3c)> {}
<MI 24f72 CLR.L 0x295f2> {}
<MI 24f78 SUBQ.L #0x1,D1> {}
<MI 24f7a MOVE.L D1,-(A7)> Δ-4 {[4, 'D1']}
<MI 24f7c MOVEQ.L #0x00,D0> {[4, 'D1']}
<POP 24f7e-24f84 Naked> Σ-4 ↓ →0x2501c ←0x25016
<MI 24f7e CMP.L (A7),D0> {[-4-]}
<MI 24f80 BGT 0x2501c> {[-4-]}
<POP 24f84-24fa2 Naked> Σ-4 ↓ →0x25016
<POP 0x24f84 LimitCheck 0x0 ≤ D0 ≤ 0x1f7> {[-4-]}
<MI 24f8e MOVE.L D0,D1> {[-4-]}
<MI 24f90 ASL.L #0x2,D1> {[-4-]}
<MI 24f92 LEA.L 0x295b8,A0> {[-4-]}
<MI 24f98 LEA.L (A0+D1.L),A0> {[-4-]}
<MI 24f9c TST.B (A0+0x4c38)> {[-4-]}
<MI 24fa0 BNE 0x25016> {[-4-]}
<POP 24fa2-25016 Naked> Σ-4 ↓
<MI 24fa2 ADDQ.L #0x1,(A6-0x6)> {[-4-]}
<MI 24fa4 CLR.L D1> {[-4-]}
<MI 24fa6 MOVE.B (A0+0x4c39),D1> {[-4-]}
<MI 24faa ASL.W #0x8,D1> {[-4-]}
<MI 24fac CLR.L D2> {[-4-]}
<MI 24fae MOVE.B (A0+0x4c3a),D2> {[-4-]}
<MI 24fb2 ADD.W D1,D2> {[-4-]}
<MI 24fb4 EXTW.L D2> {[-4-]}
<MI 24fb6 MOVE.L D2,D7> {[-4-]}
<MI 24fb8 ASL.L #0x8,D7> {[-4-]}
<MI 24fba CLR.L D1> {[-4-]}
<MI 24fbc MOVE.B (A0+0x4c3b),D1> {[-4-]}
<MI 24fc0 ADD.L D1,D7> {[-4-]}
<MI 24fc2 ADD.L D7,D7> {[-4-]}
<MI 24fc4 MOVE.L D7,-(A7)> Δ-4 {[-4-]|[4, 'D7']}
<Pointer.fp 0x24fc6 <LVAR -0x040 @ 2(r)>> Δ-4 {[-4-]|[4, 'D7']|[@@-64]}
<Call 0x24fc8 0x24c3c> {[-4-]|[4, 'D7']|[@@-64]}
<POP 24fcc-24fce StackAdj> Δ+8 {[-4-]}
<MI 24fce CLR.L D1> {[-4-]}
<MI 24fd0 MOVE.W (A6-0x40),D1> {[-4-]}
<MI 24fd2 MOVE.L D1,-(A7)> Δ-4 {[-4-]|[4, 'D1']}
<MI 24fd4 CLR.L D1> {[-4-]|[4, 'D1']}
<MI 24fd6 MOVE.B (A6-0x3e),D1> {[-4-]|[4, 'D1']}
<MI 24fda MOVE.L D1,-(A7)> Δ-4 {[-4-]|[4, 'D1']|[4, 'D1']}
<MI 24fdc CLR.L D1> {[-4-]|[4, 'D1']|[4, 'D1']}
<MI 24fde MOVE.B (A6-0x3d),D1> {[-4-]|[4, 'D1']|[4, 'D1']}
<MI 24fe2 MOVE.L D1,-(A7)> Δ-4 {[-4-]|[4, 'D1']|[4, 'D1']|[4, 'D1']}
<Call 0x24fe4 0x24cb4> {[-4-]|[4, 'D1']|[4, 'D1']|[4, 'D1']}
<POP 24fe8-24fec StackAdj> Δ+12 {[-4-]}
<MI 24fec ADDQ.L #0x1,D7> {[-4-]}
<MI 24fee MOVE.L D7,-(A7)> Δ-4 {[-4-]|[4, 'D7']}
<Pointer.fp 0x24ff0 <LVAR -0x040 @ 2(r)>> Δ-4 {[-4-]|[4, 'D7']|[@@-64]}
<Call 0x24ff2 0x24c3c> {[-4-]|[4, 'D7']|[@@-64]}
<POP 24ff6-24ff8 StackAdj> Δ+8 {[-4-]}
<MI 24ff8 CLR.L D1> {[-4-]}
<MI 24ffa MOVE.W (A6-0x40),D1> {[-4-]}
<MI 24ffc MOVE.L D1,-(A7)> Δ-4 {[-4-]|[4, 'D1']}
<MI 24ffe CLR.L D1> {[-4-]|[4, 'D1']}
<MI 25000 MOVE.B (A6-0x3e),D1> {[-4-]|[4, 'D1']}
<MI 25004 MOVE.L D1,-(A7)> Δ-4 {[-4-]|[4, 'D1']|[4, 'D1']}
<MI 25006 CLR.L D1> {[-4-]|[4, 'D1']|[4, 'D1']}
<MI 25008 MOVE.B (A6-0x3d),D1> {[-4-]|[4, 'D1']|[4, 'D1']}
<MI 2500c MOVE.L D1,-(A7)> Δ-4 {[-4-]|[4, 'D1']|[4, 'D1']|[4, 'D1']}
<Call 0x2500e 0x24cb4> {[-4-]|[4, 'D1']|[4, 'D1']|[4, 'D1']}
<POP 25012-25016 StackAdj> Δ+12 {[-4-]}
<POP 25016-2501c Naked> Σ-4 ↓ →0x24f7e ←0x24f84
<MI 25016 ADDQ.L #0x1,D0> {[-4-]}
<MI 25018 BVC 0x24f7e> {[-4-]}
<POP 2501c-25022 Naked> Σ-4 Δ+4 →0x25284 ←0x24f7e
<POP 2501c-2501e StackAdj> Δ+4 {}
<MI 2501e BRA 0x25284> {}
<POP 25022-2504c Naked> Σ0 ↓ ←0x24eda
<Blob 0x25022 [20] @> Δ-20 {[«20""»]}
<POP 2502e-25030 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x25030 20> {[«20""»]|[$$Flagging bad blocks.]}
<Call 0x2503e 0x103e0> {[«20""»]|[$$Flagging bad blocks.]}
WriteConsoleStringCrLf(str : String)
<POP 25044-25046 StackAdj> Δ+24 {}
<MI 25046 CLR.L (A6-0x26)> {}
<MI 2504a MOVEQ.L #0x00,D0> {}
<POP 2504c-2507a Naked> Σ0 Δ-8 ↓ →0x25196 ←0x251a4
<MI 2504c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<POP 0x2504e LimitCheck 0x0 ≤ D0 ≤ 0x7ff> {[4, 'D0']}
<MI 25058 MOVE.L D0,D1> {[4, 'D0']}
<MI 2505a ASL.L #0x2,D1> {[4, 'D0']}
<MI 2505c LEA.L 0x295b8,A0> {[4, 'D0']}
<MI 25062 LEA.L (A0+D1.L),A0> {[4, 'D0']}
<MI 25066 MOVE.L A0,-(A7)> Δ-4 {[4, 'D0']|[4, 'A0']}
<MI 25068 MOVE.W (A0+0x44c),D1> {[4, 'D0']|[4, 'A0']}
<MI 2506c LSL.W #0x2,D1> {[4, 'D0']|[4, 'A0']}
<MI 2506e LSR.W #0x2,D1> {[4, 'D0']|[4, 'A0']}
<MI 25070 CMP.W 0x295f8,D1> {[4, 'D0']|[4, 'A0']}
<MI 25076 BHI 0x25196> {[4, 'D0']|[4, 'A0']}
<POP 2507a-25086 Naked> Σ-8 ↓ →0x25094
<MI 2507a MOVE.B 0x295fa,D2> {[-8-]}
<MI 25080 CMP.B (A0+0x44e),D2> {[-8-]}
<MI 25084 BCC 0x25094> {[-8-]}
<POP 25086-25094 Naked> Σ-8 ↓ →0x25196
<MI 25086 CLR.L D2> {[-8-]}
<MI 25088 MOVE.B (A0+0x44e),D2> {[-8-]}
<MI 2508c CMPI.W #0x00ff,D2> {[-8-]}
<MI 25090 BNE 0x25196> {[-8-]}
<POP 25094-250a0 Naked> Σ-8 ↓ →0x250ae ←0x2507a
<MI 25094 MOVE.B 0x295fb,D2> {[-8-]}
<MI 2509a CMP.B (A0+0x44f),D2> {[-8-]}
<MI 2509e BCC 0x250ae> {[-8-]}
<POP 250a0-250ae Naked> Σ-8 ↓ →0x25196
<MI 250a0 CLR.L D2> {[-8-]}
<MI 250a2 MOVE.B (A0+0x44f),D2> {[-8-]}
<MI 250a6 CMPI.W #0x00ff,D2> {[-8-]}
<MI 250aa BNE 0x25196> {[-8-]}
<POP 250ae-250b2 Naked> Σ-8 ↓ →0x250c0 ←0x25094
<MI 250ae TST.W D1> {[-8-]}
<MI 250b0 BNE 0x250c0> {[-8-]}
<POP 250b2-250b8 Naked> Σ-8 ↓ →0x250c0
<MI 250b2 TST.B (A0+0x44e)> {[-8-]}
<MI 250b6 BNE 0x250c0> {[-8-]}
<POP 250b8-250c0 Naked> Σ-8 ↓ →0x25196
<MI 250b8 TST.B (A0+0x44f)> {[-8-]}
<MI 250bc BEQ 0x25196> {[-8-]}
<POP 250c0-250ce Naked> Σ-8 ↓ →0x250f4 ←0x250ae ←0x250b2
<MI 250c0 ADDQ.L #0x1,(A6-0x6)> {[-8-]}
<MI 250c2 CLR.L D1> {[-8-]}
<MI 250c4 MOVE.B (A0+0x44e),D1> {[-8-]}
<MI 250c8 CMPI.W #0x00ff,D1> {[-8-]}
<MI 250cc BNE 0x250f4> {[-8-]}
<POP 250ce-250e2 Naked> Σ-8 ↓
<MI 250ce CLR.L (A6-0x22)> {[-8-]}
<MI 250d2 CLR.L D1> {[-8-]}
<MI 250d4 MOVE.B 0x295fa,D1> {[-8-]}
<MI 250da SUBQ.W #0x1,D1> {[-8-]}
<MI 250dc EXTW.L D1> {[-8-]}
<MI 250de MOVE.L D1,(A6-0x1e)> {[-8-]}
<POP 250e2-250f4 Naked> Σ-8 →0x25116 ←0x2510c
<MI 250e2 MOVEQ.L #0x00,D6> {[-8-]}
<MI 250e4 CLR.L D1> {[-8-]}
<MI 250e6 MOVE.B 0x295fb,D1> {[-8-]}
<MI 250ec SUBQ.W #0x1,D1> {[-8-]}
<MI 250ee EXTW.L D1> {[-8-]}
<MI 250f0 MOVE.L D1,D5> {[-8-]}
<MI 250f2 BRA 0x25116> {[-8-]}
<POP 250f4-2510c Naked> Σ-8 ↓ →0x2510e ←0x250c0
<MI 250f4 MOVE.W D1,D2> {[-8-]}
<MI 250f6 EXTW.L D2> {[-8-]}
<MI 250f8 MOVE.L D2,(A6-0x22)> {[-8-]}
<MI 250fc MOVE.L D2,(A6-0x1e)> {[-8-]}
<MI 25100 CLR.L D1> {[-8-]}
<MI 25102 MOVE.B (A0+0x44f),D1> {[-8-]}
<MI 25106 CMPI.W #0x00ff,D1> {[-8-]}
<MI 2510a BNE 0x2510e> {[-8-]}
<POP 2510c-2510e Naked> Σ-8 →0x250e2
<MI 2510c BRA 0x250e2> {[-8-]}
<POP 2510e-25116 Naked> Σ-8 ↓ ←0x250f4
<MI 2510e MOVE.W D1,D2> {[-8-]}
<MI 25110 EXTW.L D2> {[-8-]}
<MI 25112 MOVE.L D2,D6> {[-8-]}
<MI 25114 MOVE.L D2,D5> {[-8-]}
<POP 25116-25122 Naked> Σ-8 Δ-4 ↓ →0x25136 ←0x250e2
<MI 25116 MOVE.L (A6-0x1e),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x1e)']}
<MI 2511a MOVE.L (A6-0x22),D1> {[-8-]|[4, '(A6-0x1e)']}
<MI 2511e CMP.L (A7),D1> {[-8-]|[4, '(A6-0x1e)']}
<MI 25120 BGT 0x25136> {[-8-]|[4, '(A6-0x1e)']}
<POP 25122-25136 Naked> Σ-12 ↓
<MI 25122 MOVE.L (A7),D2> {[-12-]}
<POP 0x25124 LimitCheck -0x7fffffff ≤ D1> {[-12-]}
<MI 25124 CMPI.L #0x80000001,D1>
<MI 2512a BLT 0x25134>
<POP 0x2512c LimitCheck D2 ≤ 0x7fffffff> {[-12-]}
<MI 2512c CMPI.L #0x7fffffff,D2>
<MI 25132 BLE 0x25136>
<MI 25134 TRAP #15>
<POP 25136-2513a Naked> Σ-12 ↓ →0x2513e ←0x25116 ←0x25190
<MI 25136 CMP.L (A7),D1> {[-12-]}
<MI 25138 BLE 0x2513e> {[-12-]}
<POP 2513a-2513e Naked> Σ-12 Δ-4 →0x25194
<POP 2513a-2513c StackAdj> Δ-4 {[-16-]}
<MI 2513c BRA 0x25194> {[-16-]}
<POP 2513e-25148 Naked> Σ-12 Δ-8 ↓ →0x2515c ←0x25136
<MI 2513e MOVE.L D1,-(A7)> Δ-4 {[-12-]|[4, 'D1']}
<MI 25140 MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, 'D1']|[4, 'D5']}
<MI 25142 MOVE.L D6,D0> {[-12-]|[4, 'D1']|[4, 'D5']}
<MI 25144 CMP.L (A7),D0> {[-12-]|[4, 'D1']|[4, 'D5']}
<MI 25146 BGT 0x2515c> {[-12-]|[4, 'D1']|[4, 'D5']}
<POP 25148-2515c Naked> Σ-20 ↓
<MI 25148 MOVE.L (A7),D2> {[-20-]}
<POP 0x2514a LimitCheck -0x7fffffff ≤ D0> {[-20-]}
<MI 2514a CMPI.L #0x80000001,D0>
<MI 25150 BLT 0x2515a>
<POP 0x25152 LimitCheck D2 ≤ 0x7fffffff> {[-20-]}
<MI 25152 CMPI.L #0x7fffffff,D2>
<MI 25158 BLE 0x2515c>
<MI 2515a TRAP #15>
<POP 2515c-25160 Naked> Σ-20 ↓ →0x25188 ←0x2513e ←0x25160
<MI 2515c CMP.L (A7),D0> {[-20-]}
<MI 2515e BGT 0x25188> {[-20-]}
<POP 25160-25188 Naked> Σ-20 ↓ →0x2515c
<MI 25160 ADDQ.L #0x1,(A6-0x26)> {[-20-]}
<MI 25164 MOVEA.L (A7+0xc),A0> {[-20-]}
<MI 25168 CLR.L D1> {[-20-]}
<MI 2516a MOVE.W (A0+0x44c),D1> {[-20-]}
<MI 2516e LSL.W #0x2,D1> {[-20-]}
<MI 25170 LSR.W #0x2,D1> {[-20-]}
<MI 25172 MOVE.L D1,-(A7)> Δ-4 {[-20-]|[4, 'D1']}
<MI 25174 MOVE.L (A7+0x8),D1> {[-20-]|[4, 'D1']}
<MI 25178 MOVE.L D1,-(A7)> Δ-4 {[-20-]|[4, 'D1']|[4, 'D1']}
<MI 2517a MOVE.L D0,-(A7)> Δ-4 {[-20-]|[4, 'D1']|[4, 'D1']|[4, 'D0']}
<Call 0x2517c 0x24dba> {[-20-]|[4, 'D1']|[4, 'D1']|[4, 'D0']}
<POP 25180-25184 StackAdj> Δ+12 {[-20-]}
<MI 25184 ADDQ.L #0x1,D0> {[-20-]}
<MI 25186 BVC 0x2515c> {[-20-]}
<POP 25188-25190 Naked> Σ-20 Δ+4 ↓ →0x25194 ←0x2515c
<POP 25188-2518a StackAdj> Δ+4 {[-16-]}
<MI 2518a MOVE.L (A7),D1> {[-16-]}
<MI 2518c ADDQ.L #0x1,D1> {[-16-]}
<MI 2518e BVS 0x25194> {[-16-]}
<POP 25190-25194 Naked> Σ-16 Δ+4 →0x25136
<POP 25190-25192 StackAdj> Δ+4 {[-12-]}
<MI 25192 BRA 0x25136> {[-12-]}
<POP 25194-25196 Naked> Σ-16 Δ+8 ↓ ←0x2513a ←0x25188
<POP 25194-25196 StackAdj> Δ+8 {[-8-]}
<POP 25196-251a4 Naked> Σ-8 Δ+4 ↓ →0x251aa ←0x2504c ←0x25086 ←0x250a0 ←0x250b8
<POP 25196-25198 StackAdj> Δ+4 {[-4-]}
<MI 25198 MOVE.L (A7),D0> {[-4-]}
<MI 2519a ADDQ.L #0x1,D0> {[-4-]}
<MI 2519c CMPI.L #0x000007ff,D0> {[-4-]}
<MI 251a2 BGT 0x251aa> {[-4-]}
<POP 251a4-251aa Naked> Σ-4 Δ+4 →0x2504c
<POP 251a4-251a6 StackAdj> Δ+4 {}
<MI 251a6 BRA 0x2504c> {}
<POP 251aa-251f8 Naked> Σ-4 Δ+4 ↓ →0x25220 ←0x25196
<POP 251aa-251ac StackAdj> Δ+4 {}
<Blob 0x251ac [20] @> Δ-20 {[«20""»]}
<POP 251b8-251ba StackAdj> Δ-8 {[«20""»]|[-8-]}
<MI 251ba MOVE.L (A6-0x26),-(A7)> Δ-4 {[«20""»]|[-8-]|[4, '(A6-0x26)']}
<Call 0x251be 0x102e4> {[«20""»]|[-8-]|[4, '(A6-0x26)']}
Long2String(a : Long) : String
<Lit 0x251c4 20> {[«20""»]|[-8-]|[$$ bad blocks flagged.]}
<Call 0x251d2 0x102d0> {[«20""»]|[-8-]|[$$ bad blocks flagged.]}
StringCat2(a, b : String) : String
<POP 251d8-251da StackAdj> Δ+8 {[«20""»]|[-4-]}
<Call 0x251da 0x103e0> {[«20""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 251e0-251e2 StackAdj> Δ+24 {}
<Call 0x251e2 0x103dc> {}
WriteConsoleCrLf(void)
<MI 251e8 MOVE.L #0x800,D0> {}
<MI 251ee SUB.L (A6-0x6),D0> {}
<MI 251f0 CMPI.L #0x00000200,D0> {}
<MI 251f6 BGE 0x25220> {}
<POP 251f8-25220 Naked> Σ0 →0x2527e
<Blob 0x251f8 [40] @> Δ-40 {[«40""»]}
<POP 25204-25206 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x25206 40> {[«40""»]|[$$Defect entries exceeds maximum permitted]}
<Call 0x25214 0x103e0> {[«40""»]|[$$Defect entries exceeds maximum permitted]}
WriteConsoleStringCrLf(str : String)
<POP 2521a-2521e StackAdj> Δ+44 {}
<MI 2521e BRA 0x2527e> {}
<POP 25220-2527e Naked> Σ0 ↓ ←0x251aa
<Blob 0x25220 [28] @> Δ-28 {[«28""»]}
<Blob 0x2522c [34] @> Δ-34 {[«28""»]|[«34""»]}
<POP 2523e-25240 StackAdj> Δ-8 {[«28""»]|[«34""»]|[-8-]}
<MI 25240 MOVE.L (A6-0x6),-(A7)> Δ-4 {[«28""»]|[«34""»]|[-8-]|[4, '(A6-0x6)']}
<Call 0x25242 0x102e4> {[«28""»]|[«34""»]|[-8-]|[4, '(A6-0x6)']}
Long2String(a : Long) : String
<Lit 0x25248 28> {[«28""»]|[«34""»]|[-8-]|[$$ defect table entries used,_]}
<MI 25254 MOVE.L D0,(A7)> {[«28""»]|[«34""»]|[-8-]|[4, 'D0']}
<POP 25252-25254 StackAdj> Δ-8 {[«28""»]|[«34""»]|[-8-]|[4, 'D0']|[-8-]}
<Call 0x25256 0x102e4> {[«28""»]|[«34""»]|[-8-]|[4, 'D0']|[-8-]}
Long2String(a : Long) : String
<Lit 0x2525c 33> {[«28""»]|[«34""»]|[-8-]|[4, 'D0']|[-4-]|[$$ available defect entries remain.]}
<Call 0x2526a 0x102d8> {[«28""»]|[«34""»]|[-8-]|[4, 'D0']|[-4-]|[$$ available defect entries remain.]}
StringCat4(a, b, c, d : String) : String
<POP 25270-25274 StackAdj> Δ+16 {[«28""»]|[«34""»]|[-4-]}
<Call 0x25274 0x103e0> {[«28""»]|[«34""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2527a-2527e StackAdj> Δ+66 {}
<POP 2527e-25284 Naked> Σ0 ↓ ←0x251f8
<Call 0x2527e 0x103dc> {}
WriteConsoleCrLf(void)
<POP 25284-2528c Epilogue> Σ0 ←0x2501c
@ 2528c
<LVAR 0x010 1(rw)>
<LVAR 0x00f 1(r)>
<LVAR 0x00e 1(r)>
<LVAR 0x00d 1(r)>
<LVAR 0x00c 1(r)>
<POP 2528c-252e2 Body>
<POP 2528c-252a2 Prologue> Σ0 ↓
<POP 252a2-252d6 Naked> Σ0 ↓ →0x252da
<MI 252a2 CLR.L D0> {}
<MI 252a4 MOVE.B (A6+0xc),D0> {}
<MI 252a8 ASL.W #0x8,D0> {}
<MI 252aa CLR.L D1> {}
<MI 252ac MOVE.B (A6+0xd),D1> {}
<MI 252b0 ADD.W D0,D1> {}
<MI 252b2 EXTW.L D1> {}
<MI 252b4 ASL.L #0x8,D1> {}
<MI 252b6 CLR.L D0> {}
<MI 252b8 MOVE.B (A6+0xe),D0> {}
<MI 252bc ADD.L D1,D0> {}
<MI 252be ASL.L #0x8,D0> {}
<MI 252c0 CLR.L D1> {}
<MI 252c2 MOVE.B (A6+0xf),D1> {}
<MI 252c6 ADD.L D0,D1> {}
<MI 252c8 MOVE.L D1,D7> {}
<MI 252ca CLR.B (A6+0x10)> {}
<MI 252ce CMPI.L #0x00000400,D7> {}
<MI 252d4 BEQ 0x252da> {}
<POP 252d6-252da Naked> Σ0 ↓
<MI 252d6 ADDQ.B #0x1,(A6+0x10)> {}
<POP 252da-252e2 Epilogue> Σ0 ←0x252a2
@ 252e2
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @ 4(r)>
<LVAR -0x00c @ 1(r)>
<LVAR -0x00e 2(rw)>
<LVAR -0x010 2(rw)>
<LVAR -0x012 2(w)>
<LVAR -0x014 2(r)>
<LVAR -0x016 2(r)>
<LVAR -0x018 2(w)>
<LVAR -0x01a 2(r)>
<LVAR -0x01c @ 2(r)>
<POP 252e2-258b2 Body> Δ+342
<POP 252e2-252f8 Prologue> Σ0 ↓
<POP 252f8-2530e RegCacheLoad> Σ0 ↓
<POP 2530e-25346 Naked> Σ0 ↓ →0x2585e
<Pointer.fp 0x2530e <LVAR -0x00a @ 4(r)>> Δ-4 {[@@-10]}
<Call 0x25312 0x10304> {[@@-10]}
GetRtc() : TimeStamp
<POP 25318-2531a StackAdj> Δ+4 {}
<MI 2531a CLR.W (A6-0x1c)> {}
<MI 2531c CLR.W (A6-0x1a)> {}
<MI 25320 MOVE.W #0x02,(A6-0x18)> {}
<MI 25324 CLR.W (A6-0x16)> {}
<MI 25328 CLR.W (A6-0x14)> {}
<MI 2532c MOVE.W 0x295f6,D0> {}
<MI 2532e ASL.W #0x8,D0> {}
<MI 25330 MOVE.W D0,(A6-0x12)> {}
<MI 25334 CLR.W (A6-0x10)> {}
<MI 25338 CLR.W (A6-0xe)> {}
<MI 2533c TST.B 0x295f1> {}
<MI 25342 BEQ 0x2585e> {}
<POP 25346-25354 Naked> Σ0 ↓ →0x25618
<POP 25346-25348 StackAdj> Δ-2 {[-2-]}
<Call 0x25348 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 2534e TST.B (A7)+> Δ+2 {}
<MI 25350 BEQ 0x25618> {}
<POP 25354-253a8 Naked> Σ0 ↓ →0x253d2
<MI 25354 MOVEQ.L #0x00,D7> {}
<MI 25356 CLR.W (A6-0x1c)> {}
<MI 25358 CLR.W (A6-0x1a)> {}
<MI 2535c MOVE.W #0x02,(A6-0x18)> {}
<MI 25360 CLR.W (A6-0x16)> {}
<MI 25364 CLR.W (A6-0x14)> {}
<MI 25368 MOVE.W 0x295f6,D0> {}
<MI 2536a ASL.W #0x8,D0> {}
<MI 2536c ADDI.W #0x0014,D0> {}
<MI 25370 MOVE.W D0,(A6-0x12)> {}
<MI 25374 MOVE.W #0x3,(A6-0x10)> {}
<MI 2537a MOVE.W #0x24,(A6-0xe)> {}
<Pointer.fp 0x25380 <LVAR -0x01c @ 2(r)>> Δ-4 {[@@-28]}
<MI 25382 LEA.L 0x2e9d0,A0> {[@@-28]}
<MI 25388 MOVE.L A0,-(A7)> Δ-4 {[@@-28]|[4, 'A0']}
<MI 2538a CLR.W -(A7)> Δ-2 {[@@-28]|[4, 'A0']|[#0]}
<Call 0x2538c 0x10204> {[@@-28]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 25392-25394 StackAdj> Δ+8 {[-2-]}
<MI 25394 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x25396 <LVAR -0x00c @ 1(r)>> Δ-4 {[-2-]|[@@-12]}
<Call 0x2539a 0x10206> {[-2-]|[@@-12]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 253a0-253a2 StackAdj> Δ+6 {}
<MI 253a2 TST.B (A6-0xc)> {}
<MI 253a6 BNE 0x253d2> {}
<POP 253a8-253d2 Naked> Σ0 ↓
<Blob 0x253a8 [26] @> Δ-26 {[«26""»]}
<POP 253ba-253bc StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x253bc 25> {[«26""»]|[$$MODE SELECT PAGE 3 FAILED]}
<Call 0x253ca 0x224cc> {[«26""»]|[$$MODE SELECT PAGE 3 FAILED]}
<POP 253ce-253d2 StackAdj> Δ+30 {}
<POP 253d2-253de Naked> Σ0 ↓ →0x25404 ←0x25354
<MI 253d2 MOVE.W 0x2e9e8,D0> {}
<MI 253d8 CMP.W 0x2234a,D0> {}
<MI 253dc BNE 0x25404> {}
<POP 253de-253ea Naked> Σ0 ↓ →0x25404
<MI 253de MOVE.W 0x2e9e6,D0> {}
<MI 253e4 CMP.W 0x2234a,D0> {}
<MI 253e8 BNE 0x25404> {}
<POP 253ea-25404 Naked> Σ0 ↓ →0x25522
<POP 253ea-253ec StackAdj> Δ-2 {[-2-]}
<Blob 0x253ec [4] 0x2e9d8> Δ-4 {[-2-]|[«4»]}
<Blob 0x253f2 [4] 0x2e9d4> Δ-4 {[-2-]|[«4»]|[«4»]}
<Call 0x253f8 0x2528c> {[-2-]|[«4»]|[«4»]}
<POP 253fc-253fe StackAdj> Δ+8 {[-2-]}
<MI 253fe TST.B (A7)+> Δ+2 {}
<MI 25400 BEQ 0x25522> {}
<POP 25404-25468 Naked> Σ0 ↓ →0x25492 ←0x253d2 ←0x253de
<MI 25404 LEA.L 0x2e9d0,A0> {}
<MI 2540a LEA.L 0x22332,A1> {}
<BlockMove 37,A1,A0> {}
<MI 25416 CLR.W (A6-0x1c)> {}
<MI 25418 CLR.W (A6-0x1a)> {}
<MI 2541c MOVE.W #0x02,(A6-0x18)> {}
<MI 25420 CLR.W (A6-0x16)> {}
<MI 25424 CLR.W (A6-0x14)> {}
<MI 25428 MOVE.W 0x295f6,D0> {}
<MI 2542a ASL.W #0x8,D0> {}
<MI 2542c ADDI.W #0x0013,D0> {}
<MI 25430 MOVE.W D0,(A6-0x12)> {}
<MI 25434 MOVE.W #0x3,(A6-0x10)> {}
<MI 2543a MOVE.W #0x24,(A6-0xe)> {}
<Pointer.fp 0x25440 <LVAR -0x01c @ 2(r)>> Δ-4 {[@@-28]}
<MI 25442 LEA.L 0x2e9d0,A0> {[@@-28]}
<MI 25448 MOVE.L A0,-(A7)> Δ-4 {[@@-28]|[4, 'A0']}
<MI 2544a CLR.W -(A7)> Δ-2 {[@@-28]|[4, 'A0']|[#0]}
<Call 0x2544c 0x10204> {[@@-28]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 25452-25454 StackAdj> Δ+8 {[-2-]}
<MI 25454 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x25456 <LVAR -0x00c @ 1(r)>> Δ-4 {[-2-]|[@@-12]}
<Call 0x2545a 0x10206> {[-2-]|[@@-12]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 25460-25462 StackAdj> Δ+6 {}
<MI 25462 TST.B (A6-0xc)> {}
<MI 25466 BNE 0x25492> {}
<POP 25468-25492 Naked> Σ0 ↓
<Blob 0x25468 [26] @> Δ-26 {[«26""»]}
<POP 2547a-2547c StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x2547c 25> {[«26""»]|[$$MODE SELECT PAGE 3 FAILED]}
<Call 0x2548a 0x224cc> {[«26""»]|[$$MODE SELECT PAGE 3 FAILED]}
<POP 2548e-25492 StackAdj> Δ+30 {}
<POP 25492-254f8 Naked> Σ0 ↓ →0x25522 ←0x25404
<MI 25492 MOVEQ.L #0x01,D7> {}
<MI 25494 LEA.L 0x2e9f5,A0> {}
<MI 2549a LEA.L 0x22357,A1> {}
<BlockMove 35,A1,A0> {}
<MI 254a6 CLR.W (A6-0x1c)> {}
<MI 254a8 CLR.W (A6-0x1a)> {}
<MI 254ac MOVE.W #0x02,(A6-0x18)> {}
<MI 254b0 CLR.W (A6-0x16)> {}
<MI 254b4 CLR.W (A6-0x14)> {}
<MI 254b8 MOVE.W 0x295f6,D0> {}
<MI 254ba ASL.W #0x8,D0> {}
<MI 254bc ADDI.W #0x0013,D0> {}
<MI 254c0 MOVE.W D0,(A6-0x12)> {}
<MI 254c4 MOVE.W #0x4,(A6-0x10)> {}
<MI 254ca MOVE.W #0x20,(A6-0xe)> {}
<Pointer.fp 0x254d0 <LVAR -0x01c @ 2(r)>> Δ-4 {[@@-28]}
<MI 254d2 LEA.L 0x2e9f5,A0> {[@@-28]}
<MI 254d8 MOVE.L A0,-(A7)> Δ-4 {[@@-28]|[4, 'A0']}
<MI 254da CLR.W -(A7)> Δ-2 {[@@-28]|[4, 'A0']|[#0]}
<Call 0x254dc 0x10204> {[@@-28]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 254e2-254e4 StackAdj> Δ+8 {[-2-]}
<MI 254e4 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x254e6 <LVAR -0x00c @ 1(r)>> Δ-4 {[-2-]|[@@-12]}
<Call 0x254ea 0x10206> {[-2-]|[@@-12]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 254f0-254f2 StackAdj> Δ+6 {}
<MI 254f2 TST.B (A6-0xc)> {}
<MI 254f6 BNE 0x25522> {}
<POP 254f8-25522 Naked> Σ0 ↓
<Blob 0x254f8 [26] @> Δ-26 {[«26""»]}
<POP 2550a-2550c StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x2550c 25> {[«26""»]|[$$MODE SELECT PAGE 4 FAILED]}
<Call 0x2551a 0x224cc> {[«26""»]|[$$MODE SELECT PAGE 4 FAILED]}
<POP 2551e-25522 StackAdj> Δ+30 {}
<POP 25522-25574 Naked> Σ0 ↓ →0x2557a ←0x253ea ←0x25492
<MI 25522 CLR.B 0x2da08> {}
<MI 25528 ANDI.B #0x7f,0x2da09> {}
<MI 25530 ANDI.B #0xbf,0x2da09> {}
<MI 25538 ANDI.B #0xdf,0x2da09> {}
<MI 25540 ANDI.B #0xef,0x2da09> {}
<MI 25548 CLR.W 0x2da0a> {}
<MI 2554e CLR.W (A6-0x1c)> {}
<MI 25550 CLR.W (A6-0x1a)> {}
<MI 25554 MOVE.W #0x02,(A6-0x18)> {}
<MI 25558 CLR.W (A6-0x16)> {}
<MI 2555c CLR.W (A6-0x14)> {}
<MI 25560 MOVE.W 0x295f6,D0> {}
<MI 25562 ASL.W #0x8,D0> {}
<MI 25564 ADDI.W #0x000d,D0> {}
<MI 25568 MOVE.W D0,(A6-0x12)> {}
<MI 2556c TST.B 0x2ea18> {}
<MI 25572 BEQ 0x2557a> {}
<POP 25574-2557a Naked> Σ0 →0x25586 ←0x2557e
<MI 25574 CLR.W (A6-0x10)> {}
<MI 25578 BRA 0x25586> {}
<POP 2557a-2557e Naked> Σ0 ↓ →0x25580 ←0x25522
<MI 2557a TST.B D7> {}
<MI 2557c BEQ 0x25580> {}
<POP 2557e-25580 Naked> Σ0 →0x25574
<MI 2557e BRA 0x25574> {}
<POP 25580-25586 Naked> Σ0 ↓ ←0x2557a
<MI 25580 MOVE.W #0x1500,(A6-0x10)> {}
<POP 25586-2559c Naked> Σ0 ↓ →0x255ee ←0x25574
<MI 25586 CLR.W (A6-0xe)> {}
<MI 2558a CLR.B 0x2da06> {}
<MI 25590 MOVE.W 0x295e0,D0> {}
<MI 25596 SUBQ.W #0x1,D0> {}
<MI 25598 CMP.W #0x02,D0> {}
<MI 2559a BHI 0x255ee> {}
<POP 2559c-255a6 Naked> Σ0 →0x255d2 →0x255ac →0x255e0
<MI 2559c ADD.W D0,D0> {}
<MI 2559e SWITCH D0.W> {}
<POP 255ac-255b8 Naked> Σ0 Δ-48 ↓ ←0x2559c
<Blob 0x255ac [48] @> Δ-48 {[«48""»]}
<POP 255b8-255d2 Naked> Σ-48 Δ+48 →0x25614 ←0x255d2 ←0x255e0
<POP 255b8-255ba StackAdj> Δ-4 {[-52-]}
<Lit 0x255ba> {[-48-]|[$$…]}
<Pointer.sp 0x255ba 4> Δ-4
<Const 0x255be 0x1.2> Δ-2
<Const 0x255c0 0x30.2> Δ-2
<Call 0x255c2 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 255c4-255c6 StackAdj> Δ+8
<Call 0x255c6 0x103e0> {[-48-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 255cc-255d0 StackAdj> Δ+52 {}
<MI 255d0 BRA 0x25614> {}
<POP 255d2-255e0 Naked> Σ0 Δ-48 →0x255b8 ←0x2559c
<Blob 0x255d2 [48] @> Δ-48 {[«48""»]}
<MI 255de BRA 0x255b8> {[«48""»]}
<POP 255e0-255ee Naked> Σ0 Δ-48 →0x255b8 ←0x2559c
<Blob 0x255e0 [48] @> Δ-48 {[«48""»]}
<MI 255ec BRA 0x255b8> {[«48""»]}
<POP 255ee-25614 Naked> Σ0 ↓ ←0x25586
<Blob 0x255ee [46] @> Δ-46 {[«46""»]}
<POP 255fa-255fc StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x255fc 46> {[«46""»]|[$$The format time for foreign drives is unknown.]}
<Call 0x2560a 0x103e0> {[«46""»]|[$$The format time for foreign drives is unknown.]}
WriteConsoleStringCrLf(str : String)
<POP 25610-25614 StackAdj> Δ+50 {}
<POP 25614-25618 Naked> Σ0 →0x257f6 ←0x255b8
<MI 25614 BRA 0x257f6> {}
<POP 25618-25658 Naked> Σ0 ↓ →0x25732 ←0x25346
<MI 25618 CLR.W (A6-0x1c)> {}
<MI 2561a CLR.W (A6-0x1a)> {}
<MI 2561e MOVE.W #0x02,(A6-0x18)> {}
<MI 25622 CLR.W (A6-0x16)> {}
<MI 25626 CLR.W (A6-0x14)> {}
<MI 2562a MOVE.W 0x295f6,D0> {}
<MI 2562c ASL.W #0x8,D0> {}
<MI 2562e ADDI.W #0x000d,D0> {}
<MI 25632 MOVE.W D0,(A6-0x12)> {}
<MI 25636 MOVE.L (A6-0xa),0x295c4> {}
<MI 2563e MOVE.W 0x295c6,(A6-0x10)> {}
<MI 25646 CLR.W (A6-0xe)> {}
<POP 2564a-2564c StackAdj> Δ-2 {[-2-]}
<Call 0x2564c 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 25652 TST.B (A7)+> Δ+2 {}
<MI 25654 BEQ 0x25732> {}
<POP 25658-2567e Naked> Σ0 ↓ →0x2569c
<MI 25658 CLR.L D0> {}
<MI 2565a MOVE.B 0x295fa,D0> {}
<MI 25660 MULU.W 0x295f8,D0> {}
<MI 25666 MOVE.L D0,D4> {}
<MI 25668 MOVEQ.L #0x1e,D3> {}
<Call 0x2566a 0x10298> {}
?divu_d3_d4
<MI 25670 MOVEQ.L #0x3c,D3> {}
<Call 0x25672 0x10298> {}
?divu_d3_d4
<MI 25678 MOVE.L D4,D6> {}
<MI 2567a CMP.L #0x01,D6> {}
<MI 2567c BGE 0x2569c> {}
<POP 2567e-2569c Naked> Σ0 Δ-54 →0x256ee
<Blob 0x2567e [50] @> Δ-50 {[«50""»]}
<POP 2568a-2568c StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x2568c 50> {[«50""»]|[$$Formatting the drive will take less than 1 minute.]}
<MI 2569a BRA 0x256ee> {[«50""»]|[$$Formatting the drive will take less than 1 minute.]}
<POP 2569c-256ee Naked> Σ0 Δ-54 ↓ ←0x25658
<Blob 0x2569c [38] @> Δ-38 {[«38""»]}
<Blob 0x256ae [12] @> Δ-12 {[«38""»]|[«12""»]}
<POP 256c0-256c2 StackAdj> Δ-8 {[«38""»]|[«12""»]|[-8-]}
<Lit 0x256c2 37> {[«38""»]|[«12""»]|[-4-]|[$$Formatting the drive will take about_]}
<MI 256ce MOVE.L D6,(A7)> {[«38""»]|[«12""»]|[-4-]|[4, 'D6']}
<POP 256cc-256ce StackAdj> Δ-8 {[«38""»]|[«12""»]|[-4-]|[4, 'D6']|[-8-]}
<Call 0x256d0 0x102e4> {[«38""»]|[«12""»]|[-4-]|[4, 'D6']|[-8-]}
Long2String(a : Long) : String
<Lit 0x256d6 11> {[«38""»]|[«12""»]|[-4-]|[4, 'D6']|[-4-]|[$$ minute(s).]}
<Call 0x256e4 0x102d4> {[«38""»]|[«12""»]|[-4-]|[4, 'D6']|[-4-]|[$$ minute(s).]}
StringCat3(a, b, c : String) : String
<POP 256ea-256ee StackAdj> Δ+12 {[«38""»]|[«12""»]|[-4-]}
<POP 256ee-25732 Naked> Σ-54 Δ+54 →0x257f6 ←0x2567e
<Call 0x256ee 0x103e0> {[-54-]}
WriteConsoleStringCrLf(str : String)
<POP 256f4-256f8 StackAdj> Δ+54 {}
<Blob 0x256f8 [56] @> Δ-56 {[«56""»]}
<POP 25704-25706 StackAdj> Δ-6 {[«56""»]|[-6-]}
<Lit 0x25706 56> {[«56""»]|[-2-]|[$$Do you wish to skip formatting the server disk partition]}
<POP 25712-25714 StackAdj> Δ-2 {[«56""»]|[-2-]|[$$Do you wish to skip formatting the server disk partition]|[-2-]}
<MI 25714 CLR.B (A7)> {[«56""»]|[-2-]|[$$Do you wish to skip formatting the server disk partition]|[-2-]}
<Call 0x25716 0x103f0> {[«56""»]|[-2-]|[$$Do you wish to skip formatting the server disk partition]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 2571c-2571e StackAdj> Δ+6 {[«56""»]|[-2-]}
<MI 2571e MOVE.B (A7)+,D0> Δ+2 {[«56""»]}
<MI 25720 EXTB.W D0> {[«56""»]}
<POP 0x25722 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«56""»]}
<POP 25724-25728 StackAdj> Δ+56 {}
<MI 25728 MOVE.B D0,0x2da06> {}
<MI 2572e BRA 0x257f6> {}
<POP 25732-25748 Naked> Σ0 ↓ →0x257d0 ←0x25618
<MI 25732 CLR.B 0x2da06> {}
<MI 25738 MOVE.W 0x295e2,D0> {}
<MI 2573e SUBQ.W #0x1,D0> {}
<MI 25740 CMPI.W #0x0004,D0> {}
<MI 25744 BHI 0x257d0> {}
<POP 25748-25752 Naked> Σ0 →0x2575c →0x25788 →0x2579a →0x257ac →0x257be
<MI 25748 ADD.W D0,D0> {}
<MI 2574a SWITCH D0.W> {}
<POP 2575c-2576c Naked> Σ0 Δ-48 ↓ ←0x25748
<Blob 0x2575c [48] @> Δ-48 {[«48""»]}
<POP 2576c-25788 Naked> Σ-48 Δ+48 →0x257f6 ←0x25788 ←0x2579a ←0x257ac ←0x257be
<POP 2576c-2576e StackAdj> Δ-4 {[-52-]}
<Lit 0x2576e> {[-48-]|[$$…]}
<Pointer.sp 0x2576e 4> Δ-4
<Const 0x25772 0x1.2> Δ-2
<Const 0x25774 0x2f.2> Δ-2
<Call 0x25778 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2577a-2577c StackAdj> Δ+8
<Call 0x2577c 0x103e0> {[-48-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 25782-25786 StackAdj> Δ+52 {}
<MI 25786 BRA 0x257f6> {}
<POP 25788-2579a Naked> Σ0 Δ-48 →0x2576c ←0x25748
<Blob 0x25788 [48] @> Δ-48 {[«48""»]}
<MI 25798 BRA 0x2576c> {[«48""»]}
<POP 2579a-257ac Naked> Σ0 Δ-48 →0x2576c ←0x25748
<Blob 0x2579a [48] @> Δ-48 {[«48""»]}
<MI 257aa BRA 0x2576c> {[«48""»]}
<POP 257ac-257be Naked> Σ0 Δ-48 →0x2576c ←0x25748
<Blob 0x257ac [48] @> Δ-48 {[«48""»]}
<MI 257bc BRA 0x2576c> {[«48""»]}
<POP 257be-257d0 Naked> Σ0 Δ-48 →0x2576c ←0x25748
<Blob 0x257be [48] @> Δ-48 {[«48""»]}
<MI 257ce BRA 0x2576c> {[«48""»]}
<POP 257d0-257f6 Naked> Σ0 ↓ ←0x25732
<Blob 0x257d0 [46] @> Δ-46 {[«46""»]}
<POP 257dc-257de StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x257de 46> {[«46""»]|[$$The format time for foreign drives is unknown.]}
<Call 0x257ec 0x103e0> {[«46""»]|[$$The format time for foreign drives is unknown.]}
WriteConsoleStringCrLf(str : String)
<POP 257f2-257f6 StackAdj> Δ+50 {}
<POP 257f6-257fe Naked> Σ0 ↓ →0x2585e ←0x25614 ←0x256ee ←0x2576c
<MI 257f6 TST.B 0x2da06> {}
<MI 257fc BNE 0x2585e> {}
<POP 257fe-2583a Naked> Σ0 ↓ →0x2585e
<Pointer.fp 0x257fe <LVAR -0x01c @ 2(r)>> Δ-4 {[@@-28]}
<Const 0x25800 0x0.4> Δ-4 {[@@-28]|[##0]}
<MI 25804 CLR.W -(A7)> Δ-2 {[@@-28]|[##0]|[#0]}
<Call 0x25806 0x10204> {[@@-28]|[##0]|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 2580c-2580e StackAdj> Δ+8 {[-2-]}
<MI 2580e CLR.W (A7)> {[-2-]}
<Pointer.fp 0x25810 <LVAR -0x00c @ 1(r)>> Δ-4 {[-2-]|[@@-12]}
<Call 0x25814 0x10206> {[-2-]|[@@-12]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 2581a-2581c StackAdj> Δ+6 {}
<Pointer.fp 0x2581c <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x25820 0x10304> {[@@-6]}
GetRtc() : TimeStamp
<MI 25826 MOVE.L (A6-0xa),(A7)> {[4, '(A6-0xa)']}
<MI 2582a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<Call 0x2582e 0x22af2> {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<POP 25832-25834 StackAdj> Δ+8 {}
<MI 25834 TST.B (A6-0xc)> {}
<MI 25838 BNE 0x2585e> {}
<POP 2583a-2585e Naked> Σ0 ↓
<Blob 0x2583a [14] @> Δ-14 {[«14""»]}
<POP 25846-25848 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x25848 14> {[«14""»]|[$$Format failed!]}
<Call 0x25856 0x224cc> {[«14""»]|[$$Format failed!]}
<POP 2585a-2585e StackAdj> Δ+18 {}
<POP 2585e-2586a Naked> Σ0 ↓ →0x258a6 ←0x2530e ←0x257f6 ←0x257fe
<POP 2585e-25860 StackAdj> Δ-2 {[-2-]}
<Call 0x25860 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 25866 TST.B (A7)+> Δ+2 {}
<MI 25868 BEQ 0x258a6> {}
<POP 2586a-258a0 Naked> Σ0 ↓ →0x258a4
<MI 2586a MOVE.W 0x295f6,D0> {}
<MI 2586c ASL.W #0x8,D0> {}
<MI 2586e ADDI.W #0x0009,D0> {}
<MI 25872 MOVE.W D0,(A6-0x12)> {}
<Pointer.fp 0x25876 <LVAR -0x01c @ 2(r)>> Δ-4 {[@@-28]}
<Const 0x25878 0x0.4> Δ-4 {[@@-28]|[##0]}
<MI 2587c CLR.W -(A7)> Δ-2 {[@@-28]|[##0]|[#0]}
<Call 0x2587e 0x10204> {[@@-28]|[##0]|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 25884-25886 StackAdj> Δ+8 {[-2-]}
<MI 25886 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x25888 <LVAR -0x00c @ 1(r)>> Δ-4 {[-2-]|[@@-12]}
<Call 0x2588c 0x10206> {[-2-]|[@@-12]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 25892-25894 StackAdj> Δ+6 {}
<MI 25894 MOVE.W 0x295e0,D0> {}
<MI 2589a CMPI.W #0x0003,D0> {}
<MI 2589e BEQ 0x258a4> {}
<POP 258a0-258a4 Naked> Σ0 ↓
<Call 0x258a0 0x24eb2> {}
<POP 258a4-258a6 Naked> Σ0 →0x258aa ←0x2586a
<MI 258a4 BRA 0x258aa> {}
<POP 258a6-258aa Naked> Σ0 ↓ ←0x2585e
<Call 0x258a6 0x24eb2> {}
<POP 258aa-258b2 Epilogue> Σ0 ←0x258a4
@ 258b2
<LVAR 0x028 4(r)>
<LVAR 0x024 4(r)>
<LVAR 0x020 4(r)>
<LVAR 0x01e 1(r)>
<POP 258b2-25ac6 Body> Δ+34
<POP 258b2-258c8 Prologue> Σ0 ↓
<POP 258c8-258e6 RegCacheLoad> Σ0 ↓
<POP 258e6-258f2 Naked> Σ0 ↓ →0x2593e
<MI 258e6 MOVEQ.L #0x00,D7> {}
<MI 258e8 MOVEQ.L #0x00,D6> {}
<MI 258ea MOVE.L (A6+0x28),D0> {}
<MI 258ec OR.L (A6+0x24),D0> {}
<MI 258ee OR.L (A6+0x20),D0> {}
<MI 258f0 BEQ 0x2593e> {}
<POP 258f2-25914 Naked> Σ0 ↓ →0x25934 ←0x2593a
<POP 0x258f2 LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {}
<MI 258f8 MOVE.L D7,D0> {}
<MI 258fa ASL.L #0x2,D0> {}
<MI 258fc LEA.L 0x295b8,A0> {}
<MI 25902 LEA.L (A0+D0.L),A0> {}
<MI 25906 CLR.L D0> {}
<MI 25908 MOVE.W (A0+0x44c),D0> {}
<MI 2590c LSL.W #0x2,D0> {}
<MI 2590e LSR.W #0x2,D0> {}
<MI 25910 CMP.L (A6+0x28),D0> {}
<MI 25912 BNE 0x25934> {}
<POP 25914-2591e Naked> Σ0 ↓ →0x25934
<MI 25914 CLR.L D0> {}
<MI 25916 MOVE.B (A0+0x44e),D0> {}
<MI 2591a CMP.L (A6+0x24),D0> {}
<MI 2591c BNE 0x25934> {}
<POP 2591e-25928 Naked> Σ0 ↓ →0x25932
<MI 2591e CLR.L D0> {}
<MI 25920 MOVE.B (A0+0x44f),D0> {}
<MI 25924 CMP.L (A6+0x20),D0> {}
<MI 25926 BEQ 0x25932> {}
<POP 25928-25932 Naked> Σ0 ↓ →0x25934
<MI 25928 CLR.L D0> {}
<MI 2592a MOVE.B (A0+0x44f),D0> {}
<MI 2592e CMP.W #0xff,D0> {}
<MI 25930 BNE 0x25934> {}
<POP 25932-25934 Naked> Σ0 ↓ ←0x2591e
<MI 25932 MOVEQ.L #0x01,D6> {}
<POP 25934-2593a Naked> Σ0 ↓ →0x2593e ←0x258f2 ←0x25914 ←0x25928
<MI 25934 ADDQ.L #0x1,D7> {}
<MI 25936 TST.B D6> {}
<MI 25938 BNE 0x2593e> {}
<POP 2593a-2593e Naked> Σ0 ↓ →0x258f2
<MI 2593a CMP.L #0x7ff,D7> {}
<MI 2593c BLE 0x258f2> {}
<POP 2593e-25942 Naked> Σ0 ↓ →0x2597e ←0x258e6 ←0x25934
<MI 2593e TST.B D6> {}
<MI 25940 BEQ 0x2597e> {}
<POP 25942-25948 Naked> Σ0 ↓ →0x2597a
<MI 25942 TST.B (A6+0x1e)> {}
<MI 25946 BEQ 0x2597a> {}
<POP 25948-25978 Naked> Σ0 Δ-34 ↓
<Blob 0x25948 [34] @> Δ-34 {[«34""»]}
<POP 25958-2595a StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x2595a 33> {[«34""»]|[$$Previously detected bad block at_]}
<POP 25968-2596a StackAdj> Δ-4 {[«34""»]|[$$Previously detected bad block at_]|[-4-]}
<MI 2596a MOVE.L (A6+0x28),(A7)> {[«34""»]|[$$Previously detected bad block at_]|[4, '(A6+0x28)']}
<MI 2596c MOVE.L (A6+0x24),-(A7)> Δ-4 {[«34""»]|[$$Previously detected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']}
<MI 2596e MOVE.L (A6+0x20),-(A7)> Δ-4 {[«34""»]|[$$Previously detected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']}
<Call 0x25970 0x24a66> {[«34""»]|[$$Previously detected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']}
<POP 25974-25978 StackAdj> Δ+16 {[«34""»]}
<POP 25978-2597a Naked> Σ-34 Δ+34 ↓ ←0x25a36
<POP 25978-2597a StackAdj> Δ+34 {}
<POP 2597a-2597e Naked> Σ0 →0x25abe ←0x25942
<MI 2597a BRA 0x25abe> {}
<POP 2597e-259c4 Naked> Σ0 ↓ ←0x2593e
<Blob 0x2597e [22] (A6+0x1e)> Δ-22 {[«22»]}
<Call 0x2598a 0x2421e> {[«22»]}
<POP 2598e-2598f StackAdj> Δ+22 ↓ {}
<Blob 0x2598f [36] @> Δ-36 {[«36""»]}
<POP 259a0-259a2 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x259a2 35> {[«36""»]|[$$Previously undetected bad block at_]}
<POP 259b2-259b4 StackAdj> Δ-4 {[«36""»]|[$$Previously undetected bad block at_]|[-4-]}
<MI 259b4 MOVE.L (A6+0x28),(A7)> {[«36""»]|[$$Previously undetected bad block at_]|[4, '(A6+0x28)']}
<MI 259b6 MOVE.L (A6+0x24),-(A7)> Δ-4 {[«36""»]|[$$Previously undetected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']}
<MI 259b8 MOVE.L (A6+0x20),-(A7)> Δ-4 {[«36""»]|[$$Previously undetected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']}
<Call 0x259ba 0x24a66> {[«36""»]|[$$Previously undetected bad block at_]|[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']}
<POP 259be-259c2 StackAdj> Δ+52 {}
<MI 259c2 MOVEQ.L #0x00,D7> {}
<POP 259c4-259e2 Naked> Σ0 ↓ →0x259f2 ←0x259f8
<POP 0x259c4 LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {}
<MI 259ca MOVE.L D7,D0> {}
<MI 259cc ASL.L #0x2,D0> {}
<MI 259ce LEA.L 0x295b8,A0> {}
<MI 259d4 LEA.L (A0+D0.L),A0> {}
<MI 259d8 MOVE.W (A0+0x44c),D0> {}
<MI 259dc LSL.W #0x2,D0> {}
<MI 259de LSR.W #0x2,D0> {}
<MI 259e0 BNE 0x259f2> {}
<POP 259e2-259e8 Naked> Σ0 ↓ →0x259f2
<MI 259e2 TST.B (A0+0x44e)> {}
<MI 259e6 BNE 0x259f2> {}
<POP 259e8-259ee Naked> Σ0 ↓ →0x259f2
<MI 259e8 TST.B (A0+0x44f)> {}
<MI 259ec BNE 0x259f2> {}
<POP 259ee-259f2 Naked> Σ0 →0x259f4
<MI 259ee MOVEQ.L #0x01,D6> {}
<MI 259f0 BRA 0x259f4> {}
<POP 259f2-259f4 Naked> Σ0 ↓ ←0x259c4 ←0x259e2 ←0x259e8
<MI 259f2 ADDQ.L #0x1,D7> {}
<POP 259f4-259f8 Naked> Σ0 ↓ →0x259fc ←0x259ee
<MI 259f4 TST.B D6> {}
<MI 259f6 BNE 0x259fc> {}
<POP 259f8-259fc Naked> Σ0 ↓ →0x259c4
<MI 259f8 CMP.L #0x7ff,D7> {}
<MI 259fa BLE 0x259c4> {}
<POP 259fc-25a00 Naked> Σ0 ↓ →0x25a32 ←0x259f4
<MI 259fc TST.L (A6+0x28)> {}
<MI 259fe BNE 0x25a32> {}
<POP 25a00-25a04 Naked> Σ0 ↓ →0x25a32
<MI 25a00 TST.L (A6+0x24)> {}
<MI 25a02 BNE 0x25a32> {}
<POP 25a04-25a32 Naked> Σ0 ↓
<Blob 0x25a04 [52] @> Δ-52 {[«52""»]}
<POP 25a16-25a18 StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x25a18 51> {[«52""»]|[$$Disk error on cylinder zero, track zero. Aborting!]}
<Call 0x25a2a 0x224cc> {[«52""»]|[$$Disk error on cylinder zero, track zero. Aborting!]}
<POP 25a2e-25a32 StackAdj> Δ+56 {}
<POP 25a32-25a36 Naked> Σ0 ↓ →0x25a62 ←0x259fc ←0x25a00
<MI 25a32 TST.B D6> {}
<MI 25a34 BNE 0x25a62> {}
<POP 25a36-25a62 Naked> Σ0 Δ-34 →0x25978
<Blob 0x25a36 [34] @> Δ-34 {[«34""»]}
<POP 25a46-25a48 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x25a48 33> {[«34""»]|[$$Bad block file is full, aborting!]}
<Call 0x25a58 0x224cc> {[«34""»]|[$$Bad block file is full, aborting!]}
<POP 25a5c-25a5e StackAdj> Δ+4 {[«34""»]}
<MI 25a5e BRA 0x25978> {[«34""»]}
<POP 25a62-25abe Naked> Σ0 ↓ ←0x25a32
<POP 0x25a62 LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {}
<MI 25a68 MOVE.L D7,D0> {}
<MI 25a6a ASL.L #0x2,D0> {}
<MI 25a6c LEA.L 0x295b8,A0> {}
<MI 25a72 LEA.L (A0+D0.L),A0> {}
<MI 25a76 MOVE.L (A6+0x28),D0> {}
<POP 0x25a78 LimitCheck 0x0 ≤ D0 ≤ 0x3fff> {}
<MI 25a82 ANDI.W #0xc000,(A0+0x44c)> {}
<MI 25a88 OR.W D0,(A0+0x44c)> {}
<MI 25a8c MOVE.L (A6+0x24),D0> {}
<POP 0x25a8e LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 25a94 MOVE.B D0,(A0+0x44e)> {}
<MI 25a98 MOVE.L (A6+0x20),D0> {}
<POP 0x25a9a LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 25aa0 MOVE.B D0,(A0+0x44f)> {}
<MI 25aa4 ORI.B #0x40,(A0+0x44c)> {}
<MI 25aaa ORI.B #0x80,(A0+0x44c)> {}
<MI 25ab0 MOVE.L (A6+0x28),-(A7)> Δ-4 {[4, '(A6+0x28)']}
<MI 25ab2 MOVE.L (A6+0x24),-(A7)> Δ-4 {[4, '(A6+0x28)']|[4, '(A6+0x24)']}
<MI 25ab4 MOVE.L (A6+0x20),-(A7)> Δ-4 {[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']}
<Call 0x25ab6 0x24dba> {[4, '(A6+0x28)']|[4, '(A6+0x24)']|[4, '(A6+0x20)']}
<POP 25aba-25abe StackAdj> Δ+12 {}
<POP 25abe-25ac6 Epilogue> Σ0 ←0x2597a
@ 25ac6
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 25ac6-25bd4 Body>
<POP 25ac6-25adc Prologue> Σ0 ↓
<POP 25adc-25aee RegCacheLoad> Σ0 ↓
<POP 25aee-25b04 Naked> Σ0 Δ-8 ↓ →0x25b2e
<MI 25aee MOVEA.L (A6+0x8),A0> {}
<MI 25af2 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 25af4 CLR.B (A0)> {[4, 'A0']}
<MI 25af6 MOVEA.L (A6+0x10),A1> {[4, 'A0']}
<MI 25afa MOVE.L A1,-(A7)> Δ-4 {[4, 'A0']|[4, 'A1']}
<MI 25afc CLR.L D0> {[4, 'A0']|[4, 'A1']}
<MI 25afe MOVE.B 0x295fb,D0> {[4, 'A0']|[4, 'A1']}
<MI 25b00 CMP.L (A1),D0> {[4, 'A0']|[4, 'A1']}
<MI 25b02 BHI 0x25b2e> {[4, 'A0']|[4, 'A1']}
<POP 25b04-25b1e Naked> Σ-8 ↓ →0x25b2e
<MI 25b04 MOVEA.L (A6+0x14),A0> {[-8-]}
<MI 25b08 MOVE.L (A1),D4> {[-8-]}
<MI 25b0a MOVE.L D0,D3> {[-8-]}
<Call 0x25b0c 0x10294> {[-8-]}
?divs_d3_d4
<MI 25b12 ADD.L D4,(A0)> {[-8-]}
<MI 25b14 MOVE.L D3,(A1)> {[-8-]}
<MI 25b16 CLR.L D0> {[-8-]}
<MI 25b18 MOVE.B 0x295fa,D0> {[-8-]}
<MI 25b1a CMP.L (A0),D0> {[-8-]}
<MI 25b1c BHI 0x25b2e> {[-8-]}
<POP 25b1e-25b2e Naked> Σ-8 ↓
<MI 25b1e MOVEA.L (A6+0x18),A1> {[-8-]}
<MI 25b20 MOVE.L (A0),D4> {[-8-]}
<MI 25b22 MOVE.L D0,D3> {[-8-]}
<Call 0x25b24 0x10294> {[-8-]}
?divs_d3_d4
<MI 25b2a ADD.L D4,(A1)> {[-8-]}
<MI 25b2c MOVE.L D3,(A0)> {[-8-]}
<POP 25b2e-25b3a Naked> Σ-8 ↓ →0x25b5e ←0x25aee ←0x25b04
<POP 25b2e-25b30 StackAdj> Δ-2 {[-10-]}
<Call 0x25b30 0x10610> {[-10-]}
Is_machine_type_one_or_three() : Bool
<MI 25b36 TST.B (A7)+> Δ+2 {[-8-]}
<MI 25b38 BEQ 0x25b5e> {[-8-]}
<POP 25b3a-25b54 Naked> Σ-8 ↓ →0x25b56
<MI 25b3a MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 25b3e MOVE.L #0x01,(A0)> {[-8-]}
<MI 25b40 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 25b44 CLR.B (A0)> {[-8-]}
<MI 25b46 MOVEA.L (A6+0x18),A1> {[-8-]}
<MI 25b48 CLR.L D0> {[-8-]}
<MI 25b4a MOVE.W 0x295f8,D0> {[-8-]}
<MI 25b50 CMP.L (A1),D0> {[-8-]}
<MI 25b52 BNE 0x25b56> {[-8-]}
<POP 25b54-25b56 Naked> Σ-8 ↓
<MI 25b54 ADDQ.B #0x1,(A0)> {[-8-]}
<POP 25b56-25b5e Naked> Σ-8 →0x25bca ←0x25b3a
<MI 25b56 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 25b5a MOVE.B (A0),(A1)> {[-8-]}
<MI 25b5c BRA 0x25bca> {[-8-]}
<POP 25b5e-25b70 Naked> Σ-8 ↓ →0x25b7c ←0x25b2e
<MI 25b5e MOVEA.L (A6+0x18),A0> {[-8-]}
<MI 25b60 MOVE.L (A0),D0> {[-8-]}
<MI 25b62 ADDQ.L #0x1,D0> {[-8-]}
<MI 25b64 CLR.L D1> {[-8-]}
<MI 25b66 MOVE.W 0x295f8,D1> {[-8-]}
<MI 25b6c CMP.L D1,D0> {[-8-]}
<MI 25b6e BCC 0x25b7c> {[-8-]}
<POP 25b70-25b7c Naked> Σ-8 →0x25bca ←0x25bc2
<MI 25b70 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 25b74 MOVE.L #0x80,(A0)> {[-8-]}
<MI 25b7a BRA 0x25bca> {[-8-]}
<POP 25b7c-25b80 Naked> Σ-8 ↓ →0x25b88 ←0x25b5e
<MI 25b7c CMP.L (A0),D1> {[-8-]}
<MI 25b7e BNE 0x25b88> {[-8-]}
<POP 25b80-25b88 Naked> Σ-8 →0x25bca
<MI 25b80 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 25b84 MOVE.B #0x01,(A0)> {[-8-]}
<MI 25b86 BRA 0x25bca> {[-8-]}
<POP 25b88-25bc2 Naked> Σ-8 ↓ →0x25bc4 ←0x25b7c
<MI 25b88 MOVEA.L (A6+0x14),A0> {[-8-]}
<MI 25b8c CLR.L D0> {[-8-]}
<MI 25b8e MOVE.B 0x295fa,D0> {[-8-]}
<MI 25b90 SUB.L (A0),D0> {[-8-]}
<MI 25b92 SUBQ.L #0x1,D0> {[-8-]}
<MI 25b94 MOVE.L D0,D4> {[-8-]}
<MI 25b96 CLR.L D3> {[-8-]}
<MI 25b98 MOVE.B 0x295fb,D3> {[-8-]}
<MI 25b9a MOVE.L D3,-(A7)> Δ-4 {[-8-]|[4, 'D3']}
<Call 0x25b9c 0x10290> {[-8-]|[4, 'D3']}
?mulu_d3_d4
<MI 25ba2 MOVE.L (A7),D0> {[-8-]|[4, 'D3']}
<MI 25ba4 MOVEA.L (A7+0x4),A0> {[-8-]|[4, 'D3']}
<MI 25ba8 SUB.L (A0),D0> {[-8-]|[4, 'D3']}
<MI 25baa ADD.L D4,D0> {[-8-]|[4, 'D3']}
<POP 25bac-25bae StackAdj> Δ+4 {[-8-]}
<MI 25bae MOVE.L D0,D4> {[-8-]}
<MI 25bb0 MOVEQ.L #0x02,D3> {[-8-]}
<Call 0x25bb2 0x10298> {[-8-]}
?divu_d3_d4
<MI 25bb8 MOVE.L D4,D7> {[-8-]}
<MI 25bba CMPI.L #0x00000080,D7> {[-8-]}
<MI 25bc0 BLT 0x25bc4> {[-8-]}
<POP 25bc2-25bc4 Naked> Σ-8 →0x25b70
<MI 25bc2 BRA 0x25b70> {[-8-]}
<POP 25bc4-25bca Naked> Σ-8 ↓ ←0x25b88
<MI 25bc4 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 25bc8 MOVE.L D7,(A0)> {[-8-]}
<POP 25bca-25bcc Naked> Σ-8 Δ+8 ↓ ←0x25b56 ←0x25b70 ←0x25b80
<POP 25bca-25bcc StackAdj> Δ+8 {}
<POP 25bcc-25bd4 Epilogue> Σ0
@ 25bd4
<LVAR 0x00c @>
<LVAR 0x00a 1(r)>
<LVAR 0x008 1(r)>
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00e @ 4(rw)>
<LVAR -0x010 @ 1(r)>
<LVAR -0x016 2(r)>
<LVAR -0x018 2(r)>
<LVAR -0x026 @>
<LVAR -0x028 @ 1(r)>
<LVAR -0x02a 2(w)>
<LVAR -0x02c 2(w)>
<LVAR -0x02e 2(w)>
<LVAR -0x030 2(r)>
<LVAR -0x032 2(r)>
<LVAR -0x034 2(w)>
<LVAR -0x036 2(r)>
<LVAR -0x038 @ 2(w)>
<LVAR -0x03e @ 4(rw)>
<LVAR -0x042 @ 4(rw)>
<LVAR -0x046 @ 4(rw)>
<POP 25bd4-26144 Body>
<POP 25bd4-25bea Prologue> Σ0 ↓
<POP 25bea-25bf6 RegCacheLoad> Σ0 ↓
<POP 25bf6-25c0c Naked> Σ0 ↓ →0x25c16
<MI 25bf6 MOVEQ.L #-0x01,D7> {}
<MI 25bf8 CLR.L (A6-0x46)> {}
<MI 25bfa CLR.L (A6-0x42)> {}
<MI 25bfe CLR.L (A6-0x3e)> {}
<POP 25c00-25c02 StackAdj> Δ-2 {[-2-]}
<Call 0x25c02 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 25c08 TST.B (A7)+> Δ+2 {}
<MI 25c0a BEQ 0x25c16> {}
<POP 25c0c-25c16 Naked> Σ0 →0x25c1e
<MI 25c0c MOVE.L #0x1,(A6-0xe)> {}
<MI 25c14 BRA 0x25c1e> {}
<POP 25c16-25c1e Naked> Σ0 ↓ ←0x25bf6
<MI 25c16 MOVE.L #0x80,(A6-0xe)> {}
<POP 25c1e-25c44 Naked> Σ0 ↓ ←0x25c0c
<MI 25c1e CLR.W (A6-0x36)> {}
<MI 25c22 MOVE.W #0x2,(A6-0x34)> {}
<MI 25c28 CLR.W (A6-0x32)> {}
<MI 25c2c CLR.W (A6-0x30)> {}
<MI 25c30 MOVE.W 0x295f6,D0> {}
<MI 25c36 ASL.W #0x8,D0> {}
<MI 25c38 MOVE.B (A6+0xa),D1> {}
<MI 25c3c EXTB.W D1> {}
<MI 25c3e ADD.W D0,D1> {}
<MI 25c40 MOVE.W D1,(A6-0x2e)> {}
<POP 25c44-25cb4 Naked> Σ0 Δ-8 ↓ →0x25cd2 ←0x26134
<MI 25c44 MOVE.L (A6-0xe),D0> {}
<MI 25c48 ASL.L #0x8,D0> {}
<POP 0x25c4a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 25c54 MOVE.W D0,(A6-0x38)> {}
<MI 25c58 MOVE.L (A6-0x46),D0> {}
<POP 0x25c5a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 25c64 MOVE.W D0,(A6-0x2c)> {}
<MI 25c68 MOVE.L (A6-0x42),D0> {}
<MI 25c6c ASL.L #0x8,D0> {}
<MI 25c6e ADD.L (A6-0x3e),D0> {}
<POP 0x25c70 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 25c7a MOVE.W D0,(A6-0x2a)> {}
<MI 25c7e MOVE.L (A6-0x42),D4> {}
<MI 25c82 CLR.L D3> {}
<MI 25c84 MOVE.B 0x295fb,D3> {}
<MI 25c8a MOVE.L D3,-(A7)> Δ-4 {[4, 'D3']}
<Call 0x25c8c 0x10290> {[4, 'D3']}
?mulu_d3_d4
<MI 25c92 MOVE.L D4,-(A7)> Δ-4 {[4, 'D3']|[4, 'D4']}
<MI 25c94 CLR.L D4> {[4, 'D3']|[4, 'D4']}
<MI 25c96 MOVE.B 0x295fa,D4> {[4, 'D3']|[4, 'D4']}
<MI 25c9c MOVE.L (A7+0x4),D0> {[4, 'D3']|[4, 'D4']}
<MI 25ca0 MOVE.L D0,D3> {[4, 'D3']|[4, 'D4']}
<Call 0x25ca2 0x10290> {[4, 'D3']|[4, 'D4']}
?mulu_d3_d4
<MI 25ca8 CLR.L D0> {[4, 'D3']|[4, 'D4']}
<MI 25caa MOVE.W 0x295f8,D0> {[4, 'D3']|[4, 'D4']}
<MI 25cb0 CMP.L (A6-0x46),D0> {[4, 'D3']|[4, 'D4']}
<MI 25cb2 BLS 0x25cd2> {[4, 'D3']|[4, 'D4']}
<POP 25cb4-25cbc Naked> Σ-8 ↓ →0x25e0c
<MI 25cb4 SUBQ.L #0x1,D0> {[-8-]}
<MI 25cb6 CMP.L (A6-0x46),D0> {[-8-]}
<MI 25cb8 BNE 0x25e0c> {[-8-]}
<POP 25cbc-25cd2 Naked> Σ-8 ↓ →0x25e0c
<MI 25cbc MOVE.L (A7),D0> {[-8-]}
<MI 25cbe ADD.L (A6-0x3e),D0> {[-8-]}
<MI 25cc0 MOVE.L (A6-0xe),D1> {[-8-]}
<MI 25cc4 ASL.L #0x1,D1> {[-8-]}
<MI 25cc6 ADD.L D0,D1> {[-8-]}
<MI 25cc8 CLR.L D0> {[-8-]}
<MI 25cca MOVE.W D4,D0> {[-8-]}
<MI 25ccc CMP.L D0,D1> {[-8-]}
<MI 25cce BLS 0x25e0c> {[-8-]}
<POP 25cd2-25e0c Naked> Σ-8 ↓ ←0x25c44
<Pointer.fp 0x25cd2 <LVAR -0x00a @ 4(rw)>> Δ-4 {[-8-]|[@@-10]}
<Call 0x25cd4 0x102b8> {[-8-]|[@@-10]}
NewString(VAR a : String)
<POP 25cda-25cdb StackAdj> Δ+4 ↓ {[-8-]}
<Blob 0x25cdb [10] @> Δ-10 {[-8-]|[«10""»]}
<POP 25cea-25cec StackAdj> Δ-4 {[-8-]|[«10""»]|[-4-]}
<MI 25cec MOVE.L (A6-0xa),-(A7)> Δ-4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']}
<POP 25cee-25cf0 StackAdj> Δ-4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[-4-]}
<Lit 0x25cf0 9> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[$$Cylinder=]}
<MI 25d02 MOVE.L (A6-0x46),(A7)> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x46)']}
<POP 25cfc-25d02 StackAdj> Δ-8 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x46)']|[-8-]}
<Call 0x25d04 0x102e4> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x46)']|[-8-]}
Long2String(a : Long) : String
<POP 25d0a-25d0c StackAdj> Δ+4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x46)']|[-4-]}
<Call 0x25d0c 0x102d4> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x46)']|[-4-]}
StringCat3(a, b, c : String) : String
<POP 25d12-25d16 StackAdj> Δ+12 {[-8-]|[«10""»]|[-4-]}
<MI 25d16 MOVE.L (A7)+,(A6-0xa)> Δ+4 {[-8-]|[«10""»]}
<MI 25d18 MOVEA.L A7,A0> {[-8-]|[«10""»]}
<MI 25d1a LEA.L 0x21102,A1> {[-8-]|[«10""»]}
<BlockMove 9,A1,A0> {[-8-]|[«10""»]}
<POP 25d26-25d28 StackAdj> Δ-4 {[-8-]|[«10""»]|[-4-]}
<MI 25d28 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']}
<POP 25d2a-25d2c StackAdj> Δ-4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[-4-]}
<Lit 0x25d2c 9> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[$$Cylinder=]}
<MI 25d3e MOVE.L (A6-0x42),(A7)> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x42)']}
<POP 25d38-25d3e StackAdj> Δ-8 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x42)']|[-8-]}
<Call 0x25d42 0x102e4> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x42)']|[-8-]}
Long2String(a : Long) : String
<POP 25d48-25d4a StackAdj> Δ+4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x42)']|[-4-]}
<Call 0x25d4a 0x102d4> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x42)']|[-4-]}
StringCat3(a, b, c : String) : String
<POP 25d50-25d54 StackAdj> Δ+12 {[-8-]|[«10""»]|[-4-]}
<MI 25d54 MOVE.L (A7)+,(A6-0xa)> Δ+4 {[-8-]|[«10""»]}
<POP 25d56-25d5a StackAdj> Δ+10 {[-8-]}
<Blob 0x25d5a [10] @> Δ-10 {[-8-]|[«10""»]}
<POP 25d66-25d68 StackAdj> Δ-4 {[-8-]|[«10""»]|[-4-]}
<MI 25d68 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']}
<POP 25d6a-25d6c StackAdj> Δ-4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[-4-]}
<Lit 0x25d6c 10> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[$$, Sector=]}
<MI 25d7e MOVE.L (A6-0x3e),(A7)> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x3e)']}
<POP 25d78-25d7e StackAdj> Δ-8 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x3e)']|[-8-]}
<Call 0x25d80 0x102e4> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x3e)']|[-8-]}
Long2String(a : Long) : String
<POP 25d86-25d88 StackAdj> Δ+4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x3e)']|[-4-]}
<Call 0x25d88 0x102d4> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x3e)']|[-4-]}
StringCat3(a, b, c : String) : String
<POP 25d8e-25d92 StackAdj> Δ+12 {[-8-]|[«10""»]|[-4-]}
<MI 25d92 MOVE.L (A7)+,(A6-0xa)> Δ+4 {[-8-]|[«10""»]}
<MI 25d94 MOVEA.L A7,A0> {[-8-]|[«10""»]}
<MI 25d96 LEA.L 0x21116,A1> {[-8-]|[«10""»]}
<BlockMove 9,A1,A0> {[-8-]|[«10""»]}
<POP 25da2-25da4 StackAdj> Δ-4 {[-8-]|[«10""»]|[-4-]}
<MI 25da4 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']}
<POP 25da6-25da8 StackAdj> Δ-4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[-4-]}
<Lit 0x25da8 9> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[$$, Sector]}
<MI 25dba MOVE.L (A6-0xe),(A7)> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']}
<POP 25db4-25dba StackAdj> Δ-8 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[-8-]}
<Call 0x25dbe 0x102e4> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[-8-]}
Long2String(a : Long) : String
<POP 25dc4-25dc6 StackAdj> Δ+4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[-4-]}
<Call 0x25dc6 0x102d4> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[-4-]}
StringCat3(a, b, c : String) : String
<POP 25dcc-25dd0 StackAdj> Δ+12 {[-8-]|[«10""»]|[-4-]}
<MI 25dd0 MOVE.L (A7)+,(A6-0xa)> Δ+4 {[-8-]|[«10""»]}
<POP 25dd2-25dd4 StackAdj> Δ+6 {[-8-]|[-4-]}
<MI 25dd4 MOVE.L (A6-0xa),(A7)> {[-8-]|[4, '(A6-0xa)']}
<Call 0x25dd6 0x103e0> {[-8-]|[4, '(A6-0xa)']}
WriteConsoleStringCrLf(str : String)
<POP 25ddc-25ddd StackAdj> Δ+4 ↓ {[-8-]}
<Blob 0x25ddd [58] @> Δ-58 {[-8-]|[«58""»]}
<POP 25dee-25df0 StackAdj> Δ-4 {[-8-]|[«58""»]|[-4-]}
<Lit 0x25df0 57> {[-8-]|[«58""»]|[$$Detected program error, operation will overflow disk size]}
<Call 0x25e04 0x224cc> {[-8-]|[«58""»]|[$$Detected program error, operation will overflow disk size]}
<POP 25e08-25e0c StackAdj> Δ+62 {[-8-]}
<POP 25e0c-25e12 Naked> Σ-8 Δ+8 ↓ →0x25e84 ←0x25cb4 ←0x25cbc
<POP 25e0c-25e0e StackAdj> Δ+8 {}
<MI 25e0e CMP.L (A6-0x46),D7> {}
<MI 25e10 BEQ 0x25e84> {}
<POP 25e12-25e84 Naked> Σ0 ↓
<MI 25e12 MOVE.L (A6-0x46),D7> {}
<Blob 0x25e14 [10] @> Δ-10 {[«10""»]}
<POP 25e26-25e28 StackAdj> Δ-8 {[«10""»]|[-8-]}
<Lit 0x25e28 9> {[«10""»]|[-4-]|[$$Cylinder_]}
<MI 25e3a MOVE.L (A6-0x46),(A7)> {[«10""»]|[-4-]|[4, '(A6-0x46)']}
<POP 25e34-25e3a StackAdj> Δ-8 {[«10""»]|[-4-]|[4, '(A6-0x46)']|[-8-]}
<Call 0x25e3c 0x102e4> {[«10""»]|[-4-]|[4, '(A6-0x46)']|[-8-]}
Long2String(a : Long) : String
<POP 25e42-25e44 StackAdj> Δ+4 {[«10""»]|[-4-]|[4, '(A6-0x46)']|[-4-]}
<Call 0x25e44 0x102d0> {[«10""»]|[-4-]|[4, '(A6-0x46)']|[-4-]}
StringCat2(a, b : String) : String
<POP 25e4a-25e4c StackAdj> Δ+8 {[«10""»]|[-4-]}
<MI 25e4c MOVE.L (A7)+,(A6-0xa)> Δ+4 {[«10""»]}
<POP 25e4e-25e50 StackAdj> Δ+6 {[-4-]}
<MI 25e50 MOVE.L (A6-0xa),(A7)> {[4, '(A6-0xa)']}
<Const 0x25e52 0xd.2> Δ-2 {[4, '(A6-0xa)']|[#13]}
<Call 0x25e56 0x102c0> {[4, '(A6-0xa)']|[#13]}
AppendChar(MOD b : String; a : char)
<Call 0x25e5c 0x103f8> {[4, '(A6-0xa)']|[#13]}
GetConsoleConfig() : Long
<MI 25e62 MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x25e64 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 25e6e MOVE.W D0,(A7)> {[2, 'D0']}
<MI 25e70 MOVE.L (A6-0xa),-(A7)> Δ-4 {[2, 'D0']|[4, '(A6-0xa)']}
<Call 0x25e72 0x1020a> {[2, 'D0']|[4, '(A6-0xa)']}
KC05_PortWriteString(port : Word ; str : String)
<POP 25e78-25e7a StackAdj> Δ+6 {}
<Pointer.fp 0x25e7a <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x25e7c 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 25e82-25e84 StackAdj> Δ+4 {}
<POP 25e84-25ebe Naked> Σ0 ↓ →0x25ed4 ←0x25e0c
<Pointer.fp 0x25e84 <LVAR -0x038 @ 2(w)>> Δ-4 {[@@-56]}
<MI 25e88 LEA.L (A6+0xc),A0> {[@@-56]}
<MI 25e8c MOVE.L A0,-(A7)> Δ-4 {[@@-56]|[4, 'A0']}
<MI 25e8e CLR.W -(A7)> Δ-2 {[@@-56]|[4, 'A0']|[#0]}
<Call 0x25e90 0x10204> {[@@-56]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 25e96-25e9a StackAdj> Δ+10 {}
<MI 25e9a MOVE.L (A6-0xe),D0> {}
<MI 25e9e ASL.L #0x1,D0> {}
<MI 25ea0 ADD.L D0,(A6-0x3e)> {}
<Pointer.fp 0x25ea2 <LVAR -0x046 @ 4(rw)>> Δ-4 {[@@-70]}
<Pointer.fp 0x25ea4 <LVAR -0x042 @ 4(rw)>> Δ-4 {[@@-70]|[@@-66]}
<Pointer.fp 0x25ea8 <LVAR -0x03e @ 4(rw)>> Δ-4 {[@@-70]|[@@-66]|[@@-62]}
<Pointer.fp 0x25eaa <LVAR -0x00e @ 4(rw)>> Δ-4 {[@@-70]|[@@-66]|[@@-62]|[@@-14]}
<Pointer.fp 0x25eae <LVAR -0x028 @ 1(r)>> Δ-4 {[@@-70]|[@@-66]|[@@-62]|[@@-14]|[@@-40]}
<Call 0x25eb2 0x25ac6> {[@@-70]|[@@-66]|[@@-62]|[@@-14]|[@@-40]}
<POP 25eb6-25eba StackAdj> Δ+20 {}
<MI 25eba MOVEQ.L #0x00,D0> {}
<MI 25ebc BEQ 0x25ed4> {}
<POP 25ebe-25ec4 Naked> Σ0 ↓ →0x25ed4
<MI 25ebe TST.B (A6-0x28)> {}
<MI 25ec2 BEQ 0x25ed4> {}
<POP 25ec4-25ed4 Naked> Σ0 ↓
<Const 0x25ec4 0x1c9c2.4> Δ-4 {[##117186]}
<Call 0x25eca 0x10224> {[##117186]}
KC12_Sleep(dur: Long)
<POP 25ed0-25ed2 StackAdj> Δ+4 {}
<MI 25ed2 MOVE.L (A6-0x46),D5> {}
<POP 25ed4-25eea Naked> Σ0 ↓ →0x26134 ←0x25e84 ←0x25ebe
<MI 25ed4 CLR.W -(A7)> Δ-2 {[#0]}
<Pointer.fp 0x25ed6 <LVAR -0x010 @ 1(r)>> Δ-4 {[#0]|[@@-16]}
<Call 0x25eda 0x10206> {[#0]|[@@-16]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 25ee0-25ee2 StackAdj> Δ+6 {}
<MI 25ee2 TST.B (A6-0x10)> {}
<MI 25ee6 BNE 0x26134> {}
<POP 25eea-25f1e Naked> Σ0 ↓ →0x25f24
<Pointer.fp 0x25eea <LVAR -0x026 @>> Δ-4 {[@@-38]}
<Call 0x25eee 0x24b58> {[@@-38]}
<POP 25ef2-25ef4 StackAdj> Δ+4 {}
<MI 25ef4 CLR.L D0> {}
<MI 25ef6 MOVE.W (A6-0x18),D0> {}
<MI 25efa MOVE.L D0,(A6-0x46)> {}
<MI 25efc MOVE.W (A6-0x16),D1> {}
<MI 25f00 ANDI.W #0x00ff,D1> {}
<MI 25f04 CLR.L D2> {}
<MI 25f06 MOVE.W D1,D2> {}
<MI 25f08 MOVE.L D2,(A6-0x3e)> {}
<MI 25f0a MOVE.W (A6-0x16),D6> {}
<MI 25f0e MOVE.W D6,D1> {}
<MI 25f10 LSR.W #0x8,D1> {}
<MI 25f12 CLR.L D3> {}
<MI 25f14 MOVE.W D1,D3> {}
<MI 25f16 MOVE.L D3,(A6-0x42)> {}
<MI 25f1a TST.L D2> {}
<MI 25f1c BEQ 0x25f24> {}
<POP 25f1e-25f24 Naked> Σ0 →0x25f52
<MI 25f1e SUBQ.L #0x1,D2> {}
<MI 25f20 MOVE.L D2,(A6-0x3e)> {}
<MI 25f22 BRA 0x25f52> {}
<POP 25f24-25f36 Naked> Σ0 ↓ →0x25f3e ←0x25eea
<MI 25f24 CLR.L D1> {}
<MI 25f26 MOVE.B 0x295fb,D1> {}
<MI 25f2c SUBQ.W #0x1,D1> {}
<MI 25f2e EXTW.L D1> {}
<MI 25f30 MOVE.L D1,(A6-0x3e)> {}
<MI 25f32 TST.L D3> {}
<MI 25f34 BEQ 0x25f3e> {}
<POP 25f36-25f3e Naked> Σ0 →0x25f52
<MI 25f36 SUBQ.L #0x1,D3> {}
<MI 25f38 MOVE.L D3,(A6-0x42)> {}
<MI 25f3c BRA 0x25f52> {}
<POP 25f3e-25f52 Naked> Σ0 ↓ ←0x25f24
<MI 25f3e CLR.L D1> {}
<MI 25f40 MOVE.B 0x295fa,D1> {}
<MI 25f46 SUBQ.W #0x1,D1> {}
<MI 25f48 EXTW.L D1> {}
<MI 25f4a MOVE.L D1,(A6-0x42)> {}
<MI 25f4e SUBQ.L #0x1,D0> {}
<MI 25f50 MOVE.L D0,(A6-0x46)> {}
<POP 25f52-25f8a Naked> Σ0 ↓ →0x25f8c ←0x25f1e ←0x25f36
<MI 25f52 MOVE.L (A6-0x46),-(A7)> Δ-4 {[4, '(A6-0x46)']}
<MI 25f54 MOVE.L (A6-0x42),-(A7)> Δ-4 {[4, '(A6-0x46)']|[4, '(A6-0x42)']}
<MI 25f58 MOVE.L (A6-0x3e),-(A7)> Δ-4 {[4, '(A6-0x46)']|[4, '(A6-0x42)']|[4, '(A6-0x3e)']}
<MI 25f5a MOVE.B (A6+0x8),-(A7)> Δ-2 {[4, '(A6-0x46)']|[4, '(A6-0x42)']|[4, '(A6-0x3e)']|[2, '(A6+0x8)']}
<Blob 0x25f5e [22] (A6-0x10)> Δ-22 {[4, '(A6-0x46)']|[4, '(A6-0x42)']|[4, '(A6-0x3e)']|[2, '(A6+0x8)']|[«22»]}
<Call 0x25f6a 0x258b2> {[4, '(A6-0x46)']|[4, '(A6-0x42)']|[4, '(A6-0x3e)']|[2, '(A6+0x8)']|[«22»]}
<POP 25f6e-25f72 StackAdj> Δ+36 {}
<Const 0x25f72 0x32dc.4> Δ-4 {[##13020]}
<Call 0x25f76 0x10224> {[##13020]}
KC12_Sleep(dur: Long)
<POP 25f7c-25f7e StackAdj> Δ+4 {}
<MI 25f7e ADDQ.L #0x1,(A6-0x3e)> {}
<MI 25f80 MOVE.L (A6-0x3e),D0> {}
<MI 25f82 ANDI.L #0x00000001,D0> {}
<MI 25f88 BEQ 0x25f8c> {}
<POP 25f8a-25f8c Naked> Σ0 ↓
<MI 25f8a ADDQ.L #0x1,(A6-0x3e)> {}
<POP 25f8c-25fda Naked> Σ0 Δ-8 ↓ →0x25ff8 ←0x25f52
<Pointer.fp 0x25f8c <LVAR -0x046 @ 4(rw)>> Δ-4 {[@@-70]}
<Pointer.fp 0x25f8e <LVAR -0x042 @ 4(rw)>> Δ-4 {[@@-70]|[@@-66]}
<Pointer.fp 0x25f92 <LVAR -0x03e @ 4(rw)>> Δ-4 {[@@-70]|[@@-66]|[@@-62]}
<Pointer.fp 0x25f94 <LVAR -0x00e @ 4(rw)>> Δ-4 {[@@-70]|[@@-66]|[@@-62]|[@@-14]}
<Pointer.fp 0x25f98 <LVAR -0x028 @ 1(r)>> Δ-4 {[@@-70]|[@@-66]|[@@-62]|[@@-14]|[@@-40]}
<Call 0x25f9c 0x25ac6> {[@@-70]|[@@-66]|[@@-62]|[@@-14]|[@@-40]}
<POP 25fa0-25fa4 StackAdj> Δ+20 {}
<MI 25fa4 MOVE.L (A6-0x42),D4> {}
<MI 25fa8 CLR.L D3> {}
<MI 25faa MOVE.B 0x295fb,D3> {}
<MI 25fb0 MOVE.L D3,-(A7)> Δ-4 {[4, 'D3']}
<Call 0x25fb2 0x10290> {[4, 'D3']}
?mulu_d3_d4
<MI 25fb8 MOVE.L D4,-(A7)> Δ-4 {[4, 'D3']|[4, 'D4']}
<MI 25fba CLR.L D4> {[4, 'D3']|[4, 'D4']}
<MI 25fbc MOVE.B 0x295fa,D4> {[4, 'D3']|[4, 'D4']}
<MI 25fc2 MOVE.L (A7+0x4),D0> {[4, 'D3']|[4, 'D4']}
<MI 25fc6 MOVE.L D0,D3> {[4, 'D3']|[4, 'D4']}
<Call 0x25fc8 0x10290> {[4, 'D3']|[4, 'D4']}
?mulu_d3_d4
<MI 25fce CLR.L D0> {[4, 'D3']|[4, 'D4']}
<MI 25fd0 MOVE.W 0x295f8,D0> {[4, 'D3']|[4, 'D4']}
<MI 25fd6 CMP.L (A6-0x46),D0> {[4, 'D3']|[4, 'D4']}
<MI 25fd8 BLS 0x25ff8> {[4, 'D3']|[4, 'D4']}
<POP 25fda-25fe2 Naked> Σ-8 ↓ →0x26132
<MI 25fda SUBQ.L #0x1,D0> {[-8-]}
<MI 25fdc CMP.L (A6-0x46),D0> {[-8-]}
<MI 25fde BNE 0x26132> {[-8-]}
<POP 25fe2-25ff8 Naked> Σ-8 ↓ →0x26132
<MI 25fe2 MOVE.L (A7),D0> {[-8-]}
<MI 25fe4 ADD.L (A6-0x3e),D0> {[-8-]}
<MI 25fe6 MOVE.L (A6-0xe),D1> {[-8-]}
<MI 25fea ASL.L #0x1,D1> {[-8-]}
<MI 25fec ADD.L D0,D1> {[-8-]}
<MI 25fee CLR.L D0> {[-8-]}
<MI 25ff0 MOVE.W D4,D0> {[-8-]}
<MI 25ff2 CMP.L D0,D1> {[-8-]}
<MI 25ff4 BLS 0x26132> {[-8-]}
<POP 25ff8-26132 Naked> Σ-8 ↓ ←0x25f8c
<Pointer.fp 0x25ff8 <LVAR -0x00a @ 4(rw)>> Δ-4 {[-8-]|[@@-10]}
<Call 0x25ffa 0x102b8> {[-8-]|[@@-10]}
NewString(VAR a : String)
<POP 26000-26001 StackAdj> Δ+4 ↓ {[-8-]}
<Blob 0x26001 [10] @> Δ-10 {[-8-]|[«10""»]}
<POP 26010-26012 StackAdj> Δ-4 {[-8-]|[«10""»]|[-4-]}
<MI 26012 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']}
<POP 26014-26016 StackAdj> Δ-4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[-4-]}
<Lit 0x26016 9> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[$$Cylinder=]}
<MI 26028 MOVE.L (A6-0x46),(A7)> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x46)']}
<POP 26022-26028 StackAdj> Δ-8 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x46)']|[-8-]}
<Call 0x2602a 0x102e4> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x46)']|[-8-]}
Long2String(a : Long) : String
<POP 26030-26032 StackAdj> Δ+4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x46)']|[-4-]}
<Call 0x26032 0x102d4> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x46)']|[-4-]}
StringCat3(a, b, c : String) : String
<POP 26038-2603c StackAdj> Δ+12 {[-8-]|[«10""»]|[-4-]}
<MI 2603c MOVE.L (A7)+,(A6-0xa)> Δ+4 {[-8-]|[«10""»]}
<MI 2603e MOVEA.L A7,A0> {[-8-]|[«10""»]}
<MI 26040 LEA.L 0x21134,A1> {[-8-]|[«10""»]}
<BlockMove 9,A1,A0> {[-8-]|[«10""»]}
<POP 2604c-2604e StackAdj> Δ-4 {[-8-]|[«10""»]|[-4-]}
<MI 2604e MOVE.L (A6-0xa),-(A7)> Δ-4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']}
<POP 26050-26052 StackAdj> Δ-4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[-4-]}
<Lit 0x26052 9> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[$$Cylinder=]}
<MI 26064 MOVE.L (A6-0x42),(A7)> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x42)']}
<POP 2605e-26064 StackAdj> Δ-8 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x42)']|[-8-]}
<Call 0x26068 0x102e4> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x42)']|[-8-]}
Long2String(a : Long) : String
<POP 2606e-26070 StackAdj> Δ+4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x42)']|[-4-]}
<Call 0x26070 0x102d4> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x42)']|[-4-]}
StringCat3(a, b, c : String) : String
<POP 26076-2607a StackAdj> Δ+12 {[-8-]|[«10""»]|[-4-]}
<MI 2607a MOVE.L (A7)+,(A6-0xa)> Δ+4 {[-8-]|[«10""»]}
<POP 2607c-26080 StackAdj> Δ+10 {[-8-]}
<Blob 0x26080 [10] @> Δ-10 {[-8-]|[«10""»]}
<POP 2608c-2608e StackAdj> Δ-4 {[-8-]|[«10""»]|[-4-]}
<MI 2608e MOVE.L (A6-0xa),-(A7)> Δ-4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']}
<POP 26090-26092 StackAdj> Δ-4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[-4-]}
<Lit 0x26092 10> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[$$, Sector=]}
<MI 260a4 MOVE.L (A6-0x3e),(A7)> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x3e)']}
<POP 2609e-260a4 StackAdj> Δ-8 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x3e)']|[-8-]}
<Call 0x260a6 0x102e4> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x3e)']|[-8-]}
Long2String(a : Long) : String
<POP 260ac-260ae StackAdj> Δ+4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x3e)']|[-4-]}
<Call 0x260ae 0x102d4> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0x3e)']|[-4-]}
StringCat3(a, b, c : String) : String
<POP 260b4-260b8 StackAdj> Δ+12 {[-8-]|[«10""»]|[-4-]}
<MI 260b8 MOVE.L (A7)+,(A6-0xa)> Δ+4 {[-8-]|[«10""»]}
<MI 260ba MOVEA.L A7,A0> {[-8-]|[«10""»]}
<MI 260bc LEA.L 0x21148,A1> {[-8-]|[«10""»]}
<BlockMove 9,A1,A0> {[-8-]|[«10""»]}
<POP 260c8-260ca StackAdj> Δ-4 {[-8-]|[«10""»]|[-4-]}
<MI 260ca MOVE.L (A6-0xa),-(A7)> Δ-4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']}
<POP 260cc-260ce StackAdj> Δ-4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[-4-]}
<Lit 0x260ce 9> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[$$, Sector]}
<MI 260e0 MOVE.L (A6-0xe),(A7)> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']}
<POP 260da-260e0 StackAdj> Δ-8 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[-8-]}
<Call 0x260e4 0x102e4> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[-8-]}
Long2String(a : Long) : String
<POP 260ea-260ec StackAdj> Δ+4 {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[-4-]}
<Call 0x260ec 0x102d4> {[-8-]|[«10""»]|[-4-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[-4-]}
StringCat3(a, b, c : String) : String
<POP 260f2-260f6 StackAdj> Δ+12 {[-8-]|[«10""»]|[-4-]}
<MI 260f6 MOVE.L (A7)+,(A6-0xa)> Δ+4 {[-8-]|[«10""»]}
<POP 260f8-260fa StackAdj> Δ+6 {[-8-]|[-4-]}
<MI 260fa MOVE.L (A6-0xa),(A7)> {[-8-]|[4, '(A6-0xa)']}
<Call 0x260fc 0x103e0> {[-8-]|[4, '(A6-0xa)']}
WriteConsoleStringCrLf(str : String)
<POP 26102-26103 StackAdj> Δ+4 ↓ {[-8-]}
<Blob 0x26103 [60] @> Δ-60 {[-8-]|[«60""»]}
<POP 26114-26116 StackAdj> Δ-4 {[-8-]|[«60""»]|[-4-]}
<Lit 0x26116 59> {[-8-]|[«60""»]|[$$fixup after error failed, operation will overflow disk size]}
<Call 0x2612a 0x224cc> {[-8-]|[«60""»]|[$$fixup after error failed, operation will overflow disk size]}
<POP 2612e-26132 StackAdj> Δ+64 {[-8-]}
<POP 26132-26134 Naked> Σ-8 Δ+8 ↓ ←0x25fda ←0x25fe2
<POP 26132-26134 StackAdj> Δ+8 {}
<POP 26134-2613c Naked> Σ0 ↓ →0x25c44 ←0x25ed4
<MI 26134 TST.B (A6-0x28)> {}
<MI 26138 BEQ 0x25c44> {}
<POP 2613c-26144 Epilogue> Σ0
@ 26144
<LVAR -0x002 2(w)>
<LVAR -0x004 2(w)>
<LVAR -0x006 2(w)>
<LVAR -0x00a @ 4(r)>
<LVAR -0x00e @ 4(r)>
<LVAR -0x010 1(rw)>
<POP 26144-265d2 Body> Δ-66
<POP 26144-2615a Prologue> Σ0 ↓
<POP 2615a-26170 RegCacheLoad> Σ0 ↓
<POP 26170-2619a Naked> Σ0 Δ-34 ↓ →0x261ba
<MI 26170 MOVE.W 0x2237a,(A6-0x6)> {}
<MI 26176 MOVE.W 0x2237c,(A6-0x4)> {}
<MI 2617c MOVE.W 0x2237e,(A6-0x2)> {}
<MI 26182 MOVE.W 0x295c6,(A6-0x6)> {}
<Blob 0x2618a [34] @> Δ-34 {[«34""»]}
<MI 26196 TST.B 0x295f1> {[«34""»]}
<MI 26198 BNE 0x261ba> {[«34""»]}
<POP 2619a-261ba Naked> Σ-34 ↓ →0x265c6
<POP 2619a-2619c StackAdj> Δ-6 {[-40-]}
<Lit 0x2619c> {[-36-]|[$$…]}
<Pointer.sp 0x2619c 6> Δ-4
<Const 0x261a0 0x1.2> Δ-2
<Const 0x261a2 0x22.2> Δ-2
<Call 0x261a6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 261a8-261aa StackAdj> Δ+8
<POP 261a8-261aa StackAdj> Δ-2 {[-36-]|[$$…]|[-2-]}
<MI 261aa CLR.B (A7)> {[-36-]|[$$…]|[-2-]}
<Call 0x261ac 0x103f0> {[-36-]|[$$…]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 261b2-261b4 StackAdj> Δ+6 {[-36-]}
<MI 261b4 TST.B (A7)+> Δ+2 {[-34-]}
<MI 261b6 BEQ 0x265c6> {[-34-]}
<POP 261ba-261c4 Naked> Σ-34 ↓ →0x265c6 ←0x26170
<MI 261ba TST.B 0x2da06> {[-34-]}
<MI 261c0 BNE 0x265c6> {[-34-]}
<POP 261c4-26208 Naked> Σ-34 Δ-66 ↓ →0x2622c ←0x26226
<Blob 0x261c4 [38] @> Δ-38 {[-34-]|[«38""»]}
<POP 261d0-261d2 StackAdj> Δ-8 {[-34-]|[«38""»]|[-8-]}
<Lit 0x261d2 38> {[-34-]|[«38""»]|[-4-]|[$$How many passes of surface analysis :_]}
<Const 0x261e0 0x0.4> Δ-4 {[-34-]|[«38""»]|[-4-]|[$$How many passes of surface analysis :_]|[##0]}
<Const 0x261e4 0x3.4> Δ-4 {[-34-]|[«38""»]|[-4-]|[$$How many passes of surface analysis :_]|[##0]|[##3]}
<Call 0x261e8 0x103ec> {[-34-]|[«38""»]|[-4-]|[$$How many passes of surface analysis :_]|[##0]|[##3]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 261ee-261f0 StackAdj> Δ+12 {[-34-]|[«38""»]|[-4-]}
<MI 261f0 MOVE.L (A7)+,D7> Δ+4 {[-34-]|[«38""»]}
<POP 261f2-261f3 StackAdj> Δ+38 ↓ {[-34-]}
<Blob 0x261f3 [66] @> Δ-66 {[-34-]|[«66""»]}
<MI 26204 TST.L D7> {[-34-]|[«66""»]}
<MI 26206 BNE 0x2622c> {[-34-]|[«66""»]}
<POP 26208-26226 Naked> Σ-100 ↓ →0x2622c
<POP 26208-2620a StackAdj> Δ-6 {[-106-]}
<Lit 0x2620a> {[-102-]|[$$…]}
<Pointer.sp 0x2620a 6> Δ-4
<Const 0x2620e 0x1.2> Δ-2
<Const 0x26210 0x41.2> Δ-2
<Call 0x26214 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 26216-26218 StackAdj> Δ+8
<POP 26216-26218 StackAdj> Δ-2 {[-102-]|[$$…]|[-2-]}
<MI 26218 CLR.B (A7)> {[-102-]|[$$…]|[-2-]}
<Call 0x2621a 0x103f0> {[-102-]|[$$…]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 26220-26222 StackAdj> Δ+6 {[-102-]}
<MI 26222 TST.B (A7)+> Δ+2 {[-100-]}
<MI 26224 BNE 0x2622c> {[-100-]}
<POP 26226-2622c Naked> Σ-100 Δ+66 →0x261c4
<POP 26226-2622a StackAdj> Δ+66 {[-34-]}
<MI 2622a BRA 0x261c4> {[-34-]}
<POP 2622c-26232 Naked> Σ-100 ↓ →0x265c2 ←0x261c4 ←0x26208
<MI 2622c TST.L D7> {[-100-]}
<MI 2622e BEQ 0x265c2> {[-100-]}
<POP 26232-26240 Naked> Σ-100 ↓ →0x2634c
<POP 26232-26234 StackAdj> Δ-2 {[-102-]}
<Call 0x26234 0x10610> {[-102-]}
Is_machine_type_one_or_three() : Bool
<MI 2623a TST.B (A7)+> Δ+2 {[-100-]}
<MI 2623c BEQ 0x2634c> {[-100-]}
<POP 26240-2634c Naked> Σ-100 →0x26434
<MI 26240 CLR.L D0> {[-100-]}
<MI 26242 MOVE.B 0x295fa,D0> {[-100-]}
<MI 26248 MULU.W 0x295f8,D0> {[-100-]}
<MI 2624e MOVE.L D0,D4> {[-100-]}
<MI 26250 CLR.L D3> {[-100-]}
<MI 26252 MOVE.B 0x295fb,D3> {[-100-]}
<Call 0x26258 0x10290> {[-100-]}
?mulu_d3_d4
<MI 2625e MOVE.L #0xe7,D3> {[-100-]}
<Call 0x26264 0x10298> {[-100-]}
?divu_d3_d4
<MI 26266 MOVEQ.L #0x3c,D3> {[-100-]}
<Call 0x26268 0x10298> {[-100-]}
?divu_d3_d4
<MI 2626a MOVE.L D4,D5> {[-100-]}
<Blob 0x2626c [26] @> Δ-26 {[-100-]|[«26""»]}
<Blob 0x2627e [10] @> Δ-10 {[-100-]|[«26""»]|[«10""»]}
<POP 26290-26292 StackAdj> Δ-8 {[-100-]|[«26""»]|[«10""»]|[-8-]}
<Lit 0x26292 25> {[-100-]|[«26""»]|[«10""»]|[-4-]|[$$A read pass takes about _]}
<MI 2629e MOVE.L D5,(A7)> {[-100-]|[«26""»]|[«10""»]|[-4-]|[4, 'D5']}
<POP 2629c-2629e StackAdj> Δ-8 {[-100-]|[«26""»]|[«10""»]|[-4-]|[4, 'D5']|[-8-]}
<Call 0x262a0 0x102e4> {[-100-]|[«26""»]|[«10""»]|[-4-]|[4, 'D5']|[-8-]}
Long2String(a : Long) : String
<Lit 0x262a6 9> {[-100-]|[«26""»]|[«10""»]|[-4-]|[4, 'D5']|[-4-]|[$$ minutes.]}
<Call 0x262b4 0x102d4> {[-100-]|[«26""»]|[«10""»]|[-4-]|[4, 'D5']|[-4-]|[$$ minutes.]}
StringCat3(a, b, c : String) : String
<POP 262ba-262bc StackAdj> Δ+12 {[-100-]|[«26""»]|[«10""»]|[-4-]}
<Call 0x262bc 0x103e0> {[-100-]|[«26""»]|[«10""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 262c2-262c6 StackAdj> Δ+40 {[-100-]}
<MI 262c6 CLR.L D0> {[-100-]}
<MI 262c8 MOVE.B 0x295fa,D0> {[-100-]}
<MI 262ce MULU.W 0x295f8,D0> {[-100-]}
<MI 262d4 MOVE.L D0,D4> {[-100-]}
<MI 262d6 CLR.L D3> {[-100-]}
<MI 262d8 MOVE.B 0x295fb,D3> {[-100-]}
<Call 0x262de 0x10290> {[-100-]}
?mulu_d3_d4
<MI 262e4 MOVEQ.L #0x74,D3> {[-100-]}
<Call 0x262e6 0x10298> {[-100-]}
?divu_d3_d4
<MI 262e8 MOVEQ.L #0x3c,D3> {[-100-]}
<Call 0x262ea 0x10298> {[-100-]}
?divu_d3_d4
<MI 262ec MOVE.L D4,D5> {[-100-]}
<Blob 0x262ee [26] @> Δ-26 {[-100-]|[«26""»]}
<Blob 0x26300 [10] @> Δ-10 {[-100-]|[«26""»]|[«10""»]}
<POP 26312-26314 StackAdj> Δ-8 {[-100-]|[«26""»]|[«10""»]|[-8-]}
<Lit 0x26314 25> {[-100-]|[«26""»]|[«10""»]|[-4-]|[$$A write pass takes about_]}
<MI 26320 MOVE.L D5,(A7)> {[-100-]|[«26""»]|[«10""»]|[-4-]|[4, 'D5']}
<POP 2631e-26320 StackAdj> Δ-8 {[-100-]|[«26""»]|[«10""»]|[-4-]|[4, 'D5']|[-8-]}
<Call 0x26322 0x102e4> {[-100-]|[«26""»]|[«10""»]|[-4-]|[4, 'D5']|[-8-]}
Long2String(a : Long) : String
<Lit 0x26328 9> {[-100-]|[«26""»]|[«10""»]|[-4-]|[4, 'D5']|[-4-]|[$$ minutes.]}
<Call 0x26336 0x102d4> {[-100-]|[«26""»]|[«10""»]|[-4-]|[4, 'D5']|[-4-]|[$$ minutes.]}
StringCat3(a, b, c : String) : String
<POP 2633c-2633e StackAdj> Δ+12 {[-100-]|[«26""»]|[«10""»]|[-4-]}
<Call 0x2633e 0x103e0> {[-100-]|[«26""»]|[«10""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 26344-26348 StackAdj> Δ+40 {[-100-]}
<MI 26348 BRA 0x26434> {[-100-]}
<POP 2634c-26434 Naked> Σ-100 ↓ ←0x26232
<Blob 0x2634c [26] @> Δ-26 {[-100-]|[«26""»]}
<MI 2635e MOVE.W 0x295e2,D0> {[-100-]|[«26""»]}
<POP 0x26364 LimitCheck 0x0 ≤ D0 ≤ 0x5> {[-100-]|[«26""»]}
<MI 26368 ASL.W #0x1,D0> {[-100-]|[«26""»]}
<MI 2636a LEA.L 0x22380,A0> {[-100-]|[«26""»]}
<MI 2636e MOVE.W (A0+D0.W),-(A7)> Δ-2 {[-100-]|[«26""»]|[2, '(A0+D0.W)']}
<Blob 0x26372 [10] @> Δ-10 {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]}
<POP 26384-26386 StackAdj> Δ-8 {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-8-]}
<Lit 0x26386 25> {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-4-]|[$$A read pass takes about _]}
<POP 26392-26394 StackAdj> Δ-4 {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-4-]|[$$A read pass takes about _]|[-4-]}
<Lit 0x26394> {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-4-]|[$$A read pass takes about _]|[$$…]}
<Pointer.sp 0x26394 22> Δ-4
<Const 0x26398 0x1.2> Δ-2
<Const 0x2639a 0x2.2> Δ-2
<Call 0x2639e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 263a0-263a2 StackAdj> Δ+8
<POP 263a0-263a2 StackAdj> Δ-4 {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-4-]|[$$A read pass takes about _]|[$$…]|[-4-]}
<Lit 0x263a2 9> {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-4-]|[$$A read pass takes about _]|[$$…]|[$$ minutes.]}
<Call 0x263b0 0x102d4> {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-4-]|[$$A read pass takes about _]|[$$…]|[$$ minutes.]}
StringCat3(a, b, c : String) : String
<POP 263b6-263b8 StackAdj> Δ+12 {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-4-]}
<Call 0x263b8 0x103e0> {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 263be-263bf StackAdj> Δ+42 ↓ {[-100-]}
<Blob 0x263bf [26] @> Δ-26 {[-100-]|[«26""»]}
<MI 263d0 MOVE.W 0x295e2,D0> {[-100-]|[«26""»]}
<POP 0x263d6 LimitCheck 0x0 ≤ D0 ≤ 0x5> {[-100-]|[«26""»]}
<MI 263da ASL.W #0x1,D0> {[-100-]|[«26""»]}
<MI 263dc LEA.L 0x2238c,A0> {[-100-]|[«26""»]}
<MI 263e0 MOVE.W (A0+D0.W),-(A7)> Δ-2 {[-100-]|[«26""»]|[2, '(A0+D0.W)']}
<Blob 0x263e4 [10] @> Δ-10 {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]}
<POP 263f6-263f8 StackAdj> Δ-8 {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-8-]}
<Lit 0x263f8 25> {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-4-]|[$$A write pass takes about_]}
<POP 26404-26406 StackAdj> Δ-4 {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-4-]|[$$A write pass takes about_]|[-4-]}
<Lit 0x26406> {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-4-]|[$$A write pass takes about_]|[$$…]}
<Pointer.sp 0x26406 22> Δ-4
<Const 0x2640a 0x1.2> Δ-2
<Const 0x2640c 0x2.2> Δ-2
<Call 0x26410 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 26412-26414 StackAdj> Δ+8
<POP 26412-26414 StackAdj> Δ-4 {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-4-]|[$$A write pass takes about_]|[$$…]|[-4-]}
<Lit 0x26414 9> {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-4-]|[$$A write pass takes about_]|[$$…]|[$$ minutes.]}
<Call 0x26422 0x102d4> {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-4-]|[$$A write pass takes about_]|[$$…]|[$$ minutes.]}
StringCat3(a, b, c : String) : String
<POP 26428-2642a StackAdj> Δ+12 {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-4-]}
<Call 0x2642a 0x103e0> {[-100-]|[«26""»]|[2, '(A0+D0.W)']|[«10""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 26430-26434 StackAdj> Δ+42 {[-100-]}
<POP 26434-26472 Naked> Σ-100 Δ-4 ↓ ←0x26240
<Blob 0x26434 [50] @> Δ-50 {[-100-]|[«50""»]}
<POP 26446-26448 StackAdj> Δ-6 {[-100-]|[«50""»]|[-6-]}
<Lit 0x26448 49> {[-100-]|[«50""»]|[-2-]|[$$Report all errors (as opposed to only new errors)]}
<POP 26454-26456 StackAdj> Δ-2 {[-100-]|[«50""»]|[-2-]|[$$Report all errors (as opposed to only new errors)]|[-2-]}
<MI 26456 CLR.B (A7)> {[-100-]|[«50""»]|[-2-]|[$$Report all errors (as opposed to only new errors)]|[-2-]}
<Call 0x26458 0x103f0> {[-100-]|[«50""»]|[-2-]|[$$Report all errors (as opposed to only new errors)]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 2645e-26460 StackAdj> Δ+6 {[-100-]|[«50""»]|[-2-]}
<MI 26460 MOVE.B (A7)+,D0> Δ+2 {[-100-]|[«50""»]}
<MI 26462 EXTB.W D0> {[-100-]|[«50""»]}
<POP 0x26464 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-100-]|[«50""»]}
<POP 26466-2646a StackAdj> Δ+50 {[-100-]}
<MI 2646a MOVE.B D0,(A6-0x10)> {[-100-]}
<MI 2646e MOVE.L D7,-(A7)> Δ-4 {[-100-]|[4, 'D7']}
<MI 26470 MOVEQ.L #0x01,D6> {[-100-]|[4, 'D7']}
<POP 26472-26478 Naked> Σ-104 ↓ →0x265be ←0x2651e
<MI 26472 CMP.L (A7),D6> {[-104-]}
<MI 26474 BGT 0x265be> {[-104-]}
<POP 26478-2647c Naked> Σ-104 ↓ →0x26482
<MI 26478 CMP.L #0x01,D6> {[-104-]}
<MI 2647a BNE 0x26482> {[-104-]}
<POP 2647c-26482 Naked> Σ-104 ↓ →0x2651e
<MI 2647c TST.B 0x295f1> {[-104-]}
<MI 2647e BNE 0x2651e> {[-104-]}
<POP 26482-2651e Naked> Σ-104 ↓ ←0x26478
<Pointer.fp 0x26482 <LVAR -0x00e @ 4(r)>> Δ-4 {[-104-]|[@@-14]}
<Call 0x26486 0x10304> {[-104-]|[@@-14]}
GetRtc() : TimeStamp
<POP 2648c-2648e StackAdj> Δ+4 {[-104-]}
<MI 2648e MOVE.L D6,D0> {[-104-]}
<MI 26490 SUBQ.L #0x1,D0> {[-104-]}
<POP 0x26492 LimitCheck 0x0 ≤ D0 ≤ 0x2> {[-104-]}
<MI 2649c ASL.L #0x1,D0> {[-104-]}
<MI 2649e MOVE.W (A6+D0.L-#0x6),-(A7)> Δ-2 {[-104-]|[2, '(A6+D0.L-#0x6)']}
<Const 0x264a2 0xb.2> Δ-2 {[-104-]|[2, '(A6+D0.L-#0x6)']|[#11]}
<MI 264a6 MOVE.B (A6-0x10),D0> {[-104-]|[2, '(A6+D0.L-#0x6)']|[#11]}
<MI 264aa EXTB.W D0> {[-104-]|[2, '(A6+D0.L-#0x6)']|[#11]}
<POP 0x264ac LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-104-]|[2, '(A6+D0.L-#0x6)']|[#11]}
<MI 264ae MOVE.B D0,-(A7)> Δ-2 {[-104-]|[2, '(A6+D0.L-#0x6)']|[#11]|[2, 'D0']}
<Call 0x264b0 0x25bd4> {[-104-]|[2, '(A6+D0.L-#0x6)']|[#11]|[2, 'D0']}
<POP 264b4-264b6 StackAdj> Δ+6 {[-104-]}
<Pointer.fp 0x264b6 <LVAR -0x00a @ 4(r)>> Δ-4 {[-104-]|[@@-10]}
<Call 0x264ba 0x10304> {[-104-]|[@@-10]}
GetRtc() : TimeStamp
<POP 264c0-264c1 StackAdj> Δ+4 ↓ {[-104-]}
<Blob 0x264c1 [12] @> Δ-12 {[-104-]|[«12""»]}
<Blob 0x264d0 [4] @> Δ-4 {[-104-]|[«12""»]|[«4""»]}
<Blob 0x264d4 [4] @> Δ-4 {[-104-]|[«12""»]|[«4""»]|[«4""»]}
<Blob 0x264d8 [4] @> Δ-4 {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 264dc-264de StackAdj> Δ-8 {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x264de 11> {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Write pass_]}
<MI 264ea MOVE.L D6,(A7)> {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']}
<POP 264e8-264ea StackAdj> Δ-8 {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-8-]}
<Call 0x264ec 0x102e4> {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-8-]}
Long2String(a : Long) : String
<Lit 0x264f2 12> {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[$$ complete. _]}
<Call 0x264fe 0x102d4> {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[$$ complete. _]}
StringCat3(a, b, c : String) : String
<POP 26504-26506 StackAdj> Δ+12 {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x26506 0x103d8> {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleString(str : String)
<POP 2650c-26510 StackAdj> Δ+24 {[-104-]|[-4-]}
<MI 26510 MOVE.L (A6-0xe),(A7)> {[-104-]|[4, '(A6-0xe)']}
<MI 26514 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-104-]|[4, '(A6-0xe)']|[4, '(A6-0xa)']}
<Call 0x26518 0x22af2> {[-104-]|[4, '(A6-0xe)']|[4, '(A6-0xa)']}
<POP 2651c-2651e StackAdj> Δ+8 {[-104-]}
<POP 2651e-265be Naked> Σ-104 ↓ →0x26472 ←0x2647c
<Pointer.fp 0x2651e <LVAR -0x00e @ 4(r)>> Δ-4 {[-104-]|[@@-14]}
<Call 0x26522 0x10304> {[-104-]|[@@-14]}
GetRtc() : TimeStamp
<POP 26528-2652a StackAdj> Δ+4 {[-104-]}
<MI 2652a MOVE.L D6,D0> {[-104-]}
<MI 2652c SUBQ.L #0x1,D0> {[-104-]}
<POP 0x2652e LimitCheck 0x0 ≤ D0 ≤ 0x2> {[-104-]}
<MI 26538 ASL.L #0x1,D0> {[-104-]}
<MI 2653a MOVE.W (A6+D0.L-#0x6),-(A7)> Δ-2 {[-104-]|[2, '(A6+D0.L-#0x6)']}
<Const 0x2653e 0xc.2> Δ-2 {[-104-]|[2, '(A6+D0.L-#0x6)']|[#12]}
<MI 26540 MOVE.B (A6-0x10),D0> {[-104-]|[2, '(A6+D0.L-#0x6)']|[#12]}
<MI 26544 EXTB.W D0> {[-104-]|[2, '(A6+D0.L-#0x6)']|[#12]}
<POP 0x26546 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-104-]|[2, '(A6+D0.L-#0x6)']|[#12]}
<MI 26548 MOVE.B D0,-(A7)> Δ-2 {[-104-]|[2, '(A6+D0.L-#0x6)']|[#12]|[2, 'D0']}
<Call 0x2654a 0x25bd4> {[-104-]|[2, '(A6+D0.L-#0x6)']|[#12]|[2, 'D0']}
<POP 2654e-26550 StackAdj> Δ+6 {[-104-]}
<Pointer.fp 0x26550 <LVAR -0x00a @ 4(r)>> Δ-4 {[-104-]|[@@-10]}
<Call 0x26554 0x10304> {[-104-]|[@@-10]}
GetRtc() : TimeStamp
<POP 2655a-2655b StackAdj> Δ+4 ↓ {[-104-]}
<Blob 0x2655b [12] @> Δ-12 {[-104-]|[«12""»]}
<Blob 0x2656a [4] @> Δ-4 {[-104-]|[«12""»]|[«4""»]}
<Blob 0x2656e [4] @> Δ-4 {[-104-]|[«12""»]|[«4""»]|[«4""»]}
<Blob 0x26572 [4] @> Δ-4 {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 26576-26578 StackAdj> Δ-8 {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x26578 11> {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Read pass _]}
<MI 26584 MOVE.L D6,(A7)> {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']}
<POP 26582-26584 StackAdj> Δ-8 {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-8-]}
<Call 0x26586 0x102e4> {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-8-]}
Long2String(a : Long) : String
<Lit 0x2658c 12> {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[$$ complete. _]}
<Call 0x26598 0x102d4> {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[$$ complete. _]}
StringCat3(a, b, c : String) : String
<POP 2659e-265a0 StackAdj> Δ+12 {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x265a0 0x103d8> {[-104-]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleString(str : String)
<POP 265a6-265aa StackAdj> Δ+24 {[-104-]|[-4-]}
<MI 265aa MOVE.L (A6-0xe),(A7)> {[-104-]|[4, '(A6-0xe)']}
<MI 265ae MOVE.L (A6-0xa),-(A7)> Δ-4 {[-104-]|[4, '(A6-0xe)']|[4, '(A6-0xa)']}
<Call 0x265b2 0x22af2> {[-104-]|[4, '(A6-0xe)']|[4, '(A6-0xa)']}
<POP 265b6-265b8 StackAdj> Δ+8 {[-104-]}
<MI 265b8 ADDQ.L #0x1,D6> {[-104-]}
<MI 265ba BVC 0x26472> {[-104-]}
<POP 265be-265c2 Naked> Σ-104 Δ+4 ↓ ←0x26472
<POP 265be-265c0 StackAdj> Δ+4 {[-100-]}
<MI 265c0 MOVE.B #0x01,0x295f1> {[-100-]}
<POP 265c2-265c6 Naked> Σ-100 Δ+66 ↓ ←0x2622c
<POP 265c2-265c6 StackAdj> Δ+66 {[-34-]}
<POP 265c6-265ca Naked> Σ-34 Δ+34 ↓ ←0x2619a ←0x261ba
<POP 265c6-265ca StackAdj> Δ+34 {}
<POP 265ca-265d2 Epilogue> Σ0
@ 265d2
<POP 265d2-266c6 Body>
<POP 265d2-265e8 Prologue> Σ0 ↓
<POP 265e8-265ec Naked> Σ0 ↓
<MI 265e8 MOVEQ.L #0x00,D7> {}
<MI 265ea MOVEQ.L #0x00,D6> {}
<POP 265ec-2661c Naked> Σ0 ↓ →0x2665c ←0x2666c
<POP 0x265ec LimitCheck 0x0 ≤ D6 ≤ 0x7ff> {}
<MI 265f6 MOVE.L D6,D0> {}
<MI 265f8 ASL.L #0x2,D0> {}
<MI 265fa LEA.L 0x295b8,A0> {}
<MI 26600 LEA.L (A0+D0.L),A0> {}
<MI 26604 CLR.L D0> {}
<MI 26606 MOVE.W 0x295f8,D0> {}
<MI 2660c SUBQ.L #0x1,D0> {}
<MI 2660e CLR.L D1> {}
<MI 26610 MOVE.W (A0+0x44c),D1> {}
<MI 26614 LSL.W #0x2,D1> {}
<MI 26616 LSR.W #0x2,D1> {}
<MI 26618 CMP.L D0,D1> {}
<MI 2661a BHI 0x2665c> {}
<POP 2661c-26630 Naked> Σ0 ↓ →0x2663c
<MI 2661c CLR.L D0> {}
<MI 2661e MOVE.B 0x295fa,D0> {}
<MI 26624 SUBQ.W #0x1,D0> {}
<MI 26626 CLR.L D1> {}
<MI 26628 MOVE.B (A0+0x44e),D1> {}
<MI 2662c CMP.W D0,D1> {}
<MI 2662e BLS 0x2663c> {}
<POP 26630-2663c Naked> Σ0 ↓ →0x2665c
<MI 26630 CLR.L D0> {}
<MI 26632 MOVE.B (A0+0x44e),D0> {}
<MI 26636 CMPI.W #0x00ff,D0> {}
<MI 2663a BNE 0x2665c> {}
<POP 2663c-26650 Naked> Σ0 ↓ →0x2666c ←0x2661c
<MI 2663c CLR.L D0> {}
<MI 2663e MOVE.B 0x295fb,D0> {}
<MI 26644 SUBQ.W #0x1,D0> {}
<MI 26646 CLR.L D1> {}
<MI 26648 MOVE.B (A0+0x44f),D1> {}
<MI 2664c CMP.W D0,D1> {}
<MI 2664e BLS 0x2666c> {}
<POP 26650-2665c Naked> Σ0 ↓ →0x2666c
<MI 26650 CLR.L D0> {}
<MI 26652 MOVE.B (A0+0x44f),D0> {}
<MI 26656 CMPI.W #0x00ff,D0> {}
<MI 2665a BEQ 0x2666c> {}
<POP 2665c-2666c Naked> Σ0 ↓ ←0x265ec ←0x26630
<MI 2665c ADDQ.L #0x1,D7> {}
<MI 2665e ANDI.W #0xc000,(A0+0x44c)> {}
<MI 26664 CLR.B (A0+0x44e)> {}
<MI 26668 CLR.B (A0+0x44f)> {}
<POP 2666c-26678 Naked> Σ0 ↓ →0x265ec ←0x2663c ←0x26650
<MI 2666c ADDQ.L #0x1,D6> {}
<MI 2666e CMPI.L #0x000007ff,D6> {}
<MI 26674 BLE 0x265ec> {}
<POP 26678-2667c Naked> Σ0 ↓ →0x266be
<MI 26678 TST.L D7> {}
<MI 2667a BEQ 0x266be> {}
<POP 2667c-266be Naked> Σ0 ↓
<Blob 0x2667c [26] @> Δ-26 {[«26""»]}
<POP 2668e-26690 StackAdj> Δ-8 {[«26""»]|[-8-]}
<MI 26690 MOVE.L D7,-(A7)> Δ-4 {[«26""»]|[-8-]|[4, 'D7']}
<Call 0x26692 0x102e4> {[«26""»]|[-8-]|[4, 'D7']}
Long2String(a : Long) : String
<Lit 0x26698 25> {[«26""»]|[-8-]|[$$ defect entries expunged.]}
<Call 0x266ac 0x102d0> {[«26""»]|[-8-]|[$$ defect entries expunged.]}
StringCat2(a, b : String) : String
<POP 266b2-266b4 StackAdj> Δ+8 {[«26""»]|[-4-]}
<Call 0x266b4 0x103e0> {[«26""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 266ba-266be StackAdj> Δ+30 {}
<POP 266be-266c6 Epilogue> Σ0 ←0x26678
@ 266c6
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x007 1(rw)>
<LVAR -0x008 @ 1(r)>
<LVAR -0x012 2(rw)>
<LVAR -0x016 2(w)>
<LVAR -0x01c 4(rw)>
<LVAR -0x420 @>
<POP 266c6-26e82 Body> Δ+90
<POP 266c6-266dc Prologue> Σ0 ↓
<POP 266dc-266e2 RegCacheLoad> Σ0 ↓
<POP 266e2-2671e Naked> Σ0 ↓
<MI 266e2 LEA.L (A6-0x420),A0> {}
<MI 266e6 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 266e8 MOVEA.L (A7)+,A3> Δ+4 {}
<MI 266ea MOVE.L A3,-(A7)> Δ-4 {[4, 'A3']}
<MI 266ec MOVE.L (A7)+,(A6-0x1c)> Δ+4 {}
<Blob 0x266f0 [30] @> Δ-30 {[«30""»]}
<POP 266fc-266fe StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x266fe 30> {[«30""»]|[$$Writing bad block information.]}
<Call 0x2670e 0x103e0> {[«30""»]|[$$Writing bad block information.]}
WriteConsoleStringCrLf(str : String)
<POP 26714-26718 StackAdj> Δ+34 {}
<Call 0x26718 0x265d2> {}
<MI 2671c MOVEQ.L #0x00,D7> {}
<POP 2671e-26776 Naked> Σ0 ↓ →0x267a2 ←0x267a2
<MI 2671e MOVE.L D7,D4> {}
<MI 26720 MOVEQ.L #0x02,D3> {}
<Call 0x26722 0x10294> {}
?divs_d3_d4
<MI 26728 ASL.L #0x8,D4> {}
<POP 0x2672a LimitCheck 0x0 ≤ D4 ≤ 0x7ff> {}
<MI 26734 ASL.L #0x2,D4> {}
<MI 26736 LEA.L 0x295b8,A0> {}
<MI 2673c LEA.L (A0+D4.L),A0> {}
<MI 26740 LEA.L (A0+0x44c),A0> {}
<MI 26744 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 26746 MOVEA.L (A7)+,A4> Δ+4 {}
<Const 0x26748 0x3.2> Δ-2 {[#3]}
<MI 2674c MOVEQ.L #0x05,D0> {[#3]}
<MI 2674e ADD.L D7,D0> {[#3]}
<POP 0x26750 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[#3]}
<MI 2675a MOVE.W D0,-(A7)> Δ-2 {[#3]|[2, 'D0']}
<Const 0x2675c 0x1.4> Δ-4 {[#3]|[2, 'D0']|[##1]}
<MI 26760 MOVE.L A4,-(A7)> Δ-4 {[#3]|[2, 'D0']|[##1]|[4, 'A4']}
<Pointer.fp 0x26762 <LVAR -0x008 @ 1(r)>> Δ-4 {[#3]|[2, 'D0']|[##1]|[4, 'A4']|[@@-8]}
<Call 0x26766 0x1036c> {[#3]|[2, 'D0']|[##1]|[4, 'A4']|[@@-8]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 2676c-26770 StackAdj> Δ+16 {}
<MI 26770 TST.B (A6-0x8)> {}
<MI 26774 BNE 0x267a2> {}
<POP 26776-267a2 Naked> Σ0 ↓
<Blob 0x26776 [38] @> Δ-38 {[«38""»]}
<POP 26788-2678a StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x2678a 37> {[«38""»]|[$$Can't write bad block file, aborting!]}
<Call 0x2679a 0x224cc> {[«38""»]|[$$Can't write bad block file, aborting!]}
<POP 2679e-267a2 StackAdj> Δ+42 {}
<POP 267a2-267ae Naked> Σ0 ↓ →0x2671e ←0x2671e
<MI 267a2 ADDQ.L #0x1,D7> {}
<MI 267a4 CMPI.L #0x0000000f,D7> {}
<MI 267aa BLE 0x2671e> {}
<POP 267ae-267de Naked> Σ0 ↓
<Blob 0x267ae [20] @> Δ-20 {[«20""»]}
<POP 267c0-267c2 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x267c2 19> {[«20""»]|[$$Writing boot label.]}
<Call 0x267d2 0x103e0> {[«20""»]|[$$Writing boot label.]}
WriteConsoleStringCrLf(str : String)
<POP 267d8-267dc StackAdj> Δ+24 {}
<MI 267dc MOVEQ.L #0x00,D7> {}
<POP 267de-267fe Naked> Σ0 ↓ →0x267de ←0x267de
<POP 0x267de LimitCheck 0x0 ≤ D7 ≤ 0x1ff> {}
<MI 267e8 MOVE.L D7,D0> {}
<MI 267ea ASL.L #0x1,D0> {}
<MI 267ec LEA.L (A6-0x420),A0> {}
<MI 267f0 CLR.W (A0+D0.L)> {}
<MI 267f4 ADDQ.L #0x1,D7> {}
<MI 267f6 CMPI.L #0x000001ff,D7> {}
<MI 267fc BLE 0x267de> {}
<POP 267fe-26828 Naked> Σ0 ↓ →0x26854
<MI 267fe MOVE.W #0x7fed,(A3)> {}
<Const 0x26802 0x3.2> Δ-2 {[#3]}
<Const 0x26806 0x1.2> Δ-2 {[#3]|[#1]}
<Const 0x2680a 0x1.4> Δ-4 {[#3]|[#1]|[##1]}
<MI 2680e LEA.L (A6-0x420),A0> {[#3]|[#1]|[##1]}
<MI 26812 MOVE.L A0,-(A7)> Δ-4 {[#3]|[#1]|[##1]|[4, 'A0']}
<Pointer.fp 0x26814 <LVAR -0x008 @ 1(r)>> Δ-4 {[#3]|[#1]|[##1]|[4, 'A0']|[@@-8]}
<Call 0x26818 0x1036c> {[#3]|[#1]|[##1]|[4, 'A0']|[@@-8]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 2681e-26822 StackAdj> Δ+16 {}
<MI 26822 TST.B (A6-0x8)> {}
<MI 26826 BNE 0x26854> {}
<POP 26828-26854 Naked> Σ0 ↓
<Blob 0x26828 [34] @> Δ-34 {[«34""»]}
<POP 2683a-2683c StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x2683c 33> {[«34""»]|[$$Can't write BOOT label, aborting!]}
<Call 0x2684c 0x224cc> {[«34""»]|[$$Can't write BOOT label, aborting!]}
<POP 26850-26854 StackAdj> Δ+38 {}
<POP 26854-26894 Naked> Σ0 Δ-4 ↓ ←0x267fe
<Blob 0x26854 [18] @> Δ-18 {[«18""»]}
<POP 26860-26862 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x26862 18> {[«18""»]|[$$Writing DFS label.]}
<Call 0x26872 0x103e0> {[«18""»]|[$$Writing DFS label.]}
WriteConsoleStringCrLf(str : String)
<POP 26878-2687c StackAdj> Δ+22 {}
<MI 2687c MOVE.W #0x7fed,0x1000e> {}
<MI 26884 MOVEA.L (A6-0x1c),A0> {}
<MI 26888 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 2688a MOVE.W #0x7fed,(A0)> {[4, 'A0']}
<MI 2688e CLR.W (A0+0x2)> {[4, 'A0']}
<MI 26892 MOVEQ.L #0x00,D7> {[4, 'A0']}
<POP 26894-268b2 Naked> Σ-4 ↓ →0x26894 ←0x26894
<POP 0x26894 LimitCheck 0x0 ≤ D7 ≤ 0x7> {[-4-]}
<MI 2689e MOVE.L D7,D0> {[-4-]}
<MI 268a0 ASL.L #0x1,D0> {[-4-]}
<MI 268a2 MOVEA.L (A7),A0> {[-4-]}
<MI 268a4 CLR.W (A0+D0.L+#0x4)> {[-4-]}
<MI 268a8 ADDQ.L #0x1,D7> {[-4-]}
<MI 268aa CMPI.L #0x00000007,D7> {[-4-]}
<MI 268b0 BLE 0x26894> {[-4-]}
<POP 268b2-268da Naked> Σ-4 Δ+4 ↓ →0x26900
<POP 268b2-268b4 StackAdj> Δ+2 {[-2-]}
<POP 268b4-268b5 StackAdj> Δ+2 {}
<Const 0x268b5 0x3.2> Δ-2 {[#3]}
<Const 0x268b8 0x4.2> Δ-2 {[#3]|[#4]}
<Const 0x268bc 0x1.4> Δ-4 {[#3]|[#4]|[##1]}
<MI 268c0 LEA.L (A6-0x420),A0> {[#3]|[#4]|[##1]}
<MI 268c4 MOVE.L A0,-(A7)> Δ-4 {[#3]|[#4]|[##1]|[4, 'A0']}
<Pointer.fp 0x268c6 <LVAR -0x008 @ 1(r)>> Δ-4 {[#3]|[#4]|[##1]|[4, 'A0']|[@@-8]}
<Call 0x268ca 0x1036c> {[#3]|[#4]|[##1]|[4, 'A0']|[@@-8]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 268d0-268d4 StackAdj> Δ+16 {}
<MI 268d4 TST.B (A6-0x8)> {}
<MI 268d8 BNE 0x26900> {}
<POP 268da-26900 Naked> Σ0 ↓
<Blob 0x268da [32] @> Δ-32 {[«32""»]}
<POP 268e6-268e8 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x268e8 32> {[«32""»]|[$$Can't write DOS label, aborting!]}
<Call 0x268f8 0x224cc> {[«32""»]|[$$Can't write DOS label, aborting!]}
<POP 268fc-26900 StackAdj> Δ+36 {}
<POP 26900-26928 Naked> Σ0 ↓ →0x2695c ←0x268b2
<MI 26900 MOVE.B 0x295ee,D0> {}
<MI 26906 NEG.B D0> {}
<MI 26908 ADDQ.B #0x1,D0> {}
<MI 2690a OR.B 0x295f1,D0> {}
<MI 26910 OR.B 0x2da05,D0> {}
<MI 26916 EXTB.W D0> {}
<POP 0x26918 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 2691c MOVE.B D0,(A6-0x7)> {}
<MI 26920 TST.B 0x2ee1a> {}
<MI 26926 BEQ 0x2695c> {}
<POP 26928-2692c Naked> Σ0 ↓ →0x26952
<MI 26928 TST.B D0> {}
<MI 2692a BEQ 0x26952> {}
<POP 2692c-26952 Naked> Σ0 ↓
<Blob 0x2692c [30] @> Δ-30 {[«30""»]}
<POP 26938-2693a StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x2693a 30> {[«30""»]|[$$drive needs a new volume label]}
<Call 0x2694a 0x224cc> {[«30""»]|[$$drive needs a new volume label]}
<POP 2694e-26952 StackAdj> Δ+34 {}
<POP 26952-2695c Naked> Σ0 →0x26998 ←0x26928
<MI 26952 MOVEA.L (A6+0x8),A0> {}
<MI 26956 MOVE.B #0x01,(A0)> {}
<MI 2695a BRA 0x26998> {}
<POP 2695c-26960 Naked> Σ0 ↓ →0x26998 ←0x26900
<MI 2695c TST.B D0> {}
<MI 2695e BNE 0x26998> {}
<POP 26960-26998 Naked> Σ0 ↓
<Blob 0x26960 [58] @> Δ-58 {[«58""»]}
<POP 2696c-2696e StackAdj> Δ-6 {[«58""»]|[-6-]}
<Lit 0x2696e 58> {[«58""»]|[-2-]|[$$Do you want to specify new disk limits (WILL DESTROY DATA)]}
<POP 2697c-2697e StackAdj> Δ-2 {[«58""»]|[-2-]|[$$Do you want to specify new disk limits (WILL DESTROY DATA)]|[-2-]}
<MI 2697e CLR.B (A7)> {[«58""»]|[-2-]|[$$Do you want to specify new disk limits (WILL DESTROY DATA)]|[-2-]}
<Call 0x26980 0x103f0> {[«58""»]|[-2-]|[$$Do you want to specify new disk limits (WILL DESTROY DATA)]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 26986-26988 StackAdj> Δ+6 {[«58""»]|[-2-]}
<MI 26988 MOVE.B (A7)+,D0> Δ+2 {[«58""»]}
<MI 2698a EXTB.W D0> {[«58""»]}
<POP 0x2698c LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«58""»]}
<POP 26990-26994 StackAdj> Δ+58 {}
<MI 26994 MOVE.B D0,(A6-0x7)> {}
<POP 26998-269a0 Naked> Σ0 ↓ →0x26e7a ←0x26952 ←0x2695c
<MI 26998 TST.B (A6-0x7)> {}
<MI 2699c BEQ 0x26e7a> {}
<POP 269a0-26a0a Naked> Σ0 Δ-2 ↓ →0x26ace
<MI 269a0 MOVEA.L (A6+0x8),A0> {}
<Blob 0x269a4 [58] @> Δ-58 {[«58""»]}
<POP 269b0-269b2 StackAdj> Δ-6 {[«58""»]|[-6-]}
<Lit 0x269b2 58> {[«58""»]|[-2-]|[$$Do you want to build a diagnostic file system on this unit]}
<POP 269c0-269c2 StackAdj> Δ-2 {[«58""»]|[-2-]|[$$Do you want to build a diagnostic file system on this unit]|[-2-]}
<POP 269c2-269c3 StackAdj> Δ+2 {[«58""»]|[-2-]|[$$Do you want to build a diagnostic file system on this unit]}
<Const 0x269c3 0x1.2> Δ-2 {[«58""»]|[-2-]|[$$Do you want to build a diagnostic file system on this unit]|[#1]}
<Call 0x269c6 0x103f0> {[«58""»]|[-2-]|[$$Do you want to build a diagnostic file system on this unit]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 269cc-269ce StackAdj> Δ+6 {[«58""»]|[-2-]}
<MI 269ce MOVE.B (A7)+,D0> Δ+2 {[«58""»]}
<MI 269d0 EXTB.W D0> {[«58""»]}
<POP 0x269d2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«58""»]}
<POP 269d6-269da StackAdj> Δ+58 {}
<MI 269da MOVE.B D0,(A0)> {}
<MI 269dc MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<MI 269de MOVE.W #0xffff,D6> {[2, 'D0']}
<MI 269e2 MOVE.W 0x1000c,(A6-0x12)> {[2, 'D0']}
<MI 269ea CLR.L D1> {[2, 'D0']}
<MI 269ec MOVE.W D6,D1> {[2, 'D0']}
<MI 269ee DIVU.W (A6-0x12),D1> {[2, 'D0']}
<MI 269f2 CLR.L D2> {[2, 'D0']}
<MI 269f4 MOVE.W D1,D2> {[2, 'D0']}
<MI 269f6 SUBQ.L #0x1,D2> {[2, 'D0']}
<POP 0x269f8 LimitCheck 0x0 ≤ D2 ≤ 0xffff> {[2, 'D0']}
<MI 26a02 MOVE.W D2,D6> {[2, 'D0']}
<MI 26a04 TST.B D0> {[2, 'D0']}
<MI 26a06 BEQ 0x26ace> {[2, 'D0']}
<POP 26a0a-26ace Naked> Σ-2 →0x26ad0
<Pointer.fp 0x26a0a <LVAR -0x006 @ 4(rw)>> Δ-4 {[-2-]|[@@-6]}
<Call 0x26a0e 0x102b8> {[-2-]|[@@-6]}
NewString(VAR a : String)
<POP 26a14-26a16 StackAdj> Δ+4 {[-2-]}
<Blob 0x26a16 [52] @> Δ-52 {[-2-]|[«52""»]}
<MI 26a22 MOVE.W 0x295e6,D0> {[-2-]|[«52""»]}
<MI 26a28 EXTW.L D0> {[-2-]|[«52""»]}
<MI 26a2a MOVE.L D0,-(A7)> Δ-4 {[-2-]|[«52""»]|[4, 'D0']}
<MI 26a2c MOVE.W 0x295e8,D0> {[-2-]|[«52""»]|[4, 'D0']}
<MI 26a32 EXTW.L D0> {[-2-]|[«52""»]|[4, 'D0']}
<MI 26a34 MOVE.L D0,-(A7)> Δ-4 {[-2-]|[«52""»]|[4, 'D0']|[4, 'D0']}
<MI 26a36 MOVE.L (A7)+,D3> Δ+4 {[-2-]|[«52""»]|[4, 'D0']}
<MI 26a38 MOVE.L (A7)+,D4> Δ+4 {[-2-]|[«52""»]}
<Call 0x26a3a 0x1028c> {[-2-]|[«52""»]}
?muls_d3_d4
<POP 26a40-26a42 StackAdj> Δ-4 {[-2-]|[«52""»]|[-4-]}
<POP 26a42-26a43 StackAdj> Δ+2 {[-2-]|[«52""»]|[-2-]}
<Blob 0x26a43 [2] @> Δ-2 {[-2-]|[«52""»]|[-2-]|[«2""»]}
<MI 26a46 MOVE.B 0x214a9,(A7+0x1)> {[-2-]|[«52""»]|[-2-]|[«2""»]}
<MI 26a4c MOVE.B 0x214aa,(A7+0x2)> {[-2-]|[«52""»]|[-2-]|[«2""»]}
<POP 26a52-26a54 StackAdj> Δ-4 {[-2-]|[«52""»]|[-2-]|[«2""»]|[-4-]}
<MI 26a54 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-2-]|[«52""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']}
<POP 26a58-26a5a StackAdj> Δ-4 {[-2-]|[«52""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[-4-]}
<Lit 0x26a5a 52> {[-2-]|[«52""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter last cylinder to be used by the DFS [ Hint =>_]}
<POP 26a68-26a6a StackAdj> Δ-4 {[-2-]|[«52""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter last cylinder to be used by the DFS [ Hint =>_]|[-4-]}
<MI 26a6a MOVE.L D4,D3> {[-2-]|[«52""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter last cylinder to be used by the DFS [ Hint =>_]|[-4-]}
<MI 26a6c MOVE.L #0x13880,D4> {[-2-]|[«52""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter last cylinder to be used by the DFS [ Hint =>_]|[-4-]}
<Call 0x26a72 0x10294> {[-2-]|[«52""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter last cylinder to be used by the DFS [ Hint =>_]|[-4-]}
?divs_d3_d4
<POP 26a78-26a7a StackAdj> Δ-4 {[-2-]|[«52""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter last cylinder to be used by the DFS [ Hint =>_]|[-8-]}
<MI 26a7a ADDQ.L #0x1,D4> {[-2-]|[«52""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter last cylinder to be used by the DFS [ Hint =>_]|[-8-]}
<MI 26a7c MOVE.L D4,(A7)> {[-2-]|[«52""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter last cylinder to be used by the DFS [ Hint =>_]|[-4-]|[4, 'D4']}
<Call 0x26a7e 0x102e4> {[-2-]|[«52""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter last cylinder to be used by the DFS [ Hint =>_]|[-4-]|[4, 'D4']}
Long2String(a : Long) : String
<Lit 0x26a84> {[-2-]|[«52""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter last cylinder to be used by the DFS [ Hint =>_]|[-4-]|[$$…]}
<Pointer.sp 0x26a84 20> Δ-4
<Const 0x26a88 0x1.2> Δ-2
<Const 0x26a8c 0x3.2> Δ-2
<Call 0x26a90 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 26a92-26a94 StackAdj> Δ+8
<Call 0x26a94 0x102d8> {[-2-]|[«52""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter last cylinder to be used by the DFS [ Hint =>_]|[-4-]|[$$…]}
StringCat4(a, b, c, d : String) : String
<POP 26a9a-26a9e StackAdj> Δ+16 {[-2-]|[«52""»]|[-2-]|[«2""»]|[-4-]}
<MI 26a9e MOVE.L (A7)+,(A6-0x6)> Δ+4 {[-2-]|[«52""»]|[-2-]|[«2""»]}
<POP 26aa2-26aa6 StackAdj> Δ+48 {[-2-]|[-8-]}
<MI 26aa6 MOVE.L (A6-0x6),(A7)> {[-2-]|[-4-]|[4, '(A6-0x6)']}
<Const 0x26aaa 0xa.4> Δ-4 {[-2-]|[-4-]|[4, '(A6-0x6)']|[##10]}
<MI 26aae CLR.L D0> {[-2-]|[-4-]|[4, '(A6-0x6)']|[##10]}
<MI 26ab0 MOVE.W D6,D0> {[-2-]|[-4-]|[4, '(A6-0x6)']|[##10]}
<MI 26ab2 MOVE.L D0,-(A7)> Δ-4 {[-2-]|[-4-]|[4, '(A6-0x6)']|[##10]|[4, 'D0']}
<Call 0x26ab4 0x103ec> {[-2-]|[-4-]|[4, '(A6-0x6)']|[##10]|[4, 'D0']}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 26aba-26abe StackAdj> Δ+12 {[-2-]|[-4-]}
<MI 26abe MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x26ac0 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 26aca MOVE.W D0,D5> {[-2-]}
<MI 26acc BRA 0x26ad0> {[-2-]}
<POP 26ace-26ad0 Naked> Σ-2 ↓ ←0x269a0
<MI 26ace MOVEQ.L #0x03,D5> {[-2-]}
<POP 26ad0-26afc Naked> Σ-2 ↓ →0x26b44 ←0x26a0a
<MI 26ad0 CLR.L D0> {[-2-]}
<MI 26ad2 MOVE.W 0x295f8,D0> {[-2-]}
<MI 26ad8 SUBQ.L #0x2,D0> {[-2-]}
<POP 0x26ada LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 26ae4 MOVE.W D0,D6> {[-2-]}
<Pointer.fp 0x26ae6 <LVAR -0x006 @ 4(rw)>> Δ-4 {[-2-]|[@@-6]}
<Call 0x26aea 0x102b8> {[-2-]|[@@-6]}
NewString(VAR a : String)
<POP 26af0-26af2 StackAdj> Δ+2 {[-2-]|[-2-]}
<Call 0x26af2 0x1060a> {[-2-]|[-2-]}
Is_machine_type_four() : Bool
<MI 26af8 TST.B (A7)+> Δ+2 {[-2-]}
<MI 26afa BEQ 0x26b44> {[-2-]}
<POP 26afc-26b44 Naked> Σ-2 Δ-90 →0x26b8a
<Blob 0x26afc [70] @> Δ-70 {[-2-]|[«70""»]}
<POP 26b0e-26b10 StackAdj> Δ-4 {[-2-]|[«70""»]|[-4-]}
<POP 26b10-26b11 StackAdj> Δ+2 {[-2-]|[«70""»]|[-2-]}
<Blob 0x26b11 [2] @> Δ-2 {[-2-]|[«70""»]|[-2-]|[«2""»]}
<MI 26b14 MOVE.B 0x214ad,(A7+0x1)> {[-2-]|[«70""»]|[-2-]|[«2""»]}
<MI 26b1a MOVE.B 0x214ae,(A7+0x2)> {[-2-]|[«70""»]|[-2-]|[«2""»]}
<POP 26b20-26b22 StackAdj> Δ-4 {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]}
<MI 26b22 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']}
<POP 26b26-26b28 StackAdj> Δ-4 {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[-4-]}
<Lit 0x26b28 69> {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter first cylinder to be used for read/write diagnostics [ Hint =>_]}
<POP 26b36-26b38 StackAdj> Δ-4 {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter first cylinder to be used for read/write diagnostics [ Hint =>_]|[-4-]}
<MI 26b38 CLR.L D0> {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter first cylinder to be used for read/write diagnostics [ Hint =>_]|[-4-]}
<MI 26b3a MOVE.W 0x295e4,D0> {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter first cylinder to be used for read/write diagnostics [ Hint =>_]|[-4-]}
<MI 26b40 SUBQ.L #0x7,D0> {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter first cylinder to be used for read/write diagnostics [ Hint =>_]|[-4-]}
<MI 26b42 BRA 0x26b8a> {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter first cylinder to be used for read/write diagnostics [ Hint =>_]|[-4-]}
<POP 26b44-26b8a Naked> Σ-2 Δ-90 ↓ ←0x26ad0
<Blob 0x26b44 [70] @> Δ-70 {[-2-]|[«70""»]}
<POP 26b56-26b58 StackAdj> Δ-4 {[-2-]|[«70""»]|[-4-]}
<POP 26b58-26b59 StackAdj> Δ+2 {[-2-]|[«70""»]|[-2-]}
<Blob 0x26b59 [2] @> Δ-2 {[-2-]|[«70""»]|[-2-]|[«2""»]}
<MI 26b5c MOVE.B 0x214b1,(A7+0x1)> {[-2-]|[«70""»]|[-2-]|[«2""»]}
<MI 26b62 MOVE.B 0x214b2,(A7+0x2)> {[-2-]|[«70""»]|[-2-]|[«2""»]}
<POP 26b68-26b6a StackAdj> Δ-4 {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]}
<MI 26b6a MOVE.L (A6-0x6),-(A7)> Δ-4 {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']}
<POP 26b6e-26b70 StackAdj> Δ-4 {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[-4-]}
<Lit 0x26b70 69> {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter first cylinder to be used for read/write diagnostics [ Hint =>_]}
<POP 26b7e-26b80 StackAdj> Δ-4 {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter first cylinder to be used for read/write diagnostics [ Hint =>_]|[-4-]}
<MI 26b80 CLR.L D0> {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter first cylinder to be used for read/write diagnostics [ Hint =>_]|[-4-]}
<MI 26b82 MOVE.W 0x295e4,D0> {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter first cylinder to be used for read/write diagnostics [ Hint =>_]|[-4-]}
<MI 26b88 SUBQ.L #0x5,D0> {[-2-]|[«70""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6-0x6)']|[$$Enter first cylinder to be used for read/write diagnostics [ Hint =>_]|[-4-]}
<POP 26b8a-26d60 Naked> Σ-92 Δ+82 ↓ →0x26d64 ←0x26afc
<MI 26b8a MOVE.L D0,-(A7)> Δ-4 {[-92-]|[4, 'D0']}
<Call 0x26b8c 0x102e4> {[-92-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x26b92> {[-92-]|[$$…]}
<Pointer.sp 0x26b92 20> Δ-4
<Const 0x26b96 0x1.2> Δ-2
<Const 0x26b9a 0x3.2> Δ-2
<Call 0x26b9e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 26ba0-26ba2 StackAdj> Δ+8
<Call 0x26ba2 0x102d8> {[-92-]|[$$…]}
StringCat4(a, b, c, d : String) : String
<POP 26ba8-26bac StackAdj> Δ+16 {[-80-]}
<MI 26bac MOVE.L (A7)+,(A6-0x6)> Δ+4 {[-76-]}
<POP 26bb0-26bb4 StackAdj> Δ+74 {[-2-]}
<POP 26bb4-26bb6 StackAdj> Δ-4 {[-6-]}
<MI 26bb6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x6)']}
<MI 26bba CLR.L D0> {[-6-]|[4, '(A6-0x6)']}
<MI 26bbc MOVE.W D5,D0> {[-6-]|[4, '(A6-0x6)']}
<MI 26bbe MOVE.L D0,-(A7)> Δ-4 {[-6-]|[4, '(A6-0x6)']|[4, 'D0']}
<MI 26bc0 CLR.L D0> {[-6-]|[4, '(A6-0x6)']|[4, 'D0']}
<MI 26bc2 MOVE.W D6,D0> {[-6-]|[4, '(A6-0x6)']|[4, 'D0']}
<MI 26bc4 MOVE.L D0,-(A7)> Δ-4 {[-6-]|[4, '(A6-0x6)']|[4, 'D0']|[4, 'D0']}
<Call 0x26bc6 0x103ec> {[-6-]|[4, '(A6-0x6)']|[4, 'D0']|[4, 'D0']}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 26bcc-26bd0 StackAdj> Δ+12 {[-6-]}
<MI 26bd0 MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x26bd2 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 26bdc MOVE.W D0,(A6-0x16)> {[-2-]}
<MI 26be0 MOVE.L D0,-(A7)> Δ-4 {[-2-]|[4, 'D0']}
<MI 26be2 MOVE.L 0x295f8,0x2960c> {[-2-]|[4, 'D0']}
<MI 26bec CLR.W 0x29604> {[-2-]|[4, 'D0']}
<MI 26bf2 MOVE.W #0x7fed,0x29606> {[-2-]|[4, 'D0']}
<MI 26bfa MOVE.W #0x3,0x29608> {[-2-]|[4, 'D0']}
<MI 26c02 CLR.W 0x2960a> {[-2-]|[4, 'D0']}
<Const 0x26c08 0xa.2> Δ-2 {[-2-]|[4, 'D0']|[#10]}
<Const 0x26c0c 0x29610.4> Δ-4 {[-2-]|[4, 'D0']|[#10]|[##169488]}
<Call 0x26c12 0x24be2> {[-2-]|[4, 'D0']|[#10]|[##169488]}
<POP 26c16-26c18 StackAdj> Δ+4 {[-2-]|[4, 'D0']|[#10]}
<POP 26c18-26c19 StackAdj> Δ+2 {[-2-]|[4, 'D0']}
<Const 0x26c19 0x29.2> Δ-2 {[-2-]|[4, 'D0']|[#41]}
<Const 0x26c1c 0x29614.4> Δ-4 {[-2-]|[4, 'D0']|[#41]|[##169492]}
<Call 0x26c22 0x24be2> {[-2-]|[4, 'D0']|[#41]|[##169492]}
<POP 26c26-26c28 StackAdj> Δ+4 {[-2-]|[4, 'D0']|[#41]}
<POP 26c28-26c29 StackAdj> Δ+2 {[-2-]|[4, 'D0']}
<Const 0x26c29 0x2a.2> Δ-2 {[-2-]|[4, 'D0']|[#42]}
<Const 0x26c2c 0x29618.4> Δ-4 {[-2-]|[4, 'D0']|[#42]|[##169496]}
<Call 0x26c32 0x24be2> {[-2-]|[4, 'D0']|[#42]|[##169496]}
<POP 26c36-26c38 StackAdj> Δ+4 {[-2-]|[4, 'D0']|[#42]}
<POP 26c38-26c39 StackAdj> Δ+2 {[-2-]|[4, 'D0']}
<Const 0x26c39 0x49.2> Δ-2 {[-2-]|[4, 'D0']|[#73]}
<Const 0x26c3c 0x2961c.4> Δ-4 {[-2-]|[4, 'D0']|[#73]|[##169500]}
<Call 0x26c42 0x24be2> {[-2-]|[4, 'D0']|[#73]|[##169500]}
<POP 26c46-26c48 StackAdj> Δ+4 {[-2-]|[4, 'D0']|[#73]}
<POP 26c48-26c49 StackAdj> Δ+2 {[-2-]|[4, 'D0']}
<Const 0x26c49 0x4a.2> Δ-2 {[-2-]|[4, 'D0']|[#74]}
<Const 0x26c4c 0x29620.4> Δ-4 {[-2-]|[4, 'D0']|[#74]|[##169504]}
<Call 0x26c52 0x24be2> {[-2-]|[4, 'D0']|[#74]|[##169504]}
<POP 26c56-26c58 StackAdj> Δ+6 {[-2-]|[4, 'D0']}
<MI 26c58 MOVE.W D5,0x29624> {[-2-]|[4, 'D0']}
<MI 26c5e CLR.L D0> {[-2-]|[4, 'D0']}
<MI 26c60 MOVE.B 0x295fa,D0> {[-2-]|[4, 'D0']}
<MI 26c66 SUBQ.W #0x1,D0> {[-2-]|[4, 'D0']}
<POP 0x26c68 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[-2-]|[4, 'D0']}
<MI 26c6c MOVE.B D0,0x29626> {[-2-]|[4, 'D0']}
<MI 26c72 CLR.L D0> {[-2-]|[4, 'D0']}
<MI 26c74 MOVE.B 0x295fb,D0> {[-2-]|[4, 'D0']}
<MI 26c7a SUBQ.W #0x1,D0> {[-2-]|[4, 'D0']}
<POP 0x26c7c LimitCheck 0x0 ≤ D0 ≤ 0xff> {[-2-]|[4, 'D0']}
<MI 26c80 MOVE.B D0,0x29627> {[-2-]|[4, 'D0']}
<MI 26c86 CLR.L D0> {[-2-]|[4, 'D0']}
<MI 26c88 MOVE.W D5,D0> {[-2-]|[4, 'D0']}
<MI 26c8a ADDQ.L #0x1,D0> {[-2-]|[4, 'D0']}
<POP 0x26c8c LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]|[4, 'D0']}
<MI 26c96 MOVE.W D0,0x29628> {[-2-]|[4, 'D0']}
<MI 26c9c CLR.B 0x2962a> {[-2-]|[4, 'D0']}
<MI 26ca2 CLR.B 0x2962b> {[-2-]|[4, 'D0']}
<MI 26ca8 MOVE.L (A7),D0> {[-2-]|[4, 'D0']}
<MI 26caa CLR.L D1> {[-2-]|[4, 'D0']}
<MI 26cac MOVE.W D0,D1> {[-2-]|[4, 'D0']}
<MI 26cae SUBQ.L #0x1,D1> {[-2-]|[4, 'D0']}
<POP 0x26cb0 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {[-2-]|[4, 'D0']}
<MI 26cba MOVE.W D1,0x2962c> {[-2-]|[4, 'D0']}
<MI 26cc0 CLR.L D0> {[-2-]|[4, 'D0']}
<MI 26cc2 MOVE.B 0x295fa,D0> {[-2-]|[4, 'D0']}
<MI 26cc8 SUBQ.W #0x1,D0> {[-2-]|[4, 'D0']}
<POP 0x26cca LimitCheck 0x0 ≤ D0 ≤ 0xff> {[-2-]|[4, 'D0']}
<MI 26cce MOVE.B D0,0x2962e> {[-2-]|[4, 'D0']}
<MI 26cd4 CLR.L D0> {[-2-]|[4, 'D0']}
<MI 26cd6 MOVE.B 0x295fb,D0> {[-2-]|[4, 'D0']}
<MI 26cdc SUBQ.W #0x1,D0> {[-2-]|[4, 'D0']}
<POP 0x26cde LimitCheck 0x0 ≤ D0 ≤ 0xff> {[-2-]|[4, 'D0']}
<MI 26ce2 MOVE.B D0,0x2962f> {[-2-]|[4, 'D0']}
<MI 26ce8 MOVE.L (A7),D0> {[-2-]|[4, 'D0']}
<MI 26cea MOVE.W D0,0x29630> {[-2-]|[4, 'D0']}
<MI 26cf0 CLR.B 0x29632> {[-2-]|[4, 'D0']}
<MI 26cf6 CLR.B 0x29633> {[-2-]|[4, 'D0']}
<MI 26cfc CLR.L D0> {[-2-]|[4, 'D0']}
<MI 26cfe MOVE.W 0x295f8,D0> {[-2-]|[4, 'D0']}
<MI 26d04 SUBQ.L #0x1,D0> {[-2-]|[4, 'D0']}
<POP 0x26d06 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]|[4, 'D0']}
<MI 26d10 MOVE.W D0,0x29634> {[-2-]|[4, 'D0']}
<MI 26d16 CLR.L D0> {[-2-]|[4, 'D0']}
<MI 26d18 MOVE.B 0x295fa,D0> {[-2-]|[4, 'D0']}
<MI 26d1e SUBQ.W #0x1,D0> {[-2-]|[4, 'D0']}
<POP 0x26d20 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[-2-]|[4, 'D0']}
<MI 26d24 MOVE.B D0,0x29636> {[-2-]|[4, 'D0']}
<MI 26d2a CLR.L D0> {[-2-]|[4, 'D0']}
<MI 26d2c MOVE.B 0x295fb,D0> {[-2-]|[4, 'D0']}
<MI 26d32 SUBQ.W #0x1,D0> {[-2-]|[4, 'D0']}
<POP 0x26d34 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[-2-]|[4, 'D0']}
<MI 26d38 MOVE.B D0,0x29637> {[-2-]|[4, 'D0']}
<MI 26d3e MOVE.B #0x01,0x29639> {[-2-]|[4, 'D0']}
<MI 26d46 MOVE.W (A7+0x4),D0> {[-2-]|[4, 'D0']}
<MI 26d4a MOVE.B D0,0x29638> {[-2-]|[4, 'D0']}
<MI 26d50 MOVEA.L 0x295ea,A0> {[-2-]|[4, 'D0']}
<MI 26d56 MOVE.L A0,-(A7)> Δ-4 {[-2-]|[4, 'D0']|[4, 'A0']}
<MI 26d58 MOVE.W (A0),D0> {[-2-]|[4, 'D0']|[4, 'A0']}
<MI 26d5a CMPI.W #0x001e,D0> {[-2-]|[4, 'D0']|[4, 'A0']}
<MI 26d5e BLE 0x26d64> {[-2-]|[4, 'D0']|[4, 'A0']}
<POP 26d60-26d64 Naked> Σ-10 ↓
<MI 26d60 MOVE.W #0x1e,(A0)> {[-10-]}
<POP 26d64-26d6c Naked> Σ-10 Δ-4 ↓ ←0x26b8a
<MI 26d64 MOVE.W (A0),D0> {[-10-]}
<MI 26d66 EXTW.L D0> {[-10-]}
<MI 26d68 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, 'D0']}
<MI 26d6a MOVEQ.L #0x01,D7> {[-10-]|[4, 'D0']}
<POP 26d6c-26d70 Naked> Σ-14 ↓ →0x26da0 ←0x26d70
<MI 26d6c CMP.L (A7),D7> {[-14-]}
<MI 26d6e BGT 0x26da0> {[-14-]}
<POP 26d70-26da0 Naked> Σ-14 ↓ →0x26d6c
<MI 26d70 MOVE.L D7,D0> {[-14-]}
<MI 26d72 SUBQ.L #0x1,D0> {[-14-]}
<POP 0x26d74 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {[-14-]}
<MI 26d7e LEA.L 0x29604,A0> {[-14-]}
<MI 26d84 MOVE.L D7,D1> {[-14-]}
<MI 26d86 SUBQ.L #0x1,D1> {[-14-]}
<POP 0x26d88 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-14-]}
<MI 26d92 MOVEA.L (A7+0x4),A1> {[-14-]}
<MI 26d96 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x36)> {[-14-]}
<MI 26d9c ADDQ.L #0x1,D7> {[-14-]}
<MI 26d9e BVC 0x26d6c> {[-14-]}
<POP 26da0-26dac Naked> Σ-14 Δ+4 ↓ ←0x26d6c
<POP 26da0-26da2 StackAdj> Δ+4 {[-10-]}
<MI 26da2 MOVEA.L (A7),A0> {[-10-]}
<MI 26da4 MOVE.W (A0),D0> {[-10-]}
<MI 26da6 EXTW.L D0> {[-10-]}
<MI 26da8 ADDQ.L #0x1,D0> {[-10-]}
<MI 26daa MOVE.L D0,D7> {[-10-]}
<POP 26dac-26db4 Naked> Σ-10 ↓ →0x26dd0 ←0x26db4
<MI 26dac CMPI.L #0x0000001e,D7> {[-10-]}
<MI 26db2 BGT 0x26dd0> {[-10-]}
<POP 26db4-26dd0 Naked> Σ-10 ↓ →0x26dac
<MI 26db4 MOVE.L D7,D0> {[-10-]}
<MI 26db6 SUBQ.L #0x1,D0> {[-10-]}
<POP 0x26db8 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {[-10-]}
<MI 26dc2 LEA.L 0x29604,A0> {[-10-]}
<MI 26dc8 CLR.B (A0+D0.L+#0x36)> {[-10-]}
<MI 26dcc ADDQ.L #0x1,D7> {[-10-]}
<MI 26dce BVC 0x26dac> {[-10-]}
<POP 26dd0-26e28 Naked> Σ-10 Δ+10 ↓ →0x26e48 ←0x26dac
<POP 26dd0-26dd1 StackAdj> Δ+10 ↓ {}
<Blob 0x26dd1 [22] @> Δ-22 {[«22""»]}
<POP 26de2-26de4 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x26de4 21> {[«22""»]|[$$Writing shared label.]}
<Call 0x26df4 0x103e0> {[«22""»]|[$$Writing shared label.]}
WriteConsoleStringCrLf(str : String)
<POP 26dfa-26dfe StackAdj> Δ+26 {}
<Call 0x26dfe 0x22bbe> {}
<Const 0x26e02 0x3.2> Δ-2 {[#3]}
<Const 0x26e06 0x2.2> Δ-2 {[#3]|[#2]}
<Const 0x26e0a 0x1.4> Δ-4 {[#3]|[#2]|[##1]}
<Blob 0x26e0e [4] 0x29600> Δ-4 {[#3]|[#2]|[##1]|[«4»]}
<Pointer.fp 0x26e14 <LVAR -0x008 @ 1(r)>> Δ-4 {[#3]|[#2]|[##1]|[«4»]|[@@-8]}
<Call 0x26e18 0x1036c> {[#3]|[#2]|[##1]|[«4»]|[@@-8]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 26e1e-26e22 StackAdj> Δ+16 {}
<MI 26e22 TST.B (A6-0x8)> {}
<MI 26e26 BEQ 0x26e48> {}
<POP 26e28-26e48 Naked> Σ0 ↓
<Const 0x26e28 0x3.2> Δ-2 {[#3]}
<Const 0x26e2c 0x3.2> Δ-2 {[#3]|[#3]}
<Const 0x26e30 0x1.4> Δ-4 {[#3]|[#3]|[##1]}
<Blob 0x26e34 [4] 0x29600> Δ-4 {[#3]|[#3]|[##1]|[«4»]}
<Pointer.fp 0x26e3a <LVAR -0x008 @ 1(r)>> Δ-4 {[#3]|[#3]|[##1]|[«4»]|[@@-8]}
<Call 0x26e3e 0x1036c> {[#3]|[#3]|[##1]|[«4»]|[@@-8]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 26e44-26e48 StackAdj> Δ+16 {}
<POP 26e48-26e4e Naked> Σ0 ↓ →0x26e7a ←0x26dd0
<MI 26e48 TST.B (A6-0x8)> {}
<MI 26e4c BNE 0x26e7a> {}
<POP 26e4e-26e7a Naked> Σ0 ↓
<Blob 0x26e4e [36] @> Δ-36 {[«36""»]}
<POP 26e60-26e62 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x26e62 35> {[«36""»]|[$$Can't write VOLUME label, aborting!]}
<Call 0x26e72 0x224cc> {[«36""»]|[$$Can't write VOLUME label, aborting!]}
<POP 26e76-26e7a StackAdj> Δ+40 {}
<POP 26e7a-26e82 Epilogue> Σ0 ←0x26998 ←0x26e48
@ 26e82
<LVAR -0x004 4(rw)>
<LVAR -0x006 2(rw)>
<LVAR -0x008 2(rw)>
<LVAR -0x2012 @>
<LVAR -0x2017 @ 1(r)>
<LVAR -0x2018 1(rw)>
<LVAR -0x201a 2(w)>
<LVAR -0x201c @ 2(w) 4(r)>
<POP 26e82-2722e Body> Δ-4
<POP 26e82-26e98 Prologue> Σ0 ↓
<POP 26e98-26ea2 RegCacheLoad> Σ0 ↓
<POP 26ea2-26f5e Naked> Σ0 ↓
<Blob 0x26ea2 [24] @> Δ-24 {[«24""»]}
<POP 26eb4-26eb6 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x26eb6 23> {[«24""»]|[$$Constructing free list.]}
<Call 0x26ec6 0x103e0> {[«24""»]|[$$Constructing free list.]}
WriteConsoleStringCrLf(str : String)
<POP 26ecc-26ed0 StackAdj> Δ+28 {}
<MI 26ed0 LEA.L (A6-0x2012),A0> {}
<MI 26ed4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 26ed6 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 26ed8 MOVE.W 0x1000c,D0> {}
<MI 26ede MULU.W 0x29620,D0> {}
<MI 26ee4 CLR.L D1> {}
<MI 26ee6 MOVE.B 0x29622,D1> {}
<MI 26eec MULU.W 0x1000a,D1> {}
<MI 26ef2 ADD.L D0,D1> {}
<MI 26ef4 CLR.L D0> {}
<MI 26ef6 MOVE.B 0x29623,D0> {}
<MI 26efc ADDQ.W #0x1,D0> {}
<MI 26efe ASR.W #0x1,D0> {}
<MI 26f00 EXTW.L D0> {}
<MI 26f02 ADD.L D1,D0> {}
<POP 0x26f04 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 26f0e MOVE.W D0,(A6-0x8)> {}
<MI 26f12 MOVE.W 0x1000c,D0> {}
<MI 26f18 MULU.W 0x29624,D0> {}
<MI 26f1e CLR.L D1> {}
<MI 26f20 MOVE.B 0x29626,D1> {}
<MI 26f26 MULU.W 0x1000a,D1> {}
<MI 26f2c ADD.L D0,D1> {}
<MI 26f2e CLR.L D0> {}
<MI 26f30 MOVE.B 0x29627,D0> {}
<MI 26f36 SUBQ.W #0x1,D0> {}
<MI 26f38 EXTW.L D0> {}
<MI 26f3a DIVS.W #0x2,D0> {}
<MI 26f3e EXTW.L D0> {}
<MI 26f40 ADD.L D1,D0> {}
<POP 0x26f42 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 26f4c MOVE.W D0,(A6-0x6)> {}
<MI 26f50 CLR.L D0> {}
<MI 26f52 MOVE.W 0x29624,D0> {}
<MI 26f58 MOVE.L D0,(A6-0x4)> {}
<MI 26f5c MOVEQ.L #0x00,D5> {}
<POP 26f5e-26f8a Naked> Σ0 ↓ →0x26f5e ←0x26f5e
<MI 26f5e CLR.L D0> {}
<MI 26f60 MOVE.W D5,D0> {}
<MI 26f62 MOVEA.L A4,A0> {}
<MI 26f64 MOVE.L D0,D1> {}
<MI 26f66 ROR.L #0x3,D1> {}
<MI 26f68 ADDA.W D1,A0> {}
<MI 26f6a SWAP.W D1> {}
<MI 26f6c ROL.W #0x3,D1> {}
<MI 26f6e MOVE.W #0xff7f,D2> {}
<MI 26f72 ROR.W D1,D2> {}
<MI 26f74 AND.B D2,(A0)> {}
<MI 26f76 ADDQ.L #0x1,D0> {}
<POP 0x26f78 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 26f82 MOVE.W D0,D5> {}
<MI 26f84 CMP.W (A6-0x8),D5> {}
<MI 26f88 BNE 0x26f5e> {}
<POP 26f8a-26fc0 Naked> Σ0 ↓ →0x26f8a ←0x26f8a
<MI 26f8a CLR.L D0> {}
<MI 26f8c MOVE.W D5,D0> {}
<MI 26f8e MOVEA.L A4,A0> {}
<MI 26f90 MOVE.L D0,D1> {}
<MI 26f92 ROR.L #0x3,D1> {}
<MI 26f94 ADDA.W D1,A0> {}
<MI 26f96 SWAP.W D1> {}
<MI 26f98 ROL.W #0x3,D1> {}
<MI 26f9a MOVE.B #0x80,D2> {}
<MI 26f9e LSR.B D1,D2> {}
<MI 26fa0 OR.B D2,(A0)> {}
<MI 26fa2 ADDQ.L #0x1,D0> {}
<POP 0x26fa4 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 26fae MOVE.W D0,D5> {}
<MI 26fb0 CLR.L D0> {}
<MI 26fb2 MOVE.W (A6-0x6),D0> {}
<MI 26fb6 ADDQ.L #0x1,D0> {}
<MI 26fb8 CLR.L D1> {}
<MI 26fba MOVE.W D5,D1> {}
<MI 26fbc CMP.L D0,D1> {}
<MI 26fbe BNE 0x26f8a> {}
<POP 26fc0-26fd2 Naked> Σ0 ↓
<MI 26fc0 MOVEA.L A4,A0> {}
<MI 26fc2 ROR.L #0x3,D1> {}
<MI 26fc4 ADDA.W D1,A0> {}
<MI 26fc6 SWAP.W D1> {}
<MI 26fc8 ROL.W #0x3,D1> {}
<MI 26fca MOVE.W #0xff7f,D0> {}
<MI 26fce ROR.W D1,D0> {}
<MI 26fd0 AND.B D0,(A0)> {}
<POP 26fd2-26fde Naked> Σ0 ↓ →0x27004 ←0x26fde
<MI 26fd2 CLR.L D0> {}
<MI 26fd4 MOVE.W D5,D0> {}
<MI 26fd6 CMPI.L #0x0000ffff,D0> {}
<MI 26fdc BEQ 0x27004> {}
<POP 26fde-27004 Naked> Σ0 →0x26fd2
<MI 26fde ADDQ.L #0x1,D0> {}
<POP 0x26fe0 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 26fea MOVE.W D0,D5> {}
<MI 26fec CLR.L D0> {}
<MI 26fee MOVE.W D5,D0> {}
<MI 26ff0 MOVEA.L A4,A0> {}
<MI 26ff2 ROR.L #0x3,D0> {}
<MI 26ff4 ADDA.W D0,A0> {}
<MI 26ff6 SWAP.W D0> {}
<MI 26ff8 ROL.W #0x3,D0> {}
<MI 26ffa MOVE.W #0xff7f,D1> {}
<MI 26ffe ROR.W D0,D1> {}
<MI 27000 AND.B D1,(A0)> {}
<MI 27002 BRA 0x26fd2> {}
<POP 27004-27006 Naked> Σ0 ↓ ←0x26fd2
<MI 27004 MOVEQ.L #0x00,D0> {}
<POP 27006-27032 Naked> Σ0 Δ-4 ↓ →0x270f6 ←0x27102
<MI 27006 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<POP 0x27008 LimitCheck 0x0 ≤ D0 ≤ 0x7ff> {[4, 'D0']}
<MI 27012 MOVE.L D0,D1> {[4, 'D0']}
<MI 27014 ASL.L #0x2,D1> {[4, 'D0']}
<MI 27016 LEA.L 0x295b8,A0> {[4, 'D0']}
<MI 2701c LEA.L (A0+D1.L),A0> {[4, 'D0']}
<MI 27020 CLR.L D1> {[4, 'D0']}
<MI 27022 MOVE.W (A0+0x44c),D1> {[4, 'D0']}
<MI 27026 LSL.W #0x2,D1> {[4, 'D0']}
<MI 27028 LSR.W #0x2,D1> {[4, 'D0']}
<MI 2702a CMP.L (A6-0x4),D1> {[4, 'D0']}
<MI 2702e BHI 0x270f6> {[4, 'D0']}
<POP 27032-2703e Naked> Σ-4 ↓ →0x27046
<MI 27032 CLR.L D2> {[-4-]}
<MI 27034 MOVE.B (A0+0x44e),D2> {[-4-]}
<MI 27038 CMPI.W #0x00ff,D2> {[-4-]}
<MI 2703c BNE 0x27046> {[-4-]}
<POP 2703e-27046 Naked> Σ-4 →0x2705c
<MI 2703e MOVE.W 0x1000c,D7> {[-4-]}
<MI 27044 BRA 0x2705c> {[-4-]}
<POP 27046-27052 Naked> Σ-4 ↓ →0x2705a ←0x27032
<MI 27046 CLR.L D3> {[-4-]}
<MI 27048 MOVE.B (A0+0x44f),D3> {[-4-]}
<MI 2704c CMPI.W #0x00ff,D3> {[-4-]}
<MI 27050 BNE 0x2705a> {[-4-]}
<POP 27052-2705a Naked> Σ-4 →0x2705c
<MI 27052 MOVE.W 0x1000a,D7> {[-4-]}
<MI 27058 BRA 0x2705c> {[-4-]}
<POP 2705a-2705c Naked> Σ-4 ↓ ←0x27046
<MI 2705a MOVEQ.L #0x01,D7> {[-4-]}
<POP 2705c-2707e Naked> Σ-4 ↓ →0x270b8 ←0x2703e ←0x27052
<MI 2705c MOVE.L D1,D4> {[-4-]}
<MI 2705e CLR.L D3> {[-4-]}
<MI 27060 MOVE.W 0x1000c,D3> {[-4-]}
<Call 0x27066 0x10290> {[-4-]}
?mulu_d3_d4
<POP 0x2706c LimitCheck 0x0 ≤ D4 ≤ 0xffff> {[-4-]}
<MI 27076 MOVE.W D4,D6> {[-4-]}
<MI 27078 CMPI.W #0x00ff,D2> {[-4-]}
<MI 2707c BEQ 0x270b8> {[-4-]}
<POP 2707e-270a2 Naked> Σ-4 ↓ →0x270b8
<MI 2707e MULU.W 0x1000a,D2> {[-4-]}
<MI 27084 CLR.L D1> {[-4-]}
<MI 27086 MOVE.W D6,D1> {[-4-]}
<MI 27088 ADD.L D1,D2> {[-4-]}
<POP 0x2708a LimitCheck 0x0 ≤ D2 ≤ 0xffff> {[-4-]}
<MI 27094 MOVE.W D2,D6> {[-4-]}
<MI 27096 CLR.L D1> {[-4-]}
<MI 27098 MOVE.B (A0+0x44f),D1> {[-4-]}
<MI 2709c CMPI.W #0x00ff,D1> {[-4-]}
<MI 270a0 BEQ 0x270b8> {[-4-]}
<POP 270a2-270b8 Naked> Σ-4 ↓
<MI 270a2 ASR.W #0x1,D1> {[-4-]}
<MI 270a4 CLR.L D2> {[-4-]}
<MI 270a6 MOVE.W D6,D2> {[-4-]}
<MI 270a8 EXTW.L D1> {[-4-]}
<MI 270aa ADD.L D2,D1> {[-4-]}
<POP 0x270ac LimitCheck 0x0 ≤ D1 ≤ 0xffff> {[-4-]}
<MI 270b6 MOVE.W D1,D6> {[-4-]}
<POP 270b8-270bc Naked> Σ-4 ↓ →0x270f6 ←0x2705c ←0x2707e
<MI 270b8 TST.W D6> {[-4-]}
<MI 270ba BEQ 0x270f6> {[-4-]}
<POP 270bc-270f6 Naked> Σ-4 ↓ →0x270bc ←0x270bc
<MI 270bc CLR.L D0> {[-4-]}
<MI 270be MOVE.W D6,D0> {[-4-]}
<MI 270c0 MOVEA.L A4,A0> {[-4-]}
<MI 270c2 MOVE.L D0,D1> {[-4-]}
<MI 270c4 ROR.L #0x3,D1> {[-4-]}
<MI 270c6 ADDA.W D1,A0> {[-4-]}
<MI 270c8 SWAP.W D1> {[-4-]}
<MI 270ca ROL.W #0x3,D1> {[-4-]}
<MI 270cc MOVE.W #0xff7f,D2> {[-4-]}
<MI 270d0 ROR.W D1,D2> {[-4-]}
<MI 270d2 AND.B D2,(A0)> {[-4-]}
<MI 270d4 ADDQ.L #0x1,D0> {[-4-]}
<POP 0x270d6 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-4-]}
<MI 270e0 MOVE.W D0,D6> {[-4-]}
<MI 270e2 CLR.L D0> {[-4-]}
<MI 270e4 MOVE.W D7,D0> {[-4-]}
<MI 270e6 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x270e8 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-4-]}
<MI 270f2 MOVE.W D0,D7> {[-4-]}
<MI 270f4 BNE 0x270bc> {[-4-]}
<POP 270f6-27102 Naked> Σ-4 ↓ →0x27108 ←0x27006 ←0x270b8
<MI 270f6 MOVE.L (A7),D0> {[-4-]}
<MI 270f8 ADDQ.L #0x1,D0> {[-4-]}
<MI 270fa CMPI.L #0x000007ff,D0> {[-4-]}
<MI 27100 BGT 0x27108> {[-4-]}
<POP 27102-27108 Naked> Σ-4 Δ+4 →0x27006
<POP 27102-27104 StackAdj> Δ+4 {}
<MI 27104 BRA 0x27006> {}
<POP 27108-2713c Naked> Σ-4 Δ+4 ↓ ←0x270f6
<POP 27108-2710a StackAdj> Δ+4 {}
<Blob 0x2710a [18] @> Δ-18 {[«18""»]}
<POP 27116-27118 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x27118 18> {[«18""»]|[$$Writing free list.]}
<Call 0x27128 0x103e0> {[«18""»]|[$$Writing free list.]}
WriteConsoleStringCrLf(str : String)
<POP 2712e-27132 StackAdj> Δ+22 {}
<MI 27132 CLR.B (A6-0x2018)> {}
<MI 27134 MOVEQ.L #0x00,D6> {}
<MI 27136 MOVEQ.L #0x00,D7> {}
<MI 27138 MOVE.W #0xffff,D5> {}
<POP 2713c-27152 Naked> Σ0 ↓ →0x27168 ←0x27204
<MI 2713c CLR.L D0> {}
<MI 2713e MOVE.W D5,D0> {}
<MI 27140 MOVEA.L A4,A0> {}
<MI 27142 ROR.L #0x3,D0> {}
<MI 27144 ADDA.W D0,A0> {}
<MI 27146 SWAP.W D0> {}
<MI 27148 ROL.W #0x3,D0> {}
<MI 2714a MOVE.B (A0),D1> {}
<MI 2714c LSL.B D0,D1> {}
<MI 2714e LSR.B #0x7,D1> {}
<MI 27150 BEQ 0x27168> {}
<POP 27152-27168 Naked> Σ0 ↓
<MI 27152 CLR.L D0> {}
<MI 27154 MOVE.W D7,D0> {}
<MI 27156 ADDQ.L #0x1,D0> {}
<POP 0x27158 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 27162 MOVE.W D0,D7> {}
<MI 27164 MOVE.B #0x01,(A6-0x2018)> {}
<POP 27168-27180 Naked> Σ0 ↓ →0x27184 ←0x2713c
<MI 27168 CLR.L D0> {}
<MI 2716a MOVE.W D5,D0> {}
<MI 2716c MOVEA.L A4,A0> {}
<MI 2716e MOVE.L D0,D1> {}
<MI 27170 ROR.L #0x3,D1> {}
<MI 27172 ADDA.W D1,A0> {}
<MI 27174 SWAP.W D1> {}
<MI 27176 ROL.W #0x3,D1> {}
<MI 27178 MOVE.B (A0),D2> {}
<MI 2717a LSL.B D1,D2> {}
<MI 2717c LSR.B #0x7,D2> {}
<MI 2717e BNE 0x27184> {}
<POP 27180-27184 Naked> Σ0 ↓ →0x2718a
<MI 27180 TST.B (A6-0x2018)> {}
<MI 27182 BNE 0x2718a> {}
<POP 27184-2718a Naked> Σ0 ↓ →0x27204 ←0x27168
<MI 27184 CMPI.W #0x4000,D7> {}
<MI 27188 BNE 0x27204> {}
<POP 2718a-271a0 Naked> Σ0 ↓ →0x271a2 ←0x27180
<MI 2718a MOVE.W D6,(A6-0x201a)> {}
<MI 2718e MOVE.W D7,(A6-0x201c)> {}
<MI 27192 MOVE.L (A6-0x201c),0x10022> {}
<MI 2719a CMPI.W #0x4000,D7> {}
<MI 2719e BNE 0x271a2> {}
<POP 271a0-271a2 Naked> Σ0 →0x271ae
<MI 271a0 BRA 0x271ae> {}
<POP 271a2-271ae Naked> Σ0 ↓ ←0x2718a
<MI 271a2 ADDQ.L #0x1,D0> {}
<POP 0x271a4 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<POP 271ae-271d4 Naked> Σ0 ↓ →0x27200 ←0x271a0
<MI 271ae MOVE.W D0,D6> {}
<Const 0x271b0 0x3.2> Δ-2 {[#3]}
<MI 271b4 MOVE.W D6,-(A7)> Δ-2 {[#3]|[2, 'D6']}
<Const 0x271b6 0x1.4> Δ-4 {[#3]|[2, 'D6']|[##1]}
<MI 271ba LEA.L (A6-0x201c),A0> {[#3]|[2, 'D6']|[##1]}
<MI 271be MOVE.L A0,-(A7)> Δ-4 {[#3]|[2, 'D6']|[##1]|[4, 'A0']}
<Pointer.fp 0x271c0 <LVAR -0x2017 @ 1(r)>> Δ-4 {[#3]|[2, 'D6']|[##1]|[4, 'A0']|[@@-8215]}
<Call 0x271c4 0x1036c> {[#3]|[2, 'D6']|[##1]|[4, 'A0']|[@@-8215]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 271ca-271ce StackAdj> Δ+16 {}
<MI 271ce TST.B (A6-0x2017)> {}
<MI 271d2 BNE 0x27200> {}
<POP 271d4-27200 Naked> Σ0 ↓
<Blob 0x271d4 [56] @> Δ-56 {[«56""»]}
<POP 271e6-271e8 StackAdj> Δ-4 {[«56""»]|[-4-]}
<Lit 0x271e8 55> {[«56""»]|[$$Can't construct free list due to disk errors, aborting!]}
<Call 0x271f8 0x224cc> {[«56""»]|[$$Can't construct free list due to disk errors, aborting!]}
<POP 271fc-27200 StackAdj> Δ+60 {}
<POP 27200-27204 Naked> Σ0 ↓ ←0x271ae
<MI 27200 MOVEQ.L #0x00,D7> {}
<MI 27202 CLR.B (A6-0x2018)> {}
<POP 27204-2721a Naked> Σ0 ↓ →0x2713c ←0x27184
<MI 27204 CLR.L D0> {}
<MI 27206 MOVE.W D5,D0> {}
<MI 27208 SUBQ.L #0x1,D0> {}
<POP 0x2720a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 27214 MOVE.W D0,D5> {}
<MI 27216 BNE 0x2713c> {}
<POP 2721a-27226 Naked> Σ0 ↓
<MI 2721a MOVE.W D6,0x10010> {}
<Call 0x27220 0x10390> {}
WriteFreeList(void)
<POP 27226-2722e Epilogue> Σ0
@ 2722e
<LVAR -0x005 @ 1(r)>
<LVAR -0x006 @ 1(r)>
<LVAR -0x00a @ 4(r)>
<LVAR -0x00c @ 2(rw)>
<POP 2722e-274f8 Body>
<POP 2722e-27244 Prologue> Σ0 ↓
<POP 27244-27258 RegCacheLoad> Σ0 ↓
<POP 27258-27296 Naked> Σ0 ↓
<Blob 0x27258 [38] @> Δ-38 {[«38""»]}
<POP 27264-27266 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x27266 38> {[«38""»]|[$$Allocating and initializing directory.]}
<Call 0x27274 0x103e0> {[«38""»]|[$$Allocating and initializing directory.]}
WriteConsoleStringCrLf(str : String)
<POP 2727a-2727e StackAdj> Δ+42 {}
<Pointer.fp 0x2727e <LVAR -0x00a @ 4(r)>> Δ-4 {[@@-10]}
<Const 0x27280 0x4d.4> Δ-4 {[@@-10]|[##77]}
<Call 0x27284 0x1029c> {[@@-10]|[##77]}
Malloc1(length : Long) : Pointer
<POP 2728a-2728c StackAdj> Δ+8 {}
<MI 2728c MOVEA.L (A6-0xa),A0> {}
<MI 2728e MOVE.W #0x100,(A0+0x20)> {}
<MI 27294 MOVEQ.L #0x00,D6> {}
<POP 27296-272ae Naked> Σ0 ↓ →0x272de ←0x272de
<MI 27296 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<Const 0x27298 0x1.2> Δ-2 {[4, '(A6-0xa)']|[#1]}
<Pointer.fp 0x2729a <LVAR -0x005 @ 1(r)>> Δ-4 {[4, '(A6-0xa)']|[#1]|[@@-5]}
<Call 0x2729e 0x10378> {[4, '(A6-0xa)']|[#1]|[@@-5]}
FS10378(MOD a : File; b: Byte; VAR c: Bool)
<POP 272a4-272a8 StackAdj> Δ+10 {}
<MI 272a8 TST.B (A6-0x5)> {}
<MI 272ac BEQ 0x272de> {}
<POP 272ae-272de Naked> Σ0 ↓
<Pointer.fp 0x272ae <LVAR -0x00a @ 4(r)>> Δ-4 {[@@-10]}
<Const 0x272b0 0x4d.4> Δ-4 {[@@-10]|[##77]}
<Call 0x272b4 0x102a8> {[@@-10]|[##77]}
Free2(a : Pointer; b : Long)
<POP 272ba-272bc StackAdj> Δ+8 {}
<Blob 0x272bc [56] @> Δ-56 {[«56""»]}
<POP 272c8-272ca StackAdj> Δ-4 {[«56""»]|[-4-]}
<Lit 0x272ca 56> {[«56""»]|[$$Insufficient disk space to allocate directory, aborting!]}
<Call 0x272d6 0x224cc> {[«56""»]|[$$Insufficient disk space to allocate directory, aborting!]}
<POP 272da-272de StackAdj> Δ+60 {}
<POP 272de-27302 Naked> Σ0 ↓ →0x27296 ←0x27296
<POP 0x272de LimitCheck 0x0 ≤ D6 ≤ 0x7> {}
<MI 272e4 MOVE.L D6,D0> {}
<MI 272e6 ASL.L #0x1,D0> {}
<MI 272e8 LEA.L 0x0,A0> {}
<MI 272ec LEA.L (A0+D0.L),A0> {}
<MI 272f0 ADDA.L #0x10012,A0> {}
<MI 272f6 MOVEA.L (A6-0xa),A1> {}
<MI 272f8 MOVE.W (A1+0x24),(A0)> {}
<MI 272fc ADDQ.L #0x1,D6> {}
<MI 272fe CMP.L #0x07,D6> {}
<MI 27300 BLE 0x27296> {}
<POP 27302-27318 Naked> Σ0 ↓
<Pointer.fp 0x27302 <LVAR -0x00a @ 4(r)>> Δ-4 {[@@-10]}
<Const 0x27304 0x4d.4> Δ-4 {[@@-10]|[##77]}
<Call 0x27308 0x102a8> {[@@-10]|[##77]}
Free2(a : Pointer; b : Long)
<POP 2730e-27310 StackAdj> Δ+8 {}
<MI 27310 MOVE.W #0xffff,(A6-0xc)> {}
<MI 27316 MOVEQ.L #0x00,D7> {}
<POP 27318-27340 Naked> Σ0 ↓ →0x27318 ←0x27318
<POP 0x27318 LimitCheck 0x0 ≤ D7 ≤ 0x1ff> {}
<MI 27322 MOVE.L D7,D0> {}
<MI 27324 ASL.L #0x1,D0> {}
<MI 27326 LEA.L 0x295b8,A0> {}
<MI 2732c LEA.L (A0+D0.L),A0> {}
<MI 27330 MOVE.W (A6-0xc),(A0+0x5462)> {}
<MI 27336 ADDQ.L #0x1,D7> {}
<MI 27338 CMPI.L #0x000001ff,D7> {}
<MI 2733e BLE 0x27318> {}
<POP 27340-27342 Naked> Σ0 ↓
<MI 27340 MOVEQ.L #0x00,D6> {}
<POP 27342-27344 Naked> Σ0 ↓ ←0x274e2
<MI 27342 MOVEQ.L #0x00,D5> {}
<POP 27344-27350 Naked> Σ0 ↓ →0x2735e ←0x274da
<POP 27344-27346 StackAdj> Δ-2 {[-2-]}
<Call 0x27346 0x105f8> {[-2-]}
Is_machine_type_one() : Bool
<MI 2734c TST.B (A7)+> Δ+2 {}
<MI 2734e BNE 0x2735e> {}
<POP 27350-2735e Naked> Σ0 ↓ →0x273de
<POP 27350-27352 StackAdj> Δ-2 {[-2-]}
<Call 0x27352 0x10604> {[-2-]}
Is_machine_type_three() : Bool
<MI 27358 TST.B (A7)+> Δ+2 {}
<MI 2735a BEQ 0x273de> {}
<POP 2735e-27360 Naked> Σ0 ↓ ←0x27344
<MI 2735e MOVEQ.L #0x00,D7> {}
<POP 27360-273ae Naked> Σ0 ↓ →0x273d0 ←0x273d0
<Const 0x27360 0xb.2> Δ-2 {[#11]}
<MI 27364 MOVE.L D5,D0> {[#11]}
<MI 27366 ASL.L #0x7,D0> {[#11]}
<POP 0x27368 LimitCheck 0x0 ≤ D6 ≤ 0x7> {[#11]}
<MI 2736e MOVE.L D6,D1> {[#11]}
<MI 27370 ASL.L #0x1,D1> {[#11]}
<MI 27372 LEA.L 0x0,A0> {[#11]}
<MI 27376 LEA.L (A0+D1.L),A0> {[#11]}
<MI 2737a ADDA.L #0x10012,A0> {[#11]}
<MI 27380 CLR.L D1> {[#11]}
<MI 27382 MOVE.W (A0),D1> {[#11]}
<MI 27384 ADD.L D1,D0> {[#11]}
<MI 27386 ADD.L D7,D0> {[#11]}
<POP 0x27388 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[#11]}
<MI 27392 MOVE.W D0,-(A7)> Δ-2 {[#11]|[2, 'D0']}
<Const 0x27394 0x1.4> Δ-4 {[#11]|[2, 'D0']|[##1]}
<MI 27398 LEA.L (A6-0xc),A0> {[#11]|[2, 'D0']|[##1]}
<MI 2739c MOVE.L A0,-(A7)> Δ-4 {[#11]|[2, 'D0']|[##1]|[4, 'A0']}
<Pointer.fp 0x2739e <LVAR -0x006 @ 1(r)>> Δ-4 {[#11]|[2, 'D0']|[##1]|[4, 'A0']|[@@-6]}
<Call 0x273a0 0x1036c> {[#11]|[2, 'D0']|[##1]|[4, 'A0']|[@@-6]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 273a6-273aa StackAdj> Δ+16 {}
<MI 273aa TST.B (A6-0x6)> {}
<MI 273ac BNE 0x273d0> {}
<POP 273ae-273d0 Naked> Σ0 ↓
<Blob 0x273ae [56] @> Δ-56 {[«56""»]}
<POP 273ba-273bc StackAdj> Δ-4 {[«56""»]|[-4-]}
<Lit 0x273bc 56> {[«56""»]|[$$Can't initialize directory due to disk errors, aborting!]}
<Call 0x273c8 0x224cc> {[«56""»]|[$$Can't initialize directory due to disk errors, aborting!]}
<POP 273cc-273d0 StackAdj> Δ+60 {}
<POP 273d0-273da Naked> Σ0 ↓ →0x27360 ←0x27360
<MI 273d0 ADDQ.L #0x1,D7> {}
<MI 273d2 CMPI.L #0x0000007f,D7> {}
<MI 273d8 BLE 0x27360> {}
<POP 273da-273de Naked> Σ0 →0x274da
<MI 273da BRA 0x274da> {}
<POP 273de-273ec Naked> Σ0 ↓ →0x2746c ←0x27350
<POP 273de-273e0 StackAdj> Δ-2 {[-2-]}
<Call 0x273e0 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 273e6 TST.B (A7)+> Δ+2 {}
<MI 273e8 BEQ 0x2746c> {}
<POP 273ec-273ee Naked> Σ0 ↓
<MI 273ec MOVEQ.L #0x00,D7> {}
<POP 273ee-2743e Naked> Σ0 ↓ →0x27460 ←0x27460
<Const 0x273ee 0x3.2> Δ-2 {[#3]}
<MI 273f2 MOVE.L D5,D0> {[#3]}
<MI 273f4 ASL.L #0x7,D0> {[#3]}
<POP 0x273f6 LimitCheck 0x0 ≤ D6 ≤ 0x7> {[#3]}
<MI 273fc MOVE.L D6,D1> {[#3]}
<MI 273fe ASL.L #0x1,D1> {[#3]}
<MI 27400 LEA.L 0x0,A0> {[#3]}
<MI 27404 LEA.L (A0+D1.L),A0> {[#3]}
<MI 27408 ADDA.L #0x10012,A0> {[#3]}
<MI 2740e CLR.L D1> {[#3]}
<MI 27410 MOVE.W (A0),D1> {[#3]}
<MI 27412 ADD.L D1,D0> {[#3]}
<MI 27414 ADD.L D7,D0> {[#3]}
<POP 0x27416 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[#3]}
<MI 27420 MOVE.W D0,-(A7)> Δ-2 {[#3]|[2, 'D0']}
<Const 0x27422 0x1.4> Δ-4 {[#3]|[2, 'D0']|[##1]}
<MI 27426 LEA.L 0x2ea1a,A0> {[#3]|[2, 'D0']|[##1]}
<MI 2742c MOVE.L A0,-(A7)> Δ-4 {[#3]|[2, 'D0']|[##1]|[4, 'A0']}
<Pointer.fp 0x2742e <LVAR -0x006 @ 1(r)>> Δ-4 {[#3]|[2, 'D0']|[##1]|[4, 'A0']|[@@-6]}
<Call 0x27430 0x1036c> {[#3]|[2, 'D0']|[##1]|[4, 'A0']|[@@-6]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 27436-2743a StackAdj> Δ+16 {}
<MI 2743a TST.B (A6-0x6)> {}
<MI 2743c BNE 0x27460> {}
<POP 2743e-27460 Naked> Σ0 ↓
<Blob 0x2743e [56] @> Δ-56 {[«56""»]}
<POP 2744a-2744c StackAdj> Δ-4 {[«56""»]|[-4-]}
<Lit 0x2744c 56> {[«56""»]|[$$Can't initialize directory due to disk errors, aborting!]}
<Call 0x27458 0x224cc> {[«56""»]|[$$Can't initialize directory due to disk errors, aborting!]}
<POP 2745c-27460 StackAdj> Δ+60 {}
<POP 27460-2746a Naked> Σ0 ↓ →0x273ee ←0x273ee
<MI 27460 ADDQ.L #0x1,D7> {}
<MI 27462 CMPI.L #0x0000007f,D7> {}
<MI 27468 BLE 0x273ee> {}
<POP 2746a-2746c Naked> Σ0 →0x274da
<MI 2746a BRA 0x274da> {}
<POP 2746c-274b8 Naked> Σ0 ↓ →0x274da ←0x273de
<Const 0x2746c 0xb.2> Δ-2 {[#11]}
<MI 27470 MOVE.L D5,D0> {[#11]}
<MI 27472 ASL.L #0x7,D0> {[#11]}
<POP 0x27474 LimitCheck 0x0 ≤ D6 ≤ 0x7> {[#11]}
<MI 2747a MOVE.L D6,D1> {[#11]}
<MI 2747c ASL.L #0x1,D1> {[#11]}
<MI 2747e LEA.L 0x0,A0> {[#11]}
<MI 27482 LEA.L (A0+D1.L),A0> {[#11]}
<MI 27486 ADDA.L #0x10012,A0> {[#11]}
<MI 2748c CLR.L D1> {[#11]}
<MI 2748e MOVE.W (A0),D1> {[#11]}
<MI 27490 ADD.L D1,D0> {[#11]}
<POP 0x27492 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[#11]}
<MI 2749c MOVE.W D0,-(A7)> Δ-2 {[#11]|[2, 'D0']}
<Const 0x2749e 0x80.4> Δ-4 {[#11]|[2, 'D0']|[##128]}
<MI 274a2 LEA.L (A6-0xc),A0> {[#11]|[2, 'D0']|[##128]}
<MI 274a6 MOVE.L A0,-(A7)> Δ-4 {[#11]|[2, 'D0']|[##128]|[4, 'A0']}
<Pointer.fp 0x274a8 <LVAR -0x006 @ 1(r)>> Δ-4 {[#11]|[2, 'D0']|[##128]|[4, 'A0']|[@@-6]}
<Call 0x274aa 0x1036c> {[#11]|[2, 'D0']|[##128]|[4, 'A0']|[@@-6]}
RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B)
<POP 274b0-274b4 StackAdj> Δ+16 {}
<MI 274b4 TST.B (A6-0x6)> {}
<MI 274b6 BNE 0x274da> {}
<POP 274b8-274da Naked> Σ0 ↓
<Blob 0x274b8 [56] @> Δ-56 {[«56""»]}
<POP 274c4-274c6 StackAdj> Δ-4 {[«56""»]|[-4-]}
<Lit 0x274c6 56> {[«56""»]|[$$Can't initialize directory due to disk errors, aborting!]}
<Call 0x274d2 0x224cc> {[«56""»]|[$$Can't initialize directory due to disk errors, aborting!]}
<POP 274d6-274da StackAdj> Δ+60 {}
<POP 274da-274e2 Naked> Σ0 ↓ →0x27344 ←0x273da ←0x2746a ←0x2746c
<MI 274da ADDQ.L #0x1,D5> {}
<MI 274dc CMP.L #0x01,D5> {}
<MI 274de BLE 0x27344> {}
<POP 274e2-274ea Naked> Σ0 ↓ →0x27342
<MI 274e2 ADDQ.L #0x1,D6> {}
<MI 274e4 CMP.L #0x07,D6> {}
<MI 274e6 BLE 0x27342> {}
<POP 274ea-274f0 Naked> Σ0 ↓
<Call 0x274ea 0x10390> {}
WriteFreeList(void)
<POP 274f0-274f8 Epilogue> Σ0
@ 274f8
<LVAR -0x400 @>
<LVAR -0x402 @ 1(rw)>
<LVAR -0x40c @ 1(r)>
<LVAR -0x410 @ 4(r)>
<LVAR -0x414 @ 4(rw)>
<POP 274f8-27798 Body>
<POP 274f8-2750e Prologue> Σ0 ↓
<POP 2750e-27520 RegCacheLoad> Σ0 ↓
<POP 27520-27558 Naked> Σ0 ↓
<Blob 0x27520 [26] @> Δ-26 {[«26""»]}
<POP 2752c-2752e StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x2752e 26> {[«26""»]|[$$Creating predefined files.]}
<Call 0x27540 0x103e0> {[«26""»]|[$$Creating predefined files.]}
WriteConsoleStringCrLf(str : String)
<POP 27546-2754a StackAdj> Δ+30 {}
<MI 2754a MOVE.L #0x01,0x20020> {}
<MI 27550 MOVE.L #0x01,0x10026> {}
<MI 27556 MOVEQ.L #0x01,D6> {}
<POP 27558-275d0 Naked> Σ0 ↓ →0x275d4 ←0x27752
<MI 27558 MOVE.L D6,D0> {}
<MI 2755a SUBQ.L #0x1,D0> {}
<POP 0x2755c LimitCheck 0x0 ≤ D0 ≤ 0xa> {}
<MI 27562 MOVE.L D0,D4> {}
<MI 27564 MOVEQ.L #0x1c,D3> {}
<Call 0x27566 0x1028c> {}
?muls_d3_d4
<MI 2756c LEA.L 0x22398,A0> {}
<Blob 0x2756e [20] (A0+D4.L)> Δ-20 {[«20»]}
<POP 2757e-27580 StackAdj> Δ-4 {[«20»]|[-4-]}
<Lit 0x27580> {[«20»]|[$$…]}
<Pointer.sp 0x27580 4> Δ-4
<Const 0x27584 0x1.2> Δ-2
<Const 0x27586 0x14.2> Δ-2
<Call 0x27588 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2758e-27590 StackAdj> Δ+8
<MI 27590 MOVE.L (A7)+,(A6-0x414)> Δ+4 {[«20»]}
<POP 27594-27598 StackAdj> Δ+12 {[-8-]}
<MI 27598 MOVE.L (A6-0x414),(A7)> {[-4-]|[4, '(A6-0x414)']}
<Call 0x2759c 0x102cc> {[-4-]|[4, '(A6-0x414)']}
StringDup(a : String) : String
<POP 275a2-275a4 StackAdj> Δ+4 {[-4-]}
<Call 0x275a4 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<MI 275aa MOVE.L (A6-0x414),(A7)> {[4, '(A6-0x414)']}
<Const 0x275ae 0x2.2> Δ-2 {[4, '(A6-0x414)']|[#2]}
<Const 0x275b2 0x1.2> Δ-2 {[4, '(A6-0x414)']|[#2]|[#1]}
<MI 275b4 LEA.L 0x22398,A0> {[4, '(A6-0x414)']|[#2]|[#1]}
<MI 275b6 CLR.L D0> {[4, '(A6-0x414)']|[#2]|[#1]}
<MI 275b8 MOVE.W (A0+D4.L+#0x1a),D0> {[4, '(A6-0x414)']|[#2]|[#1]}
<MI 275bc NEG.L D0> {[4, '(A6-0x414)']|[#2]|[#1]}
<MI 275be MOVE.L D0,-(A7)> Δ-4 {[4, '(A6-0x414)']|[#2]|[#1]|[4, 'D0']}
<Pointer.fp 0x275c0 <LVAR -0x402 @ 1(rw)>> Δ-4 {[4, '(A6-0x414)']|[#2]|[#1]|[4, 'D0']|[@@-1026]}
<Pointer.fp 0x275c2 <LVAR -0x410 @ 4(r)>> Δ-4 {[4, '(A6-0x414)']|[#2]|[#1]|[4, 'D0']|[@@-1026]|[@@-1040]}
<Call 0x275c4 0x10380> {[4, '(A6-0x414)']|[#2]|[#1]|[4, 'D0']|[@@-1026]|[@@-1040]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 275ca-275cc StackAdj> Δ+20 {}
<MI 275cc TST.B (A6-0x402)> {}
<MI 275ce BEQ 0x275d4> {}
<POP 275d0-275d4 Naked> Σ0 →0x27722
<MI 275d0 BRA 0x27722> {}
<POP 275d4-275f6 Naked> Σ0 ↓ →0x275fa ←0x27558
<MI 275d4 MOVEA.L (A6-0x410),A0> {}
<MI 275d6 MOVE.L D6,D0> {}
<MI 275d8 SUBQ.L #0x1,D0> {}
<POP 0x275da LimitCheck 0x0 ≤ D0 ≤ 0xa> {}
<MI 275e0 MOVE.L D0,D4> {}
<MI 275e2 MOVEQ.L #0x1c,D3> {}
<Call 0x275e4 0x1028c> {}
?muls_d3_d4
<MI 275ea LEA.L 0x22398,A1> {}
<MI 275ec MOVE.W (A1+D4.L+#0x18),D0> {}
<MI 275f0 CMPI.W #0x0062,D0> {}
<MI 275f4 BNE 0x275fa> {}
<POP 275f6-275fa Naked> Σ0 ↓
<MI 275f6 CLR.W (A0+0x24)> {}
<POP 275fa-27644 Naked> Σ0 ↓ →0x276ae ←0x275d4
<MI 275fa OR.B #0x01,(A0+0x3f)> {}
<MI 275fe LEA.L 0x22398,A1> {}
<MI 27600 MOVE.B (A1+D4.L+#0x16),D0> {}
<MI 27604 ANDI.B #0xfb,(A0+0x3f)> {}
<MI 2760a LSL.B #0x2,D0> {}
<MI 2760c OR.B D0,(A0+0x3f)> {}
<MI 27610 LEA.L 0x22398,A1> {}
<MI 27612 MOVE.B (A1+D4.L+#0x15),D0> {}
<MI 27616 ANDI.B #0xfd,(A0+0x3f)> {}
<MI 2761c LSL.B #0x1,D0> {}
<MI 2761e OR.B D0,(A0+0x3f)> {}
<MI 27622 MOVEA.L (A6-0x410),A0> {}
<MI 27624 MOVE.B #0x01,(A0+0x4c)> {}
<MI 27628 MOVE.L D6,D0> {}
<MI 2762a SUBQ.L #0x1,D0> {}
<POP 0x2762c LimitCheck 0x0 ≤ D0 ≤ 0xa> {}
<MI 27632 MOVE.L D0,D4> {}
<MI 27634 MOVEQ.L #0x1c,D3> {}
<Call 0x27636 0x1028c> {}
?muls_d3_d4
<MI 2763c LEA.L 0x22398,A0> {}
<MI 2763e TST.B (A0+D4.L+#0x14)> {}
<MI 27642 BEQ 0x276ae> {}
<POP 27644-27678 Naked> Σ0 ↓ →0x276ae
<Const 0x27644 0x1.2> Δ-2 {[#1]}
<MI 27646 LEA.L 0x22398,A0> {[#1]}
<MI 27648 CLR.L D0> {[#1]}
<MI 2764a MOVE.W (A0+D4.L+#0x18),D0> {[#1]}
<MI 2764e ASL.L #0x5,D0> {[#1]}
<MI 27650 ADDQ.L #0x1,D0> {[#1]}
<POP 0x27652 LimitCheck 0x0 ≤ D0 ≤ 0x1ff> {[#1]}
<MI 2765c MOVE.W D0,-(A7)> Δ-2 {[#1]|[2, 'D0']}
<MI 2765e MOVE.L (A6-0x410),-(A7)> Δ-4 {[#1]|[2, 'D0']|[4, '(A6-0x410)']}
<Const 0x27660 0x20.2> Δ-2 {[#1]|[2, 'D0']|[4, '(A6-0x410)']|[#32]}
<Pointer.fp 0x27664 <LVAR -0x40c @ 1(r)>> Δ-4 {[#1]|[2, 'D0']|[4, '(A6-0x410)']|[#32]|[@@-1036]}
<Call 0x27668 0x10374> {[#1]|[2, 'D0']|[4, '(A6-0x410)']|[#32]|[@@-1036]}
WriteWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B)
<POP 2766e-27672 StackAdj> Δ+14 {}
<MI 27672 TST.B (A6-0x40c)> {}
<MI 27676 BNE 0x276ae> {}
<POP 27678-276ae Naked> Σ0 →0x27722
<Blob 0x27678 [54] @> Δ-54 {[«54""»]}
<POP 2768a-2768c StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x2768c 53> {[«54""»]|[$$Can't update boot label due to disk errors, aborting!]}
<Call 0x2769e 0x103e0> {[«54""»]|[$$Can't update boot label due to disk errors, aborting!]}
WriteConsoleStringCrLf(str : String)
<POP 276a4-276a8 StackAdj> Δ+58 {}
<MI 276a8 MOVE.B #0x0c,(A6-0x402)> {}
<MI 276ac BRA 0x27722> {}
<POP 276ae-276ce Naked> Σ0 ↓ →0x2770c ←0x275fa ←0x27644
<MI 276ae MOVE.L D6,D0> {}
<MI 276b0 SUBQ.L #0x1,D0> {}
<POP 0x276b2 LimitCheck 0x0 ≤ D0 ≤ 0xa> {}
<MI 276b8 MOVE.L D0,D4> {}
<MI 276ba MOVEQ.L #0x1c,D3> {}
<Call 0x276bc 0x1028c> {}
?muls_d3_d4
<MI 276c2 LEA.L 0x22398,A0> {}
<MI 276c4 MOVE.W (A0+D4.L+#0x18),D0> {}
<MI 276c8 CMPI.W #0x0063,D0> {}
<MI 276cc BNE 0x2770c> {}
<POP 276ce-276d0 Naked> Σ0 ↓
<MI 276ce MOVEQ.L #0x00,D7> {}
<POP 276d0-276f0 Naked> Σ0 ↓ →0x276d0 ←0x276d0
<POP 0x276d0 LimitCheck 0x0 ≤ D7 ≤ 0x1ff> {}
<MI 276da MOVE.L D7,D0> {}
<MI 276dc ASL.L #0x1,D0> {}
<MI 276de LEA.L (A6-0x414),A0> {}
<MI 276e2 CLR.W (A0+D0.L+#0x14)> {}
<MI 276e6 ADDQ.L #0x1,D7> {}
<MI 276e8 CMPI.L #0x000001ff,D7> {}
<MI 276ee BLE 0x276d0> {}
<POP 276f0-2770c Naked> Σ0 ↓
<MI 276f0 MOVE.L (A6-0x410),-(A7)> Δ-4 {[4, '(A6-0x410)']}
<MI 276f2 CLR.W -(A7)> Δ-2 {[4, '(A6-0x410)']|[#0]}
<MI 276f4 CLR.W -(A7)> Δ-2 {[4, '(A6-0x410)']|[#0]|[#0]}
<Const 0x276f6 0x200.2> Δ-2 {[4, '(A6-0x410)']|[#0]|[#0]|[#512]}
<Const 0x276fa 0x1.2> Δ-2 {[4, '(A6-0x410)']|[#0]|[#0]|[#512]|[#1]}
<MI 276fc LEA.L (A6-0x400),A0> {[4, '(A6-0x410)']|[#0]|[#0]|[#512]|[#1]}
<MI 27700 MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0x410)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']}
<Pointer.fp 0x27702 <LVAR -0x402 @ 1(rw)>> Δ-4 {[4, '(A6-0x410)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1026]}
<Call 0x27704 0x10388> {[4, '(A6-0x410)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1026]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 2770a-2770c StackAdj> Δ+20 {}
<POP 2770c-27722 Naked> Σ0 ↓ ←0x276ae
<MI 2770c CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2770e 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x27710 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x27714 <LVAR -0x402 @ 1(rw)>> Δ-4 {[#0]|[#1]|[##1]|[@@-1026]}
<Pointer.fp 0x27716 <LVAR -0x410 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-1026]|[@@-1040]}
<Call 0x27718 0x1038c> {[#0]|[#1]|[##1]|[@@-1026]|[@@-1040]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 2771e-27722 StackAdj> Δ+16 {}
<POP 27722-27752 Naked> Σ0 ↓ →0x27758 ←0x275d0 ←0x27678
<Pointer.fp 0x27722 <LVAR -0x414 @ 4(rw)>> Δ-4 {[@@-1044]}
<Call 0x27726 0x102bc> {[@@-1044]}
FreeString(VAR a : String)
<POP 2772c-2772e StackAdj> Δ+4 {}
<MI 2772e ADDQ.L #0x1,D6> {}
<MI 27730 MOVE.L D6,D0> {}
<MI 27732 SUBQ.L #0x1,D0> {}
<MI 27734 SUBQ.L #0x1,D0> {}
<POP 0x27736 LimitCheck 0x0 ≤ D0 ≤ 0xa> {}
<MI 2773c MOVE.L D0,D4> {}
<MI 2773e MOVEQ.L #0x1c,D3> {}
<Call 0x27740 0x1028c> {}
?muls_d3_d4
<MI 27746 LEA.L 0x22398,A0> {}
<MI 27748 MOVE.W (A0+D4.L+#0x18),D0> {}
<MI 2774c CMPI.W #0x0063,D0> {}
<MI 27750 BEQ 0x27758> {}
<POP 27752-27758 Naked> Σ0 ↓ →0x27558
<MI 27752 TST.B (A6-0x402)> {}
<MI 27754 BEQ 0x27558> {}
<POP 27758-2775c Naked> Σ0 ↓ →0x2778a ←0x27722
<MI 27758 TST.B (A6-0x402)> {}
<MI 2775a BEQ 0x2778a> {}
<POP 2775c-2778a Naked> Σ0 ↓
<Blob 0x2775c [26] @> Δ-26 {[«26""»]}
<POP 2776e-27770 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x27770 25> {[«26""»]|[$$the error above was fatal]}
<Call 0x27782 0x224cc> {[«26""»]|[$$the error above was fatal]}
<POP 27786-2778a StackAdj> Δ+30 {}
<POP 2778a-27790 Naked> Σ0 ↓ ←0x27758
<Call 0x2778a 0x10390> {}
WriteFreeList(void)
<POP 27790-27798 Epilogue> Σ0
@ 27798
<LVAR 0x00c 1(rw)>
<LVAR 0x008 @ 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @>
<POP 27798-2780a Body>
<POP 27798-277ae Prologue> Σ0 ↓
<POP 277ae-277b2 RegCacheLoad> Σ0 ↓
<POP 277b2-277d2 Naked> Σ0 ↓ →0x277ea
<MI 277b2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 277b6 CLR.B -(A7)> Δ-2 {[4, '(A6+0x8)']|[#0]}
<MI 277b8 CLR.B -(A7)> Δ-2 {[4, '(A6+0x8)']|[#0]|[#0]}
<Const 0x277ba 0x0.4> Δ-4 {[4, '(A6+0x8)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x277be <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[#0]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x277c0 <LVAR -0x008 @>> Δ-4 {[4, '(A6+0x8)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x277c4 0x10380> {[4, '(A6+0x8)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 277ca-277ce StackAdj> Δ+20 {}
<MI 277ce TST.B (A6-0x4)> {}
<MI 277d0 BNE 0x277ea> {}
<POP 277d2-277ea Naked> Σ0 ↓
<MI 277d2 CLR.B -(A7)> Δ-2 {[#0]}
<MI 277d4 CLR.B -(A7)> Δ-2 {[#0]|[#0]}
<Const 0x277d6 0x1.4> Δ-4 {[#0]|[#0]|[##1]}
<Pointer.fp 0x277da <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#0]|[##1]|[@@-4]}
<Pointer.fp 0x277dc <LVAR -0x008 @>> Δ-4 {[#0]|[#0]|[##1]|[@@-4]|[@@-8]}
<Call 0x277e0 0x1038c> {[#0]|[#0]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 277e6-277ea StackAdj> Δ+16 {}
<POP 277ea-277fe Naked> Σ0 ↓ →0x27802 ←0x277b2
<Pointer.fp 0x277ea <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x277ee 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 277f4-277f6 StackAdj> Δ+4 {}
<MI 277f6 CLR.B (A6+0xc)> {}
<MI 277fa TST.B (A6-0x4)> {}
<MI 277fc BEQ 0x27802> {}
<POP 277fe-27802 Naked> Σ0 ↓
<MI 277fe ADDQ.B #0x1,(A6+0xc)> {}
<POP 27802-2780a Epilogue> Σ0 ←0x277ea
@ 2780a
<POP 2780a-2796a Body> Δ+24
<POP 2780a-27820 Prologue> Σ0 ↓
<POP 27820-27838 RegCacheLoad> Σ0 ↓
<POP 27838-27844 Naked> Σ0 ↓ →0x27852
<POP 27838-2783a StackAdj> Δ-2 {[-2-]}
<Call 0x2783a 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 27840 TST.B (A7)+> Δ+2 {}
<MI 27842 BNE 0x27852> {}
<POP 27844-27852 Naked> Σ0 ↓ →0x278da
<POP 27844-27846 StackAdj> Δ-2 {[-2-]}
<Call 0x27846 0x10604> {[-2-]}
Is_machine_type_three() : Bool
<MI 2784c TST.B (A7)+> Δ+2 {}
<MI 2784e BEQ 0x278da> {}
<POP 27852-27878 Naked> Σ0 Δ-24 ↓ →0x2789a ←0x27838
<Blob 0x27852 [24] @> Δ-24 {[«24""»]}
<POP 27860-27862 StackAdj> Δ-6 {[«24""»]|[-6-]}
<Lit 0x27862 23> {[«24""»]|[-2-]|[$$M400_DFS_BOOTSTRAP.M200]}
<Call 0x2786e 0x27798> {[«24""»]|[-2-]|[$$M400_DFS_BOOTSTRAP.M200]}
<POP 27872-27874 StackAdj> Δ+4 {[«24""»]|[-2-]}
<MI 27874 TST.B (A7)+> Δ+2 {[«24""»]}
<MI 27876 BEQ 0x2789a> {[«24""»]}
<POP 27878-2789a Naked> Σ-24 →0x278d6
<Blob 0x27878 [70] @> Δ-70 {[-24-]|[«70""»]}
<POP 27882-27884 StackAdj> Δ-4 {[-24-]|[«70""»]|[-4-]}
<Lit 0x27884 70> {[-24-]|[«70""»]|[$$Model specific DFS_BOOTSTRAP is missing, the disk may not be bootable.]}
<Call 0x27890 0x103e0> {[-24-]|[«70""»]|[$$Model specific DFS_BOOTSTRAP is missing, the disk may not be bootable.]}
WriteConsoleStringCrLf(str : String)
<POP 27896-27898 StackAdj> Δ+74 {[-24-]}
<MI 27898 BRA 0x278d6> {[-24-]}
<POP 2789a-278d6 Naked> Σ-24 ↓ ←0x27852
<Blob 0x2789a [24] @> Δ-24 {[-24-]|[«24""»]}
<Blob 0x278aa [18] @> Δ-18 {[-24-]|[«24""»]|[«18""»]}
<POP 278b6-278b8 StackAdj> Δ-4 {[-24-]|[«24""»]|[«18""»]|[-4-]}
<Lit 0x278b8 23> {[-24-]|[«24""»]|[«18""»]|[$$M400_DFS_BOOTSTRAP.M200]}
<POP 278c2-278c4 StackAdj> Δ-4 {[-24-]|[«24""»]|[«18""»]|[$$M400_DFS_BOOTSTRAP.M200]|[-4-]}
<Lit 0x278c4 18> {[-24-]|[«24""»]|[«18""»]|[$$M400_DFS_BOOTSTRAP.M200]|[$$DFS_BOOTSTRAP.M200]}
<Call 0x278d0 0x2256c> {[-24-]|[«24""»]|[«18""»]|[$$M400_DFS_BOOTSTRAP.M200]|[$$DFS_BOOTSTRAP.M200]}
<POP 278d4-278d6 StackAdj> Δ+50 {[-24-]}
<POP 278d6-278da Naked> Σ-24 →0x27960 ←0x27878
<MI 278d6 BRA 0x27960> {[-24-]}
<POP 278da-27902 Naked> Σ0 Δ-24 ↓ →0x27924 ←0x27844
<Blob 0x278da [24] @> Δ-24 {[«24""»]}
<POP 278ea-278ec StackAdj> Δ-6 {[«24""»]|[-6-]}
<Lit 0x278ec 23> {[«24""»]|[-2-]|[$$M200_DFS_BOOTSTRAP.M200]}
<Call 0x278f8 0x27798> {[«24""»]|[-2-]|[$$M200_DFS_BOOTSTRAP.M200]}
<POP 278fc-278fe StackAdj> Δ+4 {[«24""»]|[-2-]}
<MI 278fe TST.B (A7)+> Δ+2 {[«24""»]}
<MI 27900 BEQ 0x27924> {[«24""»]}
<POP 27902-27924 Naked> Σ-24 →0x27960
<Blob 0x27902 [70] @> Δ-70 {[-24-]|[«70""»]}
<POP 2790c-2790e StackAdj> Δ-4 {[-24-]|[«70""»]|[-4-]}
<Lit 0x2790e 70> {[-24-]|[«70""»]|[$$Model specific DFS_BOOTSTRAP is missing, the disk may not be bootable.]}
<Call 0x2791a 0x103e0> {[-24-]|[«70""»]|[$$Model specific DFS_BOOTSTRAP is missing, the disk may not be bootable.]}
WriteConsoleStringCrLf(str : String)
<POP 27920-27922 StackAdj> Δ+74 {[-24-]}
<MI 27922 BRA 0x27960> {[-24-]}
<POP 27924-27960 Naked> Σ-24 ↓ ←0x278da
<Blob 0x27924 [24] @> Δ-24 {[-24-]|[«24""»]}
<Blob 0x27934 [18] @> Δ-18 {[-24-]|[«24""»]|[«18""»]}
<POP 27940-27942 StackAdj> Δ-4 {[-24-]|[«24""»]|[«18""»]|[-4-]}
<Lit 0x27942 23> {[-24-]|[«24""»]|[«18""»]|[$$M200_DFS_BOOTSTRAP.M200]}
<POP 2794c-2794e StackAdj> Δ-4 {[-24-]|[«24""»]|[«18""»]|[$$M200_DFS_BOOTSTRAP.M200]|[-4-]}
<Lit 0x2794e 18> {[-24-]|[«24""»]|[«18""»]|[$$M200_DFS_BOOTSTRAP.M200]|[$$DFS_BOOTSTRAP.M200]}
<Call 0x2795a 0x2256c> {[-24-]|[«24""»]|[«18""»]|[$$M200_DFS_BOOTSTRAP.M200]|[$$DFS_BOOTSTRAP.M200]}
<POP 2795e-27960 StackAdj> Δ+50 {[-24-]}
<POP 27960-27962 Naked> Σ-24 Δ+24 ↓ ←0x278d6 ←0x27902
<POP 27960-27962 StackAdj> Δ+24 {}
<POP 27962-2796a Epilogue> Σ0
@ 2796a
<POP 2796a-280a6 Body> Δ+180
<POP 2796a-27980 Prologue> Σ0 ↓
<POP 27980-2799c RegCacheLoad> Σ0 ↓
<POP 2799c-279aa Naked> Σ0 ↓ →0x27b0c
<POP 2799c-2799e StackAdj> Δ-2 {[-2-]}
<Call 0x2799e 0x105f8> {[-2-]}
Is_machine_type_one() : Bool
<MI 279a4 TST.B (A7)+> Δ+2 {}
<MI 279a6 BEQ 0x27b0c> {}
<POP 279aa-279f0 Naked> Σ0 Δ-60 ↓ →0x27a1c
<Blob 0x279aa [20] @> Δ-20 {[«20""»]}
<Blob 0x279ba [20] @> Δ-20 {[«20""»]|[«20""»]}
<Blob 0x279ca [20] @> Δ-20 {[«20""»]|[«20""»]|[«20""»]}
<POP 279da-279dc StackAdj> Δ-6 {[«20""»]|[«20""»]|[«20""»]|[-6-]}
<Lit 0x279dc 19> {[«20""»]|[«20""»]|[«20""»]|[-2-]|[$$M300C_KERNEL_0.M200]}
<Call 0x279e8 0x27798> {[«20""»]|[«20""»]|[«20""»]|[-2-]|[$$M300C_KERNEL_0.M200]}
<POP 279ea-279ec StackAdj> Δ+4 {[«20""»]|[«20""»]|[«20""»]|[-2-]}
<MI 279ec TST.B (A7)+> Δ+2 {[«20""»]|[«20""»]|[«20""»]}
<MI 279ee BNE 0x27a1c> {[«20""»]|[«20""»]|[«20""»]}
<POP 279f0-27a06 Naked> Σ-60 ↓ →0x27a1c
<POP 279f0-279f2 StackAdj> Δ-6 {[-66-]}
<Lit 0x279f2> {[-62-]|[$$…]}
<Pointer.sp 0x279f2 26> Δ-4
<Const 0x279f6 0x1.2> Δ-2
<Const 0x279f8 0x13.2> Δ-2
<Call 0x279fa 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 279fc-279fe StackAdj> Δ+8
<Call 0x279fe 0x27798> {[-62-]|[$$…]}
<POP 27a00-27a02 StackAdj> Δ+4 {[-62-]}
<MI 27a02 TST.B (A7)+> Δ+2 {[-60-]}
<MI 27a04 BNE 0x27a1c> {[-60-]}
<POP 27a06-27a1c Naked> Σ-60 ↓ →0x27a4c
<POP 27a06-27a08 StackAdj> Δ-6 {[-66-]}
<Lit 0x27a08> {[-62-]|[$$…]}
<Pointer.sp 0x27a08 6> Δ-4
<Const 0x27a0c 0x1.2> Δ-2
<Const 0x27a0e 0x13.2> Δ-2
<Call 0x27a10 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 27a12-27a14 StackAdj> Δ+8
<Call 0x27a14 0x27798> {[-62-]|[$$…]}
<POP 27a16-27a18 StackAdj> Δ+4 {[-62-]}
<MI 27a18 TST.B (A7)+> Δ+2 {[-60-]}
<MI 27a1a BEQ 0x27a4c> {[-60-]}
<POP 27a1c-27a4c Naked> Σ-60 →0x27b04 ←0x279aa ←0x279f0
<Blob 0x27a1c [72] @> Δ-72 {[-60-]|[«72""»]}
<POP 27a2e-27a30 StackAdj> Δ-4 {[-60-]|[«72""»]|[-4-]}
<Lit 0x27a30 71> {[-60-]|[«72""»]|[$$Model specific IOP kernel(s) are missing, the disk may not be bootable.]}
<Call 0x27a3e 0x103e0> {[-60-]|[«72""»]|[$$Model specific IOP kernel(s) are missing, the disk may not be bootable.]}
WriteConsoleStringCrLf(str : String)
<POP 27a44-27a48 StackAdj> Δ+76 {[-60-]}
<MI 27a48 BRA 0x27b04> {[-60-]}
<POP 27a4c-27b04 Naked> Σ-60 ↓ ←0x27a06
<Blob 0x27a4c [20] @> Δ-20 {[-60-]|[«20""»]}
<Blob 0x27a5c [14] @> Δ-14 {[-60-]|[«20""»]|[«14""»]}
<POP 27a6c-27a6e StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[-4-]}
<Lit 0x27a6e 19> {[-60-]|[«20""»]|[«14""»]|[$$M300C_KERNEL_0.M200]}
<POP 27a78-27a7a StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[$$M300C_KERNEL_0.M200]|[-4-]}
<Lit 0x27a7a 13> {[-60-]|[«20""»]|[«14""»]|[$$M300C_KERNEL_0.M200]|[$$KERNEL_0.M200]}
<Call 0x27a86 0x2256c> {[-60-]|[«20""»]|[«14""»]|[$$M300C_KERNEL_0.M200]|[$$KERNEL_0.M200]}
<POP 27a88-27a89 StackAdj> Δ+42 ↓ {[-60-]}
<Blob 0x27a89 [20] @> Δ-20 {[-60-]|[«20""»]}
<Blob 0x27a98 [14] @> Δ-14 {[-60-]|[«20""»]|[«14""»]}
<POP 27aa8-27aaa StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[-4-]}
<Lit 0x27aaa 19> {[-60-]|[«20""»]|[«14""»]|[$$M300C_KERNEL_1.M200]}
<POP 27ab4-27ab6 StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[$$M300C_KERNEL_1.M200]|[-4-]}
<Lit 0x27ab6 13> {[-60-]|[«20""»]|[«14""»]|[$$M300C_KERNEL_1.M200]|[$$KERNEL_1.M200]}
<Call 0x27ac2 0x2256c> {[-60-]|[«20""»]|[«14""»]|[$$M300C_KERNEL_1.M200]|[$$KERNEL_1.M200]}
<POP 27ac4-27ac5 StackAdj> Δ+42 ↓ {[-60-]}
<Blob 0x27ac5 [20] @> Δ-20 {[-60-]|[«20""»]}
<Blob 0x27ad4 [14] @> Δ-14 {[-60-]|[«20""»]|[«14""»]}
<POP 27ae4-27ae6 StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[-4-]}
<Lit 0x27ae6 19> {[-60-]|[«20""»]|[«14""»]|[$$M300C_KERNEL_2.M200]}
<POP 27af0-27af2 StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[$$M300C_KERNEL_2.M200]|[-4-]}
<Lit 0x27af2 13> {[-60-]|[«20""»]|[«14""»]|[$$M300C_KERNEL_2.M200]|[$$KERNEL_2.M200]}
<Call 0x27afe 0x2256c> {[-60-]|[«20""»]|[«14""»]|[$$M300C_KERNEL_2.M200]|[$$KERNEL_2.M200]}
<POP 27b00-27b04 StackAdj> Δ+42 {[-60-]}
<POP 27b04-27b0c Naked> Σ-60 Δ+60 →0x2809e ←0x27a1c ←0x27c74 ←0x27de0 ←0x27f4c
<POP 27b04-27b08 StackAdj> Δ+60 {}
<MI 27b08 BRA 0x2809e> {}
<POP 27b0c-27b1a Naked> Σ0 ↓ →0x27c78 ←0x2799c
<POP 27b0c-27b0e StackAdj> Δ-2 {[-2-]}
<Call 0x27b0e 0x105fe> {[-2-]}
Is_machine_type_two() : Bool
<MI 27b14 TST.B (A7)+> Δ+2 {}
<MI 27b16 BEQ 0x27c78> {}
<POP 27b1a-27b60 Naked> Σ0 Δ-60 ↓ →0x27b8c
<Blob 0x27b1a [20] @> Δ-20 {[«20""»]}
<Blob 0x27b2a [20] @> Δ-20 {[«20""»]|[«20""»]}
<Blob 0x27b3a [20] @> Δ-20 {[«20""»]|[«20""»]|[«20""»]}
<POP 27b4a-27b4c StackAdj> Δ-6 {[«20""»]|[«20""»]|[«20""»]|[-6-]}
<Lit 0x27b4c 19> {[«20""»]|[«20""»]|[«20""»]|[-2-]|[$$M300S_KERNEL_0.M200]}
<Call 0x27b58 0x27798> {[«20""»]|[«20""»]|[«20""»]|[-2-]|[$$M300S_KERNEL_0.M200]}
<POP 27b5a-27b5c StackAdj> Δ+4 {[«20""»]|[«20""»]|[«20""»]|[-2-]}
<MI 27b5c TST.B (A7)+> Δ+2 {[«20""»]|[«20""»]|[«20""»]}
<MI 27b5e BNE 0x27b8c> {[«20""»]|[«20""»]|[«20""»]}
<POP 27b60-27b76 Naked> Σ-60 ↓ →0x27b8c
<POP 27b60-27b62 StackAdj> Δ-6 {[-66-]}
<Lit 0x27b62> {[-62-]|[$$…]}
<Pointer.sp 0x27b62 26> Δ-4
<Const 0x27b66 0x1.2> Δ-2
<Const 0x27b68 0x13.2> Δ-2
<Call 0x27b6a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 27b6c-27b6e StackAdj> Δ+8
<Call 0x27b6e 0x27798> {[-62-]|[$$…]}
<POP 27b70-27b72 StackAdj> Δ+4 {[-62-]}
<MI 27b72 TST.B (A7)+> Δ+2 {[-60-]}
<MI 27b74 BNE 0x27b8c> {[-60-]}
<POP 27b76-27b8c Naked> Σ-60 ↓ →0x27bbc
<POP 27b76-27b78 StackAdj> Δ-6 {[-66-]}
<Lit 0x27b78> {[-62-]|[$$…]}
<Pointer.sp 0x27b78 6> Δ-4
<Const 0x27b7c 0x1.2> Δ-2
<Const 0x27b7e 0x13.2> Δ-2
<Call 0x27b80 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 27b82-27b84 StackAdj> Δ+8
<Call 0x27b84 0x27798> {[-62-]|[$$…]}
<POP 27b86-27b88 StackAdj> Δ+4 {[-62-]}
<MI 27b88 TST.B (A7)+> Δ+2 {[-60-]}
<MI 27b8a BEQ 0x27bbc> {[-60-]}
<POP 27b8c-27bbc Naked> Σ-60 →0x27c74 ←0x27b1a ←0x27b60
<Blob 0x27b8c [72] @> Δ-72 {[-60-]|[«72""»]}
<POP 27b9e-27ba0 StackAdj> Δ-4 {[-60-]|[«72""»]|[-4-]}
<Lit 0x27ba0 71> {[-60-]|[«72""»]|[$$Model specific IOP kernel(s) are missing, the disk may not be bootable.]}
<Call 0x27bae 0x103e0> {[-60-]|[«72""»]|[$$Model specific IOP kernel(s) are missing, the disk may not be bootable.]}
WriteConsoleStringCrLf(str : String)
<POP 27bb4-27bb8 StackAdj> Δ+76 {[-60-]}
<MI 27bb8 BRA 0x27c74> {[-60-]}
<POP 27bbc-27c74 Naked> Σ-60 ↓ ←0x27b76
<Blob 0x27bbc [20] @> Δ-20 {[-60-]|[«20""»]}
<Blob 0x27bcc [14] @> Δ-14 {[-60-]|[«20""»]|[«14""»]}
<POP 27bdc-27bde StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[-4-]}
<Lit 0x27bde 19> {[-60-]|[«20""»]|[«14""»]|[$$M300S_KERNEL_0.M200]}
<POP 27be8-27bea StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[$$M300S_KERNEL_0.M200]|[-4-]}
<Lit 0x27bea 13> {[-60-]|[«20""»]|[«14""»]|[$$M300S_KERNEL_0.M200]|[$$KERNEL_0.M200]}
<Call 0x27bf6 0x2256c> {[-60-]|[«20""»]|[«14""»]|[$$M300S_KERNEL_0.M200]|[$$KERNEL_0.M200]}
<POP 27bf8-27bf9 StackAdj> Δ+42 ↓ {[-60-]}
<Blob 0x27bf9 [20] @> Δ-20 {[-60-]|[«20""»]}
<Blob 0x27c08 [14] @> Δ-14 {[-60-]|[«20""»]|[«14""»]}
<POP 27c18-27c1a StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[-4-]}
<Lit 0x27c1a 19> {[-60-]|[«20""»]|[«14""»]|[$$M300S_KERNEL_1.M200]}
<POP 27c24-27c26 StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[$$M300S_KERNEL_1.M200]|[-4-]}
<Lit 0x27c26 13> {[-60-]|[«20""»]|[«14""»]|[$$M300S_KERNEL_1.M200]|[$$KERNEL_1.M200]}
<Call 0x27c32 0x2256c> {[-60-]|[«20""»]|[«14""»]|[$$M300S_KERNEL_1.M200]|[$$KERNEL_1.M200]}
<POP 27c34-27c35 StackAdj> Δ+42 ↓ {[-60-]}
<Blob 0x27c35 [20] @> Δ-20 {[-60-]|[«20""»]}
<Blob 0x27c44 [14] @> Δ-14 {[-60-]|[«20""»]|[«14""»]}
<POP 27c54-27c56 StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[-4-]}
<Lit 0x27c56 19> {[-60-]|[«20""»]|[«14""»]|[$$M300S_KERNEL_2.M200]}
<POP 27c60-27c62 StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[$$M300S_KERNEL_2.M200]|[-4-]}
<Lit 0x27c62 13> {[-60-]|[«20""»]|[«14""»]|[$$M300S_KERNEL_2.M200]|[$$KERNEL_2.M200]}
<Call 0x27c6e 0x2256c> {[-60-]|[«20""»]|[«14""»]|[$$M300S_KERNEL_2.M200]|[$$KERNEL_2.M200]}
<POP 27c70-27c74 StackAdj> Δ+42 {[-60-]}
<POP 27c74-27c78 Naked> Σ-60 →0x27b04 ←0x27b8c
<MI 27c74 BRA 0x27b04> {[-60-]}
<POP 27c78-27c86 Naked> Σ0 ↓ →0x27de4 ←0x27b0c
<POP 27c78-27c7a StackAdj> Δ-2 {[-2-]}
<Call 0x27c7a 0x10604> {[-2-]}
Is_machine_type_three() : Bool
<MI 27c80 TST.B (A7)+> Δ+2 {}
<MI 27c82 BEQ 0x27de4> {}
<POP 27c86-27ccc Naked> Σ0 Δ-60 ↓ →0x27cf8
<Blob 0x27c86 [20] @> Δ-20 {[«20""»]}
<Blob 0x27c96 [20] @> Δ-20 {[«20""»]|[«20""»]}
<Blob 0x27ca6 [20] @> Δ-20 {[«20""»]|[«20""»]|[«20""»]}
<POP 27cb6-27cb8 StackAdj> Δ-6 {[«20""»]|[«20""»]|[«20""»]|[-6-]}
<Lit 0x27cb8 19> {[«20""»]|[«20""»]|[«20""»]|[-2-]|[$$M400C_KERNEL_0.M200]}
<Call 0x27cc4 0x27798> {[«20""»]|[«20""»]|[«20""»]|[-2-]|[$$M400C_KERNEL_0.M200]}
<POP 27cc6-27cc8 StackAdj> Δ+4 {[«20""»]|[«20""»]|[«20""»]|[-2-]}
<MI 27cc8 TST.B (A7)+> Δ+2 {[«20""»]|[«20""»]|[«20""»]}
<MI 27cca BNE 0x27cf8> {[«20""»]|[«20""»]|[«20""»]}
<POP 27ccc-27ce2 Naked> Σ-60 ↓ →0x27cf8
<POP 27ccc-27cce StackAdj> Δ-6 {[-66-]}
<Lit 0x27cce> {[-62-]|[$$…]}
<Pointer.sp 0x27cce 26> Δ-4
<Const 0x27cd2 0x1.2> Δ-2
<Const 0x27cd4 0x13.2> Δ-2
<Call 0x27cd6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 27cd8-27cda StackAdj> Δ+8
<Call 0x27cda 0x27798> {[-62-]|[$$…]}
<POP 27cdc-27cde StackAdj> Δ+4 {[-62-]}
<MI 27cde TST.B (A7)+> Δ+2 {[-60-]}
<MI 27ce0 BNE 0x27cf8> {[-60-]}
<POP 27ce2-27cf8 Naked> Σ-60 ↓ →0x27d28
<POP 27ce2-27ce4 StackAdj> Δ-6 {[-66-]}
<Lit 0x27ce4> {[-62-]|[$$…]}
<Pointer.sp 0x27ce4 6> Δ-4
<Const 0x27ce8 0x1.2> Δ-2
<Const 0x27cea 0x13.2> Δ-2
<Call 0x27cec 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 27cee-27cf0 StackAdj> Δ+8
<Call 0x27cf0 0x27798> {[-62-]|[$$…]}
<POP 27cf2-27cf4 StackAdj> Δ+4 {[-62-]}
<MI 27cf4 TST.B (A7)+> Δ+2 {[-60-]}
<MI 27cf6 BEQ 0x27d28> {[-60-]}
<POP 27cf8-27d28 Naked> Σ-60 →0x27de0 ←0x27c86 ←0x27ccc
<Blob 0x27cf8 [72] @> Δ-72 {[-60-]|[«72""»]}
<POP 27d0a-27d0c StackAdj> Δ-4 {[-60-]|[«72""»]|[-4-]}
<Lit 0x27d0c 71> {[-60-]|[«72""»]|[$$Model specific IOP kernel(s) are missing, the disk may not be bootable.]}
<Call 0x27d1a 0x103e0> {[-60-]|[«72""»]|[$$Model specific IOP kernel(s) are missing, the disk may not be bootable.]}
WriteConsoleStringCrLf(str : String)
<POP 27d20-27d24 StackAdj> Δ+76 {[-60-]}
<MI 27d24 BRA 0x27de0> {[-60-]}
<POP 27d28-27de0 Naked> Σ-60 ↓ ←0x27ce2
<Blob 0x27d28 [20] @> Δ-20 {[-60-]|[«20""»]}
<Blob 0x27d38 [14] @> Δ-14 {[-60-]|[«20""»]|[«14""»]}
<POP 27d48-27d4a StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[-4-]}
<Lit 0x27d4a 19> {[-60-]|[«20""»]|[«14""»]|[$$M400C_KERNEL_0.M200]}
<POP 27d54-27d56 StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[$$M400C_KERNEL_0.M200]|[-4-]}
<Lit 0x27d56 13> {[-60-]|[«20""»]|[«14""»]|[$$M400C_KERNEL_0.M200]|[$$KERNEL_0.M200]}
<Call 0x27d62 0x2256c> {[-60-]|[«20""»]|[«14""»]|[$$M400C_KERNEL_0.M200]|[$$KERNEL_0.M200]}
<POP 27d64-27d65 StackAdj> Δ+42 ↓ {[-60-]}
<Blob 0x27d65 [20] @> Δ-20 {[-60-]|[«20""»]}
<Blob 0x27d74 [14] @> Δ-14 {[-60-]|[«20""»]|[«14""»]}
<POP 27d84-27d86 StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[-4-]}
<Lit 0x27d86 19> {[-60-]|[«20""»]|[«14""»]|[$$M400C_KERNEL_1.M200]}
<POP 27d90-27d92 StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[$$M400C_KERNEL_1.M200]|[-4-]}
<Lit 0x27d92 13> {[-60-]|[«20""»]|[«14""»]|[$$M400C_KERNEL_1.M200]|[$$KERNEL_1.M200]}
<Call 0x27d9e 0x2256c> {[-60-]|[«20""»]|[«14""»]|[$$M400C_KERNEL_1.M200]|[$$KERNEL_1.M200]}
<POP 27da0-27da1 StackAdj> Δ+42 ↓ {[-60-]}
<Blob 0x27da1 [20] @> Δ-20 {[-60-]|[«20""»]}
<Blob 0x27db0 [14] @> Δ-14 {[-60-]|[«20""»]|[«14""»]}
<POP 27dc0-27dc2 StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[-4-]}
<Lit 0x27dc2 19> {[-60-]|[«20""»]|[«14""»]|[$$M400C_KERNEL_2.M200]}
<POP 27dcc-27dce StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[$$M400C_KERNEL_2.M200]|[-4-]}
<Lit 0x27dce 13> {[-60-]|[«20""»]|[«14""»]|[$$M400C_KERNEL_2.M200]|[$$KERNEL_2.M200]}
<Call 0x27dda 0x2256c> {[-60-]|[«20""»]|[«14""»]|[$$M400C_KERNEL_2.M200]|[$$KERNEL_2.M200]}
<POP 27ddc-27de0 StackAdj> Δ+42 {[-60-]}
<POP 27de0-27de4 Naked> Σ-60 →0x27b04 ←0x27cf8
<MI 27de0 BRA 0x27b04> {[-60-]}
<POP 27de4-27df2 Naked> Σ0 ↓ →0x27f50 ←0x27c78
<POP 27de4-27de6 StackAdj> Δ-2 {[-2-]}
<Call 0x27de6 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 27dec TST.B (A7)+> Δ+2 {}
<MI 27dee BEQ 0x27f50> {}
<POP 27df2-27e38 Naked> Σ0 Δ-60 ↓ →0x27e64
<Blob 0x27df2 [20] @> Δ-20 {[«20""»]}
<Blob 0x27e02 [20] @> Δ-20 {[«20""»]|[«20""»]}
<Blob 0x27e12 [20] @> Δ-20 {[«20""»]|[«20""»]|[«20""»]}
<POP 27e22-27e24 StackAdj> Δ-6 {[«20""»]|[«20""»]|[«20""»]|[-6-]}
<Lit 0x27e24 19> {[«20""»]|[«20""»]|[«20""»]|[-2-]|[$$M400S_KERNEL_0.M200]}
<Call 0x27e30 0x27798> {[«20""»]|[«20""»]|[«20""»]|[-2-]|[$$M400S_KERNEL_0.M200]}
<POP 27e32-27e34 StackAdj> Δ+4 {[«20""»]|[«20""»]|[«20""»]|[-2-]}
<MI 27e34 TST.B (A7)+> Δ+2 {[«20""»]|[«20""»]|[«20""»]}
<MI 27e36 BNE 0x27e64> {[«20""»]|[«20""»]|[«20""»]}
<POP 27e38-27e4e Naked> Σ-60 ↓ →0x27e64
<POP 27e38-27e3a StackAdj> Δ-6 {[-66-]}
<Lit 0x27e3a> {[-62-]|[$$…]}
<Pointer.sp 0x27e3a 26> Δ-4
<Const 0x27e3e 0x1.2> Δ-2
<Const 0x27e40 0x13.2> Δ-2
<Call 0x27e42 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 27e44-27e46 StackAdj> Δ+8
<Call 0x27e46 0x27798> {[-62-]|[$$…]}
<POP 27e48-27e4a StackAdj> Δ+4 {[-62-]}
<MI 27e4a TST.B (A7)+> Δ+2 {[-60-]}
<MI 27e4c BNE 0x27e64> {[-60-]}
<POP 27e4e-27e64 Naked> Σ-60 ↓ →0x27e94
<POP 27e4e-27e50 StackAdj> Δ-6 {[-66-]}
<Lit 0x27e50> {[-62-]|[$$…]}
<Pointer.sp 0x27e50 6> Δ-4
<Const 0x27e54 0x1.2> Δ-2
<Const 0x27e56 0x13.2> Δ-2
<Call 0x27e58 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 27e5a-27e5c StackAdj> Δ+8
<Call 0x27e5c 0x27798> {[-62-]|[$$…]}
<POP 27e5e-27e60 StackAdj> Δ+4 {[-62-]}
<MI 27e60 TST.B (A7)+> Δ+2 {[-60-]}
<MI 27e62 BEQ 0x27e94> {[-60-]}
<POP 27e64-27e94 Naked> Σ-60 →0x27f4c ←0x27df2 ←0x27e38
<Blob 0x27e64 [72] @> Δ-72 {[-60-]|[«72""»]}
<POP 27e76-27e78 StackAdj> Δ-4 {[-60-]|[«72""»]|[-4-]}
<Lit 0x27e78 71> {[-60-]|[«72""»]|[$$Model specific IOP kernel(s) are missing, the disk may not be bootable.]}
<Call 0x27e86 0x103e0> {[-60-]|[«72""»]|[$$Model specific IOP kernel(s) are missing, the disk may not be bootable.]}
WriteConsoleStringCrLf(str : String)
<POP 27e8c-27e90 StackAdj> Δ+76 {[-60-]}
<MI 27e90 BRA 0x27f4c> {[-60-]}
<POP 27e94-27f4c Naked> Σ-60 ↓ ←0x27e4e
<Blob 0x27e94 [20] @> Δ-20 {[-60-]|[«20""»]}
<Blob 0x27ea4 [14] @> Δ-14 {[-60-]|[«20""»]|[«14""»]}
<POP 27eb4-27eb6 StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[-4-]}
<Lit 0x27eb6 19> {[-60-]|[«20""»]|[«14""»]|[$$M400S_KERNEL_0.M200]}
<POP 27ec0-27ec2 StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[$$M400S_KERNEL_0.M200]|[-4-]}
<Lit 0x27ec2 13> {[-60-]|[«20""»]|[«14""»]|[$$M400S_KERNEL_0.M200]|[$$KERNEL_0.M200]}
<Call 0x27ece 0x2256c> {[-60-]|[«20""»]|[«14""»]|[$$M400S_KERNEL_0.M200]|[$$KERNEL_0.M200]}
<POP 27ed0-27ed1 StackAdj> Δ+42 ↓ {[-60-]}
<Blob 0x27ed1 [20] @> Δ-20 {[-60-]|[«20""»]}
<Blob 0x27ee0 [14] @> Δ-14 {[-60-]|[«20""»]|[«14""»]}
<POP 27ef0-27ef2 StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[-4-]}
<Lit 0x27ef2 19> {[-60-]|[«20""»]|[«14""»]|[$$M400S_KERNEL_1.M200]}
<POP 27efc-27efe StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[$$M400S_KERNEL_1.M200]|[-4-]}
<Lit 0x27efe 13> {[-60-]|[«20""»]|[«14""»]|[$$M400S_KERNEL_1.M200]|[$$KERNEL_1.M200]}
<Call 0x27f0a 0x2256c> {[-60-]|[«20""»]|[«14""»]|[$$M400S_KERNEL_1.M200]|[$$KERNEL_1.M200]}
<POP 27f0c-27f0d StackAdj> Δ+42 ↓ {[-60-]}
<Blob 0x27f0d [20] @> Δ-20 {[-60-]|[«20""»]}
<Blob 0x27f1c [14] @> Δ-14 {[-60-]|[«20""»]|[«14""»]}
<POP 27f2c-27f2e StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[-4-]}
<Lit 0x27f2e 19> {[-60-]|[«20""»]|[«14""»]|[$$M400S_KERNEL_2.M200]}
<POP 27f38-27f3a StackAdj> Δ-4 {[-60-]|[«20""»]|[«14""»]|[$$M400S_KERNEL_2.M200]|[-4-]}
<Lit 0x27f3a 13> {[-60-]|[«20""»]|[«14""»]|[$$M400S_KERNEL_2.M200]|[$$KERNEL_2.M200]}
<Call 0x27f46 0x2256c> {[-60-]|[«20""»]|[«14""»]|[$$M400S_KERNEL_2.M200]|[$$KERNEL_2.M200]}
<POP 27f48-27f4c StackAdj> Δ+42 {[-60-]}
<POP 27f4c-27f50 Naked> Σ-60 →0x27b04 ←0x27e64
<MI 27f4c BRA 0x27b04> {[-60-]}
<POP 27f50-27f8a Naked> Σ0 Δ-54 ↓ →0x27fb6 ←0x27de4
<Blob 0x27f50 [18] @> Δ-18 {[«18""»]}
<Blob 0x27f5c [18] @> Δ-18 {[«18""»]|[«18""»]}
<Blob 0x27f68 [18] @> Δ-18 {[«18""»]|[«18""»]|[«18""»]}
<POP 27f74-27f76 StackAdj> Δ-6 {[«18""»]|[«18""»]|[«18""»]|[-6-]}
<Lit 0x27f76 18> {[«18""»]|[«18""»]|[«18""»]|[-2-]|[$$M200_KERNEL_0.M200]}
<Call 0x27f82 0x27798> {[«18""»]|[«18""»]|[«18""»]|[-2-]|[$$M200_KERNEL_0.M200]}
<POP 27f84-27f86 StackAdj> Δ+4 {[«18""»]|[«18""»]|[«18""»]|[-2-]}
<MI 27f86 TST.B (A7)+> Δ+2 {[«18""»]|[«18""»]|[«18""»]}
<MI 27f88 BNE 0x27fb6> {[«18""»]|[«18""»]|[«18""»]}
<POP 27f8a-27fa0 Naked> Σ-54 ↓ →0x27fb6
<POP 27f8a-27f8c StackAdj> Δ-6 {[-60-]}
<Lit 0x27f8c> {[-56-]|[$$…]}
<Pointer.sp 0x27f8c 24> Δ-4
<Const 0x27f90 0x1.2> Δ-2
<Const 0x27f92 0x12.2> Δ-2
<Call 0x27f94 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 27f96-27f98 StackAdj> Δ+8
<Call 0x27f98 0x27798> {[-56-]|[$$…]}
<POP 27f9a-27f9c StackAdj> Δ+4 {[-56-]}
<MI 27f9c TST.B (A7)+> Δ+2 {[-54-]}
<MI 27f9e BNE 0x27fb6> {[-54-]}
<POP 27fa0-27fb6 Naked> Σ-54 ↓ →0x27fe6
<POP 27fa0-27fa2 StackAdj> Δ-6 {[-60-]}
<Lit 0x27fa2> {[-56-]|[$$…]}
<Pointer.sp 0x27fa2 6> Δ-4
<Const 0x27fa6 0x1.2> Δ-2
<Const 0x27fa8 0x12.2> Δ-2
<Call 0x27faa 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 27fac-27fae StackAdj> Δ+8
<Call 0x27fae 0x27798> {[-56-]|[$$…]}
<POP 27fb0-27fb2 StackAdj> Δ+4 {[-56-]}
<MI 27fb2 TST.B (A7)+> Δ+2 {[-54-]}
<MI 27fb4 BEQ 0x27fe6> {[-54-]}
<POP 27fb6-27fe6 Naked> Σ-54 →0x2809a ←0x27f50 ←0x27f8a
<Blob 0x27fb6 [72] @> Δ-72 {[-54-]|[«72""»]}
<POP 27fc8-27fca StackAdj> Δ-4 {[-54-]|[«72""»]|[-4-]}
<Lit 0x27fca 71> {[-54-]|[«72""»]|[$$Model specific IOP kernel(s) are missing, the disk may not be bootable.]}
<Call 0x27fd8 0x103e0> {[-54-]|[«72""»]|[$$Model specific IOP kernel(s) are missing, the disk may not be bootable.]}
WriteConsoleStringCrLf(str : String)
<POP 27fde-27fe2 StackAdj> Δ+76 {[-54-]}
<MI 27fe2 BRA 0x2809a> {[-54-]}
<POP 27fe6-2809a Naked> Σ-54 ↓ ←0x27fa0
<Blob 0x27fe6 [18] @> Δ-18 {[-54-]|[«18""»]}
<Blob 0x27ff2 [14] @> Δ-14 {[-54-]|[«18""»]|[«14""»]}
<POP 28002-28004 StackAdj> Δ-4 {[-54-]|[«18""»]|[«14""»]|[-4-]}
<Lit 0x28004 18> {[-54-]|[«18""»]|[«14""»]|[$$M200_KERNEL_0.M200]}
<POP 2800e-28010 StackAdj> Δ-4 {[-54-]|[«18""»]|[«14""»]|[$$M200_KERNEL_0.M200]|[-4-]}
<Lit 0x28010 13> {[-54-]|[«18""»]|[«14""»]|[$$M200_KERNEL_0.M200]|[$$KERNEL_0.M200]}
<Call 0x2801c 0x2256c> {[-54-]|[«18""»]|[«14""»]|[$$M200_KERNEL_0.M200]|[$$KERNEL_0.M200]}
<POP 2801e-28022 StackAdj> Δ+40 {[-54-]}
<Blob 0x28022 [18] @> Δ-18 {[-54-]|[«18""»]}
<Blob 0x2802e [14] @> Δ-14 {[-54-]|[«18""»]|[«14""»]}
<POP 2803e-28040 StackAdj> Δ-4 {[-54-]|[«18""»]|[«14""»]|[-4-]}
<Lit 0x28040 18> {[-54-]|[«18""»]|[«14""»]|[$$M200_KERNEL_1.M200]}
<POP 2804a-2804c StackAdj> Δ-4 {[-54-]|[«18""»]|[«14""»]|[$$M200_KERNEL_1.M200]|[-4-]}
<Lit 0x2804c 13> {[-54-]|[«18""»]|[«14""»]|[$$M200_KERNEL_1.M200]|[$$KERNEL_1.M200]}
<Call 0x28058 0x2256c> {[-54-]|[«18""»]|[«14""»]|[$$M200_KERNEL_1.M200]|[$$KERNEL_1.M200]}
<POP 2805a-2805e StackAdj> Δ+40 {[-54-]}
<Blob 0x2805e [18] @> Δ-18 {[-54-]|[«18""»]}
<Blob 0x2806a [14] @> Δ-14 {[-54-]|[«18""»]|[«14""»]}
<POP 2807a-2807c StackAdj> Δ-4 {[-54-]|[«18""»]|[«14""»]|[-4-]}
<Lit 0x2807c 18> {[-54-]|[«18""»]|[«14""»]|[$$M200_KERNEL_2.M200]}
<POP 28086-28088 StackAdj> Δ-4 {[-54-]|[«18""»]|[«14""»]|[$$M200_KERNEL_2.M200]|[-4-]}
<Lit 0x28088 13> {[-54-]|[«18""»]|[«14""»]|[$$M200_KERNEL_2.M200]|[$$KERNEL_2.M200]}
<Call 0x28094 0x2256c> {[-54-]|[«18""»]|[«14""»]|[$$M200_KERNEL_2.M200]|[$$KERNEL_2.M200]}
<POP 28096-2809a StackAdj> Δ+40 {[-54-]}
<POP 2809a-2809e Naked> Σ-54 Δ+54 ↓ ←0x27fb6
<POP 2809a-2809e StackAdj> Δ+54 {}
<POP 2809e-280a6 Epilogue> Σ0 ←0x27b04
@ 280a6
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00a @ 1(r)>
<LVAR -0x00b 1(rw)>
<LVAR -0x00e @ 1(r)>
<POP 280a6-282a4 Body>
<POP 280a6-280bc Prologue> Σ0 ↓
<POP 280bc-280d4 RegCacheLoad> Σ0 ↓
<POP 280d4-280da Naked> Σ0 ↓ →0x2819a
<MI 280d4 TST.B 0x2ee1a> {}
<MI 280d6 BEQ 0x2819a> {}
<POP 280da-280e8 Naked> Σ0 ↓ →0x2819a
<MI 280da MOVE.B 0x295c0,D0> {}
<MI 280e0 CMPI.B #0x02,D0> {}
<MI 280e4 BEQ 0x2819a> {}
<POP 280e8-28128 Naked> Σ0 ↓
<Blob 0x280e8 [26] @> Δ-26 {[«26""»]}
<POP 280f8-280fa StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x280fa 25> {[«26""»]|[-4-]|[$$Tape drive unit number :_]}
<Const 0x28108 0x0.4> Δ-4 {[«26""»]|[-4-]|[$$Tape drive unit number :_]|[##0]}
<Const 0x2810c 0x3.4> Δ-4 {[«26""»]|[-4-]|[$$Tape drive unit number :_]|[##0]|[##3]}
<Call 0x28110 0x103ec> {[«26""»]|[-4-]|[$$Tape drive unit number :_]|[##0]|[##3]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 28116-28118 StackAdj> Δ+12 {[«26""»]|[-4-]}
<MI 28118 MOVE.L (A7)+,D0> Δ+4 {[«26""»]}
<POP 0x2811a LimitCheck 0x0 ≤ D0 ≤ 0x3> {[«26""»]}
<POP 28120-28122 StackAdj> Δ+26 {}
<MI 28122 MOVE.W D0,D7> {}
<MI 28124 MOVEQ.L #0x01,D6> {}
<MI 28126 MOVEQ.L #0x01,D5> {}
<POP 28128-28146 Naked> Σ0 ↓ →0x2814a ←0x28174
<POP 0x28128 LimitCheck 0x0 ≤ D7 ≤ 0x3> {}
<MI 2812a MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 2812c CLR.B -(A7)> Δ-2 {[2, 'D7']|[#0]}
<MI 2812e MOVE.B D6,D0> {[2, 'D7']|[#0]}
<MI 28130 EXTB.W D0> {[2, 'D7']|[#0]}
<POP 0x28132 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D7']|[#0]}
<MI 28134 MOVE.B D0,-(A7)> Δ-2 {[2, 'D7']|[#0]|[2, 'D0']}
<Pointer.fp 0x28136 <LVAR -0x00e @ 1(r)>> Δ-4 {[2, 'D7']|[#0]|[2, 'D0']|[@@-14]}
<Call 0x28138 0x1040c> {[2, 'D7']|[#0]|[2, 'D0']|[@@-14]}
FSCALL_1040c
<POP 2813e-28142 StackAdj> Δ+10 {}
<MI 28142 TST.B (A6-0xe)> {}
<MI 28144 BNE 0x2814a> {}
<POP 28146-2814a Naked> Σ0 →0x281f2
<MI 28146 BRA 0x281f2> {}
<POP 2814a-2814e Naked> Σ0 ↓ →0x28174 ←0x28128
<MI 2814a CMP.L #0x01,D5> {}
<MI 2814c BNE 0x28174> {}
<POP 2814e-28174 Naked> Σ0 ↓
<Blob 0x2814e [40] @> Δ-40 {[«40""»]}
<POP 2815a-2815c StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x2815c 40> {[«40""»]|[$$waiting for tape to rewind after booting]}
<Call 0x2816a 0x103e0> {[«40""»]|[$$waiting for tape to rewind after booting]}
WriteConsoleStringCrLf(str : String)
<POP 28170-28174 StackAdj> Δ+44 {}
<POP 28174-2818e Naked> Σ0 ↓ →0x28128 ←0x2814a
<MI 28174 MOVEQ.L #0x00,D6> {}
<Const 0x28176 0x9896.4> Δ-4 {[##39062]}
<Call 0x2817c 0x10224> {[##39062]}
KC12_Sleep(dur: Long)
<POP 28182-28184 StackAdj> Δ+4 {}
<MI 28184 ADDQ.L #0x1,D5> {}
<MI 28186 CMPI.L #0x00000028,D5> {}
<MI 2818c BLE 0x28128> {}
<POP 2818e-2819a Naked> Σ0 ↓ ←0x281f0
<Const 0x2818e 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x28190 <LVAR -0x00e @ 1(r)>> Δ-4 {[#1]|[@@-14]}
<Call 0x28192 0x10428> {[#1]|[@@-14]}
FSCALL_10428
<POP 28198-2819a StackAdj> Δ+6 {}
<POP 2819a-281ee Naked> Σ0 ↓ →0x281f0 ←0x280d4 ←0x280da
<Blob 0x2819a [26] @> Δ-26 {[«26""»]}
<POP 281aa-281ac StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x281ac 25> {[«26""»]|[-4-]|[$$Tape drive unit number :_]}
<Const 0x281ba 0x0.4> Δ-4 {[«26""»]|[-4-]|[$$Tape drive unit number :_]|[##0]}
<Const 0x281be 0x3.4> Δ-4 {[«26""»]|[-4-]|[$$Tape drive unit number :_]|[##0]|[##3]}
<Call 0x281c2 0x103ec> {[«26""»]|[-4-]|[$$Tape drive unit number :_]|[##0]|[##3]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 281c8-281ca StackAdj> Δ+12 {[«26""»]|[-4-]}
<MI 281ca MOVE.L (A7)+,D0> Δ+4 {[«26""»]}
<POP 0x281cc LimitCheck 0x0 ≤ D0 ≤ 0x3> {[«26""»]}
<POP 281d2-281d4 StackAdj> Δ+26 {}
<MI 281d4 MOVE.W D0,D7> {}
<POP 0x281d6 LimitCheck 0x0 ≤ D7 ≤ 0x3> {}
<MI 281d8 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 281da CLR.B -(A7)> Δ-2 {[2, 'D7']|[#0]}
<Const 0x281dc 0x1.2> Δ-2 {[2, 'D7']|[#0]|[#1]}
<Pointer.fp 0x281de <LVAR -0x00e @ 1(r)>> Δ-4 {[2, 'D7']|[#0]|[#1]|[@@-14]}
<Call 0x281e0 0x1040c> {[2, 'D7']|[#0]|[#1]|[@@-14]}
FSCALL_1040c
<POP 281e6-281ea StackAdj> Δ+10 {}
<MI 281ea TST.B (A6-0xe)> {}
<MI 281ec BNE 0x281f0> {}
<POP 281ee-281f0 Naked> Σ0 →0x281f2
<MI 281ee BRA 0x281f2> {}
<POP 281f0-281f2 Naked> Σ0 →0x2818e ←0x2819a
<MI 281f0 BRA 0x2818e> {}
<POP 281f2-281f6 Naked> Σ0 ↓ →0x281fc ←0x28146 ←0x281ee
<MI 281f2 TST.B 0x2ee1a> {}
<MI 281f4 BEQ 0x281fc> {}
<POP 281f6-281fc Naked> Σ0 →0x28236
<MI 281f6 MOVE.B #0x01,(A6-0xb)> {}
<MI 281fa BRA 0x28236> {}
<POP 281fc-28236 Naked> Σ0 ↓ ←0x281f2
<Blob 0x281fc [52] @> Δ-52 {[«52""»]}
<POP 2820e-28210 StackAdj> Δ-6 {[«52""»]|[-6-]}
<Lit 0x28210 51> {[«52""»]|[-2-]|[$$Do you want to display filenames as they are loaded]}
<POP 2821c-2821e StackAdj> Δ-2 {[«52""»]|[-2-]|[$$Do you want to display filenames as they are loaded]|[-2-]}
<POP 2821e-2821f StackAdj> Δ+2 {[«52""»]|[-2-]|[$$Do you want to display filenames as they are loaded]}
<Const 0x2821f 0x1.2> Δ-2 {[«52""»]|[-2-]|[$$Do you want to display filenames as they are loaded]|[#1]}
<Call 0x28220 0x103f0> {[«52""»]|[-2-]|[$$Do you want to display filenames as they are loaded]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 28226-28228 StackAdj> Δ+6 {[«52""»]|[-2-]}
<MI 28228 MOVE.B (A7)+,D0> Δ+2 {[«52""»]}
<MI 2822a EXTB.W D0> {[«52""»]}
<POP 0x2822c LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«52""»]}
<POP 2822e-28232 StackAdj> Δ+52 {}
<MI 28232 MOVE.B D0,(A6-0xb)> {}
<POP 28236-28242 Naked> Σ0 ↓ ←0x281f6
<Pointer.fp 0x28236 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x2823a 0x10304> {[@@-8]}
GetRtc() : TimeStamp
<POP 28240-28242 StackAdj> Δ+4 {}
<POP 28242-28264 Naked> Σ0 ↓ →0x28242 ←0x28242
<MI 28242 MOVE.B (A6-0xb),D0> {}
<MI 28246 EXTB.W D0> {}
<POP 0x28248 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 2824a MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Const 0x2824c 0x1.2> Δ-2 {[2, 'D0']|[#1]}
<Const 0x2824e 0x7fff.4> Δ-4 {[2, 'D0']|[#1]|[##32767]}
<Pointer.fp 0x28252 <LVAR -0x00a @ 1(r)>> Δ-4 {[2, 'D0']|[#1]|[##32767]|[@@-10]}
<Call 0x28256 0x10438> {[2, 'D0']|[#1]|[##32767]|[@@-10]}
FSCALL_10438
<POP 2825c-2825e StackAdj> Δ+12 {}
<MI 2825e TST.B (A6-0xa)> {}
<MI 28262 BEQ 0x28242> {}
<POP 28264-2829c Naked> Σ0 ↓
<Pointer.fp 0x28264 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x28268 0x10304> {[@@-4]}
GetRtc() : TimeStamp
<MI 2826e MOVE.L (A6-0x8),(A7)> {[4, '(A6-0x8)']}
<MI 28272 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x28276 0x22af2> {[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<POP 2827a-2827c StackAdj> Δ+6 {[-2-]}
<MI 2827c CLR.B (A7)> {[-2-]}
<Pointer.fp 0x2827e <LVAR -0x00e @ 1(r)>> Δ-4 {[-2-]|[@@-14]}
<Call 0x28280 0x10414> {[-2-]|[@@-14]}
FSCALL_10414
<POP 28286-28288 StackAdj> Δ+6 {}
<Call 0x28288 0x10410> {}
FSCALL_10410
<Call 0x2828e 0x10390> {}
WriteFreeList(void)
<Call 0x28294 0x2796a> {}
<Call 0x28298 0x2780a> {}
<POP 2829c-282a4 Epilogue> Σ0
@ 282a4
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<POP 282a4-28388 Body>
<POP 282a4-282ba Prologue> Σ0 ↓
<POP 282ba-282c2 RegCacheLoad> Σ0 ↓
<POP 282c2-282d4 Naked> Σ0 ↓ →0x28380
<Pointer.fp 0x282c2 <LVAR -0x003 @ 1(r)>> Δ-4 {[@@-3]}
<Call 0x282c6 0x266c6> {[@@-3]}
<POP 282ca-282cc StackAdj> Δ+4 {}
<MI 282cc TST.B (A6-0x3)> {}
<MI 282d0 BEQ 0x28380> {}
<POP 282d4-282f0 Naked> Σ0 ↓ →0x28336
<Call 0x282d4 0x26e82> {}
<Call 0x282d8 0x2722e> {}
<Blob 0x282dc [2] 0x10008> Δ-2 {[«2»]}
<Pointer.fp 0x282e2 <LVAR -0x004 @ 1(r)>> Δ-4 {[«2»]|[@@-4]}
<Call 0x282e4 0x10394> {[«2»]|[@@-4]}
MountDisk(drive : Word ; VAR status : Byte)
<POP 282ea-282ec StackAdj> Δ+6 {}
<MI 282ec TST.B (A6-0x4)> {}
<MI 282ee BEQ 0x28336> {}
<POP 282f0-28336 Naked> Σ0 ↓
<Blob 0x282f0 [4] @> Δ-4 {[«4""»]}
<Blob 0x282f4 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x282f8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x282fc [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 28300-28302 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x28302 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$FS_UINIT error:_]}
<POP 28312-28314 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$FS_UINIT error:_]|[-4-]}
<MI 28314 MOVE.B (A6-0x4),D0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$FS_UINIT error:_]|[-4-]}
<MI 28316 EXTB.W D0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$FS_UINIT error:_]|[-4-]}
<POP 0x28318 LimitCheck 0x0 ≤ D0 ≤ 0xf> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$FS_UINIT error:_]|[-4-]}
<MI 2831c MOVE.B D0,-(A7)> Δ-2 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$FS_UINIT error:_]|[-4-]|[2, 'D0']}
<Call 0x2831e 0x103a0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$FS_UINIT error:_]|[-4-]|[2, 'D0']}
FsErrMsgStr(err: Byte) : String
<POP 28324-28326 StackAdj> Δ+2 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$FS_UINIT error:_]|[-4-]}
<Call 0x28326 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$FS_UINIT error:_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2832c-2832e StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x2832e 0x224cc> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<POP 28332-28336 StackAdj> Δ+20 {}
<POP 28336-28348 Naked> Σ0 ↓ →0x2834e ←0x282d4
<Call 0x28336 0x274f8> {}
<Call 0x2833a 0x103a4> {}
Open_ERROR_LOG(void)
<MI 28340 TST.B 0x2ee1a> {}
<MI 28346 BEQ 0x2834e> {}
<POP 28348-2834e Naked> Σ0 →0x28380
<Call 0x28348 0x280a6> {}
<MI 2834c BRA 0x28380> {}
<POP 2834e-2837a Naked> Σ0 Δ-70 ↓ →0x2837e ←0x28336
<Blob 0x2834e [70] @> Δ-70 {[«70""»]}
<POP 2835a-2835c StackAdj> Δ-6 {[«70""»]|[-6-]}
<Lit 0x2835c 70> {[«70""»]|[-2-]|[$$Do you want to load files into the diagnostic file system on this unit]}
<POP 2836a-2836c StackAdj> Δ-2 {[«70""»]|[-2-]|[$$Do you want to load files into the diagnostic file system on this unit]|[-2-]}
<POP 2836c-2836d StackAdj> Δ+2 {[«70""»]|[-2-]|[$$Do you want to load files into the diagnostic file system on this unit]}
<Const 0x2836d 0x1.2> Δ-2 {[«70""»]|[-2-]|[$$Do you want to load files into the diagnostic file system on this unit]|[#1]}
<Call 0x2836e 0x103f0> {[«70""»]|[-2-]|[$$Do you want to load files into the diagnostic file system on this unit]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 28374-28376 StackAdj> Δ+6 {[«70""»]|[-2-]}
<MI 28376 TST.B (A7)+> Δ+2 {[«70""»]}
<MI 28378 BEQ 0x2837e> {[«70""»]}
<POP 2837a-2837e Naked> Σ-70 ↓
<Call 0x2837a 0x280a6> {[-70-]}
<POP 2837e-28380 Naked> Σ-70 Δ+70 ↓ ←0x2834e
<POP 2837e-28380 StackAdj> Δ+70 {}
<POP 28380-28388 Epilogue> Σ0 ←0x282c2 ←0x28348
@ 28388
<LVAR -0x016 4(rw)>
<LVAR -0x01a 4(rw)>
<LVAR -0x01e 4(rw)>
<LVAR -0x023 1(r)>
<LVAR -0x024 1(r)>
<LVAR -0x026 1(w) 2(w) 4(r)>
<LVAR -0x028 @ 1(r)>
<LVAR -0x030 4(rw)>
<POP 28388-286d2 Body> Δ-4
<POP 28388-2839e Prologue> Σ0 ↓
<POP 2839e-283b2 RegCacheLoad> Σ0 ↓
<POP 283b2-2843a Naked> Σ0 ↓
<Const 0x283b2 0x1.2> Δ-2 {[#1]}
<Call 0x283b4 0x22d1a> {[#1]}
<POP 283b8-283ba StackAdj> Δ+2 {}
<MI 283ba CLR.L (A6-0x30)> {}
<Blob 0x283bc [20] @> Δ-20 {[«20""»]}
<Blob 0x283c8 [24] @> Δ-24 {[«20""»]|[«24""»]}
<POP 283d4-283d6 StackAdj> Δ-8 {[«20""»]|[«24""»]|[-8-]}
<Lit 0x283d6 20> {[«20""»]|[«24""»]|[-4-]|[$$last DFS cylinder =_]}
<POP 283e0-283e2 StackAdj> Δ-4 {[«20""»]|[«24""»]|[-4-]|[$$last DFS cylinder =_]|[-4-]}
<MI 283e2 CLR.L D0> {[«20""»]|[«24""»]|[-4-]|[$$last DFS cylinder =_]|[-4-]}
<MI 283e4 MOVE.W 0x29624,D0> {[«20""»]|[«24""»]|[-4-]|[$$last DFS cylinder =_]|[-4-]}
<MI 283ea MOVE.L D0,-(A7)> Δ-4 {[«20""»]|[«24""»]|[-4-]|[$$last DFS cylinder =_]|[-4-]|[4, 'D0']}
<Call 0x283ec 0x102e4> {[«20""»]|[«24""»]|[-4-]|[$$last DFS cylinder =_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x283ee 24> {[«20""»]|[«24""»]|[-4-]|[$$last DFS cylinder =_]|[-4-]|[$$, first DIAG cylinder =_]}
<POP 283fa-283fc StackAdj> Δ-4 {[«20""»]|[«24""»]|[-4-]|[$$last DFS cylinder =_]|[-4-]|[$$, first DIAG cylinder =_]|[-4-]}
<MI 283fc CLR.L D0> {[«20""»]|[«24""»]|[-4-]|[$$last DFS cylinder =_]|[-4-]|[$$, first DIAG cylinder =_]|[-4-]}
<MI 283fe MOVE.W 0x29630,D0> {[«20""»]|[«24""»]|[-4-]|[$$last DFS cylinder =_]|[-4-]|[$$, first DIAG cylinder =_]|[-4-]}
<MI 28404 MOVE.L D0,-(A7)> Δ-4 {[«20""»]|[«24""»]|[-4-]|[$$last DFS cylinder =_]|[-4-]|[$$, first DIAG cylinder =_]|[-4-]|[4, 'D0']}
<Call 0x28406 0x102e4> {[«20""»]|[«24""»]|[-4-]|[$$last DFS cylinder =_]|[-4-]|[$$, first DIAG cylinder =_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 28408-2840a StackAdj> Δ+4 {[«20""»]|[«24""»]|[-4-]|[$$last DFS cylinder =_]|[-4-]|[$$, first DIAG cylinder =_]|[-4-]}
<Call 0x2840a 0x102d8> {[«20""»]|[«24""»]|[-4-]|[$$last DFS cylinder =_]|[-4-]|[$$, first DIAG cylinder =_]|[-4-]}
StringCat4(a, b, c, d : String) : String
<POP 28410-28414 StackAdj> Δ+16 {[«20""»]|[«24""»]|[-4-]}
<Call 0x28414 0x103e0> {[«20""»]|[«24""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2841a-2841e StackAdj> Δ+48 {}
<MI 2841e ORI.B #0x80,(A6-0x26)> {}
<MI 28424 ANDI.B #0xbf,(A6-0x26)> {}
<MI 2842a ANDI.W #0xc000,(A6-0x26)> {}
<MI 28430 CLR.B (A6-0x24)> {}
<MI 28434 CLR.B (A6-0x23)> {}
<MI 28438 MOVEQ.L #0x00,D0> {}
<POP 2843a-28462 Naked> Σ0 ↓ →0x2843a ←0x2843a
<POP 0x2843a LimitCheck 0x0 ≤ D0 ≤ 0x7ff> {}
<MI 28444 MOVE.L D0,D1> {}
<MI 28446 ASL.L #0x2,D1> {}
<MI 28448 LEA.L 0x295b8,A0> {}
<MI 2844e LEA.L (A0+D1.L),A0> {}
<MI 28452 MOVE.L (A6-0x26),(A0+0x44c)> {}
<MI 28458 ADDQ.L #0x1,D0> {}
<MI 2845a CMPI.L #0x000007ff,D0> {}
<MI 28460 BLE 0x2843a> {}
<POP 28462-28472 Naked> Σ0 ↓ →0x2849a
<Pointer.fp 0x28462 <LVAR -0x028 @ 1(r)>> Δ-4 {[@@-40]}
<Call 0x28466 0x238f0> {[@@-40]}
<POP 2846a-2846c StackAdj> Δ+4 {}
<MI 2846c TST.B (A6-0x28)> {}
<MI 28470 BNE 0x2849a> {}
<POP 28472-2849a Naked> Σ0 ↓
<Blob 0x28472 [20] @> Δ-20 {[«20""»]}
<POP 28482-28484 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x28484 19> {[«20""»]|[$$the error was fatal]}
<Call 0x28492 0x224cc> {[«20""»]|[$$the error was fatal]}
<POP 28496-2849a StackAdj> Δ+24 {}
<POP 2849a-284aa Naked> Σ0 ↓ →0x284d2 ←0x28462
<Pointer.fp 0x2849a <LVAR -0x028 @ 1(r)>> Δ-4 {[@@-40]}
<Call 0x2849e 0x23a4c> {[@@-40]}
<POP 284a2-284a4 StackAdj> Δ+4 {}
<MI 284a4 TST.B (A6-0x28)> {}
<MI 284a8 BNE 0x284d2> {}
<POP 284aa-284d2 Naked> Σ0 ↓
<Blob 0x284aa [20] @> Δ-20 {[«20""»]}
<POP 284ba-284bc StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x284bc 19> {[«20""»]|[$$the error was fatal]}
<Call 0x284ca 0x224cc> {[«20""»]|[$$the error was fatal]}
<POP 284ce-284d2 StackAdj> Δ+24 {}
<POP 284d2-284da Naked> Σ0 ↓ ←0x2849a
<MI 284d2 MOVEQ.L #0x00,D5> {}
<MI 284d4 CLR.L (A6-0x1e)> {}
<MI 284d8 MOVEQ.L #0x00,D0> {}
<POP 284da-28500 Naked> Σ0 Δ-8 ↓ →0x2850e ←0x285f0
<MI 284da MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<POP 0x284dc LimitCheck 0x0 ≤ D0 ≤ 0x7ff> {[4, 'D0']}
<MI 284e6 MOVE.L D0,D1> {[4, 'D0']}
<MI 284e8 ASL.L #0x2,D1> {[4, 'D0']}
<MI 284ea LEA.L 0x295b8,A0> {[4, 'D0']}
<MI 284f0 LEA.L (A0+D1.L),A0> {[4, 'D0']}
<MI 284f4 MOVE.L A0,-(A7)> Δ-4 {[4, 'D0']|[4, 'A0']}
<MI 284f6 MOVE.W (A0+0x44c),D1> {[4, 'D0']|[4, 'A0']}
<MI 284fa LSL.W #0x2,D1> {[4, 'D0']|[4, 'A0']}
<MI 284fc LSR.W #0x2,D1> {[4, 'D0']|[4, 'A0']}
<MI 284fe BNE 0x2850e> {[4, 'D0']|[4, 'A0']}
<POP 28500-28506 Naked> Σ-8 ↓ →0x2850e
<MI 28500 TST.B (A0+0x44e)> {[-8-]}
<MI 28504 BNE 0x2850e> {[-8-]}
<POP 28506-2850e Naked> Σ-8 ↓ →0x285e2
<MI 28506 TST.B (A0+0x44f)> {[-8-]}
<MI 2850a BEQ 0x285e2> {[-8-]}
<POP 2850e-2851c Naked> Σ-8 ↓ →0x28542 ←0x284da ←0x28500
<MI 2850e ADDQ.L #0x1,(A6-0x30)> {[-8-]}
<MI 28510 CLR.L D1> {[-8-]}
<MI 28512 MOVE.B (A0+0x44e),D1> {[-8-]}
<MI 28516 CMPI.W #0x00ff,D1> {[-8-]}
<MI 2851a BNE 0x28542> {[-8-]}
<POP 2851c-28530 Naked> Σ-8 ↓
<MI 2851c CLR.L (A6-0x1a)> {[-8-]}
<MI 28520 CLR.L D1> {[-8-]}
<MI 28522 MOVE.B 0x295fa,D1> {[-8-]}
<MI 28528 SUBQ.W #0x1,D1> {[-8-]}
<MI 2852a EXTW.L D1> {[-8-]}
<MI 2852c MOVE.L D1,(A6-0x16)> {[-8-]}
<POP 28530-28542 Naked> Σ-8 →0x28564 ←0x2855a
<MI 28530 MOVEQ.L #0x00,D7> {[-8-]}
<MI 28532 CLR.L D1> {[-8-]}
<MI 28534 MOVE.B 0x295fb,D1> {[-8-]}
<MI 2853a SUBQ.W #0x1,D1> {[-8-]}
<MI 2853c EXTW.L D1> {[-8-]}
<MI 2853e MOVE.L D1,D6> {[-8-]}
<MI 28540 BRA 0x28564> {[-8-]}
<POP 28542-2855a Naked> Σ-8 ↓ →0x2855c ←0x2850e
<MI 28542 MOVE.W D1,D2> {[-8-]}
<MI 28544 EXTW.L D2> {[-8-]}
<MI 28546 MOVE.L D2,(A6-0x1a)> {[-8-]}
<MI 2854a MOVE.L D2,(A6-0x16)> {[-8-]}
<MI 2854e CLR.L D1> {[-8-]}
<MI 28550 MOVE.B (A0+0x44f),D1> {[-8-]}
<MI 28554 CMPI.W #0x00ff,D1> {[-8-]}
<MI 28558 BNE 0x2855c> {[-8-]}
<POP 2855a-2855c Naked> Σ-8 →0x28530
<MI 2855a BRA 0x28530> {[-8-]}
<POP 2855c-28564 Naked> Σ-8 ↓ ←0x28542
<MI 2855c MOVE.W D1,D2> {[-8-]}
<MI 2855e EXTW.L D2> {[-8-]}
<MI 28560 MOVE.L D2,D7> {[-8-]}
<MI 28562 MOVE.L D2,D6> {[-8-]}
<POP 28564-28570 Naked> Σ-8 Δ-4 ↓ →0x28584 ←0x28530
<MI 28564 MOVE.L (A6-0x16),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x16)']}
<MI 28568 MOVE.L (A6-0x1a),D1> {[-8-]|[4, '(A6-0x16)']}
<MI 2856c CMP.L (A7),D1> {[-8-]|[4, '(A6-0x16)']}
<MI 2856e BGT 0x28584> {[-8-]|[4, '(A6-0x16)']}
<POP 28570-28584 Naked> Σ-12 ↓
<MI 28570 MOVE.L (A7),D2> {[-12-]}
<POP 0x28572 LimitCheck -0x7fffffff ≤ D1> {[-12-]}
<MI 28572 CMPI.L #0x80000001,D1>
<MI 28578 BLT 0x28582>
<POP 0x2857a LimitCheck D2 ≤ 0x7fffffff> {[-12-]}
<MI 2857a CMPI.L #0x7fffffff,D2>
<MI 28580 BLE 0x28584>
<MI 28582 TRAP #15>
<POP 28584-28588 Naked> Σ-12 ↓ →0x2858c ←0x28564 ←0x285dc
<MI 28584 CMP.L (A7),D1> {[-12-]}
<MI 28586 BLE 0x2858c> {[-12-]}
<POP 28588-2858c Naked> Σ-12 Δ-4 →0x285e0
<POP 28588-2858a StackAdj> Δ-4 {[-16-]}
<MI 2858a BRA 0x285e0> {[-16-]}
<POP 2858c-28596 Naked> Σ-12 Δ-8 ↓ →0x285aa ←0x28584
<MI 2858c MOVE.L D1,-(A7)> Δ-4 {[-12-]|[4, 'D1']}
<MI 2858e MOVE.L D6,-(A7)> Δ-4 {[-12-]|[4, 'D1']|[4, 'D6']}
<MI 28590 MOVE.L D7,D0> {[-12-]|[4, 'D1']|[4, 'D6']}
<MI 28592 CMP.L (A7),D0> {[-12-]|[4, 'D1']|[4, 'D6']}
<MI 28594 BGT 0x285aa> {[-12-]|[4, 'D1']|[4, 'D6']}
<POP 28596-285aa Naked> Σ-20 ↓
<MI 28596 MOVE.L (A7),D2> {[-20-]}
<POP 0x28598 LimitCheck -0x7fffffff ≤ D0> {[-20-]}
<MI 28598 CMPI.L #0x80000001,D0>
<MI 2859e BLT 0x285a8>
<POP 0x285a0 LimitCheck D2 ≤ 0x7fffffff> {[-20-]}
<MI 285a0 CMPI.L #0x7fffffff,D2>
<MI 285a6 BLE 0x285aa>
<MI 285a8 TRAP #15>
<POP 285aa-285ae Naked> Σ-20 ↓ →0x285b2 ←0x2858c ←0x285d0
<MI 285aa CMP.L (A7),D0> {[-20-]}
<MI 285ac BLE 0x285b2> {[-20-]}
<POP 285ae-285b2 Naked> Σ-20 Δ-4 →0x285d4
<POP 285ae-285b0 StackAdj> Δ-4 {[-24-]}
<MI 285b0 BRA 0x285d4> {[-24-]}
<POP 285b2-285c2 Naked> Σ-20 Δ-4 ↓ →0x285c8 ←0x285aa
<MI 285b2 MOVE.L D0,-(A7)> Δ-4 {[-20-]|[4, 'D0']}
<MI 285b4 MOVEA.L (A7+0x10),A0> {[-20-]|[4, 'D0']}
<MI 285b8 MOVE.B (A0+0x44c),D1> {[-20-]|[4, 'D0']}
<MI 285bc LSL.B #0x1,D1> {[-20-]|[4, 'D0']}
<MI 285be LSR.B #0x7,D1> {[-20-]|[4, 'D0']}
<MI 285c0 BEQ 0x285c8> {[-20-]|[4, 'D0']}
<POP 285c2-285c8 Naked> Σ-24 →0x285ca
<MI 285c2 ADDQ.L #0x1,(A6-0x1e)> {[-24-]}
<MI 285c6 BRA 0x285ca> {[-24-]}
<POP 285c8-285ca Naked> Σ-24 ↓ ←0x285b2
<MI 285c8 ADDQ.L #0x1,D5> {[-24-]}
<POP 285ca-285d0 Naked> Σ-24 ↓ →0x285d4 ←0x285c2
<MI 285ca MOVE.L (A7),D0> {[-24-]}
<MI 285cc ADDQ.L #0x1,D0> {[-24-]}
<MI 285ce BVS 0x285d4> {[-24-]}
<POP 285d0-285d4 Naked> Σ-24 Δ+4 →0x285aa
<POP 285d0-285d2 StackAdj> Δ+4 {[-20-]}
<MI 285d2 BRA 0x285aa> {[-20-]}
<POP 285d4-285dc Naked> Σ-24 Δ+8 ↓ →0x285e0 ←0x285ae ←0x285ca
<POP 285d4-285d6 StackAdj> Δ+8 {[-16-]}
<MI 285d6 MOVE.L (A7),D1> {[-16-]}
<MI 285d8 ADDQ.L #0x1,D1> {[-16-]}
<MI 285da BVS 0x285e0> {[-16-]}
<POP 285dc-285e0 Naked> Σ-16 Δ+4 →0x28584
<POP 285dc-285de StackAdj> Δ+4 {[-12-]}
<MI 285de BRA 0x28584> {[-12-]}
<POP 285e0-285e2 Naked> Σ-16 Δ+8 ↓ ←0x28588 ←0x285d4
<POP 285e0-285e2 StackAdj> Δ+8 {[-8-]}
<POP 285e2-285f0 Naked> Σ-8 Δ+4 ↓ →0x285f6 ←0x28506
<POP 285e2-285e4 StackAdj> Δ+4 {[-4-]}
<MI 285e4 MOVE.L (A7),D0> {[-4-]}
<MI 285e6 ADDQ.L #0x1,D0> {[-4-]}
<MI 285e8 CMPI.L #0x000007ff,D0> {[-4-]}
<MI 285ee BGT 0x285f6> {[-4-]}
<POP 285f0-285f6 Naked> Σ-4 Δ+4 →0x284da
<POP 285f0-285f2 StackAdj> Δ+4 {}
<MI 285f2 BRA 0x284da> {}
<POP 285f6-286ca Naked> Σ-4 Δ+4 ↓ ←0x285e2
<POP 285f6-285f8 StackAdj> Δ+4 {}
<Blob 0x285f8 [18] @> Δ-18 {[«18""»]}
<Blob 0x28604 [18] @> Δ-18 {[«18""»]|[«18""»]}
<POP 28616-28618 StackAdj> Δ-8 {[«18""»]|[«18""»]|[-8-]}
<MI 28618 MOVE.L D5,-(A7)> Δ-4 {[«18""»]|[«18""»]|[-8-]|[4, 'D5']}
<Call 0x2861a 0x102e4> {[«18""»]|[«18""»]|[-8-]|[4, 'D5']}
Long2String(a : Long) : String
<Lit 0x2861c 18> {[«18""»]|[«18""»]|[-8-]|[$$ Manufacturer and_]}
<MI 28628 MOVE.L (A6-0x1e),(A7)> {[«18""»]|[«18""»]|[-8-]|[4, '(A6-0x1e)']}
<POP 28626-28628 StackAdj> Δ-8 {[«18""»]|[«18""»]|[-8-]|[4, '(A6-0x1e)']|[-8-]}
<Call 0x2862c 0x102e4> {[«18""»]|[«18""»]|[-8-]|[4, '(A6-0x1e)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x2862e 17> {[«18""»]|[«18""»]|[-8-]|[4, '(A6-0x1e)']|[-4-]|[$$ User bad blocks.]}
<Call 0x2863c 0x102d8> {[«18""»]|[«18""»]|[-8-]|[4, '(A6-0x1e)']|[-4-]|[$$ User bad blocks.]}
StringCat4(a, b, c, d : String) : String
<POP 28642-28646 StackAdj> Δ+16 {[«18""»]|[«18""»]|[-4-]}
<Call 0x28646 0x103e0> {[«18""»]|[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2864c-28650 StackAdj> Δ+40 {}
<Call 0x28650 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x28656 [28] @> Δ-28 {[«28""»]}
<Blob 0x28662 [34] @> Δ-34 {[«28""»]|[«34""»]}
<POP 28674-28676 StackAdj> Δ-8 {[«28""»]|[«34""»]|[-8-]}
<MI 28676 MOVE.L (A6-0x30),-(A7)> Δ-4 {[«28""»]|[«34""»]|[-8-]|[4, '(A6-0x30)']}
<Call 0x28678 0x102e4> {[«28""»]|[«34""»]|[-8-]|[4, '(A6-0x30)']}
Long2String(a : Long) : String
<Lit 0x2867a 28> {[«28""»]|[«34""»]|[-8-]|[$$ defect table entries used,_]}
<POP 28686-28688 StackAdj> Δ-4 {[«28""»]|[«34""»]|[-8-]|[$$ defect table entries used,_]|[-4-]}
<MI 28688 MOVE.L #0x800,D0> {[«28""»]|[«34""»]|[-8-]|[$$ defect table entries used,_]|[-4-]}
<MI 2868e SUB.L (A6-0x30),D0> {[«28""»]|[«34""»]|[-8-]|[$$ defect table entries used,_]|[-4-]}
<MI 28690 MOVE.L D0,-(A7)> Δ-4 {[«28""»]|[«34""»]|[-8-]|[$$ defect table entries used,_]|[-4-]|[4, 'D0']}
<Call 0x28692 0x102e4> {[«28""»]|[«34""»]|[-8-]|[$$ defect table entries used,_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x28694 33> {[«28""»]|[«34""»]|[-8-]|[$$ defect table entries used,_]|[-4-]|[$$ available defect entries remain.]}
<Call 0x286a2 0x102d8> {[«28""»]|[«34""»]|[-8-]|[$$ defect table entries used,_]|[-4-]|[$$ available defect entries remain.]}
StringCat4(a, b, c, d : String) : String
<POP 286a8-286ac StackAdj> Δ+16 {[«28""»]|[«34""»]|[-4-]}
<Call 0x286ac 0x103e0> {[«28""»]|[«34""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 286b2-286b6 StackAdj> Δ+66 {}
<Call 0x286b6 0x103dc> {}
WriteConsoleCrLf(void)
<Const 0x286bc 0x295ea.4> Δ-4 {[##169450]}
<Call 0x286c2 0x102bc> {[##169450]}
FreeString(VAR a : String)
<POP 286c8-286ca StackAdj> Δ+4 {}
<POP 286ca-286d2 Epilogue> Σ0
@ 286d2
<LVAR 0x008 4(r)>
<POP 286d2-286fe Body>
<POP 286d2-286e4 Prologue> Σ0 ↓
<POP 286e4-286fa Naked> Σ0 ↓
<POP 286e4-286e6 StackAdj> Δ-4 {[-4-]}
<MI 286e6 MOVE.L (A4+0x4),-(A7)> Δ-4 {[-4-]|[4, '(A4+0x4)']}
<MI 286ea MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A4+0x4)']|[4, '(A6+0x8)']}
<Call 0x286ee 0x102d0> {[-4-]|[4, '(A4+0x4)']|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 286f4-286f6 StackAdj> Δ+8 {[-4-]}
<MI 286f6 MOVE.L (A7)+,(A4+0x4)> Δ+4 {}
<POP 286fa-286fe Epilogue> Σ0
@ 286fe
<LVAR 0x008 1(r)>
<LVAR -0x00a 4(rw)>
<LVAR -0x00e @>
<POP 286fe-28882 Body> Δ+46
<POP 286fe-28714 Prologue> Σ0 ↓
<POP 28714-28722 RegCacheLoad> Σ0 ↓
<POP 28722-28728 Naked> Σ0 ↓
<Call 0x28722 0x28388> {}
<MI 28726 MOVEQ.L #0x00,D7> {}
<POP 28728-2874a Naked> Σ0 ↓ →0x28758 ←0x2886e
<POP 0x28728 LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {}
<MI 28732 MOVE.L D7,D0> {}
<MI 28734 ASL.L #0x2,D0> {}
<MI 28736 LEA.L 0x295b8,A0> {}
<MI 2873c LEA.L (A0+D0.L),A0> {}
<MI 28740 MOVE.W (A0+0x44c),D0> {}
<MI 28744 LSL.W #0x2,D0> {}
<MI 28746 LSR.W #0x2,D0> {}
<MI 28748 BNE 0x28758> {}
<POP 2874a-28750 Naked> Σ0 ↓ →0x28758
<MI 2874a TST.B (A0+0x44e)> {}
<MI 2874e BNE 0x28758> {}
<POP 28750-28758 Naked> Σ0 ↓ →0x2886e
<MI 28750 TST.B (A0+0x44f)> {}
<MI 28754 BEQ 0x2886e> {}
<POP 28758-28762 Naked> Σ0 ↓ →0x2876a ←0x28728 ←0x2874a
<MI 28758 MOVE.B (A0+0x44c),D0> {}
<MI 2875c LSL.B #0x1,D0> {}
<MI 2875e LSR.B #0x7,D0> {}
<MI 28760 BNE 0x2876a> {}
<POP 28762-2876a Naked> Σ0 ↓ →0x2886e
<MI 28762 TST.B (A6+0x8)> {}
<MI 28766 BEQ 0x2886e> {}
<POP 2876a-28774 Naked> Σ0 ↓ →0x28782 ←0x28758
<MI 2876a MOVE.B (A0+0x44c),D0> {}
<MI 2876e LSL.B #0x1,D0> {}
<MI 28770 LSR.B #0x7,D0> {}
<MI 28772 BEQ 0x28782> {}
<POP 28774-28782 Naked> Σ0 Δ-38 →0x2878e
<Blob 0x28774 [38] @> Δ-38 {[«38""»]}
<MI 28780 BRA 0x2878e> {[«38""»]}
<POP 28782-2878e Naked> Σ0 Δ-38 ↓ ←0x2876a
<Blob 0x28782 [38] @> Δ-38 {[«38""»]}
<POP 2878e-287da Naked> Σ-38 Δ+38 ↓ →0x287f8 ←0x28774
<POP 2878e-28790 StackAdj> Δ-4 {[-42-]}
<Lit 0x28790> {[-38-]|[$$…]}
<Pointer.sp 0x28790 4> Δ-4
<Const 0x28794 0x1.2> Δ-2
<Const 0x28796 0x26.2> Δ-2
<Call 0x28798 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2879e-287a0 StackAdj> Δ+8
<MI 287a0 MOVE.L (A7)+,(A6-0xa)> Δ+4 {[-38-]}
<POP 287a4-287a6 StackAdj> Δ+38 {}
<POP 287a6-287a8 StackAdj> Δ-8 {[-8-]}
<MI 287a8 CLR.L D0> {[-8-]}
<MI 287aa MOVE.W (A0+0x44c),D0> {[-8-]}
<MI 287ae LSL.W #0x2,D0> {[-8-]}
<MI 287b0 LSR.W #0x2,D0> {[-8-]}
<MI 287b2 MOVE.L D0,-(A7)> Δ-4 {[-8-]|[4, 'D0']}
<Call 0x287b4 0x102e4> {[-8-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 287ba-287bc StackAdj> Δ+4 {[-8-]}
<Const 0x287bc 0x4.4> Δ-4 {[-8-]|[##4]}
<Call 0x287c0 0x102f4> {[-8-]|[##4]}
RightPad(a : String; b : Long) : String
<POP 287c6-287c8 StackAdj> Δ+8 {[-4-]}
<MI 287c8 LEA.L (A6-0xe),A4> {[-4-]}
<Call 0x287ca 0x286d2> {[-4-]}
<POP 287cc-287ce StackAdj> Δ+4 {}
<MI 287ce CLR.L D0> {}
<MI 287d0 MOVE.B (A0+0x44e),D0> {}
<MI 287d4 CMPI.W #0x00ff,D0> {}
<MI 287d8 BNE 0x287f8> {}
<POP 287da-287f8 Naked> Σ0 Δ-4 →0x28816
<Blob 0x287da [4] @> Δ-4 {[«4""»]}
<POP 287de-287e0 StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x287e0 4> {[«4""»]|[$$ ALL]}
<MI 287f0 LEA.L (A6-0xe),A4> {[«4""»]|[$$ ALL]}
<Call 0x287f2 0x286d2> {[«4""»]|[$$ ALL]}
<POP 287f4-287f6 StackAdj> Δ+4 {[«4""»]}
<MI 287f6 BRA 0x28816> {[«4""»]}
<POP 287f8-28816 Naked> Σ0 Δ-4 ↓ ←0x2878e
<POP 287f8-287fa StackAdj> Δ-8 {[-8-]}
<MI 287fa EXTW.L D0> {[-8-]}
<MI 287fc MOVE.L D0,-(A7)> Δ-4 {[-8-]|[4, 'D0']}
<Call 0x287fe 0x102e4> {[-8-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 28804-28806 StackAdj> Δ+4 {[-8-]}
<Const 0x28806 0x4.4> Δ-4 {[-8-]|[##4]}
<Call 0x2880a 0x102f4> {[-8-]|[##4]}
RightPad(a : String; b : Long) : String
<POP 28810-28812 StackAdj> Δ+8 {[-4-]}
<MI 28812 LEA.L (A6-0xe),A4> {[-4-]}
<Call 0x28814 0x286d2> {[-4-]}
<POP 28816-28824 Naked> Σ-4 Δ+4 ↓ →0x28842 ←0x287da
<POP 28816-28818 StackAdj> Δ+4 {}
<MI 28818 CLR.L D0> {}
<MI 2881a MOVE.B (A0+0x44f),D0> {}
<MI 2881e CMPI.W #0x00ff,D0> {}
<MI 28822 BNE 0x28842> {}
<POP 28824-28842 Naked> Σ0 Δ-4 →0x28860
<Blob 0x28824 [4] @> Δ-4 {[«4""»]}
<POP 28828-2882a StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x2882a 4> {[«4""»]|[$$ ALL]}
<MI 2883a LEA.L (A6-0xe),A4> {[«4""»]|[$$ ALL]}
<Call 0x2883c 0x286d2> {[«4""»]|[$$ ALL]}
<POP 2883e-28840 StackAdj> Δ+4 {[«4""»]}
<MI 28840 BRA 0x28860> {[«4""»]}
<POP 28842-28860 Naked> Σ0 Δ-4 ↓ ←0x28816
<POP 28842-28844 StackAdj> Δ-8 {[-8-]}
<MI 28844 EXTW.L D0> {[-8-]}
<MI 28846 MOVE.L D0,-(A7)> Δ-4 {[-8-]|[4, 'D0']}
<Call 0x28848 0x102e4> {[-8-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2884e-28850 StackAdj> Δ+4 {[-8-]}
<Const 0x28850 0x4.4> Δ-4 {[-8-]|[##4]}
<Call 0x28854 0x102f4> {[-8-]|[##4]}
RightPad(a : String; b : Long) : String
<POP 2885a-2885c StackAdj> Δ+8 {[-4-]}
<MI 2885c LEA.L (A6-0xe),A4> {[-4-]}
<Call 0x2885e 0x286d2> {[-4-]}
<POP 28860-2886e Naked> Σ-4 Δ+4 ↓ ←0x28824
<POP 28860-28862 StackAdj> Δ+4 {}
<MI 28862 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<Call 0x28866 0x103e0> {[4, '(A6-0xa)']}
WriteConsoleStringCrLf(str : String)
<POP 2886c-2886e StackAdj> Δ+4 {}
<POP 2886e-2887a Naked> Σ0 ↓ →0x28728 ←0x28750 ←0x28762
<MI 2886e ADDQ.L #0x1,D7> {}
<MI 28870 CMPI.L #0x000007ff,D7> {}
<MI 28876 BLE 0x28728> {}
<POP 2887a-28882 Epilogue> Σ0
@ 28882
<LVAR -0x006 @ 4(r)>
<LVAR -0x008 @ 1(r)>
<POP 28882-2897a Body>
<POP 28882-28898 Prologue> Σ0 ↓
<POP 28898-288b0 RegCacheLoad> Σ0 ↓
<POP 288b0-288ea Naked> Σ0 ↓ →0x28908
<Blob 0x288b0 [20] @> Δ-20 {[«20""»]}
<POP 288be-288c0 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x288c0 20> {[«20""»]|[$$HARDWARE.M200_CONFIG]}
<POP 288ce-288d0 StackAdj> Δ-2 {[«20""»]|[$$HARDWARE.M200_CONFIG]|[-2-]}
<MI 288d0 CLR.B (A7)> {[«20""»]|[$$HARDWARE.M200_CONFIG]|[-2-]}
<MI 288d2 CLR.B -(A7)> Δ-2 {[«20""»]|[$$HARDWARE.M200_CONFIG]|[-2-]|[#0]}
<Const 0x288d4 0x0.4> Δ-4 {[«20""»]|[$$HARDWARE.M200_CONFIG]|[-2-]|[#0]|[##0]}
<Pointer.fp 0x288d8 <LVAR -0x008 @ 1(r)>> Δ-4 {[«20""»]|[$$HARDWARE.M200_CONFIG]|[-2-]|[#0]|[##0]|[@@-8]}
<Pointer.fp 0x288da <LVAR -0x006 @ 4(r)>> Δ-4 {[«20""»]|[$$HARDWARE.M200_CONFIG]|[-2-]|[#0]|[##0]|[@@-8]|[@@-6]}
<Call 0x288dc 0x10380> {[«20""»]|[$$HARDWARE.M200_CONFIG]|[-2-]|[#0]|[##0]|[@@-8]|[@@-6]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 288e2-288e6 StackAdj> Δ+40 {}
<MI 288e6 TST.B (A6-0x8)> {}
<MI 288e8 BNE 0x28908> {}
<POP 288ea-28908 Naked> Σ0 ↓
<MI 288ea MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<MI 288ec CLR.W -(A7)> Δ-2 {[4, '(A6-0x6)']|[#0]}
<MI 288ee CLR.W -(A7)> Δ-2 {[4, '(A6-0x6)']|[#0]|[#0]}
<Const 0x288f0 0x200.2> Δ-2 {[4, '(A6-0x6)']|[#0]|[#0]|[#512]}
<Const 0x288f4 0x1.2> Δ-2 {[4, '(A6-0x6)']|[#0]|[#0]|[#512]|[#1]}
<MI 288f6 LEA.L 0x2ee1e,A0> {[4, '(A6-0x6)']|[#0]|[#0]|[#512]|[#1]}
<MI 288fc MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0x6)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']}
<Pointer.fp 0x288fe <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0x6)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-8]}
<Call 0x28900 0x10384> {[4, '(A6-0x6)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-8]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 28906-28908 StackAdj> Δ+20 {}
<POP 28908-2890e Naked> Σ0 ↓ →0x28910 ←0x288b0
<MI 28908 CLR.B 0x2ee1b> {}
<MI 2890a TST.B (A6-0x8)> {}
<MI 2890c BNE 0x28910> {}
<POP 2890e-28910 Naked> Σ0 ↓
<MI 2890e ADDQ.B #0x1,0x2ee1b> {}
<POP 28910-2894c Naked> Σ0 ↓ →0x2896a ←0x28908
<Blob 0x28910 [14] @> Δ-14 {[«14""»]}
<POP 2891e-28920 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x28920 14> {[«14""»]|[$$TCP_IP_HOST_ID]}
<POP 28930-28932 StackAdj> Δ-2 {[«14""»]|[$$TCP_IP_HOST_ID]|[-2-]}
<MI 28932 CLR.B (A7)> {[«14""»]|[$$TCP_IP_HOST_ID]|[-2-]}
<MI 28934 CLR.B -(A7)> Δ-2 {[«14""»]|[$$TCP_IP_HOST_ID]|[-2-]|[#0]}
<Const 0x28936 0x0.4> Δ-4 {[«14""»]|[$$TCP_IP_HOST_ID]|[-2-]|[#0]|[##0]}
<Pointer.fp 0x2893a <LVAR -0x008 @ 1(r)>> Δ-4 {[«14""»]|[$$TCP_IP_HOST_ID]|[-2-]|[#0]|[##0]|[@@-8]}
<Pointer.fp 0x2893c <LVAR -0x006 @ 4(r)>> Δ-4 {[«14""»]|[$$TCP_IP_HOST_ID]|[-2-]|[#0]|[##0]|[@@-8]|[@@-6]}
<Call 0x2893e 0x10380> {[«14""»]|[$$TCP_IP_HOST_ID]|[-2-]|[#0]|[##0]|[@@-8]|[@@-6]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 28944-28948 StackAdj> Δ+34 {}
<MI 28948 TST.B (A6-0x8)> {}
<MI 2894a BNE 0x2896a> {}
<POP 2894c-2896a Naked> Σ0 ↓
<MI 2894c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<MI 2894e CLR.W -(A7)> Δ-2 {[4, '(A6-0x6)']|[#0]}
<MI 28950 CLR.W -(A7)> Δ-2 {[4, '(A6-0x6)']|[#0]|[#0]}
<Const 0x28952 0x200.2> Δ-2 {[4, '(A6-0x6)']|[#0]|[#0]|[#512]}
<Const 0x28956 0x1.2> Δ-2 {[4, '(A6-0x6)']|[#0]|[#0]|[#512]|[#1]}
<MI 28958 LEA.L 0x2f21e,A0> {[4, '(A6-0x6)']|[#0]|[#0]|[#512]|[#1]}
<MI 2895e MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0x6)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']}
<Pointer.fp 0x28960 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0x6)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-8]}
<Call 0x28962 0x10384> {[4, '(A6-0x6)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-8]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 28968-2896a StackAdj> Δ+20 {}
<POP 2896a-28970 Naked> Σ0 ↓ →0x28972 ←0x28910
<MI 2896a CLR.B 0x2ee1c> {}
<MI 2896c TST.B (A6-0x8)> {}
<MI 2896e BNE 0x28972> {}
<POP 28970-28972 Naked> Σ0 ↓
<MI 28970 ADDQ.B #0x1,0x2ee1c> {}
<POP 28972-2897a Epilogue> Σ0 ←0x2896a
@ 2897a
<LVAR -0x00e @ 4(r)>
<LVAR -0x010 @ 1(r)>
<POP 2897a-28ce0 Body>
<POP 2897a-28990 Prologue> Σ0 ↓
<POP 28990-289a6 RegCacheLoad> Σ0 ↓
<POP 289a6-289b0 Naked> Σ0 ↓ →0x28a58
<MI 289a6 TST.B 0x2ee1b> {}
<MI 289ac BEQ 0x28a58> {}
<POP 289b0-289e6 Naked> Σ0 ↓ →0x28a06
<Blob 0x289b0 [20] @> Δ-20 {[«20""»]}
<POP 289be-289c0 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x289c0 20> {[«20""»]|[$$HARDWARE.M200_CONFIG]}
<POP 289ca-289cc StackAdj> Δ-2 {[«20""»]|[$$HARDWARE.M200_CONFIG]|[-2-]}
<POP 289cc-289cd StackAdj> Δ+2 {[«20""»]|[$$HARDWARE.M200_CONFIG]}
<Const 0x289cd 0x1.2> Δ-2 {[«20""»]|[$$HARDWARE.M200_CONFIG]|[#1]}
<Const 0x289ce 0x1.2> Δ-2 {[«20""»]|[$$HARDWARE.M200_CONFIG]|[#1]|[#1]}
<Const 0x289d0 0x1.4> Δ-4 {[«20""»]|[$$HARDWARE.M200_CONFIG]|[#1]|[#1]|[##1]}
<Pointer.fp 0x289d4 <LVAR -0x010 @ 1(r)>> Δ-4 {[«20""»]|[$$HARDWARE.M200_CONFIG]|[#1]|[#1]|[##1]|[@@-16]}
<Pointer.fp 0x289d6 <LVAR -0x00e @ 4(r)>> Δ-4 {[«20""»]|[$$HARDWARE.M200_CONFIG]|[#1]|[#1]|[##1]|[@@-16]|[@@-14]}
<Call 0x289da 0x10380> {[«20""»]|[$$HARDWARE.M200_CONFIG]|[#1]|[#1]|[##1]|[@@-16]|[@@-14]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 289e0-289e2 StackAdj> Δ+40 {}
<MI 289e2 TST.B (A6-0x10)> {}
<MI 289e4 BNE 0x28a06> {}
<POP 289e6-28a06 Naked> Σ0 ↓
<MI 289e6 MOVE.L (A6-0xe),-(A7)> Δ-4 {[4, '(A6-0xe)']}
<MI 289ea CLR.W -(A7)> Δ-2 {[4, '(A6-0xe)']|[#0]}
<MI 289ec CLR.W -(A7)> Δ-2 {[4, '(A6-0xe)']|[#0]|[#0]}
<Const 0x289ee 0x200.2> Δ-2 {[4, '(A6-0xe)']|[#0]|[#0]|[#512]}
<Const 0x289f2 0x1.2> Δ-2 {[4, '(A6-0xe)']|[#0]|[#0]|[#512]|[#1]}
<MI 289f4 LEA.L 0x2ee1e,A0> {[4, '(A6-0xe)']|[#0]|[#0]|[#512]|[#1]}
<MI 289fa MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0xe)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']}
<Pointer.fp 0x289fc <LVAR -0x010 @ 1(r)>> Δ-4 {[4, '(A6-0xe)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-16]}
<Call 0x289fe 0x10388> {[4, '(A6-0xe)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-16]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 28a04-28a06 StackAdj> Δ+20 {}
<POP 28a06-28a0a Naked> Σ0 ↓ →0x28a56 ←0x289b0
<MI 28a06 TST.B (A6-0x10)> {}
<MI 28a08 BEQ 0x28a56> {}
<POP 28a0a-28a56 Naked> Σ0 ↓
<Blob 0x28a0a [72] @> Δ-72 {[«72""»]}
<POP 28a1a-28a1c StackAdj> Δ-4 {[«72""»]|[-4-]}
<Lit 0x28a1c 71> {[«72""»]|[$$** Could not restore the hardware config file because of the unexpected]}
<Call 0x28a2a 0x103e0> {[«72""»]|[$$** Could not restore the hardware config file because of the unexpected]}
WriteConsoleStringCrLf(str : String)
<POP 28a30-28a32 StackAdj> Δ+76 {}
<Blob 0x28a32 [64] @> Δ-64 {[«64""»]}
<POP 28a3e-28a40 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x28a40 64> {[«64""»]|[$$error described above. You will have to run CEDIT to recreate it]}
<Call 0x28a4c 0x103e0> {[«64""»]|[$$error described above. You will have to run CEDIT to recreate it]}
WriteConsoleStringCrLf(str : String)
<POP 28a52-28a56 StackAdj> Δ+68 {}
<POP 28a56-28a58 Naked> Σ0 →0x28aaa ←0x28a06
<MI 28a56 BRA 0x28aaa> {}
<POP 28a58-28aaa Naked> Σ0 ↓ ←0x289a6
<Blob 0x28a58 [74] @> Δ-74 {[«74""»]}
<POP 28a6a-28a6c StackAdj> Δ-4 {[«74""»]|[-4-]}
<Lit 0x28a6c 73> {[«74""»]|[$$** Could not restore the hardware config file because there was a problem]}
<Call 0x28a7a 0x103e0> {[«74""»]|[$$** Could not restore the hardware config file because there was a problem]}
WriteConsoleStringCrLf(str : String)
<POP 28a80-28a81 StackAdj> Δ+78 ↓ {}
<Blob 0x28a81 [76] @> Δ-76 {[«76""»]}
<POP 28a90-28a92 StackAdj> Δ-4 {[«76""»]|[-4-]}
<Lit 0x28a92 75> {[«76""»]|[$$saving it before the DFS rebuild. You will have to run CEDIT to recreate it]}
<Call 0x28aa0 0x103e0> {[«76""»]|[$$saving it before the DFS rebuild. You will have to run CEDIT to recreate it]}
WriteConsoleStringCrLf(str : String)
<POP 28aa6-28aaa StackAdj> Δ+80 {}
<POP 28aaa-28ab4 Naked> Σ0 ↓ →0x28bba ←0x28a56
<MI 28aaa TST.B 0x2ee1c> {}
<MI 28ab0 BNE 0x28bba> {}
<POP 28ab4-28b30 Naked> Σ0 ↓ →0x28b58
<Blob 0x28ab4 [72] @> Δ-72 {[«72""»]}
<POP 28ac0-28ac2 StackAdj> Δ-4 {[«72""»]|[-4-]}
<Lit 0x28ac2 72> {[«72""»]|[$$** Could not restore the TCP_IP_HOST_ID file because there was a problem]}
<Call 0x28ace 0x103e0> {[«72""»]|[$$** Could not restore the TCP_IP_HOST_ID file because there was a problem]}
WriteConsoleStringCrLf(str : String)
<POP 28ad4-28ad6 StackAdj> Δ+76 {}
<Blob 0x28ad6 [70] @> Δ-70 {[«70""»]}
<POP 28ae2-28ae4 StackAdj> Δ-4 {[«70""»]|[-4-]}
<Lit 0x28ae4 70> {[«70""»]|[$$saving it before the DFS rebuild. Answer this question to recreate it:]}
<Call 0x28af2 0x103e0> {[«70""»]|[$$saving it before the DFS rebuild. Answer this question to recreate it:]}
WriteConsoleStringCrLf(str : String)
<POP 28af8-28af9 StackAdj> Δ+74 ↓ {}
<Blob 0x28af9 [56] @> Δ-56 {[«56""»]}
<POP 28b0a-28b0c StackAdj> Δ-8 {[«56""»]|[-8-]}
<Lit 0x28b0c 55> {[«56""»]|[-4-]|[$$Enter this system's TCP/IP address [255.255.255.255] :_]}
<Call 0x28b1a 0x103e4> {[«56""»]|[-4-]|[$$Enter this system's TCP/IP address [255.255.255.255] :_]}
AskConsoleString(prompt : String) : String
<POP 28b20-28b22 StackAdj> Δ+4 {[«56""»]|[-4-]}
<MI 28b22 MOVEA.L (A7)+,A4> Δ+4 {[«56""»]}
<POP 28b24-28b28 StackAdj> Δ+56 {}
<MI 28b28 MOVE.W (A4),D0> {}
<MI 28b2a CMPI.W #0x0002,D0> {}
<MI 28b2e BGE 0x28b58> {}
<POP 28b30-28b58 Naked> Σ0 ↓
<Blob 0x28b30 [16] @> Δ-16 {[«16""»]}
<POP 28b42-28b44 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x28b44 15> {[«16""»]|[$$255.255.255.255]}
<MI 28b52 MOVEA.L (A7)+,A4> Δ+4 {[«16""»]}
<POP 28b54-28b58 StackAdj> Δ+16 {}
<POP 28b58-28b82 Naked> Σ0 ↓ ←0x28ab4
<MI 28b58 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Const 0x28b5a 0xd.2> Δ-2 {[4, 'A4']|[#13]}
<Call 0x28b5e 0x102c0> {[4, 'A4']|[#13]}
AppendChar(MOD b : String; a : char)
<POP 28b64-28b66 StackAdj> Δ+2 {[4, 'A4']}
<MI 28b66 MOVE.L A4,(A7)> {[4, 'A4']}
<Const 0x28b68 0xa.2> Δ-2 {[4, 'A4']|[#10]}
<Call 0x28b6c 0x102c0> {[4, 'A4']|[#10]}
AppendChar(MOD b : String; a : char)
<POP 28b72-28b74 StackAdj> Δ+2 {[4, 'A4']}
<MI 28b74 MOVE.L A4,(A7)> {[4, 'A4']}
<MI 28b76 CLR.B -(A7)> Δ-2 {[4, 'A4']|[#0]}
<Call 0x28b78 0x102c0> {[4, 'A4']|[#0]}
AppendChar(MOD b : String; a : char)
<POP 28b7e-28b80 StackAdj> Δ+6 {}
<MI 28b80 MOVEQ.L #0x01,D7> {}
<POP 28b82-28bb8 Naked> Σ0 ↓ →0x28b82 ←0x28b82
<MI 28b82 MOVE.L D7,D0> {}
<MI 28b84 SUBQ.L #0x1,D0> {}
<POP 0x28b86 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {}
<MI 28b90 LEA.L 0x295b8,A0> {}
<MI 28b96 LEA.L (A0+D0.L),A0> {}
<MI 28b9a MOVE.L D7,D0> {}
<MI 28b9c SUBQ.L #0x1,D0> {}
<POP 0x28b9e LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 28ba8 MOVE.B (A4+D0.L+#0x2),(A0+0x5c66)> {}
<MI 28bae ADDQ.L #0x1,D7> {}
<MI 28bb0 CMPI.L #0x00000064,D7> {}
<MI 28bb6 BLE 0x28b82> {}
<POP 28bb8-28bba Naked> Σ0 →0x28c2e
<MI 28bb8 BRA 0x28c2e> {}
<POP 28bba-28be0 Naked> Σ0 ↓ ←0x28aaa
<Blob 0x28bba [40] @> Δ-40 {[«40""»]}
<POP 28bc6-28bc8 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x28bc8 40> {[«40""»]|[$$Restored TCP_ID_HOST_ID file containing_]}
<Call 0x28bd4 0x103d8> {[«40""»]|[$$Restored TCP_ID_HOST_ID file containing_]}
WriteConsoleString(str : String)
<POP 28bda-28bde StackAdj> Δ+44 {}
<MI 28bde MOVEQ.L #0x01,D7> {}
<POP 28be0-28bfe Naked> Σ0 ↓ →0x28c00 ←0x28c00
<MI 28be0 MOVE.L D7,D0> {}
<MI 28be2 SUBQ.L #0x1,D0> {}
<POP 0x28be4 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {}
<MI 28bee LEA.L 0x295b8,A0> {}
<MI 28bf4 LEA.L (A0+D0.L),A0> {}
<MI 28bf8 TST.B (A0+0x5c66)> {}
<MI 28bfc BNE 0x28c00> {}
<POP 28bfe-28c00 Naked> Σ0 →0x28c2e
<MI 28bfe BRA 0x28c2e> {}
<POP 28c00-28c2e Naked> Σ0 ↓ →0x28be0 ←0x28be0
<MI 28c00 MOVE.L D7,D0> {}
<MI 28c02 SUBQ.L #0x1,D0> {}
<POP 0x28c04 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {}
<MI 28c0e LEA.L 0x295b8,A0> {}
<MI 28c14 LEA.L (A0+D0.L),A0> {}
<MI 28c18 MOVE.B (A0+0x5c66),-(A7)> Δ-2 {[2, '(A0+0x5c66)']}
<Call 0x28c1c 0x103d0> {[2, '(A0+0x5c66)']}
WriteConsoleChar(chr : char)
<POP 28c22-28c24 StackAdj> Δ+2 {}
<MI 28c24 ADDQ.L #0x1,D7> {}
<MI 28c26 CMPI.L #0x00000064,D7> {}
<MI 28c2c BLE 0x28be0> {}
<POP 28c2e-28c68 Naked> Σ0 ↓ →0x28c88 ←0x28bb8 ←0x28bfe
<Blob 0x28c2e [14] @> Δ-14 {[«14""»]}
<POP 28c3c-28c3e StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x28c3e 14> {[«14""»]|[$$TCP_IP_HOST_ID]}
<POP 28c4a-28c4c StackAdj> Δ-2 {[«14""»]|[$$TCP_IP_HOST_ID]|[-2-]}
<POP 28c4c-28c4d StackAdj> Δ+2 {[«14""»]|[$$TCP_IP_HOST_ID]}
<Const 0x28c4d 0x1.2> Δ-2 {[«14""»]|[$$TCP_IP_HOST_ID]|[#1]}
<Const 0x28c4e 0x1.2> Δ-2 {[«14""»]|[$$TCP_IP_HOST_ID]|[#1]|[#1]}
<Const 0x28c50 0x1.4> Δ-4 {[«14""»]|[$$TCP_IP_HOST_ID]|[#1]|[#1]|[##1]}
<Pointer.fp 0x28c54 <LVAR -0x010 @ 1(r)>> Δ-4 {[«14""»]|[$$TCP_IP_HOST_ID]|[#1]|[#1]|[##1]|[@@-16]}
<Pointer.fp 0x28c56 <LVAR -0x00e @ 4(r)>> Δ-4 {[«14""»]|[$$TCP_IP_HOST_ID]|[#1]|[#1]|[##1]|[@@-16]|[@@-14]}
<Call 0x28c5a 0x10380> {[«14""»]|[$$TCP_IP_HOST_ID]|[#1]|[#1]|[##1]|[@@-16]|[@@-14]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 28c60-28c64 StackAdj> Δ+34 {}
<MI 28c64 TST.B (A6-0x10)> {}
<MI 28c66 BNE 0x28c88> {}
<POP 28c68-28c88 Naked> Σ0 ↓
<MI 28c68 MOVE.L (A6-0xe),-(A7)> Δ-4 {[4, '(A6-0xe)']}
<MI 28c6c CLR.W -(A7)> Δ-2 {[4, '(A6-0xe)']|[#0]}
<MI 28c6e CLR.W -(A7)> Δ-2 {[4, '(A6-0xe)']|[#0]|[#0]}
<Const 0x28c70 0x200.2> Δ-2 {[4, '(A6-0xe)']|[#0]|[#0]|[#512]}
<Const 0x28c74 0x1.2> Δ-2 {[4, '(A6-0xe)']|[#0]|[#0]|[#512]|[#1]}
<MI 28c76 LEA.L 0x2f21e,A0> {[4, '(A6-0xe)']|[#0]|[#0]|[#512]|[#1]}
<MI 28c7c MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0xe)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']}
<Pointer.fp 0x28c7e <LVAR -0x010 @ 1(r)>> Δ-4 {[4, '(A6-0xe)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-16]}
<Call 0x28c80 0x10388> {[4, '(A6-0xe)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-16]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 28c86-28c88 StackAdj> Δ+20 {}
<POP 28c88-28c8c Naked> Σ0 ↓ →0x28cd8 ←0x28c2e
<MI 28c88 TST.B (A6-0x10)> {}
<MI 28c8a BEQ 0x28cd8> {}
<POP 28c8c-28cd8 Naked> Σ0 ↓
<Blob 0x28c8c [70] @> Δ-70 {[«70""»]}
<POP 28c98-28c9a StackAdj> Δ-4 {[«70""»]|[-4-]}
<Lit 0x28c9a 70> {[«70""»]|[$$** Could not restore the TCP_IP_HOST_ID file because of the unexpected]}
<Call 0x28ca8 0x103e0> {[«70""»]|[$$** Could not restore the TCP_IP_HOST_ID file because of the unexpected]}
WriteConsoleStringCrLf(str : String)
<POP 28cae-28caf StackAdj> Δ+74 ↓ {}
<Blob 0x28caf [60] @> Δ-60 {[«60""»]}
<POP 28cc0-28cc2 StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x28cc2 59> {[«60""»]|[$$error described above. You will have to recreate it by hand]}
<Call 0x28cd0 0x103e0> {[«60""»]|[$$error described above. You will have to recreate it by hand]}
WriteConsoleStringCrLf(str : String)
<POP 28cd6-28cd8 StackAdj> Δ+64 {}
<POP 28cd8-28ce0 Epilogue> Σ0 ←0x28c88
@ 28ce0
<LVAR 0x008 1(r)>
<POP 28ce0-28d70 Body>
<POP 28ce0-28cf6 Prologue> Σ0 ↓
<POP 28cf6-28d08 Naked> Σ0 ↓ →0x28d0c
<MI 28cf6 CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x28cf8 0x22d1a> {[#0]}
<POP 28cfc-28cfe StackAdj> Δ+2 {}
<Call 0x28cfe 0x23ed2> {}
<MI 28d02 TST.B (A6+0x8)> {}
<MI 28d06 BEQ 0x28d0c> {}
<POP 28d08-28d0c Naked> Σ0 ↓
<Call 0x28d08 0x24116> {}
<POP 28d0c-28d18 Naked> Σ0 ↓ →0x28d42 ←0x28cf6
<MI 28d0c MOVE.B 0x295c0,D0> {}
<MI 28d12 CMPI.B #0x02,D0> {}
<MI 28d16 BNE 0x28d42> {}
<POP 28d18-28d26 Naked> Σ0 ↓ →0x28d42
<MI 28d18 MOVE.W 0x295c2,D0> {}
<MI 28d1e CMP.W 0x295f6,D0> {}
<MI 28d24 BNE 0x28d42> {}
<POP 28d26-28d42 Naked> Σ0 ↓
<MI 28d26 MOVE.B #0x01,0x295f0> {}
<MI 28d2e CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x28d30 0x10404> {[#0]}
SetSomeKindOfFlag(a : Byte)
<MI 28d36 CLR.W (A7)> {[#0]}
<MI 28d38 CLR.W -(A7)> Δ-2 {[#0]|[#0]}
<Call 0x28d3a 0x10202> {[#0]|[#0]}
KC01_DumpOn
<POP 28d40-28d42 StackAdj> Δ+4 {}
<POP 28d42-28d52 Naked> Σ0 ↓ →0x28d56 ←0x28d0c ←0x28d18
<Call 0x28d42 0x252e2> {}
<POP 28d46-28d48 StackAdj> Δ-2 {[-2-]}
<Call 0x28d48 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 28d4e TST.B (A7)+> Δ+2 {}
<MI 28d50 BNE 0x28d56> {}
<POP 28d52-28d56 Naked> Σ0 ↓
<Call 0x28d52 0x26144> {}
<POP 28d56-28d68 Naked> Σ0 ↓ ←0x28d42
<Call 0x28d56 0x282a4> {}
<Const 0x28d5a 0x295ea.4> Δ-4 {[##169450]}
<Call 0x28d60 0x102bc> {[##169450]}
FreeString(VAR a : String)
<POP 28d66-28d68 StackAdj> Δ+4 {}
<POP 28d68-28d70 Epilogue> Σ0
@ 28d70
<LVAR -0x002 @>
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<POP 28d70-28fb6 Body>
<POP 28d70-28d86 Prologue> Σ0 ↓
<POP 28d86-28da0 RegCacheLoad> Σ0 ↓
<POP 28da0-28db0 Naked> Σ0 ↓ →0x28dd0
<MI 28da0 MOVE.B #0x01,0x2ee1a> {}
<MI 28da6 MOVE.B 0x295c0,D0> {}
<MI 28dac CMP.B #0x02,D0> {}
<MI 28dae BNE 0x28dd0> {}
<POP 28db0-28dd0 Naked> Σ0 ↓
<Blob 0x28db0 [62] @> Δ-62 {[«62""»]}
<POP 28dbc-28dbe StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x28dbe 62> {[«62""»]|[$$WARNING: you should boot this from tape when using this option]}
<Call 0x28dcc 0x103e0> {[«62""»]|[$$WARNING: you should boot this from tape when using this option]}
WriteConsoleStringCrLf(str : String)
<POP 28dce-28dd0 StackAdj> Δ+66 {}
<POP 28dd0-28de0 Naked> Σ0 ↓ →0x28e06 ←0x28da0
<Const 0x28dd0 0x1.2> Δ-2 {[#1]}
<Call 0x28dd2 0x22d1a> {[#1]}
<POP 28dd6-28dd8 StackAdj> Δ+2 {}
<MI 28dd8 TST.B 0x295ef> {}
<MI 28dde BNE 0x28e06> {}
<POP 28de0-28e06 Naked> Σ0 ↓
<Blob 0x28de0 [50] @> Δ-50 {[«50""»]}
<POP 28df0-28df2 StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x28df2 49> {[«50""»]|[$$This disk does not have a DFS currently installed]}
<Call 0x28e00 0x224cc> {[«50""»]|[$$This disk does not have a DFS currently installed]}
<POP 28e02-28e06 StackAdj> Δ+54 {}
<POP 28e06-28e16 Naked> Σ0 ↓ →0x28e38 ←0x28dd0
<Pointer.fp 0x28e06 <LVAR -0x004 @ 1(r)>> Δ-4 {[@@-4]}
<Call 0x28e0a 0x238f0> {[@@-4]}
<POP 28e0e-28e10 StackAdj> Δ+4 {}
<MI 28e10 TST.B (A6-0x4)> {}
<MI 28e14 BNE 0x28e38> {}
<POP 28e16-28e38 Naked> Σ0 ↓
<Blob 0x28e16 [24] @> Δ-24 {[«24""»]}
<POP 28e22-28e24 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x28e24 24> {[«24""»]|[$$the error above is fatal]}
<Call 0x28e32 0x224cc> {[«24""»]|[$$the error above is fatal]}
<POP 28e34-28e38 StackAdj> Δ+28 {}
<POP 28e38-28e50 Naked> Σ0 ↓ →0x28e8a ←0x28e06
<Blob 0x28e38 [2] 0x10008> Δ-2 {[«2»]}
<Pointer.fp 0x28e3e <LVAR -0x003 @ 1(r)>> Δ-4 {[«2»]|[@@-3]}
<Call 0x28e42 0x10394> {[«2»]|[@@-3]}
MountDisk(drive : Word ; VAR status : Byte)
<POP 28e48-28e4a StackAdj> Δ+6 {}
<MI 28e4a TST.B (A6-0x3)> {}
<MI 28e4e BEQ 0x28e8a> {}
<POP 28e50-28e8a Naked> Σ0 ↓
<Blob 0x28e50 [4] @> Δ-4 {[«4""»]}
<Blob 0x28e54 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x28e58 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x28e5c [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 28e60-28e62 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x28e62 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$FS_UINIT error:_]}
<POP 28e6e-28e70 StackAdj> Δ-6 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$FS_UINIT error:_]|[-6-]}
<MI 28e70 MOVE.B (A6-0x3),(A7)> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$FS_UINIT error:_]|[-6-]}
<Call 0x28e74 0x103a0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$FS_UINIT error:_]|[-6-]}
FsErrMsgStr(err: Byte) : String
<POP 28e7a-28e7c StackAdj> Δ+2 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$FS_UINIT error:_]|[-4-]}
<Call 0x28e7c 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$FS_UINIT error:_]|[-4-]}
StringCat2(a, b : String) : String
<POP 28e82-28e84 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x28e84 0x224cc> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<POP 28e86-28e8a StackAdj> Δ+20 {}
<POP 28e8a-28e98 Naked> Σ0 ↓ →0x28ec0 ←0x28e38
<Call 0x28e8a 0x28882> {}
<MI 28e8e MOVE.B 0x295c0,D0> {}
<MI 28e94 CMP.B #0x02,D0> {}
<MI 28e96 BNE 0x28ec0> {}
<POP 28e98-28ea6 Naked> Σ0 ↓ →0x28ec0
<MI 28e98 MOVE.W 0x295c2,D0> {}
<MI 28e9e CMP.W 0x295f6,D0> {}
<MI 28ea4 BNE 0x28ec0> {}
<POP 28ea6-28ec0 Naked> Σ0 ↓
<MI 28ea6 MOVE.B #0x01,0x295f0> {}
<MI 28eac CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x28eae 0x10404> {[#0]}
SetSomeKindOfFlag(a : Byte)
<MI 28eb4 CLR.W (A7)> {[#0]}
<MI 28eb6 CLR.W -(A7)> Δ-2 {[#0]|[#0]}
<Call 0x28eb8 0x10202> {[#0]|[#0]}
KC01_DumpOn
<POP 28ebe-28ec0 StackAdj> Δ+4 {}
<POP 28ec0-28fae Naked> Σ0 ↓ ←0x28e8a ←0x28e98
<Call 0x28ec0 0x282a4> {}
<Const 0x28ec4 0x295ea.4> Δ-4 {[##169450]}
<Call 0x28eca 0x102bc> {[##169450]}
FreeString(VAR a : String)
<POP 28ed0-28ed2 StackAdj> Δ+4 {}
<Blob 0x28ed2 [32] @> Δ-32 {[«32""»]}
<POP 28ede-28ee0 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x28ee0 32> {[«32""»]|[$$The DFS files have been reloaded]}
<Call 0x28eee 0x103e0> {[«32""»]|[$$The DFS files have been reloaded]}
WriteConsoleStringCrLf(str : String)
<POP 28ef0-28ef2 StackAdj> Δ+36 {}
<Call 0x28ef2 0x2897a> {}
<Call 0x28ef6 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x28efc [14] @> Δ-14 {[«14""»]}
<Blob 0x28f0e [8] @> Δ-8 {[«14""»]|[«8""»]}
<POP 28f1e-28f20 StackAdj> Δ-4 {[«14""»]|[«8""»]|[-4-]}
<Lit 0x28f20 13> {[«14""»]|[«8""»]|[$$UPDATE_EEPROM]}
<POP 28f2c-28f2e StackAdj> Δ-4 {[«14""»]|[«8""»]|[$$UPDATE_EEPROM]|[-4-]}
<Lit 0x28f2e 7> {[«14""»]|[«8""»]|[$$UPDATE_EEPROM]|[$$INSTALL]}
<POP 28f3a-28f3c StackAdj> Δ-2 {[«14""»]|[«8""»]|[$$UPDATE_EEPROM]|[$$INSTALL]|[-2-]}
<POP 28f3c-28f3d StackAdj> Δ+2 {[«14""»]|[«8""»]|[$$UPDATE_EEPROM]|[$$INSTALL]}
<Const 0x28f3d 0x1.2> Δ-2 {[«14""»]|[«8""»]|[$$UPDATE_EEPROM]|[$$INSTALL]|[#1]}
<Pointer.fp 0x28f3e <LVAR -0x002 @>> Δ-4 {[«14""»]|[«8""»]|[$$UPDATE_EEPROM]|[$$INSTALL]|[#1]|[@@-2]}
<Call 0x28f42 0x103b0> {[«14""»]|[«8""»]|[$$UPDATE_EEPROM]|[$$INSTALL]|[#1]|[@@-2]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 28f48-28f4a StackAdj> Δ+36 {}
<Blob 0x28f4a [66] @> Δ-66 {[«66""»]}
<POP 28f56-28f58 StackAdj> Δ-4 {[«66""»]|[-4-]}
<Lit 0x28f58 66> {[«66""»]|[$$** abnornal UPDATE_EEPROM abort: the EEPROMs may not be updated **]}
<Call 0x28f64 0x103e0> {[«66""»]|[$$** abnornal UPDATE_EEPROM abort: the EEPROMs may not be updated **]}
WriteConsoleStringCrLf(str : String)
<POP 28f66-28f67 StackAdj> Δ+70 ↓ {}
<Blob 0x28f67 [72] @> Δ-72 {[«72""»]}
<POP 28f76-28f78 StackAdj> Δ-4 {[«72""»]|[-4-]}
<Lit 0x28f78 71> {[«72""»]|[$$It may be necessary to replace the IOC/RESHA EEPROMs to boot the system]}
<Call 0x28f86 0x103e0> {[«72""»]|[$$It may be necessary to replace the IOC/RESHA EEPROMs to boot the system]}
WriteConsoleStringCrLf(str : String)
<POP 28f88-28f89 StackAdj> Δ+76 ↓ {}
<Blob 0x28f89 [26] @> Δ-26 {[«26""»]}
<POP 28f98-28f9a StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x28f9a 25> {[«26""»]|[$$the error above was fatal]}
<Call 0x28fa8 0x224cc> {[«26""»]|[$$the error above was fatal]}
<POP 28faa-28fae StackAdj> Δ+30 {}
<POP 28fae-28fb6 Epilogue> Σ0
@ 28fb6
START
<POP 28fb6--0001 Body>
<POP 28fb6-28fc0 Prologue> Σ0
<POP 28fc0-2900e Naked> Σ0 Δ-4 ↓
<Call 0x28fc0 0x10400> {}
FSCALL_10400
<Call 0x28fc6 0x105e6> {}
Set_fc04_to_01(void)
<Blob 0x28fcc [38] @> Δ-38 {[«38""»]}
<POP 28fe0-28fe2 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x28fe2 37> {[«38""»]|[$$@(#)RECOVERY,14.01,92/05/03,10:00:00\]}
<MI 28ff6 MOVE.L (A7)+,0x2f624> Δ+4 {[«38""»]}
<POP 28ffc-29000 StackAdj> Δ+38 {}
<MI 29000 MOVEA.L 0x2f624,A0> {}
<MI 29006 MOVE.W (A0),D0> {}
<MI 29008 EXTW.L D0> {}
<MI 2900a MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2900c MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 2900e-29012 Naked> Σ-4 ↓ →0x29048 ←0x29044
<MI 2900e CMP.L (A7),D0> {[-4-]}
<MI 29010 BGT 0x29048> {[-4-]}
<POP 29012-29034 Naked> Σ-4 ↓ →0x2903e
<MI 29012 MOVE.L D0,0x2f620> {[-4-]}
<MI 29018 MOVEA.L 0x2f624,A0> {[-4-]}
<MI 2901e MOVE.L D0,D1> {[-4-]}
<MI 29020 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x29022 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 2902c CMPI.L #0x00000004,D0> {[-4-]}
<MI 29032 BLE 0x2903e> {[-4-]}
<POP 29034-2903e Naked> Σ-4 ↓ →0x29044
<MI 29034 MOVE.B (A0+D1.L+#0x2),D2> {[-4-]}
<MI 29038 CMPI.B #0x2c,D2> {[-4-]}
<MI 2903c BNE 0x29044> {[-4-]}
<POP 2903e-29044 Naked> Σ-4 ↓ ←0x29012
<MI 2903e MOVE.B #0x20,(A0+D1.L+#0x2)> {[-4-]}
<POP 29044-29048 Naked> Σ-4 ↓ →0x2900e ←0x29034
<MI 29044 ADDQ.L #0x1,D0> {[-4-]}
<MI 29046 BVC 0x2900e> {[-4-]}
<POP 29048-29090 Naked> Σ-4 Δ+4 ↓ →0x29096 ←0x2900e
<POP 29048-29049 StackAdj> Δ+4 {}
<Blob 0x29049 [4] 0x2f624> Δ-4 {[«4»]}
<Call 0x2904e 0x103e0> {[«4»]}
WriteConsoleStringCrLf(str : String)
<POP 29054-29056 StackAdj> Δ+4 {}
<MI 29056 LEA.L 0x29604,A0> {}
<MI 2905c MOVE.L A0,0x295fc> {}
<MI 29062 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 29064 MOVE.L (A7)+,0x29600> Δ+4 {}
<Const 0x2906a 0x295c0.4> Δ-4 {[##169408]}
<Const 0x29070 0x295c2.4> Δ-4 {[##169408]|[##169410]}
<Call 0x29076 0x10200> {[##169408]|[##169410]}
KC00_GetBootDev(VAR a : Byte; VAR b : Word)
<POP 2907c-2907e StackAdj> Δ+8 {}
<MI 2907e CLR.B 0x295f0> {}
<MI 29084 MOVE.B 0x295c0,D0> {}
<MI 2908a CMPI.B #0x02,D0> {}
<MI 2908e BEQ 0x29096> {}
<POP 29090-29096 Naked> Σ0 ↓
<MI 29090 ADDQ.B #0x1,0x295f0> {}
<POP 29096-290a2 Naked> Σ0 ↓ →0x290b6 ←0x29048
<POP 29096-29098 StackAdj> Δ-2 {[-2-]}
<Call 0x29098 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 2909e TST.B (A7)+> Δ+2 {}
<MI 290a0 BEQ 0x290b6> {}
<POP 290a2-290b6 Naked> Σ0 →0x290c8
<MI 290a2 LEA.L 0x295c8,A0> {}
<MI 290a8 LEA.L 0x2230e,A1> {}
<BlockMove 24,A1,A0> {}
<MI 290b4 BRA 0x290c8> {}
<POP 290b6-290c8 Naked> Σ0 ↓ ←0x29096
<MI 290b6 LEA.L 0x295c8,A0> {}
<MI 290bc LEA.L 0x222f6,A1> {}
<BlockMove 24,A1,A0> {}
<POP 290c8-2929c Naked> Σ0 →0x292aa →0x292ac →0x292ac →0x292c4 →0x292c4 →0x2931c →0x292be ←0x290a2 ←0x29328
<MI 290c8 CLR.B 0x2ea18> {}
<MI 290ce CLR.B 0x2ee1a> {}
<Blob 0x290d4 [4] @> Δ-4 {[«4""»]}
<Blob 0x290d8 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x290dc [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 290e0-290e2 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x290e2 12> {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
<Call 0x290f6 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
WriteConsoleStringCrLf(str : String)
<POP 290fc-290fd StackAdj> Δ+16 ↓ {}
<Blob 0x290fd [14] @> Δ-14 {[«14""»]}
<POP 2910c-2910e StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x2910e 13> {[«14""»]|[$$ 0 => Exit]}
<Call 0x29122 0x103e0> {[«14""»]|[$$ 0 => Exit]}
WriteConsoleStringCrLf(str : String)
<POP 29128-29129 StackAdj> Δ+18 ↓ {}
<Blob 0x29129 [44] @> Δ-44 {[«44""»]}
<POP 2913a-2913c StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x2913c 43> {[«44""»]|[$$ 1 => Initialize disk (for experts only)]}
<Call 0x29150 0x103e0> {[«44""»]|[$$ 1 => Initialize disk (for experts only)]}
WriteConsoleStringCrLf(str : String)
<POP 29156-2915a StackAdj> Δ+48 {}
<Blob 0x2915a [62] @> Δ-62 {[«62""»]}
<POP 29166-29168 StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x29168 62> {[«62""»]|[$$ 2 => Initialize disk, drop USR defects (internal use only)]}
<Call 0x2917c 0x103e0> {[«62""»]|[$$ 2 => Initialize disk, drop USR defects (internal use only)]}
WriteConsoleStringCrLf(str : String)
<POP 29182-29183 StackAdj> Δ+66 ↓ {}
<Blob 0x29183 [46] @> Δ-46 {[«46""»]}
<POP 29194-29196 StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x29196 45> {[«46""»]|[$$ 3 => Show MFG and USR bad block locations]}
<Call 0x291aa 0x103e0> {[«46""»]|[$$ 3 => Show MFG and USR bad block locations]}
WriteConsoleStringCrLf(str : String)
<POP 291b0-291b4 StackAdj> Δ+50 {}
<Blob 0x291b4 [42] @> Δ-42 {[«42""»]}
<POP 291c0-291c2 StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x291c2 42> {[«42""»]|[$$ 4 => Show only USR bad block locations]}
<Call 0x291d6 0x103e0> {[«42""»]|[$$ 4 => Show only USR bad block locations]}
WriteConsoleStringCrLf(str : String)
<POP 291dc-291dd StackAdj> Δ+46 ↓ {}
<Blob 0x291dd [30] @> Δ-30 {[«30""»]}
<POP 291ee-291f0 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x291f0 29> {[«30""»]|[$$ 5 => Install new DFS only]}
<Call 0x29204 0x103e0> {[«30""»]|[$$ 5 => Install new DFS only]}
WriteConsoleStringCrLf(str : String)
<POP 2920a-2920e StackAdj> Δ+34 {}
<Blob 0x2920e [44] @> Δ-44 {[«44""»]}
<POP 2921a-2921c StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x2921c 44> {[«44""»]|[$$ 6 => Show bad block count and DOS limits]}
<Call 0x29230 0x103e0> {[«44""»]|[$$ 6 => Show bad block count and DOS limits]}
WriteConsoleStringCrLf(str : String)
<POP 29236-29237 StackAdj> Δ+48 ↓ {}
<Blob 0x29237 [16] @> Δ-16 {[«16""»]}
<POP 29248-2924a StackAdj> Δ-8 {[«16""»]|[-8-]}
<Lit 0x2924a 15> {[«16""»]|[-4-]|[$$Enter option :_]}
<Const 0x2925e 0x0.4> Δ-4 {[«16""»]|[-4-]|[$$Enter option :_]|[##0]}
<Const 0x29262 0x6.4> Δ-4 {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[##6]}
<Call 0x29266 0x103ec> {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[##6]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 2926c-29270 StackAdj> Δ+12 {[«16""»]|[-4-]}
<MI 29270 MOVE.B (A7+0x3),D0> {[«16""»]|[-4-]}
<MI 29274 EXTB.W D0> {[«16""»]|[-4-]}
<POP 0x29276 LimitCheck 0x0 ≤ D0 ≤ 0x6> {[«16""»]|[-4-]}
<POP 2927a-2927e StackAdj> Δ+20 {}
<MI 2927e MOVE.B D0,0x2f61e> {}
<MI 29284 MOVE.B D0,D1> {}
<MI 29286 EXTB.W D1> {}
<MI 29288 MOVE.W D1,D0> {}
<POP 0x2928a LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 29292 ADD.W D0,D0> {}
<MI 29294 SWITCH D0.W> {}
<POP 292aa-292ac Naked> Σ0 →0x29320 ←0x290c8
<MI 292aa BRA 0x29320> {}
<POP 292ac-292b4 Naked> Σ0 Δ-2 ↓ →0x292b6 ←0x290c8 ←0x290c8
<MI 292ac CLR.B -(A7)> Δ-2 {[#0]}
<MI 292ae CMPI.B #0x02,D1> {[#0]}
<MI 292b2 BNE 0x292b6> {[#0]}
<POP 292b4-292b6 Naked> Σ-2 ↓
<MI 292b4 ADDQ.B #0x1,(A7)> {[-2-]}
<POP 292b6-292be Naked> Σ-2 Δ+2 →0x29320 ←0x292ac
<Call 0x292b6 0x28ce0> {[-2-]}
<POP 292ba-292bc StackAdj> Δ+2 {}
<MI 292bc BRA 0x29320> {}
<POP 292be-292c4 Naked> Σ0 →0x29320 ←0x290c8
<Call 0x292be 0x28388> {}
<MI 292c2 BRA 0x29320> {}
<POP 292c4-292d0 Naked> Σ0 ↓ →0x29304 ←0x290c8 ←0x290c8
<POP 292c4-292c6 StackAdj> Δ-2 {[-2-]}
<Call 0x292c6 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 292cc TST.B (A7)+> Δ+2 {}
<MI 292ce BEQ 0x29304> {}
<POP 292d0-29304 Naked> Σ0 →0x2931a
<Blob 0x292d0 [60] @> Δ-60 {[«60""»]}
<POP 292e2-292e4 StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x292e4 59> {[«60""»]|[$$MFG bad block locations can not be displayed for Model x00C]}
<Call 0x292f8 0x103e0> {[«60""»]|[$$MFG bad block locations can not be displayed for Model x00C]}
WriteConsoleStringCrLf(str : String)
<POP 292fe-29302 StackAdj> Δ+64 {}
<MI 29302 BRA 0x2931a> {}
<POP 29304-29312 Naked> Σ0 Δ-2 ↓ →0x29314 ←0x292c4
<MI 29304 CLR.B -(A7)> Δ-2 {[#0]}
<MI 29306 MOVE.B 0x2f61e,D0> {[#0]}
<MI 2930c CMPI.B #0x03,D0> {[#0]}
<MI 29310 BNE 0x29314> {[#0]}
<POP 29312-29314 Naked> Σ-2 ↓
<MI 29312 ADDQ.B #0x1,(A7)> {[-2-]}
<POP 29314-2931a Naked> Σ-2 Δ+2 ↓ ←0x29304
<Call 0x29314 0x286fe> {[-2-]}
<POP 29318-2931a StackAdj> Δ+2 {}
<POP 2931a-2931c Naked> Σ0 →0x29320 ←0x292d0
<MI 2931a BRA 0x29320> {}
<POP 2931c-29320 Naked> Σ0 ↓ ←0x290c8
<Call 0x2931c 0x28d70> {}
<POP 29320-29328 Naked> Σ0 ↓ →0x2932c ←0x292aa ←0x292b6 ←0x292be ←0x2931a
<MI 29320 TST.B 0x2f61e> {}
<MI 29326 BEQ 0x2932c> {}
<POP 29328-2932c Naked> Σ0 →0x290c8
<MI 29328 BRA 0x290c8> {}
<POP 2932c-29334 Naked> Σ0 ↓ →0x29398 ←0x29320
<MI 2932c TST.B 0x295f0> {}
<MI 29332 BEQ 0x29398> {}
<POP 29334-29394 Naked> Σ0 ↓
<Blob 0x29334 [60] @> Δ-60 {[«60""»]}
<POP 29346-29348 StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x29348 59> {[«60""»]|[$$Boot disk has been rebuilt or the IOP was booted from tape.]}
<Call 0x2935c 0x103e0> {[«60""»]|[$$Boot disk has been rebuilt or the IOP was booted from tape.]}
WriteConsoleStringCrLf(str : String)
<POP 29362-29363 StackAdj> Δ+64 ↓ {}
<Blob 0x29363 [36] @> Δ-36 {[«36""»]}
<POP 29374-29376 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x29376 35> {[«36""»]|[$$You must crash the machine to exit.]}
<Call 0x2938a 0x103e0> {[«36""»]|[$$You must crash the machine to exit.]}
WriteConsoleStringCrLf(str : String)
<POP 29390-29394 StackAdj> Δ+40 {}
<POP 29394-29396 Naked> Σ0 →0x29394 ←0x29394
<MI 29394 BRA 0x29394> {}
<POP 29398-293ac Naked> Σ0 ↓ ←0x2932c
<Call 0x29398 0x10398> {}
FSCALL_10398
<MI 2939e CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x293a0 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x293a4 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 293aa-293ac StackAdj> Δ+6 {}
<POP 293ac-293b2 Naked> Σ0
<Call 0x293ac 0x10284> {}
?exit
@ 293c0
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 293c0-29428 Body>
<POP 293c0-293d6 Prologue> Σ0 ↓
<POP 293d6-29420 Naked> Σ0 ↓
<Blob 0x293d6 [14] @> Δ-14 {[«14""»]}
<Const 0x293e2 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 293e6-293e8 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x293e8 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 293fa-293fc StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 293fc MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 29400 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 29402 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 29404 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x29406 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2940c-2940e StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x2940e 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 29414-29416 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x29416 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 2941c-29420 StackAdj> Δ+20 {}
<POP 29420-29428 Epilogue> Σ0
@ 2947c
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 2947c-295b8 Body>
<POP 2947c-29492 Prologue> Σ0 ↓
<POP 29492-294a8 RegCacheLoad> Σ0 ↓
<POP 294a8-29508 Naked> Σ0 ↓ →0x29550
<Call 0x294a8 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x294ae [18] @> Δ-18 {[«18""»]}
<POP 294ba-294bc StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x294bc 18> {[«18""»]|[$$Experiment error :]}
<Call 0x294c8 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 294ca-294cb StackAdj> Δ+22 ↓ {}
<Blob 0x294cb [14] @> Δ-14 {[«14""»]}
<POP 294da-294dc StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x294dc 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 294e6-294e8 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 294e8 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x294ec 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 294f2-294f4 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x294f4 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 294fa-294fc StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x294fc 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 294fe-29500 StackAdj> Δ+18 {}
<MI 29500 MOVEA.L (A6+0xa),A0> {}
<MI 29504 CMPA.W #0x01,A0> {}
<MI 29506 BEQ 0x29550> {}
<POP 29508-29550 Naked> Σ0 ↓
<Blob 0x29508 [14] @> Δ-14 {[«14""»]}
<Blob 0x29518 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 29528-2952a StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x2952a 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 29534-29536 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x29536> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x29536 12> Δ-4
<Const 0x2953a 0x1.2> Δ-2
<Const 0x2953c 0x1e.2> Δ-2
<Call 0x2953e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 29540-29542 StackAdj> Δ+8
<Call 0x29542 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 29548-2954a StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x2954a 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2954c-29550 StackAdj> Δ+48 {}
<POP 29550-295b0 Naked> Σ0 ↓ ←0x294a8
<Blob 0x29550 [14] @> Δ-14 {[«14""»]}
<POP 29560-29562 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x29562 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2956c-2956e StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 2956e MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x29572 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 29578-2957a StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x2957a 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 29580-29582 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x29582 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 29584-29585 StackAdj> Δ+18 ↓ {}
<Blob 0x29585 [24] @> Δ-24 {[«24""»]}
<Const 0x29594 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 29598-2959a StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x2959a 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x295a8 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 295ae-295b0 StackAdj> Δ+30 {}
<POP 295b0-295b8 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.717725b3539b79c5 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 8f b6 | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 f6 38 | 8 | .PTR 0x2f638 00020010 code.end: 00020010 00 02 95 b8 | | .PTR 0x295b8 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 93 c0 | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 94 7c | | | .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 52 45 43 4f |@(#)RECO| .TXT '@(#)RECOVERY,14.01,92/05/03,10:00:00\ ' 00020130 48 41 52 44 57 41 52 45 |HARDWARE| .TXT 'HARDWARE.M200_CONFIG' 00020144 54 43 50 5f 49 50 5f 48 |TCP_IP_H| .TXT 'TCP_IP_HOST_ID' 00020152 2a 2a 20 41 42 4f 52 54 |** ABORT| .TXT '** ABORT:_' 0002015c 49 4e 53 54 41 4c 4c 20 |INSTALL | .TXT 'INSTALL failed: you have to reboot the system ' 0002018a 45 72 72 6f 72 20 72 65 |Error re| .TXT 'Error reading disk controller EEPROM at location_ ' 000201bc 31 32 33 34 35 36 37 38 |12345678| .TXT '123456789012345678901234567890' 000201da 45 6c 61 70 |Elap | .TXT 'Elap' 000201de 73 65 64 20 |sed | .TXT 'sed ' 000201e2 74 69 6d 65 |time | .TXT 'time' 000201e6 20 69 73 5f | is_ | .TXT ' is_' 000201ea 45 6e 74 65 72 20 75 6e |Enter un| .TXT 'Enter unit number of disk to format/build/scan (usually 0) :_ ' 00020228 45 6e 74 65 72 20 64 72 |Enter dr| .TXT 'Enter drive type :_ ' 0002023c 48 6f 77 20 6d 61 6e 79 |How many| .TXT 'How many cylinders does this disk have ?_ ' 00020266 48 6f 77 20 6d 61 6e 79 |How many| .TXT 'How many tracks per cylinder does this disk have ?_ ' 0002029a 48 6f 77 20 6d 61 6e 79 |How many| .TXT 'How many sectors per track does this disk have ?_ ' 000202cc 45 6e 74 65 72 20 48 44 |Enter HD| .TXT 'Enter HDA serial number :_' 000202e6 44 69 73 6b 20 61 70 70 |Disk app| .TXT 'Disk appears intact. Should the information on it be used' 00020320 43 61 6e 27 74 20 72 65 |Can't re| .TXT 'Can't retrieve labels due to disk errors. ' 0002034a 44 69 73 6b 20 68 61 73 |Disk has| .TXT 'Disk has no labels. ' 0002035e 44 69 73 6b 20 68 61 73 |Disk has| .TXT 'Disk has obsolete labels. ' 00020378 53 65 63 74 6f 72 73 20 |Sectors | .TXT 'Sectors per track must be even! ' 00020398 54 68 61 74 20 64 69 73 |That dis| .TXT 'That disk unit does not exist.' 000203b6 44 72 69 76 65 20 6c 61 |Drive la| .TXT 'Drive label geometry disagrees with slew settings ' 000203e8 44 72 69 76 |Driv | .TXT 'Driv' 000203ec 65 20 74 79 |e ty | .TXT 'e ty' 000203f0 70 65 73 20 |pes | .TXT 'pes ' 000203f4 61 72 65 3a |are: | .TXT 'are:' 000203f8 20 20 20 20 31 20 2d 20 | 1 - | .TXT ' 1 - Fujitsu 2351 (Eagle) with sector interleaving ' 0002042e 20 20 20 20 32 20 2d 20 | 2 - | .TXT ' 2 - Fujitsu 2361 (Eagle XP) ' 0002044e 20 20 20 20 33 20 2d 20 | 3 - | .TXT ' 3 - Fujitsu 2333' 00020462 20 20 20 20 34 20 2d 20 | 4 - | .TXT ' 4 - Fujitsu 2344' 00020476 20 20 20 20 35 20 2d 20 | 5 - | .TXT ' 5 - Fujitsu 2372' 0002048a 20 20 20 20 30 20 2d 20 | 0 - | .TXT ' 0 - Other ' 00020498 20 20 20 20 31 20 2d 20 | 1 - | .TXT ' 1 - Fujitsu 2263 ' 000204ae 20 20 20 20 32 20 2d 20 | 2 - | .TXT ' 2 - Fujitsu 2266 ' 000204c4 20 20 20 20 33 20 2d 20 | 3 - | .TXT ' 3 - SEGATE ST41200N ' 000204dc 53 4c 45 57 20 73 65 74 |SLEW set| .TXT 'SLEW settings differ from drive settings, SLEW settings will prevail. ' 00020522 20 20 20 20 20 2d 2d 2d | ---| .TXT ' ------- WARNING ------- WARNING ------- WARNING -------' 0002056a 50 6c 65 61 73 65 20 55 |Please U| .TXT 'Please UNPROTECT the drive before continuing' 00020596 44 72 69 76 65 20 67 65 |Drive ge| .TXT 'Drive geometry has grown, the defect data from drive are insufficient to' 000205de 72 65 63 6f 6e 73 74 72 |reconstr| .TXT 'reconstruct a proper defect representation, a defect tape is required.' 00020624 48 44 |HD | .TXT 'HD' 00020626 41 20 |A | .TXT 'A ' 00020628 3a 5f |:_ | .TXT ':_' 0002062a 54 68 65 20 73 65 72 76 |The serv| .TXT 'The server name for logical disk_ ' 0002064c 20 69 | i | .TXT ' i' 0002064e 73 20 |s | .TXT 's ' 00020650 3a 5f |:_ | .TXT ':_' 00020652 54 68 65 20 64 69 73 6b |The disk| .TXT 'The disk geometry (in decimal) is : ' 00020676 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinders =>_ ' 00020684 20 20 20 54 72 61 63 6b | Track| .TXT ' Tracks =>_ ' 00020692 20 20 53 65 63 74 6f 72 | Sector| .TXT ' Sectors =>_ ' 000206a0 43 61 6e 27 74 20 72 65 |Can't re| .TXT 'Can't read bad block list area on disk due to disk errors ' 000206da 2d 2d 2d 20 57 41 52 4e |--- WARN| .TXT '--- WARNING: bad block area is not 16 blocks long ' 0002070c 43 61 6e 27 74 20 72 65 |Can't re| .TXT 'Can't read retarget block list area on disk due to disk errors' 0002074a 45 6e 74 65 72 20 75 6e |Enter un| .TXT 'Enter unit number of tape drive with bad block information :_ ' 00020788 43 61 6e 27 74 20 72 65 |Can't re| .TXT 'Can't read tape. Bad tape or wrong format. ' 000207b4 2e 44 45 46 |.DEF | .TXT '.DEF' 000207b8 45 43 54 53 |ECTS | .TXT 'ECTS' 000207bc 46 6f 75 6e 64 20 45 4f |Found EO| .TXT 'Found EOT, Aborting!' 000207d0 4f 62 73 6f 6c 65 74 65 |Obsolete| .TXT 'Obsolete tape header version, aborting! ' 000207f8 52 65 63 6f 72 64 20 72 |Record r| .TXT 'Record read failed while skipping a file. ' 00020822 46 6f 75 6e 64 20 64 61 |Found da| .TXT 'Found data, can't read it.' 0002083c 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to format the disk' 0002085a 41 6e 73 77 |Answ | .TXT 'Answ' 0002085e 65 72 20 30 |er 0 | .TXT 'er 0' 00020862 20 6f 72 20 | or | .TXT ' or ' 00020866 31 20 3a 5f |1 :_ | .TXT '1 :_' 0002086a 44 6f 20 79 6f 75 |Do you | .XXX[0x6] 00020870 20 77 61 6e 74 20 74 6f | want to| .XXX[0x28] 00020878 20 75 73 65 20 74 68 65 | use the| 00020880 20 62 61 64 20 62 6c 6f | bad blo| 00020888 63 6b 20 6c 69 73 74 20 |ck list | 00020890 66 72 6f 6d 20 64 69 73 |from dis| 00020898 6b 20 |k | .XXX[0x2] 0002089a 44 69 73 6b 20 6d 75 73 |Disk mus| .TXT 'Disk must be formated.' 000208b0 46 72 6f 6d 20 77 68 65 |From whe| .TXT 'From where should I get the bad block list :' 000208dc 20 20 20 20 20 20 20 20 | | .TXT ' 0 => Get it from the disk ' 00020902 20 20 20 20 20 20 20 20 | | .TXT ' 1 => Get it from a backup tape' 0002092c 20 20 20 20 20 20 20 20 | | .TXT ' 0 => Get it from the disk label area' 0002095c 20 20 20 20 20 20 20 20 | | .TXT ' 1 => Get it from the disk system area ' 0002098e 2c 5f |,_ | .TXT ',_' 00020990 53 70 65 63 69 61 6c 20 |Special | .TXT 'Special condition ' 000209a2 54 72 61 6e 73 66 65 72 |Transfer| .TXT 'Transfer error' 000209b0 44 61 74 61 20 6c 61 74 |Data lat| .TXT 'Data late ' 000209ba 57 72 69 74 65 20 63 68 |Write ch| .TXT 'Write check error ' 000209cc 55 4e 49 42 55 53 20 70 |UNIBUS p| .TXT 'UNIBUS parity error ' 000209e0 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent drive' 000209f2 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent memory ' 00020a06 50 72 6f 67 72 61 6d 20 |Program | .TXT 'Program error ' 00020a14 4d 69 78 65 64 20 74 72 |Mixed tr| .TXT 'Mixed transfer' 00020a22 49 6e 70 75 74 20 6e 6f |Input no| .TXT 'Input not ready ' 00020a32 42 75 73 20 61 64 64 72 |Bus addr| .TXT 'Bus address inhibit ' 00020a46 41 74 74 65 |Atte | .TXT 'Atte' 00020a4a 6e 74 69 6f |ntio | .TXT 'ntio' 00020a4e 6e 20 41 63 |n Ac | .TXT 'n Ac' 00020a52 74 69 76 65 |tive | .TXT 'tive' 00020a56 45 72 72 6f 72 20 |Error | .TXT 'Error ' 00020a5c 50 6f 73 69 74 69 6f 6e |Position| .TXT 'Positioning in progress ' 00020a74 4d 65 64 69 75 6d 20 6f |Medium o| .TXT 'Medium on-line' 00020a82 57 72 69 74 65 20 6c 6f |Write lo| .TXT 'Write lock' 00020a8c 4c 61 73 74 20 73 65 63 |Last sec| .TXT 'Last sector transfered' 00020aa2 50 72 6f 67 |Prog | .TXT 'Prog' 00020aa6 72 61 6d 6d |ramm | .TXT 'ramm' 00020aaa 61 62 6c 65 |able | .TXT 'able' 00020aae 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not present ' 00020ac0 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not ready ' 00020ad0 56 6f 6c 75 |Volu | .TXT 'Volu' 00020ad4 6d 65 20 6e |me n | .TXT 'me n' 00020ad8 6f 74 20 76 |ot v | .TXT 'ot v' 00020adc 61 6c 69 64 |alid | .TXT 'alid' 00020ae0 48 65 61 64 |Head | .TXT 'Head' 00020ae4 73 20 61 72 |s ar | .TXT 's ar' 00020ae8 65 20 6f 66 |e of | .TXT 'e of' 00020aec 66 73 65 74 |fset | .TXT 'fset' 00020af0 44 61 74 61 20 63 68 65 |Data che| .TXT 'Data check' 00020afa 55 6e |Un | .TXT 'Un' 00020afc 73 61 |sa | .TXT 'sa' 00020afe 66 65 |fe | .TXT 'fe' 00020b00 4f 70 65 72 61 74 69 6f |Operatio| .TXT 'Operation Incomplete' 00020b14 44 72 69 76 65 20 74 69 |Drive ti| .TXT 'Drive timing error' 00020b26 57 72 69 74 |Writ | .TXT 'Writ' 00020b2a 65 20 6c 6f |e lo | .TXT 'e lo' 00020b2e 63 6b 20 65 |ck e | .TXT 'ck e' 00020b32 72 72 6f 72 |rror | .TXT 'rror' 00020b36 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid address error ' 00020b4c 41 64 64 72 |Addr | .TXT 'Addr' 00020b50 65 73 73 20 |ess | .TXT 'ess ' 00020b54 6f 76 65 72 |over | .TXT 'over' 00020b58 66 6c 6f 77 |flow | .TXT 'flow' 00020b5c 48 65 61 64 |Head | .TXT 'Head' 00020b60 65 72 20 43 |er C | .TXT 'er C' 00020b64 52 43 20 65 |RC e | .TXT 'RC e' 00020b68 72 72 6f 72 |rror | .TXT 'rror' 00020b6c 48 65 61 64 65 72 20 63 |Header c| .TXT 'Header compare error' 00020b80 45 43 43 20 68 61 72 64 |ECC hard| .TXT 'ECC hard error' 00020b8e 57 72 69 74 |Writ | .TXT 'Writ' 00020b92 65 20 63 6c |e cl | .TXT 'e cl' 00020b96 6f 63 6b 20 |ock | .TXT 'ock ' 00020b9a 66 61 69 6c |fail | .TXT 'fail' 00020b9e 46 6f 72 6d |Form | .TXT 'Form' 00020ba2 61 74 20 65 |at e | .TXT 'at e' 00020ba6 72 72 6f 72 |rror | .TXT 'rror' 00020baa 52 65 67 69 73 74 65 72 |Register| .TXT 'Register modification refused ' 00020bc8 49 6c 6c 65 |Ille | .TXT 'Ille' 00020bcc 67 61 6c 20 |gal | .TXT 'gal ' 00020bd0 66 75 6e 63 |func | .TXT 'func' 00020bd4 74 69 6f 6e |tion | .TXT 'tion' 00020bd8 42 61 64 20 73 65 63 74 |Bad sect| .TXT 'Bad sector' 00020be2 53 65 65 6b 20 69 6e 63 |Seek inc| .TXT 'Seek incomplete ' 00020bf2 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid command ' 00020c02 4c 6f 73 73 20 6f 66 20 |Loss of | .TXT 'Loss of system clock' 00020c16 4c 6f 73 73 20 6f 66 20 |Loss of | .TXT 'Loss of bit clock ' 00020c28 44 65 76 69 |Devi | .TXT 'Devi' 00020c2c 63 65 20 63 |ce c | .TXT 'ce c' 00020c30 68 65 63 6b |heck | .TXT 'heck' 00020c34 53 6b 69 70 20 73 65 63 |Skip sec| .TXT 'Skip sector error ' 00020c46 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder => ' 00020c52 2c 20 54 72 61 63 6b 20 |, Track | .TXT ', Track =>' 00020c5c 2c 20 53 65 63 74 6f 72 |, Sector| .TXT ', Sector => ' 00020c68 45 72 72 6f 72 20 77 68 |Error wh| .TXT 'Error while reading disk error status ' 00020c8e 54 6f 6f 20 6d 61 6e 79 |Too many| .TXT 'Too many defects (2048) to handle ' 00020cb0 66 61 69 6c 75 72 65 20 |failure | .TXT 'failure reading defect map from disk' 00020cd4 46 6c 61 67 67 69 6e 67 |Flagging| .TXT 'Flagging bad blocks.' 00020ce8 20 62 61 64 20 62 6c 6f | bad blo| .TXT ' bad blocks flagged.' 00020cfc 44 65 66 65 63 74 20 65 |Defect e| .TXT 'Defect entries exceeds maximum permitted' 00020d24 20 64 65 66 65 63 74 20 | defect | .TXT ' defect table entries used,_' 00020d40 20 61 76 61 69 6c 61 62 | availab| .TXT ' available defect entries remain. ' 00020d62 46 6f 72 6d 61 74 |Format | .XXX[0x6] 00020d68 74 69 6e 67 20 74 68 65 |ting the| .XXX[0x28] 00020d70 20 64 72 69 76 65 20 77 | drive w| 00020d78 69 6c 6c 20 74 61 6b 65 |ill take| 00020d80 20 61 62 6f 75 74 20 31 | about 1| 00020d88 30 20 6d 69 6e 75 74 65 |0 minute| 00020d90 73 2e |s. | .XXX[0x2] 00020d92 46 6f 72 6d 61 74 20 66 |Format f| .TXT 'Format failed!' 00020da0 4d 4f 44 45 20 53 45 4c |MODE SEL| .TXT 'MODE SELECT PAGE 3 FAILED ' 00020dba 4d 4f 44 45 20 53 45 4c |MODE SEL| .TXT 'MODE SELECT PAGE 4 FAILED ' 00020dd4 46 6f 72 6d 61 74 74 69 |Formatti| .TXT 'Formatting the drive will take about 5 minutes. ' 00020e04 46 6f 72 6d 61 74 74 69 |Formatti| .TXT 'Formatting the drive will take about 6 minutes. ' 00020e34 46 6f 72 6d 61 74 74 69 |Formatti| .TXT 'Formatting the drive will take about 18 minutes.' 00020e64 46 6f 72 6d 61 74 74 69 |Formatti| .TXT 'Formatting the drive will take about 20 minutes.' 00020e94 46 6f 72 6d 61 74 74 69 |Formatti| .TXT 'Formatting the drive will take about 35 minutes.' 00020ec4 54 68 65 20 66 6f 72 6d |The form| .TXT 'The format time for foreign drives is unknown.' 00020ef2 46 6f 72 6d 61 74 74 69 |Formatti| .TXT 'Formatting the drive will take about_ ' 00020f18 46 6f 72 6d 61 74 74 69 |Formatti| .TXT 'Formatting the drive will take less than 1 minute.' 00020f4a 46 6f 72 6d 61 74 74 69 |Formatti| .TXT 'Formatting the drive will take about 3 minutes. ' 00020f7a 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you wish to skip formatting the server disk partition' 00020fb2 20 6d 69 6e 75 74 65 28 | minute(| .TXT ' minute(s). ' 00020fbe 50 72 65 76 69 6f 75 73 |Previous| .TXT 'Previously detected bad block at_ ' 00020fe0 50 72 65 76 69 6f 75 73 |Previous| .TXT 'Previously undetected bad block at_ ' 00021004 42 61 64 20 62 6c 6f 63 |Bad bloc| .TXT 'Bad block file is full, aborting! ' 00021026 44 69 73 6b 20 65 72 72 |Disk err| .TXT 'Disk error on cylinder zero, track zero. Aborting! ' 0002105a 44 65 74 65 63 74 65 64 |Detected| .TXT 'Detected program error, operation will overflow disk size ' 00021094 66 69 78 75 70 20 61 66 |fixup af| .TXT 'fixup after error failed, operation will overflow disk size ' 000210d0 43 79 6c 69 6e 64 65 72 |Cylinder| .XXX[0x28] 000210d8 3d 20 2c 20 20 54 72 61 |= , Tra| 000210e0 63 6b 3d 20 2c 20 20 53 |ck= , S| 000210e8 65 63 74 6f 72 3d 2c 20 |ector=, | 000210f0 20 43 6f 75 6e 74 3d 20 | Count= | 000210f8 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder= ' 00021102 2c 20 20 54 72 61 |, Tra | .XXX[0x6] 00021108 63 6b 3d 20 |ck= | .XXX[0x4] 0002110c 2c 20 20 53 65 63 74 6f |, Secto| .TXT ', Sector=' 00021116 2c 20 |, | .XXX[0x2] 00021118 20 43 6f 75 6e 74 3d 20 | Count= | .XXX[0x8] 00021120 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder_ ' 0002112a 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder= ' 00021134 2c 20 20 54 |, T | .XXX[0x4] 00021138 72 61 63 6b 3d 20 |rack= | .XXX[0x6] 0002113e 2c 20 20 53 65 63 74 6f |, Secto| .TXT ', Sector=' 00021148 2c 20 20 43 6f 75 6e 74 |, Count| .XXX[0x8] 00021150 3d 20 |= | .XXX[0x2] 00021152 41 20 72 65 61 64 20 70 |A read p| .TXT 'A read pass takes about _ ' 0002116c 41 20 77 72 69 74 65 20 |A write | .TXT 'A write pass takes about_ ' 00021186 53 68 61 6c 6c 20 49 20 |Shall I | .TXT 'Shall I perform a surface analysis' 000211a8 48 6f 77 20 6d 61 6e 79 |How many| .TXT 'How many passes of surface analysis :_' 000211ce 52 65 70 6f 72 74 20 61 |Report a| .TXT 'Report all errors (as opposed to only new errors) ' 00021200 54 68 69 73 20 77 69 6c |This wil| .TXT 'This will not verify disk data integrity, do you wish to proceed? ' 00021242 3f 3f 3f 3f 3f 3f |?????? | .XXX[0x6] 00021248 31 30 3f 3f 32 36 3f 3f |10??26??| .XXX[0x10] 00021250 3f 3f 3f 3f 3f 3f 3f 3f |????????| 00021258 32 34 |24 | .XXX[0x2] 0002125a 20 6d 69 6e 75 74 65 73 | minutes| .TXT ' minutes. ' 00021264 20 6d 69 6e 75 74 65 73 | minutes| .TXT ' minutes. ' 0002126e 20 6d 69 6e 75 74 65 73 | minutes| .TXT ' minutes. ' 00021278 20 6d 69 6e 75 74 65 73 | minutes| .TXT ' minutes. ' 00021282 57 72 69 74 65 20 70 61 |Write pa| .TXT 'Write pass_ ' 0002128e 20 63 6f 6d | com | .TXT ' com' 00021292 70 6c 65 74 |plet | .TXT 'plet' 00021296 65 2e 20 5f |e. _ | .TXT 'e. _' 0002129a 52 65 61 64 20 70 61 73 |Read pas| .TXT 'Read pass _ ' 000212a6 20 63 6f 6d | com | .TXT ' com' 000212aa 70 6c 65 74 |plet | .TXT 'plet' 000212ae 65 2e 20 5f |e. _ | .TXT 'e. _' 000212b2 20 64 65 66 65 63 74 20 | defect | .TXT ' defect entries expunged. ' 000212cc 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to specify new disk limits (WILL DESTROY DATA)' 00021306 45 6e 74 65 72 20 6c 61 |Enter la| .TXT 'Enter last cylinder to be used by the DFS [ Hint =>_' 0002133a 45 6e 74 65 72 20 66 69 |Enter fi| .TXT 'Enter first cylinder to be used for read/write diagnostics [ Hint =>_ ' 00021380 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to build a diagnostic file system on this unit' 000213ba 43 61 6e 27 74 20 77 72 |Can't wr| .TXT 'Can't write BOOT label, aborting! ' 000213dc 43 61 6e 27 74 20 77 72 |Can't wr| .TXT 'Can't write bad block file, aborting! ' 00021402 43 61 6e 27 74 20 77 72 |Can't wr| .TXT 'Can't write VOLUME label, aborting! ' 00021426 43 61 6e 27 74 20 77 72 |Can't wr| .TXT 'Can't write DOS label, aborting!' 00021446 57 72 69 74 69 6e 67 20 |Writing | .TXT 'Writing bad block information.' 00021464 57 72 69 74 69 6e 67 20 |Writing | .TXT 'Writing boot label. ' 00021478 57 72 69 74 69 6e 67 20 |Writing | .TXT 'Writing DFS label.' 0002148a 64 72 69 76 65 20 6e 65 |drive ne| .TXT 'drive needs a new volume label' 000214a8 20 5d | ] | .TXT ' ]' 000214aa 3a 20 |: | .XXX[0x2] 000214ac 20 5d | ] | .TXT ' ]' 000214ae 3a 20 |: | .XXX[0x2] 000214b0 20 5d | ] | .TXT ' ]' 000214b2 3a 20 |: | .XXX[0x2] 000214b4 57 72 69 74 69 6e 67 20 |Writing | .TXT 'Writing shared label. ' 000214ca 43 61 6e 27 74 20 63 6f |Can't co| .TXT 'Can't construct free list due to disk errors, aborting! ' 00021502 43 6f 6e 73 74 72 75 63 |Construc| .TXT 'Constructing free list. ' 0002151a 57 72 69 74 69 6e 67 20 |Writing | .TXT 'Writing free list.' 0002152c 49 6e 73 75 66 66 69 63 |Insuffic| .TXT 'Insufficient disk space to allocate directory, aborting!' 00021564 43 61 6e 27 74 20 69 6e |Can't in| .TXT 'Can't initialize directory due to disk errors, aborting!' 0002159c 41 6c 6c 6f 63 61 74 69 |Allocati| .TXT 'Allocating and initializing directory.' 000215c2 43 61 6e 27 74 20 75 70 |Can't up| .TXT 'Can't update boot label due to disk errors, aborting! ' 000215f8 4b 45 52 4e 45 4c 5f 30 |KERNEL_0| .XXX[0xd8] 00021600 2e 4d 32 30 30 20 20 20 |.M200 | 00021608 20 20 20 20 4b 45 52 4e | KERN| 00021610 45 4c 5f 31 2e 4d 32 30 |EL_1.M20| 00021618 30 20 20 20 20 20 20 20 |0 | 00021620 4b 45 52 4e 45 4c 5f 32 |KERNEL_2| 00021628 2e 4d 32 30 30 20 20 20 |.M200 | 00021630 20 20 20 20 46 53 5f 30 | FS_0| 00021638 2e 4d 32 30 30 20 20 20 |.M200 | 00021640 20 20 20 20 20 20 20 20 | | 00021648 46 53 5f 31 2e 4d 32 30 |FS_1.M20| 00021650 30 20 20 20 20 20 20 20 |0 | 00021658 20 20 20 20 46 53 5f 32 | FS_2| 00021660 2e 4d 32 30 30 20 20 20 |.M200 | 00021668 20 20 20 20 20 20 20 20 | | 00021670 50 52 4f 47 52 41 4d 5f |PROGRAM_| 00021678 30 2e 4d 32 30 30 20 20 |0.M200 | 00021680 20 20 20 20 50 52 4f 47 | PROG| 00021688 52 41 4d 5f 31 2e 4d 32 |RAM_1.M2| 00021690 30 30 20 20 20 20 20 20 |00 | 00021698 50 52 4f 47 52 41 4d 5f |PROGRAM_| 000216a0 32 2e 4d 32 30 30 20 20 |2.M200 | 000216a8 20 20 20 20 44 46 53 5f | DFS_| 000216b0 42 4f 4f 54 53 54 52 41 |BOOTSTRA| 000216b8 50 2e 4d 32 30 30 20 20 |P.M200 | 000216c0 45 52 52 4f 52 5f 4c 4f |ERROR_LO| 000216c8 47 20 20 20 20 20 20 20 |G | 000216d0 20 20 20 20 | | .XXX[0x4] 000216d4 43 72 65 61 74 69 6e 67 |Creating| .TXT 'Creating predefined files.' 000216ee 74 68 65 20 65 72 72 6f |the erro| .TXT 'the error above was fatal ' 00021708 4d 6f 64 65 6c 20 73 70 |Model sp| .TXT 'Model specific DFS_BOOTSTRAP is missing, the disk may not be bootable.' 0002174e 4d 34 30 30 5f 44 46 53 |M400_DFS| .TXT 'M400_DFS_BOOTSTRAP.M200 ' 00021766 4d 34 30 30 5f 44 46 53 |M400_DFS| .TXT 'M400_DFS_BOOTSTRAP.M200 ' 0002177e 44 46 53 5f 42 4f 4f 54 |DFS_BOOT| .TXT 'DFS_BOOTSTRAP.M200' 00021790 4d 32 30 30 5f 44 46 53 |M200_DFS| .TXT 'M200_DFS_BOOTSTRAP.M200 ' 000217a8 4d 32 30 30 5f 44 46 53 |M200_DFS| .TXT 'M200_DFS_BOOTSTRAP.M200 ' 000217c0 44 46 53 5f 42 4f 4f 54 |DFS_BOOT| .TXT 'DFS_BOOTSTRAP.M200' 000217d2 4d 6f 64 65 6c 20 73 70 |Model sp| .TXT 'Model specific IOP kernel(s) are missing, the disk may not be bootable. ' 0002181a 4d 33 30 30 43 5f 4b 45 |M300C_KE| .TXT 'M300C_KERNEL_0.M200 ' 0002182e 4d 33 30 30 43 5f 4b 45 |M300C_KE| .TXT 'M300C_KERNEL_1.M200 ' 00021842 4d 33 30 30 43 5f 4b 45 |M300C_KE| .TXT 'M300C_KERNEL_2.M200 ' 00021856 4d 33 30 30 43 5f 4b 45 |M300C_KE| .TXT 'M300C_KERNEL_0.M200 ' 0002186a 4b 45 52 4e 45 4c 5f 30 |KERNEL_0| .TXT 'KERNEL_0.M200 ' 00021878 4d 33 30 30 43 5f 4b 45 |M300C_KE| .TXT 'M300C_KERNEL_1.M200 ' 0002188c 4b 45 52 4e 45 4c 5f 31 |KERNEL_1| .TXT 'KERNEL_1.M200 ' 0002189a 4d 33 30 30 43 5f 4b 45 |M300C_KE| .TXT 'M300C_KERNEL_2.M200 ' 000218ae 4b 45 52 4e 45 4c 5f 32 |KERNEL_2| .TXT 'KERNEL_2.M200 ' 000218bc 4d 33 30 30 53 5f 4b 45 |M300S_KE| .TXT 'M300S_KERNEL_0.M200 ' 000218d0 4d 33 30 30 53 5f 4b 45 |M300S_KE| .TXT 'M300S_KERNEL_1.M200 ' 000218e4 4d 33 30 30 53 5f 4b 45 |M300S_KE| .TXT 'M300S_KERNEL_2.M200 ' 000218f8 4d 33 30 30 53 5f 4b 45 |M300S_KE| .TXT 'M300S_KERNEL_0.M200 ' 0002190c 4b 45 52 4e 45 4c 5f 30 |KERNEL_0| .TXT 'KERNEL_0.M200 ' 0002191a 4d 33 30 30 53 5f 4b 45 |M300S_KE| .TXT 'M300S_KERNEL_1.M200 ' 0002192e 4b 45 52 4e 45 4c 5f 31 |KERNEL_1| .TXT 'KERNEL_1.M200 ' 0002193c 4d 33 30 30 53 5f 4b 45 |M300S_KE| .TXT 'M300S_KERNEL_2.M200 ' 00021950 4b 45 52 4e 45 4c 5f 32 |KERNEL_2| .TXT 'KERNEL_2.M200 ' 0002195e 4d 34 30 30 43 5f 4b 45 |M400C_KE| .TXT 'M400C_KERNEL_0.M200 ' 00021972 4d 34 30 30 43 5f 4b 45 |M400C_KE| .TXT 'M400C_KERNEL_1.M200 ' 00021986 4d 34 30 30 43 5f 4b 45 |M400C_KE| .TXT 'M400C_KERNEL_2.M200 ' 0002199a 4d 34 30 30 43 5f 4b 45 |M400C_KE| .TXT 'M400C_KERNEL_0.M200 ' 000219ae 4b 45 52 4e 45 4c 5f 30 |KERNEL_0| .TXT 'KERNEL_0.M200 ' 000219bc 4d 34 30 30 43 5f 4b 45 |M400C_KE| .TXT 'M400C_KERNEL_1.M200 ' 000219d0 4b 45 52 4e 45 4c 5f 31 |KERNEL_1| .TXT 'KERNEL_1.M200 ' 000219de 4d 34 30 30 43 5f 4b 45 |M400C_KE| .TXT 'M400C_KERNEL_2.M200 ' 000219f2 4b 45 52 4e 45 4c 5f 32 |KERNEL_2| .TXT 'KERNEL_2.M200 ' 00021a00 4d 34 30 30 53 5f 4b 45 |M400S_KE| .TXT 'M400S_KERNEL_0.M200 ' 00021a14 4d 34 30 30 53 5f 4b 45 |M400S_KE| .TXT 'M400S_KERNEL_1.M200 ' 00021a28 4d 34 30 30 53 5f 4b 45 |M400S_KE| .TXT 'M400S_KERNEL_2.M200 ' 00021a3c 4d 34 30 30 53 5f 4b 45 |M400S_KE| .TXT 'M400S_KERNEL_0.M200 ' 00021a50 4b 45 52 4e 45 4c 5f 30 |KERNEL_0| .TXT 'KERNEL_0.M200 ' 00021a5e 4d 34 30 30 53 5f 4b 45 |M400S_KE| .TXT 'M400S_KERNEL_1.M200 ' 00021a72 4b 45 52 4e 45 4c 5f 31 |KERNEL_1| .TXT 'KERNEL_1.M200 ' 00021a80 4d 34 30 30 53 5f 4b 45 |M400S_KE| .TXT 'M400S_KERNEL_2.M200 ' 00021a94 4b 45 52 4e 45 4c 5f 32 |KERNEL_2| .TXT 'KERNEL_2.M200 ' 00021aa2 4d 32 30 30 5f 4b 45 52 |M200_KER| .TXT 'M200_KERNEL_0.M200' 00021ab4 4d 32 30 30 5f 4b 45 52 |M200_KER| .TXT 'M200_KERNEL_1.M200' 00021ac6 4d 32 30 30 5f 4b 45 52 |M200_KER| .TXT 'M200_KERNEL_2.M200' 00021ad8 4d 32 30 30 5f 4b 45 52 |M200_KER| .TXT 'M200_KERNEL_0.M200' 00021aea 4b 45 52 4e 45 4c 5f 30 |KERNEL_0| .TXT 'KERNEL_0.M200 ' 00021af8 4d 32 30 30 5f 4b 45 52 |M200_KER| .TXT 'M200_KERNEL_1.M200' 00021b0a 4b 45 52 4e 45 4c 5f 31 |KERNEL_1| .TXT 'KERNEL_1.M200 ' 00021b18 4d 32 30 30 5f 4b 45 52 |M200_KER| .TXT 'M200_KERNEL_2.M200' 00021b2a 4b 45 52 4e 45 4c 5f 32 |KERNEL_2| .TXT 'KERNEL_2.M200 ' 00021b38 54 61 70 65 20 64 72 69 |Tape dri| .TXT 'Tape drive unit number :_ ' 00021b52 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to display filenames as they are loaded ' 00021b86 77 61 69 74 69 6e 67 20 |waiting | .TXT 'waiting for tape to rewind after booting' 00021bae 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to load files into the diagnostic file system on this unit' 00021bf4 46 53 5f 55 |FS_U | .TXT 'FS_U' 00021bf8 49 4e 49 54 |INIT | .TXT 'INIT' 00021bfc 20 65 72 72 | err | .TXT ' err' 00021c00 6f 72 3a 5f |or:_ | .TXT 'or:_' 00021c04 6c 61 73 74 20 44 46 53 |last DFS| .TXT 'last DFS cylinder =_' 00021c18 2c 20 66 69 72 73 74 20 |, first | .TXT ', first DIAG cylinder =_' 00021c30 74 68 65 20 65 72 72 6f |the erro| .TXT 'the error was fatal ' 00021c44 74 68 65 20 65 72 72 6f |the erro| .TXT 'the error was fatal ' 00021c58 20 4d 61 6e 75 66 61 63 | Manufac| .TXT ' Manufacturer and_' 00021c6a 20 55 73 65 72 20 62 61 | User ba| .TXT ' User bad blocks. ' 00021c7c 20 64 65 66 65 63 74 20 | defect | .TXT ' defect table entries used,_' 00021c98 20 61 76 61 69 6c 61 62 | availab| .TXT ' available defect entries remain. ' 00021cba 55 53 52 20 64 65 66 65 |USR defe| .TXT 'USR defect at (cylinder/track/sector)_' 00021ce0 4d 46 47 20 64 65 66 65 |MFG defe| .TXT 'MFG defect at (cylinder/track/sector)_' 00021d06 20 41 4c 4c | ALL | .TXT ' ALL' 00021d0a 20 41 4c 4c | ALL | .TXT ' ALL' 00021d0e 2a 2a 20 43 6f 75 6c 64 |** Could| .TXT '** Could not restore the hardware config file because there was a problem ' 00021d58 73 61 76 69 6e 67 20 69 |saving i| .TXT 'saving it before the DFS rebuild. You will have to run CEDIT to recreate it ' 00021da4 2a 2a 20 43 6f 75 6c 64 |** Could| .TXT '** Could not restore the hardware config file because of the unexpected ' 00021dec 65 72 72 6f 72 20 64 65 |error de| .TXT 'error described above. You will have to run CEDIT to recreate it' 00021e2c 2a 2a 20 43 6f 75 6c 64 |** Could| .TXT '** Could not restore the TCP_IP_HOST_ID file because there was a problem' 00021e74 73 61 76 69 6e 67 20 69 |saving i| .TXT 'saving it before the DFS rebuild. Answer this question to recreate it:' 00021eba 45 6e 74 65 72 20 74 68 |Enter th| .TXT 'Enter this system's TCP/IP address [255.255.255.255] :_ ' 00021ef2 2a 2a 20 43 6f 75 6c 64 |** Could| .TXT '** Could not restore the TCP_IP_HOST_ID file because of the unexpected' 00021f38 65 72 72 6f 72 20 64 65 |error de| .TXT 'error described above. You will have to recreate it by hand ' 00021f74 32 35 35 2e 32 35 35 2e |255.255.| .TXT '255.255.255.255 ' 00021f84 52 65 73 74 6f 72 65 64 |Restored| .TXT 'Restored TCP_ID_HOST_ID file containing_' 00021fac 54 68 69 73 20 64 69 73 |This dis| .TXT 'This disk does not have a DFS currently installed ' 00021fde 57 41 52 4e 49 4e 47 3a |WARNING:| .TXT 'WARNING: you should boot this from tape when using this option' 0002201c 74 68 65 20 65 72 72 6f |the erro| .TXT 'the error above is fatal' 00022034 46 53 5f 55 |FS_U | .TXT 'FS_U' 00022038 49 4e 49 54 |INIT | .TXT 'INIT' 0002203c 20 65 72 72 | err | .TXT ' err' 00022040 6f 72 3a 5f |or:_ | .TXT 'or:_' 00022044 54 68 65 20 44 46 53 20 |The DFS | .TXT 'The DFS files have been reloaded' 00022064 55 50 44 41 54 45 5f 45 |UPDATE_E| .TXT 'UPDATE_EEPROM ' 00022072 49 4e 53 54 41 4c 4c 20 |INSTALL | .TXT 'INSTALL ' 0002207a 2a 2a 20 61 62 6e 6f 72 |** abnor| .TXT '** abnornal UPDATE_EEPROM abort: the EEPROMs may not be updated **' 000220bc 49 74 20 6d 61 79 20 62 |It may b| .TXT 'It may be necessary to replace the IOC/RESHA EEPROMs to boot the system ' 00022104 74 68 65 20 65 72 72 6f |the erro| .TXT 'the error above was fatal ' 0002211e 4f 70 74 69 |Opti | .TXT 'Opti' 00022122 6f 6e 73 20 |ons | .TXT 'ons ' 00022126 61 72 65 3a |are: | .TXT 'are:' 0002212a 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => Exit ' 00022138 20 20 20 20 31 20 3d 3e | 1 =>| .TXT ' 1 => Initialize disk (for experts only) ' 00022164 20 20 20 20 32 20 3d 3e | 2 =>| .TXT ' 2 => Initialize disk, drop USR defects (internal use only)' 000221a2 20 20 20 20 33 20 3d 3e | 3 =>| .TXT ' 3 => Show MFG and USR bad block locations ' 000221d0 20 20 20 20 34 20 3d 3e | 4 =>| .TXT ' 4 => Show only USR bad block locations' 000221fa 20 20 20 20 35 20 3d 3e | 5 =>| .TXT ' 5 => Install new DFS only ' 00022218 20 20 20 20 36 20 3d 3e | 6 =>| .TXT ' 6 => Show bad block count and DOS limits' 00022244 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option :_ ' 00022254 4d 46 47 20 62 61 64 20 |MFG bad | .TXT 'MFG bad block locations can not be displayed for Model x00C ' 00022290 44 6f 6e 65 21 20 |Done! | .XXX[0x6] 00022296 42 6f 6f 74 20 64 69 73 |Boot dis| .TXT 'Boot disk has been rebuilt or the IOP was booted from tape. ' 000222d2 59 6f 75 20 6d 75 73 74 |You must| .TXT 'You must crash the machine to exit. ' 000222f6 00 00 | | .XXX[0x2] 000222f8 00 00 03 4a 14 30 03 4a | J 0 J| .XXX[0x80] 00022300 14 42 03 37 0a 42 02 70 | B 7 B p| 00022308 1b 42 02 e9 1b 42 00 00 | B B | 00022310 00 00 06 77 0f 38 06 77 | w 8 w| 00022318 0f 5a 07 68 0f 4c 00 00 | Z h L | 00022320 00 00 00 00 00 00 00 00 | | 00022328 00 35 00 55 00 47 00 00 | 5 U G | 00022330 00 00 00 00 00 08 00 00 | | 00022338 00 00 00 00 04 00 03 16 | | 00022340 00 0f 00 00 00 00 00 2d | -| 00022348 00 00 04 00 00 01 00 00 | | 00022350 00 00 40 00 00 00 00 00 | @ | 00022358 00 00 08 00 00 00 00 00 | | 00022360 00 04 00 04 12 00 00 00 | | 00022368 0f 00 00 00 00 00 00 00 | | 00022370 00 00 00 00 00 00 00 00 | | 00022378 00 00 | | .XXX[0x2] 0002237a b6 db ed b6 aa aa | | .XXX[0x6] 00022380 3f 3f 3f 3f 3f 3f 31 30 |??????10| .XXX[0x148] 00022388 3f 3f 32 36 3f 3f 3f 3f |??26????| 00022390 3f 3f 3f 3f 3f 3f 32 34 |??????24| 00022398 4b 45 52 4e 45 4c 5f 30 |KERNEL_0| 000223a0 2e 4d 32 30 30 20 20 20 |.M200 | 000223a8 20 20 20 20 01 01 01 00 | | 000223b0 00 00 00 3f 4b 45 52 4e | ?KERN| 000223b8 45 4c 5f 31 2e 4d 32 30 |EL_1.M20| 000223c0 30 20 20 20 20 20 20 20 |0 | 000223c8 01 01 01 00 00 01 00 3f | ?| 000223d0 4b 45 52 4e 45 4c 5f 32 |KERNEL_2| 000223d8 2e 4d 32 30 30 20 20 20 |.M200 | 000223e0 20 20 20 20 01 01 01 00 | | 000223e8 00 02 00 3f 46 53 5f 30 | ?FS_0| 000223f0 2e 4d 32 30 30 20 20 20 |.M200 | 000223f8 20 20 20 20 20 20 20 20 | | 00022400 01 00 00 00 00 03 00 40 | @| 00022408 46 53 5f 31 2e 4d 32 30 |FS_1.M20| 00022410 30 20 20 20 20 20 20 20 |0 | 00022418 20 20 20 20 01 00 00 00 | | 00022420 00 04 00 40 46 53 5f 32 | @FS_2| 00022428 2e 4d 32 30 30 20 20 20 |.M200 | 00022430 20 20 20 20 20 20 20 20 | | 00022438 01 00 00 00 00 05 00 40 | @| 00022440 50 52 4f 47 52 41 4d 5f |PROGRAM_| 00022448 30 2e 4d 32 30 30 20 20 |0.M200 | 00022450 20 20 20 20 01 01 00 00 | | 00022458 00 06 00 80 50 52 4f 47 | PROG| 00022460 52 41 4d 5f 31 2e 4d 32 |RAM_1.M2| 00022468 30 30 20 20 20 20 20 20 |00 | 00022470 01 01 00 00 00 07 00 80 | | 00022478 50 52 4f 47 52 41 4d 5f |PROGRAM_| 00022480 32 2e 4d 32 30 30 20 20 |2.M200 | 00022488 20 20 20 20 01 01 00 00 | | 00022490 00 08 00 80 44 46 53 5f | DFS_| 00022498 42 4f 4f 54 53 54 52 41 |BOOTSTRA| 000224a0 50 2e 4d 32 30 30 20 20 |P.M200 | 000224a8 00 00 00 00 00 62 00 01 | b | 000224b0 45 52 52 4f 52 5f 4c 4f |ERROR_LO| 000224b8 47 20 20 20 20 20 20 20 |G | 000224c0 20 20 20 20 00 00 00 00 | | 000224c8 00 63 01 01 | c | .XXX[0x4] 000224cc ; -------------------------------------------------------------------------------------- 000224cc ; OMSI PASCAL Function 000224cc ; <LVAR 0x008 4(r)> 000224cc ; -------------------------------------------------------------------------------------- 000224cc 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 000224d0 bf d5 | | CMPA.L (A5),A7 000224d2 62 06 |b | BHI 0x224da 000224d4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000224d8 4e 76 |Nv | TRAPV 000224da de fc 00 4e | N | ADDA.W #0x4e,A7 000224de 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 000224e2 72 01 |r | MOVEQ.L #0x01,D1 000224e4 41 fa dc 76 |A v | LEA.L 0x2015c,A0 000224e8 70 04 |p | MOVEQ.L #0x04,D0 000224ea 3f 20 |? | MOVE.W -(A0),-(A7) 000224ec 51 c8 ff fc |Q | DBF D0,0x224ea 000224f0 51 4f |QO | SUBQ.L #0x8,A7 000224f2 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000224f6 3f 01 |? | MOVE.W D1,-(A7) 000224f8 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000224fc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022502 58 4f |XO | ADDQ.L #0x4,A7 00022504 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00022508 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002250e 50 4f |PO | ADDQ.L #0x8,A7 00022510 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022516 de fc 00 0e | | ADDA.W #0xe,A7 0002251a 4a 39 00 02 ee 1a |J9 | TST.B 0x2ee1a 00022520 67 34 |g4 | BEQ 0x22556 00022522 9e fc 00 2e | . | SUBA.W #0x2e,A7 00022526 20 4f | O | MOVEA.L A7,A0 00022528 43 fa dc 32 |C 2 | LEA.L 0x2015c,A1 0002252c 70 2c |p, | MOVEQ.L #0x2c,D0 0002252e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022530 51 c8 ff fc |Q | DBF D0,0x2252e 00022534 59 4f |YO | SUBQ.L #0x4,A7 00022536 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002253a 3f 01 |? | MOVE.W D1,-(A7) 0002253c 3f 3c 00 2d |?< - | MOVE.W #0x2d,-(A7) 00022540 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022546 50 4f |PO | ADDQ.L #0x8,A7 00022548 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002254e de fc 00 32 | 2 | ADDA.W #0x32,A7 00022552 60 fe |` | BRA 0x22552 00022554 60 0e |` | .XXX[0x2] 00022556 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 0002255a 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 0002255e 4e f9 00 02 90 c8 |N | JMP 0x290c8 00022564 4c df 03 03 |L | .XXX[0x4] 00022568 4e 5e 4e 75 |N^Nu | .XXX[0x4] 0002256c ; -------------------------------------------------------------------------------------- 0002256c ; OMSI PASCAL Function 0002256c ; <LVAR 0x00c @ 4(r)> 0002256c ; <LVAR 0x008 @ 4(r)> 0002256c ; <LVAR -0x004 @ 1(r)> 0002256c ; <LVAR -0x404 @> 0002256c ; <LVAR -0x410 @ 4(r)> 0002256c ; <LVAR -0x414 @ 4(r)> 0002256c ; -------------------------------------------------------------------------------------- 0002256c 4e 56 fb 98 |NV | LINK.W A6,#0xfb98 00022570 bf d5 | | CMPA.L (A5),A7 00022572 62 06 |b | BHI 0x2257a 00022574 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022578 4e 76 |Nv | TRAPV 0002257a de fc 00 54 | T | ADDA.W #0x54,A7 0002257e 48 e7 f7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D3+D2+D1+D0,-(A7) 00022582 45 ee ff fc |E | LEA.L (A6-0x4),A2 00022586 47 ee fb ec |G | LEA.L (A6-0x414),A3 0002258a 49 ee fb f0 |I | LEA.L (A6-0x410),A4 0002258e 72 01 |r | MOVEQ.L #0x01,D1 00022590 74 14 |t | MOVEQ.L #0x14,D2 00022592 76 10 |v | MOVEQ.L #0x10,D3 00022594 41 ee fb fc |A | LEA.L (A6-0x404),A0 00022598 2f 08 |/ | MOVE.L A0,-(A7) 0002259a 2c 1f |, | MOVE.L (A7)+,D6 0002259c 7a 01 |z | MOVEQ.L #0x01,D5 0002259e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000225a2 42 27 |B' | CLR.B -(A7) 000225a4 1f 01 | | MOVE.B D1,-(A7) 000225a6 48 78 00 00 |Hx | PEA.L 0x0 000225aa 48 52 |HR | PEA.L (A2) 000225ac 48 53 |HS | PEA.L (A3) 000225ae 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000225b4 de c2 | | ADDA.W D2,A7 000225b6 4a 12 |J | TST.B (A2) 000225b8 67 04 |g | BEQ 0x225be 000225ba 60 00 00 fe |` | BRA 0x226ba 000225be 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000225c2 1f 05 | | MOVE.B D5,-(A7) 000225c4 1f 01 | | MOVE.B D1,-(A7) 000225c6 20 53 | S | MOVEA.L (A3),A0 000225c8 30 28 00 20 |0( | MOVE.W (A0+0x20),D0 000225cc 48 c0 |H | EXTW.L D0 000225ce 2f 00 |/ | MOVE.L D0,-(A7) 000225d0 48 52 |HR | PEA.L (A2) 000225d2 48 54 |HT | PEA.L (A4) 000225d4 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000225da de c2 | | ADDA.W D2,A7 000225dc 4a 12 |J | TST.B (A2) 000225de 67 04 |g | BEQ 0x225e4 000225e0 60 00 00 c4 |` | BRA 0x226a6 000225e4 20 54 | T | MOVEA.L (A4),A0 000225e6 22 53 |"S | MOVEA.L (A3),A1 000225e8 11 69 00 3a 00 3a | i : : | MOVE.B (A1+0x3a),(A0+0x3a) 000225ee 11 69 00 3b 00 3b | i ; ; | MOVE.B (A1+0x3b),(A0+0x3b) 000225f4 11 69 00 3c 00 3c | i < < | MOVE.B (A1+0x3c),(A0+0x3c) 000225fa 11 69 00 3d 00 3d | i = = | MOVE.B (A1+0x3d),(A0+0x3d) 00022600 10 29 00 3f | ) ? | MOVE.B (A1+0x3f),D0 00022604 02 28 00 fd 00 3f | ( ? | ANDI.B #0xfd,(A0+0x3f) 0002260a 02 00 00 02 | | ANDI.B #0x02,D0 0002260e 81 28 00 3f | ( ? | OR.B D0,(A0+0x3f) 00022612 10 29 00 3f | ) ? | MOVE.B (A1+0x3f),D0 00022616 02 28 00 fb 00 3f | ( ? | ANDI.B #0xfb,(A0+0x3f) 0002261c 02 00 00 04 | | ANDI.B #0x04,D0 00022620 81 28 00 3f | ( ? | OR.B D0,(A0+0x3f) 00022624 11 41 00 4c | A L | MOVE.B D1,(A0+0x4c) 00022628 30 28 00 20 |0( | MOVE.W (A0+0x20),D0 0002262c 53 40 |S@ | SUBQ.W #0x1,D0 0002262e 48 c0 |H | EXTW.L D0 00022630 2f 00 |/ | MOVE.L D0,-(A7) 00022632 7e 00 |~ | MOVEQ.L #0x00,D7 00022634 be 97 | | CMP.L (A7),D7 00022636 6e 58 |nX | BGT 0x22690 00022638 2f 13 |/ | MOVE.L (A3),-(A7) 0002263a 0c 87 00 00 40 00 | @ | CMPI.L #0x00004000,D7 00022640 63 02 |c | BLS 0x22644 00022642 4e 4f |NO | TRAP #15 00022644 3f 07 |? | MOVE.W D7,-(A7) 00022646 42 67 |Bg | CLR.W -(A7) 00022648 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 0002264c 1f 01 | | MOVE.B D1,-(A7) 0002264e 2f 06 |/ | MOVE.L D6,-(A7) 00022650 48 52 |HR | PEA.L (A2) 00022652 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 00022658 de c2 | | ADDA.W D2,A7 0002265a 4a 12 |J | TST.B (A2) 0002265c 67 04 |g | BEQ 0x22662 0002265e 58 4f |XO | ADDQ.L #0x4,A7 00022660 60 30 |`0 | BRA 0x22692 00022662 2f 14 |/ | MOVE.L (A4),-(A7) 00022664 0c 87 00 00 40 00 | @ | CMPI.L #0x00004000,D7 0002266a 63 02 |c | BLS 0x2266e 0002266c 4e 4f |NO | TRAP #15 0002266e 3f 07 |? | MOVE.W D7,-(A7) 00022670 42 67 |Bg | CLR.W -(A7) 00022672 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00022676 1f 01 | | MOVE.B D1,-(A7) 00022678 2f 06 |/ | MOVE.L D6,-(A7) 0002267a 48 52 |HR | PEA.L (A2) 0002267c 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 00022682 de c2 | | ADDA.W D2,A7 00022684 4a 12 |J | TST.B (A2) 00022686 67 04 |g | BEQ 0x2268c 00022688 58 4f |XO | ADDQ.L #0x4,A7 0002268a 60 06 |` | BRA 0x22692 0002268c 52 87 |R | ADDQ.L #0x1,D7 0002268e 68 a4 |h | BVC 0x22634 00022690 58 4f |XO | ADDQ.L #0x4,A7 00022692 42 27 |B' | CLR.B -(A7) 00022694 1f 01 | | MOVE.B D1,-(A7) 00022696 48 78 00 01 |Hx | PEA.L 0x1 0002269a 48 52 |HR | PEA.L (A2) 0002269c 48 54 |HT | PEA.L (A4) 0002269e 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000226a4 de c3 | | ADDA.W D3,A7 000226a6 42 27 |B' | CLR.B -(A7) 000226a8 1f 01 | | MOVE.B D1,-(A7) 000226aa 48 78 00 01 |Hx | PEA.L 0x1 000226ae 48 52 |HR | PEA.L (A2) 000226b0 48 53 |HS | PEA.L (A3) 000226b2 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000226b8 de c3 | | ADDA.W D3,A7 000226ba 48 6e 00 0c |Hn | PEA.L (A6+0xc) 000226be 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000226c4 58 4f |XO | ADDQ.L #0x4,A7 000226c6 48 6e 00 08 |Hn | PEA.L (A6+0x8) 000226ca 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000226d0 58 4f |XO | ADDQ.L #0x4,A7 000226d2 4c df 1f ef |L | MOVEM.L (A7)+,D0+D1+D2+D3+D5+D6+D7+A0+A1+A2+A3+A4 000226d6 4e 5e |N^ | UNLK A6 000226d8 4e 75 |Nu | RTS 000226da ; -------------------------------------------------------------------------------------- 000226da ; OMSI PASCAL Function 000226da ; <LVAR 0x00c 2(r)> 000226da ; <LVAR 0x008 4(r)> 000226da ; <LVAR -0x002 @ 1(r)> 000226da ; <LVAR -0x006 2(w)> 000226da ; <LVAR -0x008 2(w)> 000226da ; <LVAR -0x00a 2(r)> 000226da ; <LVAR -0x00c 2(r)> 000226da ; <LVAR -0x00e 2(w)> 000226da ; <LVAR -0x010 2(r)> 000226da ; <LVAR -0x012 @ 2(r)> 000226da ; -------------------------------------------------------------------------------------- 000226da 4e 56 ff 9c |NV | LINK.W A6,#0xff9c ; Spelunked 000226de bf d5 | | CMPA.L (A5),A7 000226e0 62 06 |b | BHI 0x226e8 000226e2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000226e6 4e 76 |Nv | TRAPV 000226e8 de fc 00 52 | R | ADDA.W #0x52,A7 000226ec 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 000226f0 42 6e ff ee |Bn | CLR.W (A6-0x12) 000226f4 42 6e ff f0 |Bn | CLR.W (A6-0x10) 000226f8 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe) 000226fe 42 6e ff f4 |Bn | CLR.W (A6-0xc) 00022702 42 6e ff f6 |Bn | CLR.W (A6-0xa) 00022706 30 39 00 02 95 f6 |09 | MOVE.W 0x295f6,D0 0002270c e1 40 | @ | ASL.W #0x8,D0 0002270e 06 40 00 0e | @ | ADDI.W #0x000e,D0 00022712 0c 40 ff ff | @ | CMPI.W #0xffff,D0 00022716 63 02 |c | BLS 0x2271a 00022718 4e 4f |NO | TRAP #15 0002271a 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 0002271e 3d 6e 00 0c ff fa |=n | MOVE.W (A6+0xc),(A6-0x6) 00022724 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022728 48 6e ff ee |Hn | PEA.L (A6-0x12) 0002272c 22 48 |"H | MOVEA.L A0,A1 0002272e 2f 09 |/ | MOVE.L A1,-(A7) 00022730 42 67 |Bg | CLR.W -(A7) 00022732 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00022738 50 4f |PO | ADDQ.L #0x8,A7 0002273a 42 57 |BW | CLR.W (A7) 0002273c 48 6e ff fe |Hn | PEA.L (A6-0x2) 00022740 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00022746 5c 4f |\O | ADDQ.L #0x6,A7 00022748 02 50 00 ff | P | ANDI.W #0x00ff,(A0) 0002274c 4a 2e ff fe |J. | TST.B (A6-0x2) 00022750 66 48 |fH | BNE 0x2279a 00022752 9e fc 00 32 | 2 | SUBA.W #0x32,A7 00022756 20 4f | O | MOVEA.L A7,A0 00022758 43 fa da 30 |C 0 | LEA.L 0x2018a,A1 0002275c 70 30 |p0 | MOVEQ.L #0x30,D0 0002275e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022760 51 c8 ff fc |Q | DBF D0,0x2275e 00022764 51 4f |QO | SUBQ.L #0x8,A7 00022766 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002276a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002276e 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 00022772 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022778 58 4f |XO | ADDQ.L #0x4,A7 0002277a 42 80 |B | CLR.L D0 0002277c 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 00022780 2f 00 |/ | MOVE.L D0,-(A7) 00022782 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022788 58 4f |XO | ADDQ.L #0x4,A7 0002278a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022790 50 4f |PO | ADDQ.L #0x8,A7 00022792 4e ba fd 38 |N 8 | JSR 0x224cc 00022796 de fc 00 36 | 6 | ADDA.W #0x36,A7 0002279a 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 0002279e 4e 5e |N^ | UNLK A6 000227a0 4e 75 |Nu | RTS 000227a2 ; -------------------------------------------------------------------------------------- 000227a2 ; OMSI PASCAL Function 000227a2 ; <LVAR 0x008 2(r)> 000227a2 ; <LVAR -0x004 @ 2(r)> 000227a2 ; <LVAR -0x006 @ 2(r)> 000227a2 ; <LVAR -0x008 @ 2(r)> 000227a2 ; <LVAR -0x00a @ 2(r)> 000227a2 ; <LVAR -0x00c @ 2(r)> 000227a2 ; <LVAR -0x00e 2(rw)> 000227a2 ; <LVAR -0x48a @> 000227a2 ; <LVAR -0x48e @ 2(r)> 000227a2 ; <LVAR -0x906 @> 000227a2 ; <LVAR -0x90a @> 000227a2 ; -------------------------------------------------------------------------------------- 000227a2 4e 56 f6 94 |NV | LINK.W A6,#0xf694 000227a6 bf d5 | | CMPA.L (A5),A7 000227a8 62 06 |b | BHI 0x227b0 000227aa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000227ae 4e 76 |Nv | TRAPV 000227b0 de fc 00 62 | b | ADDA.W #0x62,A7 000227b4 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000227b8 45 ee ff f2 |E | LEA.L (A6-0xe),A2 000227bc 47 f9 00 02 95 e8 |G | LEA.L 0x295e8,A3 000227c2 49 fa ff 16 |I | LEA.L 0x226da,A4 000227c6 24 3c 00 00 ff ff |$< | MOVE.L #0xffff,D2 000227cc 76 03 |v | MOVEQ.L #0x03,D3 000227ce 38 3c 00 ff |8< | MOVE.W #0xff,D4 000227d2 55 4f |UO | SUBQ.L #0x2,A7 000227d4 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 000227da 4a 1f |J | TST.B (A7)+ 000227dc 67 00 01 04 |g | BEQ 0x228e2 000227e0 34 ae 00 08 |4 | MOVE.W (A6+0x8),(A2) 000227e4 c7 52 | R | AND.W D3,(A2) 000227e6 30 3c 02 d0 |0< | MOVE.W #0x2d0,D0 000227ea d0 52 | R | ADD.W (A2),D0 000227ec b0 42 | B | CMP.W D2,D0 000227ee 63 02 |c | BLS 0x227f2 000227f0 4e 4f |NO | TRAP #15 000227f2 3f 00 |? | MOVE.W D0,-(A7) 000227f4 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000227f8 4e 94 |N | JSR (A4) 000227fa 5c 4f |\O | ADDQ.L #0x6,A7 000227fc 30 3c 03 50 |0< P | MOVE.W #0x350,D0 00022800 d0 52 | R | ADD.W (A2),D0 00022802 b0 42 | B | CMP.W D2,D0 00022804 63 02 |c | BLS 0x22808 00022806 4e 4f |NO | TRAP #15 00022808 3f 00 |? | MOVE.W D0,-(A7) 0002280a 48 6e ff f6 |Hn | PEA.L (A6-0xa) 0002280e 4e 94 |N | JSR (A4) 00022810 5c 4f |\O | ADDQ.L #0x6,A7 00022812 30 3c 01 d0 |0< | MOVE.W #0x1d0,D0 00022816 d0 52 | R | ADD.W (A2),D0 00022818 b0 42 | B | CMP.W D2,D0 0002281a 63 02 |c | BLS 0x2281e 0002281c 4e 4f |NO | TRAP #15 0002281e 3f 00 |? | MOVE.W D0,-(A7) 00022820 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00022824 4e 94 |N | JSR (A4) 00022826 5c 4f |\O | ADDQ.L #0x6,A7 00022828 30 3c 02 50 |0< P | MOVE.W #0x250,D0 0002282c d0 52 | R | ADD.W (A2),D0 0002282e b0 42 | B | CMP.W D2,D0 00022830 63 02 |c | BLS 0x22834 00022832 4e 4f |NO | TRAP #15 00022834 3f 00 |? | MOVE.W D0,-(A7) 00022836 48 6e ff fa |Hn | PEA.L (A6-0x6) 0002283a 4e 94 |N | JSR (A4) 0002283c 5c 4f |\O | ADDQ.L #0x6,A7 0002283e 30 3c 03 10 |0< | MOVE.W #0x310,D0 00022842 d0 52 | R | ADD.W (A2),D0 00022844 b0 42 | B | CMP.W D2,D0 00022846 63 02 |c | BLS 0x2284a 00022848 4e 4f |NO | TRAP #15 0002284a 3f 00 |? | MOVE.W D0,-(A7) 0002284c 48 6e ff fc |Hn | PEA.L (A6-0x4) 00022850 4e 94 |N | JSR (A4) 00022852 5c 4f |\O | ADDQ.L #0x6,A7 00022854 42 79 00 02 95 e2 |By | CLR.W 0x295e2 0002285a 42 80 |B | CLR.L D0 0002285c 30 2e ff fa |0. | MOVE.W (A6-0x6),D0 00022860 e1 80 | | ASL.L #0x8,D0 00022862 42 81 |B | CLR.L D1 00022864 32 2e ff f8 |2. | MOVE.W (A6-0x8),D1 00022868 d0 81 | | ADD.L D1,D0 0002286a b0 82 | | CMP.L D2,D0 0002286c 63 02 |c | BLS 0x22870 0002286e 4e 4f |NO | TRAP #15 00022870 33 c0 00 02 95 e4 |3 | MOVE.W D0,0x295e4 00022876 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 0002287a 41 84 |A | CHK.W D4,D0 0002287c 33 c0 00 02 95 e6 |3 | MOVE.W D0,0x295e6 00022882 30 2e ff f4 |0. | MOVE.W (A6-0xc),D0 00022886 41 84 |A | CHK.W D4,D0 00022888 36 80 |6 | MOVE.W D0,(A3) 0002288a 7c 03 || | MOVEQ.L #0x03,D6 0002288c 30 06 |0 | MOVE.W D6,D0 0002288e e5 40 | @ | ASL.W #0x2,D0 00022890 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 00022896 32 30 00 10 |20 | MOVE.W (A0+D0.W+#0x10),D1 0002289a b2 79 00 02 95 e4 | y | CMP.W 0x295e4,D1 000228a0 66 38 |f8 | BNE 0x228da 000228a2 42 81 |B | CLR.L D1 000228a4 12 30 00 12 | 0 | MOVE.B (A0+D0.W+#0x12),D1 000228a8 b2 79 00 02 95 e6 | y | CMP.W 0x295e6,D1 000228ae 66 2a |f* | BNE 0x228da 000228b0 42 81 |B | CLR.L D1 000228b2 12 30 00 13 | 0 | MOVE.B (A0+D0.W+#0x13),D1 000228b6 b2 53 | S | CMP.W (A3),D1 000228b8 67 1a |g | BEQ 0x228d4 000228ba 30 2e ff fc |0. | MOVE.W (A6-0x4),D0 000228be 0c 40 00 01 | @ | CMPI.W #0x0001,D0 000228c2 66 16 |f | BNE 0x228da 000228c4 30 06 |0 | MOVE.W D6,D0 000228c6 e3 40 | @ | ASL.W #0x1,D0 000228c8 41 fa fa 5c |A \ | LEA.L 0x22326,A0 000228cc 32 13 |2 | MOVE.W (A3),D1 000228ce b2 70 00 00 | p | CMP.W (A0+D0.W),D1 000228d2 66 06 |f | BNE 0x228da 000228d4 33 c6 00 02 95 e2 |3 | MOVE.W D6,0x295e2 000228da 53 46 |SF | SUBQ.W #0x1,D6 000228dc 6c ae |l | BGE 0x2288c 000228de 60 00 01 a4 |` | BRA 0x22a84 000228e2 7e 00 |~ | MOVEQ.L #0x00,D7 000228e4 34 ae 00 08 |4 | MOVE.W (A6+0x8),(A2) 000228e8 c7 52 | R | AND.W D3,(A2) 000228ea be 82 | | CMP.L D2,D7 000228ec 63 02 |c | BLS 0x228f0 000228ee 4e 4f |NO | TRAP #15 000228f0 3f 07 |? | MOVE.W D7,-(A7) 000228f2 48 6e fb 72 |Hn r | PEA.L (A6-0x48e) 000228f6 4e 94 |N | JSR (A4) 000228f8 5c 4f |\O | ADDQ.L #0x6,A7 000228fa 0c 87 00 00 04 77 | w | CMPI.L #0x00000477,D7 00022900 63 02 |c | BLS 0x22904 00022902 4e 4f |NO | TRAP #15 00022904 41 ee f6 f6 |A | LEA.L (A6-0x90a),A0 00022908 41 f0 78 00 |A x | LEA.L (A0+D7.L),A0 0002290c 30 2e fb 72 |0. r | MOVE.W (A6-0x48e),D0 00022910 41 84 |A | CHK.W D4,D0 00022912 11 40 04 80 | @ | MOVE.B D0,(A0+0x480) 00022916 52 87 |R | ADDQ.L #0x1,D7 00022918 0c 87 00 00 04 00 | | CMPI.L #0x00000400,D7 0002291e 66 ca |f | BNE 0x228ea 00022920 55 4f |UO | SUBQ.L #0x2,A7 00022922 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool 00022928 4a 1f |J | TST.B (A7)+ 0002292a 67 36 |g6 | BEQ 0x22962 0002292c be 82 | | CMP.L D2,D7 0002292e 63 02 |c | BLS 0x22932 00022930 4e 4f |NO | TRAP #15 00022932 3f 07 |? | MOVE.W D7,-(A7) 00022934 48 6e fb 72 |Hn r | PEA.L (A6-0x48e) 00022938 4e 94 |N | JSR (A4) 0002293a 5c 4f |\O | ADDQ.L #0x6,A7 0002293c 0c 87 00 00 04 77 | w | CMPI.L #0x00000477,D7 00022942 63 02 |c | BLS 0x22946 00022944 4e 4f |NO | TRAP #15 00022946 41 ee f6 f6 |A | LEA.L (A6-0x90a),A0 0002294a 41 f0 78 00 |A x | LEA.L (A0+D7.L),A0 0002294e 30 2e fb 72 |0. r | MOVE.W (A6-0x48e),D0 00022952 41 84 |A | CHK.W D4,D0 00022954 11 40 04 80 | @ | MOVE.B D0,(A0+0x480) 00022958 52 87 |R | ADDQ.L #0x1,D7 0002295a 0c 87 00 00 04 78 | x | CMPI.L #0x00000478,D7 00022960 66 ca |f | BNE 0x2292c 00022962 41 ee f6 fa |A | LEA.L (A6-0x906),A0 00022966 43 ee fb 76 |C v | LEA.L (A6-0x48a),A1 0002296a 30 3c 01 1d |0< | MOVE.W #0x11d,D0 0002296e 20 d9 | | MOVE.L (A1)+,(A0)+ 00022970 51 c8 ff fc |Q | DBF D0,0x2296e 00022974 30 12 |0 | MOVE.W (A2),D0 00022976 41 bc 00 7f |A | CHK.W #0x7f,D0 0002297a 41 ee f6 f6 |A | LEA.L (A6-0x90a),A0 0002297e 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00022982 42 80 |B | CLR.L D0 00022984 10 28 02 54 | ( T | MOVE.B (A0+0x254),D0 00022988 e1 40 | @ | ASL.W #0x8,D0 0002298a 42 81 |B | CLR.L D1 0002298c 12 28 01 d4 | ( | MOVE.B (A0+0x1d4),D1 00022990 d2 40 | @ | ADD.W D0,D1 00022992 33 c1 00 02 95 e4 |3 | MOVE.W D1,0x295e4 00022998 42 80 |B | CLR.L D0 0002299a 10 28 03 54 | ( T | MOVE.B (A0+0x354),D0 0002299e 33 c0 00 02 95 e6 |3 | MOVE.W D0,0x295e6 000229a4 42 80 |B | CLR.L D0 000229a6 10 28 02 d4 | ( | MOVE.B (A0+0x2d4),D0 000229aa 36 80 |6 | MOVE.W D0,(A3) 000229ac 42 79 00 02 95 e2 |By | CLR.W 0x295e2 000229b2 55 4f |UO | SUBQ.L #0x2,A7 000229b4 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool 000229ba 4a 1f |J | TST.B (A7)+ 000229bc 67 00 00 8c |g | BEQ 0x22a4a 000229c0 41 fa d8 18 |A | LEA.L 0x201da,A0 000229c4 70 0e |p | MOVEQ.L #0x0e,D0 000229c6 3f 20 |? | MOVE.W -(A0),-(A7) 000229c8 51 c8 ff fc |Q | DBF D0,0x229c6 000229cc 59 4f |YO | SUBQ.L #0x4,A7 000229ce 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000229d2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000229d6 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 000229da 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000229e0 50 4f |PO | ADDQ.L #0x8,A7 000229e2 23 df 00 02 95 ea |# | MOVE.L (A7)+,0x295ea 000229e8 de fc 00 1e | | ADDA.W #0x1e,A7 000229ec 7a 00 |z | MOVEQ.L #0x00,D5 000229ee 20 79 00 02 95 ea | y | MOVEA.L 0x295ea,A0 000229f4 20 05 | | MOVE.L D5,D0 000229f6 52 80 |R | ADDQ.L #0x1,D0 000229f8 53 80 |S | SUBQ.L #0x1,D0 000229fa 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00022a00 63 02 |c | BLS 0x22a04 00022a02 4e 4f |NO | TRAP #15 00022a04 32 12 |2 | MOVE.W (A2),D1 00022a06 43 83 |C | CHK.W D3,D1 00022a08 c3 fc 00 1e | | MULS.W #0x1e,D1 00022a0c 43 ee f6 f6 |C | LEA.L (A6-0x90a),A1 00022a10 0c 85 00 00 00 1d | | CMPI.L #0x0000001d,D5 00022a16 63 02 |c | BLS 0x22a1a 00022a18 4e 4f |NO | TRAP #15 00022a1a 43 f1 10 00 |C | LEA.L (A1+D1.W),A1 00022a1e 43 f1 58 00 |C X | LEA.L (A1+D5.L),A1 00022a22 11 a9 04 04 08 02 | | MOVE.B (A1+0x404),(A0+D0.L+#0x2) 00022a28 52 85 |R | ADDQ.L #0x1,D5 00022a2a 0c 85 00 00 00 1d | | CMPI.L #0x0000001d,D5 00022a30 6f bc |o | BLE 0x229ee 00022a32 59 4f |YO | SUBQ.L #0x4,A7 00022a34 2f 39 00 02 95 ea |/9 | MOVE.L 0x295ea,-(A7) 00022a3a 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00022a40 58 4f |XO | ADDQ.L #0x4,A7 00022a42 23 df 00 02 95 ea |# | MOVE.L (A7)+,0x295ea 00022a48 60 3a |`: | BRA 0x22a84 00022a4a 7c 05 || | MOVEQ.L #0x05,D6 00022a4c 30 06 |0 | MOVE.W D6,D0 00022a4e e5 40 | @ | ASL.W #0x2,D0 00022a50 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 00022a56 32 30 00 10 |20 | MOVE.W (A0+D0.W+#0x10),D1 00022a5a b2 79 00 02 95 e4 | y | CMP.W 0x295e4,D1 00022a60 66 1e |f | BNE 0x22a80 00022a62 42 81 |B | CLR.L D1 00022a64 12 30 00 12 | 0 | MOVE.B (A0+D0.W+#0x12),D1 00022a68 b2 79 00 02 95 e6 | y | CMP.W 0x295e6,D1 00022a6e 66 10 |f | BNE 0x22a80 00022a70 42 81 |B | CLR.L D1 00022a72 12 30 00 13 | 0 | MOVE.B (A0+D0.W+#0x13),D1 00022a76 b2 53 | S | CMP.W (A3),D1 00022a78 66 06 |f | BNE 0x22a80 00022a7a 33 c6 00 02 95 e2 |3 | MOVE.W D6,0x295e2 00022a80 53 46 |SF | SUBQ.W #0x1,D6 00022a82 6c c8 |l | BGE 0x22a4c 00022a84 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022a88 4e 5e |N^ | UNLK A6 00022a8a 4e 75 |Nu | RTS 00022a8c ; -------------------------------------------------------------------------------------- 00022a8c ; OMSI PASCAL Function 00022a8c ; <LVAR 0x00a 4(r)> 00022a8c ; <LVAR 0x008 1(r)> 00022a8c ; -------------------------------------------------------------------------------------- 00022a8c 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 ; Spelunked 00022a90 bf d5 | | CMPA.L (A5),A7 00022a92 62 06 |b | BHI 0x22a9a 00022a94 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022a98 4e 76 |Nv | TRAPV 00022a9a de fc 00 2a | * | ADDA.W #0x2a,A7 00022a9e 48 e7 d8 c0 |H | MOVEM.L A1+A0+D4+D3+D1+D0,-(A7) 00022aa2 41 ec 00 0e |A | LEA.L (A4+0xe),A0 00022aa6 43 f9 00 01 02 c0 |C | LEA.L AppendChar(MOD b : String; a : char),A1 00022aac 72 30 |r0 | MOVEQ.L #0x30,D1 00022aae 28 2e 00 0a |(. | MOVE.L (A6+0xa),D4 00022ab2 76 0a |v | MOVEQ.L #0x0a,D3 00022ab4 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00022aba 2f 10 |/ | MOVE.L (A0),-(A7) 00022abc 20 04 | | MOVE.L D4,D0 00022abe d0 81 | | ADD.L D1,D0 00022ac0 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 00022ac6 63 02 |c | BLS 0x22aca 00022ac8 4e 4f |NO | TRAP #15 00022aca 1f 00 | | MOVE.B D0,-(A7) 00022acc 4e 91 |N | JSR (A1) 00022ace 54 4f |TO | ADDQ.L #0x2,A7 00022ad0 2e 90 |. | MOVE.L (A0),(A7) 00022ad2 d6 41 | A | ADD.W D1,D3 00022ad4 1f 03 | | MOVE.B D3,-(A7) 00022ad6 4e 91 |N | JSR (A1) 00022ad8 5c 4f |\O | ADDQ.L #0x6,A7 00022ada 4a 2e 00 08 |J. | TST.B (A6+0x8) 00022ade 67 0a |g | BEQ 0x22aea 00022ae0 2f 10 |/ | MOVE.L (A0),-(A7) 00022ae2 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00022ae6 4e 91 |N | JSR (A1) 00022ae8 5c 4f |\O | ADDQ.L #0x6,A7 00022aea 4c df 03 1b |L | MOVEM.L (A7)+,D0+D1+D3+D4+A0+A1 00022aee 4e 5e |N^ | UNLK A6 00022af0 4e 75 |Nu | RTS 00022af2 ; -------------------------------------------------------------------------------------- 00022af2 ; OMSI PASCAL Function 00022af2 ; <LVAR 0x00c 2(r)> 00022af2 ; <LVAR 0x008 2(r)> 00022af2 ; <LVAR -0x006 4(rw)> 00022af2 ; <LVAR -0x00a 4(rw)> 00022af2 ; <LVAR -0x014 @> 00022af2 ; -------------------------------------------------------------------------------------- 00022af2 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00022af6 bf d5 | | CMPA.L (A5),A7 00022af8 62 06 |b | BHI 0x22b00 00022afa 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022afe 4e 76 |Nv | TRAPV 00022b00 de fc 00 44 | D | ADDA.W #0x44,A7 00022b04 48 e7 e7 c8 |H | MOVEM.L A4+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00022b08 41 ee ff ec |A | LEA.L (A6-0x14),A0 00022b0c 43 fa ff 7e |C ~ | LEA.L 0x22a8c,A1 00022b10 74 3a |t: | MOVEQ.L #0x3a,D2 00022b12 42 80 |B | CLR.L D0 00022b14 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 00022b18 42 81 |B | CLR.L D1 00022b1a 32 2e 00 0c |2. | MOVE.W (A6+0xc),D1 00022b1e 44 81 |D | NEG.L D1 00022b20 d2 80 | | ADD.L D0,D1 00022b22 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 00022b28 63 02 |c | BLS 0x22b2c 00022b2a 4e 4f |NO | TRAP #15 00022b2c 3e 01 |> | MOVE.W D1,D7 00022b2e 42 80 |B | CLR.L D0 00022b30 30 07 |0 | MOVE.W D7,D0 00022b32 80 fc 07 08 | | DIVU.W #0x708,D0 00022b36 42 81 |B | CLR.L D1 00022b38 32 00 |2 | MOVE.W D0,D1 00022b3a 2c 01 |, | MOVE.L D1,D6 00022b3c 48 40 |H@ | SWAP.W D0 00022b3e 3e 00 |> | MOVE.W D0,D7 00022b40 42 80 |B | CLR.L D0 00022b42 30 07 |0 | MOVE.W D7,D0 00022b44 80 fc 00 1e | | DIVU.W #0x1e,D0 00022b48 42 81 |B | CLR.L D1 00022b4a 32 00 |2 | MOVE.W D0,D1 00022b4c 2a 01 |* | MOVE.L D1,D5 00022b4e 48 40 |H@ | SWAP.W D0 00022b50 3e 00 |> | MOVE.W D0,D7 00022b52 42 80 |B | CLR.L D0 00022b54 30 07 |0 | MOVE.W D7,D0 00022b56 e3 80 | | ASL.L #0x1,D0 00022b58 2d 40 ff f6 |-@ | MOVE.L D0,(A6-0xa) 00022b5c 2f 3a d6 88 |/: | MOVE.L 0x201e6,-(A7) 00022b60 2f 3a d6 80 |/: | MOVE.L 0x201e2,-(A7) 00022b64 2f 3a d6 78 |/: x | MOVE.L 0x201de,-(A7) 00022b68 2f 3a d6 70 |/: p | MOVE.L 0x201da,-(A7) 00022b6c 59 4f |YO | SUBQ.L #0x4,A7 00022b6e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022b72 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022b76 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 00022b7a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022b80 50 4f |PO | ADDQ.L #0x8,A7 00022b82 2d 5f ff fa |-_ | MOVE.L (A7)+,(A6-0x6) 00022b86 de fc 00 0c | | ADDA.W #0xc,A7 00022b8a 2e 86 |. | MOVE.L D6,(A7) 00022b8c 1f 02 | | MOVE.B D2,-(A7) 00022b8e 28 48 |(H | MOVEA.L A0,A4 00022b90 4e 91 |N | JSR (A1) 00022b92 54 4f |TO | ADDQ.L #0x2,A7 00022b94 2e 85 |. | MOVE.L D5,(A7) 00022b96 1f 02 | | MOVE.B D2,-(A7) 00022b98 28 48 |(H | MOVEA.L A0,A4 00022b9a 4e 91 |N | JSR (A1) 00022b9c 54 4f |TO | ADDQ.L #0x2,A7 00022b9e 2e ae ff f6 |. | MOVE.L (A6-0xa),(A7) 00022ba2 42 27 |B' | CLR.B -(A7) 00022ba4 28 48 |(H | MOVEA.L A0,A4 00022ba6 4e 91 |N | JSR (A1) 00022ba8 54 4f |TO | ADDQ.L #0x2,A7 00022baa 2e ae ff fa |. | MOVE.L (A6-0x6),(A7) 00022bae 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022bb4 58 4f |XO | ADDQ.L #0x4,A7 00022bb6 4c df 13 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A4 00022bba 4e 5e |N^ | UNLK A6 00022bbc 4e 75 |Nu | RTS 00022bbe ; -------------------------------------------------------------------------------------- 00022bbe ; OMSI PASCAL Function 00022bbe ; -------------------------------------------------------------------------------------- 00022bbe 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00022bc2 bf d5 | | CMPA.L (A5),A7 00022bc4 62 06 |b | BHI 0x22bcc 00022bc6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022bca 4e 76 |Nv | TRAPV 00022bcc de fc 00 30 | 0 | ADDA.W #0x30,A7 00022bd0 48 e7 e3 80 |H | MOVEM.L A0+D7+D6+D2+D1+D0,-(A7) 00022bd4 74 1d |t | MOVEQ.L #0x1d,D2 00022bd6 7e 01 |~ | MOVEQ.L #0x01,D7 00022bd8 20 07 | | MOVE.L D7,D0 00022bda e3 80 | | ASL.L #0x1,D0 00022bdc 22 00 |" | MOVE.L D0,D1 00022bde 53 81 |S | SUBQ.L #0x1,D1 00022be0 b2 82 | | CMP.L D2,D1 00022be2 63 02 |c | BLS 0x22be6 00022be4 4e 4f |NO | TRAP #15 00022be6 41 f9 00 02 96 04 |A | LEA.L 0x29604,A0 00022bec 1c 30 18 36 | 0 6 | MOVE.B (A0+D1.L+#0x36),D6 00022bf0 53 80 |S | SUBQ.L #0x1,D0 00022bf2 53 80 |S | SUBQ.L #0x1,D0 00022bf4 b0 82 | | CMP.L D2,D0 00022bf6 63 02 |c | BLS 0x22bfa 00022bf8 4e 4f |NO | TRAP #15 00022bfa 11 b0 08 36 18 36 | 6 6 | MOVE.B (A0+D0.L+#0x36),(A0+D1.L+#0x36) 00022c00 11 86 08 36 | 6 | MOVE.B D6,(A0+D0.L+#0x36) 00022c04 52 87 |R | ADDQ.L #0x1,D7 00022c06 0c 87 00 00 00 0f | | CMPI.L #0x0000000f,D7 00022c0c 6f ca |o | BLE 0x22bd8 00022c0e 4c df 01 c7 |L | MOVEM.L (A7)+,D0+D1+D2+D6+D7+A0 00022c12 4e 5e |N^ | UNLK A6 00022c14 4e 75 |Nu | RTS 00022c16 ; -------------------------------------------------------------------------------------- 00022c16 ; OMSI PASCAL Function 00022c16 ; <LVAR 0x008 1(rw)> 00022c16 ; <LVAR -0x004 @ 2(r)> 00022c16 ; <LVAR -0x01c 2(r)> 00022c16 ; -------------------------------------------------------------------------------------- 00022c16 4e 56 ff 8a |NV | LINK.W A6,#0xff8a 00022c1a bf d5 | | CMPA.L (A5),A7 00022c1c 62 06 |b | BHI 0x22c24 00022c1e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022c22 4e 76 |Nv | TRAPV 00022c24 de fc 00 42 | B | ADDA.W #0x42,A7 00022c28 48 e7 ff c0 |H | MOVEM.L A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022c2c 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00022c30 72 05 |r | MOVEQ.L #0x05,D1 00022c32 74 01 |t | MOVEQ.L #0x01,D2 00022c34 7a 02 |z | MOVEQ.L #0x02,D5 00022c36 55 4f |UO | SUBQ.L #0x2,A7 00022c38 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00022c3e 4a 1f |J | TST.B (A7)+ 00022c40 67 3a |g: | BEQ 0x22c7c 00022c42 2e 3c 00 00 93 03 |.< | MOVE.L #0x9303,D7 00022c48 e1 87 | | ASL.L #0x8,D7 00022c4a e1 87 | | ASL.L #0x8,D7 00022c4c 06 87 00 00 e0 00 | | ADDI.L #0x0000e000,D7 00022c52 2f 07 |/ | MOVE.L D7,-(A7) 00022c54 3f 01 |? | MOVE.W D1,-(A7) 00022c56 41 ee ff fc |A | LEA.L (A6-0x4),A0 00022c5a 2f 08 |/ | MOVE.L A0,-(A7) 00022c5c 3f 02 |? | MOVE.W D2,-(A7) 00022c5e 3f 05 |? | MOVE.W D5,-(A7) 00022c60 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word 00022c66 de fc 00 0e | | ADDA.W #0xe,A7 00022c6a 42 11 |B | CLR.B (A1) 00022c6c 30 2e ff fc |0. | MOVE.W (A6-0x4),D0 00022c70 02 40 00 80 | @ | ANDI.W #0x0080,D0 00022c74 66 02 |f | BNE 0x22c78 00022c76 52 11 |R | ADDQ.B #0x1,(A1) 00022c78 60 00 00 98 |` | BRA 0x22d12 00022c7c 2e 3c 00 00 93 03 |.< | MOVE.L #0x9303,D7 00022c82 e1 87 | | ASL.L #0x8,D7 00022c84 e1 87 | | ASL.L #0x8,D7 00022c86 30 39 00 02 95 f6 |09 | MOVE.W 0x295f6,D0 00022c8c e4 40 | @ | ASR.W #0x2,D0 00022c8e 0c 40 00 03 | @ | CMPI.W #0x0003,D0 00022c92 63 02 |c | BLS 0x22c96 00022c94 4e 4e |NN | TRAP #14 00022c96 d0 40 | @ | ADD.W D0,D0 00022c98 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00022ca0 00 08 | | .CONST 0x8 ; [0x0] -> 0x22ca8 00022ca2 00 10 | | .CONST 0x10 ; [0x1] -> 0x22cb0 00022ca4 00 18 | | .CONST 0x18 ; [0x2] -> 0x22cb8 00022ca6 00 20 | | .CONST 0x20 ; [0x3] -> 0x22cc0 00022ca8 switch@0x22c98[0x0]: 00022ca8 06 87 00 00 fd c0 | | ADDI.L #0x0000fdc0,D7 00022cae 60 16 |` | BRA 0x22cc6 00022cb0 switch@0x22c98[0x1]: 00022cb0 06 87 00 00 fc c0 | | ADDI.L #0x0000fcc0,D7 00022cb6 60 0e |` | BRA 0x22cc6 00022cb8 switch@0x22c98[0x2]: 00022cb8 06 87 00 00 fc 80 | | ADDI.L #0x0000fc80,D7 00022cbe 60 06 |` | BRA 0x22cc6 00022cc0 switch@0x22c98[0x3]: 00022cc0 06 87 00 00 fc 40 | @ | ADDI.L #0x0000fc40,D7 00022cc6 7c 00 || | MOVEQ.L #0x00,D6 00022cc8 78 02 |x | MOVEQ.L #0x02,D4 00022cca 26 06 |& | MOVE.L D6,D3 00022ccc 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00022cd2 2f 07 |/ | MOVE.L D7,-(A7) 00022cd4 d9 97 | | ADD.L D4,(A7) 00022cd6 3f 01 |? | MOVE.W D1,-(A7) 00022cd8 0c 86 00 00 00 13 | | CMPI.L #0x00000013,D6 00022cde 63 02 |c | BLS 0x22ce2 00022ce0 4e 4f |NO | TRAP #15 00022ce2 20 06 | | MOVE.L D6,D0 00022ce4 e3 80 | | ASL.L #0x1,D0 00022ce6 41 f6 08 d0 |A | LEA.L (A6+D0.L-#0x30),A0 00022cea 2f 08 |/ | MOVE.L A0,-(A7) 00022cec 3f 02 |? | MOVE.W D2,-(A7) 00022cee 3f 05 |? | MOVE.W D5,-(A7) 00022cf0 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word 00022cf6 de fc 00 0e | | ADDA.W #0xe,A7 00022cfa 52 86 |R | ADDQ.L #0x1,D6 00022cfc 0c 86 00 00 00 13 | | CMPI.L #0x00000013,D6 00022d02 6f c4 |o | BLE 0x22cc8 00022d04 42 11 |B | CLR.B (A1) 00022d06 30 2e ff e4 |0. | MOVE.W (A6-0x1c),D0 00022d0a 02 40 00 10 | @ | ANDI.W #0x0010,D0 00022d0e 67 02 |g | BEQ 0x22d12 00022d10 52 11 |R | ADDQ.B #0x1,(A1) 00022d12 4c df 03 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1 00022d16 4e 5e |N^ | UNLK A6 00022d18 4e 75 |Nu | RTS 00022d1a ; -------------------------------------------------------------------------------------- 00022d1a ; OMSI PASCAL Function 00022d1a ; <LVAR 0x008 1(r)> 00022d1a ; <LVAR -0x01c @ 1(r)> 00022d1a ; <LVAR -0x028 @ 2(r)> 00022d1a ; <LVAR -0x02a 2(r)> 00022d1a ; <LVAR -0x02c 2(r)> 00022d1a ; <LVAR -0x02e 2(w)> 00022d1a ; <LVAR -0x030 2(r)> 00022d1a ; <LVAR -0x032 2(r)> 00022d1a ; <LVAR -0x034 2(w)> 00022d1a ; <LVAR -0x036 2(r)> 00022d1a ; <LVAR -0x038 @ 2(r)> 00022d1a ; -------------------------------------------------------------------------------------- 00022d1a 4e 56 ff 2e |NV . | LINK.W A6,#0xff2e 00022d1e bf d5 | | CMPA.L (A5),A7 00022d20 62 06 |b | BHI 0x22d28 00022d22 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022d26 4e 76 |Nv | TRAPV 00022d28 de fc 00 98 | | ADDA.W #0x98,A7 00022d2c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022d30 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00022d36 47 f9 00 02 95 ee |G | LEA.L 0x295ee,A3 00022d3c 49 f9 00 02 95 f6 |I | LEA.L 0x295f6,A4 00022d42 74 01 |t | MOVEQ.L #0x01,D2 00022d44 76 1a |v | MOVEQ.L #0x1a,D3 00022d46 78 0c |x | MOVEQ.L #0x0c,D4 00022d48 7a 14 |z | MOVEQ.L #0x14,D5 00022d4a 7c 18 || | MOVEQ.L #0x18,D6 00022d4c 7e 10 |~ | MOVEQ.L #0x10,D7 00022d4e 42 27 |B' | CLR.B -(A7) 00022d50 4e b9 00 01 03 ac |N | JSR Set_is_open_ERROR_LOG(a : Bool) 00022d56 54 4f |TO | ADDQ.L #0x2,A7 00022d58 23 c2 00 02 00 20 |# | MOVE.L D2,0x20020 00022d5e 23 c2 00 01 00 26 |# & | MOVE.L D2,0x10026 00022d64 9e fc 00 3e | > | SUBA.W #0x3e,A7 00022d68 20 4f | O | MOVEA.L A7,A0 00022d6a 43 fa d4 7e |C ~ | LEA.L 0x201ea,A1 00022d6e 70 3c |p< | MOVEQ.L #0x3c,D0 00022d70 10 d9 | | MOVE.B (A1)+,(A0)+ 00022d72 51 c8 ff fc |Q | DBF D0,0x22d70 00022d76 51 4f |QO | SUBQ.L #0x8,A7 00022d78 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022d7c 3f 02 |? | MOVE.W D2,-(A7) 00022d7e 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 00022d82 4e 92 |N | JSR (A2) 00022d84 50 4f |PO | ADDQ.L #0x8,A7 00022d86 48 78 00 00 |Hx | PEA.L 0x0 00022d8a 48 78 00 0f |Hx | PEA.L 0xf 00022d8e 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00022d94 de c4 | | ADDA.W D4,A7 00022d96 20 1f | | MOVE.L (A7)+,D0 00022d98 0c 80 00 00 00 0f | | CMPI.L #0x0000000f,D0 00022d9e 63 02 |c | BLS 0x22da2 00022da0 4e 4f |NO | TRAP #15 00022da2 de fc 00 3e | > | ADDA.W #0x3e,A7 00022da6 38 80 |8 | MOVE.W D0,(A4) 00022da8 42 6e ff c8 |Bn | CLR.W (A6-0x38) 00022dac 42 6e ff ca |Bn | CLR.W (A6-0x36) 00022db0 3d 7c 00 02 ff cc |=| | MOVE.W #0x2,(A6-0x34) 00022db6 42 6e ff ce |Bn | CLR.W (A6-0x32) 00022dba 42 6e ff d0 |Bn | CLR.W (A6-0x30) 00022dbe e1 40 | @ | ASL.W #0x8,D0 00022dc0 3d 40 ff d2 |=@ | MOVE.W D0,(A6-0x2e) 00022dc4 42 6e ff d4 |Bn | CLR.W (A6-0x2c) 00022dc8 42 6e ff d6 |Bn | CLR.W (A6-0x2a) 00022dcc 48 6e ff c8 |Hn | PEA.L (A6-0x38) 00022dd0 41 ee ff d8 |A | LEA.L (A6-0x28),A0 00022dd4 2f 08 |/ | MOVE.L A0,-(A7) 00022dd6 42 67 |Bg | CLR.W -(A7) 00022dd8 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00022dde 50 4f |PO | ADDQ.L #0x8,A7 00022de0 42 57 |BW | CLR.W (A7) 00022de2 48 6e ff e4 |Hn | PEA.L (A6-0x1c) 00022de6 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00022dec 5c 4f |\O | ADDQ.L #0x6,A7 00022dee 30 2e ff d8 |0. | MOVE.W (A6-0x28),D0 00022df2 b0 42 | B | CMP.W D2,D0 00022df4 67 24 |g$ | BEQ 0x22e1a 00022df6 41 fa d5 be |A | LEA.L 0x203b6,A0 00022dfa 70 0e |p | MOVEQ.L #0x0e,D0 00022dfc 3f 20 |? | MOVE.W -(A0),-(A7) 00022dfe 51 c8 ff fc |Q | DBF D0,0x22dfc 00022e02 59 4f |YO | SUBQ.L #0x4,A7 00022e04 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022e08 3f 02 |? | MOVE.W D2,-(A7) 00022e0a 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00022e0e 4e 92 |N | JSR (A2) 00022e10 50 4f |PO | ADDQ.L #0x8,A7 00022e12 4e ba f6 b8 |N | JSR 0x224cc 00022e16 de fc 00 22 | " | ADDA.W #0x22,A7 00022e1a 33 d4 00 01 00 08 |3 | MOVE.W (A4),0x10008 00022e20 33 fc 7f ff 00 01 00 0c |3 | MOVE.W #0x7fff,0x1000c 00022e28 33 fc 7f ff 00 01 00 0a |3 | MOVE.W #0x7fff,0x1000a 00022e30 42 13 |B | CLR.B (A3) 00022e32 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00022e36 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00022e3a 48 78 00 01 |Hx | PEA.L 0x1 00022e3e 2f 39 00 02 96 00 |/9 | MOVE.L 0x29600,-(A7) 00022e44 48 6e ff e4 |Hn | PEA.L (A6-0x1c) 00022e48 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 00022e4e de c7 | | ADDA.W D7,A7 00022e50 4a 2e ff e4 |J. | TST.B (A6-0x1c) 00022e54 66 5e |f^ | BNE 0x22eb4 00022e56 4a 2e 00 08 |J. | TST.B (A6+0x8) 00022e5a 67 28 |g( | BEQ 0x22e84 00022e5c 9e fc 00 2a | * | SUBA.W #0x2a,A7 00022e60 20 4f | O | MOVEA.L A7,A0 00022e62 43 fa d4 bc |C | LEA.L 0x20320,A1 00022e66 70 28 |p( | MOVEQ.L #0x28,D0 00022e68 10 d9 | | MOVE.B (A1)+,(A0)+ 00022e6a 51 c8 ff fc |Q | DBF D0,0x22e68 00022e6e 59 4f |YO | SUBQ.L #0x4,A7 00022e70 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022e74 3f 02 |? | MOVE.W D2,-(A7) 00022e76 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 00022e7a 4e 92 |N | JSR (A2) 00022e7c 50 4f |PO | ADDQ.L #0x8,A7 00022e7e 4e ba f6 4c |N L | JSR 0x224cc 00022e82 60 28 |`( | BRA 0x22eac 00022e84 9e fc 00 2a | * | SUBA.W #0x2a,A7 00022e88 20 4f | O | MOVEA.L A7,A0 00022e8a 43 fa d4 94 |C | LEA.L 0x20320,A1 00022e8e 70 28 |p( | MOVEQ.L #0x28,D0 00022e90 10 d9 | | MOVE.B (A1)+,(A0)+ 00022e92 51 c8 ff fc |Q | DBF D0,0x22e90 00022e96 59 4f |YO | SUBQ.L #0x4,A7 00022e98 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022e9c 3f 02 |? | MOVE.W D2,-(A7) 00022e9e 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 00022ea2 4e 92 |N | JSR (A2) 00022ea4 50 4f |PO | ADDQ.L #0x8,A7 00022ea6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022eac de fc 00 2e | . | ADDA.W #0x2e,A7 00022eb0 60 00 01 80 |` | BRA 0x23032 00022eb4 30 39 00 02 96 06 |09 | MOVE.W 0x29606,D0 00022eba 0c 40 7f ed | @ | CMPI.W #0x7fed,D0 00022ebe 67 58 |gX | BEQ 0x22f18 00022ec0 4a 2e 00 08 |J. | TST.B (A6+0x8) 00022ec4 67 26 |g& | BEQ 0x22eec 00022ec6 9e c5 | | SUBA.W D5,A7 00022ec8 20 4f | O | MOVEA.L A7,A0 00022eca 43 fa d4 7e |C ~ | LEA.L 0x2034a,A1 00022ece 70 12 |p | MOVEQ.L #0x12,D0 00022ed0 10 d9 | | MOVE.B (A1)+,(A0)+ 00022ed2 51 c8 ff fc |Q | DBF D0,0x22ed0 00022ed6 59 4f |YO | SUBQ.L #0x4,A7 00022ed8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022edc 3f 02 |? | MOVE.W D2,-(A7) 00022ede 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00022ee2 4e 92 |N | JSR (A2) 00022ee4 50 4f |PO | ADDQ.L #0x8,A7 00022ee6 4e ba f5 e4 |N | JSR 0x224cc 00022eea 60 26 |`& | BRA 0x22f12 00022eec 9e c5 | | SUBA.W D5,A7 00022eee 20 4f | O | MOVEA.L A7,A0 00022ef0 43 fa d4 58 |C X | LEA.L 0x2034a,A1 00022ef4 70 12 |p | MOVEQ.L #0x12,D0 00022ef6 10 d9 | | MOVE.B (A1)+,(A0)+ 00022ef8 51 c8 ff fc |Q | DBF D0,0x22ef6 00022efc 59 4f |YO | SUBQ.L #0x4,A7 00022efe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022f02 3f 02 |? | MOVE.W D2,-(A7) 00022f04 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00022f08 4e 92 |N | JSR (A2) 00022f0a 50 4f |PO | ADDQ.L #0x8,A7 00022f0c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022f12 de c6 | | ADDA.W D6,A7 00022f14 60 00 01 1c |` | BRA 0x23032 00022f18 30 39 00 02 96 08 |09 | MOVE.W 0x29608,D0 00022f1e 0c 40 00 03 | @ | CMPI.W #0x0003,D0 00022f22 67 5a |gZ | BEQ 0x22f7e 00022f24 4a 2e 00 08 |J. | TST.B (A6+0x8) 00022f28 67 26 |g& | BEQ 0x22f50 00022f2a 9e c3 | | SUBA.W D3,A7 00022f2c 20 4f | O | MOVEA.L A7,A0 00022f2e 43 fa d4 2e |C . | LEA.L 0x2035e,A1 00022f32 70 18 |p | MOVEQ.L #0x18,D0 00022f34 10 d9 | | MOVE.B (A1)+,(A0)+ 00022f36 51 c8 ff fc |Q | DBF D0,0x22f34 00022f3a 59 4f |YO | SUBQ.L #0x4,A7 00022f3c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022f40 3f 02 |? | MOVE.W D2,-(A7) 00022f42 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00022f46 4e 92 |N | JSR (A2) 00022f48 50 4f |PO | ADDQ.L #0x8,A7 00022f4a 4e ba f5 80 |N | JSR 0x224cc 00022f4e 60 26 |`& | BRA 0x22f76 00022f50 9e c3 | | SUBA.W D3,A7 00022f52 20 4f | O | MOVEA.L A7,A0 00022f54 43 fa d4 08 |C | LEA.L 0x2035e,A1 00022f58 70 18 |p | MOVEQ.L #0x18,D0 00022f5a 10 d9 | | MOVE.B (A1)+,(A0)+ 00022f5c 51 c8 ff fc |Q | DBF D0,0x22f5a 00022f60 59 4f |YO | SUBQ.L #0x4,A7 00022f62 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022f66 3f 02 |? | MOVE.W D2,-(A7) 00022f68 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00022f6c 4e 92 |N | JSR (A2) 00022f6e 50 4f |PO | ADDQ.L #0x8,A7 00022f70 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022f76 de fc 00 1e | | ADDA.W #0x1e,A7 00022f7a 60 00 00 b6 |` | BRA 0x23032 00022f7e 23 f9 00 02 96 0c 00 02 |# | MOVE.L 0x2960c,0x295f8 00022f86 95 f8 | | 00022f88 4e ba fc 34 |N 4 | JSR 0x22bbe 00022f8c 41 f9 00 02 96 58 |A X | LEA.L 0x29658,A0 00022f92 70 0e |p | MOVEQ.L #0x0e,D0 00022f94 3f 20 |? | MOVE.W -(A0),-(A7) 00022f96 51 c8 ff fc |Q | DBF D0,0x22f94 00022f9a 51 4f |QO | SUBQ.L #0x8,A7 00022f9c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022fa0 3f 02 |? | MOVE.W D2,-(A7) 00022fa2 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00022fa6 4e 92 |N | JSR (A2) 00022fa8 50 4f |PO | ADDQ.L #0x8,A7 00022faa 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00022fb0 58 4f |XO | ADDQ.L #0x4,A7 00022fb2 23 df 00 02 95 ea |# | MOVE.L (A7)+,0x295ea 00022fb8 de fc 00 1c | | ADDA.W #0x1c,A7 00022fbc 3e ba d6 6a |> j | MOVE.W 0x20628,(A7) 00022fc0 3f 3a d6 64 |?: d | MOVE.W 0x20626,-(A7) 00022fc4 3f 3a d6 5e |?: ^ | MOVE.W 0x20624,-(A7) 00022fc8 51 4f |QO | SUBQ.L #0x8,A7 00022fca 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022fce 3f 02 |? | MOVE.W D2,-(A7) 00022fd0 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00022fd4 4e 92 |N | JSR (A2) 00022fd6 2e b9 00 02 95 ea |. | MOVE.L 0x295ea,(A7) 00022fdc 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022fe2 58 4f |XO | ADDQ.L #0x4,A7 00022fe4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022fea 50 4f |PO | ADDQ.L #0x8,A7 00022fec 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022ff2 de fc 00 0a | | ADDA.W #0xa,A7 00022ff6 4a 2e 00 08 |J. | TST.B (A6+0x8) 00022ffa 67 04 |g | BEQ 0x23000 00022ffc 16 82 | | MOVE.B D2,(A3) 00022ffe 60 32 |`2 | BRA 0x23032 00023000 41 fa d3 1e |A | LEA.L 0x20320,A0 00023004 70 1c |p | MOVEQ.L #0x1c,D0 00023006 3f 20 |? | MOVE.W -(A0),-(A7) 00023008 51 c8 ff fc |Q | DBF D0,0x23006 0002300c 5d 4f |]O | SUBQ.L #0x6,A7 0002300e 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00023012 3f 02 |? | MOVE.W D2,-(A7) 00023014 3f 3c 00 3a |?< : | MOVE.W #0x3a,-(A7) 00023018 4e 92 |N | JSR (A2) 0002301a 5c 4f |\O | ADDQ.L #0x6,A7 0002301c 1e 82 | | MOVE.B D2,(A7) 0002301e 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00023024 5c 4f |\O | ADDQ.L #0x6,A7 00023026 10 1f | | MOVE.B (A7)+,D0 00023028 48 80 |H | EXTB.W D0 0002302a 41 82 |A | CHK.W D2,D0 0002302c de fc 00 3a | : | ADDA.W #0x3a,A7 00023030 16 80 | | MOVE.B D0,(A3) 00023032 4a 13 |J | TST.B (A3) 00023034 67 0c |g | BEQ 0x23042 00023036 13 f9 00 02 96 38 00 02 | 8 | MOVE.B 0x29638,0x295ef 0002303e 95 ef | | 00023040 60 06 |` | BRA 0x23048 00023042 42 39 00 02 95 ef |B9 | CLR.B 0x295ef 00023048 42 79 00 02 95 e0 |By | CLR.W 0x295e0 0002304e 4a 13 |J | TST.B (A3) 00023050 66 00 03 d4 |f | BNE 0x23426 00023054 55 4f |UO | SUBQ.L #0x2,A7 00023056 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool 0002305c 4a 1f |J | TST.B (A7)+ 0002305e 66 00 03 c6 |f | BNE 0x23426 00023062 55 4f |UO | SUBQ.L #0x2,A7 00023064 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 0002306a 4a 1f |J | TST.B (A7)+ 0002306c 67 00 00 f8 |g | BEQ 0x23166 00023070 2f 3a d3 82 |/: | MOVE.L 0x203f4,-(A7) 00023074 2f 3a d3 7a |/: z | MOVE.L 0x203f0,-(A7) 00023078 2f 3a d3 72 |/: r | MOVE.L 0x203ec,-(A7) 0002307c 2f 3a d3 6a |/: j | MOVE.L 0x203e8,-(A7) 00023080 59 4f |YO | SUBQ.L #0x4,A7 00023082 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023086 3f 02 |? | MOVE.W D2,-(A7) 00023088 3f 07 |? | MOVE.W D7,-(A7) 0002308a 4e 92 |N | JSR (A2) 0002308c 50 4f |PO | ADDQ.L #0x8,A7 0002308e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023094 55 4f |UO | SUBQ.L #0x2,A7 00023096 20 4f | O | MOVEA.L A7,A0 00023098 43 fa d3 fe |C | LEA.L 0x20498,A1 0002309c 70 14 |p | MOVEQ.L #0x14,D0 0002309e 10 d9 | | MOVE.B (A1)+,(A0)+ 000230a0 51 c8 ff fc |Q | DBF D0,0x2309e 000230a4 59 4f |YO | SUBQ.L #0x4,A7 000230a6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000230aa 3f 02 |? | MOVE.W D2,-(A7) 000230ac 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 000230b0 4e 92 |N | JSR (A2) 000230b2 50 4f |PO | ADDQ.L #0x8,A7 000230b4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000230ba 58 4f |XO | ADDQ.L #0x4,A7 000230bc 20 4f | O | MOVEA.L A7,A0 000230be 43 fa d3 ee |C | LEA.L 0x204ae,A1 000230c2 70 14 |p | MOVEQ.L #0x14,D0 000230c4 10 d9 | | MOVE.B (A1)+,(A0)+ 000230c6 51 c8 ff fc |Q | DBF D0,0x230c4 000230ca 59 4f |YO | SUBQ.L #0x4,A7 000230cc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000230d0 3f 02 |? | MOVE.W D2,-(A7) 000230d2 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 000230d6 4e 92 |N | JSR (A2) 000230d8 50 4f |PO | ADDQ.L #0x8,A7 000230da 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000230e0 de c3 | | ADDA.W D3,A7 000230e2 41 fa d3 f8 |A | LEA.L 0x204dc,A0 000230e6 70 05 |p | MOVEQ.L #0x05,D0 000230e8 2f 20 |/ | MOVE.L -(A0),-(A7) 000230ea 51 c8 ff fc |Q | DBF D0,0x230e8 000230ee 59 4f |YO | SUBQ.L #0x4,A7 000230f0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000230f4 3f 02 |? | MOVE.W D2,-(A7) 000230f6 3f 06 |? | MOVE.W D6,-(A7) 000230f8 4e 92 |N | JSR (A2) 000230fa 50 4f |PO | ADDQ.L #0x8,A7 000230fc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023102 de fc 00 0e | | ADDA.W #0xe,A7 00023106 20 4f | O | MOVEA.L A7,A0 00023108 43 fa d3 80 |C | LEA.L 0x2048a,A1 0002310c 70 0c |p | MOVEQ.L #0x0c,D0 0002310e 10 d9 | | MOVE.B (A1)+,(A0)+ 00023110 51 c8 ff fc |Q | DBF D0,0x2310e 00023114 59 4f |YO | SUBQ.L #0x4,A7 00023116 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002311a 3f 02 |? | MOVE.W D2,-(A7) 0002311c 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00023120 4e 92 |N | JSR (A2) 00023122 50 4f |PO | ADDQ.L #0x8,A7 00023124 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002312a 55 4f |UO | SUBQ.L #0x2,A7 0002312c 20 4f | O | MOVEA.L A7,A0 0002312e 43 fa d0 f8 |C | LEA.L 0x20228,A1 00023132 70 12 |p | MOVEQ.L #0x12,D0 00023134 10 d9 | | MOVE.B (A1)+,(A0)+ 00023136 51 c8 ff fc |Q | DBF D0,0x23134 0002313a 51 4f |QO | SUBQ.L #0x8,A7 0002313c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023140 3f 02 |? | MOVE.W D2,-(A7) 00023142 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00023146 4e 92 |N | JSR (A2) 00023148 50 4f |PO | ADDQ.L #0x8,A7 0002314a 48 78 00 00 |Hx | PEA.L 0x0 0002314e 48 78 00 03 |Hx | PEA.L 0x3 00023152 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00023158 de c4 | | ADDA.W D4,A7 0002315a 30 2f 00 02 |0/ | MOVE.W (A7+0x2),D0 0002315e 41 bc 00 05 |A | CHK.W #0x5,D0 00023162 60 00 01 3c |` < | BRA 0x232a0 00023166 2f 3a d2 8c |/: | MOVE.L 0x203f4,-(A7) 0002316a 2f 3a d2 84 |/: | MOVE.L 0x203f0,-(A7) 0002316e 2f 3a d2 7c |/: | | MOVE.L 0x203ec,-(A7) 00023172 2f 3a d2 74 |/: t | MOVE.L 0x203e8,-(A7) 00023176 59 4f |YO | SUBQ.L #0x4,A7 00023178 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002317c 3f 02 |? | MOVE.W D2,-(A7) 0002317e 3f 07 |? | MOVE.W D7,-(A7) 00023180 4e 92 |N | JSR (A2) 00023182 50 4f |PO | ADDQ.L #0x8,A7 00023184 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002318a 9e fc 00 22 | " | SUBA.W #0x22,A7 0002318e 20 4f | O | MOVEA.L A7,A0 00023190 43 fa d2 66 |C f | LEA.L 0x203f8,A1 00023194 70 34 |p4 | MOVEQ.L #0x34,D0 00023196 10 d9 | | MOVE.B (A1)+,(A0)+ 00023198 51 c8 ff fc |Q | DBF D0,0x23196 0002319c 59 4f |YO | SUBQ.L #0x4,A7 0002319e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000231a2 3f 02 |? | MOVE.W D2,-(A7) 000231a4 3f 3c 00 35 |?< 5 | MOVE.W #0x35,-(A7) 000231a8 4e 92 |N | JSR (A2) 000231aa 50 4f |PO | ADDQ.L #0x8,A7 000231ac 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000231b2 de c3 | | ADDA.W D3,A7 000231b4 20 4f | O | MOVEA.L A7,A0 000231b6 43 fa d2 76 |C v | LEA.L 0x2042e,A1 000231ba 70 1e |p | MOVEQ.L #0x1e,D0 000231bc 10 d9 | | MOVE.B (A1)+,(A0)+ 000231be 51 c8 ff fc |Q | DBF D0,0x231bc 000231c2 59 4f |YO | SUBQ.L #0x4,A7 000231c4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000231c8 3f 02 |? | MOVE.W D2,-(A7) 000231ca 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 000231ce 4e 92 |N | JSR (A2) 000231d0 50 4f |PO | ADDQ.L #0x8,A7 000231d2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000231d8 de fc 00 24 | $ | ADDA.W #0x24,A7 000231dc 41 fa d2 84 |A | LEA.L 0x20462,A0 000231e0 70 04 |p | MOVEQ.L #0x04,D0 000231e2 2f 20 |/ | MOVE.L -(A0),-(A7) 000231e4 51 c8 ff fc |Q | DBF D0,0x231e2 000231e8 59 4f |YO | SUBQ.L #0x4,A7 000231ea 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000231ee 3f 02 |? | MOVE.W D2,-(A7) 000231f0 3f 05 |? | MOVE.W D5,-(A7) 000231f2 4e 92 |N | JSR (A2) 000231f4 50 4f |PO | ADDQ.L #0x8,A7 000231f6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000231fc de c6 | | ADDA.W D6,A7 000231fe 41 fa d2 76 |A v | LEA.L 0x20476,A0 00023202 70 04 |p | MOVEQ.L #0x04,D0 00023204 2f 20 |/ | MOVE.L -(A0),-(A7) 00023206 51 c8 ff fc |Q | DBF D0,0x23204 0002320a 59 4f |YO | SUBQ.L #0x4,A7 0002320c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023210 3f 02 |? | MOVE.W D2,-(A7) 00023212 3f 05 |? | MOVE.W D5,-(A7) 00023214 4e 92 |N | JSR (A2) 00023216 50 4f |PO | ADDQ.L #0x8,A7 00023218 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002321e de c6 | | ADDA.W D6,A7 00023220 41 fa d2 68 |A h | LEA.L 0x2048a,A0 00023224 70 04 |p | MOVEQ.L #0x04,D0 00023226 2f 20 |/ | MOVE.L -(A0),-(A7) 00023228 51 c8 ff fc |Q | DBF D0,0x23226 0002322c 59 4f |YO | SUBQ.L #0x4,A7 0002322e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023232 3f 02 |? | MOVE.W D2,-(A7) 00023234 3f 05 |? | MOVE.W D5,-(A7) 00023236 4e 92 |N | JSR (A2) 00023238 50 4f |PO | ADDQ.L #0x8,A7 0002323a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023240 de fc 00 0a | | ADDA.W #0xa,A7 00023244 20 4f | O | MOVEA.L A7,A0 00023246 43 fa d2 42 |C B | LEA.L 0x2048a,A1 0002324a 70 0c |p | MOVEQ.L #0x0c,D0 0002324c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002324e 51 c8 ff fc |Q | DBF D0,0x2324c 00023252 59 4f |YO | SUBQ.L #0x4,A7 00023254 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023258 3f 02 |? | MOVE.W D2,-(A7) 0002325a 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 0002325e 4e 92 |N | JSR (A2) 00023260 50 4f |PO | ADDQ.L #0x8,A7 00023262 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023268 55 4f |UO | SUBQ.L #0x2,A7 0002326a 20 4f | O | MOVEA.L A7,A0 0002326c 43 fa cf ba |C | LEA.L 0x20228,A1 00023270 70 12 |p | MOVEQ.L #0x12,D0 00023272 10 d9 | | MOVE.B (A1)+,(A0)+ 00023274 51 c8 ff fc |Q | DBF D0,0x23272 00023278 51 4f |QO | SUBQ.L #0x8,A7 0002327a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002327e 3f 02 |? | MOVE.W D2,-(A7) 00023280 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00023284 4e 92 |N | JSR (A2) 00023286 50 4f |PO | ADDQ.L #0x8,A7 00023288 48 78 00 00 |Hx | PEA.L 0x0 0002328c 48 78 00 05 |Hx | PEA.L 0x5 00023290 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00023296 de c4 | | ADDA.W D4,A7 00023298 30 2f 00 02 |0/ | MOVE.W (A7+0x2),D0 0002329c 41 bc 00 05 |A | CHK.W #0x5,D0 000232a0 de c6 | | ADDA.W D6,A7 000232a2 33 c0 00 02 95 e0 |3 | MOVE.W D0,0x295e0 000232a8 4a 79 00 02 95 e0 |Jy | TST.W 0x295e0 000232ae 67 2a |g* | BEQ 0x232da 000232b0 30 39 00 02 95 e0 |09 | MOVE.W 0x295e0,D0 000232b6 e5 40 | @ | ASL.W #0x2,D0 000232b8 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 000232be 33 f0 00 10 00 02 95 f8 |3 | MOVE.W (A0+D0.W+#0x10),0x295f8 000232c6 13 f0 00 12 00 02 95 fa | | MOVE.B (A0+D0.W+#0x12),0x295fa 000232ce 13 f0 00 13 00 02 95 fb | | MOVE.B (A0+D0.W+#0x13),0x295fb 000232d6 60 00 01 1c |` | BRA 0x233f4 000232da 9e fc 00 2a | * | SUBA.W #0x2a,A7 000232de 20 4f | O | MOVEA.L A7,A0 000232e0 43 fa cf 5a |C Z | LEA.L 0x2023c,A1 000232e4 70 28 |p( | MOVEQ.L #0x28,D0 000232e6 10 d9 | | MOVE.B (A1)+,(A0)+ 000232e8 51 c8 ff fc |Q | DBF D0,0x232e6 000232ec 51 4f |QO | SUBQ.L #0x8,A7 000232ee 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000232f2 3f 02 |? | MOVE.W D2,-(A7) 000232f4 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 000232f8 4e 92 |N | JSR (A2) 000232fa 50 4f |PO | ADDQ.L #0x8,A7 000232fc 48 78 00 01 |Hx | PEA.L 0x1 00023300 48 78 0f ff |Hx | PEA.L 0xfff 00023304 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 0002330a de c4 | | ADDA.W D4,A7 0002330c 20 1f | | MOVE.L (A7)+,D0 0002330e 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00023314 63 02 |c | BLS 0x23318 00023316 4e 4f |NO | TRAP #15 00023318 de fc 00 2a | * | ADDA.W #0x2a,A7 0002331c 33 c0 00 02 95 f8 |3 | MOVE.W D0,0x295f8 00023322 9e fc 00 34 | 4 | SUBA.W #0x34,A7 00023326 20 4f | O | MOVEA.L A7,A0 00023328 43 fa cf 3c |C < | LEA.L 0x20266,A1 0002332c 70 32 |p2 | MOVEQ.L #0x32,D0 0002332e 10 d9 | | MOVE.B (A1)+,(A0)+ 00023330 51 c8 ff fc |Q | DBF D0,0x2332e 00023334 51 4f |QO | SUBQ.L #0x8,A7 00023336 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002333a 3f 02 |? | MOVE.W D2,-(A7) 0002333c 3f 3c 00 33 |?< 3 | MOVE.W #0x33,-(A7) 00023340 4e 92 |N | JSR (A2) 00023342 50 4f |PO | ADDQ.L #0x8,A7 00023344 48 78 00 01 |Hx | PEA.L 0x1 00023348 48 78 00 fe |Hx | PEA.L 0xfe 0002334c 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00023352 de c4 | | ADDA.W D4,A7 00023354 20 1f | | MOVE.L (A7)+,D0 00023356 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 0002335c 63 02 |c | BLS 0x23360 0002335e 4e 4f |NO | TRAP #15 00023360 de fc 00 34 | 4 | ADDA.W #0x34,A7 00023364 13 c0 00 02 95 fa | | MOVE.B D0,0x295fa 0002336a 9e fc 00 32 | 2 | SUBA.W #0x32,A7 0002336e 20 4f | O | MOVEA.L A7,A0 00023370 43 fa cf 28 |C ( | LEA.L 0x2029a,A1 00023374 70 30 |p0 | MOVEQ.L #0x30,D0 00023376 10 d9 | | MOVE.B (A1)+,(A0)+ 00023378 51 c8 ff fc |Q | DBF D0,0x23376 0002337c 51 4f |QO | SUBQ.L #0x8,A7 0002337e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023382 3f 02 |? | MOVE.W D2,-(A7) 00023384 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 00023388 4e 92 |N | JSR (A2) 0002338a 50 4f |PO | ADDQ.L #0x8,A7 0002338c 48 78 00 01 |Hx | PEA.L 0x1 00023390 48 78 00 fe |Hx | PEA.L 0xfe 00023394 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 0002339a de c4 | | ADDA.W D4,A7 0002339c 20 1f | | MOVE.L (A7)+,D0 0002339e 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 000233a4 63 02 |c | BLS 0x233a8 000233a6 4e 4f |NO | TRAP #15 000233a8 de fc 00 32 | 2 | ADDA.W #0x32,A7 000233ac 13 c0 00 02 95 fb | | MOVE.B D0,0x295fb 000233b2 42 81 |B | CLR.L D1 000233b4 12 00 | | MOVE.B D0,D1 000233b6 c2 42 | B | AND.W D2,D1 000233b8 67 2c |g, | BEQ 0x233e6 000233ba 9e fc 00 20 | | SUBA.W #0x20,A7 000233be 20 4f | O | MOVEA.L A7,A0 000233c0 43 fa cf b6 |C | LEA.L 0x20378,A1 000233c4 70 1e |p | MOVEQ.L #0x1e,D0 000233c6 10 d9 | | MOVE.B (A1)+,(A0)+ 000233c8 51 c8 ff fc |Q | DBF D0,0x233c6 000233cc 59 4f |YO | SUBQ.L #0x4,A7 000233ce 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000233d2 3f 02 |? | MOVE.W D2,-(A7) 000233d4 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 000233d8 4e 92 |N | JSR (A2) 000233da 50 4f |PO | ADDQ.L #0x8,A7 000233dc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000233e2 de fc 00 24 | $ | ADDA.W #0x24,A7 000233e6 42 80 |B | CLR.L D0 000233e8 10 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D0 000233ee c0 42 | B | AND.W D2,D0 000233f0 66 00 ff 78 |f x | BNE 0x2336a 000233f4 41 fa ce f0 |A | LEA.L 0x202e6,A0 000233f8 70 0c |p | MOVEQ.L #0x0c,D0 000233fa 3f 20 |? | MOVE.W -(A0),-(A7) 000233fc 51 c8 ff fc |Q | DBF D0,0x233fa 00023400 9e c4 | | SUBA.W D4,A7 00023402 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00023406 3f 02 |? | MOVE.W D2,-(A7) 00023408 3f 03 |? | MOVE.W D3,-(A7) 0002340a 4e 92 |N | JSR (A2) 0002340c 50 4f |PO | ADDQ.L #0x8,A7 0002340e 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00023414 58 4f |XO | ADDQ.L #0x4,A7 00023416 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 0002341c 58 4f |XO | ADDQ.L #0x4,A7 0002341e 23 df 00 02 95 ea |# | MOVE.L (A7)+,0x295ea 00023424 de c3 | | ADDA.W D3,A7 00023426 3f 14 |? | MOVE.W (A4),-(A7) 00023428 4e ba f3 78 |N x | JSR 0x227a2 0002342c 54 4f |TO | ADDQ.L #0x2,A7 0002342e 4a 79 00 02 95 e0 |Jy | TST.W 0x295e0 00023434 66 10 |f | BNE 0x23446 00023436 30 39 00 02 95 e2 |09 | MOVE.W 0x295e2,D0 0002343c 41 bc 00 05 |A | CHK.W #0x5,D0 00023440 33 c0 00 02 95 e0 |3 | MOVE.W D0,0x295e0 00023446 55 4f |UO | SUBQ.L #0x2,A7 00023448 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool 0002344e 4a 1f |J | TST.B (A7)+ 00023450 67 00 01 9a |g | BEQ 0x235ec 00023454 33 f9 00 02 95 e4 00 02 |3 | MOVE.W 0x295e4,0x295f8 0002345c 95 f8 | | 0002345e 30 39 00 02 95 e6 |09 | MOVE.W 0x295e6,D0 00023464 41 bc 00 ff |A | CHK.W #0xff,D0 00023468 13 c0 00 02 95 fa | | MOVE.B D0,0x295fa 0002346e 30 39 00 02 95 e8 |09 | MOVE.W 0x295e8,D0 00023474 41 bc 00 ff |A | CHK.W #0xff,D0 00023478 13 c0 00 02 95 fb | | MOVE.B D0,0x295fb 0002347e 42 39 00 02 da 04 |B9 | CLR.B 0x2da04 00023484 42 39 00 02 da 05 |B9 | CLR.B 0x2da05 0002348a 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00023490 9e fc 00 22 | " | SUBA.W #0x22,A7 00023494 20 4f | O | MOVEA.L A7,A0 00023496 43 fa d1 92 |C | LEA.L 0x2062a,A1 0002349a 70 20 |p | MOVEQ.L #0x20,D0 0002349c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002349e 51 c8 ff fc |Q | DBF D0,0x2349c 000234a2 3f 3a d1 ac |?: | MOVE.W 0x20650,-(A7) 000234a6 3f 3a d1 a6 |?: | MOVE.W 0x2064e,-(A7) 000234aa 3f 3a d1 a0 |?: | MOVE.W 0x2064c,-(A7) 000234ae 51 4f |QO | SUBQ.L #0x8,A7 000234b0 48 6f 00 0e |Ho | PEA.L (A7+0xe) 000234b4 3f 02 |? | MOVE.W D2,-(A7) 000234b6 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 000234ba 4e 92 |N | JSR (A2) 000234bc 58 4f |XO | ADDQ.L #0x4,A7 000234be 30 14 |0 | MOVE.W (A4),D0 000234c0 48 c0 |H | EXTW.L D0 000234c2 2f 00 |/ | MOVE.L D0,-(A7) 000234c4 48 78 00 01 |Hx | PEA.L 0x1 000234c8 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 000234ce 58 4f |XO | ADDQ.L #0x4,A7 000234d0 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000234d4 3f 02 |? | MOVE.W D2,-(A7) 000234d6 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 000234da 4e 92 |N | JSR (A2) 000234dc 2e b9 00 02 95 ea |. | MOVE.L 0x295ea,(A7) 000234e2 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000234e8 58 4f |XO | ADDQ.L #0x4,A7 000234ea 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 000234f0 de c7 | | ADDA.W D7,A7 000234f2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000234f8 50 4f |PO | ADDQ.L #0x8,A7 000234fa 20 4f | O | MOVEA.L A7,A0 000234fc 43 fa d1 54 |C T | LEA.L 0x20652,A1 00023500 70 22 |p" | MOVEQ.L #0x22,D0 00023502 10 d9 | | MOVE.B (A1)+,(A0)+ 00023504 51 c8 ff fc |Q | DBF D0,0x23502 00023508 59 4f |YO | SUBQ.L #0x4,A7 0002350a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002350e 3f 02 |? | MOVE.W D2,-(A7) 00023510 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 00023514 4e 92 |N | JSR (A2) 00023516 50 4f |PO | ADDQ.L #0x8,A7 00023518 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002351e de c3 | | ADDA.W D3,A7 00023520 20 4f | O | MOVEA.L A7,A0 00023522 43 fa d1 52 |C R | LEA.L 0x20676,A1 00023526 70 0c |p | MOVEQ.L #0x0c,D0 00023528 10 d9 | | MOVE.B (A1)+,(A0)+ 0002352a 51 c8 ff fc |Q | DBF D0,0x23528 0002352e 51 4f |QO | SUBQ.L #0x8,A7 00023530 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023534 3f 02 |? | MOVE.W D2,-(A7) 00023536 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 0002353a 4e 92 |N | JSR (A2) 0002353c 58 4f |XO | ADDQ.L #0x4,A7 0002353e 42 80 |B | CLR.L D0 00023540 30 39 00 02 95 e4 |09 | MOVE.W 0x295e4,D0 00023546 2f 00 |/ | MOVE.L D0,-(A7) 00023548 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002354e 58 4f |XO | ADDQ.L #0x4,A7 00023550 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023556 50 4f |PO | ADDQ.L #0x8,A7 00023558 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002355e 58 4f |XO | ADDQ.L #0x4,A7 00023560 20 4f | O | MOVEA.L A7,A0 00023562 43 fa d1 20 |C | LEA.L 0x20684,A1 00023566 70 0c |p | MOVEQ.L #0x0c,D0 00023568 10 d9 | | MOVE.B (A1)+,(A0)+ 0002356a 51 c8 ff fc |Q | DBF D0,0x23568 0002356e 51 4f |QO | SUBQ.L #0x8,A7 00023570 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023574 3f 02 |? | MOVE.W D2,-(A7) 00023576 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 0002357a 4e 92 |N | JSR (A2) 0002357c 58 4f |XO | ADDQ.L #0x4,A7 0002357e 30 39 00 02 95 e6 |09 | MOVE.W 0x295e6,D0 00023584 48 c0 |H | EXTW.L D0 00023586 2f 00 |/ | MOVE.L D0,-(A7) 00023588 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002358e 58 4f |XO | ADDQ.L #0x4,A7 00023590 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023596 50 4f |PO | ADDQ.L #0x8,A7 00023598 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002359e 58 4f |XO | ADDQ.L #0x4,A7 000235a0 20 4f | O | MOVEA.L A7,A0 000235a2 43 fa d0 ee |C | LEA.L 0x20692,A1 000235a6 70 0c |p | MOVEQ.L #0x0c,D0 000235a8 10 d9 | | MOVE.B (A1)+,(A0)+ 000235aa 51 c8 ff fc |Q | DBF D0,0x235a8 000235ae 51 4f |QO | SUBQ.L #0x8,A7 000235b0 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000235b4 3f 02 |? | MOVE.W D2,-(A7) 000235b6 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 000235ba 4e 92 |N | JSR (A2) 000235bc 58 4f |XO | ADDQ.L #0x4,A7 000235be 30 39 00 02 95 e8 |09 | MOVE.W 0x295e8,D0 000235c4 48 c0 |H | EXTW.L D0 000235c6 2f 00 |/ | MOVE.L D0,-(A7) 000235c8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000235ce 58 4f |XO | ADDQ.L #0x4,A7 000235d0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000235d6 50 4f |PO | ADDQ.L #0x8,A7 000235d8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000235de de fc 00 12 | | ADDA.W #0x12,A7 000235e2 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000235e8 60 00 02 3a |` : | BRA 0x23824 000235ec 30 39 00 02 95 e2 |09 | MOVE.W 0x295e2,D0 000235f2 41 bc 00 05 |A | CHK.W #0x5,D0 000235f6 e5 40 | @ | ASL.W #0x2,D0 000235f8 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 000235fe 32 30 00 10 |20 | MOVE.W (A0+D0.W+#0x10),D1 00023602 b2 79 00 02 95 f8 | y | CMP.W 0x295f8,D1 00023608 66 1a |f | BNE 0x23624 0002360a 12 30 00 12 | 0 | MOVE.B (A0+D0.W+#0x12),D1 0002360e b2 39 00 02 95 fa | 9 | CMP.B 0x295fa,D1 00023614 66 0e |f | BNE 0x23624 00023616 10 30 00 13 | 0 | MOVE.B (A0+D0.W+#0x13),D0 0002361a b0 39 00 02 95 fb | 9 | CMP.B 0x295fb,D0 00023620 67 00 01 f6 |g | BEQ 0x23818 00023624 4a 2e 00 08 |J. | TST.B (A6+0x8) 00023628 67 2a |g* | BEQ 0x23654 0002362a 9e fc 00 32 | 2 | SUBA.W #0x32,A7 0002362e 20 4f | O | MOVEA.L A7,A0 00023630 43 fa cd 84 |C | LEA.L 0x203b6,A1 00023634 70 30 |p0 | MOVEQ.L #0x30,D0 00023636 10 d9 | | MOVE.B (A1)+,(A0)+ 00023638 51 c8 ff fc |Q | DBF D0,0x23636 0002363c 59 4f |YO | SUBQ.L #0x4,A7 0002363e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023642 3f 02 |? | MOVE.W D2,-(A7) 00023644 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 00023648 4e 92 |N | JSR (A2) 0002364a 50 4f |PO | ADDQ.L #0x8,A7 0002364c 4e ba ee 7e |N ~ | JSR 0x224cc 00023650 de fc 00 36 | 6 | ADDA.W #0x36,A7 00023654 30 39 00 02 95 e2 |09 | MOVE.W 0x295e2,D0 0002365a 41 bc 00 05 |A | CHK.W #0x5,D0 0002365e e5 40 | @ | ASL.W #0x2,D0 00023660 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 00023666 32 30 00 10 |20 | MOVE.W (A0+D0.W+#0x10),D1 0002366a b2 79 00 02 95 f8 | y | CMP.W 0x295f8,D1 00023670 62 1a |b | BHI 0x2368c 00023672 12 30 00 12 | 0 | MOVE.B (A0+D0.W+#0x12),D1 00023676 b2 39 00 02 95 fa | 9 | CMP.B 0x295fa,D1 0002367c 62 0e |b | BHI 0x2368c 0002367e 10 30 00 13 | 0 | MOVE.B (A0+D0.W+#0x13),D0 00023682 b0 39 00 02 95 fb | 9 | CMP.B 0x295fb,D0 00023688 63 00 00 de |c | BLS 0x23768 0002368c 13 c2 00 02 da 04 | | MOVE.B D2,0x2da04 00023692 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00023698 41 fa ce d0 |A | LEA.L 0x2056a,A0 0002369c 70 11 |p | MOVEQ.L #0x11,D0 0002369e 2f 20 |/ | MOVE.L -(A0),-(A7) 000236a0 51 c8 ff fc |Q | DBF D0,0x2369e 000236a4 59 4f |YO | SUBQ.L #0x4,A7 000236a6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000236aa 3f 02 |? | MOVE.W D2,-(A7) 000236ac 3f 3c 00 48 |?< H | MOVE.W #0x48,-(A7) 000236b0 4e 92 |N | JSR (A2) 000236b2 50 4f |PO | ADDQ.L #0x8,A7 000236b4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000236ba de fc 00 4c | L | ADDA.W #0x4c,A7 000236be 41 fa cf 1e |A | LEA.L 0x205de,A0 000236c2 70 11 |p | MOVEQ.L #0x11,D0 000236c4 2f 20 |/ | MOVE.L -(A0),-(A7) 000236c6 51 c8 ff fc |Q | DBF D0,0x236c4 000236ca 59 4f |YO | SUBQ.L #0x4,A7 000236cc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000236d0 3f 02 |? | MOVE.W D2,-(A7) 000236d2 3f 3c 00 48 |?< H | MOVE.W #0x48,-(A7) 000236d6 4e 92 |N | JSR (A2) 000236d8 50 4f |PO | ADDQ.L #0x8,A7 000236da 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000236e0 de fc 00 4c | L | ADDA.W #0x4c,A7 000236e4 41 fa cf 3e |A > | LEA.L 0x20624,A0 000236e8 70 22 |p" | MOVEQ.L #0x22,D0 000236ea 3f 20 |? | MOVE.W -(A0),-(A7) 000236ec 51 c8 ff fc |Q | DBF D0,0x236ea 000236f0 59 4f |YO | SUBQ.L #0x4,A7 000236f2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000236f6 3f 02 |? | MOVE.W D2,-(A7) 000236f8 3f 3c 00 46 |?< F | MOVE.W #0x46,-(A7) 000236fc 4e 92 |N | JSR (A2) 000236fe 50 4f |PO | ADDQ.L #0x8,A7 00023700 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023706 de fc 00 4a | J | ADDA.W #0x4a,A7 0002370a 41 fa ce 5e |A ^ | LEA.L 0x2056a,A0 0002370e 70 11 |p | MOVEQ.L #0x11,D0 00023710 2f 20 |/ | MOVE.L -(A0),-(A7) 00023712 51 c8 ff fc |Q | DBF D0,0x23710 00023716 59 4f |YO | SUBQ.L #0x4,A7 00023718 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002371c 3f 02 |? | MOVE.W D2,-(A7) 0002371e 3f 3c 00 48 |?< H | MOVE.W #0x48,-(A7) 00023722 4e 92 |N | JSR (A2) 00023724 50 4f |PO | ADDQ.L #0x8,A7 00023726 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002372c de fc 00 4c | L | ADDA.W #0x4c,A7 00023730 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00023736 41 fa cb ae |A | LEA.L 0x202e6,A0 0002373a 70 0c |p | MOVEQ.L #0x0c,D0 0002373c 3f 20 |? | MOVE.W -(A0),-(A7) 0002373e 51 c8 ff fc |Q | DBF D0,0x2373c 00023742 9e c4 | | SUBA.W D4,A7 00023744 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00023748 3f 02 |? | MOVE.W D2,-(A7) 0002374a 3f 03 |? | MOVE.W D3,-(A7) 0002374c 4e 92 |N | JSR (A2) 0002374e 50 4f |PO | ADDQ.L #0x8,A7 00023750 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00023756 58 4f |XO | ADDQ.L #0x4,A7 00023758 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 0002375e 58 4f |XO | ADDQ.L #0x4,A7 00023760 23 df 00 02 95 ea |# | MOVE.L (A7)+,0x295ea 00023766 de c3 | | ADDA.W D3,A7 00023768 30 39 00 02 95 e2 |09 | MOVE.W 0x295e2,D0 0002376e 41 bc 00 05 |A | CHK.W #0x5,D0 00023772 e5 40 | @ | ASL.W #0x2,D0 00023774 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 0002377a 33 f0 00 10 00 02 95 f8 |3 | MOVE.W (A0+D0.W+#0x10),0x295f8 00023782 13 f0 00 12 00 02 95 fa | | MOVE.B (A0+D0.W+#0x12),0x295fa 0002378a 13 f0 00 13 00 02 95 fb | | MOVE.B (A0+D0.W+#0x13),0x295fb 00023792 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00023798 41 fa cd d0 |A | LEA.L 0x2056a,A0 0002379c 70 11 |p | MOVEQ.L #0x11,D0 0002379e 2f 20 |/ | MOVE.L -(A0),-(A7) 000237a0 51 c8 ff fc |Q | DBF D0,0x2379e 000237a4 59 4f |YO | SUBQ.L #0x4,A7 000237a6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000237aa 3f 02 |? | MOVE.W D2,-(A7) 000237ac 3f 3c 00 48 |?< H | MOVE.W #0x48,-(A7) 000237b0 4e 92 |N | JSR (A2) 000237b2 50 4f |PO | ADDQ.L #0x8,A7 000237b4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000237ba 5c 4f |\O | ADDQ.L #0x6,A7 000237bc 20 4f | O | MOVEA.L A7,A0 000237be 43 fa cd 1c |C | LEA.L 0x204dc,A1 000237c2 70 44 |pD | MOVEQ.L #0x44,D0 000237c4 10 d9 | | MOVE.B (A1)+,(A0)+ 000237c6 51 c8 ff fc |Q | DBF D0,0x237c4 000237ca 59 4f |YO | SUBQ.L #0x4,A7 000237cc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000237d0 3f 02 |? | MOVE.W D2,-(A7) 000237d2 3f 3c 00 45 |?< E | MOVE.W #0x45,-(A7) 000237d6 4e 92 |N | JSR (A2) 000237d8 50 4f |PO | ADDQ.L #0x8,A7 000237da 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000237e0 de fc 00 4a | J | ADDA.W #0x4a,A7 000237e4 41 fa cd 84 |A | LEA.L 0x2056a,A0 000237e8 70 11 |p | MOVEQ.L #0x11,D0 000237ea 2f 20 |/ | MOVE.L -(A0),-(A7) 000237ec 51 c8 ff fc |Q | DBF D0,0x237ea 000237f0 59 4f |YO | SUBQ.L #0x4,A7 000237f2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000237f6 3f 02 |? | MOVE.W D2,-(A7) 000237f8 3f 3c 00 48 |?< H | MOVE.W #0x48,-(A7) 000237fc 4e 92 |N | JSR (A2) 000237fe 50 4f |PO | ADDQ.L #0x8,A7 00023800 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023806 de fc 00 4c | L | ADDA.W #0x4c,A7 0002380a 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00023810 13 c2 00 02 da 05 | | MOVE.B D2,0x2da05 00023816 60 0c |` | BRA 0x23824 00023818 42 39 00 02 da 04 |B9 | CLR.B 0x2da04 0002381e 42 39 00 02 da 05 |B9 | CLR.B 0x2da05 00023824 42 80 |B | CLR.L D0 00023826 10 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D0 0002382c e2 40 | @ | ASR.W #0x1,D0 0002382e 33 c0 00 01 00 0a |3 | MOVE.W D0,0x1000a 00023834 42 80 |B | CLR.L D0 00023836 10 39 00 02 95 fa | 9 | MOVE.B 0x295fa,D0 0002383c c0 f9 00 01 00 0a | | MULU.W 0x1000a,D0 00023842 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00023848 63 02 |c | BLS 0x2384c 0002384a 4e 4f |NO | TRAP #15 0002384c 33 c0 00 01 00 0c |3 | MOVE.W D0,0x1000c 00023852 55 4f |UO | SUBQ.L #0x2,A7 00023854 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool 0002385a 4a 1f |J | TST.B (A7)+ 0002385c 66 00 00 8a |f | BNE 0x238e8 00023860 55 4f |UO | SUBQ.L #0x2,A7 00023862 4e ba f3 b2 |N | JSR 0x22c16 00023866 4a 1f |J | TST.B (A7)+ 00023868 67 7e |g~ | BEQ 0x238e8 0002386a 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00023870 41 fa cc f8 |A | LEA.L 0x2056a,A0 00023874 70 11 |p | MOVEQ.L #0x11,D0 00023876 2f 20 |/ | MOVE.L -(A0),-(A7) 00023878 51 c8 ff fc |Q | DBF D0,0x23876 0002387c 59 4f |YO | SUBQ.L #0x4,A7 0002387e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023882 3f 02 |? | MOVE.W D2,-(A7) 00023884 3f 3c 00 48 |?< H | MOVE.W #0x48,-(A7) 00023888 4e 92 |N | JSR (A2) 0002388a 50 4f |PO | ADDQ.L #0x8,A7 0002388c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023892 de fc 00 4c | L | ADDA.W #0x4c,A7 00023896 41 fa cc fe |A | LEA.L 0x20596,A0 0002389a 70 0a |p | MOVEQ.L #0x0a,D0 0002389c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002389e 51 c8 ff fc |Q | DBF D0,0x2389c 000238a2 59 4f |YO | SUBQ.L #0x4,A7 000238a4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000238a8 3f 02 |? | MOVE.W D2,-(A7) 000238aa 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7) 000238ae 4e 92 |N | JSR (A2) 000238b0 50 4f |PO | ADDQ.L #0x8,A7 000238b2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000238b8 de fc 00 30 | 0 | ADDA.W #0x30,A7 000238bc 41 fa cc ac |A | LEA.L 0x2056a,A0 000238c0 70 11 |p | MOVEQ.L #0x11,D0 000238c2 2f 20 |/ | MOVE.L -(A0),-(A7) 000238c4 51 c8 ff fc |Q | DBF D0,0x238c2 000238c8 59 4f |YO | SUBQ.L #0x4,A7 000238ca 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000238ce 3f 02 |? | MOVE.W D2,-(A7) 000238d0 3f 3c 00 48 |?< H | MOVE.W #0x48,-(A7) 000238d4 4e 92 |N | JSR (A2) 000238d6 50 4f |PO | ADDQ.L #0x8,A7 000238d8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000238de de fc 00 4c | L | ADDA.W #0x4c,A7 000238e2 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000238e8 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000238ec 4e 5e |N^ | UNLK A6 000238ee 4e 75 |Nu | RTS 000238f0 ; -------------------------------------------------------------------------------------- 000238f0 ; OMSI PASCAL Function 000238f0 ; <LVAR 0x008 4(r)> 000238f0 ; <LVAR -0x002 2(rw)> 000238f0 ; <LVAR -0x010 @ 1(r)> 000238f0 ; -------------------------------------------------------------------------------------- 000238f0 4e 56 ff 6e |NV n | LINK.W A6,#0xff6e 000238f4 bf d5 | | CMPA.L (A5),A7 000238f6 62 06 |b | BHI 0x238fe 000238f8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000238fc 4e 76 |Nv | TRAPV 000238fe de fc 00 7e | ~ | ADDA.W #0x7e,A7 00023902 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023906 45 ee ff f0 |E | LEA.L (A6-0x10),A2 0002390a 47 ee ff fe |G | LEA.L (A6-0x2),A3 0002390e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023912 42 10 |B | CLR.B (A0) 00023914 42 80 |B | CLR.L D0 00023916 10 39 00 02 96 12 | 9 | MOVE.B 0x29612,D0 0002391c 42 81 |B | CLR.L D1 0002391e 12 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D1 00023924 c0 c1 | | MULU.W D1,D0 00023926 42 82 |B | CLR.L D2 00023928 14 39 00 02 96 13 | 9 | MOVE.B 0x29613,D2 0002392e 52 42 |RB | ADDQ.W #0x1,D2 00023930 d4 40 | @ | ADD.W D0,D2 00023932 e2 4a | J | LSR.W #0x1,D2 00023934 3a 02 |: | MOVE.W D2,D5 00023936 42 80 |B | CLR.L D0 00023938 10 39 00 02 96 16 | 9 | MOVE.B 0x29616,D0 0002393e c0 c1 | | MULU.W D1,D0 00023940 42 81 |B | CLR.L D1 00023942 12 39 00 02 96 17 | 9 | MOVE.B 0x29617,D1 00023948 53 41 |SA | SUBQ.W #0x1,D1 0002394a 42 82 |B | CLR.L D2 0002394c 34 00 |4 | MOVE.W D0,D2 0002394e 48 c1 |H | EXTW.L D1 00023950 d2 82 | | ADD.L D2,D1 00023952 28 01 |( | MOVE.L D1,D4 00023954 76 02 |v | MOVEQ.L #0x02,D3 00023956 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 0002395c 36 84 |6 | MOVE.W D4,(A3) 0002395e 42 80 |B | CLR.L D0 00023960 30 13 |0 | MOVE.W (A3),D0 00023962 42 81 |B | CLR.L D1 00023964 32 05 |2 | MOVE.W D5,D1 00023966 90 81 | | SUB.L D1,D0 00023968 0c 80 00 00 00 0f | | CMPI.L #0x0000000f,D0 0002396e 67 32 |g2 | BEQ 0x239a2 00023970 9e fc 00 32 | 2 | SUBA.W #0x32,A7 00023974 20 4f | O | MOVEA.L A7,A0 00023976 43 fa cd 62 |C b | LEA.L 0x206da,A1 0002397a 70 30 |p0 | MOVEQ.L #0x30,D0 0002397c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002397e 51 c8 ff fc |Q | DBF D0,0x2397c 00023982 59 4f |YO | SUBQ.L #0x4,A7 00023984 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023988 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002398c 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 00023990 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023996 50 4f |PO | ADDQ.L #0x8,A7 00023998 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002399e de fc 00 36 | 6 | ADDA.W #0x36,A7 000239a2 7c 00 || | MOVEQ.L #0x00,D6 000239a4 3e 01 |> | MOVE.W D1,D7 000239a6 0c 86 00 00 07 ff | | CMPI.L #0x000007ff,D6 000239ac 63 02 |c | BLS 0x239b0 000239ae 4e 4f |NO | TRAP #15 000239b0 20 06 | | MOVE.L D6,D0 000239b2 e5 80 | | ASL.L #0x2,D0 000239b4 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 000239ba 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 000239be 41 e8 04 4c |A L | LEA.L (A0+0x44c),A0 000239c2 2f 08 |/ | MOVE.L A0,-(A7) 000239c4 28 5f |(_ | MOVEA.L (A7)+,A4 000239c6 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000239ca 3f 07 |? | MOVE.W D7,-(A7) 000239cc 48 78 00 01 |Hx | PEA.L 0x1 000239d0 2f 0c |/ | MOVE.L A4,-(A7) 000239d2 48 52 |HR | PEA.L (A2) 000239d4 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 000239da de fc 00 10 | | ADDA.W #0x10,A7 000239de 4a 12 |J | TST.B (A2) 000239e0 66 34 |f4 | BNE 0x23a16 000239e2 9e fc 00 3a | : | SUBA.W #0x3a,A7 000239e6 20 4f | O | MOVEA.L A7,A0 000239e8 43 fa cc b6 |C | LEA.L 0x206a0,A1 000239ec 70 38 |p8 | MOVEQ.L #0x38,D0 000239ee 10 d9 | | MOVE.B (A1)+,(A0)+ 000239f0 51 c8 ff fc |Q | DBF D0,0x239ee 000239f4 59 4f |YO | SUBQ.L #0x4,A7 000239f6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000239fa 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000239fe 3f 3c 00 39 |?< 9 | MOVE.W #0x39,-(A7) 00023a02 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023a08 50 4f |PO | ADDQ.L #0x8,A7 00023a0a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023a10 de fc 00 3e | > | ADDA.W #0x3e,A7 00023a14 60 18 |` | BRA 0x23a2e 00023a16 06 86 00 00 01 00 | | ADDI.L #0x00000100,D6 00023a1c 42 80 |B | CLR.L D0 00023a1e 30 07 |0 | MOVE.W D7,D0 00023a20 54 80 |T | ADDQ.L #0x2,D0 00023a22 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00023a28 63 02 |c | BLS 0x23a2c 00023a2a 4e 4f |NO | TRAP #15 00023a2c 3e 00 |> | MOVE.W D0,D7 00023a2e be 53 | S | CMP.W (A3),D7 00023a30 62 06 |b | BHI 0x23a38 00023a32 4a 12 |J | TST.B (A2) 00023a34 66 00 ff 70 |f p | BNE 0x239a6 00023a38 4a 12 |J | TST.B (A2) 00023a3a 67 08 |g | BEQ 0x23a44 00023a3c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023a40 10 bc 00 01 | | MOVE.B #0x01,(A0) 00023a44 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00023a48 4e 5e |N^ | UNLK A6 00023a4a 4e 75 |Nu | RTS 00023a4c ; -------------------------------------------------------------------------------------- 00023a4c ; OMSI PASCAL Function 00023a4c ; <LVAR 0x008 4(r)> 00023a4c ; <LVAR -0x002 2(rw)> 00023a4c ; <LVAR -0x010 @ 1(r)> 00023a4c ; -------------------------------------------------------------------------------------- 00023a4c 4e 56 ff 72 |NV r | LINK.W A6,#0xff72 00023a50 bf d5 | | CMPA.L (A5),A7 00023a52 62 06 |b | BHI 0x23a5a 00023a54 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023a58 4e 76 |Nv | TRAPV 00023a5a de fc 00 7a | z | ADDA.W #0x7a,A7 00023a5e 48 e7 ff c8 |H | MOVEM.L A4+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023a62 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00023a66 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023a6a 42 10 |B | CLR.B (A0) 00023a6c 42 80 |B | CLR.L D0 00023a6e 10 39 00 02 96 1a | 9 | MOVE.B 0x2961a,D0 00023a74 42 81 |B | CLR.L D1 00023a76 12 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D1 00023a7c c0 c1 | | MULU.W D1,D0 00023a7e 42 82 |B | CLR.L D2 00023a80 14 39 00 02 96 1b | 9 | MOVE.B 0x2961b,D2 00023a86 52 42 |RB | ADDQ.W #0x1,D2 00023a88 d4 40 | @ | ADD.W D0,D2 00023a8a e2 4a | J | LSR.W #0x1,D2 00023a8c 3a 02 |: | MOVE.W D2,D5 00023a8e 42 80 |B | CLR.L D0 00023a90 10 39 00 02 96 1e | 9 | MOVE.B 0x2961e,D0 00023a96 c0 c1 | | MULU.W D1,D0 00023a98 42 81 |B | CLR.L D1 00023a9a 12 39 00 02 96 1f | 9 | MOVE.B 0x2961f,D1 00023aa0 53 41 |SA | SUBQ.W #0x1,D1 00023aa2 42 82 |B | CLR.L D2 00023aa4 34 00 |4 | MOVE.W D0,D2 00023aa6 48 c1 |H | EXTW.L D1 00023aa8 d2 82 | | ADD.L D2,D1 00023aaa 28 01 |( | MOVE.L D1,D4 00023aac 76 02 |v | MOVEQ.L #0x02,D3 00023aae 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00023ab4 3d 44 ff fe |=D | MOVE.W D4,(A6-0x2) 00023ab8 7c 00 || | MOVEQ.L #0x00,D6 00023aba 3e 05 |> | MOVE.W D5,D7 00023abc 0c 86 00 00 07 ff | | CMPI.L #0x000007ff,D6 00023ac2 63 02 |c | BLS 0x23ac6 00023ac4 4e 4f |NO | TRAP #15 00023ac6 20 06 | | MOVE.L D6,D0 00023ac8 e5 80 | | ASL.L #0x2,D0 00023aca 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 00023ad0 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00023ad4 41 e8 24 4c |A $L | LEA.L (A0+0x244c),A0 00023ad8 2f 08 |/ | MOVE.L A0,-(A7) 00023ada 28 5f |(_ | MOVEA.L (A7)+,A4 00023adc 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00023ae0 3f 07 |? | MOVE.W D7,-(A7) 00023ae2 48 78 00 01 |Hx | PEA.L 0x1 00023ae6 2f 0c |/ | MOVE.L A4,-(A7) 00023ae8 48 51 |HQ | PEA.L (A1) 00023aea 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 00023af0 de fc 00 10 | | ADDA.W #0x10,A7 00023af4 4a 11 |J | TST.B (A1) 00023af6 66 2e |f. | BNE 0x23b26 00023af8 41 fa cc 50 |A P | LEA.L 0x2074a,A0 00023afc 70 1e |p | MOVEQ.L #0x1e,D0 00023afe 3f 20 |? | MOVE.W -(A0),-(A7) 00023b00 51 c8 ff fc |Q | DBF D0,0x23afe 00023b04 59 4f |YO | SUBQ.L #0x4,A7 00023b06 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023b0a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00023b0e 3f 3c 00 3e |?< > | MOVE.W #0x3e,-(A7) 00023b12 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023b18 50 4f |PO | ADDQ.L #0x8,A7 00023b1a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023b20 de fc 00 42 | B | ADDA.W #0x42,A7 00023b24 60 18 |` | BRA 0x23b3e 00023b26 06 86 00 00 01 00 | | ADDI.L #0x00000100,D6 00023b2c 42 80 |B | CLR.L D0 00023b2e 30 07 |0 | MOVE.W D7,D0 00023b30 54 80 |T | ADDQ.L #0x2,D0 00023b32 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00023b38 63 02 |c | BLS 0x23b3c 00023b3a 4e 4f |NO | TRAP #15 00023b3c 3e 00 |> | MOVE.W D0,D7 00023b3e be 6e ff fe | n | CMP.W (A6-0x2),D7 00023b42 62 06 |b | BHI 0x23b4a 00023b44 4a 11 |J | TST.B (A1) 00023b46 66 00 ff 74 |f t | BNE 0x23abc 00023b4a 4a 11 |J | TST.B (A1) 00023b4c 67 08 |g | BEQ 0x23b56 00023b4e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023b52 10 bc 00 01 | | MOVE.B #0x01,(A0) 00023b56 4c df 13 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A4 00023b5a 4e 5e |N^ | UNLK A6 00023b5c 4e 75 |Nu | RTS 00023b5e ; -------------------------------------------------------------------------------------- 00023b5e ; OMSI PASCAL Function 00023b5e ; <LVAR 0x008 4(r)> 00023b5e ; <LVAR -0x004 1(rw)> 00023b5e ; <LVAR -0x01c 2(r)> 00023b5e ; <LVAR -0x026 2(r)> 00023b5e ; <LVAR -0x044 @> 00023b5e ; <LVAR -0x04a @ 4(rw)> 00023b5e ; <LVAR -0x04e @ 4(rw)> 00023b5e ; <LVAR -0x05e 4(rw)> 00023b5e ; <LVAR -0x060 @ 1(r)> 00023b5e ; -------------------------------------------------------------------------------------- 00023b5e 4e 56 ff 1a |NV | LINK.W A6,#0xff1a 00023b62 bf d5 | | CMPA.L (A5),A7 00023b64 62 06 |b | BHI 0x23b6c 00023b66 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023b6a 4e 76 |Nv | TRAPV 00023b6c de fc 00 86 | | ADDA.W #0x86,A7 00023b70 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023b74 45 ee ff a0 |E | LEA.L (A6-0x60),A2 00023b78 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00023b7e 74 01 |t | MOVEQ.L #0x01,D2 00023b80 76 3e |v> | MOVEQ.L #0x3e,D3 00023b82 78 03 |x | MOVEQ.L #0x03,D4 00023b84 55 4f |UO | SUBQ.L #0x2,A7 00023b86 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00023b8c 4a 1f |J | TST.B (A7)+ 00023b8e 67 04 |g | BEQ 0x23b94 00023b90 60 00 03 32 |` 2 | BRA 0x23ec4 00023b94 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023b98 42 10 |B | CLR.B (A0) 00023b9a 2f 3a cc 1c |/: | MOVE.L 0x207b8,-(A7) 00023b9e 2f 3a cc 14 |/: | MOVE.L 0x207b4,-(A7) 00023ba2 51 4f |QO | SUBQ.L #0x8,A7 00023ba4 2f 39 00 02 95 ea |/9 | MOVE.L 0x295ea,-(A7) 00023baa 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00023bb0 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00023bb4 3f 02 |? | MOVE.W D2,-(A7) 00023bb6 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00023bba 4e 93 |N | JSR (A3) 00023bbc 50 4f |PO | ADDQ.L #0x8,A7 00023bbe 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023bc4 50 4f |PO | ADDQ.L #0x8,A7 00023bc6 2d 5f ff b6 |-_ | MOVE.L (A7)+,(A6-0x4a) 00023bca 50 4f |PO | ADDQ.L #0x8,A7 00023bcc 9e c3 | | SUBA.W D3,A7 00023bce 20 4f | O | MOVEA.L A7,A0 00023bd0 43 fa cb 78 |C x | LEA.L 0x2074a,A1 00023bd4 70 3c |p< | MOVEQ.L #0x3c,D0 00023bd6 10 d9 | | MOVE.B (A1)+,(A0)+ 00023bd8 51 c8 ff fc |Q | DBF D0,0x23bd6 00023bdc 51 4f |QO | SUBQ.L #0x8,A7 00023bde 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023be2 3f 02 |? | MOVE.W D2,-(A7) 00023be4 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 00023be8 4e 93 |N | JSR (A3) 00023bea 50 4f |PO | ADDQ.L #0x8,A7 00023bec 48 78 00 00 |Hx | PEA.L 0x0 00023bf0 48 78 00 03 |Hx | PEA.L 0x3 00023bf4 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00023bfa de fc 00 0c | | ADDA.W #0xc,A7 00023bfe 20 1f | | MOVE.L (A7)+,D0 00023c00 b0 84 | | CMP.L D4,D0 00023c02 63 02 |c | BLS 0x23c06 00023c04 4e 4f |NO | TRAP #15 00023c06 de c3 | | ADDA.W D3,A7 00023c08 3a 00 |: | MOVE.W D0,D5 00023c0a 4b 84 |K | CHK.W D4,D5 00023c0c 3f 05 |? | MOVE.W D5,-(A7) 00023c0e 42 27 |B' | CLR.B -(A7) 00023c10 1f 02 | | MOVE.B D2,-(A7) 00023c12 48 52 |HR | PEA.L (A2) 00023c14 4e b9 00 01 04 0c |N | JSR FSCALL_1040c 00023c1a de fc 00 0a | | ADDA.W #0xa,A7 00023c1e 4a 12 |J | TST.B (A2) 00023c20 67 0c |g | BEQ 0x23c2e 00023c22 1f 02 | | MOVE.B D2,-(A7) 00023c24 48 52 |HR | PEA.L (A2) 00023c26 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00023c2c 5c 4f |\O | ADDQ.L #0x6,A7 00023c2e 4a 12 |J | TST.B (A2) 00023c30 66 9a |f | BNE 0x23bcc 00023c32 41 ee ff bc |A | LEA.L (A6-0x44),A0 00023c36 2f 08 |/ | MOVE.L A0,-(A7) 00023c38 2d 5f ff a2 |-_ | MOVE.L (A7)+,(A6-0x5e) 00023c3c 28 6e ff a2 |(n | MOVEA.L (A6-0x5e),A4 00023c40 2f 2e ff a2 |/. | MOVE.L (A6-0x5e),-(A7) 00023c44 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 00023c48 4e b9 00 01 04 18 |N | JSR FSCALL_10418 00023c4e 5c 4f |\O | ADDQ.L #0x6,A7 00023c50 48 52 |HR | PEA.L (A2) 00023c52 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00023c58 58 4f |XO | ADDQ.L #0x4,A7 00023c5a 10 12 | | MOVE.B (A2),D0 00023c5c 0c 00 00 06 | | CMPI.B #0x06,D0 00023c60 66 1a |f | BNE 0x23c7c 00023c62 2f 2e ff a2 |/. | MOVE.L (A6-0x5e),-(A7) 00023c66 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 00023c6a 4e b9 00 01 04 18 |N | JSR FSCALL_10418 00023c70 5c 4f |\O | ADDQ.L #0x6,A7 00023c72 48 52 |HR | PEA.L (A2) 00023c74 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00023c7a 58 4f |XO | ADDQ.L #0x4,A7 00023c7c 10 12 | | MOVE.B (A2),D0 00023c7e 0c 00 00 06 | | CMPI.B #0x06,D0 00023c82 66 36 |f6 | BNE 0x23cba 00023c84 4e b9 00 01 04 10 |N | JSR FSCALL_10410 00023c8a 48 6e ff b6 |Hn | PEA.L (A6-0x4a) 00023c8e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023c94 58 4f |XO | ADDQ.L #0x4,A7 00023c96 41 fa cb 38 |A 8 | LEA.L 0x207d0,A0 00023c9a 72 04 |r | MOVEQ.L #0x04,D1 00023c9c 2f 20 |/ | MOVE.L -(A0),-(A7) 00023c9e 51 c9 ff fc |Q | DBF D1,0x23c9c 00023ca2 59 4f |YO | SUBQ.L #0x4,A7 00023ca4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023ca8 3f 02 |? | MOVE.W D2,-(A7) 00023caa 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 00023cae 4e 93 |N | JSR (A3) 00023cb0 50 4f |PO | ADDQ.L #0x8,A7 00023cb2 4e ba e8 18 |N | JSR 0x224cc 00023cb6 de fc 00 18 | | ADDA.W #0x18,A7 00023cba 4a 00 |J | TST.B D0 00023cbc 67 46 |gF | BEQ 0x23d04 00023cbe 1f 02 | | MOVE.B D2,-(A7) 00023cc0 48 52 |HR | PEA.L (A2) 00023cc2 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00023cc8 5c 4f |\O | ADDQ.L #0x6,A7 00023cca 4e b9 00 01 04 10 |N | JSR FSCALL_10410 00023cd0 48 6e ff b6 |Hn | PEA.L (A6-0x4a) 00023cd4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023cda 9e fc 00 28 | ( | SUBA.W #0x28,A7 00023cde 20 4f | O | MOVEA.L A7,A0 00023ce0 43 fa ca a6 |C | LEA.L 0x20788,A1 00023ce4 70 2a |p* | MOVEQ.L #0x2a,D0 00023ce6 10 d9 | | MOVE.B (A1)+,(A0)+ 00023ce8 51 c8 ff fc |Q | DBF D0,0x23ce6 00023cec 59 4f |YO | SUBQ.L #0x4,A7 00023cee 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023cf2 3f 02 |? | MOVE.W D2,-(A7) 00023cf4 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7) 00023cf8 4e 93 |N | JSR (A3) 00023cfa 50 4f |PO | ADDQ.L #0x8,A7 00023cfc 4e ba e7 ce |N | JSR 0x224cc 00023d00 de fc 00 30 | 0 | ADDA.W #0x30,A7 00023d04 30 2e ff e4 |0. | MOVE.W (A6-0x1c),D0 00023d08 b0 42 | B | CMP.W D2,D0 00023d0a 67 3a |g: | BEQ 0x23d46 00023d0c 4e b9 00 01 04 10 |N | JSR FSCALL_10410 00023d12 48 6e ff b6 |Hn | PEA.L (A6-0x4a) 00023d16 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023d1c 9e fc 00 24 | $ | SUBA.W #0x24,A7 00023d20 20 4f | O | MOVEA.L A7,A0 00023d22 43 fa ca ac |C | LEA.L 0x207d0,A1 00023d26 70 26 |p& | MOVEQ.L #0x26,D0 00023d28 10 d9 | | MOVE.B (A1)+,(A0)+ 00023d2a 51 c8 ff fc |Q | DBF D0,0x23d28 00023d2e 59 4f |YO | SUBQ.L #0x4,A7 00023d30 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023d34 3f 02 |? | MOVE.W D2,-(A7) 00023d36 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00023d3a 4e 93 |N | JSR (A3) 00023d3c 50 4f |PO | ADDQ.L #0x8,A7 00023d3e 4e ba e7 8c |N | JSR 0x224cc 00023d42 de fc 00 2c | , | ADDA.W #0x2c,A7 00023d46 41 ee ff da |A | LEA.L (A6-0x26),A0 00023d4a 70 0e |p | MOVEQ.L #0x0e,D0 00023d4c 3f 20 |? | MOVE.W -(A0),-(A7) 00023d4e 51 c8 ff fc |Q | DBF D0,0x23d4c 00023d52 51 4f |QO | SUBQ.L #0x8,A7 00023d54 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023d58 3f 02 |? | MOVE.W D2,-(A7) 00023d5a 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00023d5e 4e 93 |N | JSR (A3) 00023d60 50 4f |PO | ADDQ.L #0x8,A7 00023d62 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00023d68 58 4f |XO | ADDQ.L #0x4,A7 00023d6a 2d 5f ff b2 |-_ | MOVE.L (A7)+,(A6-0x4e) 00023d6e de fc 00 18 | | ADDA.W #0x18,A7 00023d72 2e ae ff b2 |. | MOVE.L (A6-0x4e),(A7) 00023d76 2f 2e ff b6 |/. | MOVE.L (A6-0x4a),-(A7) 00023d7a 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00023d80 50 4f |PO | ADDQ.L #0x8,A7 00023d82 10 1f | | MOVE.B (A7)+,D0 00023d84 48 80 |H | EXTB.W D0 00023d86 41 82 |A | CHK.W D2,D0 00023d88 1d 40 ff fc | @ | MOVE.B D0,(A6-0x4) 00023d8c 48 6e ff b2 |Hn | PEA.L (A6-0x4e) 00023d90 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023d96 58 4f |XO | ADDQ.L #0x4,A7 00023d98 4a 00 |J | TST.B D0 00023d9a 66 78 |fx | BNE 0x23e14 00023d9c 30 2e ff da |0. | MOVE.W (A6-0x26),D0 00023da0 53 40 |S@ | SUBQ.W #0x1,D0 00023da2 48 c0 |H | EXTW.L D0 00023da4 2f 00 |/ | MOVE.L D0,-(A7) 00023da6 7c 00 || | MOVEQ.L #0x00,D6 00023da8 bc 97 | | CMP.L (A7),D6 00023daa 6e 66 |nf | BGT 0x23e12 00023dac 41 f9 00 02 9a 04 |A | LEA.L 0x29a04,A0 00023db2 2f 08 |/ | MOVE.L A0,-(A7) 00023db4 2e 1f |. | MOVE.L (A7)+,D7 00023db6 2f 07 |/ | MOVE.L D7,-(A7) 00023db8 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7) 00023dbc 4e b9 00 01 04 18 |N | JSR FSCALL_10418 00023dc2 5c 4f |\O | ADDQ.L #0x6,A7 00023dc4 48 52 |HR | PEA.L (A2) 00023dc6 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00023dcc 58 4f |XO | ADDQ.L #0x4,A7 00023dce 4a 12 |J | TST.B (A2) 00023dd0 67 3c |g< | BEQ 0x23e0e 00023dd2 1f 02 | | MOVE.B D2,-(A7) 00023dd4 48 52 |HR | PEA.L (A2) 00023dd6 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00023ddc 5c 4f |\O | ADDQ.L #0x6,A7 00023dde 4e b9 00 01 04 10 |N | JSR FSCALL_10410 00023de4 9e fc 00 2a | * | SUBA.W #0x2a,A7 00023de8 20 4f | O | MOVEA.L A7,A0 00023dea 43 fa ca 0c |C | LEA.L 0x207f8,A1 00023dee 70 28 |p( | MOVEQ.L #0x28,D0 00023df0 10 d9 | | MOVE.B (A1)+,(A0)+ 00023df2 51 c8 ff fc |Q | DBF D0,0x23df0 00023df6 59 4f |YO | SUBQ.L #0x4,A7 00023df8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023dfc 3f 02 |? | MOVE.W D2,-(A7) 00023dfe 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 00023e02 4e 93 |N | JSR (A3) 00023e04 50 4f |PO | ADDQ.L #0x8,A7 00023e06 4e ba e6 c4 |N | JSR 0x224cc 00023e0a de fc 00 2e | . | ADDA.W #0x2e,A7 00023e0e 52 86 |R | ADDQ.L #0x1,D6 00023e10 68 96 |h | BVC 0x23da8 00023e12 58 4f |XO | ADDQ.L #0x4,A7 00023e14 4a 2e ff fc |J. | TST.B (A6-0x4) 00023e18 67 00 fe 26 |g & | BEQ 0x23c40 00023e1c 48 6e ff b6 |Hn | PEA.L (A6-0x4a) 00023e20 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023e26 58 4f |XO | ADDQ.L #0x4,A7 00023e28 30 2e ff da |0. | MOVE.W (A6-0x26),D0 00023e2c 53 40 |S@ | SUBQ.W #0x1,D0 00023e2e 48 c0 |H | EXTW.L D0 00023e30 2f 00 |/ | MOVE.L D0,-(A7) 00023e32 7c 00 || | MOVEQ.L #0x00,D6 00023e34 bc 97 | | CMP.L (A7),D6 00023e36 6e 78 |nx | BGT 0x23eb0 00023e38 20 06 | | MOVE.L D6,D0 00023e3a e1 80 | | ASL.L #0x8,D0 00023e3c 0c 80 00 00 07 ff | | CMPI.L #0x000007ff,D0 00023e42 63 02 |c | BLS 0x23e46 00023e44 4e 4f |NO | TRAP #15 00023e46 e5 80 | | ASL.L #0x2,D0 00023e48 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 00023e4e 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00023e52 41 e8 04 4c |A L | LEA.L (A0+0x44c),A0 00023e56 2f 08 |/ | MOVE.L A0,-(A7) 00023e58 2e 1f |. | MOVE.L (A7)+,D7 00023e5a 2f 07 |/ | MOVE.L D7,-(A7) 00023e5c 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7) 00023e60 4e b9 00 01 04 18 |N | JSR FSCALL_10418 00023e66 5c 4f |\O | ADDQ.L #0x6,A7 00023e68 48 52 |HR | PEA.L (A2) 00023e6a 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00023e70 58 4f |XO | ADDQ.L #0x4,A7 00023e72 4a 12 |J | TST.B (A2) 00023e74 67 36 |g6 | BEQ 0x23eac 00023e76 1f 02 | | MOVE.B D2,-(A7) 00023e78 48 52 |HR | PEA.L (A2) 00023e7a 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00023e80 5c 4f |\O | ADDQ.L #0x6,A7 00023e82 4e b9 00 01 04 10 |N | JSR FSCALL_10410 00023e88 41 fa c9 b2 |A | LEA.L 0x2083c,A0 00023e8c 70 0c |p | MOVEQ.L #0x0c,D0 00023e8e 3f 20 |? | MOVE.W -(A0),-(A7) 00023e90 51 c8 ff fc |Q | DBF D0,0x23e8e 00023e94 59 4f |YO | SUBQ.L #0x4,A7 00023e96 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023e9a 3f 02 |? | MOVE.W D2,-(A7) 00023e9c 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 00023ea0 4e 93 |N | JSR (A3) 00023ea2 50 4f |PO | ADDQ.L #0x8,A7 00023ea4 4e ba e6 26 |N & | JSR 0x224cc 00023ea8 de fc 00 1e | | ADDA.W #0x1e,A7 00023eac 52 86 |R | ADDQ.L #0x1,D6 00023eae 68 84 |h | BVC 0x23e34 00023eb0 54 4f |TO | ADDQ.L #0x2,A7 00023eb2 42 17 |B | CLR.B (A7) 00023eb4 48 52 |HR | PEA.L (A2) 00023eb6 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00023ebc 5c 4f |\O | ADDQ.L #0x6,A7 00023ebe 4e b9 00 01 04 10 |N | JSR FSCALL_10410 00023ec4 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00023ec8 10 82 | | MOVE.B D2,(A0) 00023eca 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00023ece 4e 5e |N^ | UNLK A6 00023ed0 4e 75 |Nu | RTS 00023ed2 ; -------------------------------------------------------------------------------------- 00023ed2 ; OMSI PASCAL Function 00023ed2 ; <LVAR -0x003 1(r)> 00023ed2 ; <LVAR -0x004 1(r)> 00023ed2 ; <LVAR -0x006 1(w) 2(w) 4(r)> 00023ed2 ; <LVAR -0x008 @ 1(rw)> 00023ed2 ; -------------------------------------------------------------------------------------- 00023ed2 4e 56 ff 7e |NV ~ | LINK.W A6,#0xff7e 00023ed6 bf d5 | | CMPA.L (A5),A7 00023ed8 62 06 |b | BHI 0x23ee0 00023eda 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023ede 4e 76 |Nv | TRAPV 00023ee0 de fc 00 76 | v | ADDA.W #0x76,A7 00023ee4 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023ee8 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00023eee 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00023ef4 49 f9 00 02 95 f1 |I | LEA.L 0x295f1,A4 00023efa 72 01 |r | MOVEQ.L #0x01,D1 00023efc 74 1e |t | MOVEQ.L #0x1e,D2 00023efe 76 2e |v. | MOVEQ.L #0x2e,D3 00023f00 78 2a |x* | MOVEQ.L #0x2a,D4 00023f02 7a 02 |z | MOVEQ.L #0x02,D5 00023f04 00 2e 00 80 ff fa | . | ORI.B #0x80,(A6-0x6) 00023f0a 02 2e 00 bf ff fa | . | ANDI.B #0xbf,(A6-0x6) 00023f10 02 6e c0 00 ff fa | n | ANDI.W #0xc000,(A6-0x6) 00023f16 42 2e ff fc |B. | CLR.B (A6-0x4) 00023f1a 42 2e ff fd |B. | CLR.B (A6-0x3) 00023f1e 7c 00 || | MOVEQ.L #0x00,D6 00023f20 0c 86 00 00 07 ff | | CMPI.L #0x000007ff,D6 00023f26 63 02 |c | BLS 0x23f2a 00023f28 4e 4f |NO | TRAP #15 00023f2a 20 06 | | MOVE.L D6,D0 00023f2c e5 80 | | ASL.L #0x2,D0 00023f2e 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 00023f34 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00023f38 21 6e ff fa 04 4c |!n L | MOVE.L (A6-0x6),(A0+0x44c) 00023f3e 52 86 |R | ADDQ.L #0x1,D6 00023f40 0c 86 00 00 07 ff | | CMPI.L #0x000007ff,D6 00023f46 6f d8 |o | BLE 0x23f20 00023f48 4a 39 00 02 95 ee |J9 | TST.B 0x295ee 00023f4e 67 38 |g8 | BEQ 0x23f88 00023f50 4a 39 00 02 da 04 |J9 | TST.B 0x2da04 00023f56 66 30 |f0 | BNE 0x23f88 00023f58 41 fa c9 00 |A | LEA.L 0x2085a,A0 00023f5c 70 0e |p | MOVEQ.L #0x0e,D0 00023f5e 3f 20 |? | MOVE.W -(A0),-(A7) 00023f60 51 c8 ff fc |Q | DBF D0,0x23f5e 00023f64 5d 4f |]O | SUBQ.L #0x6,A7 00023f66 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00023f6a 3f 01 |? | MOVE.W D1,-(A7) 00023f6c 3f 02 |? | MOVE.W D2,-(A7) 00023f6e 4e 92 |N | JSR (A2) 00023f70 5c 4f |\O | ADDQ.L #0x6,A7 00023f72 42 17 |B | CLR.B (A7) 00023f74 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00023f7a 5c 4f |\O | ADDQ.L #0x6,A7 00023f7c 10 1f | | MOVE.B (A7)+,D0 00023f7e 48 80 |H | EXTB.W D0 00023f80 41 81 |A | CHK.W D1,D0 00023f82 de c2 | | ADDA.W D2,A7 00023f84 18 80 | | MOVE.B D0,(A4) 00023f86 60 24 |`$ | BRA 0x23fac 00023f88 18 81 | | MOVE.B D1,(A4) 00023f8a 41 fa c9 24 |A $ | LEA.L 0x208b0,A0 00023f8e 70 0a |p | MOVEQ.L #0x0a,D0 00023f90 3f 20 |? | MOVE.W -(A0),-(A7) 00023f92 51 c8 ff fc |Q | DBF D0,0x23f90 00023f96 59 4f |YO | SUBQ.L #0x4,A7 00023f98 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023f9c 3f 01 |? | MOVE.W D1,-(A7) 00023f9e 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00023fa2 4e 92 |N | JSR (A2) 00023fa4 50 4f |PO | ADDQ.L #0x8,A7 00023fa6 4e 93 |N | JSR (A3) 00023fa8 de fc 00 1a | | ADDA.W #0x1a,A7 00023fac 55 4f |UO | SUBQ.L #0x2,A7 00023fae 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool 00023fb4 4a 1f |J | TST.B (A7)+ 00023fb6 67 06 |g | BEQ 0x23fbe 00023fb8 7e 02 |~ | MOVEQ.L #0x02,D7 00023fba 60 00 01 16 |` | BRA 0x240d2 00023fbe 4a 14 |J | TST.B (A4) 00023fc0 66 06 |f | BNE 0x23fc8 00023fc2 7e 00 |~ | MOVEQ.L #0x00,D7 00023fc4 60 00 01 0c |` | BRA 0x240d2 00023fc8 4a 39 00 02 95 ee |J9 | TST.B 0x295ee 00023fce 67 08 |g | BEQ 0x23fd8 00023fd0 4a 39 00 02 da 04 |J9 | TST.B 0x2da04 00023fd6 67 06 |g | BEQ 0x23fde 00023fd8 7e 01 |~ | MOVEQ.L #0x01,D7 00023fda 60 00 00 f6 |` | BRA 0x240d2 00023fde 41 fa c8 fc |A | LEA.L 0x208dc,A0 00023fe2 70 0a |p | MOVEQ.L #0x0a,D0 00023fe4 2f 20 |/ | MOVE.L -(A0),-(A7) 00023fe6 51 c8 ff fc |Q | DBF D0,0x23fe4 00023fea 59 4f |YO | SUBQ.L #0x4,A7 00023fec 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023ff0 3f 01 |? | MOVE.W D1,-(A7) 00023ff2 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7) 00023ff6 4e 92 |N | JSR (A2) 00023ff8 50 4f |PO | ADDQ.L #0x8,A7 00023ffa 4e 93 |N | JSR (A3) 00023ffc de c3 | | ADDA.W D3,A7 00023ffe 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00024004 4a 1f |J | TST.B (A7)+ 00024006 67 46 |gF | BEQ 0x2404e 00024008 41 fa c9 52 |A R | LEA.L 0x2095c,A0 0002400c 70 0b |p | MOVEQ.L #0x0b,D0 0002400e 2f 20 |/ | MOVE.L -(A0),-(A7) 00024010 51 c8 ff fc |Q | DBF D0,0x2400e 00024014 59 4f |YO | SUBQ.L #0x4,A7 00024016 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002401a 3f 01 |? | MOVE.W D1,-(A7) 0002401c 3f 3c 00 30 |?< 0 | MOVE.W #0x30,-(A7) 00024020 4e 92 |N | JSR (A2) 00024022 50 4f |PO | ADDQ.L #0x8,A7 00024024 4e 93 |N | JSR (A3) 00024026 54 4f |TO | ADDQ.L #0x2,A7 00024028 20 4f | O | MOVEA.L A7,A0 0002402a 43 fa c9 30 |C 0 | LEA.L 0x2095c,A1 0002402e 70 30 |p0 | MOVEQ.L #0x30,D0 00024030 10 d9 | | MOVE.B (A1)+,(A0)+ 00024032 51 c8 ff fc |Q | DBF D0,0x24030 00024036 59 4f |YO | SUBQ.L #0x4,A7 00024038 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002403c 3f 01 |? | MOVE.W D1,-(A7) 0002403e 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 00024042 4e 92 |N | JSR (A2) 00024044 50 4f |PO | ADDQ.L #0x8,A7 00024046 4e 93 |N | JSR (A3) 00024048 de fc 00 36 | 6 | ADDA.W #0x36,A7 0002404c 60 44 |`D | BRA 0x24092 0002404e 9e fc 00 26 | & | SUBA.W #0x26,A7 00024052 20 4f | O | MOVEA.L A7,A0 00024054 43 fa c8 86 |C | LEA.L 0x208dc,A1 00024058 70 24 |p$ | MOVEQ.L #0x24,D0 0002405a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002405c 51 c8 ff fc |Q | DBF D0,0x2405a 00024060 59 4f |YO | SUBQ.L #0x4,A7 00024062 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024066 3f 01 |? | MOVE.W D1,-(A7) 00024068 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7) 0002406c 4e 92 |N | JSR (A2) 0002406e 50 4f |PO | ADDQ.L #0x8,A7 00024070 4e 93 |N | JSR (A3) 00024072 de c4 | | ADDA.W D4,A7 00024074 41 fa c8 b6 |A | LEA.L 0x2092c,A0 00024078 70 14 |p | MOVEQ.L #0x14,D0 0002407a 3f 20 |? | MOVE.W -(A0),-(A7) 0002407c 51 c8 ff fc |Q | DBF D0,0x2407a 00024080 59 4f |YO | SUBQ.L #0x4,A7 00024082 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024086 3f 01 |? | MOVE.W D1,-(A7) 00024088 3f 04 |? | MOVE.W D4,-(A7) 0002408a 4e 92 |N | JSR (A2) 0002408c 50 4f |PO | ADDQ.L #0x8,A7 0002408e 4e 93 |N | JSR (A3) 00024090 de c3 | | ADDA.W D3,A7 00024092 2f 3a c7 d2 |/: | MOVE.L 0x20866,-(A7) 00024096 2f 3a c7 ca |/: | MOVE.L 0x20862,-(A7) 0002409a 2f 3a c7 c2 |/: | MOVE.L 0x2085e,-(A7) 0002409e 2f 3a c7 ba |/: | MOVE.L 0x2085a,-(A7) 000240a2 51 4f |QO | SUBQ.L #0x8,A7 000240a4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000240a8 3f 01 |? | MOVE.W D1,-(A7) 000240aa 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 000240ae 4e 92 |N | JSR (A2) 000240b0 50 4f |PO | ADDQ.L #0x8,A7 000240b2 48 78 00 00 |Hx | PEA.L 0x0 000240b6 48 78 00 01 |Hx | PEA.L 0x1 000240ba 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000240c0 de fc 00 0c | | ADDA.W #0xc,A7 000240c4 10 2f 00 03 | / | MOVE.B (A7+0x3),D0 000240c8 48 80 |H | EXTB.W D0 000240ca 41 85 |A | CHK.W D5,D0 000240cc de fc 00 14 | | ADDA.W #0x14,A7 000240d0 1e 00 | | MOVE.B D0,D7 000240d2 10 07 | | MOVE.B D7,D0 000240d4 48 80 |H | EXTB.W D0 000240d6 b0 45 | E | CMP.W D5,D0 000240d8 63 02 |c | BLS 0x240dc 000240da 4e 4e |NN | TRAP #14 000240dc d0 40 | @ | ADD.W D0,D0 000240de 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000240e6 00 06 | | .CONST 0x6 ; [0x0] -> 0x240ec 000240e8 00 12 | | .CONST 0x12 ; [0x1] -> 0x240f8 000240ea 00 1c | | .CONST 0x1c ; [0x2] -> 0x24102 000240ec switch@0x240de[0x0]: 000240ec 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000240f0 4e ba f7 fe |N | JSR 0x238f0 000240f4 58 4f |XO | ADDQ.L #0x4,A7 000240f6 60 0e |` | BRA 0x24106 000240f8 switch@0x240de[0x1]: 000240f8 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000240fc 4e ba fa 60 |N ` | JSR 0x23b5e 00024100 60 f2 |` | BRA 0x240f4 00024102 switch@0x240de[0x2]: 00024102 1d 41 ff f8 | A | MOVE.B D1,(A6-0x8) 00024106 4a 2e ff f8 |J. | TST.B (A6-0x8) 0002410a 67 00 fe 3c |g < | BEQ 0x23f48 0002410e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00024112 4e 5e |N^ | UNLK A6 00024114 4e 75 |Nu | RTS 00024116 ; -------------------------------------------------------------------------------------- 00024116 ; OMSI PASCAL Function 00024116 ; <LVAR -0x001 1(r)> 00024116 ; <LVAR -0x002 1(r)> 00024116 ; <LVAR -0x004 1(w) 2(w) 4(r)> 00024116 ; -------------------------------------------------------------------------------------- 00024116 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 0002411a bf d5 | | CMPA.L (A5),A7 0002411c 62 06 |b | BHI 0x24124 0002411e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024122 4e 76 |Nv | TRAPV 00024124 de fc 00 24 | $ | ADDA.W #0x24,A7 00024128 48 e7 81 c0 |H | MOVEM.L A1+A0+D7+D0,-(A7) 0002412c 43 ee ff fc |C | LEA.L (A6-0x4),A1 00024130 55 4f |UO | SUBQ.L #0x2,A7 00024132 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00024138 4a 1f |J | TST.B (A7)+ 0002413a 67 08 |g | BEQ 0x24144 0002413c 13 fc 00 01 00 02 ea 18 | | MOVE.B #0x01,0x2ea18 00024144 00 11 00 80 | | ORI.B #0x80,(A1) 00024148 02 11 00 bf | | ANDI.B #0xbf,(A1) 0002414c 02 51 c0 00 | Q | ANDI.W #0xc000,(A1) 00024150 42 2e ff fe |B. | CLR.B (A6-0x2) 00024154 42 2e ff ff |B. | CLR.B (A6-0x1) 00024158 7e 00 |~ | MOVEQ.L #0x00,D7 0002415a 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 00024160 63 02 |c | BLS 0x24164 00024162 4e 4f |NO | TRAP #15 00024164 20 07 | | MOVE.L D7,D0 00024166 e5 80 | | ASL.L #0x2,D0 00024168 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 0002416e 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00024172 10 28 04 4c | ( L | MOVE.B (A0+0x44c),D0 00024176 e3 08 | | LSL.B #0x1,D0 00024178 ee 08 | | LSR.B #0x7,D0 0002417a 67 04 |g | BEQ 0x24180 0002417c 21 51 04 4c |!Q L | MOVE.L (A1),(A0+0x44c) 00024180 52 87 |R | ADDQ.L #0x1,D7 00024182 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 00024188 6f d0 |o | BLE 0x2415a 0002418a 4c df 03 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1 0002418e 4e 5e |N^ | UNLK A6 00024190 4e 75 |Nu | RTS 00024192 ; -------------------------------------------------------------------------------------- 00024192 ; OMSI PASCAL Function 00024192 ; <LVAR 0x008 4(r)> 00024192 ; -------------------------------------------------------------------------------------- 00024192 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00024196 bf d5 | | CMPA.L (A5),A7 00024198 62 06 |b | BHI 0x241a0 0002419a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002419e 4e 76 |Nv | TRAPV 000241a0 de fc 00 2e | . | ADDA.W #0x2e,A7 000241a4 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 000241a8 43 ee 00 08 |C | LEA.L (A6+0x8),A1 000241ac 20 54 | T | MOVEA.L (A4),A0 000241ae 4a 50 |JP | TST.W (A0) 000241b0 66 12 |f | BNE 0x241c4 000241b2 59 4f |YO | SUBQ.L #0x4,A7 000241b4 2f 14 |/ | MOVE.L (A4),-(A7) 000241b6 2f 11 |/ | MOVE.L (A1),-(A7) 000241b8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000241be 50 4f |PO | ADDQ.L #0x8,A7 000241c0 28 9f |( | MOVE.L (A7)+,(A4) 000241c2 60 52 |`R | BRA 0x24216 000241c4 30 10 |0 | MOVE.W (A0),D0 000241c6 48 c0 |H | EXTW.L D0 000241c8 54 80 |T | ADDQ.L #0x2,D0 000241ca 20 51 | Q | MOVEA.L (A1),A0 000241cc 32 10 |2 | MOVE.W (A0),D1 000241ce 48 c1 |H | EXTW.L D1 000241d0 d2 80 | | ADD.L D0,D1 000241d2 0c 81 00 00 00 50 | P | CMPI.L #0x00000050,D1 000241d8 6e 30 |n0 | BGT 0x2420a 000241da 3f 3a c7 b2 |?: | MOVE.W 0x2098e,-(A7) 000241de 59 4f |YO | SUBQ.L #0x4,A7 000241e0 2f 14 |/ | MOVE.L (A4),-(A7) 000241e2 59 4f |YO | SUBQ.L #0x4,A7 000241e4 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000241e8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000241ec 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000241f0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000241f6 58 4f |XO | ADDQ.L #0x4,A7 000241f8 2e 91 |. | MOVE.L (A1),(A7) 000241fa 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00024200 de fc 00 0c | | ADDA.W #0xc,A7 00024204 28 9f |( | MOVE.L (A7)+,(A4) 00024206 54 4f |TO | ADDQ.L #0x2,A7 00024208 60 0c |` | BRA 0x24216 0002420a 2f 14 |/ | MOVE.L (A4),-(A7) 0002420c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00024212 58 4f |XO | ADDQ.L #0x4,A7 00024214 28 91 |( | MOVE.L (A1),(A4) 00024216 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 0002421a 4e 5e |N^ | UNLK A6 0002421c 4e 75 |Nu | RTS 0002421e ; -------------------------------------------------------------------------------------- 0002421e ; OMSI PASCAL Function 0002421e ; <LVAR 0x010 2(r)> 0002421e ; <LVAR 0x00e 2(r)> 0002421e ; <LVAR 0x00c 2(r)> 0002421e ; <LVAR 0x00a 2(r)> 0002421e ; <LVAR 0x008 2(r)> 0002421e ; <LVAR -0x006 @> 0002421e ; -------------------------------------------------------------------------------------- 0002421e 4e 56 ff 98 |NV | LINK.W A6,#0xff98 00024222 bf d5 | | CMPA.L (A5),A7 00024224 62 06 |b | BHI 0x2422c 00024226 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002422a 4e 76 |Nv | TRAPV 0002422c de fc 00 62 | b | ADDA.W #0x62,A7 00024230 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00024234 45 ee ff fa |E | LEA.L (A6-0x6),A2 00024238 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 0002423e 72 01 |r | MOVEQ.L #0x01,D1 00024240 74 14 |t | MOVEQ.L #0x14,D2 00024242 76 10 |v | MOVEQ.L #0x10,D3 00024244 78 12 |x | MOVEQ.L #0x12,D4 00024246 7a 16 |z | MOVEQ.L #0x16,D5 00024248 7c 0e || | MOVEQ.L #0x0e,D6 0002424a 7e 18 |~ | MOVEQ.L #0x18,D7 0002424c 48 52 |HR | PEA.L (A2) 0002424e 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00024254 58 4f |XO | ADDQ.L #0x4,A7 00024256 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 0002425a 02 40 80 00 | @ | ANDI.W #0x8000,D0 0002425e 67 28 |g( | BEQ 0x24288 00024260 9e c4 | | SUBA.W D4,A7 00024262 20 4f | O | MOVEA.L A7,A0 00024264 43 fa c7 2a |C * | LEA.L 0x20990,A1 00024268 70 10 |p | MOVEQ.L #0x10,D0 0002426a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002426c 51 c8 ff fc |Q | DBF D0,0x2426a 00024270 59 4f |YO | SUBQ.L #0x4,A7 00024272 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024276 3f 01 |? | MOVE.W D1,-(A7) 00024278 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 0002427c 4e 93 |N | JSR (A3) 0002427e 50 4f |PO | ADDQ.L #0x8,A7 00024280 28 4a |(J | MOVEA.L A2,A4 00024282 4e ba ff 0e |N | JSR 0x24192 00024286 de c5 | | ADDA.W D5,A7 00024288 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 0002428c 02 40 40 00 | @@ | ANDI.W #0x4000,D0 00024290 67 22 |g" | BEQ 0x242b4 00024292 41 fa c7 1c |A | LEA.L 0x209b0,A0 00024296 70 06 |p | MOVEQ.L #0x06,D0 00024298 3f 20 |? | MOVE.W -(A0),-(A7) 0002429a 51 c8 ff fc |Q | DBF D0,0x24298 0002429e 59 4f |YO | SUBQ.L #0x4,A7 000242a0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000242a4 3f 01 |? | MOVE.W D1,-(A7) 000242a6 3f 06 |? | MOVE.W D6,-(A7) 000242a8 4e 93 |N | JSR (A3) 000242aa 50 4f |PO | ADDQ.L #0x8,A7 000242ac 28 4a |(J | MOVEA.L A2,A4 000242ae 4e ba fe e2 |N | JSR 0x24192 000242b2 de c4 | | ADDA.W D4,A7 000242b4 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0 000242b8 02 40 80 00 | @ | ANDI.W #0x8000,D0 000242bc 67 2a |g* | BEQ 0x242e8 000242be 9e fc 00 0a | | SUBA.W #0xa,A7 000242c2 20 4f | O | MOVEA.L A7,A0 000242c4 43 fa c6 ea |C | LEA.L 0x209b0,A1 000242c8 70 08 |p | MOVEQ.L #0x08,D0 000242ca 10 d9 | | MOVE.B (A1)+,(A0)+ 000242cc 51 c8 ff fc |Q | DBF D0,0x242ca 000242d0 59 4f |YO | SUBQ.L #0x4,A7 000242d2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000242d6 3f 01 |? | MOVE.W D1,-(A7) 000242d8 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 000242dc 4e 93 |N | JSR (A3) 000242de 50 4f |PO | ADDQ.L #0x8,A7 000242e0 28 4a |(J | MOVEA.L A2,A4 000242e2 4e ba fe ae |N | JSR 0x24192 000242e6 de c6 | | ADDA.W D6,A7 000242e8 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0 000242ec 02 40 40 00 | @@ | ANDI.W #0x4000,D0 000242f0 67 28 |g( | BEQ 0x2431a 000242f2 9e c4 | | SUBA.W D4,A7 000242f4 20 4f | O | MOVEA.L A7,A0 000242f6 43 fa c6 c2 |C | LEA.L 0x209ba,A1 000242fa 70 10 |p | MOVEQ.L #0x10,D0 000242fc 10 d9 | | MOVE.B (A1)+,(A0)+ 000242fe 51 c8 ff fc |Q | DBF D0,0x242fc 00024302 59 4f |YO | SUBQ.L #0x4,A7 00024304 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024308 3f 01 |? | MOVE.W D1,-(A7) 0002430a 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 0002430e 4e 93 |N | JSR (A3) 00024310 50 4f |PO | ADDQ.L #0x8,A7 00024312 28 4a |(J | MOVEA.L A2,A4 00024314 4e ba fe 7c |N | | JSR 0x24192 00024318 de c5 | | ADDA.W D5,A7 0002431a 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0 0002431e 02 40 20 00 | @ | ANDI.W #0x2000,D0 00024322 67 28 |g( | BEQ 0x2434c 00024324 9e c2 | | SUBA.W D2,A7 00024326 20 4f | O | MOVEA.L A7,A0 00024328 43 fa c6 a2 |C | LEA.L 0x209cc,A1 0002432c 70 12 |p | MOVEQ.L #0x12,D0 0002432e 10 d9 | | MOVE.B (A1)+,(A0)+ 00024330 51 c8 ff fc |Q | DBF D0,0x2432e 00024334 59 4f |YO | SUBQ.L #0x4,A7 00024336 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002433a 3f 01 |? | MOVE.W D1,-(A7) 0002433c 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00024340 4e 93 |N | JSR (A3) 00024342 50 4f |PO | ADDQ.L #0x8,A7 00024344 28 4a |(J | MOVEA.L A2,A4 00024346 4e ba fe 4a |N J | JSR 0x24192 0002434a de c7 | | ADDA.W D7,A7 0002434c 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0 00024350 02 40 10 00 | @ | ANDI.W #0x1000,D0 00024354 67 22 |g" | BEQ 0x24378 00024356 41 fa c6 9a |A | LEA.L 0x209f2,A0 0002435a 70 08 |p | MOVEQ.L #0x08,D0 0002435c 3f 20 |? | MOVE.W -(A0),-(A7) 0002435e 51 c8 ff fc |Q | DBF D0,0x2435c 00024362 59 4f |YO | SUBQ.L #0x4,A7 00024364 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024368 3f 01 |? | MOVE.W D1,-(A7) 0002436a 3f 04 |? | MOVE.W D4,-(A7) 0002436c 4e 93 |N | JSR (A3) 0002436e 50 4f |PO | ADDQ.L #0x8,A7 00024370 28 4a |(J | MOVEA.L A2,A4 00024372 4e ba fe 1e |N | JSR 0x24192 00024376 de c5 | | ADDA.W D5,A7 00024378 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0 0002437c 02 40 08 00 | @ | ANDI.W #0x0800,D0 00024380 67 28 |g( | BEQ 0x243aa 00024382 9e c2 | | SUBA.W D2,A7 00024384 20 4f | O | MOVEA.L A7,A0 00024386 43 fa c6 6a |C j | LEA.L 0x209f2,A1 0002438a 70 12 |p | MOVEQ.L #0x12,D0 0002438c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002438e 51 c8 ff fc |Q | DBF D0,0x2438c 00024392 59 4f |YO | SUBQ.L #0x4,A7 00024394 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024398 3f 01 |? | MOVE.W D1,-(A7) 0002439a 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 0002439e 4e 93 |N | JSR (A3) 000243a0 50 4f |PO | ADDQ.L #0x8,A7 000243a2 28 4a |(J | MOVEA.L A2,A4 000243a4 4e ba fd ec |N | JSR 0x24192 000243a8 de c7 | | ADDA.W D7,A7 000243aa 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0 000243ae 02 40 04 00 | @ | ANDI.W #0x0400,D0 000243b2 67 28 |g( | BEQ 0x243dc 000243b4 9e c6 | | SUBA.W D6,A7 000243b6 20 4f | O | MOVEA.L A7,A0 000243b8 43 fa c6 4c |C L | LEA.L 0x20a06,A1 000243bc 70 0c |p | MOVEQ.L #0x0c,D0 000243be 10 d9 | | MOVE.B (A1)+,(A0)+ 000243c0 51 c8 ff fc |Q | DBF D0,0x243be 000243c4 59 4f |YO | SUBQ.L #0x4,A7 000243c6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000243ca 3f 01 |? | MOVE.W D1,-(A7) 000243cc 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 000243d0 4e 93 |N | JSR (A3) 000243d2 50 4f |PO | ADDQ.L #0x8,A7 000243d4 28 4a |(J | MOVEA.L A2,A4 000243d6 4e ba fd ba |N | JSR 0x24192 000243da de c4 | | ADDA.W D4,A7 000243dc 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0 000243e0 02 40 02 00 | @ | ANDI.W #0x0200,D0 000243e4 67 22 |g" | BEQ 0x24408 000243e6 41 fa c6 3a |A : | LEA.L 0x20a22,A0 000243ea 70 06 |p | MOVEQ.L #0x06,D0 000243ec 3f 20 |? | MOVE.W -(A0),-(A7) 000243ee 51 c8 ff fc |Q | DBF D0,0x243ec 000243f2 59 4f |YO | SUBQ.L #0x4,A7 000243f4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000243f8 3f 01 |? | MOVE.W D1,-(A7) 000243fa 3f 06 |? | MOVE.W D6,-(A7) 000243fc 4e 93 |N | JSR (A3) 000243fe 50 4f |PO | ADDQ.L #0x8,A7 00024400 28 4a |(J | MOVEA.L A2,A4 00024402 4e ba fd 8e |N | JSR 0x24192 00024406 de c4 | | ADDA.W D4,A7 00024408 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0 0002440c 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 00024410 66 28 |f( | BNE 0x2443a 00024412 9e c3 | | SUBA.W D3,A7 00024414 20 4f | O | MOVEA.L A7,A0 00024416 43 fa c6 0a |C | LEA.L 0x20a22,A1 0002441a 70 0e |p | MOVEQ.L #0x0e,D0 0002441c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002441e 51 c8 ff fc |Q | DBF D0,0x2441c 00024422 59 4f |YO | SUBQ.L #0x4,A7 00024424 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024428 3f 01 |? | MOVE.W D1,-(A7) 0002442a 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 0002442e 4e 93 |N | JSR (A3) 00024430 50 4f |PO | ADDQ.L #0x8,A7 00024432 28 4a |(J | MOVEA.L A2,A4 00024434 4e ba fd 5c |N \ | JSR 0x24192 00024438 de c2 | | ADDA.W D2,A7 0002443a 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0 0002443e 02 40 00 08 | @ | ANDI.W #0x0008,D0 00024442 67 28 |g( | BEQ 0x2446c 00024444 9e c2 | | SUBA.W D2,A7 00024446 20 4f | O | MOVEA.L A7,A0 00024448 43 fa c5 e8 |C | LEA.L 0x20a32,A1 0002444c 70 12 |p | MOVEQ.L #0x12,D0 0002444e 10 d9 | | MOVE.B (A1)+,(A0)+ 00024450 51 c8 ff fc |Q | DBF D0,0x2444e 00024454 59 4f |YO | SUBQ.L #0x4,A7 00024456 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002445a 3f 01 |? | MOVE.W D1,-(A7) 0002445c 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00024460 4e 93 |N | JSR (A3) 00024462 50 4f |PO | ADDQ.L #0x8,A7 00024464 28 4a |(J | MOVEA.L A2,A4 00024466 4e ba fd 2a |N * | JSR 0x24192 0002446a de c7 | | ADDA.W D7,A7 0002446c 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 00024470 02 40 80 00 | @ | ANDI.W #0x8000,D0 00024474 67 26 |g& | BEQ 0x2449c 00024476 2f 3a c5 da |/: | MOVE.L 0x20a52,-(A7) 0002447a 2f 3a c5 d2 |/: | MOVE.L 0x20a4e,-(A7) 0002447e 2f 3a c5 ca |/: | MOVE.L 0x20a4a,-(A7) 00024482 2f 3a c5 c2 |/: | MOVE.L 0x20a46,-(A7) 00024486 59 4f |YO | SUBQ.L #0x4,A7 00024488 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002448c 3f 01 |? | MOVE.W D1,-(A7) 0002448e 3f 03 |? | MOVE.W D3,-(A7) 00024490 4e 93 |N | JSR (A3) 00024492 50 4f |PO | ADDQ.L #0x8,A7 00024494 28 4a |(J | MOVEA.L A2,A4 00024496 4e ba fc fa |N | JSR 0x24192 0002449a de c2 | | ADDA.W D2,A7 0002449c 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 000244a0 02 40 40 00 | @@ | ANDI.W #0x4000,D0 000244a4 67 2a |g* | BEQ 0x244d0 000244a6 5d 4f |]O | SUBQ.L #0x6,A7 000244a8 20 4f | O | MOVEA.L A7,A0 000244aa 43 fa c5 aa |C | LEA.L 0x20a56,A1 000244ae 70 04 |p | MOVEQ.L #0x04,D0 000244b0 10 d9 | | MOVE.B (A1)+,(A0)+ 000244b2 51 c8 ff fc |Q | DBF D0,0x244b0 000244b6 59 4f |YO | SUBQ.L #0x4,A7 000244b8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000244bc 3f 01 |? | MOVE.W D1,-(A7) 000244be 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 000244c2 4e 93 |N | JSR (A3) 000244c4 50 4f |PO | ADDQ.L #0x8,A7 000244c6 28 4a |(J | MOVEA.L A2,A4 000244c8 4e ba fc c8 |N | JSR 0x24192 000244cc de fc 00 0a | | ADDA.W #0xa,A7 000244d0 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 000244d4 02 40 20 00 | @ | ANDI.W #0x2000,D0 000244d8 67 2a |g* | BEQ 0x24504 000244da 9e c7 | | SUBA.W D7,A7 000244dc 20 4f | O | MOVEA.L A7,A0 000244de 43 fa c5 7c |C | | LEA.L 0x20a5c,A1 000244e2 70 16 |p | MOVEQ.L #0x16,D0 000244e4 10 d9 | | MOVE.B (A1)+,(A0)+ 000244e6 51 c8 ff fc |Q | DBF D0,0x244e4 000244ea 59 4f |YO | SUBQ.L #0x4,A7 000244ec 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000244f0 3f 01 |? | MOVE.W D1,-(A7) 000244f2 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000244f6 4e 93 |N | JSR (A3) 000244f8 50 4f |PO | ADDQ.L #0x8,A7 000244fa 28 4a |(J | MOVEA.L A2,A4 000244fc 4e ba fc 94 |N | JSR 0x24192 00024500 de fc 00 1c | | ADDA.W #0x1c,A7 00024504 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 00024508 02 40 10 00 | @ | ANDI.W #0x1000,D0 0002450c 67 22 |g" | BEQ 0x24530 0002450e 41 fa c5 72 |A r | LEA.L 0x20a82,A0 00024512 70 06 |p | MOVEQ.L #0x06,D0 00024514 3f 20 |? | MOVE.W -(A0),-(A7) 00024516 51 c8 ff fc |Q | DBF D0,0x24514 0002451a 59 4f |YO | SUBQ.L #0x4,A7 0002451c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024520 3f 01 |? | MOVE.W D1,-(A7) 00024522 3f 06 |? | MOVE.W D6,-(A7) 00024524 4e 93 |N | JSR (A3) 00024526 50 4f |PO | ADDQ.L #0x8,A7 00024528 28 4a |(J | MOVEA.L A2,A4 0002452a 4e ba fc 66 |N f | JSR 0x24192 0002452e de c4 | | ADDA.W D4,A7 00024530 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 00024534 02 40 08 00 | @ | ANDI.W #0x0800,D0 00024538 67 24 |g$ | BEQ 0x2455e 0002453a 41 fa c5 50 |A P | LEA.L 0x20a8c,A0 0002453e 70 04 |p | MOVEQ.L #0x04,D0 00024540 3f 20 |? | MOVE.W -(A0),-(A7) 00024542 51 c8 ff fc |Q | DBF D0,0x24540 00024546 59 4f |YO | SUBQ.L #0x4,A7 00024548 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002454c 3f 01 |? | MOVE.W D1,-(A7) 0002454e 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00024552 4e 93 |N | JSR (A3) 00024554 50 4f |PO | ADDQ.L #0x8,A7 00024556 28 4a |(J | MOVEA.L A2,A4 00024558 4e ba fc 38 |N 8 | JSR 0x24192 0002455c de c6 | | ADDA.W D6,A7 0002455e 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 00024562 02 40 04 00 | @ | ANDI.W #0x0400,D0 00024566 67 24 |g$ | BEQ 0x2458c 00024568 41 fa c5 38 |A 8 | LEA.L 0x20aa2,A0 0002456c 70 0a |p | MOVEQ.L #0x0a,D0 0002456e 3f 20 |? | MOVE.W -(A0),-(A7) 00024570 51 c8 ff fc |Q | DBF D0,0x2456e 00024574 59 4f |YO | SUBQ.L #0x4,A7 00024576 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002457a 3f 01 |? | MOVE.W D1,-(A7) 0002457c 3f 05 |? | MOVE.W D5,-(A7) 0002457e 4e 93 |N | JSR (A3) 00024580 50 4f |PO | ADDQ.L #0x8,A7 00024582 28 4a |(J | MOVEA.L A2,A4 00024584 4e ba fc 0c |N | JSR 0x24192 00024588 de fc 00 1a | | ADDA.W #0x1a,A7 0002458c 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 00024590 02 40 02 00 | @ | ANDI.W #0x0200,D0 00024594 67 24 |g$ | BEQ 0x245ba 00024596 2f 3a c5 12 |/: | MOVE.L 0x20aaa,-(A7) 0002459a 2f 3a c5 0a |/: | MOVE.L 0x20aa6,-(A7) 0002459e 2f 3a c5 02 |/: | MOVE.L 0x20aa2,-(A7) 000245a2 59 4f |YO | SUBQ.L #0x4,A7 000245a4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000245a8 3f 01 |? | MOVE.W D1,-(A7) 000245aa 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 000245ae 4e 93 |N | JSR (A3) 000245b0 50 4f |PO | ADDQ.L #0x8,A7 000245b2 28 4a |(J | MOVEA.L A2,A4 000245b4 4e ba fb dc |N | JSR 0x24192 000245b8 de c3 | | ADDA.W D3,A7 000245ba 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 000245be 02 40 01 00 | @ | ANDI.W #0x0100,D0 000245c2 66 28 |f( | BNE 0x245ec 000245c4 9e c4 | | SUBA.W D4,A7 000245c6 20 4f | O | MOVEA.L A7,A0 000245c8 43 fa c4 e4 |C | LEA.L 0x20aae,A1 000245cc 70 10 |p | MOVEQ.L #0x10,D0 000245ce 10 d9 | | MOVE.B (A1)+,(A0)+ 000245d0 51 c8 ff fc |Q | DBF D0,0x245ce 000245d4 59 4f |YO | SUBQ.L #0x4,A7 000245d6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000245da 3f 01 |? | MOVE.W D1,-(A7) 000245dc 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 000245e0 4e 93 |N | JSR (A3) 000245e2 50 4f |PO | ADDQ.L #0x8,A7 000245e4 28 4a |(J | MOVEA.L A2,A4 000245e6 4e ba fb aa |N | JSR 0x24192 000245ea de c5 | | ADDA.W D5,A7 000245ec 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 000245f0 02 40 00 80 | @ | ANDI.W #0x0080,D0 000245f4 66 28 |f( | BNE 0x2461e 000245f6 9e c3 | | SUBA.W D3,A7 000245f8 20 4f | O | MOVEA.L A7,A0 000245fa 43 fa c4 c4 |C | LEA.L 0x20ac0,A1 000245fe 70 0e |p | MOVEQ.L #0x0e,D0 00024600 10 d9 | | MOVE.B (A1)+,(A0)+ 00024602 51 c8 ff fc |Q | DBF D0,0x24600 00024606 59 4f |YO | SUBQ.L #0x4,A7 00024608 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002460c 3f 01 |? | MOVE.W D1,-(A7) 0002460e 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00024612 4e 93 |N | JSR (A3) 00024614 50 4f |PO | ADDQ.L #0x8,A7 00024616 28 4a |(J | MOVEA.L A2,A4 00024618 4e ba fb 78 |N x | JSR 0x24192 0002461c de c2 | | ADDA.W D2,A7 0002461e 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 00024622 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 00024626 66 26 |f& | BNE 0x2464e 00024628 2f 3a c4 b2 |/: | MOVE.L 0x20adc,-(A7) 0002462c 2f 3a c4 aa |/: | MOVE.L 0x20ad8,-(A7) 00024630 2f 3a c4 a2 |/: | MOVE.L 0x20ad4,-(A7) 00024634 2f 3a c4 9a |/: | MOVE.L 0x20ad0,-(A7) 00024638 59 4f |YO | SUBQ.L #0x4,A7 0002463a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002463e 3f 01 |? | MOVE.W D1,-(A7) 00024640 3f 03 |? | MOVE.W D3,-(A7) 00024642 4e 93 |N | JSR (A3) 00024644 50 4f |PO | ADDQ.L #0x8,A7 00024646 28 4a |(J | MOVEA.L A2,A4 00024648 4e ba fb 48 |N H | JSR 0x24192 0002464c de c2 | | ADDA.W D2,A7 0002464e 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 00024652 c0 41 | A | AND.W D1,D0 00024654 67 26 |g& | BEQ 0x2467c 00024656 2f 3a c4 94 |/: | MOVE.L 0x20aec,-(A7) 0002465a 2f 3a c4 8c |/: | MOVE.L 0x20ae8,-(A7) 0002465e 2f 3a c4 84 |/: | MOVE.L 0x20ae4,-(A7) 00024662 2f 3a c4 7c |/: | | MOVE.L 0x20ae0,-(A7) 00024666 59 4f |YO | SUBQ.L #0x4,A7 00024668 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002466c 3f 01 |? | MOVE.W D1,-(A7) 0002466e 3f 03 |? | MOVE.W D3,-(A7) 00024670 4e 93 |N | JSR (A3) 00024672 50 4f |PO | ADDQ.L #0x8,A7 00024674 28 4a |(J | MOVEA.L A2,A4 00024676 4e ba fb 1a |N | JSR 0x24192 0002467a de c2 | | ADDA.W D2,A7 0002467c 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0 00024680 02 40 80 00 | @ | ANDI.W #0x8000,D0 00024684 67 24 |g$ | BEQ 0x246aa 00024686 41 fa c4 72 |A r | LEA.L 0x20afa,A0 0002468a 70 04 |p | MOVEQ.L #0x04,D0 0002468c 3f 20 |? | MOVE.W -(A0),-(A7) 0002468e 51 c8 ff fc |Q | DBF D0,0x2468c 00024692 59 4f |YO | SUBQ.L #0x4,A7 00024694 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024698 3f 01 |? | MOVE.W D1,-(A7) 0002469a 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 0002469e 4e 93 |N | JSR (A3) 000246a0 50 4f |PO | ADDQ.L #0x8,A7 000246a2 28 4a |(J | MOVEA.L A2,A4 000246a4 4e ba fa ec |N | JSR 0x24192 000246a8 de c6 | | ADDA.W D6,A7 000246aa 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0 000246ae 02 40 40 00 | @@ | ANDI.W #0x4000,D0 000246b2 67 26 |g& | BEQ 0x246da 000246b4 3f 3a c4 48 |?: H | MOVE.W 0x20afe,-(A7) 000246b8 3f 3a c4 42 |?: B | MOVE.W 0x20afc,-(A7) 000246bc 3f 3a c4 3c |?: < | MOVE.W 0x20afa,-(A7) 000246c0 59 4f |YO | SUBQ.L #0x4,A7 000246c2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000246c6 3f 01 |? | MOVE.W D1,-(A7) 000246c8 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 000246cc 4e 93 |N | JSR (A3) 000246ce 50 4f |PO | ADDQ.L #0x8,A7 000246d0 28 4a |(J | MOVEA.L A2,A4 000246d2 4e ba fa be |N | JSR 0x24192 000246d6 de fc 00 0a | | ADDA.W #0xa,A7 000246da 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0 000246de 02 40 20 00 | @ | ANDI.W #0x2000,D0 000246e2 67 22 |g" | BEQ 0x24706 000246e4 41 fa c4 2e |A . | LEA.L 0x20b14,A0 000246e8 70 04 |p | MOVEQ.L #0x04,D0 000246ea 2f 20 |/ | MOVE.L -(A0),-(A7) 000246ec 51 c8 ff fc |Q | DBF D0,0x246ea 000246f0 59 4f |YO | SUBQ.L #0x4,A7 000246f2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000246f6 3f 01 |? | MOVE.W D1,-(A7) 000246f8 3f 02 |? | MOVE.W D2,-(A7) 000246fa 4e 93 |N | JSR (A3) 000246fc 50 4f |PO | ADDQ.L #0x8,A7 000246fe 28 4a |(J | MOVEA.L A2,A4 00024700 4e ba fa 90 |N | JSR 0x24192 00024704 de c7 | | ADDA.W D7,A7 00024706 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0 0002470a 02 40 10 00 | @ | ANDI.W #0x1000,D0 0002470e 67 22 |g" | BEQ 0x24732 00024710 41 fa c4 14 |A | LEA.L 0x20b26,A0 00024714 70 08 |p | MOVEQ.L #0x08,D0 00024716 3f 20 |? | MOVE.W -(A0),-(A7) 00024718 51 c8 ff fc |Q | DBF D0,0x24716 0002471c 59 4f |YO | SUBQ.L #0x4,A7 0002471e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024722 3f 01 |? | MOVE.W D1,-(A7) 00024724 3f 04 |? | MOVE.W D4,-(A7) 00024726 4e 93 |N | JSR (A3) 00024728 50 4f |PO | ADDQ.L #0x8,A7 0002472a 28 4a |(J | MOVEA.L A2,A4 0002472c 4e ba fa 64 |N d | JSR 0x24192 00024730 de c5 | | ADDA.W D5,A7 00024732 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0 00024736 02 40 08 00 | @ | ANDI.W #0x0800,D0 0002473a 67 26 |g& | BEQ 0x24762 0002473c 2f 3a c3 f4 |/: | MOVE.L 0x20b32,-(A7) 00024740 2f 3a c3 ec |/: | MOVE.L 0x20b2e,-(A7) 00024744 2f 3a c3 e4 |/: | MOVE.L 0x20b2a,-(A7) 00024748 2f 3a c3 dc |/: | MOVE.L 0x20b26,-(A7) 0002474c 59 4f |YO | SUBQ.L #0x4,A7 0002474e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024752 3f 01 |? | MOVE.W D1,-(A7) 00024754 3f 03 |? | MOVE.W D3,-(A7) 00024756 4e 93 |N | JSR (A3) 00024758 50 4f |PO | ADDQ.L #0x8,A7 0002475a 28 4a |(J | MOVEA.L A2,A4 0002475c 4e ba fa 34 |N 4 | JSR 0x24192 00024760 de c2 | | ADDA.W D2,A7 00024762 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0 00024766 02 40 04 00 | @ | ANDI.W #0x0400,D0 0002476a 67 2a |g* | BEQ 0x24796 0002476c 9e c5 | | SUBA.W D5,A7 0002476e 20 4f | O | MOVEA.L A7,A0 00024770 43 fa c3 c4 |C | LEA.L 0x20b36,A1 00024774 70 14 |p | MOVEQ.L #0x14,D0 00024776 10 d9 | | MOVE.B (A1)+,(A0)+ 00024778 51 c8 ff fc |Q | DBF D0,0x24776 0002477c 59 4f |YO | SUBQ.L #0x4,A7 0002477e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024782 3f 01 |? | MOVE.W D1,-(A7) 00024784 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 00024788 4e 93 |N | JSR (A3) 0002478a 50 4f |PO | ADDQ.L #0x8,A7 0002478c 28 4a |(J | MOVEA.L A2,A4 0002478e 4e ba fa 02 |N | JSR 0x24192 00024792 de fc 00 1a | | ADDA.W #0x1a,A7 00024796 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0 0002479a 02 40 02 00 | @ | ANDI.W #0x0200,D0 0002479e 67 26 |g& | BEQ 0x247c6 000247a0 2f 3a c3 b6 |/: | MOVE.L 0x20b58,-(A7) 000247a4 2f 3a c3 ae |/: | MOVE.L 0x20b54,-(A7) 000247a8 2f 3a c3 a6 |/: | MOVE.L 0x20b50,-(A7) 000247ac 2f 3a c3 9e |/: | MOVE.L 0x20b4c,-(A7) 000247b0 59 4f |YO | SUBQ.L #0x4,A7 000247b2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000247b6 3f 01 |? | MOVE.W D1,-(A7) 000247b8 3f 03 |? | MOVE.W D3,-(A7) 000247ba 4e 93 |N | JSR (A3) 000247bc 50 4f |PO | ADDQ.L #0x8,A7 000247be 28 4a |(J | MOVEA.L A2,A4 000247c0 4e ba f9 d0 |N | JSR 0x24192 000247c4 de c2 | | ADDA.W D2,A7 000247c6 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0 000247ca 02 40 01 00 | @ | ANDI.W #0x0100,D0 000247ce 67 26 |g& | BEQ 0x247f6 000247d0 2f 3a c3 96 |/: | MOVE.L 0x20b68,-(A7) 000247d4 2f 3a c3 8e |/: | MOVE.L 0x20b64,-(A7) 000247d8 2f 3a c3 86 |/: | MOVE.L 0x20b60,-(A7) 000247dc 2f 3a c3 7e |/: ~ | MOVE.L 0x20b5c,-(A7) 000247e0 59 4f |YO | SUBQ.L #0x4,A7 000247e2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000247e6 3f 01 |? | MOVE.W D1,-(A7) 000247e8 3f 03 |? | MOVE.W D3,-(A7) 000247ea 4e 93 |N | JSR (A3) 000247ec 50 4f |PO | ADDQ.L #0x8,A7 000247ee 28 4a |(J | MOVEA.L A2,A4 000247f0 4e ba f9 a0 |N | JSR 0x24192 000247f4 de c2 | | ADDA.W D2,A7 000247f6 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0 000247fa 02 40 00 80 | @ | ANDI.W #0x0080,D0 000247fe 67 22 |g" | BEQ 0x24822 00024800 41 fa c3 7e |A ~ | LEA.L 0x20b80,A0 00024804 70 04 |p | MOVEQ.L #0x04,D0 00024806 2f 20 |/ | MOVE.L -(A0),-(A7) 00024808 51 c8 ff fc |Q | DBF D0,0x24806 0002480c 59 4f |YO | SUBQ.L #0x4,A7 0002480e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024812 3f 01 |? | MOVE.W D1,-(A7) 00024814 3f 02 |? | MOVE.W D2,-(A7) 00024816 4e 93 |N | JSR (A3) 00024818 50 4f |PO | ADDQ.L #0x8,A7 0002481a 28 4a |(J | MOVEA.L A2,A4 0002481c 4e ba f9 74 |N t | JSR 0x24192 00024820 de c7 | | ADDA.W D7,A7 00024822 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0 00024826 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 0002482a 67 22 |g" | BEQ 0x2484e 0002482c 41 fa c3 60 |A ` | LEA.L 0x20b8e,A0 00024830 70 06 |p | MOVEQ.L #0x06,D0 00024832 3f 20 |? | MOVE.W -(A0),-(A7) 00024834 51 c8 ff fc |Q | DBF D0,0x24832 00024838 59 4f |YO | SUBQ.L #0x4,A7 0002483a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002483e 3f 01 |? | MOVE.W D1,-(A7) 00024840 3f 06 |? | MOVE.W D6,-(A7) 00024842 4e 93 |N | JSR (A3) 00024844 50 4f |PO | ADDQ.L #0x8,A7 00024846 28 4a |(J | MOVEA.L A2,A4 00024848 4e ba f9 48 |N H | JSR 0x24192 0002484c de c4 | | ADDA.W D4,A7 0002484e 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0 00024852 02 40 00 20 | @ | ANDI.W #0x0020,D0 00024856 67 26 |g& | BEQ 0x2487e 00024858 2f 3a c3 40 |/: @ | MOVE.L 0x20b9a,-(A7) 0002485c 2f 3a c3 38 |/: 8 | MOVE.L 0x20b96,-(A7) 00024860 2f 3a c3 30 |/: 0 | MOVE.L 0x20b92,-(A7) 00024864 2f 3a c3 28 |/: ( | MOVE.L 0x20b8e,-(A7) 00024868 59 4f |YO | SUBQ.L #0x4,A7 0002486a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002486e 3f 01 |? | MOVE.W D1,-(A7) 00024870 3f 03 |? | MOVE.W D3,-(A7) 00024872 4e 93 |N | JSR (A3) 00024874 50 4f |PO | ADDQ.L #0x8,A7 00024876 28 4a |(J | MOVEA.L A2,A4 00024878 4e ba f9 18 |N | JSR 0x24192 0002487c de c2 | | ADDA.W D2,A7 0002487e 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0 00024882 c0 43 | C | AND.W D3,D0 00024884 67 24 |g$ | BEQ 0x248aa 00024886 2f 3a c3 1e |/: | MOVE.L 0x20ba6,-(A7) 0002488a 2f 3a c3 16 |/: | MOVE.L 0x20ba2,-(A7) 0002488e 2f 3a c3 0e |/: | MOVE.L 0x20b9e,-(A7) 00024892 59 4f |YO | SUBQ.L #0x4,A7 00024894 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024898 3f 01 |? | MOVE.W D1,-(A7) 0002489a 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 0002489e 4e 93 |N | JSR (A3) 000248a0 50 4f |PO | ADDQ.L #0x8,A7 000248a2 28 4a |(J | MOVEA.L A2,A4 000248a4 4e ba f8 ec |N | JSR 0x24192 000248a8 de c3 | | ADDA.W D3,A7 000248aa 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0 000248ae 02 40 00 04 | @ | ANDI.W #0x0004,D0 000248b2 67 2c |g, | BEQ 0x248e0 000248b4 9e fc 00 1e | | SUBA.W #0x1e,A7 000248b8 20 4f | O | MOVEA.L A7,A0 000248ba 43 fa c2 ee |C | LEA.L 0x20baa,A1 000248be 70 1c |p | MOVEQ.L #0x1c,D0 000248c0 10 d9 | | MOVE.B (A1)+,(A0)+ 000248c2 51 c8 ff fc |Q | DBF D0,0x248c0 000248c6 59 4f |YO | SUBQ.L #0x4,A7 000248c8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000248cc 3f 01 |? | MOVE.W D1,-(A7) 000248ce 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 000248d2 4e 93 |N | JSR (A3) 000248d4 50 4f |PO | ADDQ.L #0x8,A7 000248d6 28 4a |(J | MOVEA.L A2,A4 000248d8 4e ba f8 b8 |N | JSR 0x24192 000248dc de fc 00 22 | " | ADDA.W #0x22,A7 000248e0 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0 000248e4 c0 41 | A | AND.W D1,D0 000248e6 67 26 |g& | BEQ 0x2490e 000248e8 2f 3a c2 ea |/: | MOVE.L 0x20bd4,-(A7) 000248ec 2f 3a c2 e2 |/: | MOVE.L 0x20bd0,-(A7) 000248f0 2f 3a c2 da |/: | MOVE.L 0x20bcc,-(A7) 000248f4 2f 3a c2 d2 |/: | MOVE.L 0x20bc8,-(A7) 000248f8 59 4f |YO | SUBQ.L #0x4,A7 000248fa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000248fe 3f 01 |? | MOVE.W D1,-(A7) 00024900 3f 03 |? | MOVE.W D3,-(A7) 00024902 4e 93 |N | JSR (A3) 00024904 50 4f |PO | ADDQ.L #0x8,A7 00024906 28 4a |(J | MOVEA.L A2,A4 00024908 4e ba f8 88 |N | JSR 0x24192 0002490c de c2 | | ADDA.W D2,A7 0002490e 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0 00024912 02 40 80 00 | @ | ANDI.W #0x8000,D0 00024916 67 24 |g$ | BEQ 0x2493c 00024918 41 fa c2 c8 |A | LEA.L 0x20be2,A0 0002491c 70 04 |p | MOVEQ.L #0x04,D0 0002491e 3f 20 |? | MOVE.W -(A0),-(A7) 00024920 51 c8 ff fc |Q | DBF D0,0x2491e 00024924 59 4f |YO | SUBQ.L #0x4,A7 00024926 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002492a 3f 01 |? | MOVE.W D1,-(A7) 0002492c 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00024930 4e 93 |N | JSR (A3) 00024932 50 4f |PO | ADDQ.L #0x8,A7 00024934 28 4a |(J | MOVEA.L A2,A4 00024936 4e ba f8 5a |N Z | JSR 0x24192 0002493a de c6 | | ADDA.W D6,A7 0002493c 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0 00024940 02 40 40 00 | @@ | ANDI.W #0x4000,D0 00024944 67 28 |g( | BEQ 0x2496e 00024946 9e c3 | | SUBA.W D3,A7 00024948 20 4f | O | MOVEA.L A7,A0 0002494a 43 fa c2 96 |C | LEA.L 0x20be2,A1 0002494e 70 0e |p | MOVEQ.L #0x0e,D0 00024950 10 d9 | | MOVE.B (A1)+,(A0)+ 00024952 51 c8 ff fc |Q | DBF D0,0x24950 00024956 59 4f |YO | SUBQ.L #0x4,A7 00024958 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002495c 3f 01 |? | MOVE.W D1,-(A7) 0002495e 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00024962 4e 93 |N | JSR (A3) 00024964 50 4f |PO | ADDQ.L #0x8,A7 00024966 28 4a |(J | MOVEA.L A2,A4 00024968 4e ba f8 28 |N ( | JSR 0x24192 0002496c de c2 | | ADDA.W D2,A7 0002496e 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0 00024972 02 40 10 00 | @ | ANDI.W #0x1000,D0 00024976 67 28 |g( | BEQ 0x249a0 00024978 9e c3 | | SUBA.W D3,A7 0002497a 20 4f | O | MOVEA.L A7,A0 0002497c 43 fa c2 74 |C t | LEA.L 0x20bf2,A1 00024980 70 0e |p | MOVEQ.L #0x0e,D0 00024982 10 d9 | | MOVE.B (A1)+,(A0)+ 00024984 51 c8 ff fc |Q | DBF D0,0x24982 00024988 59 4f |YO | SUBQ.L #0x4,A7 0002498a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002498e 3f 01 |? | MOVE.W D1,-(A7) 00024990 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00024994 4e 93 |N | JSR (A3) 00024996 50 4f |PO | ADDQ.L #0x8,A7 00024998 28 4a |(J | MOVEA.L A2,A4 0002499a 4e ba f7 f6 |N | JSR 0x24192 0002499e de c2 | | ADDA.W D2,A7 000249a0 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0 000249a4 02 40 08 00 | @ | ANDI.W #0x0800,D0 000249a8 67 22 |g" | BEQ 0x249cc 000249aa 41 fa c2 6a |A j | LEA.L 0x20c16,A0 000249ae 70 04 |p | MOVEQ.L #0x04,D0 000249b0 2f 20 |/ | MOVE.L -(A0),-(A7) 000249b2 51 c8 ff fc |Q | DBF D0,0x249b0 000249b6 59 4f |YO | SUBQ.L #0x4,A7 000249b8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000249bc 3f 01 |? | MOVE.W D1,-(A7) 000249be 3f 02 |? | MOVE.W D2,-(A7) 000249c0 4e 93 |N | JSR (A3) 000249c2 50 4f |PO | ADDQ.L #0x8,A7 000249c4 28 4a |(J | MOVEA.L A2,A4 000249c6 4e ba f7 ca |N | JSR 0x24192 000249ca de c7 | | ADDA.W D7,A7 000249cc 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0 000249d0 02 40 04 00 | @ | ANDI.W #0x0400,D0 000249d4 67 28 |g( | BEQ 0x249fe 000249d6 9e c4 | | SUBA.W D4,A7 000249d8 20 4f | O | MOVEA.L A7,A0 000249da 43 fa c2 3a |C : | LEA.L 0x20c16,A1 000249de 70 10 |p | MOVEQ.L #0x10,D0 000249e0 10 d9 | | MOVE.B (A1)+,(A0)+ 000249e2 51 c8 ff fc |Q | DBF D0,0x249e0 000249e6 59 4f |YO | SUBQ.L #0x4,A7 000249e8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000249ec 3f 01 |? | MOVE.W D1,-(A7) 000249ee 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 000249f2 4e 93 |N | JSR (A3) 000249f4 50 4f |PO | ADDQ.L #0x8,A7 000249f6 28 4a |(J | MOVEA.L A2,A4 000249f8 4e ba f7 98 |N | JSR 0x24192 000249fc de c5 | | ADDA.W D5,A7 000249fe 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0 00024a02 02 40 00 80 | @ | ANDI.W #0x0080,D0 00024a06 67 24 |g$ | BEQ 0x24a2c 00024a08 2f 3a c2 26 |/: & | MOVE.L 0x20c30,-(A7) 00024a0c 2f 3a c2 1e |/: | MOVE.L 0x20c2c,-(A7) 00024a10 2f 3a c2 16 |/: | MOVE.L 0x20c28,-(A7) 00024a14 59 4f |YO | SUBQ.L #0x4,A7 00024a16 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024a1a 3f 01 |? | MOVE.W D1,-(A7) 00024a1c 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 00024a20 4e 93 |N | JSR (A3) 00024a22 50 4f |PO | ADDQ.L #0x8,A7 00024a24 28 4a |(J | MOVEA.L A2,A4 00024a26 4e ba f7 6a |N j | JSR 0x24192 00024a2a de c3 | | ADDA.W D3,A7 00024a2c 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0 00024a30 02 40 00 20 | @ | ANDI.W #0x0020,D0 00024a34 67 28 |g( | BEQ 0x24a5e 00024a36 9e c4 | | SUBA.W D4,A7 00024a38 20 4f | O | MOVEA.L A7,A0 00024a3a 43 fa c1 f8 |C | LEA.L 0x20c34,A1 00024a3e 70 10 |p | MOVEQ.L #0x10,D0 00024a40 10 d9 | | MOVE.B (A1)+,(A0)+ 00024a42 51 c8 ff fc |Q | DBF D0,0x24a40 00024a46 59 4f |YO | SUBQ.L #0x4,A7 00024a48 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024a4c 3f 01 |? | MOVE.W D1,-(A7) 00024a4e 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00024a52 4e 93 |N | JSR (A3) 00024a54 50 4f |PO | ADDQ.L #0x8,A7 00024a56 28 4a |(J | MOVEA.L A2,A4 00024a58 4e ba f7 38 |N 8 | JSR 0x24192 00024a5c de c5 | | ADDA.W D5,A7 00024a5e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00024a62 4e 5e |N^ | UNLK A6 00024a64 4e 75 |Nu | RTS 00024a66 ; -------------------------------------------------------------------------------------- 00024a66 ; OMSI PASCAL Function 00024a66 ; <LVAR 0x014 4(r)> 00024a66 ; <LVAR 0x010 4(r)> 00024a66 ; <LVAR 0x00c 4(r)> 00024a66 ; <LVAR 0x008 4(r)> 00024a66 ; -------------------------------------------------------------------------------------- 00024a66 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00024a6a bf d5 | | CMPA.L (A5),A7 00024a6c 62 06 |b | BHI 0x24a74 00024a6e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024a72 4e 76 |Nv | TRAPV 00024a74 de fc 00 48 | H | ADDA.W #0x48,A7 00024a78 48 e7 f0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7) 00024a7c 45 f9 00 01 03 d8 |E | LEA.L WriteConsoleString(str : String),A2 00024a82 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00024a88 49 f9 00 01 02 e4 |I | LEA.L Long2String(a : Long) : String,A4 00024a8e 72 01 |r | MOVEQ.L #0x01,D1 00024a90 74 0b |t | MOVEQ.L #0x0b,D2 00024a92 76 10 |v | MOVEQ.L #0x10,D3 00024a94 2f 2e 00 14 |/. | MOVE.L (A6+0x14),-(A7) 00024a98 4e 92 |N | JSR (A2) 00024a9a 51 4f |QO | SUBQ.L #0x8,A7 00024a9c 20 4f | O | MOVEA.L A7,A0 00024a9e 43 fa c1 a6 |C | LEA.L 0x20c46,A1 00024aa2 70 0a |p | MOVEQ.L #0x0a,D0 00024aa4 10 d9 | | MOVE.B (A1)+,(A0)+ 00024aa6 51 c8 ff fc |Q | DBF D0,0x24aa4 00024aaa 51 4f |QO | SUBQ.L #0x8,A7 00024aac 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00024ab0 3f 01 |? | MOVE.W D1,-(A7) 00024ab2 3f 02 |? | MOVE.W D2,-(A7) 00024ab4 4e 93 |N | JSR (A3) 00024ab6 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00024aba 4e 94 |N | JSR (A4) 00024abc 58 4f |XO | ADDQ.L #0x4,A7 00024abe 48 78 00 04 |Hx | PEA.L 0x4 00024ac2 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String 00024ac8 50 4f |PO | ADDQ.L #0x8,A7 00024aca 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024ad0 50 4f |PO | ADDQ.L #0x8,A7 00024ad2 4e 92 |N | JSR (A2) 00024ad4 de c3 | | ADDA.W D3,A7 00024ad6 41 fa c1 84 |A | LEA.L 0x20c5c,A0 00024ada 70 04 |p | MOVEQ.L #0x04,D0 00024adc 3f 20 |? | MOVE.W -(A0),-(A7) 00024ade 51 c8 ff fc |Q | DBF D0,0x24adc 00024ae2 51 4f |QO | SUBQ.L #0x8,A7 00024ae4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00024ae8 3f 01 |? | MOVE.W D1,-(A7) 00024aea 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00024aee 4e 93 |N | JSR (A3) 00024af0 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024af4 4e 94 |N | JSR (A4) 00024af6 58 4f |XO | ADDQ.L #0x4,A7 00024af8 48 78 00 04 |Hx | PEA.L 0x4 00024afc 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String 00024b02 50 4f |PO | ADDQ.L #0x8,A7 00024b04 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024b0a 50 4f |PO | ADDQ.L #0x8,A7 00024b0c 4e 92 |N | JSR (A2) 00024b0e 54 4f |TO | ADDQ.L #0x2,A7 00024b10 20 4f | O | MOVEA.L A7,A0 00024b12 43 fa c1 48 |C H | LEA.L 0x20c5c,A1 00024b16 70 0a |p | MOVEQ.L #0x0a,D0 00024b18 10 d9 | | MOVE.B (A1)+,(A0)+ 00024b1a 51 c8 ff fc |Q | DBF D0,0x24b18 00024b1e 51 4f |QO | SUBQ.L #0x8,A7 00024b20 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00024b24 3f 01 |? | MOVE.W D1,-(A7) 00024b26 3f 02 |? | MOVE.W D2,-(A7) 00024b28 4e 93 |N | JSR (A3) 00024b2a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00024b2e 4e 94 |N | JSR (A4) 00024b30 58 4f |XO | ADDQ.L #0x4,A7 00024b32 48 78 00 04 |Hx | PEA.L 0x4 00024b36 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String 00024b3c 50 4f |PO | ADDQ.L #0x8,A7 00024b3e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024b44 50 4f |PO | ADDQ.L #0x8,A7 00024b46 4e 92 |N | JSR (A2) 00024b48 de c3 | | ADDA.W D3,A7 00024b4a 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00024b50 4c df 1f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4 00024b54 4e 5e |N^ | UNLK A6 00024b56 4e 75 |Nu | RTS 00024b58 ; -------------------------------------------------------------------------------------- 00024b58 ; OMSI PASCAL Function 00024b58 ; <LVAR 0x008 4(r)> 00024b58 ; <LVAR -0x008 2(w)> 00024b58 ; <LVAR -0x00e 2(w)> 00024b58 ; <LVAR -0x012 @> 00024b58 ; <LVAR -0x014 @ 1(r)> 00024b58 ; -------------------------------------------------------------------------------------- 00024b58 4e 56 ff aa |NV | LINK.W A6,#0xffaa 00024b5c bf d5 | | CMPA.L (A5),A7 00024b5e 62 06 |b | BHI 0x24b66 00024b60 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024b64 4e 76 |Nv | TRAPV 00024b66 de fc 00 42 | B | ADDA.W #0x42,A7 00024b6a 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00024b6e 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe) 00024b74 30 39 00 02 95 f6 |09 | MOVE.W 0x295f6,D0 00024b7a e1 40 | @ | ASL.W #0x8,D0 00024b7c 52 40 |R@ | ADDQ.W #0x1,D0 00024b7e 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00024b82 48 6e ff ee |Hn | PEA.L (A6-0x12) 00024b86 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024b8a 2f 08 |/ | MOVE.L A0,-(A7) 00024b8c 42 67 |Bg | CLR.W -(A7) 00024b8e 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00024b94 50 4f |PO | ADDQ.L #0x8,A7 00024b96 42 57 |BW | CLR.W (A7) 00024b98 48 6e ff ec |Hn | PEA.L (A6-0x14) 00024b9c 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00024ba2 5c 4f |\O | ADDQ.L #0x6,A7 00024ba4 4a 2e ff ec |J. | TST.B (A6-0x14) 00024ba8 66 30 |f0 | BNE 0x24bda 00024baa 9e fc 00 26 | & | SUBA.W #0x26,A7 00024bae 20 4f | O | MOVEA.L A7,A0 00024bb0 43 fa c0 b6 |C | LEA.L 0x20c68,A1 00024bb4 70 24 |p$ | MOVEQ.L #0x24,D0 00024bb6 10 d9 | | MOVE.B (A1)+,(A0)+ 00024bb8 51 c8 ff fc |Q | DBF D0,0x24bb6 00024bbc 59 4f |YO | SUBQ.L #0x4,A7 00024bbe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024bc2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024bc6 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7) 00024bca 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024bd0 50 4f |PO | ADDQ.L #0x8,A7 00024bd2 4e ba d8 f8 |N | JSR 0x224cc 00024bd6 de fc 00 2a | * | ADDA.W #0x2a,A7 00024bda 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00024bde 4e 5e |N^ | UNLK A6 00024be0 4e 75 |Nu | RTS 00024be2 ; -------------------------------------------------------------------------------------- 00024be2 ; OMSI PASCAL Function 00024be2 ; <LVAR 0x00c 2(r)> 00024be2 ; <LVAR 0x008 4(r)> 00024be2 ; -------------------------------------------------------------------------------------- 00024be2 4e 56 ff de |NV | LINK.W A6,#0xffde 00024be6 bf d5 | | CMPA.L (A5),A7 00024be8 62 06 |b | BHI 0x24bf0 00024bea 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024bee 4e 76 |Nv | TRAPV 00024bf0 de fc 00 20 | | ADDA.W #0x20,A7 00024bf4 48 e7 e0 80 |H | MOVEM.L A0+D2+D1+D0,-(A7) 00024bf8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024bfc 42 80 |B | CLR.L D0 00024bfe 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 00024c02 42 81 |B | CLR.L D1 00024c04 12 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D1 00024c0a 80 c1 | | DIVU.W D1,D0 00024c0c 24 00 |$ | MOVE.L D0,D2 00024c0e 48 42 |HB | SWAP.W D2 00024c10 11 42 00 03 | B | MOVE.B D2,(A0+0x3) 00024c14 42 82 |B | CLR.L D2 00024c16 34 00 |4 | MOVE.W D0,D2 00024c18 42 80 |B | CLR.L D0 00024c1a 10 39 00 02 95 fa | 9 | MOVE.B 0x295fa,D0 00024c20 84 c0 | | DIVU.W D0,D2 00024c22 48 42 |HB | SWAP.W D2 00024c24 11 42 00 02 | B | MOVE.B D2,(A0+0x2) 00024c28 c3 c0 | | MULS.W D0,D1 00024c2a 42 80 |B | CLR.L D0 00024c2c 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 00024c30 80 c1 | | DIVU.W D1,D0 00024c32 30 80 |0 | MOVE.W D0,(A0) 00024c34 4c df 01 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0 00024c38 4e 5e |N^ | UNLK A6 00024c3a 4e 75 |Nu | RTS 00024c3c ; -------------------------------------------------------------------------------------- 00024c3c ; OMSI PASCAL Function 00024c3c ; <LVAR 0x00c 4(r)> 00024c3c ; <LVAR 0x008 4(r)> 00024c3c ; -------------------------------------------------------------------------------------- 00024c3c 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00024c40 bf d5 | | CMPA.L (A5),A7 00024c42 62 06 |b | BHI 0x24c4a 00024c44 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024c48 4e 76 |Nv | TRAPV 00024c4a de fc 00 24 | $ | ADDA.W #0x24,A7 00024c4e 48 e7 98 80 |H | MOVEM.L A0+D4+D3+D0,-(A7) 00024c52 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024c56 28 2e 00 0c |(. | MOVE.L (A6+0xc),D4 00024c5a 42 83 |B | CLR.L D3 00024c5c 16 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D3 00024c62 2f 03 |/ | MOVE.L D3,-(A7) 00024c64 4e b9 00 01 02 98 |N | JSR ?divu_d3_d4 00024c6a 11 43 00 03 | C | MOVE.B D3,(A0+0x3) 00024c6e 42 83 |B | CLR.L D3 00024c70 16 39 00 02 95 fa | 9 | MOVE.B 0x295fa,D3 00024c76 2f 03 |/ | MOVE.L D3,-(A7) 00024c78 4e b9 00 01 02 98 |N | JSR ?divu_d3_d4 00024c7e 11 43 00 02 | C | MOVE.B D3,(A0+0x2) 00024c82 28 2f 00 04 |(/ | MOVE.L (A7+0x4),D4 00024c86 20 1f | | MOVE.L (A7)+,D0 00024c88 26 00 |& | MOVE.L D0,D3 00024c8a 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00024c90 58 4f |XO | ADDQ.L #0x4,A7 00024c92 36 04 |6 | MOVE.W D4,D3 00024c94 48 c3 |H | EXTW.L D3 00024c96 28 2e 00 0c |(. | MOVE.L (A6+0xc),D4 00024c9a 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00024ca0 0c 84 00 00 ff ff | | CMPI.L #0x0000ffff,D4 00024ca6 63 02 |c | BLS 0x24caa 00024ca8 4e 4f |NO | TRAP #15 00024caa 30 84 |0 | MOVE.W D4,(A0) 00024cac 4c df 01 19 |L | MOVEM.L (A7)+,D0+D3+D4+A0 00024cb0 4e 5e |N^ | UNLK A6 00024cb2 4e 75 |Nu | RTS 00024cb4 ; -------------------------------------------------------------------------------------- 00024cb4 ; OMSI PASCAL Function 00024cb4 ; <LVAR 0x010 4(r)> 00024cb4 ; <LVAR 0x00c 4(r)> 00024cb4 ; <LVAR 0x008 4(r)> 00024cb4 ; -------------------------------------------------------------------------------------- 00024cb4 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 00024cb8 bf d5 | | CMPA.L (A5),A7 00024cba 62 06 |b | BHI 0x24cc2 00024cbc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024cc0 4e 76 |Nv | TRAPV 00024cc2 de fc 00 4a | J | ADDA.W #0x4a,A7 00024cc6 48 e7 81 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D0,-(A7) 00024cca 45 f9 00 02 95 f2 |E | LEA.L 0x295f2,A2 00024cd0 47 f9 00 02 95 b8 |G | LEA.L 0x295b8,A3 00024cd6 20 12 | | MOVE.L (A2),D0 00024cd8 0c 80 00 00 08 00 | | CMPI.L #0x00000800,D0 00024cde 66 30 |f0 | BNE 0x24d10 00024ce0 9e fc 00 22 | " | SUBA.W #0x22,A7 00024ce4 20 4f | O | MOVEA.L A7,A0 00024ce6 43 fa bf a6 |C | LEA.L 0x20c8e,A1 00024cea 70 20 |p | MOVEQ.L #0x20,D0 00024cec 10 d9 | | MOVE.B (A1)+,(A0)+ 00024cee 51 c8 ff fc |Q | DBF D0,0x24cec 00024cf2 59 4f |YO | SUBQ.L #0x4,A7 00024cf4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024cf8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024cfc 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 00024d00 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024d06 50 4f |PO | ADDQ.L #0x8,A7 00024d08 4e ba d7 c2 |N | JSR 0x224cc 00024d0c de fc 00 26 | & | ADDA.W #0x26,A7 00024d10 2f 12 |/ | MOVE.L (A2),-(A7) 00024d12 53 97 |S | SUBQ.L #0x1,(A7) 00024d14 7e 00 |~ | MOVEQ.L #0x00,D7 00024d16 be 97 | | CMP.L (A7),D7 00024d18 6e 44 |nD | BGT 0x24d5e 00024d1a 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 00024d20 63 02 |c | BLS 0x24d24 00024d22 4e 4f |NO | TRAP #15 00024d24 20 07 | | MOVE.L D7,D0 00024d26 e5 80 | | ASL.L #0x2,D0 00024d28 20 4b | K | MOVEA.L A3,A0 00024d2a 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00024d2e 42 80 |B | CLR.L D0 00024d30 30 28 04 4c |0( L | MOVE.W (A0+0x44c),D0 00024d34 e5 48 | H | LSL.W #0x2,D0 00024d36 e4 48 | H | LSR.W #0x2,D0 00024d38 b0 ae 00 10 | | CMP.L (A6+0x10),D0 00024d3c 66 1c |f | BNE 0x24d5a 00024d3e 42 80 |B | CLR.L D0 00024d40 10 28 04 4e | ( N | MOVE.B (A0+0x44e),D0 00024d44 b0 ae 00 0c | | CMP.L (A6+0xc),D0 00024d48 66 10 |f | BNE 0x24d5a 00024d4a 42 80 |B | CLR.L D0 00024d4c 10 28 04 4f | ( O | MOVE.B (A0+0x44f),D0 00024d50 b0 ae 00 08 | | CMP.L (A6+0x8),D0 00024d54 66 04 |f | BNE 0x24d5a 00024d56 58 4f |XO | ADDQ.L #0x4,A7 00024d58 60 58 |`X | BRA 0x24db2 00024d5a 52 87 |R | ADDQ.L #0x1,D7 00024d5c 68 b8 |h | BVC 0x24d16 00024d5e 58 4f |XO | ADDQ.L #0x4,A7 00024d60 20 12 | | MOVE.L (A2),D0 00024d62 0c 80 00 00 07 ff | | CMPI.L #0x000007ff,D0 00024d68 63 02 |c | BLS 0x24d6c 00024d6a 4e 4f |NO | TRAP #15 00024d6c e5 80 | | ASL.L #0x2,D0 00024d6e 20 4b | K | MOVEA.L A3,A0 00024d70 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00024d74 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00024d78 0c 80 00 00 3f ff | ? | CMPI.L #0x00003fff,D0 00024d7e 63 02 |c | BLS 0x24d82 00024d80 4e 4f |NO | TRAP #15 00024d82 02 68 c0 00 04 4c | h L | ANDI.W #0xc000,(A0+0x44c) 00024d88 81 68 04 4c | h L | OR.W D0,(A0+0x44c) 00024d8c 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00024d90 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 00024d96 63 02 |c | BLS 0x24d9a 00024d98 4e 4f |NO | TRAP #15 00024d9a 11 40 04 4e | @ N | MOVE.B D0,(A0+0x44e) 00024d9e 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 00024da2 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 00024da8 63 02 |c | BLS 0x24dac 00024daa 4e 4f |NO | TRAP #15 00024dac 11 40 04 4f | @ O | MOVE.B D0,(A0+0x44f) 00024db0 52 92 |R | ADDQ.L #0x1,(A2) 00024db2 4c df 0f 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2+A3 00024db6 4e 5e |N^ | UNLK A6 00024db8 4e 75 |Nu | RTS 00024dba ; -------------------------------------------------------------------------------------- 00024dba ; OMSI PASCAL Function 00024dba ; <LVAR 0x010 4(r)> 00024dba ; <LVAR 0x00c 4(r)> 00024dba ; <LVAR 0x008 4(r)> 00024dba ; <LVAR -0x21b 1(w)> 00024dba ; <LVAR -0x21c 1(w)> 00024dba ; <LVAR -0x21e @ 1(w) 2(w)> 00024dba ; <LVAR -0x220 2(w)> 00024dba ; <LVAR -0x222 2(w)> 00024dba ; <LVAR -0x224 2(w)> 00024dba ; <LVAR -0x226 2(r)> 00024dba ; <LVAR -0x228 2(r)> 00024dba ; <LVAR -0x22a 2(w)> 00024dba ; <LVAR -0x22c 2(r)> 00024dba ; <LVAR -0x22e @ 2(r)> 00024dba ; <LVAR -0x230 @> 00024dba ; <LVAR -0x234 @> 00024dba ; -------------------------------------------------------------------------------------- 00024dba 4e 56 fd a6 |NV | LINK.W A6,#0xfda6 00024dbe bf d5 | | CMPA.L (A5),A7 00024dc0 62 06 |b | BHI 0x24dc8 00024dc2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024dc6 4e 76 |Nv | TRAPV 00024dc8 de fc 00 26 | & | ADDA.W #0x26,A7 00024dcc 48 e7 c3 c0 |H | MOVEM.L A1+A0+D7+D6+D1+D0,-(A7) 00024dd0 43 ee fd e2 |C | LEA.L (A6-0x21e),A1 00024dd4 22 3c 00 00 00 ff |"< | MOVE.L #0xff,D1 00024dda 20 49 | I | MOVEA.L A1,A0 00024ddc 2f 08 |/ | MOVE.L A0,-(A7) 00024dde 2c 1f |, | MOVE.L (A7)+,D6 00024de0 42 6e fd d2 |Bn | CLR.W (A6-0x22e) 00024de4 42 6e fd d4 |Bn | CLR.W (A6-0x22c) 00024de8 3d 7c 00 02 fd d6 |=| | MOVE.W #0x2,(A6-0x22a) 00024dee 42 6e fd d8 |Bn | CLR.W (A6-0x228) 00024df2 42 6e fd da |Bn | CLR.W (A6-0x226) 00024df6 30 39 00 02 95 f6 |09 | MOVE.W 0x295f6,D0 00024dfc e1 40 | @ | ASL.W #0x8,D0 00024dfe 50 40 |P@ | ADDQ.W #0x8,D0 00024e00 3d 40 fd dc |=@ | MOVE.W D0,(A6-0x224) 00024e04 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00024e08 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00024e0e 63 02 |c | BLS 0x24e12 00024e10 4e 4f |NO | TRAP #15 00024e12 3d 40 fd de |=@ | MOVE.W D0,(A6-0x222) 00024e16 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00024e1a e1 80 | | ASL.L #0x8,D0 00024e1c d0 ae 00 08 | | ADD.L (A6+0x8),D0 00024e20 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00024e26 63 02 |c | BLS 0x24e2a 00024e28 4e 4f |NO | TRAP #15 00024e2a 3d 40 fd e0 |=@ | MOVE.W D0,(A6-0x220) 00024e2e 7e 00 |~ | MOVEQ.L #0x00,D7 00024e30 be 81 | | CMP.L D1,D7 00024e32 63 02 |c | BLS 0x24e36 00024e34 4e 4f |NO | TRAP #15 00024e36 20 07 | | MOVE.L D7,D0 00024e38 e3 80 | | ASL.L #0x1,D0 00024e3a 41 ee fd cc |A | LEA.L (A6-0x234),A0 00024e3e 31 b9 00 02 95 c6 08 1a |1 | MOVE.W 0x295c6,(A0+D0.L+#0x1a) 00024e46 52 87 |R | ADDQ.L #0x1,D7 00024e48 be 81 | | CMP.L D1,D7 00024e4a 6f e4 |o | BLE 0x24e30 00024e4c 00 11 00 10 | | ORI.B #0x10,(A1) 00024e50 02 11 00 bf | | ANDI.B #0xbf,(A1) 00024e54 02 11 00 7f | | ANDI.B #0x7f,(A1) 00024e58 02 11 00 df | | ANDI.B #0xdf,(A1) 00024e5c 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 00024e60 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00024e66 63 02 |c | BLS 0x24e6a 00024e68 4e 4f |NO | TRAP #15 00024e6a 02 51 f0 00 | Q | ANDI.W #0xf000,(A1) 00024e6e 81 51 | Q | OR.W D0,(A1) 00024e70 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00024e74 b0 81 | | CMP.L D1,D0 00024e76 63 02 |c | BLS 0x24e7a 00024e78 4e 4f |NO | TRAP #15 00024e7a 1d 40 fd e4 | @ | MOVE.B D0,(A6-0x21c) 00024e7e 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 00024e82 b0 81 | | CMP.L D1,D0 00024e84 63 02 |c | BLS 0x24e88 00024e86 4e 4f |NO | TRAP #15 00024e88 1d 40 fd e5 | @ | MOVE.B D0,(A6-0x21b) 00024e8c 48 6e fd d2 |Hn | PEA.L (A6-0x22e) 00024e90 2f 06 |/ | MOVE.L D6,-(A7) 00024e92 42 67 |Bg | CLR.W -(A7) 00024e94 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00024e9a 50 4f |PO | ADDQ.L #0x8,A7 00024e9c 42 57 |BW | CLR.W (A7) 00024e9e 48 6e fd d0 |Hn | PEA.L (A6-0x230) 00024ea2 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00024ea8 5c 4f |\O | ADDQ.L #0x6,A7 00024eaa 4c df 03 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1 00024eae 4e 5e |N^ | UNLK A6 00024eb0 4e 75 |Nu | RTS 00024eb2 ; -------------------------------------------------------------------------------------- 00024eb2 ; OMSI PASCAL Function 00024eb2 ; <LVAR -0x006 4(rw)> 00024eb2 ; <LVAR -0x01e 4(rw)> 00024eb2 ; <LVAR -0x022 4(rw)> 00024eb2 ; <LVAR -0x026 4(rw)> 00024eb2 ; <LVAR -0x028 @ 1(r)> 00024eb2 ; <LVAR -0x02c 2(w)> 00024eb2 ; <LVAR -0x02e 2(w)> 00024eb2 ; <LVAR -0x030 2(r)> 00024eb2 ; <LVAR -0x032 2(r)> 00024eb2 ; <LVAR -0x034 2(w)> 00024eb2 ; <LVAR -0x036 2(r)> 00024eb2 ; <LVAR -0x038 @ 2(r)> 00024eb2 ; <LVAR -0x03c 4(w)> 00024eb2 ; <LVAR -0x03d 1(r)> 00024eb2 ; <LVAR -0x03e 1(r)> 00024eb2 ; <LVAR -0x040 @ 2(r)> 00024eb2 ; -------------------------------------------------------------------------------------- 00024eb2 4e 56 ff 22 |NV " | LINK.W A6,#0xff22 00024eb6 bf d5 | | CMPA.L (A5),A7 00024eb8 62 06 |b | BHI 0x24ec0 00024eba 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024ebe 4e 76 |Nv | TRAPV 00024ec0 de fc 00 96 | | ADDA.W #0x96,A7 00024ec4 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00024ec8 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00024ece 47 ee ff fa |G | LEA.L (A6-0x6),A3 00024ed2 49 ee ff c0 |I | LEA.L (A6-0x40),A4 00024ed6 76 01 |v | MOVEQ.L #0x01,D3 00024ed8 78 18 |x | MOVEQ.L #0x18,D4 00024eda 42 93 |B | CLR.L (A3) 00024edc 55 4f |UO | SUBQ.L #0x2,A7 00024ede 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00024ee4 4a 1f |J | TST.B (A7)+ 00024ee6 67 00 01 3a |g : | BEQ 0x25022 00024eea 42 6e ff c8 |Bn | CLR.W (A6-0x38) 00024eee 42 6e ff ca |Bn | CLR.W (A6-0x36) 00024ef2 3d 7c 00 02 ff cc |=| | MOVE.W #0x2,(A6-0x34) 00024ef8 42 6e ff ce |Bn | CLR.W (A6-0x32) 00024efc 42 6e ff d0 |Bn | CLR.W (A6-0x30) 00024f00 30 39 00 02 95 f6 |09 | MOVE.W 0x295f6,D0 00024f06 e1 40 | @ | ASL.W #0x8,D0 00024f08 06 40 00 0a | @ | ADDI.W #0x000a,D0 00024f0c 3d 40 ff d2 |=@ | MOVE.W D0,(A6-0x2e) 00024f10 3d 44 ff d4 |=D | MOVE.W D4,(A6-0x2c) 00024f14 48 6e ff c8 |Hn | PEA.L (A6-0x38) 00024f18 41 f9 00 02 e1 ec |A | LEA.L 0x2e1ec,A0 00024f1e 2f 08 |/ | MOVE.L A0,-(A7) 00024f20 42 67 |Bg | CLR.W -(A7) 00024f22 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00024f28 50 4f |PO | ADDQ.L #0x8,A7 00024f2a 42 57 |BW | CLR.W (A7) 00024f2c 48 6e ff d8 |Hn | PEA.L (A6-0x28) 00024f30 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00024f36 5c 4f |\O | ADDQ.L #0x6,A7 00024f38 4a 2e ff d8 |J. | TST.B (A6-0x28) 00024f3c 66 24 |f$ | BNE 0x24f62 00024f3e 41 fa bd 94 |A | LEA.L 0x20cd4,A0 00024f42 70 08 |p | MOVEQ.L #0x08,D0 00024f44 2f 20 |/ | MOVE.L -(A0),-(A7) 00024f46 51 c8 ff fc |Q | DBF D0,0x24f44 00024f4a 59 4f |YO | SUBQ.L #0x4,A7 00024f4c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024f50 3f 03 |? | MOVE.W D3,-(A7) 00024f52 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7) 00024f56 4e 92 |N | JSR (A2) 00024f58 50 4f |PO | ADDQ.L #0x8,A7 00024f5a 4e ba d5 70 |N p | JSR 0x224cc 00024f5e de fc 00 28 | ( | ADDA.W #0x28,A7 00024f62 30 39 00 02 e1 ee |09 | MOVE.W 0x2e1ee,D0 00024f68 e4 48 | H | LSR.W #0x2,D0 00024f6a 42 81 |B | CLR.L D1 00024f6c 32 00 |2 | MOVE.W D0,D1 00024f6e 2d 41 ff c4 |-A | MOVE.L D1,(A6-0x3c) 00024f72 42 b9 00 02 95 f2 |B | CLR.L 0x295f2 00024f78 53 81 |S | SUBQ.L #0x1,D1 00024f7a 2f 01 |/ | MOVE.L D1,-(A7) 00024f7c 70 00 |p | MOVEQ.L #0x00,D0 00024f7e b0 97 | | CMP.L (A7),D0 00024f80 6e 00 00 9a |n | BGT 0x2501c 00024f84 0c 80 00 00 01 f7 | | CMPI.L #0x000001f7,D0 00024f8a 63 02 |c | BLS 0x24f8e 00024f8c 4e 4f |NO | TRAP #15 00024f8e 22 00 |" | MOVE.L D0,D1 00024f90 e5 81 | | ASL.L #0x2,D1 00024f92 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 00024f98 41 f0 18 00 |A | LEA.L (A0+D1.L),A0 00024f9c 4a 28 4c 38 |J(L8 | TST.B (A0+0x4c38) 00024fa0 66 74 |ft | BNE 0x25016 00024fa2 52 93 |R | ADDQ.L #0x1,(A3) 00024fa4 42 81 |B | CLR.L D1 00024fa6 12 28 4c 39 | (L9 | MOVE.B (A0+0x4c39),D1 00024faa e1 41 | A | ASL.W #0x8,D1 00024fac 42 82 |B | CLR.L D2 00024fae 14 28 4c 3a | (L: | MOVE.B (A0+0x4c3a),D2 00024fb2 d4 41 | A | ADD.W D1,D2 00024fb4 48 c2 |H | EXTW.L D2 00024fb6 2e 02 |. | MOVE.L D2,D7 00024fb8 e1 87 | | ASL.L #0x8,D7 00024fba 42 81 |B | CLR.L D1 00024fbc 12 28 4c 3b | (L; | MOVE.B (A0+0x4c3b),D1 00024fc0 de 81 | | ADD.L D1,D7 00024fc2 de 87 | | ADD.L D7,D7 00024fc4 2f 07 |/ | MOVE.L D7,-(A7) 00024fc6 48 54 |HT | PEA.L (A4) 00024fc8 4e ba fc 72 |N r | JSR 0x24c3c 00024fcc 50 4f |PO | ADDQ.L #0x8,A7 00024fce 42 81 |B | CLR.L D1 00024fd0 32 14 |2 | MOVE.W (A4),D1 00024fd2 2f 01 |/ | MOVE.L D1,-(A7) 00024fd4 42 81 |B | CLR.L D1 00024fd6 12 2e ff c2 | . | MOVE.B (A6-0x3e),D1 00024fda 2f 01 |/ | MOVE.L D1,-(A7) 00024fdc 42 81 |B | CLR.L D1 00024fde 12 2e ff c3 | . | MOVE.B (A6-0x3d),D1 00024fe2 2f 01 |/ | MOVE.L D1,-(A7) 00024fe4 4e ba fc ce |N | JSR 0x24cb4 00024fe8 de fc 00 0c | | ADDA.W #0xc,A7 00024fec 52 87 |R | ADDQ.L #0x1,D7 00024fee 2f 07 |/ | MOVE.L D7,-(A7) 00024ff0 48 54 |HT | PEA.L (A4) 00024ff2 4e ba fc 48 |N H | JSR 0x24c3c 00024ff6 50 4f |PO | ADDQ.L #0x8,A7 00024ff8 42 81 |B | CLR.L D1 00024ffa 32 14 |2 | MOVE.W (A4),D1 00024ffc 2f 01 |/ | MOVE.L D1,-(A7) 00024ffe 42 81 |B | CLR.L D1 00025000 12 2e ff c2 | . | MOVE.B (A6-0x3e),D1 00025004 2f 01 |/ | MOVE.L D1,-(A7) 00025006 42 81 |B | CLR.L D1 00025008 12 2e ff c3 | . | MOVE.B (A6-0x3d),D1 0002500c 2f 01 |/ | MOVE.L D1,-(A7) 0002500e 4e ba fc a4 |N | JSR 0x24cb4 00025012 de fc 00 0c | | ADDA.W #0xc,A7 00025016 52 80 |R | ADDQ.L #0x1,D0 00025018 68 00 ff 64 |h d | BVC 0x24f7e 0002501c 58 4f |XO | ADDQ.L #0x4,A7 0002501e 60 00 02 64 |` d | BRA 0x25284 00025022 41 fa bc c4 |A | LEA.L 0x20ce8,A0 00025026 70 04 |p | MOVEQ.L #0x04,D0 00025028 2f 20 |/ | MOVE.L -(A0),-(A7) 0002502a 51 c8 ff fc |Q | DBF D0,0x25028 0002502e 59 4f |YO | SUBQ.L #0x4,A7 00025030 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025034 3f 03 |? | MOVE.W D3,-(A7) 00025036 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 0002503a 4e 92 |N | JSR (A2) 0002503c 50 4f |PO | ADDQ.L #0x8,A7 0002503e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00025044 de c4 | | ADDA.W D4,A7 00025046 42 ae ff da |B | CLR.L (A6-0x26) 0002504a 70 00 |p | MOVEQ.L #0x00,D0 0002504c 2f 00 |/ | MOVE.L D0,-(A7) 0002504e 0c 80 00 00 07 ff | | CMPI.L #0x000007ff,D0 00025054 63 02 |c | BLS 0x25058 00025056 4e 4f |NO | TRAP #15 00025058 22 00 |" | MOVE.L D0,D1 0002505a e5 81 | | ASL.L #0x2,D1 0002505c 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 00025062 41 f0 18 00 |A | LEA.L (A0+D1.L),A0 00025066 2f 08 |/ | MOVE.L A0,-(A7) 00025068 32 28 04 4c |2( L | MOVE.W (A0+0x44c),D1 0002506c e5 49 | I | LSL.W #0x2,D1 0002506e e4 49 | I | LSR.W #0x2,D1 00025070 b2 79 00 02 95 f8 | y | CMP.W 0x295f8,D1 00025076 62 00 01 1e |b | BHI 0x25196 0002507a 14 39 00 02 95 fa | 9 | MOVE.B 0x295fa,D2 00025080 b4 28 04 4e | ( N | CMP.B (A0+0x44e),D2 00025084 64 0e |d | BCC 0x25094 00025086 42 82 |B | CLR.L D2 00025088 14 28 04 4e | ( N | MOVE.B (A0+0x44e),D2 0002508c 0c 42 00 ff | B | CMPI.W #0x00ff,D2 00025090 66 00 01 04 |f | BNE 0x25196 00025094 14 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D2 0002509a b4 28 04 4f | ( O | CMP.B (A0+0x44f),D2 0002509e 64 0e |d | BCC 0x250ae 000250a0 42 82 |B | CLR.L D2 000250a2 14 28 04 4f | ( O | MOVE.B (A0+0x44f),D2 000250a6 0c 42 00 ff | B | CMPI.W #0x00ff,D2 000250aa 66 00 00 ea |f | BNE 0x25196 000250ae 4a 41 |JA | TST.W D1 000250b0 66 0e |f | BNE 0x250c0 000250b2 4a 28 04 4e |J( N | TST.B (A0+0x44e) 000250b6 66 08 |f | BNE 0x250c0 000250b8 4a 28 04 4f |J( O | TST.B (A0+0x44f) 000250bc 67 00 00 d8 |g | BEQ 0x25196 000250c0 52 93 |R | ADDQ.L #0x1,(A3) 000250c2 42 81 |B | CLR.L D1 000250c4 12 28 04 4e | ( N | MOVE.B (A0+0x44e),D1 000250c8 0c 41 00 ff | A | CMPI.W #0x00ff,D1 000250cc 66 26 |f& | BNE 0x250f4 000250ce 42 ae ff de |B | CLR.L (A6-0x22) 000250d2 42 81 |B | CLR.L D1 000250d4 12 39 00 02 95 fa | 9 | MOVE.B 0x295fa,D1 000250da 53 41 |SA | SUBQ.W #0x1,D1 000250dc 48 c1 |H | EXTW.L D1 000250de 2d 41 ff e2 |-A | MOVE.L D1,(A6-0x1e) 000250e2 7c 00 || | MOVEQ.L #0x00,D6 000250e4 42 81 |B | CLR.L D1 000250e6 12 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D1 000250ec 53 41 |SA | SUBQ.W #0x1,D1 000250ee 48 c1 |H | EXTW.L D1 000250f0 2a 01 |* | MOVE.L D1,D5 000250f2 60 22 |`" | BRA 0x25116 000250f4 34 01 |4 | MOVE.W D1,D2 000250f6 48 c2 |H | EXTW.L D2 000250f8 2d 42 ff de |-B | MOVE.L D2,(A6-0x22) 000250fc 2d 42 ff e2 |-B | MOVE.L D2,(A6-0x1e) 00025100 42 81 |B | CLR.L D1 00025102 12 28 04 4f | ( O | MOVE.B (A0+0x44f),D1 00025106 0c 41 00 ff | A | CMPI.W #0x00ff,D1 0002510a 66 02 |f | BNE 0x2510e 0002510c 60 d4 |` | BRA 0x250e2 0002510e 34 01 |4 | MOVE.W D1,D2 00025110 48 c2 |H | EXTW.L D2 00025112 2c 02 |, | MOVE.L D2,D6 00025114 2a 02 |* | MOVE.L D2,D5 00025116 2f 2e ff e2 |/. | MOVE.L (A6-0x1e),-(A7) 0002511a 22 2e ff de |". | MOVE.L (A6-0x22),D1 0002511e b2 97 | | CMP.L (A7),D1 00025120 6e 14 |n | BGT 0x25136 00025122 24 17 |$ | MOVE.L (A7),D2 00025124 0c 81 80 00 00 01 | | CMPI.L #0x80000001,D1 0002512a 6d 08 |m | BLT 0x25134 0002512c 0c 82 7f ff ff ff | | CMPI.L #0x7fffffff,D2 00025132 6f 02 |o | BLE 0x25136 00025134 4e 4f |NO | TRAP #15 00025136 b2 97 | | CMP.L (A7),D1 00025138 6f 04 |o | BLE 0x2513e 0002513a 59 4f |YO | SUBQ.L #0x4,A7 0002513c 60 56 |`V | BRA 0x25194 0002513e 2f 01 |/ | MOVE.L D1,-(A7) 00025140 2f 05 |/ | MOVE.L D5,-(A7) 00025142 20 06 | | MOVE.L D6,D0 00025144 b0 97 | | CMP.L (A7),D0 00025146 6e 14 |n | BGT 0x2515c 00025148 24 17 |$ | MOVE.L (A7),D2 0002514a 0c 80 80 00 00 01 | | CMPI.L #0x80000001,D0 00025150 6d 08 |m | BLT 0x2515a 00025152 0c 82 7f ff ff ff | | CMPI.L #0x7fffffff,D2 00025158 6f 02 |o | BLE 0x2515c 0002515a 4e 4f |NO | TRAP #15 0002515c b0 97 | | CMP.L (A7),D0 0002515e 6e 28 |n( | BGT 0x25188 00025160 52 ae ff da |R | ADDQ.L #0x1,(A6-0x26) 00025164 20 6f 00 0c | o | MOVEA.L (A7+0xc),A0 00025168 42 81 |B | CLR.L D1 0002516a 32 28 04 4c |2( L | MOVE.W (A0+0x44c),D1 0002516e e5 49 | I | LSL.W #0x2,D1 00025170 e4 49 | I | LSR.W #0x2,D1 00025172 2f 01 |/ | MOVE.L D1,-(A7) 00025174 22 2f 00 08 |"/ | MOVE.L (A7+0x8),D1 00025178 2f 01 |/ | MOVE.L D1,-(A7) 0002517a 2f 00 |/ | MOVE.L D0,-(A7) 0002517c 4e ba fc 3c |N < | JSR 0x24dba 00025180 de fc 00 0c | | ADDA.W #0xc,A7 00025184 52 80 |R | ADDQ.L #0x1,D0 00025186 68 d4 |h | BVC 0x2515c 00025188 58 4f |XO | ADDQ.L #0x4,A7 0002518a 22 17 |" | MOVE.L (A7),D1 0002518c 52 81 |R | ADDQ.L #0x1,D1 0002518e 69 04 |i | BVS 0x25194 00025190 58 4f |XO | ADDQ.L #0x4,A7 00025192 60 a2 |` | BRA 0x25136 00025194 50 4f |PO | ADDQ.L #0x8,A7 00025196 58 4f |XO | ADDQ.L #0x4,A7 00025198 20 17 | | MOVE.L (A7),D0 0002519a 52 80 |R | ADDQ.L #0x1,D0 0002519c 0c 80 00 00 07 ff | | CMPI.L #0x000007ff,D0 000251a2 6e 06 |n | BGT 0x251aa 000251a4 58 4f |XO | ADDQ.L #0x4,A7 000251a6 60 00 fe a4 |` | BRA 0x2504c 000251aa 58 4f |XO | ADDQ.L #0x4,A7 000251ac 41 fa bb 4e |A N | LEA.L 0x20cfc,A0 000251b0 70 04 |p | MOVEQ.L #0x04,D0 000251b2 2f 20 |/ | MOVE.L -(A0),-(A7) 000251b4 51 c8 ff fc |Q | DBF D0,0x251b2 000251b8 51 4f |QO | SUBQ.L #0x8,A7 000251ba 2f 2e ff da |/. | MOVE.L (A6-0x26),-(A7) 000251be 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000251c4 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000251c8 3f 03 |? | MOVE.W D3,-(A7) 000251ca 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 000251ce 4e 92 |N | JSR (A2) 000251d0 50 4f |PO | ADDQ.L #0x8,A7 000251d2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000251d8 50 4f |PO | ADDQ.L #0x8,A7 000251da 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000251e0 de c4 | | ADDA.W D4,A7 000251e2 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000251e8 20 3c 00 00 08 00 | < | MOVE.L #0x800,D0 000251ee 90 93 | | SUB.L (A3),D0 000251f0 0c 80 00 00 02 00 | | CMPI.L #0x00000200,D0 000251f6 6c 28 |l( | BGE 0x25220 000251f8 41 fa bb 2a |A * | LEA.L 0x20d24,A0 000251fc 70 09 |p | MOVEQ.L #0x09,D0 000251fe 2f 20 |/ | MOVE.L -(A0),-(A7) 00025200 51 c8 ff fc |Q | DBF D0,0x251fe 00025204 59 4f |YO | SUBQ.L #0x4,A7 00025206 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002520a 3f 03 |? | MOVE.W D3,-(A7) 0002520c 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 00025210 4e 92 |N | JSR (A2) 00025212 50 4f |PO | ADDQ.L #0x8,A7 00025214 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002521a de fc 00 2c | , | ADDA.W #0x2c,A7 0002521e 60 5e |`^ | BRA 0x2527e 00025220 41 fa bb 1e |A | LEA.L 0x20d40,A0 00025224 72 06 |r | MOVEQ.L #0x06,D1 00025226 2f 20 |/ | MOVE.L -(A0),-(A7) 00025228 51 c9 ff fc |Q | DBF D1,0x25226 0002522c 9e fc 00 22 | " | SUBA.W #0x22,A7 00025230 20 4f | O | MOVEA.L A7,A0 00025232 43 fa bb 0c |C | LEA.L 0x20d40,A1 00025236 72 20 |r | MOVEQ.L #0x20,D1 00025238 10 d9 | | MOVE.B (A1)+,(A0)+ 0002523a 51 c9 ff fc |Q | DBF D1,0x25238 0002523e 51 4f |QO | SUBQ.L #0x8,A7 00025240 2f 13 |/ | MOVE.L (A3),-(A7) 00025242 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00025248 48 6f 00 2e |Ho . | PEA.L (A7+0x2e) 0002524c 3f 03 |? | MOVE.W D3,-(A7) 0002524e 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 00025252 4e 92 |N | JSR (A2) 00025254 2e 80 |. | MOVE.L D0,(A7) 00025256 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002525c 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00025260 3f 03 |? | MOVE.W D3,-(A7) 00025262 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 00025266 4e 92 |N | JSR (A2) 00025268 50 4f |PO | ADDQ.L #0x8,A7 0002526a 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 00025270 de fc 00 10 | | ADDA.W #0x10,A7 00025274 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002527a de fc 00 42 | B | ADDA.W #0x42,A7 0002527e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00025284 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00025288 4e 5e |N^ | UNLK A6 0002528a 4e 75 |Nu | RTS 0002528c ; -------------------------------------------------------------------------------------- 0002528c ; OMSI PASCAL Function 0002528c ; <LVAR 0x010 1(rw)> 0002528c ; <LVAR 0x00f 1(r)> 0002528c ; <LVAR 0x00e 1(r)> 0002528c ; <LVAR 0x00d 1(r)> 0002528c ; <LVAR 0x00c 1(r)> 0002528c ; -------------------------------------------------------------------------------------- 0002528c 4e 56 ff ec |NV | LINK.W A6,#0xffec 00025290 bf d5 | | CMPA.L (A5),A7 00025292 62 06 |b | BHI 0x2529a 00025294 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025298 4e 76 |Nv | TRAPV 0002529a de fc 00 10 | | ADDA.W #0x10,A7 0002529e 48 e7 c1 00 |H | MOVEM.L D7+D1+D0,-(A7) 000252a2 42 80 |B | CLR.L D0 000252a4 10 2e 00 0c | . | MOVE.B (A6+0xc),D0 000252a8 e1 40 | @ | ASL.W #0x8,D0 000252aa 42 81 |B | CLR.L D1 000252ac 12 2e 00 0d | . | MOVE.B (A6+0xd),D1 000252b0 d2 40 | @ | ADD.W D0,D1 000252b2 48 c1 |H | EXTW.L D1 000252b4 e1 81 | | ASL.L #0x8,D1 000252b6 42 80 |B | CLR.L D0 000252b8 10 2e 00 0e | . | MOVE.B (A6+0xe),D0 000252bc d0 81 | | ADD.L D1,D0 000252be e1 80 | | ASL.L #0x8,D0 000252c0 42 81 |B | CLR.L D1 000252c2 12 2e 00 0f | . | MOVE.B (A6+0xf),D1 000252c6 d2 80 | | ADD.L D0,D1 000252c8 2e 01 |. | MOVE.L D1,D7 000252ca 42 2e 00 10 |B. | CLR.B (A6+0x10) 000252ce 0c 87 00 00 04 00 | | CMPI.L #0x00000400,D7 000252d4 67 04 |g | BEQ 0x252da 000252d6 52 2e 00 10 |R. | ADDQ.B #0x1,(A6+0x10) 000252da 4c df 00 83 |L | MOVEM.L (A7)+,D0+D1+D7 000252de 4e 5e |N^ | UNLK A6 000252e0 4e 75 |Nu | RTS 000252e2 ; -------------------------------------------------------------------------------------- 000252e2 ; OMSI PASCAL Function 000252e2 ; <LVAR -0x006 @ 4(r)> 000252e2 ; <LVAR -0x00a @ 4(r)> 000252e2 ; <LVAR -0x00c @ 1(r)> 000252e2 ; <LVAR -0x00e 2(rw)> 000252e2 ; <LVAR -0x010 2(rw)> 000252e2 ; <LVAR -0x012 2(w)> 000252e2 ; <LVAR -0x014 2(r)> 000252e2 ; <LVAR -0x016 2(r)> 000252e2 ; <LVAR -0x018 2(w)> 000252e2 ; <LVAR -0x01a 2(r)> 000252e2 ; <LVAR -0x01c @ 2(r)> 000252e2 ; -------------------------------------------------------------------------------------- 000252e2 4e 56 ff 5e |NV ^ | LINK.W A6,#0xff5e 000252e6 bf d5 | | CMPA.L (A5),A7 000252e8 62 06 |b | BHI 0x252f0 000252ea 44 fc 00 02 |D | MOVE.W #0x2,CCR 000252ee 4e 76 |Nv | TRAPV 000252f0 de fc 00 82 | | ADDA.W #0x82,A7 000252f4 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000252f8 45 f9 00 02 95 f6 |E | LEA.L 0x295f6,A2 000252fe 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00025304 49 ee ff e4 |I | LEA.L (A6-0x1c),A4 00025308 72 01 |r | MOVEQ.L #0x01,D1 0002530a 74 02 |t | MOVEQ.L #0x02,D2 0002530c 7a 30 |z0 | MOVEQ.L #0x30,D5 0002530e 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00025312 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00025318 58 4f |XO | ADDQ.L #0x4,A7 0002531a 42 54 |BT | CLR.W (A4) 0002531c 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 00025320 3d 42 ff e8 |=B | MOVE.W D2,(A6-0x18) 00025324 42 6e ff ea |Bn | CLR.W (A6-0x16) 00025328 42 6e ff ec |Bn | CLR.W (A6-0x14) 0002532c 30 12 |0 | MOVE.W (A2),D0 0002532e e1 40 | @ | ASL.W #0x8,D0 00025330 3d 40 ff ee |=@ | MOVE.W D0,(A6-0x12) 00025334 42 6e ff f0 |Bn | CLR.W (A6-0x10) 00025338 42 6e ff f2 |Bn | CLR.W (A6-0xe) 0002533c 4a 39 00 02 95 f1 |J9 | TST.B 0x295f1 00025342 67 00 05 1a |g | BEQ 0x2585e 00025346 55 4f |UO | SUBQ.L #0x2,A7 00025348 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 0002534e 4a 1f |J | TST.B (A7)+ 00025350 67 00 02 c6 |g | BEQ 0x25618 00025354 7e 00 |~ | MOVEQ.L #0x00,D7 00025356 42 54 |BT | CLR.W (A4) 00025358 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 0002535c 3d 42 ff e8 |=B | MOVE.W D2,(A6-0x18) 00025360 42 6e ff ea |Bn | CLR.W (A6-0x16) 00025364 42 6e ff ec |Bn | CLR.W (A6-0x14) 00025368 30 12 |0 | MOVE.W (A2),D0 0002536a e1 40 | @ | ASL.W #0x8,D0 0002536c 06 40 00 14 | @ | ADDI.W #0x0014,D0 00025370 3d 40 ff ee |=@ | MOVE.W D0,(A6-0x12) 00025374 3d 7c 00 03 ff f0 |=| | MOVE.W #0x3,(A6-0x10) 0002537a 3d 7c 00 24 ff f2 |=| $ | MOVE.W #0x24,(A6-0xe) 00025380 48 54 |HT | PEA.L (A4) 00025382 41 f9 00 02 e9 d0 |A | LEA.L 0x2e9d0,A0 00025388 2f 08 |/ | MOVE.L A0,-(A7) 0002538a 42 67 |Bg | CLR.W -(A7) 0002538c 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00025392 50 4f |PO | ADDQ.L #0x8,A7 00025394 42 57 |BW | CLR.W (A7) 00025396 48 6e ff f4 |Hn | PEA.L (A6-0xc) 0002539a 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000253a0 5c 4f |\O | ADDQ.L #0x6,A7 000253a2 4a 2e ff f4 |J. | TST.B (A6-0xc) 000253a6 66 2a |f* | BNE 0x253d2 000253a8 9e fc 00 1a | | SUBA.W #0x1a,A7 000253ac 20 4f | O | MOVEA.L A7,A0 000253ae 43 fa b9 f0 |C | LEA.L 0x20da0,A1 000253b2 70 18 |p | MOVEQ.L #0x18,D0 000253b4 10 d9 | | MOVE.B (A1)+,(A0)+ 000253b6 51 c8 ff fc |Q | DBF D0,0x253b4 000253ba 59 4f |YO | SUBQ.L #0x4,A7 000253bc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000253c0 3f 01 |? | MOVE.W D1,-(A7) 000253c2 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 000253c6 4e 93 |N | JSR (A3) 000253c8 50 4f |PO | ADDQ.L #0x8,A7 000253ca 4e ba d1 00 |N | JSR 0x224cc 000253ce de fc 00 1e | | ADDA.W #0x1e,A7 000253d2 30 39 00 02 e9 e8 |09 | MOVE.W 0x2e9e8,D0 000253d8 b0 7a cf 70 | z p | CMP.W 0x2234a,D0 000253dc 66 26 |f& | BNE 0x25404 000253de 30 39 00 02 e9 e6 |09 | MOVE.W 0x2e9e6,D0 000253e4 b0 7a cf 64 | z d | CMP.W 0x2234a,D0 000253e8 66 1a |f | BNE 0x25404 000253ea 55 4f |UO | SUBQ.L #0x2,A7 000253ec 2f 39 00 02 e9 d8 |/9 | MOVE.L 0x2e9d8,-(A7) 000253f2 2f 39 00 02 e9 d4 |/9 | MOVE.L 0x2e9d4,-(A7) 000253f8 4e ba fe 92 |N | JSR 0x2528c 000253fc 50 4f |PO | ADDQ.L #0x8,A7 000253fe 4a 1f |J | TST.B (A7)+ 00025400 67 00 01 20 |g | BEQ 0x25522 00025404 41 f9 00 02 e9 d0 |A | LEA.L 0x2e9d0,A0 0002540a 43 fa cf 26 |C & | LEA.L 0x22332,A1 0002540e 70 24 |p$ | MOVEQ.L #0x24,D0 00025410 10 d9 | | MOVE.B (A1)+,(A0)+ 00025412 51 c8 ff fc |Q | DBF D0,0x25410 00025416 42 54 |BT | CLR.W (A4) 00025418 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 0002541c 3d 42 ff e8 |=B | MOVE.W D2,(A6-0x18) 00025420 42 6e ff ea |Bn | CLR.W (A6-0x16) 00025424 42 6e ff ec |Bn | CLR.W (A6-0x14) 00025428 30 12 |0 | MOVE.W (A2),D0 0002542a e1 40 | @ | ASL.W #0x8,D0 0002542c 06 40 00 13 | @ | ADDI.W #0x0013,D0 00025430 3d 40 ff ee |=@ | MOVE.W D0,(A6-0x12) 00025434 3d 7c 00 03 ff f0 |=| | MOVE.W #0x3,(A6-0x10) 0002543a 3d 7c 00 24 ff f2 |=| $ | MOVE.W #0x24,(A6-0xe) 00025440 48 54 |HT | PEA.L (A4) 00025442 41 f9 00 02 e9 d0 |A | LEA.L 0x2e9d0,A0 00025448 2f 08 |/ | MOVE.L A0,-(A7) 0002544a 42 67 |Bg | CLR.W -(A7) 0002544c 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00025452 50 4f |PO | ADDQ.L #0x8,A7 00025454 42 57 |BW | CLR.W (A7) 00025456 48 6e ff f4 |Hn | PEA.L (A6-0xc) 0002545a 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00025460 5c 4f |\O | ADDQ.L #0x6,A7 00025462 4a 2e ff f4 |J. | TST.B (A6-0xc) 00025466 66 2a |f* | BNE 0x25492 00025468 9e fc 00 1a | | SUBA.W #0x1a,A7 0002546c 20 4f | O | MOVEA.L A7,A0 0002546e 43 fa b9 30 |C 0 | LEA.L 0x20da0,A1 00025472 70 18 |p | MOVEQ.L #0x18,D0 00025474 10 d9 | | MOVE.B (A1)+,(A0)+ 00025476 51 c8 ff fc |Q | DBF D0,0x25474 0002547a 59 4f |YO | SUBQ.L #0x4,A7 0002547c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025480 3f 01 |? | MOVE.W D1,-(A7) 00025482 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00025486 4e 93 |N | JSR (A3) 00025488 50 4f |PO | ADDQ.L #0x8,A7 0002548a 4e ba d0 40 |N @ | JSR 0x224cc 0002548e de fc 00 1e | | ADDA.W #0x1e,A7 00025492 7e 01 |~ | MOVEQ.L #0x01,D7 00025494 41 f9 00 02 e9 f5 |A | LEA.L 0x2e9f5,A0 0002549a 43 fa ce bb |C | LEA.L 0x22357,A1 0002549e 70 22 |p" | MOVEQ.L #0x22,D0 000254a0 10 d9 | | MOVE.B (A1)+,(A0)+ 000254a2 51 c8 ff fc |Q | DBF D0,0x254a0 000254a6 42 54 |BT | CLR.W (A4) 000254a8 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 000254ac 3d 42 ff e8 |=B | MOVE.W D2,(A6-0x18) 000254b0 42 6e ff ea |Bn | CLR.W (A6-0x16) 000254b4 42 6e ff ec |Bn | CLR.W (A6-0x14) 000254b8 30 12 |0 | MOVE.W (A2),D0 000254ba e1 40 | @ | ASL.W #0x8,D0 000254bc 06 40 00 13 | @ | ADDI.W #0x0013,D0 000254c0 3d 40 ff ee |=@ | MOVE.W D0,(A6-0x12) 000254c4 3d 7c 00 04 ff f0 |=| | MOVE.W #0x4,(A6-0x10) 000254ca 3d 7c 00 20 ff f2 |=| | MOVE.W #0x20,(A6-0xe) 000254d0 48 54 |HT | PEA.L (A4) 000254d2 41 f9 00 02 e9 f5 |A | LEA.L 0x2e9f5,A0 000254d8 2f 08 |/ | MOVE.L A0,-(A7) 000254da 42 67 |Bg | CLR.W -(A7) 000254dc 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000254e2 50 4f |PO | ADDQ.L #0x8,A7 000254e4 42 57 |BW | CLR.W (A7) 000254e6 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000254ea 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000254f0 5c 4f |\O | ADDQ.L #0x6,A7 000254f2 4a 2e ff f4 |J. | TST.B (A6-0xc) 000254f6 66 2a |f* | BNE 0x25522 000254f8 9e fc 00 1a | | SUBA.W #0x1a,A7 000254fc 20 4f | O | MOVEA.L A7,A0 000254fe 43 fa b8 ba |C | LEA.L 0x20dba,A1 00025502 70 18 |p | MOVEQ.L #0x18,D0 00025504 10 d9 | | MOVE.B (A1)+,(A0)+ 00025506 51 c8 ff fc |Q | DBF D0,0x25504 0002550a 59 4f |YO | SUBQ.L #0x4,A7 0002550c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025510 3f 01 |? | MOVE.W D1,-(A7) 00025512 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00025516 4e 93 |N | JSR (A3) 00025518 50 4f |PO | ADDQ.L #0x8,A7 0002551a 4e ba cf b0 |N | JSR 0x224cc 0002551e de fc 00 1e | | ADDA.W #0x1e,A7 00025522 42 39 00 02 da 08 |B9 | CLR.B 0x2da08 00025528 02 39 00 7f 00 02 da 09 | 9 | ANDI.B #0x7f,0x2da09 00025530 02 39 00 bf 00 02 da 09 | 9 | ANDI.B #0xbf,0x2da09 00025538 02 39 00 df 00 02 da 09 | 9 | ANDI.B #0xdf,0x2da09 00025540 02 39 00 ef 00 02 da 09 | 9 | ANDI.B #0xef,0x2da09 00025548 42 79 00 02 da 0a |By | CLR.W 0x2da0a 0002554e 42 54 |BT | CLR.W (A4) 00025550 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 00025554 3d 42 ff e8 |=B | MOVE.W D2,(A6-0x18) 00025558 42 6e ff ea |Bn | CLR.W (A6-0x16) 0002555c 42 6e ff ec |Bn | CLR.W (A6-0x14) 00025560 30 12 |0 | MOVE.W (A2),D0 00025562 e1 40 | @ | ASL.W #0x8,D0 00025564 06 40 00 0d | @ | ADDI.W #0x000d,D0 00025568 3d 40 ff ee |=@ | MOVE.W D0,(A6-0x12) 0002556c 4a 39 00 02 ea 18 |J9 | TST.B 0x2ea18 00025572 67 06 |g | BEQ 0x2557a 00025574 42 6e ff f0 |Bn | CLR.W (A6-0x10) 00025578 60 0c |` | BRA 0x25586 0002557a 4a 07 |J | TST.B D7 0002557c 67 02 |g | BEQ 0x25580 0002557e 60 f4 |` | BRA 0x25574 00025580 3d 7c 15 00 ff f0 |=| | MOVE.W #0x1500,(A6-0x10) 00025586 42 6e ff f2 |Bn | CLR.W (A6-0xe) 0002558a 42 39 00 02 da 06 |B9 | CLR.B 0x2da06 00025590 30 39 00 02 95 e0 |09 | MOVE.W 0x295e0,D0 00025596 53 40 |S@ | SUBQ.W #0x1,D0 00025598 b0 42 | B | CMP.W D2,D0 0002559a 62 52 |bR | BHI 0x255ee 0002559c d0 40 | @ | ADD.W D0,D0 0002559e 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000255a6 00 2c | , | .CONST 0x2c ; [0x0] -> 0x255d2 000255a8 00 06 | | .CONST 0x6 ; [0x1] -> 0x255ac 000255aa 00 3a | : | .CONST 0x3a ; [0x2] -> 0x255e0 000255ac switch@0x2559e[0x1]: 000255ac 41 fa b8 b6 |A | LEA.L 0x20e64,A0 000255b0 70 0b |p | MOVEQ.L #0x0b,D0 000255b2 2f 20 |/ | MOVE.L -(A0),-(A7) 000255b4 51 c8 ff fc |Q | DBF D0,0x255b2 000255b8 59 4f |YO | SUBQ.L #0x4,A7 000255ba 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000255be 3f 01 |? | MOVE.W D1,-(A7) 000255c0 3f 05 |? | MOVE.W D5,-(A7) 000255c2 4e 93 |N | JSR (A3) 000255c4 50 4f |PO | ADDQ.L #0x8,A7 000255c6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000255cc de fc 00 34 | 4 | ADDA.W #0x34,A7 000255d0 60 42 |`B | BRA 0x25614 000255d2 switch@0x2559e[0x0]: 000255d2 41 fa b8 c0 |A | LEA.L 0x20e94,A0 000255d6 70 0b |p | MOVEQ.L #0x0b,D0 000255d8 2f 20 |/ | MOVE.L -(A0),-(A7) 000255da 51 c8 ff fc |Q | DBF D0,0x255d8 000255de 60 d8 |` | BRA 0x255b8 000255e0 switch@0x2559e[0x2]: 000255e0 41 fa b8 e2 |A | LEA.L 0x20ec4,A0 000255e4 70 0b |p | MOVEQ.L #0x0b,D0 000255e6 2f 20 |/ | MOVE.L -(A0),-(A7) 000255e8 51 c8 ff fc |Q | DBF D0,0x255e6 000255ec 60 ca |` | BRA 0x255b8 000255ee 41 fa b9 02 |A | LEA.L 0x20ef2,A0 000255f2 70 16 |p | MOVEQ.L #0x16,D0 000255f4 3f 20 |? | MOVE.W -(A0),-(A7) 000255f6 51 c8 ff fc |Q | DBF D0,0x255f4 000255fa 59 4f |YO | SUBQ.L #0x4,A7 000255fc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025600 3f 01 |? | MOVE.W D1,-(A7) 00025602 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00025606 4e 93 |N | JSR (A3) 00025608 50 4f |PO | ADDQ.L #0x8,A7 0002560a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00025610 de fc 00 32 | 2 | ADDA.W #0x32,A7 00025614 60 00 01 e0 |` | BRA 0x257f6 00025618 42 54 |BT | CLR.W (A4) 0002561a 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 0002561e 3d 42 ff e8 |=B | MOVE.W D2,(A6-0x18) 00025622 42 6e ff ea |Bn | CLR.W (A6-0x16) 00025626 42 6e ff ec |Bn | CLR.W (A6-0x14) 0002562a 30 12 |0 | MOVE.W (A2),D0 0002562c e1 40 | @ | ASL.W #0x8,D0 0002562e 06 40 00 0d | @ | ADDI.W #0x000d,D0 00025632 3d 40 ff ee |=@ | MOVE.W D0,(A6-0x12) 00025636 23 ee ff f6 00 02 95 c4 |# | MOVE.L (A6-0xa),0x295c4 0002563e 3d 79 00 02 95 c6 ff f0 |=y | MOVE.W 0x295c6,(A6-0x10) 00025646 42 6e ff f2 |Bn | CLR.W (A6-0xe) 0002564a 55 4f |UO | SUBQ.L #0x2,A7 0002564c 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool 00025652 4a 1f |J | TST.B (A7)+ 00025654 67 00 00 dc |g | BEQ 0x25732 00025658 42 80 |B | CLR.L D0 0002565a 10 39 00 02 95 fa | 9 | MOVE.B 0x295fa,D0 00025660 c0 f9 00 02 95 f8 | | MULU.W 0x295f8,D0 00025666 28 00 |( | MOVE.L D0,D4 00025668 76 1e |v | MOVEQ.L #0x1e,D3 0002566a 4e b9 00 01 02 98 |N | JSR ?divu_d3_d4 00025670 76 3c |v< | MOVEQ.L #0x3c,D3 00025672 4e b9 00 01 02 98 |N | JSR ?divu_d3_d4 00025678 2c 04 |, | MOVE.L D4,D6 0002567a bc 81 | | CMP.L D1,D6 0002567c 6c 1e |l | BGE 0x2569c 0002567e 41 fa b8 ca |A | LEA.L 0x20f4a,A0 00025682 70 18 |p | MOVEQ.L #0x18,D0 00025684 3f 20 |? | MOVE.W -(A0),-(A7) 00025686 51 c8 ff fc |Q | DBF D0,0x25684 0002568a 59 4f |YO | SUBQ.L #0x4,A7 0002568c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025690 3f 01 |? | MOVE.W D1,-(A7) 00025692 3f 3c 00 32 |?< 2 | MOVE.W #0x32,-(A7) 00025696 4e 93 |N | JSR (A3) 00025698 50 4f |PO | ADDQ.L #0x8,A7 0002569a 60 52 |`R | BRA 0x256ee 0002569c 9e fc 00 26 | & | SUBA.W #0x26,A7 000256a0 20 4f | O | MOVEA.L A7,A0 000256a2 43 fa b8 4e |C N | LEA.L 0x20ef2,A1 000256a6 70 24 |p$ | MOVEQ.L #0x24,D0 000256a8 10 d9 | | MOVE.B (A1)+,(A0)+ 000256aa 51 c8 ff fc |Q | DBF D0,0x256a8 000256ae 9e fc 00 0c | | SUBA.W #0xc,A7 000256b2 20 4f | O | MOVEA.L A7,A0 000256b4 43 fa b8 fc |C | LEA.L 0x20fb2,A1 000256b8 70 0a |p | MOVEQ.L #0x0a,D0 000256ba 10 d9 | | MOVE.B (A1)+,(A0)+ 000256bc 51 c8 ff fc |Q | DBF D0,0x256ba 000256c0 51 4f |QO | SUBQ.L #0x8,A7 000256c2 48 6f 00 14 |Ho | PEA.L (A7+0x14) 000256c6 3f 01 |? | MOVE.W D1,-(A7) 000256c8 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7) 000256cc 4e 93 |N | JSR (A3) 000256ce 2e 86 |. | MOVE.L D6,(A7) 000256d0 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000256d6 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000256da 3f 01 |? | MOVE.W D1,-(A7) 000256dc 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 000256e0 4e 93 |N | JSR (A3) 000256e2 50 4f |PO | ADDQ.L #0x8,A7 000256e4 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000256ea de fc 00 0c | | ADDA.W #0xc,A7 000256ee 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000256f4 de fc 00 36 | 6 | ADDA.W #0x36,A7 000256f8 41 fa b8 b8 |A | LEA.L 0x20fb2,A0 000256fc 70 0d |p | MOVEQ.L #0x0d,D0 000256fe 2f 20 |/ | MOVE.L -(A0),-(A7) 00025700 51 c8 ff fc |Q | DBF D0,0x256fe 00025704 5d 4f |]O | SUBQ.L #0x6,A7 00025706 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002570a 3f 01 |? | MOVE.W D1,-(A7) 0002570c 3f 3c 00 38 |?< 8 | MOVE.W #0x38,-(A7) 00025710 4e 93 |N | JSR (A3) 00025712 5c 4f |\O | ADDQ.L #0x6,A7 00025714 42 17 |B | CLR.B (A7) 00025716 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 0002571c 5c 4f |\O | ADDQ.L #0x6,A7 0002571e 10 1f | | MOVE.B (A7)+,D0 00025720 48 80 |H | EXTB.W D0 00025722 41 81 |A | CHK.W D1,D0 00025724 de fc 00 38 | 8 | ADDA.W #0x38,A7 00025728 13 c0 00 02 da 06 | | MOVE.B D0,0x2da06 0002572e 60 00 00 c6 |` | BRA 0x257f6 00025732 42 39 00 02 da 06 |B9 | CLR.B 0x2da06 00025738 30 39 00 02 95 e2 |09 | MOVE.W 0x295e2,D0 0002573e 53 40 |S@ | SUBQ.W #0x1,D0 00025740 0c 40 00 04 | @ | CMPI.W #0x0004,D0 00025744 62 00 00 8a |b | BHI 0x257d0 00025748 d0 40 | @ | ADD.W D0,D0 0002574a 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00025752 00 0a | | .CONST 0xa ; [0x0] -> 0x2575c 00025754 00 36 | 6 | .CONST 0x36 ; [0x1] -> 0x25788 00025756 00 48 | H | .CONST 0x48 ; [0x2] -> 0x2579a 00025758 00 5a | Z | .CONST 0x5a ; [0x3] -> 0x257ac 0002575a 00 6c | l | .CONST 0x6c ; [0x4] -> 0x257be 0002575c switch@0x2574a[0x0]: 0002575c 9e c5 | | SUBA.W D5,A7 0002575e 20 4f | O | MOVEA.L A7,A0 00025760 43 fa b6 72 |C r | LEA.L 0x20dd4,A1 00025764 70 2e |p. | MOVEQ.L #0x2e,D0 00025766 10 d9 | | MOVE.B (A1)+,(A0)+ 00025768 51 c8 ff fc |Q | DBF D0,0x25766 0002576c 59 4f |YO | SUBQ.L #0x4,A7 0002576e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025772 3f 01 |? | MOVE.W D1,-(A7) 00025774 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 00025778 4e 93 |N | JSR (A3) 0002577a 50 4f |PO | ADDQ.L #0x8,A7 0002577c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00025782 de fc 00 34 | 4 | ADDA.W #0x34,A7 00025786 60 6e |`n | BRA 0x257f6 00025788 switch@0x2574a[0x1]: 00025788 9e c5 | | SUBA.W D5,A7 0002578a 20 4f | O | MOVEA.L A7,A0 0002578c 43 fa b6 46 |C F | LEA.L 0x20dd4,A1 00025790 70 2e |p. | MOVEQ.L #0x2e,D0 00025792 10 d9 | | MOVE.B (A1)+,(A0)+ 00025794 51 c8 ff fc |Q | DBF D0,0x25792 00025798 60 d2 |` | BRA 0x2576c 0002579a switch@0x2574a[0x2]: 0002579a 9e c5 | | SUBA.W D5,A7 0002579c 20 4f | O | MOVEA.L A7,A0 0002579e 43 fa b7 aa |C | LEA.L 0x20f4a,A1 000257a2 70 2e |p. | MOVEQ.L #0x2e,D0 000257a4 10 d9 | | MOVE.B (A1)+,(A0)+ 000257a6 51 c8 ff fc |Q | DBF D0,0x257a4 000257aa 60 c0 |` | BRA 0x2576c 000257ac switch@0x2574a[0x3]: 000257ac 9e c5 | | SUBA.W D5,A7 000257ae 20 4f | O | MOVEA.L A7,A0 000257b0 43 fa b6 22 |C " | LEA.L 0x20dd4,A1 000257b4 70 2e |p. | MOVEQ.L #0x2e,D0 000257b6 10 d9 | | MOVE.B (A1)+,(A0)+ 000257b8 51 c8 ff fc |Q | DBF D0,0x257b6 000257bc 60 ae |` | BRA 0x2576c 000257be switch@0x2574a[0x4]: 000257be 9e c5 | | SUBA.W D5,A7 000257c0 20 4f | O | MOVEA.L A7,A0 000257c2 43 fa b6 40 |C @ | LEA.L 0x20e04,A1 000257c6 70 2e |p. | MOVEQ.L #0x2e,D0 000257c8 10 d9 | | MOVE.B (A1)+,(A0)+ 000257ca 51 c8 ff fc |Q | DBF D0,0x257c8 000257ce 60 9c |` | BRA 0x2576c 000257d0 41 fa b7 20 |A | LEA.L 0x20ef2,A0 000257d4 70 16 |p | MOVEQ.L #0x16,D0 000257d6 3f 20 |? | MOVE.W -(A0),-(A7) 000257d8 51 c8 ff fc |Q | DBF D0,0x257d6 000257dc 59 4f |YO | SUBQ.L #0x4,A7 000257de 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000257e2 3f 01 |? | MOVE.W D1,-(A7) 000257e4 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 000257e8 4e 93 |N | JSR (A3) 000257ea 50 4f |PO | ADDQ.L #0x8,A7 000257ec 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000257f2 de fc 00 32 | 2 | ADDA.W #0x32,A7 000257f6 4a 39 00 02 da 06 |J9 | TST.B 0x2da06 000257fc 66 60 |f` | BNE 0x2585e 000257fe 48 54 |HT | PEA.L (A4) 00025800 48 78 00 00 |Hx | PEA.L 0x0 00025804 42 67 |Bg | CLR.W -(A7) 00025806 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 0002580c 50 4f |PO | ADDQ.L #0x8,A7 0002580e 42 57 |BW | CLR.W (A7) 00025810 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00025814 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 0002581a 5c 4f |\O | ADDQ.L #0x6,A7 0002581c 48 6e ff fa |Hn | PEA.L (A6-0x6) 00025820 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00025826 2e ae ff f6 |. | MOVE.L (A6-0xa),(A7) 0002582a 2f 2e ff fa |/. | MOVE.L (A6-0x6),-(A7) 0002582e 4e ba d2 c2 |N | JSR 0x22af2 00025832 50 4f |PO | ADDQ.L #0x8,A7 00025834 4a 2e ff f4 |J. | TST.B (A6-0xc) 00025838 66 24 |f$ | BNE 0x2585e 0002583a 41 fa b5 64 |A d | LEA.L 0x20da0,A0 0002583e 70 06 |p | MOVEQ.L #0x06,D0 00025840 3f 20 |? | MOVE.W -(A0),-(A7) 00025842 51 c8 ff fc |Q | DBF D0,0x25840 00025846 59 4f |YO | SUBQ.L #0x4,A7 00025848 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002584c 3f 01 |? | MOVE.W D1,-(A7) 0002584e 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00025852 4e 93 |N | JSR (A3) 00025854 50 4f |PO | ADDQ.L #0x8,A7 00025856 4e ba cc 74 |N t | JSR 0x224cc 0002585a de fc 00 12 | | ADDA.W #0x12,A7 0002585e 55 4f |UO | SUBQ.L #0x2,A7 00025860 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00025866 4a 1f |J | TST.B (A7)+ 00025868 67 3c |g< | BEQ 0x258a6 0002586a 30 12 |0 | MOVE.W (A2),D0 0002586c e1 40 | @ | ASL.W #0x8,D0 0002586e 06 40 00 09 | @ | ADDI.W #0x0009,D0 00025872 3d 40 ff ee |=@ | MOVE.W D0,(A6-0x12) 00025876 48 54 |HT | PEA.L (A4) 00025878 48 78 00 00 |Hx | PEA.L 0x0 0002587c 42 67 |Bg | CLR.W -(A7) 0002587e 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00025884 50 4f |PO | ADDQ.L #0x8,A7 00025886 42 57 |BW | CLR.W (A7) 00025888 48 6e ff f4 |Hn | PEA.L (A6-0xc) 0002588c 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00025892 5c 4f |\O | ADDQ.L #0x6,A7 00025894 30 39 00 02 95 e0 |09 | MOVE.W 0x295e0,D0 0002589a 0c 40 00 03 | @ | CMPI.W #0x0003,D0 0002589e 67 04 |g | BEQ 0x258a4 000258a0 4e ba f6 10 |N | JSR 0x24eb2 000258a4 60 04 |` | BRA 0x258aa 000258a6 4e ba f6 0a |N | JSR 0x24eb2 000258aa 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000258ae 4e 5e |N^ | UNLK A6 000258b0 4e 75 |Nu | RTS 000258b2 ; -------------------------------------------------------------------------------------- 000258b2 ; OMSI PASCAL Function 000258b2 ; <LVAR 0x028 4(r)> 000258b2 ; <LVAR 0x024 4(r)> 000258b2 ; <LVAR 0x020 4(r)> 000258b2 ; <LVAR 0x01e 1(r)> 000258b2 ; -------------------------------------------------------------------------------------- 000258b2 4e 56 ff 80 |NV | LINK.W A6,#0xff80 000258b6 bf d5 | | CMPA.L (A5),A7 000258b8 62 06 |b | BHI 0x258c0 000258ba 44 fc 00 02 |D | MOVE.W #0x2,CCR 000258be 4e 76 |Nv | TRAPV 000258c0 de fc 00 78 | x | ADDA.W #0x78,A7 000258c4 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000258c8 45 ee 00 28 |E ( | LEA.L (A6+0x28),A2 000258cc 47 ee 00 24 |G $ | LEA.L (A6+0x24),A3 000258d0 49 ee 00 20 |I | LEA.L (A6+0x20),A4 000258d4 22 3c 00 00 07 ff |"< | MOVE.L #0x7ff,D1 000258da 74 01 |t | MOVEQ.L #0x01,D2 000258dc 76 22 |v" | MOVEQ.L #0x22,D3 000258de 28 3c 00 00 00 ff |(< | MOVE.L #0xff,D4 000258e4 7a 21 |z! | MOVEQ.L #0x21,D5 000258e6 7e 00 |~ | MOVEQ.L #0x00,D7 000258e8 7c 00 || | MOVEQ.L #0x00,D6 000258ea 20 12 | | MOVE.L (A2),D0 000258ec 80 93 | | OR.L (A3),D0 000258ee 80 94 | | OR.L (A4),D0 000258f0 67 4c |gL | BEQ 0x2593e 000258f2 be 81 | | CMP.L D1,D7 000258f4 63 02 |c | BLS 0x258f8 000258f6 4e 4f |NO | TRAP #15 000258f8 20 07 | | MOVE.L D7,D0 000258fa e5 80 | | ASL.L #0x2,D0 000258fc 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 00025902 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00025906 42 80 |B | CLR.L D0 00025908 30 28 04 4c |0( L | MOVE.W (A0+0x44c),D0 0002590c e5 48 | H | LSL.W #0x2,D0 0002590e e4 48 | H | LSR.W #0x2,D0 00025910 b0 92 | | CMP.L (A2),D0 00025912 66 20 |f | BNE 0x25934 00025914 42 80 |B | CLR.L D0 00025916 10 28 04 4e | ( N | MOVE.B (A0+0x44e),D0 0002591a b0 93 | | CMP.L (A3),D0 0002591c 66 16 |f | BNE 0x25934 0002591e 42 80 |B | CLR.L D0 00025920 10 28 04 4f | ( O | MOVE.B (A0+0x44f),D0 00025924 b0 94 | | CMP.L (A4),D0 00025926 67 0a |g | BEQ 0x25932 00025928 42 80 |B | CLR.L D0 0002592a 10 28 04 4f | ( O | MOVE.B (A0+0x44f),D0 0002592e b0 44 | D | CMP.W D4,D0 00025930 66 02 |f | BNE 0x25934 00025932 7c 01 || | MOVEQ.L #0x01,D6 00025934 52 87 |R | ADDQ.L #0x1,D7 00025936 4a 06 |J | TST.B D6 00025938 66 04 |f | BNE 0x2593e 0002593a be 81 | | CMP.L D1,D7 0002593c 6f b4 |o | BLE 0x258f2 0002593e 4a 06 |J | TST.B D6 00025940 67 3c |g< | BEQ 0x2597e 00025942 4a 2e 00 1e |J. | TST.B (A6+0x1e) 00025946 67 32 |g2 | BEQ 0x2597a 00025948 9e c3 | | SUBA.W D3,A7 0002594a 20 4f | O | MOVEA.L A7,A0 0002594c 43 fa b6 70 |C p | LEA.L 0x20fbe,A1 00025950 70 20 |p | MOVEQ.L #0x20,D0 00025952 10 d9 | | MOVE.B (A1)+,(A0)+ 00025954 51 c8 ff fc |Q | DBF D0,0x25952 00025958 59 4f |YO | SUBQ.L #0x4,A7 0002595a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002595e 3f 02 |? | MOVE.W D2,-(A7) 00025960 3f 05 |? | MOVE.W D5,-(A7) 00025962 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025968 58 4f |XO | ADDQ.L #0x4,A7 0002596a 2e 92 |. | MOVE.L (A2),(A7) 0002596c 2f 13 |/ | MOVE.L (A3),-(A7) 0002596e 2f 14 |/ | MOVE.L (A4),-(A7) 00025970 4e ba f0 f4 |N | JSR 0x24a66 00025974 de fc 00 10 | | ADDA.W #0x10,A7 00025978 de c3 | | ADDA.W D3,A7 0002597a 60 00 01 42 |` B | BRA 0x25abe 0002597e 41 ee 00 1e |A | LEA.L (A6+0x1e),A0 00025982 70 0a |p | MOVEQ.L #0x0a,D0 00025984 3f 20 |? | MOVE.W -(A0),-(A7) 00025986 51 c8 ff fc |Q | DBF D0,0x25984 0002598a 4e ba e8 92 |N | JSR 0x2421e 0002598e 9e fc 00 0e | | SUBA.W #0xe,A7 00025992 20 4f | O | MOVEA.L A7,A0 00025994 43 fa b6 4a |C J | LEA.L 0x20fe0,A1 00025998 70 22 |p" | MOVEQ.L #0x22,D0 0002599a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002599c 51 c8 ff fc |Q | DBF D0,0x2599a 000259a0 59 4f |YO | SUBQ.L #0x4,A7 000259a2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000259a6 3f 02 |? | MOVE.W D2,-(A7) 000259a8 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 000259ac 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000259b2 58 4f |XO | ADDQ.L #0x4,A7 000259b4 2e 92 |. | MOVE.L (A2),(A7) 000259b6 2f 13 |/ | MOVE.L (A3),-(A7) 000259b8 2f 14 |/ | MOVE.L (A4),-(A7) 000259ba 4e ba f0 aa |N | JSR 0x24a66 000259be de fc 00 34 | 4 | ADDA.W #0x34,A7 000259c2 7e 00 |~ | MOVEQ.L #0x00,D7 000259c4 be 81 | | CMP.L D1,D7 000259c6 63 02 |c | BLS 0x259ca 000259c8 4e 4f |NO | TRAP #15 000259ca 20 07 | | MOVE.L D7,D0 000259cc e5 80 | | ASL.L #0x2,D0 000259ce 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 000259d4 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 000259d8 30 28 04 4c |0( L | MOVE.W (A0+0x44c),D0 000259dc e5 48 | H | LSL.W #0x2,D0 000259de e4 48 | H | LSR.W #0x2,D0 000259e0 66 10 |f | BNE 0x259f2 000259e2 4a 28 04 4e |J( N | TST.B (A0+0x44e) 000259e6 66 0a |f | BNE 0x259f2 000259e8 4a 28 04 4f |J( O | TST.B (A0+0x44f) 000259ec 66 04 |f | BNE 0x259f2 000259ee 7c 01 || | MOVEQ.L #0x01,D6 000259f0 60 02 |` | BRA 0x259f4 000259f2 52 87 |R | ADDQ.L #0x1,D7 000259f4 4a 06 |J | TST.B D6 000259f6 66 04 |f | BNE 0x259fc 000259f8 be 81 | | CMP.L D1,D7 000259fa 6f c8 |o | BLE 0x259c4 000259fc 4a 92 |J | TST.L (A2) 000259fe 66 32 |f2 | BNE 0x25a32 00025a00 4a 93 |J | TST.L (A3) 00025a02 66 2e |f. | BNE 0x25a32 00025a04 9e fc 00 34 | 4 | SUBA.W #0x34,A7 00025a08 20 4f | O | MOVEA.L A7,A0 00025a0a 43 fa b6 1a |C | LEA.L 0x21026,A1 00025a0e 70 32 |p2 | MOVEQ.L #0x32,D0 00025a10 10 d9 | | MOVE.B (A1)+,(A0)+ 00025a12 51 c8 ff fc |Q | DBF D0,0x25a10 00025a16 59 4f |YO | SUBQ.L #0x4,A7 00025a18 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025a1c 3f 02 |? | MOVE.W D2,-(A7) 00025a1e 3f 3c 00 33 |?< 3 | MOVE.W #0x33,-(A7) 00025a22 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025a28 50 4f |PO | ADDQ.L #0x8,A7 00025a2a 4e ba ca a0 |N | JSR 0x224cc 00025a2e de fc 00 38 | 8 | ADDA.W #0x38,A7 00025a32 4a 06 |J | TST.B D6 00025a34 66 2c |f, | BNE 0x25a62 00025a36 9e c3 | | SUBA.W D3,A7 00025a38 20 4f | O | MOVEA.L A7,A0 00025a3a 43 fa b5 c8 |C | LEA.L 0x21004,A1 00025a3e 70 20 |p | MOVEQ.L #0x20,D0 00025a40 10 d9 | | MOVE.B (A1)+,(A0)+ 00025a42 51 c8 ff fc |Q | DBF D0,0x25a40 00025a46 59 4f |YO | SUBQ.L #0x4,A7 00025a48 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025a4c 3f 02 |? | MOVE.W D2,-(A7) 00025a4e 3f 05 |? | MOVE.W D5,-(A7) 00025a50 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025a56 50 4f |PO | ADDQ.L #0x8,A7 00025a58 4e ba ca 72 |N r | JSR 0x224cc 00025a5c 58 4f |XO | ADDQ.L #0x4,A7 00025a5e 60 00 ff 18 |` | BRA 0x25978 00025a62 be 81 | | CMP.L D1,D7 00025a64 63 02 |c | BLS 0x25a68 00025a66 4e 4f |NO | TRAP #15 00025a68 20 07 | | MOVE.L D7,D0 00025a6a e5 80 | | ASL.L #0x2,D0 00025a6c 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 00025a72 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00025a76 20 12 | | MOVE.L (A2),D0 00025a78 0c 80 00 00 3f ff | ? | CMPI.L #0x00003fff,D0 00025a7e 63 02 |c | BLS 0x25a82 00025a80 4e 4f |NO | TRAP #15 00025a82 02 68 c0 00 04 4c | h L | ANDI.W #0xc000,(A0+0x44c) 00025a88 81 68 04 4c | h L | OR.W D0,(A0+0x44c) 00025a8c 20 13 | | MOVE.L (A3),D0 00025a8e b0 84 | | CMP.L D4,D0 00025a90 63 02 |c | BLS 0x25a94 00025a92 4e 4f |NO | TRAP #15 00025a94 11 40 04 4e | @ N | MOVE.B D0,(A0+0x44e) 00025a98 20 14 | | MOVE.L (A4),D0 00025a9a b0 84 | | CMP.L D4,D0 00025a9c 63 02 |c | BLS 0x25aa0 00025a9e 4e 4f |NO | TRAP #15 00025aa0 11 40 04 4f | @ O | MOVE.B D0,(A0+0x44f) 00025aa4 00 28 00 40 04 4c | ( @ L | ORI.B #0x40,(A0+0x44c) 00025aaa 00 28 00 80 04 4c | ( L | ORI.B #0x80,(A0+0x44c) 00025ab0 2f 12 |/ | MOVE.L (A2),-(A7) 00025ab2 2f 13 |/ | MOVE.L (A3),-(A7) 00025ab4 2f 14 |/ | MOVE.L (A4),-(A7) 00025ab6 4e ba f3 02 |N | JSR 0x24dba 00025aba de fc 00 0c | | ADDA.W #0xc,A7 00025abe 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00025ac2 4e 5e |N^ | UNLK A6 00025ac4 4e 75 |Nu | RTS 00025ac6 ; -------------------------------------------------------------------------------------- 00025ac6 ; OMSI PASCAL Function 00025ac6 ; <LVAR 0x018 4(r)> 00025ac6 ; <LVAR 0x014 4(r)> 00025ac6 ; <LVAR 0x010 4(r)> 00025ac6 ; <LVAR 0x00c 4(r)> 00025ac6 ; <LVAR 0x008 4(r)> 00025ac6 ; -------------------------------------------------------------------------------------- 00025ac6 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00025aca bf d5 | | CMPA.L (A5),A7 00025acc 62 06 |b | BHI 0x25ad4 00025ace 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025ad2 4e 76 |Nv | TRAPV 00025ad4 de fc 00 50 | P | ADDA.W #0x50,A7 00025ad8 48 e7 f9 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7) 00025adc 45 f9 00 02 95 fb |E | LEA.L 0x295fb,A2 00025ae2 47 f9 00 02 95 fa |G | LEA.L 0x295fa,A3 00025ae8 49 ee 00 18 |I | LEA.L (A6+0x18),A4 00025aec 74 01 |t | MOVEQ.L #0x01,D2 00025aee 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00025af2 2f 08 |/ | MOVE.L A0,-(A7) 00025af4 42 10 |B | CLR.B (A0) 00025af6 22 6e 00 10 |"n | MOVEA.L (A6+0x10),A1 00025afa 2f 09 |/ | MOVE.L A1,-(A7) 00025afc 42 80 |B | CLR.L D0 00025afe 10 12 | | MOVE.B (A2),D0 00025b00 b0 91 | | CMP.L (A1),D0 00025b02 62 2a |b* | BHI 0x25b2e 00025b04 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0 00025b08 28 11 |( | MOVE.L (A1),D4 00025b0a 26 00 |& | MOVE.L D0,D3 00025b0c 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00025b12 d9 90 | | ADD.L D4,(A0) 00025b14 22 83 |" | MOVE.L D3,(A1) 00025b16 42 80 |B | CLR.L D0 00025b18 10 13 | | MOVE.B (A3),D0 00025b1a b0 90 | | CMP.L (A0),D0 00025b1c 62 10 |b | BHI 0x25b2e 00025b1e 22 54 |"T | MOVEA.L (A4),A1 00025b20 28 10 |( | MOVE.L (A0),D4 00025b22 26 00 |& | MOVE.L D0,D3 00025b24 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00025b2a d9 91 | | ADD.L D4,(A1) 00025b2c 20 83 | | MOVE.L D3,(A0) 00025b2e 55 4f |UO | SUBQ.L #0x2,A7 00025b30 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool 00025b36 4a 1f |J | TST.B (A7)+ 00025b38 67 24 |g$ | BEQ 0x25b5e 00025b3a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00025b3e 20 82 | | MOVE.L D2,(A0) 00025b40 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00025b44 42 10 |B | CLR.B (A0) 00025b46 22 54 |"T | MOVEA.L (A4),A1 00025b48 42 80 |B | CLR.L D0 00025b4a 30 39 00 02 95 f8 |09 | MOVE.W 0x295f8,D0 00025b50 b0 91 | | CMP.L (A1),D0 00025b52 66 02 |f | BNE 0x25b56 00025b54 52 10 |R | ADDQ.B #0x1,(A0) 00025b56 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00025b5a 12 90 | | MOVE.B (A0),(A1) 00025b5c 60 6c |`l | BRA 0x25bca 00025b5e 20 54 | T | MOVEA.L (A4),A0 00025b60 20 10 | | MOVE.L (A0),D0 00025b62 52 80 |R | ADDQ.L #0x1,D0 00025b64 42 81 |B | CLR.L D1 00025b66 32 39 00 02 95 f8 |29 | MOVE.W 0x295f8,D1 00025b6c b0 81 | | CMP.L D1,D0 00025b6e 64 0c |d | BCC 0x25b7c 00025b70 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00025b74 20 bc 00 00 00 80 | | MOVE.L #0x80,(A0) 00025b7a 60 4e |`N | BRA 0x25bca 00025b7c b2 90 | | CMP.L (A0),D1 00025b7e 66 08 |f | BNE 0x25b88 00025b80 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00025b84 10 82 | | MOVE.B D2,(A0) 00025b86 60 42 |`B | BRA 0x25bca 00025b88 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0 00025b8c 42 80 |B | CLR.L D0 00025b8e 10 13 | | MOVE.B (A3),D0 00025b90 90 90 | | SUB.L (A0),D0 00025b92 53 80 |S | SUBQ.L #0x1,D0 00025b94 28 00 |( | MOVE.L D0,D4 00025b96 42 83 |B | CLR.L D3 00025b98 16 12 | | MOVE.B (A2),D3 00025b9a 2f 03 |/ | MOVE.L D3,-(A7) 00025b9c 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 00025ba2 20 17 | | MOVE.L (A7),D0 00025ba4 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00025ba8 90 90 | | SUB.L (A0),D0 00025baa d0 84 | | ADD.L D4,D0 00025bac 58 4f |XO | ADDQ.L #0x4,A7 00025bae 28 00 |( | MOVE.L D0,D4 00025bb0 76 02 |v | MOVEQ.L #0x02,D3 00025bb2 4e b9 00 01 02 98 |N | JSR ?divu_d3_d4 00025bb8 2e 04 |. | MOVE.L D4,D7 00025bba 0c 87 00 00 00 80 | | CMPI.L #0x00000080,D7 00025bc0 6d 02 |m | BLT 0x25bc4 00025bc2 60 ac |` | BRA 0x25b70 00025bc4 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00025bc8 20 87 | | MOVE.L D7,(A0) 00025bca 50 4f |PO | ADDQ.L #0x8,A7 00025bcc 4c df 1f 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4 00025bd0 4e 5e |N^ | UNLK A6 00025bd2 4e 75 |Nu | RTS 00025bd4 ; -------------------------------------------------------------------------------------- 00025bd4 ; OMSI PASCAL Function 00025bd4 ; <LVAR 0x00c @> 00025bd4 ; <LVAR 0x00a 1(r)> 00025bd4 ; <LVAR 0x008 1(r)> 00025bd4 ; <LVAR -0x00a @ 4(rw)> 00025bd4 ; <LVAR -0x00e @ 4(rw)> 00025bd4 ; <LVAR -0x010 @ 1(r)> 00025bd4 ; <LVAR -0x016 2(r)> 00025bd4 ; <LVAR -0x018 2(r)> 00025bd4 ; <LVAR -0x026 @> 00025bd4 ; <LVAR -0x028 @ 1(r)> 00025bd4 ; <LVAR -0x02a 2(w)> 00025bd4 ; <LVAR -0x02c 2(w)> 00025bd4 ; <LVAR -0x02e 2(w)> 00025bd4 ; <LVAR -0x030 2(r)> 00025bd4 ; <LVAR -0x032 2(r)> 00025bd4 ; <LVAR -0x034 2(w)> 00025bd4 ; <LVAR -0x036 2(r)> 00025bd4 ; <LVAR -0x038 @ 2(w)> 00025bd4 ; <LVAR -0x03e @ 4(rw)> 00025bd4 ; <LVAR -0x042 @ 4(rw)> 00025bd4 ; <LVAR -0x046 @ 4(rw)> 00025bd4 ; -------------------------------------------------------------------------------------- 00025bd4 4e 56 ff 28 |NV ( | LINK.W A6,#0xff28 00025bd8 bf d5 | | CMPA.L (A5),A7 00025bda 62 06 |b | BHI 0x25be2 00025bdc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00025be0 4e 76 |Nv | TRAPV 00025be2 de fc 00 8e | | ADDA.W #0x8e,A7 00025be6 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00025bea 45 ee ff f6 |E | LEA.L (A6-0xa),A2 00025bee 47 ee ff ba |G | LEA.L (A6-0x46),A3 00025bf2 49 ee ff c2 |I | LEA.L (A6-0x3e),A4 00025bf6 7e ff |~ | MOVEQ.L #-0x01,D7 00025bf8 42 93 |B | CLR.L (A3) 00025bfa 42 ae ff be |B | CLR.L (A6-0x42) 00025bfe 42 94 |B | CLR.L (A4) 00025c00 55 4f |UO | SUBQ.L #0x2,A7 00025c02 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool 00025c08 4a 1f |J | TST.B (A7)+ 00025c0a 67 0a |g | BEQ 0x25c16 00025c0c 2d 7c 00 00 00 01 ff f2 |-| | MOVE.L #0x1,(A6-0xe) 00025c14 60 08 |` | BRA 0x25c1e 00025c16 2d 7c 00 00 00 80 ff f2 |-| | MOVE.L #0x80,(A6-0xe) 00025c1e 42 6e ff ca |Bn | CLR.W (A6-0x36) 00025c22 3d 7c 00 02 ff cc |=| | MOVE.W #0x2,(A6-0x34) 00025c28 42 6e ff ce |Bn | CLR.W (A6-0x32) 00025c2c 42 6e ff d0 |Bn | CLR.W (A6-0x30) 00025c30 30 39 00 02 95 f6 |09 | MOVE.W 0x295f6,D0 00025c36 e1 40 | @ | ASL.W #0x8,D0 00025c38 12 2e 00 0a | . | MOVE.B (A6+0xa),D1 00025c3c 48 81 |H | EXTB.W D1 00025c3e d2 40 | @ | ADD.W D0,D1 00025c40 3d 41 ff d2 |=A | MOVE.W D1,(A6-0x2e) 00025c44 20 2e ff f2 | . | MOVE.L (A6-0xe),D0 00025c48 e1 80 | | ASL.L #0x8,D0 00025c4a 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00025c50 63 02 |c | BLS 0x25c54 00025c52 4e 4f |NO | TRAP #15 00025c54 3d 40 ff c8 |=@ | MOVE.W D0,(A6-0x38) 00025c58 20 13 | | MOVE.L (A3),D0 00025c5a 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00025c60 63 02 |c | BLS 0x25c64 00025c62 4e 4f |NO | TRAP #15 00025c64 3d 40 ff d4 |=@ | MOVE.W D0,(A6-0x2c) 00025c68 20 2e ff be | . | MOVE.L (A6-0x42),D0 00025c6c e1 80 | | ASL.L #0x8,D0 00025c6e d0 94 | | ADD.L (A4),D0 00025c70 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00025c76 63 02 |c | BLS 0x25c7a 00025c78 4e 4f |NO | TRAP #15 00025c7a 3d 40 ff d6 |=@ | MOVE.W D0,(A6-0x2a) 00025c7e 28 2e ff be |(. | MOVE.L (A6-0x42),D4 00025c82 42 83 |B | CLR.L D3 00025c84 16 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D3 00025c8a 2f 03 |/ | MOVE.L D3,-(A7) 00025c8c 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 00025c92 2f 04 |/ | MOVE.L D4,-(A7) 00025c94 42 84 |B | CLR.L D4 00025c96 18 39 00 02 95 fa | 9 | MOVE.B 0x295fa,D4 00025c9c 20 2f 00 04 | / | MOVE.L (A7+0x4),D0 00025ca0 26 00 |& | MOVE.L D0,D3 00025ca2 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 00025ca8 42 80 |B | CLR.L D0 00025caa 30 39 00 02 95 f8 |09 | MOVE.W 0x295f8,D0 00025cb0 b0 93 | | CMP.L (A3),D0 00025cb2 63 1e |c | BLS 0x25cd2 00025cb4 53 80 |S | SUBQ.L #0x1,D0 00025cb6 b0 93 | | CMP.L (A3),D0 00025cb8 66 00 01 52 |f R | BNE 0x25e0c 00025cbc 20 17 | | MOVE.L (A7),D0 00025cbe d0 94 | | ADD.L (A4),D0 00025cc0 22 2e ff f2 |". | MOVE.L (A6-0xe),D1 00025cc4 e3 81 | | ASL.L #0x1,D1 00025cc6 d2 80 | | ADD.L D0,D1 00025cc8 42 80 |B | CLR.L D0 00025cca 30 04 |0 | MOVE.W D4,D0 00025ccc b2 80 | | CMP.L D0,D1 00025cce 63 00 01 3c |c < | BLS 0x25e0c 00025cd2 48 52 |HR | PEA.L (A2) 00025cd4 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00025cda 5d 4f |]O | SUBQ.L #0x6,A7 00025cdc 20 4f | O | MOVEA.L A7,A0 00025cde 43 fa b4 18 |C | LEA.L 0x210f8,A1 00025ce2 70 08 |p | MOVEQ.L #0x08,D0 00025ce4 10 d9 | | MOVE.B (A1)+,(A0)+ 00025ce6 51 c8 ff fc |Q | DBF D0,0x25ce4 00025cea 59 4f |YO | SUBQ.L #0x4,A7 00025cec 2f 12 |/ | MOVE.L (A2),-(A7) 00025cee 59 4f |YO | SUBQ.L #0x4,A7 00025cf0 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00025cf4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025cf8 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00025cfc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025d02 2e 93 |. | MOVE.L (A3),(A7) 00025d04 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00025d0a 58 4f |XO | ADDQ.L #0x4,A7 00025d0c 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00025d12 de fc 00 0c | | ADDA.W #0xc,A7 00025d16 24 9f |$ | MOVE.L (A7)+,(A2) 00025d18 20 4f | O | MOVEA.L A7,A0 00025d1a 43 fa b3 e6 |C | LEA.L 0x21102,A1 00025d1e 70 08 |p | MOVEQ.L #0x08,D0 00025d20 10 d9 | | MOVE.B (A1)+,(A0)+ 00025d22 51 c8 ff fc |Q | DBF D0,0x25d20 00025d26 59 4f |YO | SUBQ.L #0x4,A7 00025d28 2f 12 |/ | MOVE.L (A2),-(A7) 00025d2a 59 4f |YO | SUBQ.L #0x4,A7 00025d2c 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00025d30 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025d34 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00025d38 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025d3e 2e ae ff be |. | MOVE.L (A6-0x42),(A7) 00025d42 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00025d48 58 4f |XO | ADDQ.L #0x4,A7 00025d4a 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00025d50 de fc 00 0c | | ADDA.W #0xc,A7 00025d54 24 9f |$ | MOVE.L (A7)+,(A2) 00025d56 de fc 00 0a | | ADDA.W #0xa,A7 00025d5a 41 fa b3 ba |A | LEA.L 0x21116,A0 00025d5e 70 04 |p | MOVEQ.L #0x04,D0 00025d60 3f 20 |? | MOVE.W -(A0),-(A7) 00025d62 51 c8 ff fc |Q | DBF D0,0x25d60 00025d66 59 4f |YO | SUBQ.L #0x4,A7 00025d68 2f 12 |/ | MOVE.L (A2),-(A7) 00025d6a 59 4f |YO | SUBQ.L #0x4,A7 00025d6c 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00025d70 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025d74 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00025d78 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025d7e 2e 94 |. | MOVE.L (A4),(A7) 00025d80 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00025d86 58 4f |XO | ADDQ.L #0x4,A7 00025d88 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00025d8e de fc 00 0c | | ADDA.W #0xc,A7 00025d92 24 9f |$ | MOVE.L (A7)+,(A2) 00025d94 20 4f | O | MOVEA.L A7,A0 00025d96 43 fa b3 7e |C ~ | LEA.L 0x21116,A1 00025d9a 70 08 |p | MOVEQ.L #0x08,D0 00025d9c 10 d9 | | MOVE.B (A1)+,(A0)+ 00025d9e 51 c8 ff fc |Q | DBF D0,0x25d9c 00025da2 59 4f |YO | SUBQ.L #0x4,A7 00025da4 2f 12 |/ | MOVE.L (A2),-(A7) 00025da6 59 4f |YO | SUBQ.L #0x4,A7 00025da8 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00025dac 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025db0 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00025db4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025dba 2e ae ff f2 |. | MOVE.L (A6-0xe),(A7) 00025dbe 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00025dc4 58 4f |XO | ADDQ.L #0x4,A7 00025dc6 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00025dcc de fc 00 0c | | ADDA.W #0xc,A7 00025dd0 24 9f |$ | MOVE.L (A7)+,(A2) 00025dd2 5c 4f |\O | ADDQ.L #0x6,A7 00025dd4 2e 92 |. | MOVE.L (A2),(A7) 00025dd6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00025ddc 9e fc 00 36 | 6 | SUBA.W #0x36,A7 00025de0 20 4f | O | MOVEA.L A7,A0 00025de2 43 fa b2 76 |C v | LEA.L 0x2105a,A1 00025de6 70 38 |p8 | MOVEQ.L #0x38,D0 00025de8 10 d9 | | MOVE.B (A1)+,(A0)+ 00025dea 51 c8 ff fc |Q | DBF D0,0x25de8 00025dee 59 4f |YO | SUBQ.L #0x4,A7 00025df0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00025df4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025df8 3f 3c 00 39 |?< 9 | MOVE.W #0x39,-(A7) 00025dfc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025e02 50 4f |PO | ADDQ.L #0x8,A7 00025e04 4e ba c6 c6 |N | JSR 0x224cc 00025e08 de fc 00 3e | > | ADDA.W #0x3e,A7 00025e0c 50 4f |PO | ADDQ.L #0x8,A7 00025e0e be 93 | | CMP.L (A3),D7 00025e10 67 72 |gr | BEQ 0x25e84 00025e12 2e 13 |. | MOVE.L (A3),D7 00025e14 9e fc 00 0a | | SUBA.W #0xa,A7 00025e18 20 4f | O | MOVEA.L A7,A0 00025e1a 43 fa b3 04 |C | LEA.L 0x21120,A1 00025e1e 70 08 |p | MOVEQ.L #0x08,D0 00025e20 10 d9 | | MOVE.B (A1)+,(A0)+ 00025e22 51 c8 ff fc |Q | DBF D0,0x25e20 00025e26 51 4f |QO | SUBQ.L #0x8,A7 00025e28 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00025e2c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00025e30 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00025e34 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00025e3a 2e 93 |. | MOVE.L (A3),(A7) 00025e3c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00025e42 58 4f |XO | ADDQ.L #0x4,A7 00025e44 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00025e4a 50 4f |PO | ADDQ.L #0x8,A7 00025e4c 24 9f |$ | MOVE.L (A7)+,(A2) 00025e4e 5c 4f |\O | ADDQ.L #0x6,A7 00025e50 2e 92 |. | MOVE.L (A2),(A7) 00025e52 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 00025e56 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00025e5c 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 00025e62 20 1f | | MOVE.L (A7)+,D0 00025e64 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00025e6a 63 02 |c | BLS 0x25e6e 00025e6c 4e 4f |NO | TRAP #15 00025e6e 3e 80 |> | MOVE.W D0,(A7) 00025e70 2f 12 |/ | MOVE.L (A2),-(A7) 00025e72 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 00025e78 5c 4f |\O | ADDQ.L #0x6,A7 00025e7a 48 52 |HR | PEA.L (A2) 00025e7c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00025e82 58 4f |XO | ADDQ.L #0x4,A7 00025e84 48 6e ff c8 |Hn | PEA.L (A6-0x38) 00025e88 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00025e8c 2f 08 |/ | MOVE.L A0,-(A7) 00025e8e 42 67 |Bg | CLR.W -(A7) 00025e90 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00025e96 de fc 00 0a | | ADDA.W #0xa,A7 00025e9a 20 2e ff f2 | . | MOVE.L (A6-0xe),D0 00025e9e e3 80 | | ASL.L #0x1,D0 00025ea0 d1 94 | | ADD.L D0,(A4) 00025ea2 48 53 |HS | PEA.L (A3) 00025ea4 48 6e ff be |Hn | PEA.L (A6-0x42) 00025ea8 48 54 |HT | PEA.L (A4) 00025eaa 48 6e ff f2 |Hn | PEA.L (A6-0xe) 00025eae 48 6e ff d8 |Hn | PEA.L (A6-0x28) 00025eb2 4e ba fc 12 |N | JSR 0x25ac6 00025eb6 de fc 00 14 | | ADDA.W #0x14,A7 00025eba 70 00 |p | MOVEQ.L #0x00,D0 00025ebc 67 16 |g | BEQ 0x25ed4 00025ebe 4a 2e ff d8 |J. | TST.B (A6-0x28) 00025ec2 67 10 |g | BEQ 0x25ed4 00025ec4 2f 3c 00 01 c9 c2 |/< | MOVE.L #0x1c9c2,-(A7) 00025eca 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00025ed0 58 4f |XO | ADDQ.L #0x4,A7 00025ed2 2a 13 |* | MOVE.L (A3),D5 00025ed4 42 67 |Bg | CLR.W -(A7) 00025ed6 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00025eda 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00025ee0 5c 4f |\O | ADDQ.L #0x6,A7 00025ee2 4a 2e ff f0 |J. | TST.B (A6-0x10) 00025ee6 66 00 02 4c |f L | BNE 0x26134 00025eea 48 6e ff da |Hn | PEA.L (A6-0x26) 00025eee 4e ba ec 68 |N h | JSR 0x24b58 00025ef2 58 4f |XO | ADDQ.L #0x4,A7 00025ef4 42 80 |B | CLR.L D0 00025ef6 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0 00025efa 26 80 |& | MOVE.L D0,(A3) 00025efc 32 2e ff ea |2. | MOVE.W (A6-0x16),D1 00025f00 02 41 00 ff | A | ANDI.W #0x00ff,D1 00025f04 42 82 |B | CLR.L D2 00025f06 34 01 |4 | MOVE.W D1,D2 00025f08 28 82 |( | MOVE.L D2,(A4) 00025f0a 3c 2e ff ea |<. | MOVE.W (A6-0x16),D6 00025f0e 32 06 |2 | MOVE.W D6,D1 00025f10 e0 49 | I | LSR.W #0x8,D1 00025f12 42 83 |B | CLR.L D3 00025f14 36 01 |6 | MOVE.W D1,D3 00025f16 2d 43 ff be |-C | MOVE.L D3,(A6-0x42) 00025f1a 4a 82 |J | TST.L D2 00025f1c 67 06 |g | BEQ 0x25f24 00025f1e 53 82 |S | SUBQ.L #0x1,D2 00025f20 28 82 |( | MOVE.L D2,(A4) 00025f22 60 2e |`. | BRA 0x25f52 00025f24 42 81 |B | CLR.L D1 00025f26 12 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D1 00025f2c 53 41 |SA | SUBQ.W #0x1,D1 00025f2e 48 c1 |H | EXTW.L D1 00025f30 28 81 |( | MOVE.L D1,(A4) 00025f32 4a 83 |J | TST.L D3 00025f34 67 08 |g | BEQ 0x25f3e 00025f36 53 83 |S | SUBQ.L #0x1,D3 00025f38 2d 43 ff be |-C | MOVE.L D3,(A6-0x42) 00025f3c 60 14 |` | BRA 0x25f52 00025f3e 42 81 |B | CLR.L D1 00025f40 12 39 00 02 95 fa | 9 | MOVE.B 0x295fa,D1 00025f46 53 41 |SA | SUBQ.W #0x1,D1 00025f48 48 c1 |H | EXTW.L D1 00025f4a 2d 41 ff be |-A | MOVE.L D1,(A6-0x42) 00025f4e 53 80 |S | SUBQ.L #0x1,D0 00025f50 26 80 |& | MOVE.L D0,(A3) 00025f52 2f 13 |/ | MOVE.L (A3),-(A7) 00025f54 2f 2e ff be |/. | MOVE.L (A6-0x42),-(A7) 00025f58 2f 14 |/ | MOVE.L (A4),-(A7) 00025f5a 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00025f5e 41 ee ff f0 |A | LEA.L (A6-0x10),A0 00025f62 70 0a |p | MOVEQ.L #0x0a,D0 00025f64 3f 20 |? | MOVE.W -(A0),-(A7) 00025f66 51 c8 ff fc |Q | DBF D0,0x25f64 00025f6a 4e ba f9 46 |N F | JSR 0x258b2 00025f6e de fc 00 24 | $ | ADDA.W #0x24,A7 00025f72 48 78 32 dc |Hx2 | PEA.L 0x32dc 00025f76 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00025f7c 58 4f |XO | ADDQ.L #0x4,A7 00025f7e 52 94 |R | ADDQ.L #0x1,(A4) 00025f80 20 14 | | MOVE.L (A4),D0 00025f82 02 80 00 00 00 01 | | ANDI.L #0x00000001,D0 00025f88 67 02 |g | BEQ 0x25f8c 00025f8a 52 94 |R | ADDQ.L #0x1,(A4) 00025f8c 48 53 |HS | PEA.L (A3) 00025f8e 48 6e ff be |Hn | PEA.L (A6-0x42) 00025f92 48 54 |HT | PEA.L (A4) 00025f94 48 6e ff f2 |Hn | PEA.L (A6-0xe) 00025f98 48 6e ff d8 |Hn | PEA.L (A6-0x28) 00025f9c 4e ba fb 28 |N ( | JSR 0x25ac6 00025fa0 de fc 00 14 | | ADDA.W #0x14,A7 00025fa4 28 2e ff be |(. | MOVE.L (A6-0x42),D4 00025fa8 42 83 |B | CLR.L D3 00025faa 16 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D3 00025fb0 2f 03 |/ | MOVE.L D3,-(A7) 00025fb2 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 00025fb8 2f 04 |/ | MOVE.L D4,-(A7) 00025fba 42 84 |B | CLR.L D4 00025fbc 18 39 00 02 95 fa | 9 | MOVE.B 0x295fa,D4 00025fc2 20 2f 00 04 | / | MOVE.L (A7+0x4),D0 00025fc6 26 00 |& | MOVE.L D0,D3 00025fc8 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 00025fce 42 80 |B | CLR.L D0 00025fd0 30 39 00 02 95 f8 |09 | MOVE.W 0x295f8,D0 00025fd6 b0 93 | | CMP.L (A3),D0 00025fd8 63 1e |c | BLS 0x25ff8 00025fda 53 80 |S | SUBQ.L #0x1,D0 00025fdc b0 93 | | CMP.L (A3),D0 00025fde 66 00 01 52 |f R | BNE 0x26132 00025fe2 20 17 | | MOVE.L (A7),D0 00025fe4 d0 94 | | ADD.L (A4),D0 00025fe6 22 2e ff f2 |". | MOVE.L (A6-0xe),D1 00025fea e3 81 | | ASL.L #0x1,D1 00025fec d2 80 | | ADD.L D0,D1 00025fee 42 80 |B | CLR.L D0 00025ff0 30 04 |0 | MOVE.W D4,D0 00025ff2 b2 80 | | CMP.L D0,D1 00025ff4 63 00 01 3c |c < | BLS 0x26132 00025ff8 48 52 |HR | PEA.L (A2) 00025ffa 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00026000 5d 4f |]O | SUBQ.L #0x6,A7 00026002 20 4f | O | MOVEA.L A7,A0 00026004 43 fa b1 24 |C $ | LEA.L 0x2112a,A1 00026008 70 08 |p | MOVEQ.L #0x08,D0 0002600a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002600c 51 c8 ff fc |Q | DBF D0,0x2600a 00026010 59 4f |YO | SUBQ.L #0x4,A7 00026012 2f 12 |/ | MOVE.L (A2),-(A7) 00026014 59 4f |YO | SUBQ.L #0x4,A7 00026016 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002601a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002601e 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00026022 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00026028 2e 93 |. | MOVE.L (A3),(A7) 0002602a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00026030 58 4f |XO | ADDQ.L #0x4,A7 00026032 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00026038 de fc 00 0c | | ADDA.W #0xc,A7 0002603c 24 9f |$ | MOVE.L (A7)+,(A2) 0002603e 20 4f | O | MOVEA.L A7,A0 00026040 43 fa b0 f2 |C | LEA.L 0x21134,A1 00026044 70 08 |p | MOVEQ.L #0x08,D0 00026046 10 d9 | | MOVE.B (A1)+,(A0)+ 00026048 51 c8 ff fc |Q | DBF D0,0x26046 0002604c 59 4f |YO | SUBQ.L #0x4,A7 0002604e 2f 12 |/ | MOVE.L (A2),-(A7) 00026050 59 4f |YO | SUBQ.L #0x4,A7 00026052 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00026056 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002605a 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002605e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00026064 2e ae ff be |. | MOVE.L (A6-0x42),(A7) 00026068 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002606e 58 4f |XO | ADDQ.L #0x4,A7 00026070 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00026076 de fc 00 0c | | ADDA.W #0xc,A7 0002607a 24 9f |$ | MOVE.L (A7)+,(A2) 0002607c de fc 00 0a | | ADDA.W #0xa,A7 00026080 41 fa b0 c6 |A | LEA.L 0x21148,A0 00026084 70 04 |p | MOVEQ.L #0x04,D0 00026086 3f 20 |? | MOVE.W -(A0),-(A7) 00026088 51 c8 ff fc |Q | DBF D0,0x26086 0002608c 59 4f |YO | SUBQ.L #0x4,A7 0002608e 2f 12 |/ | MOVE.L (A2),-(A7) 00026090 59 4f |YO | SUBQ.L #0x4,A7 00026092 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00026096 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002609a 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 0002609e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000260a4 2e 94 |. | MOVE.L (A4),(A7) 000260a6 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000260ac 58 4f |XO | ADDQ.L #0x4,A7 000260ae 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000260b4 de fc 00 0c | | ADDA.W #0xc,A7 000260b8 24 9f |$ | MOVE.L (A7)+,(A2) 000260ba 20 4f | O | MOVEA.L A7,A0 000260bc 43 fa b0 8a |C | LEA.L 0x21148,A1 000260c0 70 08 |p | MOVEQ.L #0x08,D0 000260c2 10 d9 | | MOVE.B (A1)+,(A0)+ 000260c4 51 c8 ff fc |Q | DBF D0,0x260c2 000260c8 59 4f |YO | SUBQ.L #0x4,A7 000260ca 2f 12 |/ | MOVE.L (A2),-(A7) 000260cc 59 4f |YO | SUBQ.L #0x4,A7 000260ce 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000260d2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000260d6 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 000260da 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000260e0 2e ae ff f2 |. | MOVE.L (A6-0xe),(A7) 000260e4 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000260ea 58 4f |XO | ADDQ.L #0x4,A7 000260ec 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000260f2 de fc 00 0c | | ADDA.W #0xc,A7 000260f6 24 9f |$ | MOVE.L (A7)+,(A2) 000260f8 5c 4f |\O | ADDQ.L #0x6,A7 000260fa 2e 92 |. | MOVE.L (A2),(A7) 000260fc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00026102 9e fc 00 38 | 8 | SUBA.W #0x38,A7 00026106 20 4f | O | MOVEA.L A7,A0 00026108 43 fa af 8a |C | LEA.L 0x21094,A1 0002610c 70 3a |p: | MOVEQ.L #0x3a,D0 0002610e 10 d9 | | MOVE.B (A1)+,(A0)+ 00026110 51 c8 ff fc |Q | DBF D0,0x2610e 00026114 59 4f |YO | SUBQ.L #0x4,A7 00026116 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002611a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002611e 3f 3c 00 3b |?< ; | MOVE.W #0x3b,-(A7) 00026122 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00026128 50 4f |PO | ADDQ.L #0x8,A7 0002612a 4e ba c3 a0 |N | JSR 0x224cc 0002612e de fc 00 40 | @ | ADDA.W #0x40,A7 00026132 50 4f |PO | ADDQ.L #0x8,A7 00026134 4a 2e ff d8 |J. | TST.B (A6-0x28) 00026138 67 00 fb 0a |g | BEQ 0x25c44 0002613c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00026140 4e 5e |N^ | UNLK A6 00026142 4e 75 |Nu | RTS 00026144 ; -------------------------------------------------------------------------------------- 00026144 ; OMSI PASCAL Function 00026144 ; <LVAR -0x002 2(w)> 00026144 ; <LVAR -0x004 2(w)> 00026144 ; <LVAR -0x006 2(w)> 00026144 ; <LVAR -0x00a @ 4(r)> 00026144 ; <LVAR -0x00e @ 4(r)> 00026144 ; <LVAR -0x010 1(rw)> 00026144 ; -------------------------------------------------------------------------------------- 00026144 4e 56 ff 08 |NV | LINK.W A6,#0xff08 00026148 bf d5 | | CMPA.L (A5),A7 0002614a 62 06 |b | BHI 0x26152 0002614c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026150 4e 76 |Nv | TRAPV 00026152 de fc 00 dc | | ADDA.W #0xdc,A7 00026156 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002615a 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00026160 47 f9 00 02 95 f1 |G | LEA.L 0x295f1,A3 00026166 49 f9 00 01 02 98 |I | LEA.L ?divu_d3_d4,A4 0002616c 72 01 |r | MOVEQ.L #0x01,D1 0002616e 74 0c |t | MOVEQ.L #0x0c,D2 00026170 3d 7a c2 08 ff fa |=z | MOVE.W 0x2237a,(A6-0x6) 00026176 3d 7a c2 04 ff fc |=z | MOVE.W 0x2237c,(A6-0x4) 0002617c 3d 7a c2 00 ff fe |=z | MOVE.W 0x2237e,(A6-0x2) 00026182 3d 79 00 02 95 c6 ff fa |=y | MOVE.W 0x295c6,(A6-0x6) 0002618a 41 fa b0 1c |A | LEA.L 0x211a8,A0 0002618e 70 10 |p | MOVEQ.L #0x10,D0 00026190 3f 20 |? | MOVE.W -(A0),-(A7) 00026192 51 c8 ff fc |Q | DBF D0,0x26190 00026196 4a 13 |J | TST.B (A3) 00026198 66 20 |f | BNE 0x261ba 0002619a 5d 4f |]O | SUBQ.L #0x6,A7 0002619c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000261a0 3f 01 |? | MOVE.W D1,-(A7) 000261a2 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 000261a6 4e 92 |N | JSR (A2) 000261a8 5c 4f |\O | ADDQ.L #0x6,A7 000261aa 42 17 |B | CLR.B (A7) 000261ac 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 000261b2 5c 4f |\O | ADDQ.L #0x6,A7 000261b4 4a 1f |J | TST.B (A7)+ 000261b6 67 00 04 0e |g | BEQ 0x265c6 000261ba 4a 39 00 02 da 06 |J9 | TST.B 0x2da06 000261c0 66 00 04 04 |f | BNE 0x265c6 000261c4 41 fa b0 08 |A | LEA.L 0x211ce,A0 000261c8 70 12 |p | MOVEQ.L #0x12,D0 000261ca 3f 20 |? | MOVE.W -(A0),-(A7) 000261cc 51 c8 ff fc |Q | DBF D0,0x261ca 000261d0 51 4f |QO | SUBQ.L #0x8,A7 000261d2 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000261d6 3f 01 |? | MOVE.W D1,-(A7) 000261d8 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 000261dc 4e 92 |N | JSR (A2) 000261de 50 4f |PO | ADDQ.L #0x8,A7 000261e0 48 78 00 00 |Hx | PEA.L 0x0 000261e4 48 78 00 03 |Hx | PEA.L 0x3 000261e8 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000261ee de c2 | | ADDA.W D2,A7 000261f0 2e 1f |. | MOVE.L (A7)+,D7 000261f2 9e fc 00 1c | | SUBA.W #0x1c,A7 000261f6 20 4f | O | MOVEA.L A7,A0 000261f8 43 fa b0 06 |C | LEA.L 0x21200,A1 000261fc 70 40 |p@ | MOVEQ.L #0x40,D0 000261fe 10 d9 | | MOVE.B (A1)+,(A0)+ 00026200 51 c8 ff fc |Q | DBF D0,0x261fe 00026204 4a 87 |J | TST.L D7 00026206 66 24 |f$ | BNE 0x2622c 00026208 5d 4f |]O | SUBQ.L #0x6,A7 0002620a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002620e 3f 01 |? | MOVE.W D1,-(A7) 00026210 3f 3c 00 41 |?< A | MOVE.W #0x41,-(A7) 00026214 4e 92 |N | JSR (A2) 00026216 5c 4f |\O | ADDQ.L #0x6,A7 00026218 42 17 |B | CLR.B (A7) 0002621a 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00026220 5c 4f |\O | ADDQ.L #0x6,A7 00026222 4a 1f |J | TST.B (A7)+ 00026224 66 06 |f | BNE 0x2622c 00026226 de fc 00 42 | B | ADDA.W #0x42,A7 0002622a 60 98 |` | BRA 0x261c4 0002622c 4a 87 |J | TST.L D7 0002622e 67 00 03 92 |g | BEQ 0x265c2 00026232 55 4f |UO | SUBQ.L #0x2,A7 00026234 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool 0002623a 4a 1f |J | TST.B (A7)+ 0002623c 67 00 01 0e |g | BEQ 0x2634c 00026240 42 80 |B | CLR.L D0 00026242 10 39 00 02 95 fa | 9 | MOVE.B 0x295fa,D0 00026248 c0 f9 00 02 95 f8 | | MULU.W 0x295f8,D0 0002624e 28 00 |( | MOVE.L D0,D4 00026250 42 83 |B | CLR.L D3 00026252 16 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D3 00026258 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 0002625e 26 3c 00 00 00 e7 |&< | MOVE.L #0xe7,D3 00026264 4e 94 |N | JSR (A4) 00026266 76 3c |v< | MOVEQ.L #0x3c,D3 00026268 4e 94 |N | JSR (A4) 0002626a 2a 04 |* | MOVE.L D4,D5 0002626c 9e fc 00 1a | | SUBA.W #0x1a,A7 00026270 20 4f | O | MOVEA.L A7,A0 00026272 43 fa ae de |C | LEA.L 0x21152,A1 00026276 70 18 |p | MOVEQ.L #0x18,D0 00026278 10 d9 | | MOVE.B (A1)+,(A0)+ 0002627a 51 c8 ff fc |Q | DBF D0,0x26278 0002627e 9e fc 00 0a | | SUBA.W #0xa,A7 00026282 20 4f | O | MOVEA.L A7,A0 00026284 43 fa af d4 |C | LEA.L 0x2125a,A1 00026288 70 08 |p | MOVEQ.L #0x08,D0 0002628a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002628c 51 c8 ff fc |Q | DBF D0,0x2628a 00026290 51 4f |QO | SUBQ.L #0x8,A7 00026292 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00026296 3f 01 |? | MOVE.W D1,-(A7) 00026298 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 0002629c 4e 92 |N | JSR (A2) 0002629e 2e 85 |. | MOVE.L D5,(A7) 000262a0 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000262a6 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000262aa 3f 01 |? | MOVE.W D1,-(A7) 000262ac 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 000262b0 4e 92 |N | JSR (A2) 000262b2 50 4f |PO | ADDQ.L #0x8,A7 000262b4 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000262ba de c2 | | ADDA.W D2,A7 000262bc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000262c2 de fc 00 28 | ( | ADDA.W #0x28,A7 000262c6 42 80 |B | CLR.L D0 000262c8 10 39 00 02 95 fa | 9 | MOVE.B 0x295fa,D0 000262ce c0 f9 00 02 95 f8 | | MULU.W 0x295f8,D0 000262d4 28 00 |( | MOVE.L D0,D4 000262d6 42 83 |B | CLR.L D3 000262d8 16 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D3 000262de 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 000262e4 76 74 |vt | MOVEQ.L #0x74,D3 000262e6 4e 94 |N | JSR (A4) 000262e8 76 3c |v< | MOVEQ.L #0x3c,D3 000262ea 4e 94 |N | JSR (A4) 000262ec 2a 04 |* | MOVE.L D4,D5 000262ee 9e fc 00 1a | | SUBA.W #0x1a,A7 000262f2 20 4f | O | MOVEA.L A7,A0 000262f4 43 fa ae 76 |C v | LEA.L 0x2116c,A1 000262f8 70 18 |p | MOVEQ.L #0x18,D0 000262fa 10 d9 | | MOVE.B (A1)+,(A0)+ 000262fc 51 c8 ff fc |Q | DBF D0,0x262fa 00026300 9e fc 00 0a | | SUBA.W #0xa,A7 00026304 20 4f | O | MOVEA.L A7,A0 00026306 43 fa af 5c |C \ | LEA.L 0x21264,A1 0002630a 70 08 |p | MOVEQ.L #0x08,D0 0002630c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002630e 51 c8 ff fc |Q | DBF D0,0x2630c 00026312 51 4f |QO | SUBQ.L #0x8,A7 00026314 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00026318 3f 01 |? | MOVE.W D1,-(A7) 0002631a 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 0002631e 4e 92 |N | JSR (A2) 00026320 2e 85 |. | MOVE.L D5,(A7) 00026322 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00026328 48 6f 00 10 |Ho | PEA.L (A7+0x10) 0002632c 3f 01 |? | MOVE.W D1,-(A7) 0002632e 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00026332 4e 92 |N | JSR (A2) 00026334 50 4f |PO | ADDQ.L #0x8,A7 00026336 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 0002633c de c2 | | ADDA.W D2,A7 0002633e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00026344 de fc 00 28 | ( | ADDA.W #0x28,A7 00026348 60 00 00 ea |` | BRA 0x26434 0002634c 9e fc 00 1a | | SUBA.W #0x1a,A7 00026350 20 4f | O | MOVEA.L A7,A0 00026352 43 fa ad fe |C | LEA.L 0x21152,A1 00026356 70 18 |p | MOVEQ.L #0x18,D0 00026358 10 d9 | | MOVE.B (A1)+,(A0)+ 0002635a 51 c8 ff fc |Q | DBF D0,0x26358 0002635e 30 39 00 02 95 e2 |09 | MOVE.W 0x295e2,D0 00026364 41 bc 00 05 |A | CHK.W #0x5,D0 00026368 e3 40 | @ | ASL.W #0x1,D0 0002636a 41 fa c0 14 |A | LEA.L 0x22380,A0 0002636e 3f 30 00 00 |?0 | MOVE.W (A0+D0.W),-(A7) 00026372 9e fc 00 0a | | SUBA.W #0xa,A7 00026376 20 4f | O | MOVEA.L A7,A0 00026378 43 fa ae f4 |C | LEA.L 0x2126e,A1 0002637c 70 08 |p | MOVEQ.L #0x08,D0 0002637e 10 d9 | | MOVE.B (A1)+,(A0)+ 00026380 51 c8 ff fc |Q | DBF D0,0x2637e 00026384 51 4f |QO | SUBQ.L #0x8,A7 00026386 48 6f 00 14 |Ho | PEA.L (A7+0x14) 0002638a 3f 01 |? | MOVE.W D1,-(A7) 0002638c 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00026390 4e 92 |N | JSR (A2) 00026392 58 4f |XO | ADDQ.L #0x4,A7 00026394 48 6f 00 16 |Ho | PEA.L (A7+0x16) 00026398 3f 01 |? | MOVE.W D1,-(A7) 0002639a 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 0002639e 4e 92 |N | JSR (A2) 000263a0 58 4f |XO | ADDQ.L #0x4,A7 000263a2 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000263a6 3f 01 |? | MOVE.W D1,-(A7) 000263a8 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 000263ac 4e 92 |N | JSR (A2) 000263ae 50 4f |PO | ADDQ.L #0x8,A7 000263b0 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000263b6 de c2 | | ADDA.W D2,A7 000263b8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000263be de fc 00 10 | | ADDA.W #0x10,A7 000263c2 20 4f | O | MOVEA.L A7,A0 000263c4 43 fa ad a6 |C | LEA.L 0x2116c,A1 000263c8 70 18 |p | MOVEQ.L #0x18,D0 000263ca 10 d9 | | MOVE.B (A1)+,(A0)+ 000263cc 51 c8 ff fc |Q | DBF D0,0x263ca 000263d0 30 39 00 02 95 e2 |09 | MOVE.W 0x295e2,D0 000263d6 41 bc 00 05 |A | CHK.W #0x5,D0 000263da e3 40 | @ | ASL.W #0x1,D0 000263dc 41 fa bf ae |A | LEA.L 0x2238c,A0 000263e0 3f 30 00 00 |?0 | MOVE.W (A0+D0.W),-(A7) 000263e4 9e fc 00 0a | | SUBA.W #0xa,A7 000263e8 20 4f | O | MOVEA.L A7,A0 000263ea 43 fa ae 8c |C | LEA.L 0x21278,A1 000263ee 70 08 |p | MOVEQ.L #0x08,D0 000263f0 10 d9 | | MOVE.B (A1)+,(A0)+ 000263f2 51 c8 ff fc |Q | DBF D0,0x263f0 000263f6 51 4f |QO | SUBQ.L #0x8,A7 000263f8 48 6f 00 14 |Ho | PEA.L (A7+0x14) 000263fc 3f 01 |? | MOVE.W D1,-(A7) 000263fe 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00026402 4e 92 |N | JSR (A2) 00026404 58 4f |XO | ADDQ.L #0x4,A7 00026406 48 6f 00 16 |Ho | PEA.L (A7+0x16) 0002640a 3f 01 |? | MOVE.W D1,-(A7) 0002640c 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00026410 4e 92 |N | JSR (A2) 00026412 58 4f |XO | ADDQ.L #0x4,A7 00026414 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00026418 3f 01 |? | MOVE.W D1,-(A7) 0002641a 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002641e 4e 92 |N | JSR (A2) 00026420 50 4f |PO | ADDQ.L #0x8,A7 00026422 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00026428 de c2 | | ADDA.W D2,A7 0002642a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00026430 de fc 00 2a | * | ADDA.W #0x2a,A7 00026434 9e fc 00 32 | 2 | SUBA.W #0x32,A7 00026438 20 4f | O | MOVEA.L A7,A0 0002643a 43 fa ad 92 |C | LEA.L 0x211ce,A1 0002643e 70 30 |p0 | MOVEQ.L #0x30,D0 00026440 10 d9 | | MOVE.B (A1)+,(A0)+ 00026442 51 c8 ff fc |Q | DBF D0,0x26440 00026446 5d 4f |]O | SUBQ.L #0x6,A7 00026448 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002644c 3f 01 |? | MOVE.W D1,-(A7) 0002644e 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 00026452 4e 92 |N | JSR (A2) 00026454 5c 4f |\O | ADDQ.L #0x6,A7 00026456 42 17 |B | CLR.B (A7) 00026458 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 0002645e 5c 4f |\O | ADDQ.L #0x6,A7 00026460 10 1f | | MOVE.B (A7)+,D0 00026462 48 80 |H | EXTB.W D0 00026464 41 81 |A | CHK.W D1,D0 00026466 de fc 00 32 | 2 | ADDA.W #0x32,A7 0002646a 1d 40 ff f0 | @ | MOVE.B D0,(A6-0x10) 0002646e 2f 07 |/ | MOVE.L D7,-(A7) 00026470 7c 01 || | MOVEQ.L #0x01,D6 00026472 bc 97 | | CMP.L (A7),D6 00026474 6e 00 01 48 |n H | BGT 0x265be 00026478 bc 81 | | CMP.L D1,D6 0002647a 66 06 |f | BNE 0x26482 0002647c 4a 13 |J | TST.B (A3) 0002647e 66 00 00 9e |f | BNE 0x2651e 00026482 48 6e ff f2 |Hn | PEA.L (A6-0xe) 00026486 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 0002648c 58 4f |XO | ADDQ.L #0x4,A7 0002648e 20 06 | | MOVE.L D6,D0 00026490 53 80 |S | SUBQ.L #0x1,D0 00026492 0c 80 00 00 00 02 | | CMPI.L #0x00000002,D0 00026498 63 02 |c | BLS 0x2649c 0002649a 4e 4f |NO | TRAP #15 0002649c e3 80 | | ASL.L #0x1,D0 0002649e 3f 36 08 fa |?6 | MOVE.W (A6+D0.L-#0x6),-(A7) 000264a2 1f 3c 00 0b | < | MOVE.B #0x0b,-(A7) 000264a6 10 2e ff f0 | . | MOVE.B (A6-0x10),D0 000264aa 48 80 |H | EXTB.W D0 000264ac 41 81 |A | CHK.W D1,D0 000264ae 1f 00 | | MOVE.B D0,-(A7) 000264b0 4e ba f7 22 |N " | JSR 0x25bd4 000264b4 5c 4f |\O | ADDQ.L #0x6,A7 000264b6 48 6e ff f6 |Hn | PEA.L (A6-0xa) 000264ba 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000264c0 51 4f |QO | SUBQ.L #0x8,A7 000264c2 20 4f | O | MOVEA.L A7,A0 000264c4 43 fa ad bc |C | LEA.L 0x21282,A1 000264c8 70 0a |p | MOVEQ.L #0x0a,D0 000264ca 10 d9 | | MOVE.B (A1)+,(A0)+ 000264cc 51 c8 ff fc |Q | DBF D0,0x264ca 000264d0 2f 3a ad c4 |/: | MOVE.L 0x21296,-(A7) 000264d4 2f 3a ad bc |/: | MOVE.L 0x21292,-(A7) 000264d8 2f 3a ad b4 |/: | MOVE.L 0x2128e,-(A7) 000264dc 51 4f |QO | SUBQ.L #0x8,A7 000264de 48 6f 00 14 |Ho | PEA.L (A7+0x14) 000264e2 3f 01 |? | MOVE.W D1,-(A7) 000264e4 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 000264e8 4e 92 |N | JSR (A2) 000264ea 2e 86 |. | MOVE.L D6,(A7) 000264ec 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000264f2 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000264f6 3f 01 |? | MOVE.W D1,-(A7) 000264f8 3f 02 |? | MOVE.W D2,-(A7) 000264fa 4e 92 |N | JSR (A2) 000264fc 50 4f |PO | ADDQ.L #0x8,A7 000264fe 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00026504 de c2 | | ADDA.W D2,A7 00026506 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 0002650c de fc 00 18 | | ADDA.W #0x18,A7 00026510 2e ae ff f2 |. | MOVE.L (A6-0xe),(A7) 00026514 2f 2e ff f6 |/. | MOVE.L (A6-0xa),-(A7) 00026518 4e ba c5 d8 |N | JSR 0x22af2 0002651c 50 4f |PO | ADDQ.L #0x8,A7 0002651e 48 6e ff f2 |Hn | PEA.L (A6-0xe) 00026522 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00026528 58 4f |XO | ADDQ.L #0x4,A7 0002652a 20 06 | | MOVE.L D6,D0 0002652c 53 80 |S | SUBQ.L #0x1,D0 0002652e 0c 80 00 00 00 02 | | CMPI.L #0x00000002,D0 00026534 63 02 |c | BLS 0x26538 00026536 4e 4f |NO | TRAP #15 00026538 e3 80 | | ASL.L #0x1,D0 0002653a 3f 36 08 fa |?6 | MOVE.W (A6+D0.L-#0x6),-(A7) 0002653e 1f 02 | | MOVE.B D2,-(A7) 00026540 10 2e ff f0 | . | MOVE.B (A6-0x10),D0 00026544 48 80 |H | EXTB.W D0 00026546 41 81 |A | CHK.W D1,D0 00026548 1f 00 | | MOVE.B D0,-(A7) 0002654a 4e ba f6 88 |N | JSR 0x25bd4 0002654e 5c 4f |\O | ADDQ.L #0x6,A7 00026550 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00026554 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 0002655a 51 4f |QO | SUBQ.L #0x8,A7 0002655c 20 4f | O | MOVEA.L A7,A0 0002655e 43 fa ad 3a |C : | LEA.L 0x2129a,A1 00026562 70 0a |p | MOVEQ.L #0x0a,D0 00026564 10 d9 | | MOVE.B (A1)+,(A0)+ 00026566 51 c8 ff fc |Q | DBF D0,0x26564 0002656a 2f 3a ad 42 |/: B | MOVE.L 0x212ae,-(A7) 0002656e 2f 3a ad 3a |/: : | MOVE.L 0x212aa,-(A7) 00026572 2f 3a ad 32 |/: 2 | MOVE.L 0x212a6,-(A7) 00026576 51 4f |QO | SUBQ.L #0x8,A7 00026578 48 6f 00 14 |Ho | PEA.L (A7+0x14) 0002657c 3f 01 |? | MOVE.W D1,-(A7) 0002657e 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00026582 4e 92 |N | JSR (A2) 00026584 2e 86 |. | MOVE.L D6,(A7) 00026586 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002658c 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00026590 3f 01 |? | MOVE.W D1,-(A7) 00026592 3f 02 |? | MOVE.W D2,-(A7) 00026594 4e 92 |N | JSR (A2) 00026596 50 4f |PO | ADDQ.L #0x8,A7 00026598 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 0002659e de c2 | | ADDA.W D2,A7 000265a0 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000265a6 de fc 00 18 | | ADDA.W #0x18,A7 000265aa 2e ae ff f2 |. | MOVE.L (A6-0xe),(A7) 000265ae 2f 2e ff f6 |/. | MOVE.L (A6-0xa),-(A7) 000265b2 4e ba c5 3e |N > | JSR 0x22af2 000265b6 50 4f |PO | ADDQ.L #0x8,A7 000265b8 52 86 |R | ADDQ.L #0x1,D6 000265ba 68 00 fe b6 |h | BVC 0x26472 000265be 58 4f |XO | ADDQ.L #0x4,A7 000265c0 16 81 | | MOVE.B D1,(A3) 000265c2 de fc 00 42 | B | ADDA.W #0x42,A7 000265c6 de fc 00 22 | " | ADDA.W #0x22,A7 000265ca 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000265ce 4e 5e |N^ | UNLK A6 000265d0 4e 75 |Nu | RTS 000265d2 ; -------------------------------------------------------------------------------------- 000265d2 ; OMSI PASCAL Function 000265d2 ; -------------------------------------------------------------------------------------- 000265d2 4e 56 ff ae |NV | LINK.W A6,#0xffae 000265d6 bf d5 | | CMPA.L (A5),A7 000265d8 62 06 |b | BHI 0x265e0 000265da 44 fc 00 02 |D | MOVE.W #0x2,CCR 000265de 4e 76 |Nv | TRAPV 000265e0 de fc 00 4a | J | ADDA.W #0x4a,A7 000265e4 48 e7 c3 c0 |H | MOVEM.L A1+A0+D7+D6+D1+D0,-(A7) 000265e8 7e 00 |~ | MOVEQ.L #0x00,D7 000265ea 7c 00 || | MOVEQ.L #0x00,D6 000265ec 0c 86 00 00 07 ff | | CMPI.L #0x000007ff,D6 000265f2 63 02 |c | BLS 0x265f6 000265f4 4e 4f |NO | TRAP #15 000265f6 20 06 | | MOVE.L D6,D0 000265f8 e5 80 | | ASL.L #0x2,D0 000265fa 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 00026600 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00026604 42 80 |B | CLR.L D0 00026606 30 39 00 02 95 f8 |09 | MOVE.W 0x295f8,D0 0002660c 53 80 |S | SUBQ.L #0x1,D0 0002660e 42 81 |B | CLR.L D1 00026610 32 28 04 4c |2( L | MOVE.W (A0+0x44c),D1 00026614 e5 49 | I | LSL.W #0x2,D1 00026616 e4 49 | I | LSR.W #0x2,D1 00026618 b2 80 | | CMP.L D0,D1 0002661a 62 40 |b@ | BHI 0x2665c 0002661c 42 80 |B | CLR.L D0 0002661e 10 39 00 02 95 fa | 9 | MOVE.B 0x295fa,D0 00026624 53 40 |S@ | SUBQ.W #0x1,D0 00026626 42 81 |B | CLR.L D1 00026628 12 28 04 4e | ( N | MOVE.B (A0+0x44e),D1 0002662c b2 40 | @ | CMP.W D0,D1 0002662e 63 0c |c | BLS 0x2663c 00026630 42 80 |B | CLR.L D0 00026632 10 28 04 4e | ( N | MOVE.B (A0+0x44e),D0 00026636 0c 40 00 ff | @ | CMPI.W #0x00ff,D0 0002663a 66 20 |f | BNE 0x2665c 0002663c 42 80 |B | CLR.L D0 0002663e 10 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D0 00026644 53 40 |S@ | SUBQ.W #0x1,D0 00026646 42 81 |B | CLR.L D1 00026648 12 28 04 4f | ( O | MOVE.B (A0+0x44f),D1 0002664c b2 40 | @ | CMP.W D0,D1 0002664e 63 1c |c | BLS 0x2666c 00026650 42 80 |B | CLR.L D0 00026652 10 28 04 4f | ( O | MOVE.B (A0+0x44f),D0 00026656 0c 40 00 ff | @ | CMPI.W #0x00ff,D0 0002665a 67 10 |g | BEQ 0x2666c 0002665c 52 87 |R | ADDQ.L #0x1,D7 0002665e 02 68 c0 00 04 4c | h L | ANDI.W #0xc000,(A0+0x44c) 00026664 42 28 04 4e |B( N | CLR.B (A0+0x44e) 00026668 42 28 04 4f |B( O | CLR.B (A0+0x44f) 0002666c 52 86 |R | ADDQ.L #0x1,D6 0002666e 0c 86 00 00 07 ff | | CMPI.L #0x000007ff,D6 00026674 6f 00 ff 76 |o v | BLE 0x265ec 00026678 4a 87 |J | TST.L D7 0002667a 67 42 |gB | BEQ 0x266be 0002667c 9e fc 00 1a | | SUBA.W #0x1a,A7 00026680 20 4f | O | MOVEA.L A7,A0 00026682 43 fa ac 2e |C . | LEA.L 0x212b2,A1 00026686 70 18 |p | MOVEQ.L #0x18,D0 00026688 10 d9 | | MOVE.B (A1)+,(A0)+ 0002668a 51 c8 ff fc |Q | DBF D0,0x26688 0002668e 51 4f |QO | SUBQ.L #0x8,A7 00026690 2f 07 |/ | MOVE.L D7,-(A7) 00026692 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00026698 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002669c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000266a0 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 000266a4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000266aa 50 4f |PO | ADDQ.L #0x8,A7 000266ac 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000266b2 50 4f |PO | ADDQ.L #0x8,A7 000266b4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000266ba de fc 00 1e | | ADDA.W #0x1e,A7 000266be 4c df 03 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1 000266c2 4e 5e |N^ | UNLK A6 000266c4 4e 75 |Nu | RTS 000266c6 ; -------------------------------------------------------------------------------------- 000266c6 ; OMSI PASCAL Function 000266c6 ; <LVAR 0x008 4(r)> 000266c6 ; <LVAR -0x006 @ 4(rw)> 000266c6 ; <LVAR -0x007 1(rw)> 000266c6 ; <LVAR -0x008 @ 1(r)> 000266c6 ; <LVAR -0x012 2(rw)> 000266c6 ; <LVAR -0x016 2(w)> 000266c6 ; <LVAR -0x01c 4(rw)> 000266c6 ; <LVAR -0x420 @> 000266c6 ; -------------------------------------------------------------------------------------- 000266c6 4e 56 fb 3c |NV < | LINK.W A6,#0xfb3c 000266ca bf d5 | | CMPA.L (A5),A7 000266cc 62 06 |b | BHI 0x266d4 000266ce 44 fc 00 02 |D | MOVE.W #0x2,CCR 000266d2 4e 76 |Nv | TRAPV 000266d4 de fc 00 a4 | | ADDA.W #0xa4,A7 000266d8 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000266dc 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000266e2 41 ee fb e0 |A | LEA.L (A6-0x420),A0 000266e6 2f 08 |/ | MOVE.L A0,-(A7) 000266e8 26 5f |&_ | MOVEA.L (A7)+,A3 000266ea 2f 0b |/ | MOVE.L A3,-(A7) 000266ec 2d 5f ff e4 |-_ | MOVE.L (A7)+,(A6-0x1c) 000266f0 41 fa ad 72 |A r | LEA.L 0x21464,A0 000266f4 70 0e |p | MOVEQ.L #0x0e,D0 000266f6 3f 20 |? | MOVE.W -(A0),-(A7) 000266f8 51 c8 ff fc |Q | DBF D0,0x266f6 000266fc 59 4f |YO | SUBQ.L #0x4,A7 000266fe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00026702 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026706 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 0002670a 4e 92 |N | JSR (A2) 0002670c 50 4f |PO | ADDQ.L #0x8,A7 0002670e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00026714 de fc 00 22 | " | ADDA.W #0x22,A7 00026718 4e ba fe b8 |N | JSR 0x265d2 0002671c 7e 00 |~ | MOVEQ.L #0x00,D7 0002671e 28 07 |( | MOVE.L D7,D4 00026720 76 02 |v | MOVEQ.L #0x02,D3 00026722 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00026728 e1 84 | | ASL.L #0x8,D4 0002672a 0c 84 00 00 07 ff | | CMPI.L #0x000007ff,D4 00026730 63 02 |c | BLS 0x26734 00026732 4e 4f |NO | TRAP #15 00026734 e5 84 | | ASL.L #0x2,D4 00026736 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 0002673c 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00026740 41 e8 04 4c |A L | LEA.L (A0+0x44c),A0 00026744 2f 08 |/ | MOVE.L A0,-(A7) 00026746 28 5f |(_ | MOVEA.L (A7)+,A4 00026748 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 0002674c 70 05 |p | MOVEQ.L #0x05,D0 0002674e d0 87 | | ADD.L D7,D0 00026750 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00026756 63 02 |c | BLS 0x2675a 00026758 4e 4f |NO | TRAP #15 0002675a 3f 00 |? | MOVE.W D0,-(A7) 0002675c 48 78 00 01 |Hx | PEA.L 0x1 00026760 2f 0c |/ | MOVE.L A4,-(A7) 00026762 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00026766 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 0002676c de fc 00 10 | | ADDA.W #0x10,A7 00026770 4a 2e ff f8 |J. | TST.B (A6-0x8) 00026774 66 2c |f, | BNE 0x267a2 00026776 9e fc 00 26 | & | SUBA.W #0x26,A7 0002677a 20 4f | O | MOVEA.L A7,A0 0002677c 43 fa ac 5e |C ^ | LEA.L 0x213dc,A1 00026780 70 24 |p$ | MOVEQ.L #0x24,D0 00026782 10 d9 | | MOVE.B (A1)+,(A0)+ 00026784 51 c8 ff fc |Q | DBF D0,0x26782 00026788 59 4f |YO | SUBQ.L #0x4,A7 0002678a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002678e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026792 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7) 00026796 4e 92 |N | JSR (A2) 00026798 50 4f |PO | ADDQ.L #0x8,A7 0002679a 4e ba bd 30 |N 0 | JSR 0x224cc 0002679e de fc 00 2a | * | ADDA.W #0x2a,A7 000267a2 52 87 |R | ADDQ.L #0x1,D7 000267a4 0c 87 00 00 00 0f | | CMPI.L #0x0000000f,D7 000267aa 6f 00 ff 72 |o r | BLE 0x2671e 000267ae 9e fc 00 14 | | SUBA.W #0x14,A7 000267b2 20 4f | O | MOVEA.L A7,A0 000267b4 43 fa ac ae |C | LEA.L 0x21464,A1 000267b8 70 12 |p | MOVEQ.L #0x12,D0 000267ba 10 d9 | | MOVE.B (A1)+,(A0)+ 000267bc 51 c8 ff fc |Q | DBF D0,0x267ba 000267c0 59 4f |YO | SUBQ.L #0x4,A7 000267c2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000267c6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000267ca 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000267ce 4e 92 |N | JSR (A2) 000267d0 50 4f |PO | ADDQ.L #0x8,A7 000267d2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000267d8 de fc 00 18 | | ADDA.W #0x18,A7 000267dc 7e 00 |~ | MOVEQ.L #0x00,D7 000267de 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7 000267e4 63 02 |c | BLS 0x267e8 000267e6 4e 4f |NO | TRAP #15 000267e8 20 07 | | MOVE.L D7,D0 000267ea e3 80 | | ASL.L #0x1,D0 000267ec 41 ee fb e0 |A | LEA.L (A6-0x420),A0 000267f0 42 70 08 00 |Bp | CLR.W (A0+D0.L) 000267f4 52 87 |R | ADDQ.L #0x1,D7 000267f6 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7 000267fc 6f e0 |o | BLE 0x267de 000267fe 36 bc 7f ed |6 | MOVE.W #0x7fed,(A3) 00026802 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00026806 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002680a 48 78 00 01 |Hx | PEA.L 0x1 0002680e 41 ee fb e0 |A | LEA.L (A6-0x420),A0 00026812 2f 08 |/ | MOVE.L A0,-(A7) 00026814 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00026818 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 0002681e de fc 00 10 | | ADDA.W #0x10,A7 00026822 4a 2e ff f8 |J. | TST.B (A6-0x8) 00026826 66 2c |f, | BNE 0x26854 00026828 9e fc 00 22 | " | SUBA.W #0x22,A7 0002682c 20 4f | O | MOVEA.L A7,A0 0002682e 43 fa ab 8a |C | LEA.L 0x213ba,A1 00026832 70 20 |p | MOVEQ.L #0x20,D0 00026834 10 d9 | | MOVE.B (A1)+,(A0)+ 00026836 51 c8 ff fc |Q | DBF D0,0x26834 0002683a 59 4f |YO | SUBQ.L #0x4,A7 0002683c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00026840 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026844 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 00026848 4e 92 |N | JSR (A2) 0002684a 50 4f |PO | ADDQ.L #0x8,A7 0002684c 4e ba bc 7e |N ~ | JSR 0x224cc 00026850 de fc 00 26 | & | ADDA.W #0x26,A7 00026854 41 fa ac 34 |A 4 | LEA.L 0x2148a,A0 00026858 70 08 |p | MOVEQ.L #0x08,D0 0002685a 3f 20 |? | MOVE.W -(A0),-(A7) 0002685c 51 c8 ff fc |Q | DBF D0,0x2685a 00026860 59 4f |YO | SUBQ.L #0x4,A7 00026862 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00026866 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002686a 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 0002686e 4e 92 |N | JSR (A2) 00026870 50 4f |PO | ADDQ.L #0x8,A7 00026872 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00026878 de fc 00 16 | | ADDA.W #0x16,A7 0002687c 33 fc 7f ed 00 01 00 0e |3 | MOVE.W #0x7fed,0x1000e 00026884 20 6e ff e4 | n | MOVEA.L (A6-0x1c),A0 00026888 2f 08 |/ | MOVE.L A0,-(A7) 0002688a 30 bc 7f ed |0 | MOVE.W #0x7fed,(A0) 0002688e 42 68 00 02 |Bh | CLR.W (A0+0x2) 00026892 7e 00 |~ | MOVEQ.L #0x00,D7 00026894 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 0002689a 63 02 |c | BLS 0x2689e 0002689c 4e 4f |NO | TRAP #15 0002689e 20 07 | | MOVE.L D7,D0 000268a0 e3 80 | | ASL.L #0x1,D0 000268a2 20 57 | W | MOVEA.L (A7),A0 000268a4 42 70 08 04 |Bp | CLR.W (A0+D0.L+#0x4) 000268a8 52 87 |R | ADDQ.L #0x1,D7 000268aa 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 000268b0 6f e2 |o | BLE 0x26894 000268b2 54 4f |TO | ADDQ.L #0x2,A7 000268b4 1e bc 00 03 | | MOVE.B #0x03,(A7) 000268b8 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 000268bc 48 78 00 01 |Hx | PEA.L 0x1 000268c0 41 ee fb e0 |A | LEA.L (A6-0x420),A0 000268c4 2f 08 |/ | MOVE.L A0,-(A7) 000268c6 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000268ca 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 000268d0 de fc 00 10 | | ADDA.W #0x10,A7 000268d4 4a 2e ff f8 |J. | TST.B (A6-0x8) 000268d8 66 26 |f& | BNE 0x26900 000268da 41 fa ab 6a |A j | LEA.L 0x21446,A0 000268de 70 07 |p | MOVEQ.L #0x07,D0 000268e0 2f 20 |/ | MOVE.L -(A0),-(A7) 000268e2 51 c8 ff fc |Q | DBF D0,0x268e0 000268e6 59 4f |YO | SUBQ.L #0x4,A7 000268e8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000268ec 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000268f0 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 000268f4 4e 92 |N | JSR (A2) 000268f6 50 4f |PO | ADDQ.L #0x8,A7 000268f8 4e ba bb d2 |N | JSR 0x224cc 000268fc de fc 00 24 | $ | ADDA.W #0x24,A7 00026900 10 39 00 02 95 ee | 9 | MOVE.B 0x295ee,D0 00026906 44 00 |D | NEG.B D0 00026908 52 00 |R | ADDQ.B #0x1,D0 0002690a 80 39 00 02 95 f1 | 9 | OR.B 0x295f1,D0 00026910 80 39 00 02 da 05 | 9 | OR.B 0x2da05,D0 00026916 48 80 |H | EXTB.W D0 00026918 41 bc 00 01 |A | CHK.W #0x1,D0 0002691c 1d 40 ff f9 | @ | MOVE.B D0,(A6-0x7) 00026920 4a 39 00 02 ee 1a |J9 | TST.B 0x2ee1a 00026926 67 34 |g4 | BEQ 0x2695c 00026928 4a 00 |J | TST.B D0 0002692a 67 26 |g& | BEQ 0x26952 0002692c 41 fa ab 7a |A z | LEA.L 0x214a8,A0 00026930 70 0e |p | MOVEQ.L #0x0e,D0 00026932 3f 20 |? | MOVE.W -(A0),-(A7) 00026934 51 c8 ff fc |Q | DBF D0,0x26932 00026938 59 4f |YO | SUBQ.L #0x4,A7 0002693a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002693e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026942 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00026946 4e 92 |N | JSR (A2) 00026948 50 4f |PO | ADDQ.L #0x8,A7 0002694a 4e ba bb 80 |N | JSR 0x224cc 0002694e de fc 00 22 | " | ADDA.W #0x22,A7 00026952 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00026956 10 bc 00 01 | | MOVE.B #0x01,(A0) 0002695a 60 3c |`< | BRA 0x26998 0002695c 4a 00 |J | TST.B D0 0002695e 66 38 |f8 | BNE 0x26998 00026960 41 fa a9 a4 |A | LEA.L 0x21306,A0 00026964 70 1c |p | MOVEQ.L #0x1c,D0 00026966 3f 20 |? | MOVE.W -(A0),-(A7) 00026968 51 c8 ff fc |Q | DBF D0,0x26966 0002696c 5d 4f |]O | SUBQ.L #0x6,A7 0002696e 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00026972 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026976 3f 3c 00 3a |?< : | MOVE.W #0x3a,-(A7) 0002697a 4e 92 |N | JSR (A2) 0002697c 5c 4f |\O | ADDQ.L #0x6,A7 0002697e 42 17 |B | CLR.B (A7) 00026980 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00026986 5c 4f |\O | ADDQ.L #0x6,A7 00026988 10 1f | | MOVE.B (A7)+,D0 0002698a 48 80 |H | EXTB.W D0 0002698c 41 bc 00 01 |A | CHK.W #0x1,D0 00026990 de fc 00 3a | : | ADDA.W #0x3a,A7 00026994 1d 40 ff f9 | @ | MOVE.B D0,(A6-0x7) 00026998 4a 2e ff f9 |J. | TST.B (A6-0x7) 0002699c 67 00 04 dc |g | BEQ 0x26e7a 000269a0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000269a4 43 fa aa 14 |C | LEA.L 0x213ba,A1 000269a8 70 1c |p | MOVEQ.L #0x1c,D0 000269aa 3f 21 |?! | MOVE.W -(A1),-(A7) 000269ac 51 c8 ff fc |Q | DBF D0,0x269aa 000269b0 5d 4f |]O | SUBQ.L #0x6,A7 000269b2 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000269b6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000269ba 3f 3c 00 3a |?< : | MOVE.W #0x3a,-(A7) 000269be 4e 92 |N | JSR (A2) 000269c0 5c 4f |\O | ADDQ.L #0x6,A7 000269c2 1e bc 00 01 | | MOVE.B #0x01,(A7) 000269c6 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 000269cc 5c 4f |\O | ADDQ.L #0x6,A7 000269ce 10 1f | | MOVE.B (A7)+,D0 000269d0 48 80 |H | EXTB.W D0 000269d2 41 bc 00 01 |A | CHK.W #0x1,D0 000269d6 de fc 00 3a | : | ADDA.W #0x3a,A7 000269da 10 80 | | MOVE.B D0,(A0) 000269dc 3f 00 |? | MOVE.W D0,-(A7) 000269de 3c 3c ff ff |<< | MOVE.W #0xffff,D6 000269e2 3d 79 00 01 00 0c ff ee |=y | MOVE.W 0x1000c,(A6-0x12) 000269ea 42 81 |B | CLR.L D1 000269ec 32 06 |2 | MOVE.W D6,D1 000269ee 82 ee ff ee | | DIVU.W (A6-0x12),D1 000269f2 42 82 |B | CLR.L D2 000269f4 34 01 |4 | MOVE.W D1,D2 000269f6 53 82 |S | SUBQ.L #0x1,D2 000269f8 0c 82 00 00 ff ff | | CMPI.L #0x0000ffff,D2 000269fe 63 02 |c | BLS 0x26a02 00026a00 4e 4f |NO | TRAP #15 00026a02 3c 02 |< | MOVE.W D2,D6 00026a04 4a 00 |J | TST.B D0 00026a06 67 00 00 c6 |g | BEQ 0x26ace 00026a0a 48 6e ff fa |Hn | PEA.L (A6-0x6) 00026a0e 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00026a14 58 4f |XO | ADDQ.L #0x4,A7 00026a16 41 fa a9 22 |A " | LEA.L 0x2133a,A0 00026a1a 70 0c |p | MOVEQ.L #0x0c,D0 00026a1c 2f 20 |/ | MOVE.L -(A0),-(A7) 00026a1e 51 c8 ff fc |Q | DBF D0,0x26a1c 00026a22 30 39 00 02 95 e6 |09 | MOVE.W 0x295e6,D0 00026a28 48 c0 |H | EXTW.L D0 00026a2a 2f 00 |/ | MOVE.L D0,-(A7) 00026a2c 30 39 00 02 95 e8 |09 | MOVE.W 0x295e8,D0 00026a32 48 c0 |H | EXTW.L D0 00026a34 2f 00 |/ | MOVE.L D0,-(A7) 00026a36 26 1f |& | MOVE.L (A7)+,D3 00026a38 28 1f |( | MOVE.L (A7)+,D4 00026a3a 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00026a40 59 4f |YO | SUBQ.L #0x4,A7 00026a42 1e ba aa 64 | d | MOVE.B 0x214a8,(A7) 00026a46 1f 7a aa 61 00 01 | z a | MOVE.B 0x214a9,(A7+0x1) 00026a4c 1f 7a aa 5c 00 02 | z \ | MOVE.B 0x214aa,(A7+0x2) 00026a52 59 4f |YO | SUBQ.L #0x4,A7 00026a54 2f 2e ff fa |/. | MOVE.L (A6-0x6),-(A7) 00026a58 59 4f |YO | SUBQ.L #0x4,A7 00026a5a 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00026a5e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026a62 3f 3c 00 34 |?< 4 | MOVE.W #0x34,-(A7) 00026a66 4e 92 |N | JSR (A2) 00026a68 58 4f |XO | ADDQ.L #0x4,A7 00026a6a 26 04 |& | MOVE.L D4,D3 00026a6c 28 3c 00 01 38 80 |(< 8 | MOVE.L #0x13880,D4 00026a72 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00026a78 59 4f |YO | SUBQ.L #0x4,A7 00026a7a 52 84 |R | ADDQ.L #0x1,D4 00026a7c 2e 84 |. | MOVE.L D4,(A7) 00026a7e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00026a84 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00026a88 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026a8c 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00026a90 4e 92 |N | JSR (A2) 00026a92 50 4f |PO | ADDQ.L #0x8,A7 00026a94 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 00026a9a de fc 00 10 | | ADDA.W #0x10,A7 00026a9e 2d 5f ff fa |-_ | MOVE.L (A7)+,(A6-0x6) 00026aa2 de fc 00 30 | 0 | ADDA.W #0x30,A7 00026aa6 2e ae ff fa |. | MOVE.L (A6-0x6),(A7) 00026aaa 48 78 00 0a |Hx | PEA.L 0xa 00026aae 42 80 |B | CLR.L D0 00026ab0 30 06 |0 | MOVE.W D6,D0 00026ab2 2f 00 |/ | MOVE.L D0,-(A7) 00026ab4 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00026aba de fc 00 0c | | ADDA.W #0xc,A7 00026abe 20 1f | | MOVE.L (A7)+,D0 00026ac0 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00026ac6 63 02 |c | BLS 0x26aca 00026ac8 4e 4f |NO | TRAP #15 00026aca 3a 00 |: | MOVE.W D0,D5 00026acc 60 02 |` | BRA 0x26ad0 00026ace 7a 03 |z | MOVEQ.L #0x03,D5 00026ad0 42 80 |B | CLR.L D0 00026ad2 30 39 00 02 95 f8 |09 | MOVE.W 0x295f8,D0 00026ad8 55 80 |U | SUBQ.L #0x2,D0 00026ada 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00026ae0 63 02 |c | BLS 0x26ae4 00026ae2 4e 4f |NO | TRAP #15 00026ae4 3c 00 |< | MOVE.W D0,D6 00026ae6 48 6e ff fa |Hn | PEA.L (A6-0x6) 00026aea 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00026af0 54 4f |TO | ADDQ.L #0x2,A7 00026af2 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00026af8 4a 1f |J | TST.B (A7)+ 00026afa 67 48 |gH | BEQ 0x26b44 00026afc 9e fc 00 46 | F | SUBA.W #0x46,A7 00026b00 20 4f | O | MOVEA.L A7,A0 00026b02 43 fa a8 36 |C 6 | LEA.L 0x2133a,A1 00026b06 70 44 |pD | MOVEQ.L #0x44,D0 00026b08 10 d9 | | MOVE.B (A1)+,(A0)+ 00026b0a 51 c8 ff fc |Q | DBF D0,0x26b08 00026b0e 59 4f |YO | SUBQ.L #0x4,A7 00026b10 1e ba a9 9a | | MOVE.B 0x214ac,(A7) 00026b14 1f 7a a9 97 00 01 | z | MOVE.B 0x214ad,(A7+0x1) 00026b1a 1f 7a a9 92 00 02 | z | MOVE.B 0x214ae,(A7+0x2) 00026b20 59 4f |YO | SUBQ.L #0x4,A7 00026b22 2f 2e ff fa |/. | MOVE.L (A6-0x6),-(A7) 00026b26 59 4f |YO | SUBQ.L #0x4,A7 00026b28 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00026b2c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026b30 3f 3c 00 45 |?< E | MOVE.W #0x45,-(A7) 00026b34 4e 92 |N | JSR (A2) 00026b36 58 4f |XO | ADDQ.L #0x4,A7 00026b38 42 80 |B | CLR.L D0 00026b3a 30 39 00 02 95 e4 |09 | MOVE.W 0x295e4,D0 00026b40 5f 80 |_ | SUBQ.L #0x7,D0 00026b42 60 46 |`F | BRA 0x26b8a 00026b44 9e fc 00 46 | F | SUBA.W #0x46,A7 00026b48 20 4f | O | MOVEA.L A7,A0 00026b4a 43 fa a7 ee |C | LEA.L 0x2133a,A1 00026b4e 70 44 |pD | MOVEQ.L #0x44,D0 00026b50 10 d9 | | MOVE.B (A1)+,(A0)+ 00026b52 51 c8 ff fc |Q | DBF D0,0x26b50 00026b56 59 4f |YO | SUBQ.L #0x4,A7 00026b58 1e ba a9 56 | V | MOVE.B 0x214b0,(A7) 00026b5c 1f 7a a9 53 00 01 | z S | MOVE.B 0x214b1,(A7+0x1) 00026b62 1f 7a a9 4e 00 02 | z N | MOVE.B 0x214b2,(A7+0x2) 00026b68 59 4f |YO | SUBQ.L #0x4,A7 00026b6a 2f 2e ff fa |/. | MOVE.L (A6-0x6),-(A7) 00026b6e 59 4f |YO | SUBQ.L #0x4,A7 00026b70 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00026b74 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026b78 3f 3c 00 45 |?< E | MOVE.W #0x45,-(A7) 00026b7c 4e 92 |N | JSR (A2) 00026b7e 58 4f |XO | ADDQ.L #0x4,A7 00026b80 42 80 |B | CLR.L D0 00026b82 30 39 00 02 95 e4 |09 | MOVE.W 0x295e4,D0 00026b88 5b 80 |[ | SUBQ.L #0x5,D0 00026b8a 2f 00 |/ | MOVE.L D0,-(A7) 00026b8c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00026b92 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00026b96 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026b9a 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00026b9e 4e 92 |N | JSR (A2) 00026ba0 50 4f |PO | ADDQ.L #0x8,A7 00026ba2 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 00026ba8 de fc 00 10 | | ADDA.W #0x10,A7 00026bac 2d 5f ff fa |-_ | MOVE.L (A7)+,(A6-0x6) 00026bb0 de fc 00 4a | J | ADDA.W #0x4a,A7 00026bb4 59 4f |YO | SUBQ.L #0x4,A7 00026bb6 2f 2e ff fa |/. | MOVE.L (A6-0x6),-(A7) 00026bba 42 80 |B | CLR.L D0 00026bbc 30 05 |0 | MOVE.W D5,D0 00026bbe 2f 00 |/ | MOVE.L D0,-(A7) 00026bc0 42 80 |B | CLR.L D0 00026bc2 30 06 |0 | MOVE.W D6,D0 00026bc4 2f 00 |/ | MOVE.L D0,-(A7) 00026bc6 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00026bcc de fc 00 0c | | ADDA.W #0xc,A7 00026bd0 20 1f | | MOVE.L (A7)+,D0 00026bd2 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00026bd8 63 02 |c | BLS 0x26bdc 00026bda 4e 4f |NO | TRAP #15 00026bdc 3d 40 ff ea |=@ | MOVE.W D0,(A6-0x16) 00026be0 2f 00 |/ | MOVE.L D0,-(A7) 00026be2 23 f9 00 02 95 f8 00 02 |# | MOVE.L 0x295f8,0x2960c 00026bea 96 0c | | 00026bec 42 79 00 02 96 04 |By | CLR.W 0x29604 00026bf2 33 fc 7f ed 00 02 96 06 |3 | MOVE.W #0x7fed,0x29606 00026bfa 33 fc 00 03 00 02 96 08 |3 | MOVE.W #0x3,0x29608 00026c02 42 79 00 02 96 0a |By | CLR.W 0x2960a 00026c08 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00026c0c 48 79 00 02 96 10 |Hy | PEA.L 0x29610 00026c12 4e ba df ce |N | JSR 0x24be2 00026c16 58 4f |XO | ADDQ.L #0x4,A7 00026c18 3e bc 00 29 |> ) | MOVE.W #0x29,(A7) 00026c1c 48 79 00 02 96 14 |Hy | PEA.L 0x29614 00026c22 4e ba df be |N | JSR 0x24be2 00026c26 58 4f |XO | ADDQ.L #0x4,A7 00026c28 3e bc 00 2a |> * | MOVE.W #0x2a,(A7) 00026c2c 48 79 00 02 96 18 |Hy | PEA.L 0x29618 00026c32 4e ba df ae |N | JSR 0x24be2 00026c36 58 4f |XO | ADDQ.L #0x4,A7 00026c38 3e bc 00 49 |> I | MOVE.W #0x49,(A7) 00026c3c 48 79 00 02 96 1c |Hy | PEA.L 0x2961c 00026c42 4e ba df 9e |N | JSR 0x24be2 00026c46 58 4f |XO | ADDQ.L #0x4,A7 00026c48 3e bc 00 4a |> J | MOVE.W #0x4a,(A7) 00026c4c 48 79 00 02 96 20 |Hy | PEA.L 0x29620 00026c52 4e ba df 8e |N | JSR 0x24be2 00026c56 5c 4f |\O | ADDQ.L #0x6,A7 00026c58 33 c5 00 02 96 24 |3 $ | MOVE.W D5,0x29624 00026c5e 42 80 |B | CLR.L D0 00026c60 10 39 00 02 95 fa | 9 | MOVE.B 0x295fa,D0 00026c66 53 40 |S@ | SUBQ.W #0x1,D0 00026c68 41 bc 00 ff |A | CHK.W #0xff,D0 00026c6c 13 c0 00 02 96 26 | & | MOVE.B D0,0x29626 00026c72 42 80 |B | CLR.L D0 00026c74 10 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D0 00026c7a 53 40 |S@ | SUBQ.W #0x1,D0 00026c7c 41 bc 00 ff |A | CHK.W #0xff,D0 00026c80 13 c0 00 02 96 27 | ' | MOVE.B D0,0x29627 00026c86 42 80 |B | CLR.L D0 00026c88 30 05 |0 | MOVE.W D5,D0 00026c8a 52 80 |R | ADDQ.L #0x1,D0 00026c8c 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00026c92 63 02 |c | BLS 0x26c96 00026c94 4e 4f |NO | TRAP #15 00026c96 33 c0 00 02 96 28 |3 ( | MOVE.W D0,0x29628 00026c9c 42 39 00 02 96 2a |B9 * | CLR.B 0x2962a 00026ca2 42 39 00 02 96 2b |B9 + | CLR.B 0x2962b 00026ca8 20 17 | | MOVE.L (A7),D0 00026caa 42 81 |B | CLR.L D1 00026cac 32 00 |2 | MOVE.W D0,D1 00026cae 53 81 |S | SUBQ.L #0x1,D1 00026cb0 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 00026cb6 63 02 |c | BLS 0x26cba 00026cb8 4e 4f |NO | TRAP #15 00026cba 33 c1 00 02 96 2c |3 , | MOVE.W D1,0x2962c 00026cc0 42 80 |B | CLR.L D0 00026cc2 10 39 00 02 95 fa | 9 | MOVE.B 0x295fa,D0 00026cc8 53 40 |S@ | SUBQ.W #0x1,D0 00026cca 41 bc 00 ff |A | CHK.W #0xff,D0 00026cce 13 c0 00 02 96 2e | . | MOVE.B D0,0x2962e 00026cd4 42 80 |B | CLR.L D0 00026cd6 10 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D0 00026cdc 53 40 |S@ | SUBQ.W #0x1,D0 00026cde 41 bc 00 ff |A | CHK.W #0xff,D0 00026ce2 13 c0 00 02 96 2f | / | MOVE.B D0,0x2962f 00026ce8 20 17 | | MOVE.L (A7),D0 00026cea 33 c0 00 02 96 30 |3 0 | MOVE.W D0,0x29630 00026cf0 42 39 00 02 96 32 |B9 2 | CLR.B 0x29632 00026cf6 42 39 00 02 96 33 |B9 3 | CLR.B 0x29633 00026cfc 42 80 |B | CLR.L D0 00026cfe 30 39 00 02 95 f8 |09 | MOVE.W 0x295f8,D0 00026d04 53 80 |S | SUBQ.L #0x1,D0 00026d06 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00026d0c 63 02 |c | BLS 0x26d10 00026d0e 4e 4f |NO | TRAP #15 00026d10 33 c0 00 02 96 34 |3 4 | MOVE.W D0,0x29634 00026d16 42 80 |B | CLR.L D0 00026d18 10 39 00 02 95 fa | 9 | MOVE.B 0x295fa,D0 00026d1e 53 40 |S@ | SUBQ.W #0x1,D0 00026d20 41 bc 00 ff |A | CHK.W #0xff,D0 00026d24 13 c0 00 02 96 36 | 6 | MOVE.B D0,0x29636 00026d2a 42 80 |B | CLR.L D0 00026d2c 10 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D0 00026d32 53 40 |S@ | SUBQ.W #0x1,D0 00026d34 41 bc 00 ff |A | CHK.W #0xff,D0 00026d38 13 c0 00 02 96 37 | 7 | MOVE.B D0,0x29637 00026d3e 13 fc 00 01 00 02 96 39 | 9| MOVE.B #0x01,0x29639 00026d46 30 2f 00 04 |0/ | MOVE.W (A7+0x4),D0 00026d4a 13 c0 00 02 96 38 | 8 | MOVE.B D0,0x29638 00026d50 20 79 00 02 95 ea | y | MOVEA.L 0x295ea,A0 00026d56 2f 08 |/ | MOVE.L A0,-(A7) 00026d58 30 10 |0 | MOVE.W (A0),D0 00026d5a 0c 40 00 1e | @ | CMPI.W #0x001e,D0 00026d5e 6f 04 |o | BLE 0x26d64 00026d60 30 bc 00 1e |0 | MOVE.W #0x1e,(A0) 00026d64 30 10 |0 | MOVE.W (A0),D0 00026d66 48 c0 |H | EXTW.L D0 00026d68 2f 00 |/ | MOVE.L D0,-(A7) 00026d6a 7e 01 |~ | MOVEQ.L #0x01,D7 00026d6c be 97 | | CMP.L (A7),D7 00026d6e 6e 30 |n0 | BGT 0x26da0 00026d70 20 07 | | MOVE.L D7,D0 00026d72 53 80 |S | SUBQ.L #0x1,D0 00026d74 0c 80 00 00 00 1d | | CMPI.L #0x0000001d,D0 00026d7a 63 02 |c | BLS 0x26d7e 00026d7c 4e 4f |NO | TRAP #15 00026d7e 41 f9 00 02 96 04 |A | LEA.L 0x29604,A0 00026d84 22 07 |" | MOVE.L D7,D1 00026d86 53 81 |S | SUBQ.L #0x1,D1 00026d88 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00026d8e 63 02 |c | BLS 0x26d92 00026d90 4e 4f |NO | TRAP #15 00026d92 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00026d96 11 b1 18 02 08 36 | 6 | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x36) 00026d9c 52 87 |R | ADDQ.L #0x1,D7 00026d9e 68 cc |h | BVC 0x26d6c 00026da0 58 4f |XO | ADDQ.L #0x4,A7 00026da2 20 57 | W | MOVEA.L (A7),A0 00026da4 30 10 |0 | MOVE.W (A0),D0 00026da6 48 c0 |H | EXTW.L D0 00026da8 52 80 |R | ADDQ.L #0x1,D0 00026daa 2e 00 |. | MOVE.L D0,D7 00026dac 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7 00026db2 6e 1c |n | BGT 0x26dd0 00026db4 20 07 | | MOVE.L D7,D0 00026db6 53 80 |S | SUBQ.L #0x1,D0 00026db8 0c 80 00 00 00 1d | | CMPI.L #0x0000001d,D0 00026dbe 63 02 |c | BLS 0x26dc2 00026dc0 4e 4f |NO | TRAP #15 00026dc2 41 f9 00 02 96 04 |A | LEA.L 0x29604,A0 00026dc8 42 30 08 36 |B0 6 | CLR.B (A0+D0.L+#0x36) 00026dcc 52 87 |R | ADDQ.L #0x1,D7 00026dce 68 dc |h | BVC 0x26dac 00026dd0 9e fc 00 0c | | SUBA.W #0xc,A7 00026dd4 20 4f | O | MOVEA.L A7,A0 00026dd6 43 fa a6 dc |C | LEA.L 0x214b4,A1 00026dda 70 14 |p | MOVEQ.L #0x14,D0 00026ddc 10 d9 | | MOVE.B (A1)+,(A0)+ 00026dde 51 c8 ff fc |Q | DBF D0,0x26ddc 00026de2 59 4f |YO | SUBQ.L #0x4,A7 00026de4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00026de8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026dec 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 00026df0 4e 92 |N | JSR (A2) 00026df2 50 4f |PO | ADDQ.L #0x8,A7 00026df4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00026dfa de fc 00 1a | | ADDA.W #0x1a,A7 00026dfe 4e ba bd be |N | JSR 0x22bbe 00026e02 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00026e06 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00026e0a 48 78 00 01 |Hx | PEA.L 0x1 00026e0e 2f 39 00 02 96 00 |/9 | MOVE.L 0x29600,-(A7) 00026e14 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00026e18 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 00026e1e de fc 00 10 | | ADDA.W #0x10,A7 00026e22 4a 2e ff f8 |J. | TST.B (A6-0x8) 00026e26 67 20 |g | BEQ 0x26e48 00026e28 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00026e2c 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00026e30 48 78 00 01 |Hx | PEA.L 0x1 00026e34 2f 39 00 02 96 00 |/9 | MOVE.L 0x29600,-(A7) 00026e3a 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00026e3e 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 00026e44 de fc 00 10 | | ADDA.W #0x10,A7 00026e48 4a 2e ff f8 |J. | TST.B (A6-0x8) 00026e4c 66 2c |f, | BNE 0x26e7a 00026e4e 9e fc 00 24 | $ | SUBA.W #0x24,A7 00026e52 20 4f | O | MOVEA.L A7,A0 00026e54 43 fa a5 ac |C | LEA.L 0x21402,A1 00026e58 70 22 |p" | MOVEQ.L #0x22,D0 00026e5a 10 d9 | | MOVE.B (A1)+,(A0)+ 00026e5c 51 c8 ff fc |Q | DBF D0,0x26e5a 00026e60 59 4f |YO | SUBQ.L #0x4,A7 00026e62 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00026e66 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026e6a 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 00026e6e 4e 92 |N | JSR (A2) 00026e70 50 4f |PO | ADDQ.L #0x8,A7 00026e72 4e ba b6 58 |N X | JSR 0x224cc 00026e76 de fc 00 28 | ( | ADDA.W #0x28,A7 00026e7a 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00026e7e 4e 5e |N^ | UNLK A6 00026e80 4e 75 |Nu | RTS 00026e82 ; -------------------------------------------------------------------------------------- 00026e82 ; OMSI PASCAL Function 00026e82 ; <LVAR -0x004 4(rw)> 00026e82 ; <LVAR -0x006 2(rw)> 00026e82 ; <LVAR -0x008 2(rw)> 00026e82 ; <LVAR -0x2012 @> 00026e82 ; <LVAR -0x2017 @ 1(r)> 00026e82 ; <LVAR -0x2018 1(rw)> 00026e82 ; <LVAR -0x201a 2(w)> 00026e82 ; <LVAR -0x201c @ 2(w) 4(r)> 00026e82 ; -------------------------------------------------------------------------------------- 00026e82 4e 56 df 64 |NV d | LINK.W A6,#0xdf64 00026e86 bf d5 | | CMPA.L (A5),A7 00026e88 62 06 |b | BHI 0x26e90 00026e8a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00026e8e 4e 76 |Nv | TRAPV 00026e90 de fc 00 80 | | ADDA.W #0x80,A7 00026e94 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00026e98 45 ee df e8 |E | LEA.L (A6-0x2018),A2 00026e9c 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00026ea2 9e fc 00 18 | | SUBA.W #0x18,A7 00026ea6 20 4f | O | MOVEA.L A7,A0 00026ea8 43 fa a6 58 |C X | LEA.L 0x21502,A1 00026eac 70 16 |p | MOVEQ.L #0x16,D0 00026eae 10 d9 | | MOVE.B (A1)+,(A0)+ 00026eb0 51 c8 ff fc |Q | DBF D0,0x26eae 00026eb4 59 4f |YO | SUBQ.L #0x4,A7 00026eb6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00026eba 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00026ebe 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00026ec2 4e 93 |N | JSR (A3) 00026ec4 50 4f |PO | ADDQ.L #0x8,A7 00026ec6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00026ecc de fc 00 1c | | ADDA.W #0x1c,A7 00026ed0 41 ee df ee |A | LEA.L (A6-0x2012),A0 00026ed4 2f 08 |/ | MOVE.L A0,-(A7) 00026ed6 28 5f |(_ | MOVEA.L (A7)+,A4 00026ed8 30 39 00 01 00 0c |09 | MOVE.W 0x1000c,D0 00026ede c0 f9 00 02 96 20 | | MULU.W 0x29620,D0 00026ee4 42 81 |B | CLR.L D1 00026ee6 12 39 00 02 96 22 | 9 " | MOVE.B 0x29622,D1 00026eec c2 f9 00 01 00 0a | | MULU.W 0x1000a,D1 00026ef2 d2 80 | | ADD.L D0,D1 00026ef4 42 80 |B | CLR.L D0 00026ef6 10 39 00 02 96 23 | 9 # | MOVE.B 0x29623,D0 00026efc 52 40 |R@ | ADDQ.W #0x1,D0 00026efe e2 40 | @ | ASR.W #0x1,D0 00026f00 48 c0 |H | EXTW.L D0 00026f02 d0 81 | | ADD.L D1,D0 00026f04 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00026f0a 63 02 |c | BLS 0x26f0e 00026f0c 4e 4f |NO | TRAP #15 00026f0e 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00026f12 30 39 00 01 00 0c |09 | MOVE.W 0x1000c,D0 00026f18 c0 f9 00 02 96 24 | $ | MULU.W 0x29624,D0 00026f1e 42 81 |B | CLR.L D1 00026f20 12 39 00 02 96 26 | 9 & | MOVE.B 0x29626,D1 00026f26 c2 f9 00 01 00 0a | | MULU.W 0x1000a,D1 00026f2c d2 80 | | ADD.L D0,D1 00026f2e 42 80 |B | CLR.L D0 00026f30 10 39 00 02 96 27 | 9 ' | MOVE.B 0x29627,D0 00026f36 53 40 |S@ | SUBQ.W #0x1,D0 00026f38 48 c0 |H | EXTW.L D0 00026f3a 81 fc 00 02 | | DIVS.W #0x2,D0 00026f3e 48 c0 |H | EXTW.L D0 00026f40 d0 81 | | ADD.L D1,D0 00026f42 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00026f48 63 02 |c | BLS 0x26f4c 00026f4a 4e 4f |NO | TRAP #15 00026f4c 3d 40 ff fa |=@ | MOVE.W D0,(A6-0x6) 00026f50 42 80 |B | CLR.L D0 00026f52 30 39 00 02 96 24 |09 $ | MOVE.W 0x29624,D0 00026f58 2d 40 ff fc |-@ | MOVE.L D0,(A6-0x4) 00026f5c 7a 00 |z | MOVEQ.L #0x00,D5 00026f5e 42 80 |B | CLR.L D0 00026f60 30 05 |0 | MOVE.W D5,D0 00026f62 20 4c | L | MOVEA.L A4,A0 00026f64 22 00 |" | MOVE.L D0,D1 00026f66 e6 99 | | ROR.L #0x3,D1 00026f68 d0 c1 | | ADDA.W D1,A0 00026f6a 48 41 |HA | SWAP.W D1 00026f6c e7 59 | Y | ROL.W #0x3,D1 00026f6e 34 3c ff 7f |4< | MOVE.W #0xff7f,D2 00026f72 e2 7a | z | ROR.W D1,D2 00026f74 c5 10 | | AND.B D2,(A0) 00026f76 52 80 |R | ADDQ.L #0x1,D0 00026f78 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00026f7e 63 02 |c | BLS 0x26f82 00026f80 4e 4f |NO | TRAP #15 00026f82 3a 00 |: | MOVE.W D0,D5 00026f84 ba 6e ff f8 | n | CMP.W (A6-0x8),D5 00026f88 66 d4 |f | BNE 0x26f5e 00026f8a 42 80 |B | CLR.L D0 00026f8c 30 05 |0 | MOVE.W D5,D0 00026f8e 20 4c | L | MOVEA.L A4,A0 00026f90 22 00 |" | MOVE.L D0,D1 00026f92 e6 99 | | ROR.L #0x3,D1 00026f94 d0 c1 | | ADDA.W D1,A0 00026f96 48 41 |HA | SWAP.W D1 00026f98 e7 59 | Y | ROL.W #0x3,D1 00026f9a 14 3c 00 80 | < | MOVE.B #0x80,D2 00026f9e e2 2a | * | LSR.B D1,D2 00026fa0 85 10 | | OR.B D2,(A0) 00026fa2 52 80 |R | ADDQ.L #0x1,D0 00026fa4 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00026faa 63 02 |c | BLS 0x26fae 00026fac 4e 4f |NO | TRAP #15 00026fae 3a 00 |: | MOVE.W D0,D5 00026fb0 42 80 |B | CLR.L D0 00026fb2 30 2e ff fa |0. | MOVE.W (A6-0x6),D0 00026fb6 52 80 |R | ADDQ.L #0x1,D0 00026fb8 42 81 |B | CLR.L D1 00026fba 32 05 |2 | MOVE.W D5,D1 00026fbc b2 80 | | CMP.L D0,D1 00026fbe 66 ca |f | BNE 0x26f8a 00026fc0 20 4c | L | MOVEA.L A4,A0 00026fc2 e6 99 | | ROR.L #0x3,D1 00026fc4 d0 c1 | | ADDA.W D1,A0 00026fc6 48 41 |HA | SWAP.W D1 00026fc8 e7 59 | Y | ROL.W #0x3,D1 00026fca 30 3c ff 7f |0< | MOVE.W #0xff7f,D0 00026fce e2 78 | x | ROR.W D1,D0 00026fd0 c1 10 | | AND.B D0,(A0) 00026fd2 42 80 |B | CLR.L D0 00026fd4 30 05 |0 | MOVE.W D5,D0 00026fd6 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00026fdc 67 26 |g& | BEQ 0x27004 00026fde 52 80 |R | ADDQ.L #0x1,D0 00026fe0 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00026fe6 63 02 |c | BLS 0x26fea 00026fe8 4e 4f |NO | TRAP #15 00026fea 3a 00 |: | MOVE.W D0,D5 00026fec 42 80 |B | CLR.L D0 00026fee 30 05 |0 | MOVE.W D5,D0 00026ff0 20 4c | L | MOVEA.L A4,A0 00026ff2 e6 98 | | ROR.L #0x3,D0 00026ff4 d0 c0 | | ADDA.W D0,A0 00026ff6 48 40 |H@ | SWAP.W D0 00026ff8 e7 58 | X | ROL.W #0x3,D0 00026ffa 32 3c ff 7f |2< | MOVE.W #0xff7f,D1 00026ffe e0 79 | y | ROR.W D0,D1 00027000 c3 10 | | AND.B D1,(A0) 00027002 60 ce |` | BRA 0x26fd2 00027004 70 00 |p | MOVEQ.L #0x00,D0 00027006 2f 00 |/ | MOVE.L D0,-(A7) 00027008 0c 80 00 00 07 ff | | CMPI.L #0x000007ff,D0 0002700e 63 02 |c | BLS 0x27012 00027010 4e 4f |NO | TRAP #15 00027012 22 00 |" | MOVE.L D0,D1 00027014 e5 81 | | ASL.L #0x2,D1 00027016 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 0002701c 41 f0 18 00 |A | LEA.L (A0+D1.L),A0 00027020 42 81 |B | CLR.L D1 00027022 32 28 04 4c |2( L | MOVE.W (A0+0x44c),D1 00027026 e5 49 | I | LSL.W #0x2,D1 00027028 e4 49 | I | LSR.W #0x2,D1 0002702a b2 ae ff fc | | CMP.L (A6-0x4),D1 0002702e 62 00 00 c6 |b | BHI 0x270f6 00027032 42 82 |B | CLR.L D2 00027034 14 28 04 4e | ( N | MOVE.B (A0+0x44e),D2 00027038 0c 42 00 ff | B | CMPI.W #0x00ff,D2 0002703c 66 08 |f | BNE 0x27046 0002703e 3e 39 00 01 00 0c |>9 | MOVE.W 0x1000c,D7 00027044 60 16 |` | BRA 0x2705c 00027046 42 83 |B | CLR.L D3 00027048 16 28 04 4f | ( O | MOVE.B (A0+0x44f),D3 0002704c 0c 43 00 ff | C | CMPI.W #0x00ff,D3 00027050 66 08 |f | BNE 0x2705a 00027052 3e 39 00 01 00 0a |>9 | MOVE.W 0x1000a,D7 00027058 60 02 |` | BRA 0x2705c 0002705a 7e 01 |~ | MOVEQ.L #0x01,D7 0002705c 28 01 |( | MOVE.L D1,D4 0002705e 42 83 |B | CLR.L D3 00027060 36 39 00 01 00 0c |69 | MOVE.W 0x1000c,D3 00027066 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 0002706c 0c 84 00 00 ff ff | | CMPI.L #0x0000ffff,D4 00027072 63 02 |c | BLS 0x27076 00027074 4e 4f |NO | TRAP #15 00027076 3c 04 |< | MOVE.W D4,D6 00027078 0c 42 00 ff | B | CMPI.W #0x00ff,D2 0002707c 67 3a |g: | BEQ 0x270b8 0002707e c4 f9 00 01 00 0a | | MULU.W 0x1000a,D2 00027084 42 81 |B | CLR.L D1 00027086 32 06 |2 | MOVE.W D6,D1 00027088 d4 81 | | ADD.L D1,D2 0002708a 0c 82 00 00 ff ff | | CMPI.L #0x0000ffff,D2 00027090 63 02 |c | BLS 0x27094 00027092 4e 4f |NO | TRAP #15 00027094 3c 02 |< | MOVE.W D2,D6 00027096 42 81 |B | CLR.L D1 00027098 12 28 04 4f | ( O | MOVE.B (A0+0x44f),D1 0002709c 0c 41 00 ff | A | CMPI.W #0x00ff,D1 000270a0 67 16 |g | BEQ 0x270b8 000270a2 e2 41 | A | ASR.W #0x1,D1 000270a4 42 82 |B | CLR.L D2 000270a6 34 06 |4 | MOVE.W D6,D2 000270a8 48 c1 |H | EXTW.L D1 000270aa d2 82 | | ADD.L D2,D1 000270ac 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 000270b2 63 02 |c | BLS 0x270b6 000270b4 4e 4f |NO | TRAP #15 000270b6 3c 01 |< | MOVE.W D1,D6 000270b8 4a 46 |JF | TST.W D6 000270ba 67 3a |g: | BEQ 0x270f6 000270bc 42 80 |B | CLR.L D0 000270be 30 06 |0 | MOVE.W D6,D0 000270c0 20 4c | L | MOVEA.L A4,A0 000270c2 22 00 |" | MOVE.L D0,D1 000270c4 e6 99 | | ROR.L #0x3,D1 000270c6 d0 c1 | | ADDA.W D1,A0 000270c8 48 41 |HA | SWAP.W D1 000270ca e7 59 | Y | ROL.W #0x3,D1 000270cc 34 3c ff 7f |4< | MOVE.W #0xff7f,D2 000270d0 e2 7a | z | ROR.W D1,D2 000270d2 c5 10 | | AND.B D2,(A0) 000270d4 52 80 |R | ADDQ.L #0x1,D0 000270d6 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000270dc 63 02 |c | BLS 0x270e0 000270de 4e 4f |NO | TRAP #15 000270e0 3c 00 |< | MOVE.W D0,D6 000270e2 42 80 |B | CLR.L D0 000270e4 30 07 |0 | MOVE.W D7,D0 000270e6 53 80 |S | SUBQ.L #0x1,D0 000270e8 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000270ee 63 02 |c | BLS 0x270f2 000270f0 4e 4f |NO | TRAP #15 000270f2 3e 00 |> | MOVE.W D0,D7 000270f4 66 c6 |f | BNE 0x270bc 000270f6 20 17 | | MOVE.L (A7),D0 000270f8 52 80 |R | ADDQ.L #0x1,D0 000270fa 0c 80 00 00 07 ff | | CMPI.L #0x000007ff,D0 00027100 6e 06 |n | BGT 0x27108 00027102 58 4f |XO | ADDQ.L #0x4,A7 00027104 60 00 ff 00 |` | BRA 0x27006 00027108 58 4f |XO | ADDQ.L #0x4,A7 0002710a 41 fa a4 20 |A | LEA.L 0x2152c,A0 0002710e 70 08 |p | MOVEQ.L #0x08,D0 00027110 3f 20 |? | MOVE.W -(A0),-(A7) 00027112 51 c8 ff fc |Q | DBF D0,0x27110 00027116 59 4f |YO | SUBQ.L #0x4,A7 00027118 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002711c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00027120 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00027124 4e 93 |N | JSR (A3) 00027126 50 4f |PO | ADDQ.L #0x8,A7 00027128 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002712e de fc 00 16 | | ADDA.W #0x16,A7 00027132 42 12 |B | CLR.B (A2) 00027134 7c 00 || | MOVEQ.L #0x00,D6 00027136 7e 00 |~ | MOVEQ.L #0x00,D7 00027138 3a 3c ff ff |:< | MOVE.W #0xffff,D5 0002713c 42 80 |B | CLR.L D0 0002713e 30 05 |0 | MOVE.W D5,D0 00027140 20 4c | L | MOVEA.L A4,A0 00027142 e6 98 | | ROR.L #0x3,D0 00027144 d0 c0 | | ADDA.W D0,A0 00027146 48 40 |H@ | SWAP.W D0 00027148 e7 58 | X | ROL.W #0x3,D0 0002714a 12 10 | | MOVE.B (A0),D1 0002714c e1 29 | ) | LSL.B D0,D1 0002714e ee 09 | | LSR.B #0x7,D1 00027150 67 16 |g | BEQ 0x27168 00027152 42 80 |B | CLR.L D0 00027154 30 07 |0 | MOVE.W D7,D0 00027156 52 80 |R | ADDQ.L #0x1,D0 00027158 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 0002715e 63 02 |c | BLS 0x27162 00027160 4e 4f |NO | TRAP #15 00027162 3e 00 |> | MOVE.W D0,D7 00027164 14 bc 00 01 | | MOVE.B #0x01,(A2) 00027168 42 80 |B | CLR.L D0 0002716a 30 05 |0 | MOVE.W D5,D0 0002716c 20 4c | L | MOVEA.L A4,A0 0002716e 22 00 |" | MOVE.L D0,D1 00027170 e6 99 | | ROR.L #0x3,D1 00027172 d0 c1 | | ADDA.W D1,A0 00027174 48 41 |HA | SWAP.W D1 00027176 e7 59 | Y | ROL.W #0x3,D1 00027178 14 10 | | MOVE.B (A0),D2 0002717a e3 2a | * | LSL.B D1,D2 0002717c ee 0a | | LSR.B #0x7,D2 0002717e 66 04 |f | BNE 0x27184 00027180 4a 12 |J | TST.B (A2) 00027182 66 06 |f | BNE 0x2718a 00027184 0c 47 40 00 | G@ | CMPI.W #0x4000,D7 00027188 66 7a |fz | BNE 0x27204 0002718a 3d 46 df e6 |=F | MOVE.W D6,(A6-0x201a) 0002718e 3d 47 df e4 |=G | MOVE.W D7,(A6-0x201c) 00027192 23 ee df e4 00 01 00 22 |# "| MOVE.L (A6-0x201c),0x10022 0002719a 0c 47 40 00 | G@ | CMPI.W #0x4000,D7 0002719e 66 02 |f | BNE 0x271a2 000271a0 60 0c |` | BRA 0x271ae 000271a2 52 80 |R | ADDQ.L #0x1,D0 000271a4 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000271aa 63 02 |c | BLS 0x271ae 000271ac 4e 4f |NO | TRAP #15 000271ae 3c 00 |< | MOVE.W D0,D6 000271b0 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000271b4 3f 06 |? | MOVE.W D6,-(A7) 000271b6 48 78 00 01 |Hx | PEA.L 0x1 000271ba 41 ee df e4 |A | LEA.L (A6-0x201c),A0 000271be 2f 08 |/ | MOVE.L A0,-(A7) 000271c0 48 6e df e9 |Hn | PEA.L (A6-0x2017) 000271c4 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 000271ca de fc 00 10 | | ADDA.W #0x10,A7 000271ce 4a 2e df e9 |J. | TST.B (A6-0x2017) 000271d2 66 2c |f, | BNE 0x27200 000271d4 9e fc 00 38 | 8 | SUBA.W #0x38,A7 000271d8 20 4f | O | MOVEA.L A7,A0 000271da 43 fa a2 ee |C | LEA.L 0x214ca,A1 000271de 70 36 |p6 | MOVEQ.L #0x36,D0 000271e0 10 d9 | | MOVE.B (A1)+,(A0)+ 000271e2 51 c8 ff fc |Q | DBF D0,0x271e0 000271e6 59 4f |YO | SUBQ.L #0x4,A7 000271e8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000271ec 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000271f0 3f 3c 00 37 |?< 7 | MOVE.W #0x37,-(A7) 000271f4 4e 93 |N | JSR (A3) 000271f6 50 4f |PO | ADDQ.L #0x8,A7 000271f8 4e ba b2 d2 |N | JSR 0x224cc 000271fc de fc 00 3c | < | ADDA.W #0x3c,A7 00027200 7e 00 |~ | MOVEQ.L #0x00,D7 00027202 42 12 |B | CLR.B (A2) 00027204 42 80 |B | CLR.L D0 00027206 30 05 |0 | MOVE.W D5,D0 00027208 53 80 |S | SUBQ.L #0x1,D0 0002720a 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00027210 63 02 |c | BLS 0x27214 00027212 4e 4f |NO | TRAP #15 00027214 3a 00 |: | MOVE.W D0,D5 00027216 66 00 ff 24 |f $ | BNE 0x2713c 0002721a 33 c6 00 01 00 10 |3 | MOVE.W D6,0x10010 00027220 4e b9 00 01 03 90 |N | JSR WriteFreeList(void) 00027226 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002722a 4e 5e |N^ | UNLK A6 0002722c 4e 75 |Nu | RTS 0002722e ; -------------------------------------------------------------------------------------- 0002722e ; OMSI PASCAL Function 0002722e ; <LVAR -0x005 @ 1(r)> 0002722e ; <LVAR -0x006 @ 1(r)> 0002722e ; <LVAR -0x00a @ 4(r)> 0002722e ; <LVAR -0x00c @ 2(rw)> 0002722e ; -------------------------------------------------------------------------------------- 0002722e 4e 56 ff 60 |NV ` | LINK.W A6,#0xff60 00027232 bf d5 | | CMPA.L (A5),A7 00027234 62 06 |b | BHI 0x2723c 00027236 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002723a 4e 76 |Nv | TRAPV 0002723c de fc 00 88 | | ADDA.W #0x88,A7 00027240 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00027244 45 ee ff f6 |E | LEA.L (A6-0xa),A2 00027248 47 ee ff fa |G | LEA.L (A6-0x6),A3 0002724c 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 00027252 74 01 |t | MOVEQ.L #0x01,D2 00027254 76 07 |v | MOVEQ.L #0x07,D3 00027256 78 38 |x8 | MOVEQ.L #0x38,D4 00027258 41 fa a3 68 |A h | LEA.L 0x215c2,A0 0002725c 70 12 |p | MOVEQ.L #0x12,D0 0002725e 3f 20 |? | MOVE.W -(A0),-(A7) 00027260 51 c8 ff fc |Q | DBF D0,0x2725e 00027264 59 4f |YO | SUBQ.L #0x4,A7 00027266 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002726a 3f 02 |? | MOVE.W D2,-(A7) 0002726c 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 00027270 4e 94 |N | JSR (A4) 00027272 50 4f |PO | ADDQ.L #0x8,A7 00027274 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002727a de fc 00 2a | * | ADDA.W #0x2a,A7 0002727e 48 52 |HR | PEA.L (A2) 00027280 48 78 00 4d |Hx M | PEA.L 0x4d 00027284 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 0002728a 50 4f |PO | ADDQ.L #0x8,A7 0002728c 20 52 | R | MOVEA.L (A2),A0 0002728e 31 7c 01 00 00 20 |1| | MOVE.W #0x100,(A0+0x20) 00027294 7c 00 || | MOVEQ.L #0x00,D6 00027296 2f 12 |/ | MOVE.L (A2),-(A7) 00027298 1f 02 | | MOVE.B D2,-(A7) 0002729a 48 6e ff fb |Hn | PEA.L (A6-0x5) 0002729e 4e b9 00 01 03 78 |N x | JSR FS10378(MOD a : File; b: Byte; VAR c: Bool) 000272a4 de fc 00 0a | | ADDA.W #0xa,A7 000272a8 4a 2e ff fb |J. | TST.B (A6-0x5) 000272ac 67 30 |g0 | BEQ 0x272de 000272ae 48 52 |HR | PEA.L (A2) 000272b0 48 78 00 4d |Hx M | PEA.L 0x4d 000272b4 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 000272ba 50 4f |PO | ADDQ.L #0x8,A7 000272bc 41 fa a2 a6 |A | LEA.L 0x21564,A0 000272c0 70 0d |p | MOVEQ.L #0x0d,D0 000272c2 2f 20 |/ | MOVE.L -(A0),-(A7) 000272c4 51 c8 ff fc |Q | DBF D0,0x272c2 000272c8 59 4f |YO | SUBQ.L #0x4,A7 000272ca 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000272ce 3f 02 |? | MOVE.W D2,-(A7) 000272d0 3f 04 |? | MOVE.W D4,-(A7) 000272d2 4e 94 |N | JSR (A4) 000272d4 50 4f |PO | ADDQ.L #0x8,A7 000272d6 4e ba b1 f4 |N | JSR 0x224cc 000272da de fc 00 3c | < | ADDA.W #0x3c,A7 000272de bc 83 | | CMP.L D3,D6 000272e0 63 02 |c | BLS 0x272e4 000272e2 4e 4f |NO | TRAP #15 000272e4 20 06 | | MOVE.L D6,D0 000272e6 e3 80 | | ASL.L #0x1,D0 000272e8 41 f8 00 00 |A | LEA.L 0x0,A0 000272ec 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 000272f0 d1 fc 00 01 00 12 | | ADDA.L #0x10012,A0 000272f6 22 52 |"R | MOVEA.L (A2),A1 000272f8 30 a9 00 24 |0 $ | MOVE.W (A1+0x24),(A0) 000272fc 52 86 |R | ADDQ.L #0x1,D6 000272fe bc 83 | | CMP.L D3,D6 00027300 6f 94 |o | BLE 0x27296 00027302 48 52 |HR | PEA.L (A2) 00027304 48 78 00 4d |Hx M | PEA.L 0x4d 00027308 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 0002730e 50 4f |PO | ADDQ.L #0x8,A7 00027310 3d 7c ff ff ff f4 |=| | MOVE.W #0xffff,(A6-0xc) 00027316 7e 00 |~ | MOVEQ.L #0x00,D7 00027318 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7 0002731e 63 02 |c | BLS 0x27322 00027320 4e 4f |NO | TRAP #15 00027322 20 07 | | MOVE.L D7,D0 00027324 e3 80 | | ASL.L #0x1,D0 00027326 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 0002732c 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00027330 31 6e ff f4 54 62 |1n Tb | MOVE.W (A6-0xc),(A0+0x5462) 00027336 52 87 |R | ADDQ.L #0x1,D7 00027338 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7 0002733e 6f d8 |o | BLE 0x27318 00027340 7c 00 || | MOVEQ.L #0x00,D6 00027342 7a 00 |z | MOVEQ.L #0x00,D5 00027344 55 4f |UO | SUBQ.L #0x2,A7 00027346 4e b9 00 01 05 f8 |N | JSR Is_machine_type_one() : Bool 0002734c 4a 1f |J | TST.B (A7)+ 0002734e 66 0e |f | BNE 0x2735e 00027350 55 4f |UO | SUBQ.L #0x2,A7 00027352 4e b9 00 01 06 04 |N | JSR Is_machine_type_three() : Bool 00027358 4a 1f |J | TST.B (A7)+ 0002735a 67 00 00 82 |g | BEQ 0x273de 0002735e 7e 00 |~ | MOVEQ.L #0x00,D7 00027360 1f 3c 00 0b | < | MOVE.B #0x0b,-(A7) 00027364 20 05 | | MOVE.L D5,D0 00027366 ef 80 | | ASL.L #0x7,D0 00027368 bc 83 | | CMP.L D3,D6 0002736a 63 02 |c | BLS 0x2736e 0002736c 4e 4f |NO | TRAP #15 0002736e 22 06 |" | MOVE.L D6,D1 00027370 e3 81 | | ASL.L #0x1,D1 00027372 41 f8 00 00 |A | LEA.L 0x0,A0 00027376 41 f0 18 00 |A | LEA.L (A0+D1.L),A0 0002737a d1 fc 00 01 00 12 | | ADDA.L #0x10012,A0 00027380 42 81 |B | CLR.L D1 00027382 32 10 |2 | MOVE.W (A0),D1 00027384 d0 81 | | ADD.L D1,D0 00027386 d0 87 | | ADD.L D7,D0 00027388 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 0002738e 63 02 |c | BLS 0x27392 00027390 4e 4f |NO | TRAP #15 00027392 3f 00 |? | MOVE.W D0,-(A7) 00027394 48 78 00 01 |Hx | PEA.L 0x1 00027398 41 ee ff f4 |A | LEA.L (A6-0xc),A0 0002739c 2f 08 |/ | MOVE.L A0,-(A7) 0002739e 48 53 |HS | PEA.L (A3) 000273a0 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 000273a6 de fc 00 10 | | ADDA.W #0x10,A7 000273aa 4a 13 |J | TST.B (A3) 000273ac 66 22 |f" | BNE 0x273d0 000273ae 41 fa a1 ec |A | LEA.L 0x2159c,A0 000273b2 70 0d |p | MOVEQ.L #0x0d,D0 000273b4 2f 20 |/ | MOVE.L -(A0),-(A7) 000273b6 51 c8 ff fc |Q | DBF D0,0x273b4 000273ba 59 4f |YO | SUBQ.L #0x4,A7 000273bc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000273c0 3f 02 |? | MOVE.W D2,-(A7) 000273c2 3f 04 |? | MOVE.W D4,-(A7) 000273c4 4e 94 |N | JSR (A4) 000273c6 50 4f |PO | ADDQ.L #0x8,A7 000273c8 4e ba b1 02 |N | JSR 0x224cc 000273cc de fc 00 3c | < | ADDA.W #0x3c,A7 000273d0 52 87 |R | ADDQ.L #0x1,D7 000273d2 0c 87 00 00 00 7f | | CMPI.L #0x0000007f,D7 000273d8 6f 86 |o | BLE 0x27360 000273da 60 00 00 fe |` | BRA 0x274da 000273de 55 4f |UO | SUBQ.L #0x2,A7 000273e0 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 000273e6 4a 1f |J | TST.B (A7)+ 000273e8 67 00 00 82 |g | BEQ 0x2746c 000273ec 7e 00 |~ | MOVEQ.L #0x00,D7 000273ee 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000273f2 20 05 | | MOVE.L D5,D0 000273f4 ef 80 | | ASL.L #0x7,D0 000273f6 bc 83 | | CMP.L D3,D6 000273f8 63 02 |c | BLS 0x273fc 000273fa 4e 4f |NO | TRAP #15 000273fc 22 06 |" | MOVE.L D6,D1 000273fe e3 81 | | ASL.L #0x1,D1 00027400 41 f8 00 00 |A | LEA.L 0x0,A0 00027404 41 f0 18 00 |A | LEA.L (A0+D1.L),A0 00027408 d1 fc 00 01 00 12 | | ADDA.L #0x10012,A0 0002740e 42 81 |B | CLR.L D1 00027410 32 10 |2 | MOVE.W (A0),D1 00027412 d0 81 | | ADD.L D1,D0 00027414 d0 87 | | ADD.L D7,D0 00027416 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 0002741c 63 02 |c | BLS 0x27420 0002741e 4e 4f |NO | TRAP #15 00027420 3f 00 |? | MOVE.W D0,-(A7) 00027422 48 78 00 01 |Hx | PEA.L 0x1 00027426 41 f9 00 02 ea 1a |A | LEA.L 0x2ea1a,A0 0002742c 2f 08 |/ | MOVE.L A0,-(A7) 0002742e 48 53 |HS | PEA.L (A3) 00027430 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 00027436 de fc 00 10 | | ADDA.W #0x10,A7 0002743a 4a 13 |J | TST.B (A3) 0002743c 66 22 |f" | BNE 0x27460 0002743e 41 fa a1 5c |A \ | LEA.L 0x2159c,A0 00027442 70 0d |p | MOVEQ.L #0x0d,D0 00027444 2f 20 |/ | MOVE.L -(A0),-(A7) 00027446 51 c8 ff fc |Q | DBF D0,0x27444 0002744a 59 4f |YO | SUBQ.L #0x4,A7 0002744c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00027450 3f 02 |? | MOVE.W D2,-(A7) 00027452 3f 04 |? | MOVE.W D4,-(A7) 00027454 4e 94 |N | JSR (A4) 00027456 50 4f |PO | ADDQ.L #0x8,A7 00027458 4e ba b0 72 |N r | JSR 0x224cc 0002745c de fc 00 3c | < | ADDA.W #0x3c,A7 00027460 52 87 |R | ADDQ.L #0x1,D7 00027462 0c 87 00 00 00 7f | | CMPI.L #0x0000007f,D7 00027468 6f 84 |o | BLE 0x273ee 0002746a 60 6e |`n | BRA 0x274da 0002746c 1f 3c 00 0b | < | MOVE.B #0x0b,-(A7) 00027470 20 05 | | MOVE.L D5,D0 00027472 ef 80 | | ASL.L #0x7,D0 00027474 bc 83 | | CMP.L D3,D6 00027476 63 02 |c | BLS 0x2747a 00027478 4e 4f |NO | TRAP #15 0002747a 22 06 |" | MOVE.L D6,D1 0002747c e3 81 | | ASL.L #0x1,D1 0002747e 41 f8 00 00 |A | LEA.L 0x0,A0 00027482 41 f0 18 00 |A | LEA.L (A0+D1.L),A0 00027486 d1 fc 00 01 00 12 | | ADDA.L #0x10012,A0 0002748c 42 81 |B | CLR.L D1 0002748e 32 10 |2 | MOVE.W (A0),D1 00027490 d0 81 | | ADD.L D1,D0 00027492 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00027498 63 02 |c | BLS 0x2749c 0002749a 4e 4f |NO | TRAP #15 0002749c 3f 00 |? | MOVE.W D0,-(A7) 0002749e 48 78 00 80 |Hx | PEA.L 0x80 000274a2 41 ee ff f4 |A | LEA.L (A6-0xc),A0 000274a6 2f 08 |/ | MOVE.L A0,-(A7) 000274a8 48 53 |HS | PEA.L (A3) 000274aa 4e b9 00 01 03 6c |N l | JSR RW_Sectors(oper : B; lba : Word; cnt : L; ptr : Pointer; VAR status : B) 000274b0 de fc 00 10 | | ADDA.W #0x10,A7 000274b4 4a 13 |J | TST.B (A3) 000274b6 66 22 |f" | BNE 0x274da 000274b8 41 fa a0 e2 |A | LEA.L 0x2159c,A0 000274bc 70 0d |p | MOVEQ.L #0x0d,D0 000274be 2f 20 |/ | MOVE.L -(A0),-(A7) 000274c0 51 c8 ff fc |Q | DBF D0,0x274be 000274c4 59 4f |YO | SUBQ.L #0x4,A7 000274c6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000274ca 3f 02 |? | MOVE.W D2,-(A7) 000274cc 3f 04 |? | MOVE.W D4,-(A7) 000274ce 4e 94 |N | JSR (A4) 000274d0 50 4f |PO | ADDQ.L #0x8,A7 000274d2 4e ba af f8 |N | JSR 0x224cc 000274d6 de fc 00 3c | < | ADDA.W #0x3c,A7 000274da 52 85 |R | ADDQ.L #0x1,D5 000274dc ba 82 | | CMP.L D2,D5 000274de 6f 00 fe 64 |o d | BLE 0x27344 000274e2 52 86 |R | ADDQ.L #0x1,D6 000274e4 bc 83 | | CMP.L D3,D6 000274e6 6f 00 fe 5a |o Z | BLE 0x27342 000274ea 4e b9 00 01 03 90 |N | JSR WriteFreeList(void) 000274f0 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000274f4 4e 5e |N^ | UNLK A6 000274f6 4e 75 |Nu | RTS 000274f8 ; -------------------------------------------------------------------------------------- 000274f8 ; OMSI PASCAL Function 000274f8 ; <LVAR -0x400 @> 000274f8 ; <LVAR -0x402 @ 1(rw)> 000274f8 ; <LVAR -0x40c @ 1(r)> 000274f8 ; <LVAR -0x410 @ 4(r)> 000274f8 ; <LVAR -0x414 @ 4(rw)> 000274f8 ; -------------------------------------------------------------------------------------- 000274f8 4e 56 fb 6e |NV n | LINK.W A6,#0xfb6e 000274fc bf d5 | | CMPA.L (A5),A7 000274fe 62 06 |b | BHI 0x27506 00027500 44 fc 00 02 |D | MOVE.W #0x2,CCR 00027504 4e 76 |Nv | TRAPV 00027506 de fc 00 7e | ~ | ADDA.W #0x7e,A7 0002750a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002750e 45 fa ae 88 |E | LEA.L 0x22398,A2 00027512 47 ee fb fe |G | LEA.L (A6-0x402),A3 00027516 49 ee fb f0 |I | LEA.L (A6-0x410),A4 0002751a 72 01 |r | MOVEQ.L #0x01,D1 0002751c 74 0a |t | MOVEQ.L #0x0a,D2 0002751e 7a 14 |z | MOVEQ.L #0x14,D5 00027520 41 fa a1 cc |A | LEA.L 0x216ee,A0 00027524 70 0c |p | MOVEQ.L #0x0c,D0 00027526 3f 20 |? | MOVE.W -(A0),-(A7) 00027528 51 c8 ff fc |Q | DBF D0,0x27526 0002752c 59 4f |YO | SUBQ.L #0x4,A7 0002752e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00027532 3f 01 |? | MOVE.W D1,-(A7) 00027534 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 00027538 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002753e 50 4f |PO | ADDQ.L #0x8,A7 00027540 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00027546 de fc 00 1e | | ADDA.W #0x1e,A7 0002754a 23 c1 00 02 00 20 |# | MOVE.L D1,0x20020 00027550 23 c1 00 01 00 26 |# & | MOVE.L D1,0x10026 00027556 7c 01 || | MOVEQ.L #0x01,D6 00027558 20 06 | | MOVE.L D6,D0 0002755a 53 80 |S | SUBQ.L #0x1,D0 0002755c b0 82 | | CMP.L D2,D0 0002755e 63 02 |c | BLS 0x27562 00027560 4e 4f |NO | TRAP #15 00027562 28 00 |( | MOVE.L D0,D4 00027564 76 1c |v | MOVEQ.L #0x1c,D3 00027566 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 0002756c 20 4a | J | MOVEA.L A2,A0 0002756e 9e c5 | | SUBA.W D5,A7 00027570 22 4f |"O | MOVEA.L A7,A1 00027572 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00027576 70 13 |p | MOVEQ.L #0x13,D0 00027578 12 d8 | | MOVE.B (A0)+,(A1)+ 0002757a 51 c8 ff fc |Q | DBF D0,0x27578 0002757e 59 4f |YO | SUBQ.L #0x4,A7 00027580 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00027584 3f 01 |? | MOVE.W D1,-(A7) 00027586 3f 05 |? | MOVE.W D5,-(A7) 00027588 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002758e 50 4f |PO | ADDQ.L #0x8,A7 00027590 2d 5f fb ec |-_ | MOVE.L (A7)+,(A6-0x414) 00027594 de fc 00 0c | | ADDA.W #0xc,A7 00027598 2e ae fb ec |. | MOVE.L (A6-0x414),(A7) 0002759c 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000275a2 58 4f |XO | ADDQ.L #0x4,A7 000275a4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000275aa 2e ae fb ec |. | MOVE.L (A6-0x414),(A7) 000275ae 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000275b2 1f 01 | | MOVE.B D1,-(A7) 000275b4 20 4a | J | MOVEA.L A2,A0 000275b6 42 80 |B | CLR.L D0 000275b8 30 30 48 1a |00H | MOVE.W (A0+D4.L+#0x1a),D0 000275bc 44 80 |D | NEG.L D0 000275be 2f 00 |/ | MOVE.L D0,-(A7) 000275c0 48 53 |HS | PEA.L (A3) 000275c2 48 54 |HT | PEA.L (A4) 000275c4 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000275ca de c5 | | ADDA.W D5,A7 000275cc 4a 13 |J | TST.B (A3) 000275ce 67 04 |g | BEQ 0x275d4 000275d0 60 00 01 50 |` P | BRA 0x27722 000275d4 20 54 | T | MOVEA.L (A4),A0 000275d6 20 06 | | MOVE.L D6,D0 000275d8 53 80 |S | SUBQ.L #0x1,D0 000275da b0 82 | | CMP.L D2,D0 000275dc 63 02 |c | BLS 0x275e0 000275de 4e 4f |NO | TRAP #15 000275e0 28 00 |( | MOVE.L D0,D4 000275e2 76 1c |v | MOVEQ.L #0x1c,D3 000275e4 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000275ea 22 4a |"J | MOVEA.L A2,A1 000275ec 30 31 48 18 |01H | MOVE.W (A1+D4.L+#0x18),D0 000275f0 0c 40 00 62 | @ b | CMPI.W #0x0062,D0 000275f4 66 04 |f | BNE 0x275fa 000275f6 42 68 00 24 |Bh $ | CLR.W (A0+0x24) 000275fa 83 28 00 3f | ( ? | OR.B D1,(A0+0x3f) 000275fe 22 4a |"J | MOVEA.L A2,A1 00027600 10 31 48 16 | 1H | MOVE.B (A1+D4.L+#0x16),D0 00027604 02 28 00 fb 00 3f | ( ? | ANDI.B #0xfb,(A0+0x3f) 0002760a e5 08 | | LSL.B #0x2,D0 0002760c 81 28 00 3f | ( ? | OR.B D0,(A0+0x3f) 00027610 22 4a |"J | MOVEA.L A2,A1 00027612 10 31 48 15 | 1H | MOVE.B (A1+D4.L+#0x15),D0 00027616 02 28 00 fd 00 3f | ( ? | ANDI.B #0xfd,(A0+0x3f) 0002761c e3 08 | | LSL.B #0x1,D0 0002761e 81 28 00 3f | ( ? | OR.B D0,(A0+0x3f) 00027622 20 54 | T | MOVEA.L (A4),A0 00027624 11 41 00 4c | A L | MOVE.B D1,(A0+0x4c) 00027628 20 06 | | MOVE.L D6,D0 0002762a 53 80 |S | SUBQ.L #0x1,D0 0002762c b0 82 | | CMP.L D2,D0 0002762e 63 02 |c | BLS 0x27632 00027630 4e 4f |NO | TRAP #15 00027632 28 00 |( | MOVE.L D0,D4 00027634 76 1c |v | MOVEQ.L #0x1c,D3 00027636 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 0002763c 20 4a | J | MOVEA.L A2,A0 0002763e 4a 30 48 14 |J0H | TST.B (A0+D4.L+#0x14) 00027642 67 6a |gj | BEQ 0x276ae 00027644 3f 01 |? | MOVE.W D1,-(A7) 00027646 20 4a | J | MOVEA.L A2,A0 00027648 42 80 |B | CLR.L D0 0002764a 30 30 48 18 |00H | MOVE.W (A0+D4.L+#0x18),D0 0002764e eb 80 | | ASL.L #0x5,D0 00027650 52 80 |R | ADDQ.L #0x1,D0 00027652 0c 80 00 00 01 ff | | CMPI.L #0x000001ff,D0 00027658 63 02 |c | BLS 0x2765c 0002765a 4e 4f |NO | TRAP #15 0002765c 3f 00 |? | MOVE.W D0,-(A7) 0002765e 2f 14 |/ | MOVE.L (A4),-(A7) 00027660 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00027664 48 6e fb f4 |Hn | PEA.L (A6-0x40c) 00027668 4e b9 00 01 03 74 |N t | JSR WriteWords(lba : W; offset : W; ptr : L; nwords : W; VAR status : B) 0002766e de fc 00 0e | | ADDA.W #0xe,A7 00027672 4a 2e fb f4 |J. | TST.B (A6-0x40c) 00027676 66 36 |f6 | BNE 0x276ae 00027678 9e fc 00 36 | 6 | SUBA.W #0x36,A7 0002767c 20 4f | O | MOVEA.L A7,A0 0002767e 43 fa 9f 42 |C B | LEA.L 0x215c2,A1 00027682 70 34 |p4 | MOVEQ.L #0x34,D0 00027684 10 d9 | | MOVE.B (A1)+,(A0)+ 00027686 51 c8 ff fc |Q | DBF D0,0x27684 0002768a 59 4f |YO | SUBQ.L #0x4,A7 0002768c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00027690 3f 01 |? | MOVE.W D1,-(A7) 00027692 3f 3c 00 35 |?< 5 | MOVE.W #0x35,-(A7) 00027696 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002769c 50 4f |PO | ADDQ.L #0x8,A7 0002769e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000276a4 de fc 00 3a | : | ADDA.W #0x3a,A7 000276a8 16 bc 00 0c | | MOVE.B #0x0c,(A3) 000276ac 60 74 |`t | BRA 0x27722 000276ae 20 06 | | MOVE.L D6,D0 000276b0 53 80 |S | SUBQ.L #0x1,D0 000276b2 b0 82 | | CMP.L D2,D0 000276b4 63 02 |c | BLS 0x276b8 000276b6 4e 4f |NO | TRAP #15 000276b8 28 00 |( | MOVE.L D0,D4 000276ba 76 1c |v | MOVEQ.L #0x1c,D3 000276bc 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000276c2 20 4a | J | MOVEA.L A2,A0 000276c4 30 30 48 18 |00H | MOVE.W (A0+D4.L+#0x18),D0 000276c8 0c 40 00 63 | @ c | CMPI.W #0x0063,D0 000276cc 66 3e |f> | BNE 0x2770c 000276ce 7e 00 |~ | MOVEQ.L #0x00,D7 000276d0 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7 000276d6 63 02 |c | BLS 0x276da 000276d8 4e 4f |NO | TRAP #15 000276da 20 07 | | MOVE.L D7,D0 000276dc e3 80 | | ASL.L #0x1,D0 000276de 41 ee fb ec |A | LEA.L (A6-0x414),A0 000276e2 42 70 08 14 |Bp | CLR.W (A0+D0.L+#0x14) 000276e6 52 87 |R | ADDQ.L #0x1,D7 000276e8 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7 000276ee 6f e0 |o | BLE 0x276d0 000276f0 2f 14 |/ | MOVE.L (A4),-(A7) 000276f2 42 67 |Bg | CLR.W -(A7) 000276f4 42 67 |Bg | CLR.W -(A7) 000276f6 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 000276fa 1f 01 | | MOVE.B D1,-(A7) 000276fc 41 ee fc 00 |A | LEA.L (A6-0x400),A0 00027700 2f 08 |/ | MOVE.L A0,-(A7) 00027702 48 53 |HS | PEA.L (A3) 00027704 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 0002770a de c5 | | ADDA.W D5,A7 0002770c 42 27 |B' | CLR.B -(A7) 0002770e 1f 01 | | MOVE.B D1,-(A7) 00027710 48 78 00 01 |Hx | PEA.L 0x1 00027714 48 53 |HS | PEA.L (A3) 00027716 48 54 |HT | PEA.L (A4) 00027718 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 0002771e de fc 00 10 | | ADDA.W #0x10,A7 00027722 48 6e fb ec |Hn | PEA.L (A6-0x414) 00027726 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002772c 58 4f |XO | ADDQ.L #0x4,A7 0002772e 52 86 |R | ADDQ.L #0x1,D6 00027730 20 06 | | MOVE.L D6,D0 00027732 53 80 |S | SUBQ.L #0x1,D0 00027734 53 80 |S | SUBQ.L #0x1,D0 00027736 b0 82 | | CMP.L D2,D0 00027738 63 02 |c | BLS 0x2773c 0002773a 4e 4f |NO | TRAP #15 0002773c 28 00 |( | MOVE.L D0,D4 0002773e 76 1c |v | MOVEQ.L #0x1c,D3 00027740 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00027746 20 4a | J | MOVEA.L A2,A0 00027748 30 30 48 18 |00H | MOVE.W (A0+D4.L+#0x18),D0 0002774c 0c 40 00 63 | @ c | CMPI.W #0x0063,D0 00027750 67 06 |g | BEQ 0x27758 00027752 4a 13 |J | TST.B (A3) 00027754 67 00 fe 02 |g | BEQ 0x27558 00027758 4a 13 |J | TST.B (A3) 0002775a 67 2e |g. | BEQ 0x2778a 0002775c 9e fc 00 1a | | SUBA.W #0x1a,A7 00027760 20 4f | O | MOVEA.L A7,A0 00027762 43 fa 9f 8a |C | LEA.L 0x216ee,A1 00027766 70 18 |p | MOVEQ.L #0x18,D0 00027768 10 d9 | | MOVE.B (A1)+,(A0)+ 0002776a 51 c8 ff fc |Q | DBF D0,0x27768 0002776e 59 4f |YO | SUBQ.L #0x4,A7 00027770 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00027774 3f 01 |? | MOVE.W D1,-(A7) 00027776 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 0002777a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00027780 50 4f |PO | ADDQ.L #0x8,A7 00027782 4e ba ad 48 |N H | JSR 0x224cc 00027786 de fc 00 1e | | ADDA.W #0x1e,A7 0002778a 4e b9 00 01 03 90 |N | JSR WriteFreeList(void) 00027790 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00027794 4e 5e |N^ | UNLK A6 00027796 4e 75 |Nu | RTS 00027798 ; -------------------------------------------------------------------------------------- 00027798 ; OMSI PASCAL Function 00027798 ; <LVAR 0x00c 1(rw)> 00027798 ; <LVAR 0x008 @ 4(r)> 00027798 ; <LVAR -0x004 @ 1(r)> 00027798 ; <LVAR -0x008 @> 00027798 ; -------------------------------------------------------------------------------------- 00027798 4e 56 ff dc |NV | LINK.W A6,#0xffdc 0002779c bf d5 | | CMPA.L (A5),A7 0002779e 62 06 |b | BHI 0x277a6 000277a0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000277a4 4e 76 |Nv | TRAPV 000277a6 de fc 00 1c | | ADDA.W #0x1c,A7 000277aa 48 e7 00 80 |H | MOVEM.L A0,-(A7) 000277ae 41 ee ff fc |A | LEA.L (A6-0x4),A0 000277b2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000277b6 42 27 |B' | CLR.B -(A7) 000277b8 42 27 |B' | CLR.B -(A7) 000277ba 48 78 00 00 |Hx | PEA.L 0x0 000277be 48 50 |HP | PEA.L (A0) 000277c0 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000277c4 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000277ca de fc 00 14 | | ADDA.W #0x14,A7 000277ce 4a 10 |J | TST.B (A0) 000277d0 66 18 |f | BNE 0x277ea 000277d2 42 27 |B' | CLR.B -(A7) 000277d4 42 27 |B' | CLR.B -(A7) 000277d6 48 78 00 01 |Hx | PEA.L 0x1 000277da 48 50 |HP | PEA.L (A0) 000277dc 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000277e0 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000277e6 de fc 00 10 | | ADDA.W #0x10,A7 000277ea 48 6e 00 08 |Hn | PEA.L (A6+0x8) 000277ee 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000277f4 58 4f |XO | ADDQ.L #0x4,A7 000277f6 42 2e 00 0c |B. | CLR.B (A6+0xc) 000277fa 4a 10 |J | TST.B (A0) 000277fc 67 04 |g | BEQ 0x27802 000277fe 52 2e 00 0c |R. | ADDQ.B #0x1,(A6+0xc) 00027802 4c df 01 00 |L | MOVEM.L (A7)+,A0 00027806 4e 5e |N^ | UNLK A6 00027808 4e 75 |Nu | RTS 0002780a ; -------------------------------------------------------------------------------------- 0002780a ; OMSI PASCAL Function 0002780a ; -------------------------------------------------------------------------------------- 0002780a 4e 56 ff 62 |NV b | LINK.W A6,#0xff62 0002780e bf d5 | | CMPA.L (A5),A7 00027810 62 06 |b | BHI 0x27818 00027812 44 fc 00 02 |D | MOVE.W #0x2,CCR 00027816 4e 76 |Nv | TRAPV 00027818 de fc 00 9e | | ADDA.W #0x9e,A7 0002781c 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00027820 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00027826 47 fa 9f 26 |G & | LEA.L 0x2174e,A3 0002782a 72 01 |r | MOVEQ.L #0x01,D1 0002782c 74 18 |t | MOVEQ.L #0x18,D2 0002782e 76 17 |v | MOVEQ.L #0x17,D3 00027830 78 46 |xF | MOVEQ.L #0x46,D4 00027832 7a 4a |zJ | MOVEQ.L #0x4a,D5 00027834 7c 12 || | MOVEQ.L #0x12,D6 00027836 7e 32 |~2 | MOVEQ.L #0x32,D7 00027838 55 4f |UO | SUBQ.L #0x2,A7 0002783a 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00027840 4a 1f |J | TST.B (A7)+ 00027842 66 0e |f | BNE 0x27852 00027844 55 4f |UO | SUBQ.L #0x2,A7 00027846 4e b9 00 01 06 04 |N | JSR Is_machine_type_three() : Bool 0002784c 4a 1f |J | TST.B (A7)+ 0002784e 67 00 00 8a |g | BEQ 0x278da 00027852 9e c2 | | SUBA.W D2,A7 00027854 20 4f | O | MOVEA.L A7,A0 00027856 22 4b |"K | MOVEA.L A3,A1 00027858 70 16 |p | MOVEQ.L #0x16,D0 0002785a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002785c 51 c8 ff fc |Q | DBF D0,0x2785a 00027860 5d 4f |]O | SUBQ.L #0x6,A7 00027862 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00027866 3f 01 |? | MOVE.W D1,-(A7) 00027868 3f 03 |? | MOVE.W D3,-(A7) 0002786a 4e 92 |N | JSR (A2) 0002786c 50 4f |PO | ADDQ.L #0x8,A7 0002786e 4e ba ff 28 |N ( | JSR 0x27798 00027872 58 4f |XO | ADDQ.L #0x4,A7 00027874 4a 1f |J | TST.B (A7)+ 00027876 67 22 |g" | BEQ 0x2789a 00027878 20 4b | K | MOVEA.L A3,A0 0002787a 70 22 |p" | MOVEQ.L #0x22,D0 0002787c 3f 20 |? | MOVE.W -(A0),-(A7) 0002787e 51 c8 ff fc |Q | DBF D0,0x2787c 00027882 59 4f |YO | SUBQ.L #0x4,A7 00027884 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00027888 3f 01 |? | MOVE.W D1,-(A7) 0002788a 3f 04 |? | MOVE.W D4,-(A7) 0002788c 4e 92 |N | JSR (A2) 0002788e 50 4f |PO | ADDQ.L #0x8,A7 00027890 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00027896 de c5 | | ADDA.W D5,A7 00027898 60 3c |`< | BRA 0x278d6 0002789a 9e c2 | | SUBA.W D2,A7 0002789c 20 4f | O | MOVEA.L A7,A0 0002789e 43 fa 9e c6 |C | LEA.L 0x21766,A1 000278a2 70 16 |p | MOVEQ.L #0x16,D0 000278a4 10 d9 | | MOVE.B (A1)+,(A0)+ 000278a6 51 c8 ff fc |Q | DBF D0,0x278a4 000278aa 41 fa 9e e4 |A | LEA.L 0x21790,A0 000278ae 70 08 |p | MOVEQ.L #0x08,D0 000278b0 3f 20 |? | MOVE.W -(A0),-(A7) 000278b2 51 c8 ff fc |Q | DBF D0,0x278b0 000278b6 59 4f |YO | SUBQ.L #0x4,A7 000278b8 48 6f 00 16 |Ho | PEA.L (A7+0x16) 000278bc 3f 01 |? | MOVE.W D1,-(A7) 000278be 3f 03 |? | MOVE.W D3,-(A7) 000278c0 4e 92 |N | JSR (A2) 000278c2 58 4f |XO | ADDQ.L #0x4,A7 000278c4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000278c8 3f 01 |? | MOVE.W D1,-(A7) 000278ca 3f 06 |? | MOVE.W D6,-(A7) 000278cc 4e 92 |N | JSR (A2) 000278ce 50 4f |PO | ADDQ.L #0x8,A7 000278d0 4e ba ac 9a |N | JSR 0x2256c 000278d4 de c7 | | ADDA.W D7,A7 000278d6 60 00 00 88 |` | BRA 0x27960 000278da 9e c2 | | SUBA.W D2,A7 000278dc 20 4f | O | MOVEA.L A7,A0 000278de 43 fa 9e b0 |C | LEA.L 0x21790,A1 000278e2 70 16 |p | MOVEQ.L #0x16,D0 000278e4 10 d9 | | MOVE.B (A1)+,(A0)+ 000278e6 51 c8 ff fc |Q | DBF D0,0x278e4 000278ea 5d 4f |]O | SUBQ.L #0x6,A7 000278ec 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000278f0 3f 01 |? | MOVE.W D1,-(A7) 000278f2 3f 03 |? | MOVE.W D3,-(A7) 000278f4 4e 92 |N | JSR (A2) 000278f6 50 4f |PO | ADDQ.L #0x8,A7 000278f8 4e ba fe 9e |N | JSR 0x27798 000278fc 58 4f |XO | ADDQ.L #0x4,A7 000278fe 4a 1f |J | TST.B (A7)+ 00027900 67 22 |g" | BEQ 0x27924 00027902 20 4b | K | MOVEA.L A3,A0 00027904 70 22 |p" | MOVEQ.L #0x22,D0 00027906 3f 20 |? | MOVE.W -(A0),-(A7) 00027908 51 c8 ff fc |Q | DBF D0,0x27906 0002790c 59 4f |YO | SUBQ.L #0x4,A7 0002790e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00027912 3f 01 |? | MOVE.W D1,-(A7) 00027914 3f 04 |? | MOVE.W D4,-(A7) 00027916 4e 92 |N | JSR (A2) 00027918 50 4f |PO | ADDQ.L #0x8,A7 0002791a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00027920 de c5 | | ADDA.W D5,A7 00027922 60 3c |`< | BRA 0x27960 00027924 9e c2 | | SUBA.W D2,A7 00027926 20 4f | O | MOVEA.L A7,A0 00027928 43 fa 9e 7e |C ~ | LEA.L 0x217a8,A1 0002792c 70 16 |p | MOVEQ.L #0x16,D0 0002792e 10 d9 | | MOVE.B (A1)+,(A0)+ 00027930 51 c8 ff fc |Q | DBF D0,0x2792e 00027934 41 fa 9e 9c |A | LEA.L 0x217d2,A0 00027938 70 08 |p | MOVEQ.L #0x08,D0 0002793a 3f 20 |? | MOVE.W -(A0),-(A7) 0002793c 51 c8 ff fc |Q | DBF D0,0x2793a 00027940 59 4f |YO | SUBQ.L #0x4,A7 00027942 48 6f 00 16 |Ho | PEA.L (A7+0x16) 00027946 3f 01 |? | MOVE.W D1,-(A7) 00027948 3f 03 |? | MOVE.W D3,-(A7) 0002794a 4e 92 |N | JSR (A2) 0002794c 58 4f |XO | ADDQ.L #0x4,A7 0002794e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00027952 3f 01 |? | MOVE.W D1,-(A7) 00027954 3f 06 |? | MOVE.W D6,-(A7) 00027956 4e 92 |N | JSR (A2) 00027958 50 4f |PO | ADDQ.L #0x8,A7 0002795a 4e ba ac 10 |N | JSR 0x2256c 0002795e de c7 | | ADDA.W D7,A7 00027960 de c2 | | ADDA.W D2,A7 00027962 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00027966 4e 5e |N^ | UNLK A6 00027968 4e 75 |Nu | RTS 0002796a ; -------------------------------------------------------------------------------------- 0002796a ; OMSI PASCAL Function 0002796a ; -------------------------------------------------------------------------------------- 0002796a 4e 56 ff 38 |NV 8 | LINK.W A6,#0xff38 0002796e bf d5 | | CMPA.L (A5),A7 00027970 62 06 |b | BHI 0x27978 00027972 44 fc 00 02 |D | MOVE.W #0x2,CCR 00027976 4e 76 |Nv | TRAPV 00027978 de fc 00 c8 | | ADDA.W #0xc8,A7 0002797c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00027980 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00027986 47 fa fe 10 |G | LEA.L 0x27798,A3 0002798a 49 fa ab e0 |I | LEA.L 0x2256c,A4 0002798e 72 01 |r | MOVEQ.L #0x01,D1 00027990 74 13 |t | MOVEQ.L #0x13,D2 00027992 76 14 |v | MOVEQ.L #0x14,D3 00027994 78 0e |x | MOVEQ.L #0x0e,D4 00027996 7a 0d |z | MOVEQ.L #0x0d,D5 00027998 7c 16 || | MOVEQ.L #0x16,D6 0002799a 7e 12 |~ | MOVEQ.L #0x12,D7 0002799c 55 4f |UO | SUBQ.L #0x2,A7 0002799e 4e b9 00 01 05 f8 |N | JSR Is_machine_type_one() : Bool 000279a4 4a 1f |J | TST.B (A7)+ 000279a6 67 00 01 64 |g d | BEQ 0x27b0c 000279aa 9e c3 | | SUBA.W D3,A7 000279ac 20 4f | O | MOVEA.L A7,A0 000279ae 43 fa 9e 6a |C j | LEA.L 0x2181a,A1 000279b2 70 12 |p | MOVEQ.L #0x12,D0 000279b4 10 d9 | | MOVE.B (A1)+,(A0)+ 000279b6 51 c8 ff fc |Q | DBF D0,0x279b4 000279ba 9e c3 | | SUBA.W D3,A7 000279bc 20 4f | O | MOVEA.L A7,A0 000279be 43 fa 9e 6e |C n | LEA.L 0x2182e,A1 000279c2 70 12 |p | MOVEQ.L #0x12,D0 000279c4 10 d9 | | MOVE.B (A1)+,(A0)+ 000279c6 51 c8 ff fc |Q | DBF D0,0x279c4 000279ca 9e c3 | | SUBA.W D3,A7 000279cc 20 4f | O | MOVEA.L A7,A0 000279ce 43 fa 9e 72 |C r | LEA.L 0x21842,A1 000279d2 70 12 |p | MOVEQ.L #0x12,D0 000279d4 10 d9 | | MOVE.B (A1)+,(A0)+ 000279d6 51 c8 ff fc |Q | DBF D0,0x279d4 000279da 5d 4f |]O | SUBQ.L #0x6,A7 000279dc 48 6f 00 2e |Ho . | PEA.L (A7+0x2e) 000279e0 3f 01 |? | MOVE.W D1,-(A7) 000279e2 3f 02 |? | MOVE.W D2,-(A7) 000279e4 4e 92 |N | JSR (A2) 000279e6 50 4f |PO | ADDQ.L #0x8,A7 000279e8 4e 93 |N | JSR (A3) 000279ea 58 4f |XO | ADDQ.L #0x4,A7 000279ec 4a 1f |J | TST.B (A7)+ 000279ee 66 2c |f, | BNE 0x27a1c 000279f0 5d 4f |]O | SUBQ.L #0x6,A7 000279f2 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 000279f6 3f 01 |? | MOVE.W D1,-(A7) 000279f8 3f 02 |? | MOVE.W D2,-(A7) 000279fa 4e 92 |N | JSR (A2) 000279fc 50 4f |PO | ADDQ.L #0x8,A7 000279fe 4e 93 |N | JSR (A3) 00027a00 58 4f |XO | ADDQ.L #0x4,A7 00027a02 4a 1f |J | TST.B (A7)+ 00027a04 66 16 |f | BNE 0x27a1c 00027a06 5d 4f |]O | SUBQ.L #0x6,A7 00027a08 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00027a0c 3f 01 |? | MOVE.W D1,-(A7) 00027a0e 3f 02 |? | MOVE.W D2,-(A7) 00027a10 4e 92 |N | JSR (A2) 00027a12 50 4f |PO | ADDQ.L #0x8,A7 00027a14 4e 93 |N | JSR (A3) 00027a16 58 4f |XO | ADDQ.L #0x4,A7 00027a18 4a 1f |J | TST.B (A7)+ 00027a1a 67 30 |g0 | BEQ 0x27a4c 00027a1c 9e fc 00 48 | H | SUBA.W #0x48,A7 00027a20 20 4f | O | MOVEA.L A7,A0 00027a22 43 fa 9d ae |C | LEA.L 0x217d2,A1 00027a26 70 46 |pF | MOVEQ.L #0x46,D0 00027a28 10 d9 | | MOVE.B (A1)+,(A0)+ 00027a2a 51 c8 ff fc |Q | DBF D0,0x27a28 00027a2e 59 4f |YO | SUBQ.L #0x4,A7 00027a30 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00027a34 3f 01 |? | MOVE.W D1,-(A7) 00027a36 3f 3c 00 47 |?< G | MOVE.W #0x47,-(A7) 00027a3a 4e 92 |N | JSR (A2) 00027a3c 50 4f |PO | ADDQ.L #0x8,A7 00027a3e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00027a44 de fc 00 4c | L | ADDA.W #0x4c,A7 00027a48 60 00 00 ba |` | BRA 0x27b04 00027a4c 9e c3 | | SUBA.W D3,A7 00027a4e 20 4f | O | MOVEA.L A7,A0 00027a50 43 fa 9e 04 |C | LEA.L 0x21856,A1 00027a54 70 12 |p | MOVEQ.L #0x12,D0 00027a56 10 d9 | | MOVE.B (A1)+,(A0)+ 00027a58 51 c8 ff fc |Q | DBF D0,0x27a56 00027a5c 9e c4 | | SUBA.W D4,A7 00027a5e 20 4f | O | MOVEA.L A7,A0 00027a60 43 fa 9e 08 |C | LEA.L 0x2186a,A1 00027a64 70 0c |p | MOVEQ.L #0x0c,D0 00027a66 10 d9 | | MOVE.B (A1)+,(A0)+ 00027a68 51 c8 ff fc |Q | DBF D0,0x27a66 00027a6c 59 4f |YO | SUBQ.L #0x4,A7 00027a6e 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00027a72 3f 01 |? | MOVE.W D1,-(A7) 00027a74 3f 02 |? | MOVE.W D2,-(A7) 00027a76 4e 92 |N | JSR (A2) 00027a78 58 4f |XO | ADDQ.L #0x4,A7 00027a7a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00027a7e 3f 01 |? | MOVE.W D1,-(A7) 00027a80 3f 05 |? | MOVE.W D5,-(A7) 00027a82 4e 92 |N | JSR (A2) 00027a84 50 4f |PO | ADDQ.L #0x8,A7 00027a86 4e 94 |N | JSR (A4) 00027a88 de c6 | | ADDA.W D6,A7 00027a8a 20 4f | O | MOVEA.L A7,A0 00027a8c 43 fa 9d ea |C | LEA.L 0x21878,A1 00027a90 70 12 |p | MOVEQ.L #0x12,D0 00027a92 10 d9 | | MOVE.B (A1)+,(A0)+ 00027a94 51 c8 ff fc |Q | DBF D0,0x27a92 00027a98 9e c4 | | SUBA.W D4,A7 00027a9a 20 4f | O | MOVEA.L A7,A0 00027a9c 43 fa 9d ee |C | LEA.L 0x2188c,A1 00027aa0 70 0c |p | MOVEQ.L #0x0c,D0 00027aa2 10 d9 | | MOVE.B (A1)+,(A0)+ 00027aa4 51 c8 ff fc |Q | DBF D0,0x27aa2 00027aa8 59 4f |YO | SUBQ.L #0x4,A7 00027aaa 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00027aae 3f 01 |? | MOVE.W D1,-(A7) 00027ab0 3f 02 |? | MOVE.W D2,-(A7) 00027ab2 4e 92 |N | JSR (A2) 00027ab4 58 4f |XO | ADDQ.L #0x4,A7 00027ab6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00027aba 3f 01 |? | MOVE.W D1,-(A7) 00027abc 3f 05 |? | MOVE.W D5,-(A7) 00027abe 4e 92 |N | JSR (A2) 00027ac0 50 4f |PO | ADDQ.L #0x8,A7 00027ac2 4e 94 |N | JSR (A4) 00027ac4 de c6 | | ADDA.W D6,A7 00027ac6 20 4f | O | MOVEA.L A7,A0 00027ac8 43 fa 9d d0 |C | LEA.L 0x2189a,A1 00027acc 70 12 |p | MOVEQ.L #0x12,D0 00027ace 10 d9 | | MOVE.B (A1)+,(A0)+ 00027ad0 51 c8 ff fc |Q | DBF D0,0x27ace 00027ad4 9e c4 | | SUBA.W D4,A7 00027ad6 20 4f | O | MOVEA.L A7,A0 00027ad8 43 fa 9d d4 |C | LEA.L 0x218ae,A1 00027adc 70 0c |p | MOVEQ.L #0x0c,D0 00027ade 10 d9 | | MOVE.B (A1)+,(A0)+ 00027ae0 51 c8 ff fc |Q | DBF D0,0x27ade 00027ae4 59 4f |YO | SUBQ.L #0x4,A7 00027ae6 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00027aea 3f 01 |? | MOVE.W D1,-(A7) 00027aec 3f 02 |? | MOVE.W D2,-(A7) 00027aee 4e 92 |N | JSR (A2) 00027af0 58 4f |XO | ADDQ.L #0x4,A7 00027af2 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00027af6 3f 01 |? | MOVE.W D1,-(A7) 00027af8 3f 05 |? | MOVE.W D5,-(A7) 00027afa 4e 92 |N | JSR (A2) 00027afc 50 4f |PO | ADDQ.L #0x8,A7 00027afe 4e 94 |N | JSR (A4) 00027b00 de fc 00 2a | * | ADDA.W #0x2a,A7 00027b04 de fc 00 3c | < | ADDA.W #0x3c,A7 00027b08 60 00 05 94 |` | BRA 0x2809e 00027b0c 55 4f |UO | SUBQ.L #0x2,A7 00027b0e 4e b9 00 01 05 fe |N | JSR Is_machine_type_two() : Bool 00027b14 4a 1f |J | TST.B (A7)+ 00027b16 67 00 01 60 |g ` | BEQ 0x27c78 00027b1a 9e c3 | | SUBA.W D3,A7 00027b1c 20 4f | O | MOVEA.L A7,A0 00027b1e 43 fa 9d 9c |C | LEA.L 0x218bc,A1 00027b22 70 12 |p | MOVEQ.L #0x12,D0 00027b24 10 d9 | | MOVE.B (A1)+,(A0)+ 00027b26 51 c8 ff fc |Q | DBF D0,0x27b24 00027b2a 9e c3 | | SUBA.W D3,A7 00027b2c 20 4f | O | MOVEA.L A7,A0 00027b2e 43 fa 9d a0 |C | LEA.L 0x218d0,A1 00027b32 70 12 |p | MOVEQ.L #0x12,D0 00027b34 10 d9 | | MOVE.B (A1)+,(A0)+ 00027b36 51 c8 ff fc |Q | DBF D0,0x27b34 00027b3a 9e c3 | | SUBA.W D3,A7 00027b3c 20 4f | O | MOVEA.L A7,A0 00027b3e 43 fa 9d a4 |C | LEA.L 0x218e4,A1 00027b42 70 12 |p | MOVEQ.L #0x12,D0 00027b44 10 d9 | | MOVE.B (A1)+,(A0)+ 00027b46 51 c8 ff fc |Q | DBF D0,0x27b44 00027b4a 5d 4f |]O | SUBQ.L #0x6,A7 00027b4c 48 6f 00 2e |Ho . | PEA.L (A7+0x2e) 00027b50 3f 01 |? | MOVE.W D1,-(A7) 00027b52 3f 02 |? | MOVE.W D2,-(A7) 00027b54 4e 92 |N | JSR (A2) 00027b56 50 4f |PO | ADDQ.L #0x8,A7 00027b58 4e 93 |N | JSR (A3) 00027b5a 58 4f |XO | ADDQ.L #0x4,A7 00027b5c 4a 1f |J | TST.B (A7)+ 00027b5e 66 2c |f, | BNE 0x27b8c 00027b60 5d 4f |]O | SUBQ.L #0x6,A7 00027b62 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 00027b66 3f 01 |? | MOVE.W D1,-(A7) 00027b68 3f 02 |? | MOVE.W D2,-(A7) 00027b6a 4e 92 |N | JSR (A2) 00027b6c 50 4f |PO | ADDQ.L #0x8,A7 00027b6e 4e 93 |N | JSR (A3) 00027b70 58 4f |XO | ADDQ.L #0x4,A7 00027b72 4a 1f |J | TST.B (A7)+ 00027b74 66 16 |f | BNE 0x27b8c 00027b76 5d 4f |]O | SUBQ.L #0x6,A7 00027b78 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00027b7c 3f 01 |? | MOVE.W D1,-(A7) 00027b7e 3f 02 |? | MOVE.W D2,-(A7) 00027b80 4e 92 |N | JSR (A2) 00027b82 50 4f |PO | ADDQ.L #0x8,A7 00027b84 4e 93 |N | JSR (A3) 00027b86 58 4f |XO | ADDQ.L #0x4,A7 00027b88 4a 1f |J | TST.B (A7)+ 00027b8a 67 30 |g0 | BEQ 0x27bbc 00027b8c 9e fc 00 48 | H | SUBA.W #0x48,A7 00027b90 20 4f | O | MOVEA.L A7,A0 00027b92 43 fa 9c 3e |C > | LEA.L 0x217d2,A1 00027b96 70 46 |pF | MOVEQ.L #0x46,D0 00027b98 10 d9 | | MOVE.B (A1)+,(A0)+ 00027b9a 51 c8 ff fc |Q | DBF D0,0x27b98 00027b9e 59 4f |YO | SUBQ.L #0x4,A7 00027ba0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00027ba4 3f 01 |? | MOVE.W D1,-(A7) 00027ba6 3f 3c 00 47 |?< G | MOVE.W #0x47,-(A7) 00027baa 4e 92 |N | JSR (A2) 00027bac 50 4f |PO | ADDQ.L #0x8,A7 00027bae 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00027bb4 de fc 00 4c | L | ADDA.W #0x4c,A7 00027bb8 60 00 00 ba |` | BRA 0x27c74 00027bbc 9e c3 | | SUBA.W D3,A7 00027bbe 20 4f | O | MOVEA.L A7,A0 00027bc0 43 fa 9d 36 |C 6 | LEA.L 0x218f8,A1 00027bc4 70 12 |p | MOVEQ.L #0x12,D0 00027bc6 10 d9 | | MOVE.B (A1)+,(A0)+ 00027bc8 51 c8 ff fc |Q | DBF D0,0x27bc6 00027bcc 9e c4 | | SUBA.W D4,A7 00027bce 20 4f | O | MOVEA.L A7,A0 00027bd0 43 fa 9d 3a |C : | LEA.L 0x2190c,A1 00027bd4 70 0c |p | MOVEQ.L #0x0c,D0 00027bd6 10 d9 | | MOVE.B (A1)+,(A0)+ 00027bd8 51 c8 ff fc |Q | DBF D0,0x27bd6 00027bdc 59 4f |YO | SUBQ.L #0x4,A7 00027bde 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00027be2 3f 01 |? | MOVE.W D1,-(A7) 00027be4 3f 02 |? | MOVE.W D2,-(A7) 00027be6 4e 92 |N | JSR (A2) 00027be8 58 4f |XO | ADDQ.L #0x4,A7 00027bea 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00027bee 3f 01 |? | MOVE.W D1,-(A7) 00027bf0 3f 05 |? | MOVE.W D5,-(A7) 00027bf2 4e 92 |N | JSR (A2) 00027bf4 50 4f |PO | ADDQ.L #0x8,A7 00027bf6 4e 94 |N | JSR (A4) 00027bf8 de c6 | | ADDA.W D6,A7 00027bfa 20 4f | O | MOVEA.L A7,A0 00027bfc 43 fa 9d 1c |C | LEA.L 0x2191a,A1 00027c00 70 12 |p | MOVEQ.L #0x12,D0 00027c02 10 d9 | | MOVE.B (A1)+,(A0)+ 00027c04 51 c8 ff fc |Q | DBF D0,0x27c02 00027c08 9e c4 | | SUBA.W D4,A7 00027c0a 20 4f | O | MOVEA.L A7,A0 00027c0c 43 fa 9d 20 |C | LEA.L 0x2192e,A1 00027c10 70 0c |p | MOVEQ.L #0x0c,D0 00027c12 10 d9 | | MOVE.B (A1)+,(A0)+ 00027c14 51 c8 ff fc |Q | DBF D0,0x27c12 00027c18 59 4f |YO | SUBQ.L #0x4,A7 00027c1a 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00027c1e 3f 01 |? | MOVE.W D1,-(A7) 00027c20 3f 02 |? | MOVE.W D2,-(A7) 00027c22 4e 92 |N | JSR (A2) 00027c24 58 4f |XO | ADDQ.L #0x4,A7 00027c26 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00027c2a 3f 01 |? | MOVE.W D1,-(A7) 00027c2c 3f 05 |? | MOVE.W D5,-(A7) 00027c2e 4e 92 |N | JSR (A2) 00027c30 50 4f |PO | ADDQ.L #0x8,A7 00027c32 4e 94 |N | JSR (A4) 00027c34 de c6 | | ADDA.W D6,A7 00027c36 20 4f | O | MOVEA.L A7,A0 00027c38 43 fa 9d 02 |C | LEA.L 0x2193c,A1 00027c3c 70 12 |p | MOVEQ.L #0x12,D0 00027c3e 10 d9 | | MOVE.B (A1)+,(A0)+ 00027c40 51 c8 ff fc |Q | DBF D0,0x27c3e 00027c44 9e c4 | | SUBA.W D4,A7 00027c46 20 4f | O | MOVEA.L A7,A0 00027c48 43 fa 9d 06 |C | LEA.L 0x21950,A1 00027c4c 70 0c |p | MOVEQ.L #0x0c,D0 00027c4e 10 d9 | | MOVE.B (A1)+,(A0)+ 00027c50 51 c8 ff fc |Q | DBF D0,0x27c4e 00027c54 59 4f |YO | SUBQ.L #0x4,A7 00027c56 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00027c5a 3f 01 |? | MOVE.W D1,-(A7) 00027c5c 3f 02 |? | MOVE.W D2,-(A7) 00027c5e 4e 92 |N | JSR (A2) 00027c60 58 4f |XO | ADDQ.L #0x4,A7 00027c62 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00027c66 3f 01 |? | MOVE.W D1,-(A7) 00027c68 3f 05 |? | MOVE.W D5,-(A7) 00027c6a 4e 92 |N | JSR (A2) 00027c6c 50 4f |PO | ADDQ.L #0x8,A7 00027c6e 4e 94 |N | JSR (A4) 00027c70 de fc 00 2a | * | ADDA.W #0x2a,A7 00027c74 60 00 fe 8e |` | BRA 0x27b04 00027c78 55 4f |UO | SUBQ.L #0x2,A7 00027c7a 4e b9 00 01 06 04 |N | JSR Is_machine_type_three() : Bool 00027c80 4a 1f |J | TST.B (A7)+ 00027c82 67 00 01 60 |g ` | BEQ 0x27de4 00027c86 9e c3 | | SUBA.W D3,A7 00027c88 20 4f | O | MOVEA.L A7,A0 00027c8a 43 fa 9c d2 |C | LEA.L 0x2195e,A1 00027c8e 70 12 |p | MOVEQ.L #0x12,D0 00027c90 10 d9 | | MOVE.B (A1)+,(A0)+ 00027c92 51 c8 ff fc |Q | DBF D0,0x27c90 00027c96 9e c3 | | SUBA.W D3,A7 00027c98 20 4f | O | MOVEA.L A7,A0 00027c9a 43 fa 9c d6 |C | LEA.L 0x21972,A1 00027c9e 70 12 |p | MOVEQ.L #0x12,D0 00027ca0 10 d9 | | MOVE.B (A1)+,(A0)+ 00027ca2 51 c8 ff fc |Q | DBF D0,0x27ca0 00027ca6 9e c3 | | SUBA.W D3,A7 00027ca8 20 4f | O | MOVEA.L A7,A0 00027caa 43 fa 9c da |C | LEA.L 0x21986,A1 00027cae 70 12 |p | MOVEQ.L #0x12,D0 00027cb0 10 d9 | | MOVE.B (A1)+,(A0)+ 00027cb2 51 c8 ff fc |Q | DBF D0,0x27cb0 00027cb6 5d 4f |]O | SUBQ.L #0x6,A7 00027cb8 48 6f 00 2e |Ho . | PEA.L (A7+0x2e) 00027cbc 3f 01 |? | MOVE.W D1,-(A7) 00027cbe 3f 02 |? | MOVE.W D2,-(A7) 00027cc0 4e 92 |N | JSR (A2) 00027cc2 50 4f |PO | ADDQ.L #0x8,A7 00027cc4 4e 93 |N | JSR (A3) 00027cc6 58 4f |XO | ADDQ.L #0x4,A7 00027cc8 4a 1f |J | TST.B (A7)+ 00027cca 66 2c |f, | BNE 0x27cf8 00027ccc 5d 4f |]O | SUBQ.L #0x6,A7 00027cce 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 00027cd2 3f 01 |? | MOVE.W D1,-(A7) 00027cd4 3f 02 |? | MOVE.W D2,-(A7) 00027cd6 4e 92 |N | JSR (A2) 00027cd8 50 4f |PO | ADDQ.L #0x8,A7 00027cda 4e 93 |N | JSR (A3) 00027cdc 58 4f |XO | ADDQ.L #0x4,A7 00027cde 4a 1f |J | TST.B (A7)+ 00027ce0 66 16 |f | BNE 0x27cf8 00027ce2 5d 4f |]O | SUBQ.L #0x6,A7 00027ce4 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00027ce8 3f 01 |? | MOVE.W D1,-(A7) 00027cea 3f 02 |? | MOVE.W D2,-(A7) 00027cec 4e 92 |N | JSR (A2) 00027cee 50 4f |PO | ADDQ.L #0x8,A7 00027cf0 4e 93 |N | JSR (A3) 00027cf2 58 4f |XO | ADDQ.L #0x4,A7 00027cf4 4a 1f |J | TST.B (A7)+ 00027cf6 67 30 |g0 | BEQ 0x27d28 00027cf8 9e fc 00 48 | H | SUBA.W #0x48,A7 00027cfc 20 4f | O | MOVEA.L A7,A0 00027cfe 43 fa 9a d2 |C | LEA.L 0x217d2,A1 00027d02 70 46 |pF | MOVEQ.L #0x46,D0 00027d04 10 d9 | | MOVE.B (A1)+,(A0)+ 00027d06 51 c8 ff fc |Q | DBF D0,0x27d04 00027d0a 59 4f |YO | SUBQ.L #0x4,A7 00027d0c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00027d10 3f 01 |? | MOVE.W D1,-(A7) 00027d12 3f 3c 00 47 |?< G | MOVE.W #0x47,-(A7) 00027d16 4e 92 |N | JSR (A2) 00027d18 50 4f |PO | ADDQ.L #0x8,A7 00027d1a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00027d20 de fc 00 4c | L | ADDA.W #0x4c,A7 00027d24 60 00 00 ba |` | BRA 0x27de0 00027d28 9e c3 | | SUBA.W D3,A7 00027d2a 20 4f | O | MOVEA.L A7,A0 00027d2c 43 fa 9c 6c |C l | LEA.L 0x2199a,A1 00027d30 70 12 |p | MOVEQ.L #0x12,D0 00027d32 10 d9 | | MOVE.B (A1)+,(A0)+ 00027d34 51 c8 ff fc |Q | DBF D0,0x27d32 00027d38 9e c4 | | SUBA.W D4,A7 00027d3a 20 4f | O | MOVEA.L A7,A0 00027d3c 43 fa 9c 70 |C p | LEA.L 0x219ae,A1 00027d40 70 0c |p | MOVEQ.L #0x0c,D0 00027d42 10 d9 | | MOVE.B (A1)+,(A0)+ 00027d44 51 c8 ff fc |Q | DBF D0,0x27d42 00027d48 59 4f |YO | SUBQ.L #0x4,A7 00027d4a 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00027d4e 3f 01 |? | MOVE.W D1,-(A7) 00027d50 3f 02 |? | MOVE.W D2,-(A7) 00027d52 4e 92 |N | JSR (A2) 00027d54 58 4f |XO | ADDQ.L #0x4,A7 00027d56 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00027d5a 3f 01 |? | MOVE.W D1,-(A7) 00027d5c 3f 05 |? | MOVE.W D5,-(A7) 00027d5e 4e 92 |N | JSR (A2) 00027d60 50 4f |PO | ADDQ.L #0x8,A7 00027d62 4e 94 |N | JSR (A4) 00027d64 de c6 | | ADDA.W D6,A7 00027d66 20 4f | O | MOVEA.L A7,A0 00027d68 43 fa 9c 52 |C R | LEA.L 0x219bc,A1 00027d6c 70 12 |p | MOVEQ.L #0x12,D0 00027d6e 10 d9 | | MOVE.B (A1)+,(A0)+ 00027d70 51 c8 ff fc |Q | DBF D0,0x27d6e 00027d74 9e c4 | | SUBA.W D4,A7 00027d76 20 4f | O | MOVEA.L A7,A0 00027d78 43 fa 9c 56 |C V | LEA.L 0x219d0,A1 00027d7c 70 0c |p | MOVEQ.L #0x0c,D0 00027d7e 10 d9 | | MOVE.B (A1)+,(A0)+ 00027d80 51 c8 ff fc |Q | DBF D0,0x27d7e 00027d84 59 4f |YO | SUBQ.L #0x4,A7 00027d86 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00027d8a 3f 01 |? | MOVE.W D1,-(A7) 00027d8c 3f 02 |? | MOVE.W D2,-(A7) 00027d8e 4e 92 |N | JSR (A2) 00027d90 58 4f |XO | ADDQ.L #0x4,A7 00027d92 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00027d96 3f 01 |? | MOVE.W D1,-(A7) 00027d98 3f 05 |? | MOVE.W D5,-(A7) 00027d9a 4e 92 |N | JSR (A2) 00027d9c 50 4f |PO | ADDQ.L #0x8,A7 00027d9e 4e 94 |N | JSR (A4) 00027da0 de c6 | | ADDA.W D6,A7 00027da2 20 4f | O | MOVEA.L A7,A0 00027da4 43 fa 9c 38 |C 8 | LEA.L 0x219de,A1 00027da8 70 12 |p | MOVEQ.L #0x12,D0 00027daa 10 d9 | | MOVE.B (A1)+,(A0)+ 00027dac 51 c8 ff fc |Q | DBF D0,0x27daa 00027db0 9e c4 | | SUBA.W D4,A7 00027db2 20 4f | O | MOVEA.L A7,A0 00027db4 43 fa 9c 3c |C < | LEA.L 0x219f2,A1 00027db8 70 0c |p | MOVEQ.L #0x0c,D0 00027dba 10 d9 | | MOVE.B (A1)+,(A0)+ 00027dbc 51 c8 ff fc |Q | DBF D0,0x27dba 00027dc0 59 4f |YO | SUBQ.L #0x4,A7 00027dc2 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00027dc6 3f 01 |? | MOVE.W D1,-(A7) 00027dc8 3f 02 |? | MOVE.W D2,-(A7) 00027dca 4e 92 |N | JSR (A2) 00027dcc 58 4f |XO | ADDQ.L #0x4,A7 00027dce 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00027dd2 3f 01 |? | MOVE.W D1,-(A7) 00027dd4 3f 05 |? | MOVE.W D5,-(A7) 00027dd6 4e 92 |N | JSR (A2) 00027dd8 50 4f |PO | ADDQ.L #0x8,A7 00027dda 4e 94 |N | JSR (A4) 00027ddc de fc 00 2a | * | ADDA.W #0x2a,A7 00027de0 60 00 fd 22 |` " | BRA 0x27b04 00027de4 55 4f |UO | SUBQ.L #0x2,A7 00027de6 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00027dec 4a 1f |J | TST.B (A7)+ 00027dee 67 00 01 60 |g ` | BEQ 0x27f50 00027df2 9e c3 | | SUBA.W D3,A7 00027df4 20 4f | O | MOVEA.L A7,A0 00027df6 43 fa 9c 08 |C | LEA.L 0x21a00,A1 00027dfa 70 12 |p | MOVEQ.L #0x12,D0 00027dfc 10 d9 | | MOVE.B (A1)+,(A0)+ 00027dfe 51 c8 ff fc |Q | DBF D0,0x27dfc 00027e02 9e c3 | | SUBA.W D3,A7 00027e04 20 4f | O | MOVEA.L A7,A0 00027e06 43 fa 9c 0c |C | LEA.L 0x21a14,A1 00027e0a 70 12 |p | MOVEQ.L #0x12,D0 00027e0c 10 d9 | | MOVE.B (A1)+,(A0)+ 00027e0e 51 c8 ff fc |Q | DBF D0,0x27e0c 00027e12 9e c3 | | SUBA.W D3,A7 00027e14 20 4f | O | MOVEA.L A7,A0 00027e16 43 fa 9c 10 |C | LEA.L 0x21a28,A1 00027e1a 70 12 |p | MOVEQ.L #0x12,D0 00027e1c 10 d9 | | MOVE.B (A1)+,(A0)+ 00027e1e 51 c8 ff fc |Q | DBF D0,0x27e1c 00027e22 5d 4f |]O | SUBQ.L #0x6,A7 00027e24 48 6f 00 2e |Ho . | PEA.L (A7+0x2e) 00027e28 3f 01 |? | MOVE.W D1,-(A7) 00027e2a 3f 02 |? | MOVE.W D2,-(A7) 00027e2c 4e 92 |N | JSR (A2) 00027e2e 50 4f |PO | ADDQ.L #0x8,A7 00027e30 4e 93 |N | JSR (A3) 00027e32 58 4f |XO | ADDQ.L #0x4,A7 00027e34 4a 1f |J | TST.B (A7)+ 00027e36 66 2c |f, | BNE 0x27e64 00027e38 5d 4f |]O | SUBQ.L #0x6,A7 00027e3a 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 00027e3e 3f 01 |? | MOVE.W D1,-(A7) 00027e40 3f 02 |? | MOVE.W D2,-(A7) 00027e42 4e 92 |N | JSR (A2) 00027e44 50 4f |PO | ADDQ.L #0x8,A7 00027e46 4e 93 |N | JSR (A3) 00027e48 58 4f |XO | ADDQ.L #0x4,A7 00027e4a 4a 1f |J | TST.B (A7)+ 00027e4c 66 16 |f | BNE 0x27e64 00027e4e 5d 4f |]O | SUBQ.L #0x6,A7 00027e50 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00027e54 3f 01 |? | MOVE.W D1,-(A7) 00027e56 3f 02 |? | MOVE.W D2,-(A7) 00027e58 4e 92 |N | JSR (A2) 00027e5a 50 4f |PO | ADDQ.L #0x8,A7 00027e5c 4e 93 |N | JSR (A3) 00027e5e 58 4f |XO | ADDQ.L #0x4,A7 00027e60 4a 1f |J | TST.B (A7)+ 00027e62 67 30 |g0 | BEQ 0x27e94 00027e64 9e fc 00 48 | H | SUBA.W #0x48,A7 00027e68 20 4f | O | MOVEA.L A7,A0 00027e6a 43 fa 99 66 |C f | LEA.L 0x217d2,A1 00027e6e 70 46 |pF | MOVEQ.L #0x46,D0 00027e70 10 d9 | | MOVE.B (A1)+,(A0)+ 00027e72 51 c8 ff fc |Q | DBF D0,0x27e70 00027e76 59 4f |YO | SUBQ.L #0x4,A7 00027e78 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00027e7c 3f 01 |? | MOVE.W D1,-(A7) 00027e7e 3f 3c 00 47 |?< G | MOVE.W #0x47,-(A7) 00027e82 4e 92 |N | JSR (A2) 00027e84 50 4f |PO | ADDQ.L #0x8,A7 00027e86 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00027e8c de fc 00 4c | L | ADDA.W #0x4c,A7 00027e90 60 00 00 ba |` | BRA 0x27f4c 00027e94 9e c3 | | SUBA.W D3,A7 00027e96 20 4f | O | MOVEA.L A7,A0 00027e98 43 fa 9b a2 |C | LEA.L 0x21a3c,A1 00027e9c 70 12 |p | MOVEQ.L #0x12,D0 00027e9e 10 d9 | | MOVE.B (A1)+,(A0)+ 00027ea0 51 c8 ff fc |Q | DBF D0,0x27e9e 00027ea4 9e c4 | | SUBA.W D4,A7 00027ea6 20 4f | O | MOVEA.L A7,A0 00027ea8 43 fa 9b a6 |C | LEA.L 0x21a50,A1 00027eac 70 0c |p | MOVEQ.L #0x0c,D0 00027eae 10 d9 | | MOVE.B (A1)+,(A0)+ 00027eb0 51 c8 ff fc |Q | DBF D0,0x27eae 00027eb4 59 4f |YO | SUBQ.L #0x4,A7 00027eb6 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00027eba 3f 01 |? | MOVE.W D1,-(A7) 00027ebc 3f 02 |? | MOVE.W D2,-(A7) 00027ebe 4e 92 |N | JSR (A2) 00027ec0 58 4f |XO | ADDQ.L #0x4,A7 00027ec2 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00027ec6 3f 01 |? | MOVE.W D1,-(A7) 00027ec8 3f 05 |? | MOVE.W D5,-(A7) 00027eca 4e 92 |N | JSR (A2) 00027ecc 50 4f |PO | ADDQ.L #0x8,A7 00027ece 4e 94 |N | JSR (A4) 00027ed0 de c6 | | ADDA.W D6,A7 00027ed2 20 4f | O | MOVEA.L A7,A0 00027ed4 43 fa 9b 88 |C | LEA.L 0x21a5e,A1 00027ed8 70 12 |p | MOVEQ.L #0x12,D0 00027eda 10 d9 | | MOVE.B (A1)+,(A0)+ 00027edc 51 c8 ff fc |Q | DBF D0,0x27eda 00027ee0 9e c4 | | SUBA.W D4,A7 00027ee2 20 4f | O | MOVEA.L A7,A0 00027ee4 43 fa 9b 8c |C | LEA.L 0x21a72,A1 00027ee8 70 0c |p | MOVEQ.L #0x0c,D0 00027eea 10 d9 | | MOVE.B (A1)+,(A0)+ 00027eec 51 c8 ff fc |Q | DBF D0,0x27eea 00027ef0 59 4f |YO | SUBQ.L #0x4,A7 00027ef2 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00027ef6 3f 01 |? | MOVE.W D1,-(A7) 00027ef8 3f 02 |? | MOVE.W D2,-(A7) 00027efa 4e 92 |N | JSR (A2) 00027efc 58 4f |XO | ADDQ.L #0x4,A7 00027efe 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00027f02 3f 01 |? | MOVE.W D1,-(A7) 00027f04 3f 05 |? | MOVE.W D5,-(A7) 00027f06 4e 92 |N | JSR (A2) 00027f08 50 4f |PO | ADDQ.L #0x8,A7 00027f0a 4e 94 |N | JSR (A4) 00027f0c de c6 | | ADDA.W D6,A7 00027f0e 20 4f | O | MOVEA.L A7,A0 00027f10 43 fa 9b 6e |C n | LEA.L 0x21a80,A1 00027f14 70 12 |p | MOVEQ.L #0x12,D0 00027f16 10 d9 | | MOVE.B (A1)+,(A0)+ 00027f18 51 c8 ff fc |Q | DBF D0,0x27f16 00027f1c 9e c4 | | SUBA.W D4,A7 00027f1e 20 4f | O | MOVEA.L A7,A0 00027f20 43 fa 9b 72 |C r | LEA.L 0x21a94,A1 00027f24 70 0c |p | MOVEQ.L #0x0c,D0 00027f26 10 d9 | | MOVE.B (A1)+,(A0)+ 00027f28 51 c8 ff fc |Q | DBF D0,0x27f26 00027f2c 59 4f |YO | SUBQ.L #0x4,A7 00027f2e 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00027f32 3f 01 |? | MOVE.W D1,-(A7) 00027f34 3f 02 |? | MOVE.W D2,-(A7) 00027f36 4e 92 |N | JSR (A2) 00027f38 58 4f |XO | ADDQ.L #0x4,A7 00027f3a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00027f3e 3f 01 |? | MOVE.W D1,-(A7) 00027f40 3f 05 |? | MOVE.W D5,-(A7) 00027f42 4e 92 |N | JSR (A2) 00027f44 50 4f |PO | ADDQ.L #0x8,A7 00027f46 4e 94 |N | JSR (A4) 00027f48 de fc 00 2a | * | ADDA.W #0x2a,A7 00027f4c 60 00 fb b6 |` | BRA 0x27b04 00027f50 41 fa 9b 62 |A b | LEA.L 0x21ab4,A0 00027f54 70 08 |p | MOVEQ.L #0x08,D0 00027f56 3f 20 |? | MOVE.W -(A0),-(A7) 00027f58 51 c8 ff fc |Q | DBF D0,0x27f56 00027f5c 41 fa 9b 68 |A h | LEA.L 0x21ac6,A0 00027f60 70 08 |p | MOVEQ.L #0x08,D0 00027f62 3f 20 |? | MOVE.W -(A0),-(A7) 00027f64 51 c8 ff fc |Q | DBF D0,0x27f62 00027f68 41 fa 9b 6e |A n | LEA.L 0x21ad8,A0 00027f6c 70 08 |p | MOVEQ.L #0x08,D0 00027f6e 3f 20 |? | MOVE.W -(A0),-(A7) 00027f70 51 c8 ff fc |Q | DBF D0,0x27f6e 00027f74 5d 4f |]O | SUBQ.L #0x6,A7 00027f76 48 6f 00 2a |Ho * | PEA.L (A7+0x2a) 00027f7a 3f 01 |? | MOVE.W D1,-(A7) 00027f7c 3f 07 |? | MOVE.W D7,-(A7) 00027f7e 4e 92 |N | JSR (A2) 00027f80 50 4f |PO | ADDQ.L #0x8,A7 00027f82 4e 93 |N | JSR (A3) 00027f84 58 4f |XO | ADDQ.L #0x4,A7 00027f86 4a 1f |J | TST.B (A7)+ 00027f88 66 2c |f, | BNE 0x27fb6 00027f8a 5d 4f |]O | SUBQ.L #0x6,A7 00027f8c 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00027f90 3f 01 |? | MOVE.W D1,-(A7) 00027f92 3f 07 |? | MOVE.W D7,-(A7) 00027f94 4e 92 |N | JSR (A2) 00027f96 50 4f |PO | ADDQ.L #0x8,A7 00027f98 4e 93 |N | JSR (A3) 00027f9a 58 4f |XO | ADDQ.L #0x4,A7 00027f9c 4a 1f |J | TST.B (A7)+ 00027f9e 66 16 |f | BNE 0x27fb6 00027fa0 5d 4f |]O | SUBQ.L #0x6,A7 00027fa2 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00027fa6 3f 01 |? | MOVE.W D1,-(A7) 00027fa8 3f 07 |? | MOVE.W D7,-(A7) 00027faa 4e 92 |N | JSR (A2) 00027fac 50 4f |PO | ADDQ.L #0x8,A7 00027fae 4e 93 |N | JSR (A3) 00027fb0 58 4f |XO | ADDQ.L #0x4,A7 00027fb2 4a 1f |J | TST.B (A7)+ 00027fb4 67 30 |g0 | BEQ 0x27fe6 00027fb6 9e fc 00 48 | H | SUBA.W #0x48,A7 00027fba 20 4f | O | MOVEA.L A7,A0 00027fbc 43 fa 98 14 |C | LEA.L 0x217d2,A1 00027fc0 70 46 |pF | MOVEQ.L #0x46,D0 00027fc2 10 d9 | | MOVE.B (A1)+,(A0)+ 00027fc4 51 c8 ff fc |Q | DBF D0,0x27fc2 00027fc8 59 4f |YO | SUBQ.L #0x4,A7 00027fca 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00027fce 3f 01 |? | MOVE.W D1,-(A7) 00027fd0 3f 3c 00 47 |?< G | MOVE.W #0x47,-(A7) 00027fd4 4e 92 |N | JSR (A2) 00027fd6 50 4f |PO | ADDQ.L #0x8,A7 00027fd8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00027fde de fc 00 4c | L | ADDA.W #0x4c,A7 00027fe2 60 00 00 b6 |` | BRA 0x2809a 00027fe6 41 fa 9b 02 |A | LEA.L 0x21aea,A0 00027fea 70 08 |p | MOVEQ.L #0x08,D0 00027fec 3f 20 |? | MOVE.W -(A0),-(A7) 00027fee 51 c8 ff fc |Q | DBF D0,0x27fec 00027ff2 9e c4 | | SUBA.W D4,A7 00027ff4 20 4f | O | MOVEA.L A7,A0 00027ff6 43 fa 9a f2 |C | LEA.L 0x21aea,A1 00027ffa 70 0c |p | MOVEQ.L #0x0c,D0 00027ffc 10 d9 | | MOVE.B (A1)+,(A0)+ 00027ffe 51 c8 ff fc |Q | DBF D0,0x27ffc 00028002 59 4f |YO | SUBQ.L #0x4,A7 00028004 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00028008 3f 01 |? | MOVE.W D1,-(A7) 0002800a 3f 07 |? | MOVE.W D7,-(A7) 0002800c 4e 92 |N | JSR (A2) 0002800e 58 4f |XO | ADDQ.L #0x4,A7 00028010 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00028014 3f 01 |? | MOVE.W D1,-(A7) 00028016 3f 05 |? | MOVE.W D5,-(A7) 00028018 4e 92 |N | JSR (A2) 0002801a 50 4f |PO | ADDQ.L #0x8,A7 0002801c 4e 94 |N | JSR (A4) 0002801e de fc 00 28 | ( | ADDA.W #0x28,A7 00028022 41 fa 9a e6 |A | LEA.L 0x21b0a,A0 00028026 70 08 |p | MOVEQ.L #0x08,D0 00028028 3f 20 |? | MOVE.W -(A0),-(A7) 0002802a 51 c8 ff fc |Q | DBF D0,0x28028 0002802e 9e c4 | | SUBA.W D4,A7 00028030 20 4f | O | MOVEA.L A7,A0 00028032 43 fa 9a d6 |C | LEA.L 0x21b0a,A1 00028036 70 0c |p | MOVEQ.L #0x0c,D0 00028038 10 d9 | | MOVE.B (A1)+,(A0)+ 0002803a 51 c8 ff fc |Q | DBF D0,0x28038 0002803e 59 4f |YO | SUBQ.L #0x4,A7 00028040 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00028044 3f 01 |? | MOVE.W D1,-(A7) 00028046 3f 07 |? | MOVE.W D7,-(A7) 00028048 4e 92 |N | JSR (A2) 0002804a 58 4f |XO | ADDQ.L #0x4,A7 0002804c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00028050 3f 01 |? | MOVE.W D1,-(A7) 00028052 3f 05 |? | MOVE.W D5,-(A7) 00028054 4e 92 |N | JSR (A2) 00028056 50 4f |PO | ADDQ.L #0x8,A7 00028058 4e 94 |N | JSR (A4) 0002805a de fc 00 28 | ( | ADDA.W #0x28,A7 0002805e 41 fa 9a ca |A | LEA.L 0x21b2a,A0 00028062 70 08 |p | MOVEQ.L #0x08,D0 00028064 3f 20 |? | MOVE.W -(A0),-(A7) 00028066 51 c8 ff fc |Q | DBF D0,0x28064 0002806a 9e c4 | | SUBA.W D4,A7 0002806c 20 4f | O | MOVEA.L A7,A0 0002806e 43 fa 9a ba |C | LEA.L 0x21b2a,A1 00028072 70 0c |p | MOVEQ.L #0x0c,D0 00028074 10 d9 | | MOVE.B (A1)+,(A0)+ 00028076 51 c8 ff fc |Q | DBF D0,0x28074 0002807a 59 4f |YO | SUBQ.L #0x4,A7 0002807c 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00028080 3f 01 |? | MOVE.W D1,-(A7) 00028082 3f 07 |? | MOVE.W D7,-(A7) 00028084 4e 92 |N | JSR (A2) 00028086 58 4f |XO | ADDQ.L #0x4,A7 00028088 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002808c 3f 01 |? | MOVE.W D1,-(A7) 0002808e 3f 05 |? | MOVE.W D5,-(A7) 00028090 4e 92 |N | JSR (A2) 00028092 50 4f |PO | ADDQ.L #0x8,A7 00028094 4e 94 |N | JSR (A4) 00028096 de fc 00 28 | ( | ADDA.W #0x28,A7 0002809a de fc 00 36 | 6 | ADDA.W #0x36,A7 0002809e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000280a2 4e 5e |N^ | UNLK A6 000280a4 4e 75 |Nu | RTS 000280a6 ; -------------------------------------------------------------------------------------- 000280a6 ; OMSI PASCAL Function 000280a6 ; <LVAR -0x004 @ 4(r)> 000280a6 ; <LVAR -0x008 @ 4(r)> 000280a6 ; <LVAR -0x00a @ 1(r)> 000280a6 ; <LVAR -0x00b 1(rw)> 000280a6 ; <LVAR -0x00e @ 1(r)> 000280a6 ; -------------------------------------------------------------------------------------- 000280a6 4e 56 ff 72 |NV r | LINK.W A6,#0xff72 000280aa bf d5 | | CMPA.L (A5),A7 000280ac 62 06 |b | BHI 0x280b4 000280ae 44 fc 00 02 |D | MOVE.W #0x2,CCR 000280b2 4e 76 |Nv | TRAPV 000280b4 de fc 00 7a | z | ADDA.W #0x7a,A7 000280b8 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000280bc 45 ee ff f2 |E | LEA.L (A6-0xe),A2 000280c0 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000280c6 49 f9 00 02 ee 1a |I | LEA.L 0x2ee1a,A4 000280cc 72 01 |r | MOVEQ.L #0x01,D1 000280ce 74 1a |t | MOVEQ.L #0x1a,D2 000280d0 76 03 |v | MOVEQ.L #0x03,D3 000280d2 78 0c |x | MOVEQ.L #0x0c,D4 000280d4 4a 14 |J | TST.B (A4) 000280d6 67 00 00 c2 |g | BEQ 0x2819a 000280da 10 39 00 02 95 c0 | 9 | MOVE.B 0x295c0,D0 000280e0 0c 00 00 02 | | CMPI.B #0x02,D0 000280e4 67 00 00 b4 |g | BEQ 0x2819a 000280e8 9e c2 | | SUBA.W D2,A7 000280ea 20 4f | O | MOVEA.L A7,A0 000280ec 43 fa 9a 4a |C J | LEA.L 0x21b38,A1 000280f0 70 18 |p | MOVEQ.L #0x18,D0 000280f2 10 d9 | | MOVE.B (A1)+,(A0)+ 000280f4 51 c8 ff fc |Q | DBF D0,0x280f2 000280f8 51 4f |QO | SUBQ.L #0x8,A7 000280fa 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000280fe 3f 01 |? | MOVE.W D1,-(A7) 00028100 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00028104 4e 93 |N | JSR (A3) 00028106 50 4f |PO | ADDQ.L #0x8,A7 00028108 48 78 00 00 |Hx | PEA.L 0x0 0002810c 48 78 00 03 |Hx | PEA.L 0x3 00028110 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00028116 de c4 | | ADDA.W D4,A7 00028118 20 1f | | MOVE.L (A7)+,D0 0002811a b0 83 | | CMP.L D3,D0 0002811c 63 02 |c | BLS 0x28120 0002811e 4e 4f |NO | TRAP #15 00028120 de c2 | | ADDA.W D2,A7 00028122 3e 00 |> | MOVE.W D0,D7 00028124 7c 01 || | MOVEQ.L #0x01,D6 00028126 7a 01 |z | MOVEQ.L #0x01,D5 00028128 4f 83 |O | CHK.W D3,D7 0002812a 3f 07 |? | MOVE.W D7,-(A7) 0002812c 42 27 |B' | CLR.B -(A7) 0002812e 10 06 | | MOVE.B D6,D0 00028130 48 80 |H | EXTB.W D0 00028132 41 81 |A | CHK.W D1,D0 00028134 1f 00 | | MOVE.B D0,-(A7) 00028136 48 52 |HR | PEA.L (A2) 00028138 4e b9 00 01 04 0c |N | JSR FSCALL_1040c 0002813e de fc 00 0a | | ADDA.W #0xa,A7 00028142 4a 12 |J | TST.B (A2) 00028144 66 04 |f | BNE 0x2814a 00028146 60 00 00 aa |` | BRA 0x281f2 0002814a ba 81 | | CMP.L D1,D5 0002814c 66 26 |f& | BNE 0x28174 0002814e 41 fa 9a 5e |A ^ | LEA.L 0x21bae,A0 00028152 70 09 |p | MOVEQ.L #0x09,D0 00028154 2f 20 |/ | MOVE.L -(A0),-(A7) 00028156 51 c8 ff fc |Q | DBF D0,0x28154 0002815a 59 4f |YO | SUBQ.L #0x4,A7 0002815c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028160 3f 01 |? | MOVE.W D1,-(A7) 00028162 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 00028166 4e 93 |N | JSR (A3) 00028168 50 4f |PO | ADDQ.L #0x8,A7 0002816a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00028170 de fc 00 2c | , | ADDA.W #0x2c,A7 00028174 7c 00 || | MOVEQ.L #0x00,D6 00028176 2f 3c 00 00 98 96 |/< | MOVE.L #0x9896,-(A7) 0002817c 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00028182 58 4f |XO | ADDQ.L #0x4,A7 00028184 52 85 |R | ADDQ.L #0x1,D5 00028186 0c 85 00 00 00 28 | ( | CMPI.L #0x00000028,D5 0002818c 6f 9a |o | BLE 0x28128 0002818e 1f 01 | | MOVE.B D1,-(A7) 00028190 48 52 |HR | PEA.L (A2) 00028192 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428 00028198 5c 4f |\O | ADDQ.L #0x6,A7 0002819a 9e c2 | | SUBA.W D2,A7 0002819c 20 4f | O | MOVEA.L A7,A0 0002819e 43 fa 99 98 |C | LEA.L 0x21b38,A1 000281a2 70 18 |p | MOVEQ.L #0x18,D0 000281a4 10 d9 | | MOVE.B (A1)+,(A0)+ 000281a6 51 c8 ff fc |Q | DBF D0,0x281a4 000281aa 51 4f |QO | SUBQ.L #0x8,A7 000281ac 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000281b0 3f 01 |? | MOVE.W D1,-(A7) 000281b2 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 000281b6 4e 93 |N | JSR (A3) 000281b8 50 4f |PO | ADDQ.L #0x8,A7 000281ba 48 78 00 00 |Hx | PEA.L 0x0 000281be 48 78 00 03 |Hx | PEA.L 0x3 000281c2 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000281c8 de c4 | | ADDA.W D4,A7 000281ca 20 1f | | MOVE.L (A7)+,D0 000281cc b0 83 | | CMP.L D3,D0 000281ce 63 02 |c | BLS 0x281d2 000281d0 4e 4f |NO | TRAP #15 000281d2 de c2 | | ADDA.W D2,A7 000281d4 3e 00 |> | MOVE.W D0,D7 000281d6 4f 83 |O | CHK.W D3,D7 000281d8 3f 07 |? | MOVE.W D7,-(A7) 000281da 42 27 |B' | CLR.B -(A7) 000281dc 1f 01 | | MOVE.B D1,-(A7) 000281de 48 52 |HR | PEA.L (A2) 000281e0 4e b9 00 01 04 0c |N | JSR FSCALL_1040c 000281e6 de fc 00 0a | | ADDA.W #0xa,A7 000281ea 4a 12 |J | TST.B (A2) 000281ec 66 02 |f | BNE 0x281f0 000281ee 60 02 |` | BRA 0x281f2 000281f0 60 9c |` | BRA 0x2818e 000281f2 4a 14 |J | TST.B (A4) 000281f4 67 06 |g | BEQ 0x281fc 000281f6 1d 41 ff f5 | A | MOVE.B D1,(A6-0xb) 000281fa 60 3a |`: | BRA 0x28236 000281fc 9e fc 00 34 | 4 | SUBA.W #0x34,A7 00028200 20 4f | O | MOVEA.L A7,A0 00028202 43 fa 99 4e |C N | LEA.L 0x21b52,A1 00028206 70 32 |p2 | MOVEQ.L #0x32,D0 00028208 10 d9 | | MOVE.B (A1)+,(A0)+ 0002820a 51 c8 ff fc |Q | DBF D0,0x28208 0002820e 5d 4f |]O | SUBQ.L #0x6,A7 00028210 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00028214 3f 01 |? | MOVE.W D1,-(A7) 00028216 3f 3c 00 33 |?< 3 | MOVE.W #0x33,-(A7) 0002821a 4e 93 |N | JSR (A3) 0002821c 5c 4f |\O | ADDQ.L #0x6,A7 0002821e 1e 81 | | MOVE.B D1,(A7) 00028220 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00028226 5c 4f |\O | ADDQ.L #0x6,A7 00028228 10 1f | | MOVE.B (A7)+,D0 0002822a 48 80 |H | EXTB.W D0 0002822c 41 81 |A | CHK.W D1,D0 0002822e de fc 00 34 | 4 | ADDA.W #0x34,A7 00028232 1d 40 ff f5 | @ | MOVE.B D0,(A6-0xb) 00028236 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002823a 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00028240 58 4f |XO | ADDQ.L #0x4,A7 00028242 10 2e ff f5 | . | MOVE.B (A6-0xb),D0 00028246 48 80 |H | EXTB.W D0 00028248 41 81 |A | CHK.W D1,D0 0002824a 1f 00 | | MOVE.B D0,-(A7) 0002824c 1f 01 | | MOVE.B D1,-(A7) 0002824e 48 78 7f ff |Hx | PEA.L 0x7fff 00028252 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00028256 4e b9 00 01 04 38 |N 8 | JSR FSCALL_10438 0002825c de c4 | | ADDA.W D4,A7 0002825e 4a 2e ff f6 |J. | TST.B (A6-0xa) 00028262 67 de |g | BEQ 0x28242 00028264 48 6e ff fc |Hn | PEA.L (A6-0x4) 00028268 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 0002826e 2e ae ff f8 |. | MOVE.L (A6-0x8),(A7) 00028272 2f 2e ff fc |/. | MOVE.L (A6-0x4),-(A7) 00028276 4e ba a8 7a |N z | JSR 0x22af2 0002827a 5c 4f |\O | ADDQ.L #0x6,A7 0002827c 42 17 |B | CLR.B (A7) 0002827e 48 52 |HR | PEA.L (A2) 00028280 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00028286 5c 4f |\O | ADDQ.L #0x6,A7 00028288 4e b9 00 01 04 10 |N | JSR FSCALL_10410 0002828e 4e b9 00 01 03 90 |N | JSR WriteFreeList(void) 00028294 4e ba f6 d4 |N | JSR 0x2796a 00028298 4e ba f5 70 |N p | JSR 0x2780a 0002829c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000282a0 4e 5e |N^ | UNLK A6 000282a2 4e 75 |Nu | RTS 000282a4 ; -------------------------------------------------------------------------------------- 000282a4 ; OMSI PASCAL Function 000282a4 ; <LVAR -0x003 @ 1(r)> 000282a4 ; <LVAR -0x004 @ 1(r)> 000282a4 ; -------------------------------------------------------------------------------------- 000282a4 4e 56 ff 90 |NV | LINK.W A6,#0xff90 000282a8 bf d5 | | CMPA.L (A5),A7 000282aa 62 06 |b | BHI 0x282b2 000282ac 44 fc 00 02 |D | MOVE.W #0x2,CCR 000282b0 4e 76 |Nv | TRAPV 000282b2 de fc 00 6c | l | ADDA.W #0x6c,A7 000282b6 48 e7 e0 c0 |H | MOVEM.L A1+A0+D2+D1+D0,-(A7) 000282ba 43 ee ff fc |C | LEA.L (A6-0x4),A1 000282be 72 01 |r | MOVEQ.L #0x01,D1 000282c0 74 46 |tF | MOVEQ.L #0x46,D2 000282c2 48 6e ff fd |Hn | PEA.L (A6-0x3) 000282c6 4e ba e3 fe |N | JSR 0x266c6 000282ca 58 4f |XO | ADDQ.L #0x4,A7 000282cc 4a 2e ff fd |J. | TST.B (A6-0x3) 000282d0 67 00 00 ae |g | BEQ 0x28380 000282d4 4e ba eb ac |N | JSR 0x26e82 000282d8 4e ba ef 54 |N T | JSR 0x2722e 000282dc 3f 39 00 01 00 08 |?9 | MOVE.W 0x10008,-(A7) 000282e2 48 51 |HQ | PEA.L (A1) 000282e4 4e b9 00 01 03 94 |N | JSR MountDisk(drive : Word ; VAR status : Byte) 000282ea 5c 4f |\O | ADDQ.L #0x6,A7 000282ec 4a 11 |J | TST.B (A1) 000282ee 67 46 |gF | BEQ 0x28336 000282f0 2f 3a 99 0e |/: | MOVE.L 0x21c00,-(A7) 000282f4 2f 3a 99 06 |/: | MOVE.L 0x21bfc,-(A7) 000282f8 2f 3a 98 fe |/: | MOVE.L 0x21bf8,-(A7) 000282fc 2f 3a 98 f6 |/: | MOVE.L 0x21bf4,-(A7) 00028300 51 4f |QO | SUBQ.L #0x8,A7 00028302 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00028306 3f 01 |? | MOVE.W D1,-(A7) 00028308 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 0002830c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00028312 58 4f |XO | ADDQ.L #0x4,A7 00028314 10 11 | | MOVE.B (A1),D0 00028316 48 80 |H | EXTB.W D0 00028318 41 bc 00 0f |A | CHK.W #0xf,D0 0002831c 1f 00 | | MOVE.B D0,-(A7) 0002831e 4e b9 00 01 03 a0 |N | JSR FsErrMsgStr(err: Byte) : String 00028324 54 4f |TO | ADDQ.L #0x2,A7 00028326 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002832c 50 4f |PO | ADDQ.L #0x8,A7 0002832e 4e ba a1 9c |N | JSR 0x224cc 00028332 de fc 00 14 | | ADDA.W #0x14,A7 00028336 4e ba f1 c0 |N | JSR 0x274f8 0002833a 4e b9 00 01 03 a4 |N | JSR Open_ERROR_LOG(void) 00028340 4a 39 00 02 ee 1a |J9 | TST.B 0x2ee1a 00028346 67 06 |g | BEQ 0x2834e 00028348 4e ba fd 5c |N \ | JSR 0x280a6 0002834c 60 32 |`2 | BRA 0x28380 0002834e 41 fa 98 a4 |A | LEA.L 0x21bf4,A0 00028352 70 22 |p" | MOVEQ.L #0x22,D0 00028354 3f 20 |? | MOVE.W -(A0),-(A7) 00028356 51 c8 ff fc |Q | DBF D0,0x28354 0002835a 5d 4f |]O | SUBQ.L #0x6,A7 0002835c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00028360 3f 01 |? | MOVE.W D1,-(A7) 00028362 3f 02 |? | MOVE.W D2,-(A7) 00028364 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002836a 5c 4f |\O | ADDQ.L #0x6,A7 0002836c 1e 81 | | MOVE.B D1,(A7) 0002836e 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00028374 5c 4f |\O | ADDQ.L #0x6,A7 00028376 4a 1f |J | TST.B (A7)+ 00028378 67 04 |g | BEQ 0x2837e 0002837a 4e ba fd 2a |N * | JSR 0x280a6 0002837e de c2 | | ADDA.W D2,A7 00028380 4c df 03 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1 00028384 4e 5e |N^ | UNLK A6 00028386 4e 75 |Nu | RTS 00028388 ; -------------------------------------------------------------------------------------- 00028388 ; OMSI PASCAL Function 00028388 ; <LVAR -0x016 4(rw)> 00028388 ; <LVAR -0x01a 4(rw)> 00028388 ; <LVAR -0x01e 4(rw)> 00028388 ; <LVAR -0x023 1(r)> 00028388 ; <LVAR -0x024 1(r)> 00028388 ; <LVAR -0x026 1(w) 2(w) 4(r)> 00028388 ; <LVAR -0x028 @ 1(r)> 00028388 ; <LVAR -0x030 4(rw)> 00028388 ; -------------------------------------------------------------------------------------- 00028388 4e 56 ff 3e |NV > | LINK.W A6,#0xff3e 0002838c bf d5 | | CMPA.L (A5),A7 0002838e 62 06 |b | BHI 0x28396 00028390 44 fc 00 02 |D | MOVE.W #0x2,CCR 00028394 4e 76 |Nv | TRAPV 00028396 de fc 00 92 | | ADDA.W #0x92,A7 0002839a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002839e 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000283a4 47 f9 00 01 02 e4 |G | LEA.L Long2String(a : Long) : String,A3 000283aa 49 ee ff d0 |I | LEA.L (A6-0x30),A4 000283ae 76 01 |v | MOVEQ.L #0x01,D3 000283b0 78 14 |x | MOVEQ.L #0x14,D4 000283b2 1f 03 | | MOVE.B D3,-(A7) 000283b4 4e ba a9 64 |N d | JSR 0x22d1a 000283b8 54 4f |TO | ADDQ.L #0x2,A7 000283ba 42 94 |B | CLR.L (A4) 000283bc 41 fa 98 5a |A Z | LEA.L 0x21c18,A0 000283c0 70 04 |p | MOVEQ.L #0x04,D0 000283c2 2f 20 |/ | MOVE.L -(A0),-(A7) 000283c4 51 c8 ff fc |Q | DBF D0,0x283c2 000283c8 41 fa 98 66 |A f | LEA.L 0x21c30,A0 000283cc 70 05 |p | MOVEQ.L #0x05,D0 000283ce 2f 20 |/ | MOVE.L -(A0),-(A7) 000283d0 51 c8 ff fc |Q | DBF D0,0x283ce 000283d4 51 4f |QO | SUBQ.L #0x8,A7 000283d6 48 6f 00 20 |Ho | PEA.L (A7+0x20) 000283da 3f 03 |? | MOVE.W D3,-(A7) 000283dc 3f 04 |? | MOVE.W D4,-(A7) 000283de 4e 92 |N | JSR (A2) 000283e0 58 4f |XO | ADDQ.L #0x4,A7 000283e2 42 80 |B | CLR.L D0 000283e4 30 39 00 02 96 24 |09 $ | MOVE.W 0x29624,D0 000283ea 2f 00 |/ | MOVE.L D0,-(A7) 000283ec 4e 93 |N | JSR (A3) 000283ee 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000283f2 3f 03 |? | MOVE.W D3,-(A7) 000283f4 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 000283f8 4e 92 |N | JSR (A2) 000283fa 58 4f |XO | ADDQ.L #0x4,A7 000283fc 42 80 |B | CLR.L D0 000283fe 30 39 00 02 96 30 |09 0 | MOVE.W 0x29630,D0 00028404 2f 00 |/ | MOVE.L D0,-(A7) 00028406 4e 93 |N | JSR (A3) 00028408 58 4f |XO | ADDQ.L #0x4,A7 0002840a 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 00028410 de fc 00 10 | | ADDA.W #0x10,A7 00028414 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002841a de fc 00 30 | 0 | ADDA.W #0x30,A7 0002841e 00 2e 00 80 ff da | . | ORI.B #0x80,(A6-0x26) 00028424 02 2e 00 bf ff da | . | ANDI.B #0xbf,(A6-0x26) 0002842a 02 6e c0 00 ff da | n | ANDI.W #0xc000,(A6-0x26) 00028430 42 2e ff dc |B. | CLR.B (A6-0x24) 00028434 42 2e ff dd |B. | CLR.B (A6-0x23) 00028438 70 00 |p | MOVEQ.L #0x00,D0 0002843a 0c 80 00 00 07 ff | | CMPI.L #0x000007ff,D0 00028440 63 02 |c | BLS 0x28444 00028442 4e 4f |NO | TRAP #15 00028444 22 00 |" | MOVE.L D0,D1 00028446 e5 81 | | ASL.L #0x2,D1 00028448 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 0002844e 41 f0 18 00 |A | LEA.L (A0+D1.L),A0 00028452 21 6e ff da 04 4c |!n L | MOVE.L (A6-0x26),(A0+0x44c) 00028458 52 80 |R | ADDQ.L #0x1,D0 0002845a 0c 80 00 00 07 ff | | CMPI.L #0x000007ff,D0 00028460 6f d8 |o | BLE 0x2843a 00028462 48 6e ff d8 |Hn | PEA.L (A6-0x28) 00028466 4e ba b4 88 |N | JSR 0x238f0 0002846a 58 4f |XO | ADDQ.L #0x4,A7 0002846c 4a 2e ff d8 |J. | TST.B (A6-0x28) 00028470 66 28 |f( | BNE 0x2849a 00028472 9e c4 | | SUBA.W D4,A7 00028474 20 4f | O | MOVEA.L A7,A0 00028476 43 fa 97 b8 |C | LEA.L 0x21c30,A1 0002847a 70 12 |p | MOVEQ.L #0x12,D0 0002847c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002847e 51 c8 ff fc |Q | DBF D0,0x2847c 00028482 59 4f |YO | SUBQ.L #0x4,A7 00028484 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028488 3f 03 |? | MOVE.W D3,-(A7) 0002848a 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 0002848e 4e 92 |N | JSR (A2) 00028490 50 4f |PO | ADDQ.L #0x8,A7 00028492 4e ba a0 38 |N 8 | JSR 0x224cc 00028496 de fc 00 18 | | ADDA.W #0x18,A7 0002849a 48 6e ff d8 |Hn | PEA.L (A6-0x28) 0002849e 4e ba b5 ac |N | JSR 0x23a4c 000284a2 58 4f |XO | ADDQ.L #0x4,A7 000284a4 4a 2e ff d8 |J. | TST.B (A6-0x28) 000284a8 66 28 |f( | BNE 0x284d2 000284aa 9e c4 | | SUBA.W D4,A7 000284ac 20 4f | O | MOVEA.L A7,A0 000284ae 43 fa 97 94 |C | LEA.L 0x21c44,A1 000284b2 70 12 |p | MOVEQ.L #0x12,D0 000284b4 10 d9 | | MOVE.B (A1)+,(A0)+ 000284b6 51 c8 ff fc |Q | DBF D0,0x284b4 000284ba 59 4f |YO | SUBQ.L #0x4,A7 000284bc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000284c0 3f 03 |? | MOVE.W D3,-(A7) 000284c2 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000284c6 4e 92 |N | JSR (A2) 000284c8 50 4f |PO | ADDQ.L #0x8,A7 000284ca 4e ba a0 00 |N | JSR 0x224cc 000284ce de fc 00 18 | | ADDA.W #0x18,A7 000284d2 7a 00 |z | MOVEQ.L #0x00,D5 000284d4 42 ae ff e2 |B | CLR.L (A6-0x1e) 000284d8 70 00 |p | MOVEQ.L #0x00,D0 000284da 2f 00 |/ | MOVE.L D0,-(A7) 000284dc 0c 80 00 00 07 ff | | CMPI.L #0x000007ff,D0 000284e2 63 02 |c | BLS 0x284e6 000284e4 4e 4f |NO | TRAP #15 000284e6 22 00 |" | MOVE.L D0,D1 000284e8 e5 81 | | ASL.L #0x2,D1 000284ea 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 000284f0 41 f0 18 00 |A | LEA.L (A0+D1.L),A0 000284f4 2f 08 |/ | MOVE.L A0,-(A7) 000284f6 32 28 04 4c |2( L | MOVE.W (A0+0x44c),D1 000284fa e5 49 | I | LSL.W #0x2,D1 000284fc e4 49 | I | LSR.W #0x2,D1 000284fe 66 0e |f | BNE 0x2850e 00028500 4a 28 04 4e |J( N | TST.B (A0+0x44e) 00028504 66 08 |f | BNE 0x2850e 00028506 4a 28 04 4f |J( O | TST.B (A0+0x44f) 0002850a 67 00 00 d6 |g | BEQ 0x285e2 0002850e 52 94 |R | ADDQ.L #0x1,(A4) 00028510 42 81 |B | CLR.L D1 00028512 12 28 04 4e | ( N | MOVE.B (A0+0x44e),D1 00028516 0c 41 00 ff | A | CMPI.W #0x00ff,D1 0002851a 66 26 |f& | BNE 0x28542 0002851c 42 ae ff e6 |B | CLR.L (A6-0x1a) 00028520 42 81 |B | CLR.L D1 00028522 12 39 00 02 95 fa | 9 | MOVE.B 0x295fa,D1 00028528 53 41 |SA | SUBQ.W #0x1,D1 0002852a 48 c1 |H | EXTW.L D1 0002852c 2d 41 ff ea |-A | MOVE.L D1,(A6-0x16) 00028530 7e 00 |~ | MOVEQ.L #0x00,D7 00028532 42 81 |B | CLR.L D1 00028534 12 39 00 02 95 fb | 9 | MOVE.B 0x295fb,D1 0002853a 53 41 |SA | SUBQ.W #0x1,D1 0002853c 48 c1 |H | EXTW.L D1 0002853e 2c 01 |, | MOVE.L D1,D6 00028540 60 22 |`" | BRA 0x28564 00028542 34 01 |4 | MOVE.W D1,D2 00028544 48 c2 |H | EXTW.L D2 00028546 2d 42 ff e6 |-B | MOVE.L D2,(A6-0x1a) 0002854a 2d 42 ff ea |-B | MOVE.L D2,(A6-0x16) 0002854e 42 81 |B | CLR.L D1 00028550 12 28 04 4f | ( O | MOVE.B (A0+0x44f),D1 00028554 0c 41 00 ff | A | CMPI.W #0x00ff,D1 00028558 66 02 |f | BNE 0x2855c 0002855a 60 d4 |` | BRA 0x28530 0002855c 34 01 |4 | MOVE.W D1,D2 0002855e 48 c2 |H | EXTW.L D2 00028560 2e 02 |. | MOVE.L D2,D7 00028562 2c 02 |, | MOVE.L D2,D6 00028564 2f 2e ff ea |/. | MOVE.L (A6-0x16),-(A7) 00028568 22 2e ff e6 |". | MOVE.L (A6-0x1a),D1 0002856c b2 97 | | CMP.L (A7),D1 0002856e 6e 14 |n | BGT 0x28584 00028570 24 17 |$ | MOVE.L (A7),D2 00028572 0c 81 80 00 00 01 | | CMPI.L #0x80000001,D1 00028578 6d 08 |m | BLT 0x28582 0002857a 0c 82 7f ff ff ff | | CMPI.L #0x7fffffff,D2 00028580 6f 02 |o | BLE 0x28584 00028582 4e 4f |NO | TRAP #15 00028584 b2 97 | | CMP.L (A7),D1 00028586 6f 04 |o | BLE 0x2858c 00028588 59 4f |YO | SUBQ.L #0x4,A7 0002858a 60 54 |`T | BRA 0x285e0 0002858c 2f 01 |/ | MOVE.L D1,-(A7) 0002858e 2f 06 |/ | MOVE.L D6,-(A7) 00028590 20 07 | | MOVE.L D7,D0 00028592 b0 97 | | CMP.L (A7),D0 00028594 6e 14 |n | BGT 0x285aa 00028596 24 17 |$ | MOVE.L (A7),D2 00028598 0c 80 80 00 00 01 | | CMPI.L #0x80000001,D0 0002859e 6d 08 |m | BLT 0x285a8 000285a0 0c 82 7f ff ff ff | | CMPI.L #0x7fffffff,D2 000285a6 6f 02 |o | BLE 0x285aa 000285a8 4e 4f |NO | TRAP #15 000285aa b0 97 | | CMP.L (A7),D0 000285ac 6f 04 |o | BLE 0x285b2 000285ae 59 4f |YO | SUBQ.L #0x4,A7 000285b0 60 22 |`" | BRA 0x285d4 000285b2 2f 00 |/ | MOVE.L D0,-(A7) 000285b4 20 6f 00 10 | o | MOVEA.L (A7+0x10),A0 000285b8 12 28 04 4c | ( L | MOVE.B (A0+0x44c),D1 000285bc e3 09 | | LSL.B #0x1,D1 000285be ee 09 | | LSR.B #0x7,D1 000285c0 67 06 |g | BEQ 0x285c8 000285c2 52 ae ff e2 |R | ADDQ.L #0x1,(A6-0x1e) 000285c6 60 02 |` | BRA 0x285ca 000285c8 52 85 |R | ADDQ.L #0x1,D5 000285ca 20 17 | | MOVE.L (A7),D0 000285cc 52 80 |R | ADDQ.L #0x1,D0 000285ce 69 04 |i | BVS 0x285d4 000285d0 58 4f |XO | ADDQ.L #0x4,A7 000285d2 60 d6 |` | BRA 0x285aa 000285d4 50 4f |PO | ADDQ.L #0x8,A7 000285d6 22 17 |" | MOVE.L (A7),D1 000285d8 52 81 |R | ADDQ.L #0x1,D1 000285da 69 04 |i | BVS 0x285e0 000285dc 58 4f |XO | ADDQ.L #0x4,A7 000285de 60 a4 |` | BRA 0x28584 000285e0 50 4f |PO | ADDQ.L #0x8,A7 000285e2 58 4f |XO | ADDQ.L #0x4,A7 000285e4 20 17 | | MOVE.L (A7),D0 000285e6 52 80 |R | ADDQ.L #0x1,D0 000285e8 0c 80 00 00 07 ff | | CMPI.L #0x000007ff,D0 000285ee 6e 06 |n | BGT 0x285f6 000285f0 58 4f |XO | ADDQ.L #0x4,A7 000285f2 60 00 fe e6 |` | BRA 0x284da 000285f6 58 4f |XO | ADDQ.L #0x4,A7 000285f8 41 fa 96 70 |A p | LEA.L 0x21c6a,A0 000285fc 70 08 |p | MOVEQ.L #0x08,D0 000285fe 3f 20 |? | MOVE.W -(A0),-(A7) 00028600 51 c8 ff fc |Q | DBF D0,0x285fe 00028604 9e fc 00 12 | | SUBA.W #0x12,A7 00028608 20 4f | O | MOVEA.L A7,A0 0002860a 43 fa 96 5e |C ^ | LEA.L 0x21c6a,A1 0002860e 70 10 |p | MOVEQ.L #0x10,D0 00028610 10 d9 | | MOVE.B (A1)+,(A0)+ 00028612 51 c8 ff fc |Q | DBF D0,0x28610 00028616 51 4f |QO | SUBQ.L #0x8,A7 00028618 2f 05 |/ | MOVE.L D5,-(A7) 0002861a 4e 93 |N | JSR (A3) 0002861c 48 6f 00 1e |Ho | PEA.L (A7+0x1e) 00028620 3f 03 |? | MOVE.W D3,-(A7) 00028622 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00028626 4e 92 |N | JSR (A2) 00028628 2e ae ff e2 |. | MOVE.L (A6-0x1e),(A7) 0002862c 4e 93 |N | JSR (A3) 0002862e 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00028632 3f 03 |? | MOVE.W D3,-(A7) 00028634 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00028638 4e 92 |N | JSR (A2) 0002863a 50 4f |PO | ADDQ.L #0x8,A7 0002863c 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 00028642 de fc 00 10 | | ADDA.W #0x10,A7 00028646 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002864c de fc 00 28 | ( | ADDA.W #0x28,A7 00028650 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00028656 41 fa 96 40 |A @ | LEA.L 0x21c98,A0 0002865a 70 06 |p | MOVEQ.L #0x06,D0 0002865c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002865e 51 c8 ff fc |Q | DBF D0,0x2865c 00028662 9e fc 00 22 | " | SUBA.W #0x22,A7 00028666 20 4f | O | MOVEA.L A7,A0 00028668 43 fa 96 2e |C . | LEA.L 0x21c98,A1 0002866c 70 20 |p | MOVEQ.L #0x20,D0 0002866e 10 d9 | | MOVE.B (A1)+,(A0)+ 00028670 51 c8 ff fc |Q | DBF D0,0x2866e 00028674 51 4f |QO | SUBQ.L #0x8,A7 00028676 2f 14 |/ | MOVE.L (A4),-(A7) 00028678 4e 93 |N | JSR (A3) 0002867a 48 6f 00 2e |Ho . | PEA.L (A7+0x2e) 0002867e 3f 03 |? | MOVE.W D3,-(A7) 00028680 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 00028684 4e 92 |N | JSR (A2) 00028686 58 4f |XO | ADDQ.L #0x4,A7 00028688 20 3c 00 00 08 00 | < | MOVE.L #0x800,D0 0002868e 90 94 | | SUB.L (A4),D0 00028690 2f 00 |/ | MOVE.L D0,-(A7) 00028692 4e 93 |N | JSR (A3) 00028694 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00028698 3f 03 |? | MOVE.W D3,-(A7) 0002869a 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 0002869e 4e 92 |N | JSR (A2) 000286a0 50 4f |PO | ADDQ.L #0x8,A7 000286a2 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 000286a8 de fc 00 10 | | ADDA.W #0x10,A7 000286ac 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000286b2 de fc 00 42 | B | ADDA.W #0x42,A7 000286b6 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000286bc 48 79 00 02 95 ea |Hy | PEA.L 0x295ea 000286c2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000286c8 58 4f |XO | ADDQ.L #0x4,A7 000286ca 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000286ce 4e 5e |N^ | UNLK A6 000286d0 4e 75 |Nu | RTS 000286d2 ; -------------------------------------------------------------------------------------- 000286d2 ; OMSI PASCAL Function 000286d2 ; <LVAR 0x008 4(r)> 000286d2 ; -------------------------------------------------------------------------------------- 000286d2 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 ; Spelunked 000286d6 bf d5 | | CMPA.L (A5),A7 000286d8 62 06 |b | BHI 0x286e0 000286da 44 fc 00 02 |D | MOVE.W #0x2,CCR 000286de 4e 76 |Nv | TRAPV 000286e0 de fc 00 10 | | ADDA.W #0x10,A7 000286e4 59 4f |YO | SUBQ.L #0x4,A7 000286e6 2f 2c 00 04 |/, | MOVE.L (A4+0x4),-(A7) 000286ea 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000286ee 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000286f4 50 4f |PO | ADDQ.L #0x8,A7 000286f6 29 5f 00 04 |)_ | MOVE.L (A7)+,(A4+0x4) 000286fa 4e 5e |N^ | UNLK A6 000286fc 4e 75 |Nu | RTS 000286fe ; -------------------------------------------------------------------------------------- 000286fe ; OMSI PASCAL Function 000286fe ; <LVAR 0x008 1(r)> 000286fe ; <LVAR -0x00a 4(rw)> 000286fe ; <LVAR -0x00e @> 000286fe ; -------------------------------------------------------------------------------------- 000286fe 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00028702 bf d5 | | CMPA.L (A5),A7 00028704 62 06 |b | BHI 0x2870c 00028706 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002870a 4e 76 |Nv | TRAPV 0002870c de fc 00 66 | f | ADDA.W #0x66,A7 00028710 48 e7 f1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7) 00028714 45 ee ff f2 |E | LEA.L (A6-0xe),A2 00028718 47 fa ff b8 |G | LEA.L 0x286d2,A3 0002871c 72 01 |r | MOVEQ.L #0x01,D1 0002871e 74 26 |t& | MOVEQ.L #0x26,D2 00028720 76 04 |v | MOVEQ.L #0x04,D3 00028722 4e ba fc 64 |N d | JSR 0x28388 00028726 7e 00 |~ | MOVEQ.L #0x00,D7 00028728 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 0002872e 63 02 |c | BLS 0x28732 00028730 4e 4f |NO | TRAP #15 00028732 20 07 | | MOVE.L D7,D0 00028734 e5 80 | | ASL.L #0x2,D0 00028736 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 0002873c 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00028740 30 28 04 4c |0( L | MOVE.W (A0+0x44c),D0 00028744 e5 48 | H | LSL.W #0x2,D0 00028746 e4 48 | H | LSR.W #0x2,D0 00028748 66 0e |f | BNE 0x28758 0002874a 4a 28 04 4e |J( N | TST.B (A0+0x44e) 0002874e 66 08 |f | BNE 0x28758 00028750 4a 28 04 4f |J( O | TST.B (A0+0x44f) 00028754 67 00 01 18 |g | BEQ 0x2886e 00028758 10 28 04 4c | ( L | MOVE.B (A0+0x44c),D0 0002875c e3 08 | | LSL.B #0x1,D0 0002875e ee 08 | | LSR.B #0x7,D0 00028760 66 08 |f | BNE 0x2876a 00028762 4a 2e 00 08 |J. | TST.B (A6+0x8) 00028766 67 00 01 06 |g | BEQ 0x2886e 0002876a 10 28 04 4c | ( L | MOVE.B (A0+0x44c),D0 0002876e e3 08 | | LSL.B #0x1,D0 00028770 ee 08 | | LSR.B #0x7,D0 00028772 67 0e |g | BEQ 0x28782 00028774 43 fa 95 6a |C j | LEA.L 0x21ce0,A1 00028778 70 12 |p | MOVEQ.L #0x12,D0 0002877a 3f 21 |?! | MOVE.W -(A1),-(A7) 0002877c 51 c8 ff fc |Q | DBF D0,0x2877a 00028780 60 0c |` | BRA 0x2878e 00028782 43 fa 95 82 |C | LEA.L 0x21d06,A1 00028786 70 12 |p | MOVEQ.L #0x12,D0 00028788 3f 21 |?! | MOVE.W -(A1),-(A7) 0002878a 51 c8 ff fc |Q | DBF D0,0x28788 0002878e 59 4f |YO | SUBQ.L #0x4,A7 00028790 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028794 3f 01 |? | MOVE.W D1,-(A7) 00028796 3f 02 |? | MOVE.W D2,-(A7) 00028798 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002879e 50 4f |PO | ADDQ.L #0x8,A7 000287a0 2d 5f ff f6 |-_ | MOVE.L (A7)+,(A6-0xa) 000287a4 de c2 | | ADDA.W D2,A7 000287a6 51 4f |QO | SUBQ.L #0x8,A7 000287a8 42 80 |B | CLR.L D0 000287aa 30 28 04 4c |0( L | MOVE.W (A0+0x44c),D0 000287ae e5 48 | H | LSL.W #0x2,D0 000287b0 e4 48 | H | LSR.W #0x2,D0 000287b2 2f 00 |/ | MOVE.L D0,-(A7) 000287b4 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000287ba 58 4f |XO | ADDQ.L #0x4,A7 000287bc 48 78 00 04 |Hx | PEA.L 0x4 000287c0 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String 000287c6 50 4f |PO | ADDQ.L #0x8,A7 000287c8 28 4a |(J | MOVEA.L A2,A4 000287ca 4e 93 |N | JSR (A3) 000287cc 58 4f |XO | ADDQ.L #0x4,A7 000287ce 42 80 |B | CLR.L D0 000287d0 10 28 04 4e | ( N | MOVE.B (A0+0x44e),D0 000287d4 0c 40 00 ff | @ | CMPI.W #0x00ff,D0 000287d8 66 1e |f | BNE 0x287f8 000287da 2f 3a 95 2a |/: * | MOVE.L 0x21d06,-(A7) 000287de 59 4f |YO | SUBQ.L #0x4,A7 000287e0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000287e4 3f 01 |? | MOVE.W D1,-(A7) 000287e6 3f 03 |? | MOVE.W D3,-(A7) 000287e8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000287ee 50 4f |PO | ADDQ.L #0x8,A7 000287f0 28 4a |(J | MOVEA.L A2,A4 000287f2 4e 93 |N | JSR (A3) 000287f4 58 4f |XO | ADDQ.L #0x4,A7 000287f6 60 1e |` | BRA 0x28816 000287f8 51 4f |QO | SUBQ.L #0x8,A7 000287fa 48 c0 |H | EXTW.L D0 000287fc 2f 00 |/ | MOVE.L D0,-(A7) 000287fe 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00028804 58 4f |XO | ADDQ.L #0x4,A7 00028806 48 78 00 04 |Hx | PEA.L 0x4 0002880a 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String 00028810 50 4f |PO | ADDQ.L #0x8,A7 00028812 28 4a |(J | MOVEA.L A2,A4 00028814 4e 93 |N | JSR (A3) 00028816 58 4f |XO | ADDQ.L #0x4,A7 00028818 42 80 |B | CLR.L D0 0002881a 10 28 04 4f | ( O | MOVE.B (A0+0x44f),D0 0002881e 0c 40 00 ff | @ | CMPI.W #0x00ff,D0 00028822 66 1e |f | BNE 0x28842 00028824 2f 3a 94 e4 |/: | MOVE.L 0x21d0a,-(A7) 00028828 59 4f |YO | SUBQ.L #0x4,A7 0002882a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002882e 3f 01 |? | MOVE.W D1,-(A7) 00028830 3f 03 |? | MOVE.W D3,-(A7) 00028832 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00028838 50 4f |PO | ADDQ.L #0x8,A7 0002883a 28 4a |(J | MOVEA.L A2,A4 0002883c 4e 93 |N | JSR (A3) 0002883e 58 4f |XO | ADDQ.L #0x4,A7 00028840 60 1e |` | BRA 0x28860 00028842 51 4f |QO | SUBQ.L #0x8,A7 00028844 48 c0 |H | EXTW.L D0 00028846 2f 00 |/ | MOVE.L D0,-(A7) 00028848 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002884e 58 4f |XO | ADDQ.L #0x4,A7 00028850 48 78 00 04 |Hx | PEA.L 0x4 00028854 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String 0002885a 50 4f |PO | ADDQ.L #0x8,A7 0002885c 28 4a |(J | MOVEA.L A2,A4 0002885e 4e 93 |N | JSR (A3) 00028860 58 4f |XO | ADDQ.L #0x4,A7 00028862 2f 2e ff f6 |/. | MOVE.L (A6-0xa),-(A7) 00028866 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002886c 58 4f |XO | ADDQ.L #0x4,A7 0002886e 52 87 |R | ADDQ.L #0x1,D7 00028870 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 00028876 6f 00 fe b0 |o | BLE 0x28728 0002887a 4c df 1f 8f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3+A4 0002887e 4e 5e |N^ | UNLK A6 00028880 4e 75 |Nu | RTS 00028882 ; -------------------------------------------------------------------------------------- 00028882 ; OMSI PASCAL Function 00028882 ; <LVAR -0x006 @ 4(r)> 00028882 ; <LVAR -0x008 @ 1(r)> 00028882 ; -------------------------------------------------------------------------------------- 00028882 4e 56 ff ac |NV | LINK.W A6,#0xffac 00028886 bf d5 | | CMPA.L (A5),A7 00028888 62 06 |b | BHI 0x28890 0002888a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002888e 4e 76 |Nv | TRAPV 00028890 de fc 00 4c | L | ADDA.W #0x4c,A7 00028894 48 e7 e0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D2+D1+D0,-(A7) 00028898 43 ee ff f8 |C | LEA.L (A6-0x8),A1 0002889c 45 ee ff fa |E | LEA.L (A6-0x6),A2 000288a0 47 f9 00 02 ee 1b |G | LEA.L 0x2ee1b,A3 000288a6 49 f9 00 02 ee 1c |I | LEA.L 0x2ee1c,A4 000288ac 72 01 |r | MOVEQ.L #0x01,D1 000288ae 74 14 |t | MOVEQ.L #0x14,D2 000288b0 41 f9 00 02 01 44 |A D | LEA.L 0x20144,A0 000288b6 70 04 |p | MOVEQ.L #0x04,D0 000288b8 2f 20 |/ | MOVE.L -(A0),-(A7) 000288ba 51 c8 ff fc |Q | DBF D0,0x288b8 000288be 59 4f |YO | SUBQ.L #0x4,A7 000288c0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000288c4 3f 01 |? | MOVE.W D1,-(A7) 000288c6 3f 02 |? | MOVE.W D2,-(A7) 000288c8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000288ce 5c 4f |\O | ADDQ.L #0x6,A7 000288d0 42 17 |B | CLR.B (A7) 000288d2 42 27 |B' | CLR.B -(A7) 000288d4 48 78 00 00 |Hx | PEA.L 0x0 000288d8 48 51 |HQ | PEA.L (A1) 000288da 48 52 |HR | PEA.L (A2) 000288dc 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000288e2 de fc 00 28 | ( | ADDA.W #0x28,A7 000288e6 4a 11 |J | TST.B (A1) 000288e8 66 1e |f | BNE 0x28908 000288ea 2f 12 |/ | MOVE.L (A2),-(A7) 000288ec 42 67 |Bg | CLR.W -(A7) 000288ee 42 67 |Bg | CLR.W -(A7) 000288f0 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 000288f4 1f 01 | | MOVE.B D1,-(A7) 000288f6 41 f9 00 02 ee 1e |A | LEA.L 0x2ee1e,A0 000288fc 2f 08 |/ | MOVE.L A0,-(A7) 000288fe 48 51 |HQ | PEA.L (A1) 00028900 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 00028906 de c2 | | ADDA.W D2,A7 00028908 42 13 |B | CLR.B (A3) 0002890a 4a 11 |J | TST.B (A1) 0002890c 66 02 |f | BNE 0x28910 0002890e 52 13 |R | ADDQ.B #0x1,(A3) 00028910 41 f9 00 02 01 52 |A R | LEA.L 0x20152,A0 00028916 70 06 |p | MOVEQ.L #0x06,D0 00028918 3f 20 |? | MOVE.W -(A0),-(A7) 0002891a 51 c8 ff fc |Q | DBF D0,0x28918 0002891e 59 4f |YO | SUBQ.L #0x4,A7 00028920 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028924 3f 01 |? | MOVE.W D1,-(A7) 00028926 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 0002892a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00028930 5c 4f |\O | ADDQ.L #0x6,A7 00028932 42 17 |B | CLR.B (A7) 00028934 42 27 |B' | CLR.B -(A7) 00028936 48 78 00 00 |Hx | PEA.L 0x0 0002893a 48 51 |HQ | PEA.L (A1) 0002893c 48 52 |HR | PEA.L (A2) 0002893e 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00028944 de fc 00 22 | " | ADDA.W #0x22,A7 00028948 4a 11 |J | TST.B (A1) 0002894a 66 1e |f | BNE 0x2896a 0002894c 2f 12 |/ | MOVE.L (A2),-(A7) 0002894e 42 67 |Bg | CLR.W -(A7) 00028950 42 67 |Bg | CLR.W -(A7) 00028952 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00028956 1f 01 | | MOVE.B D1,-(A7) 00028958 41 f9 00 02 f2 1e |A | LEA.L 0x2f21e,A0 0002895e 2f 08 |/ | MOVE.L A0,-(A7) 00028960 48 51 |HQ | PEA.L (A1) 00028962 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 00028968 de c2 | | ADDA.W D2,A7 0002896a 42 14 |B | CLR.B (A4) 0002896c 4a 11 |J | TST.B (A1) 0002896e 66 02 |f | BNE 0x28972 00028970 52 14 |R | ADDQ.B #0x1,(A4) 00028972 4c df 1f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3+A4 00028976 4e 5e |N^ | UNLK A6 00028978 4e 75 |Nu | RTS 0002897a ; -------------------------------------------------------------------------------------- 0002897a ; OMSI PASCAL Function 0002897a ; <LVAR -0x00e @ 4(r)> 0002897a ; <LVAR -0x010 @ 1(r)> 0002897a ; -------------------------------------------------------------------------------------- 0002897a 4e 56 ff 60 |NV ` | LINK.W A6,#0xff60 0002897e bf d5 | | CMPA.L (A5),A7 00028980 62 06 |b | BHI 0x28988 00028982 44 fc 00 02 |D | MOVE.W #0x2,CCR 00028986 4e 76 |Nv | TRAPV 00028988 de fc 00 90 | | ADDA.W #0x90,A7 0002898c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00028990 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00028996 47 ee ff f0 |G | LEA.L (A6-0x10),A3 0002899a 72 01 |r | MOVEQ.L #0x01,D1 0002899c 74 14 |t | MOVEQ.L #0x14,D2 0002899e 76 28 |v( | MOVEQ.L #0x28,D3 000289a0 78 48 |xH | MOVEQ.L #0x48,D4 000289a2 7a 4c |zL | MOVEQ.L #0x4c,D5 000289a4 7c 40 ||@ | MOVEQ.L #0x40,D6 000289a6 4a 39 00 02 ee 1b |J9 | TST.B 0x2ee1b 000289ac 67 00 00 aa |g | BEQ 0x28a58 000289b0 41 f9 00 02 01 44 |A D | LEA.L 0x20144,A0 000289b6 70 04 |p | MOVEQ.L #0x04,D0 000289b8 2f 20 |/ | MOVE.L -(A0),-(A7) 000289ba 51 c8 ff fc |Q | DBF D0,0x289b8 000289be 59 4f |YO | SUBQ.L #0x4,A7 000289c0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000289c4 3f 01 |? | MOVE.W D1,-(A7) 000289c6 3f 02 |? | MOVE.W D2,-(A7) 000289c8 4e 92 |N | JSR (A2) 000289ca 5c 4f |\O | ADDQ.L #0x6,A7 000289cc 1e 81 | | MOVE.B D1,(A7) 000289ce 1f 01 | | MOVE.B D1,-(A7) 000289d0 48 78 00 01 |Hx | PEA.L 0x1 000289d4 48 53 |HS | PEA.L (A3) 000289d6 48 6e ff f2 |Hn | PEA.L (A6-0xe) 000289da 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000289e0 de c3 | | ADDA.W D3,A7 000289e2 4a 13 |J | TST.B (A3) 000289e4 66 20 |f | BNE 0x28a06 000289e6 2f 2e ff f2 |/. | MOVE.L (A6-0xe),-(A7) 000289ea 42 67 |Bg | CLR.W -(A7) 000289ec 42 67 |Bg | CLR.W -(A7) 000289ee 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 000289f2 1f 01 | | MOVE.B D1,-(A7) 000289f4 41 f9 00 02 ee 1e |A | LEA.L 0x2ee1e,A0 000289fa 2f 08 |/ | MOVE.L A0,-(A7) 000289fc 48 53 |HS | PEA.L (A3) 000289fe 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 00028a04 de c2 | | ADDA.W D2,A7 00028a06 4a 13 |J | TST.B (A3) 00028a08 67 4c |gL | BEQ 0x28a56 00028a0a 9e c4 | | SUBA.W D4,A7 00028a0c 20 4f | O | MOVEA.L A7,A0 00028a0e 43 fa 93 94 |C | LEA.L 0x21da4,A1 00028a12 70 46 |pF | MOVEQ.L #0x46,D0 00028a14 10 d9 | | MOVE.B (A1)+,(A0)+ 00028a16 51 c8 ff fc |Q | DBF D0,0x28a14 00028a1a 59 4f |YO | SUBQ.L #0x4,A7 00028a1c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028a20 3f 01 |? | MOVE.W D1,-(A7) 00028a22 3f 3c 00 47 |?< G | MOVE.W #0x47,-(A7) 00028a26 4e 92 |N | JSR (A2) 00028a28 50 4f |PO | ADDQ.L #0x8,A7 00028a2a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00028a30 de c5 | | ADDA.W D5,A7 00028a32 41 fa 93 f8 |A | LEA.L 0x21e2c,A0 00028a36 70 0f |p | MOVEQ.L #0x0f,D0 00028a38 2f 20 |/ | MOVE.L -(A0),-(A7) 00028a3a 51 c8 ff fc |Q | DBF D0,0x28a38 00028a3e 59 4f |YO | SUBQ.L #0x4,A7 00028a40 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028a44 3f 01 |? | MOVE.W D1,-(A7) 00028a46 3f 06 |? | MOVE.W D6,-(A7) 00028a48 4e 92 |N | JSR (A2) 00028a4a 50 4f |PO | ADDQ.L #0x8,A7 00028a4c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00028a52 de fc 00 44 | D | ADDA.W #0x44,A7 00028a56 60 52 |`R | BRA 0x28aaa 00028a58 9e fc 00 4a | J | SUBA.W #0x4a,A7 00028a5c 20 4f | O | MOVEA.L A7,A0 00028a5e 43 fa 92 ae |C | LEA.L 0x21d0e,A1 00028a62 70 48 |pH | MOVEQ.L #0x48,D0 00028a64 10 d9 | | MOVE.B (A1)+,(A0)+ 00028a66 51 c8 ff fc |Q | DBF D0,0x28a64 00028a6a 59 4f |YO | SUBQ.L #0x4,A7 00028a6c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028a70 3f 01 |? | MOVE.W D1,-(A7) 00028a72 3f 3c 00 49 |?< I | MOVE.W #0x49,-(A7) 00028a76 4e 92 |N | JSR (A2) 00028a78 50 4f |PO | ADDQ.L #0x8,A7 00028a7a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00028a80 54 4f |TO | ADDQ.L #0x2,A7 00028a82 20 4f | O | MOVEA.L A7,A0 00028a84 43 fa 92 d2 |C | LEA.L 0x21d58,A1 00028a88 70 4a |pJ | MOVEQ.L #0x4a,D0 00028a8a 10 d9 | | MOVE.B (A1)+,(A0)+ 00028a8c 51 c8 ff fc |Q | DBF D0,0x28a8a 00028a90 59 4f |YO | SUBQ.L #0x4,A7 00028a92 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028a96 3f 01 |? | MOVE.W D1,-(A7) 00028a98 3f 3c 00 4b |?< K | MOVE.W #0x4b,-(A7) 00028a9c 4e 92 |N | JSR (A2) 00028a9e 50 4f |PO | ADDQ.L #0x8,A7 00028aa0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00028aa6 de fc 00 50 | P | ADDA.W #0x50,A7 00028aaa 4a 39 00 02 ee 1c |J9 | TST.B 0x2ee1c 00028ab0 66 00 01 08 |f | BNE 0x28bba 00028ab4 41 fa 93 be |A | LEA.L 0x21e74,A0 00028ab8 70 11 |p | MOVEQ.L #0x11,D0 00028aba 2f 20 |/ | MOVE.L -(A0),-(A7) 00028abc 51 c8 ff fc |Q | DBF D0,0x28aba 00028ac0 59 4f |YO | SUBQ.L #0x4,A7 00028ac2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028ac6 3f 01 |? | MOVE.W D1,-(A7) 00028ac8 3f 04 |? | MOVE.W D4,-(A7) 00028aca 4e 92 |N | JSR (A2) 00028acc 50 4f |PO | ADDQ.L #0x8,A7 00028ace 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00028ad4 de c5 | | ADDA.W D5,A7 00028ad6 41 fa 93 e2 |A | LEA.L 0x21eba,A0 00028ada 70 22 |p" | MOVEQ.L #0x22,D0 00028adc 3f 20 |? | MOVE.W -(A0),-(A7) 00028ade 51 c8 ff fc |Q | DBF D0,0x28adc 00028ae2 59 4f |YO | SUBQ.L #0x4,A7 00028ae4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028ae8 3f 01 |? | MOVE.W D1,-(A7) 00028aea 3f 3c 00 46 |?< F | MOVE.W #0x46,-(A7) 00028aee 4e 92 |N | JSR (A2) 00028af0 50 4f |PO | ADDQ.L #0x8,A7 00028af2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00028af8 de fc 00 12 | | ADDA.W #0x12,A7 00028afc 20 4f | O | MOVEA.L A7,A0 00028afe 43 fa 93 ba |C | LEA.L 0x21eba,A1 00028b02 70 36 |p6 | MOVEQ.L #0x36,D0 00028b04 10 d9 | | MOVE.B (A1)+,(A0)+ 00028b06 51 c8 ff fc |Q | DBF D0,0x28b04 00028b0a 51 4f |QO | SUBQ.L #0x8,A7 00028b0c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00028b10 3f 01 |? | MOVE.W D1,-(A7) 00028b12 3f 3c 00 37 |?< 7 | MOVE.W #0x37,-(A7) 00028b16 4e 92 |N | JSR (A2) 00028b18 50 4f |PO | ADDQ.L #0x8,A7 00028b1a 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00028b20 58 4f |XO | ADDQ.L #0x4,A7 00028b22 28 5f |(_ | MOVEA.L (A7)+,A4 00028b24 de fc 00 38 | 8 | ADDA.W #0x38,A7 00028b28 30 14 |0 | MOVE.W (A4),D0 00028b2a 0c 40 00 02 | @ | CMPI.W #0x0002,D0 00028b2e 6c 28 |l( | BGE 0x28b58 00028b30 9e fc 00 10 | | SUBA.W #0x10,A7 00028b34 20 4f | O | MOVEA.L A7,A0 00028b36 43 fa 94 3c |C < | LEA.L 0x21f74,A1 00028b3a 70 0e |p | MOVEQ.L #0x0e,D0 00028b3c 10 d9 | | MOVE.B (A1)+,(A0)+ 00028b3e 51 c8 ff fc |Q | DBF D0,0x28b3c 00028b42 59 4f |YO | SUBQ.L #0x4,A7 00028b44 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028b48 3f 01 |? | MOVE.W D1,-(A7) 00028b4a 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00028b4e 4e 92 |N | JSR (A2) 00028b50 50 4f |PO | ADDQ.L #0x8,A7 00028b52 28 5f |(_ | MOVEA.L (A7)+,A4 00028b54 de fc 00 10 | | ADDA.W #0x10,A7 00028b58 2f 0c |/ | MOVE.L A4,-(A7) 00028b5a 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 00028b5e 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00028b64 54 4f |TO | ADDQ.L #0x2,A7 00028b66 2e 8c |. | MOVE.L A4,(A7) 00028b68 1f 3c 00 0a | < | MOVE.B #0x0a,-(A7) 00028b6c 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00028b72 54 4f |TO | ADDQ.L #0x2,A7 00028b74 2e 8c |. | MOVE.L A4,(A7) 00028b76 42 27 |B' | CLR.B -(A7) 00028b78 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00028b7e 5c 4f |\O | ADDQ.L #0x6,A7 00028b80 7e 01 |~ | MOVEQ.L #0x01,D7 00028b82 20 07 | | MOVE.L D7,D0 00028b84 53 80 |S | SUBQ.L #0x1,D0 00028b86 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00028b8c 63 02 |c | BLS 0x28b90 00028b8e 4e 4f |NO | TRAP #15 00028b90 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 00028b96 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00028b9a 20 07 | | MOVE.L D7,D0 00028b9c 53 80 |S | SUBQ.L #0x1,D0 00028b9e 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00028ba4 63 02 |c | BLS 0x28ba8 00028ba6 4e 4f |NO | TRAP #15 00028ba8 11 74 08 02 5c 66 | t \f | MOVE.B (A4+D0.L+#0x2),(A0+0x5c66) 00028bae 52 87 |R | ADDQ.L #0x1,D7 00028bb0 0c 87 00 00 00 64 | d | CMPI.L #0x00000064,D7 00028bb6 6f ca |o | BLE 0x28b82 00028bb8 60 74 |`t | BRA 0x28c2e 00028bba 41 fa 93 f0 |A | LEA.L 0x21fac,A0 00028bbe 70 09 |p | MOVEQ.L #0x09,D0 00028bc0 2f 20 |/ | MOVE.L -(A0),-(A7) 00028bc2 51 c8 ff fc |Q | DBF D0,0x28bc0 00028bc6 59 4f |YO | SUBQ.L #0x4,A7 00028bc8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028bcc 3f 01 |? | MOVE.W D1,-(A7) 00028bce 3f 03 |? | MOVE.W D3,-(A7) 00028bd0 4e 92 |N | JSR (A2) 00028bd2 50 4f |PO | ADDQ.L #0x8,A7 00028bd4 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00028bda de fc 00 2c | , | ADDA.W #0x2c,A7 00028bde 7e 01 |~ | MOVEQ.L #0x01,D7 00028be0 20 07 | | MOVE.L D7,D0 00028be2 53 80 |S | SUBQ.L #0x1,D0 00028be4 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00028bea 63 02 |c | BLS 0x28bee 00028bec 4e 4f |NO | TRAP #15 00028bee 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 00028bf4 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00028bf8 4a 28 5c 66 |J(\f | TST.B (A0+0x5c66) 00028bfc 66 02 |f | BNE 0x28c00 00028bfe 60 2e |`. | BRA 0x28c2e 00028c00 20 07 | | MOVE.L D7,D0 00028c02 53 80 |S | SUBQ.L #0x1,D0 00028c04 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00028c0a 63 02 |c | BLS 0x28c0e 00028c0c 4e 4f |NO | TRAP #15 00028c0e 41 f9 00 02 95 b8 |A | LEA.L 0x295b8,A0 00028c14 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00028c18 1f 28 5c 66 | (\f | MOVE.B (A0+0x5c66),-(A7) 00028c1c 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00028c22 54 4f |TO | ADDQ.L #0x2,A7 00028c24 52 87 |R | ADDQ.L #0x1,D7 00028c26 0c 87 00 00 00 64 | d | CMPI.L #0x00000064,D7 00028c2c 6f b2 |o | BLE 0x28be0 00028c2e 41 f9 00 02 01 52 |A R | LEA.L 0x20152,A0 00028c34 70 06 |p | MOVEQ.L #0x06,D0 00028c36 3f 20 |? | MOVE.W -(A0),-(A7) 00028c38 51 c8 ff fc |Q | DBF D0,0x28c36 00028c3c 59 4f |YO | SUBQ.L #0x4,A7 00028c3e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028c42 3f 01 |? | MOVE.W D1,-(A7) 00028c44 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00028c48 4e 92 |N | JSR (A2) 00028c4a 5c 4f |\O | ADDQ.L #0x6,A7 00028c4c 1e 81 | | MOVE.B D1,(A7) 00028c4e 1f 01 | | MOVE.B D1,-(A7) 00028c50 48 78 00 01 |Hx | PEA.L 0x1 00028c54 48 53 |HS | PEA.L (A3) 00028c56 48 6e ff f2 |Hn | PEA.L (A6-0xe) 00028c5a 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00028c60 de fc 00 22 | " | ADDA.W #0x22,A7 00028c64 4a 13 |J | TST.B (A3) 00028c66 66 20 |f | BNE 0x28c88 00028c68 2f 2e ff f2 |/. | MOVE.L (A6-0xe),-(A7) 00028c6c 42 67 |Bg | CLR.W -(A7) 00028c6e 42 67 |Bg | CLR.W -(A7) 00028c70 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00028c74 1f 01 | | MOVE.B D1,-(A7) 00028c76 41 f9 00 02 f2 1e |A | LEA.L 0x2f21e,A0 00028c7c 2f 08 |/ | MOVE.L A0,-(A7) 00028c7e 48 53 |HS | PEA.L (A3) 00028c80 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 00028c86 de c2 | | ADDA.W D2,A7 00028c88 4a 13 |J | TST.B (A3) 00028c8a 67 4c |gL | BEQ 0x28cd8 00028c8c 41 fa 92 aa |A | LEA.L 0x21f38,A0 00028c90 70 22 |p" | MOVEQ.L #0x22,D0 00028c92 3f 20 |? | MOVE.W -(A0),-(A7) 00028c94 51 c8 ff fc |Q | DBF D0,0x28c92 00028c98 59 4f |YO | SUBQ.L #0x4,A7 00028c9a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028c9e 3f 01 |? | MOVE.W D1,-(A7) 00028ca0 3f 3c 00 46 |?< F | MOVE.W #0x46,-(A7) 00028ca4 4e 92 |N | JSR (A2) 00028ca6 50 4f |PO | ADDQ.L #0x8,A7 00028ca8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00028cae de fc 00 0e | | ADDA.W #0xe,A7 00028cb2 20 4f | O | MOVEA.L A7,A0 00028cb4 43 fa 92 82 |C | LEA.L 0x21f38,A1 00028cb8 70 3a |p: | MOVEQ.L #0x3a,D0 00028cba 10 d9 | | MOVE.B (A1)+,(A0)+ 00028cbc 51 c8 ff fc |Q | DBF D0,0x28cba 00028cc0 59 4f |YO | SUBQ.L #0x4,A7 00028cc2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028cc6 3f 01 |? | MOVE.W D1,-(A7) 00028cc8 3f 3c 00 3b |?< ; | MOVE.W #0x3b,-(A7) 00028ccc 4e 92 |N | JSR (A2) 00028cce 50 4f |PO | ADDQ.L #0x8,A7 00028cd0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00028cd6 de c6 | | ADDA.W D6,A7 00028cd8 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00028cdc 4e 5e |N^ | UNLK A6 00028cde 4e 75 |Nu | RTS 00028ce0 ; -------------------------------------------------------------------------------------- 00028ce0 ; OMSI PASCAL Function 00028ce0 ; <LVAR 0x008 1(r)> 00028ce0 ; -------------------------------------------------------------------------------------- 00028ce0 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 00028ce4 bf d5 | | CMPA.L (A5),A7 00028ce6 62 06 |b | BHI 0x28cee 00028ce8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00028cec 4e 76 |Nv | TRAPV 00028cee de fc 00 0c | | ADDA.W #0xc,A7 00028cf2 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00028cf6 42 27 |B' | CLR.B -(A7) 00028cf8 4e ba a0 20 |N | JSR 0x22d1a 00028cfc 54 4f |TO | ADDQ.L #0x2,A7 00028cfe 4e ba b1 d2 |N | JSR 0x23ed2 00028d02 4a 2e 00 08 |J. | TST.B (A6+0x8) 00028d06 67 04 |g | BEQ 0x28d0c 00028d08 4e ba b4 0c |N | JSR 0x24116 00028d0c 10 39 00 02 95 c0 | 9 | MOVE.B 0x295c0,D0 00028d12 0c 00 00 02 | | CMPI.B #0x02,D0 00028d16 66 2a |f* | BNE 0x28d42 00028d18 30 39 00 02 95 c2 |09 | MOVE.W 0x295c2,D0 00028d1e b0 79 00 02 95 f6 | y | CMP.W 0x295f6,D0 00028d24 66 1c |f | BNE 0x28d42 00028d26 13 fc 00 01 00 02 95 f0 | | MOVE.B #0x01,0x295f0 00028d2e 42 27 |B' | CLR.B -(A7) 00028d30 4e b9 00 01 04 04 |N | JSR SetSomeKindOfFlag(a : Byte) 00028d36 42 57 |BW | CLR.W (A7) 00028d38 42 67 |Bg | CLR.W -(A7) 00028d3a 4e b9 00 01 02 02 |N | JSR KC01_DumpOn 00028d40 58 4f |XO | ADDQ.L #0x4,A7 00028d42 4e ba c5 9e |N | JSR 0x252e2 00028d46 55 4f |UO | SUBQ.L #0x2,A7 00028d48 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00028d4e 4a 1f |J | TST.B (A7)+ 00028d50 66 04 |f | BNE 0x28d56 00028d52 4e ba d3 f0 |N | JSR 0x26144 00028d56 4e ba f5 4c |N L | JSR 0x282a4 00028d5a 48 79 00 02 95 ea |Hy | PEA.L 0x295ea 00028d60 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00028d66 58 4f |XO | ADDQ.L #0x4,A7 00028d68 4c df 00 01 |L | MOVEM.L (A7)+,D0 00028d6c 4e 5e |N^ | UNLK A6 00028d6e 4e 75 |Nu | RTS 00028d70 ; -------------------------------------------------------------------------------------- 00028d70 ; OMSI PASCAL Function 00028d70 ; <LVAR -0x002 @> 00028d70 ; <LVAR -0x003 @ 1(r)> 00028d70 ; <LVAR -0x004 @ 1(r)> 00028d70 ; -------------------------------------------------------------------------------------- 00028d70 4e 56 ff 78 |NV x | LINK.W A6,#0xff78 00028d74 bf d5 | | CMPA.L (A5),A7 00028d76 62 06 |b | BHI 0x28d7e 00028d78 44 fc 00 02 |D | MOVE.W #0x2,CCR 00028d7c 4e 76 |Nv | TRAPV 00028d7e de fc 00 84 | | ADDA.W #0x84,A7 00028d82 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00028d86 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00028d8c 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00028d92 49 fa 97 38 |I 8 | LEA.L 0x224cc,A4 00028d96 72 01 |r | MOVEQ.L #0x01,D1 00028d98 74 02 |t | MOVEQ.L #0x02,D2 00028d9a 76 42 |vB | MOVEQ.L #0x42,D3 00028d9c 78 32 |x2 | MOVEQ.L #0x32,D4 00028d9e 7a 24 |z$ | MOVEQ.L #0x24,D5 00028da0 13 c1 00 02 ee 1a | | MOVE.B D1,0x2ee1a 00028da6 10 39 00 02 95 c0 | 9 | MOVE.B 0x295c0,D0 00028dac b0 02 | | CMP.B D2,D0 00028dae 66 20 |f | BNE 0x28dd0 00028db0 41 fa 92 6a |A j | LEA.L 0x2201c,A0 00028db4 70 1e |p | MOVEQ.L #0x1e,D0 00028db6 3f 20 |? | MOVE.W -(A0),-(A7) 00028db8 51 c8 ff fc |Q | DBF D0,0x28db6 00028dbc 59 4f |YO | SUBQ.L #0x4,A7 00028dbe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028dc2 3f 01 |? | MOVE.W D1,-(A7) 00028dc4 3f 3c 00 3e |?< > | MOVE.W #0x3e,-(A7) 00028dc8 4e 92 |N | JSR (A2) 00028dca 50 4f |PO | ADDQ.L #0x8,A7 00028dcc 4e 93 |N | JSR (A3) 00028dce de c3 | | ADDA.W D3,A7 00028dd0 1f 01 | | MOVE.B D1,-(A7) 00028dd2 4e ba 9f 46 |N F | JSR 0x22d1a 00028dd6 54 4f |TO | ADDQ.L #0x2,A7 00028dd8 4a 39 00 02 95 ef |J9 | TST.B 0x295ef 00028dde 66 26 |f& | BNE 0x28e06 00028de0 9e c4 | | SUBA.W D4,A7 00028de2 20 4f | O | MOVEA.L A7,A0 00028de4 43 fa 91 c6 |C | LEA.L 0x21fac,A1 00028de8 70 30 |p0 | MOVEQ.L #0x30,D0 00028dea 10 d9 | | MOVE.B (A1)+,(A0)+ 00028dec 51 c8 ff fc |Q | DBF D0,0x28dea 00028df0 59 4f |YO | SUBQ.L #0x4,A7 00028df2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028df6 3f 01 |? | MOVE.W D1,-(A7) 00028df8 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 00028dfc 4e 92 |N | JSR (A2) 00028dfe 50 4f |PO | ADDQ.L #0x8,A7 00028e00 4e 94 |N | JSR (A4) 00028e02 de fc 00 36 | 6 | ADDA.W #0x36,A7 00028e06 48 6e ff fc |Hn | PEA.L (A6-0x4) 00028e0a 4e ba aa e4 |N | JSR 0x238f0 00028e0e 58 4f |XO | ADDQ.L #0x4,A7 00028e10 4a 2e ff fc |J. | TST.B (A6-0x4) 00028e14 66 22 |f" | BNE 0x28e38 00028e16 41 fa 92 1c |A | LEA.L 0x22034,A0 00028e1a 70 05 |p | MOVEQ.L #0x05,D0 00028e1c 2f 20 |/ | MOVE.L -(A0),-(A7) 00028e1e 51 c8 ff fc |Q | DBF D0,0x28e1c 00028e22 59 4f |YO | SUBQ.L #0x4,A7 00028e24 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028e28 3f 01 |? | MOVE.W D1,-(A7) 00028e2a 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00028e2e 4e 92 |N | JSR (A2) 00028e30 50 4f |PO | ADDQ.L #0x8,A7 00028e32 4e 94 |N | JSR (A4) 00028e34 de fc 00 1c | | ADDA.W #0x1c,A7 00028e38 3f 39 00 01 00 08 |?9 | MOVE.W 0x10008,-(A7) 00028e3e 48 6e ff fd |Hn | PEA.L (A6-0x3) 00028e42 4e b9 00 01 03 94 |N | JSR MountDisk(drive : Word ; VAR status : Byte) 00028e48 5c 4f |\O | ADDQ.L #0x6,A7 00028e4a 4a 2e ff fd |J. | TST.B (A6-0x3) 00028e4e 67 3a |g: | BEQ 0x28e8a 00028e50 2f 3a 91 ee |/: | MOVE.L 0x22040,-(A7) 00028e54 2f 3a 91 e6 |/: | MOVE.L 0x2203c,-(A7) 00028e58 2f 3a 91 de |/: | MOVE.L 0x22038,-(A7) 00028e5c 2f 3a 91 d6 |/: | MOVE.L 0x22034,-(A7) 00028e60 51 4f |QO | SUBQ.L #0x8,A7 00028e62 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00028e66 3f 01 |? | MOVE.W D1,-(A7) 00028e68 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 00028e6c 4e 92 |N | JSR (A2) 00028e6e 54 4f |TO | ADDQ.L #0x2,A7 00028e70 1e ae ff fd | | MOVE.B (A6-0x3),(A7) 00028e74 4e b9 00 01 03 a0 |N | JSR FsErrMsgStr(err: Byte) : String 00028e7a 54 4f |TO | ADDQ.L #0x2,A7 00028e7c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00028e82 50 4f |PO | ADDQ.L #0x8,A7 00028e84 4e 94 |N | JSR (A4) 00028e86 de fc 00 14 | | ADDA.W #0x14,A7 00028e8a 4e ba f9 f6 |N | JSR 0x28882 00028e8e 10 39 00 02 95 c0 | 9 | MOVE.B 0x295c0,D0 00028e94 b0 02 | | CMP.B D2,D0 00028e96 66 28 |f( | BNE 0x28ec0 00028e98 30 39 00 02 95 c2 |09 | MOVE.W 0x295c2,D0 00028e9e b0 79 00 02 95 f6 | y | CMP.W 0x295f6,D0 00028ea4 66 1a |f | BNE 0x28ec0 00028ea6 13 c1 00 02 95 f0 | | MOVE.B D1,0x295f0 00028eac 42 27 |B' | CLR.B -(A7) 00028eae 4e b9 00 01 04 04 |N | JSR SetSomeKindOfFlag(a : Byte) 00028eb4 42 57 |BW | CLR.W (A7) 00028eb6 42 67 |Bg | CLR.W -(A7) 00028eb8 4e b9 00 01 02 02 |N | JSR KC01_DumpOn 00028ebe 58 4f |XO | ADDQ.L #0x4,A7 00028ec0 4e ba f3 e2 |N | JSR 0x282a4 00028ec4 48 79 00 02 95 ea |Hy | PEA.L 0x295ea 00028eca 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00028ed0 58 4f |XO | ADDQ.L #0x4,A7 00028ed2 41 fa 91 90 |A | LEA.L 0x22064,A0 00028ed6 70 07 |p | MOVEQ.L #0x07,D0 00028ed8 2f 20 |/ | MOVE.L -(A0),-(A7) 00028eda 51 c8 ff fc |Q | DBF D0,0x28ed8 00028ede 59 4f |YO | SUBQ.L #0x4,A7 00028ee0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028ee4 3f 01 |? | MOVE.W D1,-(A7) 00028ee6 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00028eea 4e 92 |N | JSR (A2) 00028eec 50 4f |PO | ADDQ.L #0x8,A7 00028eee 4e 93 |N | JSR (A3) 00028ef0 de c5 | | ADDA.W D5,A7 00028ef2 4e ba fa 86 |N | JSR 0x2897a 00028ef6 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00028efc 9e fc 00 0e | | SUBA.W #0xe,A7 00028f00 20 4f | O | MOVEA.L A7,A0 00028f02 43 fa 91 60 |C ` | LEA.L 0x22064,A1 00028f06 70 0c |p | MOVEQ.L #0x0c,D0 00028f08 10 d9 | | MOVE.B (A1)+,(A0)+ 00028f0a 51 c8 ff fc |Q | DBF D0,0x28f08 00028f0e 51 4f |QO | SUBQ.L #0x8,A7 00028f10 20 4f | O | MOVEA.L A7,A0 00028f12 43 fa 91 5e |C ^ | LEA.L 0x22072,A1 00028f16 70 06 |p | MOVEQ.L #0x06,D0 00028f18 10 d9 | | MOVE.B (A1)+,(A0)+ 00028f1a 51 c8 ff fc |Q | DBF D0,0x28f18 00028f1e 59 4f |YO | SUBQ.L #0x4,A7 00028f20 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00028f24 3f 01 |? | MOVE.W D1,-(A7) 00028f26 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00028f2a 4e 92 |N | JSR (A2) 00028f2c 58 4f |XO | ADDQ.L #0x4,A7 00028f2e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00028f32 3f 01 |? | MOVE.W D1,-(A7) 00028f34 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00028f38 4e 92 |N | JSR (A2) 00028f3a 5c 4f |\O | ADDQ.L #0x6,A7 00028f3c 1e 81 | | MOVE.B D1,(A7) 00028f3e 48 6e ff fe |Hn | PEA.L (A6-0x2) 00028f42 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00028f48 de c5 | | ADDA.W D5,A7 00028f4a 41 fa 91 70 |A p | LEA.L 0x220bc,A0 00028f4e 70 20 |p | MOVEQ.L #0x20,D0 00028f50 3f 20 |? | MOVE.W -(A0),-(A7) 00028f52 51 c8 ff fc |Q | DBF D0,0x28f50 00028f56 59 4f |YO | SUBQ.L #0x4,A7 00028f58 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028f5c 3f 01 |? | MOVE.W D1,-(A7) 00028f5e 3f 03 |? | MOVE.W D3,-(A7) 00028f60 4e 92 |N | JSR (A2) 00028f62 50 4f |PO | ADDQ.L #0x8,A7 00028f64 4e 93 |N | JSR (A3) 00028f66 55 4f |UO | SUBQ.L #0x2,A7 00028f68 20 4f | O | MOVEA.L A7,A0 00028f6a 43 fa 91 50 |C P | LEA.L 0x220bc,A1 00028f6e 70 46 |pF | MOVEQ.L #0x46,D0 00028f70 10 d9 | | MOVE.B (A1)+,(A0)+ 00028f72 51 c8 ff fc |Q | DBF D0,0x28f70 00028f76 59 4f |YO | SUBQ.L #0x4,A7 00028f78 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028f7c 3f 01 |? | MOVE.W D1,-(A7) 00028f7e 3f 3c 00 47 |?< G | MOVE.W #0x47,-(A7) 00028f82 4e 92 |N | JSR (A2) 00028f84 50 4f |PO | ADDQ.L #0x8,A7 00028f86 4e 93 |N | JSR (A3) 00028f88 de c4 | | ADDA.W D4,A7 00028f8a 20 4f | O | MOVEA.L A7,A0 00028f8c 43 fa 91 76 |C v | LEA.L 0x22104,A1 00028f90 70 18 |p | MOVEQ.L #0x18,D0 00028f92 10 d9 | | MOVE.B (A1)+,(A0)+ 00028f94 51 c8 ff fc |Q | DBF D0,0x28f92 00028f98 59 4f |YO | SUBQ.L #0x4,A7 00028f9a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028f9e 3f 01 |? | MOVE.W D1,-(A7) 00028fa0 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00028fa4 4e 92 |N | JSR (A2) 00028fa6 50 4f |PO | ADDQ.L #0x8,A7 00028fa8 4e 94 |N | JSR (A4) 00028faa de fc 00 1e | | ADDA.W #0x1e,A7 00028fae 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00028fb2 4e 5e |N^ | UNLK A6 00028fb4 4e 75 |Nu | RTS 00028fb6 ; -------------------------------------------------------------------------------------- 00028fb6 ; OMSI PASCAL Function 00028fb6 ; -------------------------------------------------------------------------------------- 00028fb6 START: 00028fb6 4f fa 00 08 |O | LEA.L MAIN,A7 00028fba 4e f9 00 01 02 80 |N | JMP ?start_program 00028fc0 MAIN: 00028fc0 4e b9 00 01 04 00 |N | JSR FSCALL_10400 00028fc6 4e b9 00 01 05 e6 |N | JSR Set_fc04_to_01(void) 00028fcc 9e fc 00 26 | & | SUBA.W #0x26,A7 00028fd0 20 4f | O | MOVEA.L A7,A0 00028fd2 43 f9 00 02 01 0a |C | LEA.L 0x2010a,A1 00028fd8 70 24 |p$ | MOVEQ.L #0x24,D0 00028fda 10 d9 | | MOVE.B (A1)+,(A0)+ 00028fdc 51 c8 ff fc |Q | DBF D0,0x28fda 00028fe0 59 4f |YO | SUBQ.L #0x4,A7 00028fe2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00028fe6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00028fea 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7) 00028fee 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00028ff4 50 4f |PO | ADDQ.L #0x8,A7 00028ff6 23 df 00 02 f6 24 |# $ | MOVE.L (A7)+,0x2f624 00028ffc de fc 00 26 | & | ADDA.W #0x26,A7 00029000 20 79 00 02 f6 24 | y $ | MOVEA.L 0x2f624,A0 00029006 30 10 |0 | MOVE.W (A0),D0 00029008 48 c0 |H | EXTW.L D0 0002900a 2f 00 |/ | MOVE.L D0,-(A7) 0002900c 70 01 |p | MOVEQ.L #0x01,D0 0002900e b0 97 | | CMP.L (A7),D0 00029010 6e 36 |n6 | BGT 0x29048 00029012 23 c0 00 02 f6 20 |# | MOVE.L D0,0x2f620 00029018 20 79 00 02 f6 24 | y $ | MOVEA.L 0x2f624,A0 0002901e 22 00 |" | MOVE.L D0,D1 00029020 53 81 |S | SUBQ.L #0x1,D1 00029022 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00029028 63 02 |c | BLS 0x2902c 0002902a 4e 4f |NO | TRAP #15 0002902c 0c 80 00 00 00 04 | | CMPI.L #0x00000004,D0 00029032 6f 0a |o | BLE 0x2903e 00029034 14 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D2 00029038 0c 02 00 2c | , | CMPI.B #0x2c,D2 0002903c 66 06 |f | BNE 0x29044 0002903e 11 bc 00 20 18 02 | | MOVE.B #0x20,(A0+D1.L+#0x2) 00029044 52 80 |R | ADDQ.L #0x1,D0 00029046 68 c6 |h | BVC 0x2900e 00029048 2e b9 00 02 f6 24 |. $ | MOVE.L 0x2f624,(A7) 0002904e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00029054 58 4f |XO | ADDQ.L #0x4,A7 00029056 41 f9 00 02 96 04 |A | LEA.L 0x29604,A0 0002905c 23 c8 00 02 95 fc |# | MOVE.L A0,0x295fc 00029062 2f 08 |/ | MOVE.L A0,-(A7) 00029064 23 df 00 02 96 00 |# | MOVE.L (A7)+,0x29600 0002906a 48 79 00 02 95 c0 |Hy | PEA.L 0x295c0 00029070 48 79 00 02 95 c2 |Hy | PEA.L 0x295c2 00029076 4e b9 00 01 02 00 |N | JSR KC00_GetBootDev(VAR a : Byte; VAR b : Word) 0002907c 50 4f |PO | ADDQ.L #0x8,A7 0002907e 42 39 00 02 95 f0 |B9 | CLR.B 0x295f0 00029084 10 39 00 02 95 c0 | 9 | MOVE.B 0x295c0,D0 0002908a 0c 00 00 02 | | CMPI.B #0x02,D0 0002908e 67 06 |g | BEQ 0x29096 00029090 52 39 00 02 95 f0 |R9 | ADDQ.B #0x1,0x295f0 00029096 55 4f |UO | SUBQ.L #0x2,A7 00029098 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 0002909e 4a 1f |J | TST.B (A7)+ 000290a0 67 14 |g | BEQ 0x290b6 000290a2 41 f9 00 02 95 c8 |A | LEA.L 0x295c8,A0 000290a8 43 fa 92 64 |C d | LEA.L 0x2230e,A1 000290ac 70 05 |p | MOVEQ.L #0x05,D0 000290ae 20 d9 | | MOVE.L (A1)+,(A0)+ 000290b0 51 c8 ff fc |Q | DBF D0,0x290ae 000290b4 60 12 |` | BRA 0x290c8 000290b6 41 f9 00 02 95 c8 |A | LEA.L 0x295c8,A0 000290bc 43 fa 92 38 |C 8 | LEA.L 0x222f6,A1 000290c0 70 05 |p | MOVEQ.L #0x05,D0 000290c2 20 d9 | | MOVE.L (A1)+,(A0)+ 000290c4 51 c8 ff fc |Q | DBF D0,0x290c2 000290c8 42 39 00 02 ea 18 |B9 | CLR.B 0x2ea18 000290ce 42 39 00 02 ee 1a |B9 | CLR.B 0x2ee1a 000290d4 2f 3a 90 50 |/: P | MOVE.L 0x22126,-(A7) 000290d8 2f 3a 90 48 |/: H | MOVE.L 0x22122,-(A7) 000290dc 2f 3a 90 40 |/: @ | MOVE.L 0x2211e,-(A7) 000290e0 59 4f |YO | SUBQ.L #0x4,A7 000290e2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000290e6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000290ea 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 000290ee 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000290f4 50 4f |PO | ADDQ.L #0x8,A7 000290f6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000290fc 54 4f |TO | ADDQ.L #0x2,A7 000290fe 20 4f | O | MOVEA.L A7,A0 00029100 43 fa 90 28 |C ( | LEA.L 0x2212a,A1 00029104 70 0c |p | MOVEQ.L #0x0c,D0 00029106 10 d9 | | MOVE.B (A1)+,(A0)+ 00029108 51 c8 ff fc |Q | DBF D0,0x29106 0002910c 59 4f |YO | SUBQ.L #0x4,A7 0002910e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00029112 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00029116 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 0002911a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00029120 50 4f |PO | ADDQ.L #0x8,A7 00029122 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00029128 9e fc 00 1a | | SUBA.W #0x1a,A7 0002912c 20 4f | O | MOVEA.L A7,A0 0002912e 43 fa 90 08 |C | LEA.L 0x22138,A1 00029132 70 2a |p* | MOVEQ.L #0x2a,D0 00029134 10 d9 | | MOVE.B (A1)+,(A0)+ 00029136 51 c8 ff fc |Q | DBF D0,0x29134 0002913a 59 4f |YO | SUBQ.L #0x4,A7 0002913c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00029140 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00029144 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7) 00029148 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002914e 50 4f |PO | ADDQ.L #0x8,A7 00029150 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00029156 de fc 00 30 | 0 | ADDA.W #0x30,A7 0002915a 41 fa 90 46 |A F | LEA.L 0x221a2,A0 0002915e 70 1e |p | MOVEQ.L #0x1e,D0 00029160 3f 20 |? | MOVE.W -(A0),-(A7) 00029162 51 c8 ff fc |Q | DBF D0,0x29160 00029166 59 4f |YO | SUBQ.L #0x4,A7 00029168 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002916c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00029170 3f 3c 00 3e |?< > | MOVE.W #0x3e,-(A7) 00029174 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002917a 50 4f |PO | ADDQ.L #0x8,A7 0002917c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00029182 de fc 00 14 | | ADDA.W #0x14,A7 00029186 20 4f | O | MOVEA.L A7,A0 00029188 43 fa 90 18 |C | LEA.L 0x221a2,A1 0002918c 70 2c |p, | MOVEQ.L #0x2c,D0 0002918e 10 d9 | | MOVE.B (A1)+,(A0)+ 00029190 51 c8 ff fc |Q | DBF D0,0x2918e 00029194 59 4f |YO | SUBQ.L #0x4,A7 00029196 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002919a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002919e 3f 3c 00 2d |?< - | MOVE.W #0x2d,-(A7) 000291a2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000291a8 50 4f |PO | ADDQ.L #0x8,A7 000291aa 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000291b0 de fc 00 32 | 2 | ADDA.W #0x32,A7 000291b4 41 fa 90 44 |A D | LEA.L 0x221fa,A0 000291b8 70 14 |p | MOVEQ.L #0x14,D0 000291ba 3f 20 |? | MOVE.W -(A0),-(A7) 000291bc 51 c8 ff fc |Q | DBF D0,0x291ba 000291c0 59 4f |YO | SUBQ.L #0x4,A7 000291c2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000291c6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000291ca 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 000291ce 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000291d4 50 4f |PO | ADDQ.L #0x8,A7 000291d6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000291dc de fc 00 10 | | ADDA.W #0x10,A7 000291e0 20 4f | O | MOVEA.L A7,A0 000291e2 43 fa 90 16 |C | LEA.L 0x221fa,A1 000291e6 70 1c |p | MOVEQ.L #0x1c,D0 000291e8 10 d9 | | MOVE.B (A1)+,(A0)+ 000291ea 51 c8 ff fc |Q | DBF D0,0x291e8 000291ee 59 4f |YO | SUBQ.L #0x4,A7 000291f0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000291f4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000291f8 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 000291fc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00029202 50 4f |PO | ADDQ.L #0x8,A7 00029204 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002920a de fc 00 22 | " | ADDA.W #0x22,A7 0002920e 41 fa 90 34 |A 4 | LEA.L 0x22244,A0 00029212 70 0a |p | MOVEQ.L #0x0a,D0 00029214 2f 20 |/ | MOVE.L -(A0),-(A7) 00029216 51 c8 ff fc |Q | DBF D0,0x29214 0002921a 59 4f |YO | SUBQ.L #0x4,A7 0002921c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00029220 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00029224 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7) 00029228 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002922e 50 4f |PO | ADDQ.L #0x8,A7 00029230 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00029236 de fc 00 20 | | ADDA.W #0x20,A7 0002923a 20 4f | O | MOVEA.L A7,A0 0002923c 43 fa 90 06 |C | LEA.L 0x22244,A1 00029240 70 0e |p | MOVEQ.L #0x0e,D0 00029242 10 d9 | | MOVE.B (A1)+,(A0)+ 00029244 51 c8 ff fc |Q | DBF D0,0x29242 00029248 51 4f |QO | SUBQ.L #0x8,A7 0002924a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002924e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00029252 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00029256 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002925c 50 4f |PO | ADDQ.L #0x8,A7 0002925e 48 78 00 00 |Hx | PEA.L 0x0 00029262 48 78 00 06 |Hx | PEA.L 0x6 00029266 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 0002926c de fc 00 0c | | ADDA.W #0xc,A7 00029270 10 2f 00 03 | / | MOVE.B (A7+0x3),D0 00029274 48 80 |H | EXTB.W D0 00029276 41 bc 00 06 |A | CHK.W #0x6,D0 0002927a de fc 00 14 | | ADDA.W #0x14,A7 0002927e 13 c0 00 02 f6 1e | | MOVE.B D0,0x2f61e 00029284 12 00 | | MOVE.B D0,D1 00029286 48 81 |H | EXTB.W D1 00029288 30 01 |0 | MOVE.W D1,D0 0002928a 0c 40 00 06 | @ | CMPI.W #0x0006,D0 0002928e 63 02 |c | BLS 0x29292 00029290 4e 4e |NN | TRAP #14 00029292 d0 40 | @ | ADD.W D0,D0 00029294 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002929c 00 0e | | .CONST 0xe ; [0x0] -> 0x292aa 0002929e 00 10 | | .CONST 0x10 ; [0x1] -> 0x292ac 000292a0 00 10 | | .CONST 0x10 ; [0x2] -> 0x292ac 000292a2 00 28 | ( | .CONST 0x28 ; [0x3] -> 0x292c4 000292a4 00 28 | ( | .CONST 0x28 ; [0x4] -> 0x292c4 000292a6 00 80 | | .CONST 0x80 ; [0x5] -> 0x2931c 000292a8 00 22 | " | .CONST 0x22 ; [0x6] -> 0x292be 000292aa switch@0x29294[0x0]: 000292aa 60 74 |`t | BRA 0x29320 000292ac switch@0x29294[0x1]: 000292ac switch@0x29294[0x2]: 000292ac 42 27 |B' | CLR.B -(A7) 000292ae 0c 01 00 02 | | CMPI.B #0x02,D1 000292b2 66 02 |f | BNE 0x292b6 000292b4 52 17 |R | ADDQ.B #0x1,(A7) 000292b6 4e ba fa 28 |N ( | JSR 0x28ce0 000292ba 54 4f |TO | ADDQ.L #0x2,A7 000292bc 60 62 |`b | BRA 0x29320 000292be switch@0x29294[0x6]: 000292be 4e ba f0 c8 |N | JSR 0x28388 000292c2 60 5c |`\ | BRA 0x29320 000292c4 switch@0x29294[0x3]: 000292c4 switch@0x29294[0x4]: 000292c4 55 4f |UO | SUBQ.L #0x2,A7 000292c6 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool 000292cc 4a 1f |J | TST.B (A7)+ 000292ce 67 34 |g4 | BEQ 0x29304 000292d0 9e fc 00 3c | < | SUBA.W #0x3c,A7 000292d4 20 4f | O | MOVEA.L A7,A0 000292d6 43 fa 8f 7c |C | | LEA.L 0x22254,A1 000292da 70 3a |p: | MOVEQ.L #0x3a,D0 000292dc 10 d9 | | MOVE.B (A1)+,(A0)+ 000292de 51 c8 ff fc |Q | DBF D0,0x292dc 000292e2 59 4f |YO | SUBQ.L #0x4,A7 000292e4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000292e8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000292ec 3f 3c 00 3b |?< ; | MOVE.W #0x3b,-(A7) 000292f0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000292f6 50 4f |PO | ADDQ.L #0x8,A7 000292f8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000292fe de fc 00 40 | @ | ADDA.W #0x40,A7 00029302 60 16 |` | BRA 0x2931a 00029304 42 27 |B' | CLR.B -(A7) 00029306 10 39 00 02 f6 1e | 9 | MOVE.B 0x2f61e,D0 0002930c 0c 00 00 03 | | CMPI.B #0x03,D0 00029310 66 02 |f | BNE 0x29314 00029312 52 17 |R | ADDQ.B #0x1,(A7) 00029314 4e ba f3 e8 |N | JSR 0x286fe 00029318 54 4f |TO | ADDQ.L #0x2,A7 0002931a 60 04 |` | BRA 0x29320 0002931c switch@0x29294[0x5]: 0002931c 4e ba fa 52 |N R | JSR 0x28d70 00029320 4a 39 00 02 f6 1e |J9 | TST.B 0x2f61e 00029326 67 04 |g | BEQ 0x2932c 00029328 60 00 fd 9e |` | BRA 0x290c8 0002932c 4a 39 00 02 95 f0 |J9 | TST.B 0x295f0 00029332 67 64 |gd | BEQ 0x29398 00029334 9e fc 00 3c | < | SUBA.W #0x3c,A7 00029338 20 4f | O | MOVEA.L A7,A0 0002933a 43 fa 8f 5a |C Z | LEA.L 0x22296,A1 0002933e 70 3a |p: | MOVEQ.L #0x3a,D0 00029340 10 d9 | | MOVE.B (A1)+,(A0)+ 00029342 51 c8 ff fc |Q | DBF D0,0x29340 00029346 59 4f |YO | SUBQ.L #0x4,A7 00029348 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002934c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00029350 3f 3c 00 3b |?< ; | MOVE.W #0x3b,-(A7) 00029354 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002935a 50 4f |PO | ADDQ.L #0x8,A7 0002935c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00029362 de fc 00 1c | | ADDA.W #0x1c,A7 00029366 20 4f | O | MOVEA.L A7,A0 00029368 43 fa 8f 68 |C h | LEA.L 0x222d2,A1 0002936c 70 22 |p" | MOVEQ.L #0x22,D0 0002936e 10 d9 | | MOVE.B (A1)+,(A0)+ 00029370 51 c8 ff fc |Q | DBF D0,0x2936e 00029374 59 4f |YO | SUBQ.L #0x4,A7 00029376 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002937a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002937e 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 00029382 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00029388 50 4f |PO | ADDQ.L #0x8,A7 0002938a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00029390 de fc 00 28 | ( | ADDA.W #0x28,A7 00029394 60 fe |` | BRA 0x29394 00029396 60 14 |` | .XXX[0x2] 00029398 4e b9 00 01 03 98 |N | JSR FSCALL_10398 0002939e 42 27 |B' | CLR.B -(A7) 000293a0 48 78 00 01 |Hx | PEA.L 0x1 000293a4 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000293aa 5c 4f |\O | ADDQ.L #0x6,A7 000293ac 4e b9 00 01 02 84 |N | JSR ?exit 000293b2 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 000293c0 ; -------------------------------------------------------------------------------------- 000293c0 ; OMSI PASCAL Function 000293c0 ; <LVAR 0x008 1(r)> 000293c0 ; -------------------------------------------------------------------------------------- 000293c0 PROG_FAIL: 000293c0 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 000293c4 bf d5 | | CMPA.L (A5),A7 000293c6 62 06 |b | BHI 0x293ce 000293c8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000293cc 4e 76 |Nv | TRAPV 000293ce de fc 00 2c | , | ADDA.W #0x2c,A7 000293d2 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000293d6 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 000293da 70 06 |p | MOVEQ.L #0x06,D0 000293dc 3f 20 |? | MOVE.W -(A0),-(A7) 000293de 51 c8 ff fc |Q | DBF D0,0x293dc 000293e2 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000293e6 51 4f |QO | SUBQ.L #0x8,A7 000293e8 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000293ec 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000293f0 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000293f4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000293fa 58 4f |XO | ADDQ.L #0x4,A7 000293fc 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00029400 48 80 |H | EXTB.W D0 00029402 48 c0 |H | EXTW.L D0 00029404 2f 00 |/ | MOVE.L D0,-(A7) 00029406 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002940c 58 4f |XO | ADDQ.L #0x4,A7 0002940e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00029414 50 4f |PO | ADDQ.L #0x8,A7 00029416 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002941c de fc 00 14 | | ADDA.W #0x14,A7 00029420 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00029424 4e 5e |N^ | UNLK A6 00029426 4e 75 |Nu | RTS 00029428 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00029436 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00029444 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00029452 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00029464 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 0002947c ; -------------------------------------------------------------------------------------- 0002947c ; OMSI PASCAL Function 0002947c ; <LVAR 0x00e 1(r)> 0002947c ; <LVAR 0x00a 4(r)> 0002947c ; <LVAR 0x008 1(r)> 0002947c ; -------------------------------------------------------------------------------------- 0002947c EXP_FAIL: 0002947c 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00029480 bf d5 | | CMPA.L (A5),A7 00029482 62 06 |b | BHI 0x2948a 00029484 44 fc 00 02 |D | MOVE.W #0x2,CCR 00029488 4e 76 |Nv | TRAPV 0002948a de fc 00 74 | t | ADDA.W #0x74,A7 0002948e 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00029492 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00029498 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 0002949e 72 01 |r | MOVEQ.L #0x01,D1 000294a0 74 0d |t | MOVEQ.L #0x0d,D2 000294a2 76 1e |v | MOVEQ.L #0x1e,D3 000294a4 78 12 |x | MOVEQ.L #0x12,D4 000294a6 7a 0e |z | MOVEQ.L #0x0e,D5 000294a8 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000294ae 41 fa ff b4 |A | LEA.L 0x29464,A0 000294b2 70 08 |p | MOVEQ.L #0x08,D0 000294b4 3f 20 |? | MOVE.W -(A0),-(A7) 000294b6 51 c8 ff fc |Q | DBF D0,0x294b4 000294ba 59 4f |YO | SUBQ.L #0x4,A7 000294bc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000294c0 3f 01 |? | MOVE.W D1,-(A7) 000294c2 3f 04 |? | MOVE.W D4,-(A7) 000294c4 4e 93 |N | JSR (A3) 000294c6 50 4f |PO | ADDQ.L #0x8,A7 000294c8 4e 94 |N | JSR (A4) 000294ca 50 4f |PO | ADDQ.L #0x8,A7 000294cc 20 4f | O | MOVEA.L A7,A0 000294ce 43 fa ff 58 |C X | LEA.L 0x29428,A1 000294d2 70 0c |p | MOVEQ.L #0x0c,D0 000294d4 10 d9 | | MOVE.B (A1)+,(A0)+ 000294d6 51 c8 ff fc |Q | DBF D0,0x294d4 000294da 51 4f |QO | SUBQ.L #0x8,A7 000294dc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000294e0 3f 01 |? | MOVE.W D1,-(A7) 000294e2 3f 02 |? | MOVE.W D2,-(A7) 000294e4 4e 93 |N | JSR (A3) 000294e6 54 4f |TO | ADDQ.L #0x2,A7 000294e8 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000294ec 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000294f2 54 4f |TO | ADDQ.L #0x2,A7 000294f4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000294fa 50 4f |PO | ADDQ.L #0x8,A7 000294fc 4e 94 |N | JSR (A4) 000294fe de c4 | | ADDA.W D4,A7 00029500 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00029504 b0 c1 | | CMPA.W D1,A0 00029506 67 48 |gH | BEQ 0x29550 00029508 9e c5 | | SUBA.W D5,A7 0002950a 22 4f |"O | MOVEA.L A7,A1 0002950c 45 fa ff 28 |E ( | LEA.L 0x29436,A2 00029510 70 0c |p | MOVEQ.L #0x0c,D0 00029512 12 da | | MOVE.B (A2)+,(A1)+ 00029514 51 c8 ff fc |Q | DBF D0,0x29512 00029518 9e c3 | | SUBA.W D3,A7 0002951a 22 4f |"O | MOVEA.L A7,A1 0002951c 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00029520 70 1d |p | MOVEQ.L #0x1d,D0 00029522 12 d8 | | MOVE.B (A0)+,(A1)+ 00029524 51 c8 ff fc |Q | DBF D0,0x29522 00029528 51 4f |QO | SUBQ.L #0x8,A7 0002952a 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 0002952e 3f 01 |? | MOVE.W D1,-(A7) 00029530 3f 02 |? | MOVE.W D2,-(A7) 00029532 4e 93 |N | JSR (A3) 00029534 58 4f |XO | ADDQ.L #0x4,A7 00029536 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002953a 3f 01 |? | MOVE.W D1,-(A7) 0002953c 3f 03 |? | MOVE.W D3,-(A7) 0002953e 4e 93 |N | JSR (A3) 00029540 50 4f |PO | ADDQ.L #0x8,A7 00029542 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00029548 50 4f |PO | ADDQ.L #0x8,A7 0002954a 4e 94 |N | JSR (A4) 0002954c de fc 00 30 | 0 | ADDA.W #0x30,A7 00029550 9e c5 | | SUBA.W D5,A7 00029552 20 4f | O | MOVEA.L A7,A0 00029554 43 fa fe ee |C | LEA.L 0x29444,A1 00029558 70 0c |p | MOVEQ.L #0x0c,D0 0002955a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002955c 51 c8 ff fc |Q | DBF D0,0x2955a 00029560 51 4f |QO | SUBQ.L #0x8,A7 00029562 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00029566 3f 01 |? | MOVE.W D1,-(A7) 00029568 3f 02 |? | MOVE.W D2,-(A7) 0002956a 4e 93 |N | JSR (A3) 0002956c 54 4f |TO | ADDQ.L #0x2,A7 0002956e 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00029572 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00029578 54 4f |TO | ADDQ.L #0x2,A7 0002957a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00029580 50 4f |PO | ADDQ.L #0x8,A7 00029582 4e 94 |N | JSR (A4) 00029584 5d 4f |]O | SUBQ.L #0x6,A7 00029586 20 4f | O | MOVEA.L A7,A0 00029588 43 fa fe da |C | LEA.L 0x29464,A1 0002958c 70 16 |p | MOVEQ.L #0x16,D0 0002958e 10 d9 | | MOVE.B (A1)+,(A0)+ 00029590 51 c8 ff fc |Q | DBF D0,0x2958e 00029594 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00029598 59 4f |YO | SUBQ.L #0x4,A7 0002959a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002959e 3f 01 |? | MOVE.W D1,-(A7) 000295a0 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000295a4 4e 93 |N | JSR (A3) 000295a6 50 4f |PO | ADDQ.L #0x8,A7 000295a8 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000295ae de c3 | | ADDA.W D3,A7 000295b0 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 000295b4 4e 5e |N^ | UNLK A6 000295b6 4e 75 |Nu | RTS