|
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: 37376 (0x9200)
Types: M200
Notes: @(#)DISKMD,3.5,91/10/10,16:25:00, M200_PROGRAM
Names: »DISKMD.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »DISKMD.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »DISKMD.M200«
@ 215e0
<LVAR 0x008 1(w)>
<POP 215e0-2162e Body>
<POP 215e0-215f6 Prologue> Σ0 ↓
<POP 215f6-21604 Naked> Σ0 ↓ →0x21606
<MI 215f6 MOVEQ.L #0x00,D7> {}
<POP 215f8-215fa StackAdj> Δ-2 {[-2-]}
<Call 0x215fa 0x105fe> {[-2-]}
Is_machine_type_two() : Bool
<MI 21600 TST.B (A7)+> Δ+2 {}
<MI 21602 BEQ 0x21606> {}
<POP 21604-21606 Naked> Σ0 →0x21622
<MI 21604 BRA 0x21622> {}
<POP 21606-21612 Naked> Σ0 ↓ →0x21614 ←0x215f6
<POP 21606-21608 StackAdj> Δ-2 {[-2-]}
<Call 0x21608 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 2160e TST.B (A7)+> Δ+2 {}
<MI 21610 BEQ 0x21614> {}
<POP 21612-21614 Naked> Σ0 →0x21622
<MI 21612 BRA 0x21622> {}
<POP 21614-21620 Naked> Σ0 ↓ →0x21622 ←0x21606
<POP 21614-21616 StackAdj> Δ-2 {[-2-]}
<Call 0x21616 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 2161c TST.B (A7)+> Δ+2 {}
<MI 2161e BEQ 0x21622> {}
<POP 21620-21622 Naked> Σ0 ↓
<MI 21620 MOVEQ.L #0x01,D7> {}
<POP 21622-21626 Naked> Σ0 ↓ ←0x21604 ←0x21612 ←0x21614
<MI 21622 MOVE.B D7,(A6+0x8)> {}
<POP 21626-2162e Epilogue> Σ0
@ 2162e
<LVAR 0x012 2(r)>
<LVAR 0x010 2(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 2(w)>
<LVAR -0x006 2(w)>
<LVAR -0x008 2(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 2(w)>
<LVAR -0x00e 2(r)>
<LVAR -0x010 @ 2(r)>
<POP 2162e-216f0 Body>
<POP 2162e-21644 Prologue> Σ0 ↓
<POP 21644-2169e Naked> Σ0 ↓ →0x216e8
<MI 21644 CLR.W (A6-0x10)> {}
<MI 21648 CLR.W (A6-0xe)> {}
<MI 2164c MOVE.W #0x2,(A6-0xc)> {}
<MI 21652 CLR.W (A6-0xa)> {}
<MI 21656 CLR.W (A6-0x8)> {}
<MI 2165a MOVE.W (A6+0x12),D0> {}
<MI 2165e ASL.W #0x8,D0> {}
<MI 21660 ADDI.W #0x000e,D0> {}
<MI 21664 MOVE.W D0,(A6-0x6)> {}
<MI 21668 MOVE.W (A6+0x10),(A6-0x4)> {}
<MI 2166e MOVEA.L (A6+0xc),A0> {}
<Pointer.fp 0x21672 <LVAR -0x010 @ 2(r)>> Δ-4 {[@@-16]}
<MI 21676 MOVEA.L A0,A1> {[@@-16]}
<MI 21678 MOVE.L A1,-(A7)> Δ-4 {[@@-16]|[4, 'A1']}
<MI 2167a CLR.W -(A7)> Δ-2 {[@@-16]|[4, 'A1']|[#0]}
<Call 0x2167c 0x10204> {[@@-16]|[4, 'A1']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21682-21686 StackAdj> Δ+10 {}
<MI 21686 MOVEA.L (A6+0x8),A1> {}
<MI 2168a CLR.W -(A7)> Δ-2 {[#0]}
<MI 2168c PEA.L (A1)> Δ-4 {[#0]|[4, '^(A1)']}
<Call 0x2168e 0x10206> {[#0]|[4, '^(A1)']}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21694-21696 StackAdj> Δ+6 {}
<MI 21696 ANDI.W #0x00ff,(A0)> {}
<MI 2169a TST.B (A1)> {}
<MI 2169c BNE 0x216e8> {}
<POP 2169e-216e8 Naked> Σ0 ↓
<Blob 0x2169e [36] @> Δ-36 {[«36""»]}
<POP 216b0-216b2 StackAdj> Δ-8 {[«36""»]|[-8-]}
<Lit 0x216b2 35> {[«36""»]|[-4-]|[$$Error reading eeprom at location :_]}
<POP 216c4-216c6 StackAdj> Δ-4 {[«36""»]|[-4-]|[$$Error reading eeprom at location :_]|[-4-]}
<MI 216c6 CLR.L D0> {[«36""»]|[-4-]|[$$Error reading eeprom at location :_]|[-4-]}
<MI 216c8 MOVE.W (A6+0x10),D0> {[«36""»]|[-4-]|[$$Error reading eeprom at location :_]|[-4-]}
<MI 216cc MOVE.L D0,-(A7)> Δ-4 {[«36""»]|[-4-]|[$$Error reading eeprom at location :_]|[-4-]|[4, 'D0']}
<Call 0x216ce 0x102e4> {[«36""»]|[-4-]|[$$Error reading eeprom at location :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 216d4-216d6 StackAdj> Δ+4 {[«36""»]|[-4-]|[$$Error reading eeprom at location :_]|[-4-]}
<Call 0x216d6 0x102d0> {[«36""»]|[-4-]|[$$Error reading eeprom at location :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 216dc-216de StackAdj> Δ+8 {[«36""»]|[-4-]}
<Call 0x216de 0x103e0> {[«36""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 216e4-216e8 StackAdj> Δ+40 {}
<POP 216e8-216f0 Epilogue> Σ0 ←0x21644
@ 216f0
<LVAR 0x008 2(r)>
<LVAR -0x002 @>
<LVAR -0x004 @ 2(r)>
<LVAR -0x006 @ 2(r)>
<LVAR -0x008 @ 2(r)>
<LVAR -0x00a @ 2(r)>
<LVAR -0x00c 2(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x01a @ 1(r)>
<LVAR -0x41a @>
<LVAR -0x81a @>
<LVAR -0x820 @ 2(r)>
<LVAR -0x822 @>
<POP 216f0-21912 Body>
<POP 216f0-21706 Prologue> Σ0 ↓
<POP 21706-2171c RegCacheLoad> Σ0 ↓
<POP 2171c-21730 Naked> Σ0 ↓ →0x21830
<MI 2171c MOVE.B #0x07,0x293a0> {}
<POP 21724-21726 StackAdj> Δ-2 {[-2-]}
<Call 0x21726 0x215e0> {[-2-]}
<MI 2172a TST.B (A7)+> Δ+2 {}
<MI 2172c BEQ 0x21830> {}
<POP 21730-217ea Naked> Σ0 ↓
<MI 21730 MOVE.W (A6+0x8),(A6-0xc)> {}
<MI 21732 ANDI.W #0x0003,(A6-0xc)> {}
<MI 21736 MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<MI 21738 MOVE.W #0x2d0,D0> {[2, '(A6+0x8)']}
<MI 2173c ADD.W (A6-0xc),D0> {[2, '(A6+0x8)']}
<POP 0x2173e LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[2, '(A6+0x8)']}
<MI 21744 MOVE.W D0,-(A7)> Δ-2 {[2, '(A6+0x8)']|[2, 'D0']}
<Pointer.fp 0x21746 <LVAR -0x00a @ 2(r)>> Δ-4 {[2, '(A6+0x8)']|[2, 'D0']|[@@-10]}
<Pointer.fp 0x2174a <LVAR -0x01a @ 1(r)>> Δ-4 {[2, '(A6+0x8)']|[2, 'D0']|[@@-10]|[@@-26]}
<Call 0x2174c 0x2162e> {[2, '(A6+0x8)']|[2, 'D0']|[@@-10]|[@@-26]}
<POP 21750-21752 StackAdj> Δ+10 {[2, '(A6+0x8)']}
<MI 21752 MOVE.W (A6+0x8),(A7)> {[2, '(A6+0x8)']}
<MI 21754 MOVE.W #0x350,D0> {[2, '(A6+0x8)']}
<MI 21758 ADD.W (A6-0xc),D0> {[2, '(A6+0x8)']}
<POP 0x2175a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[2, '(A6+0x8)']}
<MI 21760 MOVE.W D0,-(A7)> Δ-2 {[2, '(A6+0x8)']|[2, 'D0']}
<Pointer.fp 0x21762 <LVAR -0x008 @ 2(r)>> Δ-4 {[2, '(A6+0x8)']|[2, 'D0']|[@@-8]}
<Pointer.fp 0x21766 <LVAR -0x01a @ 1(r)>> Δ-4 {[2, '(A6+0x8)']|[2, 'D0']|[@@-8]|[@@-26]}
<Call 0x21768 0x2162e> {[2, '(A6+0x8)']|[2, 'D0']|[@@-8]|[@@-26]}
<POP 2176c-2176e StackAdj> Δ+10 {[2, '(A6+0x8)']}
<MI 2176e MOVE.W (A6+0x8),(A7)> {[2, '(A6+0x8)']}
<MI 21770 MOVE.W #0x1d0,D0> {[2, '(A6+0x8)']}
<MI 21774 ADD.W (A6-0xc),D0> {[2, '(A6+0x8)']}
<POP 0x21776 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[2, '(A6+0x8)']}
<MI 2177c MOVE.W D0,-(A7)> Δ-2 {[2, '(A6+0x8)']|[2, 'D0']}
<Pointer.fp 0x2177e <LVAR -0x006 @ 2(r)>> Δ-4 {[2, '(A6+0x8)']|[2, 'D0']|[@@-6]}
<Pointer.fp 0x21782 <LVAR -0x01a @ 1(r)>> Δ-4 {[2, '(A6+0x8)']|[2, 'D0']|[@@-6]|[@@-26]}
<Call 0x21784 0x2162e> {[2, '(A6+0x8)']|[2, 'D0']|[@@-6]|[@@-26]}
<POP 21788-2178a StackAdj> Δ+10 {[2, '(A6+0x8)']}
<MI 2178a MOVE.W (A6+0x8),(A7)> {[2, '(A6+0x8)']}
<MI 2178c MOVE.W #0x250,D0> {[2, '(A6+0x8)']}
<MI 21790 ADD.W (A6-0xc),D0> {[2, '(A6+0x8)']}
<POP 0x21792 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[2, '(A6+0x8)']}
<MI 21798 MOVE.W D0,-(A7)> Δ-2 {[2, '(A6+0x8)']|[2, 'D0']}
<Pointer.fp 0x2179a <LVAR -0x004 @ 2(r)>> Δ-4 {[2, '(A6+0x8)']|[2, 'D0']|[@@-4]}
<Pointer.fp 0x2179e <LVAR -0x01a @ 1(r)>> Δ-4 {[2, '(A6+0x8)']|[2, 'D0']|[@@-4]|[@@-26]}
<Call 0x217a0 0x2162e> {[2, '(A6+0x8)']|[2, 'D0']|[@@-4]|[@@-26]}
<POP 217a4-217a6 StackAdj> Δ+10 {[2, '(A6+0x8)']}
<MI 217a6 MOVE.W (A6+0x8),(A7)> {[2, '(A6+0x8)']}
<MI 217a8 MOVE.W #0x310,D0> {[2, '(A6+0x8)']}
<MI 217ac ADD.W (A6-0xc),D0> {[2, '(A6+0x8)']}
<POP 0x217ae LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[2, '(A6+0x8)']}
<MI 217b4 MOVE.W D0,-(A7)> Δ-2 {[2, '(A6+0x8)']|[2, 'D0']}
<Pointer.fp 0x217b6 <LVAR -0x002 @>> Δ-4 {[2, '(A6+0x8)']|[2, 'D0']|[@@-2]}
<Pointer.fp 0x217ba <LVAR -0x01a @ 1(r)>> Δ-4 {[2, '(A6+0x8)']|[2, 'D0']|[@@-2]|[@@-26]}
<Call 0x217bc 0x2162e> {[2, '(A6+0x8)']|[2, 'D0']|[@@-2]|[@@-26]}
<POP 217c0-217c2 StackAdj> Δ+12 {}
<MI 217c2 CLR.L D0> {}
<MI 217c4 MOVE.W (A6-0x4),D0> {}
<MI 217c8 ASL.L #0x8,D0> {}
<MI 217ca CLR.L D1> {}
<MI 217cc MOVE.W (A6-0x6),D1> {}
<MI 217d0 ADD.L D1,D0> {}
<MI 217d2 MOVE.L D0,D5> {}
<MI 217d4 CLR.L D0> {}
<MI 217d6 MOVE.W (A6-0x8),D0> {}
<MI 217da MOVE.L D0,(A6-0x14)> {}
<MI 217de CLR.L D0> {}
<MI 217e0 MOVE.W (A6-0xa),D0> {}
<MI 217e4 MOVE.L D0,(A6-0x10)> {}
<MI 217e8 MOVEQ.L #0x05,D7> {}
<POP 217ea-217fe Naked> Σ0 ↓ →0x21824 ←0x21824
<MI 217ea MOVE.B D7,D0> {}
<MI 217ec EXTB.W D0> {}
<MI 217ee ASL.W #0x3,D0> {}
<MI 217f0 LEA.L 0x213ba,A0> {}
<MI 217f4 CLR.L D1> {}
<MI 217f6 MOVE.W (A0+D0.W),D1> {}
<MI 217fa CMP.L D5,D1> {}
<MI 217fc BNE 0x21824> {}
<POP 217fe-2180e Naked> Σ0 ↓ →0x21824
<MI 217fe LEA.L 0x213ba,A0> {}
<MI 21802 CLR.L D1> {}
<MI 21804 MOVE.B (A0+D0.W+#0x2),D1> {}
<MI 21808 CMP.L (A6-0x14),D1> {}
<MI 2180c BNE 0x21824> {}
<POP 2180e-2181e Naked> Σ0 ↓ →0x21824
<MI 2180e LEA.L 0x213ba,A0> {}
<MI 21812 CLR.L D1> {}
<MI 21814 MOVE.B (A0+D0.W+#0x3),D1> {}
<MI 21818 CMP.L (A6-0x10),D1> {}
<MI 2181c BNE 0x21824> {}
<POP 2181e-21824 Naked> Σ0 ↓
<MI 2181e MOVE.B D7,0x293a0> {}
<POP 21824-2182c Naked> Σ0 ↓ →0x217ea ←0x217ea ←0x217fe ←0x2180e
<MI 21824 ADDQ.B #0x1,D7> {}
<MI 21826 CMPI.B #0x06,D7> {}
<MI 2182a BLE 0x217ea> {}
<POP 2182c-21830 Naked> Σ0 →0x2190a
<MI 2182c BRA 0x2190a> {}
<POP 21830-21832 Naked> Σ0 ↓ ←0x2171c
<MI 21830 MOVEQ.L #0x00,D6> {}
<POP 21832-2186c Naked> Σ0 ↓ →0x21870 ←0x2186c
<MI 21832 MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<POP 0x21834 LimitCheck 0x0 ≤ D6 ≤ 0xffff> {[2, '(A6+0x8)']}
<MI 2183a MOVE.W D6,-(A7)> Δ-2 {[2, '(A6+0x8)']|[2, 'D6']}
<Pointer.fp 0x2183c <LVAR -0x820 @ 2(r)>> Δ-4 {[2, '(A6+0x8)']|[2, 'D6']|[@@-2080]}
<Pointer.fp 0x21840 <LVAR -0x01a @ 1(r)>> Δ-4 {[2, '(A6+0x8)']|[2, 'D6']|[@@-2080]|[@@-26]}
<Call 0x21842 0x2162e> {[2, '(A6+0x8)']|[2, 'D6']|[@@-2080]|[@@-26]}
<POP 21846-21848 StackAdj> Δ+12 {}
<POP 0x21848 LimitCheck 0x0 ≤ D6 ≤ 0x3ff> {}
<MI 21852 LEA.L (A6-0x822),A0> {}
<MI 21856 MOVE.W (A6-0x820),D0> {}
<POP 0x2185a LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 2185e MOVE.B D0,(A0+D6.L+#0x8)> {}
<MI 21862 ADDQ.L #0x1,D6> {}
<MI 21864 CMPI.L #0x00000400,D6> {}
<MI 2186a BEQ 0x21870> {}
<POP 2186c-21870 Naked> Σ0 ↓ →0x21832
<MI 2186c TST.B (A6-0x1a)> {}
<MI 2186e BNE 0x21832> {}
<POP 21870-21874 Naked> Σ0 ↓ →0x21882 ←0x21832
<MI 21870 TST.B (A6-0x1a)> {}
<MI 21872 BNE 0x21882> {}
<POP 21874-21882 Naked> Σ0 ↓
<MI 21874 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x21876 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x2187a 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 21880-21882 StackAdj> Δ+6 {}
<POP 21882-218c8 Naked> Σ0 ↓ ←0x21870
<MI 21882 LEA.L (A6-0x41a),A0> {}
<MI 21886 LEA.L (A6-0x81a),A1> {}
<BlockMove 1024,A1,A0> {}
<MI 21894 LEA.L (A6-0x822),A0> {}
<MI 21898 MOVE.W (A6+0x8),D0> {}
<MI 2189a LEA.L (A0+D0.W),A0> {}
<MI 2189e CLR.L D0> {}
<MI 218a0 MOVE.B (A0+0x658),D0> {}
<MI 218a4 ASL.W #0x8,D0> {}
<MI 218a6 CLR.L D1> {}
<MI 218a8 MOVE.B (A0+0x5d8),D1> {}
<MI 218ac ADD.W D0,D1> {}
<MI 218ae EXTW.L D1> {}
<MI 218b0 MOVE.L D1,D5> {}
<MI 218b2 CLR.L D0> {}
<MI 218b4 MOVE.B (A0+0x758),D0> {}
<MI 218b8 MOVE.L D0,(A6-0x14)> {}
<MI 218bc CLR.L D0> {}
<MI 218be MOVE.B (A0+0x6d8),D0> {}
<MI 218c2 MOVE.L D0,(A6-0x10)> {}
<MI 218c6 MOVEQ.L #0x01,D7> {}
<POP 218c8-218dc Naked> Σ0 ↓ →0x21902 ←0x21902
<MI 218c8 MOVE.B D7,D0> {}
<MI 218ca EXTB.W D0> {}
<MI 218cc ASL.W #0x3,D0> {}
<MI 218ce LEA.L 0x213ba,A0> {}
<MI 218d2 CLR.L D1> {}
<MI 218d4 MOVE.W (A0+D0.W),D1> {}
<MI 218d8 CMP.L D5,D1> {}
<MI 218da BNE 0x21902> {}
<POP 218dc-218ec Naked> Σ0 ↓ →0x21902
<MI 218dc LEA.L 0x213ba,A0> {}
<MI 218e0 CLR.L D1> {}
<MI 218e2 MOVE.B (A0+D0.W+#0x2),D1> {}
<MI 218e6 CMP.L (A6-0x14),D1> {}
<MI 218ea BNE 0x21902> {}
<POP 218ec-218fc Naked> Σ0 ↓ →0x21902
<MI 218ec LEA.L 0x213ba,A0> {}
<MI 218f0 CLR.L D1> {}
<MI 218f2 MOVE.B (A0+D0.W+#0x3),D1> {}
<MI 218f6 CMP.L (A6-0x10),D1> {}
<MI 218fa BNE 0x21902> {}
<POP 218fc-21902 Naked> Σ0 ↓
<MI 218fc MOVE.B D7,0x293a0> {}
<POP 21902-2190a Naked> Σ0 ↓ →0x218c8 ←0x218c8 ←0x218dc ←0x218ec
<MI 21902 ADDQ.B #0x1,D7> {}
<MI 21904 CMPI.B #0x04,D7> {}
<MI 21908 BLE 0x218c8> {}
<POP 2190a-21912 Epilogue> Σ0 ←0x2182c
@ 21912
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x00c @ 4(r)>
<POP 21912-21990 Body>
<POP 21912-21928 Prologue> Σ0 ↓
<POP 21928-21956 Naked> Σ0 ↓ →0x21982
<POP 21928-2192a StackAdj> Δ-4 {[-4-]}
<MI 2192a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 2192e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21932 0x263be> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21938-2193a StackAdj> Δ+8 {[-4-]}
<MI 2193a MOVEA.L (A7)+,A4> Δ+4 {}
<MI 2193c MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Pointer.fp 0x2193e <LVAR -0x004 @ 1(r)>> Δ-4 {[4, 'A4']|[@@-4]}
<Pointer.fp 0x21942 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, 'A4']|[@@-4]|[@@-12]}
<Call 0x21946 0x102ec> {[4, 'A4']|[@@-4]|[@@-12]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 2194c-21950 StackAdj> Δ+12 {}
<MI 21950 TST.B (A6-0x4)> {}
<MI 21954 BNE 0x21982> {}
<POP 21956-21982 Naked> Σ0 ↓
<Blob 0x21956 [24] @> Δ-24 {[«24""»]}
<POP 21962-21964 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x21964 24> {[«24""»]|[$$Illegal decimal argument]}
<Call 0x21978 0x25696> {[«24""»]|[$$Illegal decimal argument]}
<POP 2197e-21982 StackAdj> Δ+28 {}
<POP 21982-21988 Naked> Σ0 ↓ ←0x21928
<MI 21982 MOVE.L (A6-0xc),(A6+0x10)> {}
<POP 21988-21990 Epilogue> Σ0
@ 21990
<LVAR 0x008 4(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 2(r)>
<LVAR -0x00e 2(r)>
<LVAR -0x010 2(r)>
<LVAR -0x014 2(r)>
<LVAR -0x01c 2(r)>
<LVAR -0x024 2(r)>
<LVAR -0x026 2(r)>
<LVAR -0x028 2(r)>
<LVAR -0x02a 2(r)>
<LVAR -0x030 2(r)>
<POP 21990-21a8a Body>
<POP 21990-219a6 Prologue> Σ0 ↓
<POP 219a6-219a8 RegCacheLoad> Σ0 ↓
<POP 219a8-219dc Naked> Σ0 →0x219e4 →0x219ec →0x219f4 →0x219fc
<MI 219a8 MOVE.W 0x293a2,D0> {}
<POP 0x219ae LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 219b6 MOVE.W D0,D5> {}
<MI 219b8 MOVE.L #0x9303,D7> {}
<MI 219be ASL.L #0x8,D7> {}
<MI 219c0 ASL.L #0x8,D7> {}
<MI 219c2 MOVE.L 0x2939c,D0> {}
<POP 0x219c8 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 219d2 ADD.W D0,D0> {}
<MI 219d4 SWITCH D0.W> {}
<POP 219e4-219ec Naked> Σ0 →0x21a02 ←0x219a8
<MI 219e4 ADDI.L #0x0000fdc0,D7> {}
<MI 219ea BRA 0x21a02> {}
<POP 219ec-219f4 Naked> Σ0 →0x21a02 ←0x219a8
<MI 219ec ADDI.L #0x0000fcc0,D7> {}
<MI 219f2 BRA 0x21a02> {}
<POP 219f4-219fc Naked> Σ0 →0x21a02 ←0x219a8
<MI 219f4 ADDI.L #0x0000fc80,D7> {}
<MI 219fa BRA 0x21a02> {}
<POP 219fc-21a02 Naked> Σ0 ↓ ←0x219a8
<MI 219fc ADDI.L #0x0000fc40,D7> {}
<POP 21a02-21a04 Naked> Σ0 ↓ ←0x219e4 ←0x219ec ←0x219f4
<MI 21a02 MOVEQ.L #0x00,D6> {}
<POP 21a04-21a3e Naked> Σ0 ↓ →0x21a04 ←0x21a04
<MI 21a04 MOVEQ.L #0x02,D4> {}
<MI 21a06 MOVE.L D6,D3> {}
<Call 0x21a08 0x1028c> {}
?muls_d3_d4
<MI 21a0e MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 21a10 ADD.L D4,(A7)> {[-4-]}
<Const 0x21a12 0x5.2> Δ-2 {[-4-]|[#5]}
<POP 0x21a16 LimitCheck 0x0 ≤ D6 ≤ 0x13> {[-4-]|[#5]}
<MI 21a1c MOVE.L D6,D0> {[-4-]|[#5]}
<MI 21a1e ASL.L #0x1,D0> {[-4-]|[#5]}
<MI 21a20 LEA.L (A6+D0.L-#0x30),A0> {[-4-]|[#5]}
<MI 21a24 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[#5]|[4, 'A0']}
<Const 0x21a26 0x1.2> Δ-2 {[-4-]|[#5]|[4, 'A0']|[#1]}
<Const 0x21a2a 0x2.2> Δ-2 {[-4-]|[#5]|[4, 'A0']|[#1]|[#2]}
<Call 0x21a2e 0x1023a> {[-4-]|[#5]|[4, 'A0']|[#1]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 21a34-21a38 StackAdj> Δ+14 {}
<MI 21a38 ADDQ.L #0x1,D6> {}
<MI 21a3a CMP.L #0x13,D6> {}
<MI 21a3c BLE 0x21a04> {}
<POP 21a3e-21a82 Naked> Σ0 ↓
<MI 21a3e MOVEA.L (A6+0x8),A0> {}
<MI 21a42 MOVE.W (A6-0x30),(A0)> {}
<MI 21a46 MOVE.W (A6-0x28),(A0+0x2)> {}
<MI 21a4c MOVE.W (A6-0x26),(A0+0x4)> {}
<MI 21a52 MOVE.W (A6-0x24),(A0+0x6)> {}
<MI 21a58 MOVE.W (A6-0xe),(A0+0x8)> {}
<MI 21a5e MOVE.W (A6-0xc),(A0+0xa)> {}
<MI 21a64 MOVE.W (A6-0xa),(A0+0xc)> {}
<MI 21a6a MOVE.W (A6-0x14),(A0+0xe)> {}
<MI 21a70 MOVE.W (A6-0x2a),(A0+0x10)> {}
<MI 21a76 MOVE.W (A6-0x1c),(A0+0x12)> {}
<MI 21a7c MOVE.W (A6-0x10),(A0+0x14)> {}
<POP 21a82-21a8a Epilogue> Σ0
@ 21a8a
<LVAR 0x008 4(r)>
<LVAR -0x00c 2(w)>
<LVAR -0x012 2(w)>
<LVAR -0x016 @>
<LVAR -0x018 @ 1(r)>
<POP 21a8a-21b18 Body>
<POP 21a8a-21aa0 Prologue> Σ0 ↓
<POP 21aa0-21ae4 Naked> Σ0 ↓ →0x21b10
<MI 21aa0 MOVE.W #0x2,(A6-0x12)> {}
<MI 21aa6 MOVE.W 0x293a4,D0> {}
<MI 21aac ASL.W #0x8,D0> {}
<MI 21aae ADDQ.W #0x1,D0> {}
<POP 0x21ab0 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 21ab8 MOVE.W D0,(A6-0xc)> {}
<Pointer.fp 0x21abc <LVAR -0x016 @>> Δ-4 {[@@-22]}
<MI 21ac0 MOVEA.L (A6+0x8),A0> {[@@-22]}
<MI 21ac4 MOVE.L A0,-(A7)> Δ-4 {[@@-22]|[4, 'A0']}
<MI 21ac6 CLR.W -(A7)> Δ-2 {[@@-22]|[4, 'A0']|[#0]}
<Call 0x21ac8 0x10204> {[@@-22]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21ace-21ad0 StackAdj> Δ+8 {[-2-]}
<MI 21ad0 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x21ad2 <LVAR -0x018 @ 1(r)>> Δ-4 {[-2-]|[@@-24]}
<Call 0x21ad6 0x10206> {[-2-]|[@@-24]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21adc-21ade StackAdj> Δ+6 {}
<MI 21ade TST.B (A6-0x18)> {}
<MI 21ae2 BNE 0x21b10> {}
<POP 21ae4-21b10 Naked> Σ0 ↓
<Blob 0x21ae4 [36] @> Δ-36 {[«36""»]}
<POP 21af0-21af2 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x21af2 36> {[«36""»]|[$$Disk error reading disk error status]}
<Call 0x21b06 0x25696> {[«36""»]|[$$Disk error reading disk error status]}
<POP 21b0c-21b10 StackAdj> Δ+40 {}
<POP 21b10-21b18 Epilogue> Σ0 ←0x21aa0
@ 21b18
<LVAR 0x00a 1(rw)>
<LVAR 0x008 2(r)>
<LVAR -0x008 @ 2(r)>
<LVAR -0x00a @>
<LVAR -0x00c 2(r)>
<LVAR -0x00e 2(r)>
<LVAR -0x010 2(w)>
<LVAR -0x012 2(r)>
<LVAR -0x014 2(r)>
<LVAR -0x016 2(w)>
<LVAR -0x018 2(r)>
<LVAR -0x01a @ 2(r)>
<POP 21b18-21b92 Body>
<POP 21b18-21b2e Prologue> Σ0 ↓
<POP 21b2e-21b86 Naked> Σ0 ↓ →0x21b8a
<MI 21b2e CLR.W (A6-0x1a)> {}
<MI 21b32 CLR.W (A6-0x18)> {}
<MI 21b36 MOVE.W #0x2,(A6-0x16)> {}
<MI 21b3c CLR.W (A6-0x14)> {}
<MI 21b40 CLR.W (A6-0x12)> {}
<MI 21b44 MOVE.W (A6+0x8),D0> {}
<MI 21b48 ASL.W #0x8,D0> {}
<MI 21b4a MOVE.W D0,(A6-0x10)> {}
<MI 21b4e CLR.W (A6-0xe)> {}
<MI 21b52 CLR.W (A6-0xc)> {}
<Pointer.fp 0x21b56 <LVAR -0x01a @ 2(r)>> Δ-4 {[@@-26]}
<MI 21b5a LEA.L (A6-0x8),A0> {[@@-26]}
<MI 21b5e MOVE.L A0,-(A7)> Δ-4 {[@@-26]|[4, 'A0']}
<MI 21b60 CLR.W -(A7)> Δ-2 {[@@-26]|[4, 'A0']|[#0]}
<Call 0x21b62 0x10204> {[@@-26]|[4, 'A0']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21b68-21b6a StackAdj> Δ+8 {[-2-]}
<MI 21b6a CLR.W (A7)> {[-2-]}
<Pointer.fp 0x21b6c <LVAR -0x00a @>> Δ-4 {[-2-]|[@@-10]}
<Call 0x21b70 0x10206> {[-2-]|[@@-10]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21b76-21b78 StackAdj> Δ+6 {}
<MI 21b78 CLR.B (A6+0xa)> {}
<MI 21b7c MOVE.W (A6-0x8),D0> {}
<MI 21b80 CMPI.W #0x0001,D0> {}
<MI 21b84 BNE 0x21b8a> {}
<POP 21b86-21b8a Naked> Σ0 ↓
<MI 21b86 ADDQ.B #0x1,(A6+0xa)> {}
<POP 21b8a-21b92 Epilogue> Σ0 ←0x21b2e
@ 21b92
<LVAR 0x008 1(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 2(r)>
<LVAR -0x016 2(r)>
<LVAR -0x018 2(r)>
<LVAR -0x01a 2(r)>
<LVAR -0x01c 2(r)>
<LVAR -0x01e @ 2(r)>
<POP 21b92-22a76 Body> Δ+150
<POP 21b92-21ba8 Prologue> Σ0 ↓
<POP 21ba8-21bbc RegCacheLoad> Σ0 ↓
<POP 21bbc-21bc2 Naked> Σ0 ↓ →0x21bcc
<MI 21bbc TST.B (A6+0x8)> {}
<MI 21bc0 BNE 0x21bcc> {}
<POP 21bc2-21bcc Naked> Σ0 Δ-4 →0x21bd4
<Pointer.fp 0x21bc2 <LVAR -0x01e @ 2(r)>> Δ-4 {[@@-30]}
<Call 0x21bc6 0x21a8a> {[@@-30]}
<MI 21bca BRA 0x21bd4> {[@@-30]}
<POP 21bcc-21bd4 Naked> Σ0 Δ-4 ↓ ←0x21bbc
<Pointer.fp 0x21bcc <LVAR -0x01e @ 2(r)>> Δ-4 {[@@-30]}
<Call 0x21bd0 0x21990> {[@@-30]}
<POP 21bd4-21bd8 Naked> Σ-4 Δ+4 ↓ ←0x21bc2
<POP 21bd4-21bd6 StackAdj> Δ+4 {}
<MI 21bd6 MOVEQ.L #0x00,D7> {}
<POP 21bd8-21c4e Naked> Σ0 ↓ →0x21bd8 ←0x21bd8
<POP 0x21bd8 LimitCheck 0x0 ≤ D7 ≤ 0x8> {}
<MI 21be2 MOVE.L D7,D4> {}
<MI 21be4 MOVEQ.L #0x05,D3> {}
<Call 0x21be6 0x1028c> {}
?muls_d3_d4
<MI 21bec LEA.L 0x213fa,A0> {}
<Blob 0x21bf0 [6] (A0+D4.L)> Δ-6 {[«6»]}
<POP 21c00-21c02 StackAdj> Δ-8 {[«6»]|[-8-]}
<Lit 0x21c02> {[«6»]|[-4-]|[$$…]}
<Pointer.sp 0x21c02 8> Δ-4
<Const 0x21c06 0x1.2> Δ-2
<Const 0x21c08 0x5.2> Δ-2
<Call 0x21c0c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21c0e-21c10 StackAdj> Δ+8
<POP 21c0e-21c10 StackAdj> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]}
<POP 0x21c10 LimitCheck 0x0 ≤ D7 ≤ 0xa> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 21c1a MOVE.L D7,D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 21c1c ASL.L #0x1,D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 21c1e CLR.L D1> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 21c20 MOVE.W (A6+D0.L-#0x1e),D1> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 21c24 MOVE.L D1,-(A7)> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']}
<Const 0x21c26 0x4.4> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']|[##4]}
<Call 0x21c2a 0x102e8> {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 21c30-21c32 StackAdj> Δ+8 {[«6»]|[-4-]|[$$…]|[-4-]}
<Call 0x21c32 0x102d0> {[«6»]|[-4-]|[$$…]|[-4-]}
StringCat2(a, b : String) : String
<POP 21c38-21c3a StackAdj> Δ+8 {[«6»]|[-4-]}
<Call 0x21c3a 0x103d8> {[«6»]|[-4-]}
WriteConsoleString(str : String)
<POP 21c40-21c44 StackAdj> Δ+10 {}
<MI 21c44 ADDQ.L #0x1,D7> {}
<MI 21c46 CMPI.L #0x00000008,D7> {}
<MI 21c4c BLE 0x21bd8> {}
<POP 21c4e-21c5e Naked> Σ0 ↓ →0x21c86
<Call 0x21c4e 0x103dc> {}
WriteConsoleCrLf(void)
<MI 21c54 MOVE.W (A6-0x1e),D0> {}
<MI 21c58 ANDI.W #0x8000,D0> {}
<MI 21c5c BEQ 0x21c86> {}
<POP 21c5e-21c86 Naked> Σ0 ↓
<Blob 0x21c5e [18] @> Δ-18 {[«18""»]}
<POP 21c70-21c72 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21c72 17> {[«18""»]|[$$Special condition]}
<Call 0x21c80 0x103e0> {[«18""»]|[$$Special condition]}
WriteConsoleStringCrLf(str : String)
<POP 21c82-21c86 StackAdj> Δ+22 {}
<POP 21c86-21c90 Naked> Σ0 ↓ →0x21cb2 ←0x21c4e
<MI 21c86 MOVE.W (A6-0x1e),D0> {}
<MI 21c8a ANDI.W #0x4000,D0> {}
<MI 21c8e BEQ 0x21cb2> {}
<POP 21c90-21cb2 Naked> Σ0 ↓
<Blob 0x21c90 [14] @> Δ-14 {[«14""»]}
<POP 21c9c-21c9e StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21c9e 14> {[«14""»]|[$$Transfer error]}
<Call 0x21cac 0x103e0> {[«14""»]|[$$Transfer error]}
WriteConsoleStringCrLf(str : String)
<POP 21cae-21cb2 StackAdj> Δ+18 {}
<POP 21cb2-21cbc Naked> Σ0 ↓ →0x21cde ←0x21c86
<MI 21cb2 MOVE.W (A6-0x1e),D0> {}
<MI 21cb6 ANDI.W #0x0800,D0> {}
<MI 21cba BNE 0x21cde> {}
<POP 21cbc-21cde Naked> Σ0 ↓
<Blob 0x21cbc [22] @> Δ-22 {[«22""»]}
<POP 21cc8-21cca StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x21cca 22> {[«22""»]|[$$Drive is not available]}
<Call 0x21cd8 0x103e0> {[«22""»]|[$$Drive is not available]}
WriteConsoleStringCrLf(str : String)
<POP 21cda-21cde StackAdj> Δ+26 {}
<POP 21cde-21ce8 Naked> Σ0 ↓ →0x21d0a ←0x21cb2
<MI 21cde MOVE.W (A6-0x1e),D0> {}
<MI 21ce2 ANDI.W #0x0080,D0> {}
<MI 21ce6 BNE 0x21d0a> {}
<POP 21ce8-21d0a Naked> Σ0 ↓
<Blob 0x21ce8 [18] @> Δ-18 {[«18""»]}
<POP 21cf4-21cf6 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21cf6 18> {[«18""»]|[$$Drive is not ready]}
<Call 0x21d04 0x103e0> {[«18""»]|[$$Drive is not ready]}
WriteConsoleStringCrLf(str : String)
<POP 21d06-21d0a StackAdj> Δ+22 {}
<POP 21d0a-21d12 Naked> Σ0 ↓ →0x21d3a ←0x21cde
<MI 21d0a MOVE.W (A6-0x1c),D0> {}
<MI 21d0c ANDI.W #0x8000,D0> {}
<MI 21d10 BEQ 0x21d3a> {}
<POP 21d12-21d3a Naked> Σ0 ↓
<Blob 0x21d12 [10] @> Δ-10 {[«10""»]}
<POP 21d24-21d26 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x21d26 9> {[«10""»]|[$$Data late]}
<Call 0x21d34 0x103e0> {[«10""»]|[$$Data late]}
WriteConsoleStringCrLf(str : String)
<POP 21d36-21d3a StackAdj> Δ+14 {}
<POP 21d3a-21d42 Naked> Σ0 ↓ →0x21d6a ←0x21d0a
<MI 21d3a MOVE.W (A6-0x1c),D0> {}
<MI 21d3c ANDI.W #0x4000,D0> {}
<MI 21d40 BEQ 0x21d6a> {}
<POP 21d42-21d6a Naked> Σ0 ↓
<Blob 0x21d42 [18] @> Δ-18 {[«18""»]}
<POP 21d54-21d56 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21d56 17> {[«18""»]|[$$Write check error]}
<Call 0x21d64 0x103e0> {[«18""»]|[$$Write check error]}
WriteConsoleStringCrLf(str : String)
<POP 21d66-21d6a StackAdj> Δ+22 {}
<POP 21d6a-21d72 Naked> Σ0 ↓ →0x21d94 ←0x21d3a
<MI 21d6a MOVE.W (A6-0x1c),D0> {}
<MI 21d6c ANDI.W #0x1000,D0> {}
<MI 21d70 BEQ 0x21d94> {}
<POP 21d72-21d94 Naked> Σ0 ↓
<Blob 0x21d72 [18] @> Δ-18 {[«18""»]}
<POP 21d7e-21d80 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21d80 18> {[«18""»]|[$$Non-existent drive]}
<Call 0x21d8e 0x103e0> {[«18""»]|[$$Non-existent drive]}
WriteConsoleStringCrLf(str : String)
<POP 21d90-21d94 StackAdj> Δ+22 {}
<POP 21d94-21d9c Naked> Σ0 ↓ →0x21dc2 ←0x21d6a
<MI 21d94 MOVE.W (A6-0x1c),D0> {}
<MI 21d96 ANDI.W #0x0800,D0> {}
<MI 21d9a BEQ 0x21dc2> {}
<POP 21d9c-21dc2 Naked> Σ0 ↓
<Blob 0x21d9c [20] @> Δ-20 {[«20""»]}
<POP 21dac-21dae StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21dae 19> {[«20""»]|[$$Non-existent memory]}
<Call 0x21dbc 0x103e0> {[«20""»]|[$$Non-existent memory]}
WriteConsoleStringCrLf(str : String)
<POP 21dbe-21dc2 StackAdj> Δ+24 {}
<POP 21dc2-21dca Naked> Σ0 ↓ →0x21df2 ←0x21d94
<MI 21dc2 MOVE.W (A6-0x1c),D0> {}
<MI 21dc4 ANDI.W #0x0400,D0> {}
<MI 21dc8 BEQ 0x21df2> {}
<POP 21dca-21df2 Naked> Σ0 ↓
<Blob 0x21dca [14] @> Δ-14 {[«14""»]}
<POP 21ddc-21dde StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21dde 13> {[«14""»]|[$$Program error]}
<Call 0x21dec 0x103e0> {[«14""»]|[$$Program error]}
WriteConsoleStringCrLf(str : String)
<POP 21dee-21df2 StackAdj> Δ+18 {}
<POP 21df2-21dfa Naked> Σ0 ↓ →0x21e20 ←0x21dc2
<MI 21df2 MOVE.W (A6-0x1c),D0> {}
<MI 21df4 ANDI.W #0x0200,D0> {}
<MI 21df8 BEQ 0x21e20> {}
<POP 21dfa-21e20 Naked> Σ0 ↓
<Blob 0x21dfa [16] @> Δ-16 {[«16""»]}
<POP 21e0c-21e0e StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x21e0e 15> {[«16""»]|[$$Missed transfer]}
<Call 0x21e1c 0x103e0> {[«16""»]|[$$Missed transfer]}
WriteConsoleStringCrLf(str : String)
<POP 21e1e-21e20 StackAdj> Δ+20 {}
<POP 21e20-21e28 Naked> Σ0 ↓ →0x21e4e ←0x21df2
<MI 21e20 MOVE.W (A6-0x1c),D0> {}
<MI 21e22 ANDI.W #0x0040,D0> {}
<MI 21e26 BNE 0x21e4e> {}
<POP 21e28-21e4e Naked> Σ0 ↓
<Blob 0x21e28 [16] @> Δ-16 {[«16""»]}
<POP 21e3a-21e3c StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x21e3c 15> {[«16""»]|[$$Input not ready]}
<Call 0x21e4a 0x103e0> {[«16""»]|[$$Input not ready]}
WriteConsoleStringCrLf(str : String)
<POP 21e4c-21e4e StackAdj> Δ+20 {}
<POP 21e4e-21e56 Naked> Σ0 ↓ →0x21e7e ←0x21e20
<MI 21e4e MOVE.W (A6-0x1c),D0> {}
<MI 21e50 ANDI.W #0x0004,D0> {}
<MI 21e54 BEQ 0x21e7e> {}
<POP 21e56-21e7e Naked> Σ0 ↓
<Blob 0x21e56 [30] @> Δ-30 {[«30""»]}
<POP 21e68-21e6a StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x21e6a 29> {[«30""»]|[$$Bus address increment inhibit]}
<Call 0x21e78 0x103e0> {[«30""»]|[$$Bus address increment inhibit]}
WriteConsoleStringCrLf(str : String)
<POP 21e7a-21e7e StackAdj> Δ+34 {}
<POP 21e7e-21e88 Naked> Σ0 ↓ →0x21eb0 ←0x21e4e
<MI 21e7e MOVE.W (A6-0x1a),D0> {}
<MI 21e82 ANDI.W #0x2000,D0> {}
<MI 21e86 BEQ 0x21eb0> {}
<POP 21e88-21eb0 Naked> Σ0 ↓
<Blob 0x21e88 [24] @> Δ-24 {[«24""»]}
<POP 21e9a-21e9c StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x21e9c 23> {[«24""»]|[$$Positioning in progress]}
<Call 0x21eaa 0x103e0> {[«24""»]|[$$Positioning in progress]}
WriteConsoleStringCrLf(str : String)
<POP 21eac-21eb0 StackAdj> Δ+28 {}
<POP 21eb0-21eba Naked> Σ0 ↓ →0x21edc ←0x21e7e
<MI 21eb0 MOVE.W (A6-0x1a),D0> {}
<MI 21eb4 ANDI.W #0x1000,D0> {}
<MI 21eb8 BNE 0x21edc> {}
<POP 21eba-21edc Naked> Σ0 ↓
<Blob 0x21eba [18] @> Δ-18 {[«18""»]}
<POP 21ec6-21ec8 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21ec8 18> {[«18""»]|[$$Medium not on-line]}
<Call 0x21ed6 0x103e0> {[«18""»]|[$$Medium not on-line]}
WriteConsoleStringCrLf(str : String)
<POP 21ed8-21edc StackAdj> Δ+22 {}
<POP 21edc-21ee6 Naked> Σ0 ↓ →0x21f08 ←0x21eb0
<MI 21edc MOVE.W (A6-0x1a),D0> {}
<MI 21ee0 ANDI.W #0x0800,D0> {}
<MI 21ee4 BEQ 0x21f08> {}
<POP 21ee6-21f08 Naked> Σ0 ↓
<Blob 0x21ee6 [4] @> Δ-4 {[«4""»]}
<Blob 0x21eea [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21eee [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 21ef2-21ef4 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21ef4 12> {[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
<Call 0x21f02 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
WriteConsoleStringCrLf(str : String)
<POP 21f04-21f08 StackAdj> Δ+16 {}
<POP 21f08-21f12 Naked> Σ0 ↓ →0x21f34 ←0x21edc
<MI 21f08 MOVE.W (A6-0x1a),D0> {}
<MI 21f0c ANDI.W #0x0400,D0> {}
<MI 21f10 BEQ 0x21f34> {}
<POP 21f12-21f34 Naked> Σ0 ↓
<Blob 0x21f12 [22] @> Δ-22 {[«22""»]}
<POP 21f1e-21f20 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x21f20 22> {[«22""»]|[$$Last sector transfered]}
<Call 0x21f2e 0x103e0> {[«22""»]|[$$Last sector transfered]}
WriteConsoleStringCrLf(str : String)
<POP 21f30-21f34 StackAdj> Δ+26 {}
<POP 21f34-21f3e Naked> Σ0 ↓ →0x21f66 ←0x21f08
<MI 21f34 MOVE.W (A6-0x1a),D0> {}
<MI 21f38 ANDI.W #0x0100,D0> {}
<MI 21f3c BNE 0x21f66> {}
<POP 21f3e-21f66 Naked> Σ0 ↓
<Blob 0x21f3e [18] @> Δ-18 {[«18""»]}
<POP 21f50-21f52 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21f52 17> {[«18""»]|[$$Drive not present]}
<Call 0x21f60 0x103e0> {[«18""»]|[$$Drive not present]}
WriteConsoleStringCrLf(str : String)
<POP 21f62-21f66 StackAdj> Δ+22 {}
<POP 21f66-21f70 Naked> Σ0 ↓ →0x21f96 ←0x21f34
<MI 21f66 MOVE.W (A6-0x1a),D0> {}
<MI 21f6a ANDI.W #0x0080,D0> {}
<MI 21f6e BNE 0x21f96> {}
<POP 21f70-21f96 Naked> Σ0 ↓
<Blob 0x21f70 [16] @> Δ-16 {[«16""»]}
<POP 21f82-21f84 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x21f84 15> {[«16""»]|[$$Drive not ready]}
<Call 0x21f92 0x103e0> {[«16""»]|[$$Drive not ready]}
WriteConsoleStringCrLf(str : String)
<POP 21f94-21f96 StackAdj> Δ+20 {}
<POP 21f96-21fa0 Naked> Σ0 ↓ →0x21fc4 ←0x21f66
<MI 21f96 MOVE.W (A6-0x1a),D0> {}
<MI 21f9a ANDI.W #0x0040,D0> {}
<MI 21f9e BNE 0x21fc4> {}
<POP 21fa0-21fc4 Naked> Σ0 ↓
<Blob 0x21fa0 [4] @> Δ-4 {[«4""»]}
<Blob 0x21fa4 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21fa8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21fac [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21fb0-21fb2 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21fb2 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<Call 0x21fc0 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
WriteConsoleStringCrLf(str : String)
<POP 21fc2-21fc4 StackAdj> Δ+20 {}
<POP 21fc4-21fce Naked> Σ0 ↓ →0x21ff2 ←0x21f96
<MI 21fc4 MOVE.W (A6-0x18),D0> {}
<MI 21fc8 ANDI.W #0x8000,D0> {}
<MI 21fcc BEQ 0x21ff2> {}
<POP 21fce-21ff2 Naked> Σ0 ↓
<Blob 0x21fce [4] @> Δ-4 {[«4""»]}
<Blob 0x21fd2 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21fd6 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21fda [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21fde-21fe0 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21fe0 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
<Call 0x21fee 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
WriteConsoleStringCrLf(str : String)
<POP 21ff0-21ff2 StackAdj> Δ+20 {}
<POP 21ff2-21ffc Naked> Σ0 ↓ →0x2201e ←0x21fc4
<MI 21ff2 MOVE.W (A6-0x18),D0> {}
<MI 21ff6 ANDI.W #0x4000,D0> {}
<MI 21ffa BEQ 0x2201e> {}
<POP 21ffc-2201e Naked> Σ0 ↓
<Blob 0x21ffc [2] @> Δ-2 {[«2""»]}
<Blob 0x22000 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x22004 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 22008-2200a StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x2200a 6> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<Call 0x22018 0x103e0> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
WriteConsoleStringCrLf(str : String)
<POP 2201a-2201e StackAdj> Δ+10 {}
<POP 2201e-22028 Naked> Σ0 ↓ →0x22048 ←0x21ff2
<MI 2201e MOVE.W (A6-0x18),D0> {}
<MI 22022 ANDI.W #0x2000,D0> {}
<MI 22026 BEQ 0x22048> {}
<POP 22028-22048 Naked> Σ0 ↓
<Blob 0x22028 [20] @> Δ-20 {[«20""»]}
<POP 22034-22036 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22036 20> {[«20""»]|[$$Operation incomplete]}
<Call 0x22042 0x103e0> {[«20""»]|[$$Operation incomplete]}
WriteConsoleStringCrLf(str : String)
<POP 22044-22048 StackAdj> Δ+24 {}
<POP 22048-22052 Naked> Σ0 ↓ →0x22074 ←0x2201e
<MI 22048 MOVE.W (A6-0x18),D0> {}
<MI 2204c ANDI.W #0x1000,D0> {}
<MI 22050 BEQ 0x22074> {}
<POP 22052-22074 Naked> Σ0 ↓
<Blob 0x22052 [18] @> Δ-18 {[«18""»]}
<POP 2205e-22060 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x22060 18> {[«18""»]|[$$Drive timing error]}
<Call 0x2206e 0x103e0> {[«18""»]|[$$Drive timing error]}
WriteConsoleStringCrLf(str : String)
<POP 22070-22074 StackAdj> Δ+22 {}
<POP 22074-2207e Naked> Σ0 ↓ →0x220a2 ←0x22048
<MI 22074 MOVE.W (A6-0x18),D0> {}
<MI 22078 ANDI.W #0x0800,D0> {}
<MI 2207c BEQ 0x220a2> {}
<POP 2207e-220a2 Naked> Σ0 ↓
<Blob 0x2207e [4] @> Δ-4 {[«4""»]}
<Blob 0x22082 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x22086 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2208a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2208e-22090 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x22090 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<Call 0x2209e 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
WriteConsoleStringCrLf(str : String)
<POP 220a0-220a2 StackAdj> Δ+20 {}
<POP 220a2-220ac Naked> Σ0 ↓ →0x220d4 ←0x22074
<MI 220a2 MOVE.W (A6-0x18),D0> {}
<MI 220a6 ANDI.W #0x0400,D0> {}
<MI 220aa BEQ 0x220d4> {}
<POP 220ac-220d4 Naked> Σ0 ↓
<Blob 0x220ac [22] @> Δ-22 {[«22""»]}
<POP 220be-220c0 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x220c0 21> {[«22""»]|[$$Invalid address error]}
<Call 0x220ce 0x103e0> {[«22""»]|[$$Invalid address error]}
WriteConsoleStringCrLf(str : String)
<POP 220d0-220d4 StackAdj> Δ+26 {}
<POP 220d4-220de Naked> Σ0 ↓ →0x22100 ←0x220a2
<MI 220d4 MOVE.W (A6-0x18),D0> {}
<MI 220d8 ANDI.W #0x0200,D0> {}
<MI 220dc BEQ 0x22100> {}
<POP 220de-22100 Naked> Σ0 ↓
<Blob 0x220de [22] @> Δ-22 {[«22""»]}
<POP 220ea-220ec StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x220ec 22> {[«22""»]|[$$Address overflow error]}
<Call 0x220fa 0x103e0> {[«22""»]|[$$Address overflow error]}
WriteConsoleStringCrLf(str : String)
<POP 220fc-22100 StackAdj> Δ+26 {}
<POP 22100-2210a Naked> Σ0 ↓ →0x2212e ←0x220d4
<MI 22100 MOVE.W (A6-0x18),D0> {}
<MI 22104 ANDI.W #0x0100,D0> {}
<MI 22108 BEQ 0x2212e> {}
<POP 2210a-2212e Naked> Σ0 ↓
<Blob 0x2210a [4] @> Δ-4 {[«4""»]}
<Blob 0x2210e [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x22112 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x22116 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2211a-2211c StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2211c 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<Call 0x2212a 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
WriteConsoleStringCrLf(str : String)
<POP 2212c-2212e StackAdj> Δ+20 {}
<POP 2212e-22138 Naked> Σ0 ↓ →0x22158 ←0x22100
<MI 2212e MOVE.W (A6-0x18),D0> {}
<MI 22132 ANDI.W #0x0080,D0> {}
<MI 22136 BEQ 0x22158> {}
<POP 22138-22158 Naked> Σ0 ↓
<Blob 0x22138 [20] @> Δ-20 {[«20""»]}
<POP 22144-22146 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22146 20> {[«20""»]|[$$Header compare error]}
<Call 0x22152 0x103e0> {[«20""»]|[$$Header compare error]}
WriteConsoleStringCrLf(str : String)
<POP 22154-22158 StackAdj> Δ+24 {}
<POP 22158-22162 Naked> Σ0 ↓ →0x22184 ←0x2212e
<MI 22158 MOVE.W (A6-0x18),D0> {}
<MI 2215c ANDI.W #0x0040,D0> {}
<MI 22160 BEQ 0x22184> {}
<POP 22162-22184 Naked> Σ0 ↓
<Blob 0x22162 [14] @> Δ-14 {[«14""»]}
<POP 2216e-22170 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x22170 14> {[«14""»]|[$$Hard ECC error]}
<Call 0x2217e 0x103e0> {[«14""»]|[$$Hard ECC error]}
WriteConsoleStringCrLf(str : String)
<POP 22180-22184 StackAdj> Δ+18 {}
<POP 22184-2218e Naked> Σ0 ↓ →0x221b0 ←0x22158
<MI 22184 MOVE.W (A6-0x18),D0> {}
<MI 22188 ANDI.W #0x0010,D0> {}
<MI 2218c BEQ 0x221b0> {}
<POP 2218e-221b0 Naked> Σ0 ↓
<Blob 0x2218e [4] @> Δ-4 {[«4""»]}
<Blob 0x22192 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x22196 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2219a-2219c StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2219c 12> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<Call 0x221aa 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
WriteConsoleStringCrLf(str : String)
<POP 221ac-221b0 StackAdj> Δ+16 {}
<POP 221b0-221ba Naked> Σ0 ↓ →0x221e2 ←0x22184
<MI 221b0 MOVE.W (A6-0x18),D0> {}
<MI 221b4 ANDI.W #0x0004,D0> {}
<MI 221b8 BEQ 0x221e2> {}
<POP 221ba-221e2 Naked> Σ0 ↓
<Blob 0x221ba [30] @> Δ-30 {[«30""»]}
<POP 221cc-221ce StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x221ce 29> {[«30""»]|[$$Register modification refused]}
<Call 0x221dc 0x103e0> {[«30""»]|[$$Register modification refused]}
WriteConsoleStringCrLf(str : String)
<POP 221de-221e2 StackAdj> Δ+34 {}
<POP 221e2-221ea Naked> Σ0 ↓ →0x2220e ←0x221b0
<MI 221e2 MOVE.W (A6-0x18),D0> {}
<MI 221e6 AND.W #0x01,D0> {}
<MI 221e8 BEQ 0x2220e> {}
<POP 221ea-2220e Naked> Σ0 ↓
<Blob 0x221ea [4] @> Δ-4 {[«4""»]}
<Blob 0x221ee [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x221f2 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x221f6 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 221fa-221fc StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x221fc 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<Call 0x2220a 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
WriteConsoleStringCrLf(str : String)
<POP 2220c-2220e StackAdj> Δ+20 {}
<POP 2220e-22218 Naked> Σ0 ↓ →0x22240 ←0x221e2
<MI 2220e MOVE.W (A6-0x16),D0> {}
<MI 22212 ANDI.W #0x8000,D0> {}
<MI 22216 BEQ 0x22240> {}
<POP 22218-22240 Naked> Σ0 ↓
<Blob 0x22218 [10] @> Δ-10 {[«10""»]}
<POP 2222a-2222c StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x2222c 9> {[«10""»]|[$$Bad block]}
<Call 0x2223a 0x103e0> {[«10""»]|[$$Bad block]}
WriteConsoleStringCrLf(str : String)
<POP 2223c-22240 StackAdj> Δ+14 {}
<POP 22240-2224a Naked> Σ0 ↓ →0x22270 ←0x2220e
<MI 22240 MOVE.W (A6-0x16),D0> {}
<MI 22244 ANDI.W #0x4000,D0> {}
<MI 22248 BEQ 0x22270> {}
<POP 2224a-22270 Naked> Σ0 ↓
<Blob 0x2224a [16] @> Δ-16 {[«16""»]}
<POP 2225c-2225e StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x2225e 15> {[«16""»]|[$$Seek incomplete]}
<Call 0x2226c 0x103e0> {[«16""»]|[$$Seek incomplete]}
WriteConsoleStringCrLf(str : String)
<POP 2226e-22270 StackAdj> Δ+20 {}
<POP 22270-2227a Naked> Σ0 ↓ →0x222a2 ←0x22240
<MI 22270 MOVE.W (A6-0x16),D0> {}
<MI 22274 ANDI.W #0x1000,D0> {}
<MI 22278 BEQ 0x222a2> {}
<POP 2227a-222a2 Naked> Σ0 ↓
<Blob 0x2227a [62] @> Δ-62 {[«62""»]}
<POP 2228c-2228e StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x2228e 61> {[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
<Call 0x2229c 0x103e0> {[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
WriteConsoleStringCrLf(str : String)
<POP 2229e-222a2 StackAdj> Δ+66 {}
<POP 222a2-222ac Naked> Σ0 ↓ →0x222ce ←0x22270
<MI 222a2 MOVE.W (A6-0x16),D0> {}
<MI 222a6 ANDI.W #0x0080,D0> {}
<MI 222aa BEQ 0x222ce> {}
<POP 222ac-222ce Naked> Σ0 ↓
<Blob 0x222ac [4] @> Δ-4 {[«4""»]}
<Blob 0x222b0 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x222b4 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 222b8-222ba StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x222ba 12> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<Call 0x222c8 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
WriteConsoleStringCrLf(str : String)
<POP 222ca-222ce StackAdj> Δ+16 {}
<POP 222ce-222f8 Naked> Σ0 ↓ →0x22322 ←0x222a2
<Blob 0x222ce [36] @> Δ-36 {[«36""»]}
<POP 222da-222dc StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x222dc 36> {[«36""»]|[$$THE EXTENDED DRIVE STATUS INDICATES:]}
<Call 0x222ea 0x103e0> {[«36""»]|[$$THE EXTENDED DRIVE STATUS INDICATES:]}
WriteConsoleStringCrLf(str : String)
<POP 222ec-222f0 StackAdj> Δ+40 {}
<MI 222f0 MOVE.W (A6-0xc),D0> {}
<MI 222f4 AND.W #0x01,D0> {}
<MI 222f6 BEQ 0x22322> {}
<POP 222f8-22322 Naked> Σ0 →0x2234a
<Blob 0x222f8 [28] @> Δ-28 {[«28""»]}
<POP 2230a-2230c StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x2230c 27> {[«28""»]|[$$ drive is in READY state]}
<Call 0x2231a 0x103e0> {[«28""»]|[$$ drive is in READY state]}
WriteConsoleStringCrLf(str : String)
<POP 2231c-22320 StackAdj> Δ+32 {}
<MI 22320 BRA 0x2234a> {}
<POP 22322-2234a Naked> Σ0 ↓ ←0x222ce
<Blob 0x22322 [32] @> Δ-32 {[«32""»]}
<POP 22334-22336 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x22336 31> {[«32""»]|[$$ drive is NOT in READY state]}
<Call 0x22344 0x103e0> {[«32""»]|[$$ drive is NOT in READY state]}
WriteConsoleStringCrLf(str : String)
<POP 22346-2234a StackAdj> Δ+36 {}
<POP 2234a-22354 Naked> Σ0 ↓ →0x22378 ←0x222f8
<MI 2234a MOVE.W (A6-0xc),D0> {}
<MI 2234e ANDI.W #0x0002,D0> {}
<MI 22352 BEQ 0x22378> {}
<POP 22354-22378 Naked> Σ0 →0x2239a
<Blob 0x22354 [24] @> Δ-24 {[«24""»]}
<POP 22360-22362 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x22362 24> {[«24""»]|[$$ drive is on cylinder]}
<Call 0x22370 0x103e0> {[«24""»]|[$$ drive is on cylinder]}
WriteConsoleStringCrLf(str : String)
<POP 22372-22376 StackAdj> Δ+28 {}
<MI 22376 BRA 0x2239a> {}
<POP 22378-2239a Naked> Σ0 ↓ ←0x2234a
<Blob 0x22378 [28] @> Δ-28 {[«28""»]}
<POP 22384-22386 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x22386 28> {[«28""»]|[$$ drive is NOT on cylinder]}
<Call 0x22394 0x103e0> {[«28""»]|[$$ drive is NOT on cylinder]}
WriteConsoleStringCrLf(str : String)
<POP 22396-2239a StackAdj> Δ+32 {}
<POP 2239a-223a4 Naked> Σ0 ↓ →0x223c6 ←0x22354
<MI 2239a MOVE.W (A6-0xc),D0> {}
<MI 2239e ANDI.W #0x0004,D0> {}
<MI 223a2 BEQ 0x223c6> {}
<POP 223a4-223c6 Naked> Σ0 ↓
<Blob 0x223a4 [36] @> Δ-36 {[«36""»]}
<POP 223b0-223b2 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x223b2 36> {[«36""»]|[$$ drive has a SEEK ERROR condition]}
<Call 0x223c0 0x103e0> {[«36""»]|[$$ drive has a SEEK ERROR condition]}
WriteConsoleStringCrLf(str : String)
<POP 223c2-223c6 StackAdj> Δ+40 {}
<POP 223c6-223d0 Naked> Σ0 ↓ →0x223f8 ←0x2239a
<MI 223c6 MOVE.W (A6-0xc),D0> {}
<MI 223ca ANDI.W #0x0008,D0> {}
<MI 223ce BEQ 0x223f8> {}
<POP 223d0-223f8 Naked> Σ0 ↓
<Blob 0x223d0 [32] @> Δ-32 {[«32""»]}
<POP 223e2-223e4 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x223e4 31> {[«32""»]|[$$ drive has a FAULT condition]}
<Call 0x223f2 0x103e0> {[«32""»]|[$$ drive has a FAULT condition]}
WriteConsoleStringCrLf(str : String)
<POP 223f4-223f8 StackAdj> Δ+36 {}
<POP 223f8-22402 Naked> Σ0 ↓ →0x22424 ←0x223c6
<MI 223f8 MOVE.W (A6-0xc),D0> {}
<MI 223fc ANDI.W #0x0010,D0> {}
<MI 22400 BEQ 0x22424> {}
<POP 22402-22424 Naked> Σ0 ↓
<Blob 0x22402 [28] @> Δ-28 {[«28""»]}
<POP 2240e-22410 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x22410 28> {[«28""»]|[$$ drive is write protected]}
<Call 0x2241e 0x103e0> {[«28""»]|[$$ drive is write protected]}
WriteConsoleStringCrLf(str : String)
<POP 22420-22424 StackAdj> Δ+32 {}
<POP 22424-2242e Naked> Σ0 ↓ →0x22436 ←0x223f8
<MI 22424 MOVE.B 0x293a0,D0> {}
<MI 2242a CMP.B #0x01,D0> {}
<MI 2242c BEQ 0x22436> {}
<POP 2242e-22436 Naked> Σ0 ↓ →0x22780
<MI 2242e CMPI.B #0x02,D0> {}
<MI 22432 BNE 0x22780> {}
<POP 22436-22442 Naked> Σ0 ↓ →0x225d8 ←0x22424
<MI 22436 MOVE.W (A6-0xa),D0> {}
<MI 2243a ANDI.W #0x00ff,D0> {}
<MI 2243e BEQ 0x225d8> {}
<POP 22442-2246c Naked> Σ0 ↓ →0x22492
<Blob 0x22442 [24] @> Δ-24 {[«24""»]}
<POP 2244e-22450 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x22450 24> {[«24""»]|[$$WRITE/READ CHECK STATUS:]}
<Call 0x2245e 0x103e0> {[«24""»]|[$$WRITE/READ CHECK STATUS:]}
WriteConsoleStringCrLf(str : String)
<POP 22460-22464 StackAdj> Δ+28 {}
<MI 22464 MOVE.W (A6-0xa),D0> {}
<MI 22468 AND.W #0x01,D0> {}
<MI 2246a BEQ 0x22492> {}
<POP 2246c-22492 Naked> Σ0 ↓
<Blob 0x2246c [16] @> Δ-16 {[«16""»]}
<POP 2247e-22480 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x22480 15> {[«16""»]|[$$ Index Check]}
<Call 0x2248e 0x103e0> {[«16""»]|[$$ Index Check]}
WriteConsoleStringCrLf(str : String)
<POP 22490-22492 StackAdj> Δ+20 {}
<POP 22492-2249c Naked> Σ0 ↓ →0x224c4 ←0x22442
<MI 22492 MOVE.W (A6-0xa),D0> {}
<MI 22496 ANDI.W #0x0002,D0> {}
<MI 2249a BEQ 0x224c4> {}
<POP 2249c-224c4 Naked> Σ0 ↓
<Blob 0x2249c [18] @> Δ-18 {[«18""»]}
<POP 224ae-224b0 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x224b0 17> {[«18""»]|[$$ Control Check]}
<Call 0x224be 0x103e0> {[«18""»]|[$$ Control Check]}
WriteConsoleStringCrLf(str : String)
<POP 224c0-224c4 StackAdj> Δ+22 {}
<POP 224c4-224ce Naked> Σ0 ↓ →0x224ee ←0x22492
<MI 224c4 MOVE.W (A6-0xa),D0> {}
<MI 224c8 ANDI.W #0x0004,D0> {}
<MI 224cc BEQ 0x224ee> {}
<POP 224ce-224ee Naked> Σ0 ↓
<Blob 0x224ce [20] @> Δ-20 {[«20""»]}
<POP 224da-224dc StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x224dc 20> {[«20""»]|[$$ Multi Head Check]}
<Call 0x224e8 0x103e0> {[«20""»]|[$$ Multi Head Check]}
WriteConsoleStringCrLf(str : String)
<POP 224ea-224ee StackAdj> Δ+24 {}
<POP 224ee-224f8 Naked> Σ0 ↓ →0x22518 ←0x224c4
<MI 224ee MOVE.W (A6-0xa),D0> {}
<MI 224f2 ANDI.W #0x0008,D0> {}
<MI 224f6 BEQ 0x22518> {}
<POP 224f8-22518 Naked> Σ0 ↓
<Blob 0x224f8 [20] @> Δ-20 {[«20""»]}
<POP 22504-22506 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22506 20> {[«20""»]|[$$ Head Short Check]}
<Call 0x22512 0x103e0> {[«20""»]|[$$ Head Short Check]}
WriteConsoleStringCrLf(str : String)
<POP 22514-22518 StackAdj> Δ+24 {}
<POP 22518-22522 Naked> Σ0 ↓ →0x2254a ←0x224ee
<MI 22518 MOVE.W (A6-0xa),D0> {}
<MI 2251c ANDI.W #0x0010,D0> {}
<MI 22520 BEQ 0x2254a> {}
<POP 22522-2254a Naked> Σ0 ↓
<Blob 0x22522 [32] @> Δ-32 {[«32""»]}
<POP 22534-22536 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x22536 31> {[«32""»]|[$$ Write Current on Read Check]}
<Call 0x22544 0x103e0> {[«32""»]|[$$ Write Current on Read Check]}
WriteConsoleStringCrLf(str : String)
<POP 22546-2254a StackAdj> Δ+36 {}
<POP 2254a-22554 Naked> Σ0 ↓ →0x22576 ←0x22518
<MI 2254a MOVE.W (A6-0xa),D0> {}
<MI 2254e ANDI.W #0x0020,D0> {}
<MI 22552 BEQ 0x22576> {}
<POP 22554-22576 Naked> Σ0 ↓
<Blob 0x22554 [26] @> Δ-26 {[«26""»]}
<POP 22560-22562 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x22562 26> {[«26""»]|[$$ Write Transition Check]}
<Call 0x22570 0x103e0> {[«26""»]|[$$ Write Transition Check]}
WriteConsoleStringCrLf(str : String)
<POP 22572-22576 StackAdj> Δ+30 {}
<POP 22576-22580 Naked> Σ0 ↓ →0x225a8 ←0x2254a
<MI 22576 MOVE.W (A6-0xa),D0> {}
<MI 2257a ANDI.W #0x0040,D0> {}
<MI 2257e BEQ 0x225a8> {}
<POP 22580-225a8 Naked> Σ0 ↓
<Blob 0x22580 [24] @> Δ-24 {[«24""»]}
<POP 22592-22594 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x22594 23> {[«24""»]|[$$ Delta I Write Check]}
<Call 0x225a2 0x103e0> {[«24""»]|[$$ Delta I Write Check]}
WriteConsoleStringCrLf(str : String)
<POP 225a4-225a8 StackAdj> Δ+28 {}
<POP 225a8-225b2 Naked> Σ0 ↓ →0x225d8 ←0x22576
<MI 225a8 MOVE.W (A6-0xa),D0> {}
<MI 225ac ANDI.W #0x0080,D0> {}
<MI 225b0 BEQ 0x225d8> {}
<POP 225b2-225d8 Naked> Σ0 ↓
<Blob 0x225b2 [20] @> Δ-20 {[«20""»]}
<POP 225c2-225c4 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x225c4 19> {[«20""»]|[$$ Servo Off Track]}
<Call 0x225d2 0x103e0> {[«20""»]|[$$ Servo Off Track]}
WriteConsoleStringCrLf(str : String)
<POP 225d4-225d8 StackAdj> Δ+24 {}
<POP 225d8-225e4 Naked> Σ0 ↓ →0x22780 ←0x22436 ←0x225a8
<MI 225d8 MOVE.W (A6-0xa),D0> {}
<MI 225dc ANDI.W #0xff00,D0> {}
<MI 225e0 BEQ 0x22780> {}
<POP 225e4-22610 Naked> Σ0 ↓ →0x22638
<Blob 0x225e4 [14] @> Δ-14 {[«14""»]}
<POP 225f0-225f2 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x225f2 14> {[«14""»]|[$$ACCESS STATUS:]}
<Call 0x22600 0x103e0> {[«14""»]|[$$ACCESS STATUS:]}
WriteConsoleStringCrLf(str : String)
<POP 22602-22606 StackAdj> Δ+18 {}
<MI 22606 MOVE.W (A6-0xa),D0> {}
<MI 2260a ANDI.W #0x0100,D0> {}
<MI 2260e BEQ 0x22638> {}
<POP 22610-22638 Naked> Σ0 ↓
<Blob 0x22610 [22] @> Δ-22 {[«22""»]}
<POP 22622-22624 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x22624 21> {[«22""»]|[$$ DE Sequence Check]}
<Call 0x22632 0x103e0> {[«22""»]|[$$ DE Sequence Check]}
WriteConsoleStringCrLf(str : String)
<POP 22634-22638 StackAdj> Δ+26 {}
<POP 22638-22642 Naked> Σ0 ↓ →0x22664 ←0x225e4
<MI 22638 MOVE.W (A6-0xa),D0> {}
<MI 2263c ANDI.W #0x0200,D0> {}
<MI 22640 BEQ 0x22664> {}
<POP 22642-22664 Naked> Σ0 ↓
<Blob 0x22642 [24] @> Δ-24 {[«24""»]}
<POP 2264e-22650 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x22650 24> {[«24""»]|[$$ Access Timeout Check]}
<Call 0x2265e 0x103e0> {[«24""»]|[$$ Access Timeout Check]}
WriteConsoleStringCrLf(str : String)
<POP 22660-22664 StackAdj> Δ+28 {}
<POP 22664-2266e Naked> Σ0 ↓ →0x2268e ←0x22638
<MI 22664 MOVE.W (A6-0xa),D0> {}
<MI 22668 ANDI.W #0x0400,D0> {}
<MI 2266c BEQ 0x2268e> {}
<POP 2266e-2268e Naked> Σ0 ↓
<Blob 0x2266e [20] @> Δ-20 {[«20""»]}
<POP 2267a-2267c StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2267c 20> {[«20""»]|[$$ Over Shoot Check]}
<Call 0x22688 0x103e0> {[«20""»]|[$$ Over Shoot Check]}
WriteConsoleStringCrLf(str : String)
<POP 2268a-2268e StackAdj> Δ+24 {}
<POP 2268e-22698 Naked> Σ0 ↓ →0x226c0 ←0x22664
<MI 2268e MOVE.W (A6-0xa),D0> {}
<MI 22692 ANDI.W #0x0800,D0> {}
<MI 22696 BEQ 0x226c0> {}
<POP 22698-226c0 Naked> Σ0 ↓
<Blob 0x22698 [22] @> Δ-22 {[«22""»]}
<POP 226aa-226ac StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x226ac 21> {[«22""»]|[$$ Rezero Mode Latch]}
<Call 0x226ba 0x103e0> {[«22""»]|[$$ Rezero Mode Latch]}
WriteConsoleStringCrLf(str : String)
<POP 226bc-226c0 StackAdj> Δ+26 {}
<POP 226c0-226ca Naked> Σ0 ↓ →0x226f0 ←0x2268e
<MI 226c0 MOVE.W (A6-0xa),D0> {}
<MI 226c4 ANDI.W #0x1000,D0> {}
<MI 226c8 BEQ 0x226f0> {}
<POP 226ca-226f0 Naked> Σ0 ↓
<Blob 0x226ca [16] @> Δ-16 {[«16""»]}
<POP 226dc-226de StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x226de 15> {[«16""»]|[$$ Servo Latch]}
<Call 0x226ec 0x103e0> {[«16""»]|[$$ Servo Latch]}
WriteConsoleStringCrLf(str : String)
<POP 226ee-226f0 StackAdj> Δ+20 {}
<POP 226f0-226fa Naked> Σ0 ↓ →0x22722 ←0x226c0
<MI 226f0 MOVE.W (A6-0xa),D0> {}
<MI 226f4 ANDI.W #0x2000,D0> {}
<MI 226f8 BEQ 0x22722> {}
<POP 226fa-22722 Naked> Σ0 ↓
<Blob 0x226fa [22] @> Δ-22 {[«22""»]}
<POP 2270c-2270e StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x2270e 21> {[«22""»]|[$$ Linear Mode Latch]}
<Call 0x2271c 0x103e0> {[«22""»]|[$$ Linear Mode Latch]}
WriteConsoleStringCrLf(str : String)
<POP 2271e-22722 StackAdj> Δ+26 {}
<POP 22722-2272c Naked> Σ0 ↓ →0x22754 ←0x226f0
<MI 22722 MOVE.W (A6-0xa),D0> {}
<MI 22726 ANDI.W #0x4000,D0> {}
<MI 2272a BEQ 0x22754> {}
<POP 2272c-22754 Naked> Σ0 ↓
<Blob 0x2272c [18] @> Δ-18 {[«18""»]}
<POP 2273e-22740 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x22740 17> {[«18""»]|[$$ Control Latch]}
<Call 0x2274e 0x103e0> {[«18""»]|[$$ Control Latch]}
WriteConsoleStringCrLf(str : String)
<POP 22750-22754 StackAdj> Δ+22 {}
<POP 22754-2275e Naked> Σ0 ↓ →0x22780 ←0x22722
<MI 22754 MOVE.W (A6-0xa),D0> {}
<MI 22758 ANDI.W #0x8000,D0> {}
<MI 2275c BEQ 0x22780> {}
<POP 2275e-22780 Naked> Σ0 ↓
<Blob 0x2275e [14] @> Δ-14 {[«14""»]}
<POP 2276a-2276c StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x2276c 14> {[«14""»]|[$$ Wait Latch]}
<Call 0x2277a 0x103e0> {[«14""»]|[$$ Wait Latch]}
WriteConsoleStringCrLf(str : String)
<POP 2277c-22780 StackAdj> Δ+18 {}
<POP 22780-2278c Naked> Σ0 ↓ →0x22794 ←0x2242e ←0x225d8 ←0x22754
<MI 22780 MOVE.B 0x293a0,D0> {}
<MI 22786 CMPI.B #0x03,D0> {}
<MI 2278a BEQ 0x22794> {}
<POP 2278c-22794 Naked> Σ0 ↓ →0x22a6e
<MI 2278c CMPI.B #0x04,D0> {}
<MI 22790 BNE 0x22a6e> {}
<POP 22794-227a0 Naked> Σ0 ↓ →0x22a6e ←0x22780
<MI 22794 MOVE.W (A6-0xa),D0> {}
<MI 22798 ANDI.W #0x00ff,D0> {}
<MI 2279c BEQ 0x22a6e> {}
<POP 227a0-227e4 Naked> Σ0 →0x227f4 →0x227f8 →0x22824 →0x2284a →0x2286e →0x22882 →0x228a6 →0x228bc
<Blob 0x227a0 [34] @> Δ-34 {[«34""»]}
<POP 227b2-227b4 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x227b4 33> {[«34""»]|[$$EXTENDED FAULT/SEEK ERROR STATUS:]}
<Call 0x227c2 0x103e0> {[«34""»]|[$$EXTENDED FAULT/SEEK ERROR STATUS:]}
WriteConsoleStringCrLf(str : String)
<POP 227c4-227c8 StackAdj> Δ+38 {}
<MI 227c8 MOVE.W (A6-0xa),D6> {}
<MI 227cc ANDI.W #0x0007,D6> {}
<MI 227d0 MOVE.W D6,D0> {}
<POP 0x227d2 LimitCheck 0x0 ≤ D0 ≤ 0x7> {}
<MI 227da ADD.W D0,D0> {}
<MI 227dc SWITCH D0.W> {}
<POP 227f4-227f8 Naked> Σ0 →0x228de ←0x227a0
<MI 227f4 BRA 0x228de> {}
<POP 227f8-2280a Naked> Σ0 Δ-48 ↓ ←0x227a0
<Blob 0x227f8 [48] @> Δ-48 {[«48""»]}
<POP 2280a-22824 Naked> Σ-48 Δ+48 →0x228de ←0x2286e ←0x228a6
<POP 2280a-2280c StackAdj> Δ-4 {[-52-]}
<Lit 0x2280c> {[-48-]|[$$…]}
<Pointer.sp 0x2280c 4> Δ-4
<Const 0x22810 0x1.2> Δ-2
<Const 0x22812 0x2f.2> Δ-2
<Call 0x22816 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22818-2281a StackAdj> Δ+8
<Call 0x2281a 0x103e0> {[-48-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 2281c-22820 StackAdj> Δ+52 {}
<MI 22820 BRA 0x228de> {}
<POP 22824-2284a Naked> Σ0 →0x228de ←0x227a0
<Blob 0x22824 [50] @> Δ-50 {[«50""»]}
<POP 22830-22832 StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x22832 50> {[«50""»]|[$$ FAULT: write cmd issued during fault condition]}
<Call 0x22840 0x103e0> {[«50""»]|[$$ FAULT: write cmd issued during fault condition]}
WriteConsoleStringCrLf(str : String)
<POP 22842-22846 StackAdj> Δ+54 {}
<MI 22846 BRA 0x228de> {}
<POP 2284a-2286e Naked> Σ0 →0x228de ←0x227a0
<Blob 0x2284a [54] @> Δ-54 {[«54""»]}
<POP 22856-22858 StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x22858 54> {[«54""»]|[$$ FAULT: write cmd issued during off-track condition]}
<Call 0x22866 0x103e0> {[«54""»]|[$$ FAULT: write cmd issued during off-track condition]}
WriteConsoleStringCrLf(str : String)
<POP 22868-2286c StackAdj> Δ+58 {}
<MI 2286c BRA 0x228de> {}
<POP 2286e-22882 Naked> Σ0 Δ-48 →0x2280a ←0x227a0
<Blob 0x2286e [48] @> Δ-48 {[«48""»]}
<MI 22880 BRA 0x2280a> {[«48""»]}
<POP 22882-228a6 Naked> Σ0 →0x228de ←0x227a0
<Blob 0x22882 [58] @> Δ-58 {[«58""»]}
<POP 2288e-22890 StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x22890 58> {[«58""»]|[$$ FAULT: write command issued when drive write protected]}
<Call 0x2289e 0x103e0> {[«58""»]|[$$ FAULT: write command issued when drive write protected]}
WriteConsoleStringCrLf(str : String)
<POP 228a0-228a4 StackAdj> Δ+62 {}
<MI 228a4 BRA 0x228de> {}
<POP 228a6-228bc Naked> Σ0 Δ-48 →0x2280a ←0x227a0
<Blob 0x228a6 [48] @> Δ-48 {[«48""»]}
<MI 228b8 BRA 0x2280a> {[«48""»]}
<POP 228bc-228de Naked> Σ0 ↓ ←0x227a0
<Blob 0x228bc [52] @> Δ-52 {[«52""»]}
<POP 228c8-228ca StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x228ca 52> {[«52""»]|[$$ FAULT: emergency fault in voice coil or DC motor]}
<Call 0x228d8 0x103e0> {[«52""»]|[$$ FAULT: emergency fault in voice coil or DC motor]}
WriteConsoleStringCrLf(str : String)
<POP 228da-228de StackAdj> Δ+56 {}
<POP 228de-228fc Naked> Σ0 →0x2290c →0x22910 →0x2293c →0x22956 →0x2297c →0x229a6 →0x229ca →0x229f4 ←0x227f4 ←0x2280a ←0x22824 ←0x2284a ←0x22882
<MI 228de MOVE.W (A6-0xa),D6> {}
<MI 228e2 ANDI.W #0x0038,D6> {}
<MI 228e6 LSR.W #0x3,D6> {}
<MI 228e8 MOVE.W D6,D0> {}
<POP 0x228ea LimitCheck 0x0 ≤ D0 ≤ 0x7> {}
<MI 228f2 ADD.W D0,D0> {}
<MI 228f4 SWITCH D0.W> {}
<POP 2290c-22910 Naked> Σ0 →0x22a16 ←0x228de
<MI 2290c BRA 0x22a16> {}
<POP 22910-2292e Naked> Σ0 Δ-50 ↓ ←0x228de
<Blob 0x22910 [38] @> Δ-38 {[«38""»]}
<POP 22922-22924 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Pointer.sp 0x22924 4> Δ-4 {[«38""»]|[-4-]|[^^4]}
<Const 0x22928 0x1.2> Δ-2 {[«38""»]|[-4-]|[^^4]|[#1]}
<Const 0x2292a 0x25.2> Δ-2 {[«38""»]|[-4-]|[^^4]|[#1]|[#37]}
<POP 2292e-2293c Naked> Σ-50 Δ+50 →0x22a16 ←0x2293c
<Call 0x2292e 0x102c4> {[-50-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22930-22932 StackAdj> Δ+8 {[-42-]}
<Call 0x22932 0x103e0> {[-42-]}
WriteConsoleStringCrLf(str : String)
<POP 22934-22938 StackAdj> Δ+42 {}
<MI 22938 BRA 0x22a16> {}
<POP 2293c-22956 Naked> Σ0 Δ-50 →0x2292e ←0x228de
<Blob 0x2293c [38] @> Δ-38 {[«38""»]}
<POP 22948-2294a StackAdj> Δ-4 {[«38""»]|[-4-]}
<Pointer.sp 0x2294a 4> Δ-4 {[«38""»]|[-4-]|[^^4]}
<Const 0x2294e 0x1.2> Δ-2 {[«38""»]|[-4-]|[^^4]|[#1]}
<Const 0x22950 0x26.2> Δ-2 {[«38""»]|[-4-]|[^^4]|[#1]|[#38]}
<MI 22954 BRA 0x2292e> {[«38""»]|[-4-]|[^^4]|[#1]|[#38]}
<POP 22956-2297c Naked> Σ0 →0x22a16 ←0x228de
<Blob 0x22956 [28] @> Δ-28 {[«28""»]}
<POP 22962-22964 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x22964 28> {[«28""»]|[$$ SEEK ERR: head overshoot]}
<Call 0x22972 0x103e0> {[«28""»]|[$$ SEEK ERR: head overshoot]}
WriteConsoleStringCrLf(str : String)
<POP 22974-22978 StackAdj> Δ+32 {}
<MI 22978 BRA 0x22a16> {}
<POP 2297c-229a6 Naked> Σ0 →0x22a16 ←0x228de
<Blob 0x2297c [56] @> Δ-56 {[«56""»]}
<POP 2298e-22990 StackAdj> Δ-4 {[«56""»]|[-4-]}
<Lit 0x22990 55> {[«56""»]|[$$ SEEK ERR: guard band detected during seek operation]}
<Call 0x2299e 0x103e0> {[«56""»]|[$$ SEEK ERR: guard band detected during seek operation]}
WriteConsoleStringCrLf(str : String)
<POP 229a0-229a4 StackAdj> Δ+60 {}
<MI 229a4 BRA 0x22a16> {}
<POP 229a6-229ca Naked> Σ0 →0x22a16 ←0x228de
<Blob 0x229a6 [52] @> Δ-52 {[«52""»]}
<POP 229b2-229b4 StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x229b4 52> {[«52""»]|[$$ SEEK ERR: guard band detected during linear mode]}
<Call 0x229c2 0x103e0> {[«52""»]|[$$ SEEK ERR: guard band detected during linear mode]}
WriteConsoleStringCrLf(str : String)
<POP 229c4-229c8 StackAdj> Δ+56 {}
<MI 229c8 BRA 0x22a16> {}
<POP 229ca-229f4 Naked> Σ0 →0x22a16 ←0x228de
<Blob 0x229ca [50] @> Δ-50 {[«50""»]}
<POP 229dc-229de StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x229de 49> {[«50""»]|[$$ SEEK ERR: guard band detected during RTZ mode]}
<Call 0x229ec 0x103e0> {[«50""»]|[$$ SEEK ERR: guard band detected during RTZ mode]}
WriteConsoleStringCrLf(str : String)
<POP 229ee-229f2 StackAdj> Δ+54 {}
<MI 229f2 BRA 0x22a16> {}
<POP 229f4-22a16 Naked> Σ0 ↓ ←0x228de
<Blob 0x229f4 [30] @> Δ-30 {[«30""»]}
<POP 22a00-22a02 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x22a02 30> {[«30""»]|[$$ SEEK ERR: illegal cylinder]}
<Call 0x22a10 0x103e0> {[«30""»]|[$$ SEEK ERR: illegal cylinder]}
WriteConsoleStringCrLf(str : String)
<POP 22a12-22a16 StackAdj> Δ+34 {}
<POP 22a16-22a20 Naked> Σ0 ↓ →0x22a42 ←0x2290c ←0x2292e ←0x22956 ←0x2297c ←0x229a6 ←0x229ca
<MI 22a16 MOVE.W (A6-0xa),D0> {}
<MI 22a1a ANDI.W #0x0080,D0> {}
<MI 22a1e BEQ 0x22a42> {}
<POP 22a20-22a42 Naked> Σ0 ↓
<Blob 0x22a20 [42] @> Δ-42 {[«42""»]}
<POP 22a2c-22a2e StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x22a2e 42> {[«42""»]|[$$ voice coil motor excess heat condition]}
<Call 0x22a3c 0x103e0> {[«42""»]|[$$ voice coil motor excess heat condition]}
WriteConsoleStringCrLf(str : String)
<POP 22a3e-22a42 StackAdj> Δ+46 {}
<POP 22a42-22a4c Naked> Σ0 ↓ →0x22a6e ←0x22a16
<MI 22a42 MOVE.W (A6-0xa),D0> {}
<MI 22a46 ANDI.W #0x0040,D0> {}
<MI 22a4a BEQ 0x22a6e> {}
<POP 22a4c-22a6e Naked> Σ0 ↓
<Blob 0x22a4c [18] @> Δ-18 {[«18""»]}
<POP 22a58-22a5a StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x22a5a 18> {[«18""»]|[$$ DC motor fault]}
<Call 0x22a68 0x103e0> {[«18""»]|[$$ DC motor fault]}
WriteConsoleStringCrLf(str : String)
<POP 22a6a-22a6e StackAdj> Δ+22 {}
<POP 22a6e-22a76 Epilogue> Σ0 ←0x2278c ←0x22794 ←0x22a42
@ 22a76
<LVAR 0x016 4(r)>
<LVAR 0x012 4(r)>
<LVAR 0x00e 4(r)>
<LVAR 0x00c 1(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 2(w)>
<LVAR -0x00a 2(w)>
<LVAR -0x00c 2(w)>
<LVAR -0x00e 2(r)>
<LVAR -0x010 2(r)>
<LVAR -0x012 2(w)>
<LVAR -0x014 2(r)>
<LVAR -0x016 @ 2(w)>
<POP 22a76-22c28 Body>
<POP 22a76-22a8c Prologue> Σ0 ↓
<POP 22a8c-22aa0 RegCacheLoad> Σ0 ↓
<POP 22aa0-22aa4 Naked> Σ0 ↓ →0x22aae
<MI 22aa0 TST.L (A6+0x16)> {}
<MI 22aa2 BLT 0x22aae> {}
<POP 22aa4-22aae Naked> Σ0 ↓ →0x22ad4
<MI 22aa4 MOVE.L (A6+0x16),D0> {}
<MI 22aa6 CMP.L 0x29ba6,D0> {}
<MI 22aac BLE 0x22ad4> {}
<POP 22aae-22ad4 Naked> Σ0 ↓ ←0x22aa0
<Blob 0x22aae [30] @> Δ-30 {[«30""»]}
<POP 22aba-22abc StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x22abc 30> {[«30""»]|[$$Cylinder argument out of range]}
<Call 0x22aca 0x25696> {[«30""»]|[$$Cylinder argument out of range]}
<POP 22ad0-22ad4 StackAdj> Δ+34 {}
<POP 22ad4-22adc Naked> Σ0 ↓ →0x22ae0 ←0x22aa4
<MI 22ad4 MOVE.B (A6+0xc),D0> {}
<MI 22ad8 CMP.B #0x03,D0> {}
<MI 22ada BEQ 0x22ae0> {}
<POP 22adc-22ae0 Naked> Σ0 ↓ →0x22b16
<MI 22adc CMP.B #0x08,D0> {}
<MI 22ade BNE 0x22b16> {}
<POP 22ae0-22aea Naked> Σ0 ↓ →0x22b16 ←0x22ad4
<MI 22ae0 MOVE.L (A6+0x16),D1> {}
<MI 22ae2 CMP.L 0x29baa,D1> {}
<MI 22ae8 BGE 0x22b16> {}
<POP 22aea-22b16 Naked> Σ0 ↓
<Blob 0x22aea [44] @> Δ-44 {[«44""»]}
<POP 22afc-22afe StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x22afe 43> {[«44""»]|[$$Attempt to write outside of read/write area]}
<Call 0x22b0c 0x25696> {[«44""»]|[$$Attempt to write outside of read/write area]}
<POP 22b12-22b16 StackAdj> Δ+48 {}
<POP 22b16-22b1c Naked> Σ0 ↓ →0x22b28 ←0x22adc ←0x22ae0
<MI 22b16 TST.L (A6+0x12)> {}
<MI 22b1a BLT 0x22b28> {}
<POP 22b1c-22b28 Naked> Σ0 ↓ →0x22b50
<MI 22b1c MOVE.L (A6+0x12),D1> {}
<MI 22b20 CMP.L 0x29bae,D1> {}
<MI 22b26 BLE 0x22b50> {}
<POP 22b28-22b50 Naked> Σ0 ↓ ←0x22b16
<Blob 0x22b28 [28] @> Δ-28 {[«28""»]}
<POP 22b38-22b3a StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x22b3a 27> {[«28""»]|[$$Track argument out of range]}
<Call 0x22b48 0x25696> {[«28""»]|[$$Track argument out of range]}
<POP 22b4e-22b50 StackAdj> Δ+32 {}
<POP 22b50-22b56 Naked> Σ0 ↓ →0x22b62 ←0x22b1c
<MI 22b50 TST.L (A6+0xe)> {}
<MI 22b54 BLT 0x22b62> {}
<POP 22b56-22b62 Naked> Σ0 ↓ →0x22b84
<MI 22b56 MOVE.L (A6+0xe),D1> {}
<MI 22b5a CMP.L 0x29bb2,D1> {}
<MI 22b60 BLE 0x22b84> {}
<POP 22b62-22b84 Naked> Σ0 ↓ ←0x22b50
<Blob 0x22b62 [28] @> Δ-28 {[«28""»]}
<POP 22b6e-22b70 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x22b70 28> {[«28""»]|[$$Sector argument out of range]}
<Call 0x22b7c 0x25696> {[«28""»]|[$$Sector argument out of range]}
<POP 22b82-22b84 StackAdj> Δ+32 {}
<POP 22b84-22be2 Naked> Σ0 ↓ →0x22bea ←0x22b56
<MI 22b84 MOVE.W #0x100,(A6-0x16)> {}
<MI 22b8a CLR.W (A6-0x14)> {}
<MI 22b8e MOVE.W #0x2,(A6-0x12)> {}
<MI 22b94 CLR.W (A6-0x10)> {}
<MI 22b98 CLR.W (A6-0xe)> {}
<MI 22b9c MOVE.W 0x293a4,D1> {}
<MI 22ba2 ASL.W #0x8,D1> {}
<MI 22ba4 MOVE.B D0,D2> {}
<MI 22ba6 EXTB.W D2> {}
<MI 22ba8 ADD.W D2,D1> {}
<POP 0x22baa LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 22bb2 MOVE.W D1,(A6-0xc)> {}
<MI 22bb6 MOVE.L (A6+0x16),D0> {}
<POP 0x22bb8 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22bc2 MOVE.W D0,(A6-0xa)> {}
<MI 22bc6 MOVE.L (A6+0x12),D0> {}
<MI 22bca ASL.L #0x8,D0> {}
<MI 22bcc ADD.L (A6+0xe),D0> {}
<POP 0x22bd0 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 22bda MOVE.W D0,(A6-0x8)> {}
<MI 22bde CMP.B #0x03,D2> {}
<MI 22be0 BNE 0x22bea> {}
<POP 22be2-22bea Naked> Σ0 →0x22bf0
<MI 22be2 LEA.L 0x293a6,A0> {}
<MI 22be8 BRA 0x22bf0> {}
<POP 22bea-22bf0 Naked> Σ0 ↓ ←0x22b84
<MI 22bea LEA.L 0x297a6,A0> {}
<POP 22bf0-22bf6 Naked> Σ0 ↓ →0x22c00 ←0x22be2
<MI 22bf0 MOVEA.L A0,A4> {}
<MI 22bf2 CMP.B #0x08,D2> {}
<MI 22bf4 BNE 0x22c00> {}
<POP 22bf6-22c00 Naked> Σ0 ↓
<MI 22bf6 LEA.L 0x29198,A0> {}
<MI 22bfc MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22bfe MOVEA.L (A7)+,A4> Δ+4 {}
<POP 22c00-22c20 Naked> Σ0 ↓ ←0x22bf0
<Pointer.fp 0x22c00 <LVAR -0x016 @ 2(w)>> Δ-4 {[@@-22]}
<MI 22c04 MOVE.L A4,-(A7)> Δ-4 {[@@-22]|[4, 'A4']}
<MI 22c06 CLR.W -(A7)> Δ-2 {[@@-22]|[4, 'A4']|[#0]}
<Call 0x22c08 0x10204> {[@@-22]|[4, 'A4']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 22c0e-22c10 StackAdj> Δ+8 {[-2-]}
<MI 22c10 CLR.W (A7)> {[-2-]}
<MI 22c12 MOVEA.L (A6+0x8),A0> {[-2-]}
<MI 22c16 PEA.L (A0)> Δ-4 {[-2-]|[4, '^(A0)']}
<Call 0x22c18 0x10206> {[-2-]|[4, '^(A0)']}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 22c1e-22c20 StackAdj> Δ+6 {}
<POP 22c20-22c28 Epilogue> Σ0
@ 22c28
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 22c28-22f6a Body>
<POP 22c28-22c3e Prologue> Σ0 ↓
<POP 22c3e-22c52 RegCacheLoad> Σ0 ↓
<POP 22c52-22c62 Naked> Σ0 ↓ →0x22c6a
<MI 22c52 LEA.L 0x297a6,A0> {}
<MI 22c58 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22c5a MOVEA.L (A7)+,A4> Δ+4 {}
<MI 22c5c TST.L (A6+0x8)> {}
<MI 22c60 BLT 0x22c6a> {}
<POP 22c62-22c6a Naked> Σ0 ↓ →0x22c94
<MI 22c62 MOVE.L (A6+0x8),D0> {}
<MI 22c66 CMP.L #0x0f,D0> {}
<MI 22c68 BLE 0x22c94> {}
<POP 22c6a-22c94 Naked> Σ0 ↓ ←0x22c52
<Blob 0x22c6a [20] @> Δ-20 {[«20""»]}
<POP 22c7a-22c7c StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22c7c 19> {[«20""»]|[$$Illegal unit number]}
<Call 0x22c8a 0x25696> {[«20""»]|[$$Illegal unit number]}
<POP 22c90-22c94 StackAdj> Δ+24 {}
<POP 22c94-22cac Naked> Σ0 ↓ →0x22cf0 ←0x22c62
<MI 22c94 MOVE.L (A6+0x8),D0> {}
<POP 0x22c98 LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<POP 22c9e-22ca0 StackAdj> Δ-2 {[-2-]}
<MI 22ca0 MOVE.W D0,-(A7)> Δ-2 {[-2-]|[2, 'D0']}
<Call 0x22ca2 0x21b18> {[-2-]|[2, 'D0']}
<POP 22ca6-22ca8 StackAdj> Δ+2 {[-2-]}
<MI 22ca8 TST.B (A7)+> Δ+2 {}
<MI 22caa BNE 0x22cf0> {}
<POP 22cac-22cf0 Naked> Σ0 ↓
<Blob 0x22cac [42] @> Δ-42 {[«42""»]}
<POP 22cb8-22cba StackAdj> Δ-8 {[«42""»]|[-8-]}
<Lit 0x22cba 42> {[«42""»]|[-4-]|[$$Unit does not exist, current unit remains_]}
<POP 22cc6-22cc8 StackAdj> Δ-4 {[«42""»]|[-4-]|[$$Unit does not exist, current unit remains_]|[-4-]}
<MI 22cc8 MOVE.W 0x293a4,D1> {[«42""»]|[-4-]|[$$Unit does not exist, current unit remains_]|[-4-]}
<MI 22cce EXTW.L D1> {[«42""»]|[-4-]|[$$Unit does not exist, current unit remains_]|[-4-]}
<MI 22cd0 MOVE.L D1,-(A7)> Δ-4 {[«42""»]|[-4-]|[$$Unit does not exist, current unit remains_]|[-4-]|[4, 'D1']}
<Const 0x22cd2 0x1.4> Δ-4 {[«42""»]|[-4-]|[$$Unit does not exist, current unit remains_]|[-4-]|[4, 'D1']|[##1]}
<Call 0x22cd6 0x102e8> {[«42""»]|[-4-]|[$$Unit does not exist, current unit remains_]|[-4-]|[4, 'D1']|[##1]}
Long2HexString(val : Long; ndig : Long) : String
<POP 22cdc-22cde StackAdj> Δ+8 {[«42""»]|[-4-]|[$$Unit does not exist, current unit remains_]|[-4-]}
<Call 0x22cde 0x102d0> {[«42""»]|[-4-]|[$$Unit does not exist, current unit remains_]|[-4-]}
StringCat2(a, b : String) : String
<POP 22ce4-22ce6 StackAdj> Δ+8 {[«42""»]|[-4-]}
<Call 0x22ce6 0x25696> {[«42""»]|[-4-]}
<POP 22cec-22cf0 StackAdj> Δ+46 {}
<POP 22cf0-22d4a Naked> Σ0 ↓ →0x22d56 ←0x22c94
<MI 22cf0 CLR.L 0x29baa> {}
<MI 22cf2 MOVE.L #0x01,0x29ba6> {}
<MI 22cf8 CLR.L 0x29bae> {}
<MI 22cfe MOVE.L #0x4,0x29bb2> {}
<MI 22d08 MOVE.W D0,0x293a4> {}
<MI 22d0e MOVE.L (A6+0x8),D4> {}
<MI 22d12 MOVEQ.L #0x04,D3> {}
<Call 0x22d14 0x10294> {}
?divs_d3_d4
<MI 22d1a MOVE.L D4,0x2939c> {}
<MI 22d20 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Call 0x22d22 0x216f0> {[2, 'D0']}
<POP 22d26-22d28 StackAdj> Δ+2 {}
<Const 0x22d28 0x0.4> Δ-4 {[##0]}
<Const 0x22d2c 0x0.4> Δ-4 {[##0]|[##0]}
<Const 0x22d30 0x4.4> Δ-4 {[##0]|[##0]|[##4]}
<Const 0x22d34 0x2.2> Δ-2 {[##0]|[##0]|[##4]|[#2]}
<Pointer.fp 0x22d38 <LVAR -0x004 @ 1(r)>> Δ-4 {[##0]|[##0]|[##4]|[#2]|[@@-4]}
<Call 0x22d3c 0x22a76> {[##0]|[##0]|[##4]|[#2]|[@@-4]}
<POP 22d40-22d44 StackAdj> Δ+18 {}
<MI 22d44 TST.B (A6-0x4)> {}
<MI 22d48 BEQ 0x22d56> {}
<POP 22d4a-22d56 Naked> Σ0 ↓ →0x22f36
<MI 22d4a MOVE.W (A4+0x2),D0> {}
<MI 22d4e CMPI.W #0x7fed,D0> {}
<MI 22d52 BEQ 0x22f36> {}
<POP 22d56-22d5c Naked> Σ0 ↓ →0x22d8a ←0x22cf0
<MI 22d56 TST.B (A6-0x4)> {}
<MI 22d5a BNE 0x22d8a> {}
<POP 22d5c-22d8a Naked> Σ0 →0x22db0
<Blob 0x22d5c [26] @> Δ-26 {[«26""»]}
<POP 22d6e-22d70 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x22d70 25> {[«26""»]|[$$Disk error reading labels]}
<Call 0x22d7e 0x103e0> {[«26""»]|[$$Disk error reading labels]}
WriteConsoleStringCrLf(str : String)
<POP 22d84-22d88 StackAdj> Δ+30 {}
<MI 22d88 BRA 0x22db0> {}
<POP 22d8a-22db0 Naked> Σ0 ↓ ←0x22d56
<Blob 0x22d8a [18] @> Δ-18 {[«18""»]}
<POP 22d96-22d98 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x22d98 18> {[«18""»]|[$$Disk has no LABELS]}
<Call 0x22da6 0x103e0> {[«18""»]|[$$Disk has no LABELS]}
WriteConsoleStringCrLf(str : String)
<POP 22dac-22db0 StackAdj> Δ+22 {}
<POP 22db0-22db8 Naked> Σ0 ↓ →0x22dc6 ←0x22d5c
<MI 22db0 TST.B 0x293a0> {}
<MI 22db6 BEQ 0x22dc6> {}
<POP 22db8-22dc6 Naked> Σ0 ↓ →0x22e9a
<MI 22db8 MOVE.B 0x293a0,D0> {}
<MI 22dbe CMPI.B #0x07,D0> {}
<MI 22dc2 BNE 0x22e9a> {}
<POP 22dc6-22e9a Naked> Σ0 →0x22f34 ←0x22db0
<Blob 0x22dc6 [44] @> Δ-44 {[«44""»]}
<POP 22dd2-22dd4 StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x22dd4 44> {[«44""»]|[$$The SLEW settings for this disk are unknown.]}
<Call 0x22de2 0x103e0> {[«44""»]|[$$The SLEW settings for this disk are unknown.]}
WriteConsoleStringCrLf(str : String)
<POP 22de8-22de9 StackAdj> Δ+48 ↓ {}
<Blob 0x22de9 [46] @> Δ-46 {[«46""»]}
<POP 22df8-22dfa StackAdj> Δ-8 {[«46""»]|[-8-]}
<Lit 0x22dfa 45> {[«46""»]|[-4-]|[$$ How many cylinders does this disk have ?_]}
<Const 0x22e08 0x1.4> Δ-4 {[«46""»]|[-4-]|[$$ How many cylinders does this disk have ?_]|[##1]}
<Const 0x22e0c 0xfff.4> Δ-4 {[«46""»]|[-4-]|[$$ How many cylinders does this disk have ?_]|[##1]|[##4095]}
<Call 0x22e10 0x103ec> {[«46""»]|[-4-]|[$$ How many cylinders does this disk have ?_]|[##1]|[##4095]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 22e16-22e18 StackAdj> Δ+12 {[«46""»]|[-4-]}
<MI 22e18 MOVE.L (A7)+,0x29ba6> Δ+4 {[«46""»]}
<POP 22e1e-22e22 StackAdj> Δ+46 {}
<MI 22e22 CLR.L 0x29baa> {}
<Blob 0x22e24 [56] @> Δ-56 {[«56""»]}
<POP 22e36-22e38 StackAdj> Δ-8 {[«56""»]|[-8-]}
<Lit 0x22e38 55> {[«56""»]|[-4-]|[$$ How many tracks per cylinder does this disk have ?_]}
<Const 0x22e46 0x1.4> Δ-4 {[«56""»]|[-4-]|[$$ How many tracks per cylinder does this disk have ?_]|[##1]}
<Const 0x22e4a 0xff.4> Δ-4 {[«56""»]|[-4-]|[$$ How many tracks per cylinder does this disk have ?_]|[##1]|[##255]}
<Call 0x22e4e 0x103ec> {[«56""»]|[-4-]|[$$ How many tracks per cylinder does this disk have ?_]|[##1]|[##255]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 22e54-22e56 StackAdj> Δ+12 {[«56""»]|[-4-]}
<MI 22e56 MOVE.L (A7)+,0x29bae> Δ+4 {[«56""»]}
<POP 22e5c-22e5d StackAdj> Δ+56 ↓ {}
<Blob 0x22e5d [54] @> Δ-54 {[«54""»]}
<POP 22e6c-22e6e StackAdj> Δ-8 {[«54""»]|[-8-]}
<Lit 0x22e6e 53> {[«54""»]|[-4-]|[$$ How many sectors per track does this disk have ?_]}
<Const 0x22e7c 0x1.4> Δ-4 {[«54""»]|[-4-]|[$$ How many sectors per track does this disk have ?_]|[##1]}
<Const 0x22e80 0xff.4> Δ-4 {[«54""»]|[-4-]|[$$ How many sectors per track does this disk have ?_]|[##1]|[##255]}
<Call 0x22e84 0x103ec> {[«54""»]|[-4-]|[$$ How many sectors per track does this disk have ?_]|[##1]|[##255]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 22e8a-22e8c StackAdj> Δ+12 {[«54""»]|[-4-]}
<MI 22e8c MOVE.L (A7)+,0x29bb2> Δ+4 {[«54""»]}
<POP 22e92-22e96 StackAdj> Δ+54 {}
<MI 22e96 BRA 0x22f34> {}
<POP 22e9a-22f34 Naked> Σ0 ↓ ←0x22db8
<Blob 0x22e9a [54] @> Δ-54 {[«54""»]}
<MI 22eac MOVE.B 0x293a0,D0> {[«54""»]}
<MI 22eb2 EXTB.W D0> {[«54""»]}
<MI 22eb4 MULS.W #0x14,D0> {[«54""»]}
<MI 22eb6 LEA.L 0x21427,A0> {[«54""»]}
<Blob 0x22eba [20] (A0+D0.W)> Δ-20 {[«54""»]|[«20»]}
<POP 22eca-22ecc StackAdj> Δ-8 {[«54""»]|[«20»]|[-8-]}
<Lit 0x22ecc 53> {[«54""»]|[«20»]|[-4-]|[$$The disk controller is SLEWed for this drive to be a_]}
<POP 22ed8-22eda StackAdj> Δ-4 {[«54""»]|[«20»]|[-4-]|[$$The disk controller is SLEWed for this drive to be a_]|[-4-]}
<Lit 0x22eda> {[«54""»]|[«20»]|[-4-]|[$$The disk controller is SLEWed for this drive to be a_]|[$$…]}
<Pointer.sp 0x22eda 12> Δ-4
<Const 0x22ede 0x1.2> Δ-2
<Const 0x22ee0 0x14.2> Δ-2
<Call 0x22ee2 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22ee4-22ee6 StackAdj> Δ+8
<Call 0x22ee6 0x102d0> {[«54""»]|[«20»]|[-4-]|[$$The disk controller is SLEWed for this drive to be a_]|[$$…]}
StringCat2(a, b : String) : String
<POP 22eec-22eee StackAdj> Δ+8 {[«54""»]|[«20»]|[-4-]}
<Call 0x22eee 0x103e0> {[«54""»]|[«20»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22ef4-22ef8 StackAdj> Δ+78 {}
<MI 22ef8 MOVE.B 0x293a0,D0> {}
<MI 22efe EXTB.W D0> {}
<MI 22f00 ASL.W #0x3,D0> {}
<MI 22f02 LEA.L 0x213ba,A0> {}
<MI 22f06 CLR.L D1> {}
<MI 22f08 MOVE.W (A0+D0.W),D1> {}
<MI 22f0c MOVE.L D1,0x29ba6> {}
<MI 22f12 CLR.L 0x29baa> {}
<MI 22f14 LEA.L 0x213ba,A0> {}
<MI 22f18 CLR.L D1> {}
<MI 22f1a MOVE.B (A0+D0.W+#0x2),D1> {}
<MI 22f1e MOVE.L D1,0x29bae> {}
<MI 22f24 LEA.L 0x213ba,A0> {}
<MI 22f28 CLR.L D1> {}
<MI 22f2a MOVE.B (A0+D0.W+#0x3),D1> {}
<MI 22f2e MOVE.L D1,0x29bb2> {}
<POP 22f34-22f36 Naked> Σ0 →0x22f62 ←0x22dc6
<MI 22f34 BRA 0x22f62> {}
<POP 22f36-22f62 Naked> Σ0 ↓ ←0x22d4a
<MI 22f36 CLR.L D0> {}
<MI 22f38 MOVE.W (A4+0x2c),D0> {}
<MI 22f3c MOVE.L D0,0x29baa> {}
<MI 22f3e CLR.L D0> {}
<MI 22f40 MOVE.W (A4+0x8),D0> {}
<MI 22f44 MOVE.L D0,0x29ba6> {}
<MI 22f4a CLR.L D0> {}
<MI 22f4c MOVE.B (A4+0xa),D0> {}
<MI 22f50 MOVE.L D0,0x29bae> {}
<MI 22f56 CLR.L D0> {}
<MI 22f58 MOVE.B (A4+0xb),D0> {}
<MI 22f5c MOVE.L D0,0x29bb2> {}
<POP 22f62-22f6a Epilogue> Σ0 ←0x22f34
@ 22f6a
<LVAR 0x008 4(r)>
<POP 22f6a-22fce Body>
<POP 22f6a-22f80 Prologue> Σ0 ↓
<POP 22f80-22fc6 Naked> Σ0 ↓
<Blob 0x22f80 [10] @> Δ-10 {[«10""»]}
<MI 22f8c MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x22f90 0x1.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##1]}
<Call 0x22f94 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##1]}
<POP 22f9a-22f9e StackAdj> Δ+18 {}
<MI 22f9e CLR.L 0x29baa> {}
<MI 22fa4 CLR.L 0x29ba6> {}
<MI 22faa CLR.B 0x29bb6> {}
<POP 22fb0-22fb2 StackAdj> Δ-4 {[-4-]}
<MI 22fb2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22fb6 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22fba 0x21912> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22fbe-22fc0 StackAdj> Δ+8 {[-4-]}
<Call 0x22fc0 0x22c28> {[-4-]}
<POP 22fc4-22fc6 StackAdj> Δ+4 {}
<POP 22fc6-22fce Epilogue> Σ0
@ 22fce
<LVAR 0x008 4(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 4(w)>
<LVAR -0x010 4(w)>
<POP 22fce-2305a Body>
<POP 22fce-22fe4 Prologue> Σ0 ↓
<POP 22fe4-23022 Naked> Σ0 ↓
<Blob 0x22fe4 [10] @> Δ-10 {[«10""»]}
<MI 22ff0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x22ff4 0x1.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##1]}
<Call 0x22ff8 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##1]}
<POP 22ffe-23000 StackAdj> Δ+6 {[«10""»]|[-2-]}
<MI 23000 MOVE.L (A6+0x8),(A7)> {[-8-]|[4, '(A6+0x8)']}
<Const 0x23004 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23008 0x263f0> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 2300e-23010 StackAdj> Δ+8 {[-8-]}
<MI 23010 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 23014 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 23018 CLR.L D0> {}
<MI 2301a MOVE.W (A6-0xa),D0> {}
<MI 2301e MOVE.L D0,D6> {}
<MI 23020 MOVEQ.L #0x00,D7> {}
<POP 23022-23052 Naked> Σ0 ↓ →0x23022 ←0x23022
<POP 0x23022 LimitCheck 0x0 ≤ D7 ≤ 0x1ff> {}
<MI 2302c MOVE.L D7,D0> {}
<MI 2302e ASL.L #0x1,D0> {}
<MI 23030 LEA.L 0x29190,A0> {}
<MI 23036 LEA.L (A0+D0.L),A0> {}
<POP 0x2303a LimitCheck 0x0 ≤ D6 ≤ 0xffff> {}
<MI 23044 MOVE.W D6,(A0+0x216)> {}
<MI 23048 ADDQ.L #0x1,D7> {}
<MI 2304a CMPI.L #0x000001ff,D7> {}
<MI 23050 BLE 0x23022> {}
<POP 23052-2305a Epilogue> Σ0
@ 2305a
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00e @ 4(r)>
<LVAR -0x018 4(rw)>
<POP 2305a-2328e Body> Δ+8
<POP 2305a-23070 Prologue> Σ0 ↓
<POP 23070-23082 RegCacheLoad> Σ0 ↓
<POP 23082-23090 Naked> Σ0 ↓
<MI 23082 MOVEQ.L #0x00,D5> {}
<Pointer.fp 0x23084 <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<Call 0x23086 0x102b8> {[@@-14]}
NewString(VAR a : String)
<POP 2308c-2308e StackAdj> Δ+4 {}
<MI 2308e MOVEQ.L #0x00,D0> {}
<POP 23090-230ac Naked> Σ0 Δ-6 ↓ →0x230b4 ←0x23232
<MI 23090 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<MI 23092 CLR.L D1> {[2, 'D0']}
<MI 23094 MOVE.W D0,D1> {[2, 'D0']}
<MI 23096 ASL.L #0x3,D1> {[2, 'D0']}
<MI 23098 MOVE.L D1,(A6-0x18)> {[2, 'D0']}
<Pointer.fp 0x2309a <LVAR -0x00a @ 4(rw)>> Δ-4 {[2, 'D0']|[@@-10]}
<Call 0x2309c 0x102b8> {[2, 'D0']|[@@-10]}
NewString(VAR a : String)
<MI 230a2 MOVE.L D1,(A7)> {[2, 'D0']|[4, 'D1']}
<MI 230a4 ADDQ.L #0x7,(A7)> {[2, 'D0']|[-4-]}
<MI 230a6 MOVE.L D1,D6> {[2, 'D0']|[-4-]}
<MI 230a8 CMP.L (A7),D6> {[2, 'D0']|[-4-]}
<MI 230aa BHI 0x230b4> {[2, 'D0']|[-4-]}
<POP 230ac-230b2 Naked> Σ-6 →0x230b4
<MI 230ac MOVE.L (A7),D1> {[-6-]}
<MI 230ae CMP.L D1,D6> {[-6-]}
<MI 230b0 BLT 0x230b4> {[-6-]}
<POP 230b2-230b4 Naked> Σ0
<MI 230b2 TRAP #15> {}
<POP 230b4-230ba Naked> Σ-6 ↓ →0x23102 ←0x23090 ←0x230ac ←0x230ba
<MI 230b4 CMP.W (A7+0x2),D6> {[-6-]}
<MI 230b8 BHI 0x23102> {[-6-]}
<POP 230ba-23102 Naked> Σ-6 ↓ →0x230b4
<POP 230ba-230bc StackAdj> Δ-4 {[-10-]}
<MI 230bc MOVE.L (A6-0xa),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xa)']}
<POP 230be-230c0 StackAdj> Δ-4 {[-10-]|[4, '(A6-0xa)']|[-4-]}
<POP 0x230c0 LimitCheck 0x0 ≤ D6 ≤ 0x1ff> {[-10-]|[4, '(A6-0xa)']|[-4-]}
<MI 230c4 CLR.L D0> {[-10-]|[4, '(A6-0xa)']|[-4-]}
<MI 230c6 MOVE.W D6,D0> {[-10-]|[4, '(A6-0xa)']|[-4-]}
<MI 230c8 ASL.L #0x1,D0> {[-10-]|[4, '(A6-0xa)']|[-4-]}
<MI 230ca LEA.L 0x29190,A0> {[-10-]|[4, '(A6-0xa)']|[-4-]}
<MI 230d0 LEA.L (A0+D0.L),A0> {[-10-]|[4, '(A6-0xa)']|[-4-]}
<MI 230d4 CLR.L D0> {[-10-]|[4, '(A6-0xa)']|[-4-]}
<MI 230d6 MOVE.W (A0+0x616),D0> {[-10-]|[4, '(A6-0xa)']|[-4-]}
<MI 230da MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6-0xa)']|[-4-]|[4, 'D0']}
<Const 0x230dc 0x4.4> Δ-4 {[-10-]|[4, '(A6-0xa)']|[-4-]|[4, 'D0']|[##4]}
<Call 0x230e0 0x102e8> {[-10-]|[4, '(A6-0xa)']|[-4-]|[4, 'D0']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 230e6-230e8 StackAdj> Δ+8 {[-10-]|[4, '(A6-0xa)']|[-4-]}
<Call 0x230e8 0x102d0> {[-10-]|[4, '(A6-0xa)']|[-4-]}
StringCat2(a, b : String) : String
<POP 230ee-230f0 StackAdj> Δ+8 {[-10-]}
<MI 230f0 MOVE.L (A7)+,(A6-0xa)> Δ+4 {[-6-]}
<MI 230f2 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-6-]|[4, '(A6-0xa)']}
<Const 0x230f4 0x20.2> Δ-2 {[-6-]|[4, '(A6-0xa)']|[#32]}
<Call 0x230f6 0x102c0> {[-6-]|[4, '(A6-0xa)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 230fc-230fe StackAdj> Δ+6 {[-6-]}
<MI 230fe ADDQ.W #0x1,D6> {[-6-]}
<MI 23100 BCC 0x230b4> {[-6-]}
<POP 23102-23114 Naked> Σ-6 Δ+4 ↓ →0x23122 ←0x230b4
<POP 23102-23104 StackAdj> Δ+2 {[-4-]}
<MI 23104 MOVE.L (A6-0xe),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xe)']}
<MI 23106 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xe)']|[4, '(A6-0xa)']}
<Call 0x23108 0x102c8> {[-4-]|[4, '(A6-0xe)']|[4, '(A6-0xa)']}
StringEqual(a, b : String) : Byte
<POP 2310e-23110 StackAdj> Δ+8 {[-4-]}
<MI 23110 TST.B (A7)+> Δ+2 {[-2-]}
<MI 23112 BEQ 0x23122> {[-2-]}
<POP 23114-23122 Naked> Σ-2 Δ-4 →0x23224
<MI 23114 ADDQ.L #0x1,D5> {[-2-]}
<Pointer.fp 0x23116 <LVAR -0x00a @ 4(rw)>> Δ-4 {[-2-]|[@@-10]}
<Call 0x23118 0x102bc> {[-2-]|[@@-10]}
FreeString(VAR a : String)
<MI 2311e BRA 0x23224> {[-2-]|[@@-10]}
<POP 23122-23126 Naked> Σ-2 ↓ →0x23164 ←0x23102
<MI 23122 TST.L D5> {[-2-]}
<MI 23124 BEQ 0x23164> {[-2-]}
<POP 23126-23164 Naked> Σ-2 ↓
<Blob 0x23126 [22] @> Δ-22 {[-2-]|[«22""»]}
<POP 23136-23138 StackAdj> Δ-8 {[-2-]|[«22""»]|[-8-]}
<MI 23138 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[«22""»]|[-8-]|[4, 'D5']}
<Call 0x2313a 0x102e4> {[-2-]|[«22""»]|[-8-]|[4, 'D5']}
Long2String(a : Long) : String
<Lit 0x23140 21> {[-2-]|[«22""»]|[-8-]|[$$ lines same as above.]}
<Call 0x23152 0x102d0> {[-2-]|[«22""»]|[-8-]|[$$ lines same as above.]}
StringCat2(a, b : String) : String
<POP 23158-2315a StackAdj> Δ+8 {[-2-]|[«22""»]|[-4-]}
<Call 0x2315a 0x103e0> {[-2-]|[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23160-23164 StackAdj> Δ+26 {[-2-]}
<POP 23164-231c2 Naked> Σ-2 ↓ ←0x23122
<MI 23164 MOVEQ.L #0x00,D5> {[-2-]}
<MI 23166 MOVEA.L (A6-0xe),A0> {[-2-]}
<MI 23168 MOVEA.L (A6-0xa),A1> {[-2-]}
<BlockMove 128,A1,A0> {[-2-]}
<Blob 0x23172 [2] @> Δ-2 {[-2-]|[«2""»]}
<Blob 0x23176 [4] @> Δ-4 {[-2-]|[«2""»]|[«4""»]}
<POP 2317a-2317c StackAdj> Δ-8 {[-2-]|[«2""»]|[«4""»]|[-8-]}
<MI 2317c MOVE.L (A6-0x18),-(A7)> Δ-4 {[-2-]|[«2""»]|[«4""»]|[-8-]|[4, '(A6-0x18)']}
<Const 0x2317e 0x4.4> Δ-4 {[-2-]|[«2""»]|[«4""»]|[-8-]|[4, '(A6-0x18)']|[##4]}
<Call 0x23182 0x102e8> {[-2-]|[«2""»]|[«4""»]|[-8-]|[4, '(A6-0x18)']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 23188-2318a StackAdj> Δ+4 {[-2-]|[«2""»]|[«4""»]|[-8-]|[4, '(A6-0x18)']}
<Lit 0x2318a 2> {[-2-]|[«2""»]|[«4""»]|[-8-]|[$$:_]}
<POP 2319a-2319c StackAdj> Δ-4 {[-2-]|[«2""»]|[«4""»]|[-8-]|[$$:_]|[-4-]}
<MI 2319c MOVE.L (A6-0xa),(A7)> {[-2-]|[«2""»]|[«4""»]|[-8-]|[$$:_]|[4, '(A6-0xa)']}
<POP 2319e-231a0 StackAdj> Δ-4 {[-2-]|[«2""»]|[«4""»]|[-8-]|[$$:_]|[4, '(A6-0xa)']|[-4-]}
<Lit 0x231a0 4> {[-2-]|[«2""»]|[«4""»]|[-8-]|[$$:_]|[4, '(A6-0xa)']|[$$____]}
<Call 0x231b2 0x102d8> {[-2-]|[«2""»]|[«4""»]|[-8-]|[$$:_]|[4, '(A6-0xa)']|[$$____]}
StringCat4(a, b, c, d : String) : String
<POP 231b8-231bc StackAdj> Δ+16 {[-2-]|[«2""»]|[«4""»]|[-4-]}
<MI 231bc MOVE.L (A7)+,(A6-0xa)> Δ+4 {[-2-]|[«2""»]|[«4""»]}
<POP 231be-231c0 StackAdj> Δ+6 {[-2-]}
<MI 231c0 MOVEQ.L #0x00,D6> {[-2-]}
<POP 231c2-231ec Naked> Σ-2 ↓ →0x231ee ←0x2320c
<MI 231c2 MOVE.W D6,D0> {[-2-]}
<MI 231c4 LSR.W #0x1,D0> {[-2-]}
<MI 231c6 CLR.L D1> {[-2-]}
<MI 231c8 MOVE.W D0,D1> {[-2-]}
<MI 231ca ADD.L (A6-0x18),D1> {[-2-]}
<POP 0x231cc LimitCheck 0x0 ≤ D1 ≤ 0x1ff> {[-2-]}
<MI 231d6 ASL.L #0x1,D1> {[-2-]}
<MI 231d8 LEA.L 0x29190,A0> {[-2-]}
<MI 231de LEA.L (A0+D1.L),A0> {[-2-]}
<MI 231e2 MOVE.W (A0+0x616),D7> {[-2-]}
<MI 231e6 MOVE.W D6,D0> {[-2-]}
<MI 231e8 AND.W #0x01,D0> {[-2-]}
<MI 231ea BNE 0x231ee> {[-2-]}
<POP 231ec-231ee Naked> Σ-2 ↓
<MI 231ec LSR.W #0x8,D7> {[-2-]}
<POP 231ee-231f6 Naked> Σ-2 ↓ →0x231fc ←0x231c2
<MI 231ee ANDI.W #0x00ff,D7> {[-2-]}
<MI 231f2 CMP.W #0x20,D7> {[-2-]}
<MI 231f4 BCS 0x231fc> {[-2-]}
<POP 231f6-231fc Naked> Σ-2 ↓ →0x23204
<MI 231f6 CMPI.W #0x007e,D7> {[-2-]}
<MI 231fa BLS 0x23204> {[-2-]}
<POP 231fc-23204 Naked> Σ-2 Δ-6 →0x2320c ←0x231ee
<MI 231fc MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']}
<Const 0x231fe 0x2e.2> Δ-2 {[-2-]|[4, '(A6-0xa)']|[#46]}
<MI 23202 BRA 0x2320c> {[-2-]|[4, '(A6-0xa)']|[#46]}
<POP 23204-2320c Naked> Σ-2 Δ-6 ↓ ←0x231f6
<MI 23204 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']}
<POP 0x23206 LimitCheck 0x0 ≤ D7 ≤ 0xff> {[-2-]|[4, '(A6-0xa)']}
<MI 2320a MOVE.B D7,-(A7)> Δ-2 {[-2-]|[4, '(A6-0xa)']|[2, 'D7']}
<POP 2320c-2321c Naked> Σ-8 Δ+6 ↓ →0x231c2 ←0x231fc
<Call 0x2320c 0x102c0> {[-8-]}
AppendChar(MOD b : String; a : char)
<POP 23212-23214 StackAdj> Δ+6 {[-2-]}
<MI 23214 ADDQ.W #0x1,D6> {[-2-]}
<MI 23216 CMPI.W #0x000f,D6> {[-2-]}
<MI 2321a BLS 0x231c2> {[-2-]}
<POP 2321c-23224 Naked> Σ-2 Δ-4 ↓
<MI 2321c MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']}
<Call 0x2321e 0x103e0> {[-2-]|[4, '(A6-0xa)']}
WriteConsoleStringCrLf(str : String)
<POP 23224-23232 Naked> Σ-6 Δ+4 ↓ →0x23238 ←0x23114
<POP 23224-23226 StackAdj> Δ+4 {[-2-]}
<MI 23226 ADDQ.L #0x8,(A6-0x18)> {[-2-]}
<MI 23228 MOVE.W (A7),D0> {[-2-]}
<MI 2322a ADDQ.W #0x1,D0> {[-2-]}
<MI 2322c CMPI.W #0x003f,D0> {[-2-]}
<MI 23230 BHI 0x23238> {[-2-]}
<POP 23232-23238 Naked> Σ-2 Δ+2 →0x23090
<POP 23232-23234 StackAdj> Δ+2 {}
<MI 23234 BRA 0x23090> {}
<POP 23238-2323e Naked> Σ-2 Δ+2 ↓ →0x2327c ←0x23224
<POP 23238-2323a StackAdj> Δ+2 {}
<MI 2323a TST.L D5> {}
<MI 2323c BEQ 0x2327c> {}
<POP 2323e-2327c Naked> Σ0 ↓
<Blob 0x2323e [22] @> Δ-22 {[«22""»]}
<POP 2324e-23250 StackAdj> Δ-8 {[«22""»]|[-8-]}
<MI 23250 MOVE.L D5,-(A7)> Δ-4 {[«22""»]|[-8-]|[4, 'D5']}
<Call 0x23252 0x102e4> {[«22""»]|[-8-]|[4, 'D5']}
Long2String(a : Long) : String
<Lit 0x23258 21> {[«22""»]|[-8-]|[$$ lines same as above.]}
<Call 0x2326a 0x102d0> {[«22""»]|[-8-]|[$$ lines same as above.]}
StringCat2(a, b : String) : String
<POP 23270-23272 StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x23272 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23278-2327c StackAdj> Δ+26 {}
<POP 2327c-23286 Naked> Σ0 ↓ ←0x23238
<Pointer.fp 0x2327c <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<Call 0x2327e 0x102bc> {[@@-14]}
FreeString(VAR a : String)
<POP 23284-23286 StackAdj> Δ+4 {}
<POP 23286-2328e Epilogue> Σ0
@ 2328e
<POP 2328e-232de Body>
<POP 2328e-232a4 Prologue> Σ0 ↓
<POP 232a4-232d6 Naked> Σ0 ↓
<Blob 0x232a4 [20] @> Δ-20 {[«20""»]}
<POP 232b6-232b8 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x232b8 19> {[«20""»]|[$$No recalibrate yet.]}
<Call 0x232cc 0x103e0> {[«20""»]|[$$No recalibrate yet.]}
WriteConsoleStringCrLf(str : String)
<POP 232d2-232d6 StackAdj> Δ+24 {}
<POP 232d6-232de Epilogue> Σ0
@ 232de
<POP 232de-23320 Body>
<POP 232de-232f0 Prologue> Σ0 ↓
<POP 232f0-2331c Naked> Σ0 ↓
<Blob 0x232f0 [4] @> Δ-4 {[«4""»]}
<Blob 0x232f4 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x232f8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 232fc-232fe StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x232fe 12> {[«4""»]|[«4""»]|[«4""»]|[$$No seek yet.]}
<Call 0x23312 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$No seek yet.]}
WriteConsoleStringCrLf(str : String)
<POP 23318-2331c StackAdj> Δ+16 {}
<POP 2331c-23320 Epilogue> Σ0
@ 23320
<POP 23320-23442 Body>
<POP 23320-23336 Prologue> Σ0 ↓
<POP 23336-23348 RegCacheLoad> Σ0 ↓
<POP 23348-2343a Naked> Σ0 ↓
<Blob 0x23348 [40] @> Δ-40 {[«40""»]}
<POP 2335a-2335c StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x2335c 39> {[«40""»]|[$$Attempt to write outside permitted area]}
<Call 0x2336a 0x103e0> {[«40""»]|[$$Attempt to write outside permitted area]}
WriteConsoleStringCrLf(str : String)
<MI 23370 MOVEA.L A7,A0> {[«40""»]|[$$Attempt to write outside permitted area]}
<MI 23372 LEA.L 0x20cb0,A1> {[«40""»]|[$$Attempt to write outside permitted area]}
<BlockMove 43,A1,A0> {[«40""»]|[$$Attempt to write outside permitted area]}
<POP 2337e-23380 StackAdj> Δ-4 {[«40""»]|[$$Attempt to write outside permitted area]|[-4-]}
<Lit 0x23380> {[«40""»]|[$$Attempt to write outside permitted area]|[$$…]}
<Pointer.sp 0x23380 4> Δ-4
<Const 0x23384 0x1.2> Δ-2
<Const 0x23386 0x2b.2> Δ-2
<Call 0x2338a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2338c-2338e StackAdj> Δ+8
<MI 2338e MOVEA.L (A7)+,A4> Δ+4 {[«40""»]|[$$Attempt to write outside permitted area]}
<POP 23390-23394 StackAdj> Δ+36 {[-8-]}
<MI 23394 MOVE.L A4,(A7)> {[-4-]|[4, 'A4']}
<POP 23396-23398 StackAdj> Δ-4 {[-4-]|[4, 'A4']|[-4-]}
<Blob 0x23398 [4] 0x29baa> Δ-4 {[-4-]|[4, 'A4']|[-4-]|[«4»]}
<Call 0x2339e 0x102e4> {[-4-]|[4, 'A4']|[-4-]|[«4»]}
Long2String(a : Long) : String
<POP 233a0-233a2 StackAdj> Δ+4 {[-4-]|[4, 'A4']|[-4-]}
<Call 0x233a2 0x102d0> {[-4-]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 233a8-233aa StackAdj> Δ+8 {[-4-]}
<MI 233aa MOVEA.L (A7)+,A4> Δ+4 {}
<MI 233ac MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Const 0x233ae 0x2f.2> Δ-2 {[4, 'A4']|[#47]}
<Call 0x233b0 0x102c0> {[4, 'A4']|[#47]}
AppendChar(MOD b : String; a : char)
<POP 233b6-233b8 StackAdj> Δ+2 {[4, 'A4']}
<POP 233b8-233b9 StackAdj> Δ+4 {}
<Blob 0x233b9 [4] @> Δ-4 {[«4""»]}
<POP 233bc-233be StackAdj> Δ-4 {[«4""»]|[-4-]}
<MI 233be MOVE.L A4,-(A7)> Δ-4 {[«4""»]|[-4-]|[4, 'A4']}
<POP 233c0-233c2 StackAdj> Δ-4 {[«4""»]|[-4-]|[4, 'A4']|[-4-]}
<Const 0x233c2 0x0.4> Δ-4 {[«4""»]|[-4-]|[4, 'A4']|[-4-]|[##0]}
<Call 0x233c6 0x102e4> {[«4""»]|[-4-]|[4, 'A4']|[-4-]|[##0]}
Long2String(a : Long) : String
<Lit 0x233c8 4> {[«4""»]|[-4-]|[4, 'A4']|[-4-]|[$$ .._]}
<Call 0x233d6 0x102d4> {[«4""»]|[-4-]|[4, 'A4']|[-4-]|[$$ .._]}
StringCat3(a, b, c : String) : String
<POP 233dc-233de StackAdj> Δ+12 {[«4""»]|[-4-]}
<MI 233de MOVEA.L (A7)+,A4> Δ+4 {[«4""»]}
<MI 233e0 MOVE.L A4,-(A7)> Δ-4 {[«4""»]|[4, 'A4']}
<POP 233e2-233e4 StackAdj> Δ-4 {[«4""»]|[4, 'A4']|[-4-]}
<Blob 0x233e4 [4] 0x29ba6> Δ-4 {[«4""»]|[4, 'A4']|[-4-]|[«4»]}
<Call 0x233ea 0x102e4> {[«4""»]|[4, 'A4']|[-4-]|[«4»]}
Long2String(a : Long) : String
<POP 233ec-233ee StackAdj> Δ+4 {[«4""»]|[4, 'A4']|[-4-]}
<Call 0x233ee 0x102d0> {[«4""»]|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 233f4-233f6 StackAdj> Δ+8 {[«4""»]}
<MI 233f6 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 233f8 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Const 0x233fa 0x2f.2> Δ-2 {[4, 'A4']|[#47]}
<Call 0x233fc 0x102c0> {[4, 'A4']|[#47]}
AppendChar(MOD b : String; a : char)
<POP 23402-23404 StackAdj> Δ+4 {[-2-]}
<POP 23404-23405 StackAdj> Δ+2 {}
<Blob 0x23405 [2] @> Δ-2 {[«2""»]}
<POP 23408-2340a StackAdj> Δ-4 {[«2""»]|[-4-]}
<MI 2340a MOVE.L A4,-(A7)> Δ-4 {[«2""»]|[-4-]|[4, 'A4']}
<POP 2340c-2340e StackAdj> Δ-4 {[«2""»]|[-4-]|[4, 'A4']|[-4-]}
<Blob 0x2340e [4] 0x29bae> Δ-4 {[«2""»]|[-4-]|[4, 'A4']|[-4-]|[«4»]}
<Call 0x23414 0x102e4> {[«2""»]|[-4-]|[4, 'A4']|[-4-]|[«4»]}
Long2String(a : Long) : String
<Lit 0x23416 2> {[«2""»]|[-4-]|[4, 'A4']|[-4-]|[$$].]}
<Call 0x23424 0x102d4> {[«2""»]|[-4-]|[4, 'A4']|[-4-]|[$$].]}
StringCat3(a, b, c : String) : String
<POP 2342a-2342c StackAdj> Δ+12 {[«2""»]|[-4-]}
<MI 2342c MOVEA.L (A7)+,A4> Δ+4 {[«2""»]}
<POP 2342e-23430 StackAdj> Δ+2 {}
<MI 23430 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x23432 0x25696> {[4, 'A4']}
<POP 23438-2343a StackAdj> Δ+4 {}
<POP 2343a-23442 Epilogue> Σ0
@ 23442
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 23442-2350a Body>
<POP 23442-23458 Prologue> Σ0 ↓
<POP 23458-23460 RegCacheLoad> Σ0 ↓
<POP 23460-234a8 Naked> Σ0 ↓ →0x234ac
<Blob 0x23460 [10] @> Δ-10 {[«10""»]}
<MI 2346c MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x2346e 0x3.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##3]}
<Call 0x23472 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##3]}
<POP 23478-2347c StackAdj> Δ+10 {[-8-]}
<MI 2347c MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x2347e 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23482 0x21912> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23484-23486 StackAdj> Δ+8 {[-4-]}
<MI 23486 MOVE.L (A7),D7> {[-4-]}
<MI 23488 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2348a 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x2348e 0x21912> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 23490-23492 StackAdj> Δ+8 {[-4-]}
<MI 23492 MOVE.L (A7),D6> {[-4-]}
<MI 23494 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23496 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x2349a 0x21912> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 2349c-2349e StackAdj> Δ+8 {[-4-]}
<MI 2349e MOVE.L (A7)+,D5> Δ+4 {}
<MI 234a0 CMP.L 0x29baa,D7> {}
<MI 234a6 BGE 0x234ac> {}
<POP 234a8-234ac Naked> Σ0 ↓
<Call 0x234a8 0x23320> {}
<POP 234ac-234c8 Naked> Σ0 ↓ →0x23502 ←0x23460
<MI 234ac MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 234ae MOVE.L D6,-(A7)> Δ-4 {[4, 'D7']|[4, 'D6']}
<MI 234b0 MOVE.L D5,-(A7)> Δ-4 {[4, 'D7']|[4, 'D6']|[4, 'D5']}
<Const 0x234b2 0x3.2> Δ-2 {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#3]}
<Pointer.fp 0x234b6 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#3]|[@@-4]}
<Call 0x234ba 0x22a76> {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#3]|[@@-4]}
<POP 234be-234c2 StackAdj> Δ+18 {}
<MI 234c2 TST.B (A6-0x4)> {}
<MI 234c6 BNE 0x23502> {}
<POP 234c8-23502 Naked> Σ0 ↓
<Blob 0x234c8 [24] @> Δ-24 {[«24""»]}
<POP 234da-234dc StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x234dc 23> {[«24""»]|[$$Error during disk WRITE]}
<Call 0x234f0 0x103e0> {[«24""»]|[$$Error during disk WRITE]}
WriteConsoleStringCrLf(str : String)
<POP 234f6-234fa StackAdj> Δ+26 {[-2-]}
<MI 234fa CLR.B (A7)> {[-2-]}
<Call 0x234fc 0x21b92> {[-2-]}
<POP 23500-23502 StackAdj> Δ+2 {}
<POP 23502-2350a Epilogue> Σ0 ←0x234ac
@ 2350a
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 2350a-235c0 Body>
<POP 2350a-23520 Prologue> Σ0 ↓
<POP 23520-23528 RegCacheLoad> Σ0 ↓
<POP 23528-23584 Naked> Σ0 ↓ →0x235b8
<Blob 0x23528 [10] @> Δ-10 {[«10""»]}
<MI 23534 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x23536 0x3.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##3]}
<Call 0x2353a 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##3]}
<POP 23540-23544 StackAdj> Δ+10 {[-8-]}
<MI 23544 MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x23546 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2354a 0x21912> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2354c-2354e StackAdj> Δ+8 {[-4-]}
<MI 2354e MOVE.L (A7),D7> {[-4-]}
<MI 23550 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23552 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23556 0x21912> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 23558-2355a StackAdj> Δ+8 {[-4-]}
<MI 2355a MOVE.L (A7),D6> {[-4-]}
<MI 2355c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2355e 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x23562 0x21912> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 23564-23566 StackAdj> Δ+8 {[-4-]}
<MI 23566 MOVE.L (A7)+,D5> Δ+4 {}
<MI 23568 MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 2356a MOVE.L D6,-(A7)> Δ-4 {[4, 'D7']|[4, 'D6']}
<MI 2356c MOVE.L D5,-(A7)> Δ-4 {[4, 'D7']|[4, 'D6']|[4, 'D5']}
<Const 0x2356e 0x2.2> Δ-2 {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#2]}
<Pointer.fp 0x23572 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#2]|[@@-4]}
<Call 0x23576 0x22a76> {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#2]|[@@-4]}
<POP 2357a-2357e StackAdj> Δ+18 {}
<MI 2357e TST.B (A6-0x4)> {}
<MI 23582 BNE 0x235b8> {}
<POP 23584-235b8 Naked> Σ0 ↓
<Blob 0x23584 [22] @> Δ-22 {[«22""»]}
<POP 23590-23592 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x23592 22> {[«22""»]|[$$Error during disk READ]}
<Call 0x235a6 0x103e0> {[«22""»]|[$$Error during disk READ]}
WriteConsoleStringCrLf(str : String)
<POP 235ac-235b0 StackAdj> Δ+24 {[-2-]}
<MI 235b0 CLR.B (A7)> {[-2-]}
<Call 0x235b2 0x21b92> {[-2-]}
<POP 235b6-235b8 StackAdj> Δ+2 {}
<POP 235b8-235c0 Epilogue> Σ0 ←0x23528
@ 235c0
<LVAR 0x008 1(rw)>
<LVAR -0x012 2(r)>
<LVAR -0x018 @>
<POP 235c0-2360e Body>
<POP 235c0-235d6 Prologue> Σ0 ↓
<POP 235d6-235da RegCacheLoad> Σ0 ↓
<POP 235da-235ee Naked> Σ0 ↓ →0x235f2
<Pointer.fp 0x235da <LVAR -0x018 @>> Δ-4 {[@@-24]}
<Call 0x235de 0x21a8a> {[@@-24]}
<POP 235e2-235e4 StackAdj> Δ+4 {}
<MI 235e4 MOVE.W (A6-0x12),D0> {}
<MI 235e8 ANDI.W #0x8000,D0> {}
<MI 235ec BNE 0x235f2> {}
<POP 235ee-235f2 Naked> Σ0 →0x23606
<MI 235ee CLR.B (A6+0x8)> {}
<MI 235f0 BRA 0x23606> {}
<POP 235f2-235fc Naked> Σ0 ↓ →0x23602 ←0x235da
<MI 235f2 MOVE.W (A6-0x12),D0> {}
<MI 235f6 ANDI.W #0x0040,D0> {}
<MI 235fa BNE 0x23602> {}
<POP 235fc-23602 Naked> Σ0 →0x23606
<MI 235fc MOVE.B #0x01,(A6+0x8)> {}
<MI 23600 BRA 0x23606> {}
<POP 23602-23606 Naked> Σ0 ↓ ←0x235f2
<MI 23602 MOVE.B #0x02,(A6+0x8)> {}
<POP 23606-2360e Epilogue> Σ0 ←0x235ee ←0x235fc
@ 2360e
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<LVAR -0x008 @ 1(r)>
<POP 2360e-23794 Body>
<POP 2360e-23624 Prologue> Σ0 ↓
<POP 23624-2363c RegCacheLoad> Σ0 ↓
<POP 2363c-236bc Naked> Σ0 ↓ →0x236e4
<Blob 0x2363c [10] @> Δ-10 {[«10""»]}
<MI 23648 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x2364a 0x3.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##3]}
<Call 0x2364e 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##3]}
<POP 23654-23658 StackAdj> Δ+10 {[-8-]}
<MI 23658 MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x2365a 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2365e 0x21912> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23662-23664 StackAdj> Δ+8 {[-4-]}
<MI 23664 MOVE.L (A7),D7> {[-4-]}
<MI 23666 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23668 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x2366c 0x21912> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 23670-23672 StackAdj> Δ+8 {[-4-]}
<MI 23672 MOVE.L (A7),D6> {[-4-]}
<MI 23674 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23676 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x2367a 0x21912> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 2367e-23680 StackAdj> Δ+8 {[-4-]}
<MI 23680 MOVE.L (A7)+,D5> Δ+4 {}
<MI 23682 MOVE.L 0x29ba6,(A6-0x6)> {}
<MI 23686 MOVE.L #0x270f,0x29ba6> {}
<Const 0x2368c 0x270e.4> Δ-4 {[##9998]}
<MI 23690 MOVE.L D6,-(A7)> Δ-4 {[##9998]|[4, 'D6']}
<MI 23692 MOVE.L D5,-(A7)> Δ-4 {[##9998]|[4, 'D6']|[4, 'D5']}
<Const 0x23694 0x4.2> Δ-2 {[##9998]|[4, 'D6']|[4, 'D5']|[#4]}
<Pointer.fp 0x23696 <LVAR -0x008 @ 1(r)>> Δ-4 {[##9998]|[4, 'D6']|[4, 'D5']|[#4]|[@@-8]}
<Call 0x2369a 0x22a76> {[##9998]|[4, 'D6']|[4, 'D5']|[#4]|[@@-8]}
<POP 2369e-236a0 StackAdj> Δ+18 {}
<MI 236a0 MOVE.L (A6-0x6),0x29ba6> {}
<MI 236a4 MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 236a6 MOVE.L D6,-(A7)> Δ-4 {[4, 'D7']|[4, 'D6']}
<MI 236a8 MOVE.L D5,-(A7)> Δ-4 {[4, 'D7']|[4, 'D6']|[4, 'D5']}
<Const 0x236aa 0x4.2> Δ-2 {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#4]}
<Pointer.fp 0x236ac <LVAR -0x008 @ 1(r)>> Δ-4 {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#4]|[@@-8]}
<Call 0x236b0 0x22a76> {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#4]|[@@-8]}
<POP 236b4-236b6 StackAdj> Δ+18 {}
<MI 236b6 TST.B (A6-0x8)> {}
<MI 236ba BEQ 0x236e4> {}
<POP 236bc-236e4 Naked> Σ0 →0x2378c
<Blob 0x236bc [20] @> Δ-20 {[«20""»]}
<POP 236c8-236ca StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x236ca 20> {[«20""»]|[$$Sector is error free]}
<Call 0x236d6 0x103e0> {[«20""»]|[$$Sector is error free]}
WriteConsoleStringCrLf(str : String)
<POP 236dc-236e0 StackAdj> Δ+24 {}
<MI 236e0 BRA 0x2378c> {}
<POP 236e4-23706 Naked> Σ0 →0x2370c →0x23732 →0x23760 ←0x2363c
<Call 0x236e4 0x103dc> {}
WriteConsoleCrLf(void)
<POP 236ea-236ec StackAdj> Δ-2 {[-2-]}
<Call 0x236ec 0x235c0> {[-2-]}
<MI 236f0 MOVE.B (A7)+,D0> Δ+2 {}
<MI 236f2 EXTB.W D0> {}
<POP 0x236f4 LimitCheck 0x0 ≤ D0 ≤ 0x2> {}
<MI 236fc ADD.W D0,D0> {}
<MI 236fe SWITCH D0.W> {}
<POP 2370c-23732 Naked> Σ0 →0x23786 ←0x236e4
<Blob 0x2370c [20] @> Δ-20 {[«20""»]}
<POP 23718-2371a StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2371a 20> {[«20""»]|[$$Sector is error free]}
<Call 0x23726 0x103e0> {[«20""»]|[$$Sector is error free]}
WriteConsoleStringCrLf(str : String)
<POP 2372c-23730 StackAdj> Δ+24 {}
<MI 23730 BRA 0x23786> {}
<POP 23732-23760 Naked> Σ0 →0x23786 ←0x236e4
<Blob 0x23732 [56] @> Δ-56 {[«56""»]}
<POP 23744-23746 StackAdj> Δ-4 {[«56""»]|[-4-]}
<Lit 0x23746 55> {[«56""»]|[$$Correctable disk error encountered while reading sector]}
<Call 0x23754 0x103e0> {[«56""»]|[$$Correctable disk error encountered while reading sector]}
WriteConsoleStringCrLf(str : String)
<POP 2375a-2375e StackAdj> Δ+60 {}
<MI 2375e BRA 0x23786> {}
<POP 23760-23786 Naked> Σ0 ↓ ←0x236e4
<Blob 0x23760 [28] @> Δ-28 {[«28""»]}
<POP 2376c-2376e StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x2376e 28> {[«28""»]|[$$Uncorrectable error detected]}
<Call 0x2377c 0x103e0> {[«28""»]|[$$Uncorrectable error detected]}
WriteConsoleStringCrLf(str : String)
<POP 23782-23786 StackAdj> Δ+32 {}
<POP 23786-2378c Naked> Σ0 ↓ ←0x2370c ←0x23732
<Call 0x23786 0x103dc> {}
WriteConsoleCrLf(void)
<POP 2378c-23794 Epilogue> Σ0 ←0x236bc
@ 23794
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 23794-2384a Body>
<POP 23794-237aa Prologue> Σ0 ↓
<POP 237aa-237b2 RegCacheLoad> Σ0 ↓
<POP 237b2-2380e Naked> Σ0 ↓ →0x23842
<Blob 0x237b2 [10] @> Δ-10 {[«10""»]}
<MI 237be MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x237c0 0x3.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##3]}
<Call 0x237c4 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##3]}
<POP 237ca-237ce StackAdj> Δ+10 {[-8-]}
<MI 237ce MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x237d0 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x237d4 0x21912> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 237d6-237d8 StackAdj> Δ+8 {[-4-]}
<MI 237d8 MOVE.L (A7),D7> {[-4-]}
<MI 237da MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x237dc 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x237e0 0x21912> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 237e2-237e4 StackAdj> Δ+8 {[-4-]}
<MI 237e4 MOVE.L (A7),D6> {[-4-]}
<MI 237e6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x237e8 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x237ec 0x21912> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 237ee-237f0 StackAdj> Δ+8 {[-4-]}
<MI 237f0 MOVE.L (A7)+,D5> Δ+4 {}
<MI 237f2 MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 237f4 MOVE.L D6,-(A7)> Δ-4 {[4, 'D7']|[4, 'D6']}
<MI 237f6 MOVE.L D5,-(A7)> Δ-4 {[4, 'D7']|[4, 'D6']|[4, 'D5']}
<Const 0x237f8 0x4.2> Δ-2 {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#4]}
<Pointer.fp 0x237fc <LVAR -0x004 @ 1(r)>> Δ-4 {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#4]|[@@-4]}
<Call 0x23800 0x22a76> {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#4]|[@@-4]}
<POP 23804-23808 StackAdj> Δ+18 {}
<MI 23808 TST.B (A6-0x4)> {}
<MI 2380c BNE 0x23842> {}
<POP 2380e-23842 Naked> Σ0 ↓
<Blob 0x2380e [22] @> Δ-22 {[«22""»]}
<POP 2381a-2381c StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x2381c 22> {[«22""»]|[$$Error during disk READ]}
<Call 0x23830 0x103e0> {[«22""»]|[$$Error during disk READ]}
WriteConsoleStringCrLf(str : String)
<POP 23836-2383a StackAdj> Δ+24 {[-2-]}
<MI 2383a CLR.B (A7)> {[-2-]}
<Call 0x2383c 0x21b92> {[-2-]}
<POP 23840-23842 StackAdj> Δ+2 {}
<POP 23842-2384a Epilogue> Σ0 ←0x237b2
@ 2384a
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 2384a-23900 Body>
<POP 2384a-23860 Prologue> Σ0 ↓
<POP 23860-23868 RegCacheLoad> Σ0 ↓
<POP 23868-238c4 Naked> Σ0 ↓ →0x238f8
<Blob 0x23868 [10] @> Δ-10 {[«10""»]}
<MI 23874 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x23876 0x3.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##3]}
<Call 0x2387a 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##3]}
<POP 23880-23884 StackAdj> Δ+10 {[-8-]}
<MI 23884 MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x23886 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2388a 0x21912> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2388c-2388e StackAdj> Δ+8 {[-4-]}
<MI 2388e MOVE.L (A7),D7> {[-4-]}
<MI 23890 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23892 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23896 0x21912> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 23898-2389a StackAdj> Δ+8 {[-4-]}
<MI 2389a MOVE.L (A7),D6> {[-4-]}
<MI 2389c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2389e 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x238a2 0x21912> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 238a4-238a6 StackAdj> Δ+8 {[-4-]}
<MI 238a6 MOVE.L (A7)+,D5> Δ+4 {}
<MI 238a8 MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 238aa MOVE.L D6,-(A7)> Δ-4 {[4, 'D7']|[4, 'D6']}
<MI 238ac MOVE.L D5,-(A7)> Δ-4 {[4, 'D7']|[4, 'D6']|[4, 'D5']}
<Const 0x238ae 0x10.2> Δ-2 {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#16]}
<Pointer.fp 0x238b2 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#16]|[@@-4]}
<Call 0x238b6 0x22a76> {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#16]|[@@-4]}
<POP 238ba-238be StackAdj> Δ+18 {}
<MI 238be TST.B (A6-0x4)> {}
<MI 238c2 BNE 0x238f8> {}
<POP 238c4-238f8 Naked> Σ0 ↓
<Blob 0x238c4 [22] @> Δ-22 {[«22""»]}
<POP 238d0-238d2 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x238d2 22> {[«22""»]|[$$error during disk read]}
<Call 0x238e6 0x103e0> {[«22""»]|[$$error during disk read]}
WriteConsoleStringCrLf(str : String)
<POP 238ec-238f0 StackAdj> Δ+24 {[-2-]}
<MI 238f0 CLR.B (A7)> {[-2-]}
<Call 0x238f2 0x21b92> {[-2-]}
<POP 238f6-238f8 StackAdj> Δ+2 {}
<POP 238f8-23900 Epilogue> Σ0 ←0x23868
@ 23900
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 23900-239b6 Body>
<POP 23900-23916 Prologue> Σ0 ↓
<POP 23916-2391e RegCacheLoad> Σ0 ↓
<POP 2391e-2397a Naked> Σ0 ↓ →0x239ae
<Blob 0x2391e [10] @> Δ-10 {[«10""»]}
<MI 2392a MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x2392c 0x3.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##3]}
<Call 0x23930 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##3]}
<POP 23936-2393a StackAdj> Δ+10 {[-8-]}
<MI 2393a MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x2393c 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23940 0x21912> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23942-23944 StackAdj> Δ+8 {[-4-]}
<MI 23944 MOVE.L (A7),D7> {[-4-]}
<MI 23946 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23948 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x2394c 0x21912> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 2394e-23950 StackAdj> Δ+8 {[-4-]}
<MI 23950 MOVE.L (A7),D6> {[-4-]}
<MI 23952 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23954 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x23958 0x21912> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 2395a-2395c StackAdj> Δ+8 {[-4-]}
<MI 2395c MOVE.L (A7)+,D5> Δ+4 {}
<MI 2395e MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 23960 MOVE.L D6,-(A7)> Δ-4 {[4, 'D7']|[4, 'D6']}
<MI 23962 MOVE.L D5,-(A7)> Δ-4 {[4, 'D7']|[4, 'D6']|[4, 'D5']}
<Const 0x23964 0x11.2> Δ-2 {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#17]}
<Pointer.fp 0x23968 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#17]|[@@-4]}
<Call 0x2396c 0x22a76> {[4, 'D7']|[4, 'D6']|[4, 'D5']|[#17]|[@@-4]}
<POP 23970-23974 StackAdj> Δ+18 {}
<MI 23974 TST.B (A6-0x4)> {}
<MI 23978 BNE 0x239ae> {}
<POP 2397a-239ae Naked> Σ0 ↓
<Blob 0x2397a [22] @> Δ-22 {[«22""»]}
<POP 23986-23988 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x23988 22> {[«22""»]|[$$error during disk read]}
<Call 0x2399c 0x103e0> {[«22""»]|[$$error during disk read]}
WriteConsoleStringCrLf(str : String)
<POP 239a2-239a6 StackAdj> Δ+24 {[-2-]}
<MI 239a6 CLR.B (A7)> {[-2-]}
<Call 0x239a8 0x21b92> {[-2-]}
<POP 239ac-239ae StackAdj> Δ+2 {}
<POP 239ae-239b6 Epilogue> Σ0 ←0x2391e
@ 239b6
<POP 239b6-239ea Body>
<POP 239b6-239cc Prologue> Σ0 ↓
<POP 239cc-239e2 Naked> Σ0 ↓
<MI 239cc LEA.L 0x293a6,A0> {}
<MI 239d2 LEA.L 0x297a6,A1> {}
<BlockMove 1024,A1,A0> {}
<POP 239e2-239ea Epilogue> Σ0
@ 239ea
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 239ea-23a26 Body>
<POP 239ea-23a00 Prologue> Σ0 ↓
<POP 23a00-23a02 RegCacheLoad> Σ0 ↓
<POP 23a02-23a08 Naked> Σ0 ↓ →0x23a1a
<MI 23a02 TST.L (A6+0x8)> {}
<MI 23a06 BEQ 0x23a1a> {}
<POP 23a08-23a0e Naked> Σ0 Δ-4 ↓
<MI 23a08 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 23a0c MOVEQ.L #0x01,D6> {[4, '(A6+0x8)']}
<POP 23a0e-23a12 Naked> Σ-4 ↓ →0x23a18 ←0x23a12
<MI 23a0e CMP.L (A7),D6> {[-4-]}
<MI 23a10 BGT 0x23a18> {[-4-]}
<POP 23a12-23a18 Naked> Σ-4 ↓ →0x23a0e
<MI 23a12 ASL.L #0x1,#0x01> {[-4-]}
<MI 23a14 ADDQ.L #0x1,D6> {[-4-]}
<MI 23a16 BVC 0x23a0e> {[-4-]}
<POP 23a18-23a1a Naked> Σ-4 Δ+4 ↓ ←0x23a0e
<POP 23a18-23a1a StackAdj> Δ+4 {}
<POP 23a1a-23a1e Naked> Σ0 ↓ ←0x23a02
<MI 23a1a MOVE.L #0x01,(A6+0xc)> {}
<POP 23a1e-23a26 Epilogue> Σ0
@ 23a26
<LVAR 0x008 4(r)>
<POP 23a26-23ac6 Body>
<POP 23a26-23a3c Prologue> Σ0 ↓
<POP 23a3c-23a42 RegCacheLoad> Σ0 ↓
<POP 23a42-23a72 Naked> Σ0 ↓ →0x23abe
<MI 23a42 MOVE.L (A6+0x8),D7> {}
<MI 23a46 SUBQ.L #0x1,D7> {}
<MI 23a48 MOVE.L D7,D4> {}
<MI 23a4a MOVEQ.L #0x10,D3> {}
<Call 0x23a4c 0x10294> {}
?divs_d3_d4
<MI 23a52 MOVE.L D4,D7> {}
<MI 23a54 MOVE.L D3,D6> {}
<POP 23a56-23a58 StackAdj> Δ-4 {[-4-]}
<MI 23a58 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<Call 0x23a5a 0x239ea> {[-4-]|[4, 'D6']}
<POP 23a5e-23a60 StackAdj> Δ+4 {[-4-]}
<MI 23a60 MOVE.L (A7)+,D0> Δ+4 {}
<POP 0x23a62 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 23a68 MOVE.W D0,D5> {}
<MI 23a6a CMPI.L #0x000000ff,D7> {}
<MI 23a70 BGT 0x23abe> {}
<POP 23a72-23a92 Naked> Σ0 ↓ →0x23aa6
<POP 0x23a72 LimitCheck 0x0 ≤ D7 ≤ 0x1ff> {}
<MI 23a7c MOVE.L D7,D0> {}
<MI 23a7e ASL.L #0x1,D0> {}
<MI 23a80 LEA.L 0x29190,A0> {}
<MI 23a86 LEA.L (A0+D0.L),A0> {}
<MI 23a8a MOVE.W (A0+0x216),D0> {}
<MI 23a8e AND.W D5,D0> {}
<MI 23a90 BNE 0x23aa6> {}
<POP 23a92-23aa6 Naked> Σ0 →0x23aba
<MI 23a92 CLR.L D0> {}
<MI 23a94 MOVE.W (A0+0x216),D0> {}
<MI 23a98 CLR.L D1> {}
<MI 23a9a MOVE.W D5,D1> {}
<MI 23a9c ADD.L D0,D1> {}
<POP 0x23a9e LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<MI 23aa4 BRA 0x23aba> {}
<POP 23aa6-23aba Naked> Σ0 ↓ ←0x23a72
<MI 23aa6 CLR.L D0> {}
<MI 23aa8 MOVE.W (A0+0x216),D0> {}
<MI 23aac CLR.L D1> {}
<MI 23aae MOVE.W D5,D1> {}
<MI 23ab0 NEG.L D1> {}
<MI 23ab2 ADD.L D0,D1> {}
<POP 0x23ab4 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {}
<POP 23aba-23abe Naked> Σ0 ↓ ←0x23a92
<MI 23aba MOVE.W D1,(A0+0x216)> {}
<POP 23abe-23ac6 Epilogue> Σ0 ←0x23a42
@ 23ac6
<LVAR -0x010 2(r)>
<LVAR -0x012 2(r)>
<LVAR -0x01c @>
<POP 23ac6-23ba6 Body>
<POP 23ac6-23adc Prologue> Σ0 ↓
<POP 23adc-23aec RegCacheLoad> Σ0 ↓
<POP 23aec-23af8 Naked> Σ0 ↓ →0x23b60
<POP 23aec-23aee StackAdj> Δ-2 {[-2-]}
<Call 0x23aee 0x235c0> {[-2-]}
<MI 23af2 MOVE.B (A7)+,D0> Δ+2 {}
<MI 23af4 CMP.B #0x01,D0> {}
<MI 23af6 BEQ 0x23b60> {}
<POP 23af8-23b60 Naked> Σ0 ↓
<Blob 0x23af8 [64] @> Δ-64 {[«64""»]}
<POP 23b08-23b0a StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x23b0a 63> {[«64""»]|[$$Status/Error bits indicate correction not possible or necessary]}
<Call 0x23b18 0x103e0> {[«64""»]|[$$Status/Error bits indicate correction not possible or necessary]}
WriteConsoleStringCrLf(str : String)
<POP 23b1a-23b1e StackAdj> Δ+68 {}
<Blob 0x23b1e [60] @> Δ-60 {[«60""»]}
<POP 23b2a-23b2c StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x23b2c 60> {[«60""»]|[$$The modified data now in the write buffer may not be correct]}
<Call 0x23b3a 0x103e0> {[«60""»]|[$$The modified data now in the write buffer may not be correct]}
WriteConsoleStringCrLf(str : String)
<POP 23b3c-23b3e StackAdj> Δ+64 {}
<Blob 0x23b3e [62] @> Δ-62 {[«62""»]}
<POP 23b4a-23b4c StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x23b4c 62> {[«62""»]|[$$Suggestion : use 'VERIFY' to show modified data before writing]}
<Call 0x23b5a 0x103e0> {[«62""»]|[$$Suggestion : use 'VERIFY' to show modified data before writing]}
WriteConsoleStringCrLf(str : String)
<POP 23b5c-23b60 StackAdj> Δ+66 {}
<POP 23b60-23b70 Naked> Σ0 ↓ ←0x23aec
<Call 0x23b60 0x239b6> {}
<Pointer.fp 0x23b64 <LVAR -0x01c @>> Δ-4 {[@@-28]}
<Call 0x23b68 0x21a8a> {[@@-28]}
<POP 23b6c-23b6e StackAdj> Δ+4 {}
<MI 23b6e MOVEQ.L #0x00,D7> {}
<POP 23b70-23b84 Naked> Σ0 ↓ →0x23b94 ←0x23b94
<POP 23b70-23b72 StackAdj> Δ-4 {[-4-]}
<MI 23b72 MOVE.L D7,-(A7)> Δ-4 {[-4-]|[4, 'D7']}
<Call 0x23b74 0x239ea> {[-4-]|[4, 'D7']}
<POP 23b78-23b7a StackAdj> Δ+4 {[-4-]}
<MI 23b7a CLR.L D0> {[-4-]}
<MI 23b7c MOVE.W (A6-0x10),D0> {[-4-]}
<MI 23b80 AND.L (A7)+,D0> Δ+4 {}
<MI 23b82 BEQ 0x23b94> {}
<POP 23b84-23b94 Naked> Σ0 ↓
<MI 23b84 CLR.L D0> {}
<MI 23b86 MOVE.W (A6-0x12),D0> {}
<MI 23b8a ADD.L D7,D0> {}
<MI 23b8c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<Call 0x23b8e 0x23a26> {[4, 'D0']}
<POP 23b92-23b94 StackAdj> Δ+4 {}
<POP 23b94-23b9e Naked> Σ0 ↓ →0x23b70 ←0x23b70
<MI 23b94 ADDQ.L #0x1,D7> {}
<MI 23b96 CMPI.L #0x0000000a,D7> {}
<MI 23b9c BLE 0x23b70> {}
<POP 23b9e-23ba6 Epilogue> Σ0
@ 23ba6
<LVAR 0x008 4(r)>
<LVAR -0x008 2(w)>
<LVAR -0x00a 2(w)>
<LVAR -0x00c 2(w)>
<LVAR -0x00e 2(r)>
<LVAR -0x010 2(r)>
<LVAR -0x012 2(w)>
<LVAR -0x014 2(r)>
<LVAR -0x016 @ 2(w)>
<LVAR -0x018 @ 1(r)>
<POP 23ba6-23d58 Body>
<POP 23ba6-23bbc Prologue> Σ0 ↓
<POP 23bbc-23bcc RegCacheLoad> Σ0 ↓
<POP 23bcc-23c16 Naked> Σ0 ↓ →0x23c1e
<Blob 0x23bcc [10] @> Δ-10 {[«10""»]}
<MI 23bd8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x23bda 0x3.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##3]}
<Call 0x23bde 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##3]}
<POP 23be4-23be8 StackAdj> Δ+10 {[-8-]}
<MI 23be8 MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x23bea 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23bee 0x21912> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23bf2-23bf4 StackAdj> Δ+8 {[-4-]}
<MI 23bf4 MOVE.L (A7),D7> {[-4-]}
<MI 23bf6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23bf8 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23bfc 0x21912> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 23c00-23c02 StackAdj> Δ+8 {[-4-]}
<MI 23c02 MOVE.L (A7),D6> {[-4-]}
<MI 23c04 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23c06 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x23c0a 0x21912> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 23c0e-23c10 StackAdj> Δ+8 {[-4-]}
<MI 23c10 MOVE.L (A7)+,D5> Δ+4 {}
<MI 23c12 TST.L D7> {}
<MI 23c14 BLT 0x23c1e> {}
<POP 23c16-23c1e Naked> Σ0 ↓ →0x23c44
<MI 23c16 CMP.L 0x29ba6,D7> {}
<MI 23c1c BLE 0x23c44> {}
<POP 23c1e-23c44 Naked> Σ0 ↓ ←0x23bcc
<Blob 0x23c1e [30] @> Δ-30 {[«30""»]}
<POP 23c2a-23c2c StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x23c2c 30> {[«30""»]|[$$Cylinder argument out of range]}
<Call 0x23c3a 0x25696> {[«30""»]|[$$Cylinder argument out of range]}
<POP 23c40-23c44 StackAdj> Δ+34 {}
<POP 23c44-23c48 Naked> Σ0 ↓ →0x23c50 ←0x23c16
<MI 23c44 TST.L D6> {}
<MI 23c46 BLT 0x23c50> {}
<POP 23c48-23c50 Naked> Σ0 ↓ →0x23c78
<MI 23c48 CMP.L 0x29bae,D6> {}
<MI 23c4e BLE 0x23c78> {}
<POP 23c50-23c78 Naked> Σ0 ↓ ←0x23c44
<Blob 0x23c50 [28] @> Δ-28 {[«28""»]}
<POP 23c60-23c62 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x23c62 27> {[«28""»]|[$$Track argument out of range]}
<Call 0x23c70 0x25696> {[«28""»]|[$$Track argument out of range]}
<POP 23c76-23c78 StackAdj> Δ+32 {}
<POP 23c78-23c7c Naked> Σ0 ↓ →0x23c84 ←0x23c48
<MI 23c78 TST.L D5> {}
<MI 23c7a BLT 0x23c84> {}
<POP 23c7c-23c84 Naked> Σ0 ↓ →0x23ca6
<MI 23c7c CMP.L 0x29bb2,D5> {}
<MI 23c82 BLE 0x23ca6> {}
<POP 23c84-23ca6 Naked> Σ0 ↓ ←0x23c78
<Blob 0x23c84 [28] @> Δ-28 {[«28""»]}
<POP 23c90-23c92 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x23c92 28> {[«28""»]|[$$Sector argument out of range]}
<Call 0x23c9e 0x25696> {[«28""»]|[$$Sector argument out of range]}
<POP 23ca4-23ca6 StackAdj> Δ+32 {}
<POP 23ca6-23d1c Naked> Σ0 ↓ →0x23d50 ←0x23c7c
<MI 23ca6 MOVE.W #0x100,(A6-0x16)> {}
<MI 23cac CLR.W (A6-0x14)> {}
<MI 23cb0 MOVE.W #0x2,(A6-0x12)> {}
<MI 23cb6 CLR.W (A6-0x10)> {}
<MI 23cba CLR.W (A6-0xe)> {}
<MI 23cbe MOVE.W 0x293a4,D0> {}
<MI 23cc4 ASL.W #0x8,D0> {}
<MI 23cc6 ADDI.W #0x0014,D0> {}
<MI 23cca MOVE.W D0,(A6-0xc)> {}
<POP 0x23cce LimitCheck 0x0 ≤ D7 ≤ 0xffff> {}
<MI 23cd8 MOVE.W D7,(A6-0xa)> {}
<MI 23cdc MOVE.L D6,D0> {}
<MI 23cde ASL.L #0x8,D0> {}
<MI 23ce0 ADD.L D5,D0> {}
<POP 0x23ce2 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 23cec MOVE.W D0,(A6-0x8)> {}
<MI 23cf0 LEA.L 0x297a6,A0> {}
<MI 23cf6 MOVEA.L A0,A4> {}
<Pointer.fp 0x23cf8 <LVAR -0x016 @ 2(w)>> Δ-4 {[@@-22]}
<MI 23cfc MOVE.L A4,-(A7)> Δ-4 {[@@-22]|[4, 'A4']}
<MI 23cfe CLR.W -(A7)> Δ-2 {[@@-22]|[4, 'A4']|[#0]}
<Call 0x23d00 0x10204> {[@@-22]|[4, 'A4']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 23d06-23d08 StackAdj> Δ+8 {[-2-]}
<MI 23d08 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x23d0a <LVAR -0x018 @ 1(r)>> Δ-4 {[-2-]|[@@-24]}
<Call 0x23d0e 0x10206> {[-2-]|[@@-24]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 23d14-23d16 StackAdj> Δ+6 {}
<MI 23d16 TST.B (A6-0x18)> {}
<MI 23d1a BNE 0x23d50> {}
<POP 23d1c-23d50 Naked> Σ0 ↓
<Blob 0x23d1c [36] @> Δ-36 {[«36""»]}
<POP 23d2e-23d30 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x23d30 35> {[«36""»]|[$$Error during disk READ DATA AND ECC]}
<Call 0x23d3e 0x103e0> {[«36""»]|[$$Error during disk READ DATA AND ECC]}
WriteConsoleStringCrLf(str : String)
<POP 23d44-23d48 StackAdj> Δ+38 {[-2-]}
<MI 23d48 CLR.B (A7)> {[-2-]}
<Call 0x23d4a 0x21b92> {[-2-]}
<POP 23d4e-23d50 StackAdj> Δ+2 {}
<POP 23d50-23d58 Epilogue> Σ0 ←0x23ca6
@ 23d58
<LVAR 0x008 4(r)>
<LVAR -0x004 2(w)>
<LVAR -0x006 1(r) 2(w)>
<LVAR -0x008 @ 2(w)>
<LVAR -0x00a @ 2(w)>
<LVAR -0x00c @ 2(rw)>
<LVAR -0x00e @ 2(w)>
<LVAR -0x010 @ 2(w)>
<LVAR -0x012 @ 2(w)>
<LVAR -0x018 @>
<LVAR -0x020 4(rw)>
<LVAR -0x024 4(rw)>
<POP 23d58-2409c Body> Δ-4
<POP 23d58-23d6e Prologue> Σ0 ↓
<POP 23d6e-23d7a RegCacheLoad> Σ0 ↓
<POP 23d7a-23de8 Naked> Σ0 ↓
<Blob 0x23d7a [10] @> Δ-10 {[«10""»]}
<MI 23d86 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x23d8a 0x3.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##3]}
<Call 0x23d8e 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##3]}
<POP 23d94-23d98 StackAdj> Δ+10 {[-8-]}
<MI 23d98 MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x23d9c 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23da0 0x21912> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 23da4-23da6 StackAdj> Δ+8 {[-4-]}
<MI 23da6 MOVE.L (A7),D5> {[-4-]}
<MI 23da8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23dac 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23db0 0x21912> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 23db4-23db6 StackAdj> Δ+8 {[-4-]}
<MI 23db6 MOVE.L (A7),(A6-0x24)> {[-4-]}
<MI 23dba MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23dbe 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x23dc2 0x21912> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 23dc6-23dc8 StackAdj> Δ+8 {[-4-]}
<MI 23dc8 MOVE.L (A7)+,(A6-0x20)> Δ+4 {}
<MI 23dcc MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 23dce MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, 'D5']|[4, '(A6-0x24)']}
<MI 23dd2 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, 'D5']|[4, '(A6-0x24)']|[4, '(A6-0x20)']}
<Const 0x23dd6 0x2.2> Δ-2 {[4, 'D5']|[4, '(A6-0x24)']|[4, '(A6-0x20)']|[#2]}
<Pointer.fp 0x23dda <LVAR -0x018 @>> Δ-4 {[4, 'D5']|[4, '(A6-0x24)']|[4, '(A6-0x20)']|[#2]|[@@-24]}
<Call 0x23dde 0x22a76> {[4, 'D5']|[4, '(A6-0x24)']|[4, '(A6-0x20)']|[#2]|[@@-24]}
<POP 23de2-23de6 StackAdj> Δ+18 {}
<MI 23de6 MOVEQ.L #0x00,D6> {}
<POP 23de8-23e0e Naked> Σ0 ↓ →0x23de8 ←0x23de8
<POP 0x23de8 LimitCheck 0x0 ≤ D6 ≤ 0x1ff> {}
<MI 23df2 MOVE.L D6,D0> {}
<MI 23df4 ASL.L #0x1,D0> {}
<MI 23df6 LEA.L 0x29190,A0> {}
<MI 23dfc LEA.L (A0+D0.L),A0> {}
<MI 23e00 CLR.W (A0+0x616)> {}
<MI 23e04 ADDQ.L #0x1,D6> {}
<MI 23e06 CMPI.L #0x000001ff,D6> {}
<MI 23e0c BLE 0x23de8> {}
<POP 23e0e-23e8a Naked> Σ0 →0x23e92 →0x23e9a →0x23ea2 →0x23eaa
<MI 23e0e LEA.L 0x297a6,A0> {}
<MI 23e14 MOVEA.L A0,A4> {}
<MI 23e16 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<MI 23e18 MOVE.L (A7)+,D0> Δ+4 {}
<MI 23e1a ANDI.L #0x000003ff,D0> {}
<MI 23e20 MOVE.W D0,(A6-0x12)> {}
<MI 23e24 MOVE.L D5,D4> {}
<MI 23e26 MOVE.L #0x10000,D3> {}
<Call 0x23e2c 0x10294> {}
?divs_d3_d4
<MI 23e32 ANDI.L #0x0000ffff,D3> {}
<MI 23e38 MOVE.W D3,(A6-0x10)> {}
<MI 23e3c MOVE.L (A6-0x24),D0> {}
<MI 23e40 ASL.L #0x8,D0> {}
<MI 23e42 ADD.L (A6-0x20),D0> {}
<POP 0x23e46 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 23e50 MOVE.W D0,(A6-0xe)> {}
<MI 23e54 MOVE.W #0xfffe,(A6-0x8)> {}
<MI 23e5a MOVE.W #0x3b,(A6-0xc)> {}
<MI 23e5e MOVE.W 0x293a4,(A6-0xa)> {}
<MI 23e66 MOVE.L #0x9303,D7> {}
<MI 23e6c ASL.L #0x8,D7> {}
<MI 23e6e ASL.L #0x8,D7> {}
<MI 23e70 MOVE.L 0x2939c,D0> {}
<POP 0x23e76 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 23e80 ADD.W D0,D0> {}
<MI 23e82 SWITCH D0.W> {}
<POP 23e92-23e9a Naked> Σ0 →0x23eb0 ←0x23e0e
<MI 23e92 ADDI.L #0x0000fdc0,D7> {}
<MI 23e98 BRA 0x23eb0> {}
<POP 23e9a-23ea2 Naked> Σ0 →0x23eb0 ←0x23e0e
<MI 23e9a ADDI.L #0x0000fcc0,D7> {}
<MI 23ea0 BRA 0x23eb0> {}
<POP 23ea2-23eaa Naked> Σ0 →0x23eb0 ←0x23e0e
<MI 23ea2 ADDI.L #0x0000fc80,D7> {}
<MI 23ea8 BRA 0x23eb0> {}
<POP 23eaa-23eb0 Naked> Σ0 ↓ ←0x23e0e
<MI 23eaa ADDI.L #0x0000fc40,D7> {}
<POP 23eb0-23f4c Naked> Σ0 ↓ ←0x23e92 ←0x23e9a ←0x23ea2
<MI 23eb0 LEA.L (A6-0xa),A0> {}
<MI 23eb4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x23eb6 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<MI 23eb8 MOVE.L D7,-(A7)> Δ-4 {[4, 'A0']|[#1]|[4, 'D7']}
<MI 23eba ADDQ.L #0x8,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x23ebc 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x23ec0 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x23ec4 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 23ec6-23eca StackAdj> Δ+14 {}
<MI 23eca LEA.L (A6-0x10),A0> {}
<MI 23ece MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x23ed0 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<MI 23ed2 MOVE.L D7,-(A7)> Δ-4 {[4, 'A0']|[#1]|[4, 'D7']}
<MI 23ed4 ADDI.L #0x0000001c,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x23eda 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x23ede 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x23ee2 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 23ee4-23ee8 StackAdj> Δ+14 {}
<MI 23ee8 LEA.L (A6-0xe),A0> {}
<MI 23eec MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x23eee 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<MI 23ef0 MOVE.L D7,-(A7)> Δ-4 {[4, 'A0']|[#1]|[4, 'D7']}
<MI 23ef2 ADDQ.L #0x6,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x23ef4 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x23ef8 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x23efc 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 23efe-23f02 StackAdj> Δ+14 {}
<MI 23f02 LEA.L (A6-0x12),A0> {}
<MI 23f06 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x23f08 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<MI 23f0a MOVE.L D7,-(A7)> Δ-4 {[4, 'A0']|[#1]|[4, 'D7']}
<MI 23f0c ADDQ.L #0x4,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x23f0e 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x23f12 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x23f16 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 23f18-23f1c StackAdj> Δ+14 {}
<MI 23f1c LEA.L (A6-0x8),A0> {}
<MI 23f20 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x23f22 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<MI 23f24 MOVE.L D7,-(A7)> Δ-4 {[4, 'A0']|[#1]|[4, 'D7']}
<MI 23f26 ADDQ.L #0x2,(A7)> {[4, 'A0']|[#1]|[-4-]}
<Const 0x23f28 0x5.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]}
<Const 0x23f2c 0x2.2> Δ-2 {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
<Call 0x23f30 0x1023a> {[4, 'A0']|[#1]|[-4-]|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 23f32-23f36 StackAdj> Δ+14 {}
<MI 23f36 LEA.L (A6-0xc),A0> {}
<MI 23f38 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x23f3a 0x1.2> Δ-2 {[4, 'A0']|[#1]}
<MI 23f3c MOVE.L D7,-(A7)> Δ-4 {[4, 'A0']|[#1]|[4, 'D7']}
<Const 0x23f3e 0x5.2> Δ-2 {[4, 'A0']|[#1]|[4, 'D7']|[#5]}
<Const 0x23f42 0x2.2> Δ-2 {[4, 'A0']|[#1]|[4, 'D7']|[#5]|[#2]}
<Call 0x23f46 0x1023a> {[4, 'A0']|[#1]|[4, 'D7']|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 23f48-23f4c StackAdj> Δ+14 {}
<POP 23f4c-23f6c Naked> Σ0 Δ-4 ↓ →0x23f70 ←0x23f6c
<MI 23f4c MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 23f4e MOVE.L (A7),-(A7)> Δ-4 {[4, 'D7']|[4, '(A7)']}
<Const 0x23f50 0x5.2> Δ-2 {[4, 'D7']|[4, '(A7)']|[#5]}
<MI 23f54 LEA.L (A6-0xc),A0> {[4, 'D7']|[4, '(A7)']|[#5]}
<MI 23f56 MOVE.L A0,-(A7)> Δ-4 {[4, 'D7']|[4, '(A7)']|[#5]|[4, 'A0']}
<Const 0x23f58 0x1.2> Δ-2 {[4, 'D7']|[4, '(A7)']|[#5]|[4, 'A0']|[#1]}
<Const 0x23f5a 0x2.2> Δ-2 {[4, 'D7']|[4, '(A7)']|[#5]|[4, 'A0']|[#1]|[#2]}
<Call 0x23f5e 0x1023a> {[4, 'D7']|[4, '(A7)']|[#5]|[4, 'A0']|[#1]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 23f60-23f64 StackAdj> Δ+14 {[4, 'D7']}
<MI 23f64 MOVE.W (A6-0xc),D0> {[4, 'D7']}
<MI 23f66 ANDI.W #0x0080,D0> {[4, 'D7']}
<MI 23f6a BNE 0x23f70> {[4, 'D7']}
<POP 23f6c-23f70 Naked> Σ-4 Δ+4 →0x23f4c
<POP 23f6c-23f6e StackAdj> Δ+4 {}
<MI 23f6e BRA 0x23f4c> {}
<POP 23f70-23f88 Naked> Σ-4 ↓ →0x23fc6 ←0x23f4c
<MI 23f70 MOVE.W 0x297a6,(A6-0x6)> {[-4-]}
<MI 23f78 MOVE.W 0x297a8,(A6-0x4)> {[-4-]}
<MI 23f80 MOVE.B (A6-0x6),D0> {[-4-]}
<MI 23f84 LSR.B #0x7,D0> {[-4-]}
<MI 23f86 BEQ 0x23fc6> {[-4-]}
<POP 23f88-23f92 Naked> Σ-4 ↓ →0x23fc6
<MI 23f88 MOVE.B (A6-0x6),D1> {[-4-]}
<MI 23f8c LSL.B #0x1,D1> {[-4-]}
<MI 23f8e LSR.B #0x7,D1> {[-4-]}
<MI 23f90 BEQ 0x23fc6> {[-4-]}
<POP 23f92-23fc6 Naked> Σ-4 →0x24092
<Blob 0x23f92 [22] @> Δ-22 {[-4-]|[«22""»]}
<POP 23fa4-23fa6 StackAdj> Δ-4 {[-4-]|[«22""»]|[-4-]}
<Lit 0x23fa6 21> {[-4-]|[«22""»]|[$$This is a good sector]}
<Call 0x23fb8 0x103e0> {[-4-]|[«22""»]|[$$This is a good sector]}
WriteConsoleStringCrLf(str : String)
<POP 23fbe-23fc2 StackAdj> Δ+26 {[-4-]}
<MI 23fc2 BRA 0x24092> {[-4-]}
<POP 23fc6-23ff4 Naked> Σ-4 ↓ →0x2401e ←0x23f70 ←0x23f88
<Blob 0x23fc6 [20] @> Δ-20 {[-4-]|[«20""»]}
<POP 23fd2-23fd4 StackAdj> Δ-4 {[-4-]|[«20""»]|[-4-]}
<Lit 0x23fd4 20> {[-4-]|[«20""»]|[$$This is a bad sector]}
<Call 0x23fe6 0x103d8> {[-4-]|[«20""»]|[$$This is a bad sector]}
WriteConsoleString(str : String)
<POP 23fec-23ff0 StackAdj> Δ+24 {[-4-]}
<MI 23ff0 TST.B D0> {[-4-]}
<MI 23ff2 BNE 0x2401e> {[-4-]}
<POP 23ff4-2401e Naked> Σ-4 ↓
<Blob 0x23ff4 [20] @> Δ-20 {[-4-]|[«20""»]}
<POP 24000-24002 StackAdj> Δ-4 {[-4-]|[«20""»]|[-4-]}
<Lit 0x24002 20> {[-4-]|[«20""»]|[$$, the MFG flag false]}
<Call 0x24014 0x103d8> {[-4-]|[«20""»]|[$$, the MFG flag false]}
WriteConsoleString(str : String)
<POP 2401a-2401e StackAdj> Δ+24 {[-4-]}
<POP 2401e-24028 Naked> Σ-4 ↓ →0x24052 ←0x23fc6
<MI 2401e MOVE.B (A6-0x6),D0> {[-4-]}
<MI 24022 LSL.B #0x1,D0> {[-4-]}
<MI 24024 LSR.B #0x7,D0> {[-4-]}
<MI 24026 BNE 0x24052> {[-4-]}
<POP 24028-24052 Naked> Σ-4 ↓
<Blob 0x24028 [20] @> Δ-20 {[-4-]|[«20""»]}
<POP 24034-24036 StackAdj> Δ-4 {[-4-]|[«20""»]|[-4-]}
<Lit 0x24036 20> {[-4-]|[«20""»]|[$$, the USR flag false]}
<Call 0x24048 0x103d8> {[-4-]|[«20""»]|[$$, the USR flag false]}
WriteConsoleString(str : String)
<POP 2404e-24052 StackAdj> Δ+24 {[-4-]}
<POP 24052-24074 Naked> Σ-4 ↓ ←0x2401e
<Call 0x24052 0x103dc> {[-4-]}
WriteConsoleCrLf(void)
<MI 24058 MOVE.W #0x4009,(A6-0xc)> {[-4-]}
<MI 2405c LEA.L (A6-0xc),A0> {[-4-]}
<MI 2405e MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<Const 0x24060 0x1.2> Δ-2 {[-4-]|[4, 'A0']|[#1]}
<MI 24062 MOVE.L (A7+0x6),-(A7)> Δ-4 {[-4-]|[4, 'A0']|[#1]|[4, '(A7+0x6)']}
<Const 0x24066 0x5.2> Δ-2 {[-4-]|[4, 'A0']|[#1]|[4, '(A7+0x6)']|[#5]}
<Const 0x2406a 0x2.2> Δ-2 {[-4-]|[4, 'A0']|[#1]|[4, '(A7+0x6)']|[#5]|[#2]}
<Call 0x2406e 0x1023a> {[-4-]|[4, 'A0']|[#1]|[4, '(A7+0x6)']|[#5]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 24070-24074 StackAdj> Δ+14 {[-4-]}
<POP 24074-24092 Naked> Σ-4 ↓ →0x24074 ←0x24074
<MI 24074 MOVE.L D7,-(A7)> Δ-4 {[-4-]|[4, 'D7']}
<Const 0x24076 0x5.2> Δ-2 {[-4-]|[4, 'D7']|[#5]}
<MI 2407a LEA.L (A6-0xc),A0> {[-4-]|[4, 'D7']|[#5]}
<MI 2407c MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'D7']|[#5]|[4, 'A0']}
<Const 0x2407e 0x1.2> Δ-2 {[-4-]|[4, 'D7']|[#5]|[4, 'A0']|[#1]}
<Const 0x24080 0x2.2> Δ-2 {[-4-]|[4, 'D7']|[#5]|[4, 'A0']|[#1]|[#2]}
<Call 0x24084 0x1023a> {[-4-]|[4, 'D7']|[#5]|[4, 'A0']|[#1]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 24086-2408a StackAdj> Δ+14 {[-4-]}
<MI 2408a MOVE.W (A6-0xc),D0> {[-4-]}
<MI 2408c ANDI.W #0x0080,D0> {[-4-]}
<MI 24090 BEQ 0x24074> {[-4-]}
<POP 24092-24094 Naked> Σ-4 Δ+4 ↓ ←0x23f92
<POP 24092-24094 StackAdj> Δ+4 {}
<POP 24094-2409c Epilogue> Σ0
@ 2409c
<LVAR 0x008 4(r)>
<LVAR -0x008 2(w)>
<LVAR -0x00a 2(w)>
<LVAR -0x00c 2(w)>
<LVAR -0x00e 2(r)>
<LVAR -0x010 2(r)>
<LVAR -0x012 2(w)>
<LVAR -0x014 2(r)>
<LVAR -0x016 @ 2(w)>
<LVAR -0x018 @ 1(r)>
<POP 2409c-24282 Body>
<POP 2409c-240b2 Prologue> Σ0 ↓
<POP 240b2-240c2 RegCacheLoad> Σ0 ↓
<POP 240c2-2410c Naked> Σ0 ↓ →0x24114
<Blob 0x240c2 [10] @> Δ-10 {[«10""»]}
<MI 240ce MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x240d0 0x3.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##3]}
<Call 0x240d4 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##3]}
<POP 240da-240de StackAdj> Δ+10 {[-8-]}
<MI 240de MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x240e0 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x240e4 0x21912> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 240e8-240ea StackAdj> Δ+8 {[-4-]}
<MI 240ea MOVE.L (A7),D7> {[-4-]}
<MI 240ec MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x240ee 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x240f2 0x21912> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 240f6-240f8 StackAdj> Δ+8 {[-4-]}
<MI 240f8 MOVE.L (A7),D6> {[-4-]}
<MI 240fa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x240fc 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x24100 0x21912> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 24104-24106 StackAdj> Δ+8 {[-4-]}
<MI 24106 MOVE.L (A7)+,D5> Δ+4 {}
<MI 24108 TST.L D7> {}
<MI 2410a BLT 0x24114> {}
<POP 2410c-24114 Naked> Σ0 ↓ →0x2413a
<MI 2410c CMP.L 0x29ba6,D7> {}
<MI 24112 BLE 0x2413a> {}
<POP 24114-2413a Naked> Σ0 ↓ ←0x240c2
<Blob 0x24114 [30] @> Δ-30 {[«30""»]}
<POP 24120-24122 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x24122 30> {[«30""»]|[$$Cylinder argument out of range]}
<Call 0x24130 0x25696> {[«30""»]|[$$Cylinder argument out of range]}
<POP 24136-2413a StackAdj> Δ+34 {}
<POP 2413a-24142 Naked> Σ0 ↓ →0x2416e ←0x2410c
<MI 2413a CMP.L 0x29baa,D7> {}
<MI 24140 BGE 0x2416e> {}
<POP 24142-2416e Naked> Σ0 ↓
<Blob 0x24142 [44] @> Δ-44 {[«44""»]}
<POP 24154-24156 StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x24156 43> {[«44""»]|[$$Attempt to write outside of read/write area]}
<Call 0x24164 0x25696> {[«44""»]|[$$Attempt to write outside of read/write area]}
<POP 2416a-2416e StackAdj> Δ+48 {}
<POP 2416e-24172 Naked> Σ0 ↓ →0x2417a ←0x2413a
<MI 2416e TST.L D6> {}
<MI 24170 BLT 0x2417a> {}
<POP 24172-2417a Naked> Σ0 ↓ →0x241a2
<MI 24172 CMP.L 0x29bae,D6> {}
<MI 24178 BLE 0x241a2> {}
<POP 2417a-241a2 Naked> Σ0 ↓ ←0x2416e
<Blob 0x2417a [28] @> Δ-28 {[«28""»]}
<POP 2418a-2418c StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x2418c 27> {[«28""»]|[$$Track argument out of range]}
<Call 0x2419a 0x25696> {[«28""»]|[$$Track argument out of range]}
<POP 241a0-241a2 StackAdj> Δ+32 {}
<POP 241a2-241a6 Naked> Σ0 ↓ →0x241ae ←0x24172
<MI 241a2 TST.L D5> {}
<MI 241a4 BLT 0x241ae> {}
<POP 241a6-241ae Naked> Σ0 ↓ →0x241d0
<MI 241a6 CMP.L 0x29bb2,D5> {}
<MI 241ac BLE 0x241d0> {}
<POP 241ae-241d0 Naked> Σ0 ↓ ←0x241a2
<Blob 0x241ae [28] @> Δ-28 {[«28""»]}
<POP 241ba-241bc StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x241bc 28> {[«28""»]|[$$Sector argument out of range]}
<Call 0x241c8 0x25696> {[«28""»]|[$$Sector argument out of range]}
<POP 241ce-241d0 StackAdj> Δ+32 {}
<POP 241d0-24246 Naked> Σ0 ↓ →0x2427a ←0x241a6
<MI 241d0 MOVE.W #0x100,(A6-0x16)> {}
<MI 241d6 CLR.W (A6-0x14)> {}
<MI 241da MOVE.W #0x2,(A6-0x12)> {}
<MI 241e0 CLR.W (A6-0x10)> {}
<MI 241e4 CLR.W (A6-0xe)> {}
<MI 241e8 MOVE.W 0x293a4,D0> {}
<MI 241ee ASL.W #0x8,D0> {}
<MI 241f0 ADDI.W #0x0015,D0> {}
<MI 241f4 MOVE.W D0,(A6-0xc)> {}
<POP 0x241f8 LimitCheck 0x0 ≤ D7 ≤ 0xffff> {}
<MI 24202 MOVE.W D7,(A6-0xa)> {}
<MI 24206 MOVE.L D6,D0> {}
<MI 24208 ASL.L #0x8,D0> {}
<MI 2420a ADD.L D5,D0> {}
<POP 0x2420c LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 24216 MOVE.W D0,(A6-0x8)> {}
<MI 2421a LEA.L 0x293a6,A0> {}
<MI 24220 MOVEA.L A0,A4> {}
<Pointer.fp 0x24222 <LVAR -0x016 @ 2(w)>> Δ-4 {[@@-22]}
<MI 24226 MOVE.L A4,-(A7)> Δ-4 {[@@-22]|[4, 'A4']}
<MI 24228 CLR.W -(A7)> Δ-2 {[@@-22]|[4, 'A4']|[#0]}
<Call 0x2422a 0x10204> {[@@-22]|[4, 'A4']|[#0]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 24230-24232 StackAdj> Δ+8 {[-2-]}
<MI 24232 CLR.W (A7)> {[-2-]}
<Pointer.fp 0x24234 <LVAR -0x018 @ 1(r)>> Δ-4 {[-2-]|[@@-24]}
<Call 0x24238 0x10206> {[-2-]|[@@-24]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 2423e-24240 StackAdj> Δ+6 {}
<MI 24240 TST.B (A6-0x18)> {}
<MI 24244 BNE 0x2427a> {}
<POP 24246-2427a Naked> Σ0 ↓
<Blob 0x24246 [36] @> Δ-36 {[«36""»]}
<POP 24258-2425a StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x2425a 35> {[«36""»]|[$$Error during disk READ DATA AND ECC]}
<Call 0x24268 0x103e0> {[«36""»]|[$$Error during disk READ DATA AND ECC]}
WriteConsoleStringCrLf(str : String)
<POP 2426e-24272 StackAdj> Δ+38 {[-2-]}
<MI 24272 CLR.B (A7)> {[-2-]}
<Call 0x24274 0x21b92> {[-2-]}
<POP 24278-2427a StackAdj> Δ+2 {}
<POP 2427a-24282 Epilogue> Σ0 ←0x241d0
@ 24282
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x00c 4(rw)>
<POP 24282-243cc Body>
<POP 24282-24298 Prologue> Σ0 ↓
<POP 24298-242aa RegCacheLoad> Σ0 ↓
<POP 242aa-242ec Naked> Σ0 ↓
<Blob 0x242aa [10] @> Δ-10 {[«10""»]}
<MI 242b6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x242b8 0x3.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##3]}
<Call 0x242bc 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##3]}
<POP 242c2-242c6 StackAdj> Δ+10 {[-8-]}
<MI 242c6 MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x242c8 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x242cc 0x21912> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 242ce-242d0 StackAdj> Δ+8 {[-4-]}
<MI 242d0 MOVE.L (A7),D6> {[-4-]}
<MI 242d2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x242d4 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x242d8 0x21912> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 242da-242dc StackAdj> Δ+8 {[-4-]}
<MI 242dc MOVE.L (A7),D5> {[-4-]}
<MI 242de MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x242e0 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x242e4 0x21912> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 242e6-242e8 StackAdj> Δ+8 {[-4-]}
<MI 242e8 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 242ea MOVEQ.L #0x00,D7> {}
<POP 242ec-24320 Naked> Σ0 ↓ →0x242ec ←0x242ec
<POP 0x242ec LimitCheck 0x0 ≤ D7 ≤ 0xff> {}
<MI 242f2 MOVE.L D7,D0> {}
<MI 242f4 ASL.L #0x1,D0> {}
<MI 242f6 LEA.L 0x29190,A0> {}
<POP 0x242fc LimitCheck 0x0 ≤ D7 ≤ 0x1ff> {}
<MI 24306 MOVE.L D7,D1> {}
<MI 24308 ASL.L #0x1,D1> {}
<MI 2430a LEA.L 0x29190,A1> {}
<MI 24310 LEA.L (A1+D1.L),A1> {}
<MI 24314 MOVE.W (A1+0x216),(A0+D0.L+#0xc)> {}
<MI 2431a ADDQ.L #0x1,D7> {}
<MI 2431c CMP.L #0xff,D7> {}
<MI 2431e BLE 0x242ec> {}
<POP 24320-24390 Naked> Σ0 ↓ →0x243c4
<MI 24320 ORI.B #0x10,0x29198> {}
<MI 24328 ORI.B #0x40,0x29198> {}
<MI 24330 ORI.B #0x80,0x29198> {}
<MI 24338 ANDI.B #0xdf,0x29198> {}
<POP 0x24340 LimitCheck 0x0 ≤ D6 ≤ 0xfff> {}
<MI 2434a MOVE.L D6,D0> {}
<MI 2434c ANDI.W #0xf000,0x29198> {}
<MI 24354 OR.W D0,0x29198> {}
<POP 0x2435a LimitCheck 0x0 ≤ D5 ≤ 0xff> {}
<MI 24360 MOVE.B D5,0x2919a> {}
<MI 24366 MOVE.L (A6-0xc),D0> {}
<POP 0x24368 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 2436e MOVE.B D0,0x2919b> {}
<MI 24374 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 24376 MOVE.L D5,-(A7)> Δ-4 {[4, 'D6']|[4, 'D5']}
<MI 24378 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, 'D6']|[4, 'D5']|[4, '(A6-0xc)']}
<Const 0x2437a 0x8.2> Δ-2 {[4, 'D6']|[4, 'D5']|[4, '(A6-0xc)']|[#8]}
<Pointer.fp 0x2437e <LVAR -0x004 @ 1(r)>> Δ-4 {[4, 'D6']|[4, 'D5']|[4, '(A6-0xc)']|[#8]|[@@-4]}
<Call 0x24382 0x22a76> {[4, 'D6']|[4, 'D5']|[4, '(A6-0xc)']|[#8]|[@@-4]}
<POP 24386-2438a StackAdj> Δ+18 {}
<MI 2438a TST.B (A6-0x4)> {}
<MI 2438e BNE 0x243c4> {}
<POP 24390-243c4 Naked> Σ0 ↓
<Blob 0x24390 [24] @> Δ-24 {[«24""»]}
<POP 2439c-2439e StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x2439e 24> {[«24""»]|[$$Error during disk FORMAT]}
<Call 0x243b2 0x103e0> {[«24""»]|[$$Error during disk FORMAT]}
WriteConsoleStringCrLf(str : String)
<POP 243b8-243bc StackAdj> Δ+26 {[-2-]}
<MI 243bc CLR.B (A7)> {[-2-]}
<Call 0x243be 0x21b92> {[-2-]}
<POP 243c2-243c4 StackAdj> Δ+2 {}
<POP 243c4-243cc Epilogue> Σ0 ←0x24320
@ 243cc
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x00c 4(rw)>
<POP 243cc-24516 Body>
<POP 243cc-243e2 Prologue> Σ0 ↓
<POP 243e2-243f4 RegCacheLoad> Σ0 ↓
<POP 243f4-24436 Naked> Σ0 ↓
<Blob 0x243f4 [10] @> Δ-10 {[«10""»]}
<MI 24400 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x24402 0x3.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##3]}
<Call 0x24406 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##3]}
<POP 2440c-24410 StackAdj> Δ+10 {[-8-]}
<MI 24410 MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x24412 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24416 0x21912> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 24418-2441a StackAdj> Δ+8 {[-4-]}
<MI 2441a MOVE.L (A7),D6> {[-4-]}
<MI 2441c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2441e 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x24422 0x21912> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 24424-24426 StackAdj> Δ+8 {[-4-]}
<MI 24426 MOVE.L (A7),D5> {[-4-]}
<MI 24428 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2442a 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x2442e 0x21912> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 24430-24432 StackAdj> Δ+8 {[-4-]}
<MI 24432 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 24434 MOVEQ.L #0x00,D7> {}
<POP 24436-2446a Naked> Σ0 ↓ →0x24436 ←0x24436
<POP 0x24436 LimitCheck 0x0 ≤ D7 ≤ 0xff> {}
<MI 2443c MOVE.L D7,D0> {}
<MI 2443e ASL.L #0x1,D0> {}
<MI 24440 LEA.L 0x29190,A0> {}
<POP 0x24446 LimitCheck 0x0 ≤ D7 ≤ 0x1ff> {}
<MI 24450 MOVE.L D7,D1> {}
<MI 24452 ASL.L #0x1,D1> {}
<MI 24454 LEA.L 0x29190,A1> {}
<MI 2445a LEA.L (A1+D1.L),A1> {}
<MI 2445e MOVE.W (A1+0x216),(A0+D0.L+#0xc)> {}
<MI 24464 ADDQ.L #0x1,D7> {}
<MI 24466 CMP.L #0xff,D7> {}
<MI 24468 BLE 0x24436> {}
<POP 2446a-244da Naked> Σ0 ↓ →0x2450e
<MI 2446a ORI.B #0x10,0x29198> {}
<MI 24472 ANDI.B #0xbf,0x29198> {}
<MI 2447a ANDI.B #0x7f,0x29198> {}
<MI 24482 ANDI.B #0xdf,0x29198> {}
<POP 0x2448a LimitCheck 0x0 ≤ D6 ≤ 0xfff> {}
<MI 24494 MOVE.L D6,D0> {}
<MI 24496 ANDI.W #0xf000,0x29198> {}
<MI 2449e OR.W D0,0x29198> {}
<POP 0x244a4 LimitCheck 0x0 ≤ D5 ≤ 0xff> {}
<MI 244aa MOVE.B D5,0x2919a> {}
<MI 244b0 MOVE.L (A6-0xc),D0> {}
<POP 0x244b2 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 244b8 MOVE.B D0,0x2919b> {}
<MI 244be MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 244c0 MOVE.L D5,-(A7)> Δ-4 {[4, 'D6']|[4, 'D5']}
<MI 244c2 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, 'D6']|[4, 'D5']|[4, '(A6-0xc)']}
<Const 0x244c4 0x8.2> Δ-2 {[4, 'D6']|[4, 'D5']|[4, '(A6-0xc)']|[#8]}
<Pointer.fp 0x244c8 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, 'D6']|[4, 'D5']|[4, '(A6-0xc)']|[#8]|[@@-4]}
<Call 0x244cc 0x22a76> {[4, 'D6']|[4, 'D5']|[4, '(A6-0xc)']|[#8]|[@@-4]}
<POP 244d0-244d4 StackAdj> Δ+18 {}
<MI 244d4 TST.B (A6-0x4)> {}
<MI 244d8 BNE 0x2450e> {}
<POP 244da-2450e Naked> Σ0 ↓
<Blob 0x244da [26] @> Δ-26 {[«26""»]}
<POP 244e6-244e8 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x244e8 26> {[«26""»]|[$$error during format sector]}
<Call 0x244fc 0x103e0> {[«26""»]|[$$error during format sector]}
WriteConsoleStringCrLf(str : String)
<POP 24502-24506 StackAdj> Δ+28 {[-2-]}
<MI 24506 CLR.B (A7)> {[-2-]}
<Call 0x24508 0x21b92> {[-2-]}
<POP 2450c-2450e StackAdj> Δ+2 {}
<POP 2450e-24516 Epilogue> Σ0 ←0x2446a
@ 24516
<LVAR 0x008 4(r)>
<LVAR -0x008 4(rw)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(rw)>
<LVAR -0x01c 4(rw)>
<POP 24516-246a8 Body>
<POP 24516-2452c Prologue> Σ0 ↓
<POP 2452c-2453c RegCacheLoad> Σ0 ↓
<POP 2453c-246a0 Naked> Σ0 ↓
<Blob 0x2453c [10] @> Δ-10 {[«10""»]}
<MI 24548 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x2454c 0x1.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##1]}
<Call 0x24550 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##1]}
<POP 24556-24558 StackAdj> Δ+2 {[«10""»]|[4, '(A6+0x8)']|[-2-]}
<MI 24558 MOVE.L (A6+0x8),(A7)> {[«10""»]|[-2-]|[4, '(A6+0x8)']}
<Const 0x2455c 0x1.4> Δ-4 {[«10""»]|[-2-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24560 0x263be> {[«10""»]|[-2-]|[4, '(A6+0x8)']|[##1]}
<POP 24566-24568 StackAdj> Δ+8 {[«10""»]|[-2-]}
<Const 0x24568 0xa.4> Δ-4 {[«10""»]|[-2-]|[##10]}
<Call 0x2456c 0x10360> {[«10""»]|[-2-]|[##10]}
?StringToInt64()
<POP 24572-24574 StackAdj> Δ+8 {[-8-]}
<MI 24574 MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-4-]}
<MI 24576 MOVE.L (A7),(A6-0x18)> {[-4-]}
<POP 24578-2457a StackAdj> Δ-4 {[-8-]}
<MI 2457a MOVE.L 0x29bb2,D4> {[-8-]}
<MI 24580 MOVEQ.L #0x02,D3> {[-8-]}
<Call 0x24582 0x10294> {[-8-]}
?divs_d3_d4
<MI 24588 MOVE.L D4,-(A7)> Δ-4 {[-8-]|[4, 'D4']}
<Call 0x2458a 0x10354> {[-8-]|[4, 'D4']}
Long2Quad(a : Long) : Quad
<POP 24590-24592 StackAdj> Δ+4 {[-8-]}
<MI 24592 MOVE.L (A7)+,(A6-0x14)> Δ+4 {[-4-]}
<MI 24594 MOVE.L (A7),(A6-0x10)> {[-4-]}
<POP 24598-2459a StackAdj> Δ-4 {[-8-]}
<MI 2459a MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x10)']}
<MI 2459e MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 245a0-245a2 StackAdj> Δ-8 {[-8-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[-8-]}
<Blob 0x245a2 [4] 0x29bae> Δ-4 {[-8-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[-8-]|[«4»]}
<Call 0x245a8 0x10354> {[-8-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[-8-]|[«4»]}
Long2Quad(a : Long) : Quad
<POP 245ae-245b0 StackAdj> Δ+4 {[-8-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[-8-]}
<Call 0x245b0 0x1031c> {[-8-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[-8-]}
Multiply(a, b : Quad) : Quad
<POP 245b6-245b8 StackAdj> Δ+16 {[-8-]}
<MI 245b8 MOVE.L (A7)+,(A6-0xc)> Δ+4 {[-4-]}
<MI 245bc MOVE.L (A7),(A6-0x8)> {[-4-]}
<POP 245c0-245c2 StackAdj> Δ-8 {[-12-]}
<MI 245c2 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-12-]|[4, '(A6-0x18)']}
<MI 245c4 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-12-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 245c6 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6-0x8)']}
<MI 245ca MOVE.L (A6-0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6-0x8)']|[4, '(A6-0xc)']}
<Call 0x245ce 0x10320> {[-12-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6-0x8)']|[4, '(A6-0xc)']}
Divide(a, b : Quad) : Quad
<POP 245d4-245d6 StackAdj> Δ+16 {[-12-]}
<Call 0x245d6 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 245dc-245de StackAdj> Δ+8 {[-4-]}
<MI 245de MOVE.L (A7),D7> {[-4-]}
<POP 245e0-245e2 StackAdj> Δ-4 {[-8-]}
<MI 245e2 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x18)']}
<MI 245e4 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 245e6 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6-0x8)']}
<MI 245ea MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6-0x8)']|[4, '(A6-0xc)']}
<Call 0x245ee 0x10358> {[-8-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6-0x8)']|[4, '(A6-0xc)']}
Modulus(a, b : Quad) : Quad
<POP 245f4-245f6 StackAdj> Δ+16 {[-8-]}
<MI 245f6 MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-4-]}
<MI 245f8 MOVE.L (A7),(A6-0x18)> {[-4-]}
<POP 245fa-245fc StackAdj> Δ-8 {[-12-]}
<MI 245fc MOVE.L (A6-0x18),-(A7)> Δ-4 {[-12-]|[4, '(A6-0x18)']}
<MI 245fe MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-12-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 24600 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-12-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6-0x10)']}
<MI 24604 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-12-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x24606 0x10320> {[-12-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
Divide(a, b : Quad) : Quad
<POP 2460c-2460e StackAdj> Δ+16 {[-12-]}
<Call 0x2460e 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 24614-24616 StackAdj> Δ+8 {[-4-]}
<MI 24616 MOVE.L (A7),D6> {[-4-]}
<POP 24618-2461a StackAdj> Δ-4 {[-8-]}
<MI 2461a MOVE.L (A6-0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x18)']}
<MI 2461c MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 2461e MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6-0x10)']}
<MI 24622 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x24624 0x10358> {[-8-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
Modulus(a, b : Quad) : Quad
<POP 2462a-2462c StackAdj> Δ+16 {[-8-]}
<MI 2462c MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-4-]}
<MI 2462e MOVE.L (A7),(A6-0x18)> {[-4-]}
<MI 24630 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']}
<MI 24632 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24634 0x10350> {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
Quad2Long(a : Quad) : Long
<POP 2463a-2463c StackAdj> Δ+8 {[-4-]}
<MI 2463c MOVE.L (A7)+,D5> Δ+4 {}
<MI 2463e ASL.L #0x1,D5> {}
<POP 24640-24642 StackAdj> Δ-4 {[-4-]}
<MI 24642 MOVE.L D7,-(A7)> Δ-4 {[-4-]|[4, 'D7']}
<Call 0x24644 0x102e4> {[-4-]|[4, 'D7']}
Long2String(a : Long) : String
<POP 2464a-2464c StackAdj> Δ+4 {[-4-]}
<MI 2464c MOVEA.L (A7)+,A4> Δ+4 {}
<MI 2464e MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Const 0x24650 0x2c.2> Δ-2 {[4, 'A4']|[#44]}
<Call 0x24652 0x102c0> {[4, 'A4']|[#44]}
AppendChar(MOD b : String; a : char)
<POP 24658-2465a StackAdj> Δ+2 {[4, 'A4']}
<MI 2465a MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']|[4, 'A4']}
<POP 2465c-2465e StackAdj> Δ-4 {[4, 'A4']|[4, 'A4']|[-4-]}
<MI 2465e MOVE.L D6,-(A7)> Δ-4 {[4, 'A4']|[4, 'A4']|[-4-]|[4, 'D6']}
<Call 0x24660 0x102e4> {[4, 'A4']|[4, 'A4']|[-4-]|[4, 'D6']}
Long2String(a : Long) : String
<POP 24666-24668 StackAdj> Δ+4 {[4, 'A4']|[4, 'A4']|[-4-]}
<Call 0x24668 0x102d0> {[4, 'A4']|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 2466e-24670 StackAdj> Δ+8 {[4, 'A4']}
<MI 24670 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 24672 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Const 0x24674 0x2c.2> Δ-2 {[4, 'A4']|[#44]}
<Call 0x24676 0x102c0> {[4, 'A4']|[#44]}
AppendChar(MOD b : String; a : char)
<POP 2467c-2467e StackAdj> Δ+2 {[4, 'A4']}
<MI 2467e MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']|[4, 'A4']}
<POP 24680-24682 StackAdj> Δ-4 {[4, 'A4']|[4, 'A4']|[-4-]}
<MI 24682 MOVE.L D5,-(A7)> Δ-4 {[4, 'A4']|[4, 'A4']|[-4-]|[4, 'D5']}
<Call 0x24684 0x102e4> {[4, 'A4']|[4, 'A4']|[-4-]|[4, 'D5']}
Long2String(a : Long) : String
<POP 2468a-2468c StackAdj> Δ+4 {[4, 'A4']|[4, 'A4']|[-4-]}
<Call 0x2468c 0x102d0> {[4, 'A4']|[4, 'A4']|[-4-]}
StringCat2(a, b : String) : String
<POP 24692-24694 StackAdj> Δ+8 {[4, 'A4']}
<MI 24694 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 24696 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x24698 0x26460> {[4, 'A4']}
<POP 2469e-246a0 StackAdj> Δ+4 {}
<POP 246a0-246a8 Epilogue> Σ0
@ 246a8
<LVAR 0x008 4(r)>
<LVAR -0x004 4(rw)>
<LVAR -0x008 4(rw)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(rw)>
<POP 246a8-247e4 Body>
<POP 246a8-246be Prologue> Σ0 ↓
<POP 246be-246d4 RegCacheLoad> Σ0 ↓
<POP 246d4-247dc Naked> Σ0 ↓
<Blob 0x246d4 [10] @> Δ-10 {[«10""»]}
<MI 246e0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x246e2 0x3.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##3]}
<Call 0x246e6 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##3]}
<POP 246ec-246f0 StackAdj> Δ+10 {[-8-]}
<MI 246f0 MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x246f2 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x246f6 0x21912> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 246fa-246fc StackAdj> Δ+8 {[-4-]}
<MI 246fc MOVE.L (A7),D7> {[-4-]}
<MI 246fe MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x24700 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x24704 0x21912> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 24708-2470a StackAdj> Δ+8 {[-4-]}
<MI 2470a MOVE.L (A7),D6> {[-4-]}
<MI 2470c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2470e 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x24712 0x21912> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 24716-24718 StackAdj> Δ+8 {[-4-]}
<MI 24718 MOVE.L (A7),D5> {[-4-]}
<POP 2471a-2471c StackAdj> Δ-4 {[-8-]}
<MI 2471c MOVE.L 0x29bb2,D4> {[-8-]}
<MI 24722 MOVEQ.L #0x02,D3> {[-8-]}
<Call 0x24724 0x10294> {[-8-]}
?divs_d3_d4
<MI 2472a MOVE.L D4,-(A7)> Δ-4 {[-8-]|[4, 'D4']}
<Call 0x2472c 0x10354> {[-8-]|[4, 'D4']}
Long2Quad(a : Long) : Quad
<POP 2472e-24730 StackAdj> Δ+4 {[-8-]}
<MI 24730 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 24734 MOVE.L (A7),(A6-0xc)> {[-4-]}
<POP 24738-2473a StackAdj> Δ-4 {[-8-]}
<MI 2473a MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 2473e MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 24742-24744 StackAdj> Δ-8 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[-8-]}
<Blob 0x24744 [4] 0x29bae> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[-8-]|[«4»]}
<Call 0x2474a 0x10354> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[-8-]|[«4»]}
Long2Quad(a : Long) : Quad
<POP 2474c-2474e StackAdj> Δ+4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[-8-]}
<Call 0x2474e 0x1031c> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[-8-]}
Multiply(a, b : Quad) : Quad
<POP 24754-24756 StackAdj> Δ+16 {[-8-]}
<MI 24756 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[-4-]}
<MI 2475a MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 2475e-24760 StackAdj> Δ-12 {[-16-]}
<MI 24760 MOVE.L D7,-(A7)> Δ-4 {[-16-]|[4, 'D7']}
<Call 0x24762 0x10354> {[-16-]|[4, 'D7']}
Long2Quad(a : Long) : Quad
<MI 24764 MOVE.L (A6-0x4),(A7)> {[-16-]|[4, '(A6-0x4)']}
<MI 24768 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<Call 0x2476c 0x1031c> {[-16-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']}
Multiply(a, b : Quad) : Quad
<POP 24772-24774 StackAdj> Δ+16 {[-8-]}
<MI 24774 MOVE.L (A7)+,(A6-0x18)> Δ+4 {[-4-]}
<MI 24776 MOVE.L (A7),(A6-0x14)> {[-4-]}
<POP 24778-2477a StackAdj> Δ-4 {[-8-]}
<MI 2477a MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']}
<MI 2477c MOVE.L (A6-0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
<POP 2477e-24780 StackAdj> Δ-16 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[-16-]}
<MI 24780 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[-16-]|[4, 'D6']}
<Call 0x24782 0x10354> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[-16-]|[4, 'D6']}
Long2Quad(a : Long) : Quad
<MI 24784 MOVE.L (A6-0xc),(A7)> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[-16-]|[4, '(A6-0xc)']}
<MI 24788 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[-16-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x2478c 0x1031c> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[-16-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
Multiply(a, b : Quad) : Quad
<POP 24792-24794 StackAdj> Δ+16 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[-8-]}
<Call 0x24794 0x10314> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[-8-]}
Add(a, b : Quad) : Quad
<POP 2479a-2479c StackAdj> Δ+16 {[-8-]}
<MI 2479c MOVE.L (A7)+,(A6-0x18)> Δ+4 {[-4-]}
<MI 2479e MOVE.L (A7),(A6-0x14)> {[-4-]}
<POP 247a0-247a2 StackAdj> Δ-4 {[-8-]}
<MI 247a2 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']}
<MI 247a4 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
<POP 247a6-247a8 StackAdj> Δ-8 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[-8-]}
<MI 247a8 MOVE.L D5,D4> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[-8-]}
<MI 247aa MOVEQ.L #0x02,D3> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[-8-]}
<Call 0x247ac 0x10294> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[-8-]}
?divs_d3_d4
<MI 247b2 MOVE.L D4,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[-8-]|[4, 'D4']}
<Call 0x247b4 0x10354> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[-8-]|[4, 'D4']}
Long2Quad(a : Long) : Quad
<POP 247b6-247b8 StackAdj> Δ+4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[-8-]}
<Call 0x247b8 0x10314> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[-8-]}
Add(a, b : Quad) : Quad
<POP 247be-247c0 StackAdj> Δ+16 {[-8-]}
<MI 247c0 MOVE.L (A7)+,(A6-0x18)> Δ+4 {[-4-]}
<MI 247c2 MOVE.L (A7),(A6-0x14)> {[-4-]}
<MI 247c4 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x14)']}
<MI 247c6 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
<Const 0x247c8 0xa.4> Δ-4 {[-4-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[##10]}
<Call 0x247cc 0x1035c> {[-4-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[##10]}
Quad2String(a : Quad; radix : Long ) : String
<POP 247d2-247d4 StackAdj> Δ+12 {[-4-]}
<Call 0x247d4 0x26460> {[-4-]}
<POP 247da-247dc StackAdj> Δ+4 {}
<POP 247dc-247e4 Epilogue> Σ0
@ 247e4
<POP 247e4-2491c Body>
<POP 247e4-247fa Prologue> Σ0 ↓
<POP 247fa-24806 RegCacheLoad> Σ0 ↓
<POP 24806-2480a Naked> Σ0 ↓
<MI 24806 MOVEQ.L #0x00,D7> {}
<MI 24808 MOVEQ.L #0x00,D6> {}
<POP 2480a-2482e Naked> Σ0 ↓ →0x248c8 ←0x248c8
<POP 0x2480a LimitCheck 0x0 ≤ D6 ≤ 0x1ff> {}
<MI 24814 MOVE.L D6,D0> {}
<MI 24816 ASL.L #0x1,D0> {}
<MI 24818 LEA.L 0x29190,A0> {}
<MI 2481e LEA.L (A0+D0.L),A0> {}
<MI 24822 MOVE.W (A0+0x616),D0> {}
<MI 24826 CMP.W (A0+0x216),D0> {}
<MI 2482a BEQ 0x248c8> {}
<POP 2482e-248c8 Naked> Σ0 ↓
<MI 2482e ADDQ.L #0x1,D7> {}
<Blob 0x24830 [4] @> Δ-4 {[«4""»]}
<Blob 0x24834 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x24838 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2483c [22] @> Δ-22 {[«4""»]|[«4""»]|[«4""»]|[«22""»]}
<Blob 0x2484e [26] @> Δ-26 {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]}
<POP 2485a-2485c StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-8-]}
<Lit 0x2485c 12> {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[$$At location_]}
<MI 24868 MOVE.L D6,(A7)> {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']}
<POP 24866-24868 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-8-]}
<Const 0x2486a 0x4.4> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-8-]|[##4]}
<Call 0x2486c 0x102e8> {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-8-]|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 24872-24874 StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-8-]}
<Lit 0x24874 21> {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]}
<POP 24880-24882 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]|[-4-]}
<MI 24882 CLR.L D0> {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]|[-4-]}
<MI 24884 MOVE.W (A0+0x616),D0> {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]|[-4-]}
<MI 24888 MOVE.L D0,-(A7)> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]|[-4-]|[4, 'D0']}
<Const 0x2488a 0x4.4> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]|[-4-]|[4, 'D0']|[##4]}
<Call 0x2488c 0x102e8> {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]|[-4-]|[4, 'D0']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 24892-24894 StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]|[-4-]|[4, 'D0']}
<Lit 0x24894 26> {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]|[-4-]|[$$ but the write buffer has_]}
<POP 248a0-248a2 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]|[-4-]|[$$ but the write buffer has_]|[-4-]}
<MI 248a2 CLR.L D0> {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]|[-4-]|[$$ but the write buffer has_]|[-4-]}
<MI 248a4 MOVE.W (A0+0x216),D0> {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]|[-4-]|[$$ but the write buffer has_]|[-4-]}
<MI 248a8 MOVE.L D0,-(A7)> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]|[-4-]|[$$ but the write buffer has_]|[-4-]|[4, 'D0']}
<Const 0x248aa 0x4.4> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]|[-4-]|[$$ but the write buffer has_]|[-4-]|[4, 'D0']|[##4]}
<Call 0x248ac 0x102e8> {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]|[-4-]|[$$ but the write buffer has_]|[-4-]|[4, 'D0']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 248b2-248b4 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]|[-4-]|[$$ but the write buffer has_]|[-4-]}
<Call 0x248b4 0x102e0> {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]|[4, 'D6']|[-4-]|[$$ the read buffer has_]|[-4-]|[$$ but the write buffer has_]|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 248ba-248be StackAdj> Δ+24 {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]}
<Call 0x248be 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«22""»]|[«26""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 248c4-248c8 StackAdj> Δ+64 {}
<POP 248c8-248d4 Naked> Σ0 ↓ →0x2480a ←0x2480a
<MI 248c8 ADDQ.L #0x1,D6> {}
<MI 248ca CMPI.L #0x000001ff,D6> {}
<MI 248d0 BLE 0x2480a> {}
<POP 248d4-248d8 Naked> Σ0 ↓ →0x24914
<MI 248d4 TST.L D7> {}
<MI 248d6 BEQ 0x24914> {}
<POP 248d8-24914 Naked> Σ0 ↓
<Blob 0x248d8 [28] @> Δ-28 {[«28""»]}
<POP 248ea-248ec StackAdj> Δ-8 {[«28""»]|[-8-]}
<MI 248ec MOVE.L D7,-(A7)> Δ-4 {[«28""»]|[-8-]|[4, 'D7']}
<Call 0x248ee 0x102e4> {[«28""»]|[-8-]|[4, 'D7']}
Long2String(a : Long) : String
<Lit 0x248f4 27> {[«28""»]|[-8-]|[$$ location(s) don't compare.]}
<Call 0x24902 0x102d0> {[«28""»]|[-8-]|[$$ location(s) don't compare.]}
StringCat2(a, b : String) : String
<POP 24908-2490a StackAdj> Δ+8 {[«28""»]|[-4-]}
<Call 0x2490a 0x103e0> {[«28""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24910-24914 StackAdj> Δ+32 {}
<POP 24914-2491c Epilogue> Σ0 ←0x248d4
@ 2491c
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(rw)>
<LVAR -0x00c 4(rw)>
<POP 2491c-24b14 Body> Δ-8
<POP 2491c-24932 Prologue> Σ0 ↓
<POP 24932-24948 RegCacheLoad> Σ0 ↓
<POP 24948-24996 Naked> Σ0 ↓ →0x2499a
<Blob 0x24948 [10] @> Δ-10 {[«10""»]}
<MI 24954 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x24956 0x3.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##3]}
<Call 0x2495a 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##3]}
<POP 24960-24964 StackAdj> Δ+10 {[-8-]}
<MI 24964 MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x24966 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2496a 0x21912> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2496e-24970 StackAdj> Δ+8 {[-4-]}
<MI 24970 MOVE.L (A7),D6> {[-4-]}
<MI 24972 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x24974 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x24978 0x21912> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 2497c-2497e StackAdj> Δ+8 {[-4-]}
<MI 2497e MOVE.L (A7),D5> {[-4-]}
<MI 24980 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x24982 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x24986 0x21912> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 2498a-2498c StackAdj> Δ+8 {[-4-]}
<MI 2498c MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 2498e CMP.L 0x29baa,D6> {}
<MI 24994 BGE 0x2499a> {}
<POP 24996-2499a Naked> Σ0 ↓
<Call 0x24996 0x23320> {}
<POP 2499a-249a2 Naked> Σ0 ↓ →0x249cc ←0x24948
<MI 2499a MOVE.L (A6-0xc),D0> {}
<MI 2499c BTST.L #0x0,D0> {}
<MI 249a0 BEQ 0x249cc> {}
<POP 249a2-249cc Naked> Σ0 ↓
<Blob 0x249a2 [34] @> Δ-34 {[«34""»]}
<POP 249ae-249b0 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x249b0 34> {[«34""»]|[$$Must specify an EVEN sector number]}
<Call 0x249c2 0x25696> {[«34""»]|[$$Must specify an EVEN sector number]}
<POP 249c8-249cc StackAdj> Δ+38 {}
<POP 249cc-249ce Naked> Σ0 ↓ ←0x2499a
<MI 249cc MOVEQ.L #0x00,D7> {}
<POP 249ce-249fe Naked> Σ0 ↓ →0x249ce ←0x249ce
<POP 0x249ce LimitCheck 0x0 ≤ D7 ≤ 0x1ff> {}
<MI 249d4 MOVE.L D7,D0> {}
<MI 249d6 ASL.L #0x1,D0> {}
<MI 249d8 LEA.L 0x29190,A0> {}
<MI 249de LEA.L (A0+D0.L),A0> {}
<MI 249e2 CLR.L D0> {}
<MI 249e4 MOVE.W (A0+0x216),D0> {}
<MI 249e8 ADDQ.L #0x1,D0> {}
<POP 0x249ea LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 249f4 MOVE.W D0,(A0+0x216)> {}
<MI 249f8 ADDQ.L #0x1,D7> {}
<MI 249fa CMP.L #0x1ff,D7> {}
<MI 249fc BLE 0x249ce> {}
<POP 249fe-24a14 Naked> Σ0 ↓ →0x24a4c
<MI 249fe MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 24a00 MOVE.L D5,-(A7)> Δ-4 {[4, 'D6']|[4, 'D5']}
<MI 24a02 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, 'D6']|[4, 'D5']|[4, '(A6-0xc)']}
<Const 0x24a04 0x3.2> Δ-2 {[4, 'D6']|[4, 'D5']|[4, '(A6-0xc)']|[#3]}
<Pointer.fp 0x24a08 <LVAR -0x004 @ 1(rw)>> Δ-4 {[4, 'D6']|[4, 'D5']|[4, '(A6-0xc)']|[#3]|[@@-4]}
<Call 0x24a0a 0x22a76> {[4, 'D6']|[4, 'D5']|[4, '(A6-0xc)']|[#3]|[@@-4]}
<POP 24a0e-24a10 StackAdj> Δ+18 {}
<MI 24a10 TST.B (A6-0x4)> {}
<MI 24a12 BNE 0x24a4c> {}
<POP 24a14-24a4c Naked> Σ0 ↓
<Blob 0x24a14 [24] @> Δ-24 {[«24""»]}
<POP 24a26-24a28 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x24a28 23> {[«24""»]|[$$Error during disk WRITE]}
<Call 0x24a3a 0x103e0> {[«24""»]|[$$Error during disk WRITE]}
WriteConsoleStringCrLf(str : String)
<POP 24a40-24a44 StackAdj> Δ+26 {[-2-]}
<MI 24a44 CLR.B (A7)> {[-2-]}
<Call 0x24a46 0x21b92> {[-2-]}
<POP 24a4a-24a4c StackAdj> Δ+2 {}
<POP 24a4c-24a62 Naked> Σ0 ↓ →0x24a94 ←0x249fe
<MI 24a4c MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 24a4e MOVE.L D5,-(A7)> Δ-4 {[4, 'D6']|[4, 'D5']}
<MI 24a50 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, 'D6']|[4, 'D5']|[4, '(A6-0xc)']}
<Const 0x24a52 0x2.2> Δ-2 {[4, 'D6']|[4, 'D5']|[4, '(A6-0xc)']|[#2]}
<Pointer.fp 0x24a56 <LVAR -0x004 @ 1(rw)>> Δ-4 {[4, 'D6']|[4, 'D5']|[4, '(A6-0xc)']|[#2]|[@@-4]}
<Call 0x24a58 0x22a76> {[4, 'D6']|[4, 'D5']|[4, '(A6-0xc)']|[#2]|[@@-4]}
<POP 24a5c-24a5e StackAdj> Δ+18 {}
<MI 24a5e TST.B (A6-0x4)> {}
<MI 24a60 BNE 0x24a94> {}
<POP 24a62-24a94 Naked> Σ0 ↓
<Blob 0x24a62 [22] @> Δ-22 {[«22""»]}
<POP 24a6e-24a70 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x24a70 22> {[«22""»]|[$$Error during disk READ]}
<Call 0x24a82 0x103e0> {[«22""»]|[$$Error during disk READ]}
WriteConsoleStringCrLf(str : String)
<POP 24a88-24a8c StackAdj> Δ+24 {[-2-]}
<MI 24a8c CLR.B (A7)> {[-2-]}
<Call 0x24a8e 0x21b92> {[-2-]}
<POP 24a92-24a94 StackAdj> Δ+2 {}
<POP 24a94-24a98 Naked> Σ0 ↓ ←0x24a4c
<MI 24a94 MOVE.B #0x01,(A6-0x4)> {}
<MI 24a96 MOVEQ.L #0x00,D7> {}
<POP 24a98-24ab0 Naked> Σ0 Δ-4 ↓ →0x24ab4 ←0x24ad0
<MI 24a98 MOVEQ.L #0x00,D0> {}
<POP 0x24a9a LimitCheck 0x0 ≤ D7 ≤ 0x1ff> {}
<MI 24aa0 MOVE.L D7,D1> {}
<MI 24aa2 ASL.L #0x1,D1> {}
<MI 24aa4 LEA.L 0x29190,A0> {}
<MI 24aaa MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 24aac TST.B (A6-0x4)> {[4, 'A0']}
<MI 24aae BNE 0x24ab4> {[4, 'A0']}
<POP 24ab0-24ab4 Naked> Σ-4 Δ+4 →0x24ad0
<POP 24ab0-24ab2 StackAdj> Δ+4 {}
<MI 24ab2 BRA 0x24ad0> {}
<POP 24ab4-24ac8 Naked> Σ-4 ↓ →0x24acc ←0x24a98
<MI 24ab4 LEA.L (A0+D1.L),A0> {[-4-]}
<MI 24ab8 MOVEA.L (A7),A1> {[-4-]}
<MI 24aba LEA.L (A1+D1.L),A1> {[-4-]}
<MI 24abe MOVE.W (A0+0x616),D1> {[-4-]}
<MI 24ac2 CMP.W (A1+0x216),D1> {[-4-]}
<MI 24ac6 BEQ 0x24acc> {[-4-]}
<POP 24ac8-24acc Naked> Σ-4 Δ+4 →0x24ad0
<POP 24ac8-24aca StackAdj> Δ+4 {}
<MI 24aca BRA 0x24ad0> {}
<POP 24acc-24ad0 Naked> Σ-4 Δ+4 ↓ ←0x24ab4
<MI 24acc ADDQ.B #0x1,D0> {[-4-]}
<POP 24ace-24ad0 StackAdj> Δ+4 {}
<POP 24ad0-24ad8 Naked> Σ0 ↓ →0x24a98 ←0x24ab0 ←0x24ac8
<MI 24ad0 MOVE.B D0,(A6-0x4)> {}
<MI 24ad2 ADDQ.L #0x1,D7> {}
<MI 24ad4 CMP.L #0x1ff,D7> {}
<MI 24ad6 BLE 0x24a98> {}
<POP 24ad8-24adc Naked> Σ0 ↓ →0x24b0c
<MI 24ad8 TST.B (A6-0x4)> {}
<MI 24ada BNE 0x24b0c> {}
<POP 24adc-24b0c Naked> Σ0 ↓
<Blob 0x24adc [48] @> Δ-48 {[«48""»]}
<POP 24aee-24af0 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x24af0 47> {[«48""»]|[$$Data compare error, VERIFY to see difference(s)]}
<Call 0x24b02 0x25696> {[«48""»]|[$$Data compare error, VERIFY to see difference(s)]}
<POP 24b08-24b0c StackAdj> Δ+52 {}
<POP 24b0c-24b14 Epilogue> Σ0 ←0x24ad8
@ 24b14
<LVAR 0x008 4(r)>
<POP 24b14-24bd8 Body>
<POP 24b14-24b2a Prologue> Σ0 ↓
<POP 24b2a-24b2e RegCacheLoad> Σ0 ↓
<POP 24b2e-24b6e Naked> Σ0 ↓ →0x24b9e
<Blob 0x24b2e [10] @> Δ-10 {[«10""»]}
<MI 24b3a MOVE.L (A6+0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6+0x8)']}
<Const 0x24b3c 0x2.4> Δ-4 {[«10""»]|[4, '(A6+0x8)']|[##2]}
<Call 0x24b40 0x25ad8> {[«10""»]|[4, '(A6+0x8)']|[##2]}
<POP 24b46-24b4a StackAdj> Δ+10 {[-8-]}
<MI 24b4a MOVE.L (A6+0x8),(A7)> {[-4-]|[4, '(A6+0x8)']}
<Const 0x24b4c 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x24b50 0x2642c> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 24b56-24b58 StackAdj> Δ+8 {[-4-]}
<MI 24b58 MOVE.L (A7),D7> {[-4-]}
<MI 24b5a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x24b5c 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x24b60 0x2642c> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 24b66-24b68 StackAdj> Δ+8 {[-4-]}
<MI 24b68 MOVE.L (A7)+,D6> Δ+4 {}
<MI 24b6a TST.L D7> {}
<MI 24b6c BLT 0x24b9e> {}
<POP 24b6e-24b76 Naked> Σ0 ↓ →0x24b9e
<MI 24b6e CMPI.L #0x000001ff,D7> {}
<MI 24b74 BGT 0x24b9e> {}
<POP 24b76-24b9e Naked> Σ0 →0x24bd0
<POP 0x24b76 LimitCheck 0x0 ≤ D7 ≤ 0x1ff> {}
<MI 24b80 MOVE.L D7,D0> {}
<MI 24b82 ASL.L #0x1,D0> {}
<MI 24b84 LEA.L 0x29190,A0> {}
<MI 24b8a LEA.L (A0+D0.L),A0> {}
<POP 0x24b8e LimitCheck 0x0 ≤ D6 ≤ 0xffff> {}
<MI 24b98 MOVE.W D6,(A0+0x216)> {}
<MI 24b9c BRA 0x24bd0> {}
<POP 24b9e-24bd0 Naked> Σ0 ↓ ←0x24b2e ←0x24b6e
<Blob 0x24b9e [38] @> Δ-38 {[«38""»]}
<POP 24bb0-24bb2 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x24bb2 37> {[«38""»]|[$$1st argument to EDIT must be 0 .. 1FF]}
<Call 0x24bc6 0x25696> {[«38""»]|[$$1st argument to EDIT must be 0 .. 1FF]}
<POP 24bcc-24bd0 StackAdj> Δ+42 {}
<POP 24bd0-24bd8 Epilogue> Σ0 ←0x24b76
@ 24bd8
<POP 24bd8-24c90 Body>
<POP 24bd8-24bee Prologue> Σ0 ↓
<POP 24bee-24bfc RegCacheLoad> Σ0 ↓
<POP 24bfc-24c38 Naked> Σ0 ↓ →0x24c62
<Blob 0x24bfc [18] @> Δ-18 {[«18""»]}
<POP 24c0c-24c0e StackAdj> Δ-8 {[«18""»]|[-8-]}
<Lit 0x24c0e 17> {[«18""»]|[-4-]|[$$Enter PASSWORD :_]}
<Const 0x24c1a 0x0.4> Δ-4 {[«18""»]|[-4-]|[$$Enter PASSWORD :_]|[##0]}
<Const 0x24c1e 0x7d00.4> Δ-4 {[«18""»]|[-4-]|[$$Enter PASSWORD :_]|[##0]|[##32000]}
<Call 0x24c22 0x103ec> {[«18""»]|[-4-]|[$$Enter PASSWORD :_]|[##0]|[##32000]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 24c28-24c2c StackAdj> Δ+12 {[«18""»]|[-4-]}
<MI 24c2c MOVE.L (A7)+,D7> Δ+4 {[«18""»]}
<POP 24c2e-24c30 StackAdj> Δ+18 {}
<MI 24c30 CMPI.L #0x000003f8,D7> {}
<MI 24c36 BNE 0x24c62> {}
<POP 24c38-24c62 Naked> Σ0 →0x24c88
<Blob 0x24c38 [18] @> Δ-18 {[«18""»]}
<POP 24c44-24c46 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x24c46 18> {[«18""»]|[$$Privileges granted]}
<Call 0x24c52 0x103e0> {[«18""»]|[$$Privileges granted]}
WriteConsoleStringCrLf(str : String)
<POP 24c58-24c5a StackAdj> Δ+22 {}
<MI 24c5a MOVE.B #0x01,0x29bb6> {}
<MI 24c60 BRA 0x24c88> {}
<POP 24c62-24c88 Naked> Σ0 ↓ ←0x24bfc
<Blob 0x24c62 [18] @> Δ-18 {[«18""»]}
<POP 24c72-24c74 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x24c74 17> {[«18""»]|[$$Privileges denied]}
<Call 0x24c80 0x103e0> {[«18""»]|[$$Privileges denied]}
WriteConsoleStringCrLf(str : String)
<POP 24c86-24c88 StackAdj> Δ+22 {}
<POP 24c88-24c90 Epilogue> Σ0 ←0x24c38
@ 24c90
<LVAR 0x00c 1(w)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<POP 24c90-24d1e Body>
<POP 24c90-24ca6 Prologue> Σ0 ↓
<POP 24ca6-24cb0 RegCacheLoad> Σ0 ↓
<POP 24cb0-24cb6 Naked> Σ0 ↓
<MI 24cb0 MOVE.B #0x1b,(A6+0xc)> {}
<MI 24cb4 MOVEQ.L #0x00,D7> {}
<POP 24cb6-24d0a Naked> Σ0 ↓ →0x24d10 ←0x24d10
<MI 24cb6 MOVE.B D7,D0> {}
<MI 24cb8 EXTB.W D0> {}
<MI 24cba MULS.W #0x0a,D0> {}
<MI 24cbc LEA.L 0x214c7,A0> {}
<Blob 0x24cc0 [10] (A0+D0.W)> Δ-10 {[«10»]}
<POP 24cd0-24cd2 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x24cd2> {[«10»]|[$$…]}
<Pointer.sp 0x24cd2 4> Δ-4
<Const 0x24cd6 0x1.2> Δ-2
<Const 0x24cd8 0xa.2> Δ-2
<Call 0x24cda 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 24ce0-24ce2 StackAdj> Δ+8
<MI 24ce2 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«10»]}
<POP 24ce4-24ce6 StackAdj> Δ+4 {[-6-]}
<MI 24ce6 MOVE.L (A6+0x8),(A7)> {[-2-]|[4, '(A6+0x8)']}
<MI 24cea MOVE.L (A6-0x6),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x24cec 0x102c8> {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0x6)']}
StringEqual(a, b : String) : Byte
<POP 24cf2-24cf4 StackAdj> Δ+8 {[-2-]}
<MI 24cf4 MOVE.B (A7)+,D0> Δ+2 {}
<MI 24cf6 EXTB.W D0> {}
<POP 0x24cf8 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 24cfa MOVE.B D0,D6> {}
<Pointer.fp 0x24cfc <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x24cfe 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 24d04-24d06 StackAdj> Δ+4 {}
<MI 24d06 TST.B D6> {}
<MI 24d08 BEQ 0x24d10> {}
<POP 24d0a-24d10 Naked> Σ0 →0x24d16
<MI 24d0a MOVE.B D7,(A6+0xc)> {}
<MI 24d0e BRA 0x24d16> {}
<POP 24d10-24d16 Naked> Σ0 ↓ →0x24cb6 ←0x24cb6
<MI 24d10 ADDQ.B #0x1,D7> {}
<MI 24d12 CMP.B #0x1b,D7> {}
<MI 24d14 BLE 0x24cb6> {}
<POP 24d16-24d1e Epilogue> Σ0 ←0x24d0a
@ 24d1e
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24d1e-24f94 Body> Δ+36
<POP 24d1e-24d34 Prologue> Σ0 ↓
<POP 24d34-24d44 RegCacheLoad> Σ0 ↓
<POP 24d44-24d62 Naked> Σ0 ↓ →0x24f8a
<MI 24d44 MOVEA.L (A6+0x8),A0> {}
<MI 24d48 MOVE.B #0x01,(A0)> {}
<POP 24d4a-24d4c StackAdj> Δ-2 {[-2-]}
<MI 24d4c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x10)']}
<Call 0x24d50 0x24c90> {[-2-]|[4, '(A6+0x10)']}
<POP 24d54-24d56 StackAdj> Δ+4 {[-2-]}
<MI 24d56 MOVE.B (A7)+,D0> Δ+2 {}
<MI 24d58 EXTB.W D0> {}
<MI 24d5a CMPI.W #0x001a,D0> {}
<MI 24d5e BHI 0x24f8a> {}
<POP 24d62-24d6c Naked> Σ0 →0x24da2 →0x24dae →0x24db6 →0x24dbe →0x24dc6 →0x24dce →0x24dd6 →0x24dde →0x24de6 →0x24df2 →0x24e0a →0x24e12 →0x24e1a →0x24e2c →0x24e22 →0x24e36 →0x24e4e →0x24e58 →0x24e62 →0x24e76 →0x24e8a →0x24eaa →0x24ece →0x24ef2 →0x24f18 →0x24f3e →0x24f64
<MI 24d62 ADD.W D0,D0> {}
<MI 24d64 SWITCH D0.W> {}
<POP 24da2-24da8 Naked> Σ0 Δ-4 ↓ ←0x24d62
<MI 24da2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24da4 0x22f6a> {[4, '(A6+0xc)']}
<POP 24da8-24dae Naked> Σ-4 Δ+4 →0x24f8c ←0x24dae ←0x24dc6 ←0x24dce ←0x24dd6 ←0x24e0a ←0x24e12 ←0x24e2c ←0x24e4e ←0x24e58
<POP 24da8-24daa StackAdj> Δ+4 {}
<MI 24daa BRA 0x24f8c> {}
<POP 24dae-24db6 Naked> Σ0 Δ-4 →0x24da8 ←0x24d62
<MI 24dae MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24db0 0x22fce> {[4, '(A6+0xc)']}
<MI 24db4 BRA 0x24da8> {[4, '(A6+0xc)']}
<POP 24db6-24dbe Naked> Σ0 →0x24f8c ←0x24d62
<Call 0x24db6 0x2305a> {}
<MI 24dba BRA 0x24f8c> {}
<POP 24dbe-24dc6 Naked> Σ0 →0x24f8c ←0x24d62
<Call 0x24dbe 0x2328e> {}
<MI 24dc2 BRA 0x24f8c> {}
<POP 24dc6-24dce Naked> Σ0 Δ-4 →0x24da8 ←0x24d62
<MI 24dc6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24dc8 0x232de> {[4, '(A6+0xc)']}
<MI 24dcc BRA 0x24da8> {[4, '(A6+0xc)']}
<POP 24dce-24dd6 Naked> Σ0 Δ-4 →0x24da8 ←0x24d62
<MI 24dce MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24dd0 0x23442> {[4, '(A6+0xc)']}
<MI 24dd4 BRA 0x24da8> {[4, '(A6+0xc)']}
<POP 24dd6-24dde Naked> Σ0 Δ-4 →0x24da8 ←0x24d62
<MI 24dd6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24dd8 0x2350a> {[4, '(A6+0xc)']}
<MI 24ddc BRA 0x24da8> {[4, '(A6+0xc)']}
<POP 24dde-24de6 Naked> Σ0 →0x24f8c ←0x24d62
<Call 0x24dde 0x247e4> {}
<MI 24de2 BRA 0x24f8c> {}
<POP 24de6-24df2 Naked> Σ0 →0x24f8c ←0x24d62
<MI 24de6 CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x24de8 0x21b92> {[#0]}
<POP 24dec-24dee StackAdj> Δ+2 {}
<MI 24dee BRA 0x24f8c> {}
<POP 24df2-24dfa Naked> Σ0 ↓ →0x24dfe ←0x24d62
<POP 24df2-24df4 StackAdj> Δ-2 {[-2-]}
<Call 0x24df4 0x215e0> {[-2-]}
<MI 24df6 TST.B (A7)+> Δ+2 {}
<MI 24df8 BEQ 0x24dfe> {}
<POP 24dfa-24dfe Naked> Σ0 →0x24e06
<MI 24dfa CLR.B (A0)> {}
<MI 24dfc BRA 0x24e06> {}
<POP 24dfe-24e06 Naked> Σ0 ↓ ←0x24df2
<Const 0x24dfe 0x1.2> Δ-2 {[#1]}
<Call 0x24e00 0x21b92> {[#1]}
<POP 24e04-24e06 StackAdj> Δ+2 {}
<POP 24e06-24e0a Naked> Σ0 →0x24f8c ←0x24dfa
<MI 24e06 BRA 0x24f8c> {}
<POP 24e0a-24e12 Naked> Σ0 Δ-4 →0x24da8 ←0x24d62
<MI 24e0a MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24e0c 0x24516> {[4, '(A6+0xc)']}
<MI 24e10 BRA 0x24da8> {[4, '(A6+0xc)']}
<POP 24e12-24e1a Naked> Σ0 Δ-4 →0x24da8 ←0x24d62
<MI 24e12 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24e14 0x246a8> {[4, '(A6+0xc)']}
<MI 24e18 BRA 0x24da8> {[4, '(A6+0xc)']}
<POP 24e1a-24e22 Naked> Σ0 →0x24f8c ←0x24d62
<Call 0x24e1a 0x239b6> {}
<MI 24e1e BRA 0x24f8c> {}
<POP 24e22-24e2c Naked> Σ0 →0x24f8c ←0x24d62
<MI 24e22 CLR.L 0x29baa> {}
<MI 24e28 BRA 0x24f8c> {}
<POP 24e2c-24e36 Naked> Σ0 Δ-4 →0x24da8 ←0x24d62
<MI 24e2c MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24e2e 0x24b14> {[4, '(A6+0xc)']}
<MI 24e32 BRA 0x24da8> {[4, '(A6+0xc)']}
<POP 24e36-24e3e Naked> Σ0 ↓ →0x24e42 ←0x24d62
<POP 24e36-24e38 StackAdj> Δ-2 {[-2-]}
<Call 0x24e38 0x215e0> {[-2-]}
<MI 24e3a TST.B (A7)+> Δ+2 {}
<MI 24e3c BEQ 0x24e42> {}
<POP 24e3e-24e42 Naked> Σ0 →0x24e4a
<MI 24e3e CLR.B (A0)> {}
<MI 24e40 BRA 0x24e4a> {}
<POP 24e42-24e4a Naked> Σ0 ↓ ←0x24e36
<MI 24e42 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24e44 0x24282> {[4, '(A6+0xc)']}
<POP 24e48-24e4a StackAdj> Δ+4 {}
<POP 24e4a-24e4e Naked> Σ0 →0x24f8c ←0x24e3e
<MI 24e4a BRA 0x24f8c> {}
<POP 24e4e-24e58 Naked> Σ0 Δ-4 →0x24da8 ←0x24d62
<MI 24e4e MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24e50 0x23794> {[4, '(A6+0xc)']}
<MI 24e54 BRA 0x24da8> {[4, '(A6+0xc)']}
<POP 24e58-24e62 Naked> Σ0 Δ-4 →0x24da8 ←0x24d62
<MI 24e58 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24e5a 0x2491c> {[4, '(A6+0xc)']}
<MI 24e5e BRA 0x24da8> {[4, '(A6+0xc)']}
<POP 24e62-24e66 Naked> Σ0 ↓ →0x24e70 ←0x24d62
<MI 24e62 TST.B 0x29bb6> {}
<MI 24e64 BEQ 0x24e70> {}
<POP 24e66-24e70 Naked> Σ0 →0x24e72
<MI 24e66 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24e68 0x23ba6> {[4, '(A6+0xc)']}
<POP 24e6c-24e6e StackAdj> Δ+4 {}
<MI 24e6e BRA 0x24e72> {}
<POP 24e70-24e72 Naked> Σ0 ↓ ←0x24e62
<MI 24e70 CLR.B (A0)> {}
<POP 24e72-24e76 Naked> Σ0 →0x24f8c ←0x24e66
<MI 24e72 BRA 0x24f8c> {}
<POP 24e76-24e7a Naked> Σ0 ↓ →0x24e84 ←0x24d62
<MI 24e76 TST.B 0x29bb6> {}
<MI 24e78 BEQ 0x24e84> {}
<POP 24e7a-24e84 Naked> Σ0 →0x24e86
<MI 24e7a MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24e7c 0x2409c> {[4, '(A6+0xc)']}
<POP 24e80-24e82 StackAdj> Δ+4 {}
<MI 24e82 BRA 0x24e86> {}
<POP 24e84-24e86 Naked> Σ0 ↓ ←0x24e76
<MI 24e84 CLR.B (A0)> {}
<POP 24e86-24e8a Naked> Σ0 →0x24f8c ←0x24e7a
<MI 24e86 BRA 0x24f8c> {}
<POP 24e8a-24e92 Naked> Σ0 ↓ →0x24e9e ←0x24d62
<POP 24e8a-24e8c StackAdj> Δ-2 {[-2-]}
<Call 0x24e8c 0x215e0> {[-2-]}
<MI 24e8e TST.B (A7)+> Δ+2 {}
<MI 24e90 BNE 0x24e9e> {}
<POP 24e92-24e9e Naked> Σ0 ↓ →0x24ea2
<POP 24e92-24e94 StackAdj> Δ-2 {[-2-]}
<Call 0x24e94 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 24e9a TST.B (A7)+> Δ+2 {}
<MI 24e9c BEQ 0x24ea2> {}
<POP 24e9e-24ea2 Naked> Σ0 →0x24ea6 ←0x24e8a
<MI 24e9e CLR.B (A0)> {}
<MI 24ea0 BRA 0x24ea6> {}
<POP 24ea2-24ea6 Naked> Σ0 ↓ ←0x24e92
<Call 0x24ea2 0x24bd8> {}
<POP 24ea6-24eaa Naked> Σ0 →0x24f8c ←0x24e9e
<MI 24ea6 BRA 0x24f8c> {}
<POP 24eaa-24eb2 Naked> Σ0 ↓ →0x24ebe ←0x24d62
<POP 24eaa-24eac StackAdj> Δ-2 {[-2-]}
<Call 0x24eac 0x215e0> {[-2-]}
<MI 24eae TST.B (A7)+> Δ+2 {}
<MI 24eb0 BNE 0x24ebe> {}
<POP 24eb2-24ebe Naked> Σ0 ↓ →0x24ec2
<POP 24eb2-24eb4 StackAdj> Δ-2 {[-2-]}
<Call 0x24eb4 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 24eba TST.B (A7)+> Δ+2 {}
<MI 24ebc BEQ 0x24ec2> {}
<POP 24ebe-24ec2 Naked> Σ0 →0x24eca ←0x24eaa
<MI 24ebe CLR.B (A0)> {}
<MI 24ec0 BRA 0x24eca> {}
<POP 24ec2-24eca Naked> Σ0 ↓ ←0x24eb2
<MI 24ec2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24ec4 0x2360e> {[4, '(A6+0xc)']}
<POP 24ec8-24eca StackAdj> Δ+4 {}
<POP 24eca-24ece Naked> Σ0 →0x24f8c ←0x24ebe
<MI 24eca BRA 0x24f8c> {}
<POP 24ece-24ed6 Naked> Σ0 ↓ →0x24ee2 ←0x24d62
<POP 24ece-24ed0 StackAdj> Δ-2 {[-2-]}
<Call 0x24ed0 0x215e0> {[-2-]}
<MI 24ed2 TST.B (A7)+> Δ+2 {}
<MI 24ed4 BNE 0x24ee2> {}
<POP 24ed6-24ee2 Naked> Σ0 ↓ →0x24ee6
<POP 24ed6-24ed8 StackAdj> Δ-2 {[-2-]}
<Call 0x24ed8 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 24ede TST.B (A7)+> Δ+2 {}
<MI 24ee0 BEQ 0x24ee6> {}
<POP 24ee2-24ee6 Naked> Σ0 →0x24eee ←0x24ece
<MI 24ee2 CLR.B (A0)> {}
<MI 24ee4 BRA 0x24eee> {}
<POP 24ee6-24eee Naked> Σ0 ↓ ←0x24ed6
<MI 24ee6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24ee8 0x23ac6> {[4, '(A6+0xc)']}
<POP 24eec-24eee StackAdj> Δ+4 {}
<POP 24eee-24ef2 Naked> Σ0 →0x24f8c ←0x24ee2
<MI 24eee BRA 0x24f8c> {}
<POP 24ef2-24efa Naked> Σ0 ↓ →0x24f0a ←0x24d62
<POP 24ef2-24ef4 StackAdj> Δ-2 {[-2-]}
<Call 0x24ef4 0x215e0> {[-2-]}
<MI 24ef6 TST.B (A7)+> Δ+2 {}
<MI 24ef8 BNE 0x24f0a> {}
<POP 24efa-24f06 Naked> Σ0 ↓ →0x24f0a
<POP 24efa-24efc StackAdj> Δ-2 {[-2-]}
<Call 0x24efc 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 24f02 TST.B (A7)+> Δ+2 {}
<MI 24f04 BNE 0x24f0a> {}
<POP 24f06-24f0a Naked> Σ0 ↓ →0x24f0e
<MI 24f06 TST.B 0x29bb6> {}
<MI 24f08 BNE 0x24f0e> {}
<POP 24f0a-24f0e Naked> Σ0 →0x24f16 ←0x24ef2 ←0x24efa
<MI 24f0a CLR.B (A0)> {}
<MI 24f0c BRA 0x24f16> {}
<POP 24f0e-24f16 Naked> Σ0 ↓ ←0x24f06
<MI 24f0e MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24f10 0x2384a> {[4, '(A6+0xc)']}
<POP 24f14-24f16 StackAdj> Δ+4 {}
<POP 24f16-24f18 Naked> Σ0 →0x24f8c ←0x24f0a
<MI 24f16 BRA 0x24f8c> {}
<POP 24f18-24f20 Naked> Σ0 ↓ →0x24f30 ←0x24d62
<POP 24f18-24f1a StackAdj> Δ-2 {[-2-]}
<Call 0x24f1a 0x215e0> {[-2-]}
<MI 24f1c TST.B (A7)+> Δ+2 {}
<MI 24f1e BNE 0x24f30> {}
<POP 24f20-24f2c Naked> Σ0 ↓ →0x24f30
<POP 24f20-24f22 StackAdj> Δ-2 {[-2-]}
<Call 0x24f22 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 24f28 TST.B (A7)+> Δ+2 {}
<MI 24f2a BNE 0x24f30> {}
<POP 24f2c-24f30 Naked> Σ0 ↓ →0x24f34
<MI 24f2c TST.B 0x29bb6> {}
<MI 24f2e BNE 0x24f34> {}
<POP 24f30-24f34 Naked> Σ0 →0x24f3c ←0x24f18 ←0x24f20
<MI 24f30 CLR.B (A0)> {}
<MI 24f32 BRA 0x24f3c> {}
<POP 24f34-24f3c Naked> Σ0 ↓ ←0x24f2c
<MI 24f34 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24f36 0x23900> {[4, '(A6+0xc)']}
<POP 24f3a-24f3c StackAdj> Δ+4 {}
<POP 24f3c-24f3e Naked> Σ0 →0x24f8c ←0x24f30
<MI 24f3c BRA 0x24f8c> {}
<POP 24f3e-24f46 Naked> Σ0 ↓ →0x24f56 ←0x24d62
<POP 24f3e-24f40 StackAdj> Δ-2 {[-2-]}
<Call 0x24f40 0x215e0> {[-2-]}
<MI 24f42 TST.B (A7)+> Δ+2 {}
<MI 24f44 BNE 0x24f56> {}
<POP 24f46-24f52 Naked> Σ0 ↓ →0x24f56
<POP 24f46-24f48 StackAdj> Δ-2 {[-2-]}
<Call 0x24f48 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 24f4e TST.B (A7)+> Δ+2 {}
<MI 24f50 BNE 0x24f56> {}
<POP 24f52-24f56 Naked> Σ0 ↓ →0x24f5a
<MI 24f52 TST.B 0x29bb6> {}
<MI 24f54 BNE 0x24f5a> {}
<POP 24f56-24f5a Naked> Σ0 →0x24f62 ←0x24f3e ←0x24f46
<MI 24f56 CLR.B (A0)> {}
<MI 24f58 BRA 0x24f62> {}
<POP 24f5a-24f62 Naked> Σ0 ↓ ←0x24f52
<MI 24f5a MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24f5c 0x243cc> {[4, '(A6+0xc)']}
<POP 24f60-24f62 StackAdj> Δ+4 {}
<POP 24f62-24f64 Naked> Σ0 →0x24f8c ←0x24f56
<MI 24f62 BRA 0x24f8c> {}
<POP 24f64-24f6c Naked> Σ0 ↓ →0x24f7c ←0x24d62
<POP 24f64-24f66 StackAdj> Δ-2 {[-2-]}
<Call 0x24f66 0x215e0> {[-2-]}
<MI 24f68 TST.B (A7)+> Δ+2 {}
<MI 24f6a BNE 0x24f7c> {}
<POP 24f6c-24f78 Naked> Σ0 ↓ →0x24f7c
<POP 24f6c-24f6e StackAdj> Δ-2 {[-2-]}
<Call 0x24f6e 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 24f74 TST.B (A7)+> Δ+2 {}
<MI 24f76 BNE 0x24f7c> {}
<POP 24f78-24f7c Naked> Σ0 ↓ →0x24f80
<MI 24f78 TST.B 0x29bb6> {}
<MI 24f7a BNE 0x24f80> {}
<POP 24f7c-24f80 Naked> Σ0 →0x24f88 ←0x24f64 ←0x24f6c
<MI 24f7c CLR.B (A0)> {}
<MI 24f7e BRA 0x24f88> {}
<POP 24f80-24f88 Naked> Σ0 ↓ ←0x24f78
<MI 24f80 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x24f82 0x23d58> {[4, '(A6+0xc)']}
<POP 24f86-24f88 StackAdj> Δ+4 {}
<POP 24f88-24f8a Naked> Σ0 →0x24f8c ←0x24f7c
<MI 24f88 BRA 0x24f8c> {}
<POP 24f8a-24f8c Naked> Σ0 ↓ ←0x24d44
<MI 24f8a CLR.B (A0)> {}
<POP 24f8c-24f94 Epilogue> Σ0 ←0x24da8 ←0x24db6 ←0x24dbe ←0x24dde ←0x24de6 ←0x24e06 ←0x24e1a ←0x24e22 ←0x24e4a ←0x24e72 ←0x24e86 ←0x24ea6 ←0x24eca ←0x24eee ←0x24f16 ←0x24f3c ←0x24f62 ←0x24f88
@ 24f94
<LVAR 0x008 4(r)>
<POP 24f94-24fd8 Body>
<POP 24f94-24faa Prologue> Σ0 ↓
<POP 24faa-24fd0 Naked> Σ0 ↓
<Call 0x24faa 0x10398> {}
FSCALL_10398
<MI 24fb0 MOVEA.L (A6+0x8),A0> {}
<MI 24fb4 LEA.L 0x213b0,A1> {}
<BlockMove 10,A1,A0> {}
<Const 0x24fc0 0x0.4> Δ-4 {[##0]}
<Call 0x24fc4 0x22c28> {[##0]}
<POP 24fc8-24fca StackAdj> Δ+4 {}
<MI 24fca CLR.B 0x29bb6> {}
<POP 24fd0-24fd8 Epilogue> Σ0
@ 25654
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(w)>
<POP 25654-25696 Body>
<POP 25654-2566a Prologue> Σ0 ↓
<POP 2566a-2566e Naked> Σ0 ↓
<MI 2566a MOVEA.L (A6+0x8),A4> {}
<POP 2566e-25674 Naked> Σ0 ↓ →0x2568e ←0x25674
<MI 2566e CMPA.W #0x1,A4> {}
<MI 25672 BEQ 0x2568e> {}
<POP 25674-2568e Naked> Σ0 →0x2566e
<MI 25674 MOVE.L A4,(A6-0x4)> {}
<MI 25678 MOVEA.L (A4+0x8),A4> {}
<Pointer.fp 0x2567c <LVAR -0x004 @ 4(w)>> Δ-4 {[@@-4]}
<Const 0x25680 0xc.4> Δ-4 {[@@-4]|[##12]}
<Call 0x25684 0x102a8> {[@@-4]|[##12]}
Free2(a : Pointer; b : Long)
<POP 2568a-2568c StackAdj> Δ+8 {}
<MI 2568c BRA 0x2566e> {}
<POP 2568e-25696 Epilogue> Σ0 ←0x2566e
@ 25696
<LVAR 0x008 4(r)>
<POP 25696--0001 Body>
<POP 25696-256ac Prologue> Σ0 ↓
<POP 256ac-256b6 Naked> Σ0 ↓ →0x256c0
<MI 256ac MOVEA.L (A6+0x8),A0> {}
<MI 256b0 CMPA.W #0x1,A0> {}
<MI 256b4 BEQ 0x256c0> {}
<POP 256b6-256c0 Naked> Σ0 ↓
<MI 256b6 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Call 0x256b8 0x103e0> {[4, 'A0']}
WriteConsoleStringCrLf(str : String)
<POP 256be-256c0 StackAdj> Δ+4 {}
<POP 256c0-256ce Naked> Σ0 ←0x256ac
<POP 256c0-256ce Bailout> {}
<MI 256c0 MOVEA.L (A5+0x8),A7>
<MI 256c4 MOVEA.W #0x0,A6>
<MI 256c8 JMP 0x28f72>
@ 256f4
<LVAR 0x008 1(rw)>
<POP 256f4-25732 Body>
<POP 256f4-2570a Prologue> Σ0 ↓
<POP 2570a-25718 Naked> Σ0 ↓ →0x2571e
<MI 2570a MOVE.L 0x2bbc0,D0> {}
<MI 25710 CMP.L 0x2bbc4,D0> {}
<MI 25716 BLE 0x2571e> {}
<POP 25718-2571e Naked> Σ0 →0x2572a
<MI 25718 CLR.B (A6+0x8)> {}
<MI 2571c BRA 0x2572a> {}
<POP 2571e-2572a Naked> Σ0 ↓ ←0x2570a
<MI 2571e LEA.L 0x29bb8,A0> {}
<MI 25724 MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 2572a-25732 Epilogue> Σ0 ←0x25718
@ 25732
<LVAR 0x008 1(rw)>
<POP 25732-25776 Body>
<POP 25732-25748 Prologue> Σ0 ↓
<POP 25748-2574e RegCacheLoad> Σ0 ↓
<POP 2574e-25758 Naked> Σ0 ↓ →0x2575e
<MI 2574e MOVE.L 0x2bbc0,D0> {}
<MI 25750 CMP.L 0x2bbc4,D0> {}
<MI 25756 BLE 0x2575e> {}
<POP 25758-2575e Naked> Σ0 →0x2576a
<MI 25758 CLR.B (A6+0x8)> {}
<MI 2575c BRA 0x2576a> {}
<POP 2575e-2576a Naked> Σ0 ↓ ←0x2574e
<MI 2575e LEA.L 0x29bb8,A0> {}
<MI 25764 MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 2576a-2576e Naked> Σ0 ↓ ←0x25758
<MI 2576a ADDQ.L #0x1,D0> {}
<MI 2576c MOVE.L D0,0x2bbc0> {}
<POP 2576e-25776 Epilogue> Σ0
@ 25776
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 25776-25850 Body>
<POP 25776-2578c Prologue> Σ0 ↓
<POP 2578c-2579e RegCacheLoad> Σ0 ↓
<POP 2579e-257aa Naked> Σ0 ↓ →0x257b4 ←0x25844
<POP 2579e-257a0 StackAdj> Δ-2 {[-2-]}
<Call 0x257a0 0x256f4> {[-2-]}
<MI 257a4 MOVE.B (A7)+,D0> Δ+2 {}
<MI 257a6 CMP.B #0x5b,D0> {}
<MI 257a8 BNE 0x257b4> {}
<POP 257aa-257b4 Naked> Σ0 →0x25844
<Call 0x257aa 0x28a7c> {}
<MI 257b0 BRA 0x25844> {}
<POP 257b4-257c0 Naked> Σ0 ↓ →0x257d8 ←0x2579e
<MI 257b4 MOVE.L 0x2bbc0,D6> {}
<POP 257b6-257b8 StackAdj> Δ-2 {[-2-]}
<Call 0x257b8 0x25732> {[-2-]}
<MI 257bc MOVE.B (A7)+,D5> Δ+2 {}
<MI 257be BNE 0x257d8> {}
<POP 257c0-257d6 Naked> Σ0 →0x25848
<MI 257c0 MOVEA.L (A6+0xc),A0> {}
<MI 257c4 LEA.L 0x255ae,A1> {}
<BlockMove 8,A1,A0> {}
<MI 257d0 MOVEA.L (A6+0x8),A0> {}
<MI 257d2 MOVE.B #0x02,(A0)> {}
<MI 257d4 BRA 0x25848> {}
<POP 257d8-257dc Naked> Σ0 ↓ →0x257e4 ←0x257b4
<MI 257d8 CMP.B #0x2c,D5> {}
<MI 257da BNE 0x257e4> {}
<POP 257dc-257e4 Naked> Σ0 →0x25834
<MI 257dc MOVEA.L (A6+0x8),A0> {}
<MI 257de MOVE.B #0x03,(A0)> {}
<MI 257e2 BRA 0x25834> {}
<POP 257e4-257e8 Naked> Σ0 ↓ →0x257f0 ←0x257d8
<MI 257e4 CMP.B #0x3b,D5> {}
<MI 257e6 BNE 0x257f0> {}
<POP 257e8-257f0 Naked> Σ0 →0x25834
<MI 257e8 MOVEA.L (A6+0x8),A0> {}
<MI 257ea MOVE.B #0x01,(A0)> {}
<MI 257ee BRA 0x25834> {}
<POP 257f0-257f6 Naked> Σ0 ↓ →0x257fc ←0x257e4
<MI 257f0 CMPI.B #0x5d,D5> {}
<MI 257f4 BNE 0x257fc> {}
<POP 257f6-257fc Naked> Σ0 →0x25834
<MI 257f6 MOVEA.L (A6+0x8),A0> {}
<MI 257f8 MOVE.B #0x02,(A0)> {}
<MI 257fa BRA 0x25834> {}
<POP 257fc-25800 Naked> Σ0 ↓ ←0x257f0
<MI 257fc MOVEA.L (A6+0x8),A0> {}
<MI 257fe CLR.B (A0)> {}
<POP 25800-2580c Naked> Σ0 ↓ →0x25814 ←0x25832
<POP 25800-25802 StackAdj> Δ-2 {[-2-]}
<Call 0x25802 0x256f4> {[-2-]}
<MI 25806 MOVE.B (A7)+,D7> Δ+2 {}
<MI 25808 CMP.B #0x5b,D7> {}
<MI 2580a BNE 0x25814> {}
<POP 2580c-25814 Naked> Σ0 →0x25832
<Call 0x2580c 0x28a7c> {}
<MI 25812 BRA 0x25832> {}
<POP 25814-25818 Naked> Σ0 ↓ →0x25826 ←0x25800
<MI 25814 CMP.B #0x3b,D7> {}
<MI 25816 BEQ 0x25826> {}
<POP 25818-2581c Naked> Σ0 ↓ →0x25826
<MI 25818 CMP.B #0x2c,D7> {}
<MI 2581a BEQ 0x25826> {}
<POP 2581c-25822 Naked> Σ0 ↓ →0x25826
<MI 2581c CMPI.B #0x5d,D7> {}
<MI 25820 BEQ 0x25826> {}
<POP 25822-25826 Naked> Σ0 ↓ →0x2582a
<MI 25822 TST.B D7> {}
<MI 25824 BNE 0x2582a> {}
<POP 25826-25828 Naked> Σ0 →0x25834 ←0x25814 ←0x25818 ←0x2581c
<MI 25826 BRA 0x25834> {}
<POP 2582a-25832 Naked> Σ0 ↓ ←0x25822
<POP 2582a-2582c StackAdj> Δ-2 {[-2-]}
<Call 0x2582c 0x25732> {[-2-]}
<MI 25830 MOVE.B (A7)+,D7> Δ+2 {}
<POP 25832-25834 Naked> Σ0 →0x25800 ←0x2580c
<MI 25832 BRA 0x25800> {}
<POP 25834-25844 Naked> Σ0 →0x25848 ←0x257dc ←0x257e8 ←0x257f6 ←0x25826
<MI 25834 MOVEA.L (A6+0xc),A0> {}
<MI 25838 MOVE.L D6,(A0)> {}
<MI 2583a MOVE.L 0x2bbc0,(A0+0x4)> {}
<MI 2583e SUBQ.L #0x1,(A0+0x4)> {}
<MI 25842 BRA 0x25848> {}
<POP 25844-25848 Naked> Σ0 →0x2579e ←0x257aa
<MI 25844 BRA 0x2579e> {}
<POP 25848-25850 Epilogue> Σ0 ←0x257c0 ←0x25834
@ 25850
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(rw)>
<LVAR -0x008 4(w)>
<LVAR -0x00c @ 4(w)>
<POP 25850-258ee Body>
<POP 25850-25866 Prologue> Σ0 ↓
<POP 25866-25870 RegCacheLoad> Σ0 ↓
<POP 25870-2587c Naked> Σ0 ↓ →0x25882
<MI 25870 MOVEA.L (A6+0x8),A0> {}
<MI 25874 MOVE.B (A0),D0> {}
<MI 25876 CMPI.B #0x01,D0> {}
<MI 2587a BEQ 0x25882> {}
<POP 2587c-25882 Naked> Σ0 ↓ →0x25890
<MI 2587c CMPI.B #0x02,D0> {}
<MI 25880 BNE 0x25890> {}
<POP 25882-25890 Naked> Σ0 →0x258cc ←0x25870
<MI 25882 MOVE.L 0x255ae,(A6-0xc)> {}
<MI 25886 MOVE.L 0x255b2,(A6-0x8)> {}
<MI 2588c MOVE.B D0,(A6-0x4)> {}
<MI 2588e BRA 0x258cc> {}
<POP 25890-258a2 Naked> Σ0 ↓ →0x258be ←0x2587c ←0x258c6
<Pointer.fp 0x25890 <LVAR -0x00c @ 4(w)>> Δ-4 {[@@-12]}
<Pointer.fp 0x25892 <LVAR -0x004 @ 1(rw)>> Δ-4 {[@@-12]|[@@-4]}
<Call 0x25894 0x25776> {[@@-12]|[@@-4]}
<POP 25898-2589a StackAdj> Δ+8 {}
<MI 2589a MOVEA.L (A6+0x8),A0> {}
<MI 2589e TST.B (A6-0x4)> {}
<MI 258a0 BEQ 0x258be> {}
<POP 258a2-258a8 Naked> Σ0 ↓ →0x258be
<MI 258a2 MOVE.B (A0),D0> {}
<MI 258a4 CMP.B #0x03,D0> {}
<MI 258a6 BNE 0x258be> {}
<POP 258a8-258be Naked> Σ0 →0x258c6
<MI 258a8 MOVE.B (A6-0x4),D0> {}
<MI 258aa EXTB.W D0> {}
<POP 0x258ac LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 258ae MOVE.B D0,(A0)> {}
<MI 258b0 MOVE.L 0x255ae,(A6-0xc)> {}
<MI 258b4 MOVE.L 0x255b2,(A6-0x8)> {}
<MI 258ba CLR.B (A6-0x4)> {}
<MI 258bc BRA 0x258c6> {}
<POP 258be-258c6 Naked> Σ0 ↓ ←0x25890 ←0x258a2
<MI 258be MOVE.B (A6-0x4),D0> {}
<MI 258c0 EXTB.W D0> {}
<POP 0x258c2 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 258c4 MOVE.B D0,(A0)> {}
<POP 258c6-258cc Naked> Σ0 ↓ →0x25890 ←0x258a8
<MI 258c6 MOVE.B (A6-0x4),D0> {}
<MI 258c8 CMP.B #0x03,D0> {}
<MI 258ca BEQ 0x25890> {}
<POP 258cc-258e6 Naked> Σ0 ↓ ←0x25882
<MI 258cc MOVEA.L (A6+0x10),A0> {}
<MI 258d0 LEA.L (A6-0xc),A1> {}
<BlockMove 8,A1,A0> {}
<MI 258da MOVEA.L (A6+0xc),A0> {}
<MI 258de MOVE.B (A6-0x4),D0> {}
<MI 258e0 EXTB.W D0> {}
<POP 0x258e2 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 258e4 MOVE.B D0,(A0)> {}
<POP 258e6-258ee Epilogue> Σ0
@ 258ee
<LVAR 0x008 4(rw)>
<LVAR -0x004 1(rw)>
<LVAR -0x010 2(rw)>
<POP 258ee-259f6 Body>
<POP 258ee-25904 Prologue> Σ0 ↓
<POP 25904-25912 RegCacheLoad> Σ0 ↓
<POP 25912-2592a Naked> Σ0 Δ-4 ↓
<MI 25912 MOVEQ.L #0x01,D6> {}
<MI 25914 CLR.W (A6-0x10)> {}
<MI 25916 MOVEQ.L #0x01,D5> {}
<POP 25918-2591a StackAdj> Δ-4 {[-4-]}
<MI 2591a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2591c 0x102f0> {[-4-]|[4, '(A6+0x8)']}
ToUpper(a : String) : String
<POP 25922-25924 StackAdj> Δ+4 {[-4-]}
<MI 25924 MOVE.L (A7)+,(A6+0x8)> Δ+4 {}
<MI 25926 MOVEA.L (A6+0x8),A0> {}
<MI 25928 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<POP 2592a-25936 Naked> Σ-4 ↓ →0x259e4 ←0x259ca
<MI 2592a MOVEA.L (A7),A0> {[-4-]}
<MI 2592c MOVE.W (A0),D0> {[-4-]}
<MI 2592e EXTW.L D0> {[-4-]}
<MI 25930 CMP.L D0,D6> {[-4-]}
<MI 25932 BGT 0x259e4> {[-4-]}
<POP 25936-25948 Naked> Σ-4 ↓ →0x2594a
<MI 25936 CLR.L D0> {[-4-]}
<MI 25938 MOVE.B (A0+D6.L+#0x1),D0> {[-4-]}
<MI 2593c ANDI.W #0x007f,D0> {[-4-]}
<MI 25940 MOVE.B D0,(A6-0x4)> {[-4-]}
<MI 25942 CMPI.B #0x09,D0> {[-4-]}
<MI 25946 BNE 0x2594a> {[-4-]}
<POP 25948-2594a Naked> Σ-4 ↓
<MI 25948 MOVE.B #0x20,(A6-0x4)> {[-4-]}
<POP 2594a-25956 Naked> Σ-4 ↓ →0x25986 ←0x25936
<MI 2594a CLR.L D0> {[-4-]}
<MI 2594c MOVE.B (A6-0x4),D0> {[-4-]}
<MI 2594e SUB.W #0x20,D0> {[-4-]}
<MI 25950 CMPI.W #0x000c,D0> {[-4-]}
<MI 25954 BHI 0x25986> {[-4-]}
<POP 25956-25960 Naked> Σ-4 →0x2597e →0x2597a →0x25986 →0x25986 →0x25986 →0x25986 →0x25986 →0x25986 →0x25986 →0x25986 →0x25986 →0x25986 →0x25982
<MI 25956 ADD.W D0,D0> {[-4-]}
<MI 25958 SWITCH D0.W> {[-4-]}
<POP 2597a-2597c Naked> Σ-4 →0x259e4 ←0x25956
<MI 2597a BRA 0x259e4> {[-4-]}
<POP 2597e-25982 Naked> Σ-4 →0x25988 ←0x25956
<MI 2597e MOVEQ.L #0x00,D7> {[-4-]}
<MI 25980 BRA 0x25988> {[-4-]}
<POP 25982-25986 Naked> Σ-4 →0x25988 ←0x25956
<MI 25982 MOVEQ.L #0x01,D7> {[-4-]}
<MI 25984 BRA 0x25988> {[-4-]}
<POP 25986-25988 Naked> Σ-4 ↓ ←0x2594a ←0x25956 ←0x25956 ←0x25956 ←0x25956 ←0x25956 ←0x25956 ←0x25956 ←0x25956 ←0x25956 ←0x25956
<MI 25986 MOVEQ.L #0x02,D7> {[-4-]}
<POP 25988-259ac Naked> Σ-4 →0x259b2 →0x259b4 →0x259be ←0x2597e ←0x25982
<MI 25988 MOVEQ.L #0x03,D0> {[-4-]}
<MI 2598a MULS.W (A6-0x10),D0> {[-4-]}
<MI 2598c LEA.L 0x255b6,A0> {[-4-]}
<MI 25990 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 25994 CLR.L D0> {[-4-]}
<MI 25996 MOVE.B (A0+D7.W),D0> {[-4-]}
<POP 0x2599a LimitCheck 0x0 ≤ D0 ≤ 0x2> {[-4-]}
<MI 259a2 ADD.W D0,D0> {[-4-]}
<MI 259a4 SWITCH D0.W> {[-4-]}
<POP 259b2-259b4 Naked> Σ-4 →0x259ca ←0x25988
<MI 259b2 BRA 0x259ca> {[-4-]}
<POP 259b4-259be Naked> Σ-4 →0x259ca ←0x25988
<MI 259b4 MOVEA.L (A7),A0> {[-4-]}
<MI 259b6 MOVE.B (A6-0x4),(A0+D5.L+#0x1)> {[-4-]}
<MI 259ba ADDQ.L #0x1,D5> {[-4-]}
<MI 259bc BRA 0x259ca> {[-4-]}
<POP 259be-259ca Naked> Σ-4 ↓ ←0x25988
<MI 259be MOVEA.L (A7),A0> {[-4-]}
<MI 259c0 MOVE.B #0x2c,(A0+D5.L+#0x1)> {[-4-]}
<MI 259c6 ADDQ.L #0x1,D5> {[-4-]}
<MI 259c8 SUBQ.L #0x1,D6> {[-4-]}
<POP 259ca-259e4 Naked> Σ-4 →0x2592a ←0x259b2 ←0x259b4
<MI 259ca MOVEQ.L #0x03,D0> {[-4-]}
<MI 259cc MULS.W (A6-0x10),D0> {[-4-]}
<MI 259ce LEA.L 0x255bf,A0> {[-4-]}
<MI 259d2 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 259d6 CLR.L D0> {[-4-]}
<MI 259d8 MOVE.B (A0+D7.W),D0> {[-4-]}
<MI 259dc MOVE.W D0,(A6-0x10)> {[-4-]}
<MI 259de ADDQ.L #0x1,D6> {[-4-]}
<MI 259e0 BRA 0x2592a> {[-4-]}
<POP 259e4-259ee Naked> Σ-4 Δ+4 ↓ ←0x2592a ←0x2597a
<MI 259e4 MOVEA.L (A7),A0> {[-4-]}
<MI 259e6 MOVE.L D5,D0> {[-4-]}
<MI 259e8 SUBQ.L #0x1,D0> {[-4-]}
<MI 259ea MOVE.W D0,(A0)> {[-4-]}
<POP 259ec-259ee StackAdj> Δ+4 {}
<POP 259ee-259f6 Epilogue> Σ0
@ 259f6
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x00a @>
<LVAR -0x00e @ 4(r)>
<LVAR -0x014 @ 1(r)>
<POP 259f6-25aa2 Body>
<POP 259f6-25a0c Prologue> Σ0 ↓
<POP 25a0c-25a12 RegCacheLoad> Σ0 ↓
<POP 25a12-25a20 Naked> Σ0 ↓ →0x25a28
<POP 25a12-25a14 StackAdj> Δ-2 {[-2-]}
<Call 0x25a14 0x256f4> {[-2-]}
<MI 25a18 MOVE.B (A7)+,D0> Δ+2 {}
<MI 25a1a CMPI.B #0x5b,D0> {}
<MI 25a1e BNE 0x25a28> {}
<POP 25a20-25a28 Naked> Σ0 ↓
<POP 25a20-25a22 StackAdj> Δ-2 {[-2-]}
<Call 0x25a22 0x25732> {[-2-]}
<MI 25a26 MOVE.B (A7)+,D7> Δ+2 {}
<POP 25a28-25a32 Naked> Σ0 ↓ ←0x25a12
<MI 25a28 MOVEA.L (A6+0xc),A0> {}
<MI 25a2c MOVE.L #0x01,(A0)> {}
<MI 25a2e CLR.B (A6-0x14)> {}
<POP 25a32-25a4c Naked> Σ0 ↓ →0x25a82 ←0x25a82
<Pointer.fp 0x25a32 <LVAR -0x00a @>> Δ-4 {[@@-10]}
<Pointer.fp 0x25a36 <LVAR -0x002 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]}
<Pointer.fp 0x25a3a <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]|[@@-20]}
<Call 0x25a3e 0x25850> {[@@-10]|[@@-2]|[@@-20]}
<POP 25a42-25a46 StackAdj> Δ+12 {}
<MI 25a46 TST.B (A6-0x2)> {}
<MI 25a4a BNE 0x25a82> {}
<POP 25a4c-25a78 Naked> Σ0 ↓ →0x25a7c
<Pointer.fp 0x25a4c <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<Const 0x25a4e 0xc.4> Δ-4 {[@@-14]|[##12]}
<Call 0x25a52 0x1029c> {[@@-14]|[##12]}
Malloc1(length : Long) : Pointer
<POP 25a58-25a5a StackAdj> Δ+8 {}
<MI 25a5a MOVEA.L (A6-0xe),A0> {}
<MI 25a5c MOVEA.L A0,A1> {}
<MI 25a5e LEA.L (A6-0xa),A2> {}
<BlockMove 8,A2,A1> {}
<MI 25a6a MOVE.L #0x01,(A0+0x8)> {}
<MI 25a6e MOVEA.L (A6+0xc),A0> {}
<MI 25a72 MOVEA.L (A0),A1> {}
<MI 25a74 CMPA.W #0x01,A1> {}
<MI 25a76 BNE 0x25a7c> {}
<POP 25a78-25a7c Naked> Σ0 →0x25a80
<MI 25a78 MOVE.L (A6-0xe),(A0)> {}
<MI 25a7a BRA 0x25a80> {}
<POP 25a7c-25a80 Naked> Σ0 ↓ ←0x25a4c
<MI 25a7c MOVE.L (A6-0xe),(A4+0x8)> {}
<POP 25a80-25a82 Naked> Σ0 ↓ ←0x25a78
<MI 25a80 MOVEA.L (A6-0xe),A4> {}
<POP 25a82-25a88 Naked> Σ0 ↓ →0x25a32 ←0x25a32
<MI 25a82 TST.B (A6-0x2)> {}
<MI 25a86 BEQ 0x25a32> {}
<POP 25a88-25a98 Naked> Σ0 ↓ →0x25a9a
<MI 25a88 MOVEA.L (A6+0x8),A0> {}
<MI 25a8c CLR.B (A0)> {}
<MI 25a8e MOVE.B (A6-0x2),D0> {}
<MI 25a92 CMPI.B #0x02,D0> {}
<MI 25a96 BNE 0x25a9a> {}
<POP 25a98-25a9a Naked> Σ0 ↓
<MI 25a98 ADDQ.B #0x1,(A0)> {}
<POP 25a9a-25aa2 Epilogue> Σ0 ←0x25a88
@ 25aa2
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 25aa2-25ad8 Body>
<POP 25aa2-25ab8 Prologue> Σ0 ↓
<POP 25ab8-25abe Naked> Σ0 ↓
<MI 25ab8 MOVEQ.L #-0x01,D7> {}
<MI 25aba MOVEA.L (A6+0x8),A4> {}
<POP 25abe-25ac4 Naked> Σ0 ↓ →0x25acc ←0x25ac4
<MI 25abe CMPA.W #0x1,A4> {}
<MI 25ac2 BEQ 0x25acc> {}
<POP 25ac4-25acc Naked> Σ0 →0x25abe
<MI 25ac4 ADDQ.L #0x1,D7> {}
<MI 25ac6 MOVEA.L (A4+0x8),A4> {}
<MI 25aca BRA 0x25abe> {}
<POP 25acc-25ad0 Naked> Σ0 ↓ ←0x25abe
<MI 25acc MOVE.L D7,(A6+0xc)> {}
<POP 25ad0-25ad8 Epilogue> Σ0
@ 25ad8
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 25ad8-25b64 Body>
<POP 25ad8-25aee Prologue> Σ0 ↓
<POP 25aee-25af0 RegCacheLoad> Σ0 ↓
<POP 25af0-25b04 Naked> Σ0 ↓ →0x25b5c
<POP 25af0-25af2 StackAdj> Δ-4 {[-4-]}
<MI 25af2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x25af6 0x25aa2> {[-4-]|[4, '(A6+0xc)']}
<POP 25afa-25afc StackAdj> Δ+4 {[-4-]}
<MI 25afc MOVE.L (A7)+,D0> Δ+4 {}
<MI 25afe CMP.L (A6+0x8),D0> {}
<MI 25b02 BEQ 0x25b5c> {}
<POP 25b04-25b5c Naked> Σ0 ↓
<MI 25b04 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x25b08 0x25654> {[4, '(A6+0xc)']}
<POP 25b0c-25b0e StackAdj> Δ+4 {}
<Blob 0x25b0e [32] @> Δ-32 {[«32""»]}
<Blob 0x25b1a [10] (A6+0x1a)> Δ-10 {[«32""»]|[«10»]}
<POP 25b26-25b28 StackAdj> Δ-8 {[«32""»]|[«10»]|[-8-]}
<Lit 0x25b28 32> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]}
<POP 25b38-25b3a StackAdj> Δ-4 {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[-4-]}
<Lit 0x25b3a> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
<Pointer.sp 0x25b3a 12> Δ-4
<Const 0x25b3e 0x1.2> Δ-2
<Const 0x25b40 0xa.2> Δ-2
<Call 0x25b44 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 25b4a-25b4c StackAdj> Δ+8
<Call 0x25b4c 0x102d0> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 25b52-25b54 StackAdj> Δ+8 {[«32""»]|[«10»]|[-4-]}
<Call 0x25b54 0x25696> {[«32""»]|[«10»]|[-4-]}
<POP 25b58-25b5c StackAdj> Δ+46 {}
<POP 25b5c-25b64 Epilogue> Σ0 ←0x25af0
@ 25b64
<LVAR 0x014 1(rw)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 25b64-25bea Body> Δ-4
<POP 25b64-25b7a Prologue> Σ0 ↓
<POP 25b7a-25b8e Naked> Σ0 ↓ →0x25bdc
<MI 25b7a CLR.B (A6+0x14)> {}
<MI 25b7e MOVE.L (A6+0x10),D0> {}
<MI 25b82 ADD.L (A6+0x8),D0> {}
<MI 25b86 CMP.L 0x2bbc4,D0> {}
<MI 25b8c BGT 0x25bdc> {}
<POP 25b8e-25b94 Naked> Σ0 Δ-4 ↓
<MI 25b8e MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 25b92 MOVEQ.L #0x01,D7> {[4, '(A6+0x8)']}
<POP 25b94-25b98 Naked> Σ-4 ↓ →0x25bda ←0x25bd6
<MI 25b94 CMP.L (A7),D7> {[-4-]}
<MI 25b96 BGT 0x25bda> {[-4-]}
<POP 25b98-25bd2 Naked> Σ-4 ↓ →0x25bd6
<MI 25b98 MOVE.L (A6+0x10),D0> {[-4-]}
<MI 25b9c ADD.L D7,D0> {[-4-]}
<MI 25b9e SUBQ.L #0x1,D0> {[-4-]}
<POP 0x25ba0 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]}
<MI 25baa LEA.L 0x29bb8,A0> {[-4-]}
<MI 25bb0 MOVE.L (A6+0xc),D1> {[-4-]}
<MI 25bb4 ADD.L D7,D1> {[-4-]}
<MI 25bb6 SUBQ.L #0x1,D1> {[-4-]}
<MI 25bb8 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x25bba LimitCheck 0x0 ≤ D1 ≤ 0x3e> {[-4-]}
<MI 25bc4 LEA.L 0x251b0,A1> {[-4-]}
<MI 25bc8 MOVE.B (A0+D0.L+#0x8),D0> {[-4-]}
<MI 25bcc CMP.B (A1+D1.L),D0> {[-4-]}
<MI 25bd0 BEQ 0x25bd6> {[-4-]}
<POP 25bd2-25bd6 Naked> Σ-4 Δ+4 →0x25be2
<POP 25bd2-25bd4 StackAdj> Δ+4 {}
<MI 25bd4 BRA 0x25be2> {}
<POP 25bd6-25bda Naked> Σ-4 ↓ →0x25b94 ←0x25b98
<MI 25bd6 ADDQ.L #0x1,D7> {[-4-]}
<MI 25bd8 BVC 0x25b94> {[-4-]}
<POP 25bda-25bdc Naked> Σ-4 Δ+4 ↓ ←0x25b94
<POP 25bda-25bdc StackAdj> Δ+4 {}
<POP 25bdc-25be2 Naked> Σ0 ↓ ←0x25b7a
<MI 25bdc MOVE.B #0x01,(A6+0x14)> {}
<POP 25be2-25bea Epilogue> Σ0 ←0x25bd2
@ 25bea
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 25bea-25c74 Body>
<POP 25bea-25c00 Prologue> Σ0 ↓
<POP 25c00-25c0a RegCacheLoad> Σ0 ↓
<POP 25c0a-25c0e Naked> Σ0 ↓ →0x25c4c
<MI 25c0a TST.L (A6+0x8)> {}
<MI 25c0c BGE 0x25c4c> {}
<POP 25c0e-25c1c Naked> Σ0 ↓ →0x25c4c
<MI 25c0e MOVE.L (A6+0x8),D0> {}
<MI 25c10 NEG.L D0> {}
<MI 25c12 ADD.L 0x2bbc4,D0> {}
<MI 25c14 CMPI.L #0x00002000,D0> {}
<MI 25c1a BLE 0x25c4c> {}
<POP 25c1c-25c4c Naked> Σ0 ↓
<Blob 0x25c1c [28] @> Δ-28 {[«28""»]}
<POP 25c2e-25c30 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x25c30 27> {[«28""»]|[$$Evaluation buffer overflow.]}
<Call 0x25c44 0x25696> {[«28""»]|[$$Evaluation buffer overflow.]}
<POP 25c48-25c4c StackAdj> Δ+32 {}
<POP 25c4c-25c6c Naked> Σ0 ↓ ←0x25c0a ←0x25c0e
<MI 25c4c LEA.L 0x29bc0,A0> {}
<MI 25c52 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x25c54 [4] 0x2bbc4> Δ-4 {[4, 'A0']|[«4»]}
<MI 25c56 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']}
<MI 25c5a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x25c5c 0x10364> {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
MovStringTail(Base, Len, Ptr, Delta)
<POP 25c62-25c66 StackAdj> Δ+16 {}
<MI 25c66 MOVE.L 0x2bbc4,D0> {}
<MI 25c68 SUB.L (A6+0x8),D0> {}
<MI 25c6a MOVE.L D0,0x2bbc4> {}
<POP 25c6c-25c74 Epilogue> Σ0
@ 25c74
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 25c74-25cfe Body>
<POP 25c74-25c8a Prologue> Σ0 ↓
<POP 25c8a-25c8e RegCacheLoad> Σ0 ↓
<POP 25c8e-25cae Naked> Σ0 Δ-8 ↓
<MI 25c8e MOVEA.L (A6+0x8),A0> {}
<MI 25c92 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 25c94 MOVEA.L (A6+0xc),A1> {[4, 'A0']}
<MI 25c96 MOVE.L (A1),-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']}
<MI 25c98 MOVE.W (A0),D0> {[4, 'A0']|[4, '(A1)']}
<MI 25c9a EXTW.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 25c9c NEG.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 25c9e MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<Call 0x25ca0 0x25bea> {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<POP 25ca4-25ca6 StackAdj> Δ+8 {[4, 'A0']}
<MI 25ca6 MOVE.W (A0),D0> {[4, 'A0']}
<MI 25ca8 EXTW.L D0> {[4, 'A0']}
<MI 25caa MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 25cac MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 25cae-25cb2 Naked> Σ-8 ↓ →0x25ce8 ←0x25cb2
<MI 25cae CMP.L (A7),D7> {[-8-]}
<MI 25cb0 BGT 0x25ce8> {[-8-]}
<POP 25cb2-25ce8 Naked> Σ-8 ↓ →0x25cae
<MI 25cb2 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 25cb4 MOVE.L D7,D0> {[-8-]}
<MI 25cb6 ADD.L (A0),D0> {[-8-]}
<MI 25cb8 SUBQ.L #0x1,D0> {[-8-]}
<MI 25cba SUBQ.L #0x1,D0> {[-8-]}
<POP 0x25cbc LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 25cc6 LEA.L 0x29bb8,A0> {[-8-]}
<MI 25ccc MOVE.L D7,D1> {[-8-]}
<MI 25cce SUBQ.L #0x1,D1> {[-8-]}
<POP 0x25cd0 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 25cda MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 25cde MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 25ce4 ADDQ.L #0x1,D7> {[-8-]}
<MI 25ce6 BVC 0x25cae> {[-8-]}
<POP 25ce8-25cf6 Naked> Σ-8 Δ+8 ↓ ←0x25cae
<POP 25ce8-25cea StackAdj> Δ+4 {[-4-]}
<MI 25cea MOVEA.L (A6+0xc),A0> {[-4-]}
<MI 25cec MOVEA.L (A7),A1> {[-4-]}
<MI 25cee MOVE.W (A1),D0> {[-4-]}
<MI 25cf0 EXTW.L D0> {[-4-]}
<MI 25cf2 ADD.L D0,(A0)> {[-4-]}
<POP 25cf4-25cf6 StackAdj> Δ+4 {}
<POP 25cf6-25cfe Epilogue> Σ0
@ 25cfe
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 25cfe-25e7e Body>
<POP 25cfe-25d14 Prologue> Σ0 ↓
<POP 25d14-25d22 RegCacheLoad> Σ0 ↓
<POP 25d22-25d34 Naked> Σ0 ↓
<MI 25d22 MOVEQ.L #0x00,D7> {}
<MI 25d24 MOVEA.L (A6+0xc),A0> {}
<MI 25d28 CLR.L (A0)> {}
<MI 25d2a MOVEA.L (A6+0x8),A0> {}
<MI 25d2c CLR.L (A0)> {}
<MI 25d2e MOVE.L 0x2bbc0,D6> {}
<POP 25d34-25d54 Naked> Σ0 ↓ →0x25e26 ←0x25e30 ←0x25e36
<MI 25d34 MOVE.L D6,D0> {}
<MI 25d36 SUBQ.L #0x1,D0> {}
<POP 0x25d38 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 25d42 LEA.L 0x29bb8,A0> {}
<MI 25d48 MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 25d4c CMPI.B #0x5b,D0> {}
<MI 25d50 BNE 0x25e26> {}
<POP 25d54-25d68 Naked> Σ0 ↓ →0x25de6
<POP 25d54-25d56 StackAdj> Δ-2 {[-2-]}
<MI 25d56 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x25d58 0x1.4> Δ-4 {[-2-]|[4, 'D6']|[##1]}
<Const 0x25d5c 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##1]|[##3]}
<Call 0x25d60 0x25b64> {[-2-]|[4, 'D6']|[##1]|[##3]}
<POP 25d62-25d64 StackAdj> Δ+12 {[-2-]}
<MI 25d64 TST.B (A7)+> Δ+2 {}
<MI 25d66 BNE 0x25de6> {}
<POP 25d68-25d7a Naked> Σ0 ↓ →0x25de6
<POP 25d68-25d6a StackAdj> Δ-2 {[-2-]}
<MI 25d6a MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x25d6c 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##4]}
<Const 0x25d6e 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##4]|[##3]}
<Call 0x25d72 0x25b64> {[-2-]|[4, 'D6']|[##4]|[##3]}
<POP 25d74-25d76 StackAdj> Δ+12 {[-2-]}
<MI 25d76 TST.B (A7)+> Δ+2 {}
<MI 25d78 BNE 0x25de6> {}
<POP 25d7a-25d8c Naked> Σ0 ↓ →0x25de6
<POP 25d7a-25d7c StackAdj> Δ-2 {[-2-]}
<MI 25d7c MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x25d7e 0x7.4> Δ-4 {[-2-]|[4, 'D6']|[##7]}
<Const 0x25d82 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##7]|[##4]}
<Call 0x25d84 0x25b64> {[-2-]|[4, 'D6']|[##7]|[##4]}
<POP 25d86-25d88 StackAdj> Δ+12 {[-2-]}
<MI 25d88 TST.B (A7)+> Δ+2 {}
<MI 25d8a BNE 0x25de6> {}
<POP 25d8c-25d9e Naked> Σ0 ↓ →0x25de6
<POP 25d8c-25d8e StackAdj> Δ-2 {[-2-]}
<MI 25d8e MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x25d90 0xb.4> Δ-4 {[-2-]|[4, 'D6']|[##11]}
<Const 0x25d94 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##11]|[##4]}
<Call 0x25d96 0x25b64> {[-2-]|[4, 'D6']|[##11]|[##4]}
<POP 25d98-25d9a StackAdj> Δ+12 {[-2-]}
<MI 25d9a TST.B (A7)+> Δ+2 {}
<MI 25d9c BNE 0x25de6> {}
<POP 25d9e-25db0 Naked> Σ0 ↓ →0x25de6
<POP 25d9e-25da0 StackAdj> Δ-2 {[-2-]}
<MI 25da0 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x25da2 0xf.4> Δ-4 {[-2-]|[4, 'D6']|[##15]}
<Const 0x25da6 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##15]|[##4]}
<Call 0x25da8 0x25b64> {[-2-]|[4, 'D6']|[##15]|[##4]}
<POP 25daa-25dac StackAdj> Δ+12 {[-2-]}
<MI 25dac TST.B (A7)+> Δ+2 {}
<MI 25dae BNE 0x25de6> {}
<POP 25db0-25dc2 Naked> Σ0 ↓ →0x25de6
<POP 25db0-25db2 StackAdj> Δ-2 {[-2-]}
<MI 25db2 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x25db4 0x13.4> Δ-4 {[-2-]|[4, 'D6']|[##19]}
<Const 0x25db8 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##19]|[##4]}
<Call 0x25dba 0x25b64> {[-2-]|[4, 'D6']|[##19]|[##4]}
<POP 25dbc-25dbe StackAdj> Δ+12 {[-2-]}
<MI 25dbe TST.B (A7)+> Δ+2 {}
<MI 25dc0 BNE 0x25de6> {}
<POP 25dc2-25dd4 Naked> Σ0 ↓ →0x25de6
<POP 25dc2-25dc4 StackAdj> Δ-2 {[-2-]}
<MI 25dc4 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x25dc6 0x17.4> Δ-4 {[-2-]|[4, 'D6']|[##23]}
<Const 0x25dca 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##23]|[##4]}
<Call 0x25dcc 0x25b64> {[-2-]|[4, 'D6']|[##23]|[##4]}
<POP 25dce-25dd0 StackAdj> Δ+12 {[-2-]}
<MI 25dd0 TST.B (A7)+> Δ+2 {}
<MI 25dd2 BNE 0x25de6> {}
<POP 25dd4-25de6 Naked> Σ0 ↓ →0x25dea
<POP 25dd4-25dd6 StackAdj> Δ-2 {[-2-]}
<MI 25dd6 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x25dd8 0x1b.4> Δ-4 {[-2-]|[4, 'D6']|[##27]}
<Const 0x25ddc 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##27]|[##4]}
<Call 0x25dde 0x25b64> {[-2-]|[4, 'D6']|[##27]|[##4]}
<POP 25de0-25de2 StackAdj> Δ+12 {[-2-]}
<MI 25de2 TST.B (A7)+> Δ+2 {}
<MI 25de4 BEQ 0x25dea> {}
<POP 25de6-25dea Naked> Σ0 →0x25e26 ←0x25d54 ←0x25d68 ←0x25d7a ←0x25d8c ←0x25d9e ←0x25db0 ←0x25dc2
<MI 25de6 ADDQ.L #0x1,D7> {}
<MI 25de8 BRA 0x25e26> {}
<POP 25dea-25dee Naked> Σ0 ↓ →0x25e0a ←0x25dd4
<MI 25dea TST.L D7> {}
<MI 25dec BNE 0x25e0a> {}
<POP 25dee-25e02 Naked> Σ0 ↓ →0x25e0a
<POP 25dee-25df0 StackAdj> Δ-2 {[-2-]}
<MI 25df0 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x25df2 0x1f.4> Δ-4 {[-2-]|[4, 'D6']|[##31]}
<Const 0x25df6 0x5.4> Δ-4 {[-2-]|[4, 'D6']|[##31]|[##5]}
<Call 0x25dfa 0x25b64> {[-2-]|[4, 'D6']|[##31]|[##5]}
<POP 25dfc-25dfe StackAdj> Δ+12 {[-2-]}
<MI 25dfe TST.B (A7)+> Δ+2 {}
<MI 25e00 BEQ 0x25e0a> {}
<POP 25e02-25e06 Naked> Σ0 ↓
<MI 25e02 MOVEA.L (A6+0xc),A0> {}
<POP 25e06-25e0a Naked> Σ0 →0x25e26 ←0x25e20
<MI 25e06 MOVE.L D6,(A0)> {}
<MI 25e08 BRA 0x25e26> {}
<POP 25e0a-25e1c Naked> Σ0 ↓ →0x25e26 ←0x25dea ←0x25dee
<POP 25e0a-25e0c StackAdj> Δ-2 {[-2-]}
<MI 25e0c MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x25e0e 0x24.4> Δ-4 {[-2-]|[4, 'D6']|[##36]}
<Const 0x25e12 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##36]|[##4]}
<Call 0x25e14 0x25b64> {[-2-]|[4, 'D6']|[##36]|[##4]}
<POP 25e16-25e18 StackAdj> Δ+12 {[-2-]}
<MI 25e18 TST.B (A7)+> Δ+2 {}
<MI 25e1a BEQ 0x25e26> {}
<POP 25e1c-25e20 Naked> Σ0 ↓ →0x25e24
<MI 25e1c TST.L D7> {}
<MI 25e1e BNE 0x25e24> {}
<POP 25e20-25e24 Naked> Σ0 →0x25e06
<MI 25e20 MOVEA.L (A6+0x8),A0> {}
<MI 25e22 BRA 0x25e06> {}
<POP 25e24-25e26 Naked> Σ0 ↓ ←0x25e1c
<MI 25e24 SUBQ.L #0x1,D7> {}
<POP 25e26-25e30 Naked> Σ0 ↓ →0x25e3e ←0x25d34 ←0x25de6 ←0x25e06 ←0x25e0a
<MI 25e26 ADDQ.L #0x1,D6> {}
<MI 25e28 CMP.L 0x2bbc4,D6> {}
<MI 25e2e BGT 0x25e3e> {}
<POP 25e30-25e36 Naked> Σ0 ↓ →0x25d34
<MI 25e30 TST.L D7> {}
<MI 25e32 BNE 0x25d34> {}
<POP 25e36-25e3e Naked> Σ0 ↓ →0x25d34
<MI 25e36 MOVEA.L (A6+0x8),A0> {}
<MI 25e38 TST.L (A0)> {}
<MI 25e3a BEQ 0x25d34> {}
<POP 25e3e-25e46 Naked> Σ0 ↓ →0x25e76 ←0x25e26
<MI 25e3e CMP.L 0x2bbc4,D6> {}
<MI 25e44 BLE 0x25e76> {}
<POP 25e46-25e76 Naked> Σ0 ↓
<Blob 0x25e46 [28] @> Δ-28 {[«28""»]}
<POP 25e58-25e5a StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x25e5a 27> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<Call 0x25e6e 0x25696> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<POP 25e72-25e76 StackAdj> Δ+32 {}
<POP 25e76-25e7e Epilogue> Σ0 ←0x25e3e
@ 25e7e
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(rw)>
<POP 25e7e-25ec4 Body>
<POP 25e7e-25e94 Prologue> Σ0 ↓
<POP 25e94-25e9c RegCacheLoad> Σ0 ↓
<POP 25e9c-25eaa Naked> Σ0 ↓ →0x25eac
<Pointer.fp 0x25e9c <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Pointer.fp 0x25e9e <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x25ea0 0x25cfe> {[@@-8]|[@@-4]}
<POP 25ea4-25ea6 StackAdj> Δ+8 {}
<MI 25ea6 TST.L (A6-0x8)> {}
<MI 25ea8 BNE 0x25eac> {}
<POP 25eaa-25eac Naked> Σ0 ↓
<MI 25eaa MOVE.L (A6-0x4),(A6-0x8)> {}
<POP 25eac-25ebc Naked> Σ0 ↓ ←0x25e9c
<MI 25eac MOVE.L (A6-0x4),D0> {}
<MI 25eae ADDQ.L #0x5,D0> {}
<MI 25eb0 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 25eb2 SUB.L (A6-0x8),D0> {[4, 'D0']}
<MI 25eb4 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x25eb6 0x25bea> {[4, 'D0']|[4, 'D0']}
<POP 25eba-25ebc StackAdj> Δ+8 {}
<POP 25ebc-25ec4 Epilogue> Σ0
@ 25ec4
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 25ec4-25f20 Body>
<POP 25ec4-25eda Prologue> Σ0 ↓
<POP 25eda-25ee2 RegCacheLoad> Σ0 ↓
<POP 25ee2-25ef0 Naked> Σ0 ↓ →0x25ef6
<Pointer.fp 0x25ee2 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x25ee4 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x25ee6 0x25cfe> {[@@-8]|[@@-4]}
<POP 25eea-25eec StackAdj> Δ+8 {}
<MI 25eec TST.L (A6-0x8)> {}
<MI 25eee BNE 0x25ef6> {}
<POP 25ef0-25ef6 Naked> Σ0 →0x25f08
<MI 25ef0 MOVE.L (A6-0x4),D0> {}
<MI 25ef2 ADDQ.L #0x5,D0> {}
<MI 25ef4 BRA 0x25f08> {}
<POP 25ef6-25f08 Naked> Σ0 ↓ ←0x25ee2
<MI 25ef6 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<MI 25ef8 ADDQ.L #0x5,(A7)> {[-4-]}
<Const 0x25efa 0x5.4> Δ-4 {[-4-]|[##5]}
<Call 0x25efe 0x25bea> {[-4-]|[##5]}
<POP 25f02-25f04 StackAdj> Δ+8 {}
<MI 25f04 MOVE.L (A6-0x8),D0> {}
<MI 25f06 ADDQ.L #0x6,D0> {}
<POP 25f08-25f18 Naked> Σ0 ↓ ←0x25ef0
<MI 25f08 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 25f0a SUB.L 0x2bbc0,D0> {[4, 'D0']}
<MI 25f10 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x25f12 0x25bea> {[4, 'D0']|[4, 'D0']}
<POP 25f16-25f18 StackAdj> Δ+8 {}
<POP 25f18-25f20 Epilogue> Σ0
@ 25f20
<LVAR 0x008 4(r)>
<LVAR -0x004 @>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<POP 25f20-26034 Body>
<POP 25f20-25f36 Prologue> Σ0 ↓
<POP 25f36-25f4e RegCacheLoad> Σ0 ↓
<POP 25f4e-25f52 Naked> Σ0 ↓ →0x25f5c
<MI 25f4e TST.B 0x2bbd2> {}
<MI 25f50 BEQ 0x25f5c> {}
<POP 25f52-25f56 Naked> Σ0 ↓ →0x25f5c
<MI 25f52 TST.L 0x2bbd8> {}
<MI 25f54 BNE 0x25f5c> {}
<POP 25f56-25f5c Naked> Σ0 ↓
<MI 25f56 MOVE.L (A6+0x8),0x2bbd8> {}
<MI 25f5a SUBQ.L #0x1,0x2bbd8> {}
<POP 25f5c-25f62 Naked> Σ0 ↓ →0x2602c ←0x25f4e ←0x25f52
<MI 25f5c TST.B 0x2bbd2> {}
<MI 25f5e BNE 0x2602c> {}
<POP 25f62-25f96 Naked> Σ0 ↓ →0x25fb0
<MI 25f62 MOVE.L (A6+0x8),0x2bbc0> {}
<MI 25f66 ADDQ.L #0x6,0x2bbc0> {}
<Pointer.fp 0x25f68 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x25f6a <LVAR -0x004 @>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x25f6e 0x259f6> {[@@-8]|[@@-4]}
<POP 25f72-25f74 StackAdj> Δ+8 {}
<Blob 0x25f74 [10] @> Δ-10 {[«10""»]}
<MI 25f80 MOVE.L (A6-0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6-0x8)']}
<Const 0x25f82 0x0.4> Δ-4 {[«10""»]|[4, '(A6-0x8)']|[##0]}
<Call 0x25f86 0x25ad8> {[«10""»]|[4, '(A6-0x8)']|[##0]}
<POP 25f8a-25f8e StackAdj> Δ+18 {}
<MI 25f8e TST.B 0x2bbdc> {}
<MI 25f94 BEQ 0x25fb0> {}
<POP 25f96-25fb0 Naked> Σ0 →0x25fc4
<POP 25f96-25f98 StackAdj> Δ-8 {[-8-]}
<MI 25f98 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x8)']}
<Const 0x25f9a 0x0.4> Δ-4 {[-8-]|[4, '(A6-0x8)']|[##0]}
<Call 0x25f9e 0x263f0> {[-8-]|[4, '(A6-0x8)']|[##0]}
<POP 25fa4-25fa6 StackAdj> Δ+8 {[-8-]}
<MI 25fa6 MOVE.L (A7)+,(A6-0x14)> Δ+4 {[-4-]}
<MI 25faa MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 25fae BRA 0x25fc4> {}
<POP 25fb0-25fc4 Naked> Σ0 ↓ ←0x25f62
<POP 25fb0-25fb2 StackAdj> Δ-4 {[-4-]}
<MI 25fb2 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<Const 0x25fb4 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x8)']|[##0]}
<Call 0x25fb8 0x263be> {[-4-]|[4, '(A6-0x8)']|[##0]}
<POP 25fbe-25fc0 StackAdj> Δ+8 {[-4-]}
<MI 25fc0 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<POP 25fc4-25fda Naked> Σ0 ↓ →0x26004 ←0x25f96
<MI 25fc4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x25fc6 0x25654> {[4, '(A6-0x8)']}
<POP 25fca-25fcc StackAdj> Δ+4 {}
<MI 25fcc MOVE.L 0x2bbc0,0x2bbd4> {}
<MI 25fd2 TST.B 0x2bbdc> {}
<MI 25fd8 BEQ 0x26004> {}
<POP 25fda-26004 Naked> Σ0 →0x2602c
<POP 25fda-25fdc StackAdj> Δ-2 {[-2-]}
<MI 25fdc MOVE.L (A6-0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']}
<MI 25fe0 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Blob 0x25fe4 [4] 0x2bbe6> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]}
<Blob 0x25fea [4] 0x2bbe2> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
<Call 0x25ff0 0x1032c> {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
IsEqual(a, b : Quad) : Bool
<POP 25ff6-25ffa StackAdj> Δ+16 {[-2-]}
<MI 25ffa MOVE.B (A7)+,D0> Δ+2 {}
<MI 25ffc EXTB.W D0> {}
<POP 0x25ffe LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 26000 MOVE.B D0,0x2bbd2> {}
<MI 26002 BRA 0x2602c> {}
<POP 26004-2602c Naked> Σ0 ↓ ←0x25fc4
<POP 26004-26006 StackAdj> Δ-2 {[-2-]}
<MI 26006 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xc)']}
<Blob 0x2600a [4] 0x2bbde> Δ-4 {[-2-]|[4, '(A6-0xc)']|[«4»]}
<Call 0x26010 0x102c8> {[-2-]|[4, '(A6-0xc)']|[«4»]}
StringEqual(a, b : String) : Byte
<POP 26016-26018 StackAdj> Δ+8 {[-2-]}
<MI 26018 MOVE.B (A7)+,D0> Δ+2 {}
<MI 2601a EXTB.W D0> {}
<POP 0x2601c LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 2601e MOVE.B D0,0x2bbd2> {}
<Pointer.fp 0x26020 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x26024 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 2602a-2602c StackAdj> Δ+4 {}
<POP 2602c-26034 Epilogue> Σ0 ←0x25f5c ←0x25fda
@ 26034
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 26034-261b6 Body>
<POP 26034-2604a Prologue> Σ0 ↓
<POP 2604a-2605e RegCacheLoad> Σ0 ↓
<POP 2605e-26072 Naked> Σ0 ↓
<MI 2605e CLR.B 0x2bbd2> {}
<MI 26060 CLR.L 0x2bbd4> {}
<MI 26066 CLR.L 0x2bbd8> {}
<MI 26068 MOVEQ.L #0x00,D7> {}
<MI 2606a MOVEQ.L #0x00,D6> {}
<MI 2606c MOVE.L 0x2bbc0,D5> {}
<POP 26072-26078 Naked> Σ0 ↓ →0x26116 ←0x26112
<MI 26072 TST.L D6> {}
<MI 26074 BNE 0x26116> {}
<POP 26078-26082 Naked> Σ0 ↓ →0x26116
<MI 26078 CMP.L 0x2bbc4,D5> {}
<MI 2607e BGT 0x26116> {}
<POP 26082-260a0 Naked> Σ0 ↓ →0x2610c
<MI 26082 MOVE.L D5,D0> {}
<MI 26084 SUBQ.L #0x1,D0> {}
<POP 0x26086 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 26090 LEA.L 0x29bb8,A0> {}
<MI 26096 MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 2609a CMPI.B #0x5b,D0> {}
<MI 2609e BNE 0x2610c> {}
<POP 260a0-260b4 Naked> Σ0 ↓ →0x260c8
<POP 260a0-260a2 StackAdj> Δ-2 {[-2-]}
<MI 260a2 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x260a4 0x28.4> Δ-4 {[-2-]|[4, 'D5']|[##40]}
<Const 0x260a8 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##40]|[##5]}
<Call 0x260ac 0x25b64> {[-2-]|[4, 'D5']|[##40]|[##5]}
<POP 260ae-260b0 StackAdj> Δ+12 {[-2-]}
<MI 260b0 TST.B (A7)+> Δ+2 {}
<MI 260b2 BNE 0x260c8> {}
<POP 260b4-260c8 Naked> Σ0 ↓ →0x260cc
<POP 260b4-260b6 StackAdj> Δ-2 {[-2-]}
<MI 260b6 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x260b8 0x2d.4> Δ-4 {[-2-]|[4, 'D5']|[##45]}
<Const 0x260bc 0x6.4> Δ-4 {[-2-]|[4, 'D5']|[##45]|[##6]}
<Call 0x260c0 0x25b64> {[-2-]|[4, 'D5']|[##45]|[##6]}
<POP 260c2-260c4 StackAdj> Δ+12 {[-2-]}
<MI 260c4 TST.B (A7)+> Δ+2 {}
<MI 260c6 BEQ 0x260cc> {}
<POP 260c8-260cc Naked> Σ0 →0x2610c ←0x260a0
<MI 260c8 ADDQ.L #0x1,D7> {}
<MI 260ca BRA 0x2610c> {}
<POP 260cc-260d0 Naked> Σ0 ↓ →0x260ee ←0x260b4
<MI 260cc TST.L D7> {}
<MI 260ce BNE 0x260ee> {}
<POP 260d0-260e4 Naked> Σ0 ↓ →0x260ee
<POP 260d0-260d2 StackAdj> Δ-2 {[-2-]}
<MI 260d2 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x260d4 0x33.4> Δ-4 {[-2-]|[4, 'D5']|[##51]}
<Const 0x260d8 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##51]|[##5]}
<Call 0x260dc 0x25b64> {[-2-]|[4, 'D5']|[##51]|[##5]}
<POP 260de-260e0 StackAdj> Δ+12 {[-2-]}
<MI 260e0 TST.B (A7)+> Δ+2 {}
<MI 260e2 BEQ 0x260ee> {}
<POP 260e4-260ee Naked> Σ0 →0x2610c
<MI 260e4 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<Call 0x260e6 0x25f20> {[4, 'D5']}
<POP 260ea-260ec StackAdj> Δ+4 {}
<MI 260ec BRA 0x2610c> {}
<POP 260ee-26102 Naked> Σ0 ↓ →0x2610c ←0x260cc ←0x260d0
<POP 260ee-260f0 StackAdj> Δ-2 {[-2-]}
<MI 260f0 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x260f2 0x38.4> Δ-4 {[-2-]|[4, 'D5']|[##56]}
<Const 0x260f6 0x8.4> Δ-4 {[-2-]|[4, 'D5']|[##56]|[##8]}
<Call 0x260fa 0x25b64> {[-2-]|[4, 'D5']|[##56]|[##8]}
<POP 260fc-260fe StackAdj> Δ+12 {[-2-]}
<MI 260fe TST.B (A7)+> Δ+2 {}
<MI 26100 BEQ 0x2610c> {}
<POP 26102-26106 Naked> Σ0 ↓ →0x2610a
<MI 26102 TST.L D7> {}
<MI 26104 BNE 0x2610a> {}
<POP 26106-2610a Naked> Σ0 →0x2610c
<MI 26106 MOVE.L D5,D6> {}
<MI 26108 BRA 0x2610c> {}
<POP 2610a-2610c Naked> Σ0 ↓ ←0x26102
<MI 2610a SUBQ.L #0x1,D7> {}
<POP 2610c-26110 Naked> Σ0 ↓ →0x26112 ←0x26082 ←0x260c8 ←0x260e4 ←0x260ee ←0x26106
<MI 2610c TST.L D6> {}
<MI 2610e BNE 0x26112> {}
<POP 26110-26112 Naked> Σ0 ↓
<MI 26110 ADDQ.L #0x1,D5> {}
<POP 26112-26116 Naked> Σ0 →0x26072 ←0x2610c
<MI 26112 BRA 0x26072> {}
<POP 26116-2611e Naked> Σ0 ↓ →0x2612c ←0x26072 ←0x26078
<MI 26116 TST.B 0x2bbdc> {}
<MI 2611c BNE 0x2612c> {}
<POP 2611e-2612c Naked> Σ0 ↓
<Const 0x2611e 0x2bbde.4> Δ-4 {[##179166]}
<Call 0x26124 0x102bc> {[##179166]}
FreeString(VAR a : String)
<POP 2612a-2612c StackAdj> Δ+4 {}
<POP 2612c-26130 Naked> Σ0 ↓ →0x26158 ←0x26116
<MI 2612c TST.B 0x2bbd2> {}
<MI 2612e BNE 0x26158> {}
<POP 26130-26158 Naked> Σ0 ↓
<Blob 0x26130 [26] @> Δ-26 {[«26""»]}
<POP 2613c-2613e StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x2613e 26> {[«26""»]|[$$No case alternative found!]}
<Call 0x26150 0x25696> {[«26""»]|[$$No case alternative found!]}
<POP 26154-26158 StackAdj> Δ+30 {}
<POP 26158-2615c Naked> Σ0 ↓ →0x2618a ←0x2612c
<MI 26158 TST.L D6> {}
<MI 2615a BNE 0x2618a> {}
<POP 2615c-2618a Naked> Σ0 ↓
<Blob 0x2615c [20] @> Δ-20 {[«20""»]}
<POP 2616e-26170 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x26170 19> {[«20""»]|[$$No [ENDCASE] found!]}
<Call 0x26182 0x25696> {[«20""»]|[$$No [ENDCASE] found!]}
<POP 26186-2618a StackAdj> Δ+24 {}
<POP 2618a-2619e Naked> Σ0 ↓ →0x261a8 ←0x26158
<MI 2618a MOVEA.L (A6+0x8),A0> {}
<MI 2618e MOVE.L D6,(A0)> {}
<MI 26190 MOVEA.L (A6+0x10),A0> {}
<MI 26194 MOVE.L 0x2bbd4,(A0)> {}
<MI 2619a TST.L 0x2bbd8> {}
<MI 2619c BNE 0x261a8> {}
<POP 2619e-261a8 Naked> Σ0 →0x261ae
<MI 2619e MOVEA.L (A6+0xc),A0> {}
<MI 261a2 MOVE.L D6,(A0)> {}
<MI 261a4 SUBQ.L #0x1,(A0)> {}
<MI 261a6 BRA 0x261ae> {}
<POP 261a8-261ae Naked> Σ0 ↓ ←0x2618a
<MI 261a8 MOVEA.L (A6+0xc),A0> {}
<MI 261ac MOVE.L 0x2bbd8,(A0)> {}
<POP 261ae-261b6 Epilogue> Σ0 ←0x2619e
@ 261b6
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 261b6-2622a Body>
<POP 261b6-261cc Prologue> Σ0 ↓
<POP 261cc-261d6 RegCacheLoad> Σ0 ↓
<POP 261d6-26222 Naked> Σ0 ↓
<MI 261d6 MOVE.L 0x2bbc0,D6> {}
<MI 261d8 CLR.B 0x2bbdc> {}
<MI 261de MOVE.L (A6+0x8),0x2bbde> {}
<MI 261e6 MOVE.L 0x2bbc0,D7> {}
<Pointer.fp 0x261e8 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x261ea <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x261ee <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x261f2 0x26034> {[@@-16]|[@@-12]|[@@-8]}
<POP 261f6-261fa StackAdj> Δ+12 {}
<MI 261fa MOVE.L D6,0x2bbc0> {}
<MI 261fc MOVE.L (A6-0x8),D0> {}
<MI 26200 ADDI.L #0x00000009,D0> {}
<MI 26206 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 26208 SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 2620c SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 2620e MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x26210 0x25bea> {[4, 'D0']|[4, 'D0']}
<POP 26214-26216 StackAdj> Δ+4 {[4, 'D0']}
<MI 26216 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 26218 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 2621a SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x2621c 0x25bea> {[4, '(A6-0x10)']|[-4-]}
<POP 26220-26222 StackAdj> Δ+8 {}
<POP 26222-2622a Epilogue> Σ0
@ 2622a
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 2622a-262a8 Body>
<POP 2622a-26240 Prologue> Σ0 ↓
<POP 26240-2624a RegCacheLoad> Σ0 ↓
<POP 2624a-262a0 Naked> Σ0 ↓
<MI 2624a MOVE.L 0x2bbc0,D6> {}
<MI 2624c MOVE.B #0x01,0x2bbdc> {}
<MI 26254 MOVE.L (A6+0x8),0x2bbe2> {}
<MI 2625c MOVE.L (A6+0xc),0x2bbe6> {}
<MI 26264 MOVE.L 0x2bbc0,D7> {}
<Pointer.fp 0x26266 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x26268 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x2626c <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x26270 0x26034> {[@@-16]|[@@-12]|[@@-8]}
<POP 26274-26278 StackAdj> Δ+12 {}
<MI 26278 MOVE.L D6,0x2bbc0> {}
<MI 2627a MOVE.L (A6-0x8),D0> {}
<MI 2627e ADDI.L #0x00000009,D0> {}
<MI 26284 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 26286 SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 2628a SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 2628c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x2628e 0x25bea> {[4, 'D0']|[4, 'D0']}
<POP 26292-26294 StackAdj> Δ+4 {[4, 'D0']}
<MI 26294 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 26296 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 26298 SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x2629a 0x25bea> {[4, '(A6-0x10)']|[-4-]}
<POP 2629e-262a0 StackAdj> Δ+8 {}
<POP 262a0-262a8 Epilogue> Σ0
@ 262a8
<LVAR 0x010 4(rw)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 262a8-262e0 Body>
<POP 262a8-262be Prologue> Σ0 ↓
<POP 262be-262c4 Naked> Σ0 ↓ →0x262ca
<MI 262be TST.L (A6+0x8)> {}
<MI 262c2 BNE 0x262ca> {}
<POP 262c4-262ca Naked> Σ0 →0x262d8
<MI 262c4 CLR.L (A6+0x10)> {}
<MI 262c8 BRA 0x262d8> {}
<POP 262ca-262d8 Naked> Σ0 ↓ ←0x262be
<MI 262ca MOVE.L (A6+0xc),D0> {}
<MI 262ce SUB.L (A6+0x8),D0> {}
<MI 262d2 ADDQ.L #0x1,D0> {}
<MI 262d4 MOVE.L D0,(A6+0x10)> {}
<POP 262d8-262e0 Epilogue> Σ0 ←0x262c4
@ 262e0
<LVAR 0x014 4(w)>
<LVAR 0x010 @ 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 262e0-26342 Body> Δ-4
<POP 262e0-262f6 Prologue> Σ0 ↓
<POP 262f6-2630c Naked> Σ0 Δ-4 ↓
<MI 262f6 MOVEA.L (A6+0xc),A4> {}
<MI 262fa MOVE.L 0x255ae,(A6+0x10)> {}
<MI 26300 MOVE.L 0x255b2,(A6+0x14)> {}
<MI 26306 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 2630a MOVEQ.L #0x00,D7> {[4, '(A6+0x8)']}
<POP 2630c-26310 Naked> Σ-4 ↓ →0x26338 ←0x26334
<MI 2630c CMP.L (A7),D7> {[-4-]}
<MI 2630e BGT 0x26338> {[-4-]}
<POP 26310-26316 Naked> Σ-4 ↓ →0x2631a
<MI 26310 CMPA.W #0x1,A4> {[-4-]}
<MI 26314 BNE 0x2631a> {[-4-]}
<POP 26316-2631a Naked> Σ-4 Δ+4 →0x2633a
<POP 26316-26318 StackAdj> Δ+4 {}
<MI 26318 BRA 0x2633a> {}
<POP 2631a-26320 Naked> Σ-4 ↓ →0x26330 ←0x26310
<MI 2631a CMP.L (A6+0x8),D7> {[-4-]}
<MI 2631e BNE 0x26330> {[-4-]}
<POP 26320-26330 Naked> Σ-4 →0x26334
<MI 26320 LEA.L (A6+0x10),A0> {[-4-]}
<MI 26324 MOVEA.L A4,A1> {[-4-]}
<BlockMove 8,A1,A0> {[-4-]}
<MI 2632e BRA 0x26334> {[-4-]}
<POP 26330-26334 Naked> Σ-4 ↓ ←0x2631a
<MI 26330 MOVEA.L (A4+0x8),A4> {[-4-]}
<POP 26334-26338 Naked> Σ-4 ↓ →0x2630c ←0x26320
<MI 26334 ADDQ.L #0x1,D7> {[-4-]}
<MI 26336 BVC 0x2630c> {[-4-]}
<POP 26338-2633a Naked> Σ-4 Δ+4 ↓ ←0x2630c
<POP 26338-2633a StackAdj> Δ+4 {}
<POP 2633a-26342 Epilogue> Σ0 ←0x26316
@ 26342
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 26342-263be Body> Δ-4
<POP 26342-26358 Prologue> Σ0 ↓
<POP 26358-2635c RegCacheLoad> Σ0 ↓
<POP 2635c-26374 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x2635c <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x2635e 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 26364 MOVE.L (A6+0xc),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']}
<MI 26368 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x2636c 0x262a8> {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 26370-26372 StackAdj> Δ+8 {[@@-8]}
<MI 26372 MOVEQ.L #0x01,D7> {[@@-8]}
<POP 26374-26378 Naked> Σ-4 ↓ →0x263b0 ←0x263a0
<MI 26374 CMP.L (A7),D7> {[-4-]}
<MI 26376 BGT 0x263b0> {[-4-]}
<POP 26378-2639c Naked> Σ-4 ↓ →0x263a0
<MI 26378 MOVE.L D7,D0> {[-4-]}
<MI 2637a ADD.L (A6+0x8),D0> {[-4-]}
<MI 2637e SUBQ.L #0x1,D0> {[-4-]}
<MI 26380 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x26382 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]}
<MI 2638c LEA.L 0x29bb8,A0> {[-4-]}
<MI 26392 MOVE.B (A0+D0.L+#0x8),D6> {[-4-]}
<MI 26396 CMPI.B #0x2f,D6> {[-4-]}
<MI 2639a BNE 0x263a0> {[-4-]}
<POP 2639c-263a0 Naked> Σ-4 Δ+4 →0x263b2
<POP 2639c-2639e StackAdj> Δ+4 {}
<MI 2639e BRA 0x263b2> {}
<POP 263a0-263b0 Naked> Σ-4 ↓ →0x26374 ←0x26378
<MI 263a0 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 263a2 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
<Call 0x263a4 0x102c0> {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 263aa-263ac StackAdj> Δ+6 {[-4-]}
<MI 263ac ADDQ.L #0x1,D7> {[-4-]}
<MI 263ae BVC 0x26374> {[-4-]}
<POP 263b0-263b2 Naked> Σ-4 Δ+4 ↓ ←0x26374
<POP 263b0-263b2 StackAdj> Δ+4 {}
<POP 263b2-263b6 Naked> Σ0 ↓ ←0x2639c
<MI 263b2 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 263b6-263be Epilogue> Σ0
@ 263be
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 263be-263f0 Body>
<POP 263be-263d0 Prologue> Σ0 ↓
<POP 263d0-263ec Naked> Σ0 ↓
<POP 263d0-263d4 StackAdj> Δ-12 {[-12-]}
<MI 263d4 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 263d8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x263dc 0x262e0> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 263e0-263e2 StackAdj> Δ+8 {[-12-]}
<Call 0x263e2 0x26342> {[-12-]}
<POP 263e6-263e8 StackAdj> Δ+8 {[-4-]}
<MI 263e8 MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 263ec-263f0 Epilogue> Σ0
@ 263f0
<LVAR 0x014 4(w)>
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 263f0-2642c Body>
<POP 263f0-26402 Prologue> Σ0 ↓
<POP 26402-26428 Naked> Σ0 ↓
<POP 26402-26406 StackAdj> Δ-12 {[-12-]}
<MI 26406 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 2640a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x2640e 0x263be> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 26412-26414 StackAdj> Δ+8 {[-12-]}
<Const 0x26414 0x10.4> Δ-4 {[-12-]|[##16]}
<Call 0x26418 0x10360> {[-12-]|[##16]}
?StringToInt64()
<POP 2641e-26420 StackAdj> Δ+8 {[-8-]}
<MI 26420 MOVE.L (A7)+,(A6+0x10)> Δ+4 {[-4-]}
<MI 26424 MOVE.L (A7)+,(A6+0x14)> Δ+4 {}
<POP 26428-2642c Epilogue> Σ0
@ 2642c
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2642c-26460 Body>
<POP 2642c-2643e Prologue> Σ0 ↓
<POP 2643e-2645c Naked> Σ0 ↓
<POP 2643e-26442 StackAdj> Δ-12 {[-12-]}
<MI 26442 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 26446 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x2644a 0x263f0> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 2644e-26450 StackAdj> Δ+8 {[-12-]}
<Call 0x26450 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 26456-26458 StackAdj> Δ+8 {[-4-]}
<MI 26458 MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 2645c-26460 Epilogue> Σ0
@ 26460
<LVAR 0x008 @ 4(r)>
<POP 26460-264e8 Body>
<POP 26460-26476 Prologue> Σ0 ↓
<POP 26476-2647c RegCacheLoad> Σ0 ↓
<POP 2647c-2649a Naked> Σ0 Δ-8 ↓
<MI 2647c MOVEA.L (A6+0x8),A0> {}
<MI 26480 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x26482 [4] 0x2bbc0> Δ-4 {[4, 'A0']|[«4»]}
<MI 26484 MOVE.W (A0),D0> {[4, 'A0']|[«4»]}
<MI 26486 EXTW.L D0> {[4, 'A0']|[«4»]}
<MI 26488 NEG.L D0> {[4, 'A0']|[«4»]}
<MI 2648a MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, 'D0']}
<Call 0x2648c 0x25bea> {[4, 'A0']|[«4»]|[4, 'D0']}
<POP 26490-26492 StackAdj> Δ+8 {[4, 'A0']}
<MI 26492 MOVE.W (A0),D0> {[4, 'A0']}
<MI 26494 EXTW.L D0> {[4, 'A0']}
<MI 26496 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 26498 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 2649a-2649e Naked> Σ-8 ↓ →0x264d2 ←0x2649e
<MI 2649a CMP.L (A7),D7> {[-8-]}
<MI 2649c BGT 0x264d2> {[-8-]}
<POP 2649e-264d2 Naked> Σ-8 ↓ →0x2649a
<MI 2649e MOVE.L D7,D0> {[-8-]}
<MI 264a0 ADD.L 0x2bbc0,D0> {[-8-]}
<MI 264a2 SUBQ.L #0x1,D0> {[-8-]}
<MI 264a4 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x264a6 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 264b0 LEA.L 0x29bb8,A0> {[-8-]}
<MI 264b6 MOVE.L D7,D1> {[-8-]}
<MI 264b8 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x264ba LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 264c4 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 264c8 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 264ce ADDQ.L #0x1,D7> {[-8-]}
<MI 264d0 BVC 0x2649a> {[-8-]}
<POP 264d2-264e0 Naked> Σ-8 Δ+8 ↓ ←0x2649a
<POP 264d2-264d4 StackAdj> Δ+8 {}
<Pointer.fp 0x264d4 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x264d8 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 264de-264e0 StackAdj> Δ+4 {}
<POP 264e0-264e8 Epilogue> Σ0
@ 264e8
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 264e8-2651c Body>
<POP 264e8-264fa Prologue> Σ0 ↓
<POP 264fa-26518 Naked> Σ0 ↓
<POP 264fa-264fc StackAdj> Δ-4 {[-4-]}
<MI 264fc MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 26500 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Const 0x26504 0x10.4> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
<Call 0x26508 0x1035c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
Quad2String(a : Quad; radix : Long ) : String
<POP 2650e-26512 StackAdj> Δ+12 {[-4-]}
<Call 0x26512 0x26460> {[-4-]}
<POP 26516-26518 StackAdj> Δ+4 {}
<POP 26518-2651c Epilogue> Σ0
@ 2651c
<LVAR 0x008 4(r)>
<POP 2651c-26546 Body>
<POP 2651c-2652e Prologue> Σ0 ↓
<POP 2652e-26542 Naked> Σ0 ↓
<POP 2652e-26530 StackAdj> Δ-4 {[-4-]}
<MI 26530 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x26534 0x102e4> {[-4-]|[4, '(A6+0x8)']}
Long2String(a : Long) : String
<POP 2653a-2653c StackAdj> Δ+4 {[-4-]}
<Call 0x2653c 0x26460> {[-4-]}
<POP 26540-26542 StackAdj> Δ+4 {}
<POP 26542-26546 Epilogue> Σ0
@ 26546
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 26546-26616 Body>
<POP 26546-2655c Prologue> Σ0 ↓
<POP 2655c-26564 RegCacheLoad> Σ0 ↓
<POP 26564-26576 Naked> Σ0 ↓
<MI 26564 MOVEA.L (A6+0x8),A0> {}
<MI 26568 MOVE.L (A0+0x8),(A6-0x8)> {}
<Pointer.fp 0x2656c <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x2656e 0x102b8> {[@@-4]}
NewString(VAR a : String)
<POP 26574-26576 StackAdj> Δ+4 {}
<POP 26576-26580 Naked> Σ0 ↓ →0x26604 ←0x265ec
<MI 26576 MOVEA.L (A6-0x8),A0> {}
<MI 26578 CMPA.W #0x1,A0> {}
<MI 2657c BEQ 0x26604> {}
<POP 26580-26584 Naked> Σ0 ↓ →0x265ec
<MI 26580 TST.L (A0)> {}
<MI 26582 BEQ 0x265ec> {}
<POP 26584-2658e Naked> Σ0 Δ-4 ↓ →0x265a2
<MI 26584 MOVE.L (A0+0x4),-(A7)> Δ-4 {[4, '(A0+0x4)']}
<MI 26588 MOVE.L (A0),D7> {[4, '(A0+0x4)']}
<MI 2658a CMP.L (A7),D7> {[4, '(A0+0x4)']}
<MI 2658c BGT 0x265a2> {[4, '(A0+0x4)']}
<POP 2658e-265a2 Naked> Σ-4 ↓
<MI 2658e MOVE.L (A7),D0> {[-4-]}
<POP 0x26590 LimitCheck -0x7fffffff ≤ D7> {[-4-]}
<MI 26590 CMPI.L #0x80000001,D7>
<MI 26596 BLT 0x265a0>
<POP 0x26598 LimitCheck D0 ≤ 0x7fffffff> {[-4-]}
<MI 26598 CMPI.L #0x7fffffff,D0>
<MI 2659e BLE 0x265a2>
<MI 265a0 TRAP #15>
<POP 265a2-265a6 Naked> Σ-4 ↓ →0x265ea ←0x26584 ←0x265e6
<MI 265a2 CMP.L (A7),D7> {[-4-]}
<MI 265a4 BGT 0x265ea> {[-4-]}
<POP 265a6-265d2 Naked> Σ-4 ↓ →0x265e6
<MI 265a6 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<MI 265a8 MOVE.L D7,D0> {[-4-]|[4, '(A6-0x4)']}
<MI 265aa SUBQ.L #0x1,D0> {[-4-]|[4, '(A6-0x4)']}
<POP 0x265ac LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-4-]|[4, '(A6-0x4)']}
<MI 265b6 LEA.L 0x29bb8,A0> {[-4-]|[4, '(A6-0x4)']}
<MI 265bc MOVE.B (A0+D0.L+#0x8),-(A7)> Δ-2 {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
<Call 0x265c0 0x102c0> {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
AppendChar(MOD b : String; a : char)
<POP 265c6-265c8 StackAdj> Δ+6 {[-4-]}
<MI 265c8 MOVEA.L (A6-0x4),A0> {[-4-]}
<MI 265ca MOVE.W (A0),D0> {[-4-]}
<MI 265cc CMPI.W #0x007a,D0> {[-4-]}
<MI 265d0 BLT 0x265e6> {[-4-]}
<POP 265d2-265e6 Naked> Σ-4 ↓
<MI 265d2 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<Call 0x265d4 0x103d8> {[-4-]|[4, '(A6-0x4)']}
WriteConsoleString(str : String)
<POP 265da-265dc StackAdj> Δ+4 {[-4-]}
<Pointer.fp 0x265dc <LVAR -0x004 @ 4(r)>> Δ-4 {[-4-]|[@@-4]}
<Call 0x265de 0x102b8> {[-4-]|[@@-4]}
NewString(VAR a : String)
<POP 265e4-265e6 StackAdj> Δ+4 {[-4-]}
<POP 265e6-265ea Naked> Σ-4 ↓ →0x265a2 ←0x265a6
<MI 265e6 ADDQ.L #0x1,D7> {[-4-]}
<MI 265e8 BVC 0x265a2> {[-4-]}
<POP 265ea-265ec Naked> Σ-4 Δ+4 ↓ ←0x265a2
<POP 265ea-265ec StackAdj> Δ+4 {}
<POP 265ec-26604 Naked> Σ0 →0x26576 ←0x26580
<MI 265ec MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Const 0x265ee 0x20.2> Δ-2 {[4, '(A6-0x4)']|[#32]}
<Call 0x265f2 0x102c0> {[4, '(A6-0x4)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 265f8-265fa StackAdj> Δ+6 {}
<MI 265fa MOVEA.L (A6-0x8),A0> {}
<MI 265fc MOVE.L (A0+0x8),(A6-0x8)> {}
<MI 26600 BRA 0x26576> {}
<POP 26604-2660e Naked> Σ0 ↓ ←0x26576
<MI 26604 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x26606 0x103e0> {[4, '(A6-0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 2660c-2660e StackAdj> Δ+4 {}
<POP 2660e-26616 Epilogue> Σ0
@ 26616
<LVAR 0x008 @ 4(r)>
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<POP 26616-26720 Body>
<POP 26616-2662c Prologue> Σ0 ↓
<POP 2662c-2663e RegCacheLoad> Σ0 ↓
<POP 2663e-26684 Naked> Σ0 ↓ →0x266ba
<Blob 0x2663e [4] @> Δ-4 {[«4""»]}
<POP 26642-26644 StackAdj> Δ-8 {[«4""»]|[-8-]}
<MI 26644 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[-8-]|[4, '(A6+0x8)']}
<Call 0x26646 0x102cc> {[«4""»]|[-8-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<Lit 0x2664c 4> {[«4""»]|[-8-]|[$$.HLP]}
<Call 0x2665e 0x102d0> {[«4""»]|[-8-]|[$$.HLP]}
StringCat2(a, b : String) : String
<POP 26664-26666 StackAdj> Δ+8 {[«4""»]|[-4-]}
<MI 26666 MOVE.L (A7)+,(A6-0xc)> Δ+4 {[«4""»]}
<MI 26668 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<MI 2666a CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]}
<MI 2666c CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]|[#0]}
<Const 0x2666e 0x0.4> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x26672 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x26674 <LVAR -0x008 @ 4(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x26676 0x10380> {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 2667c-26680 StackAdj> Δ+20 {}
<MI 26680 TST.B (A6-0x4)> {}
<MI 26682 BEQ 0x266ba> {}
<POP 26684-266ba Naked> Σ0 →0x2670e
<Blob 0x26684 [22] @> Δ-22 {[«22""»]}
<POP 26690-26692 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x26692 22> {[«22""»]|[-4-]|[$$No help available for_]}
<POP 266a2-266a4 StackAdj> Δ-4 {[«22""»]|[-4-]|[$$No help available for_]|[-4-]}
<MI 266a4 MOVE.L (A6+0x8),(A7)> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
<Call 0x266a6 0x102d0> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 266ac-266ae StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x266ae 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 266b4-266b8 StackAdj> Δ+26 {}
<MI 266b8 BRA 0x2670e> {}
<POP 266ba-266d2 Naked> Σ0 ↓ →0x266e6 ←0x2663e ←0x266e6
<MI 266ba MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Pointer.fp 0x266bc <LVAR 0x008 @ 4(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]}
<Pointer.fp 0x266be <LVAR -0x003 @ 1(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]|[@@-3]}
<Call 0x266c2 0x1043c> {[4, '(A6-0x8)']|[@@8]|[@@-3]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 266c8-266cc StackAdj> Δ+12 {}
<MI 266cc TST.B (A6-0x3)> {}
<MI 266d0 BNE 0x266e6> {}
<POP 266d2-266e6 Naked> Σ0 ↓
<POP 266d2-266d4 StackAdj> Δ-4 {[-4-]}
<MI 266d4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x266d6 0x102cc> {[-4-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<POP 266dc-266de StackAdj> Δ+4 {[-4-]}
<Call 0x266de 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 266e4-266e6 StackAdj> Δ+4 {}
<POP 266e6-266ec Naked> Σ0 ↓ →0x266ba ←0x266ba
<MI 266e6 TST.B (A6-0x3)> {}
<MI 266ea BEQ 0x266ba> {}
<POP 266ec-2670e Naked> Σ0 ↓
<MI 266ec CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x266ee 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x266f2 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x266f6 <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]}
<Pointer.fp 0x266f8 <LVAR -0x008 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
<Call 0x266fa 0x1038c> {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 26700-26704 StackAdj> Δ+16 {}
<Pointer.fp 0x26704 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x26706 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 2670c-2670e StackAdj> Δ+4 {}
<POP 2670e-26718 Naked> Σ0 ↓ ←0x26684
<Pointer.fp 0x2670e <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x26710 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 26716-26718 StackAdj> Δ+4 {}
<POP 26718-26720 Epilogue> Σ0
@ 26720
<LVAR 0x008 4(r)>
<POP 26720-267a2 Body>
<POP 26720-26736 Prologue> Σ0 ↓
<POP 26736-26746 Naked> Σ0 ↓ →0x26774
<POP 26736-26738 StackAdj> Δ-4 {[-4-]}
<MI 26738 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2673c 0x25aa2> {[-4-]|[4, '(A6+0x8)']}
<POP 26740-26742 StackAdj> Δ+4 {[-4-]}
<MI 26742 MOVE.L (A7)+,D6> Δ+4 {}
<MI 26744 BNE 0x26774> {}
<POP 26746-26774 Naked> Σ0 →0x2679a
<Blob 0x26746 [10] 0x2bbd2> Δ-10 {[«10»]}
<POP 26754-26756 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x26756> {[«10»]|[$$…]}
<Pointer.sp 0x26756 4> Δ-4
<Const 0x2675a 0x1.2> Δ-2
<Const 0x2675e 0xa.2> Δ-2
<Call 0x26762 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 26768-2676a StackAdj> Δ+8
<Call 0x2676a 0x26616> {[«10»]|[$$…]}
<POP 2676e-26772 StackAdj> Δ+14 {}
<MI 26772 BRA 0x2679a> {}
<POP 26774-26778 Naked> Σ0 Δ-4 ↓ ←0x26736
<MI 26774 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 26776 MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 26778-2677c Naked> Σ-4 ↓ →0x26798 ←0x2677c
<MI 26778 CMP.L (A7),D7> {[-4-]}
<MI 2677a BGT 0x26798> {[-4-]}
<POP 2677c-26798 Naked> Σ-4 ↓ →0x26778
<POP 2677c-2677e StackAdj> Δ-4 {[-8-]}
<MI 2677e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 26782 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x26784 0x263be> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 26788-2678a StackAdj> Δ+8 {[-8-]}
<MI 2678a MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<MI 2678c MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Call 0x2678e 0x26616> {[-4-]|[4, 'A4']}
<POP 26792-26794 StackAdj> Δ+4 {[-4-]}
<MI 26794 ADDQ.L #0x1,D7> {[-4-]}
<MI 26796 BVC 0x26778> {[-4-]}
<POP 26798-2679a Naked> Σ-4 Δ+4 ↓ ←0x26778
<POP 26798-2679a StackAdj> Δ+4 {}
<POP 2679a-267a2 Epilogue> Σ0 ←0x26746
@ 267a2
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x020 @>
<POP 267a2-26824 Body>
<POP 267a2-267b8 Prologue> Σ0 ↓
<POP 267b8-267ba RegCacheLoad> Σ0 ↓
<POP 267ba-267bc Naked> Σ0 ↓
<MI 267ba MOVEQ.L #0x01,D7> {}
<POP 267bc-267c8 Naked> Σ0 ↓ →0x267d8 ←0x267f6
<MI 267bc MOVEA.L (A6+0x8),A0> {}
<MI 267c0 MOVE.W (A0),D0> {}
<MI 267c2 EXTW.L D0> {}
<MI 267c4 CMP.L D0,D7> {}
<MI 267c6 BLE 0x267d8> {}
<POP 267c8-267d8 Naked> Σ0 →0x267f6
<MI 267c8 MOVE.L D7,D0> {}
<MI 267ca SUBQ.L #0x1,D0> {}
<POP 0x267cc LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 267d2 CLR.B (A6+D0.L-#0x20)> {}
<MI 267d6 BRA 0x267f6> {}
<POP 267d8-267f6 Naked> Σ0 ↓ ←0x267bc
<MI 267d8 MOVE.L D7,D0> {}
<MI 267da SUBQ.L #0x1,D0> {}
<POP 0x267dc LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 267e2 MOVE.L D7,D1> {}
<MI 267e4 SUBQ.L #0x1,D1> {}
<POP 0x267e6 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 267f0 MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20)> {}
<POP 267f6-26800 Naked> Σ0 ↓ →0x267bc ←0x267c8
<MI 267f6 ADDQ.L #0x1,D7> {}
<MI 267f8 CMPI.L #0x0000001e,D7> {}
<MI 267fe BLE 0x267bc> {}
<POP 26800-2681c Naked> Σ0 ↓
<Pointer.fp 0x26800 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x26804 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 2680a-2680c StackAdj> Δ+4 {}
<MI 2680c LEA.L (A6+0xc),A0> {}
<MI 26810 LEA.L (A6-0x20),A1> {}
<BlockMove 30,A1,A0> {}
<POP 2681c-26824 Epilogue> Σ0
@ 26824
<LVAR 0x026 4(w)>
<LVAR 0x008 @>
<LVAR -0x006 4(rw)>
<POP 26824-26878 Body>
<POP 26824-2683a Prologue> Σ0 ↓
<POP 2683a-2683e RegCacheLoad> Σ0 ↓
<POP 2683e-26846 Naked> Σ0 ↓
<MI 2683e MOVEQ.L #0x00,D7> {}
<MI 26840 MOVE.L 0x2bbea,(A6-0x6)> {}
<POP 26846-2684e Naked> Σ0 ↓ →0x2686c ←0x2686a
<MI 26846 MOVEA.L (A6-0x6),A0> {}
<MI 26848 CMPA.W #0x1,A0> {}
<MI 2684c BEQ 0x2686c> {}
<POP 2684e-26852 Naked> Σ0 ↓ →0x2686c
<MI 2684e TST.B D7> {}
<MI 26850 BNE 0x2686c> {}
<POP 26852-2685a Naked> Σ0 ↓
<MI 26852 MOVEA.L A0,A1> {}
<MI 26854 LEA.L (A6+0x8),A2> {}
<MI 26858 MOVEQ.L #0x1d,D0> {}
<POP 2685a-26860 Naked> Σ0 ↓ →0x2685a ←0x2685a
<MI 2685a CMPM.B (A1)+,(A2)+> {}
<MI 2685c DBNE D0,0x2685a> {}
<POP 26860-26862 Naked> Σ0 ↓ →0x26866
<MI 26860 BNE 0x26866> {}
<POP 26862-26866 Naked> Σ0 →0x2686a
<MI 26862 MOVEQ.L #0x01,D7> {}
<MI 26864 BRA 0x2686a> {}
<POP 26866-2686a Naked> Σ0 ↓ ←0x26860
<MI 26866 MOVE.L (A0+0x26),(A6-0x6)> {}
<POP 2686a-2686c Naked> Σ0 →0x26846 ←0x26862
<MI 2686a BRA 0x26846> {}
<POP 2686c-26870 Naked> Σ0 ↓ ←0x26846 ←0x2684e
<MI 2686c MOVE.L A0,(A6+0x26)> {}
<POP 26870-26878 Epilogue> Σ0
@ 26878
<LVAR 0x008 @ 4(r)>
<POP 26878-268fe Body>
<POP 26878-2688e Prologue> Σ0 ↓
<POP 2688e-2689a RegCacheLoad> Σ0 ↓
<POP 2689a-268a0 Naked> Σ0 ↓ →0x268f6
<MI 2689a MOVEA.L (A6+0x8),A0> {}
<MI 2689c CMPA.W #0x01,A0> {}
<MI 2689e BEQ 0x268f6> {}
<POP 268a0-268a6 Naked> Σ0 ↓ →0x268b6
<MI 268a0 TST.L (A0+0x1e)> {}
<MI 268a4 BEQ 0x268b6> {}
<POP 268a6-268b6 Naked> Σ0 ↓
<MI 268a6 MOVE.L (A0+0x22),-(A7)> Δ-4 {[4, '(A0+0x22)']}
<MI 268aa MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
<Call 0x268ae 0x102a4> {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
Free1(a : Pointer; b : Long)
<POP 268b4-268b6 StackAdj> Δ+8 {}
<POP 268b6-268bc Naked> Σ0 ↓ ←0x268a0
<MI 268b6 MOVEQ.L #0x00,D7> {}
<MI 268b8 MOVEA.W #0x01,A4> {}
<MI 268ba MOVEA.L 0x2bbea,A3> {}
<POP 268bc-268c0 Naked> Σ0 ↓ →0x268d4 ←0x268d2
<MI 268bc CMPA.W #0x01,A3> {}
<MI 268be BEQ 0x268d4> {}
<POP 268c0-268c4 Naked> Σ0 ↓ →0x268d4
<MI 268c0 TST.B D7> {}
<MI 268c2 BNE 0x268d4> {}
<POP 268c4-268c8 Naked> Σ0 ↓ →0x268cc
<MI 268c4 CMPA.L (A6+0x8),A3> {}
<MI 268c6 BNE 0x268cc> {}
<POP 268c8-268cc Naked> Σ0 →0x268d2
<MI 268c8 MOVEQ.L #0x01,D7> {}
<MI 268ca BRA 0x268d2> {}
<POP 268cc-268d2 Naked> Σ0 ↓ ←0x268c4
<MI 268cc MOVEA.L A3,A4> {}
<MI 268ce MOVEA.L (A3+0x26),A3> {}
<POP 268d2-268d4 Naked> Σ0 →0x268bc ←0x268c8
<MI 268d2 BRA 0x268bc> {}
<POP 268d4-268d8 Naked> Σ0 ↓ →0x268f6 ←0x268bc ←0x268c0
<MI 268d4 TST.B D7> {}
<MI 268d6 BEQ 0x268f6> {}
<POP 268d8-268dc Naked> Σ0 ↓ →0x268e2
<MI 268d8 CMPA.W #0x01,A4> {}
<MI 268da BNE 0x268e2> {}
<POP 268dc-268e2 Naked> Σ0 →0x268e8
<MI 268dc MOVE.L (A3+0x26),0x2bbea> {}
<MI 268e0 BRA 0x268e8> {}
<POP 268e2-268e8 Naked> Σ0 ↓ ←0x268d8
<MI 268e2 MOVE.L (A3+0x26),(A4+0x26)> {}
<POP 268e8-268f6 Naked> Σ0 ↓ ←0x268dc
<Pointer.fp 0x268e8 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Const 0x268ea 0x2a.4> Δ-4 {[@@8]|[##42]}
<Call 0x268ee 0x102a8> {[@@8]|[##42]}
Free2(a : Pointer; b : Long)
<POP 268f4-268f6 StackAdj> Δ+8 {}
<POP 268f6-268fe Epilogue> Σ0 ←0x2689a ←0x268d4
@ 268fe
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x024 @>
<POP 268fe-269bc Body>
<POP 268fe-26914 Prologue> Σ0 ↓
<POP 26914-2691e RegCacheLoad> Σ0 ↓
<POP 2691e-2693c Naked> Σ0 ↓ →0x2693e
<POP 2691e-26920 StackAdj> Δ-30 {[-30-]}
<MI 26920 MOVEA.L (A6+0xc),A0> {[-30-]}
<MI 26924 MOVE.L (A0),-(A7)> Δ-4 {[-30-]|[4, '(A0)']}
<Call 0x26926 0x267a2> {[-30-]|[4, '(A0)']}
<POP 2692a-2692c StackAdj> Δ+4 {[-30-]}
<MI 2692c LEA.L (A6-0x24),A0> {[-30-]}
<POP 26930-26938 StackPop> Δ+30 {[-30-]}
<BlockMove 30,A7,A0> Δ+30
<MI 26938 TST.L (A6+0x8)> {[-30-]}
<MI 2693a BGE 0x2693e> {[-30-]}
<POP 2693c-2693e Naked> Σ0 ↓
<MI 2693c CLR.L (A6+0x8)> {}
<POP 2693e-2695a Naked> Σ0 ↓ →0x2696c ←0x2691e
<POP 2693e-26940 StackAdj> Δ-4 {[-4-]}
<Blob 0x26940 [30] (A6-0x6)> Δ-30 {[-4-]|[«30»]}
<Call 0x2694a 0x26824> {[-4-]|[«30»]}
<POP 2694e-26950 StackAdj> Δ+30 {[-4-]}
<MI 26950 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 26952 MOVEA.L (A6-0x6),A0> {}
<MI 26954 CMPA.W #0x1,A0> {}
<MI 26958 BEQ 0x2696c> {}
<POP 2695a-26962 Naked> Σ0 ↓ →0x26964
<MI 2695a MOVE.L (A0+0x1e),D0> {}
<MI 2695e CMP.L (A6+0x8),D0> {}
<MI 26960 BNE 0x26964> {}
<POP 26962-26964 Naked> Σ0 →0x269b0
<MI 26962 BRA 0x269b0> {}
<POP 26964-2696c Naked> Σ0 ↓ ←0x2695a
<MI 26964 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x26966 0x26878> {[4, '(A6-0x6)']}
<POP 2696a-2696c StackAdj> Δ+4 {}
<POP 2696c-269a0 Naked> Σ0 ↓ →0x269b0 ←0x2693e
<Pointer.fp 0x2696c <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Const 0x2696e 0x2a.4> Δ-4 {[@@-6]|[##42]}
<Call 0x26972 0x1029c> {[@@-6]|[##42]}
Malloc1(length : Long) : Pointer
<POP 26978-2697a StackAdj> Δ+8 {}
<MI 2697a MOVEA.L (A6-0x6),A0> {}
<MI 2697c MOVE.L 0x2bbea,(A0+0x26)> {}
<MI 26984 MOVE.L (A6-0x6),0x2bbea> {}
<MI 2698a MOVEA.L A0,A1> {}
<MI 2698c LEA.L (A6-0x24),A2> {}
<BlockMove 30,A2,A1> {}
<MI 26998 MOVE.L (A6+0x8),(A0+0x1e)> {}
<MI 2699c TST.L (A6+0x8)> {}
<MI 2699e BEQ 0x269b0> {}
<POP 269a0-269b0 Naked> Σ0 ↓
<POP 269a0-269a2 StackAdj> Δ-4 {[-4-]}
<MI 269a2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x269a4 0x102a0> {[-4-]|[4, '(A6+0x8)']}
Malloc2(VAR dst : Pointer; length : Word)
<POP 269aa-269ac StackAdj> Δ+4 {[-4-]}
<MI 269ac MOVE.L (A7)+,(A0+0x22)> Δ+4 {}
<POP 269b0-269b4 Naked> Σ0 ↓ ←0x26962 ←0x2696c
<MI 269b0 MOVE.L (A6-0x6),(A6+0x10)> {}
<POP 269b4-269bc Epilogue> Σ0
@ 269bc
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 269bc-26a46 Body>
<POP 269bc-269d2 Prologue> Σ0 ↓
<POP 269d2-269d6 RegCacheLoad> Σ0 ↓
<POP 269d6-269f4 Naked> Σ0 ↓ →0x26a34
<MI 269d6 MOVEA.L (A6+0x8),A0> {}
<MI 269d8 MOVE.W (A0),D0> {}
<MI 269da EXTW.L D0> {}
<MI 269dc MOVE.L D0,D6> {}
<POP 269de-269e0 StackAdj> Δ-4 {[-4-]}
<Pointer.fp 0x269e0 <LVAR 0x00c @>> Δ-4 {[-4-]|[@@12]}
<MI 269e4 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[@@12]|[4, 'D6']}
<Call 0x269e6 0x268fe> {[-4-]|[@@12]|[4, 'D6']}
<POP 269ea-269ec StackAdj> Δ+8 {[-4-]}
<MI 269ec MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 269f0 TST.L D6> {}
<MI 269f2 BEQ 0x26a34> {}
<POP 269f4-26a02 Naked> Σ0 Δ-8 ↓
<MI 269f4 MOVEA.L (A6-0x8),A0> {}
<MI 269f8 MOVEA.L (A0+0x22),A0> {}
<MI 269fc MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 269fe MOVE.L D6,-(A7)> Δ-4 {[4, 'A0']|[4, 'D6']}
<MI 26a00 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D6']}
<POP 26a02-26a06 Naked> Σ-8 ↓ →0x26a32 ←0x26a06
<MI 26a02 CMP.L (A7),D7> {[-8-]}
<MI 26a04 BGT 0x26a32> {[-8-]}
<POP 26a06-26a32 Naked> Σ-8 ↓ →0x26a02
<MI 26a06 MOVE.L D7,D0> {[-8-]}
<MI 26a08 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x26a0a LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 26a14 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 26a18 MOVEA.L (A6+0x8),A1> {[-8-]}
<MI 26a1a MOVE.L D7,D1> {[-8-]}
<MI 26a1c SUBQ.L #0x1,D1> {[-8-]}
<POP 0x26a1e LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 26a28 MOVE.B (A1+D1.L+#0x2),(A0+D0.L)> {[-8-]}
<MI 26a2e ADDQ.L #0x1,D7> {[-8-]}
<MI 26a30 BVC 0x26a02> {[-8-]}
<POP 26a32-26a34 Naked> Σ-8 Δ+8 ↓ ←0x26a02
<POP 26a32-26a34 StackAdj> Δ+8 {}
<POP 26a34-26a3e Naked> Σ0 ↓ ←0x269d6
<Pointer.fp 0x26a34 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x26a36 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 26a3c-26a3e StackAdj> Δ+4 {}
<POP 26a3e-26a46 Epilogue> Σ0
@ 26a46
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(w)>
<LVAR -0x008 4(rw)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x01c 4(rw)>
<LVAR -0x020 4(rw)>
<POP 26a46-26bb2 Body>
<POP 26a46-26a5c Prologue> Σ0 ↓
<POP 26a5c-26a6a RegCacheLoad> Σ0 ↓
<POP 26a6a-26a7c Naked> Σ0 ↓ →0x26aaa
<POP 26a6a-26a6c StackAdj> Δ-4 {[-4-]}
<MI 26a6c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x26a6e 0x25aa2> {[-4-]|[4, '(A6+0x8)']}
<POP 26a72-26a74 StackAdj> Δ+4 {[-4-]}
<MI 26a74 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 26a76 MOVE.L (A6-0x10),D0> {}
<MI 26a78 CMP.L #0x01,D0> {}
<MI 26a7a BGE 0x26aaa> {}
<POP 26a7c-26aaa Naked> Σ0 ↓
<Blob 0x26a7c [26] @> Δ-26 {[«26""»]}
<POP 26a8e-26a90 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x26a90 25> {[«26""»]|[$$Too few arguments for SET]}
<Call 0x26aa2 0x25696> {[«26""»]|[$$Too few arguments for SET]}
<POP 26aa6-26aaa StackAdj> Δ+30 {}
<POP 26aaa-26ab0 Naked> Σ0 Δ-4 ↓ ←0x26a6a
<MI 26aaa CLR.L (A6-0xc)> {}
<MI 26aac MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 26aae MOVEQ.L #0x02,D6> {[4, 'D0']}
<POP 26ab0-26ab4 Naked> Σ-4 ↓ →0x26ad2 ←0x26ab4
<MI 26ab0 CMP.L (A7),D6> {[-4-]}
<MI 26ab2 BGT 0x26ad2> {[-4-]}
<POP 26ab4-26ad2 Naked> Σ-4 ↓ →0x26ab0
<POP 26ab4-26ab8 StackAdj> Δ-12 {[-16-]}
<MI 26ab8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 26aba MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x26abc 0x262e0> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 26ac0-26ac2 StackAdj> Δ+8 {[-16-]}
<Call 0x26ac2 0x262a8> {[-16-]}
<POP 26ac6-26ac8 StackAdj> Δ+8 {[-8-]}
<MI 26ac8 MOVE.L (A6-0xc),D0> {[-8-]}
<MI 26aca ADD.L (A7)+,D0> Δ+4 {[-4-]}
<MI 26acc MOVE.L D0,(A6-0xc)> {[-4-]}
<MI 26ace ADDQ.L #0x1,D6> {[-4-]}
<MI 26ad0 BVC 0x26ab0> {[-4-]}
<POP 26ad2-26b02 Naked> Σ-4 Δ+4 ↓ →0x26baa ←0x26ab0
<POP 26ad2-26ad4 StackAdj> Δ+4 {}
<MI 26ad4 MOVE.L (A6-0x10),D0> {}
<MI 26ad6 SUBQ.L #0x2,D0> {}
<MI 26ad8 ADD.L D0,(A6-0xc)> {}
<POP 26ada-26adc StackAdj> Δ-4 {[-4-]}
<MI 26adc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x26ade 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26ae2 0x263be> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 26ae6-26ae8 StackAdj> Δ+8 {[-4-]}
<MI 26ae8 MOVE.L (A7),(A6-0x4)> {[-4-]}
<Pointer.fp 0x26aec <LVAR -0x004 @ 4(w)>> Δ-4 {[-4-]|[@@-4]}
<MI 26af0 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<Call 0x26af2 0x268fe> {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<POP 26af6-26af8 StackAdj> Δ+8 {[-4-]}
<MI 26af8 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 26afc TST.L (A6-0xc)> {}
<MI 26afe BLE 0x26baa> {}
<POP 26b02-26b12 Naked> Σ0 Δ-8 ↓
<MI 26b02 MOVEA.L (A6-0x8),A0> {}
<MI 26b06 MOVEA.L (A0+0x22),A0> {}
<MI 26b0a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 26b0c MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 26b0e MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x10)']}
<MI 26b10 MOVEQ.L #0x02,D6> {[4, 'A0']|[4, '(A6-0x10)']}
<POP 26b12-26b18 Naked> Σ-8 ↓ →0x26ba8 ←0x26ba2
<MI 26b12 CMP.L (A7),D6> {[-8-]}
<MI 26b14 BGT 0x26ba8> {[-8-]}
<POP 26b18-26b38 Naked> Σ-8 Δ-4 ↓ →0x26b4c
<POP 26b18-26b1a StackAdj> Δ-8 {[-16-]}
<MI 26b1a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 26b1c MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x26b1e 0x262e0> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 26b22-26b24 StackAdj> Δ+8 {[-16-]}
<MI 26b24 MOVE.L (A7)+,(A6-0x20)> Δ+4 {[-12-]}
<MI 26b28 MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-8-]}
<MI 26b2c MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x1c)']}
<MI 26b30 MOVE.L (A6-0x20),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 26b34 CMP.L (A7),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 26b36 BGT 0x26b4c> {[-8-]|[4, '(A6-0x1c)']}
<POP 26b38-26b4c Naked> Σ-12 ↓
<MI 26b38 MOVE.L (A7),D0> {[-12-]}
<POP 0x26b3a LimitCheck -0x7fffffff ≤ D5> {[-12-]}
<MI 26b3a CMPI.L #0x80000001,D5>
<MI 26b40 BLT 0x26b4a>
<POP 0x26b42 LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 26b42 CMPI.L #0x7fffffff,D0>
<MI 26b48 BLE 0x26b4c>
<MI 26b4a TRAP #15>
<POP 26b4c-26b50 Naked> Σ-12 ↓ →0x26b82 ←0x26b18 ←0x26b50
<MI 26b4c CMP.L (A7),D5> {[-12-]}
<MI 26b4e BGT 0x26b82> {[-12-]}
<POP 26b50-26b82 Naked> Σ-12 ↓ →0x26b4c
<MI 26b50 MOVE.L D7,D0> {[-12-]}
<MI 26b52 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x26b54 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-12-]}
<MI 26b5e MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 26b62 MOVE.L D5,D1> {[-12-]}
<MI 26b64 SUBQ.L #0x1,D1> {[-12-]}
<POP 0x26b66 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-12-]}
<MI 26b70 LEA.L 0x29bb8,A1> {[-12-]}
<MI 26b76 MOVE.B (A1+D1.L+#0x8),(A0+D0.L)> {[-12-]}
<MI 26b7c ADDQ.L #0x1,D7> {[-12-]}
<MI 26b7e ADDQ.L #0x1,D5> {[-12-]}
<MI 26b80 BVC 0x26b4c> {[-12-]}
<POP 26b82-26b88 Naked> Σ-12 Δ+4 ↓ →0x26ba2 ←0x26b4c
<POP 26b82-26b84 StackAdj> Δ+4 {[-8-]}
<MI 26b84 CMP.L (A6-0x10),D6> {[-8-]}
<MI 26b86 BEQ 0x26ba2> {[-8-]}
<POP 26b88-26ba2 Naked> Σ-8 ↓
<MI 26b88 MOVE.L D7,D0> {[-8-]}
<MI 26b8a SUBQ.L #0x1,D0> {[-8-]}
<POP 0x26b8c LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 26b96 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 26b9a MOVE.B #0x2c,(A0+D0.L)> {[-8-]}
<MI 26ba0 ADDQ.L #0x1,D7> {[-8-]}
<POP 26ba2-26ba8 Naked> Σ-8 ↓ →0x26b12 ←0x26b82
<MI 26ba2 ADDQ.L #0x1,D6> {[-8-]}
<MI 26ba4 BVC 0x26b12> {[-8-]}
<POP 26ba8-26baa Naked> Σ-8 Δ+8 ↓ ←0x26b12
<POP 26ba8-26baa StackAdj> Δ+8 {}
<POP 26baa-26bb2 Epilogue> Σ0 ←0x26ad2
@ 26bb2
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<POP 26bb2-26ca0 Body>
<POP 26bb2-26bc8 Prologue> Σ0 ↓
<POP 26bc8-26bd0 RegCacheLoad> Σ0 ↓
<POP 26bd0-26c02 Naked> Σ0 ↓ →0x26c44
<POP 26bd0-26bd2 StackAdj> Δ-4 {[-4-]}
<MI 26bd2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x26bd6 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26bda 0x263be> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 26bde-26be0 StackAdj> Δ+8 {[-4-]}
<MI 26be0 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 26be2-26be6 StackAdj> Δ-34 {[-34-]}
<MI 26be6 MOVE.L A4,-(A7)> Δ-4 {[-34-]|[4, 'A4']}
<Call 0x26be8 0x267a2> {[-34-]|[4, 'A4']}
<POP 26bec-26bee StackAdj> Δ+4 {[-34-]}
<Call 0x26bee 0x26824> {[-34-]}
<POP 26bf2-26bf6 StackAdj> Δ+30 {[-4-]}
<MI 26bf6 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 26bfa MOVEA.L (A6-0xc),A0> {}
<MI 26bfe CMPA.W #0x01,A0> {}
<MI 26c00 BNE 0x26c44> {}
<POP 26c02-26c44 Naked> Σ0 ↓
<Blob 0x26c02 [20] @> Δ-20 {[«20""»]}
<POP 26c14-26c16 StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x26c16 19> {[«20""»]|[-4-]|[$$Unknown variable :_]}
<MI 26c26 MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 26c20-26c26 StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Const 0x26c2a 0x1.4> Δ-4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<Call 0x26c2e 0x263be> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<POP 26c32-26c34 StackAdj> Δ+8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x26c34 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 26c3a-26c3c StackAdj> Δ+8 {[«20""»]|[-4-]}
<Call 0x26c3c 0x25696> {[«20""»]|[-4-]}
<POP 26c40-26c44 StackAdj> Δ+24 {}
<POP 26c44-26c5a Naked> Σ0 Δ-8 ↓ ←0x26bd0
<MI 26c44 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x26c46 [4] 0x2bbc0> Δ-4 {[4, 'A0']|[«4»]}
<MI 26c48 MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<MI 26c4c NEG.L (A7)> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<Call 0x26c4e 0x25bea> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<POP 26c52-26c54 StackAdj> Δ+4 {[4, 'A0']|[«4»]}
<MI 26c54 MOVE.L (A0+0x1e),(A7)> {[4, 'A0']|[4, '(A0+0x1e)']}
<MI 26c58 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, '(A0+0x1e)']}
<POP 26c5a-26c5e Naked> Σ-8 ↓ →0x26c96 ←0x26c5e
<MI 26c5a CMP.L (A7),D7> {[-8-]}
<MI 26c5c BGT 0x26c96> {[-8-]}
<POP 26c5e-26c96 Naked> Σ-8 ↓ →0x26c5a
<MI 26c5e MOVE.L D7,D0> {[-8-]}
<MI 26c60 ADD.L 0x2bbc0,D0> {[-8-]}
<MI 26c62 SUBQ.L #0x1,D0> {[-8-]}
<MI 26c64 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x26c66 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 26c70 LEA.L 0x29bb8,A0> {[-8-]}
<MI 26c76 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 26c7a MOVEA.L (A1+0x22),A1> {[-8-]}
<MI 26c7e MOVE.L D7,D1> {[-8-]}
<MI 26c80 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x26c82 LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {[-8-]}
<MI 26c8c MOVE.B (A1+D1.L),(A0+D0.L+#0x8)> {[-8-]}
<MI 26c92 ADDQ.L #0x1,D7> {[-8-]}
<MI 26c94 BVC 0x26c5a> {[-8-]}
<POP 26c96-26c98 Naked> Σ-8 Δ+8 ↓ ←0x26c5a
<POP 26c96-26c98 StackAdj> Δ+8 {}
<POP 26c98-26ca0 Epilogue> Σ0
@ 26ca0
<LVAR -0x004 4(rw)>
<POP 26ca0-26d02 Body>
<POP 26ca0-26cb6 Prologue> Σ0 ↓
<POP 26cb6-26cbe RegCacheLoad> Σ0 ↓
<POP 26cbe-26cc4 Naked> Σ0 ↓
<MI 26cbe MOVE.L 0x2bbea,(A6-0x4)> {}
<POP 26cc4-26cca Naked> Σ0 ↓ →0x26cfa ←0x26cca
<MI 26cc4 MOVEA.L (A6-0x4),A0> {}
<MI 26cc6 CMPA.W #0x01,A0> {}
<MI 26cc8 BEQ 0x26cfa> {}
<POP 26cca-26cfa Naked> Σ0 →0x26cc4
<POP 26cca-26ccc StackAdj> Δ-30 {[-30-]}
<MI 26ccc MOVEA.L A7,A1> {[-30-]}
<MI 26cce MOVEA.L A0,A2> {[-30-]}
<BlockMove 30,A2,A1> {[-30-]}
<POP 26cd8-26cda StackAdj> Δ-4 {[-34-]}
<Lit 0x26cda> {[-30-]|[$$…]}
<Pointer.sp 0x26cda 4> Δ-4
<Const 0x26cde 0x1.2> Δ-2
<Const 0x26ce0 0x1e.2> Δ-2
<Call 0x26ce2 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 26ce8-26cea StackAdj> Δ+8
<Call 0x26cea 0x103e0> {[-30-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 26cf0-26cf4 StackAdj> Δ+34 {}
<MI 26cf4 MOVE.L (A0+0x26),(A6-0x4)> {}
<MI 26cf8 BRA 0x26cc4> {}
<POP 26cfa-26d02 Epilogue> Σ0 ←0x26cc4
@ 26d02
<LVAR 0x008 4(r)>
<POP 26d02-26d3e Body>
<POP 26d02-26d14 Prologue> Σ0 ↓
<POP 26d14-26d3a Naked> Σ0 ↓
<POP 26d14-26d18 StackAdj> Δ-38 {[-38-]}
<MI 26d18 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-38-]|[4, '(A6+0x8)']}
<Const 0x26d1c 0x1.4> Δ-4 {[-38-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26d20 0x263be> {[-38-]|[4, '(A6+0x8)']|[##1]}
<POP 26d24-26d26 StackAdj> Δ+8 {[-38-]}
<Call 0x26d26 0x267a2> {[-38-]}
<POP 26d2a-26d2c StackAdj> Δ+4 {[-34-]}
<Call 0x26d2c 0x26824> {[-34-]}
<POP 26d30-26d34 StackAdj> Δ+30 {[-4-]}
<Call 0x26d34 0x26878> {[-4-]}
<POP 26d38-26d3a StackAdj> Δ+4 {}
<POP 26d3a-26d3e Epilogue> Σ0
@ 26d3e
<POP 26d3e-26d6c Body>
<POP 26d3e-26d50 Prologue> Σ0 ↓
<POP 26d50-26d68 Naked> Σ0 ↓
<POP 26d50-26d52 StackAdj> Δ-8 {[-8-]}
<Call 0x26d52 0x103cc> {[-8-]}
GetPushLevel() : Long
<Call 0x26d58 0x102e4> {[-8-]}
Long2String(a : Long) : String
<POP 26d5e-26d60 StackAdj> Δ+4 {[-4-]}
<Call 0x26d60 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 26d66-26d68 StackAdj> Δ+4 {}
<POP 26d68-26d6c Epilogue> Σ0
@ 26d6c
<LVAR 0x008 4(r)>
<LVAR -0x004 1(rw)>
<LVAR -0x008 @ 4(rw)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x012 @ 1(r)>
<LVAR -0x013 @ 1(r)>
<LVAR -0x014 @ 1(r)>
<LVAR -0x024 4(rw)>
<LVAR -0x028 4(rw)>
<LVAR -0x02c 4(rw)>
<LVAR -0x030 @ 4(r)>
<LVAR -0x032 1(w)>
<LVAR -0x036 @ 4(r)>
<LVAR -0x038 @ 1(r)>
<LVAR -0x03c @ 4(rw)>
<POP 26d6c-27094 Body>
<POP 26d6c-26d82 Prologue> Σ0 ↓
<POP 26d82-26d9a RegCacheLoad> Σ0 ↓
<POP 26d9a-26daa Naked> Σ0 ↓ →0x26dd2
<POP 26d9a-26d9c StackAdj> Δ-4 {[-4-]}
<MI 26d9c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x26d9e 0x25aa2> {[-4-]|[4, '(A6+0x8)']}
<POP 26da2-26da4 StackAdj> Δ+4 {[-4-]}
<MI 26da4 MOVE.L (A7)+,(A6-0x2c)> Δ+4 {}
<MI 26da8 BNE 0x26dd2> {}
<POP 26daa-26dd2 Naked> Σ0 →0x26de2
<POP 26daa-26dac StackAdj> Δ-4 {[-4-]}
<POP 26dac-26dad StackAdj> Δ+2 {[-2-]}
<Blob 0x26dad [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 26db0 MOVE.B 0x252bb,(A7+0x1)> {[-2-]|[«2""»]}
<MI 26db6 MOVE.B 0x252bc,(A7+0x2)> {[-2-]|[«2""»]}
<POP 26dbc-26dbe StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x26dbe> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x26dbe 4> Δ-4
<Const 0x26dc2 0x1.2> Δ-2
<Const 0x26dc4 0x3.2> Δ-2
<Call 0x26dc8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 26dca-26dcc StackAdj> Δ+8
<MI 26dcc MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[-2-]|[«2""»]}
<POP 26dce-26dd0 StackAdj> Δ+4 {}
<MI 26dd0 BRA 0x26de2> {}
<POP 26dd2-26de2 Naked> Σ0 ↓ ←0x26d9a
<POP 26dd2-26dd4 StackAdj> Δ-4 {[-4-]}
<MI 26dd4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x26dd6 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x26dda 0x263be> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 26dde-26de0 StackAdj> Δ+8 {[-4-]}
<MI 26de0 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {}
<POP 26de2-26e32 Naked> Σ0 ↓ →0x26e40 ←0x26daa
<Blob 0x26de2 [6] @> Δ-6 {[«6""»]}
<POP 26df2-26df4 StackAdj> Δ-4 {[«6""»]|[-4-]}
<MI 26df4 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 26df6-26df8 StackAdj> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x26df8 5> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
<Call 0x26e06 0x102d0> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
StringCat2(a, b : String) : String
<POP 26e0c-26e0e StackAdj> Δ+8 {[«6""»]|[-4-]}
<MI 26e0e MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[«6""»]}
<POP 26e10-26e12 StackAdj> Δ+2 {[-4-]}
<MI 26e12 MOVE.L (A6-0x3c),(A7)> {[4, '(A6-0x3c)']}
<MI 26e14 CLR.B -(A7)> Δ-2 {[4, '(A6-0x3c)']|[#0]}
<Const 0x26e16 0x1.2> Δ-2 {[4, '(A6-0x3c)']|[#0]|[#1]}
<Const 0x26e18 0x0.4> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x26e1c <LVAR -0x038 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]}
<Pointer.fp 0x26e20 <LVAR -0x036 @ 4(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
<Call 0x26e24 0x10380> {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 26e2a-26e2c StackAdj> Δ+20 {}
<MI 26e2c TST.B (A6-0x38)> {}
<MI 26e30 BEQ 0x26e40> {}
<POP 26e32-26e40 Naked> Σ0 →0x2708c
<Pointer.fp 0x26e32 <LVAR -0x03c @ 4(rw)>> Δ-4 {[@@-60]}
<Call 0x26e34 0x102bc> {[@@-60]}
FreeString(VAR a : String)
<POP 26e3a-26e3c StackAdj> Δ+4 {}
<MI 26e3c BRA 0x2708c> {}
<POP 26e40-26e86 Naked> Σ0 ↓ →0x26ebc ←0x26de2
<MI 26e40 MOVEA.L (A6-0x36),A0> {}
<MI 26e44 MOVE.B (A0+0x3f),D0> {}
<MI 26e48 LSL.B #0x6,D0> {}
<MI 26e4a LSR.B #0x7,D0> {}
<MI 26e4c MOVE.B D0,(A6-0x32)> {}
<MI 26e50 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x26e52 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x26e54 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x26e58 <LVAR -0x038 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]}
<Pointer.fp 0x26e5c <LVAR -0x036 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
<Call 0x26e60 0x1038c> {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 26e66-26e6a StackAdj> Δ+16 {}
<MI 26e6a MOVEA.L (A6-0x3c),A0> {}
<MI 26e6c MOVE.W (A0),D1> {}
<MI 26e6e EXTW.L D1> {}
<MI 26e70 SUBQ.L #0x5,D1> {}
<POP 0x26e72 LimitCheck -0x8000 ≤ D1 ≤ 0x7fff> {}
<MI 26e80 MOVE.W D1,(A0)> {}
<MI 26e82 TST.B D0> {}
<MI 26e84 BNE 0x26ebc> {}
<POP 26e86-26ebc Naked> Σ0 →0x2708c
<Blob 0x26e86 [18] @> Δ-18 {[«18""»]}
<POP 26e92-26e94 StackAdj> Δ-4 {[«18""»]|[-4-]}
<MI 26e94 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 26e96-26e98 StackAdj> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x26e98 18> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
<Call 0x26ea6 0x102d0> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
StringCat2(a, b : String) : String
<POP 26eac-26eae StackAdj> Δ+8 {[«18""»]|[-4-]}
<Call 0x26eae 0x103e0> {[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 26eb4-26eb8 StackAdj> Δ+22 {}
<MI 26eb8 BRA 0x2708c> {}
<POP 26ebc-26ed6 Naked> Σ0 Δ-8 ↓ ←0x26e40
<Pointer.fp 0x26ebc <LVAR -0x030 @ 4(r)>> Δ-4 {[@@-48]}
<Call 0x26ec0 0x102b8> {[@@-48]}
NewString(VAR a : String)
<POP 26ec6-26ec8 StackAdj> Δ+4 {}
<MI 26ec8 MOVEA.L (A6-0x30),A0> {}
<MI 26ecc MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 26ece MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 26ed0 MOVE.L (A6-0x2c),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x2c)']}
<MI 26ed4 MOVEQ.L #0x02,D5> {[4, 'A0']|[4, '(A6-0x2c)']}
<POP 26ed6-26edc Naked> Σ-8 ↓ →0x26f6e ←0x26f68
<MI 26ed6 CMP.L (A7),D5> {[-8-]}
<MI 26ed8 BGT 0x26f6e> {[-8-]}
<POP 26edc-26efc Naked> Σ-8 Δ-4 ↓ →0x26f10
<POP 26edc-26ede StackAdj> Δ-8 {[-16-]}
<MI 26ede MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 26ee0 MOVE.L D5,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x26ee2 0x262e0> {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 26ee6-26ee8 StackAdj> Δ+8 {[-16-]}
<MI 26ee8 MOVE.L (A7)+,(A6-0x28)> Δ+4 {[-12-]}
<MI 26eec MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-8-]}
<MI 26ef0 MOVE.L (A6-0x24),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x24)']}
<MI 26ef4 MOVE.L (A6-0x28),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 26ef8 CMP.L (A7),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 26efa BGT 0x26f10> {[-8-]|[4, '(A6-0x24)']}
<POP 26efc-26f10 Naked> Σ-12 ↓
<MI 26efc MOVE.L (A7),D0> {[-12-]}
<POP 0x26efe LimitCheck -0x7fffffff ≤ D6> {[-12-]}
<MI 26efe CMPI.L #0x80000001,D6>
<MI 26f04 BLT 0x26f0e>
<POP 0x26f06 LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 26f06 CMPI.L #0x7fffffff,D0>
<MI 26f0c BLE 0x26f10>
<MI 26f0e TRAP #15>
<POP 26f10-26f14 Naked> Σ-12 ↓ →0x26f46 ←0x26edc ←0x26f14
<MI 26f10 CMP.L (A7),D6> {[-12-]}
<MI 26f12 BGT 0x26f46> {[-12-]}
<POP 26f14-26f46 Naked> Σ-12 ↓ →0x26f10
<MI 26f14 MOVE.L D7,D0> {[-12-]}
<MI 26f16 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x26f18 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 26f22 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 26f26 MOVE.L D6,D1> {[-12-]}
<MI 26f28 SUBQ.L #0x1,D1> {[-12-]}
<POP 0x26f2a LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-12-]}
<MI 26f34 LEA.L 0x29bb8,A1> {[-12-]}
<MI 26f3a MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2)> {[-12-]}
<MI 26f40 ADDQ.L #0x1,D7> {[-12-]}
<MI 26f42 ADDQ.L #0x1,D6> {[-12-]}
<MI 26f44 BVC 0x26f10> {[-12-]}
<POP 26f46-26f4e Naked> Σ-12 Δ+4 ↓ →0x26f68 ←0x26f10
<POP 26f46-26f48 StackAdj> Δ+4 {[-8-]}
<MI 26f48 CMP.L (A6-0x2c),D5> {[-8-]}
<MI 26f4c BEQ 0x26f68> {[-8-]}
<POP 26f4e-26f68 Naked> Σ-8 ↓
<MI 26f4e MOVE.L D7,D0> {[-8-]}
<MI 26f50 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x26f52 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 26f5c MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 26f60 MOVE.B #0x2c,(A0+D0.L+#0x2)> {[-8-]}
<MI 26f66 ADDQ.L #0x1,D7> {[-8-]}
<POP 26f68-26f6e Naked> Σ-8 ↓ →0x26ed6 ←0x26f46
<MI 26f68 ADDQ.L #0x1,D5> {[-8-]}
<MI 26f6a BVC 0x26ed6> {[-8-]}
<POP 26f6e-2701e Naked> Σ-8 Δ+8 ↓ →0x27024 ←0x26ed6
<POP 26f6e-26f70 StackAdj> Δ+4 {[-4-]}
<MI 26f70 MOVEA.L (A7),A0> {[-4-]}
<MI 26f72 MOVE.L D7,D0> {[-4-]}
<MI 26f74 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x26f76 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {[-4-]}
<MI 26f84 MOVE.W D0,(A0)> {[-4-]}
<POP 26f86-26f88 StackAdj> Δ+2 {[-2-]}
<POP 26f88-26f89 StackAdj> Δ+2 {}
<Blob 0x26f89 [2] @> Δ-2 {[«2""»]}
<Blob 0x26f8c [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x26f90 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 26f94-26f96 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x26f96 6> {[«2""»]|[«2""»]|[«2""»]|[$$STATUS]}
<MI 26fa4 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 26fa8-26faa StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 26faa MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x26fac 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 26fb0 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x26fb4 <LVAR -0x010 @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]}
<Pointer.fp 0x26fb8 <LVAR -0x013 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<Call 0x26fbc 0x288f6> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<POP 26fc2-26fc4 StackAdj> Δ+20 {}
<Pointer.fp 0x26fc4 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x26fc8 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 26fce-26fd0 StackAdj> Δ+2 {[-2-]}
<POP 26fd0-26fd1 StackAdj> Δ+2 {}
<Blob 0x26fd1 [2] @> Δ-2 {[«2""»]}
<Blob 0x26fd4 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x26fd8 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 26fdc-26fde StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x26fde 6> {[«2""»]|[«2""»]|[«2""»]|[$$RESULT]}
<MI 26fec MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 26ff0-26ff2 StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 26ff2 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x26ff4 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 26ff8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x26ffc <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]}
<Pointer.fp 0x27000 <LVAR -0x012 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<Call 0x27004 0x288f6> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<POP 2700a-2700c StackAdj> Δ+20 {}
<Pointer.fp 0x2700c <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x27010 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 27016-27018 StackAdj> Δ+4 {}
<MI 27018 TST.B (A6-0x13)> {}
<MI 2701c BNE 0x27024> {}
<POP 2701e-27024 Naked> Σ0 ↓ →0x2702a
<MI 2701e TST.B (A6-0x12)> {}
<MI 27022 BEQ 0x2702a> {}
<POP 27024-2702a Naked> Σ0 →0x2702e ←0x26f6e
<MI 27024 CLR.B (A6-0x4)> {}
<MI 27028 BRA 0x2702e> {}
<POP 2702a-2702e Naked> Σ0 ↓ ←0x2701e
<MI 2702a MOVE.B #0x01,(A6-0x4)> {}
<POP 2702e-27054 Naked> Σ0 ↓ →0x27074 ←0x27024
<MI 2702e MOVE.L (A6-0x3c),-(A7)> Δ-4 {[4, '(A6-0x3c)']}
<MI 27030 MOVE.L (A6-0x30),-(A7)> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 27034 MOVE.B (A6-0x4),D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 27038 EXTB.W D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<POP 0x2703a LimitCheck 0x0 ≤ D0 ≤ 0x2> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 2703e MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']}
<Pointer.fp 0x27040 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
<Call 0x27044 0x103b0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 2704a-2704e StackAdj> Δ+14 {}
<MI 2704e TST.B (A6-0x13)> {}
<MI 27052 BEQ 0x27074> {}
<POP 27054-27074 Naked> Σ0 ↓
<MI 27054 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 27058-2705a StackAdj> Δ-4 {[4, '(A6-0x10)']|[-4-]}
<MI 2705a MOVE.B (A6-0x14),D0> {[4, '(A6-0x10)']|[-4-]}
<MI 2705e EXTB.W D0> {[4, '(A6-0x10)']|[-4-]}
<POP 0x27060 LimitCheck 0x0 ≤ D0 ≤ 0xe> {[4, '(A6-0x10)']|[-4-]}
<MI 27064 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
<Call 0x27066 0x103c0> {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
ExpErrMsg(a: Byte) : String
<POP 2706c-2706e StackAdj> Δ+2 {[4, '(A6-0x10)']|[-4-]}
<Call 0x2706e 0x269bc> {[4, '(A6-0x10)']|[-4-]}
<POP 27072-27074 StackAdj> Δ+8 {}
<POP 27074-2707a Naked> Σ0 ↓ →0x2708c ←0x2702e
<MI 27074 TST.B (A6-0x12)> {}
<MI 27078 BEQ 0x2708c> {}
<POP 2707a-2708c Naked> Σ0 ↓
<MI 2707a MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<POP 2707e-27080 StackAdj> Δ-4 {[4, '(A6-0xc)']|[-4-]}
<Call 0x27080 0x103c8> {[4, '(A6-0xc)']|[-4-]}
FSCALL_103c8
<Call 0x27086 0x269bc> {[4, '(A6-0xc)']|[-4-]}
<POP 2708a-2708c StackAdj> Δ+8 {}
<POP 2708c-27094 Epilogue> Σ0 ←0x26e32 ←0x26e86 ←0x27074
@ 27094
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 27094-2710c Body>
<POP 27094-270aa Prologue> Σ0 ↓
<POP 270aa-270b2 RegCacheLoad> Σ0 ↓
<POP 270b2-270e6 Naked> Σ0 ↓ →0x270ec
<POP 270b2-270b4 StackAdj> Δ-4 {[-4-]}
<MI 270b4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x270b8 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x270bc 0x263be> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 270c0-270c2 StackAdj> Δ+8 {[-4-]}
<MI 270c2 MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 270c4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x270c8 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x270cc 0x263be> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 270d0-270d2 StackAdj> Δ+8 {[-4-]}
<MI 270d2 MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 270d4-270d6 StackAdj> Δ+2 {[-2-]}
<MI 270d6 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 270d8 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x270da 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 270e0-270e2 StackAdj> Δ+8 {[-2-]}
<MI 270e2 TST.B (A7)+> Δ+2 {}
<MI 270e4 BEQ 0x270ec> {}
<POP 270e6-270ec Naked> Σ0 →0x270f0
<Call 0x270e6 0x25e7e> {}
<MI 270ea BRA 0x270f0> {}
<POP 270ec-270f0 Naked> Σ0 ↓ ←0x270b2
<Call 0x270ec 0x25ec4> {}
<POP 270f0-27104 Naked> Σ0 ↓ ←0x270e6
<Pointer.fp 0x270f0 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x270f2 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 270f8-270fa StackAdj> Δ+4 {}
<Pointer.fp 0x270fa <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x270fc 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 27102-27104 StackAdj> Δ+4 {}
<POP 27104-2710c Epilogue> Σ0
@ 2710c
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 2710c-27184 Body>
<POP 2710c-27122 Prologue> Σ0 ↓
<POP 27122-2712a RegCacheLoad> Σ0 ↓
<POP 2712a-2715e Naked> Σ0 ↓ →0x27164
<POP 2712a-2712c StackAdj> Δ-4 {[-4-]}
<MI 2712c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x27130 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x27134 0x263be> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 27138-2713a StackAdj> Δ+8 {[-4-]}
<MI 2713a MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 2713c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x27140 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x27144 0x263be> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 27148-2714a StackAdj> Δ+8 {[-4-]}
<MI 2714a MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 2714c-2714e StackAdj> Δ+2 {[-2-]}
<MI 2714e MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 27150 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x27152 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 27158-2715a StackAdj> Δ+8 {[-2-]}
<MI 2715a TST.B (A7)+> Δ+2 {}
<MI 2715c BNE 0x27164> {}
<POP 2715e-27164 Naked> Σ0 →0x27168
<Call 0x2715e 0x25e7e> {}
<MI 27162 BRA 0x27168> {}
<POP 27164-27168 Naked> Σ0 ↓ ←0x2712a
<Call 0x27164 0x25ec4> {}
<POP 27168-2717c Naked> Σ0 ↓ ←0x2715e
<Pointer.fp 0x27168 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x2716a 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 27170-27172 StackAdj> Δ+4 {}
<Pointer.fp 0x27172 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x27174 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 2717a-2717c StackAdj> Δ+4 {}
<POP 2717c-27184 Epilogue> Σ0
@ 27184
<LVAR 0x008 4(r)>
<POP 27184-271b0 Body>
<POP 27184-27196 Prologue> Σ0 ↓
<POP 27196-271ac Naked> Σ0 ↓
<POP 27196-27198 StackAdj> Δ-4 {[-4-]}
<MI 27198 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2719c 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x271a0 0x263be> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 271a4-271a6 StackAdj> Δ+8 {[-4-]}
<Call 0x271a6 0x261b6> {[-4-]}
<POP 271aa-271ac StackAdj> Δ+4 {}
<POP 271ac-271b0 Epilogue> Σ0
@ 271b0
<LVAR 0x008 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 271b0-272b0 Body>
<POP 271b0-271c6 Prologue> Σ0 ↓
<POP 271c6-271d0 RegCacheLoad> Σ0 ↓
<POP 271d0-2722e Naked> Σ0 ↓ →0x2725e
<POP 271d0-271d2 StackAdj> Δ-4 {[-4-]}
<MI 271d2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x271d4 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x271d8 0x263be> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 271dc-271de StackAdj> Δ+8 {[-4-]}
<MI 271de MOVE.L (A7),(A6-0x14)> {[-4-]}
<MI 271e0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x271e2 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x271e6 0x263be> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 271ea-271ec StackAdj> Δ+8 {[-4-]}
<MI 271ec MOVEA.L (A7)+,A4> Δ+4 {}
<POP 271ee-271f2 StackAdj> Δ-12 {[-12-]}
<MI 271f2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x271f4 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x271f8 0x263f0> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 271fc-271fe StackAdj> Δ+8 {[-12-]}
<Call 0x271fe 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 27204-27206 StackAdj> Δ+8 {[-4-]}
<MI 27206 MOVE.L (A7),D6> {[-4-]}
<POP 27208-2720a StackAdj> Δ-8 {[-12-]}
<MI 2720a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x2720c 0x4.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##4]}
<Call 0x27210 0x263f0> {[-12-]|[4, '(A6+0x8)']|[##4]}
<POP 27214-27216 StackAdj> Δ+8 {[-12-]}
<Call 0x27216 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 2721c-2721e StackAdj> Δ+8 {[-4-]}
<MI 2721e MOVE.L (A7)+,D5> Δ+4 {}
<MI 27220 MOVE.L D6,D0> {}
<MI 27222 ADD.L D5,D0> {}
<MI 27224 SUBQ.L #0x1,D0> {}
<MI 27226 MOVE.W (A4),D1> {}
<MI 27228 EXTW.L D1> {}
<MI 2722a CMP.L D1,D0> {}
<MI 2722c BLE 0x2725e> {}
<POP 2722e-2725e Naked> Σ0 ↓
<Blob 0x2722e [32] @> Δ-32 {[«32""»]}
<POP 27240-27242 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x27242 31> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<Call 0x27256 0x25696> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<POP 2725a-2725e StackAdj> Δ+36 {}
<POP 2725e-2726a Naked> Σ0 Δ-8 ↓ ←0x271d0
<MI 2725e MOVEA.L (A6-0x14),A0> {}
<MI 27260 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 27262 MOVE.W (A0),D0> {[4, 'A0']}
<MI 27264 EXTW.L D0> {[4, 'A0']}
<MI 27266 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 27268 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 2726a-2726e Naked> Σ-8 ↓ →0x27294 ←0x2726e
<MI 2726a CMP.L (A7),D7> {[-8-]}
<MI 2726c BGT 0x27294> {[-8-]}
<POP 2726e-27294 Naked> Σ-8 ↓ →0x2726a
<MI 2726e MOVE.L D6,D0> {[-8-]}
<MI 27270 ADD.L D7,D0> {[-8-]}
<MI 27272 SUBQ.L #0x1,D0> {[-8-]}
<MI 27274 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x27276 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 2727c MOVE.L D7,D1> {[-8-]}
<MI 2727e SUBQ.L #0x1,D1> {[-8-]}
<POP 0x27280 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 27286 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 2728a MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2)> {[-8-]}
<MI 27290 ADDQ.L #0x1,D7> {[-8-]}
<MI 27292 BVC 0x2726a> {[-8-]}
<POP 27294-272a8 Naked> Σ-8 Δ+8 ↓ ←0x2726a
<POP 27294-27296 StackAdj> Δ+4 {[-4-]}
<MI 27296 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x27298 0x26460> {[4, 'A4']}
<POP 2729c-2729e StackAdj> Δ+4 {}
<Pointer.fp 0x2729e <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x272a0 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 272a6-272a8 StackAdj> Δ+4 {}
<POP 272a8-272b0 Epilogue> Σ0
@ 272b0
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 272b0-27396 Body>
<POP 272b0-272c6 Prologue> Σ0 ↓
<POP 272c6-272d4 RegCacheLoad> Σ0 ↓
<POP 272d4-2732c Naked> Σ0 ↓ →0x27332
<POP 272d4-272d6 StackAdj> Δ-4 {[-4-]}
<MI 272d6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x272d8 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x272dc 0x263be> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 272e0-272e2 StackAdj> Δ+8 {[-4-]}
<MI 272e2 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<Pointer.fp 0x272e4 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Call 0x272e6 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 272ec-272ee StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 272ee MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x272f0 0x2.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x272f4 0x263f0> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 272f8-272fa StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x272fa 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 27300-27302 StackAdj> Δ+8 {[@@-16]}
<MI 27302 MOVE.L (A7),D5> {[@@-16]}
<POP 27304-27306 StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 27306 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x27308 0x3.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<Call 0x2730c 0x263f0> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<POP 27310-27312 StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x27312 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 27318-2731a StackAdj> Δ+8 {[@@-16]}
<MI 2731a MOVE.L (A7)+,D6> Δ+4 {}
<MI 2731c MOVEA.L (A6-0x14),A0> {}
<MI 2731e MOVE.L D5,D0> {}
<MI 27320 ADD.L D6,D0> {}
<MI 27322 SUBQ.L #0x1,D0> {}
<MI 27324 MOVE.W (A0),D1> {}
<MI 27326 EXTW.L D1> {}
<MI 27328 CMP.L D1,D0> {}
<MI 2732a BLE 0x27332> {}
<POP 2732c-27332 Naked> Σ0 ↓
<MI 2732c ADDQ.L #0x1,D1> {}
<MI 2732e SUB.L D5,D1> {}
<MI 27330 MOVE.L D1,D6> {}
<POP 27332-27336 Naked> Σ0 Δ-4 ↓ ←0x272d4
<MI 27332 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 27334 MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 27336-2733a Naked> Σ-4 ↓ →0x27360 ←0x2733a
<MI 27336 CMP.L (A7),D7> {[-4-]}
<MI 27338 BGT 0x27360> {[-4-]}
<POP 2733a-27360 Naked> Σ-4 ↓ →0x27336
<MI 2733a MOVEA.L (A6-0x10),A0> {[-4-]}
<MI 2733c MOVE.L D7,D0> {[-4-]}
<MI 2733e SUBQ.L #0x1,D0> {[-4-]}
<POP 0x27340 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 27346 MOVEA.L (A6-0x14),A1> {[-4-]}
<MI 27348 MOVE.L D7,D1> {[-4-]}
<MI 2734a ADD.L D5,D1> {[-4-]}
<MI 2734c SUBQ.L #0x1,D1> {[-4-]}
<MI 2734e SUBQ.L #0x1,D1> {[-4-]}
<POP 0x27350 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 27356 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2)> {[-4-]}
<MI 2735c ADDQ.L #0x1,D7> {[-4-]}
<MI 2735e BVC 0x27336> {[-4-]}
<POP 27360-2738e Naked> Σ-4 Δ+4 ↓ ←0x27336
<POP 27360-27362 StackAdj> Δ+4 {}
<MI 27362 MOVEA.L (A6-0x10),A0> {}
<POP 0x27364 LimitCheck -0x8000 ≤ D6 ≤ 0x7fff> {}
<MI 2737a MOVE.W D6,(A0)> {}
<MI 2737c MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x2737e 0x26460> {[4, '(A6-0x10)']}
<POP 27382-27384 StackAdj> Δ+4 {}
<Pointer.fp 0x27384 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x27386 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 2738c-2738e StackAdj> Δ+4 {}
<POP 2738e-27396 Epilogue> Σ0
@ 27396
<LVAR 0x008 4(r)>
<POP 27396-273c2 Body>
<POP 27396-273a8 Prologue> Σ0 ↓
<POP 273a8-273be Naked> Σ0 ↓
<POP 273a8-273aa StackAdj> Δ-8 {[-8-]}
<MI 273aa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x273ae 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x273b2 0x263f0> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 273b6-273b8 StackAdj> Δ+8 {[-8-]}
<Call 0x273b8 0x2622a> {[-8-]}
<POP 273bc-273be StackAdj> Δ+8 {}
<POP 273be-273c2 Epilogue> Σ0
@ 273c2
<LVAR 0x008 4(r)>
<POP 273c2-2740e Body>
<POP 273c2-273d4 Prologue> Σ0 ↓
<POP 273d4-27400 Naked> Σ0 ↓ →0x27406
<POP 273d4-273d8 StackAdj> Δ-10 {[-10-]}
<MI 273d8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x273dc 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x273e0 0x263f0> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 273e4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x273e8 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x273ec 0x263f0> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 273f0-273f2 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x273f2 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 273f8-273fc StackAdj> Δ+16 {[-2-]}
<MI 273fc TST.B (A7)+> Δ+2 {}
<MI 273fe BEQ 0x27406> {}
<POP 27400-27406 Naked> Σ0 →0x2740a
<Call 0x27400 0x25e7e> {}
<MI 27404 BRA 0x2740a> {}
<POP 27406-2740a Naked> Σ0 ↓ ←0x273d4
<Call 0x27406 0x25ec4> {}
<POP 2740a-2740e Epilogue> Σ0 ←0x27400
@ 2740e
<LVAR 0x008 4(r)>
<POP 2740e-2745a Body>
<POP 2740e-27420 Prologue> Σ0 ↓
<POP 27420-2744c Naked> Σ0 ↓ →0x27452
<POP 27420-27424 StackAdj> Δ-10 {[-10-]}
<MI 27424 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x27428 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2742c 0x263f0> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 27430 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x27434 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x27438 0x263f0> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 2743c-2743e StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2743e 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 27444-27448 StackAdj> Δ+16 {[-2-]}
<MI 27448 TST.B (A7)+> Δ+2 {}
<MI 2744a BNE 0x27452> {}
<POP 2744c-27452 Naked> Σ0 →0x27456
<Call 0x2744c 0x25e7e> {}
<MI 27450 BRA 0x27456> {}
<POP 27452-27456 Naked> Σ0 ↓ ←0x27420
<Call 0x27452 0x25ec4> {}
<POP 27456-2745a Epilogue> Σ0 ←0x2744c
@ 2745a
<LVAR 0x008 4(r)>
<POP 2745a-274a6 Body>
<POP 2745a-2746c Prologue> Σ0 ↓
<POP 2746c-27498 Naked> Σ0 ↓ →0x2749e
<POP 2746c-27470 StackAdj> Δ-10 {[-10-]}
<MI 27470 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x27474 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x27478 0x263f0> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 2747c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x27480 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x27484 0x263f0> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 27488-2748a StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2748a 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 27490-27494 StackAdj> Δ+16 {[-2-]}
<MI 27494 TST.B (A7)+> Δ+2 {}
<MI 27496 BEQ 0x2749e> {}
<POP 27498-2749e Naked> Σ0 →0x274a2
<Call 0x27498 0x25e7e> {}
<MI 2749c BRA 0x274a2> {}
<POP 2749e-274a2 Naked> Σ0 ↓ ←0x2746c
<Call 0x2749e 0x25ec4> {}
<POP 274a2-274a6 Epilogue> Σ0 ←0x27498
@ 274a6
<LVAR 0x008 4(r)>
<POP 274a6-274f2 Body>
<POP 274a6-274b8 Prologue> Σ0 ↓
<POP 274b8-274e4 Naked> Σ0 ↓ →0x274ea
<POP 274b8-274bc StackAdj> Δ-10 {[-10-]}
<MI 274bc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x274c0 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x274c4 0x263f0> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 274c8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x274cc 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x274d0 0x263f0> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 274d4-274d6 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x274d6 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 274dc-274e0 StackAdj> Δ+16 {[-2-]}
<MI 274e0 TST.B (A7)+> Δ+2 {}
<MI 274e2 BEQ 0x274ea> {}
<POP 274e4-274ea Naked> Σ0 →0x274ee
<Call 0x274e4 0x25e7e> {}
<MI 274e8 BRA 0x274ee> {}
<POP 274ea-274ee Naked> Σ0 ↓ ←0x274b8
<Call 0x274ea 0x25ec4> {}
<POP 274ee-274f2 Epilogue> Σ0 ←0x274e4
@ 274f2
<LVAR 0x008 4(r)>
<POP 274f2-2753e Body>
<POP 274f2-27504 Prologue> Σ0 ↓
<POP 27504-27530 Naked> Σ0 ↓ →0x27536
<POP 27504-27508 StackAdj> Δ-10 {[-10-]}
<MI 27508 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x2750c 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x27510 0x263f0> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 27514 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x27518 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x2751c 0x263f0> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 27520-27522 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x27522 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 27528-2752c StackAdj> Δ+16 {[-2-]}
<MI 2752c TST.B (A7)+> Δ+2 {}
<MI 2752e BNE 0x27536> {}
<POP 27530-27536 Naked> Σ0 →0x2753a
<Call 0x27530 0x25e7e> {}
<MI 27534 BRA 0x2753a> {}
<POP 27536-2753a Naked> Σ0 ↓ ←0x27504
<Call 0x27536 0x25ec4> {}
<POP 2753a-2753e Epilogue> Σ0 ←0x27530
@ 2753e
<LVAR 0x008 4(r)>
<POP 2753e-2758a Body>
<POP 2753e-27550 Prologue> Σ0 ↓
<POP 27550-2757c Naked> Σ0 ↓ →0x27582
<POP 27550-27554 StackAdj> Δ-10 {[-10-]}
<MI 27554 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x27558 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2755c 0x263f0> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 27560 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x27564 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x27568 0x263f0> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 2756c-2756e StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2756e 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 27574-27578 StackAdj> Δ+16 {[-2-]}
<MI 27578 TST.B (A7)+> Δ+2 {}
<MI 2757a BNE 0x27582> {}
<POP 2757c-27582 Naked> Σ0 →0x27586
<Call 0x2757c 0x25e7e> {}
<MI 27580 BRA 0x27586> {}
<POP 27582-27586 Naked> Σ0 ↓ ←0x27550
<Call 0x27582 0x25ec4> {}
<POP 27586-2758a Epilogue> Σ0 ←0x2757c
@ 2758a
<LVAR 0x008 4(r)>
<POP 2758a-275d4 Body>
<POP 2758a-275a0 Prologue> Σ0 ↓
<POP 275a0-275a2 RegCacheLoad> Σ0 ↓
<POP 275a2-275cc Naked> Σ0 ↓
<POP 275a2-275a4 StackAdj> Δ-16 {[-16-]}
<MI 275a4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x275a8 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x275ac 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 275b0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x275b4 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x275b8 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 275bc-275be StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x275be 0x10314> {[-16-]|[4, '(A6+0x8)']|[##1]}
Add(a, b : Quad) : Quad
<POP 275c4-275c6 StackAdj> Δ+16 {[-8-]}
<Call 0x275c6 0x264e8> {[-8-]}
<POP 275ca-275cc StackAdj> Δ+8 {}
<POP 275cc-275d4 Epilogue> Σ0
@ 275d4
<LVAR 0x008 4(r)>
<POP 275d4-2761e Body>
<POP 275d4-275ea Prologue> Σ0 ↓
<POP 275ea-275ec RegCacheLoad> Σ0 ↓
<POP 275ec-27616 Naked> Σ0 ↓
<POP 275ec-275ee StackAdj> Δ-16 {[-16-]}
<MI 275ee MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x275f2 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x275f6 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 275fa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x275fe 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x27602 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 27606-27608 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x27608 0x10318> {[-16-]|[4, '(A6+0x8)']|[##1]}
Subtract(a, b : Quad) : Quad
<POP 2760e-27610 StackAdj> Δ+16 {[-8-]}
<Call 0x27610 0x264e8> {[-8-]}
<POP 27614-27616 StackAdj> Δ+8 {}
<POP 27616-2761e Epilogue> Σ0
@ 2761e
<LVAR 0x008 4(r)>
<POP 2761e-27668 Body>
<POP 2761e-27634 Prologue> Σ0 ↓
<POP 27634-27636 RegCacheLoad> Σ0 ↓
<POP 27636-27660 Naked> Σ0 ↓
<POP 27636-27638 StackAdj> Δ-16 {[-16-]}
<MI 27638 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x2763c 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x27640 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 27644 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x27648 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x2764c 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 27650-27652 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x27652 0x1031c> {[-16-]|[4, '(A6+0x8)']|[##1]}
Multiply(a, b : Quad) : Quad
<POP 27658-2765a StackAdj> Δ+16 {[-8-]}
<Call 0x2765a 0x264e8> {[-8-]}
<POP 2765e-27660 StackAdj> Δ+8 {}
<POP 27660-27668 Epilogue> Σ0
@ 27668
<LVAR 0x008 4(r)>
<POP 27668-276b2 Body>
<POP 27668-2767e Prologue> Σ0 ↓
<POP 2767e-27680 RegCacheLoad> Σ0 ↓
<POP 27680-276aa Naked> Σ0 ↓
<POP 27680-27682 StackAdj> Δ-16 {[-16-]}
<MI 27682 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x27686 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2768a 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 2768e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x27692 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x27696 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 2769a-2769c StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2769c 0x10320> {[-16-]|[4, '(A6+0x8)']|[##1]}
Divide(a, b : Quad) : Quad
<POP 276a2-276a4 StackAdj> Δ+16 {[-8-]}
<Call 0x276a4 0x264e8> {[-8-]}
<POP 276a8-276aa StackAdj> Δ+8 {}
<POP 276aa-276b2 Epilogue> Σ0
@ 276b2
<LVAR 0x008 4(r)>
<POP 276b2-276fc Body>
<POP 276b2-276c8 Prologue> Σ0 ↓
<POP 276c8-276ca RegCacheLoad> Σ0 ↓
<POP 276ca-276f4 Naked> Σ0 ↓
<POP 276ca-276cc StackAdj> Δ-16 {[-16-]}
<MI 276cc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x276d0 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x276d4 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 276d8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x276dc 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x276e0 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 276e4-276e6 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x276e6 0x10358> {[-16-]|[4, '(A6+0x8)']|[##1]}
Modulus(a, b : Quad) : Quad
<POP 276ec-276ee StackAdj> Δ+16 {[-8-]}
<Call 0x276ee 0x264e8> {[-8-]}
<POP 276f2-276f4 StackAdj> Δ+8 {}
<POP 276f4-276fc Epilogue> Σ0
@ 276fc
<LVAR 0x008 4(r)>
<POP 276fc-27746 Body>
<POP 276fc-27712 Prologue> Σ0 ↓
<POP 27712-27714 RegCacheLoad> Σ0 ↓
<POP 27714-2773e Naked> Σ0 ↓
<POP 27714-27716 StackAdj> Δ-16 {[-16-]}
<MI 27716 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x2771a 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2771e 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 27722 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x27726 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x2772a 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 2772e-27730 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x27730 0x10334> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitOr(a, b : Quad) : Quad
<POP 27736-27738 StackAdj> Δ+16 {[-8-]}
<Call 0x27738 0x264e8> {[-8-]}
<POP 2773c-2773e StackAdj> Δ+8 {}
<POP 2773e-27746 Epilogue> Σ0
@ 27746
<LVAR 0x008 4(r)>
<POP 27746-27790 Body>
<POP 27746-2775c Prologue> Σ0 ↓
<POP 2775c-2775e RegCacheLoad> Σ0 ↓
<POP 2775e-27788 Naked> Σ0 ↓
<POP 2775e-27760 StackAdj> Δ-16 {[-16-]}
<MI 27760 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x27764 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x27768 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 2776c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x27770 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x27774 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 27778-2777a StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2777a 0x10330> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitAnd(a, b : Quad) : Quad
<POP 27780-27782 StackAdj> Δ+16 {[-8-]}
<Call 0x27782 0x264e8> {[-8-]}
<POP 27786-27788 StackAdj> Δ+8 {}
<POP 27788-27790 Epilogue> Σ0
@ 27790
<LVAR 0x008 4(r)>
<POP 27790-277da Body>
<POP 27790-277a6 Prologue> Σ0 ↓
<POP 277a6-277a8 RegCacheLoad> Σ0 ↓
<POP 277a8-277d2 Naked> Σ0 ↓
<POP 277a8-277aa StackAdj> Δ-16 {[-16-]}
<MI 277aa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x277ae 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x277b2 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 277b6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x277ba 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x277be 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 277c2-277c4 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x277c4 0x10340> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitXor(a, b : Quad) : Quad
<POP 277ca-277cc StackAdj> Δ+16 {[-8-]}
<Call 0x277cc 0x264e8> {[-8-]}
<POP 277d0-277d2 StackAdj> Δ+8 {}
<POP 277d2-277da Epilogue> Σ0
@ 277da
<LVAR 0x008 4(r)>
<POP 277da-2781e Body>
<POP 277da-277ec Prologue> Σ0 ↓
<POP 277ec-2781a Naked> Σ0 ↓
<POP 277ec-277f0 StackAdj> Δ-16 {[-16-]}
<MI 277f0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x277f4 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x277f8 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 277fc MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x27800 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x27804 0x2642c> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 27808-2780a StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<Call 0x2780a 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 27810-27814 StackAdj> Δ+12 {[-8-]}
<Call 0x27814 0x264e8> {[-8-]}
<POP 27818-2781a StackAdj> Δ+8 {}
<POP 2781a-2781e Epilogue> Σ0
@ 2781e
<LVAR 0x008 4(r)>
<POP 2781e-27864 Body>
<POP 2781e-27830 Prologue> Σ0 ↓
<POP 27830-27860 Naked> Σ0 ↓
<POP 27830-27834 StackAdj> Δ-16 {[-16-]}
<MI 27834 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x27838 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2783c 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 27840 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x27844 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x27848 0x2642c> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 2784c-2784e StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<MI 2784e NEG.L (A7)> {[-16-]|[4, '(A6+0x8)']}
<Call 0x27850 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 27856-2785a StackAdj> Δ+12 {[-8-]}
<Call 0x2785a 0x264e8> {[-8-]}
<POP 2785e-27860 StackAdj> Δ+8 {}
<POP 27860-27864 Epilogue> Σ0
@ 27864
<LVAR 0x008 4(r)>
<POP 27864-2789a Body>
<POP 27864-27876 Prologue> Σ0 ↓
<POP 27876-27896 Naked> Σ0 ↓
<POP 27876-2787a StackAdj> Δ-16 {[-16-]}
<MI 2787a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x2787e 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x27882 0x263f0> {[-16-]|[4, '(A6+0x8)']|[##1]}
<POP 27886-27888 StackAdj> Δ+8 {[-16-]}
<Call 0x27888 0x10338> {[-16-]}
BitNot(a : Quad) : Quad
<POP 2788e-27890 StackAdj> Δ+8 {[-8-]}
<Call 0x27890 0x264e8> {[-8-]}
<POP 27894-27896 StackAdj> Δ+8 {}
<POP 27896-2789a Epilogue> Σ0
@ 2789a
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(rw)>
<POP 2789a-2792a Body>
<POP 2789a-278b0 Prologue> Σ0 ↓
<POP 278b0-278b4 RegCacheLoad> Σ0 ↓
<POP 278b4-27922 Naked> Σ0 ↓
<POP 278b4-278b6 StackAdj> Δ-8 {[-8-]}
<MI 278b6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x278b8 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x278bc 0x263f0> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 278c0-278c2 StackAdj> Δ+8 {[-8-]}
<MI 278c2 MOVE.L (A7)+,(A6-0x18)> Δ+4 {[-4-]}
<MI 278c6 MOVE.L (A7),(A6-0x14)> {[-4-]}
<POP 278ca-278cc StackAdj> Δ-4 {[-8-]}
<MI 278cc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x278ce 0x2.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x278d2 0x263f0> {[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 278d6-278d8 StackAdj> Δ+8 {[-8-]}
<MI 278d8 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 278dc MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 278e0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x278e2 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x278e6 0x2642c> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 278ea-278ec StackAdj> Δ+8 {[-4-]}
<MI 278ec MOVE.L (A7),D7> {[-4-]}
<MI 278ee MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x278f0 0x4.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##4]}
<Call 0x278f4 0x2642c> {[-4-]|[4, '(A6+0x8)']|[##4]}
<POP 278f8-278fa StackAdj> Δ+8 {[-4-]}
<MI 278fa MOVE.L (A7),D6> {[-4-]}
<POP 278fc-278fe StackAdj> Δ-4 {[-8-]}
<MI 278fe MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']}
<MI 27902 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
<MI 27906 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']}
<MI 2790a MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 2790e MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 27910 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x27912 0x10348> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
?BitField_something_()
<POP 27918-2791c StackAdj> Δ+24 {[-8-]}
<Call 0x2791c 0x264e8> {[-8-]}
<POP 27920-27922 StackAdj> Δ+8 {}
<POP 27922-2792a Epilogue> Σ0
@ 2792a
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 2792a-2799c Body>
<POP 2792a-27940 Prologue> Σ0 ↓
<POP 27940-27944 RegCacheLoad> Σ0 ↓
<POP 27944-27994 Naked> Σ0 ↓
<POP 27944-27946 StackAdj> Δ-8 {[-8-]}
<MI 27946 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x27948 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2794c 0x263f0> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 27950-27952 StackAdj> Δ+8 {[-8-]}
<MI 27952 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 27956 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 2795a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2795c 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x27960 0x2642c> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 27964-27966 StackAdj> Δ+8 {[-4-]}
<MI 27966 MOVE.L (A7),D7> {[-4-]}
<MI 27968 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2796a 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x2796e 0x2642c> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 27972-27974 StackAdj> Δ+8 {[-4-]}
<MI 27974 MOVE.L (A7),D6> {[-4-]}
<POP 27976-27978 StackAdj> Δ-4 {[-8-]}
<MI 27978 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 2797c MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 27980 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 27982 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x27984 0x1034c> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
FSCALL_1034c
<POP 2798a-2798e StackAdj> Δ+16 {[-8-]}
<Call 0x2798e 0x264e8> {[-8-]}
<POP 27992-27994 StackAdj> Δ+8 {}
<POP 27994-2799c Epilogue> Σ0
@ 2799c
<LVAR 0x008 4(r)>
<POP 2799c-27a0e Body>
<POP 2799c-279b2 Prologue> Σ0 ↓
<POP 279b2-279c0 Naked> Σ0 Δ-4 ↓
<POP 279b2-279b4 StackAdj> Δ-4 {[-4-]}
<MI 279b4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x279b8 0x25aa2> {[-4-]|[4, '(A6+0x8)']}
<POP 279bc-279be StackAdj> Δ+4 {[-4-]}
<MI 279be MOVEQ.L #0x01,D7> {[-4-]}
<POP 279c0-279c4 Naked> Σ-4 ↓ →0x279ea ←0x279c4
<MI 279c0 CMP.L (A7),D7> {[-4-]}
<MI 279c2 BGT 0x279ea> {[-4-]}
<POP 279c4-279ea Naked> Σ-4 ↓ →0x279c0
<POP 279c4-279c6 StackAdj> Δ-4 {[-8-]}
<MI 279c6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 279ca MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x279cc 0x263be> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 279d0-279d2 StackAdj> Δ+8 {[-8-]}
<Call 0x279d2 0x103d8> {[-8-]}
WriteConsoleString(str : String)
<POP 279d8-279da StackAdj> Δ+2 {[-6-]}
<POP 279da-279db StackAdj> Δ+2 {[-4-]}
<Const 0x279db 0x20.2> Δ-2 {[-4-]|[#32]}
<Call 0x279de 0x103d0> {[-4-]|[#32]}
WriteConsoleChar(chr : char)
<POP 279e4-279e6 StackAdj> Δ+2 {[-4-]}
<MI 279e6 ADDQ.L #0x1,D7> {[-4-]}
<MI 279e8 BVC 0x279c0> {[-4-]}
<POP 279ea-27a06 Naked> Σ-4 Δ+4 ↓ ←0x279c0
<Const 0x279ea 0x1.4> Δ-4 {[-4-]|[##1]}
<Call 0x279ee 0x103e4> {[-4-]|[##1]}
AskConsoleString(prompt : String) : String
<POP 279f4-279f6 StackAdj> Δ+4 {[-4-]}
<MI 279f6 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 279f8 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x279fa 0x258ee> {[4, 'A4']}
<MI 279fe MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x27a00 0x26460> {[4, 'A4']}
<POP 27a04-27a06 StackAdj> Δ+4 {}
<POP 27a06-27a0e Epilogue> Σ0
@ 27a0e
<LVAR 0x008 4(r)>
<POP 27a0e-27a90 Body>
<POP 27a0e-27a24 Prologue> Σ0 ↓
<POP 27a24-27a2a RegCacheLoad> Σ0 ↓
<POP 27a2a-27a88 Naked> Σ0 ↓
<POP 27a2a-27a2c StackAdj> Δ-4 {[-4-]}
<MI 27a2c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x27a2e 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x27a32 0x263be> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 27a36-27a38 StackAdj> Δ+8 {[-4-]}
<MI 27a38 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 27a3a-27a3c StackAdj> Δ-12 {[-12-]}
<MI 27a3c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x27a3e 0x2.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##2]}
<Call 0x27a42 0x263f0> {[-12-]|[4, '(A6+0x8)']|[##2]}
<POP 27a46-27a48 StackAdj> Δ+8 {[-12-]}
<Call 0x27a48 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 27a4e-27a50 StackAdj> Δ+8 {[-4-]}
<MI 27a50 MOVE.L (A7),D7> {[-4-]}
<POP 27a52-27a54 StackAdj> Δ-8 {[-12-]}
<MI 27a54 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x27a56 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x27a5a 0x263f0> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 27a5e-27a60 StackAdj> Δ+8 {[-12-]}
<Call 0x27a60 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 27a66-27a68 StackAdj> Δ+8 {[-4-]}
<MI 27a68 MOVE.L (A7),D6> {[-4-]}
<POP 27a6a-27a6c StackAdj> Δ-8 {[-12-]}
<MI 27a6c MOVE.L A4,-(A7)> Δ-4 {[-12-]|[4, 'A4']}
<MI 27a6e MOVE.L D7,-(A7)> Δ-4 {[-12-]|[4, 'A4']|[4, 'D7']}
<Call 0x27a70 0x10360> {[-12-]|[4, 'A4']|[4, 'D7']}
?StringToInt64()
<POP 27a76-27a78 StackAdj> Δ+4 {[-12-]|[4, 'A4']}
<MI 27a78 MOVE.L D6,(A7)> {[-12-]|[4, 'D6']}
<Call 0x27a7a 0x1035c> {[-12-]|[4, 'D6']}
Quad2String(a : Quad; radix : Long ) : String
<POP 27a80-27a82 StackAdj> Δ+12 {[-4-]}
<Call 0x27a82 0x26460> {[-4-]}
<POP 27a86-27a88 StackAdj> Δ+4 {}
<POP 27a88-27a90 Epilogue> Σ0
@ 27a90
<LVAR 0x008 4(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 27a90-27b10 Body>
<POP 27a90-27aa6 Prologue> Σ0 ↓
<POP 27aa6-27aae RegCacheLoad> Σ0 ↓
<POP 27aae-27ac6 Naked> Σ0 ↓
<POP 27aae-27ab0 StackAdj> Δ-8 {[-8-]}
<MI 27ab0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x27ab4 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x27ab8 0x263f0> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 27abc-27abe StackAdj> Δ+8 {[-8-]}
<MI 27abe MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 27ac0 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 27ac2 MOVEQ.L #0x00,D7> {}
<MI 27ac4 MOVEQ.L #0x00,D6> {}
<POP 27ac6-27af6 Naked> Σ0 ↓ →0x27ac6 ←0x27ac6
<MI 27ac6 MOVE.W (A6-0xa),D0> {}
<MI 27aca ANDI.W #0x0001,D0> {}
<MI 27ace CLR.L D1> {}
<MI 27ad0 MOVE.W D0,D1> {}
<MI 27ad2 ADD.L D1,D7> {}
<POP 27ad4-27ad6 StackAdj> Δ-8 {[-8-]}
<MI 27ad6 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 27ad8 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Const 0x27ada 0xffffffff.4> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
<Call 0x27ade 0x10344> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 27ae4-27ae8 StackAdj> Δ+12 {[-8-]}
<MI 27ae8 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 27aea MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 27aec ADDQ.L #0x1,D6> {}
<MI 27aee CMPI.L #0x0000003f,D6> {}
<MI 27af4 BLE 0x27ac6> {}
<POP 27af6-27b08 Naked> Σ0 ↓
<POP 27af6-27af8 StackAdj> Δ-8 {[-8-]}
<MI 27af8 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, 'D7']}
<Call 0x27afa 0x10354> {[-8-]|[4, 'D7']}
Long2Quad(a : Long) : Quad
<POP 27b00-27b02 StackAdj> Δ+4 {[-8-]}
<Call 0x27b02 0x264e8> {[-8-]}
<POP 27b06-27b08 StackAdj> Δ+8 {}
<POP 27b08-27b10 Epilogue> Σ0
@ 27b10
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 27b10-27bd4 Body>
<POP 27b10-27b26 Prologue> Σ0 ↓
<POP 27b26-27b30 RegCacheLoad> Σ0 ↓
<POP 27b30-27b34 Naked> Σ0 ↓ →0x27b66
<MI 27b30 TST.B 0x2bbf2> {}
<MI 27b32 BNE 0x27b66> {}
<POP 27b34-27b66 Naked> Σ0 ↓
<Blob 0x27b34 [28] @> Δ-28 {[«28""»]}
<POP 27b46-27b48 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x27b48 27> {[«28""»]|[$$REPEATing, type ^G to exit.]}
<Call 0x27b5a 0x103e0> {[«28""»]|[$$REPEATing, type ^G to exit.]}
WriteConsoleStringCrLf(str : String)
<POP 27b60-27b64 StackAdj> Δ+32 {}
<MI 27b64 MOVE.B #0x01,0x2bbf2> {}
<POP 27b66-27b90 Naked> Σ0 ↓ →0x27ba6 ←0x27b30
<POP 27b66-27b68 StackAdj> Δ-6 {[-6-]}
<Call 0x27b68 0x103f8> {[-6-]}
GetConsoleConfig() : Long
<MI 27b6e MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x27b70 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 27b7a MOVE.W D0,(A7)> {[2, 'D0']}
<Pointer.fp 0x27b7c <LVAR -0x004 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-4]}
<Call 0x27b80 0x10212> {[2, 'D0']|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 27b86-27b88 StackAdj> Δ+6 {}
<MI 27b88 MOVE.B (A6-0x4),D0> {}
<MI 27b8c CMP.B #0x01,D0> {}
<MI 27b8e BEQ 0x27ba6> {}
<POP 27b90-27ba6 Naked> Σ0
<MI 27b90 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x27b94 0x25654> {[4, '(A6+0x8)']}
<POP 27b98-27b9a StackAdj> Δ+4 {}
<POP 27b9a-27ba6 Bailout> {}
<MI 27b9a MOVEA.L (A5+0x8),A7>
<MI 27b9e MOVEA.W #0x00,A6>
<MI 27ba0 JMP 0x28f38>
<POP 27ba6-27bb6 Naked> Σ0 ↓ →0x27bcc ←0x27b66
<POP 27ba6-27ba8 StackAdj> Δ-2 {[-2-]}
<Call 0x27ba8 0x103d4> {[-2-]}
ReadChar() : Byte
<MI 27bae MOVE.B (A7)+,D0> Δ+2 {}
<MI 27bb0 CMPI.B #0x07,D0> {}
<MI 27bb4 BEQ 0x27bcc> {}
<POP 27bb6-27bcc Naked> Σ0
<MI 27bb6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x27bba 0x25654> {[4, '(A6+0x8)']}
<POP 27bbe-27bc0 StackAdj> Δ+4 {}
<POP 27bc0-27bcc Bailout> {}
<MI 27bc0 MOVEA.L (A5+0x8),A7>
<MI 27bc4 MOVEA.W #0x00,A6>
<MI 27bc6 JMP 0x28f38>
<POP 27bcc-27bd4 Epilogue> Σ0 ←0x27ba6
@ 27bd4
<POP 27bd4-27bf4 Body>
<POP 27bd4-27be6 Prologue> Σ0 ↓
<POP 27be6-27bf0 Naked> Σ0 ↓
<Const 0x27be6 0xc8.4> Δ-4 {[##200]}
<Call 0x27bea 0x2651c> {[##200]}
<POP 27bee-27bf0 StackAdj> Δ+4 {}
<POP 27bf0-27bf4 Epilogue> Σ0
@ 27bf4
<LVAR 0x008 4(r)>
<LVAR -0x00c @ 4(r)>
<POP 27bf4-27ca0 Body>
<POP 27bf4-27c0a Prologue> Σ0 ↓
<POP 27c0a-27c0e RegCacheLoad> Σ0 ↓
<POP 27c0e-27c22 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x27c0e <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x27c10 0x102b8> {[@@-12]}
NewString(VAR a : String)
<MI 27c16 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-12]|[4, '(A6+0x8)']}
<Call 0x27c1a 0x25aa2> {[@@-12]|[4, '(A6+0x8)']}
<POP 27c1e-27c20 StackAdj> Δ+4 {[@@-12]}
<MI 27c20 MOVEQ.L #0x01,D7> {[@@-12]}
<POP 27c22-27c26 Naked> Σ-4 ↓ →0x27c90 ←0x27c8c
<MI 27c22 CMP.L (A7),D7> {[-4-]}
<MI 27c24 BGT 0x27c90> {[-4-]}
<POP 27c26-27c38 Naked> Σ-4 ↓ →0x27c58
<POP 27c26-27c28 StackAdj> Δ-4 {[-8-]}
<MI 27c28 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 27c2c MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x27c2e 0x2642c> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 27c32-27c34 StackAdj> Δ+8 {[-8-]}
<MI 27c34 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 27c36 BLT 0x27c58> {[-4-]}
<POP 27c38-27c40 Naked> Σ-4 ↓ →0x27c58
<MI 27c38 CMPI.L #0x000000ff,D6> {[-4-]}
<MI 27c3e BGT 0x27c58> {[-4-]}
<POP 27c40-27c58 Naked> Σ-4 →0x27c8c
<MI 27c40 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xc)']}
<POP 0x27c42 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-4-]|[4, '(A6-0xc)']}
<MI 27c4c MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
<Call 0x27c4e 0x102c0> {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 27c54-27c56 StackAdj> Δ+6 {[-4-]}
<MI 27c56 BRA 0x27c8c> {[-4-]}
<POP 27c58-27c8c Naked> Σ-4 ↓ ←0x27c26 ←0x27c38
<Pointer.fp 0x27c58 <LVAR -0x00c @ 4(r)>> Δ-4 {[-4-]|[@@-12]}
<Call 0x27c5a 0x102bc> {[-4-]|[@@-12]}
FreeString(VAR a : String)
<POP 27c60-27c62 StackAdj> Δ+4 {[-4-]}
<Blob 0x27c62 [28] @> Δ-28 {[-4-]|[«28""»]}
<POP 27c6e-27c70 StackAdj> Δ-4 {[-4-]|[«28""»]|[-4-]}
<Lit 0x27c70 28> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<Call 0x27c84 0x25696> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<POP 27c88-27c8c StackAdj> Δ+32 {[-4-]}
<POP 27c8c-27c90 Naked> Σ-4 ↓ →0x27c22 ←0x27c40
<MI 27c8c ADDQ.L #0x1,D7> {[-4-]}
<MI 27c8e BVC 0x27c22> {[-4-]}
<POP 27c90-27c98 Naked> Σ-4 Δ+4 ↓ ←0x27c22
<MI 27c90 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<Call 0x27c92 0x26460> {[4, '(A6-0xc)']}
<POP 27c96-27c98 StackAdj> Δ+4 {}
<POP 27c98-27ca0 Epilogue> Σ0
@ 27ca0
<LVAR 0x00c 1(rw)>
<LVAR 0x008 4(r)>
<POP 27ca0-27d58 Body> Δ-8
<POP 27ca0-27cb6 Prologue> Σ0 ↓
<POP 27cb6-27cc6 Naked> Σ0 Δ-4 ↓
<MI 27cb6 CLR.B (A6+0xc)> {}
<MI 27cba MOVEA.L (A6+0x8),A0> {}
<MI 27cbe MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 27cc0 MOVEQ.L #0x00,D0> {[4, 'A0']}
<MI 27cc2 ADDQ.W #0x1,D0> {[4, 'A0']}
<MI 27cc4 MOVE.B D0,D6> {[4, 'A0']}
<POP 27cc6-27cce Naked> Σ-4 ↓ →0x27d4e ←0x27d48
<MI 27cc6 CMPI.B #0x2b,D6> {[-4-]}
<MI 27cca BGT 0x27d4e> {[-4-]}
<POP 27cce-27cf4 Naked> Σ-4 ↓ →0x27d48
<MI 27cce LEA.L 0x25582,A0> {[-4-]}
<MI 27cd2 MOVE.B D6,D0> {[-4-]}
<MI 27cd4 EXTB.W D0> {[-4-]}
<MI 27cd6 EXTW.L D0> {[-4-]}
<MI 27cd8 ROR.L #0x1,D0> {[-4-]}
<MI 27cda ADDA.W D0,A0> {[-4-]}
<MI 27cdc SWAP.W D0> {[-4-]}
<MI 27cde ROL.W #0x3,D0> {[-4-]}
<MI 27ce0 CLR.L D1> {[-4-]}
<MI 27ce2 MOVE.B (A0),D1> {[-4-]}
<MI 27ce4 LSL.B D0,D1> {[-4-]}
<MI 27ce6 LSR.B #0x4,D1> {[-4-]}
<MI 27ce8 MOVE.L D1,D5> {[-4-]}
<MI 27cea MOVEA.L (A7),A0> {[-4-]}
<MI 27cec MOVE.W (A0),D0> {[-4-]}
<MI 27cee EXTW.L D0> {[-4-]}
<MI 27cf0 CMP.L D0,D5> {[-4-]}
<MI 27cf2 BNE 0x27d48> {[-4-]}
<POP 27cf4-27cf8 Naked> Σ-4 Δ-4 ↓
<MI 27cf4 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 27cf6 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D5']}
<POP 27cf8-27cfc Naked> Σ-8 ↓ →0x27d3e ←0x27d3a
<MI 27cf8 CMP.L (A7),D7> {[-8-]}
<MI 27cfa BGT 0x27d3e> {[-8-]}
<POP 27cfc-27d36 Naked> Σ-8 ↓ →0x27d3a
<MI 27cfc MOVE.B D6,D0> {[-8-]}
<MI 27cfe EXTB.W D0> {[-8-]}
<MI 27d00 MULS.W #0xa,D0> {[-8-]}
<MI 27d04 MOVE.L D7,D1> {[-8-]}
<MI 27d06 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x27d08 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 27d12 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 27d16 LEA.L 0x253ca,A1> {[-8-]}
<MI 27d1a MOVE.L D7,D2> {[-8-]}
<MI 27d1c SUBQ.L #0x1,D2> {[-8-]}
<POP 0x27d1e LimitCheck 0x0 ≤ D2 ≤ 0x9> {[-8-]}
<MI 27d28 LEA.L (A1+D0.W),A1> {[-8-]}
<MI 27d2c MOVE.B (A0+D1.L+#0x2),D0> {[-8-]}
<MI 27d30 CMP.B (A1+D2.L),D0> {[-8-]}
<MI 27d34 BEQ 0x27d3a> {[-8-]}
<POP 27d36-27d3a Naked> Σ-8 Δ+4 →0x27d48
<POP 27d36-27d38 StackAdj> Δ+4 {[-4-]}
<MI 27d38 BRA 0x27d48> {[-4-]}
<POP 27d3a-27d3e Naked> Σ-8 ↓ →0x27cf8 ←0x27cfc
<MI 27d3a ADDQ.L #0x1,D7> {[-8-]}
<MI 27d3c BVC 0x27cf8> {[-8-]}
<POP 27d3e-27d48 Naked> Σ-8 Δ+8 →0x27d50 ←0x27cf8
<POP 27d3e-27d40 StackAdj> Δ+4 {[-4-]}
<MI 27d40 MOVE.B D6,(A6+0xc)> {[-4-]}
<POP 27d44-27d46 StackAdj> Δ+4 {}
<MI 27d46 BRA 0x27d50> {}
<POP 27d48-27d4e Naked> Σ-4 ↓ →0x27cc6 ←0x27cce ←0x27d36
<MI 27d48 ADDQ.B #0x1,D6> {[-4-]}
<MI 27d4a BVC 0x27cc6> {[-4-]}
<POP 27d4e-27d50 Naked> Σ-4 Δ+4 ↓ ←0x27cc6
<POP 27d4e-27d50 StackAdj> Δ+4 {}
<POP 27d50-27d58 Epilogue> Σ0 ←0x27d3e
@ 27d58
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x006 @ 4(w)>
<LVAR -0x008 @ 1(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(rw)>
<POP 27d58-27e94 Body>
<POP 27d58-27d6e Prologue> Σ0 ↓
<POP 27d6e-27d7c RegCacheLoad> Σ0 ↓
<POP 27d7c-27de8 Naked> Σ0 ↓ →0x27e32
<POP 27d7c-27d7e StackAdj> Δ-4 {[-4-]}
<MI 27d7e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x27d82 0x102cc> {[-4-]|[4, '(A6+0xc)']}
StringDup(a : String) : String
<POP 27d88-27d8a StackAdj> Δ+4 {[-4-]}
<MI 27d8a MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 27d8c MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Const 0x27d8e 0x2e.2> Δ-2 {[4, '(A6-0x10)']|[#46]}
<Call 0x27d92 0x102c0> {[4, '(A6-0x10)']|[#46]}
AppendChar(MOD b : String; a : char)
<POP 27d98-27d9a StackAdj> Δ+6 {}
<Blob 0x27d9a [10] 0x2bbd2> Δ-10 {[«10»]}
<POP 27da8-27daa StackAdj> Δ-4 {[«10»]|[-4-]}
<MI 27daa MOVE.L (A6-0x10),-(A7)> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']}
<POP 27dac-27dae StackAdj> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x27dae> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
<Pointer.sp 0x27dae 12> Δ-4
<Const 0x27db2 0x1.2> Δ-2
<Const 0x27db4 0xa.2> Δ-2
<Call 0x27db8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 27dbe-27dc0 StackAdj> Δ+8
<Call 0x27dc0 0x102d0> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
StringCat2(a, b : String) : String
<POP 27dc6-27dc8 StackAdj> Δ+8 {[«10»]|[-4-]}
<MI 27dc8 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«10»]}
<POP 27dca-27dcc StackAdj> Δ+6 {[-4-]}
<MI 27dcc MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 27dce CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]}
<Const 0x27dd0 0x1.2> Δ-2 {[4, '(A6-0x10)']|[#0]|[#1]}
<Const 0x27dd2 0x0.4> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x27dd6 <LVAR -0x002 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]}
<Pointer.fp 0x27dd8 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
<Call 0x27dda 0x10380> {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 27de0-27de4 StackAdj> Δ+20 {}
<MI 27de4 TST.B (A6-0x2)> {}
<MI 27de6 BEQ 0x27e32> {}
<POP 27de8-27e32 Naked> Σ0 ↓
<Pointer.fp 0x27de8 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x27dea 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<MI 27df0 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Call 0x27df4 0x25654> {[4, '(A6+0x8)']}
<POP 27df8-27df9 StackAdj> Δ+4 ↓ {}
<Blob 0x27df9 [26] @> Δ-26 {[«26""»]}
<POP 27e0a-27e0c StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x27e0c 25> {[«26""»]|[-4-]|[$$Not a command or macro :_]}
<POP 27e1c-27e1e StackAdj> Δ-4 {[«26""»]|[-4-]|[$$Not a command or macro :_]|[-4-]}
<MI 27e1e MOVE.L (A6+0xc),(A7)> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
<Call 0x27e22 0x102d0> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
StringCat2(a, b : String) : String
<POP 27e28-27e2a StackAdj> Δ+8 {[«26""»]|[-4-]}
<Call 0x27e2a 0x25696> {[«26""»]|[-4-]}
<POP 27e2e-27e32 StackAdj> Δ+30 {}
<POP 27e32-27e3a Naked> Σ0 ↓ ←0x27d7c
<MI 27e32 MOVE.L 0x2bbc0,(A6-0x6)> {}
<POP 27e3a-27e52 Naked> Σ0 ↓ →0x27e66 ←0x27e66
<MI 27e3a MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Pointer.fp 0x27e3c <LVAR -0x010 @ 4(rw)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]}
<Pointer.fp 0x27e3e <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
<Call 0x27e42 0x1043c> {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 27e48-27e4c StackAdj> Δ+12 {}
<MI 27e4c MOVEA.L (A6-0x10),A0> {}
<MI 27e4e TST.W (A0)> {}
<MI 27e50 BEQ 0x27e66> {}
<POP 27e52-27e66 Naked> Σ0 ↓
<MI 27e52 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x27e54 0x258ee> {[4, '(A6-0x10)']}
<POP 27e58-27e5a StackAdj> Δ+4 {}
<Pointer.fp 0x27e5a <LVAR -0x006 @ 4(w)>> Δ-4 {[@@-6]}
<MI 27e5e MOVE.L (A6-0x10),-(A7)> Δ-4 {[@@-6]|[4, '(A6-0x10)']}
<Call 0x27e60 0x25c74> {[@@-6]|[4, '(A6-0x10)']}
<POP 27e64-27e66 StackAdj> Δ+8 {}
<POP 27e66-27e6c Naked> Σ0 ↓ →0x27e3a ←0x27e3a
<MI 27e66 TST.B (A6-0x8)> {}
<MI 27e6a BEQ 0x27e3a> {}
<POP 27e6c-27e8c Naked> Σ0 ↓
<MI 27e6c CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x27e6e 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x27e70 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x27e74 <LVAR -0x002 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]}
<Pointer.fp 0x27e76 <LVAR -0x00c @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
<Call 0x27e78 0x1038c> {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 27e7e-27e82 StackAdj> Δ+16 {}
<Pointer.fp 0x27e82 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x27e84 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 27e8a-27e8c StackAdj> Δ+4 {}
<POP 27e8c-27e94 Epilogue> Σ0
@ 27e94
<LVAR 0x014 1(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 27e94-27ed4 Body>
<POP 27e94-27eaa Prologue> Σ0 ↓
<POP 27eaa-27ecc Naked> Σ0 ↓
<MI 27eaa MOVE.L (A6+0xc),D0> {}
<MI 27eae ADD.L (A6+0x8),D0> {}
<MI 27eb2 SUBQ.L #0x1,D0> {}
<MI 27eb4 SUBQ.L #0x1,D0> {}
<POP 0x27eb6 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 27ec0 LEA.L 0x29bb8,A0> {}
<MI 27ec6 MOVE.B (A0+D0.L+#0x8),(A6+0x14)> {}
<POP 27ecc-27ed4 Epilogue> Σ0
@ 27ed4
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<POP 27ed4-27f50 Body>
<POP 27ed4-27eea Prologue> Σ0 ↓
<POP 27eea-27f12 Naked> Σ0 ↓ →0x27f42
<POP 27eea-27eec StackAdj> Δ-4 {[-4-]}
<MI 27eec MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 27ef0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x27ef4 0x26342> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 27ef8-27efa StackAdj> Δ+8 {[-4-]}
<Pointer.fp 0x27efa <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[@@-4]}
<Pointer.fp 0x27efe <LVAR -0x008 @ 4(r)>> Δ-4 {[-4-]|[@@-4]|[@@-8]}
<Call 0x27f02 0x102ec> {[-4-]|[@@-4]|[@@-8]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 27f08-27f0c StackAdj> Δ+12 {}
<MI 27f0c TST.B (A6-0x4)> {}
<MI 27f10 BNE 0x27f42> {}
<POP 27f12-27f42 Naked> Σ0 ↓
<Blob 0x27f12 [24] @> Δ-24 {[«24""»]}
<POP 27f24-27f26 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x27f26 23> {[«24""»]|[$$Illegal marker argument]}
<Call 0x27f3a 0x25696> {[«24""»]|[$$Illegal marker argument]}
<POP 27f3e-27f42 StackAdj> Δ+28 {}
<POP 27f42-27f48 Naked> Σ0 ↓ ←0x27eea
<MI 27f42 MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 27f48-27f50 Epilogue> Σ0
@ 27f50
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(w)>
<LVAR -0x020 4(rw)>
<POP 27f50-28078 Body>
<POP 27f50-27f66 Prologue> Σ0 ↓
<POP 27f66-27f76 RegCacheLoad> Σ0 ↓
<POP 27f76-27f90 Naked> Σ0 Δ-4 ↓
<MI 27f76 MOVEQ.L #0x00,D7> {}
<MI 27f78 MOVE.L (A6+0x14),(A6-0x20)> {}
<MI 27f7c MOVE.L 0x2bbc0,D0> {}
<MI 27f82 SUB.L (A6+0x14),D0> {}
<MI 27f86 MOVE.L D0,(A6-0x14)> {}
<MI 27f88 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 27f8c MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 27f90-27f94 Naked> Σ-4 ↓ →0x27fc0 ←0x27fbc
<MI 27f90 CMP.L (A7),D5> {[-4-]}
<MI 27f92 BGT 0x27fc0> {[-4-]}
<POP 27f94-27fba Naked> Σ-4 ↓ →0x27fbc
<POP 27f94-27f96 StackAdj> Δ-8 {[-12-]}
<MI 27f96 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 27f9a MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x27f9c 0x262e0> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 27fa0-27fa2 StackAdj> Δ+8 {[-12-]}
<MI 27fa2 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 27fa4 MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 27fa6 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 27fa8 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x27faa 0x262a8> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 27fae-27fb0 StackAdj> Δ+8 {[-8-]}
<MI 27fb0 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 27fb2 ADD.L D6,D7> {[-4-]}
<MI 27fb4 CMP.L (A6+0xc),D5> {[-4-]}
<MI 27fb8 BGE 0x27fbc> {[-4-]}
<POP 27fba-27fbc Naked> Σ-4 ↓
<MI 27fba ADDQ.L #0x1,D7> {[-4-]}
<POP 27fbc-27fc0 Naked> Σ-4 ↓ →0x27f90 ←0x27f94
<MI 27fbc ADDQ.L #0x1,D5> {[-4-]}
<MI 27fbe BVC 0x27f90> {[-4-]}
<POP 27fc0-27fce Naked> Σ-4 Δ+4 ↓ →0x27fda ←0x27f90
<POP 27fc0-27fc2 StackAdj> Δ+4 {}
<MI 27fc2 MOVE.L (A6-0x20),D0> {}
<MI 27fc4 ADD.L (A6-0x14),D0> {}
<MI 27fc6 MOVE.L D0,(A6-0x18)> {}
<MI 27fca CMP.L (A6-0x14),D7> {}
<MI 27fcc BEQ 0x27fda> {}
<POP 27fce-27fda Naked> Σ0 ↓
<MI 27fce MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 27fd0 MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, 'D0']|[4, '(A6-0x14)']}
<MI 27fd2 SUB.L D7,(A7)> {[4, 'D0']|[-4-]}
<Call 0x27fd4 0x25bea> {[4, 'D0']|[-4-]}
<POP 27fd8-27fda StackAdj> Δ+8 {}
<POP 27fda-27fe2 Naked> Σ0 Δ-4 ↓ ←0x27fc0
<MI 27fda MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 27fde MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 27fe2-27fe8 Naked> Σ-4 ↓ →0x2806e ←0x28068
<MI 27fe2 CMP.L (A7),D5> {[-4-]}
<MI 27fe4 BGT 0x2806e> {[-4-]}
<POP 27fe8-2800a Naked> Σ-4 Δ-4 ↓
<POP 27fe8-27fea StackAdj> Δ-8 {[-12-]}
<MI 27fea MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 27fee MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x27ff0 0x262e0> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 27ff4-27ff6 StackAdj> Δ+8 {[-12-]}
<MI 27ff6 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 27ff8 MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 27ffa MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 27ffc MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x27ffe 0x262a8> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 28002-28004 StackAdj> Δ+8 {[-8-]}
<MI 28004 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 28006 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<MI 28008 MOVEQ.L #0x01,D0> {[-4-]|[4, 'D6']}
<POP 2800a-2800e Naked> Σ-8 ↓ →0x2803e ←0x2800e
<MI 2800a CMP.L (A7),D0> {[-8-]}
<MI 2800c BGT 0x2803e> {[-8-]}
<POP 2800e-2803e Naked> Σ-8 ↓ →0x2800a
<MI 2800e MOVE.L (A6-0x20),D1> {[-8-]}
<MI 28010 ADD.L D0,D1> {[-8-]}
<MI 28012 SUBQ.L #0x1,D1> {[-8-]}
<MI 28014 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x28016 LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-8-]}
<MI 28020 LEA.L 0x29bb8,A0> {[-8-]}
<POP 28026-28028 StackAdj> Δ-2 {[-10-]}
<MI 28028 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']}
<MI 2802a MOVE.L (A6-0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 2802c MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<Call 0x2802e 0x27e94> {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<POP 28032-28036 StackAdj> Δ+12 {[-10-]}
<MI 28036 MOVE.B (A7)+,(A0+D1.L+#0x8)> Δ+2 {[-8-]}
<MI 2803a ADDQ.L #0x1,D0> {[-8-]}
<MI 2803c BVC 0x2800a> {[-8-]}
<POP 2803e-28046 Naked> Σ-8 Δ+4 ↓ →0x28068 ←0x2800a
<POP 2803e-28040 StackAdj> Δ+4 {[-4-]}
<MI 28040 CMP.L (A6+0xc),D5> {[-4-]}
<MI 28044 BGE 0x28068> {[-4-]}
<POP 28046-28068 Naked> Σ-4 ↓
<MI 28046 MOVE.L (A6-0x20),D0> {[-4-]}
<MI 28048 ADD.L D6,D0> {[-4-]}
<MI 2804a MOVE.L D0,D1> {[-4-]}
<MI 2804c SUBQ.L #0x1,D1> {[-4-]}
<POP 0x2804e LimitCheck 0x0 ≤ D1 ≤ 0x1fff> {[-4-]}
<MI 28058 LEA.L 0x29bb8,A0> {[-4-]}
<MI 2805e MOVE.B #0x2c,(A0+D1.L+#0x8)> {[-4-]}
<MI 28064 ADDQ.L #0x1,D0> {[-4-]}
<MI 28066 MOVE.L D0,(A6-0x20)> {[-4-]}
<POP 28068-2806e Naked> Σ-4 ↓ →0x27fe2 ←0x2803e
<MI 28068 ADDQ.L #0x1,D5> {[-4-]}
<MI 2806a BVC 0x27fe2> {[-4-]}
<POP 2806e-28070 Naked> Σ-4 Δ+4 ↓ ←0x27fe2
<POP 2806e-28070 StackAdj> Δ+4 {}
<POP 28070-28078 Epilogue> Σ0
@ 28078
<LVAR 0x018 4(rw)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 4(rw)>
<LVAR -0x00c 4(rw)>
<LVAR -0x018 4(w)>
<POP 28078-2816e Body> Δ-12
<POP 28078-2808e Prologue> Σ0 ↓
<POP 2808e-280a4 RegCacheLoad> Σ0 ↓
<POP 280a4-280ce Naked> Σ0 Δ-4 ↓
<POP 280a4-280a6 StackAdj> Δ-4 {[-4-]}
<MI 280a6 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 280a8 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x280aa 0x262a8> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 280ae-280b0 StackAdj> Δ+8 {[-4-]}
<MI 280b0 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 280b2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 280b6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x280ba 0x262a8> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 280be-280c0 StackAdj> Δ+8 {[-4-]}
<MI 280c0 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 280c2 ADDQ.L #0x1,(A6-0x8)> {}
<MI 280c4 MOVE.L (A6-0xc),D0> {}
<MI 280c6 SUB.L (A6-0x8),D0> {}
<MI 280c8 ADDQ.L #0x1,D0> {}
<MI 280ca MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 280cc MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 280ce-280d4 Naked> Σ-4 ↓ →0x28160 ←0x28158
<MI 280ce CMP.L (A7),D0> {[-4-]}
<MI 280d0 BGT 0x28160> {[-4-]}
<POP 280d4-280e0 Naked> Σ-4 Δ-8 ↓
<MI 280d4 MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 280d8 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 280da MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 280dc MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 280de MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 280e0-280e4 Naked> Σ-12 ↓ →0x28126 ←0x28120
<MI 280e0 CMP.L (A7),D5> {[-12-]}
<MI 280e2 BGT 0x28126> {[-12-]}
<POP 280e4-280ec Naked> Σ-12 ↓ →0x280f0
<MI 280e4 CMPI.L #0x00000001,D5> {[-12-]}
<MI 280ea BNE 0x280f0> {[-12-]}
<POP 280ec-280f0 Naked> Σ-12 →0x28104
<MI 280ec MOVEQ.L #0x2f,D7> {[-12-]}
<MI 280ee BRA 0x28104> {[-12-]}
<POP 280f0-28104 Naked> Σ-12 ↓ ←0x280e4
<POP 280f0-280f2 StackAdj> Δ-2 {[-14-]}
<MI 280f2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']}
<MI 280f6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 280fa MOVE.L D5,-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D5']}
<MI 280fc SUBQ.L #0x1,(A7)> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<Call 0x280fe 0x27e94> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<POP 28100-28102 StackAdj> Δ+12 {[-14-]}
<MI 28102 MOVE.B (A7)+,D7> Δ+2 {[-12-]}
<POP 28104-2811c Naked> Σ-12 ↓ →0x28120 ←0x280ec
<POP 28104-28106 StackAdj> Δ-2 {[-14-]}
<MI 28106 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']}
<MI 28108 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 2810a MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 2810e ADD.L D5,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 28110 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 28112 MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x28114 0x27e94> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 28116-28118 StackAdj> Δ+12 {[-14-]}
<MI 28118 CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 2811a BEQ 0x28120> {[-12-]}
<POP 2811c-28120 Naked> Σ-12 Δ+4 →0x28128
<POP 2811c-2811e StackAdj> Δ+4 {[-8-]}
<MI 2811e BRA 0x28128> {[-8-]}
<POP 28120-28126 Naked> Σ-12 ↓ →0x280e0 ←0x28104
<MI 28120 MOVE.L D5,D6> {[-12-]}
<MI 28122 ADDQ.L #0x1,D5> {[-12-]}
<MI 28124 BVC 0x280e0> {[-12-]}
<POP 28126-28128 Naked> Σ-12 Δ+4 ↓ ←0x280e0
<POP 28126-28128 StackAdj> Δ+4 {[-8-]}
<POP 28128-2812c Naked> Σ-8 ↓ →0x28158 ←0x2811c
<MI 28128 CMP.L (A6-0x8),D6> {[-8-]}
<MI 2812a BNE 0x28158> {[-8-]}
<POP 2812c-28138 Naked> Σ-8 ↓ →0x2813a
<MI 2812c MOVE.L (A7),D0> {[-8-]}
<MI 2812e MOVE.L D0,(A6+0x18)> {[-8-]}
<MI 28132 ADD.L (A6-0x8),D0> {[-8-]}
<MI 28134 CMP.L (A6-0xc),D0> {[-8-]}
<MI 28136 BLT 0x2813a> {[-8-]}
<POP 28138-2813a Naked> Σ-8 →0x28154
<MI 28138 BRA 0x28154> {[-8-]}
<POP 2813a-2814e Naked> Σ-8 ↓ →0x28154 ←0x2812c
<POP 2813a-2813c StackAdj> Δ-2 {[-10-]}
<MI 2813c MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 2813e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 28140 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x28142 0x27e94> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 28144-28146 StackAdj> Δ+12 {[-10-]}
<MI 28146 MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 28148 CMPI.B #0x2f,D7> {[-8-]}
<MI 2814c BEQ 0x28154> {[-8-]}
<POP 2814e-28154 Naked> Σ-8 ↓ →0x28158
<MI 2814e CMPI.B #0x3d,D7> {[-8-]}
<MI 28152 BNE 0x28158> {[-8-]}
<POP 28154-28158 Naked> Σ-8 Δ+8 →0x28166 ←0x28138 ←0x2813a
<POP 28154-28156 StackAdj> Δ+8 {}
<MI 28156 BRA 0x28166> {}
<POP 28158-28160 Naked> Σ-8 Δ+4 ↓ →0x280ce ←0x28128 ←0x2814e
<MI 28158 MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 2815a ADDQ.L #0x1,D0> {[-4-]}
<MI 2815c BVC 0x280ce> {[-4-]}
<POP 28160-28166 Naked> Σ-4 Δ+4 ↓ ←0x280ce
<POP 28160-28162 StackAdj> Δ+4 {}
<MI 28162 CLR.L (A6+0x18)> {}
<POP 28166-2816e Epilogue> Σ0 ←0x28154
@ 2816e
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2816e-28202 Body> Δ-4
<POP 2816e-28184 Prologue> Σ0 ↓
<POP 28184-2818e RegCacheLoad> Σ0 ↓
<POP 2818e-281a8 Naked> Σ0 ↓ →0x281fa
<POP 2818e-28190 StackAdj> Δ-4 {[-4-]}
<MI 28190 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 28192 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 28194 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 28198 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x2819c 0x28078> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 281a0-281a4 StackAdj> Δ+16 {[-4-]}
<MI 281a4 MOVE.L (A7)+,D5> Δ+4 {}
<MI 281a6 BLE 0x281fa> {}
<POP 281a8-281c8 Naked> Σ0 Δ-4 ↓
<MI 281a8 MOVE.L (A6+0x18),-(A7)> Δ-4 {[4, '(A6+0x18)']}
<Const 0x281ac 0x2f.2> Δ-2 {[4, '(A6+0x18)']|[#47]}
<Call 0x281ae 0x102c0> {[4, '(A6+0x18)']|[#47]}
AppendChar(MOD b : String; a : char)
<POP 281b4-281b6 StackAdj> Δ+6 {}
<MI 281b6 MOVE.L D5,D0> {}
<MI 281b8 ADDQ.L #0x1,D0> {}
<POP 281ba-281bc StackAdj> Δ-4 {[-4-]}
<MI 281bc MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 281be MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x281c0 0x262a8> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 281c4-281c6 StackAdj> Δ+8 {[-4-]}
<MI 281c6 MOVE.L D0,D6> {[-4-]}
<POP 281c8-281cc Naked> Σ-4 ↓ →0x281f8 ←0x281e6
<MI 281c8 CMP.L (A7),D6> {[-4-]}
<MI 281ca BGT 0x281f8> {[-4-]}
<POP 281cc-281e2 Naked> Σ-4 ↓ →0x281e6
<POP 281cc-281ce StackAdj> Δ-2 {[-6-]}
<MI 281ce MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 281d0 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 281d2 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x281d4 0x27e94> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 281d8-281dc StackAdj> Δ+12 {[-6-]}
<MI 281dc MOVE.B (A7)+,D7> Δ+2 {[-4-]}
<MI 281de CMP.B #0x2f,D7> {[-4-]}
<MI 281e0 BNE 0x281e6> {[-4-]}
<POP 281e2-281e6 Naked> Σ-4 Δ+4 →0x281fa
<POP 281e2-281e4 StackAdj> Δ+4 {}
<MI 281e4 BRA 0x281fa> {}
<POP 281e6-281f8 Naked> Σ-4 ↓ →0x281c8 ←0x281cc
<MI 281e6 MOVE.L (A6+0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x18)']}
<MI 281ea MOVE.B D7,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x281ec 0x102c0> {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 281f2-281f4 StackAdj> Δ+6 {[-4-]}
<MI 281f4 ADDQ.L #0x1,D6> {[-4-]}
<MI 281f6 BVC 0x281c8> {[-4-]}
<POP 281f8-281fa Naked> Σ-4 Δ+4 ↓ ←0x281c8
<POP 281f8-281fa StackAdj> Δ+4 {}
<POP 281fa-28202 Epilogue> Σ0 ←0x2818e ←0x281e2
@ 28202
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<LVAR -0x014 4(rw)>
<POP 28202-282b8 Body> Δ-8
<POP 28202-28218 Prologue> Σ0 ↓
<POP 28218-28226 RegCacheLoad> Σ0 ↓
<POP 28226-28242 Naked> Σ0 ↓ →0x282b0
<POP 28226-28228 StackAdj> Δ-4 {[-4-]}
<MI 28228 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 2822a MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 2822c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 28230 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x28234 0x28078> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 28238-2823c StackAdj> Δ+16 {[-4-]}
<MI 2823c MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 28240 BLE 0x282b0> {}
<POP 28242-28256 Naked> Σ0 Δ-4 ↓
<POP 28242-28244 StackAdj> Δ-4 {[-4-]}
<MI 28244 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 28246 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x28248 0x262a8> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 2824c-2824e StackAdj> Δ+8 {[-4-]}
<MI 2824e MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 28250 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<MI 28252 MOVE.L (A6-0x14),D5> {[4, '(A6-0x6)']}
<POP 28256-2825a Naked> Σ-4 ↓ →0x282ae ←0x282aa
<MI 28256 CMP.L (A7),D5> {[-4-]}
<MI 28258 BGT 0x282ae> {[-4-]}
<POP 2825a-28270 Naked> Σ-4 ↓ →0x282aa
<POP 2825a-2825c StackAdj> Δ-2 {[-6-]}
<MI 2825c MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 2825e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 28260 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<Call 0x28262 0x27e94> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<POP 28266-28268 StackAdj> Δ+12 {[-6-]}
<MI 28268 MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 2826a CMPI.B #0x3d,D0> {[-4-]}
<MI 2826e BNE 0x282aa> {[-4-]}
<POP 28270-28278 Naked> Σ-4 Δ-4 ↓
<MI 28270 MOVE.L D5,D0> {[-4-]}
<MI 28272 ADDQ.L #0x1,D0> {[-4-]}
<MI 28274 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<MI 28276 MOVE.L D0,D6> {[-4-]|[4, '(A6-0x6)']}
<POP 28278-2827c Naked> Σ-8 ↓ →0x282a8 ←0x28296
<MI 28278 CMP.L (A7),D6> {[-8-]}
<MI 2827a BGT 0x282a8> {[-8-]}
<POP 2827c-28292 Naked> Σ-8 ↓ →0x28296
<POP 2827c-2827e StackAdj> Δ-2 {[-10-]}
<MI 2827e MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 28280 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 28282 MOVE.L D6,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x28284 0x27e94> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 28288-2828a StackAdj> Δ+12 {[-10-]}
<MI 2828a MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 2828c CMPI.B #0x2f,D7> {[-8-]}
<MI 28290 BNE 0x28296> {[-8-]}
<POP 28292-28296 Naked> Σ-8 Δ+8 →0x282b0
<POP 28292-28294 StackAdj> Δ+8 {}
<MI 28294 BRA 0x282b0> {}
<POP 28296-282a8 Naked> Σ-8 ↓ →0x28278 ←0x2827c
<MI 28296 MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 2829a MOVE.B D7,-(A7)> Δ-2 {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x2829c 0x102c0> {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 282a2-282a4 StackAdj> Δ+6 {[-8-]}
<MI 282a4 ADDQ.L #0x1,D6> {[-8-]}
<MI 282a6 BVC 0x28278> {[-8-]}
<POP 282a8-282aa Naked> Σ-8 Δ+4 ↓ ←0x28278
<POP 282a8-282aa StackAdj> Δ+4 {[-4-]}
<POP 282aa-282ae Naked> Σ-4 ↓ →0x28256 ←0x2825a
<MI 282aa ADDQ.L #0x1,D5> {[-4-]}
<MI 282ac BVC 0x28256> {[-4-]}
<POP 282ae-282b0 Naked> Σ-4 Δ+4 ↓ ←0x28256
<POP 282ae-282b0 StackAdj> Δ+4 {}
<POP 282b0-282b8 Epilogue> Σ0 ←0x28226 ←0x28292
@ 282b8
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 282b8-2833e Body> Δ-4
<POP 282b8-282ce Prologue> Σ0 ↓
<POP 282ce-282d8 RegCacheLoad> Σ0 ↓
<POP 282d8-282ea Naked> Σ0 Δ-4 ↓
<POP 282d8-282da StackAdj> Δ-4 {[-4-]}
<MI 282da MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 282dc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x282de 0x262a8> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 282e2-282e4 StackAdj> Δ+8 {[-4-]}
<MI 282e4 MOVE.L (A7)+,D5> Δ+4 {}
<MI 282e6 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 282e8 MOVEQ.L #0x01,D6> {[4, 'D5']}
<POP 282ea-282ee Naked> Σ-4 ↓ →0x28334 ←0x28330
<MI 282ea CMP.L (A7),D6> {[-4-]}
<MI 282ec BGT 0x28334> {[-4-]}
<POP 282ee-28304 Naked> Σ-4 ↓ →0x28330
<POP 282ee-282f0 StackAdj> Δ-2 {[-6-]}
<MI 282f0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 282f2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 282f4 MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x282f6 0x27e94> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<POP 282fa-282fc StackAdj> Δ+12 {[-6-]}
<MI 282fc MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 282fe CMPI.B #0x2f,D0> {[-4-]}
<MI 28302 BNE 0x28330> {[-4-]}
<POP 28304-28308 Naked> Σ-4 Δ-4 ↓
<MI 28304 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 28306 MOVE.L D6,D7> {[-4-]|[4, 'D5']}
<POP 28308-2830c Naked> Σ-8 ↓ →0x2832a ←0x2830c
<MI 28308 CMP.L (A7),D7> {[-8-]}
<MI 2830a BGT 0x2832a> {[-8-]}
<POP 2830c-2832a Naked> Σ-8 ↓ →0x28308
<MI 2830c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']}
<POP 28310-28312 StackAdj> Δ-2 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<MI 28312 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']}
<MI 28314 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 28316 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x28318 0x27e94> {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 2831c-2831e StackAdj> Δ+12 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<Call 0x2831e 0x102c0> {[-8-]|[4, '(A6+0x10)']|[-2-]}
AppendChar(MOD b : String; a : char)
<POP 28324-28326 StackAdj> Δ+6 {[-8-]}
<MI 28326 ADDQ.L #0x1,D7> {[-8-]}
<MI 28328 BVC 0x28308> {[-8-]}
<POP 2832a-28330 Naked> Σ-8 Δ+8 →0x28336 ←0x28308
<POP 2832a-2832c StackAdj> Δ+4 {[-4-]}
<POP 2832c-2832e StackAdj> Δ+4 {}
<MI 2832e BRA 0x28336> {}
<POP 28330-28334 Naked> Σ-4 ↓ →0x282ea ←0x282ee
<MI 28330 ADDQ.L #0x1,D6> {[-4-]}
<MI 28332 BVC 0x282ea> {[-4-]}
<POP 28334-28336 Naked> Σ-4 Δ+4 ↓ ←0x282ea
<POP 28334-28336 StackAdj> Δ+4 {}
<POP 28336-2833e Epilogue> Σ0 ←0x2832a
@ 2833e
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2833e-283ae Body> Δ-4
<POP 2833e-28354 Prologue> Σ0 ↓
<POP 28354-2836c Naked> Σ0 Δ-4 ↓
<MI 28354 MOVEA.L (A6+0x10),A0> {}
<MI 28358 CLR.W (A0)> {}
<POP 2835a-2835c StackAdj> Δ-4 {[-4-]}
<MI 2835c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 28360 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x28364 0x262a8> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 28368-2836a StackAdj> Δ+8 {[-4-]}
<MI 2836a MOVEQ.L #0x01,D7> {[-4-]}
<POP 2836c-28370 Naked> Σ-4 ↓ →0x283a4 ←0x283a0
<MI 2836c CMP.L (A7),D7> {[-4-]}
<MI 2836e BGT 0x283a4> {[-4-]}
<POP 28370-2838c Naked> Σ-4 ↓ →0x2839c
<POP 28370-28372 StackAdj> Δ-2 {[-6-]}
<MI 28372 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 28376 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 2837a MOVE.L D7,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x2837c 0x27e94> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 28380-28384 StackAdj> Δ+12 {[-6-]}
<MI 28384 MOVE.B (A7)+,D6> Δ+2 {[-4-]}
<MI 28386 CMPI.B #0x2f,D6> {[-4-]}
<MI 2838a BEQ 0x2839c> {[-4-]}
<POP 2838c-2839c Naked> Σ-4 →0x283a0
<MI 2838c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 28390 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
<Call 0x28392 0x102c0> {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 28398-2839a StackAdj> Δ+6 {[-4-]}
<MI 2839a BRA 0x283a0> {[-4-]}
<POP 2839c-283a0 Naked> Σ-4 Δ+4 →0x283a6 ←0x28370
<POP 2839c-2839e StackAdj> Δ+4 {}
<MI 2839e BRA 0x283a6> {}
<POP 283a0-283a4 Naked> Σ-4 ↓ →0x2836c ←0x2838c
<MI 283a0 ADDQ.L #0x1,D7> {[-4-]}
<MI 283a2 BVC 0x2836c> {[-4-]}
<POP 283a4-283a6 Naked> Σ-4 Δ+4 ↓ ←0x2836c
<POP 283a4-283a6 StackAdj> Δ+4 {}
<POP 283a6-283ae Epilogue> Σ0 ←0x2839c
@ 283ae
<POP 283ae-283f6 Body>
<POP 283ae-283c4 Prologue> Σ0 ↓
<POP 283c4-283ee Naked> Σ0 ↓
<Blob 0x283c4 [34] @> Δ-34 {[«34""»]}
<POP 283d0-283d2 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x283d2 34> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<Call 0x283e6 0x25696> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<POP 283ea-283ee StackAdj> Δ+38 {}
<POP 283ee-283f6 Epilogue> Σ0
@ 283f6
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<POP 283f6-28530 Body>
<POP 283f6-2840c Prologue> Σ0 ↓
<POP 2840c-28422 RegCacheLoad> Σ0 ↓
<POP 28422-28430 Naked> Σ0 ↓ →0x28438
<MI 28422 MOVE.L 0x2bbc0,(A6-0x6)> {}
<POP 28426-28428 StackAdj> Δ-2 {[-2-]}
<Call 0x28428 0x25732> {[-2-]}
<MI 2842a MOVE.B (A7)+,D7> Δ+2 {}
<MI 2842c CMP.B #0x25,D7> {}
<MI 2842e BNE 0x28438> {}
<POP 28430-28438 Naked> Σ0 →0x28518
<MI 28430 MOVEA.L (A6+0xc),A0> {}
<MI 28432 CLR.L (A0)> {}
<MI 28434 BRA 0x28518> {}
<POP 28438-2843c Naked> Σ0 ↓ →0x28448 ←0x28422
<MI 28438 CMP.B #0x2d,D7> {}
<MI 2843a BNE 0x28448> {}
<POP 2843c-28448 Naked> Σ0 →0x28518
<MI 2843c MOVEA.L (A6+0xc),A0> {}
<MI 2843e MOVE.L #0x1,(A0)> {}
<MI 28444 BRA 0x28518> {}
<POP 28448-2844e Naked> Σ0 ↓ →0x2845a ←0x28438
<MI 28448 CMPI.B #0x2f,D7> {}
<MI 2844c BNE 0x2845a> {}
<POP 2844e-2845a Naked> Σ0 →0x28518
<MI 2844e MOVEA.L (A6+0xc),A0> {}
<MI 28450 MOVE.L #0x4,(A0)> {}
<MI 28456 BRA 0x28518> {}
<POP 2845a-28460 Naked> Σ0 ↓ →0x2846c ←0x28448
<MI 2845a CMPI.B #0x3d,D7> {}
<MI 2845e BNE 0x2846c> {}
<POP 28460-2846c Naked> Σ0 →0x28518
<MI 28460 MOVEA.L (A6+0xc),A0> {}
<MI 28462 MOVE.L #0x5,(A0)> {}
<MI 28468 BRA 0x28518> {}
<POP 2846c-28472 Naked> Σ0 ↓ →0x2847e ←0x2845a
<MI 2846c CMPI.B #0x5c,D7> {}
<MI 28470 BNE 0x2847e> {}
<POP 28472-2847e Naked> Σ0 →0x28518
<MI 28472 MOVEA.L (A6+0xc),A0> {}
<MI 28474 MOVE.L #0x6,(A0)> {}
<MI 2847a BRA 0x28518> {}
<POP 2847e-28482 Naked> Σ0 ↓ →0x284ae ←0x2846c
<MI 2847e TST.B D7> {}
<MI 28480 BNE 0x284ae> {}
<POP 28482-284ae Naked> Σ0 →0x28518
<Blob 0x28482 [24] @> Δ-24 {[«24""»]}
<POP 2848e-28490 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x28490 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x284a4 0x25696> {[«24""»]|[$$Illegal argument marker.]}
<POP 284a8-284ac StackAdj> Δ+28 {}
<MI 284ac BRA 0x28518> {}
<POP 284ae-284b2 Naked> Σ0 ↓ →0x284de ←0x2847e
<MI 284ae CMP.B #0x30,D7> {}
<MI 284b0 BCS 0x284de> {}
<POP 284b2-284b6 Naked> Σ0 ↓ →0x284de
<MI 284b2 CMP.B #0x39,D7> {}
<MI 284b4 BHI 0x284de> {}
<POP 284b6-284be Naked> Σ0 ↓
<MI 284b6 MOVEA.L (A6+0xc),A0> {}
<MI 284b8 MOVE.L #0x2,(A0)> {}
<POP 284be-284ca Naked> Σ0 ↓ →0x284d4 ←0x284d8
<POP 284be-284c0 StackAdj> Δ-2 {[-2-]}
<Call 0x284c0 0x256f4> {[-2-]}
<MI 284c4 MOVE.B (A7)+,D7> Δ+2 {}
<MI 284c6 CMP.B #0x30,D7> {}
<MI 284c8 BCS 0x284d4> {}
<POP 284ca-284ce Naked> Σ0 ↓ →0x284d4
<MI 284ca CMP.B #0x39,D7> {}
<MI 284cc BHI 0x284d4> {}
<POP 284ce-284d4 Naked> Σ0 ↓
<POP 284ce-284d0 StackAdj> Δ-2 {[-2-]}
<Call 0x284d0 0x25732> {[-2-]}
<MI 284d2 MOVE.B (A7)+,D6> Δ+2 {}
<POP 284d4-284d8 Naked> Σ0 ↓ →0x284dc ←0x284be ←0x284ca
<MI 284d4 CMP.B #0x30,D7> {}
<MI 284d6 BCS 0x284dc> {}
<POP 284d8-284dc Naked> Σ0 ↓ →0x284be
<MI 284d8 CMP.B #0x39,D7> {}
<MI 284da BLS 0x284be> {}
<POP 284dc-284de Naked> Σ0 →0x28518 ←0x284d4
<MI 284dc BRA 0x28518> {}
<POP 284de-284e8 Naked> Σ0 ↓ ←0x284ae ←0x284b2
<MI 284de MOVEA.L (A6+0xc),A0> {}
<MI 284e0 MOVE.L #0x3,(A0)> {}
<MI 284e6 MOVEQ.L #0x00,D5> {}
<POP 284e8-284f4 Naked> Σ0 ↓ →0x2850a ←0x28514
<POP 284e8-284ea StackAdj> Δ-2 {[-2-]}
<Call 0x284ea 0x256f4> {[-2-]}
<MI 284ee MOVE.B (A7)+,D7> Δ+2 {}
<MI 284f0 CMP.B #0x25,D7> {}
<MI 284f2 BEQ 0x2850a> {}
<POP 284f4-284f8 Naked> Σ0 ↓ →0x2850a
<MI 284f4 CMP.B #0x2d,D7> {}
<MI 284f6 BEQ 0x2850a> {}
<POP 284f8-284fe Naked> Σ0 ↓ →0x2850a
<MI 284f8 CMPI.B #0x2f,D7> {}
<MI 284fc BEQ 0x2850a> {}
<POP 284fe-28504 Naked> Σ0 ↓ →0x2850a
<MI 284fe CMPI.B #0x3d,D7> {}
<MI 28502 BEQ 0x2850a> {}
<POP 28504-2850a Naked> Σ0 ↓ →0x2850e
<MI 28504 CMPI.B #0x5c,D7> {}
<MI 28508 BNE 0x2850e> {}
<POP 2850a-2850e Naked> Σ0 →0x28514 ←0x284e8 ←0x284f4 ←0x284f8 ←0x284fe
<MI 2850a MOVEQ.L #0x01,D5> {}
<MI 2850c BRA 0x28514> {}
<POP 2850e-28514 Naked> Σ0 ↓ ←0x28504
<POP 2850e-28510 StackAdj> Δ-2 {[-2-]}
<Call 0x28510 0x25732> {[-2-]}
<MI 28512 MOVE.B (A7)+,D6> Δ+2 {}
<POP 28514-28518 Naked> Σ0 ↓ →0x284e8 ←0x2850a
<MI 28514 TST.B D5> {}
<MI 28516 BEQ 0x284e8> {}
<POP 28518-28528 Naked> Σ0 ↓ ←0x28430 ←0x2843c ←0x2844e ←0x28460 ←0x28472 ←0x28482 ←0x284dc
<MI 28518 MOVEA.L (A6+0x8),A0> {}
<MI 2851c MOVE.L (A6-0x6),(A0)> {}
<MI 28520 MOVE.L 0x2bbc0,(A0+0x4)> {}
<MI 28524 SUBQ.L #0x1,(A0+0x4)> {}
<POP 28528-28530 Epilogue> Σ0
@ 28530
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 28530-285b6 Body>
<POP 28530-28546 Prologue> Σ0 ↓
<POP 28546-2854a RegCacheLoad> Σ0 ↓
<POP 2854a-28564 Naked> Σ0 Δ-4 ↓ →0x28570
<MI 2854a MOVEA.L (A6+0x8),A0> {}
<MI 2854e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 28550 MOVE.L 0x2bbc0,D6> {[4, 'A0']}
<MI 28556 SUB.L (A6+0xc),D6> {[4, 'A0']}
<MI 28558 MOVE.L (A6+0xc),D5> {[4, 'A0']}
<MI 2855a ADD.L D6,D5> {[4, 'A0']}
<MI 2855c MOVE.W (A0),D0> {[4, 'A0']}
<MI 2855e EXTW.L D0> {[4, 'A0']}
<MI 28560 CMP.L D6,D0> {[4, 'A0']}
<MI 28562 BEQ 0x28570> {[4, 'A0']}
<POP 28564-28570 Naked> Σ-4 ↓
<MI 28564 MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 28566 MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D5']|[4, 'D6']}
<MI 28568 SUB.L D0,(A7)> {[-4-]|[4, 'D5']|[-4-]}
<Call 0x2856a 0x25bea> {[-4-]|[4, 'D5']|[-4-]}
<POP 2856e-28570 StackAdj> Δ+8 {[-4-]}
<POP 28570-28574 Naked> Σ-4 Δ-4 ↓ ←0x2854a
<MI 28570 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 28572 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D0']}
<POP 28574-28578 Naked> Σ-8 ↓ →0x285ac ←0x28578
<MI 28574 CMP.L (A7),D7> {[-8-]}
<MI 28576 BGT 0x285ac> {[-8-]}
<POP 28578-285ac Naked> Σ-8 ↓ →0x28574
<MI 28578 MOVE.L (A6+0xc),D0> {[-8-]}
<MI 2857a ADD.L D7,D0> {[-8-]}
<MI 2857c SUBQ.L #0x1,D0> {[-8-]}
<MI 2857e SUBQ.L #0x1,D0> {[-8-]}
<POP 0x28580 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {[-8-]}
<MI 2858a LEA.L 0x29bb8,A0> {[-8-]}
<MI 28590 MOVE.L D7,D1> {[-8-]}
<MI 28592 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x28594 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 2859e MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 285a2 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 285a8 ADDQ.L #0x1,D7> {[-8-]}
<MI 285aa BVC 0x28574> {[-8-]}
<POP 285ac-285ae Naked> Σ-8 Δ+8 ↓ ←0x28574
<POP 285ac-285ae StackAdj> Δ+8 {}
<POP 285ae-285b6 Epilogue> Σ0
@ 285b6
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 4(r)>
<LVAR -0x014 @ 4(r)>
<LVAR -0x018 4(rw)>
<LVAR -0x01c 4(rw)>
<LVAR -0x020 4(rw)>
<LVAR -0x024 4(rw)>
<LVAR -0x028 4(rw)>
<LVAR -0x034 4(rw)>
<POP 285b6-287fe Body> Δ+56
<POP 285b6-285cc Prologue> Σ0 ↓
<POP 285cc-285de RegCacheLoad> Σ0 ↓
<POP 285de-28602 Naked> Σ0 ↓
<MI 285de MOVE.L 0x2bbc0,(A6-0x28)> {}
<Pointer.fp 0x285e6 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x285e8 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 285ee-285f0 StackAdj> Δ+4 {}
<Pointer.fp 0x285f0 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x285f4 <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x285f6 0x283f6> {[@@-12]|[@@-20]}
<POP 285fa-285fc StackAdj> Δ+8 {}
<MI 285fc CLR.L (A6-0x34)> {}
<MI 28600 MOVEQ.L #0x00,D7> {}
<POP 28602-28616 Naked> Σ0 →0x28640 →0x2864a →0x2865e →0x2867a →0x2867e →0x2868c →0x286a0 →0x286a6 →0x286a8 →0x286be →0x286cc →0x286e4 →0x286f8 →0x2870c →0x28722 →0x28724 →0x2873e →0x28754 →0x28762 →0x28764 →0x28766 ←0x287da
<MI 28602 MOVE.L (A6-0x34),D0> {}
<POP 0x28606 LimitCheck 0x0 ≤ D0 ≤ 0x14> {}
<MI 2860c ADD.W D0,D0> {}
<MI 2860e SWITCH D0.W> {}
<POP 28640-2864a Naked> Σ0 →0x28790 ←0x28602
<MI 28640 MOVEQ.L #0x00,D6> {}
<MI 28642 MOVE.L (A6+0x8),D5> {}
<MI 28646 BRA 0x28790> {}
<POP 2864a-2865e Naked> Σ0 →0x28790 ←0x28602
<POP 2864a-2864c StackAdj> Δ-4 {[-4-]}
<MI 2864c MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 28650 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x28652 0x27ed4> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 28656-28658 StackAdj> Δ+8 {[-4-]}
<MI 28658 MOVE.L (A7)+,D6> Δ+4 {}
<MI 2865a BRA 0x28790> {}
<POP 2865e-28666 Naked> Σ0 Δ-12 ↓ ←0x28602
<MI 2865e MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 28662 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 28664 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D6']}
<POP 28666-28676 Naked> Σ-12 Δ+12 →0x287ec ←0x2867e
<MI 28666 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<Call 0x2866a 0x27f50> {[-12-]|[4, '(A6+0xc)']}
<POP 2866e-28672 StackAdj> Δ+16 {}
<MI 28672 BRA 0x287ec> {}
<POP 2867a-2867e Naked> Σ0 →0x28790 ←0x28602
<MI 2867a BRA 0x28790> {}
<POP 2867e-28688 Naked> Σ0 Δ-12 →0x28666 ←0x28602
<MI 2867e MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 28682 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 28684 MOVE.L D5,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<MI 28686 BRA 0x28666> {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<POP 2868c-286a0 Naked> Σ0 →0x28790 ←0x28602 ←0x286a6
<POP 2868c-2868e StackAdj> Δ-4 {[-4-]}
<MI 2868e MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 28692 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x28694 0x27ed4> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 28698-2869a StackAdj> Δ+8 {[-4-]}
<MI 2869a MOVE.L (A7)+,D5> Δ+4 {}
<MI 2869c BRA 0x28790> {}
<POP 286a0-286a6 Naked> Σ0 →0x28790 ←0x28602
<MI 286a0 MOVEQ.L #0x01,D6> {}
<MI 286a2 BRA 0x28790> {}
<POP 286a6-286a8 Naked> Σ0 →0x2868c ←0x28602
<MI 286a6 BRA 0x2868c> {}
<POP 286a8-286be Naked> Σ0 →0x28790 ←0x28602
<POP 286a8-286aa StackAdj> Δ-8 {[-8-]}
<MI 286aa MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']}
<MI 286ae MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x286b0 0x262e0> {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 286b4-286b6 StackAdj> Δ+8 {[-8-]}
<MI 286b6 MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-4-]}
<MI 286b8 MOVE.L (A7)+,(A6-0x20)> Δ+4 {}
<MI 286ba BRA 0x28790> {}
<POP 286be-286cc Naked> Σ0 →0x28790 ←0x28602
<MI 286be MOVE.L (A6-0x14),(A6-0x1c)> {}
<MI 286c2 MOVE.L (A6-0x10),(A6-0x18)> {}
<MI 286c8 BRA 0x28790> {}
<POP 286cc-286de Naked> Σ0 Δ-20 ↓ ←0x28602
<MI 286cc MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 286ce MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 286d0 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 286d2 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 286d6 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x286da 0x28202> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 286de-286e4 Naked> Σ-20 Δ+20 →0x28790 ←0x286e4
<POP 286de-286e0 StackAdj> Δ+20 {}
<MI 286e0 BRA 0x28790> {}
<POP 286e4-286f8 Naked> Σ0 Δ-20 →0x286de ←0x28602
<MI 286e4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 286e6 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 286e8 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 286ea MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 286ee MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x286f2 0x2816e> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 286f6 BRA 0x286de> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 286f8-28702 Naked> Σ0 Δ-12 ↓ ←0x28602
<MI 286f8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 286fa MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 286fc MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<Call 0x286fe 0x282b8> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<POP 28702-28706 Naked> Σ-12 Δ+12 ↓ ←0x2873e
<POP 28702-28706 StackAdj> Δ+12 {}
<POP 28706-2870c Naked> Σ0 →0x28790 ←0x2870c ←0x28722 ←0x28764
<MI 28706 MOVEQ.L #0x01,D7> {}
<MI 28708 BRA 0x28790> {}
<POP 2870c-28722 Naked> Σ0 →0x28706 ←0x28602
<MI 2870c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 2870e MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 28710 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 28712 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 28716 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x2871a 0x2816e> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 2871e-28720 StackAdj> Δ+20 {}
<MI 28720 BRA 0x28706> {}
<POP 28722-28724 Naked> Σ0 →0x28706 ←0x28602
<MI 28722 BRA 0x28706> {}
<POP 28724-28738 Naked> Σ0 Δ-12 ↓ ←0x28602
<MI 28724 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 28726-28728 StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 28728 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 2872c MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x2872e 0x262e0> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 28732-28734 StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x28734 0x282b8> {[4, '(A6-0x8)']|[-8-]}
<POP 28738-2873e Naked> Σ-12 Δ+12 →0x28790 ←0x28754
<POP 28738-2873c StackAdj> Δ+12 {}
<MI 2873c BRA 0x28790> {}
<POP 2873e-28754 Naked> Σ0 Δ-12 →0x28702 ←0x28602
<MI 2873e MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 28740-28742 StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 28742 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 28746 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x28748 0x262e0> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 2874c-2874e StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x2874e 0x2833e> {[4, '(A6-0x8)']|[-8-]}
<MI 28752 BRA 0x28702> {[4, '(A6-0x8)']|[-8-]}
<POP 28754-28762 Naked> Σ0 Δ-12 →0x28738 ←0x28602
<MI 28754 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 28756 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']}
<MI 2875a MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x2875c 0x283ae> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<MI 28760 BRA 0x28738> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 28762-28764 Naked> Σ0 →0x28790 ←0x28602
<MI 28762 BRA 0x28790> {}
<POP 28764-28766 Naked> Σ0 →0x28706 ←0x28602
<MI 28764 BRA 0x28706> {}
<POP 28766-28790 Naked> Σ0 ↓ ←0x28602
<Blob 0x28766 [24] @> Δ-24 {[«24""»]}
<POP 28772-28774 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x28774 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x28788 0x25696> {[«24""»]|[$$Illegal argument marker.]}
<POP 2878c-28790 StackAdj> Δ+28 {}
<POP 28790-28794 Naked> Σ0 ↓ →0x287da ←0x28640 ←0x2864a ←0x2867a ←0x2868c ←0x286a0 ←0x286a8 ←0x286be ←0x286de ←0x28706 ←0x28738 ←0x28762
<MI 28790 TST.B D7> {}
<MI 28792 BNE 0x287da> {}
<POP 28794-287da Naked> Σ0 ↓
<Pointer.fp 0x28794 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x28798 <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x2879a 0x283f6> {[@@-12]|[@@-20]}
<POP 2879e-287a0 StackAdj> Δ+8 {}
<MI 287a0 MOVE.L (A6-0x34),D0> {}
<POP 0x287a4 LimitCheck 0x0 ≤ D0 ≤ 0x13> {}
<MI 287ae MOVE.L D0,D4> {}
<MI 287b0 MOVEQ.L #0x07,D3> {}
<Call 0x287b2 0x1028c> {}
?muls_d3_d4
<MI 287b8 LEA.L 0x255c8,A0> {}
<MI 287bc MOVE.L (A6-0xc),D0> {}
<POP 0x287c0 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 287ca LEA.L (A0+D4.L),A0> {}
<MI 287ce MOVE.B (A0+D0.L),D1> {}
<MI 287d2 EXTB.W D1> {}
<MI 287d4 EXTW.L D1> {}
<MI 287d6 MOVE.L D1,(A6-0x34)> {}
<POP 287da-287e0 Naked> Σ0 ↓ →0x28602 ←0x28790
<MI 287da TST.B D7> {}
<MI 287dc BEQ 0x28602> {}
<POP 287e0-287ec Naked> Σ0 ↓
<MI 287e0 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 287e4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<Call 0x287e6 0x28530> {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<POP 287ea-287ec StackAdj> Δ+8 {}
<POP 287ec-287f6 Naked> Σ0 ↓ ←0x28666
<Pointer.fp 0x287ec <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x287ee 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 287f4-287f6 StackAdj> Δ+4 {}
<POP 287f6-287fe Epilogue> Σ0
@ 287fe
<LVAR 0x014 4(rw)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 4(rw)>
<LVAR -0x00c 4(rw)>
<LVAR -0x018 4(w)>
<POP 287fe-288f6 Body> Δ-12
<POP 287fe-28814 Prologue> Σ0 ↓
<POP 28814-28826 RegCacheLoad> Σ0 ↓
<POP 28826-2884e Naked> Σ0 Δ-4 ↓
<MI 28826 CLR.L (A6+0x14)> {}
<POP 2882a-2882c StackAdj> Δ-4 {[-4-]}
<MI 2882c MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 2882e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<Call 0x28830 0x262a8> {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<POP 28834-28836 StackAdj> Δ+8 {[-4-]}
<MI 28836 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 28838 MOVEA.L (A6+0x8),A0> {}
<MI 2883c MOVE.W (A0),D0> {}
<MI 2883e EXTW.L D0> {}
<MI 28840 ADDQ.L #0x1,D0> {}
<MI 28842 MOVE.L D0,(A6-0x8)> {}
<MI 28844 NEG.L D0> {}
<MI 28846 ADD.L (A6-0xc),D0> {}
<MI 28848 ADDQ.L #0x1,D0> {}
<MI 2884a MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2884c MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 2884e-28854 Naked> Σ-4 ↓ →0x288ec ←0x288e4
<MI 2884e CMP.L (A7),D0> {[-4-]}
<MI 28850 BGT 0x288ec> {[-4-]}
<POP 28854-28860 Naked> Σ-4 Δ-8 ↓
<MI 28854 MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 28858 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 2885a MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 2885c MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 2885e MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 28860-28864 Naked> Σ-12 ↓ →0x288ac ←0x288a6
<MI 28860 CMP.L (A7),D5> {[-12-]}
<MI 28862 BGT 0x288ac> {[-12-]}
<POP 28864-2886c Naked> Σ-12 ↓ →0x28870
<MI 28864 CMPI.L #0x00000001,D5> {[-12-]}
<MI 2886a BNE 0x28870> {[-12-]}
<POP 2886c-28870 Naked> Σ-12 →0x28888
<MI 2886c MOVEQ.L #0x2f,D7> {[-12-]}
<MI 2886e BRA 0x28888> {[-12-]}
<POP 28870-28888 Naked> Σ-12 ↓ ←0x28864
<MI 28870 MOVEA.L (A6+0x8),A0> {[-12-]}
<MI 28874 MOVE.L D5,D0> {[-12-]}
<MI 28876 SUBQ.L #0x1,D0> {[-12-]}
<MI 28878 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x2887a LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 28884 MOVE.B (A0+D0.L+#0x2),D7> {[-12-]}
<POP 28888-288a2 Naked> Σ-12 ↓ →0x288a6 ←0x2886c
<POP 28888-2888a StackAdj> Δ-2 {[-14-]}
<MI 2888a MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']}
<MI 2888c MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 2888e MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 28892 ADD.L D5,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 28894 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 28896 MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<Call 0x28898 0x27e94> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<POP 2889c-2889e StackAdj> Δ+12 {[-14-]}
<MI 2889e CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 288a0 BEQ 0x288a6> {[-12-]}
<POP 288a2-288a6 Naked> Σ-12 Δ+4 →0x288ae
<POP 288a2-288a4 StackAdj> Δ+4 {[-8-]}
<MI 288a4 BRA 0x288ae> {[-8-]}
<POP 288a6-288ac Naked> Σ-12 ↓ →0x28860 ←0x28888
<MI 288a6 MOVE.L D5,D6> {[-12-]}
<MI 288a8 ADDQ.L #0x1,D5> {[-12-]}
<MI 288aa BVC 0x28860> {[-12-]}
<POP 288ac-288ae Naked> Σ-12 Δ+4 ↓ ←0x28860
<POP 288ac-288ae StackAdj> Δ+4 {[-8-]}
<POP 288ae-288b2 Naked> Σ-8 ↓ →0x288e4 ←0x288a2
<MI 288ae CMP.L (A6-0x8),D6> {[-8-]}
<MI 288b0 BNE 0x288e4> {[-8-]}
<POP 288b2-288bc Naked> Σ-8 ↓ →0x288e2
<MI 288b2 MOVE.L (A7),D0> {[-8-]}
<MI 288b4 MOVE.L D0,D1> {[-8-]}
<MI 288b6 ADD.L (A6-0x8),D1> {[-8-]}
<MI 288b8 CMP.L (A6-0xc),D1> {[-8-]}
<MI 288ba BGE 0x288e2> {[-8-]}
<POP 288bc-288d2 Naked> Σ-8 ↓ →0x288d8
<POP 288bc-288be StackAdj> Δ-2 {[-10-]}
<MI 288be MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']}
<MI 288c0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 288c2 MOVE.L D1,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<Call 0x288c4 0x27e94> {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<POP 288c8-288ca StackAdj> Δ+12 {[-10-]}
<MI 288ca MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 288cc CMPI.B #0x2f,D7> {[-8-]}
<MI 288d0 BEQ 0x288d8> {[-8-]}
<POP 288d2-288d8 Naked> Σ-8 ↓ →0x288e0
<MI 288d2 CMPI.B #0x3d,D7> {[-8-]}
<MI 288d6 BNE 0x288e0> {[-8-]}
<POP 288d8-288e0 Naked> Σ-8 Δ+8 →0x288ee ←0x288bc ←0x288e2
<MI 288d8 MOVE.L D0,(A6+0x14)> {[-8-]}
<POP 288dc-288de StackAdj> Δ+8 {}
<MI 288de BRA 0x288ee> {}
<POP 288e0-288e2 Naked> Σ-8 →0x288e4 ←0x288d2
<MI 288e0 BRA 0x288e4> {[-8-]}
<POP 288e2-288e4 Naked> Σ-8 →0x288d8 ←0x288b2
<MI 288e2 BRA 0x288d8> {[-8-]}
<POP 288e4-288ec Naked> Σ-8 Δ+4 ↓ →0x2884e ←0x288ae ←0x288e0
<MI 288e4 MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 288e6 ADDQ.L #0x1,D0> {[-4-]}
<MI 288e8 BVC 0x2884e> {[-4-]}
<POP 288ec-288ee Naked> Σ-4 Δ+4 ↓ ←0x2884e
<POP 288ec-288ee StackAdj> Δ+4 {}
<POP 288ee-288f6 Epilogue> Σ0 ←0x288d8
@ 288f6
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(rw)>
<LVAR -0x01c 4(rw)>
<POP 288f6-289de Body> Δ-12
<POP 288f6-2890c Prologue> Σ0 ↓
<POP 2890c-2891c RegCacheLoad> Σ0 ↓
<POP 2891c-28942 Naked> Σ0 ↓ →0x289d6
<MI 2891c MOVEA.L (A6+0x8),A0> {}
<MI 28920 CLR.B (A0)> {}
<MI 28922 MOVEA.L (A6+0xc),A1> {}
<MI 28926 MOVE.L #0x01,(A1)> {}
<POP 28928-2892a StackAdj> Δ-8 {[-8-]}
<MI 2892a MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 2892e MOVE.L (A6+0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<Call 0x28932 0x262e0> {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<POP 28936-28938 StackAdj> Δ+8 {[-8-]}
<MI 28938 MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-4-]}
<MI 2893a MOVE.L (A7)+,(A6-0x18)> Δ+4 {}
<MI 2893c TST.L (A6-0x1c)> {}
<MI 2893e BEQ 0x289d6> {}
<POP 28942-28958 Naked> Σ0 ↓ →0x289d6
<POP 28942-28944 StackAdj> Δ-4 {[-4-]}
<MI 28944 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']}
<MI 28946 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 28948 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<Call 0x2894c 0x287fe> {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<POP 28950-28952 StackAdj> Δ+12 {[-4-]}
<MI 28952 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 28956 BEQ 0x289d6> {}
<POP 28958-28978 Naked> Σ0 Δ-4 ↓
<MI 28958 MOVE.B #0x01,(A0)> {}
<MI 2895a PEA.L (A1)> Δ-4 {[4, '^(A1)']}
<Call 0x2895c 0x102b8> {[4, '^(A1)']}
NewString(VAR a : String)
<MI 28962 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']}
<MI 28964 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x28966 0x262a8> {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 2896a-2896c StackAdj> Δ+8 {[4, '^(A1)']}
<MI 2896c MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 2896e MOVE.L (A6-0x14),D0> {}
<MI 28972 ADDQ.L #0x1,D0> {}
<MI 28974 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 28976 MOVE.L D0,D5> {[4, '(A6-0x8)']}
<POP 28978-2897c Naked> Σ-4 ↓ →0x289d4 ←0x289d0
<MI 28978 CMP.L (A7),D5> {[-4-]}
<MI 2897a BGT 0x289d4> {[-4-]}
<POP 2897c-28992 Naked> Σ-4 ↓ →0x289d0
<POP 2897c-2897e StackAdj> Δ-2 {[-6-]}
<MI 2897e MOVE.L (A6-0x18),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']}
<MI 28980 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 28982 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<Call 0x28984 0x27e94> {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<POP 28988-2898a StackAdj> Δ+12 {[-6-]}
<MI 2898a MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 2898c CMPI.B #0x3d,D0> {[-4-]}
<MI 28990 BNE 0x289d0> {[-4-]}
<POP 28992-2899a Naked> Σ-4 Δ-4 ↓
<MI 28992 MOVE.L D5,D0> {[-4-]}
<MI 28994 ADDQ.L #0x1,D0> {[-4-]}
<MI 28996 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 28998 MOVE.L D0,D7> {[-4-]|[4, '(A6-0x8)']}
<POP 2899a-2899e Naked> Σ-8 ↓ →0x289cc ←0x289b8
<MI 2899a CMP.L (A7),D7> {[-8-]}
<MI 2899c BGT 0x289cc> {[-8-]}
<POP 2899e-289b4 Naked> Σ-8 ↓ →0x289b8
<POP 2899e-289a0 StackAdj> Δ-2 {[-10-]}
<MI 289a0 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']}
<MI 289a2 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 289a4 MOVE.L D7,-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<Call 0x289a6 0x27e94> {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<POP 289aa-289ac StackAdj> Δ+12 {[-10-]}
<MI 289ac MOVE.B (A7)+,D6> Δ+2 {[-8-]}
<MI 289ae CMPI.B #0x2f,D6> {[-8-]}
<MI 289b2 BNE 0x289b8> {[-8-]}
<POP 289b4-289b8 Naked> Σ-8 Δ+8 →0x289d6
<POP 289b4-289b6 StackAdj> Δ+8 {}
<MI 289b6 BRA 0x289d6> {}
<POP 289b8-289cc Naked> Σ-8 ↓ →0x2899a ←0x2899e
<MI 289b8 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 289bc MOVE.L (A0),-(A7)> Δ-4 {[-8-]|[4, '(A0)']}
<MI 289be MOVE.B D6,-(A7)> Δ-2 {[-8-]|[4, '(A0)']|[2, 'D6']}
<Call 0x289c0 0x102c0> {[-8-]|[4, '(A0)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 289c6-289c8 StackAdj> Δ+6 {[-8-]}
<MI 289c8 ADDQ.L #0x1,D7> {[-8-]}
<MI 289ca BVC 0x2899a> {[-8-]}
<POP 289cc-289d0 Naked> Σ-8 Δ+8 →0x289d6 ←0x2899a
<POP 289cc-289ce StackAdj> Δ+8 {}
<MI 289ce BRA 0x289d6> {}
<POP 289d0-289d4 Naked> Σ-4 ↓ →0x28978 ←0x2897c
<MI 289d0 ADDQ.L #0x1,D5> {[-4-]}
<MI 289d2 BVC 0x28978> {[-4-]}
<POP 289d4-289d6 Naked> Σ-4 Δ+4 ↓ ←0x28978
<POP 289d4-289d6 StackAdj> Δ+4 {}
<POP 289d6-289de Epilogue> Σ0 ←0x2891c ←0x28942 ←0x289b4 ←0x289cc
@ 289de
<LVAR 0x00c @ 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 1(r)>
<POP 289de-28a7c Body>
<POP 289de-289f4 Prologue> Σ0 ↓
<POP 289f4-28a02 RegCacheLoad> Σ0 ↓
<POP 28a02-28a1a Naked> Σ0 ↓ →0x28a6a
<MI 28a02 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 28a04 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Pointer.fp 0x28a06 <LVAR -0x010 @ 1(r)>> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<Call 0x28a0a 0x24d1e> {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<POP 28a10-28a14 StackAdj> Δ+12 {}
<MI 28a14 TST.B (A6-0x10)> {}
<MI 28a18 BNE 0x28a6a> {}
<POP 28a1a-28a34 Naked> Σ0 ↓
<MI 28a1a MOVE.L 0x2bbc0,D7> {}
<POP 28a1c-28a1e StackAdj> Δ-4 {[-4-]}
<MI 28a1e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x28a20 0x25aa2> {[-4-]|[4, '(A6+0x8)']}
<POP 28a24-28a26 StackAdj> Δ+4 {[-4-]}
<MI 28a26 MOVE.L (A7)+,D6> Δ+4 {}
<MI 28a28 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 28a2a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x28a2c 0x27d58> {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 28a30-28a32 StackAdj> Δ+8 {}
<MI 28a32 MOVE.L 0x2bbc0,D5> {}
<POP 28a34-28a52 Naked> Σ0 ↓ →0x28a5e ←0x28a5e
<MI 28a34 MOVE.L D7,D0> {}
<MI 28a36 SUBQ.L #0x1,D0> {}
<POP 0x28a38 LimitCheck 0x0 ≤ D0 ≤ 0x1fff> {}
<MI 28a42 LEA.L 0x29bb8,A0> {}
<MI 28a48 MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 28a4c CMPI.B #0x25,D0> {}
<MI 28a50 BNE 0x28a5e> {}
<POP 28a52-28a5e Naked> Σ0 ↓
<MI 28a52 MOVE.L D7,0x2bbc0> {}
<MI 28a54 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 28a56 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x28a58 0x285b6> {[4, '(A6+0x8)']|[4, 'D6']}
<POP 28a5c-28a5e StackAdj> Δ+8 {}
<POP 28a5e-28a68 Naked> Σ0 ↓ →0x28a34 ←0x28a34
<MI 28a5e ADDQ.L #0x1,D7> {}
<MI 28a60 CMP.L 0x2bbc4,D7> {}
<MI 28a66 BLE 0x28a34> {}
<POP 28a68-28a6a Naked> Σ0 ↓
<MI 28a68 MOVE.L D5,0x2bbc0> {}
<POP 28a6a-28a74 Naked> Σ0 ↓ ←0x28a02
<Pointer.fp 0x28a6a <LVAR 0x00c @ 4(r)>> Δ-4 {[@@12]}
<Call 0x28a6c 0x102bc> {[@@12]}
FreeString(VAR a : String)
<POP 28a72-28a74 StackAdj> Δ+4 {}
<POP 28a74-28a7c Epilogue> Σ0
@ 28a7c
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00b 1(w)>
<LVAR -0x00c @ 1(r)>
<POP 28a7c-28d8e Body> Δ+148
<POP 28a7c-28a92 Prologue> Σ0 ↓
<POP 28a92-28aa0 RegCacheLoad> Σ0 ↓
<POP 28aa0-28ac6 Naked> Σ0 ↓ →0x28d70 ←0x28d70
<MI 28aa0 MOVE.L 0x2bbc0,D7> {}
<Pointer.fp 0x28aa2 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Pointer.fp 0x28aa4 <LVAR -0x00c @ 1(r)>> Δ-4 {[@@-6]|[@@-12]}
<Call 0x28aa8 0x259f6> {[@@-6]|[@@-12]}
<POP 28aac-28aae StackAdj> Δ+8 {}
<MI 28aae MOVE.L 0x2bbc0,D6> {}
<POP 28ab0-28ab2 StackAdj> Δ-4 {[-4-]}
<MI 28ab2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Call 0x28ab4 0x25aa2> {[-4-]|[4, '(A6-0x6)']}
<POP 28ab8-28aba StackAdj> Δ+4 {[-4-]}
<MI 28aba MOVE.L (A7)+,D0> Δ+4 {}
<MI 28abc CMPI.L #0xffffffff,D0> {}
<MI 28ac2 BEQ 0x28d70> {}
<POP 28ac6-28af0 Naked> Σ0 ↓ →0x28afe
<POP 28ac6-28ac8 StackAdj> Δ-4 {[-4-]}
<MI 28ac8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Const 0x28aca 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x6)']|[##0]}
<Call 0x28ace 0x263be> {[-4-]|[4, '(A6-0x6)']|[##0]}
<POP 28ad2-28ad4 StackAdj> Δ+8 {[-4-]}
<MI 28ad4 MOVE.L (A7),(A6-0xa)> {[-4-]}
<POP 28ad6-28ad8 StackAdj> Δ+2 {[-2-]}
<MI 28ad8 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']}
<Call 0x28ada 0x27ca0> {[-2-]|[4, '(A6-0xa)']}
<POP 28ade-28ae0 StackAdj> Δ+4 {[-2-]}
<MI 28ae0 MOVE.B (A7)+,D0> Δ+2 {}
<MI 28ae2 EXTB.W D0> {}
<POP 0x28ae4 LimitCheck 0x0 ≤ D0 ≤ 0x2b> {}
<MI 28ae8 MOVE.B D0,(A6-0xb)> {}
<MI 28aec TST.B D0> {}
<MI 28aee BNE 0x28afe> {}
<POP 28af0-28afe Naked> Σ0 →0x28d68
<MI 28af0 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 28af2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<Call 0x28af4 0x289de> {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<POP 28af8-28afa StackAdj> Δ+8 {}
<MI 28afa BRA 0x28d68> {}
<POP 28afe-28b34 Naked> Σ0 ↓ →0x28b60 ←0x28ac6
<Pointer.fp 0x28afe <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x28b00 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 28b06-28b08 StackAdj> Δ+4 {}
<MI 28b08 MOVE.B D0,D1> {}
<MI 28b0a EXTB.W D1> {}
<POP 0x28b0c LimitCheck 0x0 ≤ D1 ≤ 0x2b> {}
<MI 28b10 LEA.L 0x25598,A0> {}
<MI 28b14 MOVE.W D1,D0> {}
<MI 28b16 EXTW.L D0> {}
<MI 28b18 MOVE.L D0,D2> {}
<MI 28b1a ROR.L #0x1,D2> {}
<MI 28b1c ADDA.W D2,A0> {}
<MI 28b1e SWAP.W D2> {}
<MI 28b20 ROL.W #0x3,D2> {}
<MI 28b22 CLR.L D3> {}
<MI 28b24 MOVE.B (A0),D3> {}
<MI 28b26 LSL.B D2,D3> {}
<MI 28b28 LSR.B #0x4,D3> {}
<MI 28b2a MOVE.L D3,D5> {}
<MI 28b2c CMPI.L #0x0000000f,D5> {}
<MI 28b32 BEQ 0x28b60> {}
<POP 28b34-28b60 Naked> Σ0 ↓
<MI 28b34 MOVE.L D0,D4> {}
<MI 28b36 MOVEQ.L #0x0a,D3> {}
<Call 0x28b38 0x1028c> {}
?muls_d3_d4
<MI 28b3e LEA.L 0x253ca,A0> {}
<Blob 0x28b42 [10] (A0+D4.W)> Δ-10 {[«10»]}
<MI 28b54 MOVE.L (A6-0x6),-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']}
<MI 28b56 MOVE.L D5,-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<Call 0x28b58 0x25ad8> {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<POP 28b5c-28b60 StackAdj> Δ+18 {}
<POP 28b60-28b74 Naked> Σ0 →0x28bca →0x28bd6 →0x28be8 →0x28bf6 →0x28d5a →0x28bfe →0x28c02 →0x28c0a →0x28c12 →0x28c1a →0x28c22 →0x28c2a →0x28c32 →0x28c3a →0x28c42 →0x28c4a →0x28c54 →0x28c5e →0x28c68 →0x28c72 →0x28c7c →0x28c86 →0x28c90 →0x28c9a →0x28ca4 →0x28cae →0x28cb8 →0x28cc2 →0x28ccc →0x28cd6 →0x28ce0 →0x28cea →0x28cf4 →0x28cfe →0x28d08 →0x28d12 →0x28d1c →0x28d26 →0x28d2c →0x28d36 →0x28d40 →0x28d4a →0x28d50 ←0x28afe
<MI 28b60 SUBQ.W #0x1,D1> {}
<POP 0x28b62 LimitCheck 0x0 ≤ D1 ≤ 0x2a> {}
<MI 28b6a ADD.W D1,D1> {}
<MI 28b6c SWITCH D1.W> {}
<POP 28bca-28bd0 Naked> Σ0 Δ-4 ↓ ←0x28b60
<MI 28bca MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28bcc 0x26546> {[4, '(A6-0x6)']}
<POP 28bd0-28bd6 Naked> Σ-4 Δ+4 →0x28d68 ←0x28be8 ←0x28bf6 ←0x28c02 ←0x28c0a ←0x28c12 ←0x28c1a ←0x28c22 ←0x28c2a ←0x28c32 ←0x28c3a ←0x28c42 ←0x28c4a ←0x28c54 ←0x28c5e ←0x28c68 ←0x28c72 ←0x28c7c ←0x28c86 ←0x28c90 ←0x28c9a ←0x28ca4 ←0x28cae ←0x28cb8 ←0x28cc2 ←0x28ccc ←0x28cd6 ←0x28ce0 ←0x28cea ←0x28cf4 ←0x28cfe ←0x28d08 ←0x28d12 ←0x28d1c ←0x28d2c ←0x28d36 ←0x28d40 ←0x28d50
<POP 28bd0-28bd2 StackAdj> Δ+4 {}
<MI 28bd2 BRA 0x28d68> {}
<POP 28bd6-28be8 Naked> Σ0 →0x28d68 ←0x28b60
<MI 28bd6 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x28bd8 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x28bdc 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 28be2-28be4 StackAdj> Δ+6 {}
<MI 28be4 BRA 0x28d68> {}
<POP 28be8-28bf6 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<POP 28be8-28bea StackAdj> Δ-4 {[-4-]}
<Call 0x28bea 0x102ac> {[-4-]}
FSCALL_102ac
<Call 0x28bf0 0x2651c> {[-4-]}
<MI 28bf4 BRA 0x28bd0> {[-4-]}
<POP 28bf6-28bfe Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28bf6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28bf8 0x26720> {[4, '(A6-0x6)']}
<MI 28bfc BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28bfe-28c02 Naked> Σ0 →0x28d68 ←0x28b60
<MI 28bfe BRA 0x28d68> {}
<POP 28c02-28c0a Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c02 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c04 0x26a46> {[4, '(A6-0x6)']}
<MI 28c08 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c0a-28c12 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c0a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c0c 0x26bb2> {[4, '(A6-0x6)']}
<MI 28c10 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c12-28c1a Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c12 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c14 0x26ca0> {[4, '(A6-0x6)']}
<MI 28c18 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c1a-28c22 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c1a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c1c 0x27094> {[4, '(A6-0x6)']}
<MI 28c20 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c22-28c2a Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c22 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c24 0x2710c> {[4, '(A6-0x6)']}
<MI 28c28 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c2a-28c32 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c2a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c2c 0x27184> {[4, '(A6-0x6)']}
<MI 28c30 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c32-28c3a Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c32 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c34 0x271b0> {[4, '(A6-0x6)']}
<MI 28c38 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c3a-28c42 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c3a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c3c 0x272b0> {[4, '(A6-0x6)']}
<MI 28c40 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c42-28c4a Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c42 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c44 0x27396> {[4, '(A6-0x6)']}
<MI 28c48 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c4a-28c54 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c4a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c4c 0x273c2> {[4, '(A6-0x6)']}
<MI 28c50 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c54-28c5e Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c54 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c56 0x2740e> {[4, '(A6-0x6)']}
<MI 28c5a BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c5e-28c68 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c5e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c60 0x2745a> {[4, '(A6-0x6)']}
<MI 28c64 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c68-28c72 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c68 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c6a 0x274a6> {[4, '(A6-0x6)']}
<MI 28c6e BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c72-28c7c Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c72 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c74 0x274f2> {[4, '(A6-0x6)']}
<MI 28c78 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c7c-28c86 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c7c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c7e 0x2753e> {[4, '(A6-0x6)']}
<MI 28c82 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c86-28c90 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c86 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c88 0x2758a> {[4, '(A6-0x6)']}
<MI 28c8c BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c90-28c9a Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c90 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c92 0x275d4> {[4, '(A6-0x6)']}
<MI 28c96 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28c9a-28ca4 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28c9a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28c9c 0x2761e> {[4, '(A6-0x6)']}
<MI 28ca0 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28ca4-28cae Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28ca4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28ca6 0x27668> {[4, '(A6-0x6)']}
<MI 28caa BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28cae-28cb8 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28cae MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28cb0 0x276b2> {[4, '(A6-0x6)']}
<MI 28cb4 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28cb8-28cc2 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28cb8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28cba 0x276fc> {[4, '(A6-0x6)']}
<MI 28cbe BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28cc2-28ccc Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28cc2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28cc4 0x27746> {[4, '(A6-0x6)']}
<MI 28cc8 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28ccc-28cd6 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28ccc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28cce 0x27790> {[4, '(A6-0x6)']}
<MI 28cd2 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28cd6-28ce0 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28cd6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28cd8 0x277da> {[4, '(A6-0x6)']}
<MI 28cdc BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28ce0-28cea Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28ce0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28ce2 0x2781e> {[4, '(A6-0x6)']}
<MI 28ce6 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28cea-28cf4 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28cea MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28cec 0x27864> {[4, '(A6-0x6)']}
<MI 28cf0 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28cf4-28cfe Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28cf4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28cf6 0x2789a> {[4, '(A6-0x6)']}
<MI 28cfa BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28cfe-28d08 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28cfe MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28d00 0x2792a> {[4, '(A6-0x6)']}
<MI 28d04 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28d08-28d12 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28d08 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28d0a 0x2799c> {[4, '(A6-0x6)']}
<MI 28d0e BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28d12-28d1c Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28d12 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28d14 0x26d02> {[4, '(A6-0x6)']}
<MI 28d18 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28d1c-28d26 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28d1c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28d1e 0x26d6c> {[4, '(A6-0x6)']}
<MI 28d22 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28d26-28d2c Naked> Σ0 →0x28d68 ←0x28b60
<Call 0x28d26 0x26d3e> {}
<MI 28d2a BRA 0x28d68> {}
<POP 28d2c-28d36 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28d2c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28d2e 0x27a0e> {[4, '(A6-0x6)']}
<MI 28d32 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28d36-28d40 Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28d36 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28d38 0x27a90> {[4, '(A6-0x6)']}
<MI 28d3c BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28d40-28d4a Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28d40 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28d42 0x27b10> {[4, '(A6-0x6)']}
<MI 28d46 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28d4a-28d50 Naked> Σ0 →0x28d68 ←0x28b60
<Call 0x28d4a 0x27bd4> {}
<MI 28d4e BRA 0x28d68> {}
<POP 28d50-28d5a Naked> Σ0 Δ-4 →0x28bd0 ←0x28b60
<MI 28d50 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28d52 0x27bf4> {[4, '(A6-0x6)']}
<MI 28d56 BRA 0x28bd0> {[4, '(A6-0x6)']}
<POP 28d5a-28d68 Naked> Σ0 ←0x28b60
<POP 28d5a-28d68 Bailout> {}
<MI 28d5a MOVEA.L (A5+0x8),A7>
<MI 28d5e MOVEA.W #0x0,A6>
<MI 28d62 JMP 0x28f72>
<POP 28d68-28d70 Naked> Σ0 ↓ ←0x28af0 ←0x28bd0 ←0x28bd6 ←0x28bfe ←0x28d26 ←0x28d4a
<MI 28d68 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x28d6a 0x25654> {[4, '(A6-0x6)']}
<POP 28d6e-28d70 StackAdj> Δ+4 {}
<POP 28d70-28d86 Naked> Σ0 ↓ →0x28aa0 ←0x28aa0
<MI 28d70 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 28d72 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']|[4, 'D6']}
<MI 28d74 SUB.L D7,(A7)> {[4, 'D6']|[-4-]}
<Call 0x28d76 0x25bea> {[4, 'D6']|[-4-]}
<POP 28d7a-28d7c StackAdj> Δ+8 {}
<MI 28d7c MOVE.L D7,0x2bbc0> {}
<MI 28d7e TST.B (A6-0xc)> {}
<MI 28d82 BEQ 0x28aa0> {}
<POP 28d86-28d8e Epilogue> Σ0
@ 28d8e
START
<POP 28d8e--0001 Body>
<POP 28d8e-28d98 Prologue> Σ0
<POP 28d98-28dc8 Naked> Σ0 ↓ →0x28e30
<MI 28d98 MOVE.L #0x1,0x2bbea> {}
<POP 28da2-28da4 StackAdj> Δ-4 {[-4-]}
<Call 0x28da4 0x103c4> {[-4-]}
GetArgv() : String
<MI 28daa MOVE.L (A7)+,0x2bbee> Δ+4 {}
<Const 0x28db0 0x2bbc8.4> Δ-4 {[##179144]}
<Call 0x28db6 0x24f94> {[##179144]}
<POP 28dbc-28dbe StackAdj> Δ+4 {}
<MI 28dbe MOVEA.L 0x2bbee,A0> {}
<MI 28dc4 TST.W (A0)> {}
<MI 28dc6 BLE 0x28e30> {}
<POP 28dc8-28e30 Naked> Σ0 →0x28e6a
<Blob 0x28dc8 [8] @> Δ-8 {[«8""»]}
<Blob 0x28dd8 [8] @> Δ-8 {[«8""»]|[«8""»]}
<POP 28de8-28dea StackAdj> Δ-8 {[«8""»]|[«8""»]|[-8-]}
<Lit 0x28dea 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<POP 28dfc-28dfe StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[-4-]}
<POP 28dfe-28dff StackAdj> Δ+4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<Blob 0x28dff [4] 0x2bbee> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]}
<POP 28e04-28e06 StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[-4-]}
<Lit 0x28e06 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
<Call 0x28e1a 0x102d4> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
StringCat3(a, b, c : String) : String
<POP 28e20-28e24 StackAdj> Δ+12 {[«8""»]|[«8""»]|[-4-]}
<MI 28e24 MOVE.L (A7)+,0x2bbee> Δ+4 {[«8""»]|[«8""»]}
<POP 28e2a-28e2e StackAdj> Δ+16 {}
<MI 28e2e BRA 0x28e6a> {}
<POP 28e30-28e6a Naked> Σ0 ↓ ←0x28d98
<Const 0x28e30 0x2bbee.4> Δ-4 {[##179182]}
<Call 0x28e36 0x102bc> {[##179182]}
FreeString(VAR a : String)
<POP 28e3c-28e3d StackAdj> Δ+4 ↓ {}
<Blob 0x28e3d [8] @> Δ-8 {[«8""»]}
<POP 28e4c-28e4e StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x28e4e 7> {[«8""»]|[$$[INIT];]}
<MI 28e62 MOVE.L (A7)+,0x2bbee> Δ+4 {[«8""»]}
<POP 28e68-28e6a StackAdj> Δ+8 {}
<POP 28e6a-28e72 Naked> Σ0 ↓ ←0x28dc8
<MI 28e6a MOVE.B #0x01,0x2bbf8> {}
<POP 28e72-28e7a Naked> Σ0 ↓ →0x28e84 ←0x28f80
<MI 28e72 TST.B 0x2bbf8> {}
<MI 28e78 BEQ 0x28e84> {}
<POP 28e7a-28e84 Naked> Σ0 →0x28f32
<MI 28e7a CLR.B 0x2bbf8> {}
<MI 28e80 BRA 0x28f32> {}
<POP 28e84-28f32 Naked> Σ0 ↓ ←0x28e72
<Blob 0x28e84 [10] 0x2bbd2> Δ-10 {[«10»]}
<Blob 0x28e92 [2] @> Δ-2 {[«10»]|[«2""»]}
<POP 28e96-28e9a StackAdj> Δ-12 {[«10»]|[«2""»]|[-12-]}
<Lit 0x28e9a> {[«10»]|[«2""»]|[-8-]|[$$…]}
<Pointer.sp 0x28e9a 14> Δ-4
<Const 0x28e9e 0x1.2> Δ-2
<Const 0x28ea2 0xa.2> Δ-2
<Call 0x28ea6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 28eac-28eae StackAdj> Δ+8
<POP 28eac-28eae StackAdj> Δ-4 {[«10»]|[«2""»]|[-8-]|[$$…]|[-4-]}
<Lit 0x28eae 2> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
<Call 0x28ec2 0x102d0> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
StringCat2(a, b : String) : String
<POP 28ec8-28eca StackAdj> Δ+8 {[«10»]|[«2""»]|[-8-]}
<Call 0x28eca 0x103e4> {[«10»]|[«2""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 28ed0-28ed2 StackAdj> Δ+4 {[«10»]|[«2""»]|[-4-]}
<MI 28ed2 MOVE.L (A7)+,0x2bbf4> Δ+4 {[«10»]|[«2""»]}
<POP 28ed8-28eda StackAdj> Δ+8 {[-4-]}
<POP 28eda-28edb StackAdj> Δ+4 {}
<Blob 0x28edb [4] 0x2bbf4> Δ-4 {[«4»]}
<Call 0x28ee0 0x258ee> {[«4»]}
<POP 28ee4-28ee6 StackAdj> Δ+2 {[-2-]}
<POP 28ee6-28ee7 StackAdj> Δ+2 {}
<Blob 0x28ee7 [2] @> Δ-2 {[«2""»]}
<Blob 0x28eea [2] @> Δ-2 {[«2""»]|[«2""»]}
<POP 28eee-28ef0 StackAdj> Δ-8 {[«2""»]|[«2""»]|[-8-]}
<Lit 0x28ef0 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<POP 28f02-28f04 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[-4-]}
<POP 28f04-28f05 StackAdj> Δ+4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<Blob 0x28f05 [4] 0x2bbf4> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]}
<POP 28f0a-28f0c StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[-4-]}
<Lit 0x28f0c 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
<Call 0x28f20 0x102d4> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
StringCat3(a, b, c : String) : String
<POP 28f26-28f2a StackAdj> Δ+12 {[«2""»]|[«2""»]|[-4-]}
<MI 28f2a MOVE.L (A7)+,0x2bbee> Δ+4 {[«2""»]|[«2""»]}
<POP 28f30-28f32 StackAdj> Δ+4 {}
<POP 28f32-28f5e Naked> Σ0 ↓ ←0x28e7a
<MI 28f32 CLR.B 0x2bbf2> {}
<MI 28f38 MOVE.L #0x1,0x2bbc0> {}
<MI 28f42 CLR.L 0x2bbc4> {}
<POP 28f48-28f4a StackAdj> Δ-4 {[-4-]}
<Blob 0x28f4a [4] 0x2bbee> Δ-4 {[-4-]|[«4»]}
<Call 0x28f50 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 28f56-28f58 StackAdj> Δ+4 {[-4-]}
<Call 0x28f58 0x26460> {[-4-]}
<POP 28f5c-28f5e StackAdj> Δ+4 {}
<POP 28f5e-28f6c Naked> Σ0 ↓ →0x28f72 ←0x28f6c
<MI 28f5e MOVE.L 0x2bbc0,D0> {}
<MI 28f64 CMP.L 0x2bbc4,D0> {}
<MI 28f6a BGT 0x28f72> {}
<POP 28f6c-28f72 Naked> Σ0 →0x28f5e
<Call 0x28f6c 0x28a7c> {}
<MI 28f70 BRA 0x28f5e> {}
<POP 28f72-28f80 Naked> Σ0 ↓ ←0x28f5e
<Const 0x28f72 0x2bbee.4> Δ-4 {[##179182]}
<Call 0x28f78 0x102bc> {[##179182]}
FreeString(VAR a : String)
<POP 28f7e-28f80 StackAdj> Δ+4 {}
<POP 28f80-28f84 Naked> Σ0 →0x28e72
<MI 28f80 BRA 0x28e72> {}
@ 28f98
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 28f98-29000 Body>
<POP 28f98-28fae Prologue> Σ0 ↓
<POP 28fae-28ff8 Naked> Σ0 ↓
<Blob 0x28fae [14] @> Δ-14 {[«14""»]}
<Const 0x28fba 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 28fbe-28fc0 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x28fc0 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 28fd2-28fd4 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 28fd4 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 28fd8 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 28fda EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 28fdc MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x28fde 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 28fe4-28fe6 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x28fe6 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 28fec-28fee StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x28fee 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 28ff4-28ff8 StackAdj> Δ+20 {}
<POP 28ff8-29000 Epilogue> Σ0
@ 29054
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 29054-29190 Body>
<POP 29054-2906a Prologue> Σ0 ↓
<POP 2906a-29080 RegCacheLoad> Σ0 ↓
<POP 29080-290e0 Naked> Σ0 ↓ →0x29128
<Call 0x29080 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x29086 [18] @> Δ-18 {[«18""»]}
<POP 29092-29094 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x29094 18> {[«18""»]|[$$Experiment error :]}
<Call 0x290a0 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 290a2-290a3 StackAdj> Δ+22 ↓ {}
<Blob 0x290a3 [14] @> Δ-14 {[«14""»]}
<POP 290b2-290b4 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x290b4 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 290be-290c0 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 290c0 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x290c4 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 290ca-290cc StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x290cc 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 290d2-290d4 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x290d4 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 290d6-290d8 StackAdj> Δ+18 {}
<MI 290d8 MOVEA.L (A6+0xa),A0> {}
<MI 290dc CMPA.W #0x01,A0> {}
<MI 290de BEQ 0x29128> {}
<POP 290e0-29128 Naked> Σ0 ↓
<Blob 0x290e0 [14] @> Δ-14 {[«14""»]}
<Blob 0x290f0 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 29100-29102 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x29102 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 2910c-2910e StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x2910e> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x2910e 12> Δ-4
<Const 0x29112 0x1.2> Δ-2
<Const 0x29114 0x1e.2> Δ-2
<Call 0x29116 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 29118-2911a StackAdj> Δ+8
<Call 0x2911a 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 29120-29122 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x29122 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 29124-29128 StackAdj> Δ+48 {}
<POP 29128-29188 Naked> Σ0 ↓ ←0x29080
<Blob 0x29128 [14] @> Δ-14 {[«14""»]}
<POP 29138-2913a StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2913a 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 29144-29146 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 29146 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x2914a 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 29150-29152 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x29152 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 29158-2915a StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2915a 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2915c-2915d StackAdj> Δ+18 ↓ {}
<Blob 0x2915d [24] @> Δ-24 {[«24""»]}
<Const 0x2916c 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 29170-29172 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x29172 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x29180 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 29186-29188 StackAdj> Δ+30 {}
<POP 29188-29190 Epilogue> Σ0
00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ; import all
00020000 ; import kind.program
00020000 ; no ident.307e2ba9b7622f86
00020000 ; --------------------------------------------------------------------------------------
00020000 stack.top:
00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END
00020004 00 02 8d 8e | | .CODE START
00020008 00 01 02 88 | | .CODE FSCALL_10288
0002000c heap.top:
0002000c 00 02 bc 0c | | .PTR 0x2bc0c
00020010 code.end:
00020010 00 02 91 90 | | .PTR 0x29190
00020014 00 00 00 00 | | .CONST 0x00000000
00020018 programfailurehandler:
00020018 00 02 8f 98 | | .CODE PROG_FAIL
0002001c experimentfailurehandler:
0002001c 00 02 90 54 | T | .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 44 49 |@(#)DI | .XXX[0x6]
00020110 53 4b 4d 44 2c 33 2e 35 |SKMD,3.5| .XXX[0x18]
00020118 2c 39 31 2f 31 30 2f 31 |,91/10/1|
00020120 30 2c 31 36 3a 32 35 3a |0,16:25:|
00020128 30 30 5c 20 |00\ | .XXX[0x4]
0002012c 45 72 72 6f 72 20 72 65 |Error re| .TXT 'Error reading eeprom at location :_ '
00020150 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal decimal argument'
00020168 44 69 73 6b 20 65 72 72 |Disk err| .TXT 'Disk error reading disk error status'
0002018c 20 43 53 31 | CS1 | .XXX[0x4]
00020190 3d 20 20 43 53 32 3d 20 |= CS2= | .XXX[0x30]
00020198 20 44 53 3d 20 20 20 45 | DS= E|
000201a0 52 31 3d 20 20 45 52 32 |R1= ER2|
000201a8 3d 20 20 45 43 31 3d 20 |= EC1= |
000201b0 20 45 43 32 3d 20 20 44 | EC2= D|
000201b8 43 3d 20 20 20 44 41 3d |C= DA=|
000201c0 20 20 | | .XXX[0x2]
000201c2 53 70 65 63 69 61 6c 20 |Special | .TXT 'Special condition '
000201d4 54 72 61 6e 73 66 65 72 |Transfer| .TXT 'Transfer error'
000201e2 44 72 69 76 65 20 69 73 |Drive is| .TXT 'Drive is not available'
000201f8 44 72 69 76 65 20 69 73 |Drive is| .TXT 'Drive is not ready'
0002020a 44 61 74 61 20 6c 61 74 |Data lat| .TXT 'Data late '
00020214 57 72 69 74 65 20 63 68 |Write ch| .TXT 'Write check error '
00020226 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent drive'
00020238 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent memory '
0002024c 50 72 6f 67 72 61 6d 20 |Program | .TXT 'Program error '
0002025a 4d 69 73 73 65 64 20 74 |Missed t| .TXT 'Missed transfer '
0002026a 49 6e 70 75 74 20 6e 6f |Input no| .TXT 'Input not ready '
0002027a 42 75 73 20 61 64 64 72 |Bus addr| .TXT 'Bus address increment inhibit '
00020298 50 6f 73 69 74 69 6f 6e |Position| .TXT 'Positioning in progress '
000202b0 4d 65 64 69 75 6d 20 6e |Medium n| .TXT 'Medium not on-line'
000202c2 57 72 69 74 |Writ | .TXT 'Writ'
000202c6 65 20 6c 6f |e lo | .TXT 'e lo'
000202ca 63 6b 65 64 |cked | .TXT 'cked'
000202ce 4c 61 73 74 20 73 65 63 |Last sec| .TXT 'Last sector transfered'
000202e4 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not present '
000202f6 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not ready '
00020306 56 6f 6c 75 |Volu | .TXT 'Volu'
0002030a 6d 65 20 6e |me n | .TXT 'me n'
0002030e 6f 74 20 76 |ot v | .TXT 'ot v'
00020312 61 6c 69 64 |alid | .TXT 'alid'
00020316 44 61 74 61 |Data | .TXT 'Data'
0002031a 20 63 68 65 | che | .TXT ' che'
0002031e 63 6b 20 28 |ck ( | .TXT 'ck ('
00020322 45 43 43 29 |ECC) | .TXT 'ECC)'
00020326 55 6e |Un | .TXT 'Un'
00020328 73 61 |sa | .TXT 'sa'
0002032a 66 65 |fe | .TXT 'fe'
0002032c 4f 70 65 72 61 74 69 6f |Operatio| .TXT 'Operation incomplete'
00020340 44 72 69 76 65 20 74 69 |Drive ti| .TXT 'Drive timing error'
00020352 57 72 69 74 |Writ | .TXT 'Writ'
00020356 65 20 6c 6f |e lo | .TXT 'e lo'
0002035a 63 6b 20 65 |ck e | .TXT 'ck e'
0002035e 72 72 6f 72 |rror | .TXT 'rror'
00020362 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid address error '
00020378 41 64 64 72 65 73 73 20 |Address | .TXT 'Address overflow error'
0002038e 48 65 61 64 |Head | .TXT 'Head'
00020392 65 72 20 43 |er C | .TXT 'er C'
00020396 52 43 20 65 |RC e | .TXT 'RC e'
0002039a 72 72 6f 72 |rror | .TXT 'rror'
0002039e 48 65 61 64 65 72 20 63 |Header c| .TXT 'Header compare error'
000203b2 48 61 72 64 20 45 43 43 |Hard ECC| .TXT 'Hard ECC error'
000203c0 46 6f 72 6d |Form | .TXT 'Form'
000203c4 61 74 20 65 |at e | .TXT 'at e'
000203c8 72 72 6f 72 |rror | .TXT 'rror'
000203cc 52 65 67 69 73 74 65 72 |Register| .TXT 'Register modification refused '
000203ea 49 6c 6c 65 |Ille | .TXT 'Ille'
000203ee 67 61 6c 20 |gal | .TXT 'gal '
000203f2 66 75 6e 63 |func | .TXT 'func'
000203f6 74 69 6f 6e |tion | .TXT 'tion'
000203fa 42 61 64 20 62 6c 6f 63 |Bad bloc| .TXT 'Bad block '
00020404 53 65 65 6b 20 69 6e 63 |Seek inc| .TXT 'Seek incomplete '
00020414 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid command (volume not valid, off-line, or off cylinder) '
00020452 44 65 76 69 |Devi | .TXT 'Devi'
00020456 63 65 20 63 |ce c | .TXT 'ce c'
0002045a 68 65 63 6b |heck | .TXT 'heck'
0002045e 45 58 54 45 4e 44 45 44 |EXTENDED| .TXT 'EXTENDED FAULT/SEEK ERROR STATUS: '
00020480 20 20 20 20 46 41 55 4c | FAUL| .TXT ' FAULT: R/W cmd issued during busy condition '
000204b0 20 20 20 20 46 41 55 4c | FAUL| .TXT ' FAULT: write cmd issued during fault condition'
000204e2 20 20 20 20 46 41 55 4c | FAUL| .TXT ' FAULT: write cmd issued during off-track condition'
00020518 20 20 20 20 46 41 55 4c | FAUL| .TXT ' FAULT: write unsafe; fault in write circuit '
00020548 20 20 20 20 46 41 55 4c | FAUL| .TXT ' FAULT: write command issued when drive write protected'
00020582 20 20 20 20 46 41 55 4c | FAUL| .TXT ' FAULT: multiple head selected during R/W op '
000205b2 20 20 20 20 46 41 55 4c | FAUL| .TXT ' FAULT: emergency fault in voice coil or DC motor'
000205e6 20 20 20 20 53 45 45 4b | SEEK| .TXT ' SEEK ERR: RTZ operation timed out '
0002060c 20 20 20 20 53 45 45 4b | SEEK| .TXT ' SEEK ERR: seek operation timed out'
00020632 20 20 20 20 53 45 45 4b | SEEK| .TXT ' SEEK ERR: head overshoot'
0002064e 20 20 20 20 53 45 45 4b | SEEK| .TXT ' SEEK ERR: guard band detected during seek operation '
00020686 20 20 20 20 53 45 45 4b | SEEK| .TXT ' SEEK ERR: guard band detected during linear mode'
000206ba 20 20 20 20 53 45 45 4b | SEEK| .TXT ' SEEK ERR: guard band detected during RTZ mode '
000206ec 20 20 20 20 53 45 45 4b | SEEK| .TXT ' SEEK ERR: illegal cylinder'
0002070a 20 20 20 20 76 6f 69 63 | voic| .TXT ' voice coil motor excess heat condition'
00020734 20 20 20 20 44 43 20 6d | DC m| .TXT ' DC motor fault'
00020746 54 48 45 20 45 58 54 45 |THE EXTE| .TXT 'THE EXTENDED DRIVE STATUS INDICATES:'
0002076a 20 20 20 20 64 72 69 76 | driv| .TXT ' drive is in READY state '
00020786 20 20 20 20 64 72 69 76 | driv| .TXT ' drive is NOT in READY state '
000207a6 20 20 20 20 64 72 69 76 | driv| .TXT ' drive is on cylinder'
000207be 20 20 20 20 64 72 69 76 | driv| .TXT ' drive is NOT on cylinder'
000207da 20 20 20 20 64 72 69 76 | driv| .TXT ' drive has a SEEK ERROR condition'
000207fe 20 20 20 20 64 72 69 76 | driv| .TXT ' drive has a FAULT condition '
0002081e 20 20 20 20 64 72 69 76 | driv| .TXT ' drive is write protected'
0002083a 57 52 49 54 45 2f 52 45 |WRITE/RE| .TXT 'WRITE/READ CHECK STATUS:'
00020852 20 20 20 20 49 6e 64 65 | Inde| .TXT ' Index Check '
00020862 20 20 20 20 43 6f 6e 74 | Cont| .TXT ' Control Check '
00020874 20 20 20 20 4d 75 6c 74 | Mult| .TXT ' Multi Head Check'
00020888 20 20 20 20 48 65 61 64 | Head| .TXT ' Head Short Check'
0002089c 20 20 20 20 57 72 69 74 | Writ| .TXT ' Write Current on Read Check '
000208bc 20 20 20 20 57 72 69 74 | Writ| .TXT ' Write Transition Check'
000208d6 20 20 20 20 44 65 6c 74 | Delt| .TXT ' Delta I Write Check '
000208ee 20 20 20 20 53 65 72 76 | Serv| .TXT ' Servo Off Track '
00020902 41 43 43 45 53 53 20 53 |ACCESS S| .TXT 'ACCESS STATUS:'
00020910 20 20 20 20 44 45 20 53 | DE S| .TXT ' DE Sequence Check '
00020926 20 20 20 20 41 63 63 65 | Acce| .TXT ' Access Timeout Check'
0002093e 20 20 20 20 4f 76 65 72 | Over| .TXT ' Over Shoot Check'
00020952 20 20 20 20 52 65 7a 65 | Reze| .TXT ' Rezero Mode Latch '
00020968 20 20 20 20 53 65 72 76 | Serv| .TXT ' Servo Latch '
00020978 20 20 20 20 4c 69 6e 65 | Line| .TXT ' Linear Mode Latch '
0002098e 20 20 20 20 43 6f 6e 74 | Cont| .TXT ' Control Latch '
000209a0 20 20 20 20 57 61 69 74 | Wait| .TXT ' Wait Latch'
000209ae 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder argument out of range'
000209cc 41 74 74 65 6d 70 74 20 |Attempt | .TXT 'Attempt to write outside of read/write area '
000209f8 54 72 61 63 6b 20 61 72 |Track ar| .TXT 'Track argument out of range '
00020a14 53 65 63 74 6f 72 20 61 |Sector a| .TXT 'Sector argument out of range'
00020a30 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00020a40 20 20 20 20 | | .BLANK 20[0x4]
00020a44 46 75 6a 69 |Fuji | .XXX[0x4]
00020a48 74 73 75 20 45 41 47 4c |tsu EAGL| .XXX[0x70]
00020a50 45 20 20 20 20 20 20 20 |E |
00020a58 46 75 6a 69 74 73 75 20 |Fujitsu |
00020a60 45 41 47 4c 45 2d 58 50 |EAGLE-XP|
00020a68 20 20 20 20 46 75 6a 69 | Fuji|
00020a70 74 73 75 20 32 33 33 33 |tsu 2333|
00020a78 20 20 20 20 20 20 20 20 | |
00020a80 46 75 6a 69 74 73 75 20 |Fujitsu |
00020a88 32 33 34 34 20 20 20 20 |2344 |
00020a90 20 20 20 20 46 75 6a 69 | Fuji|
00020a98 74 73 75 20 32 32 36 33 |tsu 2263|
00020aa0 20 20 20 20 20 20 20 20 | |
00020aa8 46 75 6a 69 74 73 75 20 |Fujitsu |
00020ab0 32 32 36 36 20 20 20 20 |2266 |
00020ab8 20 20 20 20 20 20 20 20 | | .BLANK 20[0x18]
00020ad0 20 20 20 20 48 6f 77 20 | How | .TXT ' How many cylinders does this disk have ?_ '
00020afe 20 20 20 20 48 6f 77 20 | How | .TXT ' How many tracks per cylinder does this disk have ?_ '
00020b36 20 20 20 20 48 6f 77 20 | How | .TXT ' How many sectors per track does this disk have ?_ '
00020b6c 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal unit number '
00020b80 55 6e 69 74 20 64 6f 65 |Unit doe| .TXT 'Unit does not exist, current unit remains_'
00020baa 44 69 73 6b 20 65 72 72 |Disk err| .TXT 'Disk error reading labels '
00020bc4 44 69 73 6b 20 68 61 73 |Disk has| .TXT 'Disk has no LABELS'
00020bd6 54 68 65 20 53 4c 45 57 |The SLEW| .TXT 'The SLEW settings for this disk are unknown.'
00020c02 54 68 65 20 64 69 73 6b |The disk| .TXT 'The disk controller is SLEWed for this drive to be a_ '
00020c38 55 4e 49 54 20 20 20 20 |UNIT | .TXT 'UNIT '
00020c42 44 41 54 41 20 20 20 20 |DATA | .TXT 'DATA '
00020c4c 20 6c 69 6e 65 73 20 73 | lines s| .TXT ' lines same as above. '
00020c62 3a 5f |:_ | .TXT ':_'
00020c64 5f 5f 5f 5f |____ | .TXT '____'
00020c68 4e 6f 20 72 65 63 61 6c |No recal| .TXT 'No recalibrate yet. '
00020c7c 4e 6f 20 73 |No s | .TXT 'No s'
00020c80 65 65 6b 20 |eek | .TXT 'eek '
00020c84 79 65 74 2e |yet. | .TXT 'yet.'
00020c88 41 74 74 65 6d 70 74 20 |Attempt | .TXT 'Attempt to write outside permitted area '
00020cb0 54 68 65 20 72 65 61 64 |The read| .XXX[0x28]
00020cb8 20 77 72 69 74 65 20 61 | write a|
00020cc0 72 65 61 20 28 63 79 6c |rea (cyl|
00020cc8 69 6e 64 65 72 2f 68 65 |inder/he|
00020cd0 61 64 29 20 69 73 20 20 |ad) is |
00020cd8 3a 20 5b 20 |: [ | .XXX[0x4]
00020cdc 20 2e 2e 5f | .._ | .TXT ' .._'
00020ce0 5d 2e |]. | .TXT '].'
00020ce2 45 72 72 6f 72 20 64 75 |Error du| .TXT 'Error during disk WRITE '
00020cfa 57 52 20 20 20 20 20 20 |WR | .TXT 'WR '
00020d04 45 72 72 6f 72 20 64 75 |Error du| .TXT 'Error during disk READ'
00020d1a 52 44 20 20 20 20 20 20 |RD | .TXT 'RD '
00020d24 53 65 63 74 6f 72 20 69 |Sector i| .TXT 'Sector is error free'
00020d38 43 6f 72 72 65 63 74 61 |Correcta| .TXT 'Correctable disk error encountered while reading sector '
00020d70 55 6e 65 78 70 65 63 74 |Unexpect| .XXX[0x38]
00020d78 65 64 20 65 72 72 6f 72 |ed error|
00020d80 20 63 6f 6e 64 69 74 69 | conditi|
00020d88 6f 6e 20 65 6e 63 6f 75 |on encou|
00020d90 6e 74 65 72 65 64 20 77 |ntered w|
00020d98 68 69 6c 65 20 72 65 61 |hile rea|
00020da0 64 69 6e 67 20 73 65 63 |ding sec|
00020da8 74 6f 72 20 |tor | .XXX[0x4]
00020dac 55 6e 63 6f 72 72 65 63 |Uncorrec| .TXT 'Uncorrectable error detected'
00020dc8 43 4f 52 52 45 43 54 41 |CORRECTA| .TXT 'CORRECTABL'
00020dd2 45 72 72 6f 72 20 64 75 |Error du| .TXT 'Error during disk READ'
00020de8 52 53 20 20 20 20 20 20 |RS | .TXT 'RS '
00020df2 65 72 72 6f 72 20 64 75 |error du| .TXT 'error during disk read'
00020e08 72 73 61 64 76 20 20 20 |rsadv | .TXT 'rsadv '
00020e12 65 72 72 6f 72 20 64 75 |error du| .TXT 'error during disk read'
00020e28 72 73 61 64 76 20 20 20 |rsadv | .TXT 'rsadv '
00020e32 53 74 61 74 75 73 2f 45 |Status/E| .TXT 'Status/Error bits indicate correction not possible or necessary '
00020e72 54 68 65 20 6d 6f 64 69 |The modi| .TXT 'The modified data now in the write buffer may not be correct'
00020eae 53 75 67 67 65 73 74 69 |Suggesti| .TXT 'Suggestion : use 'VERIFY' to show modified data before writing'
00020eec 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder argument out of range'
00020f0a 54 72 61 63 6b 20 61 72 |Track ar| .TXT 'Track argument out of range '
00020f26 53 65 63 74 6f 72 20 61 |Sector a| .TXT 'Sector argument out of range'
00020f42 45 72 72 6f 72 20 64 75 |Error du| .TXT 'Error during disk READ DATA AND ECC '
00020f66 52 53 4c 4f 4e 47 20 20 |RSLONG | .TXT 'RSLONG '
00020f70 43 79 6c 69 6e 64 65 72 |Cylinder| .XXX[0x78]
00020f78 20 61 72 67 75 6d 65 6e | argumen|
00020f80 74 20 6f 75 74 20 6f 66 |t out of|
00020f88 20 72 61 6e 67 65 54 72 | rangeTr|
00020f90 61 63 6b 20 61 72 67 75 |ack argu|
00020f98 6d 65 6e 74 20 6f 75 74 |ment out|
00020fa0 20 6f 66 20 72 61 6e 67 | of rang|
00020fa8 65 20 53 65 63 74 6f 72 |e Sector|
00020fb0 20 61 72 67 75 6d 65 6e | argumen|
00020fb8 74 20 6f 75 74 20 6f 66 |t out of|
00020fc0 20 72 61 6e 67 65 45 72 | rangeEr|
00020fc8 72 6f 72 20 64 75 72 69 |ror duri|
00020fd0 6e 67 20 64 69 73 6b 20 |ng disk |
00020fd8 52 45 41 44 20 44 41 54 |READ DAT|
00020fe0 41 20 41 4e 44 20 45 43 |A AND EC|
00020fe8 43 20 |C | .XXX[0x2]
00020fea 52 44 48 52 44 20 20 20 |RDHRD | .TXT 'RDHRD '
00020ff4 54 68 69 73 20 69 73 20 |This is | .TXT 'This is a good sector '
0002100a 54 68 69 73 20 69 73 20 |This is | .TXT 'This is a bad sector'
0002101e 2c 20 74 68 65 20 4d 46 |, the MF| .TXT ', the MFG flag false'
00021032 2c 20 74 68 65 20 55 53 |, the US| .TXT ', the USR flag false'
00021046 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder argument out of range'
00021064 41 74 74 65 6d 70 74 20 |Attempt | .TXT 'Attempt to write outside of read/write area '
00021090 54 72 61 63 6b 20 61 72 |Track ar| .TXT 'Track argument out of range '
000210ac 53 65 63 74 6f 72 20 61 |Sector a| .TXT 'Sector argument out of range'
000210c8 45 72 72 6f 72 20 64 75 |Error du| .TXT 'Error during disk READ DATA AND ECC '
000210ec 57 53 4c 4f 4e 47 20 20 |WSLONG | .TXT 'WSLONG '
000210f6 45 72 72 6f 72 20 64 75 |Error du| .TXT 'Error during disk FORMAT'
0002110e 46 4f 52 4d 41 54 53 20 |FORMATS | .TXT 'FORMATS '
00021118 65 72 72 6f 72 20 64 75 |error du| .TXT 'error during format sector'
00021132 46 4c 41 47 53 45 43 54 |FLAGSECT| .TXT 'FLAGSECTOR'
0002113c 43 54 53 20 20 20 20 20 |CTS | .TXT 'CTS '
00021146 44 42 4e 20 20 20 20 20 |DBN | .TXT 'DBN '
00021150 20 6c 6f 63 61 74 69 6f | locatio| .TXT ' location(s) don't compare. '
0002116c 41 74 20 6c |At l | .TXT 'At l'
00021170 6f 63 61 74 |ocat | .TXT 'ocat'
00021174 69 6f 6e 5f |ion_ | .TXT 'ion_'
00021178 20 74 68 65 20 72 65 61 | the rea| .TXT ' the read buffer has_ '
0002118e 20 62 75 74 20 74 68 65 | but the| .TXT ' but the write buffer has_'
000211a8 45 72 72 6f 72 20 64 75 |Error du| .TXT 'Error during disk WRITE '
000211c0 4d 75 73 74 20 73 70 65 |Must spe| .TXT 'Must specify an EVEN sector number'
000211e2 45 72 72 6f 72 20 64 75 |Error du| .TXT 'Error during disk READ'
000211f8 44 61 74 61 20 63 6f 6d |Data com| .TXT 'Data compare error, VERIFY to see difference(s) '
00021228 57 52 49 54 45 54 45 53 |WRITETES| .TXT 'WRITETEST '
00021232 45 44 49 54 20 20 20 20 |EDIT | .TXT 'EDIT '
0002123c 31 73 74 20 61 72 67 75 |1st argu| .TXT '1st argument to EDIT must be 0 .. 1FF '
00021262 45 6e 74 65 72 20 50 41 |Enter PA| .TXT 'Enter PASSWORD :_ '
00021274 50 72 69 76 69 6c 65 67 |Privileg| .TXT 'Privileges granted'
00021286 50 72 69 76 69 6c 65 67 |Privileg| .TXT 'Privileges denied '
00021298 55 4e 49 54 20 20 20 20 |UNIT | .XXX[0x190]
000212a0 20 20 44 41 54 41 20 20 | DATA |
000212a8 20 20 20 20 44 49 53 50 | DISP|
000212b0 4c 41 59 20 20 20 52 45 |LAY RE|
000212b8 43 41 4c 20 20 20 20 20 |CAL |
000212c0 53 45 45 4b 20 20 20 20 |SEEK |
000212c8 20 20 57 52 20 20 20 20 | WR |
000212d0 20 20 20 20 52 44 20 20 | RD |
000212d8 20 20 20 20 20 20 56 45 | VE|
000212e0 52 49 46 59 20 20 20 20 |RIFY |
000212e8 53 54 41 54 55 53 20 20 |STATUS |
000212f0 20 20 43 53 54 41 54 55 | CSTATU|
000212f8 53 20 20 20 43 54 53 20 |S CTS |
00021300 20 20 20 20 20 20 44 42 | DB|
00021308 4e 20 20 20 20 20 20 20 |N |
00021310 43 4f 50 59 20 20 20 20 |COPY |
00021318 20 20 45 44 49 54 20 20 | EDIT |
00021320 20 20 20 20 57 52 45 4e | WREN|
00021328 41 42 4c 45 20 20 46 4f |ABLE FO|
00021330 52 4d 41 54 53 20 20 20 |RMATS |
00021338 52 53 20 20 20 20 20 20 |RS |
00021340 20 20 57 52 49 54 45 54 | WRITET|
00021348 45 53 54 20 52 53 4c 4f |EST RSLO|
00021350 4e 47 20 20 20 20 57 53 |NG WS|
00021358 4c 4f 4e 47 20 20 20 20 |LONG |
00021360 53 45 43 52 45 54 20 20 |SECRET |
00021368 20 20 43 4f 52 52 45 43 | CORREC|
00021370 54 41 42 4c 46 49 58 55 |TABLFIXU|
00021378 50 20 20 20 20 20 52 53 |P RS|
00021380 41 44 56 20 20 20 20 20 |ADV |
00021388 52 53 52 45 54 20 20 20 |RSRET |
00021390 20 20 46 4c 41 47 53 45 | FLAGSE|
00021398 43 54 4f 52 52 44 48 44 |CTORRDHD|
000213a0 52 20 20 20 20 20 55 4e |R UN|
000213a8 4b 4e 4f 57 4e 20 20 20 |KNOWN |
000213b0 44 49 53 4b 4d 44 20 20 |DISKMD |
000213b8 20 20 00 00 00 00 00 00 | |
000213c0 00 00 03 4a 14 30 01 04 | J 0 |
000213c8 00 00 03 4a 14 42 01 00 | J B |
000213d0 80 00 03 37 0a 42 01 00 | 7 B |
000213d8 80 00 02 70 1b 42 01 00 | p B |
000213e0 80 00 06 77 0f 38 01 00 | w 8 |
000213e8 80 00 06 77 0f 5a 01 00 | w Z |
000213f0 80 00 00 00 00 00 00 00 | |
000213f8 00 00 20 43 53 31 3d 20 | CS1= |
00021400 43 53 32 3d 20 44 53 3d |CS2= DS=|
00021408 20 20 45 52 31 3d 20 45 | ER1= E|
00021410 52 32 3d 20 45 43 31 3d |R2= EC1=|
00021418 20 45 43 32 3d 20 44 43 | EC2= DC|
00021420 3d 20 20 44 41 3d 20 20 |= DA= |
00021428 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00021438 20 20 20 46 75 6a 69 74 | Fujit| .XXX[0x78]
00021440 73 75 20 45 41 47 4c 45 |su EAGLE|
00021448 20 20 20 20 20 20 20 46 | F|
00021450 75 6a 69 74 73 75 20 45 |ujitsu E|
00021458 41 47 4c 45 2d 58 50 20 |AGLE-XP |
00021460 20 20 20 46 75 6a 69 74 | Fujit|
00021468 73 75 20 32 33 33 33 20 |su 2333 |
00021470 20 20 20 20 20 20 20 46 | F|
00021478 75 6a 69 74 73 75 20 32 |ujitsu 2|
00021480 33 34 34 20 20 20 20 20 |344 |
00021488 20 20 20 46 75 6a 69 74 | Fujit|
00021490 73 75 20 32 32 36 33 20 |su 2263 |
00021498 20 20 20 20 20 20 20 46 | F|
000214a0 75 6a 69 74 73 75 20 32 |ujitsu 2|
000214a8 32 36 36 20 20 20 20 20 |266 |
000214b0 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
000214c0 20 20 20 20 20 20 20 55 | U| .XXX[0x120]
000214c8 4e 49 54 20 20 20 20 20 |NIT |
000214d0 20 44 41 54 41 20 20 20 | DATA |
000214d8 20 20 20 44 49 53 50 4c | DISPL|
000214e0 41 59 20 20 20 52 45 43 |AY REC|
000214e8 41 4c 20 20 20 20 20 53 |AL S|
000214f0 45 45 4b 20 20 20 20 20 |EEK |
000214f8 20 57 52 20 20 20 20 20 | WR |
00021500 20 20 20 52 44 20 20 20 | RD |
00021508 20 20 20 20 20 56 45 52 | VER|
00021510 49 46 59 20 20 20 20 53 |IFY S|
00021518 54 41 54 55 53 20 20 20 |TATUS |
00021520 20 43 53 54 41 54 55 53 | CSTATUS|
00021528 20 20 20 43 54 53 20 20 | CTS |
00021530 20 20 20 20 20 44 42 4e | DBN|
00021538 20 20 20 20 20 20 20 43 | C|
00021540 4f 50 59 20 20 20 20 20 |OPY |
00021548 20 45 44 49 54 20 20 20 | EDIT |
00021550 20 20 20 57 52 45 4e 41 | WRENA|
00021558 42 4c 45 20 20 46 4f 52 |BLE FOR|
00021560 4d 41 54 53 20 20 20 52 |MATS R|
00021568 53 20 20 20 20 20 20 20 |S |
00021570 20 57 52 49 54 45 54 45 | WRITETE|
00021578 53 54 20 52 53 4c 4f 4e |ST RSLON|
00021580 47 20 20 20 20 57 53 4c |G WSL|
00021588 4f 4e 47 20 20 20 20 53 |ONG S|
00021590 45 43 52 45 54 20 20 20 |ECRET |
00021598 20 43 4f 52 52 45 43 54 | CORRECT|
000215a0 41 42 4c 46 49 58 55 50 |ABLFIXUP|
000215a8 20 20 20 20 20 52 53 41 | RSA|
000215b0 44 56 20 20 20 20 20 52 |DV R|
000215b8 53 52 45 54 20 20 20 20 |SRET |
000215c0 20 46 4c 41 47 53 45 43 | FLAGSEC|
000215c8 54 4f 52 52 44 48 44 52 |TORRDHDR|
000215d0 20 20 20 20 20 55 4e 4b | UNK|
000215d8 4e 4f 57 4e 20 20 20 00 |NOWN |
000215e0 ; --------------------------------------------------------------------------------------
000215e0 ; OMSI PASCAL Function
000215e0 ; <LVAR 0x008 1(w)>
000215e0 ; --------------------------------------------------------------------------------------
000215e0 4e 56 ff f2 |NV | LINK.W A6,#0xfff2
000215e4 bf d5 | | CMPA.L (A5),A7
000215e6 62 06 |b | BHI 0x215ee
000215e8 44 fc 00 02 |D | MOVE.W #0x2,CCR
000215ec 4e 76 |Nv | TRAPV
000215ee de fc 00 0a | | ADDA.W #0xa,A7
000215f2 48 e7 01 00 |H | MOVEM.L D7,-(A7)
000215f6 7e 00 |~ | MOVEQ.L #0x00,D7
000215f8 55 4f |UO | SUBQ.L #0x2,A7
000215fa 4e b9 00 01 05 fe |N | JSR Is_machine_type_two() : Bool
00021600 4a 1f |J | TST.B (A7)+
00021602 67 02 |g | BEQ 0x21606
00021604 60 1c |` | BRA 0x21622
00021606 55 4f |UO | SUBQ.L #0x2,A7
00021608 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool
0002160e 4a 1f |J | TST.B (A7)+
00021610 67 02 |g | BEQ 0x21614
00021612 60 0e |` | BRA 0x21622
00021614 55 4f |UO | SUBQ.L #0x2,A7
00021616 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool
0002161c 4a 1f |J | TST.B (A7)+
0002161e 67 02 |g | BEQ 0x21622
00021620 7e 01 |~ | MOVEQ.L #0x01,D7
00021622 1d 47 00 08 | G | MOVE.B D7,(A6+0x8)
00021626 4c df 00 80 |L | MOVEM.L (A7)+,D7
0002162a 4e 5e |N^ | UNLK A6
0002162c 4e 75 |Nu | RTS
0002162e ; --------------------------------------------------------------------------------------
0002162e ; OMSI PASCAL Function
0002162e ; <LVAR 0x012 2(r)>
0002162e ; <LVAR 0x010 2(r)>
0002162e ; <LVAR 0x00c 4(r)>
0002162e ; <LVAR 0x008 4(r)>
0002162e ; <LVAR -0x004 2(w)>
0002162e ; <LVAR -0x006 2(w)>
0002162e ; <LVAR -0x008 2(r)>
0002162e ; <LVAR -0x00a 2(r)>
0002162e ; <LVAR -0x00c 2(w)>
0002162e ; <LVAR -0x00e 2(r)>
0002162e ; <LVAR -0x010 @ 2(r)>
0002162e ; --------------------------------------------------------------------------------------
0002162e 4e 56 ff a4 |NV | LINK.W A6,#0xffa4
00021632 bf d5 | | CMPA.L (A5),A7
00021634 62 06 |b | BHI 0x2163c
00021636 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002163a 4e 76 |Nv | TRAPV
0002163c de fc 00 4c | L | ADDA.W #0x4c,A7
00021640 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
00021644 42 6e ff f0 |Bn | CLR.W (A6-0x10)
00021648 42 6e ff f2 |Bn | CLR.W (A6-0xe)
0002164c 3d 7c 00 02 ff f4 |=| | MOVE.W #0x2,(A6-0xc)
00021652 42 6e ff f6 |Bn | CLR.W (A6-0xa)
00021656 42 6e ff f8 |Bn | CLR.W (A6-0x8)
0002165a 30 2e 00 12 |0. | MOVE.W (A6+0x12),D0
0002165e e1 40 | @ | ASL.W #0x8,D0
00021660 06 40 00 0e | @ | ADDI.W #0x000e,D0
00021664 3d 40 ff fa |=@ | MOVE.W D0,(A6-0x6)
00021668 3d 6e 00 10 ff fc |=n | MOVE.W (A6+0x10),(A6-0x4)
0002166e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00021672 48 6e ff f0 |Hn | PEA.L (A6-0x10)
00021676 22 48 |"H | MOVEA.L A0,A1
00021678 2f 09 |/ | MOVE.L A1,-(A7)
0002167a 42 67 |Bg | CLR.W -(A7)
0002167c 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00021682 de fc 00 0a | | ADDA.W #0xa,A7
00021686 22 6e 00 08 |"n | MOVEA.L (A6+0x8),A1
0002168a 42 67 |Bg | CLR.W -(A7)
0002168c 48 51 |HQ | PEA.L (A1)
0002168e 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00021694 5c 4f |\O | ADDQ.L #0x6,A7
00021696 02 50 00 ff | P | ANDI.W #0x00ff,(A0)
0002169a 4a 11 |J | TST.B (A1)
0002169c 66 4a |fJ | BNE 0x216e8
0002169e 9e fc 00 24 | $ | SUBA.W #0x24,A7
000216a2 20 4f | O | MOVEA.L A7,A0
000216a4 43 fa ea 86 |C | LEA.L 0x2012c,A1
000216a8 70 22 |p" | MOVEQ.L #0x22,D0
000216aa 10 d9 | | MOVE.B (A1)+,(A0)+
000216ac 51 c8 ff fc |Q | DBF D0,0x216aa
000216b0 51 4f |QO | SUBQ.L #0x8,A7
000216b2 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000216b6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000216ba 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7)
000216be 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000216c4 58 4f |XO | ADDQ.L #0x4,A7
000216c6 42 80 |B | CLR.L D0
000216c8 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0
000216cc 2f 00 |/ | MOVE.L D0,-(A7)
000216ce 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
000216d4 58 4f |XO | ADDQ.L #0x4,A7
000216d6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000216dc 50 4f |PO | ADDQ.L #0x8,A7
000216de 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000216e4 de fc 00 28 | ( | ADDA.W #0x28,A7
000216e8 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
000216ec 4e 5e |N^ | UNLK A6
000216ee 4e 75 |Nu | RTS
000216f0 ; --------------------------------------------------------------------------------------
000216f0 ; OMSI PASCAL Function
000216f0 ; <LVAR 0x008 2(r)>
000216f0 ; <LVAR -0x002 @>
000216f0 ; <LVAR -0x004 @ 2(r)>
000216f0 ; <LVAR -0x006 @ 2(r)>
000216f0 ; <LVAR -0x008 @ 2(r)>
000216f0 ; <LVAR -0x00a @ 2(r)>
000216f0 ; <LVAR -0x00c 2(rw)>
000216f0 ; <LVAR -0x010 4(rw)>
000216f0 ; <LVAR -0x014 4(rw)>
000216f0 ; <LVAR -0x01a @ 1(r)>
000216f0 ; <LVAR -0x41a @>
000216f0 ; <LVAR -0x81a @>
000216f0 ; <LVAR -0x820 @ 2(r)>
000216f0 ; <LVAR -0x822 @>
000216f0 ; --------------------------------------------------------------------------------------
000216f0 4e 56 f7 9a |NV | LINK.W A6,#0xf79a
000216f4 bf d5 | | CMPA.L (A5),A7
000216f6 62 06 |b | BHI 0x216fe
000216f8 44 fc 00 02 |D | MOVE.W #0x2,CCR
000216fc 4e 76 |Nv | TRAPV
000216fe de fc 00 44 | D | ADDA.W #0x44,A7
00021702 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021706 45 ee 00 08 |E | LEA.L (A6+0x8),A2
0002170a 47 ee ff e6 |G | LEA.L (A6-0x1a),A3
0002170e 49 ee ff f4 |I | LEA.L (A6-0xc),A4
00021712 24 3c 00 00 ff ff |$< | MOVE.L #0xffff,D2
00021718 76 0a |v | MOVEQ.L #0x0a,D3
0002171a 78 0c |x | MOVEQ.L #0x0c,D4
0002171c 13 fc 00 07 00 02 93 a0 | | MOVE.B #0x07,0x293a0
00021724 55 4f |UO | SUBQ.L #0x2,A7
00021726 4e ba fe b8 |N | JSR 0x215e0
0002172a 4a 1f |J | TST.B (A7)+
0002172c 67 00 01 02 |g | BEQ 0x21830
00021730 38 92 |8 | MOVE.W (A2),(A4)
00021732 02 54 00 03 | T | ANDI.W #0x0003,(A4)
00021736 3f 12 |? | MOVE.W (A2),-(A7)
00021738 30 3c 02 d0 |0< | MOVE.W #0x2d0,D0
0002173c d0 54 | T | ADD.W (A4),D0
0002173e b0 42 | B | CMP.W D2,D0
00021740 63 02 |c | BLS 0x21744
00021742 4e 4f |NO | TRAP #15
00021744 3f 00 |? | MOVE.W D0,-(A7)
00021746 48 6e ff f6 |Hn | PEA.L (A6-0xa)
0002174a 48 53 |HS | PEA.L (A3)
0002174c 4e ba fe e0 |N | JSR 0x2162e
00021750 de c3 | | ADDA.W D3,A7
00021752 3e 92 |> | MOVE.W (A2),(A7)
00021754 30 3c 03 50 |0< P | MOVE.W #0x350,D0
00021758 d0 54 | T | ADD.W (A4),D0
0002175a b0 42 | B | CMP.W D2,D0
0002175c 63 02 |c | BLS 0x21760
0002175e 4e 4f |NO | TRAP #15
00021760 3f 00 |? | MOVE.W D0,-(A7)
00021762 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00021766 48 53 |HS | PEA.L (A3)
00021768 4e ba fe c4 |N | JSR 0x2162e
0002176c de c3 | | ADDA.W D3,A7
0002176e 3e 92 |> | MOVE.W (A2),(A7)
00021770 30 3c 01 d0 |0< | MOVE.W #0x1d0,D0
00021774 d0 54 | T | ADD.W (A4),D0
00021776 b0 42 | B | CMP.W D2,D0
00021778 63 02 |c | BLS 0x2177c
0002177a 4e 4f |NO | TRAP #15
0002177c 3f 00 |? | MOVE.W D0,-(A7)
0002177e 48 6e ff fa |Hn | PEA.L (A6-0x6)
00021782 48 53 |HS | PEA.L (A3)
00021784 4e ba fe a8 |N | JSR 0x2162e
00021788 de c3 | | ADDA.W D3,A7
0002178a 3e 92 |> | MOVE.W (A2),(A7)
0002178c 30 3c 02 50 |0< P | MOVE.W #0x250,D0
00021790 d0 54 | T | ADD.W (A4),D0
00021792 b0 42 | B | CMP.W D2,D0
00021794 63 02 |c | BLS 0x21798
00021796 4e 4f |NO | TRAP #15
00021798 3f 00 |? | MOVE.W D0,-(A7)
0002179a 48 6e ff fc |Hn | PEA.L (A6-0x4)
0002179e 48 53 |HS | PEA.L (A3)
000217a0 4e ba fe 8c |N | JSR 0x2162e
000217a4 de c3 | | ADDA.W D3,A7
000217a6 3e 92 |> | MOVE.W (A2),(A7)
000217a8 30 3c 03 10 |0< | MOVE.W #0x310,D0
000217ac d0 54 | T | ADD.W (A4),D0
000217ae b0 42 | B | CMP.W D2,D0
000217b0 63 02 |c | BLS 0x217b4
000217b2 4e 4f |NO | TRAP #15
000217b4 3f 00 |? | MOVE.W D0,-(A7)
000217b6 48 6e ff fe |Hn | PEA.L (A6-0x2)
000217ba 48 53 |HS | PEA.L (A3)
000217bc 4e ba fe 70 |N p | JSR 0x2162e
000217c0 de c4 | | ADDA.W D4,A7
000217c2 42 80 |B | CLR.L D0
000217c4 30 2e ff fc |0. | MOVE.W (A6-0x4),D0
000217c8 e1 80 | | ASL.L #0x8,D0
000217ca 42 81 |B | CLR.L D1
000217cc 32 2e ff fa |2. | MOVE.W (A6-0x6),D1
000217d0 d0 81 | | ADD.L D1,D0
000217d2 2a 00 |* | MOVE.L D0,D5
000217d4 42 80 |B | CLR.L D0
000217d6 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0
000217da 2d 40 ff ec |-@ | MOVE.L D0,(A6-0x14)
000217de 42 80 |B | CLR.L D0
000217e0 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
000217e4 2d 40 ff f0 |-@ | MOVE.L D0,(A6-0x10)
000217e8 7e 05 |~ | MOVEQ.L #0x05,D7
000217ea 10 07 | | MOVE.B D7,D0
000217ec 48 80 |H | EXTB.W D0
000217ee e7 40 | @ | ASL.W #0x3,D0
000217f0 41 fa fb c8 |A | LEA.L 0x213ba,A0
000217f4 42 81 |B | CLR.L D1
000217f6 32 30 00 00 |20 | MOVE.W (A0+D0.W),D1
000217fa b2 85 | | CMP.L D5,D1
000217fc 66 26 |f& | BNE 0x21824
000217fe 41 fa fb ba |A | LEA.L 0x213ba,A0
00021802 42 81 |B | CLR.L D1
00021804 12 30 00 02 | 0 | MOVE.B (A0+D0.W+#0x2),D1
00021808 b2 ae ff ec | | CMP.L (A6-0x14),D1
0002180c 66 16 |f | BNE 0x21824
0002180e 41 fa fb aa |A | LEA.L 0x213ba,A0
00021812 42 81 |B | CLR.L D1
00021814 12 30 00 03 | 0 | MOVE.B (A0+D0.W+#0x3),D1
00021818 b2 ae ff f0 | | CMP.L (A6-0x10),D1
0002181c 66 06 |f | BNE 0x21824
0002181e 13 c7 00 02 93 a0 | | MOVE.B D7,0x293a0
00021824 52 07 |R | ADDQ.B #0x1,D7
00021826 0c 07 00 06 | | CMPI.B #0x06,D7
0002182a 6f be |o | BLE 0x217ea
0002182c 60 00 00 dc |` | BRA 0x2190a
00021830 7c 00 || | MOVEQ.L #0x00,D6
00021832 3f 12 |? | MOVE.W (A2),-(A7)
00021834 bc 82 | | CMP.L D2,D6
00021836 63 02 |c | BLS 0x2183a
00021838 4e 4f |NO | TRAP #15
0002183a 3f 06 |? | MOVE.W D6,-(A7)
0002183c 48 6e f7 e0 |Hn | PEA.L (A6-0x820)
00021840 48 53 |HS | PEA.L (A3)
00021842 4e ba fd ea |N | JSR 0x2162e
00021846 de c4 | | ADDA.W D4,A7
00021848 0c 86 00 00 03 ff | | CMPI.L #0x000003ff,D6
0002184e 63 02 |c | BLS 0x21852
00021850 4e 4f |NO | TRAP #15
00021852 41 ee f7 de |A | LEA.L (A6-0x822),A0
00021856 30 2e f7 e0 |0. | MOVE.W (A6-0x820),D0
0002185a 41 bc 00 ff |A | CHK.W #0xff,D0
0002185e 11 80 68 08 | h | MOVE.B D0,(A0+D6.L+#0x8)
00021862 52 86 |R | ADDQ.L #0x1,D6
00021864 0c 86 00 00 04 00 | | CMPI.L #0x00000400,D6
0002186a 67 04 |g | BEQ 0x21870
0002186c 4a 13 |J | TST.B (A3)
0002186e 66 c2 |f | BNE 0x21832
00021870 4a 13 |J | TST.B (A3)
00021872 66 0e |f | BNE 0x21882
00021874 42 27 |B' | CLR.B -(A7)
00021876 48 78 00 01 |Hx | PEA.L 0x1
0002187a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00021880 5c 4f |\O | ADDQ.L #0x6,A7
00021882 41 ee fb e6 |A | LEA.L (A6-0x41a),A0
00021886 43 ee f7 e6 |C | LEA.L (A6-0x81a),A1
0002188a 30 3c 00 ff |0< | MOVE.W #0xff,D0
0002188e 20 d9 | | MOVE.L (A1)+,(A0)+
00021890 51 c8 ff fc |Q | DBF D0,0x2188e
00021894 41 ee f7 de |A | LEA.L (A6-0x822),A0
00021898 30 12 |0 | MOVE.W (A2),D0
0002189a 41 f0 00 00 |A | LEA.L (A0+D0.W),A0
0002189e 42 80 |B | CLR.L D0
000218a0 10 28 06 58 | ( X | MOVE.B (A0+0x658),D0
000218a4 e1 40 | @ | ASL.W #0x8,D0
000218a6 42 81 |B | CLR.L D1
000218a8 12 28 05 d8 | ( | MOVE.B (A0+0x5d8),D1
000218ac d2 40 | @ | ADD.W D0,D1
000218ae 48 c1 |H | EXTW.L D1
000218b0 2a 01 |* | MOVE.L D1,D5
000218b2 42 80 |B | CLR.L D0
000218b4 10 28 07 58 | ( X | MOVE.B (A0+0x758),D0
000218b8 2d 40 ff ec |-@ | MOVE.L D0,(A6-0x14)
000218bc 42 80 |B | CLR.L D0
000218be 10 28 06 d8 | ( | MOVE.B (A0+0x6d8),D0
000218c2 2d 40 ff f0 |-@ | MOVE.L D0,(A6-0x10)
000218c6 7e 01 |~ | MOVEQ.L #0x01,D7
000218c8 10 07 | | MOVE.B D7,D0
000218ca 48 80 |H | EXTB.W D0
000218cc e7 40 | @ | ASL.W #0x3,D0
000218ce 41 fa fa ea |A | LEA.L 0x213ba,A0
000218d2 42 81 |B | CLR.L D1
000218d4 32 30 00 00 |20 | MOVE.W (A0+D0.W),D1
000218d8 b2 85 | | CMP.L D5,D1
000218da 66 26 |f& | BNE 0x21902
000218dc 41 fa fa dc |A | LEA.L 0x213ba,A0
000218e0 42 81 |B | CLR.L D1
000218e2 12 30 00 02 | 0 | MOVE.B (A0+D0.W+#0x2),D1
000218e6 b2 ae ff ec | | CMP.L (A6-0x14),D1
000218ea 66 16 |f | BNE 0x21902
000218ec 41 fa fa cc |A | LEA.L 0x213ba,A0
000218f0 42 81 |B | CLR.L D1
000218f2 12 30 00 03 | 0 | MOVE.B (A0+D0.W+#0x3),D1
000218f6 b2 ae ff f0 | | CMP.L (A6-0x10),D1
000218fa 66 06 |f | BNE 0x21902
000218fc 13 c7 00 02 93 a0 | | MOVE.B D7,0x293a0
00021902 52 07 |R | ADDQ.B #0x1,D7
00021904 0c 07 00 04 | | CMPI.B #0x04,D7
00021908 6f be |o | BLE 0x218c8
0002190a 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002190e 4e 5e |N^ | UNLK A6
00021910 4e 75 |Nu | RTS
00021912 ; --------------------------------------------------------------------------------------
00021912 ; OMSI PASCAL Function
00021912 ; <LVAR 0x010 4(w)>
00021912 ; <LVAR 0x00c 4(r)>
00021912 ; <LVAR 0x008 4(r)>
00021912 ; <LVAR -0x004 @ 1(r)>
00021912 ; <LVAR -0x00c @ 4(r)>
00021912 ; --------------------------------------------------------------------------------------
00021912 4e 56 ff c0 |NV | LINK.W A6,#0xffc0
00021916 bf d5 | | CMPA.L (A5),A7
00021918 62 06 |b | BHI 0x21920
0002191a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002191e 4e 76 |Nv | TRAPV
00021920 de fc 00 34 | 4 | ADDA.W #0x34,A7
00021924 48 e7 80 88 |H | MOVEM.L A4+A0+D0,-(A7)
00021928 59 4f |YO | SUBQ.L #0x4,A7
0002192a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
0002192e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00021932 4e b9 00 02 63 be |N c | JSR 0x263be
00021938 50 4f |PO | ADDQ.L #0x8,A7
0002193a 28 5f |(_ | MOVEA.L (A7)+,A4
0002193c 2f 0c |/ | MOVE.L A4,-(A7)
0002193e 48 6e ff fc |Hn | PEA.L (A6-0x4)
00021942 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00021946 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long)
0002194c de fc 00 0c | | ADDA.W #0xc,A7
00021950 4a 2e ff fc |J. | TST.B (A6-0x4)
00021954 66 2c |f, | BNE 0x21982
00021956 41 fa e8 10 |A | LEA.L 0x20168,A0
0002195a 70 05 |p | MOVEQ.L #0x05,D0
0002195c 2f 20 |/ | MOVE.L -(A0),-(A7)
0002195e 51 c8 ff fc |Q | DBF D0,0x2195c
00021962 59 4f |YO | SUBQ.L #0x4,A7
00021964 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021968 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002196c 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7)
00021970 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021976 50 4f |PO | ADDQ.L #0x8,A7
00021978 4e b9 00 02 56 96 |N V | JSR 0x25696
0002197e de fc 00 1c | | ADDA.W #0x1c,A7
00021982 2d 6e ff f4 00 10 |-n | MOVE.L (A6-0xc),(A6+0x10)
00021988 4c df 11 01 |L | MOVEM.L (A7)+,D0+A0+A4
0002198c 4e 5e |N^ | UNLK A6
0002198e 4e 75 |Nu | RTS
00021990 ; --------------------------------------------------------------------------------------
00021990 ; OMSI PASCAL Function
00021990 ; <LVAR 0x008 4(r)>
00021990 ; <LVAR -0x00a 2(r)>
00021990 ; <LVAR -0x00c 2(r)>
00021990 ; <LVAR -0x00e 2(r)>
00021990 ; <LVAR -0x010 2(r)>
00021990 ; <LVAR -0x014 2(r)>
00021990 ; <LVAR -0x01c 2(r)>
00021990 ; <LVAR -0x024 2(r)>
00021990 ; <LVAR -0x026 2(r)>
00021990 ; <LVAR -0x028 2(r)>
00021990 ; <LVAR -0x02a 2(r)>
00021990 ; <LVAR -0x030 2(r)>
00021990 ; --------------------------------------------------------------------------------------
00021990 4e 56 ff 92 |NV | LINK.W A6,#0xff92
00021994 bf d5 | | CMPA.L (A5),A7
00021996 62 06 |b | BHI 0x2199e
00021998 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002199c 4e 76 |Nv | TRAPV
0002199e de fc 00 3a | : | ADDA.W #0x3a,A7
000219a2 48 e7 df 80 |H | MOVEM.L A0+D7+D6+D5+D4+D3+D1+D0,-(A7)
000219a6 72 13 |r | MOVEQ.L #0x13,D1
000219a8 30 39 00 02 93 a2 |09 | MOVE.W 0x293a2,D0
000219ae 0c 40 ff ff | @ | CMPI.W #0xffff,D0
000219b2 63 02 |c | BLS 0x219b6
000219b4 4e 4f |NO | TRAP #15
000219b6 3a 00 |: | MOVE.W D0,D5
000219b8 2e 3c 00 00 93 03 |.< | MOVE.L #0x9303,D7
000219be e1 87 | | ASL.L #0x8,D7
000219c0 e1 87 | | ASL.L #0x8,D7
000219c2 20 39 00 02 93 9c | 9 | MOVE.L 0x2939c,D0
000219c8 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0
000219ce 63 02 |c | BLS 0x219d2
000219d0 4e 4e |NN | TRAP #14
000219d2 d0 40 | @ | ADD.W D0,D0
000219d4 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
000219dc 00 08 | | .CONST 0x8 ; [0x0] -> 0x219e4
000219de 00 10 | | .CONST 0x10 ; [0x1] -> 0x219ec
000219e0 00 18 | | .CONST 0x18 ; [0x2] -> 0x219f4
000219e2 00 20 | | .CONST 0x20 ; [0x3] -> 0x219fc
000219e4 switch@0x219d4[0x0]:
000219e4 06 87 00 00 fd c0 | | ADDI.L #0x0000fdc0,D7
000219ea 60 16 |` | BRA 0x21a02
000219ec switch@0x219d4[0x1]:
000219ec 06 87 00 00 fc c0 | | ADDI.L #0x0000fcc0,D7
000219f2 60 0e |` | BRA 0x21a02
000219f4 switch@0x219d4[0x2]:
000219f4 06 87 00 00 fc 80 | | ADDI.L #0x0000fc80,D7
000219fa 60 06 |` | BRA 0x21a02
000219fc switch@0x219d4[0x3]:
000219fc 06 87 00 00 fc 40 | @ | ADDI.L #0x0000fc40,D7
00021a02 7c 00 || | MOVEQ.L #0x00,D6
00021a04 78 02 |x | MOVEQ.L #0x02,D4
00021a06 26 06 |& | MOVE.L D6,D3
00021a08 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
00021a0e 2f 07 |/ | MOVE.L D7,-(A7)
00021a10 d9 97 | | ADD.L D4,(A7)
00021a12 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00021a16 bc 81 | | CMP.L D1,D6
00021a18 63 02 |c | BLS 0x21a1c
00021a1a 4e 4f |NO | TRAP #15
00021a1c 20 06 | | MOVE.L D6,D0
00021a1e e3 80 | | ASL.L #0x1,D0
00021a20 41 f6 08 d0 |A | LEA.L (A6+D0.L-#0x30),A0
00021a24 2f 08 |/ | MOVE.L A0,-(A7)
00021a26 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021a2a 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00021a2e 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
00021a34 de fc 00 0e | | ADDA.W #0xe,A7
00021a38 52 86 |R | ADDQ.L #0x1,D6
00021a3a bc 81 | | CMP.L D1,D6
00021a3c 6f c6 |o | BLE 0x21a04
00021a3e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00021a42 30 ae ff d0 |0 | MOVE.W (A6-0x30),(A0)
00021a46 31 6e ff d8 00 02 |1n | MOVE.W (A6-0x28),(A0+0x2)
00021a4c 31 6e ff da 00 04 |1n | MOVE.W (A6-0x26),(A0+0x4)
00021a52 31 6e ff dc 00 06 |1n | MOVE.W (A6-0x24),(A0+0x6)
00021a58 31 6e ff f2 00 08 |1n | MOVE.W (A6-0xe),(A0+0x8)
00021a5e 31 6e ff f4 00 0a |1n | MOVE.W (A6-0xc),(A0+0xa)
00021a64 31 6e ff f6 00 0c |1n | MOVE.W (A6-0xa),(A0+0xc)
00021a6a 31 6e ff ec 00 0e |1n | MOVE.W (A6-0x14),(A0+0xe)
00021a70 31 6e ff d6 00 10 |1n | MOVE.W (A6-0x2a),(A0+0x10)
00021a76 31 6e ff e4 00 12 |1n | MOVE.W (A6-0x1c),(A0+0x12)
00021a7c 31 6e ff f0 00 14 |1n | MOVE.W (A6-0x10),(A0+0x14)
00021a82 4c df 01 fb |L | MOVEM.L (A7)+,D0+D1+D3+D4+D5+D6+D7+A0
00021a86 4e 5e |N^ | UNLK A6
00021a88 4e 75 |Nu | RTS
00021a8a ; --------------------------------------------------------------------------------------
00021a8a ; OMSI PASCAL Function
00021a8a ; <LVAR 0x008 4(r)>
00021a8a ; <LVAR -0x00c 2(w)>
00021a8a ; <LVAR -0x012 2(w)>
00021a8a ; <LVAR -0x016 @>
00021a8a ; <LVAR -0x018 @ 1(r)>
00021a8a ; --------------------------------------------------------------------------------------
00021a8a 4e 56 ff ac |NV | LINK.W A6,#0xffac
00021a8e bf d5 | | CMPA.L (A5),A7
00021a90 62 06 |b | BHI 0x21a98
00021a92 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021a96 4e 76 |Nv | TRAPV
00021a98 de fc 00 3c | < | ADDA.W #0x3c,A7
00021a9c 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
00021aa0 3d 7c 00 02 ff ee |=| | MOVE.W #0x2,(A6-0x12)
00021aa6 30 39 00 02 93 a4 |09 | MOVE.W 0x293a4,D0
00021aac e1 40 | @ | ASL.W #0x8,D0
00021aae 52 40 |R@ | ADDQ.W #0x1,D0
00021ab0 0c 40 ff ff | @ | CMPI.W #0xffff,D0
00021ab4 63 02 |c | BLS 0x21ab8
00021ab6 4e 4f |NO | TRAP #15
00021ab8 3d 40 ff f4 |=@ | MOVE.W D0,(A6-0xc)
00021abc 48 6e ff ea |Hn | PEA.L (A6-0x16)
00021ac0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00021ac4 2f 08 |/ | MOVE.L A0,-(A7)
00021ac6 42 67 |Bg | CLR.W -(A7)
00021ac8 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00021ace 50 4f |PO | ADDQ.L #0x8,A7
00021ad0 42 57 |BW | CLR.W (A7)
00021ad2 48 6e ff e8 |Hn | PEA.L (A6-0x18)
00021ad6 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00021adc 5c 4f |\O | ADDQ.L #0x6,A7
00021ade 4a 2e ff e8 |J. | TST.B (A6-0x18)
00021ae2 66 2c |f, | BNE 0x21b10
00021ae4 41 fa e6 a6 |A | LEA.L 0x2018c,A0
00021ae8 70 08 |p | MOVEQ.L #0x08,D0
00021aea 2f 20 |/ | MOVE.L -(A0),-(A7)
00021aec 51 c8 ff fc |Q | DBF D0,0x21aea
00021af0 59 4f |YO | SUBQ.L #0x4,A7
00021af2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021af6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021afa 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7)
00021afe 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021b04 50 4f |PO | ADDQ.L #0x8,A7
00021b06 4e b9 00 02 56 96 |N V | JSR 0x25696
00021b0c de fc 00 28 | ( | ADDA.W #0x28,A7
00021b10 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
00021b14 4e 5e |N^ | UNLK A6
00021b16 4e 75 |Nu | RTS
00021b18 ; --------------------------------------------------------------------------------------
00021b18 ; OMSI PASCAL Function
00021b18 ; <LVAR 0x00a 1(rw)>
00021b18 ; <LVAR 0x008 2(r)>
00021b18 ; <LVAR -0x008 @ 2(r)>
00021b18 ; <LVAR -0x00a @>
00021b18 ; <LVAR -0x00c 2(r)>
00021b18 ; <LVAR -0x00e 2(r)>
00021b18 ; <LVAR -0x010 2(w)>
00021b18 ; <LVAR -0x012 2(r)>
00021b18 ; <LVAR -0x014 2(r)>
00021b18 ; <LVAR -0x016 2(w)>
00021b18 ; <LVAR -0x018 2(r)>
00021b18 ; <LVAR -0x01a @ 2(r)>
00021b18 ; --------------------------------------------------------------------------------------
00021b18 4e 56 ff d0 |NV | LINK.W A6,#0xffd0
00021b1c bf d5 | | CMPA.L (A5),A7
00021b1e 62 06 |b | BHI 0x21b26
00021b20 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021b24 4e 76 |Nv | TRAPV
00021b26 de fc 00 16 | | ADDA.W #0x16,A7
00021b2a 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
00021b2e 42 6e ff e6 |Bn | CLR.W (A6-0x1a)
00021b32 42 6e ff e8 |Bn | CLR.W (A6-0x18)
00021b36 3d 7c 00 02 ff ea |=| | MOVE.W #0x2,(A6-0x16)
00021b3c 42 6e ff ec |Bn | CLR.W (A6-0x14)
00021b40 42 6e ff ee |Bn | CLR.W (A6-0x12)
00021b44 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0
00021b48 e1 40 | @ | ASL.W #0x8,D0
00021b4a 3d 40 ff f0 |=@ | MOVE.W D0,(A6-0x10)
00021b4e 42 6e ff f2 |Bn | CLR.W (A6-0xe)
00021b52 42 6e ff f4 |Bn | CLR.W (A6-0xc)
00021b56 48 6e ff e6 |Hn | PEA.L (A6-0x1a)
00021b5a 41 ee ff f8 |A | LEA.L (A6-0x8),A0
00021b5e 2f 08 |/ | MOVE.L A0,-(A7)
00021b60 42 67 |Bg | CLR.W -(A7)
00021b62 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00021b68 50 4f |PO | ADDQ.L #0x8,A7
00021b6a 42 57 |BW | CLR.W (A7)
00021b6c 48 6e ff f6 |Hn | PEA.L (A6-0xa)
00021b70 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00021b76 5c 4f |\O | ADDQ.L #0x6,A7
00021b78 42 2e 00 0a |B. | CLR.B (A6+0xa)
00021b7c 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0
00021b80 0c 40 00 01 | @ | CMPI.W #0x0001,D0
00021b84 66 04 |f | BNE 0x21b8a
00021b86 52 2e 00 0a |R. | ADDQ.B #0x1,(A6+0xa)
00021b8a 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
00021b8e 4e 5e |N^ | UNLK A6
00021b90 4e 75 |Nu | RTS
00021b92 ; --------------------------------------------------------------------------------------
00021b92 ; OMSI PASCAL Function
00021b92 ; <LVAR 0x008 1(r)>
00021b92 ; <LVAR -0x00a 2(r)>
00021b92 ; <LVAR -0x00c 2(r)>
00021b92 ; <LVAR -0x016 2(r)>
00021b92 ; <LVAR -0x018 2(r)>
00021b92 ; <LVAR -0x01a 2(r)>
00021b92 ; <LVAR -0x01c 2(r)>
00021b92 ; <LVAR -0x01e @ 2(r)>
00021b92 ; --------------------------------------------------------------------------------------
00021b92 4e 56 ff 60 |NV ` | LINK.W A6,#0xff60
00021b96 bf d5 | | CMPA.L (A5),A7
00021b98 62 06 |b | BHI 0x21ba0
00021b9a 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021b9e 4e 76 |Nv | TRAPV
00021ba0 de fc 00 82 | | ADDA.W #0x82,A7
00021ba4 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021ba8 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021bae 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3
00021bb4 49 ee ff e4 |I | LEA.L (A6-0x1c),A4
00021bb8 74 01 |t | MOVEQ.L #0x01,D2
00021bba 7a 14 |z | MOVEQ.L #0x14,D5
00021bbc 4a 2e 00 08 |J. | TST.B (A6+0x8)
00021bc0 66 0a |f | BNE 0x21bcc
00021bc2 48 6e ff e2 |Hn | PEA.L (A6-0x1e)
00021bc6 4e ba fe c2 |N | JSR 0x21a8a
00021bca 60 08 |` | BRA 0x21bd4
00021bcc 48 6e ff e2 |Hn | PEA.L (A6-0x1e)
00021bd0 4e ba fd be |N | JSR 0x21990
00021bd4 58 4f |XO | ADDQ.L #0x4,A7
00021bd6 7e 00 |~ | MOVEQ.L #0x00,D7
00021bd8 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7
00021bde 63 02 |c | BLS 0x21be2
00021be0 4e 4f |NO | TRAP #15
00021be2 28 07 |( | MOVE.L D7,D4
00021be4 76 05 |v | MOVEQ.L #0x05,D3
00021be6 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
00021bec 41 fa f8 0c |A | LEA.L 0x213fa,A0
00021bf0 5d 4f |]O | SUBQ.L #0x6,A7
00021bf2 22 4f |"O | MOVEA.L A7,A1
00021bf4 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0
00021bf8 70 04 |p | MOVEQ.L #0x04,D0
00021bfa 12 d8 | | MOVE.B (A0)+,(A1)+
00021bfc 51 c8 ff fc |Q | DBF D0,0x21bfa
00021c00 51 4f |QO | SUBQ.L #0x8,A7
00021c02 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021c06 3f 02 |? | MOVE.W D2,-(A7)
00021c08 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00021c0c 4e 92 |N | JSR (A2)
00021c0e 58 4f |XO | ADDQ.L #0x4,A7
00021c10 0c 87 00 00 00 0a | | CMPI.L #0x0000000a,D7
00021c16 63 02 |c | BLS 0x21c1a
00021c18 4e 4f |NO | TRAP #15
00021c1a 20 07 | | MOVE.L D7,D0
00021c1c e3 80 | | ASL.L #0x1,D0
00021c1e 42 81 |B | CLR.L D1
00021c20 32 36 08 e2 |26 | MOVE.W (A6+D0.L-#0x1e),D1
00021c24 2f 01 |/ | MOVE.L D1,-(A7)
00021c26 48 78 00 04 |Hx | PEA.L 0x4
00021c2a 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00021c30 50 4f |PO | ADDQ.L #0x8,A7
00021c32 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021c38 50 4f |PO | ADDQ.L #0x8,A7
00021c3a 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00021c40 de fc 00 0a | | ADDA.W #0xa,A7
00021c44 52 87 |R | ADDQ.L #0x1,D7
00021c46 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7
00021c4c 6f 8a |o | BLE 0x21bd8
00021c4e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00021c54 30 2e ff e2 |0. | MOVE.W (A6-0x1e),D0
00021c58 02 40 80 00 | @ | ANDI.W #0x8000,D0
00021c5c 67 28 |g( | BEQ 0x21c86
00021c5e 9e fc 00 12 | | SUBA.W #0x12,A7
00021c62 20 4f | O | MOVEA.L A7,A0
00021c64 43 fa e5 5c |C \ | LEA.L 0x201c2,A1
00021c68 70 10 |p | MOVEQ.L #0x10,D0
00021c6a 10 d9 | | MOVE.B (A1)+,(A0)+
00021c6c 51 c8 ff fc |Q | DBF D0,0x21c6a
00021c70 59 4f |YO | SUBQ.L #0x4,A7
00021c72 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021c76 3f 02 |? | MOVE.W D2,-(A7)
00021c78 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00021c7c 4e 92 |N | JSR (A2)
00021c7e 50 4f |PO | ADDQ.L #0x8,A7
00021c80 4e 93 |N | JSR (A3)
00021c82 de fc 00 16 | | ADDA.W #0x16,A7
00021c86 30 2e ff e2 |0. | MOVE.W (A6-0x1e),D0
00021c8a 02 40 40 00 | @@ | ANDI.W #0x4000,D0
00021c8e 67 22 |g" | BEQ 0x21cb2
00021c90 41 fa e5 50 |A P | LEA.L 0x201e2,A0
00021c94 70 06 |p | MOVEQ.L #0x06,D0
00021c96 3f 20 |? | MOVE.W -(A0),-(A7)
00021c98 51 c8 ff fc |Q | DBF D0,0x21c96
00021c9c 59 4f |YO | SUBQ.L #0x4,A7
00021c9e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021ca2 3f 02 |? | MOVE.W D2,-(A7)
00021ca4 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00021ca8 4e 92 |N | JSR (A2)
00021caa 50 4f |PO | ADDQ.L #0x8,A7
00021cac 4e 93 |N | JSR (A3)
00021cae de fc 00 12 | | ADDA.W #0x12,A7
00021cb2 30 2e ff e2 |0. | MOVE.W (A6-0x1e),D0
00021cb6 02 40 08 00 | @ | ANDI.W #0x0800,D0
00021cba 66 22 |f" | BNE 0x21cde
00021cbc 41 fa e5 3a |A : | LEA.L 0x201f8,A0
00021cc0 70 0a |p | MOVEQ.L #0x0a,D0
00021cc2 3f 20 |? | MOVE.W -(A0),-(A7)
00021cc4 51 c8 ff fc |Q | DBF D0,0x21cc2
00021cc8 59 4f |YO | SUBQ.L #0x4,A7
00021cca 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021cce 3f 02 |? | MOVE.W D2,-(A7)
00021cd0 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
00021cd4 4e 92 |N | JSR (A2)
00021cd6 50 4f |PO | ADDQ.L #0x8,A7
00021cd8 4e 93 |N | JSR (A3)
00021cda de fc 00 1a | | ADDA.W #0x1a,A7
00021cde 30 2e ff e2 |0. | MOVE.W (A6-0x1e),D0
00021ce2 02 40 00 80 | @ | ANDI.W #0x0080,D0
00021ce6 66 22 |f" | BNE 0x21d0a
00021ce8 41 fa e5 20 |A | LEA.L 0x2020a,A0
00021cec 70 08 |p | MOVEQ.L #0x08,D0
00021cee 3f 20 |? | MOVE.W -(A0),-(A7)
00021cf0 51 c8 ff fc |Q | DBF D0,0x21cee
00021cf4 59 4f |YO | SUBQ.L #0x4,A7
00021cf6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021cfa 3f 02 |? | MOVE.W D2,-(A7)
00021cfc 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00021d00 4e 92 |N | JSR (A2)
00021d02 50 4f |PO | ADDQ.L #0x8,A7
00021d04 4e 93 |N | JSR (A3)
00021d06 de fc 00 16 | | ADDA.W #0x16,A7
00021d0a 30 14 |0 | MOVE.W (A4),D0
00021d0c 02 40 80 00 | @ | ANDI.W #0x8000,D0
00021d10 67 28 |g( | BEQ 0x21d3a
00021d12 9e fc 00 0a | | SUBA.W #0xa,A7
00021d16 20 4f | O | MOVEA.L A7,A0
00021d18 43 fa e4 f0 |C | LEA.L 0x2020a,A1
00021d1c 70 08 |p | MOVEQ.L #0x08,D0
00021d1e 10 d9 | | MOVE.B (A1)+,(A0)+
00021d20 51 c8 ff fc |Q | DBF D0,0x21d1e
00021d24 59 4f |YO | SUBQ.L #0x4,A7
00021d26 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021d2a 3f 02 |? | MOVE.W D2,-(A7)
00021d2c 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
00021d30 4e 92 |N | JSR (A2)
00021d32 50 4f |PO | ADDQ.L #0x8,A7
00021d34 4e 93 |N | JSR (A3)
00021d36 de fc 00 0e | | ADDA.W #0xe,A7
00021d3a 30 14 |0 | MOVE.W (A4),D0
00021d3c 02 40 40 00 | @@ | ANDI.W #0x4000,D0
00021d40 67 28 |g( | BEQ 0x21d6a
00021d42 9e fc 00 12 | | SUBA.W #0x12,A7
00021d46 20 4f | O | MOVEA.L A7,A0
00021d48 43 fa e4 ca |C | LEA.L 0x20214,A1
00021d4c 70 10 |p | MOVEQ.L #0x10,D0
00021d4e 10 d9 | | MOVE.B (A1)+,(A0)+
00021d50 51 c8 ff fc |Q | DBF D0,0x21d4e
00021d54 59 4f |YO | SUBQ.L #0x4,A7
00021d56 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021d5a 3f 02 |? | MOVE.W D2,-(A7)
00021d5c 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00021d60 4e 92 |N | JSR (A2)
00021d62 50 4f |PO | ADDQ.L #0x8,A7
00021d64 4e 93 |N | JSR (A3)
00021d66 de fc 00 16 | | ADDA.W #0x16,A7
00021d6a 30 14 |0 | MOVE.W (A4),D0
00021d6c 02 40 10 00 | @ | ANDI.W #0x1000,D0
00021d70 67 22 |g" | BEQ 0x21d94
00021d72 41 fa e4 c4 |A | LEA.L 0x20238,A0
00021d76 70 08 |p | MOVEQ.L #0x08,D0
00021d78 3f 20 |? | MOVE.W -(A0),-(A7)
00021d7a 51 c8 ff fc |Q | DBF D0,0x21d78
00021d7e 59 4f |YO | SUBQ.L #0x4,A7
00021d80 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021d84 3f 02 |? | MOVE.W D2,-(A7)
00021d86 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00021d8a 4e 92 |N | JSR (A2)
00021d8c 50 4f |PO | ADDQ.L #0x8,A7
00021d8e 4e 93 |N | JSR (A3)
00021d90 de fc 00 16 | | ADDA.W #0x16,A7
00021d94 30 14 |0 | MOVE.W (A4),D0
00021d96 02 40 08 00 | @ | ANDI.W #0x0800,D0
00021d9a 67 26 |g& | BEQ 0x21dc2
00021d9c 9e c5 | | SUBA.W D5,A7
00021d9e 20 4f | O | MOVEA.L A7,A0
00021da0 43 fa e4 96 |C | LEA.L 0x20238,A1
00021da4 70 12 |p | MOVEQ.L #0x12,D0
00021da6 10 d9 | | MOVE.B (A1)+,(A0)+
00021da8 51 c8 ff fc |Q | DBF D0,0x21da6
00021dac 59 4f |YO | SUBQ.L #0x4,A7
00021dae 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021db2 3f 02 |? | MOVE.W D2,-(A7)
00021db4 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
00021db8 4e 92 |N | JSR (A2)
00021dba 50 4f |PO | ADDQ.L #0x8,A7
00021dbc 4e 93 |N | JSR (A3)
00021dbe de fc 00 18 | | ADDA.W #0x18,A7
00021dc2 30 14 |0 | MOVE.W (A4),D0
00021dc4 02 40 04 00 | @ | ANDI.W #0x0400,D0
00021dc8 67 28 |g( | BEQ 0x21df2
00021dca 9e fc 00 0e | | SUBA.W #0xe,A7
00021dce 20 4f | O | MOVEA.L A7,A0
00021dd0 43 fa e4 7a |C z | LEA.L 0x2024c,A1
00021dd4 70 0c |p | MOVEQ.L #0x0c,D0
00021dd6 10 d9 | | MOVE.B (A1)+,(A0)+
00021dd8 51 c8 ff fc |Q | DBF D0,0x21dd6
00021ddc 59 4f |YO | SUBQ.L #0x4,A7
00021dde 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021de2 3f 02 |? | MOVE.W D2,-(A7)
00021de4 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7)
00021de8 4e 92 |N | JSR (A2)
00021dea 50 4f |PO | ADDQ.L #0x8,A7
00021dec 4e 93 |N | JSR (A3)
00021dee de fc 00 12 | | ADDA.W #0x12,A7
00021df2 30 14 |0 | MOVE.W (A4),D0
00021df4 02 40 02 00 | @ | ANDI.W #0x0200,D0
00021df8 67 26 |g& | BEQ 0x21e20
00021dfa 9e fc 00 10 | | SUBA.W #0x10,A7
00021dfe 20 4f | O | MOVEA.L A7,A0
00021e00 43 fa e4 58 |C X | LEA.L 0x2025a,A1
00021e04 70 0e |p | MOVEQ.L #0x0e,D0
00021e06 10 d9 | | MOVE.B (A1)+,(A0)+
00021e08 51 c8 ff fc |Q | DBF D0,0x21e06
00021e0c 59 4f |YO | SUBQ.L #0x4,A7
00021e0e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021e12 3f 02 |? | MOVE.W D2,-(A7)
00021e14 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00021e18 4e 92 |N | JSR (A2)
00021e1a 50 4f |PO | ADDQ.L #0x8,A7
00021e1c 4e 93 |N | JSR (A3)
00021e1e de c5 | | ADDA.W D5,A7
00021e20 30 14 |0 | MOVE.W (A4),D0
00021e22 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
00021e26 66 26 |f& | BNE 0x21e4e
00021e28 9e fc 00 10 | | SUBA.W #0x10,A7
00021e2c 20 4f | O | MOVEA.L A7,A0
00021e2e 43 fa e4 3a |C : | LEA.L 0x2026a,A1
00021e32 70 0e |p | MOVEQ.L #0x0e,D0
00021e34 10 d9 | | MOVE.B (A1)+,(A0)+
00021e36 51 c8 ff fc |Q | DBF D0,0x21e34
00021e3a 59 4f |YO | SUBQ.L #0x4,A7
00021e3c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021e40 3f 02 |? | MOVE.W D2,-(A7)
00021e42 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00021e46 4e 92 |N | JSR (A2)
00021e48 50 4f |PO | ADDQ.L #0x8,A7
00021e4a 4e 93 |N | JSR (A3)
00021e4c de c5 | | ADDA.W D5,A7
00021e4e 30 14 |0 | MOVE.W (A4),D0
00021e50 02 40 00 04 | @ | ANDI.W #0x0004,D0
00021e54 67 28 |g( | BEQ 0x21e7e
00021e56 9e fc 00 1e | | SUBA.W #0x1e,A7
00021e5a 20 4f | O | MOVEA.L A7,A0
00021e5c 43 fa e4 1c |C | LEA.L 0x2027a,A1
00021e60 70 1c |p | MOVEQ.L #0x1c,D0
00021e62 10 d9 | | MOVE.B (A1)+,(A0)+
00021e64 51 c8 ff fc |Q | DBF D0,0x21e62
00021e68 59 4f |YO | SUBQ.L #0x4,A7
00021e6a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021e6e 3f 02 |? | MOVE.W D2,-(A7)
00021e70 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7)
00021e74 4e 92 |N | JSR (A2)
00021e76 50 4f |PO | ADDQ.L #0x8,A7
00021e78 4e 93 |N | JSR (A3)
00021e7a de fc 00 22 | " | ADDA.W #0x22,A7
00021e7e 30 2e ff e6 |0. | MOVE.W (A6-0x1a),D0
00021e82 02 40 20 00 | @ | ANDI.W #0x2000,D0
00021e86 67 28 |g( | BEQ 0x21eb0
00021e88 9e fc 00 18 | | SUBA.W #0x18,A7
00021e8c 20 4f | O | MOVEA.L A7,A0
00021e8e 43 fa e4 08 |C | LEA.L 0x20298,A1
00021e92 70 16 |p | MOVEQ.L #0x16,D0
00021e94 10 d9 | | MOVE.B (A1)+,(A0)+
00021e96 51 c8 ff fc |Q | DBF D0,0x21e94
00021e9a 59 4f |YO | SUBQ.L #0x4,A7
00021e9c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021ea0 3f 02 |? | MOVE.W D2,-(A7)
00021ea2 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00021ea6 4e 92 |N | JSR (A2)
00021ea8 50 4f |PO | ADDQ.L #0x8,A7
00021eaa 4e 93 |N | JSR (A3)
00021eac de fc 00 1c | | ADDA.W #0x1c,A7
00021eb0 30 2e ff e6 |0. | MOVE.W (A6-0x1a),D0
00021eb4 02 40 10 00 | @ | ANDI.W #0x1000,D0
00021eb8 66 22 |f" | BNE 0x21edc
00021eba 41 fa e4 06 |A | LEA.L 0x202c2,A0
00021ebe 70 08 |p | MOVEQ.L #0x08,D0
00021ec0 3f 20 |? | MOVE.W -(A0),-(A7)
00021ec2 51 c8 ff fc |Q | DBF D0,0x21ec0
00021ec6 59 4f |YO | SUBQ.L #0x4,A7
00021ec8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021ecc 3f 02 |? | MOVE.W D2,-(A7)
00021ece 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00021ed2 4e 92 |N | JSR (A2)
00021ed4 50 4f |PO | ADDQ.L #0x8,A7
00021ed6 4e 93 |N | JSR (A3)
00021ed8 de fc 00 16 | | ADDA.W #0x16,A7
00021edc 30 2e ff e6 |0. | MOVE.W (A6-0x1a),D0
00021ee0 02 40 08 00 | @ | ANDI.W #0x0800,D0
00021ee4 67 22 |g" | BEQ 0x21f08
00021ee6 2f 3a e3 e2 |/: | MOVE.L 0x202ca,-(A7)
00021eea 2f 3a e3 da |/: | MOVE.L 0x202c6,-(A7)
00021eee 2f 3a e3 d2 |/: | MOVE.L 0x202c2,-(A7)
00021ef2 59 4f |YO | SUBQ.L #0x4,A7
00021ef4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021ef8 3f 02 |? | MOVE.W D2,-(A7)
00021efa 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
00021efe 4e 92 |N | JSR (A2)
00021f00 50 4f |PO | ADDQ.L #0x8,A7
00021f02 4e 93 |N | JSR (A3)
00021f04 de fc 00 10 | | ADDA.W #0x10,A7
00021f08 30 2e ff e6 |0. | MOVE.W (A6-0x1a),D0
00021f0c 02 40 04 00 | @ | ANDI.W #0x0400,D0
00021f10 67 22 |g" | BEQ 0x21f34
00021f12 41 fa e3 d0 |A | LEA.L 0x202e4,A0
00021f16 70 0a |p | MOVEQ.L #0x0a,D0
00021f18 3f 20 |? | MOVE.W -(A0),-(A7)
00021f1a 51 c8 ff fc |Q | DBF D0,0x21f18
00021f1e 59 4f |YO | SUBQ.L #0x4,A7
00021f20 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021f24 3f 02 |? | MOVE.W D2,-(A7)
00021f26 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
00021f2a 4e 92 |N | JSR (A2)
00021f2c 50 4f |PO | ADDQ.L #0x8,A7
00021f2e 4e 93 |N | JSR (A3)
00021f30 de fc 00 1a | | ADDA.W #0x1a,A7
00021f34 30 2e ff e6 |0. | MOVE.W (A6-0x1a),D0
00021f38 02 40 01 00 | @ | ANDI.W #0x0100,D0
00021f3c 66 28 |f( | BNE 0x21f66
00021f3e 9e fc 00 12 | | SUBA.W #0x12,A7
00021f42 20 4f | O | MOVEA.L A7,A0
00021f44 43 fa e3 9e |C | LEA.L 0x202e4,A1
00021f48 70 10 |p | MOVEQ.L #0x10,D0
00021f4a 10 d9 | | MOVE.B (A1)+,(A0)+
00021f4c 51 c8 ff fc |Q | DBF D0,0x21f4a
00021f50 59 4f |YO | SUBQ.L #0x4,A7
00021f52 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021f56 3f 02 |? | MOVE.W D2,-(A7)
00021f58 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00021f5c 4e 92 |N | JSR (A2)
00021f5e 50 4f |PO | ADDQ.L #0x8,A7
00021f60 4e 93 |N | JSR (A3)
00021f62 de fc 00 16 | | ADDA.W #0x16,A7
00021f66 30 2e ff e6 |0. | MOVE.W (A6-0x1a),D0
00021f6a 02 40 00 80 | @ | ANDI.W #0x0080,D0
00021f6e 66 26 |f& | BNE 0x21f96
00021f70 9e fc 00 10 | | SUBA.W #0x10,A7
00021f74 20 4f | O | MOVEA.L A7,A0
00021f76 43 fa e3 7e |C ~ | LEA.L 0x202f6,A1
00021f7a 70 0e |p | MOVEQ.L #0x0e,D0
00021f7c 10 d9 | | MOVE.B (A1)+,(A0)+
00021f7e 51 c8 ff fc |Q | DBF D0,0x21f7c
00021f82 59 4f |YO | SUBQ.L #0x4,A7
00021f84 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021f88 3f 02 |? | MOVE.W D2,-(A7)
00021f8a 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00021f8e 4e 92 |N | JSR (A2)
00021f90 50 4f |PO | ADDQ.L #0x8,A7
00021f92 4e 93 |N | JSR (A3)
00021f94 de c5 | | ADDA.W D5,A7
00021f96 30 2e ff e6 |0. | MOVE.W (A6-0x1a),D0
00021f9a 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
00021f9e 66 24 |f$ | BNE 0x21fc4
00021fa0 2f 3a e3 70 |/: p | MOVE.L 0x20312,-(A7)
00021fa4 2f 3a e3 68 |/: h | MOVE.L 0x2030e,-(A7)
00021fa8 2f 3a e3 60 |/: ` | MOVE.L 0x2030a,-(A7)
00021fac 2f 3a e3 58 |/: X | MOVE.L 0x20306,-(A7)
00021fb0 59 4f |YO | SUBQ.L #0x4,A7
00021fb2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021fb6 3f 02 |? | MOVE.W D2,-(A7)
00021fb8 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
00021fbc 4e 92 |N | JSR (A2)
00021fbe 50 4f |PO | ADDQ.L #0x8,A7
00021fc0 4e 93 |N | JSR (A3)
00021fc2 de c5 | | ADDA.W D5,A7
00021fc4 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0
00021fc8 02 40 80 00 | @ | ANDI.W #0x8000,D0
00021fcc 67 24 |g$ | BEQ 0x21ff2
00021fce 2f 3a e3 52 |/: R | MOVE.L 0x20322,-(A7)
00021fd2 2f 3a e3 4a |/: J | MOVE.L 0x2031e,-(A7)
00021fd6 2f 3a e3 42 |/: B | MOVE.L 0x2031a,-(A7)
00021fda 2f 3a e3 3a |/: : | MOVE.L 0x20316,-(A7)
00021fde 59 4f |YO | SUBQ.L #0x4,A7
00021fe0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021fe4 3f 02 |? | MOVE.W D2,-(A7)
00021fe6 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
00021fea 4e 92 |N | JSR (A2)
00021fec 50 4f |PO | ADDQ.L #0x8,A7
00021fee 4e 93 |N | JSR (A3)
00021ff0 de c5 | | ADDA.W D5,A7
00021ff2 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0
00021ff6 02 40 40 00 | @@ | ANDI.W #0x4000,D0
00021ffa 67 22 |g" | BEQ 0x2201e
00021ffc 3f 3a e3 2c |?: , | MOVE.W 0x2032a,-(A7)
00022000 3f 3a e3 26 |?: & | MOVE.W 0x20328,-(A7)
00022004 3f 3a e3 20 |?: | MOVE.W 0x20326,-(A7)
00022008 59 4f |YO | SUBQ.L #0x4,A7
0002200a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002200e 3f 02 |? | MOVE.W D2,-(A7)
00022010 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
00022014 4e 92 |N | JSR (A2)
00022016 50 4f |PO | ADDQ.L #0x8,A7
00022018 4e 93 |N | JSR (A3)
0002201a de fc 00 0a | | ADDA.W #0xa,A7
0002201e 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0
00022022 02 40 20 00 | @ | ANDI.W #0x2000,D0
00022026 67 20 |g | BEQ 0x22048
00022028 41 fa e3 16 |A | LEA.L 0x20340,A0
0002202c 70 04 |p | MOVEQ.L #0x04,D0
0002202e 2f 20 |/ | MOVE.L -(A0),-(A7)
00022030 51 c8 ff fc |Q | DBF D0,0x2202e
00022034 59 4f |YO | SUBQ.L #0x4,A7
00022036 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002203a 3f 02 |? | MOVE.W D2,-(A7)
0002203c 3f 05 |? | MOVE.W D5,-(A7)
0002203e 4e 92 |N | JSR (A2)
00022040 50 4f |PO | ADDQ.L #0x8,A7
00022042 4e 93 |N | JSR (A3)
00022044 de fc 00 18 | | ADDA.W #0x18,A7
00022048 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0
0002204c 02 40 10 00 | @ | ANDI.W #0x1000,D0
00022050 67 22 |g" | BEQ 0x22074
00022052 41 fa e2 fe |A | LEA.L 0x20352,A0
00022056 70 08 |p | MOVEQ.L #0x08,D0
00022058 3f 20 |? | MOVE.W -(A0),-(A7)
0002205a 51 c8 ff fc |Q | DBF D0,0x22058
0002205e 59 4f |YO | SUBQ.L #0x4,A7
00022060 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022064 3f 02 |? | MOVE.W D2,-(A7)
00022066 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
0002206a 4e 92 |N | JSR (A2)
0002206c 50 4f |PO | ADDQ.L #0x8,A7
0002206e 4e 93 |N | JSR (A3)
00022070 de fc 00 16 | | ADDA.W #0x16,A7
00022074 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0
00022078 02 40 08 00 | @ | ANDI.W #0x0800,D0
0002207c 67 24 |g$ | BEQ 0x220a2
0002207e 2f 3a e2 de |/: | MOVE.L 0x2035e,-(A7)
00022082 2f 3a e2 d6 |/: | MOVE.L 0x2035a,-(A7)
00022086 2f 3a e2 ce |/: | MOVE.L 0x20356,-(A7)
0002208a 2f 3a e2 c6 |/: | MOVE.L 0x20352,-(A7)
0002208e 59 4f |YO | SUBQ.L #0x4,A7
00022090 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022094 3f 02 |? | MOVE.W D2,-(A7)
00022096 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
0002209a 4e 92 |N | JSR (A2)
0002209c 50 4f |PO | ADDQ.L #0x8,A7
0002209e 4e 93 |N | JSR (A3)
000220a0 de c5 | | ADDA.W D5,A7
000220a2 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0
000220a6 02 40 04 00 | @ | ANDI.W #0x0400,D0
000220aa 67 28 |g( | BEQ 0x220d4
000220ac 9e fc 00 16 | | SUBA.W #0x16,A7
000220b0 20 4f | O | MOVEA.L A7,A0
000220b2 43 fa e2 ae |C | LEA.L 0x20362,A1
000220b6 70 14 |p | MOVEQ.L #0x14,D0
000220b8 10 d9 | | MOVE.B (A1)+,(A0)+
000220ba 51 c8 ff fc |Q | DBF D0,0x220b8
000220be 59 4f |YO | SUBQ.L #0x4,A7
000220c0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000220c4 3f 02 |? | MOVE.W D2,-(A7)
000220c6 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
000220ca 4e 92 |N | JSR (A2)
000220cc 50 4f |PO | ADDQ.L #0x8,A7
000220ce 4e 93 |N | JSR (A3)
000220d0 de fc 00 1a | | ADDA.W #0x1a,A7
000220d4 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0
000220d8 02 40 02 00 | @ | ANDI.W #0x0200,D0
000220dc 67 22 |g" | BEQ 0x22100
000220de 41 fa e2 ae |A | LEA.L 0x2038e,A0
000220e2 70 0a |p | MOVEQ.L #0x0a,D0
000220e4 3f 20 |? | MOVE.W -(A0),-(A7)
000220e6 51 c8 ff fc |Q | DBF D0,0x220e4
000220ea 59 4f |YO | SUBQ.L #0x4,A7
000220ec 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000220f0 3f 02 |? | MOVE.W D2,-(A7)
000220f2 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
000220f6 4e 92 |N | JSR (A2)
000220f8 50 4f |PO | ADDQ.L #0x8,A7
000220fa 4e 93 |N | JSR (A3)
000220fc de fc 00 1a | | ADDA.W #0x1a,A7
00022100 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0
00022104 02 40 01 00 | @ | ANDI.W #0x0100,D0
00022108 67 24 |g$ | BEQ 0x2212e
0002210a 2f 3a e2 8e |/: | MOVE.L 0x2039a,-(A7)
0002210e 2f 3a e2 86 |/: | MOVE.L 0x20396,-(A7)
00022112 2f 3a e2 7e |/: ~ | MOVE.L 0x20392,-(A7)
00022116 2f 3a e2 76 |/: v | MOVE.L 0x2038e,-(A7)
0002211a 59 4f |YO | SUBQ.L #0x4,A7
0002211c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022120 3f 02 |? | MOVE.W D2,-(A7)
00022122 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
00022126 4e 92 |N | JSR (A2)
00022128 50 4f |PO | ADDQ.L #0x8,A7
0002212a 4e 93 |N | JSR (A3)
0002212c de c5 | | ADDA.W D5,A7
0002212e 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0
00022132 02 40 00 80 | @ | ANDI.W #0x0080,D0
00022136 67 20 |g | BEQ 0x22158
00022138 41 fa e2 78 |A x | LEA.L 0x203b2,A0
0002213c 70 04 |p | MOVEQ.L #0x04,D0
0002213e 2f 20 |/ | MOVE.L -(A0),-(A7)
00022140 51 c8 ff fc |Q | DBF D0,0x2213e
00022144 59 4f |YO | SUBQ.L #0x4,A7
00022146 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002214a 3f 02 |? | MOVE.W D2,-(A7)
0002214c 3f 05 |? | MOVE.W D5,-(A7)
0002214e 4e 92 |N | JSR (A2)
00022150 50 4f |PO | ADDQ.L #0x8,A7
00022152 4e 93 |N | JSR (A3)
00022154 de fc 00 18 | | ADDA.W #0x18,A7
00022158 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0
0002215c 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
00022160 67 22 |g" | BEQ 0x22184
00022162 41 fa e2 5c |A \ | LEA.L 0x203c0,A0
00022166 70 06 |p | MOVEQ.L #0x06,D0
00022168 3f 20 |? | MOVE.W -(A0),-(A7)
0002216a 51 c8 ff fc |Q | DBF D0,0x22168
0002216e 59 4f |YO | SUBQ.L #0x4,A7
00022170 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022174 3f 02 |? | MOVE.W D2,-(A7)
00022176 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
0002217a 4e 92 |N | JSR (A2)
0002217c 50 4f |PO | ADDQ.L #0x8,A7
0002217e 4e 93 |N | JSR (A3)
00022180 de fc 00 12 | | ADDA.W #0x12,A7
00022184 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0
00022188 02 40 00 10 | @ | ANDI.W #0x0010,D0
0002218c 67 22 |g" | BEQ 0x221b0
0002218e 2f 3a e2 38 |/: 8 | MOVE.L 0x203c8,-(A7)
00022192 2f 3a e2 30 |/: 0 | MOVE.L 0x203c4,-(A7)
00022196 2f 3a e2 28 |/: ( | MOVE.L 0x203c0,-(A7)
0002219a 59 4f |YO | SUBQ.L #0x4,A7
0002219c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000221a0 3f 02 |? | MOVE.W D2,-(A7)
000221a2 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
000221a6 4e 92 |N | JSR (A2)
000221a8 50 4f |PO | ADDQ.L #0x8,A7
000221aa 4e 93 |N | JSR (A3)
000221ac de fc 00 10 | | ADDA.W #0x10,A7
000221b0 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0
000221b4 02 40 00 04 | @ | ANDI.W #0x0004,D0
000221b8 67 28 |g( | BEQ 0x221e2
000221ba 9e fc 00 1e | | SUBA.W #0x1e,A7
000221be 20 4f | O | MOVEA.L A7,A0
000221c0 43 fa e2 0a |C | LEA.L 0x203cc,A1
000221c4 70 1c |p | MOVEQ.L #0x1c,D0
000221c6 10 d9 | | MOVE.B (A1)+,(A0)+
000221c8 51 c8 ff fc |Q | DBF D0,0x221c6
000221cc 59 4f |YO | SUBQ.L #0x4,A7
000221ce 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000221d2 3f 02 |? | MOVE.W D2,-(A7)
000221d4 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7)
000221d8 4e 92 |N | JSR (A2)
000221da 50 4f |PO | ADDQ.L #0x8,A7
000221dc 4e 93 |N | JSR (A3)
000221de de fc 00 22 | " | ADDA.W #0x22,A7
000221e2 30 2e ff e8 |0. | MOVE.W (A6-0x18),D0
000221e6 c0 42 | B | AND.W D2,D0
000221e8 67 24 |g$ | BEQ 0x2220e
000221ea 2f 3a e2 0a |/: | MOVE.L 0x203f6,-(A7)
000221ee 2f 3a e2 02 |/: | MOVE.L 0x203f2,-(A7)
000221f2 2f 3a e1 fa |/: | MOVE.L 0x203ee,-(A7)
000221f6 2f 3a e1 f2 |/: | MOVE.L 0x203ea,-(A7)
000221fa 59 4f |YO | SUBQ.L #0x4,A7
000221fc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022200 3f 02 |? | MOVE.W D2,-(A7)
00022202 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
00022206 4e 92 |N | JSR (A2)
00022208 50 4f |PO | ADDQ.L #0x8,A7
0002220a 4e 93 |N | JSR (A3)
0002220c de c5 | | ADDA.W D5,A7
0002220e 30 2e ff ea |0. | MOVE.W (A6-0x16),D0
00022212 02 40 80 00 | @ | ANDI.W #0x8000,D0
00022216 67 28 |g( | BEQ 0x22240
00022218 9e fc 00 0a | | SUBA.W #0xa,A7
0002221c 20 4f | O | MOVEA.L A7,A0
0002221e 43 fa e1 da |C | LEA.L 0x203fa,A1
00022222 70 08 |p | MOVEQ.L #0x08,D0
00022224 10 d9 | | MOVE.B (A1)+,(A0)+
00022226 51 c8 ff fc |Q | DBF D0,0x22224
0002222a 59 4f |YO | SUBQ.L #0x4,A7
0002222c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022230 3f 02 |? | MOVE.W D2,-(A7)
00022232 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
00022236 4e 92 |N | JSR (A2)
00022238 50 4f |PO | ADDQ.L #0x8,A7
0002223a 4e 93 |N | JSR (A3)
0002223c de fc 00 0e | | ADDA.W #0xe,A7
00022240 30 2e ff ea |0. | MOVE.W (A6-0x16),D0
00022244 02 40 40 00 | @@ | ANDI.W #0x4000,D0
00022248 67 26 |g& | BEQ 0x22270
0002224a 9e fc 00 10 | | SUBA.W #0x10,A7
0002224e 20 4f | O | MOVEA.L A7,A0
00022250 43 fa e1 b2 |C | LEA.L 0x20404,A1
00022254 70 0e |p | MOVEQ.L #0x0e,D0
00022256 10 d9 | | MOVE.B (A1)+,(A0)+
00022258 51 c8 ff fc |Q | DBF D0,0x22256
0002225c 59 4f |YO | SUBQ.L #0x4,A7
0002225e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022262 3f 02 |? | MOVE.W D2,-(A7)
00022264 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00022268 4e 92 |N | JSR (A2)
0002226a 50 4f |PO | ADDQ.L #0x8,A7
0002226c 4e 93 |N | JSR (A3)
0002226e de c5 | | ADDA.W D5,A7
00022270 30 2e ff ea |0. | MOVE.W (A6-0x16),D0
00022274 02 40 10 00 | @ | ANDI.W #0x1000,D0
00022278 67 28 |g( | BEQ 0x222a2
0002227a 9e fc 00 3e | > | SUBA.W #0x3e,A7
0002227e 20 4f | O | MOVEA.L A7,A0
00022280 43 fa e1 92 |C | LEA.L 0x20414,A1
00022284 70 3c |p< | MOVEQ.L #0x3c,D0
00022286 10 d9 | | MOVE.B (A1)+,(A0)+
00022288 51 c8 ff fc |Q | DBF D0,0x22286
0002228c 59 4f |YO | SUBQ.L #0x4,A7
0002228e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022292 3f 02 |? | MOVE.W D2,-(A7)
00022294 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7)
00022298 4e 92 |N | JSR (A2)
0002229a 50 4f |PO | ADDQ.L #0x8,A7
0002229c 4e 93 |N | JSR (A3)
0002229e de fc 00 42 | B | ADDA.W #0x42,A7
000222a2 30 2e ff ea |0. | MOVE.W (A6-0x16),D0
000222a6 02 40 00 80 | @ | ANDI.W #0x0080,D0
000222aa 67 22 |g" | BEQ 0x222ce
000222ac 2f 3a e1 ac |/: | MOVE.L 0x2045a,-(A7)
000222b0 2f 3a e1 a4 |/: | MOVE.L 0x20456,-(A7)
000222b4 2f 3a e1 9c |/: | MOVE.L 0x20452,-(A7)
000222b8 59 4f |YO | SUBQ.L #0x4,A7
000222ba 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000222be 3f 02 |? | MOVE.W D2,-(A7)
000222c0 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
000222c4 4e 92 |N | JSR (A2)
000222c6 50 4f |PO | ADDQ.L #0x8,A7
000222c8 4e 93 |N | JSR (A3)
000222ca de fc 00 10 | | ADDA.W #0x10,A7
000222ce 41 fa e4 9a |A | LEA.L 0x2076a,A0
000222d2 70 08 |p | MOVEQ.L #0x08,D0
000222d4 2f 20 |/ | MOVE.L -(A0),-(A7)
000222d6 51 c8 ff fc |Q | DBF D0,0x222d4
000222da 59 4f |YO | SUBQ.L #0x4,A7
000222dc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000222e0 3f 02 |? | MOVE.W D2,-(A7)
000222e2 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7)
000222e6 4e 92 |N | JSR (A2)
000222e8 50 4f |PO | ADDQ.L #0x8,A7
000222ea 4e 93 |N | JSR (A3)
000222ec de fc 00 28 | ( | ADDA.W #0x28,A7
000222f0 30 2e ff f4 |0. | MOVE.W (A6-0xc),D0
000222f4 c0 42 | B | AND.W D2,D0
000222f6 67 2a |g* | BEQ 0x22322
000222f8 9e fc 00 1c | | SUBA.W #0x1c,A7
000222fc 20 4f | O | MOVEA.L A7,A0
000222fe 43 fa e4 6a |C j | LEA.L 0x2076a,A1
00022302 70 1a |p | MOVEQ.L #0x1a,D0
00022304 10 d9 | | MOVE.B (A1)+,(A0)+
00022306 51 c8 ff fc |Q | DBF D0,0x22304
0002230a 59 4f |YO | SUBQ.L #0x4,A7
0002230c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022310 3f 02 |? | MOVE.W D2,-(A7)
00022312 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
00022316 4e 92 |N | JSR (A2)
00022318 50 4f |PO | ADDQ.L #0x8,A7
0002231a 4e 93 |N | JSR (A3)
0002231c de fc 00 20 | | ADDA.W #0x20,A7
00022320 60 28 |`( | BRA 0x2234a
00022322 9e fc 00 20 | | SUBA.W #0x20,A7
00022326 20 4f | O | MOVEA.L A7,A0
00022328 43 fa e4 5c |C \ | LEA.L 0x20786,A1
0002232c 70 1e |p | MOVEQ.L #0x1e,D0
0002232e 10 d9 | | MOVE.B (A1)+,(A0)+
00022330 51 c8 ff fc |Q | DBF D0,0x2232e
00022334 59 4f |YO | SUBQ.L #0x4,A7
00022336 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002233a 3f 02 |? | MOVE.W D2,-(A7)
0002233c 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7)
00022340 4e 92 |N | JSR (A2)
00022342 50 4f |PO | ADDQ.L #0x8,A7
00022344 4e 93 |N | JSR (A3)
00022346 de fc 00 24 | $ | ADDA.W #0x24,A7
0002234a 30 2e ff f4 |0. | MOVE.W (A6-0xc),D0
0002234e 02 40 00 02 | @ | ANDI.W #0x0002,D0
00022352 67 24 |g$ | BEQ 0x22378
00022354 41 fa e4 68 |A h | LEA.L 0x207be,A0
00022358 70 05 |p | MOVEQ.L #0x05,D0
0002235a 2f 20 |/ | MOVE.L -(A0),-(A7)
0002235c 51 c8 ff fc |Q | DBF D0,0x2235a
00022360 59 4f |YO | SUBQ.L #0x4,A7
00022362 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022366 3f 02 |? | MOVE.W D2,-(A7)
00022368 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7)
0002236c 4e 92 |N | JSR (A2)
0002236e 50 4f |PO | ADDQ.L #0x8,A7
00022370 4e 93 |N | JSR (A3)
00022372 de fc 00 1c | | ADDA.W #0x1c,A7
00022376 60 22 |`" | BRA 0x2239a
00022378 41 fa e4 60 |A ` | LEA.L 0x207da,A0
0002237c 70 06 |p | MOVEQ.L #0x06,D0
0002237e 2f 20 |/ | MOVE.L -(A0),-(A7)
00022380 51 c8 ff fc |Q | DBF D0,0x2237e
00022384 59 4f |YO | SUBQ.L #0x4,A7
00022386 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002238a 3f 02 |? | MOVE.W D2,-(A7)
0002238c 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7)
00022390 4e 92 |N | JSR (A2)
00022392 50 4f |PO | ADDQ.L #0x8,A7
00022394 4e 93 |N | JSR (A3)
00022396 de fc 00 20 | | ADDA.W #0x20,A7
0002239a 30 2e ff f4 |0. | MOVE.W (A6-0xc),D0
0002239e 02 40 00 04 | @ | ANDI.W #0x0004,D0
000223a2 67 22 |g" | BEQ 0x223c6
000223a4 41 fa e4 58 |A X | LEA.L 0x207fe,A0
000223a8 70 08 |p | MOVEQ.L #0x08,D0
000223aa 2f 20 |/ | MOVE.L -(A0),-(A7)
000223ac 51 c8 ff fc |Q | DBF D0,0x223aa
000223b0 59 4f |YO | SUBQ.L #0x4,A7
000223b2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000223b6 3f 02 |? | MOVE.W D2,-(A7)
000223b8 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7)
000223bc 4e 92 |N | JSR (A2)
000223be 50 4f |PO | ADDQ.L #0x8,A7
000223c0 4e 93 |N | JSR (A3)
000223c2 de fc 00 28 | ( | ADDA.W #0x28,A7
000223c6 30 2e ff f4 |0. | MOVE.W (A6-0xc),D0
000223ca 02 40 00 08 | @ | ANDI.W #0x0008,D0
000223ce 67 28 |g( | BEQ 0x223f8
000223d0 9e fc 00 20 | | SUBA.W #0x20,A7
000223d4 20 4f | O | MOVEA.L A7,A0
000223d6 43 fa e4 26 |C & | LEA.L 0x207fe,A1
000223da 70 1e |p | MOVEQ.L #0x1e,D0
000223dc 10 d9 | | MOVE.B (A1)+,(A0)+
000223de 51 c8 ff fc |Q | DBF D0,0x223dc
000223e2 59 4f |YO | SUBQ.L #0x4,A7
000223e4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000223e8 3f 02 |? | MOVE.W D2,-(A7)
000223ea 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7)
000223ee 4e 92 |N | JSR (A2)
000223f0 50 4f |PO | ADDQ.L #0x8,A7
000223f2 4e 93 |N | JSR (A3)
000223f4 de fc 00 24 | $ | ADDA.W #0x24,A7
000223f8 30 2e ff f4 |0. | MOVE.W (A6-0xc),D0
000223fc 02 40 00 10 | @ | ANDI.W #0x0010,D0
00022400 67 22 |g" | BEQ 0x22424
00022402 41 fa e4 36 |A 6 | LEA.L 0x2083a,A0
00022406 70 06 |p | MOVEQ.L #0x06,D0
00022408 2f 20 |/ | MOVE.L -(A0),-(A7)
0002240a 51 c8 ff fc |Q | DBF D0,0x22408
0002240e 59 4f |YO | SUBQ.L #0x4,A7
00022410 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022414 3f 02 |? | MOVE.W D2,-(A7)
00022416 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7)
0002241a 4e 92 |N | JSR (A2)
0002241c 50 4f |PO | ADDQ.L #0x8,A7
0002241e 4e 93 |N | JSR (A3)
00022420 de fc 00 20 | | ADDA.W #0x20,A7
00022424 10 39 00 02 93 a0 | 9 | MOVE.B 0x293a0,D0
0002242a b0 02 | | CMP.B D2,D0
0002242c 67 08 |g | BEQ 0x22436
0002242e 0c 00 00 02 | | CMPI.B #0x02,D0
00022432 66 00 03 4c |f L | BNE 0x22780
00022436 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
0002243a 02 40 00 ff | @ | ANDI.W #0x00ff,D0
0002243e 67 00 01 98 |g | BEQ 0x225d8
00022442 41 fa e4 0e |A | LEA.L 0x20852,A0
00022446 70 05 |p | MOVEQ.L #0x05,D0
00022448 2f 20 |/ | MOVE.L -(A0),-(A7)
0002244a 51 c8 ff fc |Q | DBF D0,0x22448
0002244e 59 4f |YO | SUBQ.L #0x4,A7
00022450 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022454 3f 02 |? | MOVE.W D2,-(A7)
00022456 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7)
0002245a 4e 92 |N | JSR (A2)
0002245c 50 4f |PO | ADDQ.L #0x8,A7
0002245e 4e 93 |N | JSR (A3)
00022460 de fc 00 1c | | ADDA.W #0x1c,A7
00022464 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
00022468 c0 42 | B | AND.W D2,D0
0002246a 67 26 |g& | BEQ 0x22492
0002246c 9e fc 00 10 | | SUBA.W #0x10,A7
00022470 20 4f | O | MOVEA.L A7,A0
00022472 43 fa e3 de |C | LEA.L 0x20852,A1
00022476 70 0e |p | MOVEQ.L #0x0e,D0
00022478 10 d9 | | MOVE.B (A1)+,(A0)+
0002247a 51 c8 ff fc |Q | DBF D0,0x22478
0002247e 59 4f |YO | SUBQ.L #0x4,A7
00022480 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022484 3f 02 |? | MOVE.W D2,-(A7)
00022486 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
0002248a 4e 92 |N | JSR (A2)
0002248c 50 4f |PO | ADDQ.L #0x8,A7
0002248e 4e 93 |N | JSR (A3)
00022490 de c5 | | ADDA.W D5,A7
00022492 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
00022496 02 40 00 02 | @ | ANDI.W #0x0002,D0
0002249a 67 28 |g( | BEQ 0x224c4
0002249c 9e fc 00 12 | | SUBA.W #0x12,A7
000224a0 20 4f | O | MOVEA.L A7,A0
000224a2 43 fa e3 be |C | LEA.L 0x20862,A1
000224a6 70 10 |p | MOVEQ.L #0x10,D0
000224a8 10 d9 | | MOVE.B (A1)+,(A0)+
000224aa 51 c8 ff fc |Q | DBF D0,0x224a8
000224ae 59 4f |YO | SUBQ.L #0x4,A7
000224b0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000224b4 3f 02 |? | MOVE.W D2,-(A7)
000224b6 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
000224ba 4e 92 |N | JSR (A2)
000224bc 50 4f |PO | ADDQ.L #0x8,A7
000224be 4e 93 |N | JSR (A3)
000224c0 de fc 00 16 | | ADDA.W #0x16,A7
000224c4 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
000224c8 02 40 00 04 | @ | ANDI.W #0x0004,D0
000224cc 67 20 |g | BEQ 0x224ee
000224ce 41 fa e3 b8 |A | LEA.L 0x20888,A0
000224d2 70 04 |p | MOVEQ.L #0x04,D0
000224d4 2f 20 |/ | MOVE.L -(A0),-(A7)
000224d6 51 c8 ff fc |Q | DBF D0,0x224d4
000224da 59 4f |YO | SUBQ.L #0x4,A7
000224dc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000224e0 3f 02 |? | MOVE.W D2,-(A7)
000224e2 3f 05 |? | MOVE.W D5,-(A7)
000224e4 4e 92 |N | JSR (A2)
000224e6 50 4f |PO | ADDQ.L #0x8,A7
000224e8 4e 93 |N | JSR (A3)
000224ea de fc 00 18 | | ADDA.W #0x18,A7
000224ee 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
000224f2 02 40 00 08 | @ | ANDI.W #0x0008,D0
000224f6 67 20 |g | BEQ 0x22518
000224f8 41 fa e3 a2 |A | LEA.L 0x2089c,A0
000224fc 70 04 |p | MOVEQ.L #0x04,D0
000224fe 2f 20 |/ | MOVE.L -(A0),-(A7)
00022500 51 c8 ff fc |Q | DBF D0,0x224fe
00022504 59 4f |YO | SUBQ.L #0x4,A7
00022506 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002250a 3f 02 |? | MOVE.W D2,-(A7)
0002250c 3f 05 |? | MOVE.W D5,-(A7)
0002250e 4e 92 |N | JSR (A2)
00022510 50 4f |PO | ADDQ.L #0x8,A7
00022512 4e 93 |N | JSR (A3)
00022514 de fc 00 18 | | ADDA.W #0x18,A7
00022518 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
0002251c 02 40 00 10 | @ | ANDI.W #0x0010,D0
00022520 67 28 |g( | BEQ 0x2254a
00022522 9e fc 00 20 | | SUBA.W #0x20,A7
00022526 20 4f | O | MOVEA.L A7,A0
00022528 43 fa e3 72 |C r | LEA.L 0x2089c,A1
0002252c 70 1e |p | MOVEQ.L #0x1e,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 02 |? | MOVE.W D2,-(A7)
0002253c 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7)
00022540 4e 92 |N | JSR (A2)
00022542 50 4f |PO | ADDQ.L #0x8,A7
00022544 4e 93 |N | JSR (A3)
00022546 de fc 00 24 | $ | ADDA.W #0x24,A7
0002254a 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
0002254e 02 40 00 20 | @ | ANDI.W #0x0020,D0
00022552 67 22 |g" | BEQ 0x22576
00022554 41 fa e3 80 |A | LEA.L 0x208d6,A0
00022558 70 0c |p | MOVEQ.L #0x0c,D0
0002255a 3f 20 |? | MOVE.W -(A0),-(A7)
0002255c 51 c8 ff fc |Q | DBF D0,0x2255a
00022560 59 4f |YO | SUBQ.L #0x4,A7
00022562 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022566 3f 02 |? | MOVE.W D2,-(A7)
00022568 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7)
0002256c 4e 92 |N | JSR (A2)
0002256e 50 4f |PO | ADDQ.L #0x8,A7
00022570 4e 93 |N | JSR (A3)
00022572 de fc 00 1e | | ADDA.W #0x1e,A7
00022576 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
0002257a 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
0002257e 67 28 |g( | BEQ 0x225a8
00022580 9e fc 00 18 | | SUBA.W #0x18,A7
00022584 20 4f | O | MOVEA.L A7,A0
00022586 43 fa e3 4e |C N | LEA.L 0x208d6,A1
0002258a 70 16 |p | MOVEQ.L #0x16,D0
0002258c 10 d9 | | MOVE.B (A1)+,(A0)+
0002258e 51 c8 ff fc |Q | DBF D0,0x2258c
00022592 59 4f |YO | SUBQ.L #0x4,A7
00022594 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022598 3f 02 |? | MOVE.W D2,-(A7)
0002259a 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
0002259e 4e 92 |N | JSR (A2)
000225a0 50 4f |PO | ADDQ.L #0x8,A7
000225a2 4e 93 |N | JSR (A3)
000225a4 de fc 00 1c | | ADDA.W #0x1c,A7
000225a8 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
000225ac 02 40 00 80 | @ | ANDI.W #0x0080,D0
000225b0 67 26 |g& | BEQ 0x225d8
000225b2 9e c5 | | SUBA.W D5,A7
000225b4 20 4f | O | MOVEA.L A7,A0
000225b6 43 fa e3 36 |C 6 | LEA.L 0x208ee,A1
000225ba 70 12 |p | MOVEQ.L #0x12,D0
000225bc 10 d9 | | MOVE.B (A1)+,(A0)+
000225be 51 c8 ff fc |Q | DBF D0,0x225bc
000225c2 59 4f |YO | SUBQ.L #0x4,A7
000225c4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000225c8 3f 02 |? | MOVE.W D2,-(A7)
000225ca 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
000225ce 4e 92 |N | JSR (A2)
000225d0 50 4f |PO | ADDQ.L #0x8,A7
000225d2 4e 93 |N | JSR (A3)
000225d4 de fc 00 18 | | ADDA.W #0x18,A7
000225d8 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
000225dc 02 40 ff 00 | @ | ANDI.W #0xff00,D0
000225e0 67 00 01 9e |g | BEQ 0x22780
000225e4 41 fa e3 2a |A * | LEA.L 0x20910,A0
000225e8 70 06 |p | MOVEQ.L #0x06,D0
000225ea 3f 20 |? | MOVE.W -(A0),-(A7)
000225ec 51 c8 ff fc |Q | DBF D0,0x225ea
000225f0 59 4f |YO | SUBQ.L #0x4,A7
000225f2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000225f6 3f 02 |? | MOVE.W D2,-(A7)
000225f8 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
000225fc 4e 92 |N | JSR (A2)
000225fe 50 4f |PO | ADDQ.L #0x8,A7
00022600 4e 93 |N | JSR (A3)
00022602 de fc 00 12 | | ADDA.W #0x12,A7
00022606 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
0002260a 02 40 01 00 | @ | ANDI.W #0x0100,D0
0002260e 67 28 |g( | BEQ 0x22638
00022610 9e fc 00 16 | | SUBA.W #0x16,A7
00022614 20 4f | O | MOVEA.L A7,A0
00022616 43 fa e2 f8 |C | LEA.L 0x20910,A1
0002261a 70 14 |p | MOVEQ.L #0x14,D0
0002261c 10 d9 | | MOVE.B (A1)+,(A0)+
0002261e 51 c8 ff fc |Q | DBF D0,0x2261c
00022622 59 4f |YO | SUBQ.L #0x4,A7
00022624 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022628 3f 02 |? | MOVE.W D2,-(A7)
0002262a 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
0002262e 4e 92 |N | JSR (A2)
00022630 50 4f |PO | ADDQ.L #0x8,A7
00022632 4e 93 |N | JSR (A3)
00022634 de fc 00 1a | | ADDA.W #0x1a,A7
00022638 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
0002263c 02 40 02 00 | @ | ANDI.W #0x0200,D0
00022640 67 22 |g" | BEQ 0x22664
00022642 41 fa e2 fa |A | LEA.L 0x2093e,A0
00022646 70 05 |p | MOVEQ.L #0x05,D0
00022648 2f 20 |/ | MOVE.L -(A0),-(A7)
0002264a 51 c8 ff fc |Q | DBF D0,0x22648
0002264e 59 4f |YO | SUBQ.L #0x4,A7
00022650 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022654 3f 02 |? | MOVE.W D2,-(A7)
00022656 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7)
0002265a 4e 92 |N | JSR (A2)
0002265c 50 4f |PO | ADDQ.L #0x8,A7
0002265e 4e 93 |N | JSR (A3)
00022660 de fc 00 1c | | ADDA.W #0x1c,A7
00022664 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
00022668 02 40 04 00 | @ | ANDI.W #0x0400,D0
0002266c 67 20 |g | BEQ 0x2268e
0002266e 41 fa e2 e2 |A | LEA.L 0x20952,A0
00022672 70 04 |p | MOVEQ.L #0x04,D0
00022674 2f 20 |/ | MOVE.L -(A0),-(A7)
00022676 51 c8 ff fc |Q | DBF D0,0x22674
0002267a 59 4f |YO | SUBQ.L #0x4,A7
0002267c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022680 3f 02 |? | MOVE.W D2,-(A7)
00022682 3f 05 |? | MOVE.W D5,-(A7)
00022684 4e 92 |N | JSR (A2)
00022686 50 4f |PO | ADDQ.L #0x8,A7
00022688 4e 93 |N | JSR (A3)
0002268a de fc 00 18 | | ADDA.W #0x18,A7
0002268e 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
00022692 02 40 08 00 | @ | ANDI.W #0x0800,D0
00022696 67 28 |g( | BEQ 0x226c0
00022698 9e fc 00 16 | | SUBA.W #0x16,A7
0002269c 20 4f | O | MOVEA.L A7,A0
0002269e 43 fa e2 b2 |C | LEA.L 0x20952,A1
000226a2 70 14 |p | MOVEQ.L #0x14,D0
000226a4 10 d9 | | MOVE.B (A1)+,(A0)+
000226a6 51 c8 ff fc |Q | DBF D0,0x226a4
000226aa 59 4f |YO | SUBQ.L #0x4,A7
000226ac 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000226b0 3f 02 |? | MOVE.W D2,-(A7)
000226b2 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
000226b6 4e 92 |N | JSR (A2)
000226b8 50 4f |PO | ADDQ.L #0x8,A7
000226ba 4e 93 |N | JSR (A3)
000226bc de fc 00 1a | | ADDA.W #0x1a,A7
000226c0 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
000226c4 02 40 10 00 | @ | ANDI.W #0x1000,D0
000226c8 67 26 |g& | BEQ 0x226f0
000226ca 9e fc 00 10 | | SUBA.W #0x10,A7
000226ce 20 4f | O | MOVEA.L A7,A0
000226d0 43 fa e2 96 |C | LEA.L 0x20968,A1
000226d4 70 0e |p | MOVEQ.L #0x0e,D0
000226d6 10 d9 | | MOVE.B (A1)+,(A0)+
000226d8 51 c8 ff fc |Q | DBF D0,0x226d6
000226dc 59 4f |YO | SUBQ.L #0x4,A7
000226de 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000226e2 3f 02 |? | MOVE.W D2,-(A7)
000226e4 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
000226e8 4e 92 |N | JSR (A2)
000226ea 50 4f |PO | ADDQ.L #0x8,A7
000226ec 4e 93 |N | JSR (A3)
000226ee de c5 | | ADDA.W D5,A7
000226f0 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
000226f4 02 40 20 00 | @ | ANDI.W #0x2000,D0
000226f8 67 28 |g( | BEQ 0x22722
000226fa 9e fc 00 16 | | SUBA.W #0x16,A7
000226fe 20 4f | O | MOVEA.L A7,A0
00022700 43 fa e2 76 |C v | LEA.L 0x20978,A1
00022704 70 14 |p | MOVEQ.L #0x14,D0
00022706 10 d9 | | MOVE.B (A1)+,(A0)+
00022708 51 c8 ff fc |Q | DBF D0,0x22706
0002270c 59 4f |YO | SUBQ.L #0x4,A7
0002270e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022712 3f 02 |? | MOVE.W D2,-(A7)
00022714 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
00022718 4e 92 |N | JSR (A2)
0002271a 50 4f |PO | ADDQ.L #0x8,A7
0002271c 4e 93 |N | JSR (A3)
0002271e de fc 00 1a | | ADDA.W #0x1a,A7
00022722 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
00022726 02 40 40 00 | @@ | ANDI.W #0x4000,D0
0002272a 67 28 |g( | BEQ 0x22754
0002272c 9e fc 00 12 | | SUBA.W #0x12,A7
00022730 20 4f | O | MOVEA.L A7,A0
00022732 43 fa e2 5a |C Z | LEA.L 0x2098e,A1
00022736 70 10 |p | MOVEQ.L #0x10,D0
00022738 10 d9 | | MOVE.B (A1)+,(A0)+
0002273a 51 c8 ff fc |Q | DBF D0,0x22738
0002273e 59 4f |YO | SUBQ.L #0x4,A7
00022740 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022744 3f 02 |? | MOVE.W D2,-(A7)
00022746 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
0002274a 4e 92 |N | JSR (A2)
0002274c 50 4f |PO | ADDQ.L #0x8,A7
0002274e 4e 93 |N | JSR (A3)
00022750 de fc 00 16 | | ADDA.W #0x16,A7
00022754 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
00022758 02 40 80 00 | @ | ANDI.W #0x8000,D0
0002275c 67 22 |g" | BEQ 0x22780
0002275e 41 fa e2 4e |A N | LEA.L 0x209ae,A0
00022762 70 06 |p | MOVEQ.L #0x06,D0
00022764 3f 20 |? | MOVE.W -(A0),-(A7)
00022766 51 c8 ff fc |Q | DBF D0,0x22764
0002276a 59 4f |YO | SUBQ.L #0x4,A7
0002276c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022770 3f 02 |? | MOVE.W D2,-(A7)
00022772 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00022776 4e 92 |N | JSR (A2)
00022778 50 4f |PO | ADDQ.L #0x8,A7
0002277a 4e 93 |N | JSR (A3)
0002277c de fc 00 12 | | ADDA.W #0x12,A7
00022780 10 39 00 02 93 a0 | 9 | MOVE.B 0x293a0,D0
00022786 0c 00 00 03 | | CMPI.B #0x03,D0
0002278a 67 08 |g | BEQ 0x22794
0002278c 0c 00 00 04 | | CMPI.B #0x04,D0
00022790 66 00 02 dc |f | BNE 0x22a6e
00022794 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
00022798 02 40 00 ff | @ | ANDI.W #0x00ff,D0
0002279c 67 00 02 d0 |g | BEQ 0x22a6e
000227a0 9e fc 00 22 | " | SUBA.W #0x22,A7
000227a4 20 4f | O | MOVEA.L A7,A0
000227a6 43 fa dc b6 |C | LEA.L 0x2045e,A1
000227aa 70 20 |p | MOVEQ.L #0x20,D0
000227ac 10 d9 | | MOVE.B (A1)+,(A0)+
000227ae 51 c8 ff fc |Q | DBF D0,0x227ac
000227b2 59 4f |YO | SUBQ.L #0x4,A7
000227b4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000227b8 3f 02 |? | MOVE.W D2,-(A7)
000227ba 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7)
000227be 4e 92 |N | JSR (A2)
000227c0 50 4f |PO | ADDQ.L #0x8,A7
000227c2 4e 93 |N | JSR (A3)
000227c4 de fc 00 26 | & | ADDA.W #0x26,A7
000227c8 3c 2e ff f6 |<. | MOVE.W (A6-0xa),D6
000227cc 02 46 00 07 | F | ANDI.W #0x0007,D6
000227d0 30 06 |0 | MOVE.W D6,D0
000227d2 0c 40 00 07 | @ | CMPI.W #0x0007,D0
000227d6 63 02 |c | BLS 0x227da
000227d8 4e 4e |NN | TRAP #14
000227da d0 40 | @ | ADD.W D0,D0
000227dc 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
000227e4 00 10 | | .CONST 0x10 ; [0x0] -> 0x227f4
000227e6 00 14 | | .CONST 0x14 ; [0x1] -> 0x227f8
000227e8 00 40 | @ | .CONST 0x40 ; [0x2] -> 0x22824
000227ea 00 66 | f | .CONST 0x66 ; [0x3] -> 0x2284a
000227ec 00 8a | | .CONST 0x8a ; [0x4] -> 0x2286e
000227ee 00 9e | | .CONST 0x9e ; [0x5] -> 0x22882
000227f0 00 c2 | | .CONST 0xc2 ; [0x6] -> 0x228a6
000227f2 00 d8 | | .CONST 0xd8 ; [0x7] -> 0x228bc
000227f4 switch@0x227dc[0x0]:
000227f4 60 00 00 e8 |` | BRA 0x228de
000227f8 switch@0x227dc[0x1]:
000227f8 9e fc 00 30 | 0 | SUBA.W #0x30,A7
000227fc 20 4f | O | MOVEA.L A7,A0
000227fe 43 fa dc 80 |C | LEA.L 0x20480,A1
00022802 70 2e |p. | MOVEQ.L #0x2e,D0
00022804 10 d9 | | MOVE.B (A1)+,(A0)+
00022806 51 c8 ff fc |Q | DBF D0,0x22804
0002280a 59 4f |YO | SUBQ.L #0x4,A7
0002280c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022810 3f 02 |? | MOVE.W D2,-(A7)
00022812 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7)
00022816 4e 92 |N | JSR (A2)
00022818 50 4f |PO | ADDQ.L #0x8,A7
0002281a 4e 93 |N | JSR (A3)
0002281c de fc 00 34 | 4 | ADDA.W #0x34,A7
00022820 60 00 00 bc |` | BRA 0x228de
00022824 switch@0x227dc[0x2]:
00022824 41 fa dc bc |A | LEA.L 0x204e2,A0
00022828 70 18 |p | MOVEQ.L #0x18,D0
0002282a 3f 20 |? | MOVE.W -(A0),-(A7)
0002282c 51 c8 ff fc |Q | DBF D0,0x2282a
00022830 59 4f |YO | SUBQ.L #0x4,A7
00022832 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022836 3f 02 |? | MOVE.W D2,-(A7)
00022838 3f 3c 00 32 |?< 2 | MOVE.W #0x32,-(A7)
0002283c 4e 92 |N | JSR (A2)
0002283e 50 4f |PO | ADDQ.L #0x8,A7
00022840 4e 93 |N | JSR (A3)
00022842 de fc 00 36 | 6 | ADDA.W #0x36,A7
00022846 60 00 00 96 |` | BRA 0x228de
0002284a switch@0x227dc[0x3]:
0002284a 41 fa dc cc |A | LEA.L 0x20518,A0
0002284e 70 1a |p | MOVEQ.L #0x1a,D0
00022850 3f 20 |? | MOVE.W -(A0),-(A7)
00022852 51 c8 ff fc |Q | DBF D0,0x22850
00022856 59 4f |YO | SUBQ.L #0x4,A7
00022858 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002285c 3f 02 |? | MOVE.W D2,-(A7)
0002285e 3f 3c 00 36 |?< 6 | MOVE.W #0x36,-(A7)
00022862 4e 92 |N | JSR (A2)
00022864 50 4f |PO | ADDQ.L #0x8,A7
00022866 4e 93 |N | JSR (A3)
00022868 de fc 00 3a | : | ADDA.W #0x3a,A7
0002286c 60 70 |`p | BRA 0x228de
0002286e switch@0x227dc[0x4]:
0002286e 9e fc 00 30 | 0 | SUBA.W #0x30,A7
00022872 20 4f | O | MOVEA.L A7,A0
00022874 43 fa dc a2 |C | LEA.L 0x20518,A1
00022878 70 2e |p. | MOVEQ.L #0x2e,D0
0002287a 10 d9 | | MOVE.B (A1)+,(A0)+
0002287c 51 c8 ff fc |Q | DBF D0,0x2287a
00022880 60 88 |` | BRA 0x2280a
00022882 switch@0x227dc[0x5]:
00022882 41 fa dc fe |A | LEA.L 0x20582,A0
00022886 70 1c |p | MOVEQ.L #0x1c,D0
00022888 3f 20 |? | MOVE.W -(A0),-(A7)
0002288a 51 c8 ff fc |Q | DBF D0,0x22888
0002288e 59 4f |YO | SUBQ.L #0x4,A7
00022890 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022894 3f 02 |? | MOVE.W D2,-(A7)
00022896 3f 3c 00 3a |?< : | MOVE.W #0x3a,-(A7)
0002289a 4e 92 |N | JSR (A2)
0002289c 50 4f |PO | ADDQ.L #0x8,A7
0002289e 4e 93 |N | JSR (A3)
000228a0 de fc 00 3e | > | ADDA.W #0x3e,A7
000228a4 60 38 |`8 | BRA 0x228de
000228a6 switch@0x227dc[0x6]:
000228a6 9e fc 00 30 | 0 | SUBA.W #0x30,A7
000228aa 20 4f | O | MOVEA.L A7,A0
000228ac 43 fa dc d4 |C | LEA.L 0x20582,A1
000228b0 70 2e |p. | MOVEQ.L #0x2e,D0
000228b2 10 d9 | | MOVE.B (A1)+,(A0)+
000228b4 51 c8 ff fc |Q | DBF D0,0x228b2
000228b8 60 00 ff 50 |` P | BRA 0x2280a
000228bc switch@0x227dc[0x7]:
000228bc 41 fa dd 28 |A ( | LEA.L 0x205e6,A0
000228c0 70 0c |p | MOVEQ.L #0x0c,D0
000228c2 2f 20 |/ | MOVE.L -(A0),-(A7)
000228c4 51 c8 ff fc |Q | DBF D0,0x228c2
000228c8 59 4f |YO | SUBQ.L #0x4,A7
000228ca 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000228ce 3f 02 |? | MOVE.W D2,-(A7)
000228d0 3f 3c 00 34 |?< 4 | MOVE.W #0x34,-(A7)
000228d4 4e 92 |N | JSR (A2)
000228d6 50 4f |PO | ADDQ.L #0x8,A7
000228d8 4e 93 |N | JSR (A3)
000228da de fc 00 38 | 8 | ADDA.W #0x38,A7
000228de 3c 2e ff f6 |<. | MOVE.W (A6-0xa),D6
000228e2 02 46 00 38 | F 8 | ANDI.W #0x0038,D6
000228e6 e6 4e | N | LSR.W #0x3,D6
000228e8 30 06 |0 | MOVE.W D6,D0
000228ea 0c 40 00 07 | @ | CMPI.W #0x0007,D0
000228ee 63 02 |c | BLS 0x228f2
000228f0 4e 4e |NN | TRAP #14
000228f2 d0 40 | @ | ADD.W D0,D0
000228f4 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
000228fc 00 10 | | .CONST 0x10 ; [0x0] -> 0x2290c
000228fe 00 14 | | .CONST 0x14 ; [0x1] -> 0x22910
00022900 00 40 | @ | .CONST 0x40 ; [0x2] -> 0x2293c
00022902 00 5a | Z | .CONST 0x5a ; [0x3] -> 0x22956
00022904 00 80 | | .CONST 0x80 ; [0x4] -> 0x2297c
00022906 00 aa | | .CONST 0xaa ; [0x5] -> 0x229a6
00022908 00 ce | | .CONST 0xce ; [0x6] -> 0x229ca
0002290a 00 f8 | | .CONST 0xf8 ; [0x7] -> 0x229f4
0002290c switch@0x228f4[0x0]:
0002290c 60 00 01 08 |` | BRA 0x22a16
00022910 switch@0x228f4[0x1]:
00022910 9e fc 00 26 | & | SUBA.W #0x26,A7
00022914 20 4f | O | MOVEA.L A7,A0
00022916 43 fa dc ce |C | LEA.L 0x205e6,A1
0002291a 70 24 |p$ | MOVEQ.L #0x24,D0
0002291c 10 d9 | | MOVE.B (A1)+,(A0)+
0002291e 51 c8 ff fc |Q | DBF D0,0x2291c
00022922 59 4f |YO | SUBQ.L #0x4,A7
00022924 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022928 3f 02 |? | MOVE.W D2,-(A7)
0002292a 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7)
0002292e 4e 92 |N | JSR (A2)
00022930 50 4f |PO | ADDQ.L #0x8,A7
00022932 4e 93 |N | JSR (A3)
00022934 de fc 00 2a | * | ADDA.W #0x2a,A7
00022938 60 00 00 dc |` | BRA 0x22a16
0002293c switch@0x228f4[0x2]:
0002293c 41 fa dc f4 |A | LEA.L 0x20632,A0
00022940 70 12 |p | MOVEQ.L #0x12,D0
00022942 3f 20 |? | MOVE.W -(A0),-(A7)
00022944 51 c8 ff fc |Q | DBF D0,0x22942
00022948 59 4f |YO | SUBQ.L #0x4,A7
0002294a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002294e 3f 02 |? | MOVE.W D2,-(A7)
00022950 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7)
00022954 60 d8 |` | BRA 0x2292e
00022956 switch@0x228f4[0x3]:
00022956 41 fa dc f6 |A | LEA.L 0x2064e,A0
0002295a 70 06 |p | MOVEQ.L #0x06,D0
0002295c 2f 20 |/ | MOVE.L -(A0),-(A7)
0002295e 51 c8 ff fc |Q | DBF D0,0x2295c
00022962 59 4f |YO | SUBQ.L #0x4,A7
00022964 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022968 3f 02 |? | MOVE.W D2,-(A7)
0002296a 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7)
0002296e 4e 92 |N | JSR (A2)
00022970 50 4f |PO | ADDQ.L #0x8,A7
00022972 4e 93 |N | JSR (A3)
00022974 de fc 00 20 | | ADDA.W #0x20,A7
00022978 60 00 00 9c |` | BRA 0x22a16
0002297c switch@0x228f4[0x4]:
0002297c 9e fc 00 38 | 8 | SUBA.W #0x38,A7
00022980 20 4f | O | MOVEA.L A7,A0
00022982 43 fa dc ca |C | LEA.L 0x2064e,A1
00022986 70 36 |p6 | MOVEQ.L #0x36,D0
00022988 10 d9 | | MOVE.B (A1)+,(A0)+
0002298a 51 c8 ff fc |Q | DBF D0,0x22988
0002298e 59 4f |YO | SUBQ.L #0x4,A7
00022990 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022994 3f 02 |? | MOVE.W D2,-(A7)
00022996 3f 3c 00 37 |?< 7 | MOVE.W #0x37,-(A7)
0002299a 4e 92 |N | JSR (A2)
0002299c 50 4f |PO | ADDQ.L #0x8,A7
0002299e 4e 93 |N | JSR (A3)
000229a0 de fc 00 3c | < | ADDA.W #0x3c,A7
000229a4 60 70 |`p | BRA 0x22a16
000229a6 switch@0x228f4[0x5]:
000229a6 41 fa dd 12 |A | LEA.L 0x206ba,A0
000229aa 70 0c |p | MOVEQ.L #0x0c,D0
000229ac 2f 20 |/ | MOVE.L -(A0),-(A7)
000229ae 51 c8 ff fc |Q | DBF D0,0x229ac
000229b2 59 4f |YO | SUBQ.L #0x4,A7
000229b4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000229b8 3f 02 |? | MOVE.W D2,-(A7)
000229ba 3f 3c 00 34 |?< 4 | MOVE.W #0x34,-(A7)
000229be 4e 92 |N | JSR (A2)
000229c0 50 4f |PO | ADDQ.L #0x8,A7
000229c2 4e 93 |N | JSR (A3)
000229c4 de fc 00 38 | 8 | ADDA.W #0x38,A7
000229c8 60 4c |`L | BRA 0x22a16
000229ca switch@0x228f4[0x6]:
000229ca 9e fc 00 32 | 2 | SUBA.W #0x32,A7
000229ce 20 4f | O | MOVEA.L A7,A0
000229d0 43 fa dc e8 |C | LEA.L 0x206ba,A1
000229d4 70 30 |p0 | MOVEQ.L #0x30,D0
000229d6 10 d9 | | MOVE.B (A1)+,(A0)+
000229d8 51 c8 ff fc |Q | DBF D0,0x229d6
000229dc 59 4f |YO | SUBQ.L #0x4,A7
000229de 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000229e2 3f 02 |? | MOVE.W D2,-(A7)
000229e4 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7)
000229e8 4e 92 |N | JSR (A2)
000229ea 50 4f |PO | ADDQ.L #0x8,A7
000229ec 4e 93 |N | JSR (A3)
000229ee de fc 00 36 | 6 | ADDA.W #0x36,A7
000229f2 60 22 |`" | BRA 0x22a16
000229f4 switch@0x228f4[0x7]:
000229f4 41 fa dd 14 |A | LEA.L 0x2070a,A0
000229f8 70 0e |p | MOVEQ.L #0x0e,D0
000229fa 3f 20 |? | MOVE.W -(A0),-(A7)
000229fc 51 c8 ff fc |Q | DBF D0,0x229fa
00022a00 59 4f |YO | SUBQ.L #0x4,A7
00022a02 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022a06 3f 02 |? | MOVE.W D2,-(A7)
00022a08 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7)
00022a0c 4e 92 |N | JSR (A2)
00022a0e 50 4f |PO | ADDQ.L #0x8,A7
00022a10 4e 93 |N | JSR (A3)
00022a12 de fc 00 22 | " | ADDA.W #0x22,A7
00022a16 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
00022a1a 02 40 00 80 | @ | ANDI.W #0x0080,D0
00022a1e 67 22 |g" | BEQ 0x22a42
00022a20 41 fa dd 12 |A | LEA.L 0x20734,A0
00022a24 70 14 |p | MOVEQ.L #0x14,D0
00022a26 3f 20 |? | MOVE.W -(A0),-(A7)
00022a28 51 c8 ff fc |Q | DBF D0,0x22a26
00022a2c 59 4f |YO | SUBQ.L #0x4,A7
00022a2e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022a32 3f 02 |? | MOVE.W D2,-(A7)
00022a34 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7)
00022a38 4e 92 |N | JSR (A2)
00022a3a 50 4f |PO | ADDQ.L #0x8,A7
00022a3c 4e 93 |N | JSR (A3)
00022a3e de fc 00 2e | . | ADDA.W #0x2e,A7
00022a42 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
00022a46 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
00022a4a 67 22 |g" | BEQ 0x22a6e
00022a4c 41 fa dc f8 |A | LEA.L 0x20746,A0
00022a50 70 08 |p | MOVEQ.L #0x08,D0
00022a52 3f 20 |? | MOVE.W -(A0),-(A7)
00022a54 51 c8 ff fc |Q | DBF D0,0x22a52
00022a58 59 4f |YO | SUBQ.L #0x4,A7
00022a5a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022a5e 3f 02 |? | MOVE.W D2,-(A7)
00022a60 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00022a64 4e 92 |N | JSR (A2)
00022a66 50 4f |PO | ADDQ.L #0x8,A7
00022a68 4e 93 |N | JSR (A3)
00022a6a de fc 00 16 | | ADDA.W #0x16,A7
00022a6e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022a72 4e 5e |N^ | UNLK A6
00022a74 4e 75 |Nu | RTS
00022a76 ; --------------------------------------------------------------------------------------
00022a76 ; OMSI PASCAL Function
00022a76 ; <LVAR 0x016 4(r)>
00022a76 ; <LVAR 0x012 4(r)>
00022a76 ; <LVAR 0x00e 4(r)>
00022a76 ; <LVAR 0x00c 1(r)>
00022a76 ; <LVAR 0x008 4(r)>
00022a76 ; <LVAR -0x008 2(w)>
00022a76 ; <LVAR -0x00a 2(w)>
00022a76 ; <LVAR -0x00c 2(w)>
00022a76 ; <LVAR -0x00e 2(r)>
00022a76 ; <LVAR -0x010 2(r)>
00022a76 ; <LVAR -0x012 2(w)>
00022a76 ; <LVAR -0x014 2(r)>
00022a76 ; <LVAR -0x016 @ 2(w)>
00022a76 ; --------------------------------------------------------------------------------------
00022a76 4e 56 ff 78 |NV x | LINK.W A6,#0xff78
00022a7a bf d5 | | CMPA.L (A5),A7
00022a7c 62 06 |b | BHI 0x22a84
00022a7e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022a82 4e 76 |Nv | TRAPV
00022a84 de fc 00 72 | r | ADDA.W #0x72,A7
00022a88 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022a8c 45 ee 00 16 |E | LEA.L (A6+0x16),A2
00022a90 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00022a96 76 01 |v | MOVEQ.L #0x01,D3
00022a98 78 03 |x | MOVEQ.L #0x03,D4
00022a9a 7a 08 |z | MOVEQ.L #0x08,D5
00022a9c 7c 1c || | MOVEQ.L #0x1c,D6
00022a9e 7e 20 |~ | MOVEQ.L #0x20,D7
00022aa0 4a 92 |J | TST.L (A2)
00022aa2 6d 0a |m | BLT 0x22aae
00022aa4 20 12 | | MOVE.L (A2),D0
00022aa6 b0 b9 00 02 9b a6 | | CMP.L 0x29ba6,D0
00022aac 6f 26 |o& | BLE 0x22ad4
00022aae 41 fa df 1c |A | LEA.L 0x209cc,A0
00022ab2 70 0e |p | MOVEQ.L #0x0e,D0
00022ab4 3f 20 |? | MOVE.W -(A0),-(A7)
00022ab6 51 c8 ff fc |Q | DBF D0,0x22ab4
00022aba 59 4f |YO | SUBQ.L #0x4,A7
00022abc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022ac0 3f 03 |? | MOVE.W D3,-(A7)
00022ac2 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7)
00022ac6 4e 93 |N | JSR (A3)
00022ac8 50 4f |PO | ADDQ.L #0x8,A7
00022aca 4e b9 00 02 56 96 |N V | JSR 0x25696
00022ad0 de fc 00 22 | " | ADDA.W #0x22,A7
00022ad4 10 2e 00 0c | . | MOVE.B (A6+0xc),D0
00022ad8 b0 04 | | CMP.B D4,D0
00022ada 67 04 |g | BEQ 0x22ae0
00022adc b0 05 | | CMP.B D5,D0
00022ade 66 36 |f6 | BNE 0x22b16
00022ae0 22 12 |" | MOVE.L (A2),D1
00022ae2 b2 b9 00 02 9b aa | | CMP.L 0x29baa,D1
00022ae8 6c 2c |l, | BGE 0x22b16
00022aea 9e fc 00 2c | , | SUBA.W #0x2c,A7
00022aee 20 4f | O | MOVEA.L A7,A0
00022af0 43 fa de da |C | LEA.L 0x209cc,A1
00022af4 72 2a |r* | MOVEQ.L #0x2a,D1
00022af6 10 d9 | | MOVE.B (A1)+,(A0)+
00022af8 51 c9 ff fc |Q | DBF D1,0x22af6
00022afc 59 4f |YO | SUBQ.L #0x4,A7
00022afe 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022b02 3f 03 |? | MOVE.W D3,-(A7)
00022b04 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7)
00022b08 4e 93 |N | JSR (A3)
00022b0a 50 4f |PO | ADDQ.L #0x8,A7
00022b0c 4e b9 00 02 56 96 |N V | JSR 0x25696
00022b12 de fc 00 30 | 0 | ADDA.W #0x30,A7
00022b16 4a ae 00 12 |J | TST.L (A6+0x12)
00022b1a 6d 0c |m | BLT 0x22b28
00022b1c 22 2e 00 12 |". | MOVE.L (A6+0x12),D1
00022b20 b2 b9 00 02 9b ae | | CMP.L 0x29bae,D1
00022b26 6f 28 |o( | BLE 0x22b50
00022b28 9e c6 | | SUBA.W D6,A7
00022b2a 20 4f | O | MOVEA.L A7,A0
00022b2c 43 fa de ca |C | LEA.L 0x209f8,A1
00022b30 72 1a |r | MOVEQ.L #0x1a,D1
00022b32 10 d9 | | MOVE.B (A1)+,(A0)+
00022b34 51 c9 ff fc |Q | DBF D1,0x22b32
00022b38 59 4f |YO | SUBQ.L #0x4,A7
00022b3a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022b3e 3f 03 |? | MOVE.W D3,-(A7)
00022b40 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
00022b44 4e 93 |N | JSR (A3)
00022b46 50 4f |PO | ADDQ.L #0x8,A7
00022b48 4e b9 00 02 56 96 |N V | JSR 0x25696
00022b4e de c7 | | ADDA.W D7,A7
00022b50 4a ae 00 0e |J | TST.L (A6+0xe)
00022b54 6d 0c |m | BLT 0x22b62
00022b56 22 2e 00 0e |". | MOVE.L (A6+0xe),D1
00022b5a b2 b9 00 02 9b b2 | | CMP.L 0x29bb2,D1
00022b60 6f 22 |o" | BLE 0x22b84
00022b62 41 fa de cc |A | LEA.L 0x20a30,A0
00022b66 72 06 |r | MOVEQ.L #0x06,D1
00022b68 2f 20 |/ | MOVE.L -(A0),-(A7)
00022b6a 51 c9 ff fc |Q | DBF D1,0x22b68
00022b6e 59 4f |YO | SUBQ.L #0x4,A7
00022b70 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022b74 3f 03 |? | MOVE.W D3,-(A7)
00022b76 3f 06 |? | MOVE.W D6,-(A7)
00022b78 4e 93 |N | JSR (A3)
00022b7a 50 4f |PO | ADDQ.L #0x8,A7
00022b7c 4e b9 00 02 56 96 |N V | JSR 0x25696
00022b82 de c7 | | ADDA.W D7,A7
00022b84 3d 7c 01 00 ff ea |=| | MOVE.W #0x100,(A6-0x16)
00022b8a 42 6e ff ec |Bn | CLR.W (A6-0x14)
00022b8e 3d 7c 00 02 ff ee |=| | MOVE.W #0x2,(A6-0x12)
00022b94 42 6e ff f0 |Bn | CLR.W (A6-0x10)
00022b98 42 6e ff f2 |Bn | CLR.W (A6-0xe)
00022b9c 32 39 00 02 93 a4 |29 | MOVE.W 0x293a4,D1
00022ba2 e1 41 | A | ASL.W #0x8,D1
00022ba4 14 00 | | MOVE.B D0,D2
00022ba6 48 82 |H | EXTB.W D2
00022ba8 d2 42 | B | ADD.W D2,D1
00022baa 0c 41 ff ff | A | CMPI.W #0xffff,D1
00022bae 63 02 |c | BLS 0x22bb2
00022bb0 4e 4f |NO | TRAP #15
00022bb2 3d 41 ff f4 |=A | MOVE.W D1,(A6-0xc)
00022bb6 20 12 | | MOVE.L (A2),D0
00022bb8 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0
00022bbe 63 02 |c | BLS 0x22bc2
00022bc0 4e 4f |NO | TRAP #15
00022bc2 3d 40 ff f6 |=@ | MOVE.W D0,(A6-0xa)
00022bc6 20 2e 00 12 | . | MOVE.L (A6+0x12),D0
00022bca e1 80 | | ASL.L #0x8,D0
00022bcc d0 ae 00 0e | | ADD.L (A6+0xe),D0
00022bd0 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0
00022bd6 63 02 |c | BLS 0x22bda
00022bd8 4e 4f |NO | TRAP #15
00022bda 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8)
00022bde b4 04 | | CMP.B D4,D2
00022be0 66 08 |f | BNE 0x22bea
00022be2 41 f9 00 02 93 a6 |A | LEA.L 0x293a6,A0
00022be8 60 06 |` | BRA 0x22bf0
00022bea 41 f9 00 02 97 a6 |A | LEA.L 0x297a6,A0
00022bf0 28 48 |(H | MOVEA.L A0,A4
00022bf2 b4 05 | | CMP.B D5,D2
00022bf4 66 0a |f | BNE 0x22c00
00022bf6 41 f9 00 02 91 98 |A | LEA.L 0x29198,A0
00022bfc 2f 08 |/ | MOVE.L A0,-(A7)
00022bfe 28 5f |(_ | MOVEA.L (A7)+,A4
00022c00 48 6e ff ea |Hn | PEA.L (A6-0x16)
00022c04 2f 0c |/ | MOVE.L A4,-(A7)
00022c06 42 67 |Bg | CLR.W -(A7)
00022c08 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00022c0e 50 4f |PO | ADDQ.L #0x8,A7
00022c10 42 57 |BW | CLR.W (A7)
00022c12 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00022c16 48 50 |HP | PEA.L (A0)
00022c18 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00022c1e 5c 4f |\O | ADDQ.L #0x6,A7
00022c20 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022c24 4e 5e |N^ | UNLK A6
00022c26 4e 75 |Nu | RTS
00022c28 ; --------------------------------------------------------------------------------------
00022c28 ; OMSI PASCAL Function
00022c28 ; <LVAR 0x008 4(r)>
00022c28 ; <LVAR -0x004 @ 1(r)>
00022c28 ; --------------------------------------------------------------------------------------
00022c28 4e 56 ff 62 |NV b | LINK.W A6,#0xff62
00022c2c bf d5 | | CMPA.L (A5),A7
00022c2e 62 06 |b | BHI 0x22c36
00022c30 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022c34 4e 76 |Nv | TRAPV
00022c36 de fc 00 96 | | ADDA.W #0x96,A7
00022c3a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022c3e 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00022c44 47 f9 00 02 9b aa |G | LEA.L 0x29baa,A3
00022c4a 74 01 |t | MOVEQ.L #0x01,D2
00022c4c 7a 14 |z | MOVEQ.L #0x14,D5
00022c4e 7c 0c || | MOVEQ.L #0x0c,D6
00022c50 7e 0f |~ | MOVEQ.L #0x0f,D7
00022c52 41 f9 00 02 97 a6 |A | LEA.L 0x297a6,A0
00022c58 2f 08 |/ | MOVE.L A0,-(A7)
00022c5a 28 5f |(_ | MOVEA.L (A7)+,A4
00022c5c 4a ae 00 08 |J | TST.L (A6+0x8)
00022c60 6d 08 |m | BLT 0x22c6a
00022c62 20 2e 00 08 | . | MOVE.L (A6+0x8),D0
00022c66 b0 87 | | CMP.L D7,D0
00022c68 6f 2a |o* | BLE 0x22c94
00022c6a 9e c5 | | SUBA.W D5,A7
00022c6c 20 4f | O | MOVEA.L A7,A0
00022c6e 43 fa de fc |C | LEA.L 0x20b6c,A1
00022c72 70 12 |p | MOVEQ.L #0x12,D0
00022c74 10 d9 | | MOVE.B (A1)+,(A0)+
00022c76 51 c8 ff fc |Q | DBF D0,0x22c74
00022c7a 59 4f |YO | SUBQ.L #0x4,A7
00022c7c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022c80 3f 02 |? | MOVE.W D2,-(A7)
00022c82 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
00022c86 4e 92 |N | JSR (A2)
00022c88 50 4f |PO | ADDQ.L #0x8,A7
00022c8a 4e b9 00 02 56 96 |N V | JSR 0x25696
00022c90 de fc 00 18 | | ADDA.W #0x18,A7
00022c94 20 2e 00 08 | . | MOVE.L (A6+0x8),D0
00022c98 b0 87 | | CMP.L D7,D0
00022c9a 63 02 |c | BLS 0x22c9e
00022c9c 4e 4f |NO | TRAP #15
00022c9e 55 4f |UO | SUBQ.L #0x2,A7
00022ca0 3f 00 |? | MOVE.W D0,-(A7)
00022ca2 4e ba ee 74 |N t | JSR 0x21b18
00022ca6 54 4f |TO | ADDQ.L #0x2,A7
00022ca8 4a 1f |J | TST.B (A7)+
00022caa 66 44 |fD | BNE 0x22cf0
00022cac 41 fa de fc |A | LEA.L 0x20baa,A0
00022cb0 72 14 |r | MOVEQ.L #0x14,D1
00022cb2 3f 20 |? | MOVE.W -(A0),-(A7)
00022cb4 51 c9 ff fc |Q | DBF D1,0x22cb2
00022cb8 51 4f |QO | SUBQ.L #0x8,A7
00022cba 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00022cbe 3f 02 |? | MOVE.W D2,-(A7)
00022cc0 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7)
00022cc4 4e 92 |N | JSR (A2)
00022cc6 58 4f |XO | ADDQ.L #0x4,A7
00022cc8 32 39 00 02 93 a4 |29 | MOVE.W 0x293a4,D1
00022cce 48 c1 |H | EXTW.L D1
00022cd0 2f 01 |/ | MOVE.L D1,-(A7)
00022cd2 48 78 00 01 |Hx | PEA.L 0x1
00022cd6 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00022cdc 50 4f |PO | ADDQ.L #0x8,A7
00022cde 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022ce4 50 4f |PO | ADDQ.L #0x8,A7
00022ce6 4e b9 00 02 56 96 |N V | JSR 0x25696
00022cec de fc 00 2e | . | ADDA.W #0x2e,A7
00022cf0 42 93 |B | CLR.L (A3)
00022cf2 23 c2 00 02 9b a6 |# | MOVE.L D2,0x29ba6
00022cf8 42 b9 00 02 9b ae |B | CLR.L 0x29bae
00022cfe 23 fc 00 00 00 04 00 02 |# | MOVE.L #0x4,0x29bb2
00022d06 9b b2 | |
00022d08 33 c0 00 02 93 a4 |3 | MOVE.W D0,0x293a4
00022d0e 28 2e 00 08 |(. | MOVE.L (A6+0x8),D4
00022d12 76 04 |v | MOVEQ.L #0x04,D3
00022d14 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00022d1a 23 c4 00 02 93 9c |# | MOVE.L D4,0x2939c
00022d20 3f 00 |? | MOVE.W D0,-(A7)
00022d22 4e ba e9 cc |N | JSR 0x216f0
00022d26 54 4f |TO | ADDQ.L #0x2,A7
00022d28 48 78 00 00 |Hx | PEA.L 0x0
00022d2c 48 78 00 00 |Hx | PEA.L 0x0
00022d30 48 78 00 04 |Hx | PEA.L 0x4
00022d34 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00022d38 48 6e ff fc |Hn | PEA.L (A6-0x4)
00022d3c 4e ba fd 38 |N 8 | JSR 0x22a76
00022d40 de fc 00 12 | | ADDA.W #0x12,A7
00022d44 4a 2e ff fc |J. | TST.B (A6-0x4)
00022d48 67 0c |g | BEQ 0x22d56
00022d4a 30 2c 00 02 |0, | MOVE.W (A4+0x2),D0
00022d4e 0c 40 7f ed | @ | CMPI.W #0x7fed,D0
00022d52 67 00 01 e2 |g | BEQ 0x22f36
00022d56 4a 2e ff fc |J. | TST.B (A6-0x4)
00022d5a 66 2e |f. | BNE 0x22d8a
00022d5c 9e fc 00 1a | | SUBA.W #0x1a,A7
00022d60 20 4f | O | MOVEA.L A7,A0
00022d62 43 fa de 46 |C F | LEA.L 0x20baa,A1
00022d66 70 18 |p | MOVEQ.L #0x18,D0
00022d68 10 d9 | | MOVE.B (A1)+,(A0)+
00022d6a 51 c8 ff fc |Q | DBF D0,0x22d68
00022d6e 59 4f |YO | SUBQ.L #0x4,A7
00022d70 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022d74 3f 02 |? | MOVE.W D2,-(A7)
00022d76 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
00022d7a 4e 92 |N | JSR (A2)
00022d7c 50 4f |PO | ADDQ.L #0x8,A7
00022d7e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022d84 de fc 00 1e | | ADDA.W #0x1e,A7
00022d88 60 26 |`& | BRA 0x22db0
00022d8a 41 fa de 4a |A J | LEA.L 0x20bd6,A0
00022d8e 70 08 |p | MOVEQ.L #0x08,D0
00022d90 3f 20 |? | MOVE.W -(A0),-(A7)
00022d92 51 c8 ff fc |Q | DBF D0,0x22d90
00022d96 59 4f |YO | SUBQ.L #0x4,A7
00022d98 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022d9c 3f 02 |? | MOVE.W D2,-(A7)
00022d9e 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00022da2 4e 92 |N | JSR (A2)
00022da4 50 4f |PO | ADDQ.L #0x8,A7
00022da6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022dac de fc 00 16 | | ADDA.W #0x16,A7
00022db0 4a 39 00 02 93 a0 |J9 | TST.B 0x293a0
00022db6 67 0e |g | BEQ 0x22dc6
00022db8 10 39 00 02 93 a0 | 9 | MOVE.B 0x293a0,D0
00022dbe 0c 00 00 07 | | CMPI.B #0x07,D0
00022dc2 66 00 00 d6 |f | BNE 0x22e9a
00022dc6 41 fa de 3a |A : | LEA.L 0x20c02,A0
00022dca 70 0a |p | MOVEQ.L #0x0a,D0
00022dcc 2f 20 |/ | MOVE.L -(A0),-(A7)
00022dce 51 c8 ff fc |Q | DBF D0,0x22dcc
00022dd2 59 4f |YO | SUBQ.L #0x4,A7
00022dd4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022dd8 3f 02 |? | MOVE.W D2,-(A7)
00022dda 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7)
00022dde 4e 92 |N | JSR (A2)
00022de0 50 4f |PO | ADDQ.L #0x8,A7
00022de2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022de8 54 4f |TO | ADDQ.L #0x2,A7
00022dea 20 4f | O | MOVEA.L A7,A0
00022dec 43 fa dc e2 |C | LEA.L 0x20ad0,A1
00022df0 70 2c |p, | MOVEQ.L #0x2c,D0
00022df2 10 d9 | | MOVE.B (A1)+,(A0)+
00022df4 51 c8 ff fc |Q | DBF D0,0x22df2
00022df8 51 4f |QO | SUBQ.L #0x8,A7
00022dfa 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00022dfe 3f 02 |? | MOVE.W D2,-(A7)
00022e00 3f 3c 00 2d |?< - | MOVE.W #0x2d,-(A7)
00022e04 4e 92 |N | JSR (A2)
00022e06 50 4f |PO | ADDQ.L #0x8,A7
00022e08 48 78 00 01 |Hx | PEA.L 0x1
00022e0c 48 78 0f ff |Hx | PEA.L 0xfff
00022e10 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00022e16 de c6 | | ADDA.W D6,A7
00022e18 23 df 00 02 9b a6 |# | MOVE.L (A7)+,0x29ba6
00022e1e de fc 00 2e | . | ADDA.W #0x2e,A7
00022e22 42 93 |B | CLR.L (A3)
00022e24 9e fc 00 38 | 8 | SUBA.W #0x38,A7
00022e28 20 4f | O | MOVEA.L A7,A0
00022e2a 43 fa dc d2 |C | LEA.L 0x20afe,A1
00022e2e 70 36 |p6 | MOVEQ.L #0x36,D0
00022e30 10 d9 | | MOVE.B (A1)+,(A0)+
00022e32 51 c8 ff fc |Q | DBF D0,0x22e30
00022e36 51 4f |QO | SUBQ.L #0x8,A7
00022e38 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00022e3c 3f 02 |? | MOVE.W D2,-(A7)
00022e3e 3f 3c 00 37 |?< 7 | MOVE.W #0x37,-(A7)
00022e42 4e 92 |N | JSR (A2)
00022e44 50 4f |PO | ADDQ.L #0x8,A7
00022e46 48 78 00 01 |Hx | PEA.L 0x1
00022e4a 48 78 00 ff |Hx | PEA.L 0xff
00022e4e 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00022e54 de c6 | | ADDA.W D6,A7
00022e56 23 df 00 02 9b ae |# | MOVE.L (A7)+,0x29bae
00022e5c 54 4f |TO | ADDQ.L #0x2,A7
00022e5e 20 4f | O | MOVEA.L A7,A0
00022e60 43 fa dc d4 |C | LEA.L 0x20b36,A1
00022e64 70 34 |p4 | MOVEQ.L #0x34,D0
00022e66 10 d9 | | MOVE.B (A1)+,(A0)+
00022e68 51 c8 ff fc |Q | DBF D0,0x22e66
00022e6c 51 4f |QO | SUBQ.L #0x8,A7
00022e6e 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00022e72 3f 02 |? | MOVE.W D2,-(A7)
00022e74 3f 3c 00 35 |?< 5 | MOVE.W #0x35,-(A7)
00022e78 4e 92 |N | JSR (A2)
00022e7a 50 4f |PO | ADDQ.L #0x8,A7
00022e7c 48 78 00 01 |Hx | PEA.L 0x1
00022e80 48 78 00 ff |Hx | PEA.L 0xff
00022e84 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00022e8a de c6 | | ADDA.W D6,A7
00022e8c 23 df 00 02 9b b2 |# | MOVE.L (A7)+,0x29bb2
00022e92 de fc 00 36 | 6 | ADDA.W #0x36,A7
00022e96 60 00 00 9c |` | BRA 0x22f34
00022e9a 9e fc 00 36 | 6 | SUBA.W #0x36,A7
00022e9e 20 4f | O | MOVEA.L A7,A0
00022ea0 43 fa dd 60 |C ` | LEA.L 0x20c02,A1
00022ea4 70 34 |p4 | MOVEQ.L #0x34,D0
00022ea6 10 d9 | | MOVE.B (A1)+,(A0)+
00022ea8 51 c8 ff fc |Q | DBF D0,0x22ea6
00022eac 10 39 00 02 93 a0 | 9 | MOVE.B 0x293a0,D0
00022eb2 48 80 |H | EXTB.W D0
00022eb4 c1 c5 | | MULS.W D5,D0
00022eb6 41 fa e5 6f |A o | LEA.L 0x21427,A0
00022eba 9e c5 | | SUBA.W D5,A7
00022ebc 22 4f |"O | MOVEA.L A7,A1
00022ebe 41 f0 00 00 |A | LEA.L (A0+D0.W),A0
00022ec2 70 13 |p | MOVEQ.L #0x13,D0
00022ec4 12 d8 | | MOVE.B (A0)+,(A1)+
00022ec6 51 c8 ff fc |Q | DBF D0,0x22ec4
00022eca 51 4f |QO | SUBQ.L #0x8,A7
00022ecc 48 6f 00 1c |Ho | PEA.L (A7+0x1c)
00022ed0 3f 02 |? | MOVE.W D2,-(A7)
00022ed2 3f 3c 00 35 |?< 5 | MOVE.W #0x35,-(A7)
00022ed6 4e 92 |N | JSR (A2)
00022ed8 58 4f |XO | ADDQ.L #0x4,A7
00022eda 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00022ede 3f 02 |? | MOVE.W D2,-(A7)
00022ee0 3f 05 |? | MOVE.W D5,-(A7)
00022ee2 4e 92 |N | JSR (A2)
00022ee4 50 4f |PO | ADDQ.L #0x8,A7
00022ee6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022eec 50 4f |PO | ADDQ.L #0x8,A7
00022eee 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022ef4 de fc 00 4e | N | ADDA.W #0x4e,A7
00022ef8 10 39 00 02 93 a0 | 9 | MOVE.B 0x293a0,D0
00022efe 48 80 |H | EXTB.W D0
00022f00 e7 40 | @ | ASL.W #0x3,D0
00022f02 41 fa e4 b6 |A | LEA.L 0x213ba,A0
00022f06 42 81 |B | CLR.L D1
00022f08 32 30 00 00 |20 | MOVE.W (A0+D0.W),D1
00022f0c 23 c1 00 02 9b a6 |# | MOVE.L D1,0x29ba6
00022f12 42 93 |B | CLR.L (A3)
00022f14 41 fa e4 a4 |A | LEA.L 0x213ba,A0
00022f18 42 81 |B | CLR.L D1
00022f1a 12 30 00 02 | 0 | MOVE.B (A0+D0.W+#0x2),D1
00022f1e 23 c1 00 02 9b ae |# | MOVE.L D1,0x29bae
00022f24 41 fa e4 94 |A | LEA.L 0x213ba,A0
00022f28 42 81 |B | CLR.L D1
00022f2a 12 30 00 03 | 0 | MOVE.B (A0+D0.W+#0x3),D1
00022f2e 23 c1 00 02 9b b2 |# | MOVE.L D1,0x29bb2
00022f34 60 2c |`, | BRA 0x22f62
00022f36 42 80 |B | CLR.L D0
00022f38 30 2c 00 2c |0, , | MOVE.W (A4+0x2c),D0
00022f3c 26 80 |& | MOVE.L D0,(A3)
00022f3e 42 80 |B | CLR.L D0
00022f40 30 2c 00 08 |0, | MOVE.W (A4+0x8),D0
00022f44 23 c0 00 02 9b a6 |# | MOVE.L D0,0x29ba6
00022f4a 42 80 |B | CLR.L D0
00022f4c 10 2c 00 0a | , | MOVE.B (A4+0xa),D0
00022f50 23 c0 00 02 9b ae |# | MOVE.L D0,0x29bae
00022f56 42 80 |B | CLR.L D0
00022f58 10 2c 00 0b | , | MOVE.B (A4+0xb),D0
00022f5c 23 c0 00 02 9b b2 |# | MOVE.L D0,0x29bb2
00022f62 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022f66 4e 5e |N^ | UNLK A6
00022f68 4e 75 |Nu | RTS
00022f6a ; --------------------------------------------------------------------------------------
00022f6a ; OMSI PASCAL Function
00022f6a ; <LVAR 0x008 4(r)>
00022f6a ; --------------------------------------------------------------------------------------
00022f6a 4e 56 fb e2 |NV | LINK.W A6,#0xfbe2
00022f6e bf d5 | | CMPA.L (A5),A7
00022f70 62 06 |b | BHI 0x22f78
00022f72 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022f76 4e 76 |Nv | TRAPV
00022f78 de fc 00 1e | | ADDA.W #0x1e,A7
00022f7c 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
00022f80 41 fa dc c0 |A | LEA.L 0x20c42,A0
00022f84 70 04 |p | MOVEQ.L #0x04,D0
00022f86 3f 20 |? | MOVE.W -(A0),-(A7)
00022f88 51 c8 ff fc |Q | DBF D0,0x22f86
00022f8c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022f90 48 78 00 01 |Hx | PEA.L 0x1
00022f94 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
00022f9a de fc 00 12 | | ADDA.W #0x12,A7
00022f9e 42 b9 00 02 9b aa |B | CLR.L 0x29baa
00022fa4 42 b9 00 02 9b a6 |B | CLR.L 0x29ba6
00022faa 42 39 00 02 9b b6 |B9 | CLR.B 0x29bb6
00022fb0 59 4f |YO | SUBQ.L #0x4,A7
00022fb2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022fb6 48 78 00 01 |Hx | PEA.L 0x1
00022fba 4e ba e9 56 |N V | JSR 0x21912
00022fbe 50 4f |PO | ADDQ.L #0x8,A7
00022fc0 4e ba fc 66 |N f | JSR 0x22c28
00022fc4 58 4f |XO | ADDQ.L #0x4,A7
00022fc6 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
00022fca 4e 5e |N^ | UNLK A6
00022fcc 4e 75 |Nu | RTS
00022fce ; --------------------------------------------------------------------------------------
00022fce ; OMSI PASCAL Function
00022fce ; <LVAR 0x008 4(r)>
00022fce ; <LVAR -0x00a 2(r)>
00022fce ; <LVAR -0x00c 4(w)>
00022fce ; <LVAR -0x010 4(w)>
00022fce ; --------------------------------------------------------------------------------------
00022fce 4e 56 ff ca |NV | LINK.W A6,#0xffca
00022fd2 bf d5 | | CMPA.L (A5),A7
00022fd4 62 06 |b | BHI 0x22fdc
00022fd6 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022fda 4e 76 |Nv | TRAPV
00022fdc de fc 00 26 | & | ADDA.W #0x26,A7
00022fe0 48 e7 83 80 |H | MOVEM.L A0+D7+D6+D0,-(A7)
00022fe4 41 fa dc 66 |A f | LEA.L 0x20c4c,A0
00022fe8 70 04 |p | MOVEQ.L #0x04,D0
00022fea 3f 20 |? | MOVE.W -(A0),-(A7)
00022fec 51 c8 ff fc |Q | DBF D0,0x22fea
00022ff0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022ff4 48 78 00 01 |Hx | PEA.L 0x1
00022ff8 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
00022ffe 5c 4f |\O | ADDQ.L #0x6,A7
00023000 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
00023004 48 78 00 01 |Hx | PEA.L 0x1
00023008 4e b9 00 02 63 f0 |N c | JSR 0x263f0
0002300e 50 4f |PO | ADDQ.L #0x8,A7
00023010 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10)
00023014 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc)
00023018 42 80 |B | CLR.L D0
0002301a 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
0002301e 2c 00 |, | MOVE.L D0,D6
00023020 7e 00 |~ | MOVEQ.L #0x00,D7
00023022 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7
00023028 63 02 |c | BLS 0x2302c
0002302a 4e 4f |NO | TRAP #15
0002302c 20 07 | | MOVE.L D7,D0
0002302e e3 80 | | ASL.L #0x1,D0
00023030 41 f9 00 02 91 90 |A | LEA.L 0x29190,A0
00023036 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
0002303a 0c 86 00 00 ff ff | | CMPI.L #0x0000ffff,D6
00023040 63 02 |c | BLS 0x23044
00023042 4e 4f |NO | TRAP #15
00023044 31 46 02 16 |1F | MOVE.W D6,(A0+0x216)
00023048 52 87 |R | ADDQ.L #0x1,D7
0002304a 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7
00023050 6f d0 |o | BLE 0x23022
00023052 4c df 01 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0
00023056 4e 5e |N^ | UNLK A6
00023058 4e 75 |Nu | RTS
0002305a ; --------------------------------------------------------------------------------------
0002305a ; OMSI PASCAL Function
0002305a ; <LVAR -0x00a @ 4(rw)>
0002305a ; <LVAR -0x00e @ 4(r)>
0002305a ; <LVAR -0x018 4(rw)>
0002305a ; --------------------------------------------------------------------------------------
0002305a 4e 56 ff 80 |NV | LINK.W A6,#0xff80
0002305e bf d5 | | CMPA.L (A5),A7
00023060 62 06 |b | BHI 0x23068
00023062 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023066 4e 76 |Nv | TRAPV
00023068 de fc 00 68 | h | ADDA.W #0x68,A7
0002306c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00023070 45 ee ff f6 |E | LEA.L (A6-0xa),A2
00023074 47 ee ff f2 |G | LEA.L (A6-0xe),A3
00023078 49 ee ff e8 |I | LEA.L (A6-0x18),A4
0002307c 74 01 |t | MOVEQ.L #0x01,D2
0002307e 76 20 |v | MOVEQ.L #0x20,D3
00023080 78 16 |x | MOVEQ.L #0x16,D4
00023082 7a 00 |z | MOVEQ.L #0x00,D5
00023084 48 53 |HS | PEA.L (A3)
00023086 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
0002308c 58 4f |XO | ADDQ.L #0x4,A7
0002308e 70 00 |p | MOVEQ.L #0x00,D0
00023090 3f 00 |? | MOVE.W D0,-(A7)
00023092 42 81 |B | CLR.L D1
00023094 32 00 |2 | MOVE.W D0,D1
00023096 e7 81 | | ASL.L #0x3,D1
00023098 28 81 |( | MOVE.L D1,(A4)
0002309a 48 52 |HR | PEA.L (A2)
0002309c 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
000230a2 2e 81 |. | MOVE.L D1,(A7)
000230a4 5e 97 |^ | ADDQ.L #0x7,(A7)
000230a6 2c 01 |, | MOVE.L D1,D6
000230a8 bc 97 | | CMP.L (A7),D6
000230aa 62 08 |b | BHI 0x230b4
000230ac 22 17 |" | MOVE.L (A7),D1
000230ae bc 81 | | CMP.L D1,D6
000230b0 6d 02 |m | BLT 0x230b4
000230b2 4e 4f |NO | TRAP #15
000230b4 bc 6f 00 02 | o | CMP.W (A7+0x2),D6
000230b8 62 48 |bH | BHI 0x23102
000230ba 59 4f |YO | SUBQ.L #0x4,A7
000230bc 2f 12 |/ | MOVE.L (A2),-(A7)
000230be 59 4f |YO | SUBQ.L #0x4,A7
000230c0 4d bc 01 ff |M | CHK.W #0x1ff,D6
000230c4 42 80 |B | CLR.L D0
000230c6 30 06 |0 | MOVE.W D6,D0
000230c8 e3 80 | | ASL.L #0x1,D0
000230ca 41 f9 00 02 91 90 |A | LEA.L 0x29190,A0
000230d0 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
000230d4 42 80 |B | CLR.L D0
000230d6 30 28 06 16 |0( | MOVE.W (A0+0x616),D0
000230da 2f 00 |/ | MOVE.L D0,-(A7)
000230dc 48 78 00 04 |Hx | PEA.L 0x4
000230e0 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
000230e6 50 4f |PO | ADDQ.L #0x8,A7
000230e8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000230ee 50 4f |PO | ADDQ.L #0x8,A7
000230f0 24 9f |$ | MOVE.L (A7)+,(A2)
000230f2 2f 12 |/ | MOVE.L (A2),-(A7)
000230f4 1f 03 | | MOVE.B D3,-(A7)
000230f6 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
000230fc 5c 4f |\O | ADDQ.L #0x6,A7
000230fe 52 46 |RF | ADDQ.W #0x1,D6
00023100 64 b2 |d | BCC 0x230b4
00023102 54 4f |TO | ADDQ.L #0x2,A7
00023104 2f 13 |/ | MOVE.L (A3),-(A7)
00023106 2f 12 |/ | MOVE.L (A2),-(A7)
00023108 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
0002310e 50 4f |PO | ADDQ.L #0x8,A7
00023110 4a 1f |J | TST.B (A7)+
00023112 67 0e |g | BEQ 0x23122
00023114 52 85 |R | ADDQ.L #0x1,D5
00023116 48 52 |HR | PEA.L (A2)
00023118 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
0002311e 60 00 01 04 |` | BRA 0x23224
00023122 4a 85 |J | TST.L D5
00023124 67 3e |g> | BEQ 0x23164
00023126 9e c4 | | SUBA.W D4,A7
00023128 20 4f | O | MOVEA.L A7,A0
0002312a 43 fa db 20 |C | LEA.L 0x20c4c,A1
0002312e 70 14 |p | MOVEQ.L #0x14,D0
00023130 10 d9 | | MOVE.B (A1)+,(A0)+
00023132 51 c8 ff fc |Q | DBF D0,0x23130
00023136 51 4f |QO | SUBQ.L #0x8,A7
00023138 2f 05 |/ | MOVE.L D5,-(A7)
0002313a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00023140 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00023144 3f 02 |? | MOVE.W D2,-(A7)
00023146 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
0002314a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00023150 50 4f |PO | ADDQ.L #0x8,A7
00023152 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00023158 50 4f |PO | ADDQ.L #0x8,A7
0002315a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00023160 de fc 00 1a | | ADDA.W #0x1a,A7
00023164 7a 00 |z | MOVEQ.L #0x00,D5
00023166 20 53 | S | MOVEA.L (A3),A0
00023168 22 52 |"R | MOVEA.L (A2),A1
0002316a 70 7f |p | MOVEQ.L #0x7f,D0
0002316c 10 d9 | | MOVE.B (A1)+,(A0)+
0002316e 51 c8 ff fc |Q | DBF D0,0x2316c
00023172 3f 3a da ee |?: | MOVE.W 0x20c62,-(A7)
00023176 2f 3a da ec |/: | MOVE.L 0x20c64,-(A7)
0002317a 51 4f |QO | SUBQ.L #0x8,A7
0002317c 2f 14 |/ | MOVE.L (A4),-(A7)
0002317e 48 78 00 04 |Hx | PEA.L 0x4
00023182 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00023188 58 4f |XO | ADDQ.L #0x4,A7
0002318a 48 6f 00 10 |Ho | PEA.L (A7+0x10)
0002318e 3f 02 |? | MOVE.W D2,-(A7)
00023190 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00023194 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002319a 58 4f |XO | ADDQ.L #0x4,A7
0002319c 2e 92 |. | MOVE.L (A2),(A7)
0002319e 59 4f |YO | SUBQ.L #0x4,A7
000231a0 48 6f 00 14 |Ho | PEA.L (A7+0x14)
000231a4 3f 02 |? | MOVE.W D2,-(A7)
000231a6 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
000231aa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000231b0 50 4f |PO | ADDQ.L #0x8,A7
000231b2 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String
000231b8 de fc 00 10 | | ADDA.W #0x10,A7
000231bc 24 9f |$ | MOVE.L (A7)+,(A2)
000231be 5c 4f |\O | ADDQ.L #0x6,A7
000231c0 7c 00 || | MOVEQ.L #0x00,D6
000231c2 30 06 |0 | MOVE.W D6,D0
000231c4 e2 48 | H | LSR.W #0x1,D0
000231c6 42 81 |B | CLR.L D1
000231c8 32 00 |2 | MOVE.W D0,D1
000231ca d2 94 | | ADD.L (A4),D1
000231cc 0c 81 00 00 01 ff | | CMPI.L #0x000001ff,D1
000231d2 63 02 |c | BLS 0x231d6
000231d4 4e 4f |NO | TRAP #15
000231d6 e3 81 | | ASL.L #0x1,D1
000231d8 41 f9 00 02 91 90 |A | LEA.L 0x29190,A0
000231de 41 f0 18 00 |A | LEA.L (A0+D1.L),A0
000231e2 3e 28 06 16 |>( | MOVE.W (A0+0x616),D7
000231e6 30 06 |0 | MOVE.W D6,D0
000231e8 c0 42 | B | AND.W D2,D0
000231ea 66 02 |f | BNE 0x231ee
000231ec e0 4f | O | LSR.W #0x8,D7
000231ee 02 47 00 ff | G | ANDI.W #0x00ff,D7
000231f2 be 43 | C | CMP.W D3,D7
000231f4 65 06 |e | BCS 0x231fc
000231f6 0c 47 00 7e | G ~ | CMPI.W #0x007e,D7
000231fa 63 08 |c | BLS 0x23204
000231fc 2f 12 |/ | MOVE.L (A2),-(A7)
000231fe 1f 3c 00 2e | < . | MOVE.B #0x2e,-(A7)
00023202 60 08 |` | BRA 0x2320c
00023204 2f 12 |/ | MOVE.L (A2),-(A7)
00023206 4f bc 00 ff |O | CHK.W #0xff,D7
0002320a 1f 07 | | MOVE.B D7,-(A7)
0002320c 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00023212 5c 4f |\O | ADDQ.L #0x6,A7
00023214 52 46 |RF | ADDQ.W #0x1,D6
00023216 0c 46 00 0f | F | CMPI.W #0x000f,D6
0002321a 63 a6 |c | BLS 0x231c2
0002321c 2f 12 |/ | MOVE.L (A2),-(A7)
0002321e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00023224 58 4f |XO | ADDQ.L #0x4,A7
00023226 50 94 |P | ADDQ.L #0x8,(A4)
00023228 30 17 |0 | MOVE.W (A7),D0
0002322a 52 40 |R@ | ADDQ.W #0x1,D0
0002322c 0c 40 00 3f | @ ? | CMPI.W #0x003f,D0
00023230 62 06 |b | BHI 0x23238
00023232 54 4f |TO | ADDQ.L #0x2,A7
00023234 60 00 fe 5a |` Z | BRA 0x23090
00023238 54 4f |TO | ADDQ.L #0x2,A7
0002323a 4a 85 |J | TST.L D5
0002323c 67 3e |g> | BEQ 0x2327c
0002323e 9e c4 | | SUBA.W D4,A7
00023240 20 4f | O | MOVEA.L A7,A0
00023242 43 fa da 08 |C | LEA.L 0x20c4c,A1
00023246 70 14 |p | MOVEQ.L #0x14,D0
00023248 10 d9 | | MOVE.B (A1)+,(A0)+
0002324a 51 c8 ff fc |Q | DBF D0,0x23248
0002324e 51 4f |QO | SUBQ.L #0x8,A7
00023250 2f 05 |/ | MOVE.L D5,-(A7)
00023252 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00023258 48 6f 00 0c |Ho | PEA.L (A7+0xc)
0002325c 3f 02 |? | MOVE.W D2,-(A7)
0002325e 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
00023262 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00023268 50 4f |PO | ADDQ.L #0x8,A7
0002326a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00023270 50 4f |PO | ADDQ.L #0x8,A7
00023272 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00023278 de fc 00 1a | | ADDA.W #0x1a,A7
0002327c 48 53 |HS | PEA.L (A3)
0002327e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00023284 58 4f |XO | ADDQ.L #0x4,A7
00023286 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002328a 4e 5e |N^ | UNLK A6
0002328c 4e 75 |Nu | RTS
0002328e ; --------------------------------------------------------------------------------------
0002328e ; OMSI PASCAL Function
0002328e ; --------------------------------------------------------------------------------------
0002328e 4e 56 ff d0 |NV | LINK.W A6,#0xffd0
00023292 bf d5 | | CMPA.L (A5),A7
00023294 62 06 |b | BHI 0x2329c
00023296 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002329a 4e 76 |Nv | TRAPV
0002329c de fc 00 30 | 0 | ADDA.W #0x30,A7
000232a0 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
000232a4 9e fc 00 14 | | SUBA.W #0x14,A7
000232a8 20 4f | O | MOVEA.L A7,A0
000232aa 43 fa d9 bc |C | LEA.L 0x20c68,A1
000232ae 70 12 |p | MOVEQ.L #0x12,D0
000232b0 10 d9 | | MOVE.B (A1)+,(A0)+
000232b2 51 c8 ff fc |Q | DBF D0,0x232b0
000232b6 59 4f |YO | SUBQ.L #0x4,A7
000232b8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000232bc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000232c0 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
000232c4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000232ca 50 4f |PO | ADDQ.L #0x8,A7
000232cc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000232d2 de fc 00 18 | | ADDA.W #0x18,A7
000232d6 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
000232da 4e 5e |N^ | UNLK A6
000232dc 4e 75 |Nu | RTS
000232de ; --------------------------------------------------------------------------------------
000232de ; OMSI PASCAL Function
000232de ; --------------------------------------------------------------------------------------
000232de 4e 56 ff e4 |NV | LINK.W A6,#0xffe4
000232e2 bf d5 | | CMPA.L (A5),A7
000232e4 62 06 |b | BHI 0x232ec
000232e6 44 fc 00 02 |D | MOVE.W #0x2,CCR
000232ea 4e 76 |Nv | TRAPV
000232ec de fc 00 1c | | ADDA.W #0x1c,A7
000232f0 2f 3a d9 92 |/: | MOVE.L 0x20c84,-(A7)
000232f4 2f 3a d9 8a |/: | MOVE.L 0x20c80,-(A7)
000232f8 2f 3a d9 82 |/: | MOVE.L 0x20c7c,-(A7)
000232fc 59 4f |YO | SUBQ.L #0x4,A7
000232fe 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023302 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00023306 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
0002330a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00023310 50 4f |PO | ADDQ.L #0x8,A7
00023312 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00023318 de fc 00 10 | | ADDA.W #0x10,A7
0002331c 4e 5e |N^ | UNLK A6
0002331e 4e 75 |Nu | RTS
00023320 ; --------------------------------------------------------------------------------------
00023320 ; OMSI PASCAL Function
00023320 ; --------------------------------------------------------------------------------------
00023320 4e 56 ff 9c |NV | LINK.W A6,#0xff9c
00023324 bf d5 | | CMPA.L (A5),A7
00023326 62 06 |b | BHI 0x2332e
00023328 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002332c 4e 76 |Nv | TRAPV
0002332e de fc 00 60 | ` | ADDA.W #0x60,A7
00023332 48 e7 f0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
00023336 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
0002333c 47 f9 00 01 02 e4 |G | LEA.L Long2String(a : Long) : String,A3
00023342 72 01 |r | MOVEQ.L #0x01,D1
00023344 74 2f |t/ | MOVEQ.L #0x2f,D2
00023346 76 0c |v | MOVEQ.L #0x0c,D3
00023348 9e fc 00 28 | ( | SUBA.W #0x28,A7
0002334c 20 4f | O | MOVEA.L A7,A0
0002334e 43 fa d9 38 |C 8 | LEA.L 0x20c88,A1
00023352 70 26 |p& | MOVEQ.L #0x26,D0
00023354 10 d9 | | MOVE.B (A1)+,(A0)+
00023356 51 c8 ff fc |Q | DBF D0,0x23354
0002335a 59 4f |YO | SUBQ.L #0x4,A7
0002335c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023360 3f 01 |? | MOVE.W D1,-(A7)
00023362 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7)
00023366 4e 92 |N | JSR (A2)
00023368 50 4f |PO | ADDQ.L #0x8,A7
0002336a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00023370 20 4f | O | MOVEA.L A7,A0
00023372 43 fa d9 3c |C < | LEA.L 0x20cb0,A1
00023376 70 2a |p* | MOVEQ.L #0x2a,D0
00023378 10 d9 | | MOVE.B (A1)+,(A0)+
0002337a 51 c8 ff fc |Q | DBF D0,0x23378
0002337e 59 4f |YO | SUBQ.L #0x4,A7
00023380 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023384 3f 01 |? | MOVE.W D1,-(A7)
00023386 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7)
0002338a 4e 92 |N | JSR (A2)
0002338c 50 4f |PO | ADDQ.L #0x8,A7
0002338e 28 5f |(_ | MOVEA.L (A7)+,A4
00023390 de fc 00 24 | $ | ADDA.W #0x24,A7
00023394 2e 8c |. | MOVE.L A4,(A7)
00023396 59 4f |YO | SUBQ.L #0x4,A7
00023398 2f 39 00 02 9b aa |/9 | MOVE.L 0x29baa,-(A7)
0002339e 4e 93 |N | JSR (A3)
000233a0 58 4f |XO | ADDQ.L #0x4,A7
000233a2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000233a8 50 4f |PO | ADDQ.L #0x8,A7
000233aa 28 5f |(_ | MOVEA.L (A7)+,A4
000233ac 2f 0c |/ | MOVE.L A4,-(A7)
000233ae 1f 02 | | MOVE.B D2,-(A7)
000233b0 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
000233b6 54 4f |TO | ADDQ.L #0x2,A7
000233b8 2e ba d9 22 |. " | MOVE.L 0x20cdc,(A7)
000233bc 59 4f |YO | SUBQ.L #0x4,A7
000233be 2f 0c |/ | MOVE.L A4,-(A7)
000233c0 59 4f |YO | SUBQ.L #0x4,A7
000233c2 48 78 00 00 |Hx | PEA.L 0x0
000233c6 4e 93 |N | JSR (A3)
000233c8 48 6f 00 10 |Ho | PEA.L (A7+0x10)
000233cc 3f 01 |? | MOVE.W D1,-(A7)
000233ce 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
000233d2 4e 92 |N | JSR (A2)
000233d4 50 4f |PO | ADDQ.L #0x8,A7
000233d6 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
000233dc de c3 | | ADDA.W D3,A7
000233de 28 5f |(_ | MOVEA.L (A7)+,A4
000233e0 2f 0c |/ | MOVE.L A4,-(A7)
000233e2 59 4f |YO | SUBQ.L #0x4,A7
000233e4 2f 39 00 02 9b a6 |/9 | MOVE.L 0x29ba6,-(A7)
000233ea 4e 93 |N | JSR (A3)
000233ec 58 4f |XO | ADDQ.L #0x4,A7
000233ee 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000233f4 50 4f |PO | ADDQ.L #0x8,A7
000233f6 28 5f |(_ | MOVEA.L (A7)+,A4
000233f8 2f 0c |/ | MOVE.L A4,-(A7)
000233fa 1f 02 | | MOVE.B D2,-(A7)
000233fc 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00023402 58 4f |XO | ADDQ.L #0x4,A7
00023404 3e ba d8 da |> | MOVE.W 0x20ce0,(A7)
00023408 59 4f |YO | SUBQ.L #0x4,A7
0002340a 2f 0c |/ | MOVE.L A4,-(A7)
0002340c 59 4f |YO | SUBQ.L #0x4,A7
0002340e 2f 39 00 02 9b ae |/9 | MOVE.L 0x29bae,-(A7)
00023414 4e 93 |N | JSR (A3)
00023416 48 6f 00 10 |Ho | PEA.L (A7+0x10)
0002341a 3f 01 |? | MOVE.W D1,-(A7)
0002341c 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00023420 4e 92 |N | JSR (A2)
00023422 50 4f |PO | ADDQ.L #0x8,A7
00023424 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
0002342a de c3 | | ADDA.W D3,A7
0002342c 28 5f |(_ | MOVEA.L (A7)+,A4
0002342e 54 4f |TO | ADDQ.L #0x2,A7
00023430 2f 0c |/ | MOVE.L A4,-(A7)
00023432 4e b9 00 02 56 96 |N V | JSR 0x25696
00023438 58 4f |XO | ADDQ.L #0x4,A7
0002343a 4c df 1f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
0002343e 4e 5e |N^ | UNLK A6
00023440 4e 75 |Nu | RTS
00023442 ; --------------------------------------------------------------------------------------
00023442 ; OMSI PASCAL Function
00023442 ; <LVAR 0x008 4(r)>
00023442 ; <LVAR -0x004 @ 1(r)>
00023442 ; --------------------------------------------------------------------------------------
00023442 4e 56 ff a8 |NV | LINK.W A6,#0xffa8
00023446 bf d5 | | CMPA.L (A5),A7
00023448 62 06 |b | BHI 0x23450
0002344a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002344e 4e 76 |Nv | TRAPV
00023450 de fc 00 48 | H | ADDA.W #0x48,A7
00023454 48 e7 87 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D0,-(A7)
00023458 45 ee 00 08 |E | LEA.L (A6+0x8),A2
0002345c 47 fa e4 b4 |G | LEA.L 0x21912,A3
00023460 41 fa d8 a2 |A | LEA.L 0x20d04,A0
00023464 70 04 |p | MOVEQ.L #0x04,D0
00023466 3f 20 |? | MOVE.W -(A0),-(A7)
00023468 51 c8 ff fc |Q | DBF D0,0x23466
0002346c 2f 12 |/ | MOVE.L (A2),-(A7)
0002346e 48 78 00 03 |Hx | PEA.L 0x3
00023472 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
00023478 de fc 00 0a | | ADDA.W #0xa,A7
0002347c 2e 92 |. | MOVE.L (A2),(A7)
0002347e 48 78 00 01 |Hx | PEA.L 0x1
00023482 4e 93 |N | JSR (A3)
00023484 50 4f |PO | ADDQ.L #0x8,A7
00023486 2e 17 |. | MOVE.L (A7),D7
00023488 2f 12 |/ | MOVE.L (A2),-(A7)
0002348a 48 78 00 02 |Hx | PEA.L 0x2
0002348e 4e 93 |N | JSR (A3)
00023490 50 4f |PO | ADDQ.L #0x8,A7
00023492 2c 17 |, | MOVE.L (A7),D6
00023494 2f 12 |/ | MOVE.L (A2),-(A7)
00023496 48 78 00 03 |Hx | PEA.L 0x3
0002349a 4e 93 |N | JSR (A3)
0002349c 50 4f |PO | ADDQ.L #0x8,A7
0002349e 2a 1f |* | MOVE.L (A7)+,D5
000234a0 be b9 00 02 9b aa | | CMP.L 0x29baa,D7
000234a6 6c 04 |l | BGE 0x234ac
000234a8 4e ba fe 76 |N v | JSR 0x23320
000234ac 2f 07 |/ | MOVE.L D7,-(A7)
000234ae 2f 06 |/ | MOVE.L D6,-(A7)
000234b0 2f 05 |/ | MOVE.L D5,-(A7)
000234b2 1f 3c 00 03 | < | MOVE.B #0x03,-(A7)
000234b6 48 6e ff fc |Hn | PEA.L (A6-0x4)
000234ba 4e ba f5 ba |N | JSR 0x22a76
000234be de fc 00 12 | | ADDA.W #0x12,A7
000234c2 4a 2e ff fc |J. | TST.B (A6-0x4)
000234c6 66 3a |f: | BNE 0x23502
000234c8 9e fc 00 18 | | SUBA.W #0x18,A7
000234cc 20 4f | O | MOVEA.L A7,A0
000234ce 43 fa d8 12 |C | LEA.L 0x20ce2,A1
000234d2 70 16 |p | MOVEQ.L #0x16,D0
000234d4 10 d9 | | MOVE.B (A1)+,(A0)+
000234d6 51 c8 ff fc |Q | DBF D0,0x234d4
000234da 59 4f |YO | SUBQ.L #0x4,A7
000234dc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000234e0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000234e4 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
000234e8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000234ee 50 4f |PO | ADDQ.L #0x8,A7
000234f0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000234f6 de fc 00 1a | | ADDA.W #0x1a,A7
000234fa 42 17 |B | CLR.B (A7)
000234fc 4e ba e6 94 |N | JSR 0x21b92
00023500 54 4f |TO | ADDQ.L #0x2,A7
00023502 4c df 0f e1 |L | MOVEM.L (A7)+,D0+D5+D6+D7+A0+A1+A2+A3
00023506 4e 5e |N^ | UNLK A6
00023508 4e 75 |Nu | RTS
0002350a ; --------------------------------------------------------------------------------------
0002350a ; OMSI PASCAL Function
0002350a ; <LVAR 0x008 4(r)>
0002350a ; <LVAR -0x004 @ 1(r)>
0002350a ; --------------------------------------------------------------------------------------
0002350a 4e 56 ff ae |NV | LINK.W A6,#0xffae
0002350e bf d5 | | CMPA.L (A5),A7
00023510 62 06 |b | BHI 0x23518
00023512 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023516 4e 76 |Nv | TRAPV
00023518 de fc 00 42 | B | ADDA.W #0x42,A7
0002351c 48 e7 87 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D0,-(A7)
00023520 43 ee 00 08 |C | LEA.L (A6+0x8),A1
00023524 45 fa e3 ec |E | LEA.L 0x21912,A2
00023528 41 fa d7 fa |A | LEA.L 0x20d24,A0
0002352c 70 04 |p | MOVEQ.L #0x04,D0
0002352e 3f 20 |? | MOVE.W -(A0),-(A7)
00023530 51 c8 ff fc |Q | DBF D0,0x2352e
00023534 2f 11 |/ | MOVE.L (A1),-(A7)
00023536 48 78 00 03 |Hx | PEA.L 0x3
0002353a 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
00023540 de fc 00 0a | | ADDA.W #0xa,A7
00023544 2e 91 |. | MOVE.L (A1),(A7)
00023546 48 78 00 01 |Hx | PEA.L 0x1
0002354a 4e 92 |N | JSR (A2)
0002354c 50 4f |PO | ADDQ.L #0x8,A7
0002354e 2e 17 |. | MOVE.L (A7),D7
00023550 2f 11 |/ | MOVE.L (A1),-(A7)
00023552 48 78 00 02 |Hx | PEA.L 0x2
00023556 4e 92 |N | JSR (A2)
00023558 50 4f |PO | ADDQ.L #0x8,A7
0002355a 2c 17 |, | MOVE.L (A7),D6
0002355c 2f 11 |/ | MOVE.L (A1),-(A7)
0002355e 48 78 00 03 |Hx | PEA.L 0x3
00023562 4e 92 |N | JSR (A2)
00023564 50 4f |PO | ADDQ.L #0x8,A7
00023566 2a 1f |* | MOVE.L (A7)+,D5
00023568 2f 07 |/ | MOVE.L D7,-(A7)
0002356a 2f 06 |/ | MOVE.L D6,-(A7)
0002356c 2f 05 |/ | MOVE.L D5,-(A7)
0002356e 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00023572 48 6e ff fc |Hn | PEA.L (A6-0x4)
00023576 4e ba f4 fe |N | JSR 0x22a76
0002357a de fc 00 12 | | ADDA.W #0x12,A7
0002357e 4a 2e ff fc |J. | TST.B (A6-0x4)
00023582 66 34 |f4 | BNE 0x235b8
00023584 41 fa d7 94 |A | LEA.L 0x20d1a,A0
00023588 70 0a |p | MOVEQ.L #0x0a,D0
0002358a 3f 20 |? | MOVE.W -(A0),-(A7)
0002358c 51 c8 ff fc |Q | DBF D0,0x2358a
00023590 59 4f |YO | SUBQ.L #0x4,A7
00023592 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023596 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002359a 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
0002359e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000235a4 50 4f |PO | ADDQ.L #0x8,A7
000235a6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000235ac de fc 00 18 | | ADDA.W #0x18,A7
000235b0 42 17 |B | CLR.B (A7)
000235b2 4e ba e5 de |N | JSR 0x21b92
000235b6 54 4f |TO | ADDQ.L #0x2,A7
000235b8 4c df 07 e1 |L | MOVEM.L (A7)+,D0+D5+D6+D7+A0+A1+A2
000235bc 4e 5e |N^ | UNLK A6
000235be 4e 75 |Nu | RTS
000235c0 ; --------------------------------------------------------------------------------------
000235c0 ; OMSI PASCAL Function
000235c0 ; <LVAR 0x008 1(rw)>
000235c0 ; <LVAR -0x012 2(r)>
000235c0 ; <LVAR -0x018 @>
000235c0 ; --------------------------------------------------------------------------------------
000235c0 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
000235c4 bf d5 | | CMPA.L (A5),A7
000235c6 62 06 |b | BHI 0x235ce
000235c8 44 fc 00 02 |D | MOVE.W #0x2,CCR
000235cc 4e 76 |Nv | TRAPV
000235ce de fc 00 10 | | ADDA.W #0x10,A7
000235d2 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
000235d6 41 ee 00 08 |A | LEA.L (A6+0x8),A0
000235da 48 6e ff e8 |Hn | PEA.L (A6-0x18)
000235de 4e ba e4 aa |N | JSR 0x21a8a
000235e2 58 4f |XO | ADDQ.L #0x4,A7
000235e4 30 2e ff ee |0. | MOVE.W (A6-0x12),D0
000235e8 02 40 80 00 | @ | ANDI.W #0x8000,D0
000235ec 66 04 |f | BNE 0x235f2
000235ee 42 10 |B | CLR.B (A0)
000235f0 60 14 |` | BRA 0x23606
000235f2 30 2e ff ee |0. | MOVE.W (A6-0x12),D0
000235f6 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
000235fa 66 06 |f | BNE 0x23602
000235fc 10 bc 00 01 | | MOVE.B #0x01,(A0)
00023600 60 04 |` | BRA 0x23606
00023602 10 bc 00 02 | | MOVE.B #0x02,(A0)
00023606 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
0002360a 4e 5e |N^ | UNLK A6
0002360c 4e 75 |Nu | RTS
0002360e ; --------------------------------------------------------------------------------------
0002360e ; OMSI PASCAL Function
0002360e ; <LVAR 0x008 4(r)>
0002360e ; <LVAR -0x006 4(rw)>
0002360e ; <LVAR -0x008 @ 1(r)>
0002360e ; --------------------------------------------------------------------------------------
0002360e 4e 56 ff 70 |NV p | LINK.W A6,#0xff70
00023612 bf d5 | | CMPA.L (A5),A7
00023614 62 06 |b | BHI 0x2361c
00023616 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002361a 4e 76 |Nv | TRAPV
0002361c de fc 00 7c | | | ADDA.W #0x7c,A7
00023620 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00023624 45 f9 00 02 9b a6 |E | LEA.L 0x29ba6,A2
0002362a 47 ee 00 08 |G | LEA.L (A6+0x8),A3
0002362e 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00023634 72 01 |r | MOVEQ.L #0x01,D1
00023636 74 04 |t | MOVEQ.L #0x04,D2
00023638 76 12 |v | MOVEQ.L #0x12,D3
0002363a 78 14 |x | MOVEQ.L #0x14,D4
0002363c 41 fa d7 94 |A | LEA.L 0x20dd2,A0
00023640 70 04 |p | MOVEQ.L #0x04,D0
00023642 3f 20 |? | MOVE.W -(A0),-(A7)
00023644 51 c8 ff fc |Q | DBF D0,0x23642
00023648 2f 13 |/ | MOVE.L (A3),-(A7)
0002364a 48 78 00 03 |Hx | PEA.L 0x3
0002364e 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
00023654 de fc 00 0a | | ADDA.W #0xa,A7
00023658 2e 93 |. | MOVE.L (A3),(A7)
0002365a 48 78 00 01 |Hx | PEA.L 0x1
0002365e 4e ba e2 b2 |N | JSR 0x21912
00023662 50 4f |PO | ADDQ.L #0x8,A7
00023664 2e 17 |. | MOVE.L (A7),D7
00023666 2f 13 |/ | MOVE.L (A3),-(A7)
00023668 48 78 00 02 |Hx | PEA.L 0x2
0002366c 4e ba e2 a4 |N | JSR 0x21912
00023670 50 4f |PO | ADDQ.L #0x8,A7
00023672 2c 17 |, | MOVE.L (A7),D6
00023674 2f 13 |/ | MOVE.L (A3),-(A7)
00023676 48 78 00 03 |Hx | PEA.L 0x3
0002367a 4e ba e2 96 |N | JSR 0x21912
0002367e 50 4f |PO | ADDQ.L #0x8,A7
00023680 2a 1f |* | MOVE.L (A7)+,D5
00023682 2d 52 ff fa |-R | MOVE.L (A2),(A6-0x6)
00023686 24 bc 00 00 27 0f |$ ' | MOVE.L #0x270f,(A2)
0002368c 48 78 27 0e |Hx' | PEA.L 0x270e
00023690 2f 06 |/ | MOVE.L D6,-(A7)
00023692 2f 05 |/ | MOVE.L D5,-(A7)
00023694 1f 02 | | MOVE.B D2,-(A7)
00023696 48 6e ff f8 |Hn | PEA.L (A6-0x8)
0002369a 4e ba f3 da |N | JSR 0x22a76
0002369e de c3 | | ADDA.W D3,A7
000236a0 24 ae ff fa |$ | MOVE.L (A6-0x6),(A2)
000236a4 2f 07 |/ | MOVE.L D7,-(A7)
000236a6 2f 06 |/ | MOVE.L D6,-(A7)
000236a8 2f 05 |/ | MOVE.L D5,-(A7)
000236aa 1f 02 | | MOVE.B D2,-(A7)
000236ac 48 6e ff f8 |Hn | PEA.L (A6-0x8)
000236b0 4e ba f3 c4 |N | JSR 0x22a76
000236b4 de c3 | | ADDA.W D3,A7
000236b6 4a 2e ff f8 |J. | TST.B (A6-0x8)
000236ba 67 28 |g( | BEQ 0x236e4
000236bc 41 fa d6 7a |A z | LEA.L 0x20d38,A0
000236c0 70 04 |p | MOVEQ.L #0x04,D0
000236c2 2f 20 |/ | MOVE.L -(A0),-(A7)
000236c4 51 c8 ff fc |Q | DBF D0,0x236c2
000236c8 59 4f |YO | SUBQ.L #0x4,A7
000236ca 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000236ce 3f 01 |? | MOVE.W D1,-(A7)
000236d0 3f 04 |? | MOVE.W D4,-(A7)
000236d2 4e 94 |N | JSR (A4)
000236d4 50 4f |PO | ADDQ.L #0x8,A7
000236d6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000236dc de fc 00 18 | | ADDA.W #0x18,A7
000236e0 60 00 00 aa |` | BRA 0x2378c
000236e4 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
000236ea 55 4f |UO | SUBQ.L #0x2,A7
000236ec 4e ba fe d2 |N | JSR 0x235c0
000236f0 10 1f | | MOVE.B (A7)+,D0
000236f2 48 80 |H | EXTB.W D0
000236f4 0c 40 00 02 | @ | CMPI.W #0x0002,D0
000236f8 63 02 |c | BLS 0x236fc
000236fa 4e 4e |NN | TRAP #14
000236fc d0 40 | @ | ADD.W D0,D0
000236fe 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
00023706 00 06 | | .CONST 0x6 ; [0x0] -> 0x2370c
00023708 00 2c | , | .CONST 0x2c ; [0x1] -> 0x23732
0002370a 00 5a | Z | .CONST 0x5a ; [0x2] -> 0x23760
0002370c switch@0x236fe[0x0]:
0002370c 41 fa d6 2a |A * | LEA.L 0x20d38,A0
00023710 70 04 |p | MOVEQ.L #0x04,D0
00023712 2f 20 |/ | MOVE.L -(A0),-(A7)
00023714 51 c8 ff fc |Q | DBF D0,0x23712
00023718 59 4f |YO | SUBQ.L #0x4,A7
0002371a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002371e 3f 01 |? | MOVE.W D1,-(A7)
00023720 3f 04 |? | MOVE.W D4,-(A7)
00023722 4e 94 |N | JSR (A4)
00023724 50 4f |PO | ADDQ.L #0x8,A7
00023726 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002372c de fc 00 18 | | ADDA.W #0x18,A7
00023730 60 54 |`T | BRA 0x23786
00023732 switch@0x236fe[0x1]:
00023732 9e fc 00 38 | 8 | SUBA.W #0x38,A7
00023736 20 4f | O | MOVEA.L A7,A0
00023738 43 fa d5 fe |C | LEA.L 0x20d38,A1
0002373c 70 36 |p6 | MOVEQ.L #0x36,D0
0002373e 10 d9 | | MOVE.B (A1)+,(A0)+
00023740 51 c8 ff fc |Q | DBF D0,0x2373e
00023744 59 4f |YO | SUBQ.L #0x4,A7
00023746 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002374a 3f 01 |? | MOVE.W D1,-(A7)
0002374c 3f 3c 00 37 |?< 7 | MOVE.W #0x37,-(A7)
00023750 4e 94 |N | JSR (A4)
00023752 50 4f |PO | ADDQ.L #0x8,A7
00023754 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002375a de fc 00 3c | < | ADDA.W #0x3c,A7
0002375e 60 26 |`& | BRA 0x23786
00023760 switch@0x236fe[0x2]:
00023760 41 fa d6 66 |A f | LEA.L 0x20dc8,A0
00023764 70 06 |p | MOVEQ.L #0x06,D0
00023766 2f 20 |/ | MOVE.L -(A0),-(A7)
00023768 51 c8 ff fc |Q | DBF D0,0x23766
0002376c 59 4f |YO | SUBQ.L #0x4,A7
0002376e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023772 3f 01 |? | MOVE.W D1,-(A7)
00023774 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7)
00023778 4e 94 |N | JSR (A4)
0002377a 50 4f |PO | ADDQ.L #0x8,A7
0002377c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00023782 de fc 00 20 | | ADDA.W #0x20,A7
00023786 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
0002378c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00023790 4e 5e |N^ | UNLK A6
00023792 4e 75 |Nu | RTS
00023794 ; --------------------------------------------------------------------------------------
00023794 ; OMSI PASCAL Function
00023794 ; <LVAR 0x008 4(r)>
00023794 ; <LVAR -0x004 @ 1(r)>
00023794 ; --------------------------------------------------------------------------------------
00023794 4e 56 ff ae |NV | LINK.W A6,#0xffae
00023798 bf d5 | | CMPA.L (A5),A7
0002379a 62 06 |b | BHI 0x237a2
0002379c 44 fc 00 02 |D | MOVE.W #0x2,CCR
000237a0 4e 76 |Nv | TRAPV
000237a2 de fc 00 42 | B | ADDA.W #0x42,A7
000237a6 48 e7 87 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D0,-(A7)
000237aa 43 ee 00 08 |C | LEA.L (A6+0x8),A1
000237ae 45 fa e1 62 |E b | LEA.L 0x21912,A2
000237b2 41 fa d6 3e |A > | LEA.L 0x20df2,A0
000237b6 70 04 |p | MOVEQ.L #0x04,D0
000237b8 3f 20 |? | MOVE.W -(A0),-(A7)
000237ba 51 c8 ff fc |Q | DBF D0,0x237b8
000237be 2f 11 |/ | MOVE.L (A1),-(A7)
000237c0 48 78 00 03 |Hx | PEA.L 0x3
000237c4 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
000237ca de fc 00 0a | | ADDA.W #0xa,A7
000237ce 2e 91 |. | MOVE.L (A1),(A7)
000237d0 48 78 00 01 |Hx | PEA.L 0x1
000237d4 4e 92 |N | JSR (A2)
000237d6 50 4f |PO | ADDQ.L #0x8,A7
000237d8 2e 17 |. | MOVE.L (A7),D7
000237da 2f 11 |/ | MOVE.L (A1),-(A7)
000237dc 48 78 00 02 |Hx | PEA.L 0x2
000237e0 4e 92 |N | JSR (A2)
000237e2 50 4f |PO | ADDQ.L #0x8,A7
000237e4 2c 17 |, | MOVE.L (A7),D6
000237e6 2f 11 |/ | MOVE.L (A1),-(A7)
000237e8 48 78 00 03 |Hx | PEA.L 0x3
000237ec 4e 92 |N | JSR (A2)
000237ee 50 4f |PO | ADDQ.L #0x8,A7
000237f0 2a 1f |* | MOVE.L (A7)+,D5
000237f2 2f 07 |/ | MOVE.L D7,-(A7)
000237f4 2f 06 |/ | MOVE.L D6,-(A7)
000237f6 2f 05 |/ | MOVE.L D5,-(A7)
000237f8 1f 3c 00 04 | < | MOVE.B #0x04,-(A7)
000237fc 48 6e ff fc |Hn | PEA.L (A6-0x4)
00023800 4e ba f2 74 |N t | JSR 0x22a76
00023804 de fc 00 12 | | ADDA.W #0x12,A7
00023808 4a 2e ff fc |J. | TST.B (A6-0x4)
0002380c 66 34 |f4 | BNE 0x23842
0002380e 41 fa d5 d8 |A | LEA.L 0x20de8,A0
00023812 70 0a |p | MOVEQ.L #0x0a,D0
00023814 3f 20 |? | MOVE.W -(A0),-(A7)
00023816 51 c8 ff fc |Q | DBF D0,0x23814
0002381a 59 4f |YO | SUBQ.L #0x4,A7
0002381c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023820 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00023824 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
00023828 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002382e 50 4f |PO | ADDQ.L #0x8,A7
00023830 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00023836 de fc 00 18 | | ADDA.W #0x18,A7
0002383a 42 17 |B | CLR.B (A7)
0002383c 4e ba e3 54 |N T | JSR 0x21b92
00023840 54 4f |TO | ADDQ.L #0x2,A7
00023842 4c df 07 e1 |L | MOVEM.L (A7)+,D0+D5+D6+D7+A0+A1+A2
00023846 4e 5e |N^ | UNLK A6
00023848 4e 75 |Nu | RTS
0002384a ; --------------------------------------------------------------------------------------
0002384a ; OMSI PASCAL Function
0002384a ; <LVAR 0x008 4(r)>
0002384a ; <LVAR -0x004 @ 1(r)>
0002384a ; --------------------------------------------------------------------------------------
0002384a 4e 56 ff ae |NV | LINK.W A6,#0xffae
0002384e bf d5 | | CMPA.L (A5),A7
00023850 62 06 |b | BHI 0x23858
00023852 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023856 4e 76 |Nv | TRAPV
00023858 de fc 00 42 | B | ADDA.W #0x42,A7
0002385c 48 e7 87 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D0,-(A7)
00023860 43 ee 00 08 |C | LEA.L (A6+0x8),A1
00023864 45 fa e0 ac |E | LEA.L 0x21912,A2
00023868 41 fa d5 a8 |A | LEA.L 0x20e12,A0
0002386c 70 04 |p | MOVEQ.L #0x04,D0
0002386e 3f 20 |? | MOVE.W -(A0),-(A7)
00023870 51 c8 ff fc |Q | DBF D0,0x2386e
00023874 2f 11 |/ | MOVE.L (A1),-(A7)
00023876 48 78 00 03 |Hx | PEA.L 0x3
0002387a 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
00023880 de fc 00 0a | | ADDA.W #0xa,A7
00023884 2e 91 |. | MOVE.L (A1),(A7)
00023886 48 78 00 01 |Hx | PEA.L 0x1
0002388a 4e 92 |N | JSR (A2)
0002388c 50 4f |PO | ADDQ.L #0x8,A7
0002388e 2e 17 |. | MOVE.L (A7),D7
00023890 2f 11 |/ | MOVE.L (A1),-(A7)
00023892 48 78 00 02 |Hx | PEA.L 0x2
00023896 4e 92 |N | JSR (A2)
00023898 50 4f |PO | ADDQ.L #0x8,A7
0002389a 2c 17 |, | MOVE.L (A7),D6
0002389c 2f 11 |/ | MOVE.L (A1),-(A7)
0002389e 48 78 00 03 |Hx | PEA.L 0x3
000238a2 4e 92 |N | JSR (A2)
000238a4 50 4f |PO | ADDQ.L #0x8,A7
000238a6 2a 1f |* | MOVE.L (A7)+,D5
000238a8 2f 07 |/ | MOVE.L D7,-(A7)
000238aa 2f 06 |/ | MOVE.L D6,-(A7)
000238ac 2f 05 |/ | MOVE.L D5,-(A7)
000238ae 1f 3c 00 10 | < | MOVE.B #0x10,-(A7)
000238b2 48 6e ff fc |Hn | PEA.L (A6-0x4)
000238b6 4e ba f1 be |N | JSR 0x22a76
000238ba de fc 00 12 | | ADDA.W #0x12,A7
000238be 4a 2e ff fc |J. | TST.B (A6-0x4)
000238c2 66 34 |f4 | BNE 0x238f8
000238c4 41 fa d5 42 |A B | LEA.L 0x20e08,A0
000238c8 70 0a |p | MOVEQ.L #0x0a,D0
000238ca 3f 20 |? | MOVE.W -(A0),-(A7)
000238cc 51 c8 ff fc |Q | DBF D0,0x238ca
000238d0 59 4f |YO | SUBQ.L #0x4,A7
000238d2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000238d6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000238da 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
000238de 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000238e4 50 4f |PO | ADDQ.L #0x8,A7
000238e6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000238ec de fc 00 18 | | ADDA.W #0x18,A7
000238f0 42 17 |B | CLR.B (A7)
000238f2 4e ba e2 9e |N | JSR 0x21b92
000238f6 54 4f |TO | ADDQ.L #0x2,A7
000238f8 4c df 07 e1 |L | MOVEM.L (A7)+,D0+D5+D6+D7+A0+A1+A2
000238fc 4e 5e |N^ | UNLK A6
000238fe 4e 75 |Nu | RTS
00023900 ; --------------------------------------------------------------------------------------
00023900 ; OMSI PASCAL Function
00023900 ; <LVAR 0x008 4(r)>
00023900 ; <LVAR -0x004 @ 1(r)>
00023900 ; --------------------------------------------------------------------------------------
00023900 4e 56 ff ae |NV | LINK.W A6,#0xffae
00023904 bf d5 | | CMPA.L (A5),A7
00023906 62 06 |b | BHI 0x2390e
00023908 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002390c 4e 76 |Nv | TRAPV
0002390e de fc 00 42 | B | ADDA.W #0x42,A7
00023912 48 e7 87 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D0,-(A7)
00023916 43 ee 00 08 |C | LEA.L (A6+0x8),A1
0002391a 45 fa df f6 |E | LEA.L 0x21912,A2
0002391e 41 fa d5 12 |A | LEA.L 0x20e32,A0
00023922 70 04 |p | MOVEQ.L #0x04,D0
00023924 3f 20 |? | MOVE.W -(A0),-(A7)
00023926 51 c8 ff fc |Q | DBF D0,0x23924
0002392a 2f 11 |/ | MOVE.L (A1),-(A7)
0002392c 48 78 00 03 |Hx | PEA.L 0x3
00023930 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
00023936 de fc 00 0a | | ADDA.W #0xa,A7
0002393a 2e 91 |. | MOVE.L (A1),(A7)
0002393c 48 78 00 01 |Hx | PEA.L 0x1
00023940 4e 92 |N | JSR (A2)
00023942 50 4f |PO | ADDQ.L #0x8,A7
00023944 2e 17 |. | MOVE.L (A7),D7
00023946 2f 11 |/ | MOVE.L (A1),-(A7)
00023948 48 78 00 02 |Hx | PEA.L 0x2
0002394c 4e 92 |N | JSR (A2)
0002394e 50 4f |PO | ADDQ.L #0x8,A7
00023950 2c 17 |, | MOVE.L (A7),D6
00023952 2f 11 |/ | MOVE.L (A1),-(A7)
00023954 48 78 00 03 |Hx | PEA.L 0x3
00023958 4e 92 |N | JSR (A2)
0002395a 50 4f |PO | ADDQ.L #0x8,A7
0002395c 2a 1f |* | MOVE.L (A7)+,D5
0002395e 2f 07 |/ | MOVE.L D7,-(A7)
00023960 2f 06 |/ | MOVE.L D6,-(A7)
00023962 2f 05 |/ | MOVE.L D5,-(A7)
00023964 1f 3c 00 11 | < | MOVE.B #0x11,-(A7)
00023968 48 6e ff fc |Hn | PEA.L (A6-0x4)
0002396c 4e ba f1 08 |N | JSR 0x22a76
00023970 de fc 00 12 | | ADDA.W #0x12,A7
00023974 4a 2e ff fc |J. | TST.B (A6-0x4)
00023978 66 34 |f4 | BNE 0x239ae
0002397a 41 fa d4 ac |A | LEA.L 0x20e28,A0
0002397e 70 0a |p | MOVEQ.L #0x0a,D0
00023980 3f 20 |? | MOVE.W -(A0),-(A7)
00023982 51 c8 ff fc |Q | DBF D0,0x23980
00023986 59 4f |YO | SUBQ.L #0x4,A7
00023988 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002398c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00023990 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
00023994 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002399a 50 4f |PO | ADDQ.L #0x8,A7
0002399c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000239a2 de fc 00 18 | | ADDA.W #0x18,A7
000239a6 42 17 |B | CLR.B (A7)
000239a8 4e ba e1 e8 |N | JSR 0x21b92
000239ac 54 4f |TO | ADDQ.L #0x2,A7
000239ae 4c df 07 e1 |L | MOVEM.L (A7)+,D0+D5+D6+D7+A0+A1+A2
000239b2 4e 5e |N^ | UNLK A6
000239b4 4e 75 |Nu | RTS
000239b6 ; --------------------------------------------------------------------------------------
000239b6 ; OMSI PASCAL Function
000239b6 ; --------------------------------------------------------------------------------------
000239b6 4e 56 ff f0 |NV | LINK.W A6,#0xfff0
000239ba bf d5 | | CMPA.L (A5),A7
000239bc 62 06 |b | BHI 0x239c4
000239be 44 fc 00 02 |D | MOVE.W #0x2,CCR
000239c2 4e 76 |Nv | TRAPV
000239c4 de fc 00 10 | | ADDA.W #0x10,A7
000239c8 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
000239cc 41 f9 00 02 93 a6 |A | LEA.L 0x293a6,A0
000239d2 43 f9 00 02 97 a6 |C | LEA.L 0x297a6,A1
000239d8 30 3c 00 ff |0< | MOVE.W #0xff,D0
000239dc 20 d9 | | MOVE.L (A1)+,(A0)+
000239de 51 c8 ff fc |Q | DBF D0,0x239dc
000239e2 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
000239e6 4e 5e |N^ | UNLK A6
000239e8 4e 75 |Nu | RTS
000239ea ; --------------------------------------------------------------------------------------
000239ea ; OMSI PASCAL Function
000239ea ; <LVAR 0x00c 4(w)>
000239ea ; <LVAR 0x008 4(r)>
000239ea ; --------------------------------------------------------------------------------------
000239ea 4e 56 ff e4 |NV | LINK.W A6,#0xffe4
000239ee bf d5 | | CMPA.L (A5),A7
000239f0 62 06 |b | BHI 0x239f8
000239f2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000239f6 4e 76 |Nv | TRAPV
000239f8 de fc 00 14 | | ADDA.W #0x14,A7
000239fc 48 e7 03 00 |H | MOVEM.L D7+D6,-(A7)
00023a00 7e 01 |~ | MOVEQ.L #0x01,D7
00023a02 4a ae 00 08 |J | TST.L (A6+0x8)
00023a06 67 12 |g | BEQ 0x23a1a
00023a08 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023a0c 7c 01 || | MOVEQ.L #0x01,D6
00023a0e bc 97 | | CMP.L (A7),D6
00023a10 6e 06 |n | BGT 0x23a18
00023a12 e3 87 | | ASL.L #0x1,D7
00023a14 52 86 |R | ADDQ.L #0x1,D6
00023a16 68 f6 |h | BVC 0x23a0e
00023a18 58 4f |XO | ADDQ.L #0x4,A7
00023a1a 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc)
00023a1e 4c df 00 c0 |L | MOVEM.L (A7)+,D6+D7
00023a22 4e 5e |N^ | UNLK A6
00023a24 4e 75 |Nu | RTS
00023a26 ; --------------------------------------------------------------------------------------
00023a26 ; OMSI PASCAL Function
00023a26 ; <LVAR 0x008 4(r)>
00023a26 ; --------------------------------------------------------------------------------------
00023a26 4e 56 ff c4 |NV | LINK.W A6,#0xffc4
00023a2a bf d5 | | CMPA.L (A5),A7
00023a2c 62 06 |b | BHI 0x23a34
00023a2e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023a32 4e 76 |Nv | TRAPV
00023a34 de fc 00 30 | 0 | ADDA.W #0x30,A7
00023a38 48 e7 ff 80 |H | MOVEM.L A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00023a3c 24 3c 00 00 ff ff |$< | MOVE.L #0xffff,D2
00023a42 2e 2e 00 08 |.. | MOVE.L (A6+0x8),D7
00023a46 53 87 |S | SUBQ.L #0x1,D7
00023a48 28 07 |( | MOVE.L D7,D4
00023a4a 76 10 |v | MOVEQ.L #0x10,D3
00023a4c 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00023a52 2e 04 |. | MOVE.L D4,D7
00023a54 2c 03 |, | MOVE.L D3,D6
00023a56 59 4f |YO | SUBQ.L #0x4,A7
00023a58 2f 06 |/ | MOVE.L D6,-(A7)
00023a5a 4e ba ff 8e |N | JSR 0x239ea
00023a5e 58 4f |XO | ADDQ.L #0x4,A7
00023a60 20 1f | | MOVE.L (A7)+,D0
00023a62 b0 82 | | CMP.L D2,D0
00023a64 63 02 |c | BLS 0x23a68
00023a66 4e 4f |NO | TRAP #15
00023a68 3a 00 |: | MOVE.W D0,D5
00023a6a 0c 87 00 00 00 ff | | CMPI.L #0x000000ff,D7
00023a70 6e 4c |nL | BGT 0x23abe
00023a72 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7
00023a78 63 02 |c | BLS 0x23a7c
00023a7a 4e 4f |NO | TRAP #15
00023a7c 20 07 | | MOVE.L D7,D0
00023a7e e3 80 | | ASL.L #0x1,D0
00023a80 41 f9 00 02 91 90 |A | LEA.L 0x29190,A0
00023a86 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
00023a8a 30 28 02 16 |0( | MOVE.W (A0+0x216),D0
00023a8e c0 45 | E | AND.W D5,D0
00023a90 66 14 |f | BNE 0x23aa6
00023a92 42 80 |B | CLR.L D0
00023a94 30 28 02 16 |0( | MOVE.W (A0+0x216),D0
00023a98 42 81 |B | CLR.L D1
00023a9a 32 05 |2 | MOVE.W D5,D1
00023a9c d2 80 | | ADD.L D0,D1
00023a9e b2 82 | | CMP.L D2,D1
00023aa0 63 02 |c | BLS 0x23aa4
00023aa2 4e 4f |NO | TRAP #15
00023aa4 60 14 |` | BRA 0x23aba
00023aa6 42 80 |B | CLR.L D0
00023aa8 30 28 02 16 |0( | MOVE.W (A0+0x216),D0
00023aac 42 81 |B | CLR.L D1
00023aae 32 05 |2 | MOVE.W D5,D1
00023ab0 44 81 |D | NEG.L D1
00023ab2 d2 80 | | ADD.L D0,D1
00023ab4 b2 82 | | CMP.L D2,D1
00023ab6 63 02 |c | BLS 0x23aba
00023ab8 4e 4f |NO | TRAP #15
00023aba 31 41 02 16 |1A | MOVE.W D1,(A0+0x216)
00023abe 4c df 01 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0
00023ac2 4e 5e |N^ | UNLK A6
00023ac4 4e 75 |Nu | RTS
00023ac6 ; --------------------------------------------------------------------------------------
00023ac6 ; OMSI PASCAL Function
00023ac6 ; <LVAR -0x010 2(r)>
00023ac6 ; <LVAR -0x012 2(r)>
00023ac6 ; <LVAR -0x01c @>
00023ac6 ; --------------------------------------------------------------------------------------
00023ac6 4e 56 ff 70 |NV p | LINK.W A6,#0xff70
00023aca bf d5 | | CMPA.L (A5),A7
00023acc 62 06 |b | BHI 0x23ad4
00023ace 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023ad2 4e 76 |Nv | TRAPV
00023ad4 de fc 00 70 | p | ADDA.W #0x70,A7
00023ad8 48 e7 e1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D2+D1+D0,-(A7)
00023adc 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00023ae2 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3
00023ae8 72 01 |r | MOVEQ.L #0x01,D1
00023aea 74 40 |t@ | MOVEQ.L #0x40,D2
00023aec 55 4f |UO | SUBQ.L #0x2,A7
00023aee 4e ba fa d0 |N | JSR 0x235c0
00023af2 10 1f | | MOVE.B (A7)+,D0
00023af4 b0 01 | | CMP.B D1,D0
00023af6 67 68 |gh | BEQ 0x23b60
00023af8 9e c2 | | SUBA.W D2,A7
00023afa 20 4f | O | MOVEA.L A7,A0
00023afc 43 fa d3 34 |C 4 | LEA.L 0x20e32,A1
00023b00 70 3e |p> | MOVEQ.L #0x3e,D0
00023b02 10 d9 | | MOVE.B (A1)+,(A0)+
00023b04 51 c8 ff fc |Q | DBF D0,0x23b02
00023b08 59 4f |YO | SUBQ.L #0x4,A7
00023b0a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023b0e 3f 01 |? | MOVE.W D1,-(A7)
00023b10 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7)
00023b14 4e 92 |N | JSR (A2)
00023b16 50 4f |PO | ADDQ.L #0x8,A7
00023b18 4e 93 |N | JSR (A3)
00023b1a de fc 00 44 | D | ADDA.W #0x44,A7
00023b1e 41 fa d3 8e |A | LEA.L 0x20eae,A0
00023b22 70 0e |p | MOVEQ.L #0x0e,D0
00023b24 2f 20 |/ | MOVE.L -(A0),-(A7)
00023b26 51 c8 ff fc |Q | DBF D0,0x23b24
00023b2a 59 4f |YO | SUBQ.L #0x4,A7
00023b2c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023b30 3f 01 |? | MOVE.W D1,-(A7)
00023b32 3f 3c 00 3c |?< < | MOVE.W #0x3c,-(A7)
00023b36 4e 92 |N | JSR (A2)
00023b38 50 4f |PO | ADDQ.L #0x8,A7
00023b3a 4e 93 |N | JSR (A3)
00023b3c de c2 | | ADDA.W D2,A7
00023b3e 41 fa d3 ac |A | LEA.L 0x20eec,A0
00023b42 70 1e |p | MOVEQ.L #0x1e,D0
00023b44 3f 20 |? | MOVE.W -(A0),-(A7)
00023b46 51 c8 ff fc |Q | DBF D0,0x23b44
00023b4a 59 4f |YO | SUBQ.L #0x4,A7
00023b4c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023b50 3f 01 |? | MOVE.W D1,-(A7)
00023b52 3f 3c 00 3e |?< > | MOVE.W #0x3e,-(A7)
00023b56 4e 92 |N | JSR (A2)
00023b58 50 4f |PO | ADDQ.L #0x8,A7
00023b5a 4e 93 |N | JSR (A3)
00023b5c de fc 00 42 | B | ADDA.W #0x42,A7
00023b60 4e ba fe 54 |N T | JSR 0x239b6
00023b64 48 6e ff e4 |Hn | PEA.L (A6-0x1c)
00023b68 4e ba df 20 |N | JSR 0x21a8a
00023b6c 58 4f |XO | ADDQ.L #0x4,A7
00023b6e 7e 00 |~ | MOVEQ.L #0x00,D7
00023b70 59 4f |YO | SUBQ.L #0x4,A7
00023b72 2f 07 |/ | MOVE.L D7,-(A7)
00023b74 4e ba fe 74 |N t | JSR 0x239ea
00023b78 58 4f |XO | ADDQ.L #0x4,A7
00023b7a 42 80 |B | CLR.L D0
00023b7c 30 2e ff f0 |0. | MOVE.W (A6-0x10),D0
00023b80 c0 9f | | AND.L (A7)+,D0
00023b82 67 10 |g | BEQ 0x23b94
00023b84 42 80 |B | CLR.L D0
00023b86 30 2e ff ee |0. | MOVE.W (A6-0x12),D0
00023b8a d0 87 | | ADD.L D7,D0
00023b8c 2f 00 |/ | MOVE.L D0,-(A7)
00023b8e 4e ba fe 96 |N | JSR 0x23a26
00023b92 58 4f |XO | ADDQ.L #0x4,A7
00023b94 52 87 |R | ADDQ.L #0x1,D7
00023b96 0c 87 00 00 00 0a | | CMPI.L #0x0000000a,D7
00023b9c 6f d2 |o | BLE 0x23b70
00023b9e 4c df 0f 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2+A3
00023ba2 4e 5e |N^ | UNLK A6
00023ba4 4e 75 |Nu | RTS
00023ba6 ; --------------------------------------------------------------------------------------
00023ba6 ; OMSI PASCAL Function
00023ba6 ; <LVAR 0x008 4(r)>
00023ba6 ; <LVAR -0x008 2(w)>
00023ba6 ; <LVAR -0x00a 2(w)>
00023ba6 ; <LVAR -0x00c 2(w)>
00023ba6 ; <LVAR -0x00e 2(r)>
00023ba6 ; <LVAR -0x010 2(r)>
00023ba6 ; <LVAR -0x012 2(w)>
00023ba6 ; <LVAR -0x014 2(r)>
00023ba6 ; <LVAR -0x016 @ 2(w)>
00023ba6 ; <LVAR -0x018 @ 1(r)>
00023ba6 ; --------------------------------------------------------------------------------------
00023ba6 4e 56 ff 78 |NV x | LINK.W A6,#0xff78
00023baa bf d5 | | CMPA.L (A5),A7
00023bac 62 06 |b | BHI 0x23bb4
00023bae 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023bb2 4e 76 |Nv | TRAPV
00023bb4 de fc 00 64 | d | ADDA.W #0x64,A7
00023bb8 48 e7 f7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D3+D2+D1+D0,-(A7)
00023bbc 45 ee 00 08 |E | LEA.L (A6+0x8),A2
00023bc0 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00023bc6 72 01 |r | MOVEQ.L #0x01,D1
00023bc8 74 1c |t | MOVEQ.L #0x1c,D2
00023bca 76 20 |v | MOVEQ.L #0x20,D3
00023bcc 41 fa d3 a2 |A | LEA.L 0x20f70,A0
00023bd0 70 04 |p | MOVEQ.L #0x04,D0
00023bd2 3f 20 |? | MOVE.W -(A0),-(A7)
00023bd4 51 c8 ff fc |Q | DBF D0,0x23bd2
00023bd8 2f 12 |/ | MOVE.L (A2),-(A7)
00023bda 48 78 00 03 |Hx | PEA.L 0x3
00023bde 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
00023be4 de fc 00 0a | | ADDA.W #0xa,A7
00023be8 2e 92 |. | MOVE.L (A2),(A7)
00023bea 48 78 00 01 |Hx | PEA.L 0x1
00023bee 4e ba dd 22 |N " | JSR 0x21912
00023bf2 50 4f |PO | ADDQ.L #0x8,A7
00023bf4 2e 17 |. | MOVE.L (A7),D7
00023bf6 2f 12 |/ | MOVE.L (A2),-(A7)
00023bf8 48 78 00 02 |Hx | PEA.L 0x2
00023bfc 4e ba dd 14 |N | JSR 0x21912
00023c00 50 4f |PO | ADDQ.L #0x8,A7
00023c02 2c 17 |, | MOVE.L (A7),D6
00023c04 2f 12 |/ | MOVE.L (A2),-(A7)
00023c06 48 78 00 03 |Hx | PEA.L 0x3
00023c0a 4e ba dd 06 |N | JSR 0x21912
00023c0e 50 4f |PO | ADDQ.L #0x8,A7
00023c10 2a 1f |* | MOVE.L (A7)+,D5
00023c12 4a 87 |J | TST.L D7
00023c14 6d 08 |m | BLT 0x23c1e
00023c16 be b9 00 02 9b a6 | | CMP.L 0x29ba6,D7
00023c1c 6f 26 |o& | BLE 0x23c44
00023c1e 41 fa d2 ea |A | LEA.L 0x20f0a,A0
00023c22 70 0e |p | MOVEQ.L #0x0e,D0
00023c24 3f 20 |? | MOVE.W -(A0),-(A7)
00023c26 51 c8 ff fc |Q | DBF D0,0x23c24
00023c2a 59 4f |YO | SUBQ.L #0x4,A7
00023c2c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023c30 3f 01 |? | MOVE.W D1,-(A7)
00023c32 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7)
00023c36 4e 93 |N | JSR (A3)
00023c38 50 4f |PO | ADDQ.L #0x8,A7
00023c3a 4e b9 00 02 56 96 |N V | JSR 0x25696
00023c40 de fc 00 22 | " | ADDA.W #0x22,A7
00023c44 4a 86 |J | TST.L D6
00023c46 6d 08 |m | BLT 0x23c50
00023c48 bc b9 00 02 9b ae | | CMP.L 0x29bae,D6
00023c4e 6f 28 |o( | BLE 0x23c78
00023c50 9e c2 | | SUBA.W D2,A7
00023c52 20 4f | O | MOVEA.L A7,A0
00023c54 43 fa d2 b4 |C | LEA.L 0x20f0a,A1
00023c58 70 1a |p | MOVEQ.L #0x1a,D0
00023c5a 10 d9 | | MOVE.B (A1)+,(A0)+
00023c5c 51 c8 ff fc |Q | DBF D0,0x23c5a
00023c60 59 4f |YO | SUBQ.L #0x4,A7
00023c62 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023c66 3f 01 |? | MOVE.W D1,-(A7)
00023c68 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
00023c6c 4e 93 |N | JSR (A3)
00023c6e 50 4f |PO | ADDQ.L #0x8,A7
00023c70 4e b9 00 02 56 96 |N V | JSR 0x25696
00023c76 de c3 | | ADDA.W D3,A7
00023c78 4a 85 |J | TST.L D5
00023c7a 6d 08 |m | BLT 0x23c84
00023c7c ba b9 00 02 9b b2 | | CMP.L 0x29bb2,D5
00023c82 6f 22 |o" | BLE 0x23ca6
00023c84 41 fa d2 bc |A | LEA.L 0x20f42,A0
00023c88 70 06 |p | MOVEQ.L #0x06,D0
00023c8a 2f 20 |/ | MOVE.L -(A0),-(A7)
00023c8c 51 c8 ff fc |Q | DBF D0,0x23c8a
00023c90 59 4f |YO | SUBQ.L #0x4,A7
00023c92 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023c96 3f 01 |? | MOVE.W D1,-(A7)
00023c98 3f 02 |? | MOVE.W D2,-(A7)
00023c9a 4e 93 |N | JSR (A3)
00023c9c 50 4f |PO | ADDQ.L #0x8,A7
00023c9e 4e b9 00 02 56 96 |N V | JSR 0x25696
00023ca4 de c3 | | ADDA.W D3,A7
00023ca6 3d 7c 01 00 ff ea |=| | MOVE.W #0x100,(A6-0x16)
00023cac 42 6e ff ec |Bn | CLR.W (A6-0x14)
00023cb0 3d 7c 00 02 ff ee |=| | MOVE.W #0x2,(A6-0x12)
00023cb6 42 6e ff f0 |Bn | CLR.W (A6-0x10)
00023cba 42 6e ff f2 |Bn | CLR.W (A6-0xe)
00023cbe 30 39 00 02 93 a4 |09 | MOVE.W 0x293a4,D0
00023cc4 e1 40 | @ | ASL.W #0x8,D0
00023cc6 06 40 00 14 | @ | ADDI.W #0x0014,D0
00023cca 3d 40 ff f4 |=@ | MOVE.W D0,(A6-0xc)
00023cce 0c 87 00 00 ff ff | | CMPI.L #0x0000ffff,D7
00023cd4 63 02 |c | BLS 0x23cd8
00023cd6 4e 4f |NO | TRAP #15
00023cd8 3d 47 ff f6 |=G | MOVE.W D7,(A6-0xa)
00023cdc 20 06 | | MOVE.L D6,D0
00023cde e1 80 | | ASL.L #0x8,D0
00023ce0 d0 85 | | ADD.L D5,D0
00023ce2 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0
00023ce8 63 02 |c | BLS 0x23cec
00023cea 4e 4f |NO | TRAP #15
00023cec 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8)
00023cf0 41 f9 00 02 97 a6 |A | LEA.L 0x297a6,A0
00023cf6 28 48 |(H | MOVEA.L A0,A4
00023cf8 48 6e ff ea |Hn | PEA.L (A6-0x16)
00023cfc 2f 0c |/ | MOVE.L A4,-(A7)
00023cfe 42 67 |Bg | CLR.W -(A7)
00023d00 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00023d06 50 4f |PO | ADDQ.L #0x8,A7
00023d08 42 57 |BW | CLR.W (A7)
00023d0a 48 6e ff e8 |Hn | PEA.L (A6-0x18)
00023d0e 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00023d14 5c 4f |\O | ADDQ.L #0x6,A7
00023d16 4a 2e ff e8 |J. | TST.B (A6-0x18)
00023d1a 66 34 |f4 | BNE 0x23d50
00023d1c 9e fc 00 24 | $ | SUBA.W #0x24,A7
00023d20 20 4f | O | MOVEA.L A7,A0
00023d22 43 fa d2 1e |C | LEA.L 0x20f42,A1
00023d26 70 22 |p" | MOVEQ.L #0x22,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 01 |? | MOVE.W D1,-(A7)
00023d36 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7)
00023d3a 4e 93 |N | JSR (A3)
00023d3c 50 4f |PO | ADDQ.L #0x8,A7
00023d3e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00023d44 de fc 00 26 | & | ADDA.W #0x26,A7
00023d48 42 17 |B | CLR.B (A7)
00023d4a 4e ba de 46 |N F | JSR 0x21b92
00023d4e 54 4f |TO | ADDQ.L #0x2,A7
00023d50 4c df 1f ef |L | MOVEM.L (A7)+,D0+D1+D2+D3+D5+D6+D7+A0+A1+A2+A3+A4
00023d54 4e 5e |N^ | UNLK A6
00023d56 4e 75 |Nu | RTS
00023d58 ; --------------------------------------------------------------------------------------
00023d58 ; OMSI PASCAL Function
00023d58 ; <LVAR 0x008 4(r)>
00023d58 ; <LVAR -0x004 2(w)>
00023d58 ; <LVAR -0x006 1(r) 2(w)>
00023d58 ; <LVAR -0x008 @ 2(w)>
00023d58 ; <LVAR -0x00a @ 2(w)>
00023d58 ; <LVAR -0x00c @ 2(rw)>
00023d58 ; <LVAR -0x00e @ 2(w)>
00023d58 ; <LVAR -0x010 @ 2(w)>
00023d58 ; <LVAR -0x012 @ 2(w)>
00023d58 ; <LVAR -0x018 @>
00023d58 ; <LVAR -0x020 4(rw)>
00023d58 ; <LVAR -0x024 4(rw)>
00023d58 ; --------------------------------------------------------------------------------------
00023d58 4e 56 ff 4c |NV L | LINK.W A6,#0xff4c
00023d5c bf d5 | | CMPA.L (A5),A7
00023d5e 62 06 |b | BHI 0x23d66
00023d60 44 fc 00 02 |D | MOVE.W #0x2,CCR
00023d64 4e 76 |Nv | TRAPV
00023d66 de fc 00 60 | ` | ADDA.W #0x60,A7
00023d6a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00023d6e 45 f9 00 01 02 3a |E : | LEA.L KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word,A2
00023d74 47 ee ff f4 |G | LEA.L (A6-0xc),A3
00023d78 74 01 |t | MOVEQ.L #0x01,D2
00023d7a 41 fa d2 78 |A x | LEA.L 0x20ff4,A0
00023d7e 70 04 |p | MOVEQ.L #0x04,D0
00023d80 3f 20 |? | MOVE.W -(A0),-(A7)
00023d82 51 c8 ff fc |Q | DBF D0,0x23d80
00023d86 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023d8a 48 78 00 03 |Hx | PEA.L 0x3
00023d8e 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
00023d94 de fc 00 0a | | ADDA.W #0xa,A7
00023d98 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
00023d9c 48 78 00 01 |Hx | PEA.L 0x1
00023da0 4e ba db 70 |N p | JSR 0x21912
00023da4 50 4f |PO | ADDQ.L #0x8,A7
00023da6 2a 17 |* | MOVE.L (A7),D5
00023da8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023dac 48 78 00 02 |Hx | PEA.L 0x2
00023db0 4e ba db 60 |N ` | JSR 0x21912
00023db4 50 4f |PO | ADDQ.L #0x8,A7
00023db6 2d 57 ff dc |-W | MOVE.L (A7),(A6-0x24)
00023dba 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00023dbe 48 78 00 03 |Hx | PEA.L 0x3
00023dc2 4e ba db 4e |N N | JSR 0x21912
00023dc6 50 4f |PO | ADDQ.L #0x8,A7
00023dc8 2d 5f ff e0 |-_ | MOVE.L (A7)+,(A6-0x20)
00023dcc 2f 05 |/ | MOVE.L D5,-(A7)
00023dce 2f 2e ff dc |/. | MOVE.L (A6-0x24),-(A7)
00023dd2 2f 2e ff e0 |/. | MOVE.L (A6-0x20),-(A7)
00023dd6 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00023dda 48 6e ff e8 |Hn | PEA.L (A6-0x18)
00023dde 4e ba ec 96 |N | JSR 0x22a76
00023de2 de fc 00 12 | | ADDA.W #0x12,A7
00023de6 7c 00 || | MOVEQ.L #0x00,D6
00023de8 0c 86 00 00 01 ff | | CMPI.L #0x000001ff,D6
00023dee 63 02 |c | BLS 0x23df2
00023df0 4e 4f |NO | TRAP #15
00023df2 20 06 | | MOVE.L D6,D0
00023df4 e3 80 | | ASL.L #0x1,D0
00023df6 41 f9 00 02 91 90 |A | LEA.L 0x29190,A0
00023dfc 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
00023e00 42 68 06 16 |Bh | CLR.W (A0+0x616)
00023e04 52 86 |R | ADDQ.L #0x1,D6
00023e06 0c 86 00 00 01 ff | | CMPI.L #0x000001ff,D6
00023e0c 6f da |o | BLE 0x23de8
00023e0e 41 f9 00 02 97 a6 |A | LEA.L 0x297a6,A0
00023e14 28 48 |(H | MOVEA.L A0,A4
00023e16 2f 0c |/ | MOVE.L A4,-(A7)
00023e18 20 1f | | MOVE.L (A7)+,D0
00023e1a 02 80 00 00 03 ff | | ANDI.L #0x000003ff,D0
00023e20 3d 40 ff ee |=@ | MOVE.W D0,(A6-0x12)
00023e24 28 05 |( | MOVE.L D5,D4
00023e26 26 3c 00 01 00 00 |&< | MOVE.L #0x10000,D3
00023e2c 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00023e32 02 83 00 00 ff ff | | ANDI.L #0x0000ffff,D3
00023e38 3d 43 ff f0 |=C | MOVE.W D3,(A6-0x10)
00023e3c 20 2e ff dc | . | MOVE.L (A6-0x24),D0
00023e40 e1 80 | | ASL.L #0x8,D0
00023e42 d0 ae ff e0 | | ADD.L (A6-0x20),D0
00023e46 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0
00023e4c 63 02 |c | BLS 0x23e50
00023e4e 4e 4f |NO | TRAP #15
00023e50 3d 40 ff f2 |=@ | MOVE.W D0,(A6-0xe)
00023e54 3d 7c ff fe ff f8 |=| | MOVE.W #0xfffe,(A6-0x8)
00023e5a 36 bc 00 3b |6 ; | MOVE.W #0x3b,(A3)
00023e5e 3d 79 00 02 93 a4 ff f6 |=y | MOVE.W 0x293a4,(A6-0xa)
00023e66 2e 3c 00 00 93 03 |.< | MOVE.L #0x9303,D7
00023e6c e1 87 | | ASL.L #0x8,D7
00023e6e e1 87 | | ASL.L #0x8,D7
00023e70 20 39 00 02 93 9c | 9 | MOVE.L 0x2939c,D0
00023e76 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0
00023e7c 63 02 |c | BLS 0x23e80
00023e7e 4e 4e |NN | TRAP #14
00023e80 d0 40 | @ | ADD.W D0,D0
00023e82 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
00023e8a 00 08 | | .CONST 0x8 ; [0x0] -> 0x23e92
00023e8c 00 10 | | .CONST 0x10 ; [0x1] -> 0x23e9a
00023e8e 00 18 | | .CONST 0x18 ; [0x2] -> 0x23ea2
00023e90 00 20 | | .CONST 0x20 ; [0x3] -> 0x23eaa
00023e92 switch@0x23e82[0x0]:
00023e92 06 87 00 00 fd c0 | | ADDI.L #0x0000fdc0,D7
00023e98 60 16 |` | BRA 0x23eb0
00023e9a switch@0x23e82[0x1]:
00023e9a 06 87 00 00 fc c0 | | ADDI.L #0x0000fcc0,D7
00023ea0 60 0e |` | BRA 0x23eb0
00023ea2 switch@0x23e82[0x2]:
00023ea2 06 87 00 00 fc 80 | | ADDI.L #0x0000fc80,D7
00023ea8 60 06 |` | BRA 0x23eb0
00023eaa switch@0x23e82[0x3]:
00023eaa 06 87 00 00 fc 40 | @ | ADDI.L #0x0000fc40,D7
00023eb0 41 ee ff f6 |A | LEA.L (A6-0xa),A0
00023eb4 2f 08 |/ | MOVE.L A0,-(A7)
00023eb6 3f 02 |? | MOVE.W D2,-(A7)
00023eb8 2f 07 |/ | MOVE.L D7,-(A7)
00023eba 50 97 |P | ADDQ.L #0x8,(A7)
00023ebc 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00023ec0 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00023ec4 4e 92 |N | JSR (A2)
00023ec6 de fc 00 0e | | ADDA.W #0xe,A7
00023eca 41 ee ff f0 |A | LEA.L (A6-0x10),A0
00023ece 2f 08 |/ | MOVE.L A0,-(A7)
00023ed0 3f 02 |? | MOVE.W D2,-(A7)
00023ed2 2f 07 |/ | MOVE.L D7,-(A7)
00023ed4 06 97 00 00 00 1c | | ADDI.L #0x0000001c,(A7)
00023eda 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00023ede 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00023ee2 4e 92 |N | JSR (A2)
00023ee4 de fc 00 0e | | ADDA.W #0xe,A7
00023ee8 41 ee ff f2 |A | LEA.L (A6-0xe),A0
00023eec 2f 08 |/ | MOVE.L A0,-(A7)
00023eee 3f 02 |? | MOVE.W D2,-(A7)
00023ef0 2f 07 |/ | MOVE.L D7,-(A7)
00023ef2 5c 97 |\ | ADDQ.L #0x6,(A7)
00023ef4 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00023ef8 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00023efc 4e 92 |N | JSR (A2)
00023efe de fc 00 0e | | ADDA.W #0xe,A7
00023f02 41 ee ff ee |A | LEA.L (A6-0x12),A0
00023f06 2f 08 |/ | MOVE.L A0,-(A7)
00023f08 3f 02 |? | MOVE.W D2,-(A7)
00023f0a 2f 07 |/ | MOVE.L D7,-(A7)
00023f0c 58 97 |X | ADDQ.L #0x4,(A7)
00023f0e 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00023f12 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00023f16 4e 92 |N | JSR (A2)
00023f18 de fc 00 0e | | ADDA.W #0xe,A7
00023f1c 41 ee ff f8 |A | LEA.L (A6-0x8),A0
00023f20 2f 08 |/ | MOVE.L A0,-(A7)
00023f22 3f 02 |? | MOVE.W D2,-(A7)
00023f24 2f 07 |/ | MOVE.L D7,-(A7)
00023f26 54 97 |T | ADDQ.L #0x2,(A7)
00023f28 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00023f2c 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00023f30 4e 92 |N | JSR (A2)
00023f32 de fc 00 0e | | ADDA.W #0xe,A7
00023f36 20 4b | K | MOVEA.L A3,A0
00023f38 2f 08 |/ | MOVE.L A0,-(A7)
00023f3a 3f 02 |? | MOVE.W D2,-(A7)
00023f3c 2f 07 |/ | MOVE.L D7,-(A7)
00023f3e 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00023f42 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00023f46 4e 92 |N | JSR (A2)
00023f48 de fc 00 0e | | ADDA.W #0xe,A7
00023f4c 2f 07 |/ | MOVE.L D7,-(A7)
00023f4e 2f 17 |/ | MOVE.L (A7),-(A7)
00023f50 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00023f54 20 4b | K | MOVEA.L A3,A0
00023f56 2f 08 |/ | MOVE.L A0,-(A7)
00023f58 3f 02 |? | MOVE.W D2,-(A7)
00023f5a 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00023f5e 4e 92 |N | JSR (A2)
00023f60 de fc 00 0e | | ADDA.W #0xe,A7
00023f64 30 13 |0 | MOVE.W (A3),D0
00023f66 02 40 00 80 | @ | ANDI.W #0x0080,D0
00023f6a 66 04 |f | BNE 0x23f70
00023f6c 58 4f |XO | ADDQ.L #0x4,A7
00023f6e 60 dc |` | BRA 0x23f4c
00023f70 3d 79 00 02 97 a6 ff fa |=y | MOVE.W 0x297a6,(A6-0x6)
00023f78 3d 79 00 02 97 a8 ff fc |=y | MOVE.W 0x297a8,(A6-0x4)
00023f80 10 2e ff fa | . | MOVE.B (A6-0x6),D0
00023f84 ee 08 | | LSR.B #0x7,D0
00023f86 67 3e |g> | BEQ 0x23fc6
00023f88 12 2e ff fa | . | MOVE.B (A6-0x6),D1
00023f8c e3 09 | | LSL.B #0x1,D1
00023f8e ee 09 | | LSR.B #0x7,D1
00023f90 67 34 |g4 | BEQ 0x23fc6
00023f92 9e fc 00 16 | | SUBA.W #0x16,A7
00023f96 20 4f | O | MOVEA.L A7,A0
00023f98 43 fa d0 5a |C Z | LEA.L 0x20ff4,A1
00023f9c 70 14 |p | MOVEQ.L #0x14,D0
00023f9e 10 d9 | | MOVE.B (A1)+,(A0)+
00023fa0 51 c8 ff fc |Q | DBF D0,0x23f9e
00023fa4 59 4f |YO | SUBQ.L #0x4,A7
00023fa6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023faa 3f 02 |? | MOVE.W D2,-(A7)
00023fac 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
00023fb0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00023fb6 50 4f |PO | ADDQ.L #0x8,A7
00023fb8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00023fbe de fc 00 1a | | ADDA.W #0x1a,A7
00023fc2 60 00 00 ce |` | BRA 0x24092
00023fc6 41 fa d0 56 |A V | LEA.L 0x2101e,A0
00023fca 72 04 |r | MOVEQ.L #0x04,D1
00023fcc 2f 20 |/ | MOVE.L -(A0),-(A7)
00023fce 51 c9 ff fc |Q | DBF D1,0x23fcc
00023fd2 59 4f |YO | SUBQ.L #0x4,A7
00023fd4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00023fd8 3f 02 |? | MOVE.W D2,-(A7)
00023fda 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7)
00023fde 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00023fe4 50 4f |PO | ADDQ.L #0x8,A7
00023fe6 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00023fec de fc 00 18 | | ADDA.W #0x18,A7
00023ff0 4a 00 |J | TST.B D0
00023ff2 66 2a |f* | BNE 0x2401e
00023ff4 41 fa d0 3c |A < | LEA.L 0x21032,A0
00023ff8 70 04 |p | MOVEQ.L #0x04,D0
00023ffa 2f 20 |/ | MOVE.L -(A0),-(A7)
00023ffc 51 c8 ff fc |Q | DBF D0,0x23ffa
00024000 59 4f |YO | SUBQ.L #0x4,A7
00024002 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024006 3f 02 |? | MOVE.W D2,-(A7)
00024008 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7)
0002400c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024012 50 4f |PO | ADDQ.L #0x8,A7
00024014 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
0002401a de fc 00 18 | | ADDA.W #0x18,A7
0002401e 10 2e ff fa | . | MOVE.B (A6-0x6),D0
00024022 e3 08 | | LSL.B #0x1,D0
00024024 ee 08 | | LSR.B #0x7,D0
00024026 66 2a |f* | BNE 0x24052
00024028 41 fa d0 1c |A | LEA.L 0x21046,A0
0002402c 70 04 |p | MOVEQ.L #0x04,D0
0002402e 2f 20 |/ | MOVE.L -(A0),-(A7)
00024030 51 c8 ff fc |Q | DBF D0,0x2402e
00024034 59 4f |YO | SUBQ.L #0x4,A7
00024036 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002403a 3f 02 |? | MOVE.W D2,-(A7)
0002403c 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7)
00024040 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024046 50 4f |PO | ADDQ.L #0x8,A7
00024048 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
0002404e de fc 00 18 | | ADDA.W #0x18,A7
00024052 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00024058 36 bc 40 09 |6 @ | MOVE.W #0x4009,(A3)
0002405c 20 4b | K | MOVEA.L A3,A0
0002405e 2f 08 |/ | MOVE.L A0,-(A7)
00024060 3f 02 |? | MOVE.W D2,-(A7)
00024062 2f 2f 00 06 |// | MOVE.L (A7+0x6),-(A7)
00024066 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
0002406a 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
0002406e 4e 92 |N | JSR (A2)
00024070 de fc 00 0e | | ADDA.W #0xe,A7
00024074 2f 07 |/ | MOVE.L D7,-(A7)
00024076 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
0002407a 20 4b | K | MOVEA.L A3,A0
0002407c 2f 08 |/ | MOVE.L A0,-(A7)
0002407e 3f 02 |? | MOVE.W D2,-(A7)
00024080 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00024084 4e 92 |N | JSR (A2)
00024086 de fc 00 0e | | ADDA.W #0xe,A7
0002408a 30 13 |0 | MOVE.W (A3),D0
0002408c 02 40 00 80 | @ | ANDI.W #0x0080,D0
00024090 67 e2 |g | BEQ 0x24074
00024092 58 4f |XO | ADDQ.L #0x4,A7
00024094 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00024098 4e 5e |N^ | UNLK A6
0002409a 4e 75 |Nu | RTS
0002409c ; --------------------------------------------------------------------------------------
0002409c ; OMSI PASCAL Function
0002409c ; <LVAR 0x008 4(r)>
0002409c ; <LVAR -0x008 2(w)>
0002409c ; <LVAR -0x00a 2(w)>
0002409c ; <LVAR -0x00c 2(w)>
0002409c ; <LVAR -0x00e 2(r)>
0002409c ; <LVAR -0x010 2(r)>
0002409c ; <LVAR -0x012 2(w)>
0002409c ; <LVAR -0x014 2(r)>
0002409c ; <LVAR -0x016 @ 2(w)>
0002409c ; <LVAR -0x018 @ 1(r)>
0002409c ; --------------------------------------------------------------------------------------
0002409c 4e 56 ff 70 |NV p | LINK.W A6,#0xff70
000240a0 bf d5 | | CMPA.L (A5),A7
000240a2 62 06 |b | BHI 0x240aa
000240a4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000240a8 4e 76 |Nv | TRAPV
000240aa de fc 00 6c | l | ADDA.W #0x6c,A7
000240ae 48 e7 f7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D3+D2+D1+D0,-(A7)
000240b2 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000240b8 47 ee 00 08 |G | LEA.L (A6+0x8),A3
000240bc 72 01 |r | MOVEQ.L #0x01,D1
000240be 74 1c |t | MOVEQ.L #0x1c,D2
000240c0 76 20 |v | MOVEQ.L #0x20,D3
000240c2 41 fa d0 32 |A 2 | LEA.L 0x210f6,A0
000240c6 70 04 |p | MOVEQ.L #0x04,D0
000240c8 3f 20 |? | MOVE.W -(A0),-(A7)
000240ca 51 c8 ff fc |Q | DBF D0,0x240c8
000240ce 2f 13 |/ | MOVE.L (A3),-(A7)
000240d0 48 78 00 03 |Hx | PEA.L 0x3
000240d4 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
000240da de fc 00 0a | | ADDA.W #0xa,A7
000240de 2e 93 |. | MOVE.L (A3),(A7)
000240e0 48 78 00 01 |Hx | PEA.L 0x1
000240e4 4e ba d8 2c |N , | JSR 0x21912
000240e8 50 4f |PO | ADDQ.L #0x8,A7
000240ea 2e 17 |. | MOVE.L (A7),D7
000240ec 2f 13 |/ | MOVE.L (A3),-(A7)
000240ee 48 78 00 02 |Hx | PEA.L 0x2
000240f2 4e ba d8 1e |N | JSR 0x21912
000240f6 50 4f |PO | ADDQ.L #0x8,A7
000240f8 2c 17 |, | MOVE.L (A7),D6
000240fa 2f 13 |/ | MOVE.L (A3),-(A7)
000240fc 48 78 00 03 |Hx | PEA.L 0x3
00024100 4e ba d8 10 |N | JSR 0x21912
00024104 50 4f |PO | ADDQ.L #0x8,A7
00024106 2a 1f |* | MOVE.L (A7)+,D5
00024108 4a 87 |J | TST.L D7
0002410a 6d 08 |m | BLT 0x24114
0002410c be b9 00 02 9b a6 | | CMP.L 0x29ba6,D7
00024112 6f 26 |o& | BLE 0x2413a
00024114 41 fa cf 4e |A N | LEA.L 0x21064,A0
00024118 70 0e |p | MOVEQ.L #0x0e,D0
0002411a 3f 20 |? | MOVE.W -(A0),-(A7)
0002411c 51 c8 ff fc |Q | DBF D0,0x2411a
00024120 59 4f |YO | SUBQ.L #0x4,A7
00024122 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024126 3f 01 |? | MOVE.W D1,-(A7)
00024128 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7)
0002412c 4e 92 |N | JSR (A2)
0002412e 50 4f |PO | ADDQ.L #0x8,A7
00024130 4e b9 00 02 56 96 |N V | JSR 0x25696
00024136 de fc 00 22 | " | ADDA.W #0x22,A7
0002413a be b9 00 02 9b aa | | CMP.L 0x29baa,D7
00024140 6c 2c |l, | BGE 0x2416e
00024142 9e fc 00 2c | , | SUBA.W #0x2c,A7
00024146 20 4f | O | MOVEA.L A7,A0
00024148 43 fa cf 1a |C | LEA.L 0x21064,A1
0002414c 70 2a |p* | MOVEQ.L #0x2a,D0
0002414e 10 d9 | | MOVE.B (A1)+,(A0)+
00024150 51 c8 ff fc |Q | DBF D0,0x2414e
00024154 59 4f |YO | SUBQ.L #0x4,A7
00024156 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002415a 3f 01 |? | MOVE.W D1,-(A7)
0002415c 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7)
00024160 4e 92 |N | JSR (A2)
00024162 50 4f |PO | ADDQ.L #0x8,A7
00024164 4e b9 00 02 56 96 |N V | JSR 0x25696
0002416a de fc 00 30 | 0 | ADDA.W #0x30,A7
0002416e 4a 86 |J | TST.L D6
00024170 6d 08 |m | BLT 0x2417a
00024172 bc b9 00 02 9b ae | | CMP.L 0x29bae,D6
00024178 6f 28 |o( | BLE 0x241a2
0002417a 9e c2 | | SUBA.W D2,A7
0002417c 20 4f | O | MOVEA.L A7,A0
0002417e 43 fa cf 10 |C | LEA.L 0x21090,A1
00024182 70 1a |p | MOVEQ.L #0x1a,D0
00024184 10 d9 | | MOVE.B (A1)+,(A0)+
00024186 51 c8 ff fc |Q | DBF D0,0x24184
0002418a 59 4f |YO | SUBQ.L #0x4,A7
0002418c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024190 3f 01 |? | MOVE.W D1,-(A7)
00024192 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
00024196 4e 92 |N | JSR (A2)
00024198 50 4f |PO | ADDQ.L #0x8,A7
0002419a 4e b9 00 02 56 96 |N V | JSR 0x25696
000241a0 de c3 | | ADDA.W D3,A7
000241a2 4a 85 |J | TST.L D5
000241a4 6d 08 |m | BLT 0x241ae
000241a6 ba b9 00 02 9b b2 | | CMP.L 0x29bb2,D5
000241ac 6f 22 |o" | BLE 0x241d0
000241ae 41 fa cf 18 |A | LEA.L 0x210c8,A0
000241b2 70 06 |p | MOVEQ.L #0x06,D0
000241b4 2f 20 |/ | MOVE.L -(A0),-(A7)
000241b6 51 c8 ff fc |Q | DBF D0,0x241b4
000241ba 59 4f |YO | SUBQ.L #0x4,A7
000241bc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000241c0 3f 01 |? | MOVE.W D1,-(A7)
000241c2 3f 02 |? | MOVE.W D2,-(A7)
000241c4 4e 92 |N | JSR (A2)
000241c6 50 4f |PO | ADDQ.L #0x8,A7
000241c8 4e b9 00 02 56 96 |N V | JSR 0x25696
000241ce de c3 | | ADDA.W D3,A7
000241d0 3d 7c 01 00 ff ea |=| | MOVE.W #0x100,(A6-0x16)
000241d6 42 6e ff ec |Bn | CLR.W (A6-0x14)
000241da 3d 7c 00 02 ff ee |=| | MOVE.W #0x2,(A6-0x12)
000241e0 42 6e ff f0 |Bn | CLR.W (A6-0x10)
000241e4 42 6e ff f2 |Bn | CLR.W (A6-0xe)
000241e8 30 39 00 02 93 a4 |09 | MOVE.W 0x293a4,D0
000241ee e1 40 | @ | ASL.W #0x8,D0
000241f0 06 40 00 15 | @ | ADDI.W #0x0015,D0
000241f4 3d 40 ff f4 |=@ | MOVE.W D0,(A6-0xc)
000241f8 0c 87 00 00 ff ff | | CMPI.L #0x0000ffff,D7
000241fe 63 02 |c | BLS 0x24202
00024200 4e 4f |NO | TRAP #15
00024202 3d 47 ff f6 |=G | MOVE.W D7,(A6-0xa)
00024206 20 06 | | MOVE.L D6,D0
00024208 e1 80 | | ASL.L #0x8,D0
0002420a d0 85 | | ADD.L D5,D0
0002420c 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0
00024212 63 02 |c | BLS 0x24216
00024214 4e 4f |NO | TRAP #15
00024216 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8)
0002421a 41 f9 00 02 93 a6 |A | LEA.L 0x293a6,A0
00024220 28 48 |(H | MOVEA.L A0,A4
00024222 48 6e ff ea |Hn | PEA.L (A6-0x16)
00024226 2f 0c |/ | MOVE.L A4,-(A7)
00024228 42 67 |Bg | CLR.W -(A7)
0002422a 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00024230 50 4f |PO | ADDQ.L #0x8,A7
00024232 42 57 |BW | CLR.W (A7)
00024234 48 6e ff e8 |Hn | PEA.L (A6-0x18)
00024238 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
0002423e 5c 4f |\O | ADDQ.L #0x6,A7
00024240 4a 2e ff e8 |J. | TST.B (A6-0x18)
00024244 66 34 |f4 | BNE 0x2427a
00024246 9e fc 00 24 | $ | SUBA.W #0x24,A7
0002424a 20 4f | O | MOVEA.L A7,A0
0002424c 43 fa ce 7a |C z | LEA.L 0x210c8,A1
00024250 70 22 |p" | MOVEQ.L #0x22,D0
00024252 10 d9 | | MOVE.B (A1)+,(A0)+
00024254 51 c8 ff fc |Q | DBF D0,0x24252
00024258 59 4f |YO | SUBQ.L #0x4,A7
0002425a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002425e 3f 01 |? | MOVE.W D1,-(A7)
00024260 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7)
00024264 4e 92 |N | JSR (A2)
00024266 50 4f |PO | ADDQ.L #0x8,A7
00024268 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002426e de fc 00 26 | & | ADDA.W #0x26,A7
00024272 42 17 |B | CLR.B (A7)
00024274 4e ba d9 1c |N | JSR 0x21b92
00024278 54 4f |TO | ADDQ.L #0x2,A7
0002427a 4c df 1f ef |L | MOVEM.L (A7)+,D0+D1+D2+D3+D5+D6+D7+A0+A1+A2+A3+A4
0002427e 4e 5e |N^ | UNLK A6
00024280 4e 75 |Nu | RTS
00024282 ; --------------------------------------------------------------------------------------
00024282 ; OMSI PASCAL Function
00024282 ; <LVAR 0x008 4(r)>
00024282 ; <LVAR -0x004 @ 1(r)>
00024282 ; <LVAR -0x00c 4(rw)>
00024282 ; --------------------------------------------------------------------------------------
00024282 4e 56 ff 98 |NV | LINK.W A6,#0xff98
00024286 bf d5 | | CMPA.L (A5),A7
00024288 62 06 |b | BHI 0x24290
0002428a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002428e 4e 76 |Nv | TRAPV
00024290 de fc 00 54 | T | ADDA.W #0x54,A7
00024294 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00024298 45 ee 00 08 |E | LEA.L (A6+0x8),A2
0002429c 47 fa d6 74 |G t | LEA.L 0x21912,A3
000242a0 49 ee ff f4 |I | LEA.L (A6-0xc),A4
000242a4 24 3c 00 00 00 ff |$< | MOVE.L #0xff,D2
000242aa 41 fa ce 6c |A l | LEA.L 0x21118,A0
000242ae 70 04 |p | MOVEQ.L #0x04,D0
000242b0 3f 20 |? | MOVE.W -(A0),-(A7)
000242b2 51 c8 ff fc |Q | DBF D0,0x242b0
000242b6 2f 12 |/ | MOVE.L (A2),-(A7)
000242b8 48 78 00 03 |Hx | PEA.L 0x3
000242bc 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
000242c2 de fc 00 0a | | ADDA.W #0xa,A7
000242c6 2e 92 |. | MOVE.L (A2),(A7)
000242c8 48 78 00 01 |Hx | PEA.L 0x1
000242cc 4e 93 |N | JSR (A3)
000242ce 50 4f |PO | ADDQ.L #0x8,A7
000242d0 2c 17 |, | MOVE.L (A7),D6
000242d2 2f 12 |/ | MOVE.L (A2),-(A7)
000242d4 48 78 00 02 |Hx | PEA.L 0x2
000242d8 4e 93 |N | JSR (A3)
000242da 50 4f |PO | ADDQ.L #0x8,A7
000242dc 2a 17 |* | MOVE.L (A7),D5
000242de 2f 12 |/ | MOVE.L (A2),-(A7)
000242e0 48 78 00 03 |Hx | PEA.L 0x3
000242e4 4e 93 |N | JSR (A3)
000242e6 50 4f |PO | ADDQ.L #0x8,A7
000242e8 28 9f |( | MOVE.L (A7)+,(A4)
000242ea 7e 00 |~ | MOVEQ.L #0x00,D7
000242ec be 82 | | CMP.L D2,D7
000242ee 63 02 |c | BLS 0x242f2
000242f0 4e 4f |NO | TRAP #15
000242f2 20 07 | | MOVE.L D7,D0
000242f4 e3 80 | | ASL.L #0x1,D0
000242f6 41 f9 00 02 91 90 |A | LEA.L 0x29190,A0
000242fc 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7
00024302 63 02 |c | BLS 0x24306
00024304 4e 4f |NO | TRAP #15
00024306 22 07 |" | MOVE.L D7,D1
00024308 e3 81 | | ASL.L #0x1,D1
0002430a 43 f9 00 02 91 90 |C | LEA.L 0x29190,A1
00024310 43 f1 18 00 |C | LEA.L (A1+D1.L),A1
00024314 31 a9 02 16 08 0c |1 | MOVE.W (A1+0x216),(A0+D0.L+#0xc)
0002431a 52 87 |R | ADDQ.L #0x1,D7
0002431c be 82 | | CMP.L D2,D7
0002431e 6f cc |o | BLE 0x242ec
00024320 00 39 00 10 00 02 91 98 | 9 | ORI.B #0x10,0x29198
00024328 00 39 00 40 00 02 91 98 | 9 @ | ORI.B #0x40,0x29198
00024330 00 39 00 80 00 02 91 98 | 9 | ORI.B #0x80,0x29198
00024338 02 39 00 df 00 02 91 98 | 9 | ANDI.B #0xdf,0x29198
00024340 0c 86 00 00 0f ff | | CMPI.L #0x00000fff,D6
00024346 63 02 |c | BLS 0x2434a
00024348 4e 4f |NO | TRAP #15
0002434a 20 06 | | MOVE.L D6,D0
0002434c 02 79 f0 00 00 02 91 98 | y | ANDI.W #0xf000,0x29198
00024354 81 79 00 02 91 98 | y | OR.W D0,0x29198
0002435a ba 82 | | CMP.L D2,D5
0002435c 63 02 |c | BLS 0x24360
0002435e 4e 4f |NO | TRAP #15
00024360 13 c5 00 02 91 9a | | MOVE.B D5,0x2919a
00024366 20 14 | | MOVE.L (A4),D0
00024368 b0 82 | | CMP.L D2,D0
0002436a 63 02 |c | BLS 0x2436e
0002436c 4e 4f |NO | TRAP #15
0002436e 13 c0 00 02 91 9b | | MOVE.B D0,0x2919b
00024374 2f 06 |/ | MOVE.L D6,-(A7)
00024376 2f 05 |/ | MOVE.L D5,-(A7)
00024378 2f 14 |/ | MOVE.L (A4),-(A7)
0002437a 1f 3c 00 08 | < | MOVE.B #0x08,-(A7)
0002437e 48 6e ff fc |Hn | PEA.L (A6-0x4)
00024382 4e ba e6 f2 |N | JSR 0x22a76
00024386 de fc 00 12 | | ADDA.W #0x12,A7
0002438a 4a 2e ff fc |J. | TST.B (A6-0x4)
0002438e 66 34 |f4 | BNE 0x243c4
00024390 41 fa cd 7c |A | | LEA.L 0x2110e,A0
00024394 70 05 |p | MOVEQ.L #0x05,D0
00024396 2f 20 |/ | MOVE.L -(A0),-(A7)
00024398 51 c8 ff fc |Q | DBF D0,0x24396
0002439c 59 4f |YO | SUBQ.L #0x4,A7
0002439e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000243a2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000243a6 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7)
000243aa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000243b0 50 4f |PO | ADDQ.L #0x8,A7
000243b2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000243b8 de fc 00 1a | | ADDA.W #0x1a,A7
000243bc 42 17 |B | CLR.B (A7)
000243be 4e ba d7 d2 |N | JSR 0x21b92
000243c2 54 4f |TO | ADDQ.L #0x2,A7
000243c4 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
000243c8 4e 5e |N^ | UNLK A6
000243ca 4e 75 |Nu | RTS
000243cc ; --------------------------------------------------------------------------------------
000243cc ; OMSI PASCAL Function
000243cc ; <LVAR 0x008 4(r)>
000243cc ; <LVAR -0x004 @ 1(r)>
000243cc ; <LVAR -0x00c 4(rw)>
000243cc ; --------------------------------------------------------------------------------------
000243cc 4e 56 ff 96 |NV | LINK.W A6,#0xff96
000243d0 bf d5 | | CMPA.L (A5),A7
000243d2 62 06 |b | BHI 0x243da
000243d4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000243d8 4e 76 |Nv | TRAPV
000243da de fc 00 56 | V | ADDA.W #0x56,A7
000243de 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
000243e2 45 ee 00 08 |E | LEA.L (A6+0x8),A2
000243e6 47 fa d5 2a |G * | LEA.L 0x21912,A3
000243ea 49 ee ff f4 |I | LEA.L (A6-0xc),A4
000243ee 24 3c 00 00 00 ff |$< | MOVE.L #0xff,D2
000243f4 41 fa cd 46 |A F | LEA.L 0x2113c,A0
000243f8 70 04 |p | MOVEQ.L #0x04,D0
000243fa 3f 20 |? | MOVE.W -(A0),-(A7)
000243fc 51 c8 ff fc |Q | DBF D0,0x243fa
00024400 2f 12 |/ | MOVE.L (A2),-(A7)
00024402 48 78 00 03 |Hx | PEA.L 0x3
00024406 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
0002440c de fc 00 0a | | ADDA.W #0xa,A7
00024410 2e 92 |. | MOVE.L (A2),(A7)
00024412 48 78 00 01 |Hx | PEA.L 0x1
00024416 4e 93 |N | JSR (A3)
00024418 50 4f |PO | ADDQ.L #0x8,A7
0002441a 2c 17 |, | MOVE.L (A7),D6
0002441c 2f 12 |/ | MOVE.L (A2),-(A7)
0002441e 48 78 00 02 |Hx | PEA.L 0x2
00024422 4e 93 |N | JSR (A3)
00024424 50 4f |PO | ADDQ.L #0x8,A7
00024426 2a 17 |* | MOVE.L (A7),D5
00024428 2f 12 |/ | MOVE.L (A2),-(A7)
0002442a 48 78 00 03 |Hx | PEA.L 0x3
0002442e 4e 93 |N | JSR (A3)
00024430 50 4f |PO | ADDQ.L #0x8,A7
00024432 28 9f |( | MOVE.L (A7)+,(A4)
00024434 7e 00 |~ | MOVEQ.L #0x00,D7
00024436 be 82 | | CMP.L D2,D7
00024438 63 02 |c | BLS 0x2443c
0002443a 4e 4f |NO | TRAP #15
0002443c 20 07 | | MOVE.L D7,D0
0002443e e3 80 | | ASL.L #0x1,D0
00024440 41 f9 00 02 91 90 |A | LEA.L 0x29190,A0
00024446 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7
0002444c 63 02 |c | BLS 0x24450
0002444e 4e 4f |NO | TRAP #15
00024450 22 07 |" | MOVE.L D7,D1
00024452 e3 81 | | ASL.L #0x1,D1
00024454 43 f9 00 02 91 90 |C | LEA.L 0x29190,A1
0002445a 43 f1 18 00 |C | LEA.L (A1+D1.L),A1
0002445e 31 a9 02 16 08 0c |1 | MOVE.W (A1+0x216),(A0+D0.L+#0xc)
00024464 52 87 |R | ADDQ.L #0x1,D7
00024466 be 82 | | CMP.L D2,D7
00024468 6f cc |o | BLE 0x24436
0002446a 00 39 00 10 00 02 91 98 | 9 | ORI.B #0x10,0x29198
00024472 02 39 00 bf 00 02 91 98 | 9 | ANDI.B #0xbf,0x29198
0002447a 02 39 00 7f 00 02 91 98 | 9 | ANDI.B #0x7f,0x29198
00024482 02 39 00 df 00 02 91 98 | 9 | ANDI.B #0xdf,0x29198
0002448a 0c 86 00 00 0f ff | | CMPI.L #0x00000fff,D6
00024490 63 02 |c | BLS 0x24494
00024492 4e 4f |NO | TRAP #15
00024494 20 06 | | MOVE.L D6,D0
00024496 02 79 f0 00 00 02 91 98 | y | ANDI.W #0xf000,0x29198
0002449e 81 79 00 02 91 98 | y | OR.W D0,0x29198
000244a4 ba 82 | | CMP.L D2,D5
000244a6 63 02 |c | BLS 0x244aa
000244a8 4e 4f |NO | TRAP #15
000244aa 13 c5 00 02 91 9a | | MOVE.B D5,0x2919a
000244b0 20 14 | | MOVE.L (A4),D0
000244b2 b0 82 | | CMP.L D2,D0
000244b4 63 02 |c | BLS 0x244b8
000244b6 4e 4f |NO | TRAP #15
000244b8 13 c0 00 02 91 9b | | MOVE.B D0,0x2919b
000244be 2f 06 |/ | MOVE.L D6,-(A7)
000244c0 2f 05 |/ | MOVE.L D5,-(A7)
000244c2 2f 14 |/ | MOVE.L (A4),-(A7)
000244c4 1f 3c 00 08 | < | MOVE.B #0x08,-(A7)
000244c8 48 6e ff fc |Hn | PEA.L (A6-0x4)
000244cc 4e ba e5 a8 |N | JSR 0x22a76
000244d0 de fc 00 12 | | ADDA.W #0x12,A7
000244d4 4a 2e ff fc |J. | TST.B (A6-0x4)
000244d8 66 34 |f4 | BNE 0x2450e
000244da 41 fa cc 56 |A V | LEA.L 0x21132,A0
000244de 70 0c |p | MOVEQ.L #0x0c,D0
000244e0 3f 20 |? | MOVE.W -(A0),-(A7)
000244e2 51 c8 ff fc |Q | DBF D0,0x244e0
000244e6 59 4f |YO | SUBQ.L #0x4,A7
000244e8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000244ec 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000244f0 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7)
000244f4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000244fa 50 4f |PO | ADDQ.L #0x8,A7
000244fc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00024502 de fc 00 1c | | ADDA.W #0x1c,A7
00024506 42 17 |B | CLR.B (A7)
00024508 4e ba d6 88 |N | JSR 0x21b92
0002450c 54 4f |TO | ADDQ.L #0x2,A7
0002450e 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00024512 4e 5e |N^ | UNLK A6
00024514 4e 75 |Nu | RTS
00024516 ; --------------------------------------------------------------------------------------
00024516 ; OMSI PASCAL Function
00024516 ; <LVAR 0x008 4(r)>
00024516 ; <LVAR -0x008 4(rw)>
00024516 ; <LVAR -0x00c 4(rw)>
00024516 ; <LVAR -0x010 4(rw)>
00024516 ; <LVAR -0x014 4(rw)>
00024516 ; <LVAR -0x018 4(rw)>
00024516 ; <LVAR -0x01c 4(rw)>
00024516 ; --------------------------------------------------------------------------------------
00024516 4e 56 ff 84 |NV | LINK.W A6,#0xff84
0002451a bf d5 | | CMPA.L (A5),A7
0002451c 62 06 |b | BHI 0x24524
0002451e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00024522 4e 76 |Nv | TRAPV
00024524 de fc 00 54 | T | ADDA.W #0x54,A7
00024528 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002452c 43 ee ff e4 |C | LEA.L (A6-0x1c),A1
00024530 45 ee ff e8 |E | LEA.L (A6-0x18),A2
00024534 47 ee ff ec |G | LEA.L (A6-0x14),A3
00024538 72 10 |r | MOVEQ.L #0x10,D1
0002453a 74 2c |t, | MOVEQ.L #0x2c,D2
0002453c 41 fa cc 08 |A | LEA.L 0x21146,A0
00024540 70 04 |p | MOVEQ.L #0x04,D0
00024542 3f 20 |? | MOVE.W -(A0),-(A7)
00024544 51 c8 ff fc |Q | DBF D0,0x24542
00024548 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002454c 48 78 00 01 |Hx | PEA.L 0x1
00024550 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
00024556 54 4f |TO | ADDQ.L #0x2,A7
00024558 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
0002455c 48 78 00 01 |Hx | PEA.L 0x1
00024560 4e b9 00 02 63 be |N c | JSR 0x263be
00024566 50 4f |PO | ADDQ.L #0x8,A7
00024568 48 78 00 0a |Hx | PEA.L 0xa
0002456c 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64()
00024572 50 4f |PO | ADDQ.L #0x8,A7
00024574 22 9f |" | MOVE.L (A7)+,(A1)
00024576 24 97 |$ | MOVE.L (A7),(A2)
00024578 59 4f |YO | SUBQ.L #0x4,A7
0002457a 28 39 00 02 9b b2 |(9 | MOVE.L 0x29bb2,D4
00024580 76 02 |v | MOVEQ.L #0x02,D3
00024582 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00024588 2f 04 |/ | MOVE.L D4,-(A7)
0002458a 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad
00024590 58 4f |XO | ADDQ.L #0x4,A7
00024592 26 9f |& | MOVE.L (A7)+,(A3)
00024594 2d 57 ff f0 |-W | MOVE.L (A7),(A6-0x10)
00024598 59 4f |YO | SUBQ.L #0x4,A7
0002459a 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
0002459e 2f 13 |/ | MOVE.L (A3),-(A7)
000245a0 51 4f |QO | SUBQ.L #0x8,A7
000245a2 2f 39 00 02 9b ae |/9 | MOVE.L 0x29bae,-(A7)
000245a8 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad
000245ae 58 4f |XO | ADDQ.L #0x4,A7
000245b0 4e b9 00 01 03 1c |N | JSR Multiply(a, b : Quad) : Quad
000245b6 de c1 | | ADDA.W D1,A7
000245b8 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc)
000245bc 2d 57 ff f8 |-W | MOVE.L (A7),(A6-0x8)
000245c0 51 4f |QO | SUBQ.L #0x8,A7
000245c2 2f 12 |/ | MOVE.L (A2),-(A7)
000245c4 2f 11 |/ | MOVE.L (A1),-(A7)
000245c6 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7)
000245ca 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
000245ce 4e b9 00 01 03 20 |N | JSR Divide(a, b : Quad) : Quad
000245d4 de c1 | | ADDA.W D1,A7
000245d6 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
000245dc 50 4f |PO | ADDQ.L #0x8,A7
000245de 2e 17 |. | MOVE.L (A7),D7
000245e0 59 4f |YO | SUBQ.L #0x4,A7
000245e2 2f 12 |/ | MOVE.L (A2),-(A7)
000245e4 2f 11 |/ | MOVE.L (A1),-(A7)
000245e6 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7)
000245ea 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
000245ee 4e b9 00 01 03 58 |N X | JSR Modulus(a, b : Quad) : Quad
000245f4 de c1 | | ADDA.W D1,A7
000245f6 22 9f |" | MOVE.L (A7)+,(A1)
000245f8 24 97 |$ | MOVE.L (A7),(A2)
000245fa 51 4f |QO | SUBQ.L #0x8,A7
000245fc 2f 12 |/ | MOVE.L (A2),-(A7)
000245fe 2f 11 |/ | MOVE.L (A1),-(A7)
00024600 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
00024604 2f 13 |/ | MOVE.L (A3),-(A7)
00024606 4e b9 00 01 03 20 |N | JSR Divide(a, b : Quad) : Quad
0002460c de c1 | | ADDA.W D1,A7
0002460e 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
00024614 50 4f |PO | ADDQ.L #0x8,A7
00024616 2c 17 |, | MOVE.L (A7),D6
00024618 59 4f |YO | SUBQ.L #0x4,A7
0002461a 2f 12 |/ | MOVE.L (A2),-(A7)
0002461c 2f 11 |/ | MOVE.L (A1),-(A7)
0002461e 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
00024622 2f 13 |/ | MOVE.L (A3),-(A7)
00024624 4e b9 00 01 03 58 |N X | JSR Modulus(a, b : Quad) : Quad
0002462a de c1 | | ADDA.W D1,A7
0002462c 22 9f |" | MOVE.L (A7)+,(A1)
0002462e 24 97 |$ | MOVE.L (A7),(A2)
00024630 2f 12 |/ | MOVE.L (A2),-(A7)
00024632 2f 11 |/ | MOVE.L (A1),-(A7)
00024634 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
0002463a 50 4f |PO | ADDQ.L #0x8,A7
0002463c 2a 1f |* | MOVE.L (A7)+,D5
0002463e e3 85 | | ASL.L #0x1,D5
00024640 59 4f |YO | SUBQ.L #0x4,A7
00024642 2f 07 |/ | MOVE.L D7,-(A7)
00024644 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
0002464a 58 4f |XO | ADDQ.L #0x4,A7
0002464c 28 5f |(_ | MOVEA.L (A7)+,A4
0002464e 2f 0c |/ | MOVE.L A4,-(A7)
00024650 1f 02 | | MOVE.B D2,-(A7)
00024652 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00024658 54 4f |TO | ADDQ.L #0x2,A7
0002465a 2f 0c |/ | MOVE.L A4,-(A7)
0002465c 59 4f |YO | SUBQ.L #0x4,A7
0002465e 2f 06 |/ | MOVE.L D6,-(A7)
00024660 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00024666 58 4f |XO | ADDQ.L #0x4,A7
00024668 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002466e 50 4f |PO | ADDQ.L #0x8,A7
00024670 28 5f |(_ | MOVEA.L (A7)+,A4
00024672 2f 0c |/ | MOVE.L A4,-(A7)
00024674 1f 02 | | MOVE.B D2,-(A7)
00024676 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
0002467c 54 4f |TO | ADDQ.L #0x2,A7
0002467e 2f 0c |/ | MOVE.L A4,-(A7)
00024680 59 4f |YO | SUBQ.L #0x4,A7
00024682 2f 05 |/ | MOVE.L D5,-(A7)
00024684 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
0002468a 58 4f |XO | ADDQ.L #0x4,A7
0002468c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00024692 50 4f |PO | ADDQ.L #0x8,A7
00024694 28 5f |(_ | MOVEA.L (A7)+,A4
00024696 2f 0c |/ | MOVE.L A4,-(A7)
00024698 4e b9 00 02 64 60 |N d` | JSR 0x26460
0002469e 58 4f |XO | ADDQ.L #0x4,A7
000246a0 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000246a4 4e 5e |N^ | UNLK A6
000246a6 4e 75 |Nu | RTS
000246a8 ; --------------------------------------------------------------------------------------
000246a8 ; OMSI PASCAL Function
000246a8 ; <LVAR 0x008 4(r)>
000246a8 ; <LVAR -0x004 4(rw)>
000246a8 ; <LVAR -0x008 4(rw)>
000246a8 ; <LVAR -0x00c 4(rw)>
000246a8 ; <LVAR -0x010 4(rw)>
000246a8 ; <LVAR -0x014 4(rw)>
000246a8 ; <LVAR -0x018 4(rw)>
000246a8 ; --------------------------------------------------------------------------------------
000246a8 4e 56 ff 7c |NV | | LINK.W A6,#0xff7c
000246ac bf d5 | | CMPA.L (A5),A7
000246ae 62 06 |b | BHI 0x246b6
000246b0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000246b4 4e 76 |Nv | TRAPV
000246b6 de fc 00 60 | ` | ADDA.W #0x60,A7
000246ba 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000246be 43 ee ff e8 |C | LEA.L (A6-0x18),A1
000246c2 45 ee ff ec |E | LEA.L (A6-0x14),A2
000246c6 47 f9 00 01 03 54 |G T | LEA.L Long2Quad(a : Long) : Quad,A3
000246cc 49 ee 00 08 |I | LEA.L (A6+0x8),A4
000246d0 72 10 |r | MOVEQ.L #0x10,D1
000246d2 74 0c |t | MOVEQ.L #0x0c,D2
000246d4 41 fa ca 7a |A z | LEA.L 0x21150,A0
000246d8 70 04 |p | MOVEQ.L #0x04,D0
000246da 3f 20 |? | MOVE.W -(A0),-(A7)
000246dc 51 c8 ff fc |Q | DBF D0,0x246da
000246e0 2f 14 |/ | MOVE.L (A4),-(A7)
000246e2 48 78 00 03 |Hx | PEA.L 0x3
000246e6 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
000246ec de fc 00 0a | | ADDA.W #0xa,A7
000246f0 2e 94 |. | MOVE.L (A4),(A7)
000246f2 48 78 00 01 |Hx | PEA.L 0x1
000246f6 4e ba d2 1a |N | JSR 0x21912
000246fa 50 4f |PO | ADDQ.L #0x8,A7
000246fc 2e 17 |. | MOVE.L (A7),D7
000246fe 2f 14 |/ | MOVE.L (A4),-(A7)
00024700 48 78 00 02 |Hx | PEA.L 0x2
00024704 4e ba d2 0c |N | JSR 0x21912
00024708 50 4f |PO | ADDQ.L #0x8,A7
0002470a 2c 17 |, | MOVE.L (A7),D6
0002470c 2f 14 |/ | MOVE.L (A4),-(A7)
0002470e 48 78 00 03 |Hx | PEA.L 0x3
00024712 4e ba d1 fe |N | JSR 0x21912
00024716 50 4f |PO | ADDQ.L #0x8,A7
00024718 2a 17 |* | MOVE.L (A7),D5
0002471a 59 4f |YO | SUBQ.L #0x4,A7
0002471c 28 39 00 02 9b b2 |(9 | MOVE.L 0x29bb2,D4
00024722 76 02 |v | MOVEQ.L #0x02,D3
00024724 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
0002472a 2f 04 |/ | MOVE.L D4,-(A7)
0002472c 4e 93 |N | JSR (A3)
0002472e 58 4f |XO | ADDQ.L #0x4,A7
00024730 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10)
00024734 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc)
00024738 59 4f |YO | SUBQ.L #0x4,A7
0002473a 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
0002473e 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
00024742 51 4f |QO | SUBQ.L #0x8,A7
00024744 2f 39 00 02 9b ae |/9 | MOVE.L 0x29bae,-(A7)
0002474a 4e 93 |N | JSR (A3)
0002474c 58 4f |XO | ADDQ.L #0x4,A7
0002474e 4e b9 00 01 03 1c |N | JSR Multiply(a, b : Quad) : Quad
00024754 de c1 | | ADDA.W D1,A7
00024756 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8)
0002475a 2d 57 ff fc |-W | MOVE.L (A7),(A6-0x4)
0002475e 9e c2 | | SUBA.W D2,A7
00024760 2f 07 |/ | MOVE.L D7,-(A7)
00024762 4e 93 |N | JSR (A3)
00024764 2e ae ff fc |. | MOVE.L (A6-0x4),(A7)
00024768 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7)
0002476c 4e b9 00 01 03 1c |N | JSR Multiply(a, b : Quad) : Quad
00024772 de c1 | | ADDA.W D1,A7
00024774 22 9f |" | MOVE.L (A7)+,(A1)
00024776 24 97 |$ | MOVE.L (A7),(A2)
00024778 59 4f |YO | SUBQ.L #0x4,A7
0002477a 2f 12 |/ | MOVE.L (A2),-(A7)
0002477c 2f 11 |/ | MOVE.L (A1),-(A7)
0002477e 9e c1 | | SUBA.W D1,A7
00024780 2f 06 |/ | MOVE.L D6,-(A7)
00024782 4e 93 |N | JSR (A3)
00024784 2e ae ff f4 |. | MOVE.L (A6-0xc),(A7)
00024788 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
0002478c 4e b9 00 01 03 1c |N | JSR Multiply(a, b : Quad) : Quad
00024792 de c1 | | ADDA.W D1,A7
00024794 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad
0002479a de c1 | | ADDA.W D1,A7
0002479c 22 9f |" | MOVE.L (A7)+,(A1)
0002479e 24 97 |$ | MOVE.L (A7),(A2)
000247a0 59 4f |YO | SUBQ.L #0x4,A7
000247a2 2f 12 |/ | MOVE.L (A2),-(A7)
000247a4 2f 11 |/ | MOVE.L (A1),-(A7)
000247a6 51 4f |QO | SUBQ.L #0x8,A7
000247a8 28 05 |( | MOVE.L D5,D4
000247aa 76 02 |v | MOVEQ.L #0x02,D3
000247ac 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
000247b2 2f 04 |/ | MOVE.L D4,-(A7)
000247b4 4e 93 |N | JSR (A3)
000247b6 58 4f |XO | ADDQ.L #0x4,A7
000247b8 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad
000247be de c1 | | ADDA.W D1,A7
000247c0 22 9f |" | MOVE.L (A7)+,(A1)
000247c2 24 97 |$ | MOVE.L (A7),(A2)
000247c4 2f 12 |/ | MOVE.L (A2),-(A7)
000247c6 2f 11 |/ | MOVE.L (A1),-(A7)
000247c8 48 78 00 0a |Hx | PEA.L 0xa
000247cc 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String
000247d2 de c2 | | ADDA.W D2,A7
000247d4 4e b9 00 02 64 60 |N d` | JSR 0x26460
000247da 58 4f |XO | ADDQ.L #0x4,A7
000247dc 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000247e0 4e 5e |N^ | UNLK A6
000247e2 4e 75 |Nu | RTS
000247e4 ; --------------------------------------------------------------------------------------
000247e4 ; OMSI PASCAL Function
000247e4 ; --------------------------------------------------------------------------------------
000247e4 4e 56 ff 60 |NV ` | LINK.W A6,#0xff60
000247e8 bf d5 | | CMPA.L (A5),A7
000247ea 62 06 |b | BHI 0x247f2
000247ec 44 fc 00 02 |D | MOVE.W #0x2,CCR
000247f0 4e 76 |Nv | TRAPV
000247f2 de fc 00 98 | | ADDA.W #0x98,A7
000247f6 48 e7 c3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7)
000247fa 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00024800 49 f8 00 04 |I | LEA.L 0x4,A4
00024804 72 01 |r | MOVEQ.L #0x01,D1
00024806 7e 00 |~ | MOVEQ.L #0x00,D7
00024808 7c 00 || | MOVEQ.L #0x00,D6
0002480a 0c 86 00 00 01 ff | | CMPI.L #0x000001ff,D6
00024810 63 02 |c | BLS 0x24814
00024812 4e 4f |NO | TRAP #15
00024814 20 06 | | MOVE.L D6,D0
00024816 e3 80 | | ASL.L #0x1,D0
00024818 41 f9 00 02 91 90 |A | LEA.L 0x29190,A0
0002481e 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
00024822 30 28 06 16 |0( | MOVE.W (A0+0x616),D0
00024826 b0 68 02 16 | h | CMP.W (A0+0x216),D0
0002482a 67 00 00 9c |g | BEQ 0x248c8
0002482e 52 87 |R | ADDQ.L #0x1,D7
00024830 2f 3a c9 42 |/: B | MOVE.L 0x21174,-(A7)
00024834 2f 3a c9 3a |/: : | MOVE.L 0x21170,-(A7)
00024838 2f 3a c9 32 |/: 2 | MOVE.L 0x2116c,-(A7)
0002483c 9e fc 00 16 | | SUBA.W #0x16,A7
00024840 22 4f |"O | MOVEA.L A7,A1
00024842 45 fa c9 34 |E 4 | LEA.L 0x21178,A2
00024846 70 14 |p | MOVEQ.L #0x14,D0
00024848 12 da | | MOVE.B (A2)+,(A1)+
0002484a 51 c8 ff fc |Q | DBF D0,0x24848
0002484e 43 fa c9 58 |C X | LEA.L 0x211a8,A1
00024852 70 0c |p | MOVEQ.L #0x0c,D0
00024854 3f 21 |?! | MOVE.W -(A1),-(A7)
00024856 51 c8 ff fc |Q | DBF D0,0x24854
0002485a 51 4f |QO | SUBQ.L #0x8,A7
0002485c 48 6f 00 38 |Ho 8 | PEA.L (A7+0x38)
00024860 3f 01 |? | MOVE.W D1,-(A7)
00024862 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
00024866 4e 93 |N | JSR (A3)
00024868 2e 86 |. | MOVE.L D6,(A7)
0002486a 48 54 |HT | PEA.L (A4)
0002486c 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00024872 58 4f |XO | ADDQ.L #0x4,A7
00024874 48 6f 00 2a |Ho * | PEA.L (A7+0x2a)
00024878 3f 01 |? | MOVE.W D1,-(A7)
0002487a 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
0002487e 4e 93 |N | JSR (A3)
00024880 58 4f |XO | ADDQ.L #0x4,A7
00024882 42 80 |B | CLR.L D0
00024884 30 28 06 16 |0( | MOVE.W (A0+0x616),D0
00024888 2f 00 |/ | MOVE.L D0,-(A7)
0002488a 48 54 |HT | PEA.L (A4)
0002488c 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00024892 58 4f |XO | ADDQ.L #0x4,A7
00024894 48 6f 00 18 |Ho | PEA.L (A7+0x18)
00024898 3f 01 |? | MOVE.W D1,-(A7)
0002489a 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7)
0002489e 4e 93 |N | JSR (A3)
000248a0 58 4f |XO | ADDQ.L #0x4,A7
000248a2 42 80 |B | CLR.L D0
000248a4 30 28 02 16 |0( | MOVE.W (A0+0x216),D0
000248a8 2f 00 |/ | MOVE.L D0,-(A7)
000248aa 48 54 |HT | PEA.L (A4)
000248ac 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
000248b2 50 4f |PO | ADDQ.L #0x8,A7
000248b4 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String
000248ba de fc 00 18 | | ADDA.W #0x18,A7
000248be 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000248c4 de fc 00 40 | @ | ADDA.W #0x40,A7
000248c8 52 86 |R | ADDQ.L #0x1,D6
000248ca 0c 86 00 00 01 ff | | CMPI.L #0x000001ff,D6
000248d0 6f 00 ff 38 |o 8 | BLE 0x2480a
000248d4 4a 87 |J | TST.L D7
000248d6 67 3c |g< | BEQ 0x24914
000248d8 9e fc 00 1c | | SUBA.W #0x1c,A7
000248dc 20 4f | O | MOVEA.L A7,A0
000248de 43 fa c8 70 |C p | LEA.L 0x21150,A1
000248e2 70 1a |p | MOVEQ.L #0x1a,D0
000248e4 10 d9 | | MOVE.B (A1)+,(A0)+
000248e6 51 c8 ff fc |Q | DBF D0,0x248e4
000248ea 51 4f |QO | SUBQ.L #0x8,A7
000248ec 2f 07 |/ | MOVE.L D7,-(A7)
000248ee 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
000248f4 48 6f 00 0c |Ho | PEA.L (A7+0xc)
000248f8 3f 01 |? | MOVE.W D1,-(A7)
000248fa 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
000248fe 4e 93 |N | JSR (A3)
00024900 50 4f |PO | ADDQ.L #0x8,A7
00024902 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00024908 50 4f |PO | ADDQ.L #0x8,A7
0002490a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00024910 de fc 00 20 | | ADDA.W #0x20,A7
00024914 4c df 1f c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4
00024918 4e 5e |N^ | UNLK A6
0002491a 4e 75 |Nu | RTS
0002491c ; --------------------------------------------------------------------------------------
0002491c ; OMSI PASCAL Function
0002491c ; <LVAR 0x008 4(r)>
0002491c ; <LVAR -0x004 @ 1(rw)>
0002491c ; <LVAR -0x00c 4(rw)>
0002491c ; --------------------------------------------------------------------------------------
0002491c 4e 56 ff 78 |NV x | LINK.W A6,#0xff78
00024920 bf d5 | | CMPA.L (A5),A7
00024922 62 06 |b | BHI 0x2492a
00024924 44 fc 00 02 |D | MOVE.W #0x2,CCR
00024928 4e 76 |Nv | TRAPV
0002492a de fc 00 74 | t | ADDA.W #0x74,A7
0002492e 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00024932 45 ee ff fc |E | LEA.L (A6-0x4),A2
00024936 47 ee 00 08 |G | LEA.L (A6+0x8),A3
0002493a 49 ee ff f4 |I | LEA.L (A6-0xc),A4
0002493e 74 01 |t | MOVEQ.L #0x01,D2
00024940 26 3c 00 00 01 ff |&< | MOVE.L #0x1ff,D3
00024946 78 12 |x | MOVEQ.L #0x12,D4
00024948 41 fa c8 e8 |A | LEA.L 0x21232,A0
0002494c 70 04 |p | MOVEQ.L #0x04,D0
0002494e 3f 20 |? | MOVE.W -(A0),-(A7)
00024950 51 c8 ff fc |Q | DBF D0,0x2494e
00024954 2f 13 |/ | MOVE.L (A3),-(A7)
00024956 48 78 00 03 |Hx | PEA.L 0x3
0002495a 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
00024960 de fc 00 0a | | ADDA.W #0xa,A7
00024964 2e 93 |. | MOVE.L (A3),(A7)
00024966 48 78 00 01 |Hx | PEA.L 0x1
0002496a 4e ba cf a6 |N | JSR 0x21912
0002496e 50 4f |PO | ADDQ.L #0x8,A7
00024970 2c 17 |, | MOVE.L (A7),D6
00024972 2f 13 |/ | MOVE.L (A3),-(A7)
00024974 48 78 00 02 |Hx | PEA.L 0x2
00024978 4e ba cf 98 |N | JSR 0x21912
0002497c 50 4f |PO | ADDQ.L #0x8,A7
0002497e 2a 17 |* | MOVE.L (A7),D5
00024980 2f 13 |/ | MOVE.L (A3),-(A7)
00024982 48 78 00 03 |Hx | PEA.L 0x3
00024986 4e ba cf 8a |N | JSR 0x21912
0002498a 50 4f |PO | ADDQ.L #0x8,A7
0002498c 28 9f |( | MOVE.L (A7)+,(A4)
0002498e bc b9 00 02 9b aa | | CMP.L 0x29baa,D6
00024994 6c 04 |l | BGE 0x2499a
00024996 4e ba e9 88 |N | JSR 0x23320
0002499a 20 14 | | MOVE.L (A4),D0
0002499c 08 00 00 00 | | BTST.L #0x0,D0
000249a0 67 2a |g* | BEQ 0x249cc
000249a2 41 fa c8 3e |A > | LEA.L 0x211e2,A0
000249a6 70 10 |p | MOVEQ.L #0x10,D0
000249a8 3f 20 |? | MOVE.W -(A0),-(A7)
000249aa 51 c8 ff fc |Q | DBF D0,0x249a8
000249ae 59 4f |YO | SUBQ.L #0x4,A7
000249b0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000249b4 3f 02 |? | MOVE.W D2,-(A7)
000249b6 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7)
000249ba 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000249c0 50 4f |PO | ADDQ.L #0x8,A7
000249c2 4e b9 00 02 56 96 |N V | JSR 0x25696
000249c8 de fc 00 26 | & | ADDA.W #0x26,A7
000249cc 7e 00 |~ | MOVEQ.L #0x00,D7
000249ce be 83 | | CMP.L D3,D7
000249d0 63 02 |c | BLS 0x249d4
000249d2 4e 4f |NO | TRAP #15
000249d4 20 07 | | MOVE.L D7,D0
000249d6 e3 80 | | ASL.L #0x1,D0
000249d8 41 f9 00 02 91 90 |A | LEA.L 0x29190,A0
000249de 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
000249e2 42 80 |B | CLR.L D0
000249e4 30 28 02 16 |0( | MOVE.W (A0+0x216),D0
000249e8 52 80 |R | ADDQ.L #0x1,D0
000249ea 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0
000249f0 63 02 |c | BLS 0x249f4
000249f2 4e 4f |NO | TRAP #15
000249f4 31 40 02 16 |1@ | MOVE.W D0,(A0+0x216)
000249f8 52 87 |R | ADDQ.L #0x1,D7
000249fa be 83 | | CMP.L D3,D7
000249fc 6f d0 |o | BLE 0x249ce
000249fe 2f 06 |/ | MOVE.L D6,-(A7)
00024a00 2f 05 |/ | MOVE.L D5,-(A7)
00024a02 2f 14 |/ | MOVE.L (A4),-(A7)
00024a04 1f 3c 00 03 | < | MOVE.B #0x03,-(A7)
00024a08 48 52 |HR | PEA.L (A2)
00024a0a 4e ba e0 6a |N j | JSR 0x22a76
00024a0e de c4 | | ADDA.W D4,A7
00024a10 4a 12 |J | TST.B (A2)
00024a12 66 38 |f8 | BNE 0x24a4c
00024a14 9e fc 00 18 | | SUBA.W #0x18,A7
00024a18 20 4f | O | MOVEA.L A7,A0
00024a1a 43 fa c7 8c |C | LEA.L 0x211a8,A1
00024a1e 70 16 |p | MOVEQ.L #0x16,D0
00024a20 10 d9 | | MOVE.B (A1)+,(A0)+
00024a22 51 c8 ff fc |Q | DBF D0,0x24a20
00024a26 59 4f |YO | SUBQ.L #0x4,A7
00024a28 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024a2c 3f 02 |? | MOVE.W D2,-(A7)
00024a2e 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00024a32 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024a38 50 4f |PO | ADDQ.L #0x8,A7
00024a3a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00024a40 de fc 00 1a | | ADDA.W #0x1a,A7
00024a44 42 17 |B | CLR.B (A7)
00024a46 4e ba d1 4a |N J | JSR 0x21b92
00024a4a 54 4f |TO | ADDQ.L #0x2,A7
00024a4c 2f 06 |/ | MOVE.L D6,-(A7)
00024a4e 2f 05 |/ | MOVE.L D5,-(A7)
00024a50 2f 14 |/ | MOVE.L (A4),-(A7)
00024a52 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00024a56 48 52 |HR | PEA.L (A2)
00024a58 4e ba e0 1c |N | JSR 0x22a76
00024a5c de c4 | | ADDA.W D4,A7
00024a5e 4a 12 |J | TST.B (A2)
00024a60 66 32 |f2 | BNE 0x24a94
00024a62 41 fa c7 94 |A | LEA.L 0x211f8,A0
00024a66 70 0a |p | MOVEQ.L #0x0a,D0
00024a68 3f 20 |? | MOVE.W -(A0),-(A7)
00024a6a 51 c8 ff fc |Q | DBF D0,0x24a68
00024a6e 59 4f |YO | SUBQ.L #0x4,A7
00024a70 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024a74 3f 02 |? | MOVE.W D2,-(A7)
00024a76 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
00024a7a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024a80 50 4f |PO | ADDQ.L #0x8,A7
00024a82 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00024a88 de fc 00 18 | | ADDA.W #0x18,A7
00024a8c 42 17 |B | CLR.B (A7)
00024a8e 4e ba d1 02 |N | JSR 0x21b92
00024a92 54 4f |TO | ADDQ.L #0x2,A7
00024a94 14 82 | | MOVE.B D2,(A2)
00024a96 7e 00 |~ | MOVEQ.L #0x00,D7
00024a98 70 00 |p | MOVEQ.L #0x00,D0
00024a9a be 83 | | CMP.L D3,D7
00024a9c 63 02 |c | BLS 0x24aa0
00024a9e 4e 4f |NO | TRAP #15
00024aa0 22 07 |" | MOVE.L D7,D1
00024aa2 e3 81 | | ASL.L #0x1,D1
00024aa4 41 f9 00 02 91 90 |A | LEA.L 0x29190,A0
00024aaa 2f 08 |/ | MOVE.L A0,-(A7)
00024aac 4a 12 |J | TST.B (A2)
00024aae 66 04 |f | BNE 0x24ab4
00024ab0 58 4f |XO | ADDQ.L #0x4,A7
00024ab2 60 1c |` | BRA 0x24ad0
00024ab4 41 f0 18 00 |A | LEA.L (A0+D1.L),A0
00024ab8 22 57 |"W | MOVEA.L (A7),A1
00024aba 43 f1 18 00 |C | LEA.L (A1+D1.L),A1
00024abe 32 28 06 16 |2( | MOVE.W (A0+0x616),D1
00024ac2 b2 69 02 16 | i | CMP.W (A1+0x216),D1
00024ac6 67 04 |g | BEQ 0x24acc
00024ac8 58 4f |XO | ADDQ.L #0x4,A7
00024aca 60 04 |` | BRA 0x24ad0
00024acc 52 00 |R | ADDQ.B #0x1,D0
00024ace 58 4f |XO | ADDQ.L #0x4,A7
00024ad0 14 80 | | MOVE.B D0,(A2)
00024ad2 52 87 |R | ADDQ.L #0x1,D7
00024ad4 be 83 | | CMP.L D3,D7
00024ad6 6f c0 |o | BLE 0x24a98
00024ad8 4a 12 |J | TST.B (A2)
00024ada 66 30 |f0 | BNE 0x24b0c
00024adc 9e fc 00 30 | 0 | SUBA.W #0x30,A7
00024ae0 20 4f | O | MOVEA.L A7,A0
00024ae2 43 fa c7 14 |C | LEA.L 0x211f8,A1
00024ae6 70 2e |p. | MOVEQ.L #0x2e,D0
00024ae8 10 d9 | | MOVE.B (A1)+,(A0)+
00024aea 51 c8 ff fc |Q | DBF D0,0x24ae8
00024aee 59 4f |YO | SUBQ.L #0x4,A7
00024af0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024af4 3f 02 |? | MOVE.W D2,-(A7)
00024af6 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7)
00024afa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024b00 50 4f |PO | ADDQ.L #0x8,A7
00024b02 4e b9 00 02 56 96 |N V | JSR 0x25696
00024b08 de fc 00 34 | 4 | ADDA.W #0x34,A7
00024b0c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00024b10 4e 5e |N^ | UNLK A6
00024b12 4e 75 |Nu | RTS
00024b14 ; --------------------------------------------------------------------------------------
00024b14 ; OMSI PASCAL Function
00024b14 ; <LVAR 0x008 4(r)>
00024b14 ; --------------------------------------------------------------------------------------
00024b14 4e 56 ff aa |NV | LINK.W A6,#0xffaa
00024b18 bf d5 | | CMPA.L (A5),A7
00024b1a 62 06 |b | BHI 0x24b22
00024b1c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00024b20 4e 76 |Nv | TRAPV
00024b22 de fc 00 4e | N | ADDA.W #0x4e,A7
00024b26 48 e7 83 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D0,-(A7)
00024b2a 45 ee 00 08 |E | LEA.L (A6+0x8),A2
00024b2e 41 fa c7 0c |A | LEA.L 0x2123c,A0
00024b32 70 04 |p | MOVEQ.L #0x04,D0
00024b34 3f 20 |? | MOVE.W -(A0),-(A7)
00024b36 51 c8 ff fc |Q | DBF D0,0x24b34
00024b3a 2f 12 |/ | MOVE.L (A2),-(A7)
00024b3c 48 78 00 02 |Hx | PEA.L 0x2
00024b40 4e b9 00 02 5a d8 |N Z | JSR 0x25ad8
00024b46 de fc 00 0a | | ADDA.W #0xa,A7
00024b4a 2e 92 |. | MOVE.L (A2),(A7)
00024b4c 48 78 00 01 |Hx | PEA.L 0x1
00024b50 4e b9 00 02 64 2c |N d, | JSR 0x2642c
00024b56 50 4f |PO | ADDQ.L #0x8,A7
00024b58 2e 17 |. | MOVE.L (A7),D7
00024b5a 2f 12 |/ | MOVE.L (A2),-(A7)
00024b5c 48 78 00 02 |Hx | PEA.L 0x2
00024b60 4e b9 00 02 64 2c |N d, | JSR 0x2642c
00024b66 50 4f |PO | ADDQ.L #0x8,A7
00024b68 2c 1f |, | MOVE.L (A7)+,D6
00024b6a 4a 87 |J | TST.L D7
00024b6c 6d 30 |m0 | BLT 0x24b9e
00024b6e 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7
00024b74 6e 28 |n( | BGT 0x24b9e
00024b76 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7
00024b7c 63 02 |c | BLS 0x24b80
00024b7e 4e 4f |NO | TRAP #15
00024b80 20 07 | | MOVE.L D7,D0
00024b82 e3 80 | | ASL.L #0x1,D0
00024b84 41 f9 00 02 91 90 |A | LEA.L 0x29190,A0
00024b8a 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
00024b8e 0c 86 00 00 ff ff | | CMPI.L #0x0000ffff,D6
00024b94 63 02 |c | BLS 0x24b98
00024b96 4e 4f |NO | TRAP #15
00024b98 31 46 02 16 |1F | MOVE.W D6,(A0+0x216)
00024b9c 60 32 |`2 | BRA 0x24bd0
00024b9e 9e fc 00 26 | & | SUBA.W #0x26,A7
00024ba2 20 4f | O | MOVEA.L A7,A0
00024ba4 43 fa c6 96 |C | LEA.L 0x2123c,A1
00024ba8 70 24 |p$ | MOVEQ.L #0x24,D0
00024baa 10 d9 | | MOVE.B (A1)+,(A0)+
00024bac 51 c8 ff fc |Q | DBF D0,0x24baa
00024bb0 59 4f |YO | SUBQ.L #0x4,A7
00024bb2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024bb6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00024bba 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7)
00024bbe 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024bc4 50 4f |PO | ADDQ.L #0x8,A7
00024bc6 4e b9 00 02 56 96 |N V | JSR 0x25696
00024bcc de fc 00 2a | * | ADDA.W #0x2a,A7
00024bd0 4c df 07 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1+A2
00024bd4 4e 5e |N^ | UNLK A6
00024bd6 4e 75 |Nu | RTS
00024bd8 ; --------------------------------------------------------------------------------------
00024bd8 ; OMSI PASCAL Function
00024bd8 ; --------------------------------------------------------------------------------------
00024bd8 4e 56 ff b2 |NV | LINK.W A6,#0xffb2
00024bdc bf d5 | | CMPA.L (A5),A7
00024bde 62 06 |b | BHI 0x24be6
00024be0 44 fc 00 02 |D | MOVE.W #0x2,CCR
00024be4 4e 76 |Nv | TRAPV
00024be6 de fc 00 4a | J | ADDA.W #0x4a,A7
00024bea 48 e7 f9 e0 |H | MOVEM.L A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00024bee 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00024bf4 72 12 |r | MOVEQ.L #0x12,D1
00024bf6 74 01 |t | MOVEQ.L #0x01,D2
00024bf8 76 11 |v | MOVEQ.L #0x11,D3
00024bfa 78 16 |x | MOVEQ.L #0x16,D4
00024bfc 9e c1 | | SUBA.W D1,A7
00024bfe 20 4f | O | MOVEA.L A7,A0
00024c00 43 fa c6 60 |C ` | LEA.L 0x21262,A1
00024c04 70 10 |p | MOVEQ.L #0x10,D0
00024c06 10 d9 | | MOVE.B (A1)+,(A0)+
00024c08 51 c8 ff fc |Q | DBF D0,0x24c06
00024c0c 51 4f |QO | SUBQ.L #0x8,A7
00024c0e 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00024c12 3f 02 |? | MOVE.W D2,-(A7)
00024c14 3f 03 |? | MOVE.W D3,-(A7)
00024c16 4e 92 |N | JSR (A2)
00024c18 50 4f |PO | ADDQ.L #0x8,A7
00024c1a 48 78 00 00 |Hx | PEA.L 0x0
00024c1e 48 78 7d 00 |Hx} | PEA.L 0x7d00
00024c22 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00024c28 de fc 00 0c | | ADDA.W #0xc,A7
00024c2c 2e 1f |. | MOVE.L (A7)+,D7
00024c2e de c1 | | ADDA.W D1,A7
00024c30 0c 87 00 00 03 f8 | | CMPI.L #0x000003f8,D7
00024c36 66 2a |f* | BNE 0x24c62
00024c38 41 fa c6 4c |A L | LEA.L 0x21286,A0
00024c3c 70 08 |p | MOVEQ.L #0x08,D0
00024c3e 3f 20 |? | MOVE.W -(A0),-(A7)
00024c40 51 c8 ff fc |Q | DBF D0,0x24c3e
00024c44 59 4f |YO | SUBQ.L #0x4,A7
00024c46 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024c4a 3f 02 |? | MOVE.W D2,-(A7)
00024c4c 3f 01 |? | MOVE.W D1,-(A7)
00024c4e 4e 92 |N | JSR (A2)
00024c50 50 4f |PO | ADDQ.L #0x8,A7
00024c52 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00024c58 de c4 | | ADDA.W D4,A7
00024c5a 13 c2 00 02 9b b6 | | MOVE.B D2,0x29bb6
00024c60 60 26 |`& | BRA 0x24c88
00024c62 9e c1 | | SUBA.W D1,A7
00024c64 20 4f | O | MOVEA.L A7,A0
00024c66 43 fa c6 1e |C | LEA.L 0x21286,A1
00024c6a 70 10 |p | MOVEQ.L #0x10,D0
00024c6c 10 d9 | | MOVE.B (A1)+,(A0)+
00024c6e 51 c8 ff fc |Q | DBF D0,0x24c6c
00024c72 59 4f |YO | SUBQ.L #0x4,A7
00024c74 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024c78 3f 02 |? | MOVE.W D2,-(A7)
00024c7a 3f 03 |? | MOVE.W D3,-(A7)
00024c7c 4e 92 |N | JSR (A2)
00024c7e 50 4f |PO | ADDQ.L #0x8,A7
00024c80 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00024c86 de c4 | | ADDA.W D4,A7
00024c88 4c df 07 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2
00024c8c 4e 5e |N^ | UNLK A6
00024c8e 4e 75 |Nu | RTS
00024c90 ; --------------------------------------------------------------------------------------
00024c90 ; OMSI PASCAL Function
00024c90 ; <LVAR 0x00c 1(w)>
00024c90 ; <LVAR 0x008 4(r)>
00024c90 ; <LVAR -0x006 @ 4(rw)>
00024c90 ; --------------------------------------------------------------------------------------
00024c90 4e 56 ff b6 |NV | LINK.W A6,#0xffb6
00024c94 bf d5 | | CMPA.L (A5),A7
00024c96 62 06 |b | BHI 0x24c9e
00024c98 44 fc 00 02 |D | MOVE.W #0x2,CCR
00024c9c 4e 76 |Nv | TRAPV
00024c9e de fc 00 42 | B | ADDA.W #0x42,A7
00024ca2 48 e7 f3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7)
00024ca6 45 ee ff fa |E | LEA.L (A6-0x6),A2
00024caa 72 0a |r | MOVEQ.L #0x0a,D1
00024cac 74 1b |t | MOVEQ.L #0x1b,D2
00024cae 76 01 |v | MOVEQ.L #0x01,D3
00024cb0 1d 42 00 0c | B | MOVE.B D2,(A6+0xc)
00024cb4 7e 00 |~ | MOVEQ.L #0x00,D7
00024cb6 10 07 | | MOVE.B D7,D0
00024cb8 48 80 |H | EXTB.W D0
00024cba c1 c1 | | MULS.W D1,D0
00024cbc 41 fa c8 09 |A | LEA.L 0x214c7,A0
00024cc0 9e c1 | | SUBA.W D1,A7
00024cc2 22 4f |"O | MOVEA.L A7,A1
00024cc4 41 f0 00 00 |A | LEA.L (A0+D0.W),A0
00024cc8 70 09 |p | MOVEQ.L #0x09,D0
00024cca 12 d8 | | MOVE.B (A0)+,(A1)+
00024ccc 51 c8 ff fc |Q | DBF D0,0x24cca
00024cd0 59 4f |YO | SUBQ.L #0x4,A7
00024cd2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00024cd6 3f 03 |? | MOVE.W D3,-(A7)
00024cd8 3f 01 |? | MOVE.W D1,-(A7)
00024cda 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00024ce0 50 4f |PO | ADDQ.L #0x8,A7
00024ce2 24 9f |$ | MOVE.L (A7)+,(A2)
00024ce4 58 4f |XO | ADDQ.L #0x4,A7
00024ce6 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
00024cea 2f 12 |/ | MOVE.L (A2),-(A7)
00024cec 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
00024cf2 50 4f |PO | ADDQ.L #0x8,A7
00024cf4 10 1f | | MOVE.B (A7)+,D0
00024cf6 48 80 |H | EXTB.W D0
00024cf8 41 83 |A | CHK.W D3,D0
00024cfa 1c 00 | | MOVE.B D0,D6
00024cfc 48 52 |HR | PEA.L (A2)
00024cfe 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00024d04 58 4f |XO | ADDQ.L #0x4,A7
00024d06 4a 06 |J | TST.B D6
00024d08 67 06 |g | BEQ 0x24d10
00024d0a 1d 47 00 0c | G | MOVE.B D7,(A6+0xc)
00024d0e 60 06 |` | BRA 0x24d16
00024d10 52 07 |R | ADDQ.B #0x1,D7
00024d12 be 02 | | CMP.B D2,D7
00024d14 6f a0 |o | BLE 0x24cb6
00024d16 4c df 07 cf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2
00024d1a 4e 5e |N^ | UNLK A6
00024d1c 4e 75 |Nu | RTS
00024d1e ; --------------------------------------------------------------------------------------
00024d1e ; OMSI PASCAL Function
00024d1e ; <LVAR 0x010 4(r)>
00024d1e ; <LVAR 0x00c 4(r)>
00024d1e ; <LVAR 0x008 4(r)>
00024d1e ; --------------------------------------------------------------------------------------
00024d1e 4e 56 ff da |NV | LINK.W A6,#0xffda
00024d22 bf d5 | | CMPA.L (A5),A7
00024d24 62 06 |b | BHI 0x24d2c
00024d26 44 fc 00 02 |D | MOVE.W #0x2,CCR
00024d2a 4e 76 |Nv | TRAPV
00024d2c de fc 00 26 | & | ADDA.W #0x26,A7
00024d30 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7)
00024d34 43 ee 00 0c |C | LEA.L (A6+0xc),A1
00024d38 45 f9 00 02 9b b6 |E | LEA.L 0x29bb6,A2
00024d3e 47 fa c8 a0 |G | LEA.L 0x215e0,A3
00024d42 72 01 |r | MOVEQ.L #0x01,D1
00024d44 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00024d48 10 81 | | MOVE.B D1,(A0)
00024d4a 55 4f |UO | SUBQ.L #0x2,A7
00024d4c 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7)
00024d50 4e ba ff 3e |N > | JSR 0x24c90
00024d54 58 4f |XO | ADDQ.L #0x4,A7
00024d56 10 1f | | MOVE.B (A7)+,D0
00024d58 48 80 |H | EXTB.W D0
00024d5a 0c 40 00 1a | @ | CMPI.W #0x001a,D0
00024d5e 62 00 02 2a |b * | BHI 0x24f8a
00024d62 d0 40 | @ | ADD.W D0,D0
00024d64 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
00024d6c 00 36 | 6 | .CONST 0x36 ; [0x0] -> 0x24da2
00024d6e 00 42 | B | .CONST 0x42 ; [0x1] -> 0x24dae
00024d70 00 4a | J | .CONST 0x4a ; [0x2] -> 0x24db6
00024d72 00 52 | R | .CONST 0x52 ; [0x3] -> 0x24dbe
00024d74 00 5a | Z | .CONST 0x5a ; [0x4] -> 0x24dc6
00024d76 00 62 | b | .CONST 0x62 ; [0x5] -> 0x24dce
00024d78 00 6a | j | .CONST 0x6a ; [0x6] -> 0x24dd6
00024d7a 00 72 | r | .CONST 0x72 ; [0x7] -> 0x24dde
00024d7c 00 7a | z | .CONST 0x7a ; [0x8] -> 0x24de6
00024d7e 00 86 | | .CONST 0x86 ; [0x9] -> 0x24df2
00024d80 00 9e | | .CONST 0x9e ; [0xa] -> 0x24e0a
00024d82 00 a6 | | .CONST 0xa6 ; [0xb] -> 0x24e12
00024d84 00 ae | | .CONST 0xae ; [0xc] -> 0x24e1a
00024d86 00 c0 | | .CONST 0xc0 ; [0xd] -> 0x24e2c
00024d88 00 b6 | | .CONST 0xb6 ; [0xe] -> 0x24e22
00024d8a 00 ca | | .CONST 0xca ; [0xf] -> 0x24e36
00024d8c 00 e2 | | .CONST 0xe2 ; [0x10] -> 0x24e4e
00024d8e 00 ec | | .CONST 0xec ; [0x11] -> 0x24e58
00024d90 00 f6 | | .CONST 0xf6 ; [0x12] -> 0x24e62
00024d92 01 0a | | .CONST 0x10a ; [0x13] -> 0x24e76
00024d94 01 1e | | .CONST 0x11e ; [0x14] -> 0x24e8a
00024d96 01 3e | > | .CONST 0x13e ; [0x15] -> 0x24eaa
00024d98 01 62 | b | .CONST 0x162 ; [0x16] -> 0x24ece
00024d9a 01 86 | | .CONST 0x186 ; [0x17] -> 0x24ef2
00024d9c 01 ac | | .CONST 0x1ac ; [0x18] -> 0x24f18
00024d9e 01 d2 | | .CONST 0x1d2 ; [0x19] -> 0x24f3e
00024da0 01 f8 | | .CONST 0x1f8 ; [0x1a] -> 0x24f64
00024da2 switch@0x24d64[0x0]:
00024da2 2f 11 |/ | MOVE.L (A1),-(A7)
00024da4 4e ba e1 c4 |N | JSR 0x22f6a
00024da8 58 4f |XO | ADDQ.L #0x4,A7
00024daa 60 00 01 e0 |` | BRA 0x24f8c
00024dae switch@0x24d64[0x1]:
00024dae 2f 11 |/ | MOVE.L (A1),-(A7)
00024db0 4e ba e2 1c |N | JSR 0x22fce
00024db4 60 f2 |` | BRA 0x24da8
00024db6 switch@0x24d64[0x2]:
00024db6 4e ba e2 a2 |N | JSR 0x2305a
00024dba 60 00 01 d0 |` | BRA 0x24f8c
00024dbe switch@0x24d64[0x3]:
00024dbe 4e ba e4 ce |N | JSR 0x2328e
00024dc2 60 00 01 c8 |` | BRA 0x24f8c
00024dc6 switch@0x24d64[0x4]:
00024dc6 2f 11 |/ | MOVE.L (A1),-(A7)
00024dc8 4e ba e5 14 |N | JSR 0x232de
00024dcc 60 da |` | BRA 0x24da8
00024dce switch@0x24d64[0x5]:
00024dce 2f 11 |/ | MOVE.L (A1),-(A7)
00024dd0 4e ba e6 70 |N p | JSR 0x23442
00024dd4 60 d2 |` | BRA 0x24da8
00024dd6 switch@0x24d64[0x6]:
00024dd6 2f 11 |/ | MOVE.L (A1),-(A7)
00024dd8 4e ba e7 30 |N 0 | JSR 0x2350a
00024ddc 60 ca |` | BRA 0x24da8
00024dde switch@0x24d64[0x7]:
00024dde 4e ba fa 04 |N | JSR 0x247e4
00024de2 60 00 01 a8 |` | BRA 0x24f8c
00024de6 switch@0x24d64[0x8]:
00024de6 42 27 |B' | CLR.B -(A7)
00024de8 4e ba cd a8 |N | JSR 0x21b92
00024dec 54 4f |TO | ADDQ.L #0x2,A7
00024dee 60 00 01 9c |` | BRA 0x24f8c
00024df2 switch@0x24d64[0x9]:
00024df2 55 4f |UO | SUBQ.L #0x2,A7
00024df4 4e 93 |N | JSR (A3)
00024df6 4a 1f |J | TST.B (A7)+
00024df8 67 04 |g | BEQ 0x24dfe
00024dfa 42 10 |B | CLR.B (A0)
00024dfc 60 08 |` | BRA 0x24e06
00024dfe 1f 01 | | MOVE.B D1,-(A7)
00024e00 4e ba cd 90 |N | JSR 0x21b92
00024e04 54 4f |TO | ADDQ.L #0x2,A7
00024e06 60 00 01 84 |` | BRA 0x24f8c
00024e0a switch@0x24d64[0xa]:
00024e0a 2f 11 |/ | MOVE.L (A1),-(A7)
00024e0c 4e ba f7 08 |N | JSR 0x24516
00024e10 60 96 |` | BRA 0x24da8
00024e12 switch@0x24d64[0xb]:
00024e12 2f 11 |/ | MOVE.L (A1),-(A7)
00024e14 4e ba f8 92 |N | JSR 0x246a8
00024e18 60 8e |` | BRA 0x24da8
00024e1a switch@0x24d64[0xc]:
00024e1a 4e ba eb 9a |N | JSR 0x239b6
00024e1e 60 00 01 6c |` l | BRA 0x24f8c
00024e22 switch@0x24d64[0xe]:
00024e22 42 b9 00 02 9b aa |B | CLR.L 0x29baa
00024e28 60 00 01 62 |` b | BRA 0x24f8c
00024e2c switch@0x24d64[0xd]:
00024e2c 2f 11 |/ | MOVE.L (A1),-(A7)
00024e2e 4e ba fc e4 |N | JSR 0x24b14
00024e32 60 00 ff 74 |` t | BRA 0x24da8
00024e36 switch@0x24d64[0xf]:
00024e36 55 4f |UO | SUBQ.L #0x2,A7
00024e38 4e 93 |N | JSR (A3)
00024e3a 4a 1f |J | TST.B (A7)+
00024e3c 67 04 |g | BEQ 0x24e42
00024e3e 42 10 |B | CLR.B (A0)
00024e40 60 08 |` | BRA 0x24e4a
00024e42 2f 11 |/ | MOVE.L (A1),-(A7)
00024e44 4e ba f4 3c |N < | JSR 0x24282
00024e48 58 4f |XO | ADDQ.L #0x4,A7
00024e4a 60 00 01 40 |` @ | BRA 0x24f8c
00024e4e switch@0x24d64[0x10]:
00024e4e 2f 11 |/ | MOVE.L (A1),-(A7)
00024e50 4e ba e9 42 |N B | JSR 0x23794
00024e54 60 00 ff 52 |` R | BRA 0x24da8
00024e58 switch@0x24d64[0x11]:
00024e58 2f 11 |/ | MOVE.L (A1),-(A7)
00024e5a 4e ba fa c0 |N | JSR 0x2491c
00024e5e 60 00 ff 48 |` H | BRA 0x24da8
00024e62 switch@0x24d64[0x12]:
00024e62 4a 12 |J | TST.B (A2)
00024e64 67 0a |g | BEQ 0x24e70
00024e66 2f 11 |/ | MOVE.L (A1),-(A7)
00024e68 4e ba ed 3c |N < | JSR 0x23ba6
00024e6c 58 4f |XO | ADDQ.L #0x4,A7
00024e6e 60 02 |` | BRA 0x24e72
00024e70 42 10 |B | CLR.B (A0)
00024e72 60 00 01 18 |` | BRA 0x24f8c
00024e76 switch@0x24d64[0x13]:
00024e76 4a 12 |J | TST.B (A2)
00024e78 67 0a |g | BEQ 0x24e84
00024e7a 2f 11 |/ | MOVE.L (A1),-(A7)
00024e7c 4e ba f2 1e |N | JSR 0x2409c
00024e80 58 4f |XO | ADDQ.L #0x4,A7
00024e82 60 02 |` | BRA 0x24e86
00024e84 42 10 |B | CLR.B (A0)
00024e86 60 00 01 04 |` | BRA 0x24f8c
00024e8a switch@0x24d64[0x14]:
00024e8a 55 4f |UO | SUBQ.L #0x2,A7
00024e8c 4e 93 |N | JSR (A3)
00024e8e 4a 1f |J | TST.B (A7)+
00024e90 66 0c |f | BNE 0x24e9e
00024e92 55 4f |UO | SUBQ.L #0x2,A7
00024e94 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool
00024e9a 4a 1f |J | TST.B (A7)+
00024e9c 67 04 |g | BEQ 0x24ea2
00024e9e 42 10 |B | CLR.B (A0)
00024ea0 60 04 |` | BRA 0x24ea6
00024ea2 4e ba fd 34 |N 4 | JSR 0x24bd8
00024ea6 60 00 00 e4 |` | BRA 0x24f8c
00024eaa switch@0x24d64[0x15]:
00024eaa 55 4f |UO | SUBQ.L #0x2,A7
00024eac 4e 93 |N | JSR (A3)
00024eae 4a 1f |J | TST.B (A7)+
00024eb0 66 0c |f | BNE 0x24ebe
00024eb2 55 4f |UO | SUBQ.L #0x2,A7
00024eb4 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool
00024eba 4a 1f |J | TST.B (A7)+
00024ebc 67 04 |g | BEQ 0x24ec2
00024ebe 42 10 |B | CLR.B (A0)
00024ec0 60 08 |` | BRA 0x24eca
00024ec2 2f 11 |/ | MOVE.L (A1),-(A7)
00024ec4 4e ba e7 48 |N H | JSR 0x2360e
00024ec8 58 4f |XO | ADDQ.L #0x4,A7
00024eca 60 00 00 c0 |` | BRA 0x24f8c
00024ece switch@0x24d64[0x16]:
00024ece 55 4f |UO | SUBQ.L #0x2,A7
00024ed0 4e 93 |N | JSR (A3)
00024ed2 4a 1f |J | TST.B (A7)+
00024ed4 66 0c |f | BNE 0x24ee2
00024ed6 55 4f |UO | SUBQ.L #0x2,A7
00024ed8 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool
00024ede 4a 1f |J | TST.B (A7)+
00024ee0 67 04 |g | BEQ 0x24ee6
00024ee2 42 10 |B | CLR.B (A0)
00024ee4 60 08 |` | BRA 0x24eee
00024ee6 2f 11 |/ | MOVE.L (A1),-(A7)
00024ee8 4e ba eb dc |N | JSR 0x23ac6
00024eec 58 4f |XO | ADDQ.L #0x4,A7
00024eee 60 00 00 9c |` | BRA 0x24f8c
00024ef2 switch@0x24d64[0x17]:
00024ef2 55 4f |UO | SUBQ.L #0x2,A7
00024ef4 4e 93 |N | JSR (A3)
00024ef6 4a 1f |J | TST.B (A7)+
00024ef8 66 10 |f | BNE 0x24f0a
00024efa 55 4f |UO | SUBQ.L #0x2,A7
00024efc 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool
00024f02 4a 1f |J | TST.B (A7)+
00024f04 66 04 |f | BNE 0x24f0a
00024f06 4a 12 |J | TST.B (A2)
00024f08 66 04 |f | BNE 0x24f0e
00024f0a 42 10 |B | CLR.B (A0)
00024f0c 60 08 |` | BRA 0x24f16
00024f0e 2f 11 |/ | MOVE.L (A1),-(A7)
00024f10 4e ba e9 38 |N 8 | JSR 0x2384a
00024f14 58 4f |XO | ADDQ.L #0x4,A7
00024f16 60 74 |`t | BRA 0x24f8c
00024f18 switch@0x24d64[0x18]:
00024f18 55 4f |UO | SUBQ.L #0x2,A7
00024f1a 4e 93 |N | JSR (A3)
00024f1c 4a 1f |J | TST.B (A7)+
00024f1e 66 10 |f | BNE 0x24f30
00024f20 55 4f |UO | SUBQ.L #0x2,A7
00024f22 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool
00024f28 4a 1f |J | TST.B (A7)+
00024f2a 66 04 |f | BNE 0x24f30
00024f2c 4a 12 |J | TST.B (A2)
00024f2e 66 04 |f | BNE 0x24f34
00024f30 42 10 |B | CLR.B (A0)
00024f32 60 08 |` | BRA 0x24f3c
00024f34 2f 11 |/ | MOVE.L (A1),-(A7)
00024f36 4e ba e9 c8 |N | JSR 0x23900
00024f3a 58 4f |XO | ADDQ.L #0x4,A7
00024f3c 60 4e |`N | BRA 0x24f8c
00024f3e switch@0x24d64[0x19]:
00024f3e 55 4f |UO | SUBQ.L #0x2,A7
00024f40 4e 93 |N | JSR (A3)
00024f42 4a 1f |J | TST.B (A7)+
00024f44 66 10 |f | BNE 0x24f56
00024f46 55 4f |UO | SUBQ.L #0x2,A7
00024f48 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool
00024f4e 4a 1f |J | TST.B (A7)+
00024f50 66 04 |f | BNE 0x24f56
00024f52 4a 12 |J | TST.B (A2)
00024f54 66 04 |f | BNE 0x24f5a
00024f56 42 10 |B | CLR.B (A0)
00024f58 60 08 |` | BRA 0x24f62
00024f5a 2f 11 |/ | MOVE.L (A1),-(A7)
00024f5c 4e ba f4 6e |N n | JSR 0x243cc
00024f60 58 4f |XO | ADDQ.L #0x4,A7
00024f62 60 28 |`( | BRA 0x24f8c
00024f64 switch@0x24d64[0x1a]:
00024f64 55 4f |UO | SUBQ.L #0x2,A7
00024f66 4e 93 |N | JSR (A3)
00024f68 4a 1f |J | TST.B (A7)+
00024f6a 66 10 |f | BNE 0x24f7c
00024f6c 55 4f |UO | SUBQ.L #0x2,A7
00024f6e 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool
00024f74 4a 1f |J | TST.B (A7)+
00024f76 66 04 |f | BNE 0x24f7c
00024f78 4a 12 |J | TST.B (A2)
00024f7a 66 04 |f | BNE 0x24f80
00024f7c 42 10 |B | CLR.B (A0)
00024f7e 60 08 |` | BRA 0x24f88
00024f80 2f 11 |/ | MOVE.L (A1),-(A7)
00024f82 4e ba ed d4 |N | JSR 0x23d58
00024f86 58 4f |XO | ADDQ.L #0x4,A7
00024f88 60 02 |` | BRA 0x24f8c
00024f8a 42 10 |B | CLR.B (A0)
00024f8c 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3
00024f90 4e 5e |N^ | UNLK A6
00024f92 4e 75 |Nu | RTS
00024f94 ; --------------------------------------------------------------------------------------
00024f94 ; OMSI PASCAL Function
00024f94 ; <LVAR 0x008 4(r)>
00024f94 ; --------------------------------------------------------------------------------------
00024f94 4e 56 ff ec |NV | LINK.W A6,#0xffec
00024f98 bf d5 | | CMPA.L (A5),A7
00024f9a 62 06 |b | BHI 0x24fa2
00024f9c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00024fa0 4e 76 |Nv | TRAPV
00024fa2 de fc 00 14 | | ADDA.W #0x14,A7
00024fa6 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
00024faa 4e b9 00 01 03 98 |N | JSR FSCALL_10398
00024fb0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00024fb4 43 fa c3 fa |C | LEA.L 0x213b0,A1
00024fb8 70 09 |p | MOVEQ.L #0x09,D0
00024fba 10 d9 | | MOVE.B (A1)+,(A0)+
00024fbc 51 c8 ff fc |Q | DBF D0,0x24fba
00024fc0 48 78 00 00 |Hx | PEA.L 0x0
00024fc4 4e ba dc 62 |N b | JSR 0x22c28
00024fc8 58 4f |XO | ADDQ.L #0x4,A7
00024fca 42 39 00 02 9b b6 |B9 | CLR.B 0x29bb6
00024fd0 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
00024fd4 4e 5e |N^ | UNLK A6
00024fd6 4e 75 |Nu | RTS
00024fd8 ; --------------------------------------------------------------------------------------
00024fd8 ; COMMAND TABLE
00024fd8 ; --------------------------------------------------------------------------------------
00024fd8 COMMAND_TABLE_24fd8:
00024fd8 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()'
00024fe2 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE '
00024fec 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE '
00024ff6 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP '
00025000 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP '
0002500a 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT '
00025014 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT '
0002501e 53 45 54 20 20 20 20 20 |SET | .TXT 'SET '
00025028 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR '
00025032 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS '
0002503c 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ '
00025046 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE '
00025050 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE '
0002505a 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT '
00025064 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT '
0002506e 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE '
00025078 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ '
00025082 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE '
0002508c 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT '
00025096 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT '
000250a0 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE '
000250aa 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE '
000250b4 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD '
000250be 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB '
000250c8 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL '
000250d2 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV '
000250dc 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD '
000250e6 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR '
000250f0 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND '
000250fa 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR '
00025104 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT '
0002510e 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT '
00025118 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT '
00025122 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT '
0002512c 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT '
00025136 52 45 41 44 20 20 20 20 |READ | .TXT 'READ '
00025140 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL '
0002514a 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH '
00025154 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL '
0002515e 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT '
00025168 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES'
00025172 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT '
0002517c 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL '
00025186 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII '
00025190 57 72 6f 6e 67 20 6e 75 |Wrong nu| .TXT 'Wrong number of arguments for :_'
000251b0 45 51 2c 4e 45 2c 23 45 |EQ,NE,#E| .XXX[0x40]
000251b8 51 2c 23 4e 45 2c 23 4c |Q,#NE,#L|
000251c0 54 2c 23 47 54 2c 23 4c |T,#GT,#L|
000251c8 45 2c 23 47 45 2c 45 4c |E,#GE,EL|
000251d0 53 45 5d 45 4e 44 5d 43 |SE]END]C|
000251d8 41 53 45 2c 23 43 41 53 |ASE,#CAS|
000251e0 45 2c 57 48 45 4e 2c 45 |E,WHEN,E|
000251e8 4e 44 43 41 53 45 5d 20 |NDCASE] |
000251f0 45 76 61 6c 75 61 74 69 |Evaluati| .TXT 'Evaluation buffer overflow. '
0002520c 55 6e 62 61 6c 61 6e 63 |Unbalanc| .TXT 'Unbalanced [ELSE] or [END]! '
00025228 5b 57 48 45 4e 20 5d 20 |[WHEN ] | .TXT '[WHEN ] '
00025232 4e 6f 20 63 61 73 65 20 |No case | .TXT 'No case alternative found!'
0002524c 4e 6f 20 5b 45 4e 44 43 |No [ENDC| .TXT 'No [ENDCASE] found! '
00025260 4e 6f 20 68 65 6c 70 20 |No help | .TXT 'No help available for_'
00025276 2e 48 4c 50 |.HLP | .TXT '.HLP'
0002527a 54 6f 6f 20 66 65 77 20 |Too few | .TXT 'Too few arguments for SET '
00025294 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown variable :_ '
000252a8 20 69 73 20 6e 6f 74 20 | is not | .TXT ' is not a program.'
000252ba 43 4c |CL | .TXT 'CL'
000252bc 49 20 |I | .XXX[0x2]
000252be 2e 4d 32 30 30 20 |.M200 | .TXT '.M200 '
000252c4 53 54 |ST | .TXT 'ST'
000252c6 41 54 |AT | .TXT 'AT'
000252c8 55 53 |US | .TXT 'US'
000252ca 52 45 |RE | .TXT 'RE'
000252cc 53 55 |SU | .TXT 'SU'
000252ce 4c 54 |LT | .TXT 'LT'
000252d0 4f 66 66 73 65 74 2f 4c |Offset/L| .TXT 'Offset/Length error in [INSERT] '
000252f0 52 45 50 45 41 54 69 6e |REPEATin| .TXT 'REPEATing, type ^G to exit. '
0002530c 41 53 43 49 49 20 61 72 |ASCII ar| .TXT 'ASCII argument out of range.'
00025328 4e 6f 74 20 61 20 63 6f |Not a co| .TXT 'Not a command or macro :_ '
00025342 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal marker argument '
0002535a 53 77 69 74 63 68 20 65 |Switch e| .TXT 'Switch exclusion is unimplemented.'
0002537c 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.'
00025394 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.'
000253ac 5b 49 4e 49 54 5d 5b 20 |[INIT][ | .TXT '[INIT][ '
000253b4 5d 5b 42 59 45 5d 3b 20 |][BYE]; | .TXT '][BYE]; '
000253bc 5b 49 4e 49 54 5d 3b 20 |[INIT]; | .TXT '[INIT]; '
000253c4 3e 5f |>_ | .TXT '>_'
000253c6 5b 20 |[ | .TXT '[ '
000253c8 5d 3b |]; | .TXT '];'
000253ca ; --------------------------------------------------------------------------------------
000253ca ; COMMAND TABLE
000253ca ; --------------------------------------------------------------------------------------
000253ca COMMAND_TABLE_253ca:
000253ca 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()'
000253d4 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE '
000253de 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE '
000253e8 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP '
000253f2 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP '
000253fc 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT '
00025406 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT '
00025410 53 45 54 20 20 20 20 20 |SET | .TXT 'SET '
0002541a 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR '
00025424 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS '
0002542e 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ '
00025438 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE '
00025442 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE '
0002544c 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT '
00025456 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT '
00025460 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE '
0002546a 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ '
00025474 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE '
0002547e 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT '
00025488 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT '
00025492 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE '
0002549c 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE '
000254a6 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD '
000254b0 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB '
000254ba 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL '
000254c4 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV '
000254ce 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD '
000254d8 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR '
000254e2 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND '
000254ec 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR '
000254f6 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT '
00025500 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT '
0002550a 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT '
00025514 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT '
0002551e 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT '
00025528 52 45 41 44 20 20 20 20 |READ | .TXT 'READ '
00025532 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL '
0002553c 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH '
00025546 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL '
00025550 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT '
0002555a 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES'
00025564 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT '
0002556e 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL '
00025578 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII '
00025582 a5 34 45 73 34 22 | 4Es4" | .XXX[0x6]
00025588 46 75 33 33 33 33 33 32 |Fu333332| .XXX[0x98]
00025590 33 66 37 84 44 57 a6 55 |3f7 DW U|
00025598 0f 00 f0 ff 10 22 14 31 | " 1|
000255a0 22 22 22 22 22 22 22 22 |""""""""|
000255a8 14 3f 1f 03 10 0f 00 00 | ? |
000255b0 00 00 ff ff ff ff 00 01 | |
000255b8 01 00 01 01 00 01 02 00 | |
000255c0 00 01 02 00 01 02 00 01 | |
000255c8 14 06 01 14 08 14 0f 02 | |
000255d0 03 14 14 08 14 0f 14 14 | |
000255d8 14 14 14 14 14 04 14 05 | |
000255e0 14 14 14 14 14 14 14 14 | |
000255e8 14 14 14 04 14 14 14 14 | |
000255f0 14 14 04 14 07 14 14 14 | |
000255f8 14 04 14 14 14 14 14 14 | |
00025600 0c 14 14 09 14 14 14 0d | |
00025608 14 14 14 0b 0a 14 0e 14 | |
00025610 14 14 08 14 14 0c 14 14 | |
00025618 09 14 14 14 14 14 14 14 | |
00025620 14 14 14 14 14 14 14 14 | | .BLANK 14[0x10]
00025630 14 10 14 14 11 14 14 14 | | .XXX[0x20]
00025638 14 14 14 14 14 14 14 13 | |
00025640 14 14 14 14 14 12 14 14 | |
00025648 14 11 14 14 14 14 14 14 | |
00025650 14 14 14 14 | | .XXX[0x4]
00025654 ; --------------------------------------------------------------------------------------
00025654 ; OMSI PASCAL Function
00025654 ; <LVAR 0x008 4(r)>
00025654 ; <LVAR -0x004 @ 4(w)>
00025654 ; --------------------------------------------------------------------------------------
00025654 4e 56 ff e8 |NV | LINK.W A6,#0xffe8
00025658 bf d5 | | CMPA.L (A5),A7
0002565a 62 06 |b | BHI 0x25662
0002565c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00025660 4e 76 |Nv | TRAPV
00025662 de fc 00 10 | | ADDA.W #0x10,A7
00025666 48 e7 00 08 |H | MOVEM.L A4,-(A7)
0002566a 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4
0002566e b8 fc 00 01 | | CMPA.W #0x1,A4
00025672 67 1a |g | BEQ 0x2568e
00025674 2d 4c ff fc |-L | MOVE.L A4,(A6-0x4)
00025678 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4
0002567c 48 6e ff fc |Hn | PEA.L (A6-0x4)
00025680 48 78 00 0c |Hx | PEA.L 0xc
00025684 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long)
0002568a 50 4f |PO | ADDQ.L #0x8,A7
0002568c 60 e0 |` | BRA 0x2566e
0002568e 4c df 10 00 |L | MOVEM.L (A7)+,A4
00025692 4e 5e |N^ | UNLK A6
00025694 4e 75 |Nu | RTS
00025696 ; --------------------------------------------------------------------------------------
00025696 ; OMSI PASCAL Function
00025696 ; <LVAR 0x008 4(r)>
00025696 ; --------------------------------------------------------------------------------------
00025696 4e 56 ff f0 |NV | LINK.W A6,#0xfff0
0002569a bf d5 | | CMPA.L (A5),A7
0002569c 62 06 |b | BHI 0x256a4
0002569e 44 fc 00 02 |D | MOVE.W #0x2,CCR
000256a2 4e 76 |Nv | TRAPV
000256a4 de fc 00 10 | | ADDA.W #0x10,A7
000256a8 48 e7 00 80 |H | MOVEM.L A0,-(A7)
000256ac 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
000256b0 b0 fc 00 01 | | CMPA.W #0x1,A0
000256b4 67 0a |g | BEQ 0x256c0
000256b6 2f 08 |/ | MOVE.L A0,-(A7)
000256b8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000256be 58 4f |XO | ADDQ.L #0x4,A7
000256c0 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7
000256c4 3c 7c 00 00 |<| | MOVEA.W #0x0,A6
000256c8 4e f9 00 02 8f 72 |N r | JMP 0x28f72
000256ce 4c df |L | .XXX[0x2]
000256d0 01 00 4e 5e 4e 75 4e 56 | N^NuNV| .XXX[0x20]
000256d8 ff fc bf d5 62 06 44 fc | b D |
000256e0 00 02 4e 76 de fc 00 04 | Nv |
000256e8 2d 79 00 02 bb c0 00 08 |-y |
000256f0 4e 5e 4e 75 |N^Nu | .XXX[0x4]
000256f4 ; --------------------------------------------------------------------------------------
000256f4 ; OMSI PASCAL Function
000256f4 ; <LVAR 0x008 1(rw)>
000256f4 ; --------------------------------------------------------------------------------------
000256f4 4e 56 ff f0 |NV | LINK.W A6,#0xfff0
000256f8 bf d5 | | CMPA.L (A5),A7
000256fa 62 06 |b | BHI 0x25702
000256fc 44 fc 00 02 |D | MOVE.W #0x2,CCR
00025700 4e 76 |Nv | TRAPV
00025702 de fc 00 10 | | ADDA.W #0x10,A7
00025706 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
0002570a 20 39 00 02 bb c0 | 9 | MOVE.L 0x2bbc0,D0
00025710 b0 b9 00 02 bb c4 | | CMP.L 0x2bbc4,D0
00025716 6f 06 |o | BLE 0x2571e
00025718 42 2e 00 08 |B. | CLR.B (A6+0x8)
0002571c 60 0c |` | BRA 0x2572a
0002571e 41 f9 00 02 9b b8 |A | LEA.L 0x29bb8,A0
00025724 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8)
0002572a 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
0002572e 4e 5e |N^ | UNLK A6
00025730 4e 75 |Nu | RTS
00025732 ; --------------------------------------------------------------------------------------
00025732 ; OMSI PASCAL Function
00025732 ; <LVAR 0x008 1(rw)>
00025732 ; --------------------------------------------------------------------------------------
00025732 4e 56 ff ec |NV | LINK.W A6,#0xffec
00025736 bf d5 | | CMPA.L (A5),A7
00025738 62 06 |b | BHI 0x25740
0002573a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002573e 4e 76 |Nv | TRAPV
00025740 de fc 00 14 | | ADDA.W #0x14,A7
00025744 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
00025748 43 f9 00 02 bb c0 |C | LEA.L 0x2bbc0,A1
0002574e 20 11 | | MOVE.L (A1),D0
00025750 b0 b9 00 02 bb c4 | | CMP.L 0x2bbc4,D0
00025756 6f 06 |o | BLE 0x2575e
00025758 42 2e 00 08 |B. | CLR.B (A6+0x8)
0002575c 60 0c |` | BRA 0x2576a
0002575e 41 f9 00 02 9b b8 |A | LEA.L 0x29bb8,A0
00025764 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8)
0002576a 52 80 |R | ADDQ.L #0x1,D0
0002576c 22 80 |" | MOVE.L D0,(A1)
0002576e 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
00025772 4e 5e |N^ | UNLK A6
00025774 4e 75 |Nu | RTS
00025776 ; --------------------------------------------------------------------------------------
00025776 ; OMSI PASCAL Function
00025776 ; <LVAR 0x00c 4(r)>
00025776 ; <LVAR 0x008 4(r)>
00025776 ; --------------------------------------------------------------------------------------
00025776 4e 56 ff c0 |NV | LINK.W A6,#0xffc0
0002577a bf d5 | | CMPA.L (A5),A7
0002577c 62 06 |b | BHI 0x25784
0002577e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00025782 4e 76 |Nv | TRAPV
00025784 de fc 00 38 | 8 | ADDA.W #0x38,A7
00025788 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002578c 45 ee 00 08 |E | LEA.L (A6+0x8),A2
00025790 47 f9 00 02 bb c0 |G | LEA.L 0x2bbc0,A3
00025796 72 5b |r[ | MOVEQ.L #0x5b,D1
00025798 74 02 |t | MOVEQ.L #0x02,D2
0002579a 76 2c |v, | MOVEQ.L #0x2c,D3
0002579c 78 3b |x; | MOVEQ.L #0x3b,D4
0002579e 55 4f |UO | SUBQ.L #0x2,A7
000257a0 4e ba ff 52 |N R | JSR 0x256f4
000257a4 10 1f | | MOVE.B (A7)+,D0
000257a6 b0 01 | | CMP.B D1,D0
000257a8 66 0a |f | BNE 0x257b4
000257aa 4e b9 00 02 8a 7c |N | | JSR 0x28a7c
000257b0 60 00 00 92 |` | BRA 0x25844
000257b4 2c 13 |, | MOVE.L (A3),D6
000257b6 55 4f |UO | SUBQ.L #0x2,A7
000257b8 4e ba ff 78 |N x | JSR 0x25732
000257bc 1a 1f | | MOVE.B (A7)+,D5
000257be 66 18 |f | BNE 0x257d8
000257c0 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
000257c4 43 fa fd e8 |C | LEA.L 0x255ae,A1
000257c8 70 07 |p | MOVEQ.L #0x07,D0
000257ca 10 d9 | | MOVE.B (A1)+,(A0)+
000257cc 51 c8 ff fc |Q | DBF D0,0x257ca
000257d0 20 52 | R | MOVEA.L (A2),A0
000257d2 10 82 | | MOVE.B D2,(A0)
000257d4 60 72 |`r | BRA 0x25848
000257d6 60 5c |`\ | .XXX[0x2]
000257d8 ba 03 | | CMP.B D3,D5
000257da 66 08 |f | BNE 0x257e4
000257dc 20 52 | R | MOVEA.L (A2),A0
000257de 10 bc 00 03 | | MOVE.B #0x03,(A0)
000257e2 60 50 |`P | BRA 0x25834
000257e4 ba 04 | | CMP.B D4,D5
000257e6 66 08 |f | BNE 0x257f0
000257e8 20 52 | R | MOVEA.L (A2),A0
000257ea 10 bc 00 01 | | MOVE.B #0x01,(A0)
000257ee 60 44 |`D | BRA 0x25834
000257f0 0c 05 00 5d | ] | CMPI.B #0x5d,D5
000257f4 66 06 |f | BNE 0x257fc
000257f6 20 52 | R | MOVEA.L (A2),A0
000257f8 10 82 | | MOVE.B D2,(A0)
000257fa 60 38 |`8 | BRA 0x25834
000257fc 20 52 | R | MOVEA.L (A2),A0
000257fe 42 10 |B | CLR.B (A0)
00025800 55 4f |UO | SUBQ.L #0x2,A7
00025802 4e ba fe f0 |N | JSR 0x256f4
00025806 1e 1f | | MOVE.B (A7)+,D7
00025808 be 01 | | CMP.B D1,D7
0002580a 66 08 |f | BNE 0x25814
0002580c 4e b9 00 02 8a 7c |N | | JSR 0x28a7c
00025812 60 1e |` | BRA 0x25832
00025814 be 04 | | CMP.B D4,D7
00025816 67 0e |g | BEQ 0x25826
00025818 be 03 | | CMP.B D3,D7
0002581a 67 0a |g | BEQ 0x25826
0002581c 0c 07 00 5d | ] | CMPI.B #0x5d,D7
00025820 67 04 |g | BEQ 0x25826
00025822 4a 07 |J | TST.B D7
00025824 66 04 |f | BNE 0x2582a
00025826 60 0c |` | BRA 0x25834
00025828 60 08 |` | .XXX[0x2]
0002582a 55 4f |UO | SUBQ.L #0x2,A7
0002582c 4e ba ff 04 |N | JSR 0x25732
00025830 1e 1f | | MOVE.B (A7)+,D7
00025832 60 cc |` | BRA 0x25800
00025834 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00025838 20 86 | | MOVE.L D6,(A0)
0002583a 21 53 00 04 |!S | MOVE.L (A3),(A0+0x4)
0002583e 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4)
00025842 60 04 |` | BRA 0x25848
00025844 60 00 ff 58 |` X | BRA 0x2579e
00025848 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
0002584c 4e 5e |N^ | UNLK A6
0002584e 4e 75 |Nu | RTS
00025850 ; --------------------------------------------------------------------------------------
00025850 ; OMSI PASCAL Function
00025850 ; <LVAR 0x010 4(r)>
00025850 ; <LVAR 0x00c 4(r)>
00025850 ; <LVAR 0x008 4(r)>
00025850 ; <LVAR -0x004 @ 1(rw)>
00025850 ; <LVAR -0x008 4(w)>
00025850 ; <LVAR -0x00c @ 4(w)>
00025850 ; --------------------------------------------------------------------------------------
00025850 4e 56 ff ca |NV | LINK.W A6,#0xffca
00025854 bf d5 | | CMPA.L (A5),A7
00025856 62 06 |b | BHI 0x2585e
00025858 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002585c 4e 76 |Nv | TRAPV
0002585e de fc 00 2a | * | ADDA.W #0x2a,A7
00025862 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7)
00025866 45 ee ff fc |E | LEA.L (A6-0x4),A2
0002586a 47 ee ff f4 |G | LEA.L (A6-0xc),A3
0002586e 72 03 |r | MOVEQ.L #0x03,D1
00025870 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00025874 10 10 | | MOVE.B (A0),D0
00025876 0c 00 00 01 | | CMPI.B #0x01,D0
0002587a 67 06 |g | BEQ 0x25882
0002587c 0c 00 00 02 | | CMPI.B #0x02,D0
00025880 66 0e |f | BNE 0x25890
00025882 26 ba fd 2a |& * | MOVE.L 0x255ae,(A3)
00025886 2d 7a fd 2a ff f8 |-z * | MOVE.L 0x255b2,(A6-0x8)
0002588c 14 80 | | MOVE.B D0,(A2)
0002588e 60 3c |`< | BRA 0x258cc
00025890 48 53 |HS | PEA.L (A3)
00025892 48 52 |HR | PEA.L (A2)
00025894 4e ba fe e0 |N | JSR 0x25776
00025898 50 4f |PO | ADDQ.L #0x8,A7
0002589a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
0002589e 4a 12 |J | TST.B (A2)
000258a0 67 1c |g | BEQ 0x258be
000258a2 10 10 | | MOVE.B (A0),D0
000258a4 b0 01 | | CMP.B D1,D0
000258a6 66 16 |f | BNE 0x258be
000258a8 10 12 | | MOVE.B (A2),D0
000258aa 48 80 |H | EXTB.W D0
000258ac 41 81 |A | CHK.W D1,D0
000258ae 10 80 | | MOVE.B D0,(A0)
000258b0 26 ba fc fc |& | MOVE.L 0x255ae,(A3)
000258b4 2d 7a fc fc ff f8 |-z | MOVE.L 0x255b2,(A6-0x8)
000258ba 42 12 |B | CLR.B (A2)
000258bc 60 08 |` | BRA 0x258c6
000258be 10 12 | | MOVE.B (A2),D0
000258c0 48 80 |H | EXTB.W D0
000258c2 41 81 |A | CHK.W D1,D0
000258c4 10 80 | | MOVE.B D0,(A0)
000258c6 10 12 | | MOVE.B (A2),D0
000258c8 b0 01 | | CMP.B D1,D0
000258ca 67 c4 |g | BEQ 0x25890
000258cc 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0
000258d0 22 4b |"K | MOVEA.L A3,A1
000258d2 70 07 |p | MOVEQ.L #0x07,D0
000258d4 10 d9 | | MOVE.B (A1)+,(A0)+
000258d6 51 c8 ff fc |Q | DBF D0,0x258d4
000258da 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
000258de 10 12 | | MOVE.B (A2),D0
000258e0 48 80 |H | EXTB.W D0
000258e2 41 81 |A | CHK.W D1,D0
000258e4 10 80 | | MOVE.B D0,(A0)
000258e6 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3
000258ea 4e 5e |N^ | UNLK A6
000258ec 4e 75 |Nu | RTS
000258ee ; --------------------------------------------------------------------------------------
000258ee ; OMSI PASCAL Function
000258ee ; <LVAR 0x008 4(rw)>
000258ee ; <LVAR -0x004 1(rw)>
000258ee ; <LVAR -0x010 2(rw)>
000258ee ; --------------------------------------------------------------------------------------
000258ee 4e 56 ff c0 |NV | LINK.W A6,#0xffc0
000258f2 bf d5 | | CMPA.L (A5),A7
000258f4 62 06 |b | BHI 0x258fc
000258f6 44 fc 00 02 |D | MOVE.W #0x2,CCR
000258fa 4e 76 |Nv | TRAPV
000258fc de fc 00 30 | 0 | ADDA.W #0x30,A7
00025900 48 e7 c7 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
00025904 43 ee ff f0 |C | LEA.L (A6-0x10),A1
00025908 45 ee ff fc |E | LEA.L (A6-0x4),A2
0002590c 47 ee 00 08 |G | LEA.L (A6+0x8),A3
00025910 72 20 |r | MOVEQ.L #0x20,D1
00025912 7c 01 || | MOVEQ.L #0x01,D6
00025914 42 51 |BQ | CLR.W (A1)
00025916 7a 01 |z | MOVEQ.L #0x01,D5
00025918 59 4f |YO | SUBQ.L #0x4,A7
0002591a 2f 13 |/ | MOVE.L (A3),-(A7)
0002591c 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String
00025922 58 4f |XO | ADDQ.L #0x4,A7
00025924 26 9f |& | MOVE.L (A7)+,(A3)
00025926 20 53 | S | MOVEA.L (A3),A0
00025928 2f 08 |/ | MOVE.L A0,-(A7)
0002592a 20 57 | W | MOVEA.L (A7),A0
0002592c 30 10 |0 | MOVE.W (A0),D0
0002592e 48 c0 |H | EXTW.L D0
00025930 bc 80 | | CMP.L D0,D6
00025932 6e 00 00 b0 |n | BGT 0x259e4
00025936 42 80 |B | CLR.L D0
00025938 10 30 68 01 | 0h | MOVE.B (A0+D6.L+#0x1),D0
0002593c 02 40 00 7f | @ | ANDI.W #0x007f,D0
00025940 14 80 | | MOVE.B D0,(A2)
00025942 0c 00 00 09 | | CMPI.B #0x09,D0
00025946 66 02 |f | BNE 0x2594a
00025948 14 81 | | MOVE.B D1,(A2)
0002594a 42 80 |B | CLR.L D0
0002594c 10 12 | | MOVE.B (A2),D0
0002594e 90 41 | A | SUB.W D1,D0
00025950 0c 40 00 0c | @ | CMPI.W #0x000c,D0
00025954 62 30 |b0 | BHI switch@0x25958[0x2]
00025956 d0 40 | @ | ADD.W D0,D0
00025958 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
00025960 00 1e | | .CONST 0x1e ; [0x0] -> 0x2597e
00025962 00 1a | | .CONST 0x1a ; [0x1] -> 0x2597a
00025964 00 26 | & | .CONST 0x26 ; [0x2] -> 0x25986
00025966 00 26 | & | .CONST 0x26 ; [0x3] -> 0x25986
00025968 00 26 | & | .CONST 0x26 ; [0x4] -> 0x25986
0002596a 00 26 | & | .CONST 0x26 ; [0x5] -> 0x25986
0002596c 00 26 | & | .CONST 0x26 ; [0x6] -> 0x25986
0002596e 00 26 | & | .CONST 0x26 ; [0x7] -> 0x25986
00025970 00 26 | & | .CONST 0x26 ; [0x8] -> 0x25986
00025972 00 26 | & | .CONST 0x26 ; [0x9] -> 0x25986
00025974 00 26 | & | .CONST 0x26 ; [0xa] -> 0x25986
00025976 00 26 | & | .CONST 0x26 ; [0xb] -> 0x25986
00025978 00 22 | " | .CONST 0x22 ; [0xc] -> 0x25982
0002597a switch@0x25958[0x1]:
0002597a 60 68 |`h | BRA 0x259e4
0002597c 60 0a |` | .XXX[0x2]
0002597e switch@0x25958[0x0]:
0002597e 7e 00 |~ | MOVEQ.L #0x00,D7
00025980 60 06 |` | BRA 0x25988
00025982 switch@0x25958[0xc]:
00025982 7e 01 |~ | MOVEQ.L #0x01,D7
00025984 60 02 |` | BRA 0x25988
00025986 switch@0x25958[0x2]:
00025986 switch@0x25958[0x3]:
00025986 switch@0x25958[0x4]:
00025986 switch@0x25958[0x5]:
00025986 switch@0x25958[0x6]:
00025986 switch@0x25958[0x7]:
00025986 switch@0x25958[0x8]:
00025986 switch@0x25958[0x9]:
00025986 switch@0x25958[0xa]:
00025986 switch@0x25958[0xb]:
00025986 7e 02 |~ | MOVEQ.L #0x02,D7
00025988 70 03 |p | MOVEQ.L #0x03,D0
0002598a c1 d1 | | MULS.W (A1),D0
0002598c 41 fa fc 28 |A ( | LEA.L 0x255b6,A0
00025990 41 f0 00 00 |A | LEA.L (A0+D0.W),A0
00025994 42 80 |B | CLR.L D0
00025996 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0
0002599a 0c 40 00 02 | @ | CMPI.W #0x0002,D0
0002599e 63 02 |c | BLS 0x259a2
000259a0 4e 4e |NN | TRAP #14
000259a2 d0 40 | @ | ADD.W D0,D0
000259a4 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
000259ac 00 06 | | .CONST 0x6 ; [0x0] -> 0x259b2
000259ae 00 08 | | .CONST 0x8 ; [0x1] -> 0x259b4
000259b0 00 12 | | .CONST 0x12 ; [0x2] -> 0x259be
000259b2 switch@0x259a4[0x0]:
000259b2 60 16 |` | BRA 0x259ca
000259b4 switch@0x259a4[0x1]:
000259b4 20 57 | W | MOVEA.L (A7),A0
000259b6 11 92 58 01 | X | MOVE.B (A2),(A0+D5.L+#0x1)
000259ba 52 85 |R | ADDQ.L #0x1,D5
000259bc 60 0c |` | BRA 0x259ca
000259be switch@0x259a4[0x2]:
000259be 20 57 | W | MOVEA.L (A7),A0
000259c0 11 bc 00 2c 58 01 | ,X | MOVE.B #0x2c,(A0+D5.L+#0x1)
000259c6 52 85 |R | ADDQ.L #0x1,D5
000259c8 53 86 |S | SUBQ.L #0x1,D6
000259ca 70 03 |p | MOVEQ.L #0x03,D0
000259cc c1 d1 | | MULS.W (A1),D0
000259ce 41 fa fb ef |A | LEA.L 0x255bf,A0
000259d2 41 f0 00 00 |A | LEA.L (A0+D0.W),A0
000259d6 42 80 |B | CLR.L D0
000259d8 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0
000259dc 32 80 |2 | MOVE.W D0,(A1)
000259de 52 86 |R | ADDQ.L #0x1,D6
000259e0 60 00 ff 48 |` H | BRA 0x2592a
000259e4 20 57 | W | MOVEA.L (A7),A0
000259e6 20 05 | | MOVE.L D5,D0
000259e8 53 80 |S | SUBQ.L #0x1,D0
000259ea 30 80 |0 | MOVE.W D0,(A0)
000259ec 58 4f |XO | ADDQ.L #0x4,A7
000259ee 4c df 0f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3
000259f2 4e 5e |N^ | UNLK A6
000259f4 4e 75 |Nu | RTS
000259f6 ; --------------------------------------------------------------------------------------
000259f6 ; OMSI PASCAL Function
000259f6 ; <LVAR 0x00c 4(r)>
000259f6 ; <LVAR 0x008 4(r)>
000259f6 ; <LVAR -0x002 @ 1(r)>
000259f6 ; <LVAR -0x00a @>
000259f6 ; <LVAR -0x00e @ 4(r)>
000259f6 ; <LVAR -0x014 @ 1(r)>
000259f6 ; --------------------------------------------------------------------------------------
000259f6 4e 56 ff bc |NV | LINK.W A6,#0xffbc
000259fa bf d5 | | CMPA.L (A5),A7
000259fc 62 06 |b | BHI 0x25a04
000259fe 44 fc 00 02 |D | MOVE.W #0x2,CCR
00025a02 4e 76 |Nv | TRAPV
00025a04 de fc 00 30 | 0 | ADDA.W #0x30,A7
00025a08 48 e7 c1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D1+D0,-(A7)
00025a0c 47 ee ff f2 |G | LEA.L (A6-0xe),A3
00025a10 72 01 |r | MOVEQ.L #0x01,D1
00025a12 55 4f |UO | SUBQ.L #0x2,A7
00025a14 4e ba fc de |N | JSR 0x256f4
00025a18 10 1f | | MOVE.B (A7)+,D0
00025a1a 0c 00 00 5b | [ | CMPI.B #0x5b,D0
00025a1e 66 08 |f | BNE 0x25a28
00025a20 55 4f |UO | SUBQ.L #0x2,A7
00025a22 4e ba fd 0e |N | JSR 0x25732
00025a26 1e 1f | | MOVE.B (A7)+,D7
00025a28 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00025a2c 20 81 | | MOVE.L D1,(A0)
00025a2e 42 2e ff ec |B. | CLR.B (A6-0x14)
00025a32 48 6e ff f6 |Hn | PEA.L (A6-0xa)
00025a36 48 6e ff fe |Hn | PEA.L (A6-0x2)
00025a3a 48 6e ff ec |Hn | PEA.L (A6-0x14)
00025a3e 4e ba fe 10 |N | JSR 0x25850
00025a42 de fc 00 0c | | ADDA.W #0xc,A7
00025a46 4a 2e ff fe |J. | TST.B (A6-0x2)
00025a4a 66 36 |f6 | BNE 0x25a82
00025a4c 48 53 |HS | PEA.L (A3)
00025a4e 48 78 00 0c |Hx | PEA.L 0xc
00025a52 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer
00025a58 50 4f |PO | ADDQ.L #0x8,A7
00025a5a 20 53 | S | MOVEA.L (A3),A0
00025a5c 22 48 |"H | MOVEA.L A0,A1
00025a5e 45 ee ff f6 |E | LEA.L (A6-0xa),A2
00025a62 70 07 |p | MOVEQ.L #0x07,D0
00025a64 12 da | | MOVE.B (A2)+,(A1)+
00025a66 51 c8 ff fc |Q | DBF D0,0x25a64
00025a6a 21 41 00 08 |!A | MOVE.L D1,(A0+0x8)
00025a6e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00025a72 22 50 |"P | MOVEA.L (A0),A1
00025a74 b2 c1 | | CMPA.W D1,A1
00025a76 66 04 |f | BNE 0x25a7c
00025a78 20 93 | | MOVE.L (A3),(A0)
00025a7a 60 04 |` | BRA 0x25a80
00025a7c 29 53 00 08 |)S | MOVE.L (A3),(A4+0x8)
00025a80 28 53 |(S | MOVEA.L (A3),A4
00025a82 4a 2e ff fe |J. | TST.B (A6-0x2)
00025a86 67 aa |g | BEQ 0x25a32
00025a88 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00025a8c 42 10 |B | CLR.B (A0)
00025a8e 10 2e ff fe | . | MOVE.B (A6-0x2),D0
00025a92 0c 00 00 02 | | CMPI.B #0x02,D0
00025a96 66 02 |f | BNE 0x25a9a
00025a98 52 10 |R | ADDQ.B #0x1,(A0)
00025a9a 4c df 1f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3+A4
00025a9e 4e 5e |N^ | UNLK A6
00025aa0 4e 75 |Nu | RTS
00025aa2 ; --------------------------------------------------------------------------------------
00025aa2 ; OMSI PASCAL Function
00025aa2 ; <LVAR 0x00c 4(w)>
00025aa2 ; <LVAR 0x008 4(r)>
00025aa2 ; --------------------------------------------------------------------------------------
00025aa2 4e 56 ff ec |NV | LINK.W A6,#0xffec
00025aa6 bf d5 | | CMPA.L (A5),A7
00025aa8 62 06 |b | BHI 0x25ab0
00025aaa 44 fc 00 02 |D | MOVE.W #0x2,CCR
00025aae 4e 76 |Nv | TRAPV
00025ab0 de fc 00 0c | | ADDA.W #0xc,A7
00025ab4 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7)
00025ab8 7e ff |~ | MOVEQ.L #-0x01,D7
00025aba 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4
00025abe b8 fc 00 01 | | CMPA.W #0x1,A4
00025ac2 67 08 |g | BEQ 0x25acc
00025ac4 52 87 |R | ADDQ.L #0x1,D7
00025ac6 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4
00025aca 60 f2 |` | BRA 0x25abe
00025acc 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc)
00025ad0 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4
00025ad4 4e 5e |N^ | UNLK A6
00025ad6 4e 75 |Nu | RTS
00025ad8 ; --------------------------------------------------------------------------------------
00025ad8 ; OMSI PASCAL Function
00025ad8 ; <LVAR 0x00c 4(r)>
00025ad8 ; <LVAR 0x008 4(r)>
00025ad8 ; --------------------------------------------------------------------------------------
00025ad8 4e 56 ff b0 |NV | LINK.W A6,#0xffb0
00025adc bf d5 | | CMPA.L (A5),A7
00025ade 62 06 |b | BHI 0x25ae6
00025ae0 44 fc 00 02 |D | MOVE.W #0x2,CCR
00025ae4 4e 76 |Nv | TRAPV
00025ae6 de fc 00 4e | N | ADDA.W #0x4e,A7
00025aea 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7)
00025aee 72 01 |r | MOVEQ.L #0x01,D1
00025af0 59 4f |YO | SUBQ.L #0x4,A7
00025af2 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00025af6 4e ba ff aa |N | JSR 0x25aa2
00025afa 58 4f |XO | ADDQ.L #0x4,A7
00025afc 20 1f | | MOVE.L (A7)+,D0
00025afe b0 ae 00 08 | | CMP.L (A6+0x8),D0
00025b02 67 58 |gX | BEQ 0x25b5c
00025b04 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00025b08 4e ba fb 4a |N J | JSR 0x25654
00025b0c 58 4f |XO | ADDQ.L #0x4,A7
00025b0e 41 fa f6 a0 |A | LEA.L 0x251b0,A0
00025b12 70 07 |p | MOVEQ.L #0x07,D0
00025b14 2f 20 |/ | MOVE.L -(A0),-(A7)
00025b16 51 c8 ff fc |Q | DBF D0,0x25b14
00025b1a 41 ee 00 1a |A | LEA.L (A6+0x1a),A0
00025b1e 70 04 |p | MOVEQ.L #0x04,D0
00025b20 3f 20 |? | MOVE.W -(A0),-(A7)
00025b22 51 c8 ff fc |Q | DBF D0,0x25b20
00025b26 51 4f |QO | SUBQ.L #0x8,A7
00025b28 48 6f 00 12 |Ho | PEA.L (A7+0x12)
00025b2c 3f 01 |? | MOVE.W D1,-(A7)
00025b2e 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7)
00025b32 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00025b38 58 4f |XO | ADDQ.L #0x4,A7
00025b3a 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00025b3e 3f 01 |? | MOVE.W D1,-(A7)
00025b40 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7)
00025b44 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00025b4a 50 4f |PO | ADDQ.L #0x8,A7
00025b4c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00025b52 50 4f |PO | ADDQ.L #0x8,A7
00025b54 4e ba fb 40 |N @ | JSR 0x25696
00025b58 de fc 00 2e | . | ADDA.W #0x2e,A7
00025b5c 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0
00025b60 4e 5e |N^ | UNLK A6
00025b62 4e 75 |Nu | RTS
00025b64 ; --------------------------------------------------------------------------------------
00025b64 ; OMSI PASCAL Function
00025b64 ; <LVAR 0x014 1(rw)>
00025b64 ; <LVAR 0x010 4(r)>
00025b64 ; <LVAR 0x00c 4(r)>
00025b64 ; <LVAR 0x008 4(r)>
00025b64 ; --------------------------------------------------------------------------------------
00025b64 4e 56 ff dc |NV | LINK.W A6,#0xffdc ; Spelunked
00025b68 bf d5 | | CMPA.L (A5),A7
00025b6a 62 06 |b | BHI 0x25b72
00025b6c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00025b70 4e 76 |Nv | TRAPV
00025b72 de fc 00 20 | | ADDA.W #0x20,A7
00025b76 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7)
00025b7a 42 2e 00 14 |B. | CLR.B (A6+0x14)
00025b7e 20 2e 00 10 | . | MOVE.L (A6+0x10),D0
00025b82 d0 ae 00 08 | | ADD.L (A6+0x8),D0
00025b86 b0 b9 00 02 bb c4 | | CMP.L 0x2bbc4,D0
00025b8c 6e 4e |nN | BGT 0x25bdc
00025b8e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00025b92 7e 01 |~ | MOVEQ.L #0x01,D7
00025b94 be 97 | | CMP.L (A7),D7
00025b96 6e 42 |nB | BGT 0x25bda
00025b98 20 2e 00 10 | . | MOVE.L (A6+0x10),D0
00025b9c d0 87 | | ADD.L D7,D0
00025b9e 53 80 |S | SUBQ.L #0x1,D0
00025ba0 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0
00025ba6 63 02 |c | BLS 0x25baa
00025ba8 4e 4f |NO | TRAP #15
00025baa 41 f9 00 02 9b b8 |A | LEA.L 0x29bb8,A0
00025bb0 22 2e 00 0c |". | MOVE.L (A6+0xc),D1
00025bb4 d2 87 | | ADD.L D7,D1
00025bb6 53 81 |S | SUBQ.L #0x1,D1
00025bb8 53 81 |S | SUBQ.L #0x1,D1
00025bba 0c 81 00 00 00 3e | > | CMPI.L #0x0000003e,D1
00025bc0 63 02 |c | BLS 0x25bc4
00025bc2 4e 4f |NO | TRAP #15
00025bc4 43 fa f5 ea |C | LEA.L 0x251b0,A1
00025bc8 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0
00025bcc b0 31 18 00 | 1 | CMP.B (A1+D1.L),D0
00025bd0 67 04 |g | BEQ 0x25bd6
00025bd2 58 4f |XO | ADDQ.L #0x4,A7
00025bd4 60 0c |` | BRA 0x25be2
00025bd6 52 87 |R | ADDQ.L #0x1,D7
00025bd8 68 ba |h | BVC 0x25b94
00025bda 58 4f |XO | ADDQ.L #0x4,A7
00025bdc 1d 7c 00 01 00 14 | | | MOVE.B #0x01,(A6+0x14)
00025be2 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1
00025be6 4e 5e |N^ | UNLK A6
00025be8 4e 75 |Nu | RTS
00025bea ; --------------------------------------------------------------------------------------
00025bea ; OMSI PASCAL Function
00025bea ; <LVAR 0x00c 4(r)>
00025bea ; <LVAR 0x008 4(r)>
00025bea ; --------------------------------------------------------------------------------------
00025bea 4e 56 ff bc |NV | LINK.W A6,#0xffbc
00025bee bf d5 | | CMPA.L (A5),A7
00025bf0 62 06 |b | BHI 0x25bf8
00025bf2 44 fc 00 02 |D | MOVE.W #0x2,CCR
00025bf6 4e 76 |Nv | TRAPV
00025bf8 de fc 00 40 | @ | ADDA.W #0x40,A7
00025bfc 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7)
00025c00 45 f9 00 02 bb c4 |E | LEA.L 0x2bbc4,A2
00025c06 47 ee 00 08 |G | LEA.L (A6+0x8),A3
00025c0a 4a 93 |J | TST.L (A3)
00025c0c 6c 3e |l> | BGE 0x25c4c
00025c0e 20 13 | | MOVE.L (A3),D0
00025c10 44 80 |D | NEG.L D0
00025c12 d0 92 | | ADD.L (A2),D0
00025c14 0c 80 00 00 20 00 | | CMPI.L #0x00002000,D0
00025c1a 6f 30 |o0 | BLE 0x25c4c
00025c1c 9e fc 00 1c | | SUBA.W #0x1c,A7
00025c20 20 4f | O | MOVEA.L A7,A0
00025c22 43 fa f5 cc |C | LEA.L 0x251f0,A1
00025c26 70 1a |p | MOVEQ.L #0x1a,D0
00025c28 10 d9 | | MOVE.B (A1)+,(A0)+
00025c2a 51 c8 ff fc |Q | DBF D0,0x25c28
00025c2e 59 4f |YO | SUBQ.L #0x4,A7
00025c30 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00025c34 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00025c38 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
00025c3c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00025c42 50 4f |PO | ADDQ.L #0x8,A7
00025c44 4e ba fa 50 |N P | JSR 0x25696
00025c48 de fc 00 20 | | ADDA.W #0x20,A7
00025c4c 41 f9 00 02 9b c0 |A | LEA.L 0x29bc0,A0
00025c52 2f 08 |/ | MOVE.L A0,-(A7)
00025c54 2f 12 |/ | MOVE.L (A2),-(A7)
00025c56 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00025c5a 2f 13 |/ | MOVE.L (A3),-(A7)
00025c5c 4e b9 00 01 03 64 |N d | JSR MovStringTail(Base, Len, Ptr, Delta)
00025c62 de fc 00 10 | | ADDA.W #0x10,A7
00025c66 20 12 | | MOVE.L (A2),D0
00025c68 90 93 | | SUB.L (A3),D0
00025c6a 24 80 |$ | MOVE.L D0,(A2)
00025c6c 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3
00025c70 4e 5e |N^ | UNLK A6
00025c72 4e 75 |Nu | RTS
00025c74 ; --------------------------------------------------------------------------------------
00025c74 ; OMSI PASCAL Function
00025c74 ; <LVAR 0x00c 4(r)>
00025c74 ; <LVAR 0x008 4(r)>
00025c74 ; --------------------------------------------------------------------------------------
00025c74 4e 56 ff d4 |NV | LINK.W A6,#0xffd4
00025c78 bf d5 | | CMPA.L (A5),A7
00025c7a 62 06 |b | BHI 0x25c82
00025c7c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00025c80 4e 76 |Nv | TRAPV
00025c82 de fc 00 28 | ( | ADDA.W #0x28,A7
00025c86 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7)
00025c8a 45 ee 00 0c |E | LEA.L (A6+0xc),A2
00025c8e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00025c92 2f 08 |/ | MOVE.L A0,-(A7)
00025c94 22 52 |"R | MOVEA.L (A2),A1
00025c96 2f 11 |/ | MOVE.L (A1),-(A7)
00025c98 30 10 |0 | MOVE.W (A0),D0
00025c9a 48 c0 |H | EXTW.L D0
00025c9c 44 80 |D | NEG.L D0
00025c9e 2f 00 |/ | MOVE.L D0,-(A7)
00025ca0 4e ba ff 48 |N H | JSR 0x25bea
00025ca4 50 4f |PO | ADDQ.L #0x8,A7
00025ca6 30 10 |0 | MOVE.W (A0),D0
00025ca8 48 c0 |H | EXTW.L D0
00025caa 2f 00 |/ | MOVE.L D0,-(A7)
00025cac 7e 01 |~ | MOVEQ.L #0x01,D7
00025cae be 97 | | CMP.L (A7),D7
00025cb0 6e 36 |n6 | BGT 0x25ce8
00025cb2 20 52 | R | MOVEA.L (A2),A0
00025cb4 20 07 | | MOVE.L D7,D0
00025cb6 d0 90 | | ADD.L (A0),D0
00025cb8 53 80 |S | SUBQ.L #0x1,D0
00025cba 53 80 |S | SUBQ.L #0x1,D0
00025cbc 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0
00025cc2 63 02 |c | BLS 0x25cc6
00025cc4 4e 4f |NO | TRAP #15
00025cc6 41 f9 00 02 9b b8 |A | LEA.L 0x29bb8,A0
00025ccc 22 07 |" | MOVE.L D7,D1
00025cce 53 81 |S | SUBQ.L #0x1,D1
00025cd0 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1
00025cd6 63 02 |c | BLS 0x25cda
00025cd8 4e 4f |NO | TRAP #15
00025cda 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1
00025cde 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)
00025ce4 52 87 |R | ADDQ.L #0x1,D7
00025ce6 68 c6 |h | BVC 0x25cae
00025ce8 58 4f |XO | ADDQ.L #0x4,A7
00025cea 20 52 | R | MOVEA.L (A2),A0
00025cec 22 57 |"W | MOVEA.L (A7),A1
00025cee 30 11 |0 | MOVE.W (A1),D0
00025cf0 48 c0 |H | EXTW.L D0
00025cf2 d1 90 | | ADD.L D0,(A0)
00025cf4 58 4f |XO | ADDQ.L #0x4,A7
00025cf6 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2
00025cfa 4e 5e |N^ | UNLK A6
00025cfc 4e 75 |Nu | RTS
00025cfe ; --------------------------------------------------------------------------------------
00025cfe ; OMSI PASCAL Function
00025cfe ; <LVAR 0x00c 4(r)>
00025cfe ; <LVAR 0x008 4(r)>
00025cfe ; --------------------------------------------------------------------------------------
00025cfe 4e 56 ff a8 |NV | LINK.W A6,#0xffa8
00025d02 bf d5 | | CMPA.L (A5),A7
00025d04 62 06 |b | BHI 0x25d0c
00025d06 44 fc 00 02 |D | MOVE.W #0x2,CCR
00025d0a 4e 76 |Nv | TRAPV
00025d0c de fc 00 50 | P | ADDA.W #0x50,A7
00025d10 48 e7 c3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7)
00025d14 45 fa fe 4e |E N | LEA.L 0x25b64,A2
00025d18 47 f8 00 04 |G | LEA.L 0x4,A3
00025d1c 49 ee 00 08 |I | LEA.L (A6+0x8),A4
00025d20 72 0c |r | MOVEQ.L #0x0c,D1
00025d22 7e 00 |~ | MOVEQ.L #0x00,D7
00025d24 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00025d28 42 90 |B | CLR.L (A0)
00025d2a 20 54 | T | MOVEA.L (A4),A0
00025d2c 42 90 |B | CLR.L (A0)
00025d2e 2c 39 00 02 bb c0 |,9 | MOVE.L 0x2bbc0,D6
00025d34 20 06 | | MOVE.L D6,D0
00025d36 53 80 |S | SUBQ.L #0x1,D0
00025d38 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0
00025d3e 63 02 |c | BLS 0x25d42
00025d40 4e 4f |NO | TRAP #15
00025d42 41 f9 00 02 9b b8 |A | LEA.L 0x29bb8,A0
00025d48 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0
00025d4c 0c 00 00 5b | [ | CMPI.B #0x5b,D0
00025d50 66 00 00 d4 |f | BNE 0x25e26
00025d54 55 4f |UO | SUBQ.L #0x2,A7
00025d56 2f 06 |/ | MOVE.L D6,-(A7)
00025d58 48 78 00 01 |Hx | PEA.L 0x1
00025d5c 48 78 00 03 |Hx | PEA.L 0x3
00025d60 4e 92 |N | JSR (A2)
00025d62 de c1 | | ADDA.W D1,A7
00025d64 4a 1f |J | TST.B (A7)+
00025d66 66 7e |f~ | BNE 0x25de6
00025d68 55 4f |UO | SUBQ.L #0x2,A7
00025d6a 2f 06 |/ | MOVE.L D6,-(A7)
00025d6c 48 53 |HS | PEA.L (A3)
00025d6e 48 78 00 03 |Hx | PEA.L 0x3
00025d72 4e 92 |N | JSR (A2)
00025d74 de c1 | | ADDA.W D1,A7
00025d76 4a 1f |J | TST.B (A7)+
00025d78 66 6c |fl | BNE 0x25de6
00025d7a 55 4f |UO | SUBQ.L #0x2,A7
00025d7c 2f 06 |/ | MOVE.L D6,-(A7)
00025d7e 48 78 00 07 |Hx | PEA.L 0x7
00025d82 48 53 |HS | PEA.L (A3)
00025d84 4e 92 |N | JSR (A2)
00025d86 de c1 | | ADDA.W D1,A7
00025d88 4a 1f |J | TST.B (A7)+
00025d8a 66 5a |fZ | BNE 0x25de6
00025d8c 55 4f |UO | SUBQ.L #0x2,A7
00025d8e 2f 06 |/ | MOVE.L D6,-(A7)
00025d90 48 78 00 0b |Hx | PEA.L 0xb
00025d94 48 53 |HS | PEA.L (A3)
00025d96 4e 92 |N | JSR (A2)
00025d98 de c1 | | ADDA.W D1,A7
00025d9a 4a 1f |J | TST.B (A7)+
00025d9c 66 48 |fH | BNE 0x25de6
00025d9e 55 4f |UO | SUBQ.L #0x2,A7
00025da0 2f 06 |/ | MOVE.L D6,-(A7)
00025da2 48 78 00 0f |Hx | PEA.L 0xf
00025da6 48 53 |HS | PEA.L (A3)
00025da8 4e 92 |N | JSR (A2)
00025daa de c1 | | ADDA.W D1,A7
00025dac 4a 1f |J | TST.B (A7)+
00025dae 66 36 |f6 | BNE 0x25de6
00025db0 55 4f |UO | SUBQ.L #0x2,A7
00025db2 2f 06 |/ | MOVE.L D6,-(A7)
00025db4 48 78 00 13 |Hx | PEA.L 0x13
00025db8 48 53 |HS | PEA.L (A3)
00025dba 4e 92 |N | JSR (A2)
00025dbc de c1 | | ADDA.W D1,A7
00025dbe 4a 1f |J | TST.B (A7)+
00025dc0 66 24 |f$ | BNE 0x25de6
00025dc2 55 4f |UO | SUBQ.L #0x2,A7
00025dc4 2f 06 |/ | MOVE.L D6,-(A7)
00025dc6 48 78 00 17 |Hx | PEA.L 0x17
00025dca 48 53 |HS | PEA.L (A3)
00025dcc 4e 92 |N | JSR (A2)
00025dce de c1 | | ADDA.W D1,A7
00025dd0 4a 1f |J | TST.B (A7)+
00025dd2 66 12 |f | BNE 0x25de6
00025dd4 55 4f |UO | SUBQ.L #0x2,A7
00025dd6 2f 06 |/ | MOVE.L D6,-(A7)
00025dd8 48 78 00 1b |Hx | PEA.L 0x1b
00025ddc 48 53 |HS | PEA.L (A3)
00025dde 4e 92 |N | JSR (A2)
00025de0 de c1 | | ADDA.W D1,A7
00025de2 4a 1f |J | TST.B (A7)+
00025de4 67 04 |g | BEQ 0x25dea
00025de6 52 87 |R | ADDQ.L #0x1,D7
00025de8 60 3c |`< | BRA 0x25e26
00025dea 4a 87 |J | TST.L D7
00025dec 66 1c |f | BNE 0x25e0a
00025dee 55 4f |UO | SUBQ.L #0x2,A7
00025df0 2f 06 |/ | MOVE.L D6,-(A7)
00025df2 48 78 00 1f |Hx | PEA.L 0x1f
00025df6 48 78 00 05 |Hx | PEA.L 0x5
00025dfa 4e 92 |N | JSR (A2)
00025dfc de c1 | | ADDA.W D1,A7
00025dfe 4a 1f |J | TST.B (A7)+
00025e00 67 08 |g | BEQ 0x25e0a
00025e02 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00025e06 20 86 | | MOVE.L D6,(A0)
00025e08 60 1c |` | BRA 0x25e26
00025e0a 55 4f |UO | SUBQ.L #0x2,A7
00025e0c 2f 06 |/ | MOVE.L D6,-(A7)
00025e0e 48 78 00 24 |Hx $ | PEA.L 0x24
00025e12 48 53 |HS | PEA.L (A3)
00025e14 4e 92 |N | JSR (A2)
00025e16 de c1 | | ADDA.W D1,A7
00025e18 4a 1f |J | TST.B (A7)+
00025e1a 67 0a |g | BEQ 0x25e26
00025e1c 4a 87 |J | TST.L D7
00025e1e 66 04 |f | BNE 0x25e24
00025e20 20 54 | T | MOVEA.L (A4),A0
00025e22 60 e2 |` | BRA 0x25e06
00025e24 53 87 |S | SUBQ.L #0x1,D7
00025e26 52 86 |R | ADDQ.L #0x1,D6
00025e28 bc b9 00 02 bb c4 | | CMP.L 0x2bbc4,D6
00025e2e 6e 0e |n | BGT 0x25e3e
00025e30 4a 87 |J | TST.L D7
00025e32 66 00 ff 00 |f | BNE 0x25d34
00025e36 20 54 | T | MOVEA.L (A4),A0
00025e38 4a 90 |J | TST.L (A0)
00025e3a 67 00 fe f8 |g | BEQ 0x25d34
00025e3e bc b9 00 02 bb c4 | | CMP.L 0x2bbc4,D6
00025e44 6f 30 |o0 | BLE 0x25e76
00025e46 9e fc 00 1c | | SUBA.W #0x1c,A7
00025e4a 20 4f | O | MOVEA.L A7,A0
00025e4c 43 fa f3 be |C | LEA.L 0x2520c,A1
00025e50 70 1a |p | MOVEQ.L #0x1a,D0
00025e52 10 d9 | | MOVE.B (A1)+,(A0)+
00025e54 51 c8 ff fc |Q | DBF D0,0x25e52
00025e58 59 4f |YO | SUBQ.L #0x4,A7
00025e5a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00025e5e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00025e62 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
00025e66 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00025e6c 50 4f |PO | ADDQ.L #0x8,A7
00025e6e 4e ba f8 26 |N & | JSR 0x25696
00025e72 de fc 00 20 | | ADDA.W #0x20,A7
00025e76 4c df 1f c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4
00025e7a 4e 5e |N^ | UNLK A6
00025e7c 4e 75 |Nu | RTS
00025e7e ; --------------------------------------------------------------------------------------
00025e7e ; OMSI PASCAL Function
00025e7e ; <LVAR -0x004 @ 4(r)>
00025e7e ; <LVAR -0x008 @ 4(rw)>
00025e7e ; --------------------------------------------------------------------------------------
00025e7e 4e 56 ff dc |NV | LINK.W A6,#0xffdc
00025e82 bf d5 | | CMPA.L (A5),A7
00025e84 62 06 |b | BHI 0x25e8c
00025e86 44 fc 00 02 |D | MOVE.W #0x2,CCR
00025e8a 4e 76 |Nv | TRAPV
00025e8c de fc 00 1c | | ADDA.W #0x1c,A7
00025e90 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
00025e94 41 ee ff f8 |A | LEA.L (A6-0x8),A0
00025e98 43 ee ff fc |C | LEA.L (A6-0x4),A1
00025e9c 48 50 |HP | PEA.L (A0)
00025e9e 48 51 |HQ | PEA.L (A1)
00025ea0 4e ba fe 5c |N \ | JSR 0x25cfe
00025ea4 50 4f |PO | ADDQ.L #0x8,A7
00025ea6 4a 90 |J | TST.L (A0)
00025ea8 66 02 |f | BNE 0x25eac
00025eaa 20 91 | | MOVE.L (A1),(A0)
00025eac 20 11 | | MOVE.L (A1),D0
00025eae 5a 80 |Z | ADDQ.L #0x5,D0
00025eb0 2f 00 |/ | MOVE.L D0,-(A7)
00025eb2 90 90 | | SUB.L (A0),D0
00025eb4 2f 00 |/ | MOVE.L D0,-(A7)
00025eb6 4e ba fd 32 |N 2 | JSR 0x25bea
00025eba 50 4f |PO | ADDQ.L #0x8,A7
00025ebc 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
00025ec0 4e 5e |N^ | UNLK A6
00025ec2 4e 75 |Nu | RTS
00025ec4 ; --------------------------------------------------------------------------------------
00025ec4 ; OMSI PASCAL Function
00025ec4 ; <LVAR -0x004 @ 4(r)>
00025ec4 ; <LVAR -0x008 @ 4(r)>
00025ec4 ; --------------------------------------------------------------------------------------
00025ec4 4e 56 ff dc |NV | LINK.W A6,#0xffdc
00025ec8 bf d5 | | CMPA.L (A5),A7
00025eca 62 06 |b | BHI 0x25ed2
00025ecc 44 fc 00 02 |D | MOVE.W #0x2,CCR
00025ed0 4e 76 |Nv | TRAPV
00025ed2 de fc 00 1c | | ADDA.W #0x1c,A7
00025ed6 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
00025eda 41 ee ff f8 |A | LEA.L (A6-0x8),A0
00025ede 43 ee ff fc |C | LEA.L (A6-0x4),A1
00025ee2 48 50 |HP | PEA.L (A0)
00025ee4 48 51 |HQ | PEA.L (A1)
00025ee6 4e ba fe 16 |N | JSR 0x25cfe
00025eea 50 4f |PO | ADDQ.L #0x8,A7
00025eec 4a 90 |J | TST.L (A0)
00025eee 66 06 |f | BNE 0x25ef6
00025ef0 20 11 | | MOVE.L (A1),D0
00025ef2 5a 80 |Z | ADDQ.L #0x5,D0
00025ef4 60 12 |` | BRA 0x25f08
00025ef6 2f 11 |/ | MOVE.L (A1),-(A7)
00025ef8 5a 97 |Z | ADDQ.L #0x5,(A7)
00025efa 48 78 00 05 |Hx | PEA.L 0x5
00025efe 4e ba fc ea |N | JSR 0x25bea
00025f02 50 4f |PO | ADDQ.L #0x8,A7
00025f04 20 10 | | MOVE.L (A0),D0
00025f06 5c 80 |\ | ADDQ.L #0x6,D0
00025f08 2f 00 |/ | MOVE.L D0,-(A7)
00025f0a 90 b9 00 02 bb c0 | | SUB.L 0x2bbc0,D0
00025f10 2f 00 |/ | MOVE.L D0,-(A7)
00025f12 4e ba fc d6 |N | JSR 0x25bea
00025f16 50 4f |PO | ADDQ.L #0x8,A7
00025f18 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
00025f1c 4e 5e |N^ | UNLK A6
00025f1e 4e 75 |Nu | RTS
00025f20 ; --------------------------------------------------------------------------------------
00025f20 ; OMSI PASCAL Function
00025f20 ; <LVAR 0x008 4(r)>
00025f20 ; <LVAR -0x004 @>
00025f20 ; <LVAR -0x008 @ 4(r)>
00025f20 ; <LVAR -0x00c @ 4(rw)>
00025f20 ; <LVAR -0x010 4(rw)>
00025f20 ; <LVAR -0x014 4(rw)>
00025f20 ; --------------------------------------------------------------------------------------
00025f20 4e 56 ff ba |NV | LINK.W A6,#0xffba
00025f24 bf d5 | | CMPA.L (A5),A7
00025f26 62 06 |b | BHI 0x25f2e
00025f28 44 fc 00 02 |D | MOVE.W #0x2,CCR
00025f2c 4e 76 |Nv | TRAPV
00025f2e de fc 00 32 | 2 | ADDA.W #0x32,A7
00025f32 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7)
00025f36 43 f9 00 02 bb d2 |C | LEA.L 0x2bbd2,A1
00025f3c 45 f9 00 02 bb d8 |E | LEA.L 0x2bbd8,A2
00025f42 47 f9 00 02 bb c0 |G | LEA.L 0x2bbc0,A3
00025f48 49 ee ff f8 |I | LEA.L (A6-0x8),A4
00025f4c 72 01 |r | MOVEQ.L #0x01,D1
00025f4e 4a 11 |J | TST.B (A1)
00025f50 67 0a |g | BEQ 0x25f5c
00025f52 4a 92 |J | TST.L (A2)
00025f54 66 06 |f | BNE 0x25f5c
00025f56 24 ae 00 08 |$ | MOVE.L (A6+0x8),(A2)
00025f5a 53 92 |S | SUBQ.L #0x1,(A2)
00025f5c 4a 11 |J | TST.B (A1)
00025f5e 66 00 00 cc |f | BNE 0x2602c
00025f62 26 ae 00 08 |& | MOVE.L (A6+0x8),(A3)
00025f66 5c 93 |\ | ADDQ.L #0x6,(A3)
00025f68 48 54 |HT | PEA.L (A4)
00025f6a 48 6e ff fc |Hn | PEA.L (A6-0x4)
00025f6e 4e ba fa 86 |N | JSR 0x259f6
00025f72 50 4f |PO | ADDQ.L #0x8,A7
00025f74 41 fa f2 bc |A | LEA.L 0x25232,A0
00025f78 70 04 |p | MOVEQ.L #0x04,D0
00025f7a 3f 20 |? | MOVE.W -(A0),-(A7)
00025f7c 51 c8 ff fc |Q | DBF D0,0x25f7a
00025f80 2f 14 |/ | MOVE.L (A4),-(A7)
00025f82 48 78 00 00 |Hx | PEA.L 0x0
00025f86 4e ba fb 50 |N P | JSR 0x25ad8
00025f8a de fc 00 12 | | ADDA.W #0x12,A7
00025f8e 4a 39 00 02 bb dc |J9 | TST.B 0x2bbdc
00025f94 67 1a |g | BEQ 0x25fb0
00025f96 51 4f |QO | SUBQ.L #0x8,A7
00025f98 2f 14 |/ | MOVE.L (A4),-(A7)
00025f9a 48 78 00 00 |Hx | PEA.L 0x0
00025f9e 4e b9 00 02 63 f0 |N c | JSR 0x263f0
00025fa4 50 4f |PO | ADDQ.L #0x8,A7
00025fa6 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14)
00025faa 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10)
00025fae 60 14 |` | BRA 0x25fc4
00025fb0 59 4f |YO | SUBQ.L #0x4,A7
00025fb2 2f 14 |/ | MOVE.L (A4),-(A7)
00025fb4 48 78 00 00 |Hx | PEA.L 0x0
00025fb8 4e b9 00 02 63 be |N c | JSR 0x263be
00025fbe 50 4f |PO | ADDQ.L #0x8,A7
00025fc0 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc)
00025fc4 2f 14 |/ | MOVE.L (A4),-(A7)
00025fc6 4e ba f6 8c |N | JSR 0x25654
00025fca 58 4f |XO | ADDQ.L #0x4,A7
00025fcc 23 d3 00 02 bb d4 |# | MOVE.L (A3),0x2bbd4
00025fd2 4a 39 00 02 bb dc |J9 | TST.B 0x2bbdc
00025fd8 67 2a |g* | BEQ 0x26004
00025fda 55 4f |UO | SUBQ.L #0x2,A7
00025fdc 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
00025fe0 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7)
00025fe4 2f 39 00 02 bb e6 |/9 | MOVE.L 0x2bbe6,-(A7)
00025fea 2f 39 00 02 bb e2 |/9 | MOVE.L 0x2bbe2,-(A7)
00025ff0 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool
00025ff6 de fc 00 10 | | ADDA.W #0x10,A7
00025ffa 10 1f | | MOVE.B (A7)+,D0
00025ffc 48 80 |H | EXTB.W D0
00025ffe 41 81 |A | CHK.W D1,D0
00026000 12 80 | | MOVE.B D0,(A1)
00026002 60 28 |`( | BRA 0x2602c
00026004 55 4f |UO | SUBQ.L #0x2,A7
00026006 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
0002600a 2f 39 00 02 bb de |/9 | MOVE.L 0x2bbde,-(A7)
00026010 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
00026016 50 4f |PO | ADDQ.L #0x8,A7
00026018 10 1f | | MOVE.B (A7)+,D0
0002601a 48 80 |H | EXTB.W D0
0002601c 41 81 |A | CHK.W D1,D0
0002601e 12 80 | | MOVE.B D0,(A1)
00026020 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00026024 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
0002602a 58 4f |XO | ADDQ.L #0x4,A7
0002602c 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4
00026030 4e 5e |N^ | UNLK A6
00026032 4e 75 |Nu | RTS
00026034 ; --------------------------------------------------------------------------------------
00026034 ; OMSI PASCAL Function
00026034 ; <LVAR 0x010 4(r)>
00026034 ; <LVAR 0x00c 4(r)>
00026034 ; <LVAR 0x008 4(r)>
00026034 ; --------------------------------------------------------------------------------------
00026034 4e 56 ff 9e |NV | LINK.W A6,#0xff9e
00026038 bf d5 | | CMPA.L (A5),A7
0002603a 62 06 |b | BHI 0x26042
0002603c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00026040 4e 76 |Nv | TRAPV
00026042 de fc 00 56 | V | ADDA.W #0x56,A7
00026046 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
0002604a 45 f9 00 02 bb d8 |E | LEA.L 0x2bbd8,A2
00026050 47 fa fb 12 |G | LEA.L 0x25b64,A3
00026054 49 f9 00 02 bb d2 |I | LEA.L 0x2bbd2,A4
0002605a 72 0c |r | MOVEQ.L #0x0c,D1
0002605c 74 01 |t | MOVEQ.L #0x01,D2
0002605e 42 14 |B | CLR.B (A4)
00026060 42 b9 00 02 bb d4 |B | CLR.L 0x2bbd4
00026066 42 92 |B | CLR.L (A2)
00026068 7e 00 |~ | MOVEQ.L #0x00,D7
0002606a 7c 00 || | MOVEQ.L #0x00,D6
0002606c 2a 39 00 02 bb c0 |*9 | MOVE.L 0x2bbc0,D5
00026072 4a 86 |J | TST.L D6
00026074 66 00 00 a0 |f | BNE 0x26116
00026078 ba b9 00 02 bb c4 | | CMP.L 0x2bbc4,D5
0002607e 6e 00 00 96 |n | BGT 0x26116
00026082 20 05 | | MOVE.L D5,D0
00026084 53 80 |S | SUBQ.L #0x1,D0
00026086 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0
0002608c 63 02 |c | BLS 0x26090
0002608e 4e 4f |NO | TRAP #15
00026090 41 f9 00 02 9b b8 |A | LEA.L 0x29bb8,A0
00026096 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0
0002609a 0c 00 00 5b | [ | CMPI.B #0x5b,D0
0002609e 66 6c |fl | BNE 0x2610c
000260a0 55 4f |UO | SUBQ.L #0x2,A7
000260a2 2f 05 |/ | MOVE.L D5,-(A7)
000260a4 48 78 00 28 |Hx ( | PEA.L 0x28
000260a8 48 78 00 05 |Hx | PEA.L 0x5
000260ac 4e 93 |N | JSR (A3)
000260ae de c1 | | ADDA.W D1,A7
000260b0 4a 1f |J | TST.B (A7)+
000260b2 66 14 |f | BNE 0x260c8
000260b4 55 4f |UO | SUBQ.L #0x2,A7
000260b6 2f 05 |/ | MOVE.L D5,-(A7)
000260b8 48 78 00 2d |Hx - | PEA.L 0x2d
000260bc 48 78 00 06 |Hx | PEA.L 0x6
000260c0 4e 93 |N | JSR (A3)
000260c2 de c1 | | ADDA.W D1,A7
000260c4 4a 1f |J | TST.B (A7)+
000260c6 67 04 |g | BEQ 0x260cc
000260c8 52 87 |R | ADDQ.L #0x1,D7
000260ca 60 40 |`@ | BRA 0x2610c
000260cc 4a 87 |J | TST.L D7
000260ce 66 1e |f | BNE 0x260ee
000260d0 55 4f |UO | SUBQ.L #0x2,A7
000260d2 2f 05 |/ | MOVE.L D5,-(A7)
000260d4 48 78 00 33 |Hx 3 | PEA.L 0x33
000260d8 48 78 00 05 |Hx | PEA.L 0x5
000260dc 4e 93 |N | JSR (A3)
000260de de c1 | | ADDA.W D1,A7
000260e0 4a 1f |J | TST.B (A7)+
000260e2 67 0a |g | BEQ 0x260ee
000260e4 2f 05 |/ | MOVE.L D5,-(A7)
000260e6 4e ba fe 38 |N 8 | JSR 0x25f20
000260ea 58 4f |XO | ADDQ.L #0x4,A7
000260ec 60 1e |` | BRA 0x2610c
000260ee 55 4f |UO | SUBQ.L #0x2,A7
000260f0 2f 05 |/ | MOVE.L D5,-(A7)
000260f2 48 78 00 38 |Hx 8 | PEA.L 0x38
000260f6 48 78 00 08 |Hx | PEA.L 0x8
000260fa 4e 93 |N | JSR (A3)
000260fc de c1 | | ADDA.W D1,A7
000260fe 4a 1f |J | TST.B (A7)+
00026100 67 0a |g | BEQ 0x2610c
00026102 4a 87 |J | TST.L D7
00026104 66 04 |f | BNE 0x2610a
00026106 2c 05 |, | MOVE.L D5,D6
00026108 60 02 |` | BRA 0x2610c
0002610a 53 87 |S | SUBQ.L #0x1,D7
0002610c 4a 86 |J | TST.L D6
0002610e 66 02 |f | BNE 0x26112
00026110 52 85 |R | ADDQ.L #0x1,D5
00026112 60 00 ff 5e |` ^ | BRA 0x26072
00026116 4a 39 00 02 bb dc |J9 | TST.B 0x2bbdc
0002611c 66 0e |f | BNE 0x2612c
0002611e 48 79 00 02 bb de |Hy | PEA.L 0x2bbde
00026124 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
0002612a 58 4f |XO | ADDQ.L #0x4,A7
0002612c 4a 14 |J | TST.B (A4)
0002612e 66 28 |f( | BNE 0x26158
00026130 41 fa f1 1a |A | LEA.L 0x2524c,A0
00026134 70 0c |p | MOVEQ.L #0x0c,D0
00026136 3f 20 |? | MOVE.W -(A0),-(A7)
00026138 51 c8 ff fc |Q | DBF D0,0x26136
0002613c 59 4f |YO | SUBQ.L #0x4,A7
0002613e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00026142 3f 02 |? | MOVE.W D2,-(A7)
00026144 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7)
00026148 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002614e 50 4f |PO | ADDQ.L #0x8,A7
00026150 4e ba f5 44 |N D | JSR 0x25696
00026154 de fc 00 1e | | ADDA.W #0x1e,A7
00026158 4a 86 |J | TST.L D6
0002615a 66 2e |f. | BNE 0x2618a
0002615c 9e fc 00 14 | | SUBA.W #0x14,A7
00026160 20 4f | O | MOVEA.L A7,A0
00026162 43 fa f0 e8 |C | LEA.L 0x2524c,A1
00026166 70 12 |p | MOVEQ.L #0x12,D0
00026168 10 d9 | | MOVE.B (A1)+,(A0)+
0002616a 51 c8 ff fc |Q | DBF D0,0x26168
0002616e 59 4f |YO | SUBQ.L #0x4,A7
00026170 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00026174 3f 02 |? | MOVE.W D2,-(A7)
00026176 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
0002617a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00026180 50 4f |PO | ADDQ.L #0x8,A7
00026182 4e ba f5 12 |N | JSR 0x25696
00026186 de fc 00 18 | | ADDA.W #0x18,A7
0002618a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
0002618e 20 86 | | MOVE.L D6,(A0)
00026190 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0
00026194 20 b9 00 02 bb d4 | | MOVE.L 0x2bbd4,(A0)
0002619a 4a 92 |J | TST.L (A2)
0002619c 66 0a |f | BNE 0x261a8
0002619e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
000261a2 20 86 | | MOVE.L D6,(A0)
000261a4 53 90 |S | SUBQ.L #0x1,(A0)
000261a6 60 06 |` | BRA 0x261ae
000261a8 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
000261ac 20 92 | | MOVE.L (A2),(A0)
000261ae 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
000261b2 4e 5e |N^ | UNLK A6
000261b4 4e 75 |Nu | RTS
000261b6 ; --------------------------------------------------------------------------------------
000261b6 ; OMSI PASCAL Function
000261b6 ; <LVAR 0x008 4(r)>
000261b6 ; <LVAR -0x008 @ 4(r)>
000261b6 ; <LVAR -0x00c @ 4(r)>
000261b6 ; <LVAR -0x010 @ 4(r)>
000261b6 ; --------------------------------------------------------------------------------------
000261b6 4e 56 ff c8 |NV | LINK.W A6,#0xffc8
000261ba bf d5 | | CMPA.L (A5),A7
000261bc 62 06 |b | BHI 0x261c4
000261be 44 fc 00 02 |D | MOVE.W #0x2,CCR
000261c2 4e 76 |Nv | TRAPV
000261c4 de fc 00 24 | $ | ADDA.W #0x24,A7
000261c8 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7)
000261cc 41 f9 00 02 bb c0 |A | LEA.L 0x2bbc0,A0
000261d2 43 ee ff f0 |C | LEA.L (A6-0x10),A1
000261d6 2c 10 |, | MOVE.L (A0),D6
000261d8 42 39 00 02 bb dc |B9 | CLR.B 0x2bbdc
000261de 23 ee 00 08 00 02 bb de |# | MOVE.L (A6+0x8),0x2bbde
000261e6 2e 10 |. | MOVE.L (A0),D7
000261e8 48 51 |HQ | PEA.L (A1)
000261ea 48 6e ff f4 |Hn | PEA.L (A6-0xc)
000261ee 48 6e ff f8 |Hn | PEA.L (A6-0x8)
000261f2 4e ba fe 40 |N @ | JSR 0x26034
000261f6 de fc 00 0c | | ADDA.W #0xc,A7
000261fa 20 86 | | MOVE.L D6,(A0)
000261fc 20 2e ff f8 | . | MOVE.L (A6-0x8),D0
00026200 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0
00026206 2f 00 |/ | MOVE.L D0,-(A7)
00026208 90 ae ff f4 | | SUB.L (A6-0xc),D0
0002620c 53 80 |S | SUBQ.L #0x1,D0
0002620e 2f 00 |/ | MOVE.L D0,-(A7)
00026210 4e ba f9 d8 |N | JSR 0x25bea
00026214 58 4f |XO | ADDQ.L #0x4,A7
00026216 2e 91 |. | MOVE.L (A1),(A7)
00026218 2f 11 |/ | MOVE.L (A1),-(A7)
0002621a 9f 97 | | SUB.L D7,(A7)
0002621c 4e ba f9 cc |N | JSR 0x25bea
00026220 50 4f |PO | ADDQ.L #0x8,A7
00026222 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1
00026226 4e 5e |N^ | UNLK A6
00026228 4e 75 |Nu | RTS
0002622a ; --------------------------------------------------------------------------------------
0002622a ; OMSI PASCAL Function
0002622a ; <LVAR 0x00c 4(r)>
0002622a ; <LVAR 0x008 4(r)>
0002622a ; <LVAR -0x008 @ 4(r)>
0002622a ; <LVAR -0x00c @ 4(r)>
0002622a ; <LVAR -0x010 @ 4(r)>
0002622a ; --------------------------------------------------------------------------------------
0002622a 4e 56 ff c8 |NV | LINK.W A6,#0xffc8
0002622e bf d5 | | CMPA.L (A5),A7
00026230 62 06 |b | BHI 0x26238
00026232 44 fc 00 02 |D | MOVE.W #0x2,CCR
00026236 4e 76 |Nv | TRAPV
00026238 de fc 00 24 | $ | ADDA.W #0x24,A7
0002623c 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7)
00026240 41 f9 00 02 bb c0 |A | LEA.L 0x2bbc0,A0
00026246 43 ee ff f0 |C | LEA.L (A6-0x10),A1
0002624a 2c 10 |, | MOVE.L (A0),D6
0002624c 13 fc 00 01 00 02 bb dc | | MOVE.B #0x01,0x2bbdc
00026254 23 ee 00 08 00 02 bb e2 |# | MOVE.L (A6+0x8),0x2bbe2
0002625c 23 ee 00 0c 00 02 bb e6 |# | MOVE.L (A6+0xc),0x2bbe6
00026264 2e 10 |. | MOVE.L (A0),D7
00026266 48 51 |HQ | PEA.L (A1)
00026268 48 6e ff f4 |Hn | PEA.L (A6-0xc)
0002626c 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00026270 4e ba fd c2 |N | JSR 0x26034
00026274 de fc 00 0c | | ADDA.W #0xc,A7
00026278 20 86 | | MOVE.L D6,(A0)
0002627a 20 2e ff f8 | . | MOVE.L (A6-0x8),D0
0002627e 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0
00026284 2f 00 |/ | MOVE.L D0,-(A7)
00026286 90 ae ff f4 | | SUB.L (A6-0xc),D0
0002628a 53 80 |S | SUBQ.L #0x1,D0
0002628c 2f 00 |/ | MOVE.L D0,-(A7)
0002628e 4e ba f9 5a |N Z | JSR 0x25bea
00026292 58 4f |XO | ADDQ.L #0x4,A7
00026294 2e 91 |. | MOVE.L (A1),(A7)
00026296 2f 11 |/ | MOVE.L (A1),-(A7)
00026298 9f 97 | | SUB.L D7,(A7)
0002629a 4e ba f9 4e |N N | JSR 0x25bea
0002629e 50 4f |PO | ADDQ.L #0x8,A7
000262a0 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1
000262a4 4e 5e |N^ | UNLK A6
000262a6 4e 75 |Nu | RTS
000262a8 ; --------------------------------------------------------------------------------------
000262a8 ; OMSI PASCAL Function
000262a8 ; <LVAR 0x010 4(rw)>
000262a8 ; <LVAR 0x00c 4(r)>
000262a8 ; <LVAR 0x008 4(r)>
000262a8 ; --------------------------------------------------------------------------------------
000262a8 4e 56 ff f8 |NV | LINK.W A6,#0xfff8
000262ac bf d5 | | CMPA.L (A5),A7
000262ae 62 06 |b | BHI 0x262b6
000262b0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000262b4 4e 76 |Nv | TRAPV
000262b6 de fc 00 08 | | ADDA.W #0x8,A7
000262ba 48 e7 80 00 |H | MOVEM.L D0,-(A7)
000262be 4a ae 00 08 |J | TST.L (A6+0x8)
000262c2 66 06 |f | BNE 0x262ca
000262c4 42 ae 00 10 |B | CLR.L (A6+0x10)
000262c8 60 0e |` | BRA 0x262d8
000262ca 20 2e 00 0c | . | MOVE.L (A6+0xc),D0
000262ce 90 ae 00 08 | | SUB.L (A6+0x8),D0
000262d2 52 80 |R | ADDQ.L #0x1,D0
000262d4 2d 40 00 10 |-@ | MOVE.L D0,(A6+0x10)
000262d8 4c df 00 01 |L | MOVEM.L (A7)+,D0
000262dc 4e 5e |N^ | UNLK A6
000262de 4e 75 |Nu | RTS
000262e0 ; --------------------------------------------------------------------------------------
000262e0 ; OMSI PASCAL Function
000262e0 ; <LVAR 0x014 4(w)>
000262e0 ; <LVAR 0x010 @ 4(w)>
000262e0 ; <LVAR 0x00c 4(r)>
000262e0 ; <LVAR 0x008 4(r)>
000262e0 ; --------------------------------------------------------------------------------------
000262e0 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
000262e4 bf d5 | | CMPA.L (A5),A7
000262e6 62 06 |b | BHI 0x262ee
000262e8 44 fc 00 02 |D | MOVE.W #0x2,CCR
000262ec 4e 76 |Nv | TRAPV
000262ee de fc 00 20 | | ADDA.W #0x20,A7
000262f2 48 e7 81 c8 |H | MOVEM.L A4+A1+A0+D7+D0,-(A7)
000262f6 28 6e 00 0c |(n | MOVEA.L (A6+0xc),A4
000262fa 2d 7a f2 b2 00 10 |-z | MOVE.L 0x255ae,(A6+0x10)
00026300 2d 7a f2 b0 00 14 |-z | MOVE.L 0x255b2,(A6+0x14)
00026306 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002630a 7e 00 |~ | MOVEQ.L #0x00,D7
0002630c be 97 | | CMP.L (A7),D7
0002630e 6e 28 |n( | BGT 0x26338
00026310 b8 fc 00 01 | | CMPA.W #0x1,A4
00026314 66 04 |f | BNE 0x2631a
00026316 58 4f |XO | ADDQ.L #0x4,A7
00026318 60 20 |` | BRA 0x2633a
0002631a be ae 00 08 | | CMP.L (A6+0x8),D7
0002631e 66 10 |f | BNE 0x26330
00026320 41 ee 00 10 |A | LEA.L (A6+0x10),A0
00026324 22 4c |"L | MOVEA.L A4,A1
00026326 70 07 |p | MOVEQ.L #0x07,D0
00026328 10 d9 | | MOVE.B (A1)+,(A0)+
0002632a 51 c8 ff fc |Q | DBF D0,0x26328
0002632e 60 04 |` | BRA 0x26334
00026330 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4
00026334 52 87 |R | ADDQ.L #0x1,D7
00026336 68 d4 |h | BVC 0x2630c
00026338 58 4f |XO | ADDQ.L #0x4,A7
0002633a 4c df 13 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A4
0002633e 4e 5e |N^ | UNLK A6
00026340 4e 75 |Nu | RTS
00026342 ; --------------------------------------------------------------------------------------
00026342 ; OMSI PASCAL Function
00026342 ; <LVAR 0x010 4(w)>
00026342 ; <LVAR 0x00c 4(r)>
00026342 ; <LVAR 0x008 4(r)>
00026342 ; <LVAR -0x008 @ 4(r)>
00026342 ; --------------------------------------------------------------------------------------
00026342 4e 56 ff ce |NV | LINK.W A6,#0xffce
00026346 bf d5 | | CMPA.L (A5),A7
00026348 62 06 |b | BHI 0x26350
0002634a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002634e 4e 76 |Nv | TRAPV
00026350 de fc 00 26 | & | ADDA.W #0x26,A7
00026354 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7)
00026358 43 ee ff f8 |C | LEA.L (A6-0x8),A1
0002635c 48 51 |HQ | PEA.L (A1)
0002635e 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00026364 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00026368 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002636c 4e ba ff 3a |N : | JSR 0x262a8
00026370 50 4f |PO | ADDQ.L #0x8,A7
00026372 7e 01 |~ | MOVEQ.L #0x01,D7
00026374 be 97 | | CMP.L (A7),D7
00026376 6e 38 |n8 | BGT 0x263b0
00026378 20 07 | | MOVE.L D7,D0
0002637a d0 ae 00 08 | | ADD.L (A6+0x8),D0
0002637e 53 80 |S | SUBQ.L #0x1,D0
00026380 53 80 |S | SUBQ.L #0x1,D0
00026382 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0
00026388 63 02 |c | BLS 0x2638c
0002638a 4e 4f |NO | TRAP #15
0002638c 41 f9 00 02 9b b8 |A | LEA.L 0x29bb8,A0
00026392 1c 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D6
00026396 0c 06 00 2f | / | CMPI.B #0x2f,D6
0002639a 66 04 |f | BNE 0x263a0
0002639c 58 4f |XO | ADDQ.L #0x4,A7
0002639e 60 12 |` | BRA 0x263b2
000263a0 2f 11 |/ | MOVE.L (A1),-(A7)
000263a2 1f 06 | | MOVE.B D6,-(A7)
000263a4 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
000263aa 5c 4f |\O | ADDQ.L #0x6,A7
000263ac 52 87 |R | ADDQ.L #0x1,D7
000263ae 68 c4 |h | BVC 0x26374
000263b0 58 4f |XO | ADDQ.L #0x4,A7
000263b2 2d 51 00 10 |-Q | MOVE.L (A1),(A6+0x10)
000263b6 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1
000263ba 4e 5e |N^ | UNLK A6
000263bc 4e 75 |Nu | RTS
000263be ; --------------------------------------------------------------------------------------
000263be ; OMSI PASCAL Function
000263be ; <LVAR 0x010 4(w)>
000263be ; <LVAR 0x00c 4(r)>
000263be ; <LVAR 0x008 4(r)>
000263be ; --------------------------------------------------------------------------------------
000263be 4e 56 ff e8 |NV | LINK.W A6,#0xffe8
000263c2 bf d5 | | CMPA.L (A5),A7
000263c4 62 06 |b | BHI 0x263cc
000263c6 44 fc 00 02 |D | MOVE.W #0x2,CCR
000263ca 4e 76 |Nv | TRAPV
000263cc de fc 00 18 | | ADDA.W #0x18,A7
000263d0 9e fc 00 0c | | SUBA.W #0xc,A7
000263d4 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
000263d8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000263dc 4e ba ff 02 |N | JSR 0x262e0
000263e0 50 4f |PO | ADDQ.L #0x8,A7
000263e2 4e ba ff 5e |N ^ | JSR 0x26342
000263e6 50 4f |PO | ADDQ.L #0x8,A7
000263e8 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10)
000263ec 4e 5e |N^ | UNLK A6
000263ee 4e 75 |Nu | RTS
000263f0 ; --------------------------------------------------------------------------------------
000263f0 ; OMSI PASCAL Function
000263f0 ; <LVAR 0x014 4(w)>
000263f0 ; <LVAR 0x010 4(w)>
000263f0 ; <LVAR 0x00c 4(r)>
000263f0 ; <LVAR 0x008 4(r)>
000263f0 ; --------------------------------------------------------------------------------------
000263f0 4e 56 ff e8 |NV | LINK.W A6,#0xffe8
000263f4 bf d5 | | CMPA.L (A5),A7
000263f6 62 06 |b | BHI 0x263fe
000263f8 44 fc 00 02 |D | MOVE.W #0x2,CCR
000263fc 4e 76 |Nv | TRAPV
000263fe de fc 00 18 | | ADDA.W #0x18,A7
00026402 9e fc 00 0c | | SUBA.W #0xc,A7
00026406 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
0002640a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002640e 4e ba ff ae |N | JSR 0x263be
00026412 50 4f |PO | ADDQ.L #0x8,A7
00026414 48 78 00 10 |Hx | PEA.L 0x10
00026418 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64()
0002641e 50 4f |PO | ADDQ.L #0x8,A7
00026420 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10)
00026424 2d 5f 00 14 |-_ | MOVE.L (A7)+,(A6+0x14)
00026428 4e 5e |N^ | UNLK A6
0002642a 4e 75 |Nu | RTS
0002642c ; --------------------------------------------------------------------------------------
0002642c ; OMSI PASCAL Function
0002642c ; <LVAR 0x010 4(w)>
0002642c ; <LVAR 0x00c 4(r)>
0002642c ; <LVAR 0x008 4(r)>
0002642c ; --------------------------------------------------------------------------------------
0002642c 4e 56 ff e8 |NV | LINK.W A6,#0xffe8
00026430 bf d5 | | CMPA.L (A5),A7
00026432 62 06 |b | BHI 0x2643a
00026434 44 fc 00 02 |D | MOVE.W #0x2,CCR
00026438 4e 76 |Nv | TRAPV
0002643a de fc 00 18 | | ADDA.W #0x18,A7
0002643e 9e fc 00 0c | | SUBA.W #0xc,A7
00026442 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00026446 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002644a 4e ba ff a4 |N | JSR 0x263f0
0002644e 50 4f |PO | ADDQ.L #0x8,A7
00026450 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
00026456 50 4f |PO | ADDQ.L #0x8,A7
00026458 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10)
0002645c 4e 5e |N^ | UNLK A6
0002645e 4e 75 |Nu | RTS
00026460 ; --------------------------------------------------------------------------------------
00026460 ; OMSI PASCAL Function
00026460 ; <LVAR 0x008 @ 4(r)>
00026460 ; --------------------------------------------------------------------------------------
00026460 4e 56 ff d4 |NV | LINK.W A6,#0xffd4
00026464 bf d5 | | CMPA.L (A5),A7
00026466 62 06 |b | BHI 0x2646e
00026468 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002646c 4e 76 |Nv | TRAPV
0002646e de fc 00 28 | ( | ADDA.W #0x28,A7
00026472 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7)
00026476 45 f9 00 02 bb c0 |E | LEA.L 0x2bbc0,A2
0002647c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00026480 2f 08 |/ | MOVE.L A0,-(A7)
00026482 2f 12 |/ | MOVE.L (A2),-(A7)
00026484 30 10 |0 | MOVE.W (A0),D0
00026486 48 c0 |H | EXTW.L D0
00026488 44 80 |D | NEG.L D0
0002648a 2f 00 |/ | MOVE.L D0,-(A7)
0002648c 4e ba f7 5c |N \ | JSR 0x25bea
00026490 50 4f |PO | ADDQ.L #0x8,A7
00026492 30 10 |0 | MOVE.W (A0),D0
00026494 48 c0 |H | EXTW.L D0
00026496 2f 00 |/ | MOVE.L D0,-(A7)
00026498 7e 01 |~ | MOVEQ.L #0x01,D7
0002649a be 97 | | CMP.L (A7),D7
0002649c 6e 34 |n4 | BGT 0x264d2
0002649e 20 07 | | MOVE.L D7,D0
000264a0 d0 92 | | ADD.L (A2),D0
000264a2 53 80 |S | SUBQ.L #0x1,D0
000264a4 53 80 |S | SUBQ.L #0x1,D0
000264a6 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0
000264ac 63 02 |c | BLS 0x264b0
000264ae 4e 4f |NO | TRAP #15
000264b0 41 f9 00 02 9b b8 |A | LEA.L 0x29bb8,A0
000264b6 22 07 |" | MOVE.L D7,D1
000264b8 53 81 |S | SUBQ.L #0x1,D1
000264ba 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1
000264c0 63 02 |c | BLS 0x264c4
000264c2 4e 4f |NO | TRAP #15
000264c4 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1
000264c8 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)
000264ce 52 87 |R | ADDQ.L #0x1,D7
000264d0 68 c8 |h | BVC 0x2649a
000264d2 50 4f |PO | ADDQ.L #0x8,A7
000264d4 48 6e 00 08 |Hn | PEA.L (A6+0x8)
000264d8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
000264de 58 4f |XO | ADDQ.L #0x4,A7
000264e0 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2
000264e4 4e 5e |N^ | UNLK A6
000264e6 4e 75 |Nu | RTS
000264e8 ; --------------------------------------------------------------------------------------
000264e8 ; OMSI PASCAL Function
000264e8 ; <LVAR 0x00c 4(r)>
000264e8 ; <LVAR 0x008 4(r)>
000264e8 ; --------------------------------------------------------------------------------------
000264e8 4e 56 ff ec |NV | LINK.W A6,#0xffec
000264ec bf d5 | | CMPA.L (A5),A7
000264ee 62 06 |b | BHI 0x264f6
000264f0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000264f4 4e 76 |Nv | TRAPV
000264f6 de fc 00 14 | | ADDA.W #0x14,A7
000264fa 59 4f |YO | SUBQ.L #0x4,A7
000264fc 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00026500 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00026504 48 78 00 10 |Hx | PEA.L 0x10
00026508 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String
0002650e de fc 00 0c | | ADDA.W #0xc,A7
00026512 4e ba ff 4c |N L | JSR 0x26460
00026516 58 4f |XO | ADDQ.L #0x4,A7
00026518 4e 5e |N^ | UNLK A6
0002651a 4e 75 |Nu | RTS
0002651c ; --------------------------------------------------------------------------------------
0002651c ; OMSI PASCAL Function
0002651c ; <LVAR 0x008 4(r)>
0002651c ; --------------------------------------------------------------------------------------
0002651c 4e 56 ff f4 |NV | LINK.W A6,#0xfff4
00026520 bf d5 | | CMPA.L (A5),A7
00026522 62 06 |b | BHI 0x2652a
00026524 44 fc 00 02 |D | MOVE.W #0x2,CCR
00026528 4e 76 |Nv | TRAPV
0002652a de fc 00 0c | | ADDA.W #0xc,A7
0002652e 59 4f |YO | SUBQ.L #0x4,A7
00026530 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00026534 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
0002653a 58 4f |XO | ADDQ.L #0x4,A7
0002653c 4e ba ff 22 |N " | JSR 0x26460
00026540 58 4f |XO | ADDQ.L #0x4,A7
00026542 4e 5e |N^ | UNLK A6
00026544 4e 75 |Nu | RTS
00026546 ; --------------------------------------------------------------------------------------
00026546 ; OMSI PASCAL Function
00026546 ; <LVAR 0x008 4(r)>
00026546 ; <LVAR -0x004 @ 4(r)>
00026546 ; <LVAR -0x008 4(rw)>
00026546 ; --------------------------------------------------------------------------------------
00026546 4e 56 ff ca |NV | LINK.W A6,#0xffca
0002654a bf d5 | | CMPA.L (A5),A7
0002654c 62 06 |b | BHI 0x26554
0002654e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00026552 4e 76 |Nv | TRAPV
00026554 de fc 00 2a | * | ADDA.W #0x2a,A7
00026558 48 e7 81 e0 |H | MOVEM.L A2+A1+A0+D7+D0,-(A7)
0002655c 43 ee ff fc |C | LEA.L (A6-0x4),A1
00026560 45 ee ff f8 |E | LEA.L (A6-0x8),A2
00026564 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00026568 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2)
0002656c 48 51 |HQ | PEA.L (A1)
0002656e 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00026574 58 4f |XO | ADDQ.L #0x4,A7
00026576 20 52 | R | MOVEA.L (A2),A0
00026578 b0 fc 00 01 | | CMPA.W #0x1,A0
0002657c 67 00 00 86 |g | BEQ 0x26604
00026580 4a 90 |J | TST.L (A0)
00026582 67 68 |gh | BEQ 0x265ec
00026584 2f 28 00 04 |/( | MOVE.L (A0+0x4),-(A7)
00026588 2e 10 |. | MOVE.L (A0),D7
0002658a be 97 | | CMP.L (A7),D7
0002658c 6e 14 |n | BGT 0x265a2
0002658e 20 17 | | MOVE.L (A7),D0
00026590 0c 87 80 00 00 01 | | CMPI.L #0x80000001,D7
00026596 6d 08 |m | BLT 0x265a0
00026598 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0
0002659e 6f 02 |o | BLE 0x265a2
000265a0 4e 4f |NO | TRAP #15
000265a2 be 97 | | CMP.L (A7),D7
000265a4 6e 44 |nD | BGT 0x265ea
000265a6 2f 11 |/ | MOVE.L (A1),-(A7)
000265a8 20 07 | | MOVE.L D7,D0
000265aa 53 80 |S | SUBQ.L #0x1,D0
000265ac 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0
000265b2 63 02 |c | BLS 0x265b6
000265b4 4e 4f |NO | TRAP #15
000265b6 41 f9 00 02 9b b8 |A | LEA.L 0x29bb8,A0
000265bc 1f 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),-(A7)
000265c0 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
000265c6 5c 4f |\O | ADDQ.L #0x6,A7
000265c8 20 51 | Q | MOVEA.L (A1),A0
000265ca 30 10 |0 | MOVE.W (A0),D0
000265cc 0c 40 00 7a | @ z | CMPI.W #0x007a,D0
000265d0 6d 14 |m | BLT 0x265e6
000265d2 2f 11 |/ | MOVE.L (A1),-(A7)
000265d4 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
000265da 58 4f |XO | ADDQ.L #0x4,A7
000265dc 48 51 |HQ | PEA.L (A1)
000265de 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
000265e4 58 4f |XO | ADDQ.L #0x4,A7
000265e6 52 87 |R | ADDQ.L #0x1,D7
000265e8 68 b8 |h | BVC 0x265a2
000265ea 58 4f |XO | ADDQ.L #0x4,A7
000265ec 2f 11 |/ | MOVE.L (A1),-(A7)
000265ee 1f 3c 00 20 | < | MOVE.B #0x20,-(A7)
000265f2 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
000265f8 5c 4f |\O | ADDQ.L #0x6,A7
000265fa 20 52 | R | MOVEA.L (A2),A0
000265fc 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2)
00026600 60 00 ff 74 |` t | BRA 0x26576
00026604 2f 11 |/ | MOVE.L (A1),-(A7)
00026606 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002660c 58 4f |XO | ADDQ.L #0x4,A7
0002660e 4c df 07 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2
00026612 4e 5e |N^ | UNLK A6
00026614 4e 75 |Nu | RTS
00026616 ; --------------------------------------------------------------------------------------
00026616 ; OMSI PASCAL Function
00026616 ; <LVAR 0x008 @ 4(r)>
00026616 ; <LVAR -0x003 @ 1(r)>
00026616 ; <LVAR -0x004 @ 1(r)>
00026616 ; <LVAR -0x008 @ 4(r)>
00026616 ; <LVAR -0x00c @ 4(rw)>
00026616 ; --------------------------------------------------------------------------------------
00026616 4e 56 ff ae |NV | LINK.W A6,#0xffae
0002661a bf d5 | | CMPA.L (A5),A7
0002661c 62 06 |b | BHI 0x26624
0002661e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00026622 4e 76 |Nv | TRAPV
00026624 de fc 00 46 | F | ADDA.W #0x46,A7
00026628 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7)
0002662c 43 ee 00 08 |C | LEA.L (A6+0x8),A1
00026630 45 ee ff f4 |E | LEA.L (A6-0xc),A2
00026634 47 ee ff fc |G | LEA.L (A6-0x4),A3
00026638 49 ee ff f8 |I | LEA.L (A6-0x8),A4
0002663c 72 01 |r | MOVEQ.L #0x01,D1
0002663e 2f 3a ec 36 |/: 6 | MOVE.L 0x25276,-(A7)
00026642 51 4f |QO | SUBQ.L #0x8,A7
00026644 2f 11 |/ | MOVE.L (A1),-(A7)
00026646 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
0002664c 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00026650 3f 01 |? | MOVE.W D1,-(A7)
00026652 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
00026656 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002665c 50 4f |PO | ADDQ.L #0x8,A7
0002665e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00026664 50 4f |PO | ADDQ.L #0x8,A7
00026666 24 9f |$ | MOVE.L (A7)+,(A2)
00026668 2e 92 |. | MOVE.L (A2),(A7)
0002666a 42 27 |B' | CLR.B -(A7)
0002666c 42 27 |B' | CLR.B -(A7)
0002666e 48 78 00 00 |Hx | PEA.L 0x0
00026672 48 53 |HS | PEA.L (A3)
00026674 48 54 |HT | PEA.L (A4)
00026676 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0002667c de fc 00 14 | | ADDA.W #0x14,A7
00026680 4a 13 |J | TST.B (A3)
00026682 67 36 |g6 | BEQ 0x266ba
00026684 41 fa eb f0 |A | LEA.L 0x25276,A0
00026688 70 0a |p | MOVEQ.L #0x0a,D0
0002668a 3f 20 |? | MOVE.W -(A0),-(A7)
0002668c 51 c8 ff fc |Q | DBF D0,0x2668a
00026690 51 4f |QO | SUBQ.L #0x8,A7
00026692 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00026696 3f 01 |? | MOVE.W D1,-(A7)
00026698 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
0002669c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000266a2 58 4f |XO | ADDQ.L #0x4,A7
000266a4 2e 91 |. | MOVE.L (A1),(A7)
000266a6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000266ac 50 4f |PO | ADDQ.L #0x8,A7
000266ae 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000266b4 de fc 00 1a | | ADDA.W #0x1a,A7
000266b8 60 54 |`T | BRA 0x2670e
000266ba 2f 14 |/ | MOVE.L (A4),-(A7)
000266bc 48 51 |HQ | PEA.L (A1)
000266be 48 6e ff fd |Hn | PEA.L (A6-0x3)
000266c2 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte)
000266c8 de fc 00 0c | | ADDA.W #0xc,A7
000266cc 4a 2e ff fd |J. | TST.B (A6-0x3)
000266d0 66 14 |f | BNE 0x266e6
000266d2 59 4f |YO | SUBQ.L #0x4,A7
000266d4 2f 11 |/ | MOVE.L (A1),-(A7)
000266d6 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
000266dc 58 4f |XO | ADDQ.L #0x4,A7
000266de 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000266e4 58 4f |XO | ADDQ.L #0x4,A7
000266e6 4a 2e ff fd |J. | TST.B (A6-0x3)
000266ea 67 ce |g | BEQ 0x266ba
000266ec 42 27 |B' | CLR.B -(A7)
000266ee 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
000266f2 48 78 00 01 |Hx | PEA.L 0x1
000266f6 48 53 |HS | PEA.L (A3)
000266f8 48 54 |HT | PEA.L (A4)
000266fa 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
00026700 de fc 00 10 | | ADDA.W #0x10,A7
00026704 48 51 |HQ | PEA.L (A1)
00026706 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
0002670c 58 4f |XO | ADDQ.L #0x4,A7
0002670e 48 52 |HR | PEA.L (A2)
00026710 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00026716 58 4f |XO | ADDQ.L #0x4,A7
00026718 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4
0002671c 4e 5e |N^ | UNLK A6
0002671e 4e 75 |Nu | RTS
00026720 ; --------------------------------------------------------------------------------------
00026720 ; OMSI PASCAL Function
00026720 ; <LVAR 0x008 4(r)>
00026720 ; --------------------------------------------------------------------------------------
00026720 4e 56 ff c6 |NV | LINK.W A6,#0xffc6
00026724 bf d5 | | CMPA.L (A5),A7
00026726 62 06 |b | BHI 0x2672e
00026728 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002672c 4e 76 |Nv | TRAPV
0002672e de fc 00 2e | . | ADDA.W #0x2e,A7
00026732 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7)
00026736 59 4f |YO | SUBQ.L #0x4,A7
00026738 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002673c 4e ba f3 64 |N d | JSR 0x25aa2
00026740 58 4f |XO | ADDQ.L #0x4,A7
00026742 2c 1f |, | MOVE.L (A7)+,D6
00026744 66 2e |f. | BNE 0x26774
00026746 41 f9 00 02 bb d2 |A | LEA.L 0x2bbd2,A0
0002674c 70 04 |p | MOVEQ.L #0x04,D0
0002674e 3f 20 |? | MOVE.W -(A0),-(A7)
00026750 51 c8 ff fc |Q | DBF D0,0x2674e
00026754 59 4f |YO | SUBQ.L #0x4,A7
00026756 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002675a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002675e 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7)
00026762 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00026768 50 4f |PO | ADDQ.L #0x8,A7
0002676a 4e ba fe aa |N | JSR 0x26616
0002676e de fc 00 0e | | ADDA.W #0xe,A7
00026772 60 26 |`& | BRA 0x2679a
00026774 2f 06 |/ | MOVE.L D6,-(A7)
00026776 7e 01 |~ | MOVEQ.L #0x01,D7
00026778 be 97 | | CMP.L (A7),D7
0002677a 6e 1c |n | BGT 0x26798
0002677c 59 4f |YO | SUBQ.L #0x4,A7
0002677e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00026782 2f 07 |/ | MOVE.L D7,-(A7)
00026784 4e ba fc 38 |N 8 | JSR 0x263be
00026788 50 4f |PO | ADDQ.L #0x8,A7
0002678a 28 5f |(_ | MOVEA.L (A7)+,A4
0002678c 2f 0c |/ | MOVE.L A4,-(A7)
0002678e 4e ba fe 86 |N | JSR 0x26616
00026792 58 4f |XO | ADDQ.L #0x4,A7
00026794 52 87 |R | ADDQ.L #0x1,D7
00026796 68 e0 |h | BVC 0x26778
00026798 58 4f |XO | ADDQ.L #0x4,A7
0002679a 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4
0002679e 4e 5e |N^ | UNLK A6
000267a0 4e 75 |Nu | RTS
000267a2 ; --------------------------------------------------------------------------------------
000267a2 ; OMSI PASCAL Function
000267a2 ; <LVAR 0x00c @>
000267a2 ; <LVAR 0x008 @ 4(r)>
000267a2 ; <LVAR -0x020 @>
000267a2 ; --------------------------------------------------------------------------------------
000267a2 4e 56 ff b8 |NV | LINK.W A6,#0xffb8
000267a6 bf d5 | | CMPA.L (A5),A7
000267a8 62 06 |b | BHI 0x267b0
000267aa 44 fc 00 02 |D | MOVE.W #0x2,CCR
000267ae 4e 76 |Nv | TRAPV
000267b0 de fc 00 24 | $ | ADDA.W #0x24,A7
000267b4 48 e7 e1 c0 |H | MOVEM.L A1+A0+D7+D2+D1+D0,-(A7)
000267b8 74 1d |t | MOVEQ.L #0x1d,D2
000267ba 7e 01 |~ | MOVEQ.L #0x01,D7
000267bc 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
000267c0 30 10 |0 | MOVE.W (A0),D0
000267c2 48 c0 |H | EXTW.L D0
000267c4 be 80 | | CMP.L D0,D7
000267c6 6f 10 |o | BLE 0x267d8
000267c8 20 07 | | MOVE.L D7,D0
000267ca 53 80 |S | SUBQ.L #0x1,D0
000267cc b0 82 | | CMP.L D2,D0
000267ce 63 02 |c | BLS 0x267d2
000267d0 4e 4f |NO | TRAP #15
000267d2 42 36 08 e0 |B6 | CLR.B (A6+D0.L-#0x20)
000267d6 60 1e |` | BRA 0x267f6
000267d8 20 07 | | MOVE.L D7,D0
000267da 53 80 |S | SUBQ.L #0x1,D0
000267dc b0 82 | | CMP.L D2,D0
000267de 63 02 |c | BLS 0x267e2
000267e0 4e 4f |NO | TRAP #15
000267e2 22 07 |" | MOVE.L D7,D1
000267e4 53 81 |S | SUBQ.L #0x1,D1
000267e6 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1
000267ec 63 02 |c | BLS 0x267f0
000267ee 4e 4f |NO | TRAP #15
000267f0 1d b0 18 02 08 e0 | | MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20)
000267f6 52 87 |R | ADDQ.L #0x1,D7
000267f8 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7
000267fe 6f bc |o | BLE 0x267bc
00026800 48 6e 00 08 |Hn | PEA.L (A6+0x8)
00026804 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
0002680a 58 4f |XO | ADDQ.L #0x4,A7
0002680c 41 ee 00 0c |A | LEA.L (A6+0xc),A0
00026810 43 ee ff e0 |C | LEA.L (A6-0x20),A1
00026814 70 0e |p | MOVEQ.L #0x0e,D0
00026816 30 d9 |0 | MOVE.W (A1)+,(A0)+
00026818 51 c8 ff fc |Q | DBF D0,0x26816
0002681c 4c df 03 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1
00026820 4e 5e |N^ | UNLK A6
00026822 4e 75 |Nu | RTS
00026824 ; --------------------------------------------------------------------------------------
00026824 ; OMSI PASCAL Function
00026824 ; <LVAR 0x026 4(w)>
00026824 ; <LVAR 0x008 @>
00026824 ; <LVAR -0x006 4(rw)>
00026824 ; --------------------------------------------------------------------------------------
00026824 4e 56 ff d6 |NV | LINK.W A6,#0xffd6
00026828 bf d5 | | CMPA.L (A5),A7
0002682a 62 06 |b | BHI 0x26832
0002682c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00026830 4e 76 |Nv | TRAPV
00026832 de fc 00 24 | $ | ADDA.W #0x24,A7
00026836 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7)
0002683a 47 ee ff fa |G | LEA.L (A6-0x6),A3
0002683e 7e 00 |~ | MOVEQ.L #0x00,D7
00026840 26 b9 00 02 bb ea |& | MOVE.L 0x2bbea,(A3)
00026846 20 53 | S | MOVEA.L (A3),A0
00026848 b0 fc 00 01 | | CMPA.W #0x1,A0
0002684c 67 1e |g | BEQ 0x2686c
0002684e 4a 07 |J | TST.B D7
00026850 66 1a |f | BNE 0x2686c
00026852 22 48 |"H | MOVEA.L A0,A1
00026854 45 ee 00 08 |E | LEA.L (A6+0x8),A2
00026858 70 1d |p | MOVEQ.L #0x1d,D0
0002685a b5 09 | | CMPM.B (A1)+,(A2)+
0002685c 56 c8 ff fc |V | DBNE D0,0x2685a
00026860 66 04 |f | BNE 0x26866
00026862 7e 01 |~ | MOVEQ.L #0x01,D7
00026864 60 04 |` | BRA 0x2686a
00026866 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3)
0002686a 60 da |` | BRA 0x26846
0002686c 2d 48 00 26 |-H & | MOVE.L A0,(A6+0x26)
00026870 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3
00026874 4e 5e |N^ | UNLK A6
00026876 4e 75 |Nu | RTS
00026878 ; --------------------------------------------------------------------------------------
00026878 ; OMSI PASCAL Function
00026878 ; <LVAR 0x008 @ 4(r)>
00026878 ; --------------------------------------------------------------------------------------
00026878 4e 56 ff c8 |NV | LINK.W A6,#0xffc8
0002687c bf d5 | | CMPA.L (A5),A7
0002687e 62 06 |b | BHI 0x26886
00026880 44 fc 00 02 |D | MOVE.W #0x2,CCR
00026884 4e 76 |Nv | TRAPV
00026886 de fc 00 2c | , | ADDA.W #0x2c,A7
0002688a 48 e7 81 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D0,-(A7)
0002688e 43 ee 00 08 |C | LEA.L (A6+0x8),A1
00026892 45 f9 00 02 bb ea |E | LEA.L 0x2bbea,A2
00026898 70 01 |p | MOVEQ.L #0x01,D0
0002689a 20 51 | Q | MOVEA.L (A1),A0
0002689c b0 c0 | | CMPA.W D0,A0
0002689e 67 56 |gV | BEQ 0x268f6
000268a0 4a a8 00 1e |J | TST.L (A0+0x1e)
000268a4 67 10 |g | BEQ 0x268b6
000268a6 2f 28 00 22 |/( " | MOVE.L (A0+0x22),-(A7)
000268aa 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7)
000268ae 4e b9 00 01 02 a4 |N | JSR Free1(a : Pointer; b : Long)
000268b4 50 4f |PO | ADDQ.L #0x8,A7
000268b6 7e 00 |~ | MOVEQ.L #0x00,D7
000268b8 38 40 |8@ | MOVEA.W D0,A4
000268ba 26 52 |&R | MOVEA.L (A2),A3
000268bc b6 c0 | | CMPA.W D0,A3
000268be 67 14 |g | BEQ 0x268d4
000268c0 4a 07 |J | TST.B D7
000268c2 66 10 |f | BNE 0x268d4
000268c4 b7 d1 | | CMPA.L (A1),A3
000268c6 66 04 |f | BNE 0x268cc
000268c8 7e 01 |~ | MOVEQ.L #0x01,D7
000268ca 60 06 |` | BRA 0x268d2
000268cc 28 4b |(K | MOVEA.L A3,A4
000268ce 26 6b 00 26 |&k & | MOVEA.L (A3+0x26),A3
000268d2 60 e8 |` | BRA 0x268bc
000268d4 4a 07 |J | TST.B D7
000268d6 67 1e |g | BEQ 0x268f6
000268d8 b8 c0 | | CMPA.W D0,A4
000268da 66 06 |f | BNE 0x268e2
000268dc 24 ab 00 26 |$ & | MOVE.L (A3+0x26),(A2)
000268e0 60 06 |` | BRA 0x268e8
000268e2 29 6b 00 26 00 26 |)k & & | MOVE.L (A3+0x26),(A4+0x26)
000268e8 48 51 |HQ | PEA.L (A1)
000268ea 48 78 00 2a |Hx * | PEA.L 0x2a
000268ee 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long)
000268f4 50 4f |PO | ADDQ.L #0x8,A7
000268f6 4c df 1f 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2+A3+A4
000268fa 4e 5e |N^ | UNLK A6
000268fc 4e 75 |Nu | RTS
000268fe ; --------------------------------------------------------------------------------------
000268fe ; OMSI PASCAL Function
000268fe ; <LVAR 0x010 4(w)>
000268fe ; <LVAR 0x00c 4(r)>
000268fe ; <LVAR 0x008 4(r)>
000268fe ; <LVAR -0x006 @ 4(rw)>
000268fe ; <LVAR -0x024 @>
000268fe ; --------------------------------------------------------------------------------------
000268fe 4e 56 ff 9a |NV | LINK.W A6,#0xff9a
00026902 bf d5 | | CMPA.L (A5),A7
00026904 62 06 |b | BHI 0x2690c
00026906 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002690a 4e 76 |Nv | TRAPV
0002690c de fc 00 42 | B | ADDA.W #0x42,A7
00026910 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7)
00026914 47 ee ff fa |G | LEA.L (A6-0x6),A3
00026918 49 ee 00 08 |I | LEA.L (A6+0x8),A4
0002691c 72 1e |r | MOVEQ.L #0x1e,D1
0002691e 9e c1 | | SUBA.W D1,A7
00026920 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00026924 2f 10 |/ | MOVE.L (A0),-(A7)
00026926 4e ba fe 7a |N z | JSR 0x267a2
0002692a 58 4f |XO | ADDQ.L #0x4,A7
0002692c 41 ee ff dc |A | LEA.L (A6-0x24),A0
00026930 70 0e |p | MOVEQ.L #0x0e,D0
00026932 30 df |0 | MOVE.W (A7)+,(A0)+
00026934 51 c8 ff fc |Q | DBF D0,0x26932
00026938 4a 94 |J | TST.L (A4)
0002693a 6c 02 |l | BGE 0x2693e
0002693c 42 94 |B | CLR.L (A4)
0002693e 59 4f |YO | SUBQ.L #0x4,A7
00026940 20 4b | K | MOVEA.L A3,A0
00026942 70 0e |p | MOVEQ.L #0x0e,D0
00026944 3f 20 |? | MOVE.W -(A0),-(A7)
00026946 51 c8 ff fc |Q | DBF D0,0x26944
0002694a 4e ba fe d8 |N | JSR 0x26824
0002694e de c1 | | ADDA.W D1,A7
00026950 26 9f |& | MOVE.L (A7)+,(A3)
00026952 20 53 | S | MOVEA.L (A3),A0
00026954 b0 fc 00 01 | | CMPA.W #0x1,A0
00026958 67 12 |g | BEQ 0x2696c
0002695a 20 28 00 1e | ( | MOVE.L (A0+0x1e),D0
0002695e b0 94 | | CMP.L (A4),D0
00026960 66 02 |f | BNE 0x26964
00026962 60 4c |`L | BRA 0x269b0
00026964 2f 13 |/ | MOVE.L (A3),-(A7)
00026966 4e ba ff 10 |N | JSR 0x26878
0002696a 58 4f |XO | ADDQ.L #0x4,A7
0002696c 48 53 |HS | PEA.L (A3)
0002696e 48 78 00 2a |Hx * | PEA.L 0x2a
00026972 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer
00026978 50 4f |PO | ADDQ.L #0x8,A7
0002697a 20 53 | S | MOVEA.L (A3),A0
0002697c 21 79 00 02 bb ea 00 26 |!y &| MOVE.L 0x2bbea,(A0+0x26)
00026984 23 d3 00 02 bb ea |# | MOVE.L (A3),0x2bbea
0002698a 22 48 |"H | MOVEA.L A0,A1
0002698c 45 ee ff dc |E | LEA.L (A6-0x24),A2
00026990 70 1d |p | MOVEQ.L #0x1d,D0
00026992 12 da | | MOVE.B (A2)+,(A1)+
00026994 51 c8 ff fc |Q | DBF D0,0x26992
00026998 21 54 00 1e |!T | MOVE.L (A4),(A0+0x1e)
0002699c 4a 94 |J | TST.L (A4)
0002699e 67 10 |g | BEQ 0x269b0
000269a0 59 4f |YO | SUBQ.L #0x4,A7
000269a2 2f 14 |/ | MOVE.L (A4),-(A7)
000269a4 4e b9 00 01 02 a0 |N | JSR Malloc2(VAR dst : Pointer; length : Word)
000269aa 58 4f |XO | ADDQ.L #0x4,A7
000269ac 21 5f 00 22 |!_ " | MOVE.L (A7)+,(A0+0x22)
000269b0 2d 53 00 10 |-S | MOVE.L (A3),(A6+0x10)
000269b4 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4
000269b8 4e 5e |N^ | UNLK A6
000269ba 4e 75 |Nu | RTS
000269bc ; --------------------------------------------------------------------------------------
000269bc ; OMSI PASCAL Function
000269bc ; <LVAR 0x00c @>
000269bc ; <LVAR 0x008 @ 4(r)>
000269bc ; <LVAR -0x008 4(rw)>
000269bc ; --------------------------------------------------------------------------------------
000269bc 4e 56 ff c8 |NV | LINK.W A6,#0xffc8
000269c0 bf d5 | | CMPA.L (A5),A7
000269c2 62 06 |b | BHI 0x269ca
000269c4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000269c8 4e 76 |Nv | TRAPV
000269ca de fc 00 2c | , | ADDA.W #0x2c,A7
000269ce 48 e7 c3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D1+D0,-(A7)
000269d2 45 ee 00 08 |E | LEA.L (A6+0x8),A2
000269d6 20 52 | R | MOVEA.L (A2),A0
000269d8 30 10 |0 | MOVE.W (A0),D0
000269da 48 c0 |H | EXTW.L D0
000269dc 2c 00 |, | MOVE.L D0,D6
000269de 59 4f |YO | SUBQ.L #0x4,A7
000269e0 48 6e 00 0c |Hn | PEA.L (A6+0xc)
000269e4 2f 06 |/ | MOVE.L D6,-(A7)
000269e6 4e ba ff 16 |N | JSR 0x268fe
000269ea 50 4f |PO | ADDQ.L #0x8,A7
000269ec 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8)
000269f0 4a 86 |J | TST.L D6
000269f2 67 40 |g@ | BEQ 0x26a34
000269f4 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0
000269f8 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0
000269fc 2f 08 |/ | MOVE.L A0,-(A7)
000269fe 2f 06 |/ | MOVE.L D6,-(A7)
00026a00 7e 01 |~ | MOVEQ.L #0x01,D7
00026a02 be 97 | | CMP.L (A7),D7
00026a04 6e 2c |n, | BGT 0x26a32
00026a06 20 07 | | MOVE.L D7,D0
00026a08 53 80 |S | SUBQ.L #0x1,D0
00026a0a 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0
00026a10 63 02 |c | BLS 0x26a14
00026a12 4e 4f |NO | TRAP #15
00026a14 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0
00026a18 22 52 |"R | MOVEA.L (A2),A1
00026a1a 22 07 |" | MOVE.L D7,D1
00026a1c 53 81 |S | SUBQ.L #0x1,D1
00026a1e 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1
00026a24 63 02 |c | BLS 0x26a28
00026a26 4e 4f |NO | TRAP #15
00026a28 11 b1 18 02 08 00 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L)
00026a2e 52 87 |R | ADDQ.L #0x1,D7
00026a30 68 d0 |h | BVC 0x26a02
00026a32 50 4f |PO | ADDQ.L #0x8,A7
00026a34 48 52 |HR | PEA.L (A2)
00026a36 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00026a3c 58 4f |XO | ADDQ.L #0x4,A7
00026a3e 4c df 07 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2
00026a42 4e 5e |N^ | UNLK A6
00026a44 4e 75 |Nu | RTS
00026a46 ; --------------------------------------------------------------------------------------
00026a46 ; OMSI PASCAL Function
00026a46 ; <LVAR 0x008 4(r)>
00026a46 ; <LVAR -0x004 @ 4(w)>
00026a46 ; <LVAR -0x008 4(rw)>
00026a46 ; <LVAR -0x00c 4(rw)>
00026a46 ; <LVAR -0x010 4(rw)>
00026a46 ; <LVAR -0x01c 4(rw)>
00026a46 ; <LVAR -0x020 4(rw)>
00026a46 ; --------------------------------------------------------------------------------------
00026a46 4e 56 ff 82 |NV | LINK.W A6,#0xff82
00026a4a bf d5 | | CMPA.L (A5),A7
00026a4c 62 06 |b | BHI 0x26a54
00026a4e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00026a52 4e 76 |Nv | TRAPV
00026a54 de fc 00 5a | Z | ADDA.W #0x5a,A7
00026a58 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00026a5c 45 ee ff f4 |E | LEA.L (A6-0xc),A2
00026a60 47 ee ff f0 |G | LEA.L (A6-0x10),A3
00026a64 49 ee 00 08 |I | LEA.L (A6+0x8),A4
00026a68 74 01 |t | MOVEQ.L #0x01,D2
00026a6a 59 4f |YO | SUBQ.L #0x4,A7
00026a6c 2f 14 |/ | MOVE.L (A4),-(A7)
00026a6e 4e ba f0 32 |N 2 | JSR 0x25aa2
00026a72 58 4f |XO | ADDQ.L #0x4,A7
00026a74 26 9f |& | MOVE.L (A7)+,(A3)
00026a76 20 13 | | MOVE.L (A3),D0
00026a78 b0 82 | | CMP.L D2,D0
00026a7a 6c 2e |l. | BGE 0x26aaa
00026a7c 9e fc 00 1a | | SUBA.W #0x1a,A7
00026a80 20 4f | O | MOVEA.L A7,A0
00026a82 43 fa e7 f6 |C | LEA.L 0x2527a,A1
00026a86 72 18 |r | MOVEQ.L #0x18,D1
00026a88 10 d9 | | MOVE.B (A1)+,(A0)+
00026a8a 51 c9 ff fc |Q | DBF D1,0x26a88
00026a8e 59 4f |YO | SUBQ.L #0x4,A7
00026a90 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00026a94 3f 02 |? | MOVE.W D2,-(A7)
00026a96 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
00026a9a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00026aa0 50 4f |PO | ADDQ.L #0x8,A7
00026aa2 4e ba eb f2 |N | JSR 0x25696
00026aa6 de fc 00 1e | | ADDA.W #0x1e,A7
00026aaa 42 92 |B | CLR.L (A2)
00026aac 2f 00 |/ | MOVE.L D0,-(A7)
00026aae 7c 02 || | MOVEQ.L #0x02,D6
00026ab0 bc 97 | | CMP.L (A7),D6
00026ab2 6e 1e |n | BGT 0x26ad2
00026ab4 9e fc 00 0c | | SUBA.W #0xc,A7
00026ab8 2f 14 |/ | MOVE.L (A4),-(A7)
00026aba 2f 06 |/ | MOVE.L D6,-(A7)
00026abc 4e ba f8 22 |N " | JSR 0x262e0
00026ac0 50 4f |PO | ADDQ.L #0x8,A7
00026ac2 4e ba f7 e4 |N | JSR 0x262a8
00026ac6 50 4f |PO | ADDQ.L #0x8,A7
00026ac8 20 12 | | MOVE.L (A2),D0
00026aca d0 9f | | ADD.L (A7)+,D0
00026acc 24 80 |$ | MOVE.L D0,(A2)
00026ace 52 86 |R | ADDQ.L #0x1,D6
00026ad0 68 de |h | BVC 0x26ab0
00026ad2 58 4f |XO | ADDQ.L #0x4,A7
00026ad4 20 13 | | MOVE.L (A3),D0
00026ad6 55 80 |U | SUBQ.L #0x2,D0
00026ad8 d1 92 | | ADD.L D0,(A2)
00026ada 59 4f |YO | SUBQ.L #0x4,A7
00026adc 2f 14 |/ | MOVE.L (A4),-(A7)
00026ade 48 78 00 01 |Hx | PEA.L 0x1
00026ae2 4e ba f8 da |N | JSR 0x263be
00026ae6 50 4f |PO | ADDQ.L #0x8,A7
00026ae8 2d 57 ff fc |-W | MOVE.L (A7),(A6-0x4)
00026aec 48 6e ff fc |Hn | PEA.L (A6-0x4)
00026af0 2f 12 |/ | MOVE.L (A2),-(A7)
00026af2 4e ba fe 0a |N | JSR 0x268fe
00026af6 50 4f |PO | ADDQ.L #0x8,A7
00026af8 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8)
00026afc 4a 92 |J | TST.L (A2)
00026afe 6f 00 00 aa |o | BLE 0x26baa
00026b02 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0
00026b06 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0
00026b0a 2f 08 |/ | MOVE.L A0,-(A7)
00026b0c 7e 01 |~ | MOVEQ.L #0x01,D7
00026b0e 2f 13 |/ | MOVE.L (A3),-(A7)
00026b10 7c 02 || | MOVEQ.L #0x02,D6
00026b12 bc 97 | | CMP.L (A7),D6
00026b14 6e 00 00 92 |n | BGT 0x26ba8
00026b18 51 4f |QO | SUBQ.L #0x8,A7
00026b1a 2f 14 |/ | MOVE.L (A4),-(A7)
00026b1c 2f 06 |/ | MOVE.L D6,-(A7)
00026b1e 4e ba f7 c0 |N | JSR 0x262e0
00026b22 50 4f |PO | ADDQ.L #0x8,A7
00026b24 2d 5f ff e0 |-_ | MOVE.L (A7)+,(A6-0x20)
00026b28 2d 5f ff e4 |-_ | MOVE.L (A7)+,(A6-0x1c)
00026b2c 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7)
00026b30 2a 2e ff e0 |*. | MOVE.L (A6-0x20),D5
00026b34 ba 97 | | CMP.L (A7),D5
00026b36 6e 14 |n | BGT 0x26b4c
00026b38 20 17 | | MOVE.L (A7),D0
00026b3a 0c 85 80 00 00 01 | | CMPI.L #0x80000001,D5
00026b40 6d 08 |m | BLT 0x26b4a
00026b42 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0
00026b48 6f 02 |o | BLE 0x26b4c
00026b4a 4e 4f |NO | TRAP #15
00026b4c ba 97 | | CMP.L (A7),D5
00026b4e 6e 32 |n2 | BGT 0x26b82
00026b50 20 07 | | MOVE.L D7,D0
00026b52 53 80 |S | SUBQ.L #0x1,D0
00026b54 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0
00026b5a 63 02 |c | BLS 0x26b5e
00026b5c 4e 4f |NO | TRAP #15
00026b5e 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0
00026b62 22 05 |" | MOVE.L D5,D1
00026b64 53 81 |S | SUBQ.L #0x1,D1
00026b66 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1
00026b6c 63 02 |c | BLS 0x26b70
00026b6e 4e 4f |NO | TRAP #15
00026b70 43 f9 00 02 9b b8 |C | LEA.L 0x29bb8,A1
00026b76 11 b1 18 08 08 00 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L)
00026b7c 52 87 |R | ADDQ.L #0x1,D7
00026b7e 52 85 |R | ADDQ.L #0x1,D5
00026b80 68 ca |h | BVC 0x26b4c
00026b82 58 4f |XO | ADDQ.L #0x4,A7
00026b84 bc 93 | | CMP.L (A3),D6
00026b86 67 1a |g | BEQ 0x26ba2
00026b88 20 07 | | MOVE.L D7,D0
00026b8a 53 80 |S | SUBQ.L #0x1,D0
00026b8c 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0
00026b92 63 02 |c | BLS 0x26b96
00026b94 4e 4f |NO | TRAP #15
00026b96 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0
00026b9a 11 bc 00 2c 08 00 | , | MOVE.B #0x2c,(A0+D0.L)
00026ba0 52 87 |R | ADDQ.L #0x1,D7
00026ba2 52 86 |R | ADDQ.L #0x1,D6
00026ba4 68 00 ff 6c |h l | BVC 0x26b12
00026ba8 50 4f |PO | ADDQ.L #0x8,A7
00026baa 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00026bae 4e 5e |N^ | UNLK A6
00026bb0 4e 75 |Nu | RTS
00026bb2 ; --------------------------------------------------------------------------------------
00026bb2 ; OMSI PASCAL Function
00026bb2 ; <LVAR 0x008 4(r)>
00026bb2 ; <LVAR -0x00c 4(rw)>
00026bb2 ; --------------------------------------------------------------------------------------
00026bb2 4e 56 ff a0 |NV | LINK.W A6,#0xffa0
00026bb6 bf d5 | | CMPA.L (A5),A7
00026bb8 62 06 |b | BHI 0x26bc0
00026bba 44 fc 00 02 |D | MOVE.W #0x2,CCR
00026bbe 4e 76 |Nv | TRAPV
00026bc0 de fc 00 54 | T | ADDA.W #0x54,A7
00026bc4 48 e7 e1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7)
00026bc8 47 f9 00 02 bb c0 |G | LEA.L 0x2bbc0,A3
00026bce 74 01 |t | MOVEQ.L #0x01,D2
00026bd0 59 4f |YO | SUBQ.L #0x4,A7
00026bd2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00026bd6 48 78 00 01 |Hx | PEA.L 0x1
00026bda 4e ba f7 e2 |N | JSR 0x263be
00026bde 50 4f |PO | ADDQ.L #0x8,A7
00026be0 28 5f |(_ | MOVEA.L (A7)+,A4
00026be2 9e fc 00 22 | " | SUBA.W #0x22,A7
00026be6 2f 0c |/ | MOVE.L A4,-(A7)
00026be8 4e ba fb b8 |N | JSR 0x267a2
00026bec 58 4f |XO | ADDQ.L #0x4,A7
00026bee 4e ba fc 34 |N 4 | JSR 0x26824
00026bf2 de fc 00 1e | | ADDA.W #0x1e,A7
00026bf6 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc)
00026bfa 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0
00026bfe b0 c2 | | CMPA.W D2,A0
00026c00 66 42 |fB | BNE 0x26c44
00026c02 9e fc 00 14 | | SUBA.W #0x14,A7
00026c06 22 4f |"O | MOVEA.L A7,A1
00026c08 45 fa e6 8a |E | LEA.L 0x25294,A2
00026c0c 70 12 |p | MOVEQ.L #0x12,D0
00026c0e 12 da | | MOVE.B (A2)+,(A1)+
00026c10 51 c8 ff fc |Q | DBF D0,0x26c0e
00026c14 51 4f |QO | SUBQ.L #0x8,A7
00026c16 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00026c1a 3f 02 |? | MOVE.W D2,-(A7)
00026c1c 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
00026c20 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00026c26 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
00026c2a 48 78 00 01 |Hx | PEA.L 0x1
00026c2e 4e ba f7 8e |N | JSR 0x263be
00026c32 50 4f |PO | ADDQ.L #0x8,A7
00026c34 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00026c3a 50 4f |PO | ADDQ.L #0x8,A7
00026c3c 4e ba ea 58 |N X | JSR 0x25696
00026c40 de fc 00 18 | | ADDA.W #0x18,A7
00026c44 2f 08 |/ | MOVE.L A0,-(A7)
00026c46 2f 13 |/ | MOVE.L (A3),-(A7)
00026c48 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7)
00026c4c 44 97 |D | NEG.L (A7)
00026c4e 4e ba ef 9a |N | JSR 0x25bea
00026c52 58 4f |XO | ADDQ.L #0x4,A7
00026c54 2e a8 00 1e |. | MOVE.L (A0+0x1e),(A7)
00026c58 7e 01 |~ | MOVEQ.L #0x01,D7
00026c5a be 97 | | CMP.L (A7),D7
00026c5c 6e 38 |n8 | BGT 0x26c96
00026c5e 20 07 | | MOVE.L D7,D0
00026c60 d0 93 | | ADD.L (A3),D0
00026c62 53 80 |S | SUBQ.L #0x1,D0
00026c64 53 80 |S | SUBQ.L #0x1,D0
00026c66 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0
00026c6c 63 02 |c | BLS 0x26c70
00026c6e 4e 4f |NO | TRAP #15
00026c70 41 f9 00 02 9b b8 |A | LEA.L 0x29bb8,A0
00026c76 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1
00026c7a 22 69 00 22 |"i " | MOVEA.L (A1+0x22),A1
00026c7e 22 07 |" | MOVE.L D7,D1
00026c80 53 81 |S | SUBQ.L #0x1,D1
00026c82 0c 81 00 00 03 ff | | CMPI.L #0x000003ff,D1
00026c88 63 02 |c | BLS 0x26c8c
00026c8a 4e 4f |NO | TRAP #15
00026c8c 11 b1 18 00 08 08 | | MOVE.B (A1+D1.L),(A0+D0.L+#0x8)
00026c92 52 87 |R | ADDQ.L #0x1,D7
00026c94 68 c4 |h | BVC 0x26c5a
00026c96 50 4f |PO | ADDQ.L #0x8,A7
00026c98 4c df 1f 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4
00026c9c 4e 5e |N^ | UNLK A6
00026c9e 4e 75 |Nu | RTS
00026ca0 ; --------------------------------------------------------------------------------------
00026ca0 ; OMSI PASCAL Function
00026ca0 ; <LVAR -0x004 4(rw)>
00026ca0 ; --------------------------------------------------------------------------------------
00026ca0 4e 56 ff ae |NV | LINK.W A6,#0xffae
00026ca4 bf d5 | | CMPA.L (A5),A7
00026ca6 62 06 |b | BHI 0x26cae
00026ca8 44 fc 00 02 |D | MOVE.W #0x2,CCR
00026cac 4e 76 |Nv | TRAPV
00026cae de fc 00 4e | N | ADDA.W #0x4e,A7
00026cb2 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7)
00026cb6 47 ee ff fc |G | LEA.L (A6-0x4),A3
00026cba 72 01 |r | MOVEQ.L #0x01,D1
00026cbc 74 1e |t | MOVEQ.L #0x1e,D2
00026cbe 26 b9 00 02 bb ea |& | MOVE.L 0x2bbea,(A3)
00026cc4 20 53 | S | MOVEA.L (A3),A0
00026cc6 b0 c1 | | CMPA.W D1,A0
00026cc8 67 30 |g0 | BEQ 0x26cfa
00026cca 9e c2 | | SUBA.W D2,A7
00026ccc 22 4f |"O | MOVEA.L A7,A1
00026cce 24 48 |$H | MOVEA.L A0,A2
00026cd0 70 1d |p | MOVEQ.L #0x1d,D0
00026cd2 12 da | | MOVE.B (A2)+,(A1)+
00026cd4 51 c8 ff fc |Q | DBF D0,0x26cd2
00026cd8 59 4f |YO | SUBQ.L #0x4,A7
00026cda 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00026cde 3f 01 |? | MOVE.W D1,-(A7)
00026ce0 3f 02 |? | MOVE.W D2,-(A7)
00026ce2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00026ce8 50 4f |PO | ADDQ.L #0x8,A7
00026cea 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00026cf0 de fc 00 22 | " | ADDA.W #0x22,A7
00026cf4 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3)
00026cf8 60 ca |` | BRA 0x26cc4
00026cfa 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3
00026cfe 4e 5e |N^ | UNLK A6
00026d00 4e 75 |Nu | RTS
00026d02 ; --------------------------------------------------------------------------------------
00026d02 ; OMSI PASCAL Function
00026d02 ; <LVAR 0x008 4(r)>
00026d02 ; --------------------------------------------------------------------------------------
00026d02 4e 56 ff ce |NV | LINK.W A6,#0xffce
00026d06 bf d5 | | CMPA.L (A5),A7
00026d08 62 06 |b | BHI 0x26d10
00026d0a 44 fc 00 02 |D | MOVE.W #0x2,CCR
00026d0e 4e 76 |Nv | TRAPV
00026d10 de fc 00 32 | 2 | ADDA.W #0x32,A7
00026d14 9e fc 00 26 | & | SUBA.W #0x26,A7
00026d18 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00026d1c 48 78 00 01 |Hx | PEA.L 0x1
00026d20 4e ba f6 9c |N | JSR 0x263be
00026d24 50 4f |PO | ADDQ.L #0x8,A7
00026d26 4e ba fa 7a |N z | JSR 0x267a2
00026d2a 58 4f |XO | ADDQ.L #0x4,A7
00026d2c 4e ba fa f6 |N | JSR 0x26824
00026d30 de fc 00 1e | | ADDA.W #0x1e,A7
00026d34 4e ba fb 42 |N B | JSR 0x26878
00026d38 58 4f |XO | ADDQ.L #0x4,A7
00026d3a 4e 5e |N^ | UNLK A6
00026d3c 4e 75 |Nu | RTS
00026d3e ; --------------------------------------------------------------------------------------
00026d3e ; OMSI PASCAL Function
00026d3e ; --------------------------------------------------------------------------------------
00026d3e 4e 56 ff f4 |NV | LINK.W A6,#0xfff4
00026d42 bf d5 | | CMPA.L (A5),A7
00026d44 62 06 |b | BHI 0x26d4c
00026d46 44 fc 00 02 |D | MOVE.W #0x2,CCR
00026d4a 4e 76 |Nv | TRAPV
00026d4c de fc 00 0c | | ADDA.W #0xc,A7
00026d50 51 4f |QO | SUBQ.L #0x8,A7
00026d52 4e b9 00 01 03 cc |N | JSR GetPushLevel() : Long
00026d58 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00026d5e 58 4f |XO | ADDQ.L #0x4,A7
00026d60 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00026d66 58 4f |XO | ADDQ.L #0x4,A7
00026d68 4e 5e |N^ | UNLK A6
00026d6a 4e 75 |Nu | RTS
00026d6c ; --------------------------------------------------------------------------------------
00026d6c ; OMSI PASCAL Function
00026d6c ; <LVAR 0x008 4(r)>
00026d6c ; <LVAR -0x004 1(rw)>
00026d6c ; <LVAR -0x008 @ 4(rw)>
00026d6c ; <LVAR -0x00c @ 4(r)>
00026d6c ; <LVAR -0x010 @ 4(r)>
00026d6c ; <LVAR -0x012 @ 1(r)>
00026d6c ; <LVAR -0x013 @ 1(r)>
00026d6c ; <LVAR -0x014 @ 1(r)>
00026d6c ; <LVAR -0x024 4(rw)>
00026d6c ; <LVAR -0x028 4(rw)>
00026d6c ; <LVAR -0x02c 4(rw)>
00026d6c ; <LVAR -0x030 @ 4(r)>
00026d6c ; <LVAR -0x032 1(w)>
00026d6c ; <LVAR -0x036 @ 4(r)>
00026d6c ; <LVAR -0x038 @ 1(r)>
00026d6c ; <LVAR -0x03c @ 4(rw)>
00026d6c ; --------------------------------------------------------------------------------------
00026d6c 4e 56 ff 64 |NV d | LINK.W A6,#0xff64
00026d70 bf d5 | | CMPA.L (A5),A7
00026d72 62 06 |b | BHI 0x26d7a
00026d74 44 fc 00 02 |D | MOVE.W #0x2,CCR
00026d78 4e 76 |Nv | TRAPV
00026d7a de fc 00 60 | ` | ADDA.W #0x60,A7
00026d7e 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00026d82 45 ee ff c4 |E | LEA.L (A6-0x3c),A2
00026d86 47 ee 00 08 |G | LEA.L (A6+0x8),A3
00026d8a 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00026d90 74 01 |t | MOVEQ.L #0x01,D2
00026d92 76 14 |v | MOVEQ.L #0x14,D3
00026d94 28 3c ff ff 80 00 |(< | MOVE.L #0xffff8000,D4
00026d9a 59 4f |YO | SUBQ.L #0x4,A7
00026d9c 2f 13 |/ | MOVE.L (A3),-(A7)
00026d9e 4e ba ed 02 |N | JSR 0x25aa2
00026da2 58 4f |XO | ADDQ.L #0x4,A7
00026da4 2d 5f ff d4 |-_ | MOVE.L (A7)+,(A6-0x2c)
00026da8 66 28 |f( | BNE 0x26dd2
00026daa 59 4f |YO | SUBQ.L #0x4,A7
00026dac 1e ba e5 0c | | MOVE.B 0x252ba,(A7)
00026db0 1f 7a e5 09 00 01 | z | MOVE.B 0x252bb,(A7+0x1)
00026db6 1f 7a e5 04 00 02 | z | MOVE.B 0x252bc,(A7+0x2)
00026dbc 59 4f |YO | SUBQ.L #0x4,A7
00026dbe 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00026dc2 3f 02 |? | MOVE.W D2,-(A7)
00026dc4 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7)
00026dc8 4e 94 |N | JSR (A4)
00026dca 50 4f |PO | ADDQ.L #0x8,A7
00026dcc 24 9f |$ | MOVE.L (A7)+,(A2)
00026dce 58 4f |XO | ADDQ.L #0x4,A7
00026dd0 60 10 |` | BRA 0x26de2
00026dd2 59 4f |YO | SUBQ.L #0x4,A7
00026dd4 2f 13 |/ | MOVE.L (A3),-(A7)
00026dd6 48 78 00 01 |Hx | PEA.L 0x1
00026dda 4e ba f5 e2 |N | JSR 0x263be
00026dde 50 4f |PO | ADDQ.L #0x8,A7
00026de0 24 9f |$ | MOVE.L (A7)+,(A2)
00026de2 5d 4f |]O | SUBQ.L #0x6,A7
00026de4 20 4f | O | MOVEA.L A7,A0
00026de6 43 fa e4 d6 |C | LEA.L 0x252be,A1
00026dea 70 04 |p | MOVEQ.L #0x04,D0
00026dec 10 d9 | | MOVE.B (A1)+,(A0)+
00026dee 51 c8 ff fc |Q | DBF D0,0x26dec
00026df2 59 4f |YO | SUBQ.L #0x4,A7
00026df4 2f 12 |/ | MOVE.L (A2),-(A7)
00026df6 59 4f |YO | SUBQ.L #0x4,A7
00026df8 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00026dfc 3f 02 |? | MOVE.W D2,-(A7)
00026dfe 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00026e02 4e 94 |N | JSR (A4)
00026e04 50 4f |PO | ADDQ.L #0x8,A7
00026e06 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00026e0c 50 4f |PO | ADDQ.L #0x8,A7
00026e0e 24 9f |$ | MOVE.L (A7)+,(A2)
00026e10 54 4f |TO | ADDQ.L #0x2,A7
00026e12 2e 92 |. | MOVE.L (A2),(A7)
00026e14 42 27 |B' | CLR.B -(A7)
00026e16 1f 02 | | MOVE.B D2,-(A7)
00026e18 48 78 00 00 |Hx | PEA.L 0x0
00026e1c 48 6e ff c8 |Hn | PEA.L (A6-0x38)
00026e20 48 6e ff ca |Hn | PEA.L (A6-0x36)
00026e24 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00026e2a de c3 | | ADDA.W D3,A7
00026e2c 4a 2e ff c8 |J. | TST.B (A6-0x38)
00026e30 67 0e |g | BEQ 0x26e40
00026e32 48 52 |HR | PEA.L (A2)
00026e34 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00026e3a 58 4f |XO | ADDQ.L #0x4,A7
00026e3c 60 00 02 4e |` N | BRA 0x2708c
00026e40 20 6e ff ca | n | MOVEA.L (A6-0x36),A0
00026e44 10 28 00 3f | ( ? | MOVE.B (A0+0x3f),D0
00026e48 ed 08 | | LSL.B #0x6,D0
00026e4a ee 08 | | LSR.B #0x7,D0
00026e4c 1d 40 ff ce | @ | MOVE.B D0,(A6-0x32)
00026e50 42 27 |B' | CLR.B -(A7)
00026e52 1f 02 | | MOVE.B D2,-(A7)
00026e54 48 78 00 01 |Hx | PEA.L 0x1
00026e58 48 6e ff c8 |Hn | PEA.L (A6-0x38)
00026e5c 48 6e ff ca |Hn | PEA.L (A6-0x36)
00026e60 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
00026e66 de fc 00 10 | | ADDA.W #0x10,A7
00026e6a 20 52 | R | MOVEA.L (A2),A0
00026e6c 32 10 |2 | MOVE.W (A0),D1
00026e6e 48 c1 |H | EXTW.L D1
00026e70 5b 81 |[ | SUBQ.L #0x5,D1
00026e72 92 84 | | SUB.L D4,D1
00026e74 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1
00026e7a 63 02 |c | BLS 0x26e7e
00026e7c 4e 4f |NO | TRAP #15
00026e7e d2 84 | | ADD.L D4,D1
00026e80 30 81 |0 | MOVE.W D1,(A0)
00026e82 4a 00 |J | TST.B D0
00026e84 66 36 |f6 | BNE 0x26ebc
00026e86 41 fa e4 32 |A 2 | LEA.L 0x252ba,A0
00026e8a 70 08 |p | MOVEQ.L #0x08,D0
00026e8c 3f 20 |? | MOVE.W -(A0),-(A7)
00026e8e 51 c8 ff fc |Q | DBF D0,0x26e8c
00026e92 59 4f |YO | SUBQ.L #0x4,A7
00026e94 2f 12 |/ | MOVE.L (A2),-(A7)
00026e96 59 4f |YO | SUBQ.L #0x4,A7
00026e98 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00026e9c 3f 02 |? | MOVE.W D2,-(A7)
00026e9e 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00026ea2 4e 94 |N | JSR (A4)
00026ea4 50 4f |PO | ADDQ.L #0x8,A7
00026ea6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00026eac 50 4f |PO | ADDQ.L #0x8,A7
00026eae 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00026eb4 de fc 00 16 | | ADDA.W #0x16,A7
00026eb8 60 00 01 d2 |` | BRA 0x2708c
00026ebc 48 6e ff d0 |Hn | PEA.L (A6-0x30)
00026ec0 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00026ec6 58 4f |XO | ADDQ.L #0x4,A7
00026ec8 20 6e ff d0 | n | MOVEA.L (A6-0x30),A0
00026ecc 2f 08 |/ | MOVE.L A0,-(A7)
00026ece 7e 01 |~ | MOVEQ.L #0x01,D7
00026ed0 2f 2e ff d4 |/. | MOVE.L (A6-0x2c),-(A7)
00026ed4 7a 02 |z | MOVEQ.L #0x02,D5
00026ed6 ba 97 | | CMP.L (A7),D5
00026ed8 6e 00 00 94 |n | BGT 0x26f6e
00026edc 51 4f |QO | SUBQ.L #0x8,A7
00026ede 2f 13 |/ | MOVE.L (A3),-(A7)
00026ee0 2f 05 |/ | MOVE.L D5,-(A7)
00026ee2 4e ba f3 fc |N | JSR 0x262e0
00026ee6 50 4f |PO | ADDQ.L #0x8,A7
00026ee8 2d 5f ff d8 |-_ | MOVE.L (A7)+,(A6-0x28)
00026eec 2d 5f ff dc |-_ | MOVE.L (A7)+,(A6-0x24)
00026ef0 2f 2e ff dc |/. | MOVE.L (A6-0x24),-(A7)
00026ef4 2c 2e ff d8 |,. | MOVE.L (A6-0x28),D6
00026ef8 bc 97 | | CMP.L (A7),D6
00026efa 6e 14 |n | BGT 0x26f10
00026efc 20 17 | | MOVE.L (A7),D0
00026efe 0c 86 80 00 00 01 | | CMPI.L #0x80000001,D6
00026f04 6d 08 |m | BLT 0x26f0e
00026f06 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0
00026f0c 6f 02 |o | BLE 0x26f10
00026f0e 4e 4f |NO | TRAP #15
00026f10 bc 97 | | CMP.L (A7),D6
00026f12 6e 32 |n2 | BGT 0x26f46
00026f14 20 07 | | MOVE.L D7,D0
00026f16 53 80 |S | SUBQ.L #0x1,D0
00026f18 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0
00026f1e 63 02 |c | BLS 0x26f22
00026f20 4e 4f |NO | TRAP #15
00026f22 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0
00026f26 22 06 |" | MOVE.L D6,D1
00026f28 53 81 |S | SUBQ.L #0x1,D1
00026f2a 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1
00026f30 63 02 |c | BLS 0x26f34
00026f32 4e 4f |NO | TRAP #15
00026f34 43 f9 00 02 9b b8 |C | LEA.L 0x29bb8,A1
00026f3a 11 b1 18 08 08 02 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2)
00026f40 52 87 |R | ADDQ.L #0x1,D7
00026f42 52 86 |R | ADDQ.L #0x1,D6
00026f44 68 ca |h | BVC 0x26f10
00026f46 58 4f |XO | ADDQ.L #0x4,A7
00026f48 ba ae ff d4 | | CMP.L (A6-0x2c),D5
00026f4c 67 1a |g | BEQ 0x26f68
00026f4e 20 07 | | MOVE.L D7,D0
00026f50 53 80 |S | SUBQ.L #0x1,D0
00026f52 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0
00026f58 63 02 |c | BLS 0x26f5c
00026f5a 4e 4f |NO | TRAP #15
00026f5c 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0
00026f60 11 bc 00 2c 08 02 | , | MOVE.B #0x2c,(A0+D0.L+#0x2)
00026f66 52 87 |R | ADDQ.L #0x1,D7
00026f68 52 85 |R | ADDQ.L #0x1,D5
00026f6a 68 00 ff 6a |h j | BVC 0x26ed6
00026f6e 58 4f |XO | ADDQ.L #0x4,A7
00026f70 20 57 | W | MOVEA.L (A7),A0
00026f72 20 07 | | MOVE.L D7,D0
00026f74 53 80 |S | SUBQ.L #0x1,D0
00026f76 90 84 | | SUB.L D4,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 d0 84 | | ADD.L D4,D0
00026f84 30 80 |0 | MOVE.W D0,(A0)
00026f86 54 4f |TO | ADDQ.L #0x2,A7
00026f88 3e ba e3 3e |> > | MOVE.W 0x252c8,(A7)
00026f8c 3f 3a e3 38 |?: 8 | MOVE.W 0x252c6,-(A7)
00026f90 3f 3a e3 32 |?: 2 | MOVE.W 0x252c4,-(A7)
00026f94 59 4f |YO | SUBQ.L #0x4,A7
00026f96 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00026f9a 3f 02 |? | MOVE.W D2,-(A7)
00026f9c 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
00026fa0 4e 94 |N | JSR (A4)
00026fa2 50 4f |PO | ADDQ.L #0x8,A7
00026fa4 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8)
00026fa8 54 4f |TO | ADDQ.L #0x2,A7
00026faa 2e 93 |. | MOVE.L (A3),(A7)
00026fac 48 78 00 00 |Hx | PEA.L 0x0
00026fb0 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7)
00026fb4 48 6e ff f0 |Hn | PEA.L (A6-0x10)
00026fb8 48 6e ff ed |Hn | PEA.L (A6-0x13)
00026fbc 4e b9 00 02 88 f6 |N | JSR 0x288f6
00026fc2 de c3 | | ADDA.W D3,A7
00026fc4 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00026fc8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00026fce 54 4f |TO | ADDQ.L #0x2,A7
00026fd0 3e ba e2 fc |> | MOVE.W 0x252ce,(A7)
00026fd4 3f 3a e2 f6 |?: | MOVE.W 0x252cc,-(A7)
00026fd8 3f 3a e2 f0 |?: | MOVE.W 0x252ca,-(A7)
00026fdc 59 4f |YO | SUBQ.L #0x4,A7
00026fde 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00026fe2 3f 02 |? | MOVE.W D2,-(A7)
00026fe4 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
00026fe8 4e 94 |N | JSR (A4)
00026fea 50 4f |PO | ADDQ.L #0x8,A7
00026fec 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8)
00026ff0 54 4f |TO | ADDQ.L #0x2,A7
00026ff2 2e 93 |. | MOVE.L (A3),(A7)
00026ff4 48 78 00 00 |Hx | PEA.L 0x0
00026ff8 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7)
00026ffc 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00027000 48 6e ff ee |Hn | PEA.L (A6-0x12)
00027004 4e b9 00 02 88 f6 |N | JSR 0x288f6
0002700a de c3 | | ADDA.W D3,A7
0002700c 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00027010 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00027016 58 4f |XO | ADDQ.L #0x4,A7
00027018 4a 2e ff ed |J. | TST.B (A6-0x13)
0002701c 66 06 |f | BNE 0x27024
0002701e 4a 2e ff ee |J. | TST.B (A6-0x12)
00027022 67 06 |g | BEQ 0x2702a
00027024 42 2e ff fc |B. | CLR.B (A6-0x4)
00027028 60 04 |` | BRA 0x2702e
0002702a 1d 42 ff fc | B | MOVE.B D2,(A6-0x4)
0002702e 2f 12 |/ | MOVE.L (A2),-(A7)
00027030 2f 2e ff d0 |/. | MOVE.L (A6-0x30),-(A7)
00027034 10 2e ff fc | . | MOVE.B (A6-0x4),D0
00027038 48 80 |H | EXTB.W D0
0002703a 41 bc 00 02 |A | CHK.W #0x2,D0
0002703e 1f 00 | | MOVE.B D0,-(A7)
00027040 48 6e ff ec |Hn | PEA.L (A6-0x14)
00027044 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
0002704a de fc 00 0e | | ADDA.W #0xe,A7
0002704e 4a 2e ff ed |J. | TST.B (A6-0x13)
00027052 67 20 |g | BEQ 0x27074
00027054 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
00027058 59 4f |YO | SUBQ.L #0x4,A7
0002705a 10 2e ff ec | . | MOVE.B (A6-0x14),D0
0002705e 48 80 |H | EXTB.W D0
00027060 41 bc 00 0e |A | CHK.W #0xe,D0
00027064 1f 00 | | MOVE.B D0,-(A7)
00027066 4e b9 00 01 03 c0 |N | JSR ExpErrMsg(a: Byte) : String
0002706c 54 4f |TO | ADDQ.L #0x2,A7
0002706e 4e ba f9 4c |N L | JSR 0x269bc
00027072 50 4f |PO | ADDQ.L #0x8,A7
00027074 4a 2e ff ee |J. | TST.B (A6-0x12)
00027078 67 12 |g | BEQ 0x2708c
0002707a 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
0002707e 59 4f |YO | SUBQ.L #0x4,A7
00027080 4e b9 00 01 03 c8 |N | JSR FSCALL_103c8
00027086 4e ba f9 34 |N 4 | JSR 0x269bc
0002708a 50 4f |PO | ADDQ.L #0x8,A7
0002708c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00027090 4e 5e |N^ | UNLK A6
00027092 4e 75 |Nu | RTS
00027094 ; --------------------------------------------------------------------------------------
00027094 ; OMSI PASCAL Function
00027094 ; <LVAR 0x008 4(r)>
00027094 ; <LVAR -0x004 @ 4(rw)>
00027094 ; <LVAR -0x008 @ 4(rw)>
00027094 ; --------------------------------------------------------------------------------------
00027094 4e 56 ff e0 |NV | LINK.W A6,#0xffe0
00027098 bf d5 | | CMPA.L (A5),A7
0002709a 62 06 |b | BHI 0x270a2
0002709c 44 fc 00 02 |D | MOVE.W #0x2,CCR
000270a0 4e 76 |Nv | TRAPV
000270a2 de fc 00 18 | | ADDA.W #0x18,A7
000270a6 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7)
000270aa 41 ee ff f8 |A | LEA.L (A6-0x8),A0
000270ae 43 ee ff fc |C | LEA.L (A6-0x4),A1
000270b2 59 4f |YO | SUBQ.L #0x4,A7
000270b4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000270b8 48 78 00 01 |Hx | PEA.L 0x1
000270bc 4e ba f3 00 |N | JSR 0x263be
000270c0 50 4f |PO | ADDQ.L #0x8,A7
000270c2 20 97 | | MOVE.L (A7),(A0)
000270c4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000270c8 48 78 00 02 |Hx | PEA.L 0x2
000270cc 4e ba f2 f0 |N | JSR 0x263be
000270d0 50 4f |PO | ADDQ.L #0x8,A7
000270d2 22 97 |" | MOVE.L (A7),(A1)
000270d4 54 4f |TO | ADDQ.L #0x2,A7
000270d6 2f 10 |/ | MOVE.L (A0),-(A7)
000270d8 2f 11 |/ | MOVE.L (A1),-(A7)
000270da 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
000270e0 50 4f |PO | ADDQ.L #0x8,A7
000270e2 4a 1f |J | TST.B (A7)+
000270e4 67 06 |g | BEQ 0x270ec
000270e6 4e ba ed 96 |N | JSR 0x25e7e
000270ea 60 04 |` | BRA 0x270f0
000270ec 4e ba ed d6 |N | JSR 0x25ec4
000270f0 48 51 |HQ | PEA.L (A1)
000270f2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
000270f8 58 4f |XO | ADDQ.L #0x4,A7
000270fa 48 50 |HP | PEA.L (A0)
000270fc 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00027102 58 4f |XO | ADDQ.L #0x4,A7
00027104 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1
00027108 4e 5e |N^ | UNLK A6
0002710a 4e 75 |Nu | RTS
0002710c ; --------------------------------------------------------------------------------------
0002710c ; OMSI PASCAL Function
0002710c ; <LVAR 0x008 4(r)>
0002710c ; <LVAR -0x004 @ 4(rw)>
0002710c ; <LVAR -0x008 @ 4(rw)>
0002710c ; --------------------------------------------------------------------------------------
0002710c 4e 56 ff e0 |NV | LINK.W A6,#0xffe0
00027110 bf d5 | | CMPA.L (A5),A7
00027112 62 06 |b | BHI 0x2711a
00027114 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027118 4e 76 |Nv | TRAPV
0002711a de fc 00 18 | | ADDA.W #0x18,A7
0002711e 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7)
00027122 41 ee ff f8 |A | LEA.L (A6-0x8),A0
00027126 43 ee ff fc |C | LEA.L (A6-0x4),A1
0002712a 59 4f |YO | SUBQ.L #0x4,A7
0002712c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027130 48 78 00 01 |Hx | PEA.L 0x1
00027134 4e ba f2 88 |N | JSR 0x263be
00027138 50 4f |PO | ADDQ.L #0x8,A7
0002713a 20 97 | | MOVE.L (A7),(A0)
0002713c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027140 48 78 00 02 |Hx | PEA.L 0x2
00027144 4e ba f2 78 |N x | JSR 0x263be
00027148 50 4f |PO | ADDQ.L #0x8,A7
0002714a 22 97 |" | MOVE.L (A7),(A1)
0002714c 54 4f |TO | ADDQ.L #0x2,A7
0002714e 2f 10 |/ | MOVE.L (A0),-(A7)
00027150 2f 11 |/ | MOVE.L (A1),-(A7)
00027152 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
00027158 50 4f |PO | ADDQ.L #0x8,A7
0002715a 4a 1f |J | TST.B (A7)+
0002715c 66 06 |f | BNE 0x27164
0002715e 4e ba ed 1e |N | JSR 0x25e7e
00027162 60 04 |` | BRA 0x27168
00027164 4e ba ed 5e |N ^ | JSR 0x25ec4
00027168 48 51 |HQ | PEA.L (A1)
0002716a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00027170 58 4f |XO | ADDQ.L #0x4,A7
00027172 48 50 |HP | PEA.L (A0)
00027174 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
0002717a 58 4f |XO | ADDQ.L #0x4,A7
0002717c 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1
00027180 4e 5e |N^ | UNLK A6
00027182 4e 75 |Nu | RTS
00027184 ; --------------------------------------------------------------------------------------
00027184 ; OMSI PASCAL Function
00027184 ; <LVAR 0x008 4(r)>
00027184 ; --------------------------------------------------------------------------------------
00027184 4e 56 ff f0 |NV | LINK.W A6,#0xfff0
00027188 bf d5 | | CMPA.L (A5),A7
0002718a 62 06 |b | BHI 0x27192
0002718c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027190 4e 76 |Nv | TRAPV
00027192 de fc 00 10 | | ADDA.W #0x10,A7
00027196 59 4f |YO | SUBQ.L #0x4,A7
00027198 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002719c 48 78 00 01 |Hx | PEA.L 0x1
000271a0 4e ba f2 1c |N | JSR 0x263be
000271a4 50 4f |PO | ADDQ.L #0x8,A7
000271a6 4e ba f0 0e |N | JSR 0x261b6
000271aa 58 4f |XO | ADDQ.L #0x4,A7
000271ac 4e 5e |N^ | UNLK A6
000271ae 4e 75 |Nu | RTS
000271b0 ; --------------------------------------------------------------------------------------
000271b0 ; OMSI PASCAL Function
000271b0 ; <LVAR 0x008 4(r)>
000271b0 ; <LVAR -0x014 @ 4(rw)>
000271b0 ; --------------------------------------------------------------------------------------
000271b0 4e 56 ff 90 |NV | LINK.W A6,#0xff90
000271b4 bf d5 | | CMPA.L (A5),A7
000271b6 62 06 |b | BHI 0x271be
000271b8 44 fc 00 02 |D | MOVE.W #0x2,CCR
000271bc 4e 76 |Nv | TRAPV
000271be de fc 00 5c | \ | ADDA.W #0x5c,A7
000271c2 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
000271c6 45 ee 00 08 |E | LEA.L (A6+0x8),A2
000271ca 47 ee ff ec |G | LEA.L (A6-0x14),A3
000271ce 74 7d |t} | MOVEQ.L #0x7d,D2
000271d0 59 4f |YO | SUBQ.L #0x4,A7
000271d2 2f 12 |/ | MOVE.L (A2),-(A7)
000271d4 48 78 00 01 |Hx | PEA.L 0x1
000271d8 4e ba f1 e4 |N | JSR 0x263be
000271dc 50 4f |PO | ADDQ.L #0x8,A7
000271de 26 97 |& | MOVE.L (A7),(A3)
000271e0 2f 12 |/ | MOVE.L (A2),-(A7)
000271e2 48 78 00 02 |Hx | PEA.L 0x2
000271e6 4e ba f1 d6 |N | JSR 0x263be
000271ea 50 4f |PO | ADDQ.L #0x8,A7
000271ec 28 5f |(_ | MOVEA.L (A7)+,A4
000271ee 9e fc 00 0c | | SUBA.W #0xc,A7
000271f2 2f 12 |/ | MOVE.L (A2),-(A7)
000271f4 48 78 00 03 |Hx | PEA.L 0x3
000271f8 4e ba f1 f6 |N | JSR 0x263f0
000271fc 50 4f |PO | ADDQ.L #0x8,A7
000271fe 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
00027204 50 4f |PO | ADDQ.L #0x8,A7
00027206 2c 17 |, | MOVE.L (A7),D6
00027208 51 4f |QO | SUBQ.L #0x8,A7
0002720a 2f 12 |/ | MOVE.L (A2),-(A7)
0002720c 48 78 00 04 |Hx | PEA.L 0x4
00027210 4e ba f1 de |N | JSR 0x263f0
00027214 50 4f |PO | ADDQ.L #0x8,A7
00027216 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
0002721c 50 4f |PO | ADDQ.L #0x8,A7
0002721e 2a 1f |* | MOVE.L (A7)+,D5
00027220 20 06 | | MOVE.L D6,D0
00027222 d0 85 | | ADD.L D5,D0
00027224 53 80 |S | SUBQ.L #0x1,D0
00027226 32 14 |2 | MOVE.W (A4),D1
00027228 48 c1 |H | EXTW.L D1
0002722a b0 81 | | CMP.L D1,D0
0002722c 6f 30 |o0 | BLE 0x2725e
0002722e 9e fc 00 20 | | SUBA.W #0x20,A7
00027232 20 4f | O | MOVEA.L A7,A0
00027234 43 fa e0 9a |C | LEA.L 0x252d0,A1
00027238 70 1e |p | MOVEQ.L #0x1e,D0
0002723a 10 d9 | | MOVE.B (A1)+,(A0)+
0002723c 51 c8 ff fc |Q | DBF D0,0x2723a
00027240 59 4f |YO | SUBQ.L #0x4,A7
00027242 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00027246 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002724a 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7)
0002724e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00027254 50 4f |PO | ADDQ.L #0x8,A7
00027256 4e ba e4 3e |N > | JSR 0x25696
0002725a de fc 00 24 | $ | ADDA.W #0x24,A7
0002725e 20 53 | S | MOVEA.L (A3),A0
00027260 2f 08 |/ | MOVE.L A0,-(A7)
00027262 30 10 |0 | MOVE.W (A0),D0
00027264 48 c0 |H | EXTW.L D0
00027266 2f 00 |/ | MOVE.L D0,-(A7)
00027268 7e 01 |~ | MOVEQ.L #0x01,D7
0002726a be 97 | | CMP.L (A7),D7
0002726c 6e 26 |n& | BGT 0x27294
0002726e 20 06 | | MOVE.L D6,D0
00027270 d0 87 | | ADD.L D7,D0
00027272 53 80 |S | SUBQ.L #0x1,D0
00027274 53 80 |S | SUBQ.L #0x1,D0
00027276 b0 82 | | CMP.L D2,D0
00027278 63 02 |c | BLS 0x2727c
0002727a 4e 4f |NO | TRAP #15
0002727c 22 07 |" | MOVE.L D7,D1
0002727e 53 81 |S | SUBQ.L #0x1,D1
00027280 b2 82 | | CMP.L D2,D1
00027282 63 02 |c | BLS 0x27286
00027284 4e 4f |NO | TRAP #15
00027286 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0
0002728a 19 b0 18 02 08 02 | | MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2)
00027290 52 87 |R | ADDQ.L #0x1,D7
00027292 68 d6 |h | BVC 0x2726a
00027294 58 4f |XO | ADDQ.L #0x4,A7
00027296 2e 8c |. | MOVE.L A4,(A7)
00027298 4e ba f1 c6 |N | JSR 0x26460
0002729c 58 4f |XO | ADDQ.L #0x4,A7
0002729e 48 53 |HS | PEA.L (A3)
000272a0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
000272a6 58 4f |XO | ADDQ.L #0x4,A7
000272a8 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
000272ac 4e 5e |N^ | UNLK A6
000272ae 4e 75 |Nu | RTS
000272b0 ; --------------------------------------------------------------------------------------
000272b0 ; OMSI PASCAL Function
000272b0 ; <LVAR 0x008 4(r)>
000272b0 ; <LVAR -0x010 @ 4(r)>
000272b0 ; <LVAR -0x014 @ 4(rw)>
000272b0 ; --------------------------------------------------------------------------------------
000272b0 4e 56 ff a8 |NV | LINK.W A6,#0xffa8
000272b4 bf d5 | | CMPA.L (A5),A7
000272b6 62 06 |b | BHI 0x272be
000272b8 44 fc 00 02 |D | MOVE.W #0x2,CCR
000272bc 4e 76 |Nv | TRAPV
000272be de fc 00 44 | D | ADDA.W #0x44,A7
000272c2 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
000272c6 45 ee ff ec |E | LEA.L (A6-0x14),A2
000272ca 47 ee ff f0 |G | LEA.L (A6-0x10),A3
000272ce 49 ee 00 08 |I | LEA.L (A6+0x8),A4
000272d2 74 7d |t} | MOVEQ.L #0x7d,D2
000272d4 59 4f |YO | SUBQ.L #0x4,A7
000272d6 2f 14 |/ | MOVE.L (A4),-(A7)
000272d8 48 78 00 01 |Hx | PEA.L 0x1
000272dc 4e ba f0 e0 |N | JSR 0x263be
000272e0 50 4f |PO | ADDQ.L #0x8,A7
000272e2 24 9f |$ | MOVE.L (A7)+,(A2)
000272e4 48 53 |HS | PEA.L (A3)
000272e6 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
000272ec 51 4f |QO | SUBQ.L #0x8,A7
000272ee 2f 14 |/ | MOVE.L (A4),-(A7)
000272f0 48 78 00 02 |Hx | PEA.L 0x2
000272f4 4e ba f0 fa |N | JSR 0x263f0
000272f8 50 4f |PO | ADDQ.L #0x8,A7
000272fa 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
00027300 50 4f |PO | ADDQ.L #0x8,A7
00027302 2a 17 |* | MOVE.L (A7),D5
00027304 51 4f |QO | SUBQ.L #0x8,A7
00027306 2f 14 |/ | MOVE.L (A4),-(A7)
00027308 48 78 00 03 |Hx | PEA.L 0x3
0002730c 4e ba f0 e2 |N | JSR 0x263f0
00027310 50 4f |PO | ADDQ.L #0x8,A7
00027312 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
00027318 50 4f |PO | ADDQ.L #0x8,A7
0002731a 2c 1f |, | MOVE.L (A7)+,D6
0002731c 20 52 | R | MOVEA.L (A2),A0
0002731e 20 05 | | MOVE.L D5,D0
00027320 d0 86 | | ADD.L D6,D0
00027322 53 80 |S | SUBQ.L #0x1,D0
00027324 32 10 |2 | MOVE.W (A0),D1
00027326 48 c1 |H | EXTW.L D1
00027328 b0 81 | | CMP.L D1,D0
0002732a 6f 06 |o | BLE 0x27332
0002732c 52 81 |R | ADDQ.L #0x1,D1
0002732e 92 85 | | SUB.L D5,D1
00027330 2c 01 |, | MOVE.L D1,D6
00027332 2f 06 |/ | MOVE.L D6,-(A7)
00027334 7e 01 |~ | MOVEQ.L #0x01,D7
00027336 be 97 | | CMP.L (A7),D7
00027338 6e 26 |n& | BGT 0x27360
0002733a 20 53 | S | MOVEA.L (A3),A0
0002733c 20 07 | | MOVE.L D7,D0
0002733e 53 80 |S | SUBQ.L #0x1,D0
00027340 b0 82 | | CMP.L D2,D0
00027342 63 02 |c | BLS 0x27346
00027344 4e 4f |NO | TRAP #15
00027346 22 52 |"R | MOVEA.L (A2),A1
00027348 22 07 |" | MOVE.L D7,D1
0002734a d2 85 | | ADD.L D5,D1
0002734c 53 81 |S | SUBQ.L #0x1,D1
0002734e 53 81 |S | SUBQ.L #0x1,D1
00027350 b2 82 | | CMP.L D2,D1
00027352 63 02 |c | BLS 0x27356
00027354 4e 4f |NO | TRAP #15
00027356 11 b1 18 02 08 02 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2)
0002735c 52 87 |R | ADDQ.L #0x1,D7
0002735e 68 d6 |h | BVC 0x27336
00027360 58 4f |XO | ADDQ.L #0x4,A7
00027362 20 53 | S | MOVEA.L (A3),A0
00027364 04 86 ff ff 80 00 | | SUBI.L #0xffff8000,D6
0002736a 0c 86 00 00 ff ff | | CMPI.L #0x0000ffff,D6
00027370 63 02 |c | BLS 0x27374
00027372 4e 4f |NO | TRAP #15
00027374 06 86 ff ff 80 00 | | ADDI.L #0xffff8000,D6
0002737a 30 86 |0 | MOVE.W D6,(A0)
0002737c 2f 13 |/ | MOVE.L (A3),-(A7)
0002737e 4e ba f0 e0 |N | JSR 0x26460
00027382 58 4f |XO | ADDQ.L #0x4,A7
00027384 48 52 |HR | PEA.L (A2)
00027386 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
0002738c 58 4f |XO | ADDQ.L #0x4,A7
0002738e 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00027392 4e 5e |N^ | UNLK A6
00027394 4e 75 |Nu | RTS
00027396 ; --------------------------------------------------------------------------------------
00027396 ; OMSI PASCAL Function
00027396 ; <LVAR 0x008 4(r)>
00027396 ; --------------------------------------------------------------------------------------
00027396 4e 56 ff ec |NV | LINK.W A6,#0xffec
0002739a bf d5 | | CMPA.L (A5),A7
0002739c 62 06 |b | BHI 0x273a4
0002739e 44 fc 00 02 |D | MOVE.W #0x2,CCR
000273a2 4e 76 |Nv | TRAPV
000273a4 de fc 00 14 | | ADDA.W #0x14,A7
000273a8 51 4f |QO | SUBQ.L #0x8,A7
000273aa 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000273ae 48 78 00 01 |Hx | PEA.L 0x1
000273b2 4e ba f0 3c |N < | JSR 0x263f0
000273b6 50 4f |PO | ADDQ.L #0x8,A7
000273b8 4e ba ee 70 |N p | JSR 0x2622a
000273bc 50 4f |PO | ADDQ.L #0x8,A7
000273be 4e 5e |N^ | UNLK A6
000273c0 4e 75 |Nu | RTS
000273c2 ; --------------------------------------------------------------------------------------
000273c2 ; OMSI PASCAL Function
000273c2 ; <LVAR 0x008 4(r)>
000273c2 ; --------------------------------------------------------------------------------------
000273c2 4e 56 ff e2 |NV | LINK.W A6,#0xffe2
000273c6 bf d5 | | CMPA.L (A5),A7
000273c8 62 06 |b | BHI 0x273d0
000273ca 44 fc 00 02 |D | MOVE.W #0x2,CCR
000273ce 4e 76 |Nv | TRAPV
000273d0 de fc 00 1e | | ADDA.W #0x1e,A7
000273d4 9e fc 00 0a | | SUBA.W #0xa,A7
000273d8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000273dc 48 78 00 01 |Hx | PEA.L 0x1
000273e0 4e ba f0 0e |N | JSR 0x263f0
000273e4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000273e8 48 78 00 02 |Hx | PEA.L 0x2
000273ec 4e ba f0 02 |N | JSR 0x263f0
000273f0 50 4f |PO | ADDQ.L #0x8,A7
000273f2 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool
000273f8 de fc 00 10 | | ADDA.W #0x10,A7
000273fc 4a 1f |J | TST.B (A7)+
000273fe 67 06 |g | BEQ 0x27406
00027400 4e ba ea 7c |N | | JSR 0x25e7e
00027404 60 04 |` | BRA 0x2740a
00027406 4e ba ea bc |N | JSR 0x25ec4
0002740a 4e 5e |N^ | UNLK A6
0002740c 4e 75 |Nu | RTS
0002740e ; --------------------------------------------------------------------------------------
0002740e ; OMSI PASCAL Function
0002740e ; <LVAR 0x008 4(r)>
0002740e ; --------------------------------------------------------------------------------------
0002740e 4e 56 ff e2 |NV | LINK.W A6,#0xffe2
00027412 bf d5 | | CMPA.L (A5),A7
00027414 62 06 |b | BHI 0x2741c
00027416 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002741a 4e 76 |Nv | TRAPV
0002741c de fc 00 1e | | ADDA.W #0x1e,A7
00027420 9e fc 00 0a | | SUBA.W #0xa,A7
00027424 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027428 48 78 00 01 |Hx | PEA.L 0x1
0002742c 4e ba ef c2 |N | JSR 0x263f0
00027430 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027434 48 78 00 02 |Hx | PEA.L 0x2
00027438 4e ba ef b6 |N | JSR 0x263f0
0002743c 50 4f |PO | ADDQ.L #0x8,A7
0002743e 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool
00027444 de fc 00 10 | | ADDA.W #0x10,A7
00027448 4a 1f |J | TST.B (A7)+
0002744a 66 06 |f | BNE 0x27452
0002744c 4e ba ea 30 |N 0 | JSR 0x25e7e
00027450 60 04 |` | BRA 0x27456
00027452 4e ba ea 70 |N p | JSR 0x25ec4
00027456 4e 5e |N^ | UNLK A6
00027458 4e 75 |Nu | RTS
0002745a ; --------------------------------------------------------------------------------------
0002745a ; OMSI PASCAL Function
0002745a ; <LVAR 0x008 4(r)>
0002745a ; --------------------------------------------------------------------------------------
0002745a 4e 56 ff e2 |NV | LINK.W A6,#0xffe2
0002745e bf d5 | | CMPA.L (A5),A7
00027460 62 06 |b | BHI 0x27468
00027462 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027466 4e 76 |Nv | TRAPV
00027468 de fc 00 1e | | ADDA.W #0x1e,A7
0002746c 9e fc 00 0a | | SUBA.W #0xa,A7
00027470 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027474 48 78 00 01 |Hx | PEA.L 0x1
00027478 4e ba ef 76 |N v | JSR 0x263f0
0002747c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027480 48 78 00 02 |Hx | PEA.L 0x2
00027484 4e ba ef 6a |N j | JSR 0x263f0
00027488 50 4f |PO | ADDQ.L #0x8,A7
0002748a 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool
00027490 de fc 00 10 | | ADDA.W #0x10,A7
00027494 4a 1f |J | TST.B (A7)+
00027496 67 06 |g | BEQ 0x2749e
00027498 4e ba e9 e4 |N | JSR 0x25e7e
0002749c 60 04 |` | BRA 0x274a2
0002749e 4e ba ea 24 |N $ | JSR 0x25ec4
000274a2 4e 5e |N^ | UNLK A6
000274a4 4e 75 |Nu | RTS
000274a6 ; --------------------------------------------------------------------------------------
000274a6 ; OMSI PASCAL Function
000274a6 ; <LVAR 0x008 4(r)>
000274a6 ; --------------------------------------------------------------------------------------
000274a6 4e 56 ff e2 |NV | LINK.W A6,#0xffe2
000274aa bf d5 | | CMPA.L (A5),A7
000274ac 62 06 |b | BHI 0x274b4
000274ae 44 fc 00 02 |D | MOVE.W #0x2,CCR
000274b2 4e 76 |Nv | TRAPV
000274b4 de fc 00 1e | | ADDA.W #0x1e,A7
000274b8 9e fc 00 0a | | SUBA.W #0xa,A7
000274bc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000274c0 48 78 00 01 |Hx | PEA.L 0x1
000274c4 4e ba ef 2a |N * | JSR 0x263f0
000274c8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000274cc 48 78 00 02 |Hx | PEA.L 0x2
000274d0 4e ba ef 1e |N | JSR 0x263f0
000274d4 50 4f |PO | ADDQ.L #0x8,A7
000274d6 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool
000274dc de fc 00 10 | | ADDA.W #0x10,A7
000274e0 4a 1f |J | TST.B (A7)+
000274e2 67 06 |g | BEQ 0x274ea
000274e4 4e ba e9 98 |N | JSR 0x25e7e
000274e8 60 04 |` | BRA 0x274ee
000274ea 4e ba e9 d8 |N | JSR 0x25ec4
000274ee 4e 5e |N^ | UNLK A6
000274f0 4e 75 |Nu | RTS
000274f2 ; --------------------------------------------------------------------------------------
000274f2 ; OMSI PASCAL Function
000274f2 ; <LVAR 0x008 4(r)>
000274f2 ; --------------------------------------------------------------------------------------
000274f2 4e 56 ff e2 |NV | LINK.W A6,#0xffe2
000274f6 bf d5 | | CMPA.L (A5),A7
000274f8 62 06 |b | BHI 0x27500
000274fa 44 fc 00 02 |D | MOVE.W #0x2,CCR
000274fe 4e 76 |Nv | TRAPV
00027500 de fc 00 1e | | ADDA.W #0x1e,A7
00027504 9e fc 00 0a | | SUBA.W #0xa,A7
00027508 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002750c 48 78 00 01 |Hx | PEA.L 0x1
00027510 4e ba ee de |N | JSR 0x263f0
00027514 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027518 48 78 00 02 |Hx | PEA.L 0x2
0002751c 4e ba ee d2 |N | JSR 0x263f0
00027520 50 4f |PO | ADDQ.L #0x8,A7
00027522 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool
00027528 de fc 00 10 | | ADDA.W #0x10,A7
0002752c 4a 1f |J | TST.B (A7)+
0002752e 66 06 |f | BNE 0x27536
00027530 4e ba e9 4c |N L | JSR 0x25e7e
00027534 60 04 |` | BRA 0x2753a
00027536 4e ba e9 8c |N | JSR 0x25ec4
0002753a 4e 5e |N^ | UNLK A6
0002753c 4e 75 |Nu | RTS
0002753e ; --------------------------------------------------------------------------------------
0002753e ; OMSI PASCAL Function
0002753e ; <LVAR 0x008 4(r)>
0002753e ; --------------------------------------------------------------------------------------
0002753e 4e 56 ff e2 |NV | LINK.W A6,#0xffe2
00027542 bf d5 | | CMPA.L (A5),A7
00027544 62 06 |b | BHI 0x2754c
00027546 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002754a 4e 76 |Nv | TRAPV
0002754c de fc 00 1e | | ADDA.W #0x1e,A7
00027550 9e fc 00 0a | | SUBA.W #0xa,A7
00027554 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027558 48 78 00 01 |Hx | PEA.L 0x1
0002755c 4e ba ee 92 |N | JSR 0x263f0
00027560 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027564 48 78 00 02 |Hx | PEA.L 0x2
00027568 4e ba ee 86 |N | JSR 0x263f0
0002756c 50 4f |PO | ADDQ.L #0x8,A7
0002756e 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool
00027574 de fc 00 10 | | ADDA.W #0x10,A7
00027578 4a 1f |J | TST.B (A7)+
0002757a 66 06 |f | BNE 0x27582
0002757c 4e ba e9 00 |N | JSR 0x25e7e
00027580 60 04 |` | BRA 0x27586
00027582 4e ba e9 40 |N @ | JSR 0x25ec4
00027586 4e 5e |N^ | UNLK A6
00027588 4e 75 |Nu | RTS
0002758a ; --------------------------------------------------------------------------------------
0002758a ; OMSI PASCAL Function
0002758a ; <LVAR 0x008 4(r)>
0002758a ; --------------------------------------------------------------------------------------
0002758a 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
0002758e bf d5 | | CMPA.L (A5),A7
00027590 62 06 |b | BHI 0x27598
00027592 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027596 4e 76 |Nv | TRAPV
00027598 de fc 00 28 | ( | ADDA.W #0x28,A7
0002759c 48 e7 80 00 |H | MOVEM.L D0,-(A7)
000275a0 70 10 |p | MOVEQ.L #0x10,D0
000275a2 9e c0 | | SUBA.W D0,A7
000275a4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000275a8 48 78 00 01 |Hx | PEA.L 0x1
000275ac 4e ba ee 42 |N B | JSR 0x263f0
000275b0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000275b4 48 78 00 02 |Hx | PEA.L 0x2
000275b8 4e ba ee 36 |N 6 | JSR 0x263f0
000275bc 50 4f |PO | ADDQ.L #0x8,A7
000275be 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad
000275c4 de c0 | | ADDA.W D0,A7
000275c6 4e ba ef 20 |N | JSR 0x264e8
000275ca 50 4f |PO | ADDQ.L #0x8,A7
000275cc 4c df 00 01 |L | MOVEM.L (A7)+,D0
000275d0 4e 5e |N^ | UNLK A6
000275d2 4e 75 |Nu | RTS
000275d4 ; --------------------------------------------------------------------------------------
000275d4 ; OMSI PASCAL Function
000275d4 ; <LVAR 0x008 4(r)>
000275d4 ; --------------------------------------------------------------------------------------
000275d4 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
000275d8 bf d5 | | CMPA.L (A5),A7
000275da 62 06 |b | BHI 0x275e2
000275dc 44 fc 00 02 |D | MOVE.W #0x2,CCR
000275e0 4e 76 |Nv | TRAPV
000275e2 de fc 00 28 | ( | ADDA.W #0x28,A7
000275e6 48 e7 80 00 |H | MOVEM.L D0,-(A7)
000275ea 70 10 |p | MOVEQ.L #0x10,D0
000275ec 9e c0 | | SUBA.W D0,A7
000275ee 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000275f2 48 78 00 01 |Hx | PEA.L 0x1
000275f6 4e ba ed f8 |N | JSR 0x263f0
000275fa 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000275fe 48 78 00 02 |Hx | PEA.L 0x2
00027602 4e ba ed ec |N | JSR 0x263f0
00027606 50 4f |PO | ADDQ.L #0x8,A7
00027608 4e b9 00 01 03 18 |N | JSR Subtract(a, b : Quad) : Quad
0002760e de c0 | | ADDA.W D0,A7
00027610 4e ba ee d6 |N | JSR 0x264e8
00027614 50 4f |PO | ADDQ.L #0x8,A7
00027616 4c df 00 01 |L | MOVEM.L (A7)+,D0
0002761a 4e 5e |N^ | UNLK A6
0002761c 4e 75 |Nu | RTS
0002761e ; --------------------------------------------------------------------------------------
0002761e ; OMSI PASCAL Function
0002761e ; <LVAR 0x008 4(r)>
0002761e ; --------------------------------------------------------------------------------------
0002761e 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
00027622 bf d5 | | CMPA.L (A5),A7
00027624 62 06 |b | BHI 0x2762c
00027626 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002762a 4e 76 |Nv | TRAPV
0002762c de fc 00 28 | ( | ADDA.W #0x28,A7
00027630 48 e7 80 00 |H | MOVEM.L D0,-(A7)
00027634 70 10 |p | MOVEQ.L #0x10,D0
00027636 9e c0 | | SUBA.W D0,A7
00027638 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002763c 48 78 00 01 |Hx | PEA.L 0x1
00027640 4e ba ed ae |N | JSR 0x263f0
00027644 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027648 48 78 00 02 |Hx | PEA.L 0x2
0002764c 4e ba ed a2 |N | JSR 0x263f0
00027650 50 4f |PO | ADDQ.L #0x8,A7
00027652 4e b9 00 01 03 1c |N | JSR Multiply(a, b : Quad) : Quad
00027658 de c0 | | ADDA.W D0,A7
0002765a 4e ba ee 8c |N | JSR 0x264e8
0002765e 50 4f |PO | ADDQ.L #0x8,A7
00027660 4c df 00 01 |L | MOVEM.L (A7)+,D0
00027664 4e 5e |N^ | UNLK A6
00027666 4e 75 |Nu | RTS
00027668 ; --------------------------------------------------------------------------------------
00027668 ; OMSI PASCAL Function
00027668 ; <LVAR 0x008 4(r)>
00027668 ; --------------------------------------------------------------------------------------
00027668 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
0002766c bf d5 | | CMPA.L (A5),A7
0002766e 62 06 |b | BHI 0x27676
00027670 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027674 4e 76 |Nv | TRAPV
00027676 de fc 00 28 | ( | ADDA.W #0x28,A7
0002767a 48 e7 80 00 |H | MOVEM.L D0,-(A7)
0002767e 70 10 |p | MOVEQ.L #0x10,D0
00027680 9e c0 | | SUBA.W D0,A7
00027682 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027686 48 78 00 01 |Hx | PEA.L 0x1
0002768a 4e ba ed 64 |N d | JSR 0x263f0
0002768e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027692 48 78 00 02 |Hx | PEA.L 0x2
00027696 4e ba ed 58 |N X | JSR 0x263f0
0002769a 50 4f |PO | ADDQ.L #0x8,A7
0002769c 4e b9 00 01 03 20 |N | JSR Divide(a, b : Quad) : Quad
000276a2 de c0 | | ADDA.W D0,A7
000276a4 4e ba ee 42 |N B | JSR 0x264e8
000276a8 50 4f |PO | ADDQ.L #0x8,A7
000276aa 4c df 00 01 |L | MOVEM.L (A7)+,D0
000276ae 4e 5e |N^ | UNLK A6
000276b0 4e 75 |Nu | RTS
000276b2 ; --------------------------------------------------------------------------------------
000276b2 ; OMSI PASCAL Function
000276b2 ; <LVAR 0x008 4(r)>
000276b2 ; --------------------------------------------------------------------------------------
000276b2 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
000276b6 bf d5 | | CMPA.L (A5),A7
000276b8 62 06 |b | BHI 0x276c0
000276ba 44 fc 00 02 |D | MOVE.W #0x2,CCR
000276be 4e 76 |Nv | TRAPV
000276c0 de fc 00 28 | ( | ADDA.W #0x28,A7
000276c4 48 e7 80 00 |H | MOVEM.L D0,-(A7)
000276c8 70 10 |p | MOVEQ.L #0x10,D0
000276ca 9e c0 | | SUBA.W D0,A7
000276cc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000276d0 48 78 00 01 |Hx | PEA.L 0x1
000276d4 4e ba ed 1a |N | JSR 0x263f0
000276d8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000276dc 48 78 00 02 |Hx | PEA.L 0x2
000276e0 4e ba ed 0e |N | JSR 0x263f0
000276e4 50 4f |PO | ADDQ.L #0x8,A7
000276e6 4e b9 00 01 03 58 |N X | JSR Modulus(a, b : Quad) : Quad
000276ec de c0 | | ADDA.W D0,A7
000276ee 4e ba ed f8 |N | JSR 0x264e8
000276f2 50 4f |PO | ADDQ.L #0x8,A7
000276f4 4c df 00 01 |L | MOVEM.L (A7)+,D0
000276f8 4e 5e |N^ | UNLK A6
000276fa 4e 75 |Nu | RTS
000276fc ; --------------------------------------------------------------------------------------
000276fc ; OMSI PASCAL Function
000276fc ; <LVAR 0x008 4(r)>
000276fc ; --------------------------------------------------------------------------------------
000276fc 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
00027700 bf d5 | | CMPA.L (A5),A7
00027702 62 06 |b | BHI 0x2770a
00027704 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027708 4e 76 |Nv | TRAPV
0002770a de fc 00 28 | ( | ADDA.W #0x28,A7
0002770e 48 e7 80 00 |H | MOVEM.L D0,-(A7)
00027712 70 10 |p | MOVEQ.L #0x10,D0
00027714 9e c0 | | SUBA.W D0,A7
00027716 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002771a 48 78 00 01 |Hx | PEA.L 0x1
0002771e 4e ba ec d0 |N | JSR 0x263f0
00027722 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027726 48 78 00 02 |Hx | PEA.L 0x2
0002772a 4e ba ec c4 |N | JSR 0x263f0
0002772e 50 4f |PO | ADDQ.L #0x8,A7
00027730 4e b9 00 01 03 34 |N 4 | JSR BitOr(a, b : Quad) : Quad
00027736 de c0 | | ADDA.W D0,A7
00027738 4e ba ed ae |N | JSR 0x264e8
0002773c 50 4f |PO | ADDQ.L #0x8,A7
0002773e 4c df 00 01 |L | MOVEM.L (A7)+,D0
00027742 4e 5e |N^ | UNLK A6
00027744 4e 75 |Nu | RTS
00027746 ; --------------------------------------------------------------------------------------
00027746 ; OMSI PASCAL Function
00027746 ; <LVAR 0x008 4(r)>
00027746 ; --------------------------------------------------------------------------------------
00027746 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
0002774a bf d5 | | CMPA.L (A5),A7
0002774c 62 06 |b | BHI 0x27754
0002774e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027752 4e 76 |Nv | TRAPV
00027754 de fc 00 28 | ( | ADDA.W #0x28,A7
00027758 48 e7 80 00 |H | MOVEM.L D0,-(A7)
0002775c 70 10 |p | MOVEQ.L #0x10,D0
0002775e 9e c0 | | SUBA.W D0,A7
00027760 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027764 48 78 00 01 |Hx | PEA.L 0x1
00027768 4e ba ec 86 |N | JSR 0x263f0
0002776c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027770 48 78 00 02 |Hx | PEA.L 0x2
00027774 4e ba ec 7a |N z | JSR 0x263f0
00027778 50 4f |PO | ADDQ.L #0x8,A7
0002777a 4e b9 00 01 03 30 |N 0 | JSR BitAnd(a, b : Quad) : Quad
00027780 de c0 | | ADDA.W D0,A7
00027782 4e ba ed 64 |N d | JSR 0x264e8
00027786 50 4f |PO | ADDQ.L #0x8,A7
00027788 4c df 00 01 |L | MOVEM.L (A7)+,D0
0002778c 4e 5e |N^ | UNLK A6
0002778e 4e 75 |Nu | RTS
00027790 ; --------------------------------------------------------------------------------------
00027790 ; OMSI PASCAL Function
00027790 ; <LVAR 0x008 4(r)>
00027790 ; --------------------------------------------------------------------------------------
00027790 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
00027794 bf d5 | | CMPA.L (A5),A7
00027796 62 06 |b | BHI 0x2779e
00027798 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002779c 4e 76 |Nv | TRAPV
0002779e de fc 00 28 | ( | ADDA.W #0x28,A7
000277a2 48 e7 80 00 |H | MOVEM.L D0,-(A7)
000277a6 70 10 |p | MOVEQ.L #0x10,D0
000277a8 9e c0 | | SUBA.W D0,A7
000277aa 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000277ae 48 78 00 01 |Hx | PEA.L 0x1
000277b2 4e ba ec 3c |N < | JSR 0x263f0
000277b6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000277ba 48 78 00 02 |Hx | PEA.L 0x2
000277be 4e ba ec 30 |N 0 | JSR 0x263f0
000277c2 50 4f |PO | ADDQ.L #0x8,A7
000277c4 4e b9 00 01 03 40 |N @ | JSR BitXor(a, b : Quad) : Quad
000277ca de c0 | | ADDA.W D0,A7
000277cc 4e ba ed 1a |N | JSR 0x264e8
000277d0 50 4f |PO | ADDQ.L #0x8,A7
000277d2 4c df 00 01 |L | MOVEM.L (A7)+,D0
000277d6 4e 5e |N^ | UNLK A6
000277d8 4e 75 |Nu | RTS
000277da ; --------------------------------------------------------------------------------------
000277da ; OMSI PASCAL Function
000277da ; <LVAR 0x008 4(r)>
000277da ; --------------------------------------------------------------------------------------
000277da 4e 56 ff e0 |NV | LINK.W A6,#0xffe0
000277de bf d5 | | CMPA.L (A5),A7
000277e0 62 06 |b | BHI 0x277e8
000277e2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000277e6 4e 76 |Nv | TRAPV
000277e8 de fc 00 20 | | ADDA.W #0x20,A7
000277ec 9e fc 00 10 | | SUBA.W #0x10,A7
000277f0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000277f4 48 78 00 01 |Hx | PEA.L 0x1
000277f8 4e ba eb f6 |N | JSR 0x263f0
000277fc 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
00027800 48 78 00 02 |Hx | PEA.L 0x2
00027804 4e ba ec 26 |N & | JSR 0x2642c
00027808 50 4f |PO | ADDQ.L #0x8,A7
0002780a 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad
00027810 de fc 00 0c | | ADDA.W #0xc,A7
00027814 4e ba ec d2 |N | JSR 0x264e8
00027818 50 4f |PO | ADDQ.L #0x8,A7
0002781a 4e 5e |N^ | UNLK A6
0002781c 4e 75 |Nu | RTS
0002781e ; --------------------------------------------------------------------------------------
0002781e ; OMSI PASCAL Function
0002781e ; <LVAR 0x008 4(r)>
0002781e ; --------------------------------------------------------------------------------------
0002781e 4e 56 ff e0 |NV | LINK.W A6,#0xffe0
00027822 bf d5 | | CMPA.L (A5),A7
00027824 62 06 |b | BHI 0x2782c
00027826 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002782a 4e 76 |Nv | TRAPV
0002782c de fc 00 20 | | ADDA.W #0x20,A7
00027830 9e fc 00 10 | | SUBA.W #0x10,A7
00027834 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027838 48 78 00 01 |Hx | PEA.L 0x1
0002783c 4e ba eb b2 |N | JSR 0x263f0
00027840 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
00027844 48 78 00 02 |Hx | PEA.L 0x2
00027848 4e ba eb e2 |N | JSR 0x2642c
0002784c 50 4f |PO | ADDQ.L #0x8,A7
0002784e 44 97 |D | NEG.L (A7)
00027850 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad
00027856 de fc 00 0c | | ADDA.W #0xc,A7
0002785a 4e ba ec 8c |N | JSR 0x264e8
0002785e 50 4f |PO | ADDQ.L #0x8,A7
00027860 4e 5e |N^ | UNLK A6
00027862 4e 75 |Nu | RTS
00027864 ; --------------------------------------------------------------------------------------
00027864 ; OMSI PASCAL Function
00027864 ; <LVAR 0x008 4(r)>
00027864 ; --------------------------------------------------------------------------------------
00027864 4e 56 ff e4 |NV | LINK.W A6,#0xffe4
00027868 bf d5 | | CMPA.L (A5),A7
0002786a 62 06 |b | BHI 0x27872
0002786c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027870 4e 76 |Nv | TRAPV
00027872 de fc 00 1c | | ADDA.W #0x1c,A7
00027876 9e fc 00 10 | | SUBA.W #0x10,A7
0002787a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002787e 48 78 00 01 |Hx | PEA.L 0x1
00027882 4e ba eb 6c |N l | JSR 0x263f0
00027886 50 4f |PO | ADDQ.L #0x8,A7
00027888 4e b9 00 01 03 38 |N 8 | JSR BitNot(a : Quad) : Quad
0002788e 50 4f |PO | ADDQ.L #0x8,A7
00027890 4e ba ec 56 |N V | JSR 0x264e8
00027894 50 4f |PO | ADDQ.L #0x8,A7
00027896 4e 5e |N^ | UNLK A6
00027898 4e 75 |Nu | RTS
0002789a ; --------------------------------------------------------------------------------------
0002789a ; OMSI PASCAL Function
0002789a ; <LVAR 0x008 4(r)>
0002789a ; <LVAR -0x00c 4(rw)>
0002789a ; <LVAR -0x010 4(rw)>
0002789a ; <LVAR -0x014 4(rw)>
0002789a ; <LVAR -0x018 4(rw)>
0002789a ; --------------------------------------------------------------------------------------
0002789a 4e 56 ff b8 |NV | LINK.W A6,#0xffb8
0002789e bf d5 | | CMPA.L (A5),A7
000278a0 62 06 |b | BHI 0x278a8
000278a2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000278a6 4e 76 |Nv | TRAPV
000278a8 de fc 00 30 | 0 | ADDA.W #0x30,A7
000278ac 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7)
000278b0 41 ee 00 08 |A | LEA.L (A6+0x8),A0
000278b4 51 4f |QO | SUBQ.L #0x8,A7
000278b6 2f 10 |/ | MOVE.L (A0),-(A7)
000278b8 48 78 00 01 |Hx | PEA.L 0x1
000278bc 4e ba eb 32 |N 2 | JSR 0x263f0
000278c0 50 4f |PO | ADDQ.L #0x8,A7
000278c2 2d 5f ff e8 |-_ | MOVE.L (A7)+,(A6-0x18)
000278c6 2d 57 ff ec |-W | MOVE.L (A7),(A6-0x14)
000278ca 59 4f |YO | SUBQ.L #0x4,A7
000278cc 2f 10 |/ | MOVE.L (A0),-(A7)
000278ce 48 78 00 02 |Hx | PEA.L 0x2
000278d2 4e ba eb 1c |N | JSR 0x263f0
000278d6 50 4f |PO | ADDQ.L #0x8,A7
000278d8 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10)
000278dc 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc)
000278e0 2f 10 |/ | MOVE.L (A0),-(A7)
000278e2 48 78 00 03 |Hx | PEA.L 0x3
000278e6 4e ba eb 44 |N D | JSR 0x2642c
000278ea 50 4f |PO | ADDQ.L #0x8,A7
000278ec 2e 17 |. | MOVE.L (A7),D7
000278ee 2f 10 |/ | MOVE.L (A0),-(A7)
000278f0 48 78 00 04 |Hx | PEA.L 0x4
000278f4 4e ba eb 36 |N 6 | JSR 0x2642c
000278f8 50 4f |PO | ADDQ.L #0x8,A7
000278fa 2c 17 |, | MOVE.L (A7),D6
000278fc 59 4f |YO | SUBQ.L #0x4,A7
000278fe 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7)
00027902 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7)
00027906 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
0002790a 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
0002790e 2f 07 |/ | MOVE.L D7,-(A7)
00027910 2f 06 |/ | MOVE.L D6,-(A7)
00027912 4e b9 00 01 03 48 |N H | JSR ?BitField_something_()
00027918 de fc 00 18 | | ADDA.W #0x18,A7
0002791c 4e ba eb ca |N | JSR 0x264e8
00027920 50 4f |PO | ADDQ.L #0x8,A7
00027922 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0
00027926 4e 5e |N^ | UNLK A6
00027928 4e 75 |Nu | RTS
0002792a ; --------------------------------------------------------------------------------------
0002792a ; OMSI PASCAL Function
0002792a ; <LVAR 0x008 4(r)>
0002792a ; <LVAR -0x00c 4(rw)>
0002792a ; <LVAR -0x010 4(rw)>
0002792a ; --------------------------------------------------------------------------------------
0002792a 4e 56 ff c8 |NV | LINK.W A6,#0xffc8
0002792e bf d5 | | CMPA.L (A5),A7
00027930 62 06 |b | BHI 0x27938
00027932 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027936 4e 76 |Nv | TRAPV
00027938 de fc 00 28 | ( | ADDA.W #0x28,A7
0002793c 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7)
00027940 41 ee 00 08 |A | LEA.L (A6+0x8),A0
00027944 51 4f |QO | SUBQ.L #0x8,A7
00027946 2f 10 |/ | MOVE.L (A0),-(A7)
00027948 48 78 00 01 |Hx | PEA.L 0x1
0002794c 4e ba ea a2 |N | JSR 0x263f0
00027950 50 4f |PO | ADDQ.L #0x8,A7
00027952 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10)
00027956 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc)
0002795a 2f 10 |/ | MOVE.L (A0),-(A7)
0002795c 48 78 00 02 |Hx | PEA.L 0x2
00027960 4e ba ea ca |N | JSR 0x2642c
00027964 50 4f |PO | ADDQ.L #0x8,A7
00027966 2e 17 |. | MOVE.L (A7),D7
00027968 2f 10 |/ | MOVE.L (A0),-(A7)
0002796a 48 78 00 03 |Hx | PEA.L 0x3
0002796e 4e ba ea bc |N | JSR 0x2642c
00027972 50 4f |PO | ADDQ.L #0x8,A7
00027974 2c 17 |, | MOVE.L (A7),D6
00027976 59 4f |YO | SUBQ.L #0x4,A7
00027978 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
0002797c 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
00027980 2f 07 |/ | MOVE.L D7,-(A7)
00027982 2f 06 |/ | MOVE.L D6,-(A7)
00027984 4e b9 00 01 03 4c |N L | JSR FSCALL_1034c
0002798a de fc 00 10 | | ADDA.W #0x10,A7
0002798e 4e ba eb 58 |N X | JSR 0x264e8
00027992 50 4f |PO | ADDQ.L #0x8,A7
00027994 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0
00027998 4e 5e |N^ | UNLK A6
0002799a 4e 75 |Nu | RTS
0002799c ; --------------------------------------------------------------------------------------
0002799c ; OMSI PASCAL Function
0002799c ; <LVAR 0x008 4(r)>
0002799c ; --------------------------------------------------------------------------------------
0002799c 4e 56 ff d8 |NV | LINK.W A6,#0xffd8
000279a0 bf d5 | | CMPA.L (A5),A7
000279a2 62 06 |b | BHI 0x279aa
000279a4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000279a8 4e 76 |Nv | TRAPV
000279aa de fc 00 20 | | ADDA.W #0x20,A7
000279ae 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7)
000279b2 59 4f |YO | SUBQ.L #0x4,A7
000279b4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000279b8 4e ba e0 e8 |N | JSR 0x25aa2
000279bc 58 4f |XO | ADDQ.L #0x4,A7
000279be 7e 01 |~ | MOVEQ.L #0x01,D7
000279c0 be 97 | | CMP.L (A7),D7
000279c2 6e 26 |n& | BGT 0x279ea
000279c4 59 4f |YO | SUBQ.L #0x4,A7
000279c6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000279ca 2f 07 |/ | MOVE.L D7,-(A7)
000279cc 4e ba e9 f0 |N | JSR 0x263be
000279d0 50 4f |PO | ADDQ.L #0x8,A7
000279d2 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
000279d8 54 4f |TO | ADDQ.L #0x2,A7
000279da 1e bc 00 20 | | MOVE.B #0x20,(A7)
000279de 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char)
000279e4 54 4f |TO | ADDQ.L #0x2,A7
000279e6 52 87 |R | ADDQ.L #0x1,D7
000279e8 68 d6 |h | BVC 0x279c0
000279ea 48 78 00 01 |Hx | PEA.L 0x1
000279ee 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String
000279f4 58 4f |XO | ADDQ.L #0x4,A7
000279f6 28 5f |(_ | MOVEA.L (A7)+,A4
000279f8 2f 0c |/ | MOVE.L A4,-(A7)
000279fa 4e ba de f2 |N | JSR 0x258ee
000279fe 2e 8c |. | MOVE.L A4,(A7)
00027a00 4e ba ea 5e |N ^ | JSR 0x26460
00027a04 58 4f |XO | ADDQ.L #0x4,A7
00027a06 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4
00027a0a 4e 5e |N^ | UNLK A6
00027a0c 4e 75 |Nu | RTS
00027a0e ; --------------------------------------------------------------------------------------
00027a0e ; OMSI PASCAL Function
00027a0e ; <LVAR 0x008 4(r)>
00027a0e ; --------------------------------------------------------------------------------------
00027a0e 4e 56 ff c8 |NV | LINK.W A6,#0xffc8
00027a12 bf d5 | | CMPA.L (A5),A7
00027a14 62 06 |b | BHI 0x27a1c
00027a16 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027a1a 4e 76 |Nv | TRAPV
00027a1c de fc 00 2c | , | ADDA.W #0x2c,A7
00027a20 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7)
00027a24 41 ee 00 08 |A | LEA.L (A6+0x8),A0
00027a28 70 0c |p | MOVEQ.L #0x0c,D0
00027a2a 59 4f |YO | SUBQ.L #0x4,A7
00027a2c 2f 10 |/ | MOVE.L (A0),-(A7)
00027a2e 48 78 00 01 |Hx | PEA.L 0x1
00027a32 4e ba e9 8a |N | JSR 0x263be
00027a36 50 4f |PO | ADDQ.L #0x8,A7
00027a38 28 5f |(_ | MOVEA.L (A7)+,A4
00027a3a 9e c0 | | SUBA.W D0,A7
00027a3c 2f 10 |/ | MOVE.L (A0),-(A7)
00027a3e 48 78 00 02 |Hx | PEA.L 0x2
00027a42 4e ba e9 ac |N | JSR 0x263f0
00027a46 50 4f |PO | ADDQ.L #0x8,A7
00027a48 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
00027a4e 50 4f |PO | ADDQ.L #0x8,A7
00027a50 2e 17 |. | MOVE.L (A7),D7
00027a52 51 4f |QO | SUBQ.L #0x8,A7
00027a54 2f 10 |/ | MOVE.L (A0),-(A7)
00027a56 48 78 00 03 |Hx | PEA.L 0x3
00027a5a 4e ba e9 94 |N | JSR 0x263f0
00027a5e 50 4f |PO | ADDQ.L #0x8,A7
00027a60 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long
00027a66 50 4f |PO | ADDQ.L #0x8,A7
00027a68 2c 17 |, | MOVE.L (A7),D6
00027a6a 51 4f |QO | SUBQ.L #0x8,A7
00027a6c 2f 0c |/ | MOVE.L A4,-(A7)
00027a6e 2f 07 |/ | MOVE.L D7,-(A7)
00027a70 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64()
00027a76 58 4f |XO | ADDQ.L #0x4,A7
00027a78 2e 86 |. | MOVE.L D6,(A7)
00027a7a 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String
00027a80 de c0 | | ADDA.W D0,A7
00027a82 4e ba e9 dc |N | JSR 0x26460
00027a86 58 4f |XO | ADDQ.L #0x4,A7
00027a88 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4
00027a8c 4e 5e |N^ | UNLK A6
00027a8e 4e 75 |Nu | RTS
00027a90 ; --------------------------------------------------------------------------------------
00027a90 ; OMSI PASCAL Function
00027a90 ; <LVAR 0x008 4(r)>
00027a90 ; <LVAR -0x00a 2(r)>
00027a90 ; <LVAR -0x00c 4(rw)>
00027a90 ; <LVAR -0x010 4(rw)>
00027a90 ; --------------------------------------------------------------------------------------
00027a90 4e 56 ff bc |NV | LINK.W A6,#0xffbc
00027a94 bf d5 | | CMPA.L (A5),A7
00027a96 62 06 |b | BHI 0x27a9e
00027a98 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027a9c 4e 76 |Nv | TRAPV
00027a9e de fc 00 34 | 4 | ADDA.W #0x34,A7
00027aa2 48 e7 c3 c0 |H | MOVEM.L A1+A0+D7+D6+D1+D0,-(A7)
00027aa6 41 ee ff f0 |A | LEA.L (A6-0x10),A0
00027aaa 43 ee ff f4 |C | LEA.L (A6-0xc),A1
00027aae 51 4f |QO | SUBQ.L #0x8,A7
00027ab0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027ab4 48 78 00 01 |Hx | PEA.L 0x1
00027ab8 4e ba e9 36 |N 6 | JSR 0x263f0
00027abc 50 4f |PO | ADDQ.L #0x8,A7
00027abe 20 9f | | MOVE.L (A7)+,(A0)
00027ac0 22 9f |" | MOVE.L (A7)+,(A1)
00027ac2 7e 00 |~ | MOVEQ.L #0x00,D7
00027ac4 7c 00 || | MOVEQ.L #0x00,D6
00027ac6 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0
00027aca 02 40 00 01 | @ | ANDI.W #0x0001,D0
00027ace 42 81 |B | CLR.L D1
00027ad0 32 00 |2 | MOVE.W D0,D1
00027ad2 de 81 | | ADD.L D1,D7
00027ad4 51 4f |QO | SUBQ.L #0x8,A7
00027ad6 2f 11 |/ | MOVE.L (A1),-(A7)
00027ad8 2f 10 |/ | MOVE.L (A0),-(A7)
00027ada 48 78 ff ff |Hx | PEA.L 0xffffffff
00027ade 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad
00027ae4 de fc 00 0c | | ADDA.W #0xc,A7
00027ae8 20 9f | | MOVE.L (A7)+,(A0)
00027aea 22 9f |" | MOVE.L (A7)+,(A1)
00027aec 52 86 |R | ADDQ.L #0x1,D6
00027aee 0c 86 00 00 00 3f | ? | CMPI.L #0x0000003f,D6
00027af4 6f d0 |o | BLE 0x27ac6
00027af6 51 4f |QO | SUBQ.L #0x8,A7
00027af8 2f 07 |/ | MOVE.L D7,-(A7)
00027afa 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad
00027b00 58 4f |XO | ADDQ.L #0x4,A7
00027b02 4e ba e9 e4 |N | JSR 0x264e8
00027b06 50 4f |PO | ADDQ.L #0x8,A7
00027b08 4c df 03 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1
00027b0c 4e 5e |N^ | UNLK A6
00027b0e 4e 75 |Nu | RTS
00027b10 ; --------------------------------------------------------------------------------------
00027b10 ; OMSI PASCAL Function
00027b10 ; <LVAR 0x008 4(r)>
00027b10 ; <LVAR -0x004 @ 1(r)>
00027b10 ; --------------------------------------------------------------------------------------
00027b10 4e 56 ff b8 |NV | LINK.W A6,#0xffb8
00027b14 bf d5 | | CMPA.L (A5),A7
00027b16 62 06 |b | BHI 0x27b1e
00027b18 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027b1c 4e 76 |Nv | TRAPV
00027b1e de fc 00 44 | D | ADDA.W #0x44,A7
00027b22 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7)
00027b26 45 f9 00 02 bb f2 |E | LEA.L 0x2bbf2,A2
00027b2c 72 01 |r | MOVEQ.L #0x01,D1
00027b2e 74 00 |t | MOVEQ.L #0x00,D2
00027b30 4a 12 |J | TST.B (A2)
00027b32 66 32 |f2 | BNE 0x27b66
00027b34 9e fc 00 1c | | SUBA.W #0x1c,A7
00027b38 20 4f | O | MOVEA.L A7,A0
00027b3a 43 fa d7 b4 |C | LEA.L 0x252f0,A1
00027b3e 70 1a |p | MOVEQ.L #0x1a,D0
00027b40 10 d9 | | MOVE.B (A1)+,(A0)+
00027b42 51 c8 ff fc |Q | DBF D0,0x27b40
00027b46 59 4f |YO | SUBQ.L #0x4,A7
00027b48 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00027b4c 3f 01 |? | MOVE.W D1,-(A7)
00027b4e 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
00027b52 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00027b58 50 4f |PO | ADDQ.L #0x8,A7
00027b5a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00027b60 de fc 00 20 | | ADDA.W #0x20,A7
00027b64 14 81 | | MOVE.B D1,(A2)
00027b66 5d 4f |]O | SUBQ.L #0x6,A7
00027b68 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long
00027b6e 20 1f | | MOVE.L (A7)+,D0
00027b70 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0
00027b76 63 02 |c | BLS 0x27b7a
00027b78 4e 4f |NO | TRAP #15
00027b7a 3e 80 |> | MOVE.W D0,(A7)
00027b7c 48 6e ff fc |Hn | PEA.L (A6-0x4)
00027b80 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte)
00027b86 5c 4f |\O | ADDQ.L #0x6,A7
00027b88 10 2e ff fc | . | MOVE.B (A6-0x4),D0
00027b8c b0 01 | | CMP.B D1,D0
00027b8e 67 16 |g | BEQ 0x27ba6
00027b90 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027b94 4e ba da be |N | JSR 0x25654
00027b98 58 4f |XO | ADDQ.L #0x4,A7
00027b9a 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7
00027b9e 3c 42 |<B | MOVEA.W D2,A6
00027ba0 4e f9 00 02 8f 38 |N 8 | JMP 0x28f38
00027ba6 55 4f |UO | SUBQ.L #0x2,A7
00027ba8 4e b9 00 01 03 d4 |N | JSR ReadChar() : Byte
00027bae 10 1f | | MOVE.B (A7)+,D0
00027bb0 0c 00 00 07 | | CMPI.B #0x07,D0
00027bb4 67 16 |g | BEQ 0x27bcc
00027bb6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027bba 4e ba da 98 |N | JSR 0x25654
00027bbe 58 4f |XO | ADDQ.L #0x4,A7
00027bc0 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7
00027bc4 3c 42 |<B | MOVEA.W D2,A6
00027bc6 4e f9 00 02 8f 38 |N 8 | JMP 0x28f38
00027bcc 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2
00027bd0 4e 5e |N^ | UNLK A6
00027bd2 4e 75 |Nu | RTS
00027bd4 ; --------------------------------------------------------------------------------------
00027bd4 ; OMSI PASCAL Function
00027bd4 ; --------------------------------------------------------------------------------------
00027bd4 4e 56 ff f8 |NV | LINK.W A6,#0xfff8
00027bd8 bf d5 | | CMPA.L (A5),A7
00027bda 62 06 |b | BHI 0x27be2
00027bdc 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027be0 4e 76 |Nv | TRAPV
00027be2 de fc 00 08 | | ADDA.W #0x8,A7
00027be6 48 78 00 c8 |Hx | PEA.L 0xc8
00027bea 4e ba e9 30 |N 0 | JSR 0x2651c
00027bee 58 4f |XO | ADDQ.L #0x4,A7
00027bf0 4e 5e |N^ | UNLK A6
00027bf2 4e 75 |Nu | RTS
00027bf4 ; --------------------------------------------------------------------------------------
00027bf4 ; OMSI PASCAL Function
00027bf4 ; <LVAR 0x008 4(r)>
00027bf4 ; <LVAR -0x00c @ 4(r)>
00027bf4 ; --------------------------------------------------------------------------------------
00027bf4 4e 56 ff ac |NV | LINK.W A6,#0xffac
00027bf8 bf d5 | | CMPA.L (A5),A7
00027bfa 62 06 |b | BHI 0x27c02
00027bfc 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027c00 4e 76 |Nv | TRAPV
00027c02 de fc 00 48 | H | ADDA.W #0x48,A7
00027c06 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7)
00027c0a 43 ee ff f4 |C | LEA.L (A6-0xc),A1
00027c0e 48 51 |HQ | PEA.L (A1)
00027c10 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00027c16 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027c1a 4e ba de 86 |N | JSR 0x25aa2
00027c1e 58 4f |XO | ADDQ.L #0x4,A7
00027c20 7e 01 |~ | MOVEQ.L #0x01,D7
00027c22 be 97 | | CMP.L (A7),D7
00027c24 6e 6a |nj | BGT 0x27c90
00027c26 59 4f |YO | SUBQ.L #0x4,A7
00027c28 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027c2c 2f 07 |/ | MOVE.L D7,-(A7)
00027c2e 4e ba e7 fc |N | JSR 0x2642c
00027c32 50 4f |PO | ADDQ.L #0x8,A7
00027c34 2c 1f |, | MOVE.L (A7)+,D6
00027c36 6d 20 |m | BLT 0x27c58
00027c38 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6
00027c3e 6e 18 |n | BGT 0x27c58
00027c40 2f 11 |/ | MOVE.L (A1),-(A7)
00027c42 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6
00027c48 63 02 |c | BLS 0x27c4c
00027c4a 4e 4f |NO | TRAP #15
00027c4c 1f 06 | | MOVE.B D6,-(A7)
00027c4e 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00027c54 5c 4f |\O | ADDQ.L #0x6,A7
00027c56 60 34 |`4 | BRA 0x27c8c
00027c58 48 51 |HQ | PEA.L (A1)
00027c5a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00027c60 58 4f |XO | ADDQ.L #0x4,A7
00027c62 41 fa d6 c4 |A | LEA.L 0x25328,A0
00027c66 70 06 |p | MOVEQ.L #0x06,D0
00027c68 2f 20 |/ | MOVE.L -(A0),-(A7)
00027c6a 51 c8 ff fc |Q | DBF D0,0x27c68
00027c6e 59 4f |YO | SUBQ.L #0x4,A7
00027c70 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00027c74 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00027c78 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7)
00027c7c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00027c82 50 4f |PO | ADDQ.L #0x8,A7
00027c84 4e ba da 10 |N | JSR 0x25696
00027c88 de fc 00 20 | | ADDA.W #0x20,A7
00027c8c 52 87 |R | ADDQ.L #0x1,D7
00027c8e 68 92 |h | BVC 0x27c22
00027c90 2e 91 |. | MOVE.L (A1),(A7)
00027c92 4e ba e7 cc |N | JSR 0x26460
00027c96 58 4f |XO | ADDQ.L #0x4,A7
00027c98 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1
00027c9c 4e 5e |N^ | UNLK A6
00027c9e 4e 75 |Nu | RTS
00027ca0 ; --------------------------------------------------------------------------------------
00027ca0 ; OMSI PASCAL Function
00027ca0 ; <LVAR 0x00c 1(rw)>
00027ca0 ; <LVAR 0x008 4(r)>
00027ca0 ; --------------------------------------------------------------------------------------
00027ca0 4e 56 ff c0 |NV | LINK.W A6,#0xffc0
00027ca4 bf d5 | | CMPA.L (A5),A7
00027ca6 62 06 |b | BHI 0x27cae
00027ca8 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027cac 4e 76 |Nv | TRAPV
00027cae de fc 00 34 | 4 | ADDA.W #0x34,A7
00027cb2 48 e7 e7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00027cb6 42 2e 00 0c |B. | CLR.B (A6+0xc)
00027cba 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00027cbe 2f 08 |/ | MOVE.L A0,-(A7)
00027cc0 70 00 |p | MOVEQ.L #0x00,D0
00027cc2 52 40 |R@ | ADDQ.W #0x1,D0
00027cc4 1c 00 | | MOVE.B D0,D6
00027cc6 0c 06 00 2b | + | CMPI.B #0x2b,D6
00027cca 6e 00 00 82 |n | BGT 0x27d4e
00027cce 41 fa d8 b2 |A | LEA.L 0x25582,A0
00027cd2 10 06 | | MOVE.B D6,D0
00027cd4 48 80 |H | EXTB.W D0
00027cd6 48 c0 |H | EXTW.L D0
00027cd8 e2 98 | | ROR.L #0x1,D0
00027cda d0 c0 | | ADDA.W D0,A0
00027cdc 48 40 |H@ | SWAP.W D0
00027cde e7 58 | X | ROL.W #0x3,D0
00027ce0 42 81 |B | CLR.L D1
00027ce2 12 10 | | MOVE.B (A0),D1
00027ce4 e1 29 | ) | LSL.B D0,D1
00027ce6 e8 09 | | LSR.B #0x4,D1
00027ce8 2a 01 |* | MOVE.L D1,D5
00027cea 20 57 | W | MOVEA.L (A7),A0
00027cec 30 10 |0 | MOVE.W (A0),D0
00027cee 48 c0 |H | EXTW.L D0
00027cf0 ba 80 | | CMP.L D0,D5
00027cf2 66 54 |fT | BNE 0x27d48
00027cf4 2f 05 |/ | MOVE.L D5,-(A7)
00027cf6 7e 01 |~ | MOVEQ.L #0x01,D7
00027cf8 be 97 | | CMP.L (A7),D7
00027cfa 6e 42 |nB | BGT 0x27d3e
00027cfc 10 06 | | MOVE.B D6,D0
00027cfe 48 80 |H | EXTB.W D0
00027d00 c1 fc 00 0a | | MULS.W #0xa,D0
00027d04 22 07 |" | MOVE.L D7,D1
00027d06 53 81 |S | SUBQ.L #0x1,D1
00027d08 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1
00027d0e 63 02 |c | BLS 0x27d12
00027d10 4e 4f |NO | TRAP #15
00027d12 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0
00027d16 43 fa d6 b2 |C | LEA.L COMMAND_TABLE_253ca,A1
00027d1a 24 07 |$ | MOVE.L D7,D2
00027d1c 53 82 |S | SUBQ.L #0x1,D2
00027d1e 0c 82 00 00 00 09 | | CMPI.L #0x00000009,D2
00027d24 63 02 |c | BLS 0x27d28
00027d26 4e 4f |NO | TRAP #15
00027d28 43 f1 00 00 |C | LEA.L (A1+D0.W),A1
00027d2c 10 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D0
00027d30 b0 31 28 00 | 1( | CMP.B (A1+D2.L),D0
00027d34 67 04 |g | BEQ 0x27d3a
00027d36 58 4f |XO | ADDQ.L #0x4,A7
00027d38 60 0e |` | BRA 0x27d48
00027d3a 52 87 |R | ADDQ.L #0x1,D7
00027d3c 68 ba |h | BVC 0x27cf8
00027d3e 58 4f |XO | ADDQ.L #0x4,A7
00027d40 1d 46 00 0c | F | MOVE.B D6,(A6+0xc)
00027d44 58 4f |XO | ADDQ.L #0x4,A7
00027d46 60 08 |` | BRA 0x27d50
00027d48 52 06 |R | ADDQ.B #0x1,D6
00027d4a 68 00 ff 7a |h z | BVC 0x27cc6
00027d4e 58 4f |XO | ADDQ.L #0x4,A7
00027d50 4c df 03 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1
00027d54 4e 5e |N^ | UNLK A6
00027d56 4e 75 |Nu | RTS
00027d58 ; --------------------------------------------------------------------------------------
00027d58 ; OMSI PASCAL Function
00027d58 ; <LVAR 0x00c 4(r)>
00027d58 ; <LVAR 0x008 4(r)>
00027d58 ; <LVAR -0x002 @ 1(r)>
00027d58 ; <LVAR -0x006 @ 4(w)>
00027d58 ; <LVAR -0x008 @ 1(r)>
00027d58 ; <LVAR -0x00c @ 4(r)>
00027d58 ; <LVAR -0x010 @ 4(rw)>
00027d58 ; --------------------------------------------------------------------------------------
00027d58 4e 56 ff a6 |NV | LINK.W A6,#0xffa6
00027d5c bf d5 | | CMPA.L (A5),A7
00027d5e 62 06 |b | BHI 0x27d66
00027d60 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027d64 4e 76 |Nv | TRAPV
00027d66 de fc 00 4a | J | ADDA.W #0x4a,A7
00027d6a 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7)
00027d6e 45 ee ff f0 |E | LEA.L (A6-0x10),A2
00027d72 47 ee ff fe |G | LEA.L (A6-0x2),A3
00027d76 49 ee ff f4 |I | LEA.L (A6-0xc),A4
00027d7a 72 01 |r | MOVEQ.L #0x01,D1
00027d7c 59 4f |YO | SUBQ.L #0x4,A7
00027d7e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00027d82 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
00027d88 58 4f |XO | ADDQ.L #0x4,A7
00027d8a 24 9f |$ | MOVE.L (A7)+,(A2)
00027d8c 2f 12 |/ | MOVE.L (A2),-(A7)
00027d8e 1f 3c 00 2e | < . | MOVE.B #0x2e,-(A7)
00027d92 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00027d98 5c 4f |\O | ADDQ.L #0x6,A7
00027d9a 41 f9 00 02 bb d2 |A | LEA.L 0x2bbd2,A0
00027da0 70 04 |p | MOVEQ.L #0x04,D0
00027da2 3f 20 |? | MOVE.W -(A0),-(A7)
00027da4 51 c8 ff fc |Q | DBF D0,0x27da2
00027da8 59 4f |YO | SUBQ.L #0x4,A7
00027daa 2f 12 |/ | MOVE.L (A2),-(A7)
00027dac 59 4f |YO | SUBQ.L #0x4,A7
00027dae 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00027db2 3f 01 |? | MOVE.W D1,-(A7)
00027db4 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7)
00027db8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00027dbe 50 4f |PO | ADDQ.L #0x8,A7
00027dc0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00027dc6 50 4f |PO | ADDQ.L #0x8,A7
00027dc8 24 9f |$ | MOVE.L (A7)+,(A2)
00027dca 5c 4f |\O | ADDQ.L #0x6,A7
00027dcc 2e 92 |. | MOVE.L (A2),(A7)
00027dce 42 27 |B' | CLR.B -(A7)
00027dd0 1f 01 | | MOVE.B D1,-(A7)
00027dd2 48 78 00 00 |Hx | PEA.L 0x0
00027dd6 48 53 |HS | PEA.L (A3)
00027dd8 48 54 |HT | PEA.L (A4)
00027dda 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00027de0 de fc 00 14 | | ADDA.W #0x14,A7
00027de4 4a 13 |J | TST.B (A3)
00027de6 67 4a |gJ | BEQ 0x27e32
00027de8 48 52 |HR | PEA.L (A2)
00027dea 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00027df0 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
00027df4 4e ba d8 5e |N ^ | JSR 0x25654
00027df8 9e fc 00 16 | | SUBA.W #0x16,A7
00027dfc 20 4f | O | MOVEA.L A7,A0
00027dfe 43 fa d5 28 |C ( | LEA.L 0x25328,A1
00027e02 70 18 |p | MOVEQ.L #0x18,D0
00027e04 10 d9 | | MOVE.B (A1)+,(A0)+
00027e06 51 c8 ff fc |Q | DBF D0,0x27e04
00027e0a 51 4f |QO | SUBQ.L #0x8,A7
00027e0c 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00027e10 3f 01 |? | MOVE.W D1,-(A7)
00027e12 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
00027e16 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00027e1c 58 4f |XO | ADDQ.L #0x4,A7
00027e1e 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7)
00027e22 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00027e28 50 4f |PO | ADDQ.L #0x8,A7
00027e2a 4e ba d8 6a |N j | JSR 0x25696
00027e2e de fc 00 1e | | ADDA.W #0x1e,A7
00027e32 2d 79 00 02 bb c0 ff fa |-y | MOVE.L 0x2bbc0,(A6-0x6)
00027e3a 2f 14 |/ | MOVE.L (A4),-(A7)
00027e3c 48 52 |HR | PEA.L (A2)
00027e3e 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00027e42 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte)
00027e48 de fc 00 0c | | ADDA.W #0xc,A7
00027e4c 20 52 | R | MOVEA.L (A2),A0
00027e4e 4a 50 |JP | TST.W (A0)
00027e50 67 14 |g | BEQ 0x27e66
00027e52 2f 12 |/ | MOVE.L (A2),-(A7)
00027e54 4e ba da 98 |N | JSR 0x258ee
00027e58 58 4f |XO | ADDQ.L #0x4,A7
00027e5a 48 6e ff fa |Hn | PEA.L (A6-0x6)
00027e5e 2f 12 |/ | MOVE.L (A2),-(A7)
00027e60 4e ba de 12 |N | JSR 0x25c74
00027e64 50 4f |PO | ADDQ.L #0x8,A7
00027e66 4a 2e ff f8 |J. | TST.B (A6-0x8)
00027e6a 67 ce |g | BEQ 0x27e3a
00027e6c 42 27 |B' | CLR.B -(A7)
00027e6e 1f 01 | | MOVE.B D1,-(A7)
00027e70 48 78 00 01 |Hx | PEA.L 0x1
00027e74 48 53 |HS | PEA.L (A3)
00027e76 48 54 |HT | PEA.L (A4)
00027e78 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
00027e7e de fc 00 10 | | ADDA.W #0x10,A7
00027e82 48 52 |HR | PEA.L (A2)
00027e84 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00027e8a 58 4f |XO | ADDQ.L #0x4,A7
00027e8c 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4
00027e90 4e 5e |N^ | UNLK A6
00027e92 4e 75 |Nu | RTS
00027e94 ; --------------------------------------------------------------------------------------
00027e94 ; OMSI PASCAL Function
00027e94 ; <LVAR 0x014 1(w)>
00027e94 ; <LVAR 0x00c 4(r)>
00027e94 ; <LVAR 0x008 4(r)>
00027e94 ; --------------------------------------------------------------------------------------
00027e94 4e 56 ff f4 |NV | LINK.W A6,#0xfff4
00027e98 bf d5 | | CMPA.L (A5),A7
00027e9a 62 06 |b | BHI 0x27ea2
00027e9c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027ea0 4e 76 |Nv | TRAPV
00027ea2 de fc 00 0c | | ADDA.W #0xc,A7
00027ea6 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
00027eaa 20 2e 00 0c | . | MOVE.L (A6+0xc),D0
00027eae d0 ae 00 08 | | ADD.L (A6+0x8),D0
00027eb2 53 80 |S | SUBQ.L #0x1,D0
00027eb4 53 80 |S | SUBQ.L #0x1,D0
00027eb6 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0
00027ebc 63 02 |c | BLS 0x27ec0
00027ebe 4e 4f |NO | TRAP #15
00027ec0 41 f9 00 02 9b b8 |A | LEA.L 0x29bb8,A0
00027ec6 1d 70 08 08 00 14 | p | MOVE.B (A0+D0.L+#0x8),(A6+0x14)
00027ecc 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
00027ed0 4e 5e |N^ | UNLK A6
00027ed2 4e 75 |Nu | RTS
00027ed4 ; --------------------------------------------------------------------------------------
00027ed4 ; OMSI PASCAL Function
00027ed4 ; <LVAR 0x010 4(w)>
00027ed4 ; <LVAR 0x00c 4(r)>
00027ed4 ; <LVAR 0x008 4(r)>
00027ed4 ; <LVAR -0x004 @ 1(r)>
00027ed4 ; <LVAR -0x008 @ 4(r)>
00027ed4 ; --------------------------------------------------------------------------------------
00027ed4 4e 56 ff c4 |NV | LINK.W A6,#0xffc4
00027ed8 bf d5 | | CMPA.L (A5),A7
00027eda 62 06 |b | BHI 0x27ee2
00027edc 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027ee0 4e 76 |Nv | TRAPV
00027ee2 de fc 00 34 | 4 | ADDA.W #0x34,A7
00027ee6 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
00027eea 59 4f |YO | SUBQ.L #0x4,A7
00027eec 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00027ef0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027ef4 4e ba e4 4c |N L | JSR 0x26342
00027ef8 50 4f |PO | ADDQ.L #0x8,A7
00027efa 48 6e ff fc |Hn | PEA.L (A6-0x4)
00027efe 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00027f02 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long)
00027f08 de fc 00 0c | | ADDA.W #0xc,A7
00027f0c 4a 2e ff fc |J. | TST.B (A6-0x4)
00027f10 66 30 |f0 | BNE 0x27f42
00027f12 9e fc 00 18 | | SUBA.W #0x18,A7
00027f16 20 4f | O | MOVEA.L A7,A0
00027f18 43 fa d4 28 |C ( | LEA.L 0x25342,A1
00027f1c 70 16 |p | MOVEQ.L #0x16,D0
00027f1e 10 d9 | | MOVE.B (A1)+,(A0)+
00027f20 51 c8 ff fc |Q | DBF D0,0x27f1e
00027f24 59 4f |YO | SUBQ.L #0x4,A7
00027f26 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00027f2a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00027f2e 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00027f32 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00027f38 50 4f |PO | ADDQ.L #0x8,A7
00027f3a 4e ba d7 5a |N Z | JSR 0x25696
00027f3e de fc 00 1c | | ADDA.W #0x1c,A7
00027f42 2d 6e ff f8 00 10 |-n | MOVE.L (A6-0x8),(A6+0x10)
00027f48 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
00027f4c 4e 5e |N^ | UNLK A6
00027f4e 4e 75 |Nu | RTS
00027f50 ; --------------------------------------------------------------------------------------
00027f50 ; OMSI PASCAL Function
00027f50 ; <LVAR 0x014 4(r)>
00027f50 ; <LVAR 0x010 4(r)>
00027f50 ; <LVAR 0x00c 4(r)>
00027f50 ; <LVAR 0x008 4(r)>
00027f50 ; <LVAR -0x00c 4(rw)>
00027f50 ; <LVAR -0x010 4(rw)>
00027f50 ; <LVAR -0x014 4(rw)>
00027f50 ; <LVAR -0x018 4(w)>
00027f50 ; <LVAR -0x020 4(rw)>
00027f50 ; --------------------------------------------------------------------------------------
00027f50 4e 56 ff 8e |NV | LINK.W A6,#0xff8e
00027f54 bf d5 | | CMPA.L (A5),A7
00027f56 62 06 |b | BHI 0x27f5e
00027f58 44 fc 00 02 |D | MOVE.W #0x2,CCR
00027f5c 4e 76 |Nv | TRAPV
00027f5e de fc 00 4e | N | ADDA.W #0x4e,A7
00027f62 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
00027f66 43 ee ff e0 |C | LEA.L (A6-0x20),A1
00027f6a 45 ee ff f0 |E | LEA.L (A6-0x10),A2
00027f6e 47 ee ff f4 |G | LEA.L (A6-0xc),A3
00027f72 49 ee ff ec |I | LEA.L (A6-0x14),A4
00027f76 7e 00 |~ | MOVEQ.L #0x00,D7
00027f78 22 ae 00 14 |" | MOVE.L (A6+0x14),(A1)
00027f7c 20 39 00 02 bb c0 | 9 | MOVE.L 0x2bbc0,D0
00027f82 90 ae 00 14 | | SUB.L (A6+0x14),D0
00027f86 28 80 |( | MOVE.L D0,(A4)
00027f88 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00027f8c 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5
00027f90 ba 97 | | CMP.L (A7),D5
00027f92 6e 2c |n, | BGT 0x27fc0
00027f94 51 4f |QO | SUBQ.L #0x8,A7
00027f96 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027f9a 2f 05 |/ | MOVE.L D5,-(A7)
00027f9c 4e ba e3 42 |N B | JSR 0x262e0
00027fa0 50 4f |PO | ADDQ.L #0x8,A7
00027fa2 24 9f |$ | MOVE.L (A7)+,(A2)
00027fa4 26 97 |& | MOVE.L (A7),(A3)
00027fa6 2f 13 |/ | MOVE.L (A3),-(A7)
00027fa8 2f 12 |/ | MOVE.L (A2),-(A7)
00027faa 4e ba e2 fc |N | JSR 0x262a8
00027fae 50 4f |PO | ADDQ.L #0x8,A7
00027fb0 2c 1f |, | MOVE.L (A7)+,D6
00027fb2 de 86 | | ADD.L D6,D7
00027fb4 ba ae 00 0c | | CMP.L (A6+0xc),D5
00027fb8 6c 02 |l | BGE 0x27fbc
00027fba 52 87 |R | ADDQ.L #0x1,D7
00027fbc 52 85 |R | ADDQ.L #0x1,D5
00027fbe 68 d0 |h | BVC 0x27f90
00027fc0 58 4f |XO | ADDQ.L #0x4,A7
00027fc2 20 11 | | MOVE.L (A1),D0
00027fc4 d0 94 | | ADD.L (A4),D0
00027fc6 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18)
00027fca be 94 | | CMP.L (A4),D7
00027fcc 67 0c |g | BEQ 0x27fda
00027fce 2f 00 |/ | MOVE.L D0,-(A7)
00027fd0 2f 14 |/ | MOVE.L (A4),-(A7)
00027fd2 9f 97 | | SUB.L D7,(A7)
00027fd4 4e ba dc 14 |N | JSR 0x25bea
00027fd8 50 4f |PO | ADDQ.L #0x8,A7
00027fda 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00027fde 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5
00027fe2 ba 97 | | CMP.L (A7),D5
00027fe4 6e 00 00 88 |n | BGT 0x2806e
00027fe8 51 4f |QO | SUBQ.L #0x8,A7
00027fea 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00027fee 2f 05 |/ | MOVE.L D5,-(A7)
00027ff0 4e ba e2 ee |N | JSR 0x262e0
00027ff4 50 4f |PO | ADDQ.L #0x8,A7
00027ff6 24 9f |$ | MOVE.L (A7)+,(A2)
00027ff8 26 97 |& | MOVE.L (A7),(A3)
00027ffa 2f 13 |/ | MOVE.L (A3),-(A7)
00027ffc 2f 12 |/ | MOVE.L (A2),-(A7)
00027ffe 4e ba e2 a8 |N | JSR 0x262a8
00028002 50 4f |PO | ADDQ.L #0x8,A7
00028004 2c 1f |, | MOVE.L (A7)+,D6
00028006 2f 06 |/ | MOVE.L D6,-(A7)
00028008 70 01 |p | MOVEQ.L #0x01,D0
0002800a b0 97 | | CMP.L (A7),D0
0002800c 6e 30 |n0 | BGT 0x2803e
0002800e 22 11 |" | MOVE.L (A1),D1
00028010 d2 80 | | ADD.L D0,D1
00028012 53 81 |S | SUBQ.L #0x1,D1
00028014 53 81 |S | SUBQ.L #0x1,D1
00028016 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1
0002801c 63 02 |c | BLS 0x28020
0002801e 4e 4f |NO | TRAP #15
00028020 41 f9 00 02 9b b8 |A | LEA.L 0x29bb8,A0
00028026 55 4f |UO | SUBQ.L #0x2,A7
00028028 2f 13 |/ | MOVE.L (A3),-(A7)
0002802a 2f 12 |/ | MOVE.L (A2),-(A7)
0002802c 2f 00 |/ | MOVE.L D0,-(A7)
0002802e 4e ba fe 64 |N d | JSR 0x27e94
00028032 de fc 00 0c | | ADDA.W #0xc,A7
00028036 11 9f 18 08 | | MOVE.B (A7)+,(A0+D1.L+#0x8)
0002803a 52 80 |R | ADDQ.L #0x1,D0
0002803c 68 cc |h | BVC 0x2800a
0002803e 58 4f |XO | ADDQ.L #0x4,A7
00028040 ba ae 00 0c | | CMP.L (A6+0xc),D5
00028044 6c 22 |l" | BGE 0x28068
00028046 20 11 | | MOVE.L (A1),D0
00028048 d0 86 | | ADD.L D6,D0
0002804a 22 00 |" | MOVE.L D0,D1
0002804c 53 81 |S | SUBQ.L #0x1,D1
0002804e 0c 81 00 00 1f ff | | CMPI.L #0x00001fff,D1
00028054 63 02 |c | BLS 0x28058
00028056 4e 4f |NO | TRAP #15
00028058 41 f9 00 02 9b b8 |A | LEA.L 0x29bb8,A0
0002805e 11 bc 00 2c 18 08 | , | MOVE.B #0x2c,(A0+D1.L+#0x8)
00028064 52 80 |R | ADDQ.L #0x1,D0
00028066 22 80 |" | MOVE.L D0,(A1)
00028068 52 85 |R | ADDQ.L #0x1,D5
0002806a 68 00 ff 76 |h v | BVC 0x27fe2
0002806e 58 4f |XO | ADDQ.L #0x4,A7
00028070 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4
00028074 4e 5e |N^ | UNLK A6
00028076 4e 75 |Nu | RTS
00028078 ; --------------------------------------------------------------------------------------
00028078 ; OMSI PASCAL Function
00028078 ; <LVAR 0x018 4(rw)>
00028078 ; <LVAR 0x014 4(r)>
00028078 ; <LVAR 0x010 4(r)>
00028078 ; <LVAR 0x00c 4(r)>
00028078 ; <LVAR 0x008 4(r)>
00028078 ; <LVAR -0x008 4(rw)>
00028078 ; <LVAR -0x00c 4(rw)>
00028078 ; <LVAR -0x018 4(w)>
00028078 ; --------------------------------------------------------------------------------------
00028078 4e 56 ff 9e |NV | LINK.W A6,#0xff9e
0002807c bf d5 | | CMPA.L (A5),A7
0002807e 62 06 |b | BHI 0x28086
00028080 44 fc 00 02 |D | MOVE.W #0x2,CCR
00028084 4e 76 |Nv | TRAPV
00028086 de fc 00 4a | J | ADDA.W #0x4a,A7
0002808a 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
0002808e 41 ee ff f8 |A | LEA.L (A6-0x8),A0
00028092 43 ee 00 14 |C | LEA.L (A6+0x14),A1
00028096 45 ee 00 10 |E | LEA.L (A6+0x10),A2
0002809a 47 ee ff f4 |G | LEA.L (A6-0xc),A3
0002809e 49 fa fd f4 |I | LEA.L 0x27e94,A4
000280a2 72 0c |r | MOVEQ.L #0x0c,D1
000280a4 59 4f |YO | SUBQ.L #0x4,A7
000280a6 2f 11 |/ | MOVE.L (A1),-(A7)
000280a8 2f 12 |/ | MOVE.L (A2),-(A7)
000280aa 4e ba e1 fc |N | JSR 0x262a8
000280ae 50 4f |PO | ADDQ.L #0x8,A7
000280b0 26 97 |& | MOVE.L (A7),(A3)
000280b2 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
000280b6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000280ba 4e ba e1 ec |N | JSR 0x262a8
000280be 50 4f |PO | ADDQ.L #0x8,A7
000280c0 20 9f | | MOVE.L (A7)+,(A0)
000280c2 52 90 |R | ADDQ.L #0x1,(A0)
000280c4 20 13 | | MOVE.L (A3),D0
000280c6 90 90 | | SUB.L (A0),D0
000280c8 52 80 |R | ADDQ.L #0x1,D0
000280ca 2f 00 |/ | MOVE.L D0,-(A7)
000280cc 70 01 |p | MOVEQ.L #0x01,D0
000280ce b0 97 | | CMP.L (A7),D0
000280d0 6e 00 00 8e |n | BGT 0x28160
000280d4 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18)
000280d8 2f 00 |/ | MOVE.L D0,-(A7)
000280da 7c 00 || | MOVEQ.L #0x00,D6
000280dc 2f 10 |/ | MOVE.L (A0),-(A7)
000280de 7a 01 |z | MOVEQ.L #0x01,D5
000280e0 ba 97 | | CMP.L (A7),D5
000280e2 6e 42 |nB | BGT 0x28126
000280e4 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5
000280ea 66 04 |f | BNE 0x280f0
000280ec 7e 2f |~/ | MOVEQ.L #0x2f,D7
000280ee 60 14 |` | BRA 0x28104
000280f0 55 4f |UO | SUBQ.L #0x2,A7
000280f2 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
000280f6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000280fa 2f 05 |/ | MOVE.L D5,-(A7)
000280fc 53 97 |S | SUBQ.L #0x1,(A7)
000280fe 4e 94 |N | JSR (A4)
00028100 de c1 | | ADDA.W D1,A7
00028102 1e 1f | | MOVE.B (A7)+,D7
00028104 55 4f |UO | SUBQ.L #0x2,A7
00028106 2f 11 |/ | MOVE.L (A1),-(A7)
00028108 2f 12 |/ | MOVE.L (A2),-(A7)
0002810a 20 2f 00 0e | / | MOVE.L (A7+0xe),D0
0002810e d0 85 | | ADD.L D5,D0
00028110 53 80 |S | SUBQ.L #0x1,D0
00028112 2f 00 |/ | MOVE.L D0,-(A7)
00028114 4e 94 |N | JSR (A4)
00028116 de c1 | | ADDA.W D1,A7
00028118 be 1f | | CMP.B (A7)+,D7
0002811a 67 04 |g | BEQ 0x28120
0002811c 58 4f |XO | ADDQ.L #0x4,A7
0002811e 60 08 |` | BRA 0x28128
00028120 2c 05 |, | MOVE.L D5,D6
00028122 52 85 |R | ADDQ.L #0x1,D5
00028124 68 ba |h | BVC 0x280e0
00028126 58 4f |XO | ADDQ.L #0x4,A7
00028128 bc 90 | | CMP.L (A0),D6
0002812a 66 2c |f, | BNE 0x28158
0002812c 20 17 | | MOVE.L (A7),D0
0002812e 2d 40 00 18 |-@ | MOVE.L D0,(A6+0x18)
00028132 d0 90 | | ADD.L (A0),D0
00028134 b0 93 | | CMP.L (A3),D0
00028136 6d 02 |m | BLT 0x2813a
00028138 60 1a |` | BRA 0x28154
0002813a 55 4f |UO | SUBQ.L #0x2,A7
0002813c 2f 11 |/ | MOVE.L (A1),-(A7)
0002813e 2f 12 |/ | MOVE.L (A2),-(A7)
00028140 2f 00 |/ | MOVE.L D0,-(A7)
00028142 4e 94 |N | JSR (A4)
00028144 de c1 | | ADDA.W D1,A7
00028146 1e 1f | | MOVE.B (A7)+,D7
00028148 0c 07 00 2f | / | CMPI.B #0x2f,D7
0002814c 67 06 |g | BEQ 0x28154
0002814e 0c 07 00 3d | = | CMPI.B #0x3d,D7
00028152 66 04 |f | BNE 0x28158
00028154 50 4f |PO | ADDQ.L #0x8,A7
00028156 60 0e |` | BRA 0x28166
00028158 20 1f | | MOVE.L (A7)+,D0
0002815a 52 80 |R | ADDQ.L #0x1,D0
0002815c 68 00 ff 70 |h p | BVC 0x280ce
00028160 58 4f |XO | ADDQ.L #0x4,A7
00028162 42 ae 00 18 |B | CLR.L (A6+0x18)
00028166 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4
0002816a 4e 5e |N^ | UNLK A6
0002816c 4e 75 |Nu | RTS
0002816e ; --------------------------------------------------------------------------------------
0002816e ; OMSI PASCAL Function
0002816e ; <LVAR 0x018 4(r)>
0002816e ; <LVAR 0x014 4(r)>
0002816e ; <LVAR 0x010 4(r)>
0002816e ; <LVAR 0x00c 4(r)>
0002816e ; <LVAR 0x008 4(r)>
0002816e ; --------------------------------------------------------------------------------------
0002816e 4e 56 ff be |NV | LINK.W A6,#0xffbe
00028172 bf d5 | | CMPA.L (A5),A7
00028174 62 06 |b | BHI 0x2817c
00028176 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002817a 4e 76 |Nv | TRAPV
0002817c de fc 00 36 | 6 | ADDA.W #0x36,A7
00028180 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7)
00028184 41 ee 00 14 |A | LEA.L (A6+0x14),A0
00028188 43 ee 00 10 |C | LEA.L (A6+0x10),A1
0002818c 72 2f |r/ | MOVEQ.L #0x2f,D1
0002818e 59 4f |YO | SUBQ.L #0x4,A7
00028190 2f 10 |/ | MOVE.L (A0),-(A7)
00028192 2f 11 |/ | MOVE.L (A1),-(A7)
00028194 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00028198 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002819c 4e ba fe da |N | JSR 0x28078
000281a0 de fc 00 10 | | ADDA.W #0x10,A7
000281a4 2a 1f |* | MOVE.L (A7)+,D5
000281a6 6f 52 |oR | BLE 0x281fa
000281a8 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7)
000281ac 1f 01 | | MOVE.B D1,-(A7)
000281ae 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
000281b4 5c 4f |\O | ADDQ.L #0x6,A7
000281b6 20 05 | | MOVE.L D5,D0
000281b8 52 80 |R | ADDQ.L #0x1,D0
000281ba 59 4f |YO | SUBQ.L #0x4,A7
000281bc 2f 10 |/ | MOVE.L (A0),-(A7)
000281be 2f 11 |/ | MOVE.L (A1),-(A7)
000281c0 4e ba e0 e6 |N | JSR 0x262a8
000281c4 50 4f |PO | ADDQ.L #0x8,A7
000281c6 2c 00 |, | MOVE.L D0,D6
000281c8 bc 97 | | CMP.L (A7),D6
000281ca 6e 2c |n, | BGT 0x281f8
000281cc 55 4f |UO | SUBQ.L #0x2,A7
000281ce 2f 10 |/ | MOVE.L (A0),-(A7)
000281d0 2f 11 |/ | MOVE.L (A1),-(A7)
000281d2 2f 06 |/ | MOVE.L D6,-(A7)
000281d4 4e ba fc be |N | JSR 0x27e94
000281d8 de fc 00 0c | | ADDA.W #0xc,A7
000281dc 1e 1f | | MOVE.B (A7)+,D7
000281de be 01 | | CMP.B D1,D7
000281e0 66 04 |f | BNE 0x281e6
000281e2 58 4f |XO | ADDQ.L #0x4,A7
000281e4 60 14 |` | BRA 0x281fa
000281e6 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7)
000281ea 1f 07 | | MOVE.B D7,-(A7)
000281ec 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
000281f2 5c 4f |\O | ADDQ.L #0x6,A7
000281f4 52 86 |R | ADDQ.L #0x1,D6
000281f6 68 d0 |h | BVC 0x281c8
000281f8 58 4f |XO | ADDQ.L #0x4,A7
000281fa 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1
000281fe 4e 5e |N^ | UNLK A6
00028200 4e 75 |Nu | RTS
00028202 ; --------------------------------------------------------------------------------------
00028202 ; OMSI PASCAL Function
00028202 ; <LVAR 0x018 4(r)>
00028202 ; <LVAR 0x014 4(r)>
00028202 ; <LVAR 0x010 4(r)>
00028202 ; <LVAR 0x00c 4(r)>
00028202 ; <LVAR 0x008 4(r)>
00028202 ; <LVAR -0x006 4(rw)>
00028202 ; <LVAR -0x014 4(rw)>
00028202 ; --------------------------------------------------------------------------------------
00028202 4e 56 ff aa |NV | LINK.W A6,#0xffaa
00028206 bf d5 | | CMPA.L (A5),A7
00028208 62 06 |b | BHI 0x28210
0002820a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002820e 4e 76 |Nv | TRAPV
00028210 de fc 00 42 | B | ADDA.W #0x42,A7
00028214 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
00028218 41 ee 00 14 |A | LEA.L (A6+0x14),A0
0002821c 43 ee 00 10 |C | LEA.L (A6+0x10),A1
00028220 45 ee ff fa |E | LEA.L (A6-0x6),A2
00028224 72 0c |r | MOVEQ.L #0x0c,D1
00028226 59 4f |YO | SUBQ.L #0x4,A7
00028228 2f 10 |/ | MOVE.L (A0),-(A7)
0002822a 2f 11 |/ | MOVE.L (A1),-(A7)
0002822c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00028230 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00028234 4e ba fe 42 |N B | JSR 0x28078
00028238 de fc 00 10 | | ADDA.W #0x10,A7
0002823c 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14)
00028240 6f 6e |on | BLE 0x282b0
00028242 59 4f |YO | SUBQ.L #0x4,A7
00028244 2f 10 |/ | MOVE.L (A0),-(A7)
00028246 2f 11 |/ | MOVE.L (A1),-(A7)
00028248 4e ba e0 5e |N ^ | JSR 0x262a8
0002824c 50 4f |PO | ADDQ.L #0x8,A7
0002824e 24 9f |$ | MOVE.L (A7)+,(A2)
00028250 2f 12 |/ | MOVE.L (A2),-(A7)
00028252 2a 2e ff ec |*. | MOVE.L (A6-0x14),D5
00028256 ba 97 | | CMP.L (A7),D5
00028258 6e 54 |nT | BGT 0x282ae
0002825a 55 4f |UO | SUBQ.L #0x2,A7
0002825c 2f 10 |/ | MOVE.L (A0),-(A7)
0002825e 2f 11 |/ | MOVE.L (A1),-(A7)
00028260 2f 05 |/ | MOVE.L D5,-(A7)
00028262 4e ba fc 30 |N 0 | JSR 0x27e94
00028266 de c1 | | ADDA.W D1,A7
00028268 10 1f | | MOVE.B (A7)+,D0
0002826a 0c 00 00 3d | = | CMPI.B #0x3d,D0
0002826e 66 3a |f: | BNE 0x282aa
00028270 20 05 | | MOVE.L D5,D0
00028272 52 80 |R | ADDQ.L #0x1,D0
00028274 2f 12 |/ | MOVE.L (A2),-(A7)
00028276 2c 00 |, | MOVE.L D0,D6
00028278 bc 97 | | CMP.L (A7),D6
0002827a 6e 2c |n, | BGT 0x282a8
0002827c 55 4f |UO | SUBQ.L #0x2,A7
0002827e 2f 10 |/ | MOVE.L (A0),-(A7)
00028280 2f 11 |/ | MOVE.L (A1),-(A7)
00028282 2f 06 |/ | MOVE.L D6,-(A7)
00028284 4e ba fc 0e |N | JSR 0x27e94
00028288 de c1 | | ADDA.W D1,A7
0002828a 1e 1f | | MOVE.B (A7)+,D7
0002828c 0c 07 00 2f | / | CMPI.B #0x2f,D7
00028290 66 04 |f | BNE 0x28296
00028292 50 4f |PO | ADDQ.L #0x8,A7
00028294 60 1a |` | BRA 0x282b0
00028296 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7)
0002829a 1f 07 | | MOVE.B D7,-(A7)
0002829c 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
000282a2 5c 4f |\O | ADDQ.L #0x6,A7
000282a4 52 86 |R | ADDQ.L #0x1,D6
000282a6 68 d0 |h | BVC 0x28278
000282a8 58 4f |XO | ADDQ.L #0x4,A7
000282aa 52 85 |R | ADDQ.L #0x1,D5
000282ac 68 a8 |h | BVC 0x28256
000282ae 58 4f |XO | ADDQ.L #0x4,A7
000282b0 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2
000282b4 4e 5e |N^ | UNLK A6
000282b6 4e 75 |Nu | RTS
000282b8 ; --------------------------------------------------------------------------------------
000282b8 ; OMSI PASCAL Function
000282b8 ; <LVAR 0x010 4(r)>
000282b8 ; <LVAR 0x00c 4(r)>
000282b8 ; <LVAR 0x008 4(r)>
000282b8 ; --------------------------------------------------------------------------------------
000282b8 4e 56 ff b2 |NV | LINK.W A6,#0xffb2
000282bc bf d5 | | CMPA.L (A5),A7
000282be 62 06 |b | BHI 0x282c6
000282c0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000282c4 4e 76 |Nv | TRAPV
000282c6 de fc 00 42 | B | ADDA.W #0x42,A7
000282ca 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7)
000282ce 41 ee 00 0c |A | LEA.L (A6+0xc),A0
000282d2 43 ee 00 08 |C | LEA.L (A6+0x8),A1
000282d6 72 0c |r | MOVEQ.L #0x0c,D1
000282d8 59 4f |YO | SUBQ.L #0x4,A7
000282da 2f 10 |/ | MOVE.L (A0),-(A7)
000282dc 2f 11 |/ | MOVE.L (A1),-(A7)
000282de 4e ba df c8 |N | JSR 0x262a8
000282e2 50 4f |PO | ADDQ.L #0x8,A7
000282e4 2a 1f |* | MOVE.L (A7)+,D5
000282e6 2f 05 |/ | MOVE.L D5,-(A7)
000282e8 7c 01 || | MOVEQ.L #0x01,D6
000282ea bc 97 | | CMP.L (A7),D6
000282ec 6e 46 |nF | BGT 0x28334
000282ee 55 4f |UO | SUBQ.L #0x2,A7
000282f0 2f 10 |/ | MOVE.L (A0),-(A7)
000282f2 2f 11 |/ | MOVE.L (A1),-(A7)
000282f4 2f 06 |/ | MOVE.L D6,-(A7)
000282f6 4e ba fb 9c |N | JSR 0x27e94
000282fa de c1 | | ADDA.W D1,A7
000282fc 10 1f | | MOVE.B (A7)+,D0
000282fe 0c 00 00 2f | / | CMPI.B #0x2f,D0
00028302 66 2c |f, | BNE 0x28330
00028304 2f 05 |/ | MOVE.L D5,-(A7)
00028306 2e 06 |. | MOVE.L D6,D7
00028308 be 97 | | CMP.L (A7),D7
0002830a 6e 1e |n | BGT 0x2832a
0002830c 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7)
00028310 55 4f |UO | SUBQ.L #0x2,A7
00028312 2f 10 |/ | MOVE.L (A0),-(A7)
00028314 2f 11 |/ | MOVE.L (A1),-(A7)
00028316 2f 07 |/ | MOVE.L D7,-(A7)
00028318 4e ba fb 7a |N z | JSR 0x27e94
0002831c de c1 | | ADDA.W D1,A7
0002831e 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00028324 5c 4f |\O | ADDQ.L #0x6,A7
00028326 52 87 |R | ADDQ.L #0x1,D7
00028328 68 de |h | BVC 0x28308
0002832a 58 4f |XO | ADDQ.L #0x4,A7
0002832c 58 4f |XO | ADDQ.L #0x4,A7
0002832e 60 06 |` | BRA 0x28336
00028330 52 86 |R | ADDQ.L #0x1,D6
00028332 68 b6 |h | BVC 0x282ea
00028334 58 4f |XO | ADDQ.L #0x4,A7
00028336 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1
0002833a 4e 5e |N^ | UNLK A6
0002833c 4e 75 |Nu | RTS
0002833e ; --------------------------------------------------------------------------------------
0002833e ; OMSI PASCAL Function
0002833e ; <LVAR 0x010 4(r)>
0002833e ; <LVAR 0x00c 4(r)>
0002833e ; <LVAR 0x008 4(r)>
0002833e ; --------------------------------------------------------------------------------------
0002833e 4e 56 ff ce |NV | LINK.W A6,#0xffce
00028342 bf d5 | | CMPA.L (A5),A7
00028344 62 06 |b | BHI 0x2834c
00028346 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002834a 4e 76 |Nv | TRAPV
0002834c de fc 00 2a | * | ADDA.W #0x2a,A7
00028350 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7)
00028354 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0
00028358 42 50 |BP | CLR.W (A0)
0002835a 59 4f |YO | SUBQ.L #0x4,A7
0002835c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00028360 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00028364 4e ba df 42 |N B | JSR 0x262a8
00028368 50 4f |PO | ADDQ.L #0x8,A7
0002836a 7e 01 |~ | MOVEQ.L #0x01,D7
0002836c be 97 | | CMP.L (A7),D7
0002836e 6e 34 |n4 | BGT 0x283a4
00028370 55 4f |UO | SUBQ.L #0x2,A7
00028372 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00028376 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
0002837a 2f 07 |/ | MOVE.L D7,-(A7)
0002837c 4e ba fb 16 |N | JSR 0x27e94
00028380 de fc 00 0c | | ADDA.W #0xc,A7
00028384 1c 1f | | MOVE.B (A7)+,D6
00028386 0c 06 00 2f | / | CMPI.B #0x2f,D6
0002838a 67 10 |g | BEQ 0x2839c
0002838c 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7)
00028390 1f 06 | | MOVE.B D6,-(A7)
00028392 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00028398 5c 4f |\O | ADDQ.L #0x6,A7
0002839a 60 04 |` | BRA 0x283a0
0002839c 58 4f |XO | ADDQ.L #0x4,A7
0002839e 60 06 |` | BRA 0x283a6
000283a0 52 87 |R | ADDQ.L #0x1,D7
000283a2 68 c8 |h | BVC 0x2836c
000283a4 58 4f |XO | ADDQ.L #0x4,A7
000283a6 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0
000283aa 4e 5e |N^ | UNLK A6
000283ac 4e 75 |Nu | RTS
000283ae ; --------------------------------------------------------------------------------------
000283ae ; OMSI PASCAL Function
000283ae ; --------------------------------------------------------------------------------------
000283ae 4e 56 ff c6 |NV | LINK.W A6,#0xffc6
000283b2 bf d5 | | CMPA.L (A5),A7
000283b4 62 06 |b | BHI 0x283bc
000283b6 44 fc 00 02 |D | MOVE.W #0x2,CCR
000283ba 4e 76 |Nv | TRAPV
000283bc de fc 00 3a | : | ADDA.W #0x3a,A7
000283c0 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
000283c4 41 fa cf b6 |A | LEA.L 0x2537c,A0
000283c8 70 10 |p | MOVEQ.L #0x10,D0
000283ca 3f 20 |? | MOVE.W -(A0),-(A7)
000283cc 51 c8 ff fc |Q | DBF D0,0x283ca
000283d0 59 4f |YO | SUBQ.L #0x4,A7
000283d2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000283d6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000283da 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7)
000283de 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000283e4 50 4f |PO | ADDQ.L #0x8,A7
000283e6 4e ba d2 ae |N | JSR 0x25696
000283ea de fc 00 26 | & | ADDA.W #0x26,A7
000283ee 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
000283f2 4e 5e |N^ | UNLK A6
000283f4 4e 75 |Nu | RTS
000283f6 ; --------------------------------------------------------------------------------------
000283f6 ; OMSI PASCAL Function
000283f6 ; <LVAR 0x00c 4(r)>
000283f6 ; <LVAR 0x008 4(r)>
000283f6 ; <LVAR -0x006 4(rw)>
000283f6 ; --------------------------------------------------------------------------------------
000283f6 4e 56 ff a0 |NV | LINK.W A6,#0xffa0
000283fa bf d5 | | CMPA.L (A5),A7
000283fc 62 06 |b | BHI 0x28404
000283fe 44 fc 00 02 |D | MOVE.W #0x2,CCR
00028402 4e 76 |Nv | TRAPV
00028404 de fc 00 58 | X | ADDA.W #0x58,A7
00028408 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002840c 43 ee 00 0c |C | LEA.L (A6+0xc),A1
00028410 45 f9 00 02 bb c0 |E | LEA.L 0x2bbc0,A2
00028416 47 fa d3 1a |G | LEA.L 0x25732,A3
0002841a 72 30 |r0 | MOVEQ.L #0x30,D1
0002841c 74 39 |t9 | MOVEQ.L #0x39,D2
0002841e 76 25 |v% | MOVEQ.L #0x25,D3
00028420 78 2d |x- | MOVEQ.L #0x2d,D4
00028422 2d 52 ff fa |-R | MOVE.L (A2),(A6-0x6)
00028426 55 4f |UO | SUBQ.L #0x2,A7
00028428 4e 93 |N | JSR (A3)
0002842a 1e 1f | | MOVE.B (A7)+,D7
0002842c be 03 | | CMP.B D3,D7
0002842e 66 08 |f | BNE 0x28438
00028430 20 51 | Q | MOVEA.L (A1),A0
00028432 42 90 |B | CLR.L (A0)
00028434 60 00 00 e2 |` | BRA 0x28518
00028438 be 04 | | CMP.B D4,D7
0002843a 66 0c |f | BNE 0x28448
0002843c 20 51 | Q | MOVEA.L (A1),A0
0002843e 20 bc 00 00 00 01 | | MOVE.L #0x1,(A0)
00028444 60 00 00 d2 |` | BRA 0x28518
00028448 0c 07 00 2f | / | CMPI.B #0x2f,D7
0002844c 66 0c |f | BNE 0x2845a
0002844e 20 51 | Q | MOVEA.L (A1),A0
00028450 20 bc 00 00 00 04 | | MOVE.L #0x4,(A0)
00028456 60 00 00 c0 |` | BRA 0x28518
0002845a 0c 07 00 3d | = | CMPI.B #0x3d,D7
0002845e 66 0c |f | BNE 0x2846c
00028460 20 51 | Q | MOVEA.L (A1),A0
00028462 20 bc 00 00 00 05 | | MOVE.L #0x5,(A0)
00028468 60 00 00 ae |` | BRA 0x28518
0002846c 0c 07 00 5c | \ | CMPI.B #0x5c,D7
00028470 66 0c |f | BNE 0x2847e
00028472 20 51 | Q | MOVEA.L (A1),A0
00028474 20 bc 00 00 00 06 | | MOVE.L #0x6,(A0)
0002847a 60 00 00 9c |` | BRA 0x28518
0002847e 4a 07 |J | TST.B D7
00028480 66 2c |f, | BNE 0x284ae
00028482 41 fa cf 10 |A | LEA.L 0x25394,A0
00028486 70 05 |p | MOVEQ.L #0x05,D0
00028488 2f 20 |/ | MOVE.L -(A0),-(A7)
0002848a 51 c8 ff fc |Q | DBF D0,0x28488
0002848e 59 4f |YO | SUBQ.L #0x4,A7
00028490 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00028494 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00028498 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7)
0002849c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000284a2 50 4f |PO | ADDQ.L #0x8,A7
000284a4 4e ba d1 f0 |N | JSR 0x25696
000284a8 de fc 00 1c | | ADDA.W #0x1c,A7
000284ac 60 6a |`j | BRA 0x28518
000284ae be 01 | | CMP.B D1,D7
000284b0 65 2c |e, | BCS 0x284de
000284b2 be 02 | | CMP.B D2,D7
000284b4 62 28 |b( | BHI 0x284de
000284b6 20 51 | Q | MOVEA.L (A1),A0
000284b8 20 bc 00 00 00 02 | | MOVE.L #0x2,(A0)
000284be 55 4f |UO | SUBQ.L #0x2,A7
000284c0 4e ba d2 32 |N 2 | JSR 0x256f4
000284c4 1e 1f | | MOVE.B (A7)+,D7
000284c6 be 01 | | CMP.B D1,D7
000284c8 65 0a |e | BCS 0x284d4
000284ca be 02 | | CMP.B D2,D7
000284cc 62 06 |b | BHI 0x284d4
000284ce 55 4f |UO | SUBQ.L #0x2,A7
000284d0 4e 93 |N | JSR (A3)
000284d2 1c 1f | | MOVE.B (A7)+,D6
000284d4 be 01 | | CMP.B D1,D7
000284d6 65 04 |e | BCS 0x284dc
000284d8 be 02 | | CMP.B D2,D7
000284da 63 e2 |c | BLS 0x284be
000284dc 60 3a |`: | BRA 0x28518
000284de 20 51 | Q | MOVEA.L (A1),A0
000284e0 20 bc 00 00 00 03 | | MOVE.L #0x3,(A0)
000284e6 7a 00 |z | MOVEQ.L #0x00,D5
000284e8 55 4f |UO | SUBQ.L #0x2,A7
000284ea 4e ba d2 08 |N | JSR 0x256f4
000284ee 1e 1f | | MOVE.B (A7)+,D7
000284f0 be 03 | | CMP.B D3,D7
000284f2 67 16 |g | BEQ 0x2850a
000284f4 be 04 | | CMP.B D4,D7
000284f6 67 12 |g | BEQ 0x2850a
000284f8 0c 07 00 2f | / | CMPI.B #0x2f,D7
000284fc 67 0c |g | BEQ 0x2850a
000284fe 0c 07 00 3d | = | CMPI.B #0x3d,D7
00028502 67 06 |g | BEQ 0x2850a
00028504 0c 07 00 5c | \ | CMPI.B #0x5c,D7
00028508 66 04 |f | BNE 0x2850e
0002850a 7a 01 |z | MOVEQ.L #0x01,D5
0002850c 60 06 |` | BRA 0x28514
0002850e 55 4f |UO | SUBQ.L #0x2,A7
00028510 4e 93 |N | JSR (A3)
00028512 1c 1f | | MOVE.B (A7)+,D6
00028514 4a 05 |J | TST.B D5
00028516 67 d0 |g | BEQ 0x284e8
00028518 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
0002851c 20 ae ff fa | | MOVE.L (A6-0x6),(A0)
00028520 21 52 00 04 |!R | MOVE.L (A2),(A0+0x4)
00028524 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4)
00028528 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
0002852c 4e 5e |N^ | UNLK A6
0002852e 4e 75 |Nu | RTS
00028530 ; --------------------------------------------------------------------------------------
00028530 ; OMSI PASCAL Function
00028530 ; <LVAR 0x00c 4(r)>
00028530 ; <LVAR 0x008 4(r)>
00028530 ; --------------------------------------------------------------------------------------
00028530 4e 56 ff c0 |NV | LINK.W A6,#0xffc0
00028534 bf d5 | | CMPA.L (A5),A7
00028536 62 06 |b | BHI 0x2853e
00028538 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002853c 4e 76 |Nv | TRAPV
0002853e de fc 00 34 | 4 | ADDA.W #0x34,A7
00028542 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7)
00028546 45 ee 00 0c |E | LEA.L (A6+0xc),A2
0002854a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
0002854e 2f 08 |/ | MOVE.L A0,-(A7)
00028550 2c 39 00 02 bb c0 |,9 | MOVE.L 0x2bbc0,D6
00028556 9c 92 | | SUB.L (A2),D6
00028558 2a 12 |* | MOVE.L (A2),D5
0002855a da 86 | | ADD.L D6,D5
0002855c 30 10 |0 | MOVE.W (A0),D0
0002855e 48 c0 |H | EXTW.L D0
00028560 b0 86 | | CMP.L D6,D0
00028562 67 0c |g | BEQ 0x28570
00028564 2f 05 |/ | MOVE.L D5,-(A7)
00028566 2f 06 |/ | MOVE.L D6,-(A7)
00028568 91 97 | | SUB.L D0,(A7)
0002856a 4e ba d6 7e |N ~ | JSR 0x25bea
0002856e 50 4f |PO | ADDQ.L #0x8,A7
00028570 2f 00 |/ | MOVE.L D0,-(A7)
00028572 7e 01 |~ | MOVEQ.L #0x01,D7
00028574 be 97 | | CMP.L (A7),D7
00028576 6e 34 |n4 | BGT 0x285ac
00028578 20 12 | | MOVE.L (A2),D0
0002857a d0 87 | | ADD.L D7,D0
0002857c 53 80 |S | SUBQ.L #0x1,D0
0002857e 53 80 |S | SUBQ.L #0x1,D0
00028580 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0
00028586 63 02 |c | BLS 0x2858a
00028588 4e 4f |NO | TRAP #15
0002858a 41 f9 00 02 9b b8 |A | LEA.L 0x29bb8,A0
00028590 22 07 |" | MOVE.L D7,D1
00028592 53 81 |S | SUBQ.L #0x1,D1
00028594 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1
0002859a 63 02 |c | BLS 0x2859e
0002859c 4e 4f |NO | TRAP #15
0002859e 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1
000285a2 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)
000285a8 52 87 |R | ADDQ.L #0x1,D7
000285aa 68 c8 |h | BVC 0x28574
000285ac 50 4f |PO | ADDQ.L #0x8,A7
000285ae 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2
000285b2 4e 5e |N^ | UNLK A6
000285b4 4e 75 |Nu | RTS
000285b6 ; --------------------------------------------------------------------------------------
000285b6 ; OMSI PASCAL Function
000285b6 ; <LVAR 0x00c 4(r)>
000285b6 ; <LVAR 0x008 4(r)>
000285b6 ; <LVAR -0x008 @ 4(r)>
000285b6 ; <LVAR -0x00c @ 4(r)>
000285b6 ; <LVAR -0x010 4(r)>
000285b6 ; <LVAR -0x014 @ 4(r)>
000285b6 ; <LVAR -0x018 4(rw)>
000285b6 ; <LVAR -0x01c 4(rw)>
000285b6 ; <LVAR -0x020 4(rw)>
000285b6 ; <LVAR -0x024 4(rw)>
000285b6 ; <LVAR -0x028 4(rw)>
000285b6 ; <LVAR -0x034 4(rw)>
000285b6 ; --------------------------------------------------------------------------------------
000285b6 4e 56 ff 70 |NV p | LINK.W A6,#0xff70
000285ba bf d5 | | CMPA.L (A5),A7
000285bc 62 06 |b | BHI 0x285c4
000285be 44 fc 00 02 |D | MOVE.W #0x2,CCR
000285c2 4e 76 |Nv | TRAPV
000285c4 de fc 00 5c | \ | ADDA.W #0x5c,A7
000285c8 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000285cc 43 ee ff f8 |C | LEA.L (A6-0x8),A1
000285d0 45 ee ff ec |E | LEA.L (A6-0x14),A2
000285d4 47 ee ff dc |G | LEA.L (A6-0x24),A3
000285d8 49 ee ff e0 |I | LEA.L (A6-0x20),A4
000285dc 74 14 |t | MOVEQ.L #0x14,D2
000285de 2d 79 00 02 bb c0 ff d8 |-y | MOVE.L 0x2bbc0,(A6-0x28)
000285e6 48 51 |HQ | PEA.L (A1)
000285e8 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
000285ee 58 4f |XO | ADDQ.L #0x4,A7
000285f0 48 6e ff f4 |Hn | PEA.L (A6-0xc)
000285f4 48 52 |HR | PEA.L (A2)
000285f6 4e ba fd fe |N | JSR 0x283f6
000285fa 50 4f |PO | ADDQ.L #0x8,A7
000285fc 42 ae ff cc |B | CLR.L (A6-0x34)
00028600 7e 00 |~ | MOVEQ.L #0x00,D7
00028602 20 2e ff cc | . | MOVE.L (A6-0x34),D0
00028606 b0 82 | | CMP.L D2,D0
00028608 63 02 |c | BLS 0x2860c
0002860a 4e 4e |NN | TRAP #14
0002860c d0 40 | @ | ADD.W D0,D0
0002860e 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
00028616 00 2a | * | .CONST 0x2a ; [0x0] -> 0x28640
00028618 00 34 | 4 | .CONST 0x34 ; [0x1] -> 0x2864a
0002861a 00 48 | H | .CONST 0x48 ; [0x2] -> 0x2865e
0002861c 00 64 | d | .CONST 0x64 ; [0x3] -> 0x2867a
0002861e 00 68 | h | .CONST 0x68 ; [0x4] -> 0x2867e
00028620 00 76 | v | .CONST 0x76 ; [0x5] -> 0x2868c
00028622 00 8a | | .CONST 0x8a ; [0x6] -> 0x286a0
00028624 00 90 | | .CONST 0x90 ; [0x7] -> 0x286a6
00028626 00 92 | | .CONST 0x92 ; [0x8] -> 0x286a8
00028628 00 a8 | | .CONST 0xa8 ; [0x9] -> 0x286be
0002862a 00 b6 | | .CONST 0xb6 ; [0xa] -> 0x286cc
0002862c 00 ce | | .CONST 0xce ; [0xb] -> 0x286e4
0002862e 00 e2 | | .CONST 0xe2 ; [0xc] -> 0x286f8
00028630 00 f6 | | .CONST 0xf6 ; [0xd] -> 0x2870c
00028632 01 0c | | .CONST 0x10c ; [0xe] -> 0x28722
00028634 01 0e | | .CONST 0x10e ; [0xf] -> 0x28724
00028636 01 28 | ( | .CONST 0x128 ; [0x10] -> 0x2873e
00028638 01 3e | > | .CONST 0x13e ; [0x11] -> 0x28754
0002863a 01 4c | L | .CONST 0x14c ; [0x12] -> 0x28762
0002863c 01 4e | N | .CONST 0x14e ; [0x13] -> 0x28764
0002863e 01 50 | P | .CONST 0x150 ; [0x14] -> 0x28766
00028640 switch@0x2860e[0x0]:
00028640 7c 00 || | MOVEQ.L #0x00,D6
00028642 2a 2e 00 08 |*. | MOVE.L (A6+0x8),D5
00028646 60 00 01 48 |` H | BRA 0x28790
0002864a switch@0x2860e[0x1]:
0002864a 59 4f |YO | SUBQ.L #0x4,A7
0002864c 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
00028650 2f 12 |/ | MOVE.L (A2),-(A7)
00028652 4e ba f8 80 |N | JSR 0x27ed4
00028656 50 4f |PO | ADDQ.L #0x8,A7
00028658 2c 1f |, | MOVE.L (A7)+,D6
0002865a 60 00 01 34 |` 4 | BRA 0x28790
0002865e switch@0x2860e[0x2]:
0002865e 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7)
00028662 2f 06 |/ | MOVE.L D6,-(A7)
00028664 2f 06 |/ | MOVE.L D6,-(A7)
00028666 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
0002866a 4e ba f8 e4 |N | JSR 0x27f50
0002866e de fc 00 10 | | ADDA.W #0x10,A7
00028672 60 00 01 78 |` x | BRA 0x287ec
00028676 60 00 |` | .XXX[0x2]
00028678 01 18 | | .XXX[0x2]
0002867a switch@0x2860e[0x3]:
0002867a 60 00 01 14 |` | BRA 0x28790
0002867e switch@0x2860e[0x4]:
0002867e 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7)
00028682 2f 06 |/ | MOVE.L D6,-(A7)
00028684 2f 05 |/ | MOVE.L D5,-(A7)
00028686 60 de |` | BRA 0x28666
00028688 60 00 01 06 |` | .XXX[0x4]
0002868c switch@0x2860e[0x5]:
0002868c 59 4f |YO | SUBQ.L #0x4,A7
0002868e 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
00028692 2f 12 |/ | MOVE.L (A2),-(A7)
00028694 4e ba f8 3e |N > | JSR 0x27ed4
00028698 50 4f |PO | ADDQ.L #0x8,A7
0002869a 2a 1f |* | MOVE.L (A7)+,D5
0002869c 60 00 00 f2 |` | BRA 0x28790
000286a0 switch@0x2860e[0x6]:
000286a0 7c 01 || | MOVEQ.L #0x01,D6
000286a2 60 00 00 ec |` | BRA 0x28790
000286a6 switch@0x2860e[0x7]:
000286a6 60 e4 |` | BRA switch@0x2860e[0x5]
000286a8 switch@0x2860e[0x8]:
000286a8 51 4f |QO | SUBQ.L #0x8,A7
000286aa 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
000286ae 2f 06 |/ | MOVE.L D6,-(A7)
000286b0 4e ba dc 2e |N . | JSR 0x262e0
000286b4 50 4f |PO | ADDQ.L #0x8,A7
000286b6 26 9f |& | MOVE.L (A7)+,(A3)
000286b8 28 9f |( | MOVE.L (A7)+,(A4)
000286ba 60 00 00 d4 |` | BRA 0x28790
000286be switch@0x2860e[0x9]:
000286be 2d 52 ff e4 |-R | MOVE.L (A2),(A6-0x1c)
000286c2 2d 6e ff f0 ff e8 |-n | MOVE.L (A6-0x10),(A6-0x18)
000286c8 60 00 00 c6 |` | BRA 0x28790
000286cc switch@0x2860e[0xa]:
000286cc 2f 11 |/ | MOVE.L (A1),-(A7)
000286ce 2f 14 |/ | MOVE.L (A4),-(A7)
000286d0 2f 13 |/ | MOVE.L (A3),-(A7)
000286d2 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7)
000286d6 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7)
000286da 4e ba fb 26 |N & | JSR 0x28202
000286de de c2 | | ADDA.W D2,A7
000286e0 60 00 00 ae |` | BRA 0x28790
000286e4 switch@0x2860e[0xb]:
000286e4 2f 11 |/ | MOVE.L (A1),-(A7)
000286e6 2f 14 |/ | MOVE.L (A4),-(A7)
000286e8 2f 13 |/ | MOVE.L (A3),-(A7)
000286ea 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7)
000286ee 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7)
000286f2 4e ba fa 7a |N z | JSR 0x2816e
000286f6 60 e6 |` | BRA 0x286de
000286f8 switch@0x2860e[0xc]:
000286f8 2f 11 |/ | MOVE.L (A1),-(A7)
000286fa 2f 14 |/ | MOVE.L (A4),-(A7)
000286fc 2f 13 |/ | MOVE.L (A3),-(A7)
000286fe 4e ba fb b8 |N | JSR 0x282b8
00028702 de fc 00 0c | | ADDA.W #0xc,A7
00028706 7e 01 |~ | MOVEQ.L #0x01,D7
00028708 60 00 00 86 |` | BRA 0x28790
0002870c switch@0x2860e[0xd]:
0002870c 2f 11 |/ | MOVE.L (A1),-(A7)
0002870e 2f 14 |/ | MOVE.L (A4),-(A7)
00028710 2f 13 |/ | MOVE.L (A3),-(A7)
00028712 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7)
00028716 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7)
0002871a 4e ba fa 52 |N R | JSR 0x2816e
0002871e de c2 | | ADDA.W D2,A7
00028720 60 e4 |` | BRA 0x28706
00028722 switch@0x2860e[0xe]:
00028722 60 e2 |` | BRA 0x28706
00028724 switch@0x2860e[0xf]:
00028724 2f 11 |/ | MOVE.L (A1),-(A7)
00028726 51 4f |QO | SUBQ.L #0x8,A7
00028728 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
0002872c 2f 06 |/ | MOVE.L D6,-(A7)
0002872e 4e ba db b0 |N | JSR 0x262e0
00028732 50 4f |PO | ADDQ.L #0x8,A7
00028734 4e ba fb 82 |N | JSR 0x282b8
00028738 de fc 00 0c | | ADDA.W #0xc,A7
0002873c 60 52 |`R | BRA 0x28790
0002873e switch@0x2860e[0x10]:
0002873e 2f 11 |/ | MOVE.L (A1),-(A7)
00028740 51 4f |QO | SUBQ.L #0x8,A7
00028742 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00028746 2f 06 |/ | MOVE.L D6,-(A7)
00028748 4e ba db 96 |N | JSR 0x262e0
0002874c 50 4f |PO | ADDQ.L #0x8,A7
0002874e 4e ba fb ee |N | JSR 0x2833e
00028752 60 ae |` | BRA 0x28702
00028754 switch@0x2860e[0x11]:
00028754 2f 11 |/ | MOVE.L (A1),-(A7)
00028756 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7)
0002875a 2f 12 |/ | MOVE.L (A2),-(A7)
0002875c 4e ba fc 50 |N P | JSR 0x283ae
00028760 60 d6 |` | BRA 0x28738
00028762 switch@0x2860e[0x12]:
00028762 60 2c |`, | BRA 0x28790
00028764 switch@0x2860e[0x13]:
00028764 60 a0 |` | BRA 0x28706
00028766 switch@0x2860e[0x14]:
00028766 41 fa cc 44 |A D | LEA.L 0x253ac,A0
0002876a 70 05 |p | MOVEQ.L #0x05,D0
0002876c 2f 20 |/ | MOVE.L -(A0),-(A7)
0002876e 51 c8 ff fc |Q | DBF D0,0x2876c
00028772 59 4f |YO | SUBQ.L #0x4,A7
00028774 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00028778 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002877c 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7)
00028780 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00028786 50 4f |PO | ADDQ.L #0x8,A7
00028788 4e ba cf 0c |N | JSR 0x25696
0002878c de fc 00 1c | | ADDA.W #0x1c,A7
00028790 4a 07 |J | TST.B D7
00028792 66 46 |fF | BNE 0x287da
00028794 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00028798 48 52 |HR | PEA.L (A2)
0002879a 4e ba fc 5a |N Z | JSR 0x283f6
0002879e 50 4f |PO | ADDQ.L #0x8,A7
000287a0 20 2e ff cc | . | MOVE.L (A6-0x34),D0
000287a4 0c 80 00 00 00 13 | | CMPI.L #0x00000013,D0
000287aa 63 02 |c | BLS 0x287ae
000287ac 4e 4f |NO | TRAP #15
000287ae 28 00 |( | MOVE.L D0,D4
000287b0 76 07 |v | MOVEQ.L #0x07,D3
000287b2 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
000287b8 41 fa ce 0e |A | LEA.L 0x255c8,A0
000287bc 20 2e ff f4 | . | MOVE.L (A6-0xc),D0
000287c0 0c 80 00 00 00 06 | | CMPI.L #0x00000006,D0
000287c6 63 02 |c | BLS 0x287ca
000287c8 4e 4f |NO | TRAP #15
000287ca 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0
000287ce 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1
000287d2 48 81 |H | EXTB.W D1
000287d4 48 c1 |H | EXTW.L D1
000287d6 2d 41 ff cc |-A | MOVE.L D1,(A6-0x34)
000287da 4a 07 |J | TST.B D7
000287dc 67 00 fe 24 |g $ | BEQ 0x28602
000287e0 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7)
000287e4 2f 11 |/ | MOVE.L (A1),-(A7)
000287e6 4e ba fd 48 |N H | JSR 0x28530
000287ea 50 4f |PO | ADDQ.L #0x8,A7
000287ec 48 51 |HQ | PEA.L (A1)
000287ee 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
000287f4 58 4f |XO | ADDQ.L #0x4,A7
000287f6 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000287fa 4e 5e |N^ | UNLK A6
000287fc 4e 75 |Nu | RTS
000287fe ; --------------------------------------------------------------------------------------
000287fe ; OMSI PASCAL Function
000287fe ; <LVAR 0x014 4(rw)>
000287fe ; <LVAR 0x010 4(r)>
000287fe ; <LVAR 0x00c 4(r)>
000287fe ; <LVAR 0x008 4(r)>
000287fe ; <LVAR -0x008 4(rw)>
000287fe ; <LVAR -0x00c 4(rw)>
000287fe ; <LVAR -0x018 4(w)>
000287fe ; --------------------------------------------------------------------------------------
000287fe 4e 56 ff 96 |NV | LINK.W A6,#0xff96
00028802 bf d5 | | CMPA.L (A5),A7
00028804 62 06 |b | BHI 0x2880c
00028806 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002880a 4e 76 |Nv | TRAPV
0002880c de fc 00 52 | R | ADDA.W #0x52,A7
00028810 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
00028814 43 ee ff f8 |C | LEA.L (A6-0x8),A1
00028818 45 ee 00 10 |E | LEA.L (A6+0x10),A2
0002881c 47 ee 00 0c |G | LEA.L (A6+0xc),A3
00028820 49 ee ff f4 |I | LEA.L (A6-0xc),A4
00028824 74 0c |t | MOVEQ.L #0x0c,D2
00028826 42 ae 00 14 |B | CLR.L (A6+0x14)
0002882a 59 4f |YO | SUBQ.L #0x4,A7
0002882c 2f 12 |/ | MOVE.L (A2),-(A7)
0002882e 2f 13 |/ | MOVE.L (A3),-(A7)
00028830 4e ba da 76 |N v | JSR 0x262a8
00028834 50 4f |PO | ADDQ.L #0x8,A7
00028836 28 9f |( | MOVE.L (A7)+,(A4)
00028838 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
0002883c 30 10 |0 | MOVE.W (A0),D0
0002883e 48 c0 |H | EXTW.L D0
00028840 52 80 |R | ADDQ.L #0x1,D0
00028842 22 80 |" | MOVE.L D0,(A1)
00028844 44 80 |D | NEG.L D0
00028846 d0 94 | | ADD.L (A4),D0
00028848 52 80 |R | ADDQ.L #0x1,D0
0002884a 2f 00 |/ | MOVE.L D0,-(A7)
0002884c 70 01 |p | MOVEQ.L #0x01,D0
0002884e b0 97 | | CMP.L (A7),D0
00028850 6e 00 00 9a |n | BGT 0x288ec
00028854 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18)
00028858 2f 00 |/ | MOVE.L D0,-(A7)
0002885a 7c 00 || | MOVEQ.L #0x00,D6
0002885c 2f 11 |/ | MOVE.L (A1),-(A7)
0002885e 7a 01 |z | MOVEQ.L #0x01,D5
00028860 ba 97 | | CMP.L (A7),D5
00028862 6e 48 |nH | BGT 0x288ac
00028864 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5
0002886a 66 04 |f | BNE 0x28870
0002886c 7e 2f |~/ | MOVEQ.L #0x2f,D7
0002886e 60 18 |` | BRA 0x28888
00028870 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00028874 20 05 | | MOVE.L D5,D0
00028876 53 80 |S | SUBQ.L #0x1,D0
00028878 53 80 |S | SUBQ.L #0x1,D0
0002887a 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0
00028880 63 02 |c | BLS 0x28884
00028882 4e 4f |NO | TRAP #15
00028884 1e 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D7
00028888 55 4f |UO | SUBQ.L #0x2,A7
0002888a 2f 12 |/ | MOVE.L (A2),-(A7)
0002888c 2f 13 |/ | MOVE.L (A3),-(A7)
0002888e 20 2f 00 0e | / | MOVE.L (A7+0xe),D0
00028892 d0 85 | | ADD.L D5,D0
00028894 53 80 |S | SUBQ.L #0x1,D0
00028896 2f 00 |/ | MOVE.L D0,-(A7)
00028898 4e ba f5 fa |N | JSR 0x27e94
0002889c de c2 | | ADDA.W D2,A7
0002889e be 1f | | CMP.B (A7)+,D7
000288a0 67 04 |g | BEQ 0x288a6
000288a2 58 4f |XO | ADDQ.L #0x4,A7
000288a4 60 08 |` | BRA 0x288ae
000288a6 2c 05 |, | MOVE.L D5,D6
000288a8 52 85 |R | ADDQ.L #0x1,D5
000288aa 68 b4 |h | BVC 0x28860
000288ac 58 4f |XO | ADDQ.L #0x4,A7
000288ae bc 91 | | CMP.L (A1),D6
000288b0 66 32 |f2 | BNE 0x288e4
000288b2 20 17 | | MOVE.L (A7),D0
000288b4 22 00 |" | MOVE.L D0,D1
000288b6 d2 91 | | ADD.L (A1),D1
000288b8 b2 94 | | CMP.L (A4),D1
000288ba 6c 26 |l& | BGE 0x288e2
000288bc 55 4f |UO | SUBQ.L #0x2,A7
000288be 2f 12 |/ | MOVE.L (A2),-(A7)
000288c0 2f 13 |/ | MOVE.L (A3),-(A7)
000288c2 2f 01 |/ | MOVE.L D1,-(A7)
000288c4 4e ba f5 ce |N | JSR 0x27e94
000288c8 de c2 | | ADDA.W D2,A7
000288ca 1e 1f | | MOVE.B (A7)+,D7
000288cc 0c 07 00 2f | / | CMPI.B #0x2f,D7
000288d0 67 06 |g | BEQ 0x288d8
000288d2 0c 07 00 3d | = | CMPI.B #0x3d,D7
000288d6 66 08 |f | BNE 0x288e0
000288d8 2d 40 00 14 |-@ | MOVE.L D0,(A6+0x14)
000288dc 50 4f |PO | ADDQ.L #0x8,A7
000288de 60 0e |` | BRA 0x288ee
000288e0 60 02 |` | BRA 0x288e4
000288e2 60 f4 |` | BRA 0x288d8
000288e4 20 1f | | MOVE.L (A7)+,D0
000288e6 52 80 |R | ADDQ.L #0x1,D0
000288e8 68 00 ff 64 |h d | BVC 0x2884e
000288ec 58 4f |XO | ADDQ.L #0x4,A7
000288ee 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
000288f2 4e 5e |N^ | UNLK A6
000288f4 4e 75 |Nu | RTS
000288f6 ; --------------------------------------------------------------------------------------
000288f6 ; OMSI PASCAL Function
000288f6 ; <LVAR 0x018 4(r)>
000288f6 ; <LVAR 0x014 4(r)>
000288f6 ; <LVAR 0x010 4(r)>
000288f6 ; <LVAR 0x00c 4(r)>
000288f6 ; <LVAR 0x008 4(r)>
000288f6 ; <LVAR -0x008 4(rw)>
000288f6 ; <LVAR -0x014 4(rw)>
000288f6 ; <LVAR -0x018 4(rw)>
000288f6 ; <LVAR -0x01c 4(rw)>
000288f6 ; --------------------------------------------------------------------------------------
000288f6 4e 56 ff 8e |NV | LINK.W A6,#0xff8e
000288fa bf d5 | | CMPA.L (A5),A7
000288fc 62 06 |b | BHI 0x28904
000288fe 44 fc 00 02 |D | MOVE.W #0x2,CCR
00028902 4e 76 |Nv | TRAPV
00028904 de fc 00 56 | V | ADDA.W #0x56,A7
00028908 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
0002890c 45 ee ff e4 |E | LEA.L (A6-0x1c),A2
00028910 47 ee ff e8 |G | LEA.L (A6-0x18),A3
00028914 49 ee ff f8 |I | LEA.L (A6-0x8),A4
00028918 72 0c |r | MOVEQ.L #0x0c,D1
0002891a 74 01 |t | MOVEQ.L #0x01,D2
0002891c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00028920 42 10 |B | CLR.B (A0)
00028922 22 6e 00 0c |"n | MOVEA.L (A6+0xc),A1
00028926 22 82 |" | MOVE.L D2,(A1)
00028928 51 4f |QO | SUBQ.L #0x8,A7
0002892a 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7)
0002892e 2f 2e 00 14 |/. | MOVE.L (A6+0x14),-(A7)
00028932 4e ba d9 ac |N | JSR 0x262e0
00028936 50 4f |PO | ADDQ.L #0x8,A7
00028938 24 9f |$ | MOVE.L (A7)+,(A2)
0002893a 26 9f |& | MOVE.L (A7)+,(A3)
0002893c 4a 92 |J | TST.L (A2)
0002893e 67 00 00 96 |g | BEQ 0x289d6
00028942 59 4f |YO | SUBQ.L #0x4,A7
00028944 2f 13 |/ | MOVE.L (A3),-(A7)
00028946 2f 12 |/ | MOVE.L (A2),-(A7)
00028948 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7)
0002894c 4e ba fe b0 |N | JSR 0x287fe
00028950 de c1 | | ADDA.W D1,A7
00028952 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14)
00028956 67 7e |g~ | BEQ 0x289d6
00028958 10 82 | | MOVE.B D2,(A0)
0002895a 48 51 |HQ | PEA.L (A1)
0002895c 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00028962 2f 13 |/ | MOVE.L (A3),-(A7)
00028964 2f 12 |/ | MOVE.L (A2),-(A7)
00028966 4e ba d9 40 |N @ | JSR 0x262a8
0002896a 50 4f |PO | ADDQ.L #0x8,A7
0002896c 28 9f |( | MOVE.L (A7)+,(A4)
0002896e 20 2e ff ec | . | MOVE.L (A6-0x14),D0
00028972 52 80 |R | ADDQ.L #0x1,D0
00028974 2f 14 |/ | MOVE.L (A4),-(A7)
00028976 2a 00 |* | MOVE.L D0,D5
00028978 ba 97 | | CMP.L (A7),D5
0002897a 6e 58 |nX | BGT 0x289d4
0002897c 55 4f |UO | SUBQ.L #0x2,A7
0002897e 2f 13 |/ | MOVE.L (A3),-(A7)
00028980 2f 12 |/ | MOVE.L (A2),-(A7)
00028982 2f 05 |/ | MOVE.L D5,-(A7)
00028984 4e ba f5 0e |N | JSR 0x27e94
00028988 de c1 | | ADDA.W D1,A7
0002898a 10 1f | | MOVE.B (A7)+,D0
0002898c 0c 00 00 3d | = | CMPI.B #0x3d,D0
00028990 66 3e |f> | BNE 0x289d0
00028992 20 05 | | MOVE.L D5,D0
00028994 52 80 |R | ADDQ.L #0x1,D0
00028996 2f 14 |/ | MOVE.L (A4),-(A7)
00028998 2e 00 |. | MOVE.L D0,D7
0002899a be 97 | | CMP.L (A7),D7
0002899c 6e 2e |n. | BGT 0x289cc
0002899e 55 4f |UO | SUBQ.L #0x2,A7
000289a0 2f 13 |/ | MOVE.L (A3),-(A7)
000289a2 2f 12 |/ | MOVE.L (A2),-(A7)
000289a4 2f 07 |/ | MOVE.L D7,-(A7)
000289a6 4e ba f4 ec |N | JSR 0x27e94
000289aa de c1 | | ADDA.W D1,A7
000289ac 1c 1f | | MOVE.B (A7)+,D6
000289ae 0c 06 00 2f | / | CMPI.B #0x2f,D6
000289b2 66 04 |f | BNE 0x289b8
000289b4 50 4f |PO | ADDQ.L #0x8,A7
000289b6 60 1e |` | BRA 0x289d6
000289b8 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
000289bc 2f 10 |/ | MOVE.L (A0),-(A7)
000289be 1f 06 | | MOVE.B D6,-(A7)
000289c0 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
000289c6 5c 4f |\O | ADDQ.L #0x6,A7
000289c8 52 87 |R | ADDQ.L #0x1,D7
000289ca 68 ce |h | BVC 0x2899a
000289cc 50 4f |PO | ADDQ.L #0x8,A7
000289ce 60 06 |` | BRA 0x289d6
000289d0 52 85 |R | ADDQ.L #0x1,D5
000289d2 68 a4 |h | BVC 0x28978
000289d4 58 4f |XO | ADDQ.L #0x4,A7
000289d6 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
000289da 4e 5e |N^ | UNLK A6
000289dc 4e 75 |Nu | RTS
000289de ; --------------------------------------------------------------------------------------
000289de ; OMSI PASCAL Function
000289de ; <LVAR 0x00c @ 4(r)>
000289de ; <LVAR 0x008 4(r)>
000289de ; <LVAR -0x010 @ 1(r)>
000289de ; --------------------------------------------------------------------------------------
000289de 4e 56 ff c0 |NV | LINK.W A6,#0xffc0
000289e2 bf d5 | | CMPA.L (A5),A7
000289e4 62 06 |b | BHI 0x289ec
000289e6 44 fc 00 02 |D | MOVE.W #0x2,CCR
000289ea 4e 76 |Nv | TRAPV
000289ec de fc 00 30 | 0 | ADDA.W #0x30,A7
000289f0 48 e7 87 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D0,-(A7)
000289f4 43 f9 00 02 bb c0 |C | LEA.L 0x2bbc0,A1
000289fa 45 ee 00 08 |E | LEA.L (A6+0x8),A2
000289fe 47 ee 00 0c |G | LEA.L (A6+0xc),A3
00028a02 2f 13 |/ | MOVE.L (A3),-(A7)
00028a04 2f 12 |/ | MOVE.L (A2),-(A7)
00028a06 48 6e ff f0 |Hn | PEA.L (A6-0x10)
00028a0a 4e b9 00 02 4d 1e |N M | JSR 0x24d1e
00028a10 de fc 00 0c | | ADDA.W #0xc,A7
00028a14 4a 2e ff f0 |J. | TST.B (A6-0x10)
00028a18 66 50 |fP | BNE 0x28a6a
00028a1a 2e 11 |. | MOVE.L (A1),D7
00028a1c 59 4f |YO | SUBQ.L #0x4,A7
00028a1e 2f 12 |/ | MOVE.L (A2),-(A7)
00028a20 4e ba d0 80 |N | JSR 0x25aa2
00028a24 58 4f |XO | ADDQ.L #0x4,A7
00028a26 2c 1f |, | MOVE.L (A7)+,D6
00028a28 2f 13 |/ | MOVE.L (A3),-(A7)
00028a2a 2f 12 |/ | MOVE.L (A2),-(A7)
00028a2c 4e ba f3 2a |N * | JSR 0x27d58
00028a30 50 4f |PO | ADDQ.L #0x8,A7
00028a32 2a 11 |* | MOVE.L (A1),D5
00028a34 20 07 | | MOVE.L D7,D0
00028a36 53 80 |S | SUBQ.L #0x1,D0
00028a38 0c 80 00 00 1f ff | | CMPI.L #0x00001fff,D0
00028a3e 63 02 |c | BLS 0x28a42
00028a40 4e 4f |NO | TRAP #15
00028a42 41 f9 00 02 9b b8 |A | LEA.L 0x29bb8,A0
00028a48 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0
00028a4c 0c 00 00 25 | % | CMPI.B #0x25,D0
00028a50 66 0c |f | BNE 0x28a5e
00028a52 22 87 |" | MOVE.L D7,(A1)
00028a54 2f 12 |/ | MOVE.L (A2),-(A7)
00028a56 2f 06 |/ | MOVE.L D6,-(A7)
00028a58 4e ba fb 5c |N \ | JSR 0x285b6
00028a5c 50 4f |PO | ADDQ.L #0x8,A7
00028a5e 52 87 |R | ADDQ.L #0x1,D7
00028a60 be b9 00 02 bb c4 | | CMP.L 0x2bbc4,D7
00028a66 6f cc |o | BLE 0x28a34
00028a68 22 85 |" | MOVE.L D5,(A1)
00028a6a 48 53 |HS | PEA.L (A3)
00028a6c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00028a72 58 4f |XO | ADDQ.L #0x4,A7
00028a74 4c df 0f e1 |L | MOVEM.L (A7)+,D0+D5+D6+D7+A0+A1+A2+A3
00028a78 4e 5e |N^ | UNLK A6
00028a7a 4e 75 |Nu | RTS
00028a7c ; --------------------------------------------------------------------------------------
00028a7c ; OMSI PASCAL Function
00028a7c ; <LVAR -0x006 @ 4(r)>
00028a7c ; <LVAR -0x00a @ 4(rw)>
00028a7c ; <LVAR -0x00b 1(w)>
00028a7c ; <LVAR -0x00c @ 1(r)>
00028a7c ; --------------------------------------------------------------------------------------
00028a7c 4e 56 ff 94 |NV | LINK.W A6,#0xff94
00028a80 bf d5 | | CMPA.L (A5),A7
00028a82 62 06 |b | BHI 0x28a8a
00028a84 44 fc 00 02 |D | MOVE.W #0x2,CCR
00028a88 4e 76 |Nv | TRAPV
00028a8a de fc 00 54 | T | ADDA.W #0x54,A7
00028a8e 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00028a92 45 ee ff fa |E | LEA.L (A6-0x6),A2
00028a96 47 f9 00 02 bb c0 |G | LEA.L 0x2bbc0,A3
00028a9c 49 ee ff f6 |I | LEA.L (A6-0xa),A4
00028aa0 2e 13 |. | MOVE.L (A3),D7
00028aa2 48 52 |HR | PEA.L (A2)
00028aa4 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00028aa8 4e ba cf 4c |N L | JSR 0x259f6
00028aac 50 4f |PO | ADDQ.L #0x8,A7
00028aae 2c 13 |, | MOVE.L (A3),D6
00028ab0 59 4f |YO | SUBQ.L #0x4,A7
00028ab2 2f 12 |/ | MOVE.L (A2),-(A7)
00028ab4 4e ba cf ec |N | JSR 0x25aa2
00028ab8 58 4f |XO | ADDQ.L #0x4,A7
00028aba 20 1f | | MOVE.L (A7)+,D0
00028abc 0c 80 ff ff ff ff | | CMPI.L #0xffffffff,D0
00028ac2 67 00 02 ac |g | BEQ 0x28d70
00028ac6 59 4f |YO | SUBQ.L #0x4,A7
00028ac8 2f 12 |/ | MOVE.L (A2),-(A7)
00028aca 48 78 00 00 |Hx | PEA.L 0x0
00028ace 4e ba d8 ee |N | JSR 0x263be
00028ad2 50 4f |PO | ADDQ.L #0x8,A7
00028ad4 28 97 |( | MOVE.L (A7),(A4)
00028ad6 54 4f |TO | ADDQ.L #0x2,A7
00028ad8 2f 14 |/ | MOVE.L (A4),-(A7)
00028ada 4e ba f1 c4 |N | JSR 0x27ca0
00028ade 58 4f |XO | ADDQ.L #0x4,A7
00028ae0 10 1f | | MOVE.B (A7)+,D0
00028ae2 48 80 |H | EXTB.W D0
00028ae4 41 bc 00 2b |A + | CHK.W #0x2b,D0
00028ae8 1d 40 ff f5 | @ | MOVE.B D0,(A6-0xb)
00028aec 4a 00 |J | TST.B D0
00028aee 66 0e |f | BNE 0x28afe
00028af0 2f 14 |/ | MOVE.L (A4),-(A7)
00028af2 2f 12 |/ | MOVE.L (A2),-(A7)
00028af4 4e ba fe e8 |N | JSR 0x289de
00028af8 50 4f |PO | ADDQ.L #0x8,A7
00028afa 60 00 02 6c |` l | BRA 0x28d68
00028afe 48 54 |HT | PEA.L (A4)
00028b00 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00028b06 58 4f |XO | ADDQ.L #0x4,A7
00028b08 12 00 | | MOVE.B D0,D1
00028b0a 48 81 |H | EXTB.W D1
00028b0c 43 bc 00 2b |C + | CHK.W #0x2b,D1
00028b10 41 fa ca 86 |A | LEA.L 0x25598,A0
00028b14 30 01 |0 | MOVE.W D1,D0
00028b16 48 c0 |H | EXTW.L D0
00028b18 24 00 |$ | MOVE.L D0,D2
00028b1a e2 9a | | ROR.L #0x1,D2
00028b1c d0 c2 | | ADDA.W D2,A0
00028b1e 48 42 |HB | SWAP.W D2
00028b20 e7 5a | Z | ROL.W #0x3,D2
00028b22 42 83 |B | CLR.L D3
00028b24 16 10 | | MOVE.B (A0),D3
00028b26 e5 2b | + | LSL.B D2,D3
00028b28 e8 0b | | LSR.B #0x4,D3
00028b2a 2a 03 |* | MOVE.L D3,D5
00028b2c 0c 85 00 00 00 0f | | CMPI.L #0x0000000f,D5
00028b32 67 2c |g, | BEQ 0x28b60
00028b34 28 00 |( | MOVE.L D0,D4
00028b36 76 0a |v | MOVEQ.L #0x0a,D3
00028b38 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
00028b3e 41 fa c8 8a |A | LEA.L COMMAND_TABLE_253ca,A0
00028b42 9e fc 00 0a | | SUBA.W #0xa,A7
00028b46 22 4f |"O | MOVEA.L A7,A1
00028b48 41 f0 40 00 |A @ | LEA.L (A0+D4.W),A0
00028b4c 70 09 |p | MOVEQ.L #0x09,D0
00028b4e 12 d8 | | MOVE.B (A0)+,(A1)+
00028b50 51 c8 ff fc |Q | DBF D0,0x28b4e
00028b54 2f 12 |/ | MOVE.L (A2),-(A7)
00028b56 2f 05 |/ | MOVE.L D5,-(A7)
00028b58 4e ba cf 7e |N ~ | JSR 0x25ad8
00028b5c de fc 00 12 | | ADDA.W #0x12,A7
00028b60 53 41 |SA | SUBQ.W #0x1,D1
00028b62 0c 41 00 2a | A * | CMPI.W #0x002a,D1
00028b66 63 02 |c | BLS 0x28b6a
00028b68 4e 4e |NN | TRAP #14
00028b6a d2 41 | A | ADD.W D1,D1
00028b6c 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W
00028b74 00 56 | V | .CONST 0x56 ; [0x0] -> 0x28bca
00028b76 00 62 | b | .CONST 0x62 ; [0x1] -> 0x28bd6
00028b78 00 74 | t | .CONST 0x74 ; [0x2] -> 0x28be8
00028b7a 00 82 | | .CONST 0x82 ; [0x3] -> 0x28bf6
00028b7c 01 e6 | | .CONST 0x1e6 ; [0x4] -> 0x28d5a
00028b7e 00 8a | | .CONST 0x8a ; [0x5] -> 0x28bfe
00028b80 00 8e | | .CONST 0x8e ; [0x6] -> 0x28c02
00028b82 00 96 | | .CONST 0x96 ; [0x7] -> 0x28c0a
00028b84 00 9e | | .CONST 0x9e ; [0x8] -> 0x28c12
00028b86 00 a6 | | .CONST 0xa6 ; [0x9] -> 0x28c1a
00028b88 00 ae | | .CONST 0xae ; [0xa] -> 0x28c22
00028b8a 00 b6 | | .CONST 0xb6 ; [0xb] -> 0x28c2a
00028b8c 00 be | | .CONST 0xbe ; [0xc] -> 0x28c32
00028b8e 00 c6 | | .CONST 0xc6 ; [0xd] -> 0x28c3a
00028b90 00 ce | | .CONST 0xce ; [0xe] -> 0x28c42
00028b92 00 d6 | | .CONST 0xd6 ; [0xf] -> 0x28c4a
00028b94 00 e0 | | .CONST 0xe0 ; [0x10] -> 0x28c54
00028b96 00 ea | | .CONST 0xea ; [0x11] -> 0x28c5e
00028b98 00 f4 | | .CONST 0xf4 ; [0x12] -> 0x28c68
00028b9a 00 fe | | .CONST 0xfe ; [0x13] -> 0x28c72
00028b9c 01 08 | | .CONST 0x108 ; [0x14] -> 0x28c7c
00028b9e 01 12 | | .CONST 0x112 ; [0x15] -> 0x28c86
00028ba0 01 1c | | .CONST 0x11c ; [0x16] -> 0x28c90
00028ba2 01 26 | & | .CONST 0x126 ; [0x17] -> 0x28c9a
00028ba4 01 30 | 0 | .CONST 0x130 ; [0x18] -> 0x28ca4
00028ba6 01 3a | : | .CONST 0x13a ; [0x19] -> 0x28cae
00028ba8 01 44 | D | .CONST 0x144 ; [0x1a] -> 0x28cb8
00028baa 01 4e | N | .CONST 0x14e ; [0x1b] -> 0x28cc2
00028bac 01 58 | X | .CONST 0x158 ; [0x1c] -> 0x28ccc
00028bae 01 62 | b | .CONST 0x162 ; [0x1d] -> 0x28cd6
00028bb0 01 6c | l | .CONST 0x16c ; [0x1e] -> 0x28ce0
00028bb2 01 76 | v | .CONST 0x176 ; [0x1f] -> 0x28cea
00028bb4 01 80 | | .CONST 0x180 ; [0x20] -> 0x28cf4
00028bb6 01 8a | | .CONST 0x18a ; [0x21] -> 0x28cfe
00028bb8 01 94 | | .CONST 0x194 ; [0x22] -> 0x28d08
00028bba 01 9e | | .CONST 0x19e ; [0x23] -> 0x28d12
00028bbc 01 a8 | | .CONST 0x1a8 ; [0x24] -> 0x28d1c
00028bbe 01 b2 | | .CONST 0x1b2 ; [0x25] -> 0x28d26
00028bc0 01 b8 | | .CONST 0x1b8 ; [0x26] -> 0x28d2c
00028bc2 01 c2 | | .CONST 0x1c2 ; [0x27] -> 0x28d36
00028bc4 01 cc | | .CONST 0x1cc ; [0x28] -> 0x28d40
00028bc6 01 d6 | | .CONST 0x1d6 ; [0x29] -> 0x28d4a
00028bc8 01 dc | | .CONST 0x1dc ; [0x2a] -> 0x28d50
00028bca switch@0x28b6c[0x0]:
00028bca 2f 12 |/ | MOVE.L (A2),-(A7)
00028bcc 4e ba d9 78 |N x | JSR 0x26546
00028bd0 58 4f |XO | ADDQ.L #0x4,A7
00028bd2 60 00 01 94 |` | BRA 0x28d68
00028bd6 switch@0x28b6c[0x1]:
00028bd6 42 27 |B' | CLR.B -(A7)
00028bd8 48 78 00 01 |Hx | PEA.L 0x1
00028bdc 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00028be2 5c 4f |\O | ADDQ.L #0x6,A7
00028be4 60 00 01 82 |` | BRA 0x28d68
00028be8 switch@0x28b6c[0x2]:
00028be8 59 4f |YO | SUBQ.L #0x4,A7
00028bea 4e b9 00 01 02 ac |N | JSR FSCALL_102ac
00028bf0 4e ba d9 2a |N * | JSR 0x2651c
00028bf4 60 da |` | BRA 0x28bd0
00028bf6 switch@0x28b6c[0x3]:
00028bf6 2f 12 |/ | MOVE.L (A2),-(A7)
00028bf8 4e ba db 26 |N & | JSR 0x26720
00028bfc 60 d2 |` | BRA 0x28bd0
00028bfe switch@0x28b6c[0x5]:
00028bfe 60 00 01 68 |` h | BRA 0x28d68
00028c02 switch@0x28b6c[0x6]:
00028c02 2f 12 |/ | MOVE.L (A2),-(A7)
00028c04 4e ba de 40 |N @ | JSR 0x26a46
00028c08 60 c6 |` | BRA 0x28bd0
00028c0a switch@0x28b6c[0x7]:
00028c0a 2f 12 |/ | MOVE.L (A2),-(A7)
00028c0c 4e ba df a4 |N | JSR 0x26bb2
00028c10 60 be |` | BRA 0x28bd0
00028c12 switch@0x28b6c[0x8]:
00028c12 2f 12 |/ | MOVE.L (A2),-(A7)
00028c14 4e ba e0 8a |N | JSR 0x26ca0
00028c18 60 b6 |` | BRA 0x28bd0
00028c1a switch@0x28b6c[0x9]:
00028c1a 2f 12 |/ | MOVE.L (A2),-(A7)
00028c1c 4e ba e4 76 |N v | JSR 0x27094
00028c20 60 ae |` | BRA 0x28bd0
00028c22 switch@0x28b6c[0xa]:
00028c22 2f 12 |/ | MOVE.L (A2),-(A7)
00028c24 4e ba e4 e6 |N | JSR 0x2710c
00028c28 60 a6 |` | BRA 0x28bd0
00028c2a switch@0x28b6c[0xb]:
00028c2a 2f 12 |/ | MOVE.L (A2),-(A7)
00028c2c 4e ba e5 56 |N V | JSR 0x27184
00028c30 60 9e |` | BRA 0x28bd0
00028c32 switch@0x28b6c[0xc]:
00028c32 2f 12 |/ | MOVE.L (A2),-(A7)
00028c34 4e ba e5 7a |N z | JSR 0x271b0
00028c38 60 96 |` | BRA 0x28bd0
00028c3a switch@0x28b6c[0xd]:
00028c3a 2f 12 |/ | MOVE.L (A2),-(A7)
00028c3c 4e ba e6 72 |N r | JSR 0x272b0
00028c40 60 8e |` | BRA 0x28bd0
00028c42 switch@0x28b6c[0xe]:
00028c42 2f 12 |/ | MOVE.L (A2),-(A7)
00028c44 4e ba e7 50 |N P | JSR 0x27396
00028c48 60 86 |` | BRA 0x28bd0
00028c4a switch@0x28b6c[0xf]:
00028c4a 2f 12 |/ | MOVE.L (A2),-(A7)
00028c4c 4e ba e7 74 |N t | JSR 0x273c2
00028c50 60 00 ff 7e |` ~ | BRA 0x28bd0
00028c54 switch@0x28b6c[0x10]:
00028c54 2f 12 |/ | MOVE.L (A2),-(A7)
00028c56 4e ba e7 b6 |N | JSR 0x2740e
00028c5a 60 00 ff 74 |` t | BRA 0x28bd0
00028c5e switch@0x28b6c[0x11]:
00028c5e 2f 12 |/ | MOVE.L (A2),-(A7)
00028c60 4e ba e7 f8 |N | JSR 0x2745a
00028c64 60 00 ff 6a |` j | BRA 0x28bd0
00028c68 switch@0x28b6c[0x12]:
00028c68 2f 12 |/ | MOVE.L (A2),-(A7)
00028c6a 4e ba e8 3a |N : | JSR 0x274a6
00028c6e 60 00 ff 60 |` ` | BRA 0x28bd0
00028c72 switch@0x28b6c[0x13]:
00028c72 2f 12 |/ | MOVE.L (A2),-(A7)
00028c74 4e ba e8 7c |N | | JSR 0x274f2
00028c78 60 00 ff 56 |` V | BRA 0x28bd0
00028c7c switch@0x28b6c[0x14]:
00028c7c 2f 12 |/ | MOVE.L (A2),-(A7)
00028c7e 4e ba e8 be |N | JSR 0x2753e
00028c82 60 00 ff 4c |` L | BRA 0x28bd0
00028c86 switch@0x28b6c[0x15]:
00028c86 2f 12 |/ | MOVE.L (A2),-(A7)
00028c88 4e ba e9 00 |N | JSR 0x2758a
00028c8c 60 00 ff 42 |` B | BRA 0x28bd0
00028c90 switch@0x28b6c[0x16]:
00028c90 2f 12 |/ | MOVE.L (A2),-(A7)
00028c92 4e ba e9 40 |N @ | JSR 0x275d4
00028c96 60 00 ff 38 |` 8 | BRA 0x28bd0
00028c9a switch@0x28b6c[0x17]:
00028c9a 2f 12 |/ | MOVE.L (A2),-(A7)
00028c9c 4e ba e9 80 |N | JSR 0x2761e
00028ca0 60 00 ff 2e |` . | BRA 0x28bd0
00028ca4 switch@0x28b6c[0x18]:
00028ca4 2f 12 |/ | MOVE.L (A2),-(A7)
00028ca6 4e ba e9 c0 |N | JSR 0x27668
00028caa 60 00 ff 24 |` $ | BRA 0x28bd0
00028cae switch@0x28b6c[0x19]:
00028cae 2f 12 |/ | MOVE.L (A2),-(A7)
00028cb0 4e ba ea 00 |N | JSR 0x276b2
00028cb4 60 00 ff 1a |` | BRA 0x28bd0
00028cb8 switch@0x28b6c[0x1a]:
00028cb8 2f 12 |/ | MOVE.L (A2),-(A7)
00028cba 4e ba ea 40 |N @ | JSR 0x276fc
00028cbe 60 00 ff 10 |` | BRA 0x28bd0
00028cc2 switch@0x28b6c[0x1b]:
00028cc2 2f 12 |/ | MOVE.L (A2),-(A7)
00028cc4 4e ba ea 80 |N | JSR 0x27746
00028cc8 60 00 ff 06 |` | BRA 0x28bd0
00028ccc switch@0x28b6c[0x1c]:
00028ccc 2f 12 |/ | MOVE.L (A2),-(A7)
00028cce 4e ba ea c0 |N | JSR 0x27790
00028cd2 60 00 fe fc |` | BRA 0x28bd0
00028cd6 switch@0x28b6c[0x1d]:
00028cd6 2f 12 |/ | MOVE.L (A2),-(A7)
00028cd8 4e ba eb 00 |N | JSR 0x277da
00028cdc 60 00 fe f2 |` | BRA 0x28bd0
00028ce0 switch@0x28b6c[0x1e]:
00028ce0 2f 12 |/ | MOVE.L (A2),-(A7)
00028ce2 4e ba eb 3a |N : | JSR 0x2781e
00028ce6 60 00 fe e8 |` | BRA 0x28bd0
00028cea switch@0x28b6c[0x1f]:
00028cea 2f 12 |/ | MOVE.L (A2),-(A7)
00028cec 4e ba eb 76 |N v | JSR 0x27864
00028cf0 60 00 fe de |` | BRA 0x28bd0
00028cf4 switch@0x28b6c[0x20]:
00028cf4 2f 12 |/ | MOVE.L (A2),-(A7)
00028cf6 4e ba eb a2 |N | JSR 0x2789a
00028cfa 60 00 fe d4 |` | BRA 0x28bd0
00028cfe switch@0x28b6c[0x21]:
00028cfe 2f 12 |/ | MOVE.L (A2),-(A7)
00028d00 4e ba ec 28 |N ( | JSR 0x2792a
00028d04 60 00 fe ca |` | BRA 0x28bd0
00028d08 switch@0x28b6c[0x22]:
00028d08 2f 12 |/ | MOVE.L (A2),-(A7)
00028d0a 4e ba ec 90 |N | JSR 0x2799c
00028d0e 60 00 fe c0 |` | BRA 0x28bd0
00028d12 switch@0x28b6c[0x23]:
00028d12 2f 12 |/ | MOVE.L (A2),-(A7)
00028d14 4e ba df ec |N | JSR 0x26d02
00028d18 60 00 fe b6 |` | BRA 0x28bd0
00028d1c switch@0x28b6c[0x24]:
00028d1c 2f 12 |/ | MOVE.L (A2),-(A7)
00028d1e 4e ba e0 4c |N L | JSR 0x26d6c
00028d22 60 00 fe ac |` | BRA 0x28bd0
00028d26 switch@0x28b6c[0x25]:
00028d26 4e ba e0 16 |N | JSR 0x26d3e
00028d2a 60 3c |`< | BRA 0x28d68
00028d2c switch@0x28b6c[0x26]:
00028d2c 2f 12 |/ | MOVE.L (A2),-(A7)
00028d2e 4e ba ec de |N | JSR 0x27a0e
00028d32 60 00 fe 9c |` | BRA 0x28bd0
00028d36 switch@0x28b6c[0x27]:
00028d36 2f 12 |/ | MOVE.L (A2),-(A7)
00028d38 4e ba ed 56 |N V | JSR 0x27a90
00028d3c 60 00 fe 92 |` | BRA 0x28bd0
00028d40 switch@0x28b6c[0x28]:
00028d40 2f 12 |/ | MOVE.L (A2),-(A7)
00028d42 4e ba ed cc |N | JSR 0x27b10
00028d46 60 00 fe 88 |` | BRA 0x28bd0
00028d4a switch@0x28b6c[0x29]:
00028d4a 4e ba ee 88 |N | JSR 0x27bd4
00028d4e 60 18 |` | BRA 0x28d68
00028d50 switch@0x28b6c[0x2a]:
00028d50 2f 12 |/ | MOVE.L (A2),-(A7)
00028d52 4e ba ee a0 |N | JSR 0x27bf4
00028d56 60 00 fe 78 |` x | BRA 0x28bd0
00028d5a switch@0x28b6c[0x4]:
00028d5a 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7
00028d5e 3c 7c 00 00 |<| | MOVEA.W #0x0,A6
00028d62 4e f9 00 02 8f 72 |N r | JMP 0x28f72
00028d68 2f 12 |/ | MOVE.L (A2),-(A7)
00028d6a 4e ba c8 e8 |N | JSR 0x25654
00028d6e 58 4f |XO | ADDQ.L #0x4,A7
00028d70 2f 06 |/ | MOVE.L D6,-(A7)
00028d72 2f 06 |/ | MOVE.L D6,-(A7)
00028d74 9f 97 | | SUB.L D7,(A7)
00028d76 4e ba ce 72 |N r | JSR 0x25bea
00028d7a 50 4f |PO | ADDQ.L #0x8,A7
00028d7c 26 87 |& | MOVE.L D7,(A3)
00028d7e 4a 2e ff f4 |J. | TST.B (A6-0xc)
00028d82 67 00 fd 1c |g | BEQ 0x28aa0
00028d86 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00028d8a 4e 5e |N^ | UNLK A6
00028d8c 4e 75 |Nu | RTS
00028d8e ; --------------------------------------------------------------------------------------
00028d8e ; OMSI PASCAL Function
00028d8e ; --------------------------------------------------------------------------------------
00028d8e START:
00028d8e 4f fa 00 08 |O | LEA.L MAIN,A7
00028d92 4e f9 00 01 02 80 |N | JMP ?start_program
00028d98 MAIN:
00028d98 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x2bbea
00028da0 bb ea | |
00028da2 59 4f |YO | SUBQ.L #0x4,A7
00028da4 4e b9 00 01 03 c4 |N | JSR GetArgv() : String
00028daa 23 df 00 02 bb ee |# | MOVE.L (A7)+,0x2bbee
00028db0 48 79 00 02 bb c8 |Hy | PEA.L 0x2bbc8
00028db6 4e b9 00 02 4f 94 |N O | JSR 0x24f94
00028dbc 58 4f |XO | ADDQ.L #0x4,A7
00028dbe 20 79 00 02 bb ee | y | MOVEA.L 0x2bbee,A0
00028dc4 4a 50 |JP | TST.W (A0)
00028dc6 6f 68 |oh | BLE 0x28e30
00028dc8 51 4f |QO | SUBQ.L #0x8,A7
00028dca 20 4f | O | MOVEA.L A7,A0
00028dcc 43 fa c5 de |C | LEA.L 0x253ac,A1
00028dd0 70 06 |p | MOVEQ.L #0x06,D0
00028dd2 10 d9 | | MOVE.B (A1)+,(A0)+
00028dd4 51 c8 ff fc |Q | DBF D0,0x28dd2
00028dd8 51 4f |QO | SUBQ.L #0x8,A7
00028dda 20 4f | O | MOVEA.L A7,A0
00028ddc 43 fa c5 d6 |C | LEA.L 0x253b4,A1
00028de0 70 06 |p | MOVEQ.L #0x06,D0
00028de2 10 d9 | | MOVE.B (A1)+,(A0)+
00028de4 51 c8 ff fc |Q | DBF D0,0x28de2
00028de8 51 4f |QO | SUBQ.L #0x8,A7
00028dea 48 6f 00 10 |Ho | PEA.L (A7+0x10)
00028dee 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00028df2 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7)
00028df6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00028dfc 58 4f |XO | ADDQ.L #0x4,A7
00028dfe 2e b9 00 02 bb ee |. | MOVE.L 0x2bbee,(A7)
00028e04 59 4f |YO | SUBQ.L #0x4,A7
00028e06 48 6f 00 10 |Ho | PEA.L (A7+0x10)
00028e0a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00028e0e 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7)
00028e12 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00028e18 50 4f |PO | ADDQ.L #0x8,A7
00028e1a 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
00028e20 de fc 00 0c | | ADDA.W #0xc,A7
00028e24 23 df 00 02 bb ee |# | MOVE.L (A7)+,0x2bbee
00028e2a de fc 00 10 | | ADDA.W #0x10,A7
00028e2e 60 3a |`: | BRA 0x28e6a
00028e30 48 79 00 02 bb ee |Hy | PEA.L 0x2bbee
00028e36 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00028e3c 59 4f |YO | SUBQ.L #0x4,A7
00028e3e 20 4f | O | MOVEA.L A7,A0
00028e40 43 fa c5 7a |C z | LEA.L 0x253bc,A1
00028e44 70 06 |p | MOVEQ.L #0x06,D0
00028e46 10 d9 | | MOVE.B (A1)+,(A0)+
00028e48 51 c8 ff fc |Q | DBF D0,0x28e46
00028e4c 59 4f |YO | SUBQ.L #0x4,A7
00028e4e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00028e52 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00028e56 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7)
00028e5a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00028e60 50 4f |PO | ADDQ.L #0x8,A7
00028e62 23 df 00 02 bb ee |# | MOVE.L (A7)+,0x2bbee
00028e68 50 4f |PO | ADDQ.L #0x8,A7
00028e6a 13 fc 00 01 00 02 bb f8 | | MOVE.B #0x01,0x2bbf8
00028e72 4a 39 00 02 bb f8 |J9 | TST.B 0x2bbf8
00028e78 67 0a |g | BEQ 0x28e84
00028e7a 42 39 00 02 bb f8 |B9 | CLR.B 0x2bbf8
00028e80 60 00 00 b0 |` | BRA 0x28f32
00028e84 41 f9 00 02 bb d2 |A | LEA.L 0x2bbd2,A0
00028e8a 70 04 |p | MOVEQ.L #0x04,D0
00028e8c 3f 20 |? | MOVE.W -(A0),-(A7)
00028e8e 51 c8 ff fc |Q | DBF D0,0x28e8c
00028e92 3f 3a c5 30 |?: 0 | MOVE.W 0x253c4,-(A7)
00028e96 9e fc 00 0c | | SUBA.W #0xc,A7
00028e9a 48 6f 00 0e |Ho | PEA.L (A7+0xe)
00028e9e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00028ea2 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7)
00028ea6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00028eac 58 4f |XO | ADDQ.L #0x4,A7
00028eae 48 6f 00 10 |Ho | PEA.L (A7+0x10)
00028eb2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00028eb6 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00028eba 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00028ec0 50 4f |PO | ADDQ.L #0x8,A7
00028ec2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00028ec8 50 4f |PO | ADDQ.L #0x8,A7
00028eca 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String
00028ed0 58 4f |XO | ADDQ.L #0x4,A7
00028ed2 23 df 00 02 bb f4 |# | MOVE.L (A7)+,0x2bbf4
00028ed8 50 4f |PO | ADDQ.L #0x8,A7
00028eda 2e b9 00 02 bb f4 |. | MOVE.L 0x2bbf4,(A7)
00028ee0 4e ba ca 0c |N | JSR 0x258ee
00028ee4 54 4f |TO | ADDQ.L #0x2,A7
00028ee6 3e ba c4 de |> | MOVE.W 0x253c6,(A7)
00028eea 3f 3a c4 dc |?: | MOVE.W 0x253c8,-(A7)
00028eee 51 4f |QO | SUBQ.L #0x8,A7
00028ef0 48 6f 00 0a |Ho | PEA.L (A7+0xa)
00028ef4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00028ef8 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00028efc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00028f02 58 4f |XO | ADDQ.L #0x4,A7
00028f04 2e b9 00 02 bb f4 |. | MOVE.L 0x2bbf4,(A7)
00028f0a 59 4f |YO | SUBQ.L #0x4,A7
00028f0c 48 6f 00 10 |Ho | PEA.L (A7+0x10)
00028f10 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00028f14 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00028f18 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00028f1e 50 4f |PO | ADDQ.L #0x8,A7
00028f20 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
00028f26 de fc 00 0c | | ADDA.W #0xc,A7
00028f2a 23 df 00 02 bb ee |# | MOVE.L (A7)+,0x2bbee
00028f30 58 4f |XO | ADDQ.L #0x4,A7
00028f32 42 39 00 02 bb f2 |B9 | CLR.B 0x2bbf2
00028f38 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x2bbc0
00028f40 bb c0 | |
00028f42 42 b9 00 02 bb c4 |B | CLR.L 0x2bbc4
00028f48 59 4f |YO | SUBQ.L #0x4,A7
00028f4a 2f 39 00 02 bb ee |/9 | MOVE.L 0x2bbee,-(A7)
00028f50 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
00028f56 58 4f |XO | ADDQ.L #0x4,A7
00028f58 4e ba d5 06 |N | JSR 0x26460
00028f5c 58 4f |XO | ADDQ.L #0x4,A7
00028f5e 20 39 00 02 bb c0 | 9 | MOVE.L 0x2bbc0,D0
00028f64 b0 b9 00 02 bb c4 | | CMP.L 0x2bbc4,D0
00028f6a 6e 06 |n | BGT 0x28f72
00028f6c 4e ba fb 0e |N | JSR 0x28a7c
00028f70 60 ec |` | BRA 0x28f5e
00028f72 48 79 00 02 bb ee |Hy | PEA.L 0x2bbee
00028f78 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00028f7e 58 4f |XO | ADDQ.L #0x4,A7
00028f80 60 00 fe f0 |` | BRA 0x28e72
00028f84 4e b9 00 01 |N | .XXX[0x4]
00028f88 02 84 | | .XXX[0x2]
00028f8a 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_'
00028f98 ; --------------------------------------------------------------------------------------
00028f98 ; OMSI PASCAL Function
00028f98 ; <LVAR 0x008 1(r)>
00028f98 ; --------------------------------------------------------------------------------------
00028f98 PROG_FAIL:
00028f98 4e 56 ff d2 |NV | LINK.W A6,#0xffd2
00028f9c bf d5 | | CMPA.L (A5),A7
00028f9e 62 06 |b | BHI 0x28fa6
00028fa0 44 fc 00 02 |D | MOVE.W #0x2,CCR
00028fa4 4e 76 |Nv | TRAPV
00028fa6 de fc 00 2c | , | ADDA.W #0x2c,A7
00028faa 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
00028fae 41 fa ff e8 |A | LEA.L PROG_FAIL,A0
00028fb2 70 06 |p | MOVEQ.L #0x06,D0
00028fb4 3f 20 |? | MOVE.W -(A0),-(A7)
00028fb6 51 c8 ff fc |Q | DBF D0,0x28fb4
00028fba 1f 3c 00 03 | < | MOVE.B #0x03,-(A7)
00028fbe 51 4f |QO | SUBQ.L #0x8,A7
00028fc0 48 6f 00 0a |Ho | PEA.L (A7+0xa)
00028fc4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00028fc8 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00028fcc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00028fd2 58 4f |XO | ADDQ.L #0x4,A7
00028fd4 10 2e 00 08 | . | MOVE.B (A6+0x8),D0
00028fd8 48 80 |H | EXTB.W D0
00028fda 48 c0 |H | EXTW.L D0
00028fdc 2f 00 |/ | MOVE.L D0,-(A7)
00028fde 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00028fe4 58 4f |XO | ADDQ.L #0x4,A7
00028fe6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00028fec 50 4f |PO | ADDQ.L #0x8,A7
00028fee 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00028ff4 de fc 00 14 | | ADDA.W #0x14,A7
00028ff8 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
00028ffc 4e 5e |N^ | UNLK A6
00028ffe 4e 75 |Nu | RTS
00029000 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ '
0002900e 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ '
0002901c 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ '
0002902a 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :'
0002903c 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. '
00029054 ; --------------------------------------------------------------------------------------
00029054 ; OMSI PASCAL Function
00029054 ; <LVAR 0x00e 1(r)>
00029054 ; <LVAR 0x00a 4(r)>
00029054 ; <LVAR 0x008 1(r)>
00029054 ; --------------------------------------------------------------------------------------
00029054 EXP_FAIL:
00029054 4e 56 ff 8c |NV | LINK.W A6,#0xff8c
00029058 bf d5 | | CMPA.L (A5),A7
0002905a 62 06 |b | BHI 0x29062
0002905c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00029060 4e 76 |Nv | TRAPV
00029062 de fc 00 74 | t | ADDA.W #0x74,A7
00029066 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
0002906a 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00029070 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4
00029076 72 01 |r | MOVEQ.L #0x01,D1
00029078 74 0d |t | MOVEQ.L #0x0d,D2
0002907a 76 1e |v | MOVEQ.L #0x1e,D3
0002907c 78 12 |x | MOVEQ.L #0x12,D4
0002907e 7a 0e |z | MOVEQ.L #0x0e,D5
00029080 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00029086 41 fa ff b4 |A | LEA.L 0x2903c,A0
0002908a 70 08 |p | MOVEQ.L #0x08,D0
0002908c 3f 20 |? | MOVE.W -(A0),-(A7)
0002908e 51 c8 ff fc |Q | DBF D0,0x2908c
00029092 59 4f |YO | SUBQ.L #0x4,A7
00029094 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00029098 3f 01 |? | MOVE.W D1,-(A7)
0002909a 3f 04 |? | MOVE.W D4,-(A7)
0002909c 4e 93 |N | JSR (A3)
0002909e 50 4f |PO | ADDQ.L #0x8,A7
000290a0 4e 94 |N | JSR (A4)
000290a2 50 4f |PO | ADDQ.L #0x8,A7
000290a4 20 4f | O | MOVEA.L A7,A0
000290a6 43 fa ff 58 |C X | LEA.L 0x29000,A1
000290aa 70 0c |p | MOVEQ.L #0x0c,D0
000290ac 10 d9 | | MOVE.B (A1)+,(A0)+
000290ae 51 c8 ff fc |Q | DBF D0,0x290ac
000290b2 51 4f |QO | SUBQ.L #0x8,A7
000290b4 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000290b8 3f 01 |? | MOVE.W D1,-(A7)
000290ba 3f 02 |? | MOVE.W D2,-(A7)
000290bc 4e 93 |N | JSR (A3)
000290be 54 4f |TO | ADDQ.L #0x2,A7
000290c0 1e ae 00 0e | | MOVE.B (A6+0xe),(A7)
000290c4 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String
000290ca 54 4f |TO | ADDQ.L #0x2,A7
000290cc 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000290d2 50 4f |PO | ADDQ.L #0x8,A7
000290d4 4e 94 |N | JSR (A4)
000290d6 de c4 | | ADDA.W D4,A7
000290d8 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0
000290dc b0 c1 | | CMPA.W D1,A0
000290de 67 48 |gH | BEQ 0x29128
000290e0 9e c5 | | SUBA.W D5,A7
000290e2 22 4f |"O | MOVEA.L A7,A1
000290e4 45 fa ff 28 |E ( | LEA.L 0x2900e,A2
000290e8 70 0c |p | MOVEQ.L #0x0c,D0
000290ea 12 da | | MOVE.B (A2)+,(A1)+
000290ec 51 c8 ff fc |Q | DBF D0,0x290ea
000290f0 9e c3 | | SUBA.W D3,A7
000290f2 22 4f |"O | MOVEA.L A7,A1
000290f4 41 e8 00 fc |A | LEA.L (A0+0xfc),A0
000290f8 70 1d |p | MOVEQ.L #0x1d,D0
000290fa 12 d8 | | MOVE.B (A0)+,(A1)+
000290fc 51 c8 ff fc |Q | DBF D0,0x290fa
00029100 51 4f |QO | SUBQ.L #0x8,A7
00029102 48 6f 00 26 |Ho & | PEA.L (A7+0x26)
00029106 3f 01 |? | MOVE.W D1,-(A7)
00029108 3f 02 |? | MOVE.W D2,-(A7)
0002910a 4e 93 |N | JSR (A3)
0002910c 58 4f |XO | ADDQ.L #0x4,A7
0002910e 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00029112 3f 01 |? | MOVE.W D1,-(A7)
00029114 3f 03 |? | MOVE.W D3,-(A7)
00029116 4e 93 |N | JSR (A3)
00029118 50 4f |PO | ADDQ.L #0x8,A7
0002911a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00029120 50 4f |PO | ADDQ.L #0x8,A7
00029122 4e 94 |N | JSR (A4)
00029124 de fc 00 30 | 0 | ADDA.W #0x30,A7
00029128 9e c5 | | SUBA.W D5,A7
0002912a 20 4f | O | MOVEA.L A7,A0
0002912c 43 fa fe ee |C | LEA.L 0x2901c,A1
00029130 70 0c |p | MOVEQ.L #0x0c,D0
00029132 10 d9 | | MOVE.B (A1)+,(A0)+
00029134 51 c8 ff fc |Q | DBF D0,0x29132
00029138 51 4f |QO | SUBQ.L #0x8,A7
0002913a 48 6f 00 08 |Ho | PEA.L (A7+0x8)
0002913e 3f 01 |? | MOVE.W D1,-(A7)
00029140 3f 02 |? | MOVE.W D2,-(A7)
00029142 4e 93 |N | JSR (A3)
00029144 54 4f |TO | ADDQ.L #0x2,A7
00029146 1e ae 00 08 | | MOVE.B (A6+0x8),(A7)
0002914a 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String)
00029150 54 4f |TO | ADDQ.L #0x2,A7
00029152 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00029158 50 4f |PO | ADDQ.L #0x8,A7
0002915a 4e 94 |N | JSR (A4)
0002915c 5d 4f |]O | SUBQ.L #0x6,A7
0002915e 20 4f | O | MOVEA.L A7,A0
00029160 43 fa fe da |C | LEA.L 0x2903c,A1
00029164 70 16 |p | MOVEQ.L #0x16,D0
00029166 10 d9 | | MOVE.B (A1)+,(A0)+
00029168 51 c8 ff fc |Q | DBF D0,0x29166
0002916c 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00029170 59 4f |YO | SUBQ.L #0x4,A7
00029172 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00029176 3f 01 |? | MOVE.W D1,-(A7)
00029178 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
0002917c 4e 93 |N | JSR (A3)
0002917e 50 4f |PO | ADDQ.L #0x8,A7
00029180 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00029186 de c3 | | ADDA.W D3,A7
00029188 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
0002918c 4e 5e |N^ | UNLK A6
0002918e 4e 75 |Nu | RTS